Made wildcards case-insensitive.
This commit is contained in:
parent
e5568a1eee
commit
5d7f8cd0c6
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue