Mercurial > hg > Members > kono > os9 > sbc09
changeset 136:694412798333
remove LB/GB in TL/1
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Mon, 07 Jan 2019 10:22:20 +0900 |
| parents | 7503617351c0 |
| children | 1078f3e31d9c |
| files | TL1/TL1.txt TL1/TL1os9.asm |
| diffstat | 2 files changed, 27 insertions(+), 31 deletions(-) [+] |
line wrap: on
line diff
--- a/TL1/TL1.txt Mon Jan 07 04:07:10 2019 +0900 +++ b/TL1/TL1.txt Mon Jan 07 10:22:20 2019 +0900 @@ -310,11 +310,11 @@ 4090 LBRA STABX 4100 AS5 LBSR PUTHS 4110 FCB 10 -4120 FDB $33D7 +4120 FDB $33D7 PULB; STB WT2 4130 FCB WT2 -4140 FDB $33D7 -4150 FCB WT1 $DE,WT2 -4160 FDB $A700 +4140 FDB $33D7 PULB; STB WT +4150 FCB WT1 $DE,WT2 LDX WT2 +4160 FDB $A700 STA X 4170 CLR INDEX 4180 RTS 4190 **
--- a/TL1/TL1os9.asm Mon Jan 07 04:07:10 2019 +0900 +++ b/TL1/TL1os9.asm Mon Jan 07 10:22:20 2019 +0900 @@ -341,17 +341,15 @@ LBRA PUTAB AS4 DECA BNE AS5 - LBSR PUTX - LDA #$33 - LBSR PUTA - LBRA STABX + LDD #$3504 PULS B + LBSR PUTAB + LBSR PUTX STA B,X / STA B,Y + LDD #$A785 + LBRA PUTAB AS5 LBSR PUTHS - FCB 10 - FDB $33D7 - FCB WT2 - FDB $33D7 - FCB WT1,$9E,WT2 - FDB $A700 + FCB 4 + FDB $3510 PULS X + FDB $A700 STA ,X CLR INDEX RTS ** @@ -597,14 +595,14 @@ PULS D BRA PUTAB ** -* PUT LB, OR GB BY INDEX +* use X for LB, OR use Y for GB BY INDEX ** PUTX LDB GLL - CMPB INDEX - BEQ RTS11 STB INDEX - ADDB #LB+1 - LDA #$9E + CMPB #0 + BNE RTS11 + LDA #$10 + LBRA AOUT *** * PUT ACC A&B ** @@ -613,10 +611,9 @@ ** * PUT ACCA RS AN OBJECT ** -PUTA STX RNDH +PUTA PSHS X LBSR AOUT - LDX RNDH - RTS + PULS X,PC ** * PUTHS STRING ** @@ -1451,18 +1448,16 @@ ** * PUSH LB & SET NEW LB ** -PSHLB LDX LB +PSHLB pshs y + leay ,x leax a,x - LDD LB - STD ,X++ - STX LB - RTS + sty ,x++ + puls y,pc ** * PULL LB ** -PULLB LDX LB - LDX ,--X - STX LB +* +PULLB LDX ,--X TSTA RTS ** @@ -1524,6 +1519,7 @@ ** PUTDA CLRB PUTDR STB DREG + PSHS X LEAX -2,S LEAS -6,S CLR 1,X @@ -1556,7 +1552,7 @@ LEAX 1,X BRA PRX P4 LEAS 6,S -CL1 RTS +CL1 PULS X,PC ** * GET IN A DECIMAL **