Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-04-10 03:37:42 +00:00
Code Issues Projects Releases Wiki Activity

SHRVDU16 fixes. Fix ticket #261.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-11 00:25:36 -05:00
parent 8f85c00551
commit 9f315da874
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

20
mainmem.shr.s
View File

@ -1069,7 +1069,22 @@ SHRVDU16 >>> ENTMAIN
INC SHRWINTOP
INC SHRWINRGT
LDX SHRWINBTM
LDA SHRPIXELS
AND #$00FF
CMP #$02
BNE :M0 ; MODE0
LDA SHRWINLFT
LSR A ; Divide left by 2
INC A ; Treat left column specially
STA :LEFTLIM
LDA SHRWINRGT
LSR A ; Divide right by 2
STA :RIGHTLIM
BRA :S0
:M0 LDA SHRWINLFT
LSR A ; Divide left by 4
LSR A
INC A ; Treat left column specially
@ -1078,8 +1093,9 @@ SHRVDU16 >>> ENTMAIN
LSR A ; Divide right by 4
LSR A
STA :RIGHTLIM
BRA :S0
SEP #$30 ; 8 bit M & X
:S0 SEP #$30 ; 8 bit M & X
MX %11 ; Tell Merlin
:L1 LDY :LEFTLIM
LDA SHRROWSL,X ; Look up addr (LS byte)
@ -1106,7 +1122,6 @@ SHRVDU16 >>> ENTMAIN
BNE :MODE0
LDA SHRWINRGT
LSR
AND #$01
TAX
LDA :RIGHT320,X ; Bits to set
@ -1115,7 +1130,6 @@ SHRVDU16 >>> ENTMAIN
LDY :LEFTLIM
DEY ; Handle leftmost byte
LDA SHRWINLFT
LSR
AND #$01
TAX
LDA :LEFT320,X ; Bits to set