collapseos/blk/392

: INTERPRET
    BEGIN
    WORD DUP C@ EOT? IF DROP EXIT THEN
    FIND NOT IF (parse) ELSE EXECUTE THEN
    C<? NOT IF SPC LIT< ok (print) NL 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. )
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			`: INTERPRET`
			`BEGIN`
			`WORD DUP C@ EOT? IF DROP EXIT THEN`
			`FIND NOT IF (parse) ELSE EXECUTE THEN`
			`C<? NOT IF SPC LIT< ok (print) NL 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. )`