From 0b0d98f88c7b1b056cf8422b0906ef1db4be1e0b Mon Sep 17 00:00:00 2001
From: Oliver Schmidt
Date: Mon, 5 Jun 2017 17:24:26 +0200
Subject: [PATCH] Disable IP65 abort key during active connection.
It might be welcome to be able to abort DHCP, DNS and TCP connect operations. However while we're connected to the remote host we need full control over the keyboard. If TCP send operations don't work immediately the user will just have to wait until they do (or the timeout).
---
apps/telnet65.s | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/apps/telnet65.s b/apps/telnet65.s
index 1e95bc2..4039e1d 100644
--- a/apps/telnet65.s
+++ b/apps/telnet65.s
@@ -6,6 +6,9 @@
.export start
+.import abort_key
+.importzp abort_key_default
+.importzp abort_key_disable
.import drv_init
.importzp drv_init_default
.import get_filtered_input
@@ -183,6 +186,8 @@ telnet_main_entry:
sta connection_closed
sta data_received
sta iac_response_buffer_length
+ lda #abort_key_disable
+ sta abort_key
ldax #cursor_on
jsr print_vt100
@@ -208,7 +213,9 @@ telnet_main_entry:
jmp :++
: lda connection_closed
beq :++
-: ldax #cursor_off
+: lda #abort_key_default
+ sta abort_key
+ ldax #cursor_off
jsr print_vt100
ldax #disconnected
jsr print_ascii_as_native