mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-16 19:18:45 +10:00
6a09910dfc
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.
17 lines
186 B
Plaintext
17 lines
186 B
Plaintext
CREATE ACC 0 ,
|
|
: _LIST ." Block " DUP . NL LIST ;
|
|
: _NUM
|
|
ACC @ SWAP _pdacc
|
|
1 = IF _LIST 0 THEN
|
|
ACC !
|
|
;
|
|
: L BLK> @ _LIST ;
|
|
: B BLK> @ 1- BLK@ L ;
|
|
: N BLK> @ 1+ BLK@ L ;
|
|
|
|
|
|
|
|
|
|
|
|
|