|
|
@@ -1,3 +1,14 @@ |
|
|
|
: INTERPRET |
|
|
|
BEGIN |
|
|
|
WORD DUP C@ EOT? IF DROP EXIT THEN |
|
|
|
(find) NOT IF (parse) ELSE EXECUTE THEN |
|
|
|
C<? NOT IF (ok) THEN |
|
|
|
AGAIN ; |
|
|
|
( Read from BOOT C< PTR and inc it. ) |
|
|
|
: (boot<) |
|
|
|
( 2e == BOOT C< PTR ) |
|
|
|
0x2e ( BOOT C< PTR ) RAM+ @ DUP C@ ( a c ) |
|
|
|
SWAP 1 + 0x2e RAM+ ! ( c ) ; |
|
|
|
( pre-comment for tight LOAD: The 0x08==I check after INTERPRET |
|
|
|
is to check whether we're restoring to "_", the word above. |
|
|
|
if yes, then we're in a nested load. Also, the 1 in 0x06 is |
|
|
|