mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-08 21:54:28 +00:00
FIX: telnet often failed to notice disconnect by remote server
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:
parent
0af1ec6e1a
commit
daaffa51b3
@ -12,7 +12,6 @@
|
||||
.import tcp_callback
|
||||
.import tcp_connect_ip
|
||||
.import tcp_listen
|
||||
.importzp KEYCODE_ABORT
|
||||
.importzp KEYCODE_F1
|
||||
.import tcp_inbound_data_ptr
|
||||
.import tcp_inbound_data_length
|
||||
@ -131,33 +130,15 @@ telnet_connect:
|
||||
jsr telnet_menu
|
||||
jmp @main_polling_loop
|
||||
@not_telnet_menu:
|
||||
tax
|
||||
|
||||
cmp #KEYCODE_ABORT
|
||||
bne @not_abort
|
||||
ldx #0
|
||||
stx tcp_send_data_len
|
||||
stx tcp_send_data_len+1
|
||||
|
||||
ldax #closing_connection
|
||||
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
|
||||
ldx telnet_use_native_charset
|
||||
bne @no_conversion_required
|
||||
|
||||
|
||||
txa
|
||||
|
||||
jsr vt100_transform_outbound_char
|
||||
|
||||
sta temp_a
|
||||
|
Loading…
Reference in New Issue
Block a user