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