Subversion Repositories Kolibri OS

Rev

Rev 109 | Go to most recent revision | Show entire file | Regard 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