Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 3687 → Rev 3682

/programs/network/telnet/telnet.asm
125,7 → 125,7
pop esi
; test for error
test eax, eax
jnz dns_error
jnz fail
 
call [con_cls]
push str3
156,7 → 156,7
 
mcall socket, AF_INET4, SOCK_STREAM, 0
cmp eax, -1
jz socket_err
jz fail2
mov [socketnum], eax
 
mcall connect, [socketnum], sockaddr1, 18
199,7 → 199,7
.no_cmd:
 
cmp esi, buffer_ptr
je .print
je .print_loop
 
DEBUGF 1, 'TELNET: sending data\n'
 
208,29 → 208,47
mcall send, [socketnum], buffer_ptr, , 0
pop edi esi
 
.print:
.print_loop:
DEBUGF 1, 'TELNET: printloop\n'
cmp esi, edi
jae mainloop
 
push esi
call [con_write_asciiz]
cmp byte [esi], 0x1b ; escape character
jne .print_byte
inc esi
 
.loop:
lodsb
test al, al
jz .print
jmp .loop
cmp word [esi], 0x485b ; move cursor to beginning
jne @f
inc esi
inc esi
 
DEBUGF 1, 'TELNET: resetting cursor \n'
 
socket_err:
DEBUGF 1, "TELNET: socket error %d", ebx
push 0
push 0
call [con_set_cursor_pos]
jmp .print_loop
 
@@:
inc esi
inc esi
jmp .print_loop
 
.print_byte:
push dword 1
push esi ; next string to print
inc esi
call [con_write_string]
jmp .print_loop
 
 
fail2:
push str6
call [con_write_asciiz]
 
jmp prompt
 
dns_error:
DEBUGF 1, "TELNET: DNS error %d", eax
fail:
push str5
call [con_write_asciiz]