Kernel 0.92

This commit is contained in:
Rémy GIBERT 2018-11-19 22:13:55 +01:00
parent ca68eb6772
commit d62a6b1a8e
3 changed files with 6 additions and 13 deletions

Binary file not shown.

View File

@ -105,6 +105,8 @@ PFT.CheckNodeA stx .80+1 Save SYSCALL #
lda OF.Table.hFD,x
beq .9
sta IO.hFD
jsr K.GetMemPtr
>STYA pFD

View File

@ -43,8 +43,6 @@ K.PutChar >PUSHA
K.FPutC jsr PFT.CheckNodeA
bcs K.FPutC.9
sta IO.hFD
>PULLB K.IOBuf
ldy #1
@ -97,11 +95,9 @@ K.PutS.RTS rts
* ## RETURN VALUE
* CC = success
*\--------------------------------------
K.FPutS jsr PFT.CheckNodeA
K.FPutS jsr PFT.CheckNodeA set IO.hFD
bcs .9
sta IO.hFD
>PULLYA Get String
>STYA ZPPtr2 Save Buffer
>SYSCALL strlen Get String len in Y,A
@ -187,7 +183,7 @@ K.PrintF >STYA ZPPtr1 format
ldy #S.PS.hStdOut
lda (pPs),y
K.PrintF.0 sta IO.hFD
K.PrintF.0 sta PrintF.hFILE
>LDYAI K.IOBuf
>STYA pIOBuf
@ -671,13 +667,14 @@ PrintF.COut phy
PrintF.Flush >PUSHW PrintF.Cnt
>PUSHWI K.IOBuf
lda IO.hFD
lda PrintF.hFILE
jsr PFT.CheckNodeA
bcs .9
jmp IO.Write.I
.9 >RET 4
*--------------------------------------
PrintF.hFILE .BS 1
PrintF.Cnt .BS 2
*/--------------------------------------
* # FGetS
@ -771,8 +768,6 @@ K.GetChar ldy #S.PS.hStdIn
K.GetC jsr PFT.CheckNodeA
bcs K.GetC.9
sta IO.hFD
K.GetC.I >PUSHWI 1
>PUSHWI K.IOBuf
@ -1052,8 +1047,6 @@ K.FClose.RTS rts
K.FRead jsr PFT.CheckNodeA
bcs K.Write.9
sta IO.hFD
jmp IO.Read.I
*/--------------------------------------
* # FWrite
@ -1072,8 +1065,6 @@ K.FRead jsr PFT.CheckNodeA
K.FWrite jsr PFT.CheckNodeA
bcs K.Write.9
sta IO.hFD
jmp IO.Write.I
K.Write.9 >RET 4
*/--------------------------------------