Mercurial > hg > Members > kono > os9 > sbc09

changeset 124:f065d9718442

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix word table
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 05 Jan 2019 07:51:54 +0900
parents 69ab3f9536c0
children 95718258025c
files TL1/TL1os9.asm
diffstat 1 files changed, 9 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Fri Jan 04 23:13:54 2019 +0900
+++ b/TL1/TL1os9.asm	Sat Jan 05 07:51:54 2019 +0900
@@ -210,9 +210,9 @@
        LDA VAL
        ADDA LSIZE
        BSR WORD1 
-       LDA  #$3A
+       LDA  #$3A    ":"
        LBSR CHECK
-REG2   CMPA #$3C
+REG2   CMPA #$3C    "," get next word
        BEQ REGNAM
        RTS
 **
@@ -973,9 +973,10 @@
        STA AMODE 
        COM LSW 
        LBRA WORD 
-* CONSTfTRUE & FALSE
-TM1
-       BEQ TM01
+* CONST TRUE & FALSE
+TM1                    * ???
+        CMPA #$A0     ???
+        BEQ TM01
         CMPA #$A1
         BNE TM2
 TM01    SUBA #$A1
@@ -1309,7 +1310,7 @@
        LDA ,X+
        LBSR PUTA
        LDD ,X++
-       leay comp,pcr
+       leay 0,pcr
        leay d,y
        exg  d,y
        ldy  pc
@@ -1353,13 +1354,13 @@
        FCC "ROC" 
        FCB $31,-'F'
        FCC "UNC" 
-       FCB $32,'V'
+       FCB $32,-'V'
        FCC "AR"
        FCB $33,-'A'
        FCC "RRAY"
        FCB $34,-'B'
        FCC "EGIN"
-       FCB $35,';'
+       FCB $35,-';'
        FCB $36,-'['
        FCB $37,-'('
        FCB $38,-'E'