# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1547132168 -32400
# Node ID 3abfb68fb043bb24068a9ddafb59a845d90652e2
# Parent  7368ad79701658af409cae464bd8e14fd56dc75c
...

diff -r 7368ad797016 -r 3abfb68fb043 TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Thu Jan 10 22:42:15 2019 +0900
+++ b/TL1/TL1os9.asm	Thu Jan 10 23:56:08 2019 +0900
@@ -147,12 +147,7 @@
        LBSR PUTHS
        FCB $04
        FDB $AFE3    stx ,--s
-       FDB $3088    leax n,x
-       LDX <PC
-       STX <LSZADR  here to write MXLSZ
-       LDA LSIZE
-       STA MXLSZ
-       LBSR PUTA
+       FDB $3086    leax a,x
        BSR REG0
        CLR LSIZE
        LBSR WORD
@@ -1022,18 +1017,14 @@
         PSHS A 
         INC LSIZE 
 PFC2    INC LSIZE 
-        LDA MXLSZ
-        CMPA LSIZE
-        BHI PFC5
-        STA MXLSZ
-PFC5     LBSR WEXPR
+        LBSR WEXPR
         CLRB
         STB ACC 
         DECB
         STB    GLL
-*        LDA #$A7 
-*        LDB LSIZE 
-*        LBSR PUTABX 
+        LDA #$A7 
+        LDB LSIZE 
+        LBSR PUTABX 
         LDA SY 
         CMPA #$3C 
         BEQ PFC2