1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-19 09:38:46 +10:00
collapseos/blk/424
2020-10-29 21:03:11 -04:00

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 ;