Rev 109 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 109 | Rev 474 | ||
---|---|---|---|
Line 6... | Line 6... | ||
6 | ;; Copyright 2002 (c) Ville Turjanmaa ;; |
6 | ;; Copyright 2002 (c) Ville Turjanmaa ;; |
7 | ;; ;; |
7 | ;; ;; |
8 | ;; Compile with FASM for Menuet ;; |
8 | ;; Compile with FASM for Menuet ;; |
9 | ;; ;; |
9 | ;; ;; |
10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
11 | include 'lang.inc' |
- | |
- | 11 | ||
12 | version equ '0.1' |
12 | version equ '0.1' |
Line 13... | Line 13... | ||
13 | 13 | ||
Line 14... | Line 14... | ||
14 | use32 |
14 | use32 |
Line 21... | Line 21... | ||
21 | dd I_END ; program image size |
21 | dd I_END ; program image size |
22 | dd 0x200000 ; required amount of memory |
22 | dd 0x200000 ; required amount of memory |
23 | dd 0xffff0 |
23 | dd 0xffff0 |
24 | dd 0,0 |
24 | dd 0,0 |
Line 25... | Line 25... | ||
25 | 25 | ||
26 | save_file: |
- | |
27 | - | ||
Line 28... | Line -... | ||
28 | pusha |
- | |
29 | - | ||
30 | cmp [file_start],0x100000+10 |
- | |
31 | jbe nosub |
26 | include 'macros.inc' |
Line -... | Line 27... | ||
- | 27 | ||
- | 28 | save_file: |
|
32 | sub [file_start],8 |
29 | |
- | 30 | ; cmp [file_start],0x100000+10 |
|
Line 33... | Line 31... | ||
33 | nosub: |
31 | ; jbe nosub |
34 | 32 | ; sub [file_start],8 |
|
35 | mov edi,[file_start] |
- | |
36 | - | ||
37 | mov eax,[file_start] |
- | |
38 | sub eax,0x100000 |
33 | ; nosub: |
39 | mov [files+8],eax |
34 | |
Line 40... | Line 35... | ||
40 | 35 | mov eax,[file_start] |
|
- | 36 | sub eax,0x100000 |
|
Line 41... | Line 37... | ||
41 | mov eax,58 |
37 | mov ebx,files |
Line 42... | Line 38... | ||
42 | mov ebx,files |
38 | mov [ebx+12],eax |
Line 43... | Line 39... | ||
43 | int 0x40 |
39 | |
Line 44... | Line 40... | ||
44 | 40 | mov eax,70 |
|
45 | popa |
41 | int 0x40 |
46 | 42 | ||
Line -... | Line 43... | ||
- | 43 | ret |
|
- | 44 | ||
47 | ret |
45 | |
48 | 46 | START: ; start of execution |
|
- | 47 | ||
49 | 48 | mov [file_start],0x100000 |
|
50 | START: ; start of execution |
49 | |
Line 51... | Line 50... | ||
51 | 50 | mov eax,70 |
|
52 | mov [file_start],0x100000 |
51 | mov ebx,filel |
53 | 52 | int 0x40 |
|
54 | mov eax,58 |
53 | |
55 | mov ebx,filel |
54 | test eax,eax |
Line 56... | Line 55... | ||
56 | int 0x40 |
55 | jz @f |
57 | 56 | cmp eax,6 |
|
Line 628... | Line 627... | ||
628 | mov [old_status],300 |
627 | mov [old_status],300 |
Line 629... | Line 628... | ||
629 | 628 | ||
630 | mov eax,0 ; draw window |
629 | mov eax,0 ; draw window |
631 | mov ebx,5*65536+400 |
630 | mov ebx,5*65536+400 |
632 | mov ecx,5*65536+200 |
- | |
633 | mov edx,[wcolor] |
- | |
634 | add edx,0x03ffffff |
- | |
635 | mov esi,0x80555599 |
- | |
636 | mov edi,0x00ffffff |
- | |
637 | int 0x40 |
- | |
638 | - | ||
639 | mov eax,4 ; label |
- | |
640 | mov ebx,9*65536+8 |
631 | mov ecx,5*65536+200 |
641 | mov ecx,0x10ffffff |
632 | mov edx,0x13ffffff |
642 | mov edx,labelt |
- | |
643 | mov esi,labellen-labelt |
633 | mov edi,labelt |
Line 644... | Line 634... | ||
644 | int 0x40 |
634 | int 0x40 |
645 | 635 | ||
646 | mov eax,8 ; button: open socket |
636 | mov eax,8 ; button: open socket |
Line 744... | Line 734... | ||
744 | db ' The file can be fetched with TinyServer and a Html-browser. ' |
734 | db ' The file can be fetched with TinyServer and a Html-browser. ' |
745 | db ' Timeout is set to 15 seconds. ' |
735 | db ' Timeout is set to 15 seconds. ' |
746 | db ' ' |
736 | db ' ' |
747 | db ' Open SMTP server port 25 Close SMTP ' |
737 | db ' Open SMTP server port 25 Close SMTP ' |
Line 748... | Line 738... | ||
748 | 738 | ||
Line 749... | Line 739... | ||
749 | db 'x <- END MARKER, DONT DELETE ' |
739 | db 'x' ; <- END MARKER, DONT DELETE |
Line 750... | Line 740... | ||
750 | 740 | ||
Line 751... | Line 741... | ||
751 | 741 | ||
752 | irc_server_ip db 192,168,1,1 |
742 | irc_server_ip db 192,168,1,1 |
753 | 743 | ||
754 | file_start dd 0x100000 |
744 | file_start dd 0x100000 |
755 | 745 | ||
756 | files: |
746 | files: |
Line 757... | Line 747... | ||
757 | dd 1,0,0,0x100000,0xd0000 |
747 | dd 2,0,0,?,0x100000 |
Line 838... | Line 828... | ||
838 | scroll dd 1 |
828 | scroll dd 1 |
839 | dd 8 |
829 | dd 8 |
Line 840... | Line 830... | ||
840 | 830 | ||
Line 841... | Line -... | ||
841 | numtext db ' ' |
- | |
842 | - | ||
843 | wcolor dd 0x000000 |
831 | numtext db ' ' |
844 | - | ||
845 | labelt db 'Tiny SMTP email server v ',version |
- | |
Line 846... | Line 832... | ||
846 | labellen: |
832 |