mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-05 23:30:15 +00:00
Kernel 0.92
This commit is contained in:
parent
ca68eb6772
commit
d62a6b1a8e
Binary file not shown.
@ -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
|
||||
|
||||
|
@ -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
|
||||
*/--------------------------------------
|
||||
|
Loading…
x
Reference in New Issue
Block a user