2016-08-24 15:42:33 +00:00
|
|
|
|
PR#3
|
|
|
|
|
PREFIX /A2OSX.SRC
|
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
*--------------------------------------
|
2016-09-26 16:00:52 +00:00
|
|
|
|
* K.PFTAdd
|
|
|
|
|
* In :
|
|
|
|
|
* Out :
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.PFTAdd
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* K.PFTRemove
|
|
|
|
|
* In :
|
|
|
|
|
* Out :
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
K.PFTRemove
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-09-29 15:30:15 +00:00
|
|
|
|
* PFT.CheckPath___
|
2016-09-26 16:00:52 +00:00
|
|
|
|
* In :
|
|
|
|
|
* PULLW/Y,A = PATH (PSTR)
|
|
|
|
|
* Out :
|
2016-08-24 15:42:33 +00:00
|
|
|
|
*--------------------------------------
|
2016-09-29 15:30:15 +00:00
|
|
|
|
PFT.CheckPathSTK
|
2016-08-26 15:10:38 +00:00
|
|
|
|
lda (pStack) read PTR.LO on top of stack
|
|
|
|
|
pha
|
|
|
|
|
ldy #1
|
|
|
|
|
lda (pStack),y read PTR.HI on top of stack
|
|
|
|
|
ply
|
2016-09-29 15:30:15 +00:00
|
|
|
|
PFT.CheckPathYA
|
2016-08-26 15:10:38 +00:00
|
|
|
|
stx S.PFT.SYSCALL save #SYSCALL
|
2016-08-24 15:42:33 +00:00
|
|
|
|
>STYA ZPQuickPtr1
|
|
|
|
|
|
2016-10-03 06:18:46 +00:00
|
|
|
|
>LDYAI FltMgr.Table
|
2016-08-24 15:42:33 +00:00
|
|
|
|
>STYA ZPQuickPtr2
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPQuickPtr2) Get Filter Len
|
|
|
|
|
beq .9 End Of Table, Exit
|
|
|
|
|
tay
|
|
|
|
|
lda (ZPQuickPtr1),y is there a "/" at this point in SRC path?
|
|
|
|
|
cmp #'/'
|
|
|
|
|
bne .8
|
|
|
|
|
|
|
|
|
|
.2 lda (ZPQuickPtr1),y
|
|
|
|
|
cmp (ZPQuickPtr2),y
|
|
|
|
|
bne .8
|
|
|
|
|
dey
|
|
|
|
|
bne .2
|
|
|
|
|
|
2016-08-28 20:48:01 +00:00
|
|
|
|
ldy #S.PFT.HANDLER
|
2016-08-24 15:42:33 +00:00
|
|
|
|
lda (ZPQuickPtr2),y get hLib
|
2016-09-21 15:20:37 +00:00
|
|
|
|
jsr K.GetMemPtrA
|
2016-08-24 15:42:33 +00:00
|
|
|
|
>STYA .3+1
|
|
|
|
|
|
2016-08-26 15:10:38 +00:00
|
|
|
|
lda S.PFT.SYSCALL getback #SYSCALL
|
|
|
|
|
sec
|
|
|
|
|
sbc #SYS.FOPEN-4 0=Lib.load, 2=Lib.Unload
|
|
|
|
|
tax
|
|
|
|
|
|
2016-08-24 15:42:33 +00:00
|
|
|
|
pla discard JSR return @
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
>LDYA ZPQuickPtr1 restore passed params
|
|
|
|
|
.3 jmp $ffff
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.8 lda ZPQuickPtr2
|
|
|
|
|
clc
|
|
|
|
|
adc (ZPQuickPtr2) Add STR len
|
2016-08-26 15:10:38 +00:00
|
|
|
|
adc #S.PFT
|
2016-08-24 15:42:33 +00:00
|
|
|
|
sta ZPQuickPtr2
|
2016-08-26 15:10:38 +00:00
|
|
|
|
bcc .1
|
2016-08-24 15:42:33 +00:00
|
|
|
|
|
2016-08-26 15:10:38 +00:00
|
|
|
|
.9 >LDYA ZPQuickPtr1 restore passed params
|
|
|
|
|
ldx S.PFT.SYSCALL
|
2016-08-24 15:42:33 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-09-29 15:30:15 +00:00
|
|
|
|
* PFT.Check___
|
2016-09-26 16:00:52 +00:00
|
|
|
|
* In :
|
|
|
|
|
* PULLB/A = hFILE/hDIR
|
|
|
|
|
* Out :
|
2016-08-24 15:42:33 +00:00
|
|
|
|
*--------------------------------------
|
2016-12-09 16:36:24 +00:00
|
|
|
|
PFT.CheckNodeSTK
|
2016-08-26 15:10:38 +00:00
|
|
|
|
lda (pStack) read hFILE on top of stack
|
2016-12-09 16:36:24 +00:00
|
|
|
|
PFT.CheckNodeA stx S.PFT.SYSCALL save #SYSCALL
|
2016-08-29 15:12:04 +00:00
|
|
|
|
sta S.PFT.hFILE
|
2016-09-21 15:20:37 +00:00
|
|
|
|
jsr K.GetMemPtrA X = unmidified
|
2016-08-29 15:12:04 +00:00
|
|
|
|
>STYA ZPQuickPtr1
|
|
|
|
|
lda (ZPQuickPtr1)
|
|
|
|
|
beq .9 Handler is 0, back to kernel....
|
|
|
|
|
|
2016-09-21 15:20:37 +00:00
|
|
|
|
jsr K.GetMemPtrA
|
2016-08-29 15:12:04 +00:00
|
|
|
|
>STYA .1+1
|
|
|
|
|
|
|
|
|
|
lda S.PFT.SYSCALL getback #SYSCALL
|
|
|
|
|
sec
|
|
|
|
|
sbc #SYS.FOPEN-4 0=Lib.load, 2=Lib.Unload
|
|
|
|
|
tax
|
2016-08-24 15:42:33 +00:00
|
|
|
|
|
2016-08-29 15:12:04 +00:00
|
|
|
|
pla discard JSR return @
|
|
|
|
|
pla
|
2016-08-24 15:42:33 +00:00
|
|
|
|
|
2016-08-29 15:12:04 +00:00
|
|
|
|
lda S.PFT.hFILE restore passed params
|
|
|
|
|
.1 jmp $ffff
|
2016-08-24 15:42:33 +00:00
|
|
|
|
|
2016-08-29 15:12:04 +00:00
|
|
|
|
|
|
|
|
|
.9 lda S.PFT.hFILE
|
2016-08-24 15:42:33 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-08-29 15:12:04 +00:00
|
|
|
|
S.PFT.hFILE .BS 1
|
2016-08-26 15:10:38 +00:00
|
|
|
|
S.PFT.SYSCALL .BS 1
|
2016-08-24 15:42:33 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE SYS/KERNEL.S.PFT
|
|
|
|
|
LOAD SYS/KERNEL.S
|
|
|
|
|
ASM
|