mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-20 20:08:06 +11:00
16 lines
299 B
Plaintext
16 lines
299 B
Plaintext
( -- n )
|
|
: _idle 0xff (spix) ;
|
|
|
|
( -- n )
|
|
( spix 0xff until the response is something else than 0xff
|
|
for a maximum of 20 times. Returns 0xff if no response. )
|
|
: _wait
|
|
0 ( cnt )
|
|
BEGIN
|
|
_idle
|
|
DUP 0xff = IF DROP ELSE NIP EXIT THEN
|
|
1+
|
|
DUP 20 = UNTIL
|
|
DROP 0xff
|
|
;
|