# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1554985409 -32400
# Node ID d4e2f1179baf55bd3a43aef91138c52495fe688f
# Parent  c9dc1be48de474aa17c4bd0978bbcb211ac60761
remove psh on TL1 for-statement

diff -r c9dc1be48de4 -r d4e2f1179baf TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Thu Apr 11 14:09:32 2019 +0900
+++ b/TL1/TL1os9.asm	Thu Apr 11 21:23:29 2019 +0900
@@ -370,7 +370,7 @@
        PSHS B
        LDB VAL
        PSHS B
-       CMPA #5
+       CMPA #5        local array
        BNE ASS1
        LBSR SUBSC1
        LDB ,S
@@ -384,7 +384,7 @@
        STB ,S
        CLR LSW
        BRA   AS1
-ASS1   CMPA #6
+ASS1   CMPA #6        global array
        BNE ASS2 
        LBSR DSUBSC 
        LDA #2
@@ -392,18 +392,18 @@
 ASS2    CMPA #4
        BEQ *+5 
        LBRA ERROR 
-       LBSR WORD 
+       LBSR WORD      local var
 AS1    CLRA 
 AS2    PSHS  A 
        LDA SY
-       CMPA #$3C
+       CMPA #$3C     ,
        BNE  *+9
        LBSR  WORD 
        BSR   ASSIGN
        BRA   AS3
-       LDA   #$3D 
+       LDA   #$3D    :
        LBSR  CHECK
-       LDA   #$27 
+       LDA   #$27    =
        LBSR  CHECK
        LBSR  EXPR
 AS3    PULS D
@@ -476,11 +476,15 @@
        LBSR EXPR
        LDA #$64       do
        LBSR CHECK
-       BSR ASTOUT
-       LDD  #$3402     pshs a
+       INC  LSIZE
+       LDA  #$A7      sta
+       LDB  LSIZE
        LBSR PUTAB
+       pshs b
+       BSR ASTOUT
        LBSR STAT
-       LDD  #$3502      puls a
+       puls b
+       lda  #$A6      lda
        LBSR PUTAB
        PULS D
        STA GLL