collapseos/blk/367

: IMMEDIATE
    CURRENT @ 1-
    DUP C@ 128 OR SWAP C! ;
: IMMED? 1- C@ 0x80 AND ;
: +! TUCK @ + SWAP ! ;
: / /MOD NIP ;
: MOD /MOD DROP ;
: ALLOT HERE +! ;
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			`: IMMEDIATE`
			`CURRENT @ 1-`
			`DUP C@ 128 OR SWAP C! ;`
			`: IMMED? 1- C@ 0x80 AND ;`
			`: +! TUCK @ + SWAP ! ;`
			`: / /MOD NIP ;`
			`: MOD /MOD DROP ;`
			`: ALLOT HERE +! ;`