izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/106

11 lines
180 B
Plaintext
Raw Normal View History

ed: free some blocks for the docs
2020-06-10 11:48:49 +10:00
CREATE ACC 0 ,
: _LIST ." Block " DUP . NL LIST ;
: _NUM
ACC @ SWAP _pdacc
BROWSE: ignore invalid digits (#123) Documentation in block 100 says a number followed by a space or return lists the contents of the block. However, typing any other character does this too, because _pdacc returns -1 in this case. This is annoying because typing "n" instead of "N" immediately after jumping to some block was bringing you to block 0. Now "n" is ignored instead. This commit changes the condition for printing to explicitly check for the value of 1, which means whitespace according to _pdacc documentation in block 355.
2020-06-17 09:55:26 +10:00
1 = IF _LIST 0 THEN
ed: free some blocks for the docs
2020-06-10 11:48:49 +10:00
ACC !
;
: L BLK> @ _LIST ;
: B BLK> @ 1- BLK@ L ;
: N BLK> @ 1+ BLK@ L ;