collapseos/blk/392

: INTERPRET
    BEGIN
    WORD DUP @ 0x0401 = ( 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`
Make string length-prefixed instead of null-terminated I'm not sure why I chose null-terminated initially. Probably because the z80asm version had null-terminated strings. Length-prefixes strings are the traditional form of strings in Forth and it's a bit easier to work with them with traditional forth words when they're under this form. 2020-05-26 10:34:52 +10:00			`WORD DUP @ 0x0401 = ( EOT ) IF DROP EXIT THEN`
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			`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. )`