Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Added MLI Create File (EDIT)

Browse Source
This commit is contained in:
Rémy GIBERT 2016-01-06 23:05:12 +01:00
parent 5246249b79
commit 4acc9d08a6
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
SYS/KERNEL.S.MLI.txt
View File

@ -7,7 +7,13 @@ AUTO 6
*-------------------------------------- *--------------------------------------
* PUBLIC * PUBLIC
*-------------------------------------- *--------------------------------------
S.MLICreateFile S.MLICreateFile >PULLW MLICALL.PARAMS+1
>PULLB MLICALL.PARAMS+3 Access
>PULLB MLICALL.PARAMS+4 File type
>PULLW MLICALL.PARAMS+5 Aux type
lda #$01
sta MLICALL.PARAMS+7 Storage=Standard Files
>MLICALL MLICREATE
clc clc
rts rts
*-------------------------------------- *--------------------------------------
@ -20,7 +26,6 @@ S.MLICreateDirYA
sta MLICALL.PARAMS+4 type=Directory sta MLICALL.PARAMS+4 type=Directory
lda #$0D lda #$0D
sta MLICALL.PARAMS+7 Storage=Linked List sta MLICALL.PARAMS+7 Storage=Linked List
>MLICALL MLICREATE >MLICALL MLICREATE
rts rts
*-------------------------------------- *--------------------------------------
@ -134,8 +139,8 @@ S.MLIRead >PULLB MLICALL.PARAMS+1
* S.MLIWrite * S.MLIWrite
* in : * in :
* PULLB = ref_num * PULLB = ref_num
* PULLW = Dest PTR * PULLW = Src PTR
* PULLW = Bytes To Read * PULLW = Bytes To Write
* out : * out :
* Y,A = Bytes Written * Y,A = Bytes Written
*-------------------------------------- *--------------------------------------