izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1287 Commits
4 Branches
13MB
Branch: wip
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'wip'
${ noResults }
collapseos/blk/103

17 lines
180B
Raw Permalink Blame History 

  1. VARIABLE ACC

  2. : _LIST ." Block " DUP . NL LIST ;

  3. : _NUM

  4.     ACC @ SWAP _pdacc

  5.     IF _LIST 0 THEN

  6.     ACC !

  7. ;

  8. : L BLK> @ _LIST ;

  9. : B BLK> @ 1- BLK@ L ;

  10. : N BLK> @ 1+ BLK@ L ;

  11. 

  12. 

  13. 

  14. 

  15.