Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-10-14 05:24:07 +00:00
Code Issues Projects Releases Wiki Activity

FIX: telnet often failed to notice disconnect by remote server

Browse Source 
FIX: Can now send a ^C in telnet

git-svn-id: http://svn.code.sf.net/p/netboot65/code@241 93682198-c243-4bdb-bd91-e943c89aac3b
This commit is contained in:
jonnosan 2009-12-30 10:47:40 +00:00
parent 27d39046cb
commit fa44153d63
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
client/ip65/telnet.s
View File

@ -12,7 +12,6 @@
.import tcp_callback .import tcp_callback
.import tcp_connect_ip .import tcp_connect_ip
.import tcp_listen .import tcp_listen
.importzp KEYCODE_ABORT
.importzp KEYCODE_F1 .importzp KEYCODE_F1
.import tcp_inbound_data_ptr .import tcp_inbound_data_ptr
.import tcp_inbound_data_length .import tcp_inbound_data_length
@ -131,33 +130,15 @@ telnet_connect:
jsr telnet_menu jsr telnet_menu
jmp @main_polling_loop jmp @main_polling_loop
@not_telnet_menu: @not_telnet_menu:
tax
cmp #KEYCODE_ABORT ldx #0
bne @not_abort stx tcp_send_data_len
stx tcp_send_data_len+1
ldax #closing_connection ldx telnet_use_native_charset
jsr print
jsr tcp_close
bcs @error_on_disconnect
ldax #disconnected
jsr print
rts
@error_on_disconnect:
jsr print_errorcode
jsr print_cr
rts
@not_abort:
lda #0
sta tcp_send_data_len
sta tcp_send_data_len+1
lda telnet_use_native_charset
bne @no_conversion_required bne @no_conversion_required
txa
jsr vt100_transform_outbound_char jsr vt100_transform_outbound_char
sta temp_a sta temp_a