changeset 143:3abfb68fb043

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 10 Jan 2019 23:56:08 +0900
parents 7368ad797016
children 1112b0549142
files TL1/TL1os9.asm
diffstat 1 files changed, 5 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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