collapseos/blk/396

: (main) INTERPRET BYE ;
: BOOT
    0x02 RAM+ CURRENT* !
    CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )
    0 0x08 RAM+ !  ( 08 == C<* override )
    0 0x53 RAM+ !  ( 53 == (emit) override )
    0 0x55 RAM+ !  ( 55 == (key) override )
    0 0x0a RAM+ !  ( NLPTR )
    ( 0c == C<* )
    ['] (boot<) 0x0c RAM+ !
    ['] C@ A@* ! ['] C! A!* !
    ( boot< always has a char waiting. 06 == C<?* )
    1 0x06 RAM+ ! INTERPRET
    RDLN$ LIT< _sys [entry]
    LIT< CollapseOS (print) NL (main) ;
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			`: (main) INTERPRET BYE ;`
			`: BOOT`
			`0x02 RAM+ CURRENT* !`
			`CURRENT @ 0x2e RAM+ ! ( 2e == BOOT C< PTR )`
			`0 0x08 RAM+ ! ( 08 == C<* override )`
			`0 0x53 RAM+ ! ( 53 == (emit) override )`
			`0 0x55 RAM+ ! ( 55 == (key) override )`
			`0 0x0a RAM+ ! ( NLPTR )`
			`( 0c == C<* )`
			`['] (boot<) 0x0c RAM+ !`
Move adev to core It's small enough to be worth it. 2020-05-23 04:50:34 +10:00			`['] C@ A@* ! ['] C! A!* !`
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			`( boot< always has a char waiting. 06 == C<?* )`
			`1 0x06 RAM+ ! INTERPRET`
			`RDLN$ LIT< _sys [entry]`
			`LIT< CollapseOS (print) NL (main) ;`