Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-04 10:29:32 +00:00
Code Issues Projects Releases Wiki Activity

SHR XOR cursor bugfix (behaviour with copy key)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-09 18:02:43 -05:00
parent 2e0e9def00
commit f1173947bf
3 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

16
auxmem.shr.s
View File

@ -171,27 +171,25 @@ SHRCURSOR PHA ; Preserve character
STA VDUADDR+1
LDY #$00
PLA ; Recover character
CMP #'_'
CMP CURSOR
BEQ :CURSORON
CMP CURSORED
BEQ :CURSORON
CMP CURSORCP
BEQ :CURSORON
BRA :CURSOROFF
:CURSORON LDA :CURSTATE
ROR A
BCS :DONE ; Already on
:CURSORON LDA [VDUADDR],Y
BNE :DONE ; Already on
BRA :L1
:CURSOROFF LDA :CURSTATE
ROR A
BCC :DONE ; Already off
:CURSOROFF LDA [VDUADDR],Y
BEQ :DONE ; Already off
:L1 LDAL [VDUADDR],Y ; XOR last row
EOR #$FF
STAL [VDUADDR],Y
INY
CPY #$04
BNE :L1
INC :CURSTATE
:DONE RTS
:CURSTATE DB $00 ; Cursor state
* Write character to SHR screen in 320 pixel mode

2
auxmem.vdu.s
View File

@ -409,8 +409,8 @@ PUTCOPYCURS TAX ; Preserve character
TXA
JMP OUTCHARCP
:SHR TXA ; Recover character
JSR SHRCURSOR
JMP OUTCHARCP2
JMP SHRCURSOR
RTS