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 331
Line 1... Line 1...
1 
;
 1 
;
2 
;    TFTP Client
 2 
;    TFTP Client
3 
;
 - 
 
4 
;    Compile with FASM for Menuet
 - 
 
5 
;
 - 
 
Line 6... Line 3...
6
3
7 
use32
 - 
 
8
4 
use32
9 
                org     0x0
 - 
 
10
5 
 org	0x0
11 
                db      'MENUET00'              ; 8 byte id
 6 
 db	'MENUET01'    ; header
12 
                dd      38                      ; required os
 7 
 dd	0x01	      ; header version
13 
                dd      START                   ; program start
 8 
 dd	START	      ; entry point
14 
                dd      I_END                   ; program image size
 9 
 dd	I_END	      ; image size
- 
 
 10 
 dd	I_END+0x10000 ; required memory
15 
                dd      0x100000                ; required amount of memory
 11 
 dd	I_END+0x10000 ; esp
Line 16... Line 12...
16 
                dd      0x00000000              ; reserved=no extended header
 12 
 dd	0x0 , 0x0     ; I_Param , I_Path
17 
 
 13 
 
Line 18... Line 14...
18 
include 'lang.inc'
 14 
include 'lang.inc'
Line 817... Line 813...
817
813
818 
                                   ; DRAW WINDOW
 814 
				   ; DRAW WINDOW
819 
    mov  eax,0                     ; function 0 : define and draw window
 815 
    mov  eax,0			   ; function 0 : define and draw window
820 
    mov  ebx,100*65536+230         ; [x start] *65536 + [x size]
 816 
    mov  ebx,100*65536+230	   ; [x start] *65536 + [x size]
821 
    mov  ecx,100*65536+170         ; [y start] *65536 + [y size]
 817 
    mov  ecx,100*65536+170	   ; [y start] *65536 + [y size]
822 
    mov  edx,0x03224466            ; color of work area RRGGBB
 - 
 
823 
    mov  esi,0x00334455            ; color of grab bar  RRGGBB,8->color gl
 818 
    mov  edx,0x13224466 	   ; color of work area RRGGBB
824 
    mov  edi,0x00ddeeff            ; color of frames    RRGGBB
 819 
    mov  edi,labelt
Line 825... Line -...
825 
    int  0x40
 - 
 
826
- 
 
827 
                                   ; WINDOW LABEL
 - 
 
828 
    mov  eax,4                     ; function 4 : write text to window
 - 
 
829 
    mov  ebx,8*65536+8             ; [x start] *65536 + [y start]
 - 
 
830 
    mov  ecx,0x00ffffff            ; color of text RRGGBB
 - 
 
831 
    mov  edx,labelt                ; pointer to text beginning
 - 
 
832 
    mov  esi,labellen-labelt       ; text length
 - 
 
833 
    int  0x40
 - 
 
834
820 
    int  0x40
835
821
836 
    mov  eax,8              ; COPY BUTTON
 822 
    mov  eax,8		    ; COPY BUTTON
837 
    mov  ebx,20*65536+190
 823 
    mov  ebx,20*65536+190
838 
    mov  ecx,79*65536+15
 824 
    mov  ecx,79*65536+15
Line 930... Line 916...
930 
    db '  COPY HOST   ->   LOCAL                '
 916 
    db '  COPY HOST   ->   LOCAL                '
931 
    db '                                        '
 917 
    db '                                        '
932 
    db '  COPY LOCAL  ->   HOST                 '
 918 
    db '  COPY LOCAL  ->   HOST                 '
933 
    db '                                        '
 919 
    db '                                        '
934 
    db '                                        '
 920 
    db '                                        '
935 
    db 'x <- END MARKER, DONT DELETE            '
 921 
    db 'x' ; <- END MARKER, DONT DELETE
936
- 
 
Line 937... Line -...
937
- 
 
938 
labelt:
 - 
 
939 
    db   'TFTP Client'
 - 
 
Line -... Line 922...
- 
 
 922
Line 940... Line 923...
940 
labellen:
 923
941
924 
labelt	db   'TFTP Client',0