mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-28 07:55:27 +00:00
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
|
LDA MOSFILE+1,X
|
||||||
CMP #'/'
|
CMP #'/'
|
||||||
BEQ :DONE
|
BEQ :DONE
|
||||||
|
JSR TOUPPER
|
||||||
STA SEGBUF+1,Y
|
STA SEGBUF+1,Y
|
||||||
INX
|
INX
|
||||||
INY
|
INY
|
||||||
@ -140,6 +141,14 @@ SEGMENT LDY #$00
|
|||||||
SEC ; Last segment
|
SEC ; Last segment
|
||||||
RTS
|
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 '*', '#', '?'
|
* See if SEGBUF contains any of '*', '#', '?'
|
||||||
* Set carry if wild, clear otherwise
|
* Set carry if wild, clear otherwise
|
||||||
HASWILD LDX #$00
|
HASWILD LDX #$00
|
||||||
|
Loading…
Reference in New Issue
Block a user