mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 12:28:06 +11:00
11 lines
251 B
Plaintext
11 lines
251 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 ( dummy ) 20 0 DO
|
|
DROP _idle DUP 0xff = NOT IF LEAVE THEN
|
|
LOOP ;
|