Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-19 05:30:35 +00:00
Code Issues Projects Releases Wiki Activity

SHR: Implement erasure for BS in VDU5 mode. Fix #250.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-16 17:10:17 -05:00
parent 44cc2fb31d
commit 5de1f7a839
2 changed files with 28 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.

38
mainmem.shr.s
View File

@ -588,7 +588,7 @@ SHRVDU127 >>> ENTMAIN
MX %00 ; Tell Merlin MX %00 ; Tell Merlin
LDA SHRXPIXEL ; Screen col (X-coord) LDA SHRXPIXEL ; Screen col (X-coord)
LSR A ; Divide by 2 LSR A ; Divide by 2
BRA :S1 BRA :MODE1
:MODE0 CLC ; 65816 native mode :MODE0 CLC ; 65816 native mode
XCE XCE
REP #$30 ; 16 bit M & X REP #$30 ; 16 bit M & X
@ -596,11 +596,26 @@ SHRVDU127 >>> ENTMAIN
LDA SHRXPIXEL ; Screen col (X-coord) LDA SHRXPIXEL ; Screen col (X-coord)
LSR A ; Divide by 2 LSR A ; Divide by 2
LSR A ; Divide by 4 LSR A ; Divide by 4
:S1 TAY TAY
LDX #$00 LDX #$00
SEP #$30 ; 8 bit M & X SEP #$30 ; 8 bit M & X
MX %11 ; Tell Merlin MX %11 ; Tell Merlin
:L1 LDA SHRGFXBGMASK :L1 LDA SHRGFXBGMASK
STAL [A3L],Y
INY
STAL [A3L],Y
DEY
JSR NEXTROW ; Advance A3L/H to next pixel row
INX
CPX #$08 ; Erased all 8 rows?
BNE :L1
BRA :DONE
:MODE1 MX %00 ; Tell Merlin it's 16 bit M&X
TAY
LDX #$00
SEP #$30 ; 8 bit M & X
MX %11 ; Tell Merlin
:L2 LDA SHRGFXBGMASK
STAL [A3L],Y STAL [A3L],Y
INY INY
STAL [A3L],Y STAL [A3L],Y
@ -611,20 +626,23 @@ SHRVDU127 >>> ENTMAIN
DEY DEY
DEY DEY
DEY DEY
LDA A3L ; Advance A3L/H to next row JSR NEXTROW ; Advance A3L/H to next pixel row
INX
CPX #$08 ; Erased all 8 rows?
BNE :L2
:DONE SEC ; 65816 emulation mode
XCE
>>> XF2AUX,VDUXXRET
* Advance A3L/H to next pixel row on screen
NEXTROW LDA A3L ; Advance A3L/H to next row
CLC CLC
ADC #160 ADC #160
STA A3L STA A3L
LDA A3H LDA A3H
ADC #$00 ADC #$00
STA A3H STA A3H
INX RTS
CPX #$08 ; Erased all 8 rows?
BNE :L1
SEC ; 65816 emulation mode
XCE
>>> XF2AUX,VDUXXRET
* Plot actions: PLOT k,x,y * Plot actions: PLOT k,x,y
* k is in SHRVDUQ+4 * k is in SHRVDUQ+4