diff options
author | B. Watson <yalhcru@gmail.com> | 2016-01-03 04:16:11 -0500 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2016-01-03 04:16:11 -0500 |
commit | 52b3efa3cae299a2df153f3a33a6de3dc9b6d1ad (patch) | |
tree | 60d95bc4a3c7e33df85672ca011d5621861b441b /timed_getch.s | |
parent | 7d412a05b2eb563f268d81387be0dacd1b77cac2 (diff) | |
download | taipan-52b3efa3cae299a2df153f3a33a6de3dc9b6d1ad.tar.gz |
cursor visibility fixes
Diffstat (limited to 'timed_getch.s')
-rw-r--r-- | timed_getch.s | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/timed_getch.s b/timed_getch.s index a5ac4d5..3259d7e 100644 --- a/timed_getch.s +++ b/timed_getch.s @@ -1,6 +1,6 @@ .export _timed_getch, _set_jiffy_timer, _agetc, _numgetc, _yngetc, _lcgetc - .import _cgetc, _cblank + .import _cgetc, _cblank, _cursor .include "atari.inc" @@ -42,10 +42,11 @@ done: ; (such as clear, delete, escape) are replaced with a space. ; extern char lcgetc(); _agetc: -; lda #0 ; show cursor -; sta CRSINH -; lda #$20 -; jsr _cblank + lda #1 ; show cursor + jsr _cursor + sta FR0+2 ; save old cursor status + lda #1 + jsr _cblank jsr _cgetc ; get ATASCII code of keypress @@ -70,8 +71,12 @@ notcontrol: bcc ok ; (remember, $7e, backspace, was handled above) lda #$20 ok: -; ldx #$01 ; hide cursor -; stx CRSINH + pha + lda #1 + lda FR0+2 + jsr _cursor + pla + ldx #0 rts _lcgetc: |