Completely disable scroll in VDU5 mode

2023-01-09 21:57:14 -05:00 · 2023-01-09 21:57:14 -05:00 · 01a7702ee4
parent a9eb0ec1ee
commit 01a7702ee4
2 changed files with 6 additions and 6 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.vdu.s
+++ b/auxmem.vdu.s
@ -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