# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546598632 -32400
# Node ID 4d06202716c2ddd53adb288127d3a9af211ca24e
# Parent  6ebaa969331010384389e1c144bf473678301e66
TL1 no compile errors

diff -r 6ebaa9693310 -r 4d06202716c2 TL1/TL1os9.asm
--- 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