mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 14:38:44 +10: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...
14 lines
284 B
Plaintext
14 lines
284 B
Plaintext
64 CONSTANT INBUFSZ
|
|
: RDLNMEM+ 0x57 RAM+ @ + ;
|
|
( current position in INBUF )
|
|
: IN> 0 RDLNMEM+ ;
|
|
( points to INBUF )
|
|
: IN( 2 RDLNMEM+ ;
|
|
( points to INBUF's end )
|
|
: IN) INBUFSZ 2+ RDLNMEM+ ;
|
|
|
|
( flush input buffer )
|
|
( set IN> to IN( and set IN> @ to null )
|
|
: (infl) 0 IN( DUP IN> ! ! ;
|
|
|