mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-14 13:29:02 +00:00
49 lines
822 B
Plaintext
49 lines
822 B
Plaintext
|
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
|
|||
|
|
* if
|
|||
|
|
|
|||
|
|
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
|