mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-10-14 05:24:07 +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
27d39046cb
commit
fa44153d63
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user