2020-04-25 21:54:07 -04:00
|
|
|
: LOAD
|
|
|
|
|
BLK> @ >R ( save restorable variables to RSP )
|
2020-05-13 10:14:23 -04:00
|
|
|
0x08 RAM+ @ >R ( 08 == C<* override )
|
2020-04-25 21:54:07 -04:00
|
|
|
0x06 RAM+ @ >R ( C<? )
|
|
|
|
|
0x2e RAM+ @ >R ( boot ptr )
|
|
|
|
|
BLK@
|
|
|
|
|
BLK( 0x2e RAM+ ! ( Point to beginning of BLK )
|
2020-05-13 22:55:52 -04:00
|
|
|
['] (boot<) 0x08 RAM+ !
|
2020-04-25 21:54:07 -04: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 ;
|
