collapseos/blk/368

: +! TUCK @ + SWAP ! ;
: [entry] ( w -- )
    H@ SWAP
    BEGIN C@+ ( w+1 c ) ?DUP IF C, 0 ELSE 1 THEN UNTIL DROP
    H@ SWAP - ( sz )
    ( write prev value )
    H@ CURRENT @ - ,
    C, ( write size )
    H@ CURRENT !
;

: (entry) WORD [entry] ;