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

SHR: VDU5 check gfx cursor before attempting to plot text

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-08 21:10:28 -05:00
parent ec63b5ec37
commit 18ebc891b6
2 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

34
mainmem.shr.s
View File

@ -216,16 +216,6 @@ SHRCHAR640 PHY ; Preserve Y
* VDU5 plot char at graphics cursor position
SHRVDU5CH320 >>> ENTMAIN
PHA ; Save char for later
LDX SHRYPIXEL ; Screen row (Y-coord)
LDA SHRROWSL,X ; Look up addr (LS byte)
STA A3L ; Stash in A3L
LDA SHRROWSH,X ; Look up addr (MS byte)
STA A3H ; Stash in A3H
LDA #$E1 ; Bank $E1
STA A4L
PLA ; Get char back
PHP ; Disable interrupts
SEI
CLC ; 65816 native mode
@ -244,6 +234,26 @@ SHRVDU5CH320 >>> ENTMAIN
ADC #SHRFONTXPLD
STA A1L
LDA SHRYPIXEL ; See if we are too close to bttm
CMP #16
BCC :NEWPAGE1 ; Less than 16 rows left
BRA :S0
:NEWPAGE1 LDA #199
STA SHRYPIXEL
STZ SHRXPIXEL
:S0 SEP #$30 ; 8 bit M & X
MX %11 ; Tell Merlin
LDX SHRYPIXEL ; Screen row (Y-coord)
LDA SHRROWSL,X ; Look up addr (LS byte)
STA A3L ; Stash in A3L
LDA SHRROWSH,X ; Look up addr (MS byte)
STA A3H ; Stash in A3H
LDA #$E1 ; Bank $E1
STA A4L
REP #$30 ; 16 bit M & X
MX %00 ; Tell Merlin
LDX SHRXPIXEL ; Screen col (X-coord)
STX A2L
LSR A2L ; Divide by 4
@ -291,12 +301,12 @@ SHRVDU5CH320 >>> ENTMAIN
:NEWLINE STZ SHRXPIXEL
LDA SHRYPIXEL
CMP #16
BCC :NEWPAGE ; Less than 16 rows left
BCC :NEWPAGE2 ; Less than 16 rows left
SEC
SBC #$08
STA SHRYPIXEL
BRA :DONE
:NEWPAGE LDA #199
:NEWPAGE2 LDA #199
STA SHRYPIXEL
:DONE SEC ; 65816 emulation mode
XCE