collapseos/blk/103

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 ;
First function application: Block explorer! 2020-04-16 12:21:09 +10:00			`VARIABLE ACC`
			`: _LIST ." Block " DUP . CRLF LIST ;`
			`: _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 ;`
			`: 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