collapseos/blk/433

: 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 ;
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`: LOAD`
			`BLK> @ >R ( save restorable variables to RSP )`
Move core's blk to xcomp core (low and high) TODO: implement X['] so that I can remove those XCURRENT patterns. 2020-05-14 00:14:23 +10:00			`0x08 RAM+ @ >R ( 08 == C<* override )`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`0x06 RAM+ @ >R ( C<? )`
			`0x2e RAM+ @ >R ( boot ptr )`
			`BLK@`
			`BLK( 0x2e RAM+ ! ( Point to beginning of BLK )`
Simplify LOAD's INTERPRET exit mechanism 2020-05-14 12:55:52 +10:00			`['] (boot<) 0x08 RAM+ !`
Copy core words to blkfs 2020-04-26 11:54:07 +10:00			`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 ;`