1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 08:58:06 +11:00
collapseos/blk/368

11 lines
177 B
Plaintext
Raw Normal View History

2020-05-16 12:59:38 +10:00
: [entry] ( w -- )
H@ SWAP SCPY ( h )
H@ SWAP - ( sz )
( write prev value )
2020-05-16 12:59:38 +10:00
H@ CURRENT @ - ,
C, ( write size )
2020-05-16 12:59:38 +10:00
H@ CURRENT !
;
: (entry) WORD [entry] ;