--- a/TL1/TL1os9.asm	Fri Jan 04 19:43:52 2019 +0900
+++ b/TL1/TL1os9.asm	Fri Jan 04 23:13:54 2019 +0900
@@ -124,7 +124,7 @@
        STA CH
 **  copy reserved word table
        LEAX WTABLE,PCR
-       leay WTBLE,PCR
+       leay WTBLE,u
        ldb #WTBLEND-WTABLE
 tbl1   lda ,x+
        sta ,y+
@@ -688,7 +688,7 @@
        BNE WD3
        BSR GETCH
        CMPA #$20
-       BCC *--4
+       BCC *-4
        BRA WD1
 **
 * ASCC CONST
@@ -776,7 +776,8 @@
 **
 * WORD TABLE SEARCH
 **
-TLOOK  LDA TCOUNT 
+TLOOK  PSHS U
+       LDA TCOUNT 
        STA SY
        LDX TEND 
 S01    LDU WEND 
@@ -813,7 +814,7 @@
        STB GL
        ANDA #$FD
 S07    STA SY
-RTSS   RTS
+RTSS   PULS U,PC
 **
 * ARITHMATIC EXPRESSION
 **
@@ -1294,11 +1295,10 @@
 **
 * STACK TOP CHANGE
 **
-STCHG  LDU SP
-       LEAU 2,U
-       PULU D,X
-       EXG D,X
-       PSHU D,X
+STCHG  LDD 2,S
+       LDX 4,S
+       STD 4,S
+       STX 2,S
        RTS
 **
 * PUTHSL output with address calculation
@@ -1633,6 +1633,7 @@
 *         lda   ,x               get char
 *         cmpa  #C$CR            end of command line?
 *         bne   start            branch if not
+         lbra comp
 
 copytbl
          pshs  y,x,u
@@ -1701,12 +1702,12 @@
 MEMIN
         PSHS        A,B,X,Y
         LDA         INDN
-        LEAX        1,S
+        LEAX        ,S
         LDY         #1
         OS9         I$Read
-        EXG         a,b
         BCC         GETCA0
         lda         #'/'
+        sta         ,s
 GETCA0
         PULS        A,B,X,Y,PC
 
@@ -1718,7 +1719,7 @@
         PSHS        A,B,X,Y
 GETCH0
         LDA         INDN
-        LEAX        1,S
+        LEAX        ,S
         LDY         #1
         OS9         I$Read
         BCS         GETCH0