Kernel 0.93

This commit is contained in:
Rémy GIBERT 2019-03-25 16:51:51 +00:00
parent a7585c2417
commit a5520bfd87
3 changed files with 21 additions and 5 deletions

View File

@ -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

View File

@ -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

View File

@ -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