mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 20:33:13 +00:00
625 lines
13 KiB
Plaintext
625 lines
13 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.SRC
|
||
NEW
|
||
INC 1
|
||
AUTO 6
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
* PUBLIC
|
||
*--------------------------------------
|
||
S.CheckPrefixA jsr S.GetMemPtrA
|
||
S.CheckPrefixYA >STYA MLICALL.PARAMS+1
|
||
>STYA ZPQuickPtr1
|
||
lda (ZPQuickPtr1)
|
||
beq .98
|
||
tax
|
||
ldy #1
|
||
lda (ZPQuickPtr1),y
|
||
cmp #'/'
|
||
bne .98
|
||
cpx #1 "/" allowed for listing online volumes
|
||
beq .8
|
||
>MLICALL MLIGETFILEINFO
|
||
bcs .98 No, invalid path...
|
||
lda MLICALL.PARAMS+4 Check file type
|
||
cmp #$0F Directory?
|
||
bne .98
|
||
.8 clc
|
||
rts
|
||
.98 lda #SYSMGR.ERRIDIR
|
||
.99 sec
|
||
rts
|
||
*--------------------------------------
|
||
* S.FileSearch
|
||
* in :
|
||
* PULLB = hMem to Search Path (PSTRING) %LIB%;/SYS/SLIB
|
||
* PULLB = hMem to File Name (PSTRING)
|
||
* out :
|
||
* A = hMem of FilePath (PSTRING)
|
||
*--------------------------------------
|
||
S.FileSearch >PULLA Get Search path
|
||
jsr S.ExpandPStrA Expand it
|
||
bcc .10
|
||
pha save error code
|
||
>PULLA discard file name
|
||
pla
|
||
sec
|
||
rts
|
||
|
||
.10 sta S.FileSearch.hSrch Store Expanded path list to search
|
||
|
||
>PULLB S.FileSearch.hFile Store Filename
|
||
lda #1
|
||
sta S.FileSearch.Idx Start At Token 1
|
||
|
||
.1 >PUSHB S.FileSearch.hSrch push expanded path list
|
||
>PUSHBI $3B Push SEP=';'
|
||
>PUSHB S.FileSearch.Idx Push Token IDX
|
||
jsr S.PStrGetTkn Get token in A
|
||
bcs .98
|
||
|
||
sta S.FileSearch.hPath Store Token path
|
||
>PUSHB S.FileSearch.hFile push filename
|
||
>PUSHB S.FileSearch.hPath Push Token path
|
||
jsr S.PStrCat
|
||
bcs .97
|
||
|
||
sta S.FileSearch.hFull Store Full path (Token Path+filename)
|
||
|
||
jsr S.MLIGetFileInfoA
|
||
bcc .8
|
||
|
||
lda S.FileSearch.hFull Discard this Full Path
|
||
jsr S.FreeMemA
|
||
lda S.FileSearch.hPath Discard Token path
|
||
jsr S.FreeMemA
|
||
|
||
inc S.FileSearch.Idx Try next Token
|
||
bne .1
|
||
|
||
beq .98 go to discard Expanded path list
|
||
|
||
.97 lda S.FileSearch.hPath Discard Token path
|
||
jsr S.FreeMemA
|
||
|
||
.98 lda S.FileSearch.hSrch Discard Expanded hSrch list
|
||
jsr S.FreeMemA
|
||
lda #SYSMGR.ERRFNF
|
||
sec
|
||
rts
|
||
|
||
.8 jsr .97 Dicard all except Full Path
|
||
lda S.FileSearch.hFull
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
S.FileSearch.hSrch .BS 1
|
||
S.FileSearch.hFile .BS 1
|
||
S.FileSearch.Idx .BS 1
|
||
S.FileSearch.hPath .BS 1
|
||
S.FileSearch.hFull .BS 1
|
||
*--------------------------------------
|
||
* S.LoadFileA
|
||
* in :
|
||
* A = hMem of FilePath (PSTRING)
|
||
* out :
|
||
* Y,A = File Length
|
||
* X = hMem of Loaded File
|
||
*--------------------------------------
|
||
S.LoadFileA jsr S.GetMemPtrA
|
||
S.LoadFileYA jsr S.ExpandPStrYA
|
||
sta S.LoadFile.hExp
|
||
jsr S.GetMemPtrA
|
||
jsr S.MLIOpenYA
|
||
bcc .10
|
||
jmp .99
|
||
|
||
.10 sta S.LoadFile.hRef save ref_num
|
||
stx S.LoadFile.hBuf save Prodos Buffer for freemem
|
||
jsr S.MLIGetEOFA
|
||
bcs .98
|
||
|
||
phx Larger than 64k?
|
||
plx
|
||
beq .1 File too big!!!!
|
||
lda #SYSMGR.ERRFTB
|
||
bra .98
|
||
|
||
.1 >STYA S.LoadFile.Len save Length
|
||
>PUSHYA Push Length for S.GetMem
|
||
>PUSHBI 0
|
||
jsr S.GetMem
|
||
bcs .98
|
||
|
||
phy save Ptr
|
||
pha
|
||
stx S.LoadFile.hMem save Segment hMem
|
||
>PUSHW S.LoadFile.Len Push Length for S.MLIRead
|
||
pla restore Dest PTR
|
||
ply
|
||
>PUSHYA and push for S.MLIRead
|
||
>PUSHB S.LoadFile.hRef Push ref_num
|
||
jsr S.MLIRead
|
||
bcs .97
|
||
|
||
lda S.LoadFile.hRef
|
||
jsr S.MLICloseA
|
||
|
||
lda S.LoadFile.hBuf
|
||
jsr S.FreeMemA Discard ProDOS IO Buffer
|
||
|
||
lda S.LoadFile.hExp Discard Expanded String
|
||
jsr S.FreeMemA
|
||
|
||
>LDYA S.LoadFile.Len Return File Length...
|
||
ldx S.LoadFile.hMem ...and hMem to Caller
|
||
clc
|
||
rts
|
||
|
||
.97 pha
|
||
lda S.LoadFile.hMem
|
||
jsr S.FreeMemA freemem because of failed load
|
||
pla
|
||
|
||
.98 pha
|
||
lda S.LoadFile.hRef
|
||
jsr S.MLICloseA
|
||
lda S.LoadFile.hBuf
|
||
jsr S.FreeMemA ProDOS IO Buffer
|
||
pla
|
||
|
||
.99 pha
|
||
lda S.LoadFile.hExp
|
||
jsr S.FreeMemA
|
||
pla
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
S.LoadFile.hRef .BS 1
|
||
S.LoadFile.hBuf .BS 1
|
||
S.LoadFile.hExp .BS 1
|
||
S.LoadFile.hMem .BS 1
|
||
S.LoadFile.Len .BS 2
|
||
*--------------------------------------
|
||
* S.ListDirInitA
|
||
* in :
|
||
* A = PATH (PSTR) /DIR,/DIR/*.?s
|
||
* out :
|
||
* A = hMem of Dir Listing
|
||
*--------------------------------------
|
||
S.ListDirInitA
|
||
* sta R.AL
|
||
stz TmpFileName Reset File.Pattern
|
||
jsr S.GetMemPtrA
|
||
>STYA R.BX Store path
|
||
* jsr S.CheckPrefixYA is it a existing directory?
|
||
* bcc .4 yes, continue with empty pattern
|
||
|
||
lda (R.BX) no, get pattern at end of full path
|
||
tay
|
||
ldx #0
|
||
|
||
.1 lda (R.BX),y
|
||
cmp #'/'
|
||
beq .2
|
||
inx
|
||
dey
|
||
bne .1
|
||
|
||
.2 stx TmpFileName
|
||
txa
|
||
beq .4
|
||
|
||
lda (R.BX)
|
||
tay
|
||
|
||
.3 lda (R.BX),y
|
||
sta TmpFileName,x
|
||
dey
|
||
dex
|
||
bne .3
|
||
|
||
tya
|
||
sta (R.BX) remove pattern from path
|
||
|
||
.4 >PUSHWI S.LISTDIR.SIZE get LISTDIR Struct
|
||
>PUSHBI S.MEM.F.INIT0 reset all bytes
|
||
jsr S.GetMem
|
||
bcs .99
|
||
stx R.AH
|
||
>STYA R.CX Store LISTDIR Struct
|
||
|
||
>LDYA R.BX
|
||
jsr S.NewPStrYA
|
||
bcs .99
|
||
ldy #S.LISTDIR.hPATH
|
||
sta (R.CX),y
|
||
|
||
ldy TmpFileName
|
||
beq .5
|
||
|
||
lda #0
|
||
>PUSHYA
|
||
>PUSHBI 0
|
||
jsr S.GetMem
|
||
bcs .98
|
||
>STYA ZPQuickPtr1
|
||
|
||
txa
|
||
ldy #S.LISTDIR.hPATTERN
|
||
sta (R.CX),y
|
||
|
||
ldy TmpFileName
|
||
.40 lda TmpFileName,y
|
||
sta (ZPQuickPtr1),y
|
||
dey
|
||
bpl .40
|
||
|
||
.5 lda (R.BX)
|
||
cmp #1 length = 1 ? ('/')
|
||
bne .6
|
||
jsr S.ListDirInitAV
|
||
bcs .98
|
||
lda R.AH
|
||
rts
|
||
|
||
.6 jsr S.ListDirInitAD
|
||
bcs .98
|
||
lda R.AH
|
||
rts
|
||
|
||
.98 pha
|
||
lda R.AH Discard S.LISTDIR
|
||
jsr S.ListDirCloseA
|
||
pla
|
||
.99 sec
|
||
rts
|
||
*--------------------------------------
|
||
S.ListDirInitAV >PUSHWI 256
|
||
>PUSHBI 0
|
||
jsr S.GetMem
|
||
bcs .99
|
||
>PUSHYA push buffer for online call
|
||
txa
|
||
sta (R.CX) save hONLINE buffer
|
||
>PUSHBI 0 All devices
|
||
jsr S.MLIOnline
|
||
bcs .98
|
||
ldy #S.LISTDIR.ONLINEPTR
|
||
|
||
* lda #0 make index point first Entry
|
||
* sta (R.CX),y
|
||
|
||
clc
|
||
rts
|
||
.98 lda (R.CX)
|
||
jsr S.FreeMemA
|
||
.99 sec
|
||
rts
|
||
*--------------------------------------
|
||
S.ListDirInitAD
|
||
* lda #0
|
||
* sta (R.CX) reset hONLINE
|
||
|
||
>LDYA R.BX Open DIR
|
||
jsr S.MLIOpenYA
|
||
bcs .99
|
||
ldy #S.LISTDIR.REFNUM
|
||
sta (R.CX),y save ref_num
|
||
txa
|
||
ldy #S.LISTDIR.hIOBUF
|
||
sta (R.CX),y save ProDOS IO buffer hMem
|
||
|
||
>PUSHWI 512 get Read buffer
|
||
>PUSHBI 0
|
||
jsr S.GetMem
|
||
bcs .99
|
||
txa
|
||
ldy #S.LISTDIR.hREADBUF save Read Buffer hMem
|
||
sta (R.CX),y
|
||
jsr S.ListDirReadBlock
|
||
bcs .99
|
||
>STYA ZPQuickPtr1
|
||
|
||
ldy #$23 get entry_length
|
||
lda (ZPQuickPtr1),y
|
||
ldy #S.LISTDIR.EL
|
||
sta (R.CX),y
|
||
|
||
ldy #$24 get entry_per_block
|
||
lda (ZPQuickPtr1),y
|
||
ldy #S.LISTDIR.EPB
|
||
sta (R.CX),y
|
||
|
||
ldy #$25 get File_count LO
|
||
lda (ZPQuickPtr1),y
|
||
clc
|
||
adc #1 Add 1 for VOL/DIR Header
|
||
ldy #S.LISTDIR.FC
|
||
sta (R.CX),y
|
||
|
||
ldy #$26 get File_count HI
|
||
lda (ZPQuickPtr1),y
|
||
adc #0
|
||
ldy #S.LISTDIR.FC+1
|
||
sta (R.CX),y
|
||
|
||
* ldy #S.LISTDIR.FI
|
||
* lda #0
|
||
* sta (R.CX),y
|
||
* iny
|
||
* sta (R.CX),y set FI to $0000
|
||
clc
|
||
.99 rts
|
||
*--------------------------------------
|
||
* S.DirListNextA
|
||
* A = S.LISTDIR hMEM
|
||
* out :
|
||
* A = hMem To Dir Entry
|
||
*--------------------------------------
|
||
S.ListDirNextA jsr S.GetMemPtrA Get PTR to S.LISTDIR
|
||
>STYA R.CX
|
||
lda (R.CX) Online Data?
|
||
beq S.ListDirNextAD no,list files
|
||
*--------------------------------------
|
||
S.ListDirNextAV jsr S.GetMemPtrA
|
||
>STYA ZPQuickPtr1 ZPQuickPtr1 = Online DATA
|
||
.10 ldy #S.LISTDIR.ONLINEPTR
|
||
lda (R.CX),y
|
||
cmp #16
|
||
beq .9
|
||
|
||
inc
|
||
sta (R.CX),y
|
||
dec
|
||
asl
|
||
asl
|
||
asl
|
||
asl
|
||
tay
|
||
|
||
lda (ZPQuickPtr1),y
|
||
and #$0F
|
||
beq .10
|
||
|
||
sta TmpFileName
|
||
ldx #0
|
||
.1 iny
|
||
inx
|
||
lda (ZPQuickPtr1),y
|
||
sta TmpFileName,x
|
||
cpx TmpFileName
|
||
bne .1
|
||
|
||
>PUSHWI 16
|
||
>PUSHBI 0
|
||
jsr S.GetMem
|
||
bcs .9
|
||
|
||
>STYA ZPQuickPtr2
|
||
|
||
ldy #15
|
||
.2 lda TmpFileName,y
|
||
sta (ZPQuickPtr2),y
|
||
dey
|
||
bpl .2
|
||
|
||
lda (ZPQuickPtr2) Mark Record as "VOL"
|
||
ora #$C0
|
||
sta (ZPQuickPtr2)
|
||
|
||
txa Get back hMem of Volume.Name
|
||
clc
|
||
rts
|
||
|
||
.9 sec
|
||
rts
|
||
*--------------------------------------
|
||
S.ListDirNextAD stz R.DL Reset Return Record hMem
|
||
ldy #S.LISTDIR.FI File Index = File count ?
|
||
lda (R.CX),y
|
||
ldy #S.LISTDIR.FC
|
||
cmp (R.CX),y
|
||
bne .1
|
||
ldy #S.LISTDIR.FI+1
|
||
lda (R.CX),y
|
||
ldy #S.LISTDIR.FC+1
|
||
cmp (R.CX),y
|
||
bne .1
|
||
sec yes, exit no more file
|
||
rts
|
||
*--------------------------------------
|
||
.1 ldy #S.LISTDIR.EIB Entry Index in block = Entry per block ?
|
||
lda (R.CX),y
|
||
ldy #S.LISTDIR.EPB
|
||
cmp (R.CX),y
|
||
bne .2
|
||
jsr S.ListDirReadBlock
|
||
bcc .3
|
||
rts
|
||
*--------------------------------------
|
||
.2 ldy #S.LISTDIR.hREADBUF
|
||
lda (R.CX),y
|
||
jsr S.GetMemPtrA
|
||
.3 >STYA R.AX R.AX = READ BUFFER
|
||
ldy #S.LISTDIR.BLKPTR
|
||
lda (R.CX),y
|
||
clc
|
||
adc R.AX
|
||
sta R.AX
|
||
iny
|
||
lda (R.CX),y
|
||
adc R.AX+1
|
||
sta R.AX+1
|
||
|
||
lda (R.AX) Is is a deleted file ? (storage_type=0)
|
||
and #$F0
|
||
beq .5
|
||
|
||
cmp #$F0 Volume header ?
|
||
beq .30 yes, do not filter
|
||
cmp #$E0 Directory header ?
|
||
beq .30 yes, do not filter
|
||
|
||
ldy #S.LISTDIR.hPATTERN any filter ?
|
||
lda (R.CX),y
|
||
beq .30
|
||
|
||
jsr S.GetMemPtrA
|
||
>PUSHYA push Filter PTR
|
||
|
||
lda (R.AX)
|
||
and #$0F
|
||
sta TmpFileName
|
||
tay
|
||
.31 lda (R.AX),y
|
||
sta TmpFileName,y
|
||
dey
|
||
bne .31
|
||
|
||
>PUSHWI TmpFileName push Filename PTR
|
||
jsr S.PStrMatchP
|
||
bcs .5 no match
|
||
|
||
.30 ldy #S.LISTDIR.EL Get Entry length
|
||
lda (R.CX),y
|
||
tay
|
||
lda #0
|
||
>PUSHYA Get an entry_length buffer
|
||
>PUSHBI 0
|
||
jsr S.GetMem
|
||
bcs .99
|
||
>STYA R.BX R.BX = DEST RECORD
|
||
stx R.DL
|
||
|
||
ldy #S.LISTDIR.EL
|
||
lda (R.CX),y
|
||
tay
|
||
dey
|
||
.4 lda (R.AX),y
|
||
sta (R.BX),y
|
||
dey
|
||
bpl .4
|
||
|
||
.5 ldy #S.LISTDIR.EIB Set ENTRY INDEX IN BLOCK +=1
|
||
lda (R.CX),y
|
||
inc
|
||
sta (R.CX),y
|
||
|
||
ldy #S.LISTDIR.EL Set BLOCK PTR +=entry_length
|
||
lda (R.CX),y
|
||
ldy #S.LISTDIR.BLKPTR
|
||
clc
|
||
adc (R.CX),y
|
||
sta (R.CX),y
|
||
iny
|
||
lda (R.CX),y
|
||
adc #0
|
||
sta (R.CX),y
|
||
|
||
lda (R.AX)
|
||
and #$E0 is storage_type = $F or $E ?
|
||
cmp #$E0 yes, do NOT increase FI
|
||
bne .6
|
||
|
||
ldy #S.LISTDIR.FI Increase FILE INDEX
|
||
lda (R.CX),y
|
||
inc
|
||
sta (R.CX),y
|
||
bne .6
|
||
iny
|
||
lda (R.CX),y
|
||
inc
|
||
sta (R.CX),y
|
||
|
||
.6 lda R.DL
|
||
bne .8
|
||
jmp S.ListDirNextAD Nothing to return, start over for next file entry
|
||
|
||
.8 clc
|
||
rts
|
||
|
||
.99 sec
|
||
rts
|
||
*--------------------------------------
|
||
* S.DirListCloseA
|
||
* in :
|
||
* A = hS.LISTDIR
|
||
*--------------------------------------
|
||
S.ListDirCloseA pha
|
||
jsr S.GetMemPtrA
|
||
>STYA ZPQuickPtr1
|
||
ldy #S.LISTDIR.REFNUM
|
||
lda (ZPQuickPtr1),y
|
||
beq .1
|
||
jsr S.MLICloseA
|
||
bcs * If Close Failed, we cannot free IOBUF
|
||
|
||
.1 ldy #S.LISTDIR.hIOBUF
|
||
lda (ZPQuickPtr1),y
|
||
beq .2
|
||
jsr S.FreeMemA
|
||
|
||
.2 ldy #S.LISTDIR.hREADBUF
|
||
lda (ZPQuickPtr1),y
|
||
beq .3
|
||
jsr S.FreeMemA
|
||
|
||
.3 ldy #S.LISTDIR.hONLINE
|
||
lda (ZPQuickPtr1),y
|
||
beq .4
|
||
jsr S.FreeMemA
|
||
|
||
.4 ldy #S.LISTDIR.hPATTERN
|
||
lda (ZPQuickPtr1),y
|
||
beq .5
|
||
jsr S.FreeMemA
|
||
|
||
.5 ldy #S.LISTDIR.hPATH
|
||
lda (ZPQuickPtr1),y
|
||
beq .6
|
||
jsr S.FreeMemA
|
||
|
||
.6 pla
|
||
jsr S.FreeMemA
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
* PRIVATE
|
||
*--------------------------------------
|
||
* S.ListDirReadBlock
|
||
* In :
|
||
* CX = LISTDIR
|
||
* Out :
|
||
* Y,A = READ BUFFER
|
||
*--------------------------------------
|
||
S.ListDirReadBlock
|
||
ldy #S.LISTDIR.REFNUM
|
||
lda (R.CX),y get ref_num
|
||
sta MLICALL.PARAMS+1
|
||
ldy #S.LISTDIR.hREADBUF
|
||
lda (R.CX),y get READ BUFFER
|
||
jsr S.GetMemPtrA
|
||
>STYA MLICALL.PARAMS+2
|
||
>LDYAI 512
|
||
>STYA MLICALL.PARAMS+4
|
||
>MLICALL MLIREAD
|
||
bcs .9
|
||
ldy #S.LISTDIR.BLKPTR set BLKPTR to $0004
|
||
lda #4
|
||
sta (R.CX),y
|
||
iny
|
||
lda #0
|
||
sta (R.CX),y
|
||
ldy #S.LISTDIR.EIB set EIB to 0
|
||
sta (R.CX),y
|
||
>LDYA MLICALL.PARAMS+2
|
||
.9 rts
|
||
*--------------------------------------
|
||
TmpFileName .BS 16
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE SYS/KERNEL.S.FIO
|
||
LOAD SYS/KERNEL.S
|
||
ASM
|