# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546867980 -32400
# Node ID 6294e7f4fad8982df3cbbf9c90b1a97a1ae2fef9
# Parent  f1b4da31235869456d848b21e42017c9930f0a22
index mode fix

diff -r f1b4da312358 -r 6294e7f4fad8 TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Mon Jan 07 21:10:43 2019 +0900
+++ b/TL1/TL1os9.asm	Mon Jan 07 22:33:00 2019 +0900
@@ -874,20 +874,6 @@
        LDD #$3402  pshs a
        LBSR PUTAB 
 OL1    LDA #$86
-       PSHS A
-       CLRA
-       STA LSW
-       COMA
-       STA ACC
-       LDA AMODE
-       CMPA #$20
-       BNE *+5
-       LBSR PUTX
-       CLR LSW
-       PULS A
-       ADDA AMODE
-       LDB OPER
-       LBRA PUTAB
 OCORD  PSHS A
        CLRA
        STA LSW
@@ -900,7 +886,13 @@
        CLR LSW
        PULS A
        ADDA AMODE
+       CMPA #$A6
+       BEQ OCOFS
+       CMPA #$E6
+       BEQ OCOFS
        LDB OPER
+       LBRA PUTAB
+OCOFS  LDB OPER
        LBRA PUTOFS
 * PUT 'TAB:PULS A'
 PUTPUL LBSR PUTHS