mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:28:05 +11:00
ecca70c7f3
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...
13 lines
307 B
Plaintext
13 lines
307 B
Plaintext
( 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<? )
|
|
;
|
|
|