collapseos/blk/390

( Initializes the readln subsystem )
: RDLN$
    H@ 0x32 ( IN(* ) RAM+ !
    ( plus 2 for extra bytes after buffer: 1 for
      the last typed 0x0a and one for the following NULL. )
    IN) IN( - ALLOT
    (infl)
    ['] RDLN< ['] C<* **!
    1 0x06 RAM+ !  ( 06 == C<? )
;
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`( Initializes the readln subsystem )`
			`: RDLN$`
			`H@ 0x32 ( IN(* ) RAM+ !`
			`( plus 2 for extra bytes after buffer: 1 for`
			`the last typed 0x0a and one for the following NULL. )`
			`IN) IN( - ALLOT`
			`(infl)`
Make C<* into a switch word Slightly larger binary, but clearer code and slightly faster. 2020-10-29 07:18:37 +11:00			`['] RDLN< ['] C<* **!`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-16 12:44:49 +10:00			`1 0x06 RAM+ ! ( 06 == C<? )`
			`;`