From daaffa51b3549360531109e6ba370f639f6c64d9 Mon Sep 17 00:00:00 2001 From: jonnosan Date: Wed, 30 Dec 2009 10:47:40 +0000 Subject: [PATCH] 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 --- client/ip65/telnet.s | 27 ++++----------------------- 1 file changed, 4 insertions(+), 23 deletions(-) diff --git a/client/ip65/telnet.s b/client/ip65/telnet.s index 2757074..537e4f4 100644 --- a/client/ip65/telnet.s +++ b/client/ip65/telnet.s @@ -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