Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-24 08:32:33 +00:00
Code Issues Projects Releases Wiki Activity

Minor refactoring of SHR point plot code

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-12-30 22:41:15 -05:00
parent 942234ae9a
commit 3acbd09ed4
2 changed files with 3 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

17
mainmem.shr.s
View File

@ -216,7 +216,6 @@ SHRCHAR640 PHY ; Preserve Y
* $98+x - fill circle * $98+x - fill circle
* *
* TODO: Only does point plotting ATM * TODO: Only does point plotting ATM
* TODO: Only supports 640 mode right now
SHRPLOT >>> ENTMAIN SHRPLOT >>> ENTMAIN
JSR SHRCOORD ; Convert coordinates JSR SHRCOORD ; Convert coordinates
LDX A2L ; Screen row (Y-coord) LDX A2L ; Screen row (Y-coord)
@ -244,28 +243,18 @@ SHRPLOT >>> ENTMAIN
TAX ; Index into :BITS320 TAX ; Index into :BITS320
LDA :BITS320,X ; Get bit pattern for pixel to set LDA :BITS320,X ; Get bit pattern for pixel to set
EOR #$FF ; Invert bits BRA :DOPLOT
AND [A3L],Y ; Load existing byte, clearing pixel
STA A1L
LDA :BITS320,X ; Get bit pattern for pixel to set
AND SHRGFXMASK ; Mask to set colour
ORA A1L ; OR into existing byte
* TODO: Apply SHRGFXACTION GCOL action
STA [A3L],Y ; Write to screen
>>> XF2AUX,GFXPLOTRET
RTS
:MODE0 TXA :MODE0 TXA
AND #$03 ; Keep LSB two bits only AND #$03 ; Keep LSB two bits only
TAX ; Index into :BITS640 TAX ; Index into :BITS640
LDA :BITS640,X ; Get bit pattern for pixel to set LDA :BITS640,X ; Get bit pattern for pixel to set
:DOPLOT PHA
EOR #$FF ; Invert bits EOR #$FF ; Invert bits
AND [A3L],Y ; Load existing byte, clearing pixel AND [A3L],Y ; Load existing byte, clearing pixel
STA A1L STA A1L
LDA :BITS640,X ; Get bit pattern for pixel to set PLA ; Recover bit pattern
AND SHRGFXMASK ; Mask to set colour AND SHRGFXMASK ; Mask to set colour
ORA A1L ; OR into existing byte ORA A1L ; OR into existing byte