mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-29 17:50:18 +00:00
571 lines
9.1 KiB
Plaintext
571 lines
9.1 KiB
Plaintext
NEW
|
||
PREFIX
|
||
AUTO 4,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
X.MAX.RECURSE .EQ 8
|
||
*--------------------------------------
|
||
* Uses: (pData)
|
||
* hDIRs .BS X.MAX.RECURSE+1
|
||
* hDIRENTs .BS X.MAX.RECURSE+1
|
||
* Index .BS 1
|
||
* hSrcBasePath .BS 1
|
||
* hDstBasePath .BS 1 (optional)
|
||
* STAT .BS S.STAT
|
||
*--------------------------------------
|
||
InitSrcDirYA >SYSCALL RealPath
|
||
bcc .10
|
||
rts
|
||
|
||
.10 >STYA ZPPtr1
|
||
txa
|
||
>STA.G hFullPath
|
||
|
||
ldy #1
|
||
lda (ZPPtr1),y
|
||
* beq .5 we have '/'
|
||
bne .55
|
||
jmp .5
|
||
|
||
.55 >PUSHEA.G STAT
|
||
>LDYA ZPPtr1
|
||
>SYSCALL Stat
|
||
bcs .1 File/DIR does not exists, go extract pattern
|
||
|
||
>LDA.G STAT+S.STAT.P.TYPE
|
||
cmp #$0f
|
||
bne .4 TYPE not a DIR, extract....
|
||
|
||
ldy #0
|
||
|
||
.56 iny
|
||
lda (ZPPtr1),y
|
||
bne .56
|
||
|
||
dey
|
||
lda #'/'
|
||
cmp (ZPPtr1),y
|
||
beq .5
|
||
|
||
iny
|
||
sta (ZPPtr1),y
|
||
iny
|
||
lda #0
|
||
sta (ZPPtr1),y
|
||
|
||
bra .5 TYPE=DIR, do not extract pattern
|
||
|
||
.1 ldy #0 TYPE is not DIR, check if wc
|
||
|
||
.11 iny
|
||
lda (ZPPtr1),y Get Src Path Len
|
||
bne .11
|
||
|
||
dey
|
||
|
||
ldx #0 Init Wildcard count
|
||
|
||
.2 lda (ZPPtr1),y search backward for a /
|
||
cmp #'/'
|
||
beq .3
|
||
|
||
cmp #'?' Test if some wildcard chars....
|
||
beq .21
|
||
cmp #'*'
|
||
bne .22
|
||
|
||
.21 inx inc wildcard count
|
||
.22 dey
|
||
bne .2
|
||
|
||
.3 txa
|
||
beq .91 no wc, file not found....
|
||
|
||
.4 ldy #0
|
||
|
||
.41 iny Search end of string.....
|
||
lda (ZPPtr1),y
|
||
bne .41
|
||
|
||
lda #'/'
|
||
|
||
.42 dey
|
||
cmp (ZPPtr1),y Search backward /
|
||
bne .42
|
||
|
||
tya
|
||
sec +1 to skip '/'
|
||
adc ZPPtr1
|
||
sta ZPPtr2
|
||
tay
|
||
lda ZPPtr1+1
|
||
adc #0
|
||
sta ZPPtr2+1
|
||
|
||
>SYSCALL Newstr
|
||
bcs .9
|
||
txa
|
||
>STA.G hFilter
|
||
|
||
lda #0
|
||
sta (ZPPtr2)
|
||
|
||
.5 >LDYAI 256
|
||
>SYSCALL GetMem Get a 256 buffer to store BasePath
|
||
bcs .9
|
||
|
||
>STYA ZPPtr2
|
||
txa
|
||
>STA.G hSrcBasePath
|
||
|
||
ldy #$ff
|
||
|
||
.6 iny
|
||
lda (ZPPtr1),y
|
||
sta (ZPPtr2),y
|
||
bne .6
|
||
|
||
>LDYA ZPPtr2
|
||
>SYSCALL OpenDir
|
||
|
||
bcs .9
|
||
|
||
ldy #hDIRs
|
||
sta (pData),y set hDIRs[0] = Src Hdir
|
||
|
||
ldy #index
|
||
lda #1
|
||
sta (pData),y index=hDIRs[0]
|
||
|
||
jsr .9 Cleanup
|
||
|
||
clc
|
||
rts
|
||
|
||
.91 lda #MLI.E.FNOTFND
|
||
|
||
.9 pha
|
||
>LDA.G hFullPath
|
||
>SYSCALL FreeMem
|
||
pla
|
||
sec
|
||
InitSrcDirYA.RTS
|
||
rts
|
||
*--------------------------------------
|
||
.DO X.COPY.TO.DEST=1
|
||
|
||
InitDstDirYA >SYSCALL RealPath
|
||
bcs InitSrcDirYA.RTS
|
||
|
||
>STYA ZPPtr1
|
||
txa
|
||
>STA.G hFullPath
|
||
|
||
>PUSHEA.G STAT
|
||
>LDYA ZPPtr1
|
||
>SYSCALL Stat
|
||
bcs .1 File/DIR does not exists, go extract DstFileName
|
||
|
||
>LDA.G STAT+S.STAT.P.TYPE
|
||
cmp #$0f
|
||
beq .5 Dst is a directory...no destfilename
|
||
|
||
.1 ldy #0
|
||
|
||
.11 iny Search end of string.....
|
||
lda (ZPPtr1),y
|
||
bne .11
|
||
|
||
lda #'/'
|
||
|
||
.2 dey
|
||
cmp (ZPPtr1),y Search backward /
|
||
bne .2
|
||
|
||
tya
|
||
sec +1 to skip '/'
|
||
adc ZPPtr1
|
||
sta ZPPtr2
|
||
tay
|
||
lda ZPPtr1+1
|
||
adc #0
|
||
sta ZPPtr2+1
|
||
|
||
>SYSCALL NewStr
|
||
bcs .9
|
||
txa
|
||
>STA.G hDstFileName
|
||
|
||
lda #0
|
||
sta (ZPPtr2)
|
||
|
||
.5 >LDYAI 256
|
||
>SYSCALL GetMem Get a 256 buffer to store DstBasePath
|
||
bcs .9
|
||
|
||
>STYA ZPPtr2
|
||
txa
|
||
>STA.G hDstBasePath
|
||
|
||
ldy #$ff
|
||
|
||
.6 iny
|
||
lda (ZPPtr1),y
|
||
sta (ZPPtr2),y
|
||
bne .6
|
||
|
||
dey
|
||
|
||
lda #'/'
|
||
cmp (ZPPtr2),y
|
||
beq .7
|
||
|
||
iny
|
||
sta (ZPPtr2),y
|
||
iny
|
||
lda #0
|
||
sta (ZPPtr2),y
|
||
|
||
.7 jsr .9 Cleanup
|
||
|
||
clc
|
||
.99 rts
|
||
|
||
.9 pha
|
||
>LDA.G hFullPath
|
||
>SYSCALL FreeMem
|
||
pla
|
||
sec
|
||
rts
|
||
|
||
.FIN
|
||
*--------------------------------------
|
||
GetNextEntry jsr GetEntry
|
||
bcs .9
|
||
|
||
ldy #0
|
||
|
||
.10 iny
|
||
lda (ZPFileName),y Save actual file len for setting up
|
||
bne .10
|
||
phy new offset later
|
||
|
||
lda ZPFileStat
|
||
clc
|
||
adc #S.STAT
|
||
sta ZPFileName
|
||
|
||
lda ZPFileStat+1
|
||
adc /S.STAT
|
||
sta ZPFileName+1 Make nDIRENTs[i] point to next DIRENT
|
||
|
||
lda (ZPFileName) are we at end of this buffer ?
|
||
beq .1 yes, go read next one ...
|
||
|
||
sec
|
||
adc ZPFileName
|
||
sta ZPFileStat
|
||
lda ZPFileName+1
|
||
adc #0
|
||
sta ZPFileStat+1
|
||
|
||
jsr GetoDIRENT
|
||
|
||
pla Get back previous file len
|
||
|
||
sec
|
||
adc (pData),y
|
||
sta (pData),y
|
||
iny
|
||
|
||
lda #0
|
||
adc (pData),y
|
||
sta (pData),y
|
||
|
||
dey
|
||
|
||
lda #S.STAT
|
||
clc
|
||
adc (pData),y
|
||
sta (pData),y
|
||
iny
|
||
|
||
lda /S.STAT
|
||
adc (pData),y
|
||
sta (pData),y
|
||
clc
|
||
rts
|
||
|
||
.1 pla
|
||
jsr GetEntry.ReadDir
|
||
bcs .9
|
||
lda (ZPFileName)
|
||
beq .99
|
||
|
||
ldy #0
|
||
|
||
.2 iny
|
||
lda (ZPFileName),y
|
||
bne .2
|
||
tya
|
||
|
||
sec
|
||
adc ZPFileName
|
||
sta ZPFileStat
|
||
lda ZPFileName+1
|
||
adc #0
|
||
sta ZPFileStat+1
|
||
|
||
clc
|
||
.9 rts
|
||
|
||
.99 sec
|
||
rts
|
||
*--------------------------------------
|
||
GetEntry jsr GethDIRENT
|
||
bne .1 we have a buffer to scan
|
||
|
||
jsr GetEntry.ReadDir First run, get first block
|
||
bcs .9 ZPFileName = start of buffer
|
||
|
||
lda (ZPFileName) Empty !!!
|
||
bne .8
|
||
|
||
* txa
|
||
* >SYSCALL FreeMem
|
||
sec
|
||
rts
|
||
|
||
.1 >SYSCALL GetMemPtr
|
||
>STYA ZPFileName
|
||
|
||
jsr GetoDIRENT
|
||
|
||
lda ZPFileName
|
||
clc
|
||
adc (pData),y
|
||
sta ZPFileName
|
||
|
||
iny
|
||
lda ZPFileName+1
|
||
adc (pData),y
|
||
sta ZPFileName+1 ZPFileName=ZPFileName+oDIRENT
|
||
|
||
.8 ldy #0
|
||
|
||
.81 iny
|
||
lda (ZPFileName),y
|
||
bne .81
|
||
tya
|
||
sec
|
||
adc ZPFileName
|
||
sta ZPFileStat
|
||
lda ZPFileName+1
|
||
adc #0
|
||
sta ZPFileStat+1
|
||
|
||
clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
GetEntry.ReadDir
|
||
jsr GethDIRENT
|
||
beq .1
|
||
|
||
pha
|
||
lda #0
|
||
sta (pData),y reset hDIRENT
|
||
pla
|
||
>SYSCALL FreeMem discard previous hDIRENT
|
||
|
||
.1 jsr GethDIR
|
||
|
||
>SYSCALL ReadDir
|
||
bcs .9
|
||
>STYA ZPFileName
|
||
|
||
ldy #index
|
||
lda (pData),y
|
||
clc
|
||
adc #hDIRENTs-1
|
||
tay
|
||
txa get hDIRENT in A
|
||
sta (pData),y
|
||
|
||
jsr GetoDIRENT
|
||
|
||
lda #0 and reset offset for this buffer
|
||
sta (pData),y
|
||
iny
|
||
sta (pData),y
|
||
clc
|
||
.9 rts
|
||
*--------------------------------------
|
||
EnterSubDirYA >STYA ZPPtr2 save SUBDIR for StrCat
|
||
|
||
ldy #index
|
||
lda (pData),y
|
||
cmp #X.MAX.RECURSE
|
||
beq .9
|
||
|
||
ldy #hSrcBasePath
|
||
jsr EnterSubDirY
|
||
|
||
>LDYA ZPPtr1
|
||
>SYSCALL OpenDir
|
||
|
||
bcs .9
|
||
pha
|
||
|
||
>INC.G index
|
||
tax
|
||
* clc from BCS
|
||
adc #hDIRs-1
|
||
tay
|
||
pla
|
||
sta (pData),y
|
||
|
||
txa make sure hDIRENTs[i] is closed
|
||
adc #hDIRENTs-1
|
||
tay
|
||
lda #0
|
||
sta (pData),y
|
||
|
||
.DO X.COPY.TO.DEST=1
|
||
ldy #hDstBasePath
|
||
jsr EnterSubDirY
|
||
.FIN
|
||
|
||
clc
|
||
.9 rts
|
||
|
||
EnterSubDirY lda (pData),y
|
||
>SYSCALL GetMemPtr
|
||
|
||
>STYA ZPPtr1 save full path
|
||
|
||
jsr .1 Make sure ending with /
|
||
|
||
>PUSHW ZPPtr2
|
||
>LDYA ZPPtr1
|
||
>SYSCALL StrCat
|
||
|
||
.1 ldy #0
|
||
|
||
.2 iny
|
||
lda (ZPPtr1),y
|
||
bne .2
|
||
|
||
dey
|
||
lda #'/'
|
||
cmp (ZPPtr1),y
|
||
beq .8
|
||
iny
|
||
sta (ZPPtr1),y
|
||
iny
|
||
lda #0
|
||
sta (ZPPtr1),y
|
||
|
||
.8 rts
|
||
*--------------------------------------
|
||
LeaveSubDir >LDA.G index
|
||
beq .9
|
||
|
||
jsr GethDIRENT.A
|
||
beq .1
|
||
|
||
pha
|
||
lda #0
|
||
sta (pData),y
|
||
pla
|
||
>SYSCALL FreeMem
|
||
|
||
.1 jsr GethDIR
|
||
|
||
pha
|
||
lda #0
|
||
sta (pData),y
|
||
pla
|
||
>SYSCALL CloseDir
|
||
|
||
>DEC.G index
|
||
bne .8
|
||
|
||
ldy #hSrcBasePath
|
||
lda (pData),y
|
||
>SYSCALL FreeMem
|
||
|
||
.DO X.COPY.TO.DEST=1
|
||
ldy #hDstBasePath
|
||
lda (pData),y
|
||
>SYSCALL FreeMem
|
||
.FIN
|
||
|
||
.9 sec
|
||
rts
|
||
|
||
.8 clc
|
||
rts
|
||
*--------------------------------------
|
||
BasePath.. .DO X.COPY.TO.DEST=1
|
||
|
||
ldy #hDstBasePath
|
||
jsr BasePath..1
|
||
|
||
.FIN
|
||
|
||
ldy #hSrcBasePath
|
||
|
||
BasePath..1 lda (pData),y
|
||
>SYSCALL GetMemPtr
|
||
|
||
>STYA ZPPtr1 save full path
|
||
|
||
ldy #0
|
||
|
||
.1 iny
|
||
lda (ZPPtr1),y get len
|
||
bne .1
|
||
|
||
dey discard ending /
|
||
|
||
.2 dey
|
||
lda (ZPPtr1),y
|
||
cmp #'/'
|
||
bne .2
|
||
|
||
iny
|
||
|
||
lda #0
|
||
sta (ZPPtr1),y cut DIR2/ from /dir1/DIR2/
|
||
|
||
rts
|
||
*--------------------------------------
|
||
GethDIR ldy #index
|
||
lda (pData),y
|
||
clc
|
||
adc #hDIRs-1
|
||
tay
|
||
lda (pData),y
|
||
rts
|
||
*--------------------------------------
|
||
GethDIRENT ldy #index
|
||
lda (pData),y
|
||
GethDIRENT.A clc
|
||
adc #hDIRENTs-1
|
||
tay
|
||
lda (pData),y
|
||
rts
|
||
*--------------------------------------
|
||
GetoDIRENT ldy #index
|
||
lda (pData),y
|
||
asl
|
||
clc
|
||
adc #oDIRENTs-1
|
||
tay
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/BIN/X.FILEENUM.S
|
||
LOAD USR/SRC/BIN/LS.S
|
||
ASM
|