Mercurial > hg > Members > kono > os9 > sbc09

changeset 170:d4e2f1179baf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove psh on TL1 for-statement
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 11 Apr 2019 21:23:29 +0900
parents c9dc1be48de4
children dd1cc5e836ad
files TL1/TL1os9.asm
diffstat 1 files changed, 13 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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