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

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-05-09 17:23:19 +02:00
parent c061f48838
commit 8b4384f68d
2 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

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

@ -811,7 +811,62 @@ PrintF.COut phy
K.FGetS jsr PFT.CheckNodeA K.FGetS jsr PFT.CheckNodeA
bcs .9 bcs .9
lda (pFD)
bne K.FGetS.Special
lda (pStack) lda (pStack)
* clc
sbc #0
sta ZPPtr2 s-1
ldy #1
lda (pStack),y
sbc #0
sta ZPPtr2+1 s-1
iny
lda (pStack),y n-1
* clc
sbc #0
sta (pStack),y
iny
lda (pStack),y n-1
sbc #0
sta (pStack),y
jsr IO.READ.REG
bcs .9
pha
tya
* clc
adc ZPPtr2
sta ZPPtr2
pla
adc ZPPtr2+1
sta ZPPtr2+1
lda (ZPPtr2)
cmp #C.CR
beq .8
inc ZPPtr2
bne .8
inc ZPPtr2+1
.8 lda #0
sta (ZPPtr2) terminate string
clc
.9 rts
*--------------------------------------
K.FGetS.Special lda (pStack)
sta ZPPtr2 s sta ZPPtr2 s
ldy #1 ldy #1