Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-02-22 08:29:05 +00:00
Code Issues Projects Releases Wiki Activity

Normalize VT100 state on disconnect.

Browse Source 
In order to avoid strange display effects on a potential next connection we normalize the character set and the display attributes on disconnect.
This commit is contained in:
Oliver Schmidt 2017-06-05 17:41:41 +02:00
parent dd660e7159
commit bcf581ed19
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
apps/telnet65.s
View File

@ -188,7 +188,7 @@ telnet_main_entry:
sta iac_response_buffer_length sta iac_response_buffer_length
lda #abort_key_disable lda #abort_key_disable
sta abort_key sta abort_key
ldax #cursor_on ldax #on_connect
jsr print_vt100 jsr print_vt100
@main_polling_loop: @main_polling_loop:
@ -215,7 +215,7 @@ telnet_main_entry:
beq :++ beq :++
: lda #abort_key_default : lda #abort_key_default
sta abort_key sta abort_key
ldax #cursor_off ldax #on_disconnect
jsr print_vt100 jsr print_vt100
ldax #disconnected ldax #disconnected
jsr print_ascii_as_native jsr print_ascii_as_native
@ -531,8 +531,8 @@ welcome_2: .byte 14,"x",15,"- IP65 (oliverschmidt.github.io/ip65) "
.byte 15,13,10 .byte 15,13,10
.byte 27,")A" .byte 27,")A"
.byte 27,"[?25l",0 .byte 27,"[?25l",0
cursor_on: .byte 27,"[?25h",0 on_connect: .byte 27,"[?25h",0
cursor_off: .byte 27,"[?25l",0 on_disconnect: .byte 27,"[?25l",27,"[0m",27,"(A",15,0
; initial_telnet_options: ; initial_telnet_options:
; .byte $ff,$fb,$1F ; IAC WILL NAWS ; .byte $ff,$fb,$1F ; IAC WILL NAWS