mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 17:40:56 +11:00
b760c2d353
This makes [entry] much simpler. Also, remove unused LITS word.
12 lines
206 B
Plaintext
12 lines
206 B
Plaintext
: [entry]
|
|
HERE @ ( w h )
|
|
SWAP SCPY ( h )
|
|
HERE @ SWAP - ( sz )
|
|
( write prev value )
|
|
HERE @ CURRENT @ - ,
|
|
C, ( write size )
|
|
HERE @ CURRENT !
|
|
;
|
|
|
|
: (entry) WORD [entry] ;
|