mirror of
https://github.com/hsoft/collapseos.git
synced 2024-07-23 18:00:19 +10:00
11 lines
177 B
Plaintext
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] ;
|