collapseos/blk/370

: MOVE ( a1 a2 u -- )
    ( u ) 0 DO ( a1 a2 )
        SWAP C@+ ( a2 a1+1 x )
        ROT C!+ ( a1+1 a2+1 )
    LOOP 2DROP ;
: MOVE- ( a1 a2 u -- )
    TUCK + 1- ( a1 u a2+u-1 )
    ROT 2 PICK + 1- ( u a2+u-1 a1+u-1 )
    ROT ( u ) 0 DO ( a2 a1 )
        C@- ( a2 a1-1 x )
        ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
    LOOP 2DROP ;
: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
: PREV 3 - DUP @ - ;
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			`: MOVE ( a1 a2 u -- )`
			`( u ) 0 DO ( a1 a2 )`
			`SWAP C@+ ( a2 a1+1 x )`
			`ROT C!+ ( a1+1 a2+1 )`
			`LOOP 2DROP ;`
			`: MOVE- ( a1 a2 u -- )`
			`TUCK + 1- ( a1 u a2+u-1 )`
			`ROT 2 PICK + 1- ( u a2+u-1 a1+u-1 )`
			`ROT ( u ) 0 DO ( a2 a1 )`
			`C@- ( a2 a1-1 x )`
			`ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )`
			`LOOP 2DROP ;`
			`: MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;`
			`: PREV 3 - DUP @ - ;`