From c04da969adb967736ad2d7f5ac43b9d32220d7d2 Mon Sep 17 00:00:00 2001
From: StewBC <swessels@email.com>
Date: Fri, 14 Feb 2020 12:49:28 -0800
Subject: [PATCH] Allow lowercase (//e, etc)

Allow entry of lower case letters on later Apple II family machines
---
 src/apple2/ui.inc | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/apple2/ui.inc b/src/apple2/ui.inc
index fb2c8de..7210284 100644
--- a/src/apple2/ui.inc
+++ b/src/apple2/ui.inc
@@ -1108,12 +1108,17 @@ loop:
     bcc loop                                    ; ignore below '0'
     cmp #('9'+1)
     bcc accept                                  ; 0-9 okay
-    cmp #('A')                                  ; < 'A' ignore
+    cmp #'A'                                    ; < 'A' ignore
     bcc loop
-    cmp #('Z'+1)                                ; > 'Z' ignore
-    bcs loop 
+    cmp #('Z'+1)
+    bcc accept 
+    cmp #'a'
+    bcc loop 
+    cmp #('z'+1)
+    bcs loop                                    ; ignore past 'Z'
 
 accept:
+    ; lda theChar
     ldy entryLen                                ; how many characters already entered
     cpy textLen                                 ; vs how many can be entered
     bcs loop                                    ; already full, don't accept