changeset 172:90a8e97a70f7

fix variable area
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 12 Apr 2019 08:54:33 +0900
parents dd1cc5e836ad
children 7dd634f92ffd
files TL1/TL1os9.asm
diffstat 1 files changed, 2 insertions(+), 39 deletions(-) [+]
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Thu Apr 11 21:26:35 2019 +0900
+++ b/TL1/TL1os9.asm	Fri Apr 12 08:54:33 2019 +0900
@@ -132,38 +132,6 @@
          stx   <adr
          lbra  comp
 
-copytbl
-         pshs  y,x,u
-         leau  LIBR,y
-         leax  iotbl,pcr
-         leay  iotblend,pcr
-         ldy   #(iotblend-iotbl)
-l1       ldb   #$7e     * JMP
-         stb   ,u+
-         ldd   ,x++
-         addb  1,s
-         adca  ,s
-         std   ,u++
-         cmpx  2,s
-         ble   l1
-         puls  x,y,u
-iotbl
-         fdb   getchar-iotbl            ; 0
-         fdb   putchar-iotbl            ; 3
-         fdb   getline-iotbl            ; 6
-         fdb   putline-iotbl            ; 9
-         fdb   putcr-iotbl              ; $C
-         fdb   getpoll-iotbl            ; $F
-         fdb   xopenin-iotbl            ; $12
-         fdb   xopenout-iotbl           ; $15
-         fdb   xabortin-iotbl           ; $18
-         fdb   xclosein-iotbl           ; $1B
-         fdb   xcloseout-iotbl          ; $1E
-         fdb   delay-iotbl              ; $21
-         fdb   noecho-iotbl             ; $24
-         fdb   setecho-iotbl            ; $27
-         fdb   exit-iotbl               ; $2a
-iotblend
 **
 COMP   CLRA
        STA OUTDN
@@ -1516,7 +1484,7 @@
        std    ,x++             start address offset
        clra 
        ldb    GSIZE
-       addd   #1
+       addd   #OBJSTART+100
        std    ,x             global size
        * mod CRC
        pshs   d,u
@@ -1954,12 +1922,6 @@
         lda         OUTDN
         OS9         I$WritLn
         PULS        A,B,X,Y,PC
-xopenin
-xopenout
-xabortin
-xclosein
-xcloseout
-        RTS
 
 setecho lda          #1
         bra          sss
@@ -1992,6 +1954,7 @@
 
 crt0    stx         <arg
         leax        OBJSTART,u
+        leay        ,x
         *   compiled code follows
 
 LIBEND   equ *