A2osX/SYS/KERNEL.S.FIO.txt

236 lines
4.6 KiB
Plaintext
Raw Normal View History

2015-03-14 21:48:35 +00:00
PR#3
2015-06-03 18:30:57 +00:00
PREFIX /A2OSX.SRC
LOMEM $A00
2015-03-14 21:48:35 +00:00
INC 1
AUTO 6
*/--------------------------------------
* #FileSearch
2016-11-01 14:37:28 +00:00
* Search a file in the provided PATH list
* And return, if found, the full path to it.
* ##In:
* PUSHW = Ptr to Search Path (PSTR) %LIB%;/SYS/SLIB
* PUSHW = Ptr to File Name (PSTR)
2016-11-01 14:37:28 +00:00
* ##Out:
* CC : success
* Y,A = PSTR to FilePath (PSTR)
* X = hMem to FilePath
* CS : not found
*\--------------------------------------
2017-01-12 17:43:45 +00:00
K.FileSearch >PULLW ZPPtr4 ZPPtr1 trashed by ExpandPStrYA
2016-08-17 06:25:58 +00:00
>PULLYA Get Search list
>SYSCALL ExpandPStrYA Expand it (SYSCALL to BNK1)
bcs .99
2016-08-17 06:25:58 +00:00
stx K.FileSearch.hSrch
2017-01-12 17:43:45 +00:00
>STYA ZPPtr3 ZPPtr2 trashed by K.STAT !!! expanded search list ;
2015-06-03 18:30:57 +00:00
2016-09-21 15:20:37 +00:00
stz K.FileSearch.Index
2016-08-17 06:25:58 +00:00
.1 stz KrnBuf256 reset String
2016-08-17 06:25:58 +00:00
ldx #0
2016-06-07 06:10:18 +00:00
2016-09-21 15:20:37 +00:00
ldy K.FileSearch.Index
2016-06-07 06:10:18 +00:00
2016-08-17 06:25:58 +00:00
.2 tya
2017-01-12 17:43:45 +00:00
cmp (ZPPtr3) end of src string ?
2016-08-17 06:25:58 +00:00
beq .3 end of string, try it....
iny
2017-01-12 17:43:45 +00:00
lda (ZPPtr3),y
2016-08-17 06:25:58 +00:00
cmp #';'
beq .3
2016-08-17 06:25:58 +00:00
inx
sta KrnBuf256,x
2016-08-17 06:25:58 +00:00
bra .2
2016-08-17 06:25:58 +00:00
.3 txa
beq .98 String is empty....nothing to try
2016-09-21 15:20:37 +00:00
sty K.FileSearch.Index save current index
2015-06-03 18:30:57 +00:00
2016-08-17 06:25:58 +00:00
ldy #0
2016-06-07 06:10:18 +00:00
2016-08-17 06:25:58 +00:00
.4 iny
2017-01-12 17:43:45 +00:00
lda (ZPPtr4),y Append Fiename...
2016-08-17 06:25:58 +00:00
inx
sta KrnBuf256,x
2016-08-17 06:25:58 +00:00
tya
2017-01-12 17:43:45 +00:00
cmp (ZPPtr4)
2016-08-17 06:25:58 +00:00
bne .4
2015-06-03 18:30:57 +00:00
2016-09-26 16:00:52 +00:00
stx KrnBuf256 set string length
2015-06-03 18:30:57 +00:00
>PUSHWI K.S.STAT
2016-09-26 16:00:52 +00:00
>PUSHWI KrnBuf256
jsr K.STAT
2016-08-17 06:25:58 +00:00
bcs .1 Failed...retry next path...
2015-06-03 18:30:57 +00:00
2016-09-21 15:20:37 +00:00
lda K.FileSearch.hSrch Discard Expanded hSrch list
jsr K.FreeMemA
bra K.GetFullPathYA.NewStr
.98 lda K.FileSearch.hSrch Discard Expanded hSrch list
jsr K.FreeMemA
lda #SYSMGR.ERRFNF
sec
.99 rts
2015-03-14 21:48:35 +00:00
*--------------------------------------
2016-09-21 15:20:37 +00:00
K.FileSearch.hSrch .BS 1
K.FileSearch.Index .BS 1
*/--------------------------------------
* #GetFullPathYA
* ##In :
* Y,A = Filename (PSTR)
2016-11-01 14:37:28 +00:00
* ##Out :
* CC : success
* Y,A = FullPath (PSTR)
* X = hMem of FullPath
* CS : A = Error Code
*\--------------------------------------
2017-01-12 17:43:45 +00:00
K.GetFullPathYA >STYA ZPPtr3 Ptr1 & 2 used by StrCpy
lda (ZPPtr3)
beq K.GetFullPathYA.9
2016-08-17 06:25:58 +00:00
stz KrnBuf256
2016-08-17 06:25:58 +00:00
ldy #1
2017-01-12 17:43:45 +00:00
lda (ZPPtr3),y
2016-08-17 06:25:58 +00:00
cmp #'/' full path starting with '/'?
beq .1 yes, do not append to current prefix
ldy #S.PS.hPREFIX
lda (pPs),y
2016-09-21 15:20:37 +00:00
jsr K.GetMemPtrA
2016-08-17 06:25:58 +00:00
>PUSHYA
>PUSHWI KrnBuf256
>SYSCALL PStrCpy
2016-08-17 06:25:58 +00:00
2017-01-12 17:43:45 +00:00
.1 >PUSHW ZPPtr3
>PUSHWI KrnBuf256
>SYSCALL PStrCat
K.GetFullPathYA.NewStr
>LDYAI KrnBuf256
>SYSCALL NewPStrYA
rts
K.GetFullPathYA.9
sec
2016-08-17 06:25:58 +00:00
rts
*/--------------------------------------
* #LoadFile
* ##In:
* PUSHW = AUXTYPE (Handled by....
* PUSHB = TYPE ...
* PUSHB = MODE ...
2017-01-12 17:43:45 +00:00
* PUSHW = PATH ...FOpen)
* ##Out:
* Y,A = File Length
* X = hMem of Loaded File
*\--------------------------------------
2017-01-12 17:43:45 +00:00
K.LoadFile jsr K.FOpen
bcs .9
2016-09-21 15:20:37 +00:00
sta K.LoadFile.hFile
2017-01-12 17:43:45 +00:00
ldx #SYS.FSeek.END
2016-09-21 15:20:37 +00:00
jsr K.LoadFile.Seek
bcs .99
lda K.LoadFile.hFile
2017-01-12 17:43:45 +00:00
jsr K.FTellA
2016-09-21 15:20:37 +00:00
bcs .99
>STYA K.LoadFile.Len
phx
plx
bne .98 LEN > 65535 !!???
2016-09-21 15:20:37 +00:00
>PUSHYA push len
>PUSHBI 0
jsr K.GetMem
bcs .99
>STYA K.LoadFile.Mem
stx K.LoadFile.hMem
2017-01-12 17:43:45 +00:00
ldx #SYS.FSeek.SET
2016-09-21 15:20:37 +00:00
jsr K.LoadFile.Seek
bcs .97
2016-09-21 15:20:37 +00:00
>PUSHW K.LoadFile.Mem
>PUSHW K.LoadFile.Len
>PUSHB K.LoadFile.hFile
2017-01-12 17:43:45 +00:00
jsr K.FRead
bcs .97
jsr .99
2016-09-21 15:20:37 +00:00
>LDYA K.LoadFile.Len
ldx K.LoadFile.hMem
clc
2016-09-21 15:20:37 +00:00
.9 rts
.97 pha
lda K.LoadFile.hMem
jsr K.FreeMemA
pla
.HS 2C
2016-09-21 15:20:37 +00:00
.98 lda #SYSMGR.ERRFTB
.99 pha
2016-09-21 15:20:37 +00:00
lda K.LoadFile.hFile
jsr K.FCloseA
pla
sec
2016-09-21 15:20:37 +00:00
rts
*--------------------------------------
K.LoadFile.Seek >PUSHWI 0
>PUSHWI 0
txa
>PUSHA
>PUSHB K.LoadFile.hFile
2017-01-12 17:43:45 +00:00
jmp K.FSeek
*/--------------------------------------
* #SaveFile
* ##In:
* PUSHW = SrcLen
* PUSHW = SrcPtr
* PUSHW = AUXTYPE (Handled by....
* PUSHB = TYPE ...
* PUSHB = MODE ...
2017-01-12 17:43:45 +00:00
* PUSHW = PATH ...FOpen)
*\--------------------------------------
2017-01-12 17:43:45 +00:00
K.SaveFile jsr K.FOpen
bcs .9
2016-09-21 15:20:37 +00:00
sta K.LoadFile.hFile
2016-09-21 15:20:37 +00:00
>PUSHB K.LoadFile.hFile
2017-01-12 17:43:45 +00:00
jsr K.FWrite
bcs .99
jsr .99
clc
rts
.99 pha
2016-09-21 15:20:37 +00:00
lda K.LoadFile.hFile
jsr K.FCloseA
pla
sec
rts
.9 >POP 4 Discard SrcPtr & SrcLen
sec
rts
*--------------------------------------
2016-09-21 15:20:37 +00:00
K.LoadFile.hFile .BS 1
K.LoadFile.hMem .BS 1
K.LoadFile.Mem .BS 2
K.LoadFile.Len .BS 2
*--------------------------------------
2015-03-14 21:48:35 +00:00
MAN
SAVE SYS/KERNEL.S.FIO
2015-03-14 21:48:35 +00:00
LOAD SYS/KERNEL.S
ASM