# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546651332 -32400
# Node ID 95718258025c7e974161b384e7b460380ecc6bc1
# Parent  f065d9718442ca13f2094ae064a50f141d894485
TL/1 fix

diff -r f065d9718442 -r 95718258025c TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Sat Jan 05 07:51:54 2019 +0900
+++ b/TL1/TL1os9.asm	Sat Jan 05 10:22:12 2019 +0900
@@ -353,7 +353,7 @@
        BNE   AS4
        LBSR  PUTX 
        LDA   #$A7 
-       LDS   OPER 
+       LDB   OPER 
        LBRA  PUTAB
 AS4      DECA 
        BNE   AS5
@@ -366,7 +366,7 @@
        FDB   $33D7 
        FCB   WT2
        FDB   $33D7
-       FCB   WT1 $DE,WT2
+       FCB   WT1 $9E,WT2
        FDB   $A700 
        CLR   INDEX
        RTS
@@ -383,7 +383,7 @@
        SUBA #$51
        PSHS A
        LBSR WORD
-       PULS B
+       PULS B         B keyword A next token
 **
 *  REPEAT UNTIL 
 **
@@ -405,7 +405,7 @@
 **
 SS7    DECB
        BNE SS8
-       CMPA #4
+       CMPA #4        should be simple var
        BEQ *+5
        LBRA ERROR
        LDB VAL
@@ -413,19 +413,19 @@
        LDB GL
        PSHS B
        LBSR ASSIGN
-       LDA #$61
+       LDA #$61       to
        LBSR CHECK
        CLR ACC
        LBSR EXPR
-       LDA #$64
+       LDA #$64       do
        LBSR CHECK
        BSR ASTOUT
-       LDA   #$36
-       LBSR PUTA
+       LDD   #$3402     pshs a
+       LBSR PUTAB
        CLR   INDEX
        LBSR STAT
-       LDA  #$32
-       LBSR PUTA
+       LDD  #$3502      puls a
+       LBSR PUTAB
        PULS D
        STA GLL
        STB OPER
@@ -453,7 +453,7 @@
        FCB 2
        FDB $2603
        BSR SLAOUT 
-       LDS INDEX 
+       LDB INDEX 
        PSHS B
        LBSR STAT
        PULS B
@@ -524,7 +524,7 @@
 **
 SS11   LDA #$37
        LBSR CHECK
-       LBSR EXPR
+       LBSR EXPR    output channel number
        LBSR PUTHS
        FDB $0297
        FCB OUTDN
@@ -537,21 +537,21 @@
        BNE WTEN
        LBSR WORD
        BRA WTLP
-WTEN   LDA #$36
+WTEN   LDA #$3B
        LBRA CHECK
-**
-WTERM  CMPA #$6C
+**  write command argument
+WTERM  CMPA #$6C      string
        BNE WR1
        LBSR PUTHSL
        FDB $03BD
        FDB PUTSTR
        LDA CH
-WR01   CMPA #'"'
+WR01   CMPA #'"'     copy until '"'
        BEQ WR02
        LBSR PUTA
        LBSR GETCH
        BRA WR01
-WR02   CLRA
+WR02   CLRA          put 0 at end
        STA INDEX
        LBSR PUTA
        LBSR GETCH
@@ -613,18 +613,18 @@
        PULS D 
        BRA PUTAB
 **
-* PUT LP, OR GB BY INDEX
+* PUT LB, OR GB BY INDEX
 **
 PUTX   LDB GLL 
        CMPB INDEX 
        BEQ RTS11 
        STB INDEX 
        ADDB #LB+1
-       LDA #$DE 
+       LDA #$9E 
 ***
 * PUT ACC A&B
 **
-PUTAB    BSR PUTA
+PUTAB  BSR PUTA
        TFR B,A
 **
 * PUT ACCA RS AN OBJECT
@@ -1157,7 +1157,7 @@
        FDB $0997
        FCB WT2
        FDB $3297
-       FCB WT1,$DE,WT1
+       FCB WT1,$9E,WT1
        FDB $A600
        CLR INDEX 
        RTS