# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546801630 -32400
# Node ID 7503617351c011396b22a87f3f55e780f34a10a0
# Parent  42592ea2966fd369b81646f4cf96fdbcfbc9854f
TL/1 buffered program read

diff -r 42592ea2966f -r 7503617351c0 TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Mon Jan 07 03:38:10 2019 +0900
+++ b/TL1/TL1os9.asm	Mon Jan 07 04:07:10 2019 +0900
@@ -55,17 +55,19 @@
 GEND   RMB 2
 SSW    RMB  1
 
+filepath rmb   2
+parmptr  rmb   2
+stdin    rmb   1
+adr      rmb   2
+work     rmb   2
+bufsiz   equ   $100-1
+
 **
 * LIBRARY ADDRESSS TABLE
 **
 LIBR     equ   .
 ioentry  rmb   $80
-filepath rmb   2
-parmptr  rmb   2
-stdin    rmb   1
-adr      rmb   2
-work     rmb   2
-readbuff rmb   $100
+readbuff rmb   bufsiz+1
 
 OBJSTART RMB 2
 
@@ -1626,11 +1628,10 @@
          lbcs   L0049            branch if error
          sta   <INDN            else save path to file
          stx   <parmptr         and updated parm pointer
-*         ldx   <parmptr         get param pointer
-*         lda   ,x               get char
-*         cmpa  #C$CR            end of command line?
-*         bne   start            branch if not
-         lbra comp
+         leax  readbuff,u       buffer 
+         clr   ,x               buffer empty
+         stx   <adr
+         lbra  comp
 
 copytbl
          pshs  y,x,u
@@ -1685,27 +1686,36 @@
         bra     Exit
 
 
+PUTCA   tfr         a,b
+putchar                        * Output one character in B register.
+        PSHS        X,Y
+        BRA         OUTCH1
+
 close
          lda   <INDN        else get path
          os9   I$Close          and close it
          bcs   L0049            branch if error
          rts
 
-PUTCA   tfr         a,b
-putchar                        * Output one character in B register.
-        PSHS        X,Y
-        BRA         OUTCH1
-
 MEMIN
         PSHS        A,B,X,Y
+        ldx         <adr
+        lda         ,x+
+        bne         GETCA1
         LDA         INDN
-        LEAX        ,S
-        LDY         #1
+        LEAX        readbuff,u
+        LDY         #bufsiz
         OS9         I$Read
         BCC         GETCA0
         lda         #'/'
+        ldx         <adr
+        bra         GETCA1
+GETCA0  LEAX        readbuff,u
+        tfr         y,d
+        clr         d,x      eof
+        lda         ,x+
+GETCA1  stx         <adr
         sta         ,s
-GETCA0
         PULS        A,B,X,Y,PC
 
 GETCA   bsr         getchar