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

View File

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

View File

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