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
 **