Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-07-01 17:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Disable IP65 abort key during active connection.

Browse Source 
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).
This commit is contained in:
Oliver Schmidt 2017-06-05 17:24:26 +02:00
parent a987c40490
commit dd660e7159
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
apps/telnet65.s
View File

@ -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