From 01a7702ee49f782145008fff9a1bbe47708194bb Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Mon, 9 Jan 2023 21:57:14 -0500
Subject: [PATCH] Completely disable scroll in VDU5 mode

---
 applecorn.po | Bin 819200 -> 819200 bytes
 auxmem.vdu.s |  12 ++++++------
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/applecorn.po b/applecorn.po
index 37c41f98ad3db34dc6a31d0cd740ac2cfd7b67dd..81107f6ffad51c72a27345cf174b9cf913b8fcf6 100644
GIT binary patch
delta 202
zcmZo@FluNp+K|J-WiHCl@R&hCQ_sA)jHSJdg%OCEfS4JGL3~yqW&>h&Am#vK&h2F^
zT%nT~dAFaL#<iYNJN!!Tl^IvpU1_{D{nC-^vN!B+<lMM)z2g%9)uLM-Hy7ModqeS(
z@XhX<53ju2zHA29B}Sp87c><<FeWI}URyhZsdojF!u9FRv$%p7uP?tgi;I!*`t<9w
vxh`+tIESl}g>mL~?S)+CAUb&|SFtf;>-6h4xI7u}v@71^+OBw$`~ETj#CcW-

delta 203
zcmZo@FluNp+K|J-r7OzN@R&hCQ%|?KjHSJdg%OCEfS4JGL3~yqW&>h&Am#vK&h2F^
zT%nT~*|wjV#<iYNJK##&m5EoEUunEF{nC-^vN!B+<lMM)z2g$c)uLM-Hy7ModqeS(
z@XhX<x2`<jzHA29B}Q(AvTJK+F!iorQn)a^YZg}!<AvpSXK^tyUYLGwHrHkLr57|6
wJ}@S1-#CY>l7(^7cI|~+<{&zGDOa&EW8L)YH@G|*ueK}R<l3%yll%TM0Np-SnE(I)

diff --git a/auxmem.vdu.s b/auxmem.vdu.s
index afbb674..c864bc7 100644
--- 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