Mercurial > hg > Members > kono > os9 > sbc09
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