1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 03:28:05 +11:00
collapseos/blk/103
Virgil Dupras 79ce88c12c tools: add blkunpack
and remove cfspack, which will not ever be used again.
2020-04-16 19:44:17 -04:00

17 lines
186 B
Plaintext

VARIABLE ACC
: _LIST ." Block " DUP . CRLF LIST ;
: _NUM
ACC @ SWAP _pdacc
IF _LIST 0 THEN
ACC !
;
: L BLK> @ _LIST ;
: B BLK> @ 1- BLK> ! L ;
: N BLK> @ 1+ BLK> ! L ;