Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-18 09:30:42 +00:00
Code Issues Projects Releases Wiki Activity

Scrolling on GS (almost) working again.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-09-16 22:41:21 -04:00
parent a88ab6ba68
commit 42333bc199
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
auxmem.vdu.s
View File

@ -785,27 +785,32 @@ SCR1LNDONE DEC TXTWINRGT
BIT VDUSCREEN
BMI SCR1SOFT ; Scroll graphics screen
RTS
SCR1LINEGS BIT $C01F
SCR1LINEGS LDX VDUTEXTX
BIT $C01F
BPL :FORTY ; 40-col mode
:EIGHTY LDX VDUTEXTX ; Addr offset for column
:EIGHTY
:L1 TXA ; Column/2 into Y
LSR
TAY
BCS :E0 ; Odd cols
LDA #$E1
STA VDUBANK
STA VDUBANK2
LDA [VDUADDR],Y ; Even cols in bank $E1
STA [VDUADDR2],Y
BRA :SKIPE0
:E0 LDA #$E0
STA VDUBANK
STA VDUBANK2
LDA [VDUADDR],Y ; Odd cols in bank $E0
STA [VDUADDR2],Y
:SKIPE0 INX
CPX TXTWINRGT
BMI :L1
BRA SCR1LNDONE
:FORTY LDA #$E0
:FORTY TXA
TAY
LDA #$E0
STA VDUBANK
:L2 LDA [VDUADDR],Y
STA [VDUADDR2],Y