; TCP/IP функции для правильной работы клиента

;отправить все
;ecx - len
;ebx - &buf
proc sendall
local total dd 0

.w:
	
	cmp [total],ecx
	jnl .exit
		add ebx,[total]
		sub ecx,[total]

 		invoke send,[sock],ebx,ecx,0
 		inc eax
 		jz .exit
 		dec eax
		add [total],eax
		jmp .w
.exit:
ret
endp

;принять все
;ecx - len
;ebx - &buf
proc recvall
local total dd 0

.w:
	
	cmp [total],ecx
	jnl .exit
		add ebx,[total]
		sub ecx,[total]

 		invoke recv,[sock],ebx,ecx,0
 		inc eax
 		jz .exit
 		dec eax
		add [total],eax
		jmp .w
.exit:
ret
endp