Mercurial > hg > Members > kono > os9 > sbc09

changeset 140:6294e7f4fad8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
index mode fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 07 Jan 2019 22:33:00 +0900
parents f1b4da312358
children 19ddf9e805cf
files TL1/TL1os9.asm
diffstat 1 files changed, 6 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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