mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-20 17:28:08 +11:00
16 lines
311 B
Plaintext
16 lines
311 B
Plaintext
|
: [entry]
|
||
|
|
HERE @ ( w h )
|
||
|
|
SWAP SCPY ( h )
|
||
|
|
( Adjust HERE -1 because SCPY copies the null )
|
||
|
|
HERE @ 1- ( h h' )
|
||
|
|
DUP HERE ! ( h h' )
|
||
|
|
SWAP - ( sz )
|
||
|
|
( write prev value )
|
||
|
|
HERE @ CURRENT @ - ,
|
||
|
|
( write size )
|
||
|
|
C,
|
||
|
|
HERE @ CURRENT !
|
||
|
|
;
|
||
|
|
|
||
|
|
: (entry) WORD [entry] ;
|