collapseos/blk/408

: [entry]
    HERE @        ( w h )
    SWAP SCPY     ( h )
    HERE @ SWAP - ( sz )
    ( write prev value )
    HERE @ CURRENT @ - ,
    C, ( write size )
    HERE @ CURRENT !
;

: (entry) WORD [entry] ;