Subversion Repositories Kolibri OS

Rev

Rev 109 | Go to most recent revision | 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