collapseos/forth/str.fs

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 22:40:56 +11:00
: SLEN      ( a -- n )
    DUP     ( astart aend )
    BEGIN
    DUP C@ 0 = IF -^ EXIT THEN
    1+
    AGAIN
;
forth: Implement "(parseh)" 2020-03-19 12:52:55 +11:00			`: SLEN ( a -- n )`
			`DUP ( astart aend )`
			`BEGIN`
			`DUP C@ 0 = IF -^ EXIT THEN`
Add words 1+ 2+ 1- 2- and consts 0 1 -1 Saves quite a few bytes in the final binary. 2020-04-16 11:29:39 +10:00			`1+`
forth: Implement "(parseh)" 2020-03-19 12:52:55 +11:00			`AGAIN`
			`;`