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. )`
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			`: _wb 0x0e RAM+ ;`
			`: _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`
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			`_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`
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			`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 )`
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			`SWAP _wb - 1- ( ws len ) _wb C!`
			`EOT? IF _eot ELSE _wb THEN ;`