mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-20 03:31:42 +00:00
Kernel 0.93
This commit is contained in:
parent
a7585c2417
commit
a5520bfd87
@ -340,7 +340,13 @@ CS.RUN ldy #S.PS.hStdIn
|
||||
.2 jsr SRC.ParseLine
|
||||
bcs .9
|
||||
|
||||
jsr OUT.PrintLine
|
||||
>LDA.G SRC.LINENUM
|
||||
cmp #76
|
||||
bne .23
|
||||
|
||||
>DEBUG
|
||||
|
||||
.23 jsr OUT.PrintLine
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
|
@ -378,11 +378,14 @@ CMD.ECHO stz ZPPtr1 echo -N
|
||||
rts
|
||||
|
||||
.8 clc
|
||||
.9 rts
|
||||
rts
|
||||
|
||||
.99 lda #E.CSYN
|
||||
sec
|
||||
rts
|
||||
|
||||
.9 >DEBUG
|
||||
rts
|
||||
*--------------------------------------
|
||||
CMD.GETKEY lda (ZPArgVBufPtr)
|
||||
beq .99
|
||||
|
@ -247,9 +247,13 @@ K.PrintF.1 stz PrintF.Cnt
|
||||
lda #' '
|
||||
sta K.PrintF.PadC
|
||||
|
||||
.2 ldx #PrintFTBL1.Cnt-1
|
||||
jsr MEM.GetCharPtr1
|
||||
ldy #0
|
||||
|
||||
.2 lda (ZPPtr1),y
|
||||
beq .99
|
||||
iny
|
||||
|
||||
ldx #PrintFTBL1.Cnt-1
|
||||
|
||||
.3 cmp PrintFTBL1,x do we have a %x command?
|
||||
beq .6 yes, jmp to it!
|
||||
@ -281,7 +285,10 @@ K.PrintF.1 stz PrintF.Cnt
|
||||
pla get back digit
|
||||
adc K.PrintF.PadL
|
||||
sta K.PrintF.PadL
|
||||
bra .2 go get next char...
|
||||
|
||||
iny
|
||||
cpy #3
|
||||
bne .2 go get next char...
|
||||
|
||||
.6 txa
|
||||
asl
|
||||
|
Loading…
Reference in New Issue
Block a user