collapseos/blk/393

: LOAD
    BLK> @ >R ( save restorable variables to RSP )
    0x08 RAM+ @ >R  ( 08 == C<* override )
    0x06 RAM+ @ >R  ( C<? )
    0x2e RAM+ @ >R  ( boot ptr )
    BLK@
    BLK( 0x2e RAM+ ! ( Point to beginning of BLK )
    ['] (boot<) 0x08 RAM+ !
    1 0x06 RAM+ !  ( 06 == C<? )
    INTERPRET
    R> 0x2e RAM+ ! R> 0x06 RAM+ !
    I 0x08 RAM+ @ = IF ( nested load )
        R> DROP ( C<* ) R> BLK@
    ELSE ( not nested )
        R> 0x08 RAM+ ! R> DROP ( BLK> )
    THEN ;
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			`: LOAD`
			`BLK> @ >R ( save restorable variables to RSP )`
			`0x08 RAM+ @ >R ( 08 == C<* override )`
			`0x06 RAM+ @ >R ( C<? )`
			`0x2e RAM+ @ >R ( boot ptr )`
			`BLK@`
			`BLK( 0x2e RAM+ ! ( Point to beginning of BLK )`
			`['] (boot<) 0x08 RAM+ !`
			`1 0x06 RAM+ ! ( 06 == C<? )`
			`INTERPRET`
			`R> 0x2e RAM+ ! R> 0x06 RAM+ !`
			`I 0x08 RAM+ @ = IF ( nested load )`
			`R> DROP ( C<* ) R> BLK@`
			`ELSE ( not nested )`
			`R> 0x08 RAM+ ! R> DROP ( BLK> )`
			`THEN ;`