Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 1300 → Rev 1301

/programs/network/ftps/trunk/FTPS.ASM
444,7 → 444,7
; The TCP/IP transmit queue is full; Wait a bit, then retry
pusha
mov eax,5
mov ebx,1 ; Delay for up 100ms
mov ebx,1 ; Delay for up 10ms
mcall
popa
jmp outputStr
481,7 → 481,7
; The TCP/IP transmit queue is full; Wait a bit, then retry
pusha
mov eax,5
mov ebx,20 ; Delay for upto 200ms
mov ebx,1 ; Delay for up 10ms
mcall
popa
jmp outputDataStr
1066,6 → 1066,7
mov ebx, fileinfoblock
and dword [ebx], 0 ; read cmd
and dword [ebx+4], 0 ; first block
mov dword [ebx+12], 0x400 ; block size
 
sf002a:
; now read the file..
1085,7 → 1086,7
jnz sf_exit
; wait a bit
mov eax, 5
mov ebx, 10
mov ebx, 1
mcall
mov ebx, fileinfoblock
add dword [ebx+4], edx
1140,18 → 1141,13
je gf_sleep
 
mov eax, 53
mov ebx, 3 ; Get a byte from socket in bl
mov ebx, 11 ; Get a bytes from socket
mov ecx, [DataSocket]
mcall ; returned data in bl
mov edx, text + 0x1300
add edx, dword [fsize]
mcall ; returned data len in eax
add dword [fsize], eax
 
mov esi, text + 0x1300
add esi, dword [fsize]
mov [esi], bl
inc dword [fsize]
 
; dummy, write to screen
;call printChar
 
jmp gf000
 
gf_sleep:
1176,7 → 1172,7
gf001:
; wait a bit
mov eax,5
mov ebx,10 ; Delay for up 100ms
mov ebx,1 ; Delay for up 10ms
mcall
jmp gf000 ; try for more data