Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-05 18:29:37 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-08-30 17:16:58 +02:00
parent d2ce5eef6b
commit bc535424f7
5 changed files with 65 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
BIN/CSH.S.CORE.txt
View File

@ -1140,8 +1140,7 @@ CSH.IsDigit10 cmp #'0'
*--------------------------------------
* EXEC
*--------------------------------------
EXEC.printf >PULLYA
>SYSCALL printf
EXEC.printf >SYSCALL printf2
rts
*--------------------------------------
EXEC.puts >PULLYA

2
INC/A2osX.I.txt
View File

@ -207,7 +207,7 @@ SYS.MKDev .EQ $4E
* .EQ $50
SYS.SScanF .EQ $52
* .EQ $54
* .EQ $56
SYS.PrintF2 .EQ $56
SYS.PrintF .EQ $58
SYS.SPrintF .EQ $5A
SYS.FPrintF .EQ $5C

2
SYS/KERNEL.S.JMP.txt
View File

@ -53,7 +53,7 @@ K.SYSCALL .DA 0 $00
.DA 0 $50
.DA K.SScanF
.DA 0
.DA 0
.DA K.PrintF2
.DA K.PrintF
.DA K.SPrintF
.DA K.FPrintF

6
SYS/KERNEL.S.SHARED.txt
View File

@ -155,11 +155,7 @@ SHARED.NextCharPtr2
.8 rts
*--------------------------------------
SHARED.PullYA sta CLRREADAUX
lda (pStack)
tay
inc pStack
lda (pStack)
inc pStack
>PULLYA
sta SETREADAUX
rts
*--------------------------------------

61
SYS/KERNEL.S.STDIO.txt
View File

@ -238,6 +238,67 @@ PrintF.Cnt .BS 2
PrintF.hFILE .BS 1
.ED
*--------------------------------------
* `int printf2 ( const char * format, ... );`
* `>PUSHBI 2` #bytecount
* `>PUSHWI format`
* `>PUSHW IntValue`
* `...`
* `>SYSCALL printf2`
*--------------------------------------
K.PrintF2 lda (pStack) Bytecount
inc
tay
lda (pStack),y format LO
sta ZPPtr2
iny
lda (pStack),y format HI
sta ZPPtr2+1
ldy #S.PS.hStdOut
lda (pPs),y
sta PrintF.hFILE
>LDYAI K.IOBuf
>STYA pIOBuf
K.FPrintf2 lda (pStack) Bytecount
inc
tay
lda (pStack),y format LO
sta ZPPtr2
iny
lda (pStack),y format HI
sta ZPPtr2+1
iny
lda (pStack),y hFILE
sta PrintF.hFILE
>LDYAI K.IOBuf
>STYA pIOBuf
K.SPrintf2 lda (pStack) Bytecount
inc
tay
lda (pStack),y format LO
sta ZPPtr2
iny
lda (pStack),y format HI
sta ZPPtr2+1
stz PrintF.hFILE
iny
lda (pStack),y str LO
sta pIOBuf
iny
lda (pStack),y str HI
sta pIOBuf+1
*--------------------------------------
K.PrintF.GetFormat
lda (pStack)
sta ZPPtr2