collapseos/blk/371

: [entry] ( w -- )
    C@+ ( w+1 len ) TUCK MOVE, ( len )
    ( write prev value )
    H@ CURRENT @ - ,
    C, ( write size )
    H@ CURRENT !
;
: (entry) WORD [entry] ;
: CREATE (entry) 11 ( 11 == cellWord ) C, ;
: VARIABLE CREATE 2 ALLOT ;
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			`: [entry] ( w -- )`
			`C@+ ( w+1 len ) TUCK MOVE, ( len )`
			`( write prev value )`
			`H@ CURRENT @ - ,`
			`C, ( write size )`
			`H@ CURRENT !`
			`;`
			`: (entry) WORD [entry] ;`
			`: CREATE (entry) 11 ( 11 == cellWord ) C, ;`
			`: VARIABLE CREATE 2 ALLOT ;`