1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 04:48:05 +11:00
collapseos/blk/408
Virgil Dupras b760c2d353 SCPY: don't copy the NULL
This makes [entry] much simpler. Also, remove unused LITS word.
2020-05-12 07:36:20 -04:00

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] ;