mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 01:58:06 +11:00
a36db99651
This fixes weird glitches I had on trs80. It's *always* a matter of RAM initialization. By now, I should know...
17 lines
182 B
Plaintext
17 lines
182 B
Plaintext
CREATE ACC 0 ,
|
|
: _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 ;
|
|
|
|
|
|
|
|
|
|
|
|
|