mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-02 07:29:07 +00:00
Kernel 0.93+
This commit is contained in:
parent
89cde54306
commit
3e6c5d24dc
Binary file not shown.
Binary file not shown.
@ -20,16 +20,19 @@ X.MAX.RECURSE .EQ 8
|
|||||||
FilterMatch >LDA.G index
|
FilterMatch >LDA.G index
|
||||||
dec
|
dec
|
||||||
bne .8 in a subdir, match everything
|
bne .8 in a subdir, match everything
|
||||||
|
|
||||||
>LDA.G hFilter
|
>LDA.G hFilter
|
||||||
beq .8 No filter....
|
beq .8 No filter....
|
||||||
|
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
>STYA ZPPtr2
|
>STYA ZPPtr2
|
||||||
ldy #S.STAT.FSID
|
|
||||||
lda (ZPFileStat),y
|
|
||||||
bne .10 not prodos...
|
|
||||||
|
|
||||||
>LDYA ZPPtr2 CI compare
|
* ldy #S.STAT.FSID
|
||||||
>SYSCALL strupr
|
* lda (ZPFileStat),y
|
||||||
|
* bne .10 not prodos...
|
||||||
|
|
||||||
|
* >LDYA ZPPtr2 CI compare
|
||||||
|
* >SYSCALL strupr
|
||||||
|
|
||||||
.10 lda (ZPPtr2) Get first pattern byte
|
.10 lda (ZPPtr2) Get first pattern byte
|
||||||
beq .8 Match always if empty
|
beq .8 Match always if empty
|
||||||
|
@ -634,30 +634,6 @@ L3B1E sec anticipate different names.
|
|||||||
|
|
||||||
L3B26 ldx xvcbptr offset to start of vcb (rev note #23)
|
L3B26 ldx xvcbptr offset to start of vcb (rev note #23)
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
|
||||||
.DO LOWERCASE=1
|
|
||||||
XDOS.GetVolNameCharGBufY
|
|
||||||
bit gbuf+$20 VERSION
|
|
||||||
bpl .8
|
|
||||||
|
|
||||||
cpy #8
|
|
||||||
bcs .2
|
|
||||||
|
|
||||||
lda whichbit,y
|
|
||||||
bit gbuf+$20
|
|
||||||
beq .8
|
|
||||||
bra .7
|
|
||||||
|
|
||||||
.2 lda whichbit-8,y
|
|
||||||
bit gbuf+$21
|
|
||||||
beq .8
|
|
||||||
|
|
||||||
.7 lda gbuf+4,y
|
|
||||||
jmp XDOS.ToLower
|
|
||||||
|
|
||||||
.8 lda gbuf+4,y
|
|
||||||
rts
|
|
||||||
.FIN
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
tstdupvol lda #$00 check for other logged in volumes with the same name.
|
tstdupvol lda #$00 check for other logged in volumes with the same name.
|
||||||
L3B2C tax
|
L3B2C tax
|
||||||
|
@ -584,6 +584,30 @@ XDOS.IsValidFirstChar.SEC
|
|||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DO LOWERCASE=1
|
.DO LOWERCASE=1
|
||||||
|
XDOS.GetVolNameCharGBufY
|
||||||
|
bit gbuf+$20 VERSION
|
||||||
|
bpl .8
|
||||||
|
|
||||||
|
cpy #8
|
||||||
|
bcs .2
|
||||||
|
|
||||||
|
lda whichbit,y
|
||||||
|
bit gbuf+$20
|
||||||
|
beq .8
|
||||||
|
bra .7
|
||||||
|
|
||||||
|
.2 lda whichbit-8,y
|
||||||
|
bit gbuf+$21
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
.7 lda gbuf+4,y
|
||||||
|
jmp XDOS.ToLower
|
||||||
|
|
||||||
|
.8 lda gbuf+4,y
|
||||||
|
rts
|
||||||
|
.FIN
|
||||||
|
*--------------------------------------
|
||||||
|
.DO LOWERCASE=1
|
||||||
*XDOS.ToUpper cmp #'a'
|
*XDOS.ToUpper cmp #'a'
|
||||||
* bcc .8
|
* bcc .8
|
||||||
* cmp #'z'+1
|
* cmp #'z'+1
|
||||||
|
Loading…
Reference in New Issue
Block a user