|
123456789101112131415 |
- : 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
- to avoid tons of "ok" displays. )
|