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

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