Allow lowercase (//e, etc)

Allow entry of lower case letters on later Apple II family machines
This commit is contained in:
StewBC 2020-02-14 12:49:28 -08:00
parent 507670cae3
commit c04da969ad
1 changed files with 8 additions and 3 deletions

View File

@ -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