# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546642314 -32400
# Node ID f065d9718442ca13f2094ae064a50f141d894485
# Parent  69ab3f9536c0ee44031e19619b9fd10a7bbd207f
fix word table

diff -r 69ab3f9536c0 -r f065d9718442 TL1/TL1os9.asm
--- 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'