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

Fixed bug in VDU5 bit shifting

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-12 19:16:40 -05:00
parent ffb61077bf
commit 24a251ffa2
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

4
mainmem.shr.s
View File

@ -292,6 +292,8 @@ SHRVDU5CH >>> ENTMAIN
:L0
PHX
LDY #$00
STZ :PIXBUF+2 ; Clear bytes 3,4 of shift buf
STZ :PIXBUF+4 ; Clear bytes 5,6 of shift buf
:LOOP LDAL $E10000,X ; Read a word of exploded font
STA :PIXBUF,Y ; Store word to shift buffer
INX
@ -305,6 +307,7 @@ SHRVDU5CH >>> ENTMAIN
LDY A2L ; Index into row of pixels
STZ :COLCTR
LDX #$00
INC :BYTES
:L1 LDA :PIXBUF,X ; Read word of exploded font
PHX
SEP #$30 ; 8 bit M & X
@ -319,6 +322,7 @@ SHRVDU5CH >>> ENTMAIN
LDA :COLCTR
CMP :BYTES ; Bytes per row
BNE :L1
DEC :BYTES
PLA ; Restore saved X -> A
CLC ; Add bytes per row