# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546899866 -32400
# Node ID 19ddf9e805cfa07438f2e4ac52f3e4c7331bcbcd
# Parent  6294e7f4fad8982df3cbbf9c90b1a97a1ae2fef9
TL/1 clean up

diff -r 6294e7f4fad8 -r 19ddf9e805cf TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Mon Jan 07 22:33:00 2019 +0900
+++ b/TL1/TL1os9.asm	Tue Jan 08 07:24:26 2019 +0900
@@ -332,7 +332,7 @@
        STB  GLL
        TSTA 
        BNE   AS4
-       LBSR  PUTX 
+*      LBSR  PUTX 
        LDA   #$A7 
        LDB   OPER 
        LBRA  PUTOFS
@@ -340,7 +340,7 @@
        BNE   AS5
        LDD   #$3504          PULS B
        LBSR  PUTAB
-       LBSR  PUTX            STA B,X / STA B,Y
+*      LBSR  PUTX            STA B,X / STA B,Y
        LDD   #$A785           
        LBRA  PUTAB
 AS5    LBSR  PUTHS
@@ -567,14 +567,15 @@
 **
 * PUTX & PUTB
 **
-PUTABX PSHS D
-       BSR PUTX
-       PULS D 
-       BRA PUTAB
+PUTABX equ PUTAB
+*      PSHS D
+*      BSR PUTX
+*      PULS D 
+*      BRA PUTAB
 **
 * use X for LB, OR use Y for GB BY 
 **
-PUTX   equ RTS11     * no pointer load
+*PUTX   equ RTS11     * no pointer load
 **
 PUTOFS PSHS D,X
        LDX <PC
@@ -882,7 +883,7 @@
        LDA AMODE
        CMPA #$20
        BNE *+5
-       LBSR PUTX
+*      LBSR PUTX
        CLR LSW
        PULS A
        ADDA AMODE
@@ -890,9 +891,9 @@
        BEQ OCOFS
        CMPA #$E6
        BEQ OCOFS
-       LDB OPER
+       LDB OPER              imm case
        LBRA PUTAB
-OCOFS  LDB OPER
+OCOFS  LDB OPER              index case
        LBRA PUTOFS
 * PUT 'TAB:PULS A'
 PUTPUL LBSR PUTHS