6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-15 10:30:58 +00:00
Code Issues Projects Releases Wiki Activity

Fixed a problem with a disabled cursor: Switching off the cursor using the

Browse Source 
kernal routine does not work, when the cursor is not at the same position
where it was switched on, because when switching it on, the kernal remembers
the character attribute and restores this when switching it off. So characters
may get the wrong attribute. The solution is to always switch the cursor on,
before switching it off.


git-svn-id: svn://svn.cc65.org/cc65/trunk@4592 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2010-02-18 20:31:50 +00:00
parent 4bf888aa62
commit 2bd1f2f69f
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
libsrc/c128/cgetc.s
View File

@ -17,20 +17,22 @@
_cgetc: lda KEY_COUNT ; Get number of characters
bne L2 ; Jump if there are already chars waiting
; Switch on the cursor if needed
; Switch on the cursor if needed. We MUST always switch the cursor on,
; before switching it off, because switching it off will restore the
; character attribute remembered when it was switched on. So just switching
; it off will restore the wrong character attribute.
lda cursor
beq L1
jsr CURS_SET ; Set cursor to current position
jsr CURS_ON
jmp L2
L1: lda #$01
lda cursor
bne L1
lda #$01
jsr CURS_OFF
L2: lda KEY_COUNT ; Check characters again
beq L2
L1: lda KEY_COUNT ; Check characters again
beq L1
jsr CURS_OFF ; Switch cursor off, if characters available
jsr KBDREAD ; Read char and return in A
L2: jsr KBDREAD ; Read char and return in A
ldx #0
rts