1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-09 12:48:06 +11:00
collapseos/blk/424

11 lines
251 B
Plaintext
Raw Normal View History

2020-04-24 03:55:00 +10:00
( -- n )
: _idle 0xff (spix) ;
2020-04-24 03:55:00 +10:00
( -- n )
( spix 0xff until the response is something else than 0xff
2020-04-24 03:55:00 +10:00
for a maximum of 20 times. Returns 0xff if no response. )
: _wait
2020-10-30 12:03:11 +11:00
0 ( dummy ) 20 0 DO
DROP _idle DUP 0xff = NOT IF LEAVE THEN
LOOP ;