mirror of
https://github.com/A2osX/A2osX.git
synced 2025-01-11 10:29:46 +00:00
Kernel 0.93
This commit is contained in:
parent
a9f8d4ee0c
commit
b8dda73b1b
Binary file not shown.
@ -410,7 +410,7 @@ PrintF.LocalCleanUp.RTS
|
||||
PrintF.LocalGetPtr
|
||||
jsr PrintF.LocalGetByte
|
||||
bcs PrintF.LocalCleanUp.RTS
|
||||
tax
|
||||
tay
|
||||
*--------------------------------------
|
||||
PrintF.LocalGetByte
|
||||
lda #$FF SELF MODIFIED LStack Ptr
|
||||
@ -591,16 +591,19 @@ PrintF.S ldy #$ff CSTR
|
||||
.HS 2C bit abs
|
||||
PrintF.SS ldy #$00 PSTR
|
||||
|
||||
sty .1+1
|
||||
|
||||
jsr PrintF.LocalGetPtr
|
||||
bcs .9
|
||||
stx ZPPtr1
|
||||
|
||||
sty ZPPtr1
|
||||
sta ZPPtr1+1
|
||||
|
||||
lda (ZPPtr1) if CSTR:last char=0, if PSTR:len=0
|
||||
beq .8
|
||||
|
||||
sty .1+1
|
||||
|
||||
ldy .1+1
|
||||
|
||||
.1 lda #$ff Self Modified
|
||||
bne .11 CSTR
|
||||
|
||||
@ -910,7 +913,7 @@ K.SScanF jsr MEM.SPtr2PPtr1 ptr2=String to Scan,Ptr1=format
|
||||
|
||||
.4 jsr PrintF.LocalGetPtr
|
||||
bcs .9
|
||||
stx ZPPtr3
|
||||
sty ZPPtr3
|
||||
sta ZPPtr3+1
|
||||
|
||||
jsr .5
|
||||
|
Loading…
x
Reference in New Issue
Block a user