collapseos/blk/604

16 lines
299 B
Plaintext
Raw Normal View History

2020-04-23 13:55:00 -04:00
( -- n )
: _idle 0xff (spix) ;
2020-04-23 13:55:00 -04:00
( -- n )
( spix 0xff until the response is something else than 0xff
2020-04-23 13:55:00 -04:00
for a maximum of 20 times. Returns 0xff if no response. )
: _wait
0 ( cnt )
BEGIN
_idle
2020-05-22 14:03:12 -04:00
DUP 0xff = IF DROP ELSE NIP EXIT THEN
2020-04-23 13:55:00 -04:00
1+
DUP 20 = UNTIL
DROP 0xff
;