From 5ad95f4609051eb87532cc2b1640c45810acb40f Mon Sep 17 00:00:00 2001
From: Lucas Scharenbroich <lscharen@prowestgis.com>
Date: Sun, 15 Aug 2021 09:25:42 -0500
Subject: [PATCH] Use 8-bit accumulator to read softswitches

---
 src/App.Main.s | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/App.Main.s b/src/App.Main.s
index f84a5c3..f311557 100644
--- a/src/App.Main.s
+++ b/src/App.Main.s
@@ -1115,8 +1115,9 @@ ClearKeyboardStrobe  sep        #$20
 ReadControl
                      pea        $0000                   ; low byte = key code, high byte = %------AB 
 
+                     sep        #$20
                      ldal       OPTION_KEY_REG          ; 'B' button
-                     and        #$0080
+                     and        #$80
                      beq        :BNotDown
 
                      lda        #1
@@ -1125,7 +1126,7 @@ ReadControl
 
 :BNotDown
                      ldal       COMMAND_KEY_REG
-                     and        #$0080
+                     and        #$80
                      beq        :ANotDown
 
                      lda        #2
@@ -1134,13 +1135,14 @@ ReadControl
 
 :ANotDown
                      ldal       KBD_STROBE_REG          ; read the keyboard
-                     bit        #$0080
+                     bit        #$80
                      beq        :KbdNotDwn              ; check the key-down status
-                     and        #$007f
+                     and        #$7f
                      ora        1,s
                      sta        1,s
 
 :KbdNotDwn
+                     rep        #$20
                      pla
                      rts
 
@@ -1293,3 +1295,4 @@ qtRec                adrl       $0000
 
 
 
+