Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-28 03:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Completely disable scroll in VDU5 mode

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-09 21:57:14 -05:00
parent a9eb0ec1ee
commit 01a7702ee4
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

12
auxmem.vdu.s
View File

@ -514,7 +514,11 @@ VDU09 LDA VDUTEXTX ; COL
:DONE RTS :DONE RTS
:S2 INC VDUTEXTX ; COL :S2 INC VDUTEXTX ; COL
BRA :DONE BRA :DONE
SCROLL JSR SCROLLER SCROLL LDA VDUSTATUS
AND #$20 ; Bit 5 VDU5 mode
BEQ :VDU4
RTS ; No scroll in VDU5
:VDU4 JSR SCROLLER
LDA TXTWINLFT LDA TXTWINLFT
STA VDUTEXTX STA VDUTEXTX
JSR CLREOL JSR CLREOL
@ -774,11 +778,7 @@ CLREOLGS BIT RD80VID
* Scroll areas of the screen * Scroll areas of the screen
**************************** ****************************
* Scroll text window up one line * Scroll text window up one line
SCROLLER LDA VDUSTATUS SCROLLER LDA TXTWINTOP
AND #$20 ; Bit 5 VDU5 mode
BEQ :VDU4
RTS ; No scroll in VDU5
:VDU4 LDA TXTWINTOP
:L1 PHA :L1 PHA
JSR SCR1LINE JSR SCR1LINE
BIT VDUSCREEN BIT VDUSCREEN