diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 95e64c1e..83db7765 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BIN/ASM.S.DIR.txt b/BIN/ASM.S.DIR.txt index a851d848..8217b0e8 100644 --- a/BIN/ASM.S.DIR.txt +++ b/BIN/ASM.S.DIR.txt @@ -84,7 +84,7 @@ DIR.AZ jsr DIR.AS jmp OUT.EmitByte .9 rts *--------------------------------------- -DIR.BS jsr SRC.GetNextCharNB +DIR.BS jsr SRC.GetNextCharNB bcs .98 jsr EXP.Eval @@ -140,7 +140,7 @@ DIR.BS jsr SRC.GetNextCharNB sec rts *--------------------------------------- -DIR.DA jsr SRC.GetNextCharNB +DIR.DA jsr SRC.GetNextCharNB bcs .98 .1 jsr EXP.Eval @@ -307,7 +307,7 @@ DIR.EQ clc jsr SYM.Acc2Global jmp SYM.StoreGlobal -.2 lda (ZPGlobalBuf) PASS#2 +.2 lda (ZPSymbolBuf) PASS#2 and #SYMG.F.FWREF beq .3 @@ -318,7 +318,7 @@ DIR.EQ clc .3 ldy #SYMG-1 copy back value for OUT.Print -.4 lda (ZPGlobalBuf),y +.4 lda (ZPSymbolBuf),y sta SRC.ACC.F,y dey bpl .4 @@ -348,7 +348,7 @@ DIR.FI ldy #ASM.DO.StackPtr sec rts *--------------------------------------- -DIR.HS jsr SRC.GetNextCharNB +DIR.HS jsr SRC.GetNextCharNB bcs .99 jsr SRC.IsDigit16 @@ -416,7 +416,7 @@ DIR.HS jsr SRC.GetNextCharNB .8 clc rts *--------------------------------------- -DIR.IN jsr SRC.GetNextCharNB +DIR.IN jsr SRC.GetNextCharNB bcs .9 >LDYA ZPLinePtr @@ -440,7 +440,7 @@ DIR.IN jsr SRC.GetNextCharNB sec rts *--------------------------------------- -DIR.LI jsr SRC.GetNextChar +DIR.LI jsr SRC.GetNextChar bcs .9 >LDYA L.T.LI @@ -513,10 +513,10 @@ DIR.MA >LDA.G ASM.MA.ON beq DIR.OP.SYNERR >PUSHW ZPLinePtr - >LDA.G MAC.hMacroList + >LDA.G MAC.hList >SYSCALL SListNewKey bcs .99 - >STYA.G MAC.MacroID + >STYA.G MAC.ID .8 lda #$ff >STA.G ASM.MA.ON diff --git a/BIN/ASM.S.EXP.txt b/BIN/ASM.S.EXP.txt index cf1ad261..061f07a7 100644 --- a/BIN/ASM.S.EXP.txt +++ b/BIN/ASM.S.EXP.txt @@ -79,7 +79,7 @@ EXP.Eval.Next stz SRC.ACC.F jsr SRC.GetDecimal bcs EXP.EvalExitRTS - bra EXP.EvalOperator + jmp EXP.EvalOperator .1 cmp #'$' Hex? bne .2 @@ -115,8 +115,12 @@ EXP.Eval.Next stz SRC.ACC.F jsr SRC.GetNextChar bcs EXP.EvalOperator cmp #''' + beq .44 + cmp #',' bne EXP.EvalExitSYN - jsr SRC.GetNextChar + bra EXP.EvalOperator + +.44 jsr SRC.GetNextChar bra EXP.EvalOperator .43 cmp #'"' @@ -128,8 +132,12 @@ EXP.Eval.Next stz SRC.ACC.F jsr SRC.GetNextChar bcs EXP.EvalOperator cmp #'"' + beq .45 + cmp #',' bne EXP.EvalExitSYN - jsr SRC.GetNextChar + bra EXP.EvalOperator + +.45 jsr SRC.GetNextChar bra EXP.EvalOperator .42 jsr SRC.IsLetter Symbol ? @@ -205,7 +213,7 @@ EXP.GetLocal jsr SRC.GetNextChar bne EXP.EvalExitUND lda #SYMG.F.FWREF Mark ACC as pending - tsb SRC.ACC.F + sta SRC.ACC.F stz SRC.ACC.SIZE clc @@ -216,13 +224,13 @@ EXP.GetLocal jsr SRC.GetNextChar .8 rts *--------------------------------------- EXP.GetGlobal jsr SYM.LookupGlobal - bcc .2 + bcc .8 >LDA.G ASM.PASS pass#2? bne EXP.EvalExitUND yes, undefined symbol lda #SYMG.F.FWREF - tsb SRC.ACC.F Mark ACC as pending + sta SRC.ACC.F Mark ACC as pending stz SRC.ACC.SIZE .1 jsr SRC.GetNextChar @@ -235,13 +243,8 @@ EXP.GetGlobal jsr SYM.LookupGlobal cmp #'_' beq .1 - clc - rts - -.2 - .8 clc - rts + rts *--------------------------------------- EXP.MOD.8.3 lda SRC.ACC+2 bra EXP.MOD.8 diff --git a/BIN/ASM.S.FIO.txt b/BIN/ASM.S.FIO.txt index 69e5c323..4b05fe7d 100644 --- a/BIN/ASM.S.FIO.txt +++ b/BIN/ASM.S.FIO.txt @@ -181,10 +181,7 @@ FIO.OpenFile >STYA ZPPtr1 sec .99 rts *--------------------------------------- -FIO.ReadLine >LDYA ZPLineBuf - >STYA ZPLinePtr - - ldy #SRC.COUNT +FIO.ReadLine ldy #SRC.COUNT lda (pData),y clc adc #SRC.hFILETYPES-1 diff --git a/BIN/ASM.S.MAC.txt b/BIN/ASM.S.MAC.txt index ce74ac39..6e204bc7 100644 --- a/BIN/ASM.S.MAC.txt +++ b/BIN/ASM.S.MAC.txt @@ -5,7 +5,7 @@ AUTO 4,1 MAC.Init >SYSCALL SListNew bcs .9 - >STA.G MAC.hMacroList + >STA.G MAC.hList >LDYAI 256 >SYSCALL getmem @@ -13,43 +13,32 @@ MAC.Init >SYSCALL SListNew >STYA ZPMacroBuf txa - >STA.G MAC.hMacroBuf + >STA.G MAC.hBuf - >SYSCALL SListNew - bcs .9 - - >STA.G MAC.hCtxList - >LDYAI 256 >SYSCALL getmem bcs .9 - >STYA ZPCtxBuf + >STYA ZPMacroStk txa - >STA.G MAC.hCtxBuf + >STA.G MAC.hStk .9 rts *--------------------------------------- -MAC.Reset >STZ.G MAC.CtxID - iny - sta (pData),y +MAC.Reset >STZ.G MAC.StkPtr rts *--------------------------------------- -MAC.Quit >LDA.G MAC.hCtxBuf +MAC.Quit >LDA.G MAC.hStk beq .1 >SYSCALL FreeMem -.1 >LDA.G MAC.hCtxList - beq .2 - >SYSCALL SListFree - -.2 >LDA.G MAC.hMacroBuf +.1 >LDA.G MAC.hBuf beq .3 >SYSCALL FreeMem -.3 >LDA.G MAC.hMacroList +.3 >LDA.G MAC.hList beq .8 >SYSCALL SListFree @@ -77,8 +66,8 @@ MAC.AddChar tax >PUSHYA >PUSHW ZPMacroBuf - >PUSHW.G MAC.MacroID - >LDA.G MAC.hMacroList + >PUSHW.G MAC.ID + >LDA.G MAC.hList >SYSCALL SListAddData rts @@ -86,25 +75,55 @@ MAC.AddChar tax rts *--------------------------------------- MAC.Lookup >PUSHW ZPLinePtr - >LDA.G MAC.hMacroList + >LDA.G MAC.hList >SYSCALL SListLookup bcs .9 + + pha txa adc ZPLinePtr sta ZPLinePtr bcc .8 inc ZPLinePtr+1 - clc -.8 rts + clc +.8 pla Y,A = MAC.ID + +.9 rts +*--------------------------------------- +MAC.ReadLine >LDA.G MAC.StkPtr -.9 >DEBUG + tay + dey + dey + dey + + lda (ZPMacroStk),y + + >PUSHA offset + dey + lda (ZPMacroStk),y + >PUSHA + + lda #0 + >PUSHA len = 0 (string mode) + >PUSHA + + >PUSHW ZPLineBuf + >LDA.G MAC.StkPtr + + tay + dey + lda (ZPMacroStk),y + >PUSHA + dey + lda (ZPMacroStk),y + >PUSHA + + >LDA.G MAC.hList + >SYSCALL SListGetData rts *--------------------------------------- -MAC.NewOrGetCtx sec - rts -*--------------------------------------- -*--------------------------------------- MAN SAVE USR/SRC/BIN/ASM.S.MAC LOAD USR/SRC/BIN/ASM.S diff --git a/BIN/ASM.S.OUT.txt b/BIN/ASM.S.OUT.txt index 3c3a3878..659312ac 100644 --- a/BIN/ASM.S.OUT.txt +++ b/BIN/ASM.S.OUT.txt @@ -32,8 +32,8 @@ OUT.Reset ldx #4 rts *--------------------------------------- OUT.PrintLineOn - clc - rts +* clc +* rts >LDA.G ASM.LI.ON bpl .9 diff --git a/BIN/ASM.S.SRC.txt b/BIN/ASM.S.SRC.txt index 9c62b062..38c3216a 100644 --- a/BIN/ASM.S.SRC.txt +++ b/BIN/ASM.S.SRC.txt @@ -205,22 +205,32 @@ SRC.ParseLine.ExecMacro jsr MAC.Lookup bcs .90 - - - - - - - >LDA.G ASM.MA.StackPtr - cmp #MA.MAXDEPTH + >STYA ZPPtr1 MAC.ID + >LDA.G MAC.StkPtr + cmp #MA.MAXDEPTH*4 beq .91 - clc - adc #ASM.MA.StackPtr + tay + lda #0 + sta (ZPMacroStk),y + iny + sta (ZPMacroStk),y + iny -* >INC.G ASM.MA.StackPtr + lda ZPPtr1 + sta (ZPMacroStk),y + iny + + lda ZPPtr1+1 + sta (ZPMacroStk),y + iny + + tya + >STA.G MAC.StkPtr + + clc rts @@ -342,7 +352,7 @@ SRC.ParseLine.AM dex bne .4 - bra .7 + bra .74 .6 jsr EXP.Eval bcs .99 @@ -369,7 +379,8 @@ SRC.ParseLine.AM .71 jsr SRC.AddToBuf dex bne .71 - jsr SRC.GetChar + +.74 jsr SRC.GetChar bcs .8 cmp #C.SPACE diff --git a/BIN/ASM.S.SYM.txt b/BIN/ASM.S.SYM.txt index 8ddaccb9..1544c15b 100644 --- a/BIN/ASM.S.SYM.txt +++ b/BIN/ASM.S.SYM.txt @@ -18,13 +18,13 @@ AUTO 4,1 SYM.Init >SYSCALL SListNew bcs .9 - >STA.G SYM.hGlobalList + >STA.G SYM.hList >LDYAI 256 >SYSCALL getmem bcs .9 - >STYA ZPGlobalBuf + >STYA ZPSymbolBuf txa >STA.G SYM.hGlobalBuf @@ -38,7 +38,7 @@ SYM.Quit >LDA.G SYM.hGlobalBuf >SYSCALL FreeMem -.3 >LDA.G SYM.hGlobalList +.3 >LDA.G SYM.hList beq SYM.Quit.8 >SYSCALL SListFree @@ -65,7 +65,7 @@ SYM.Dump >LDA.G ASM.LI.ON >PUSHW ZPTmpBuf >PUSHW ZPPtr1 - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListGetByID bcs SYM.Dump.End @@ -73,15 +73,15 @@ SYM.Dump >LDA.G ASM.LI.ON >PUSHWI 0 Start >PUSHWI $ffff End - >PUSHW ZPGlobalBuf + >PUSHW ZPSymbolBuf >PUSHW ZPPtr1 KeyID - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListGetData bcs SYM.Dump.RTS ldy #SYMG.SIZE Get Symbol Size - lda (ZPGlobalBuf),y + lda (ZPSymbolBuf),y tax beq .3 @@ -89,7 +89,7 @@ SYM.Dump >LDA.G ASM.LI.ON phx .2 iny - lda (ZPGlobalBuf),y + lda (ZPSymbolBuf),y >PUSHA dex bne .2 @@ -108,22 +108,24 @@ SYM.Dump >LDA.G ASM.LI.ON >LDYA ZPTmpBuf Label >SYSCALL printf - lda (ZPGlobalBuf) + lda (ZPSymbolBuf) bit #SYMG.F.LOCALS beq .7 - + ldy #SYMG -.4 lda (ZPGlobalBuf),y +.4 lda (ZPSymbolBuf),y beq .7 End Local Symbol pha Save ID ldx #4 -.5 iny - lda (ZPGlobalBuf),y + iny Skip Macro ID + +.5 iny + lda (ZPSymbolBuf),y >PUSHA dex bne .5 @@ -135,7 +137,8 @@ SYM.Dump >LDA.G ASM.LI.ON >LDYA L.MSG.LSYMBOL >SYSCALL printf ply - bne .4 + iny + bra .4 .7 >PUSHBI 0 >LDYA L.MSG.CRLF @@ -150,7 +153,7 @@ SYM.NewGlobal jsr SYM.StoreGlobal bcs .99 >PUSHW ZPLinePtr Pass #1; try to add global... - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListNewKey bcs .9 Already Defined >STYA.G SYM.GlobalID @@ -172,7 +175,7 @@ SYM.NewGlobal jsr SYM.StoreGlobal tay lda #0 - sta (ZPGlobalBuf),y + sta (ZPSymbolBuf),y lda #$ff >STA.G SYM.bInGlobal @@ -189,7 +192,7 @@ SYM.NewGlobal jsr SYM.StoreGlobal .99 rts *--------------------------------------- SYM.GetGlobal >PUSHW ZPLinePtr Pass #2: should be already defined... - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListLookup bcs .9 >STYA.G SYM.GlobalID @@ -203,9 +206,9 @@ SYM.GetGlobal >PUSHW ZPLinePtr Pass #2: should be already defined... .1 >PUSHWI 0 Start >PUSHWI $ffff End - >PUSHW ZPGlobalBuf + >PUSHW ZPSymbolBuf >PUSHW.G SYM.GlobalID - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListGetData bcs .99 @@ -220,7 +223,7 @@ SYM.GetGlobal >PUSHW ZPLinePtr Pass #2: should be already defined... *--------------------------------------- SYM.LookupGlobal >PUSHW ZPLinePtr - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListLookup bcs .9 @@ -243,7 +246,7 @@ SYM.LookupGlobal ldy #SYMG-1 -.2 lda (ZPGlobalBuf),y +.2 lda (ZPSymbolBuf),y sta SRC.ACC.F,y dey bpl .2 @@ -255,7 +258,7 @@ SYM.LookupGlobal >PUSHWI SYMG Get only Global value >PUSHW L.SRC.ACC.F >PUSHW ZPPtr1 - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListGetData rts @@ -275,31 +278,21 @@ SYM.StoreGlobal >LDA.G ASM.PASS cpy #SYMG beq .1 - lda (ZPGlobalBuf) + lda (ZPSymbolBuf) ora #SYMG.F.LOCALS - sta (ZPGlobalBuf) + sta (ZPSymbolBuf) lda #0 - sta (ZPGlobalBuf),y + sta (ZPSymbolBuf),y iny bne .1 inc -* phy -* pha -* >PUSHYA -* >PUSHBI 2 -* >LDYA L.MSG.WORD -* >SYSCALL printf -* pla -* ply - .1 >PUSHYA -.2 >PUSHW ZPGlobalBuf + >PUSHW ZPSymbolBuf >PUSHW.G SYM.GlobalID - >LDA.G SYM.hGlobalList -* >DEBUG + >LDA.G SYM.hList >SYSCALL SListAddData bcs .9 @@ -315,7 +308,7 @@ SYM.UpdateGlobal >PUSHWI SYMG >PUSHW L.SRC.ACC.F >PUSHW.G SYM.GlobalID - >LDA.G SYM.hGlobalList + >LDA.G SYM.hList >SYSCALL SListSetData rts *--------------------------------------- @@ -337,7 +330,7 @@ SYM.PC2Acc ldy #ASM.PC+3 SYM.Acc2Global ldy #SYMG-1 .2 lda SRC.ACC.F,y - sta (ZPGlobalBuf),y + sta (ZPSymbolBuf),y dey bpl .2 @@ -345,7 +338,7 @@ SYM.Acc2Global ldy #SYMG-1 *--------------------------------------- * Local Symbol Record: (6 bytes) * 0 : Local ID (1->255) -* 1 : Macro Context ID +* 1 : Macro ID * 2-5 : 32 bits Value (PC) *--------------------------------------- SYM.NewOrGetLocalA @@ -361,7 +354,7 @@ SYM.NewOrGetLocalA bcc .9 Already Defined >LDA.G SYM.GlobalPtr - tay + cmp #252 6*42 beq .90 ldy #ASM.PC+4 @@ -372,30 +365,32 @@ SYM.NewOrGetLocalA cpy #ASM.PC bne .1 + >LDA.G MAC.StkPtr Get Macro Context ID + pha + >LDA.G SYM.GlobalPtr tay txa Get Back ID - sta (ZPGlobalBuf),y - - ldx #4 + sta (ZPSymbolBuf),y + + ldx #5 MAC ID + PC (4) .2 pla iny - sta (ZPGlobalBuf),y + sta (ZPSymbolBuf),y dex bne .2 - - tya + iny lda #0 - sta (ZPGlobalBuf),y + sta (ZPSymbolBuf),y tya >STA.G SYM.GlobalPtr - lda (ZPGlobalBuf) + lda (ZPSymbolBuf) ora #SYMG.F.LOCALS - sta (ZPGlobalBuf) + sta (ZPSymbolBuf) .8 clc rts @@ -412,23 +407,25 @@ SYM.NewOrGetLocalA sec rts *--------------------------------------- -SYM.GetLocalX lda (ZPGlobalBuf) +SYM.GetLocalX lda (ZPSymbolBuf) and #SYMG.F.LOCALS beq .9 ldy #SYMG -.1 lda (ZPGlobalBuf),y +.1 lda (ZPSymbolBuf),y beq .9 txa - cmp (ZPGlobalBuf),y + cmp (ZPSymbolBuf),y bne .3 ldx #0 + + iny Macro ID .2 iny - lda (ZPGlobalBuf),y + lda (ZPSymbolBuf),y sta SRC.ACC,x inx cpx #4 @@ -444,28 +441,12 @@ SYM.GetLocalX lda (ZPGlobalBuf) clc adc #SYML tay - bne .1 + bra .1 .9 lda #E.UNDEF.SYMBOL sec rts *--------------------------------------- -* Private Symbol Record: (9 bytes) -* 0 : Len (8) -* 1 : Flags: -* b7=0=pending,1=resolved -* 2-5 : 32 bits Value (PC) -* 6,7 : MCID (Macro Context ID) -* 8 : Private ID (0->255) -*--------------------------------------- -SYM.AddPrivate - clc - rts -*--------------------------------------- -SYM.LookupPrivate - clc - rts -*--------------------------------------- MAN SAVE USR/SRC/BIN/ASM.S.SYM LOAD USR/SRC/BIN/ASM.S diff --git a/BIN/ASM.S.txt b/BIN/ASM.S.txt index 7eaf9139..203023df 100644 --- a/BIN/ASM.S.txt +++ b/BIN/ASM.S.txt @@ -21,10 +21,10 @@ ZPPtr2 .BS 2 ZPTmpBuf .BS 2 ZPLineBuf .BS 2 ZPLinePtr .BS 2 -ZPGlobalBuf .BS 2 +ZPSymbolBuf .BS 2 ZPMacroBuf .BS 2 -ZPCtxBuf .BS 2 +ZPMacroStk .BS 2 ZPAMPtr .BS 2 ZPRPtr .BS 2 @@ -45,21 +45,17 @@ SYMG.V .EQ 2 SYMG .EQ 6 DWORD *--------------------------------------- SYML.ID .EQ 0 1..255 -SYML.V .EQ 1 DWORD +SYML.MacroID .EQ 1 +SYML.V .EQ 2 DWORD * -SYML .EQ 5 -*--------------------------------------- -MCTX.LEN .EQ 0 -MCTX.PTR .EQ 1 -MCTX.ID .EQ 2 -MCTX.ARGS .EQ 4 +SYML .EQ 6 *--------------------------------------- ASM.T.AM .EQ 0 ASM.T.R .EQ 2 ASM.T.O .EQ 4 *--------------------------------------- DO.MAXDEPTH .EQ 8 -IN.MAXDEPTH .EQ 7 +IN.MAXDEPTH .EQ 4 MA.MAXDEPTH .EQ 8 *--------------------------------------- E.SYNTAX.ERROR .EQ $A0 @@ -309,7 +305,18 @@ CS.RUN ldy #S.PS.hStdIn jsr SYM.Reset jsr MAC.Reset -.10 jsr FIO.ReadLine +.10 >LDYA ZPLineBuf + >STYA ZPLinePtr + + >LDA.G MAC.StkPtr + beq .20 + + jsr MAC.ReadLine + bcc .2 + tax + bne .9 + +.20 jsr FIO.ReadLine bcc .2 cmp #MLI.E.EOF End Of File? bne .9 @@ -454,10 +461,10 @@ MSG.PASS .AZ "**** Pass:#%d ****" MSG.SRC.FILE .AZ "**** Reading SRC File:%s" MSG.OBJ.FILE .AZ "**** Writing OBJ File:%s, Type=%02x" MSG.T.FILE .AZ "**** Loading CPU File:%s" -MSG.OUT0 .AZ "%H%H- " -MSG.OUT1 .AZ "%H%H-%h " -MSG.OUT2 .AZ "%H%H-%h %h " -MSG.OUT3 .AZ "%H%H-%h %h %h" +MSG.OUT0 .AZ "%H- " +MSG.OUT1 .AZ "%H-%h " +MSG.OUT2 .AZ "%H-%h %h " +MSG.OUT3 .AZ "%H-%h %h %h" MSG.EQU0 .AZ " [ ?] " MSG.EQU1 .AZ " [ %h] " MSG.EQU2 .AZ " [ %h%h] " @@ -536,14 +543,12 @@ ASM.LI.MON .BS 1 ASM.LI.XON .BS 1 ASM.MA.ON .BS 1 -ASM.MA.StackPtr .BS 1 -ASM.MA.Stack .BS MA.MAXDEPTH ASM.PC .BS 4 ASM.PC.PH .BS 4 ASM.PC.DU .BS 4 -SYM.hGlobalList .BS 1 +SYM.hList .BS 1 SYM.bInGlobal .BS 1 SYM.GlobalID .BS 2 SYM.hGlobalBuf .BS 1 @@ -551,13 +556,12 @@ SYM.GlobalPtr .BS 1 SYM.LookupID .BS 2 -MAC.hMacroList .BS 1 -MAC.hMacroBuf .BS 1 -MAC.hCtxList .BS 1 -MAC.hCtxBuf .BS 1 -MAC.MacroID .BS 2 +MAC.hList .BS 1 +MAC.hBuf .BS 1 MAC.BufPtr .BS 1 -MAC.CtxID .BS 2 +MAC.hStk .BS 1 +MAC.StkPtr .BS 1 +MAC.ID .BS 2 OUT.PC .BS 4 OUT.Buf .BS 4 diff --git a/SYS/KERNEL.S.SLIST.txt b/SYS/KERNEL.S.SLIST.txt index a920112c..6157eb3b 100644 --- a/SYS/KERNEL.S.SLIST.txt +++ b/SYS/KERNEL.S.SLIST.txt @@ -254,7 +254,8 @@ SLIST.NewKey jsr SLIST.Search clc rts -.99 lda #E.DUPKEY +.99 >DEBUG + lda #E.DUPKEY sec .9 rts *-------------------------------------- diff --git a/SYS/KERNEL.S.STDIO.txt b/SYS/KERNEL.S.STDIO.txt index dfbe1cb5..aea5e872 100644 --- a/SYS/KERNEL.S.STDIO.txt +++ b/SYS/KERNEL.S.STDIO.txt @@ -402,7 +402,7 @@ K.PrintF.CheckTBL1 .8 clc rts *-------------------------------------- -PrintF.ESC jmp (.1,x) +PrintF.ESC jmp (.1,x) .1 .DA PrintF.B,PrintF.BB .DA PrintF.D,PrintF.DD,PrintF.U .DA PrintF.E,PrintF.F