Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-04-10 03:37:42 +00:00
Code Issues Projects Releases Wiki Activity

Improved saving of data under cursor

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-10 14:13:24 -05:00
parent 6645149c3f
commit 7f311066f4
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

14
auxmem.shr.s
View File

@ -189,9 +189,11 @@ SHRCURSOR PHP ; Preserve flags
LDA [VDUADDR],Y ; See if cursor shown
CMP :CURSBYTE
BEQ :DONE
STA :SAVEBYTE ; Preserve byte under cursor
LDA :CURSBYTE
:L1 STAL [VDUADDR],Y
LDX :CURSBYTE
:L1 LDAL [VDUADDR],Y
STA :SAVEBYTES,Y ; Preserve bytes under cursor
TXA ; Byte of cursor data
STAL [VDUADDR],Y
INY
CPY :BYTES
BNE :L1
@ -200,8 +202,8 @@ SHRCURSOR PHP ; Preserve flags
LDA [VDUADDR],Y ; See if cursor shown
CMP :CURSBYTE
BNE :DONE
LDA :SAVEBYTE ; Restore byte under cursor
:L2 STAL [VDUADDR],Y
:L2 LDA :SAVEBYTES,Y ; Restore bytes under cursor
STAL [VDUADDR],Y
INY
CPY :BYTES
BNE :L2
@ -210,7 +212,7 @@ SHRCURSOR PHP ; Preserve flags
RTS
:BYTES DB $00 ; 2 for 640-mode, 4 for 320-mode
:CURSBYTE DB $00 ; Cursor byte for mode
:SAVEBYTE DB $00 ; Byte under cursor
:SAVEBYTES DS 4 ; Bytes under cursor
* Write character to SHR screen in 320 pixel mode