Mercurial > hg > Members > kono > os9 > sbc09
changeset 122:4d06202716c2
TL1 no compile errors
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 04 Jan 2019 19:43:52 +0900 |
parents | 6ebaa9693310 |
children | 69ab3f9536c0 |
files | TL1/TL1os9.asm |
diffstat | 1 files changed, 42 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/TL1/TL1os9.asm Fri Jan 04 19:02:43 2019 +0900 +++ b/TL1/TL1os9.asm Fri Jan 04 19:43:52 2019 +0900 @@ -78,6 +78,7 @@ MSTACK RMB $100 OBJECT RMB 2048 * NOP +RUB equ 8 size equ . @@ -109,7 +110,7 @@ STA LSIZE STA RSW STA PFMAX - leax ,MSTACK,u + leax MSTACK,u STX SP LEAX 2,x STX PFTBEG @@ -158,7 +159,7 @@ STA AMODE LDA VAL LBSR DEFPF - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB PSHLB BSR REG0 @@ -269,9 +270,9 @@ BSR STPOUT WORD1 LBRA WORD ** -STPOUT LBSR PUTHS +STPOUT LBSR PUTHSL FCB 3,$7E - FDB MONIT + FDB exit RTS ** * RETURN @@ -286,7 +287,7 @@ DECB BEQ RETP LBSR EXPR -RETP LBSR PUTHS +RETP LBSR PUTHSL FDB $037E FDB PULLB RTS @@ -541,7 +542,7 @@ ** WTERM CMPA #$6C BNE WR1 - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB PUTSTR LDA CH @@ -561,14 +562,14 @@ LBSR WORD CMPA #$37 BEQ WR2 - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB CRLFA RTS ** WR2 LBSR WEXPR BSR WTEN - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB CRLFA RTS @@ -576,7 +577,7 @@ WR3 CMPA #$6A BNE WR4 LBSR SUBSC - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB SPACEA RTS @@ -584,7 +585,7 @@ WR4 CMPA #$A9 BNE WR5 LBSR SUBSC - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB PUTCA RTS @@ -593,13 +594,13 @@ BNE WR6 LBSR DSUBSC LBSR PUTPLB - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB PUTDA+1 BRA WR66 ** WR6 LBSR EXPR - LBSR PUTHS + LBSR PUTHSL FDB $03BD FDB PUTDA WR66 CLR INDEX @@ -945,12 +946,12 @@ PULS A CMPA #$8E BHS ME4 - LBSR PUTHS + LBSR PUTHSL FCB 3 FCB $BD FDB MULT BRA ME1 -ME4 LBSR PUTHS +ME4 LBSR PUTHSL FCB 3 FCB $BD FDB DIV @@ -1074,8 +1075,10 @@ BNE TM62 BSR SUBSC LBSR PUTHS - FDB $0597 - FCB INDN,$BD + FDB $0297 + FCB INDN + LBSR PUTHSL + FCB $03BD FDB GETCH RTS * FUNCTION READ @@ -1083,9 +1086,10 @@ BNE TM7 BSR SUBSC LBSR PUTHS - FDB $0597 + FDB $0297 FDB INDN - FCB $8D + LBSR PUTHSL + FCB $038D FDB GETDA RTS * FUNCTION NOTASL ET AL @@ -1297,6 +1301,23 @@ PSHU D,X RTS ** +* PUTHSL output with address calculation +* only working on 3 byte 7E/BD (JMP/JSR) +** +PUTHSL LDX ,S++ + LDB ,X+ + LDA ,X+ + LBSR PUTA + LDD ,X++ + leay comp,pcr + leay d,y + exg d,y + ldy pc + std ,y++ + sty pc + JMP ,X +** +** * END OF LOAD ** ENDL LDX PFTBEG @@ -1532,7 +1553,7 @@ BSR SPACEA PRX LDB ,X BEQ P4 - BSR PUTCA + LBSR PUTCA LEAX 1,X BRA PRX P4 LEAS 4,S @@ -1542,7 +1563,7 @@ ** GETDA CLRA PSHS A - BSR GETCA + LBSR GETCA CMPA #RUB BNE GD1 PULS A @@ -1567,7 +1588,7 @@ SPACEA BEQ CL1 PSHS A LDA #' ' - BSR PUTCA + LBSR PUTCA PULS A DECA BRA SPACEA