Made wildcards case-insensitive.

This commit is contained in:
Bobbi Webber-Manners 2021-10-27 16:02:36 -04:00
parent e5568a1eee
commit 5d7f8cd0c6
2 changed files with 9 additions and 0 deletions

Binary file not shown.

View File

@ -124,6 +124,7 @@ SEGMENT LDY #$00
LDA MOSFILE+1,X
CMP #'/'
BEQ :DONE
JSR TOUPPER
STA SEGBUF+1,Y
INX
INY
@ -140,6 +141,14 @@ SEGMENT LDY #$00
SEC ; Last segment
RTS
* Convert char in A to uppercase
TOUPPER CMP #'z'+1
BCS :DONE ; > 'z'
CMP #'a'
BCC :DONE ; < 'a'
AND #$DF ; Clear $20 bits
:DONE RTS
* See if SEGBUF contains any of '*', '#', '?'
* Set carry if wild, clear otherwise
HASWILD LDX #$00