collapseos/blk/457

( Initializes the readln subsystem )
: RDLN$
    ( 57 == rdln's memory )
    H@ 0x57 RAM+ !
    ( 2 for IN>, plus 2 for extra bytes after buffer: 1 for
      the last typed 0x0a and one for the following NULL. )
    INBUFSZ 4 + ALLOT
    (infl)
    ['] RDLN< 0x0c RAM+ !
    1 0x06 RAM+ !  ( 06 == C<? )
;
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`( Initializes the readln subsystem )`
			`: RDLN$`
Add layer of indirection to EMIT This would allow things like temporary giving control to the CL line on the TRS-80. For example... A very far fetched example. Not at all the only raison d'etre* of the layer... 2020-05-02 10:05:15 +10:00			`( 57 == rdln's memory )`
			`H@ 0x57 RAM+ !`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`( 2 for IN>, plus 2 for extra bytes after buffer: 1 for`
			`the last typed 0x0a and one for the following NULL. )`
			`INBUFSZ 4 + ALLOT`
			`(infl)`
			`['] RDLN< 0x0c RAM+ !`
			`1 0x06 RAM+ ! ( 06 == C<? )`
			`;`