Apple-2-SW/Penetrator-apple2
1
0
Fork 0
mirror of https://github.com/StewBC/penetrator-apple2.git synced 2024-06-16 12:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Allow lowercase (//e, etc)

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/apple2/ui.inc
View File

@ -1108,12 +1108,17 @@ loop:
bcc loop ; ignore below '0' bcc loop ; ignore below '0'
cmp #('9'+1) cmp #('9'+1)
bcc accept ; 0-9 okay bcc accept ; 0-9 okay
cmp #('A') ; < 'A' ignore cmp #'A' ; < 'A' ignore
bcc loop bcc loop
cmp #('Z'+1) ; > 'Z' ignore cmp #('Z'+1)
bcs loop bcc accept
cmp #'a'
bcc loop
cmp #('z'+1)
bcs loop ; ignore past 'Z'
accept: accept:
; lda theChar
ldy entryLen ; how many characters already entered ldy entryLen ; how many characters already entered
cpy textLen ; vs how many can be entered cpy textLen ; vs how many can be entered
bcs loop ; already full, don't accept bcs loop ; already full, don't accept