1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 05:08:05 +11:00
collapseos/blk/103

17 lines
182 B
Plaintext
Raw Normal View History

CREATE ACC 0 ,
2020-05-04 22:10:18 +10:00
: _LIST ." Block " DUP . NL LIST ;
: _NUM
ACC @ SWAP _pdacc
IF _LIST 0 THEN
ACC !
;
: L BLK> @ _LIST ;
: B BLK> @ 1- BLK@ L ;
: N BLK> @ 1+ BLK@ L ;