mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-14 19:08:05 +11:00
13 lines
248 B
Plaintext
13 lines
248 B
Plaintext
: +! TUCK @ + SWAP ! ;
|
|
: [entry] ( w -- )
|
|
H@ SWAP
|
|
BEGIN C@+ ( w+1 c ) ?DUP IF C, 0 ELSE 1 THEN UNTIL DROP
|
|
H@ SWAP - ( sz )
|
|
( write prev value )
|
|
H@ CURRENT @ - ,
|
|
C, ( write size )
|
|
H@ CURRENT !
|
|
;
|
|
|
|
: (entry) WORD [entry] ;
|