From 754271b618e80fac2f6c4bb659936a58a2494242 Mon Sep 17 00:00:00 2001
From: Bobbi Webber-Manners <bobbi.manners@gmail.com>
Date: Wed, 21 Dec 2022 20:35:59 -0500
Subject: [PATCH] Fix HGR scrolling corruption with ISR #199

---
 mainmem.hgr.s | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/mainmem.hgr.s b/mainmem.hgr.s
index 02cd58b..faf0ea0 100644
--- a/mainmem.hgr.s
+++ b/mainmem.hgr.s
@@ -146,6 +146,8 @@ DRAWCHAR    >>>   ENTMAIN
 
 * Copy text line A+1 to line A 
 HGRSCR1L    >>>   ENTMAIN
+            PHP                     ; Disable interrupts ..
+            SEI                     ; .. to prevent corruption while scrolling
             INC   MTXTWINRGT
             ASL                     ; Dest addr->A4L,A4H
             TAX
@@ -177,6 +179,7 @@ DOHGRSCR1L  LDX   #$00
             INX
             CPX   #8                ; 8 pixel rows in character
             BNE   :L1
+            PLP                     ; Re-enable interrupts
             >>>   XF2AUX,HSCR1RET
 
 * Copy text line A to line A+1