mirror of
https://github.com/hsoft/collapseos.git
synced 2024-10-06 11:10:54 +11:00
10 lines
177 B
Plaintext
10 lines
177 B
Plaintext
VARIABLE ACC
|
|
: _LIST ." Block " DUP . CRLF LIST ;
|
|
: _NUM
|
|
ACC @ SWAP _pdacc
|
|
IF _LIST 0 THEN
|
|
ACC !
|
|
;
|
|
: B BLK> @ 1- DUP BLK> ! _LIST ;
|
|
: N BLK> @ 1+ DUP BLK> ! _LIST ;
|