collapseos/blk/366

( Read word from C<, copy to WORDBUF, null-terminate, and
  return WORDBUF. )
: _wb 0x0e RAM+ ;
: _eot 0x0401 _wb ! _wb ;
: WORD
    _wb 1+ TOWORD ( a c )
    DUP EOT? IF 2DROP _eot EXIT THEN
    BEGIN
        OVER C! 1+ C< ( a c )
        OVER 0x2e RAM+ = OVER WS? OR
    UNTIL ( a c )
    SWAP _wb - 1- ( ws len ) _wb C!
    EOT? IF _eot ELSE _wb THEN ;
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-03 11:21:47 +10:00			`( Read word from C<, copy to WORDBUF, null-terminate, and`
WORD: don't overwrite RAM on words over 31 chars This allows me to reclaim some RAM I hadn't even noticed I needlessly monopolise. 2020-05-14 10:39:53 +10:00			`return WORDBUF. )`
wip 2020-05-25 10:50:26 +10:00			`: _wb 0x0e RAM+ ;`
wip 2020-05-26 10:16:07 +10:00			`: _eot 0x0401 _wb ! _wb ;`
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-03 11:21:47 +10:00			`: WORD`
wip 2020-05-25 10:50:26 +10:00			`_wb 1+ TOWORD ( a c )`
			`DUP EOT? IF 2DROP _eot EXIT THEN`
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-03 11:21:47 +10:00			`BEGIN`
wip 2020-05-26 10:16:07 +10:00			`OVER C! 1+ C< ( a c )`
			`OVER 0x2e RAM+ = OVER WS? OR`
Make INTERPRET break on ASCII EOT This should allow me to simplify LOAD's exit mechanism on block end. 2020-05-14 11:44:46 +10:00			`UNTIL ( a c )`
wip 2020-05-25 10:50:26 +10:00			`SWAP _wb - 1- ( ws len ) _wb C!`
wip 2020-05-26 10:16:07 +10:00			`EOT? IF _eot ELSE _wb THEN ;`