mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-28 03:29:32 +00:00
SHR: Fix off-by-one in CLG
This commit is contained in:
parent
f8996c3c3b
commit
c88f69dad7
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -336,6 +336,7 @@ SHRPOINT BIT SHRCURROUT ; First point outside?
|
||||||
:OUT SEP #$30 ; 8 bit M & X
|
:OUT SEP #$30 ; 8 bit M & X
|
||||||
MX %11 ; Tell Merlin
|
MX %11 ; Tell Merlin
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
SHRPOINT2 SEP #$30 ; 8 bit M & X
|
SHRPOINT2 SEP #$30 ; 8 bit M & X
|
||||||
MX %11 ; Tell Merlin
|
MX %11 ; Tell Merlin
|
||||||
|
|
||||||
|
@ -824,6 +825,7 @@ SHRVDU16 >>> ENTMAIN
|
||||||
REP #$30 ; 16 bit M & X
|
REP #$30 ; 16 bit M & X
|
||||||
MX %00 ; Tell Merlin
|
MX %00 ; Tell Merlin
|
||||||
INC SHRWINTOP
|
INC SHRWINTOP
|
||||||
|
INC SHRWINRGT
|
||||||
LDX SHRWINBTM
|
LDX SHRWINBTM
|
||||||
LDA SHRWINLFT
|
LDA SHRWINLFT
|
||||||
LSR A ; Divide left by 4
|
LSR A ; Divide left by 4
|
||||||
|
@ -895,6 +897,7 @@ SHRVDU16 >>> ENTMAIN
|
||||||
:DONE REP #$30 ; 16 bit M & X
|
:DONE REP #$30 ; 16 bit M & X
|
||||||
MX %00 ; Tell Merlin
|
MX %00 ; Tell Merlin
|
||||||
DEC SHRWINTOP
|
DEC SHRWINTOP
|
||||||
|
DEC SHRWINRGT
|
||||||
|
|
||||||
SEC ; Back to 6502 emu mode
|
SEC ; Back to 6502 emu mode
|
||||||
XCE
|
XCE
|
||||||
|
|
Loading…
Reference in New Issue
Block a user