--- a/TL1/TL1os9.asm	Mon Apr 15 04:27:18 2019 +0900
+++ b/TL1/TL1os9.asm	Mon Apr 15 09:43:28 2019 +0900
@@ -325,7 +325,7 @@
 **
 * PROC CALL
 **
-SS4    CMPA #2
+SS4    CMPA #2        proc
        LBEQ PFCALL
        CMPA #$E0
        BCS SS5
@@ -401,7 +401,13 @@
 **
 ** NON-STATEMENT
 **
-SSEND  COM SSW
+SSEND  CMPA #$A2       seek
+       LBEQ  EXPR
+       CMPA #$A3       seekr
+       LBEQ  EXPR
+       CMPA #$A4       position
+       LBEQ  EXPR
+SSEND1 COM SSW
        RTS
 **
 SS6    CMPA #$58 
@@ -578,10 +584,10 @@
        LBSR GETCH
        LBRA WORD
 **
-WR1    CMPA #$6B
+WR1    CMPA #$6B    CRLF
        BNE WR3
        LBSR WORD
-       CMPA #$37
+       CMPA #$37    '('
        BEQ WR2
        LBSR PUTHSL
        FDB $0317
@@ -595,7 +601,7 @@
        FDB CRLFA
        RTS
 **
-WR3    CMPA #$6A
+WR3    CMPA #$6A     SPACE
        BNE WR4
        LBSR SUBSC
        LBSR PUTHSL
@@ -603,7 +609,7 @@
        FDB SPACEA
        RTS
 **
-WR4    CMPA #$69
+WR4    CMPA #$69     ASCII
        BNE WR5
        LBSR SUBSC
        LBSR PUTHSL
@@ -611,7 +617,7 @@
        FDB PUTCA
        RTS
 **
-WR5    CMPA #$26
+WR5    CMPA #$26     #
        BNE WR6
        LBSR DSUBSC
        LBSR PUTPLB
@@ -985,18 +991,18 @@
 **
 MEXPR  BSR TERM 
 ME1    LDA SY
-       CMPA #$8E
+       CMPA #$8E     *
        BEQ ME2
-       CMPA #$8F
+       CMPA #$8F     /
        BNE RTE1
 ME2    PSHS A
        LBSR WORD
        BSR TERM
        LDB LSW 
        BEQ ME3
-       LDA #$C6
+       LDA #$C6      LDB
        BSR OCORD
-       FCB $8C
+       FCB $8C       ???
 ME3    BSR PUTPUL 
        PULS A
        CMPA #$8E 
@@ -1004,7 +1010,7 @@
        LBSR PUTHSL
        FCB 3
        FCB $17
-       FDB MULT
+       FDB MULT       should MUL inst
        BRA ME1
 ME4    LBSR PUTHSL
        FCB 3
@@ -1027,8 +1033,21 @@
        STA AMODE 
        COM LSW 
        LBRA WORD 
+* Uniary minus operator
+TM1     CMPA #$80
+        BNE TM02
+        LBSR WORD
+        BSR  TERM
+        LDB  LSW
+        BEQ  TM03
+        NEG  <OPER
+        RTS
+TM03    LBSR PUTHS
+        FCB  $2,$35,$2    puls a
+        LDA  #$04     NEGA
+        LBRA PUTA
 * CONST TRUE & FALSE
-TM1     CMPA #$A0  
+TM02    CMPA #$A0  
         BEQ TM01
         CMPA #$A1
         BNE TM2
@@ -1625,11 +1644,13 @@
        FCB $35,-';'
        FCB $36,-'['
        FCB $37,-'('
+       FCB $34,-'{'
        FCB $38,-'E'
        FCC "ND"
        FCB $39,-'=' 
        FCB $3A,-']'
        FCB $3B,-')'
+       FCB $38,-'}'
        FCB $3C,-','
        FCB $3D,-':'
        FCB $50,-'S'