changeset 139:f1b4da312358

strange bug on t2.tl1
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 07 Jan 2019 21:10:43 +0900
parents 6f7276831219
children 6294e7f4fad8
files TL1/TL1os9.asm
diffstat 1 files changed, 17 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Mon Jan 07 19:32:10 2019 +0900
+++ b/TL1/TL1os9.asm	Mon Jan 07 21:10:43 2019 +0900
@@ -89,6 +89,7 @@
        STA OUTDN
        STA LSW
        STA AMODE
+       STA PMODE
        STA LSIZE
        STA RSW
        STA PFMAX
@@ -837,7 +838,7 @@
 **
 * RELATIONAL EXPRESS 
 **
-REXPR  BSR AEXPR
+REXPR  LBSR AEXPR
 RE1    LDA SY
        CMPA #$21 
        BCS      RTE 
@@ -873,6 +874,20 @@
        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
@@ -908,7 +923,7 @@
        LBSR WORD
        BSR MEXPR
        PULS A
-       BSR AOPER
+       LBSR AOPER
        BRA AE1
 **
 *  MUTIPLYING EXPRESSION