Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

SHR: Fix off-by-one in CLG

This commit is contained in:
Bobbi Webber-Manners 2023-01-08 00:54:16 -05:00
parent f8996c3c3b
commit c88f69dad7
2 changed files with 3 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.

3
mainmem.shr.s
View File

@ -336,6 +336,7 @@ SHRPOINT BIT SHRCURROUT ; First point outside?
:OUT SEP #$30 ; 8 bit M & X
MX %11 ; Tell Merlin
RTS
SHRPOINT2 SEP #$30 ; 8 bit M & X
MX %11 ; Tell Merlin
@ -824,6 +825,7 @@ SHRVDU16 >>> ENTMAIN
REP #$30 ; 16 bit M & X
MX %00 ; Tell Merlin
INC SHRWINTOP
INC SHRWINRGT
LDX SHRWINBTM
LDA SHRWINLFT
LSR A ; Divide left by 4
@ -895,6 +897,7 @@ SHRVDU16 >>> ENTMAIN
:DONE REP #$30 ; 16 bit M & X
MX %00 ; Tell Merlin
DEC SHRWINTOP
DEC SHRWINRGT
SEC ; Back to 6502 emu mode
XCE