From a5520bfd87b4b940afb6f241de7dabc12a481950 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Mon, 25 Mar 2019 16:51:51 +0000 Subject: [PATCH] Kernel 0.93 --- BIN/ASM.S.txt | 8 +++++++- BIN/SH.S.CMD.txt | 5 ++++- SYS/KERNEL.S.STDIO.txt | 13 ++++++++++--- 3 files changed, 21 insertions(+), 5 deletions(-) diff --git a/BIN/ASM.S.txt b/BIN/ASM.S.txt index ab34552b..953f21b2 100644 --- a/BIN/ASM.S.txt +++ b/BIN/ASM.S.txt @@ -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 diff --git a/BIN/SH.S.CMD.txt b/BIN/SH.S.CMD.txt index f27161d0..9e7e57d3 100644 --- a/BIN/SH.S.CMD.txt +++ b/BIN/SH.S.CMD.txt @@ -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 diff --git a/SYS/KERNEL.S.STDIO.txt b/SYS/KERNEL.S.STDIO.txt index 553c8803..6127e663 100644 --- a/SYS/KERNEL.S.STDIO.txt +++ b/SYS/KERNEL.S.STDIO.txt @@ -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