changeset 179:41d578d28d8c

TL1 fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 15 Apr 2019 14:21:00 +0900
parents 4d83154d2a78
children c3145f913f3d 63de06ad7a49
files TL1/TL1os9.asm
diffstat 1 files changed, 19 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Mon Apr 15 09:43:28 2019 +0900
+++ b/TL1/TL1os9.asm	Mon Apr 15 14:21:00 2019 +0900
@@ -1170,47 +1170,29 @@
        BNE TM64
        LBSR DSUBSA
        tstb
-       beq tmm0
-       bsr  aradr
-tmm0   LBSR PUTHSL
-       FDB  $0317
-       FDB  NONE
-       RTS
+       beq tmm3
+       bra  aradr
 TM64   CMPA #$A3      seekr
        BNE TM65
        LBSR DSUBSC
-       LBSR PUTHSL
-       FDB  $0317
-       FDB  NONE
-       RTS
+       bra tmm3
 TM65   CMPA #$A4      position
        BNE TM66
        LBSR DSUBSA
        tstb
-       beq tmm1
-       bsr  aradr
-tmm1   LBSR PUTHSL
-       FDB  $0317
-       FDB  NONE
-       RTS
+       beq tmm3
+       bra  aradr
 TM66   CMPA #$A5      open
        BNE TM67
        LBSR DSUBSC
-       LBSR PUTHSL
-       FDB  $0317
-       FDB  NONE
-       RTS
+       bra tmm3
 TM67   CMPA #$A6      openm
        BNE TM7
        LBSR DSUBSA
        tstb
-       beq tmm2
-       bsr  aradr
-tmm2   LBSR PUTHSL
-       FDB  $0317
-       FDB  NONE
-       RTS
-*                    ; pshs u; leau ?,[xy] ; tfr u,d ; puls u
+       beq tmm3
+       bra  aradr
+*                    ; pshs u; leau ?,[xy] ; stu <tm1 ; puls u
 aradr  LBSR PUTHS
        FCB  2,$34,$40
        ldb  VAL
@@ -1220,10 +1202,17 @@
        addb #$20
 aradr1 LBSR PUTAB
        LBSR PUTHS
-       FCB  4,$1f,$30,$35,$40
+       FCB  4,$DF,WT1,$35,$40
        LBSR WORD
        LDA  #$3B    ')'
-       LBRA CHECK
+       LBSR CHECK
+tmm4   LBSR PUTHSL
+       FDB  $0317    
+       FDB  NONE
+       RTS
+tmm3   LBSR PUTHS
+       FCB  6,$35,$04,$D7,WT2,$0F,WT1       ; puls b ; stb <tm2; clr <tm1
+       bra  tmm4
 
 * FUNCTION NOT ASL ET AL
 TM7    CMPA #$40
@@ -1269,7 +1258,7 @@
        RTS
 DSUB1  LBSR EXPR
        puls a
-       lbsr CHECK
+       lbsr CHECK    
        clrb
        rts