A2osX/SYS/KERNEL.S.PFT.txt

105 lines
1.9 KiB
Plaintext
Raw Normal View History

2017-12-22 21:24:30 +00:00
NEW
PREFIX /A2OSX.BUILD
2017-12-22 21:24:30 +00:00
AUTO 4,1
2016-08-24 15:42:33 +00:00
*--------------------------------------
2016-09-26 16:00:52 +00:00
* K.PFTAdd
* In :
* Out :
*--------------------------------------
K.PFTAdd
clc
rts
*--------------------------------------
* K.PFTRemove
* In :
* Out :
*--------------------------------------
K.PFTRemove
clc
rts
*--------------------------------------
2018-09-05 15:22:46 +00:00
* PFT.CheckPathYA
2016-09-26 16:00:52 +00:00
* In :
2018-09-05 15:22:46 +00:00
* Y,A = PATH (C-String)
2016-09-26 16:00:52 +00:00
* Out :
2016-08-24 15:42:33 +00:00
*--------------------------------------
2018-09-05 15:22:46 +00:00
PFT.CheckPathYA >STYA ZPPtr1
2016-08-24 15:42:33 +00:00
>LDYAI Flt.Table
2017-01-12 17:43:45 +00:00
>STYA ZPPtr2
2016-08-24 15:42:33 +00:00
.1 lda (ZPPtr2) Get Filter char....
2016-08-24 15:42:33 +00:00
beq .9 End Of Table, Exit
ldy #0
.2 lda (ZPPtr2),y
beq .3 end of filter string....
lda (ZPPtr1),y
beq .8
cmp (ZPPtr2),y
2016-08-24 15:42:33 +00:00
bne .8
iny
2016-08-24 15:42:33 +00:00
bne .2
.3 lda (ZPPtr1),y
cmp #'/'
bne .8
2016-08-28 20:48:01 +00:00
ldy #S.PFT.HANDLER
lda (ZPPtr2),y get hLib
2018-06-21 15:12:10 +00:00
jsr K.GetMemPtr
>STYA .7+1
2016-08-24 15:42:33 +00:00
pla discard JSR return @
pla
>LDYA ZPPtr1 restore passed params
.7 jmp $ffff X unmodified
2016-08-24 15:42:33 +00:00
2017-01-12 17:43:45 +00:00
.8 lda ZPPtr2
2016-08-24 15:42:33 +00:00
clc
adc (ZPPtr2) Add STR len
adc #S.PFT
2017-01-12 17:43:45 +00:00
sta ZPPtr2
bcc .1
2016-08-24 15:42:33 +00:00
.9 >LDYA ZPPtr1 restore passed params
2016-08-24 15:42:33 +00:00
rts
*--------------------------------------
2018-09-05 15:22:46 +00:00
* PFT.CheckNodeA
2016-09-26 16:00:52 +00:00
* In :
* PULLB/A = hFILE/hDIR
* Out :
2016-08-24 15:42:33 +00:00
*--------------------------------------
2018-10-08 05:55:28 +00:00
PFT.CheckNodeA rts
sta .9+1 save hFILE
2018-06-21 15:12:10 +00:00
jsr K.GetMemPtr X = unmodified
2017-01-12 17:43:45 +00:00
>STYA ZPPtr1
2018-07-20 11:51:08 +00:00
ldy #S.FD.HANDLER
lda (ZPPtr1),y
beq .9 Handler is 0, back to kernel....
2018-06-21 15:12:10 +00:00
jsr K.GetMemPtr
>STYA .1+1
pla discard JSR return @
pla
2016-08-24 15:42:33 +00:00
lda .9+1 restore passed hFILE
.1 jmp $ffff
2016-08-24 15:42:33 +00:00
.9 lda #$ff Self Modified
2016-08-24 15:42:33 +00:00
rts
*--------------------------------------
MAN
SAVE /A2OSX.SRC/SYS/KERNEL.S.PFT
LOAD /A2OSX.SRC/SYS/KERNEL.S
2016-08-24 15:42:33 +00:00
ASM