1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 19:20:55 +11:00
collapseos/blk/430

12 lines
275 B
Plaintext
Raw Normal View History

( Initializes the readln subsystem )
: RDLN$
2020-05-15 04:26:56 +10:00
H@ 0x32 ( IN(* ) RAM+ !
( plus 2 for extra bytes after buffer: 1 for
the last typed 0x0a and one for the following NULL. )
2020-05-15 04:26:56 +10:00
IN) IN( - ALLOT
(infl)
['] RDLN< 0x0c RAM+ !
1 0x06 RAM+ ! ( 06 == C<? )
;