collapseos/371 at c26c454cbfe5fd3e2bba1f455eda2f9761669f3e - collapseos - SKS Gitea

izaya/collapseos

mirror of https://github.com/hsoft/collapseos.git synced 2024-09-16 09:38:45 +10:00

Virgil Dupras 2d17b4e8ec 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-25 20:34:52 -04:00

11 lines

242 B

Plaintext

Raw Blame History

 : [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 ;