diff --git a/INC/A2osX.I.txt b/INC/A2osX.I.txt index 6463ce45..e15edc20 100644 --- a/INC/A2osX.I.txt +++ b/INC/A2osX.I.txt @@ -269,6 +269,12 @@ SYS.DecOutYA .EQ $DE *SYS.FPUTS .EQ $F6 *-------------------------------------- SYS.FOPEN .EQ $E0 +SYS.FOPEN.R .EQ $01 Open For Read +SYS.FOPEN.W .EQ $02 Open For Write +SYS.FOPEN.A .EQ $04 Append +SYS.FOPEN.T .EQ $08 Open/Append in Text mode +SYS.FOPEN.X .EQ $80 Create if not exists + SYS.FCLOSE .EQ $E2 SYS.FREAD .EQ $E4 SYS.FWRITE .EQ $E6 @@ -284,7 +290,7 @@ SYS.OPENDIRYA .EQ $F4 SYS.READDIRYA .EQ $F6 SYS.CLOSEDIRYA .EQ $F8 -SYS.MKDIR .EQ $FA +SYS.MKDIRYA .EQ $FA SYS.MKNOD .EQ $FC SYS.MKFIFO .EQ $FE *-------------------------------------- @@ -544,7 +550,10 @@ S.FILE.TYPE.LNK .EQ 5 S.FILE.TYPE.SOCK .EQ 6 S.FILE.TYPE.FIFO .EQ 7 -S.FILE.DATA .EQ 16 64 byte opaque data (for NFSv3) +S.FILE.PRODOS.REF .EQ 2 +S.FILE.PRODOS.IOBUF .EQ 3 +* +S.FILE.PRODOS .EQ 4 * * no S.FILE,Variable size *-------------------------------------- @@ -552,18 +561,21 @@ S.FILE.DATA .EQ 16 64 byte opaque data (for NFSv3) *-------------------------------------- S.DIR.HANDLER .EQ 0 S.DIR.INO .EQ 1 -S.DIR.PATH .EQ 2 -* +S.DIR.PATH .EQ 2 PSTR * no S.DIR *-------------------------------------- * S.DIRENT for ReadDir *-------------------------------------- S.DIRENT S.DIRENT.STAT .EQ 0 -S.DIRENT.NAME .EQ S.STAT -S.DIRENT +S.DIRENT.NAME .EQ S.STAT PSTR +* no S.DIRENT,Variable size *-------------------------------------- -S.PFILTER +S.PFT.PATH .EQ 0 +S.PFT.HANDLER .EQ 23 +S.PFT.DATA .EQ 24 8 bytes OPAQUE data for handler +* +S.PFT .EQ 32 *-------------------------------------- MAN SAVE INC/A2OSX.I diff --git a/SYS/KERNEL.S.FIL.txt b/SYS/KERNEL.S.FIL.txt new file mode 100644 index 00000000..4e573269 --- /dev/null +++ b/SYS/KERNEL.S.FIL.txt @@ -0,0 +1,167 @@ +PR#3 +PREFIX /A2OSX.SRC +NEW +INC 1 +AUTO 6 + .LIST OFF +*-------------------------------------- +* For All SYS.xxxx calls, X = #SYSCall +* Must be kept in X before calling +* S.PFTCheckPathXX +*-------------------------------------- +* S.FOPEN +* In : +* PULLW = PATH (PSTR) +* PULLB = MODE +* Out : +* CC : A = hFILE +* CS : A = EC +*-------------------------------------- +S.FOPEN jsr S.PFTCHECKPATHSTK + >PULLW MLICALL.PARAMS+1 + >PULLB S.FOPEN.MODE + + >PUSHWI S.FILE.PRODOS + >PUSHBI S.MEM.F.INIT0 + jsr S.GetMem + bcs .99 + >STYA ZPQuickPtr1 + stx hFILE + + >PUSHWI 1024 get a ProDOS IOBUF + >PUSHBI S.MEM.F.ALIGN+S.MEM.F.NOMOVE + jsr S.GetMem + bcs .99 + + >STYA MLICALL.PARAMS+3 Save Ptr to IOBUF for MLIOPEN call + txa + ldy #S.FILE.PRODOS.IOBUF + sta (ZPQuickPtr1),y + + >MLICALL MLIOPEN + bcc .1 Failed... + bit S.FOPEN.MODE Create if not exists? + bpl .98 no....error + + +.1 lda MLICALL.PARAMS+5 get ref_num + ldy #S.FILE.PRODOS.REF + sta (ZPQuickPtr1),y + + lda S.FOPEN.MODE + bit #SYS.FOPEN.A + beq .1 + + + + +.1 + lda hFILE + clc + rts CC + +.98 pha save MLI error + jsr S.FCLOSEA.1 + pla get back MLI error + sec +.99 rts +*-------------------------------------- +S.FOPEN.MODE .BS 1 +hFILE .BS 1 +*-------------------------------------- +* S.FCLOSEA +* In : +* A = hFILE +*-------------------------------------- +S.FCLOSEA jsr S.PFTCHECKFILEA + jsr S.GetMemPtrA + >STYA ZPQuickPtr1 + +S.FCLOSEA.1 ldy #S.FILE.PRODOS.REF + lda (ZPQuickPtr1),y + beq .1 + sta MLICALL.PARAMS+1 + >MLICALL MLICLOSE + +.1 ldy #S.FILE.PRODOS.IOBUF + lda (ZPQuickPtr1),y + beq .2 + jsr S.FreeMemA + +.2 lda hFILE + jsr S.FreeMemA + rts +*-------------------------------------- +* S.FREAD +* In : +* PULLB = hFILE +* PULLW = Bytes To Read +* PULLW = Dest Ptr +* Out : +* Y,A = Bytes Read +*-------------------------------------- +S.FREAD jsr S.PFTCHECKFILESTK + >PULLB MLICALL.PARAMS+1 + >PULLW MLICALL.PARAMS+4 + >PULLW MLICALL.PARAMS+2 + >MLICALL MLIREAD + bcs .9 + >LDYA MLICALL.PARAMS+6 +.9 rts +*-------------------------------------- +* S.FWRITE +* In : +* PULLB = hFILE +* PULLW = Bytes To Write +* PULLW = Src Ptr +* Out : +* Y,A = Bytes Written +*-------------------------------------- +S.FWRITE jsr S.PFTCHECKFILESTK + >PULLB MLICALL.PARAMS+1 + >PULLW MLICALL.PARAMS+4 + >PULLW MLICALL.PARAMS+2 + >MLICALL MLIWRITE + bcs .9 + >LDYA MLICALL.PARAMS+6 +.9 rts +*-------------------------------------- +* S.FFLUSHA +* In : +* A = hFILE +*-------------------------------------- +S.FFLUSHA jsr S.PFTCHECKFILEA + sta MLICALL.PARAMS+1 + >MLICALL MLIFLUSH + rts +*-------------------------------------- +*-------------------------------------- +S.FSEEK +*-------------------------------------- +*-------------------------------------- +S.FTELL +*-------------------------------------- +*-------------------------------------- +S.FEOF +*-------------------------------------- +*-------------------------------------- +S.REMOVE +*-------------------------------------- +*-------------------------------------- +S.RENAME +*-------------------------------------- +S.MKDIRYA jsr S.PFTCHECKPATHYA + >STYA MLICALL.PARAMS+1 + lda #$C3 + sta MLICALL.PARAMS+3 Access + lda #$0F + sta MLICALL.PARAMS+4 type=Directory + lda #$0D Storage=Linked List + sta MLICALL.PARAMS+7 + >MLICALL MLICREATE + rts +*-------------------------------------- +MAN +SAVE SYS/KERNEL.S.FIL +LOAD SYS/KERNEL.S +ASM diff --git a/SYS/KERNEL.S.PFT.txt b/SYS/KERNEL.S.PFT.txt index a5d2d4c8..df01ffd5 100644 --- a/SYS/KERNEL.S.PFT.txt +++ b/SYS/KERNEL.S.PFT.txt @@ -11,8 +11,14 @@ AUTO 6 * CC : * CS : A = EC *-------------------------------------- +S.PFTCHECKPATHSTK + lda (pStack) read PTR.LO on top of stack + pha + ldy #1 + lda (pStack),y read PTR.HI on top of stack + ply S.PFTCHECKPATHYA - phx save #SYSCALL + stx S.PFT.SYSCALL save #SYSCALL >STYA ZPQuickPtr1 >LDYA FltMgr.Table @@ -31,15 +37,16 @@ S.PFTCHECKPATHYA dey bne .2 - lda (ZPQuickPtr2) get len again - tay - iny + ldy #S.S.PFT.HANDLER lda (ZPQuickPtr2),y get hLib jsr S.GetMemPtrA >STYA .3+1 - pla getback #SYSCALL - + lda S.PFT.SYSCALL getback #SYSCALL + sec + sbc #SYS.FOPEN-4 0=Lib.load, 2=Lib.Unload + tax + pla discard JSR return @ pla @@ -50,21 +57,24 @@ S.PFTCHECKPATHYA .8 lda ZPQuickPtr2 clc adc (ZPQuickPtr2) Add STR len - adc #2 skip hMem & XOffset + adc #S.PFT sta ZPQuickPtr2 - bcc .1 always + bcc .1 - -.9 plx restore X from Stack +.9 >LDYA ZPQuickPtr1 restore passed params + ldx S.PFT.SYSCALL rts *-------------------------------------- * In : -* Y,A = PTR to S.DIR +* PUSHB/A = hFILE * Out : * CC : Y,A = PTR to S.DIRENT * CS : A = EC *-------------------------------------- -S.PFTCHECKFILEYA +S.PFTCHECKFILESTK + lda (pStack) read hFILE on top of stack +S.PFTCHECKFILEA + jsr GetMemPtrA X = unmidified .8 clc rts @@ -73,14 +83,14 @@ S.PFTCHECKFILEYA rts *-------------------------------------- * In : -* Y,A = PTR to S.FILE +* hDIR *-------------------------------------- -S.PFTCHECKDIRYA +S.PFTCHECKDIRA lda (pStack) read hDIR on top of stack rts *-------------------------------------- - +S.PFT.SYSCALL .BS 1 *-------------------------------------- MAN SAVE SYS/KERNEL.S.PFT