collapseos/blk/368
2020-05-15 22:59:38 -04:00

11 lines
177 B
Plaintext

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