2016-08-24 15:42:33 +00:00
|
|
|
|
PR#3
|
|
|
|
|
PREFIX /A2OSX.SRC
|
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* In :
|
|
|
|
|
* X = #SYSCall
|
|
|
|
|
* Y,A = PATH (PSTR)
|
|
|
|
|
* Out :
|
|
|
|
|
* CC : Y,A = PTR to S.DIR
|
|
|
|
|
* CS : A = EC
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.OPENDIRYA jsr S.PFTCHECKPATHYA
|
2016-08-28 20:48:01 +00:00
|
|
|
|
* if we are here, we only have to deal with Local ProDOS path
|
|
|
|
|
|
2016-08-24 15:42:33 +00:00
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* In :
|
|
|
|
|
* Y,A = PTR to S.DIR
|
|
|
|
|
* Out :
|
|
|
|
|
* CC : Y,A = PTR to S.DIRENT
|
|
|
|
|
* CS : A = EC
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.READDIRYA
|
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 sec
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* In :
|
|
|
|
|
* Y,A = PTR to S.DIR
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
S.CLOSEDIRYA
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE SYS/KERNEL.S.DIR
|
|
|
|
|
LOAD SYS/KERNEL.S
|
|
|
|
|
ASM
|