WebSVN – Kolibri OS – Diff – /programs/network/tftpa/trunk/tftpa.asm

  dd	I_END+0x10000 ; required memory
  dd	I_END+0x10000 ; esp
  dd	0x0 , 0x0     ; I_Param , I_Path
 include 'lang.inc'
-include 'macros.inc'
+include '..\..\..\macros.inc'
 delay	   dd  145
 wait_for   dd  0x0
+START:				; start of execution
 START:				; start of execution
     mov  dword [prompt], p9
-    mov  dword [prompt], p9
+    mov  dword [promptlen], p9len - p9
-    mov  dword [promptlen], p9len - p9
 red:
     call draw_window		; at first, draw the window
 still:
     mov  eax,10 		; wait here for event
-    int  0x40
+    mcall
-    cmp  eax,1			; redraw request ?
-    jz	 red
-    cmp  eax,2			; key in buffer ?
-    jz	 key
     cmp  eax,3			; button in buffer ?
-    jz	 button
+    cmp  eax,1			; redraw request ?
+    jz	 red
-    jmp  still
+    cmp  eax,2			; key in buffer ?
     jz	 key
-red:			       ; redraw
+    cmp  eax,3			; button in buffer ?
-    call draw_window
+    jz	 button
     jmp  still
     jmp  still
 key:			       ; Keys are not valid at this part of the
     mov  eax,2			; loop. Just read it and ignore
-    int  0x40
+    mcall
     jmp  still
 button: 		       ; button
     mov  eax,17 		; get id
-    int  0x40
+    mcall
     cmp  ah,1			; button id=1 ?
     jnz  noclose
     mov  edi,[addr]
   f11:
     mov  eax,10
-    int  0x40
+    mcall
     cmp  eax,2
     jz	 fbu
     jmp  still
   fbu:
     mov  eax,2
-    int  0x40  ; get key
+    mcall  ; get key
     shr  eax,8
     cmp  eax,8
     jnz  nobs
     mov  ebx,103*65536+15*6
     mov  ecx,[ya]
     shl  ecx,16
     mov  cx,8
     mov  edx,0x224466
-    int  0x40
+    mcall
     mov  eax,4
     mov  ebx,103*65536
     add  ebx,[ya]
     mov  ecx,0xffffff
     mov  edx,[addr]
     mov  esi,15
-    int  0x40
+    mcall
  mov  eax,0x20000-512
  mov  [fileposition], eax
  ; Get a random # for the local socket port #
  mov  eax, 3
- int  0x40
+ mcall
  mov  ecx, eax
  shr  ecx, 8	; Set up the local port # with a random #
    ; open socket
  mov  eax, 53
  mov  ebx, 0
  mov  edx, 69	 ; remote port
  mov  esi, [tftp_IP]  ; remote IP ( in intenet format )
- int  0x40
+ mcall
  mov  [socketNum], eax
  ; make sure there is no data in the socket - there shouldn't be..
 cfr001:
  mov  eax, 53
  mov  ebx, 3
  mov  ecx, [socketNum]
- int  0x40    ; read byte
+ mcall    ; read byte
  mov  eax, 53
  mov  ebx, 2
  mov  ecx, [socketNum]
- int  0x40    ; any more data?
+ mcall    ; any more data?
  cmp  eax, 0
  jne  cfr001	; yes, so get it
  ; Now, request the file
  mov  eax, 53
  mov  ebx, 4
  mov  ecx, [socketNum]
  mov  edx, [tftp_len]
  mov  esi, tftp_filename
- int  0x40
+ mcall
     ; Any data to fetch?
  mov  eax, 53
  mov  ebx, 2
  mov  ecx, [socketNum]
- int   0x40
+ mcall
  cmp  eax, 0
  ; read first two bytes - opcode
  mov  eax, 53
  mov  ebx, 3
  mov  ecx, [socketNum]
- int  0x40   ; read byte
+ mcall   ; read byte
  mov  eax, 53
  mov  ebx, 3
  mov  ecx, [socketNum]
- int  0x40   ; read byte
+ mcall   ; read byte
  ; do data stuff. Read block #. Read data. Send Ack.
  mov  eax, 53
  mov  ebx, 3
  mov  ecx, [socketNum]
- int  0x40   ; read byte
+ mcall   ; read byte
  mov  [blockNumber], bl
  mov  eax, 53
  mov  ebx, 3
  mov  ecx, [socketNum]
- int  0x40   ; read byte
+ mcall   ; read byte
  mov  [blockNumber+1], bl
 cfr007:
  mov  eax, 53
  mov  ebx, 3
  mov  ecx, [socketNum]
- int  0x40   ; read byte
+ mcall   ; read byte
  mov  esi, [fileposition]
  mov  [esi], bl
  mov  [esi+1],bl
  add  dword [fileposition],2
 wait_more:
  mov  eax,5    ; wait for correct timer position
 	       ; to trigger new play block
  mov  ebx,1
- int  0x40
+ mcall
  mov  eax,26
  mov  ebx,9
- int  0x40
+ mcall
  rep  movsb
  mov  eax,55
  mov  ebx,0
  mov  ecx,0x10000
- int  0x40
+ mcall
  mov  eax,55
  mov  ebx,1
- int  0x40
+ mcall
  mov  eax, 53
  mov  ebx, 4
  mov  ecx, [socketNum]
  mov  edx, ackLen - ack
  mov  esi, ack
- int   0x40
+ mcall
  ; If # of chars in the frame is less that 516,
  ; this frame is the last
  pop  eax
  mov  eax, 33
  mov  ebx, source
  mov  edx, [filesize]
  mov  ecx, I_END + 512
  mov  esi, 0
- int  0x40
+ mcall
  jmp  cfrexit
 cfrerr:
  ; simple implementation on error - just read all data, and return
  mov  eax, 53
  mov  ebx, 3
  mov  ecx, [socketNum]
-    int   0x40	  ; read byte
+    mcall	  ; read byte
  mov  eax, 53
  mov  ebx, 2
  mov  ecx, [socketNum]
-    int   0x40	  ; any more data?
+    mcall	  ; any more data?
     call draw_window
     jmp  cfr002
 cfr004: 			; key pressed
     mov  eax,2			; just read it and ignore
-    int  0x40
+    mcall
     jmp  cfr002
 cfr005: 		       ; button
     mov  eax,17 		; get id
-    int  0x40
+    mcall
     cmp  ah,1			; button id=1 ?
     jne  cfr002     ; If not, ignore.
 cfr006:
     ; close socket
  mov  eax, 53
  mov  ebx, 1
  mov  ecx, [socketNum]
-    int   0x40
+    mcall
  mov  [socketNum], dword 0
     mov  eax,-1 		; close this program
-    int  0x40
+    mcall
     jmp $
 cfrexit:
 draw_window:
     mov  eax,12 		   ; function 12:tell os about windowdraw
     mov  ebx,1			   ; 1, start of draw
-    int  0x40
+    mcall
 				   ; DRAW WINDOW
     mov  eax,0			   ; function 0 : define and draw window
     mov  ebx,100*65536+230	   ; [x start] *65536 + [x size]
-    mov  ecx,100*65536+170	   ; [y start] *65536 + [y size]
-    mov  edx,0x13224466 	   ; color of work area RRGGBB
-    mov  edi,labelt
-    int  0x40
-    mov  eax,8		    ; COPY BUTTON
+    mov  ecx,100*65536+170	   ; [y start] *65536 + [y size]
-    mov  ebx,20*65536+190
-    mov  ecx,79*65536+15
-    mov  edx,3
+    mov  edx,0x13224466 	   ; color of work area RRGGBB
-    mov  esi,0x557799
+    mov  edi,title
-;    int  0x40
+    mcall
     mov  eax,8		    ; DELETE BUTTON
     mov  ebx,20*65536+190
-    mov  ecx,111*65536+15
-    mov  edx,2
+    mov  ecx,111*65536+15
-    mov  esi,0x557799
+    mov  edx,2
-    int  0x40
+    mov  esi,0x557799
-    mov  eax,8
+    mcall
-    mov  ebx,200*65536+10
-    mov  ecx,34*65536+10
     mov  edx,4
-    mov  esi,0x557799
+    mov  ebx,200*65536+10
-    int  0x40
+    mov  ecx,34*65536+10
-    mov  eax,8
+    mov  edx,4
-    mov  ebx,200*65536+10
+    mcall
     mov  ecx,50*65536+10
     mov  ecx,[promptlen]
     rep  movsb
     ; Re-draw the screen text
+    cld
-    cld
+    mov  eax,4
     mov  ebx,25*65536+35	   ; draw info text with function 4
     mov  ecx,0xffffff
     mov  edx,text
     mov  esi,40
   newline:
-    mov  eax,4
-    int  0x40
+    mcall
     add  ebx,16
     add  edx,40
     cmp  [edx],byte 'x'
     jnz  newline
     mov  eax,12 		   ; function 12:tell os about windowdraw
     mov  ebx,2			   ; 2, end of draw
     db '                                        '
     db '                                        '
     db 'x' ; <- END MARKER, DONT DELETE
-labelt	db   'TFTP Wave Player',0
+title	db   'TFTP Wave Player',0

Subversion Repositories Kolibri OS

(root)/programs/network/tftpa/trunk/tftpa.asm – Rev 331 → 485