collapseos/blk/103

VARIABLE ACC
: _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 ;
First function application: Block explorer! 2020-04-16 12:21:09 +10:00			`VARIABLE ACC`
Add word NL 2020-05-04 22:10:18 +10:00			`: _LIST ." Block " DUP . NL LIST ;`
First function application: Block explorer! 2020-04-16 12:21:09 +10:00			`: _NUM`
			`ACC @ SWAP _pdacc`
			`IF _LIST 0 THEN`
			`ACC !`
			`;`
Block explorer upgraded to block editor! 2020-04-17 05:59:43 +10:00			`: L BLK> @ _LIST ;`
block editor: fix broken B and N fixes #97 2020-04-28 08:11:54 +10:00			`: B BLK> @ 1- BLK@ L ;`
			`: N BLK> @ 1+ BLK@ L ;`
tools: add blkunpack and remove cfspack, which will not ever be used again. 2020-04-17 09:44:17 +10:00