Make rdln use system RAM

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.)

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.)

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 )

blk/430

@@ -1,10 +1,9 @@
 ( Initializes the readln subsystem )
 : RDLN$
-    ( 57 == rdln's memory )
+    H@ 0x32 ( IN(* ) RAM+ !
-    H@ 0x57 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<? )