mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-07 14:54:28 +00:00
Atari: fix stray cursor image when connecting to BSDs.
FreeBSD and NetBSD, at least, have a banner message when you telnet into them which has an empty line as first line. On those systems, an old "cursor" char was visible at the top of the login prompt message. This is fixed by enabling and disabling the cursor in 'get_key' while waiting for a key press.
This commit is contained in:
parent
33aa72d432
commit
6df073e94c
@ -9,6 +9,7 @@
|
||||
.exportzp abort_key_disable = 0
|
||||
|
||||
.import ip65_process
|
||||
.import print_a
|
||||
|
||||
|
||||
.data
|
||||
@ -75,8 +76,26 @@ special_key_table2:
|
||||
; inputs: none
|
||||
; outputs: A contains ASCII value of key just pressed
|
||||
get_key:
|
||||
lda #0
|
||||
sta CRSINH ; cursor on
|
||||
; according to "Mapping the Atari", a change to CRSINH will only be in effect after the next cursor movement,
|
||||
; so we move the cursor one to the left and then one to the right (to keep its original position)
|
||||
lda #ATLRW
|
||||
jsr print_a
|
||||
lda #ATRRW
|
||||
jsr print_a
|
||||
@loop:
|
||||
jsr get_key_if_available
|
||||
bcc get_key
|
||||
bcc @loop
|
||||
ldy #1
|
||||
sty CRSINH ; cursor on
|
||||
tay ; save key
|
||||
; see above comment wrt. "Mapping the Atari"
|
||||
lda #ATLRW
|
||||
jsr print_a
|
||||
lda #ATRRW
|
||||
jsr print_a
|
||||
tya ; restore key
|
||||
rts
|
||||
|
||||
; inputs: none
|
||||
|
Loading…
Reference in New Issue
Block a user