# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546671405 -32400
# Node ID f43ca5d22920490f9082dcb964148490d02826e4
# Parent  95718258025c7e974161b384e7b460380ecc6bc1
fix dicimal print routine

diff -r 95718258025c -r f43ca5d22920 TL1/TL1.txt
--- a/TL1/TL1.txt	Sat Jan 05 10:22:12 2019 +0900
+++ b/TL1/TL1.txt	Sat Jan 05 15:56:45 2019 +0900
@@ -300,7 +300,7 @@
 3990  BNE   AS4
 4000  LBSR  PUTX 
 4010  LDA   #$A7 
-4020  LDS   OPER 
+4020  LDB   OPER 
 4030  LBRA  PUTAB
 4040 AS4   DECA 
 4050  BNE   AS5
@@ -400,7 +400,7 @@
 4990  FCB 2
 5000  FDB $2603
 5010  BSR SLAOUT 
-5020  LDS INDEX 
+5020  LDB INDEX 
 5030  PSHS B
 5040  LBSR STAT
 5050  PULS B
@@ -919,9 +919,9 @@
 10180  STA AMODE 
 10190  COM LSW 
 10200  LBRA WORD 
-10210 * CONSTfTRUE & FALSE
-10220 TM1
-10230  BEQ TM01
+10210 * CONST TRUE & FALSE
+10220 TM1 CMPA #$A0
+10230   BEQ TM01
 10240   CMPA #$A1
 10250   BNE TM2
 10260 TM01  SUBA #$A1
diff -r 95718258025c -r f43ca5d22920 TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Sat Jan 05 10:22:12 2019 +0900
+++ b/TL1/TL1os9.asm	Sat Jan 05 15:56:45 2019 +0900
@@ -55,27 +55,25 @@
 GEND   RMB 2
 SSW    RMB  1
 
+**
+* LIBRARY ADDRESSS TABLE
+**
+LIBR     equ   .
 ioentry  rmb   $80
 filepath rmb   2
 parmptr  rmb   2
 stdin    rmb   1
-chksum   rmb   1
-bcount   rmb   1
 adr      rmb   2
 work     rmb   2
 readbuff rmb   $100
 
 OBJSTART RMB 2
 
-**
-* LIBRARY ADDRESSS TABLE
-**
-LIBR   RMB 80
 
 * OBJECT PG AREA
 
 WTBLE  RMB $500+$100
-MSTACK RMB $100 
+MSTACK RMB $140 
 
 OBJECT RMB 2048        * NOP
 RUB equ 8
@@ -85,22 +83,6 @@
 name     fcs   /TL1/
          fcb   edition
 
-******
-* SUPORTING ROUTINES
-* & I/0 CONTROL
-**
-** OBJECT START
-C      leas MSTACK,u
-VARPTR LDX #0
-       STX GB
-       STX LB
-       clra
-       lbra close
-       sta INDN
-       inca
-       sta OUTDN
-OBJMP  JMP OBJECT,u
-
 **
 COMP   CLRA
        STA OUTDN
@@ -564,7 +546,7 @@
        BEQ WR2
        LBSR PUTHSL
        FDB $03BD
-       FDB CRLFA
+       FDB CRLF
        RTS
 **
 WR2    LBSR WEXPR
@@ -974,8 +956,7 @@
        COM LSW 
        LBRA WORD 
 * CONST TRUE & FALSE
-TM1                    * ???
-        CMPA #$A0     ???
+TM1     CMPA #$A0  
         BEQ TM01
         CMPA #$A1
         BNE TM2
@@ -985,7 +966,7 @@
         BRA SLOAD
 * SYSTEM VAR MHIGH & MOD
 TM2       CMPA #$16
-        BRA *+6
+        BEQ *+6
         CMPA #$17
         BNE TM3
         STA VAL
@@ -1343,8 +1324,7 @@
        LDX ZR
        BRA EL2
 EL     LDX PC
-       STX VARPTR+1,PCR
-       LBRA exit
+       LBRA C
 
 **********************
 * ADVANCE WORD
@@ -1402,7 +1382,7 @@
        FCC "SCII"  
        FCB $6A,-'S'
        FCC "PACE"
-       FCB $68,-'C'  
+       FCB $6B,-'C'  
        FCC "RLF"  
        FCB $6C,-'"'
        FCB $8B,-'+'
@@ -1447,7 +1427,25 @@
        FCB $72,-'R'
        FCC "EAD"
 WTBLEND 
+
 ******
+* SUPORTING ROUTINES
+* & I/0 CONTROL
+**
+** OBJECT START
+******
+C      leas MSTACK,u
+VARPTR leax WTBLE,u
+       STX GB
+       STX LB
+       lda INDN
+       lbsr close
+       clra       os9 stdin
+       sta INDN
+       inca
+       sta OUTDN
+OBJMP  JMP OBJECT,u
+
 **
 * PUSH LB & SET NEW LP
 **
@@ -1526,8 +1524,8 @@
 **
 PUTDA  CLRB
 PUTDR  STB DREG
-       LEAX ,S
-       LEAS -4,S
+       LEAX -2,S
+       LEAS -6,S
        CLR 1,X
        LDB #3
 P0     PSHS B
@@ -1552,12 +1550,12 @@
        SUBA ,S+
        BCS PRX
        BSR SPACEA
-PRX    LDB ,X
+PRX    LDA ,X
        BEQ P4
        LBSR PUTCA 
        LEAX 1,X 
        BRA PRX 
-P4     LEAS 4,S
+P4     LEAS 6,S
 CL1    RTS
 ** 
 * GET IN A DECIMAL