collapseos/blk/432

: 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. )
Move BOOT, (boot<) and INTEPRET to high xcomp Saves us an (ok) indirection and will save us more soon. 2020-05-14 22:45:01 +10:00			`: 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 ) ;`
Move core's blk to xcomp core (low and high) TODO: implement X['] so that I can remove those XCURRENT patterns. 2020-05-14 00:14:23 +10:00			`( 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. )`