From eec9549bdea2feb72120750e12763327640a3d1a Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 14 May 2020 14:26:56 -0400
Subject: [PATCH] Make rdln use system RAM

---
 blk/081        |   9 ++++-----
 blk/082        |   4 ++--
 blk/426        |   7 +++----
 blk/430        |   5 ++---
 emul/forth.bin | Bin 5947 -> 5925 bytes
 5 files changed, 11 insertions(+), 14 deletions(-)

diff --git a/blk/081 b/blk/081
index ee68d54..83ee781 100644
--- a/blk/081
+++ b/blk/081
@@ -1,5 +1,5 @@
 RAMSTART  FUTURE USES          +55       (key) override
-+02       CURRENT              +57       readln's variables
++02       CURRENT              +57       FUTURE USES
 +04       HERE                 +59       blk's variables
 +06       C<?                  +5b       z80a's variables
 +08       C<* override         +5d       adev's variables
@@ -7,11 +7,10 @@ RAMSTART  FUTURE USES          +55       (key) override
 +0c       C<*                  +70       DRIVERS
 +0e       WORDBUF              +80       RAMEND
 +2e       BOOT C< PTR
-+30       FUTURE USES
++30       IN>
++32       IN(*
++34       FUTURE USES
 +4e       INTJUMP
 +51       CURRENTPTR
 +53       (emit) override
-
-
-
                                                         (cont.)
diff --git a/blk/082 b/blk/082
index a3cbc48..e02d3f3 100644
--- a/blk/082
+++ b/blk/082
@@ -9,8 +9,8 @@ PARSEPTR holds routine address called on (parse)
 C<* holds routine address called on C<. If the C<* override
 at 0x08 is nonzero, this routine is called instead.
 
+IN> is the current position in IN(, which is the input buffer.
 
-
-
+IN(* is a pointer to the input buffer, allocated at runtime.
 
                                                         (cont.)
diff --git a/blk/426 b/blk/426
index 5e25854..286d6d6 100644
--- a/blk/426
+++ b/blk/426
@@ -1,10 +1,9 @@
-: RDLNMEM+ 0x57 RAM+ @ + ;
 ( current position in INBUF )
-: IN> 0 RDLNMEM+ ;
+: IN> 0x30 RAM+ ;
 ( points to INBUF )
-: IN( 2 RDLNMEM+ ;
+: IN( 0x32 RAM+ @ ;
 ( points to INBUF's end )
-: IN) 0x40 ( buffer size ) 2+ RDLNMEM+ ;
+: IN) 0x40 ( buffer size ) IN( + ;
 
 ( flush input buffer )
 ( set IN> to IN( and set IN> @ to null )
diff --git a/blk/430 b/blk/430
index 866332d..498ec64 100644
--- a/blk/430
+++ b/blk/430
@@ -1,10 +1,9 @@
 ( Initializes the readln subsystem )
 : RDLN$
-    ( 57 == rdln's memory )
-    H@ 0x57 RAM+ !
+    H@ 0x32 ( IN(* ) RAM+ !
     ( plus 2 for extra bytes after buffer: 1 for
       the last typed 0x0a and one for the following NULL. )
-    IN) IN> - 2+ ALLOT
+    IN) IN( - ALLOT
     (infl)
     ['] RDLN< 0x0c RAM+ !
     1 0x06 RAM+ !  ( 06 == C<? )
diff --git a/emul/forth.bin b/emul/forth.bin
index d88b41605c8aacd74127292b1bc4c42ed82ddf03..5c5449db1a1da8c69e225a42aadbbd762d30dfd2 100644
GIT binary patch
delta 440
zcmZ9HO-lk%6o${8xk`>Ub?3uH3%P}mgJB`mDkP?aM6oYiw3CQFK%6LAg{0tCTwMDJ
zL5MBd2w|<<w&@qtAIPPvpw1n4ZVvan_dV}(&LH)e3Jt?#m>>YXm(T&b&lNLEpz0jf
zpb&5&S4>3wHjQmdm4c)D!WMYUMj>%oJ*zkjf_j&Fj4EYTQ)?6b<i@d4FSC~Fv0(5V
zD7YZIFDhNjb0gh_eD-((EJ=d+VKG};>i&QR95gt>!B4@B^@|>JK_Xg+=wrx8qY8&v
zkl{hFl`h4Fu1_mf=N7>oHf9_G!0>nc_p5tMVqG}gDHJzj5b!s9R;h9h5tzhDRMjYp
zcY`P8$u(TWV{tVZ?yxwt4USH!_9;i8e7TTHuL{lFR>p?dGdY<TSLUnzW^$OBvNlA<
t+9%(lZ7pE!T8pG9KCHa&osMmY75k3tiYNPl;9N9IN}?Ivz&eQ5{{j7fVE+IB

delta 437
zcmZ9Hu}cDR6vyA){S-Y9^>^pp6!jCNP9!10popkThe*wA2pSrKk|<nS4nm5+(WRdu
zw1!|oLyI6Sk+etuKs2;Eg;P-PcWo{|-uJ!l@AG}HlYUAE2O()-O8_sA!7X}T$rVb)
zd@(fxfiQy|DEOL+sW`A+T8@Gez9$D%2wO$LK!$&r)I7NYLvL;$)ecXR6#VFKP$Iju
zuGA5N{r%IViG7zgl?L_ut3bd3p+1Ok@mHELg=~346&R?njixWI>DkCLh6`L1aXsSl
zvOcxgrK--r2NYqW-=A=U3XlWhlBG%Td07t%k*lBqexgHF055fy-|1{toLI*=mnM`U
zNrk#J0k;U$ync@`@Oza5>C7De*4Jds;0p$mrunYXH{T5gfiY{F+p+S*$Z(*rxtgm)
zafde&m;3OETjZkI$cVRMap{KlVjCV{Jgdzu^Gw>~SLU^ZFe@(|^O`k}Z^yd$1N;_a
Ar2qf`