2020-04-23 13:55:00 -04:00
|
|
|
( -- n )
|
|
|
|
|
: _idle 0xff _sdcSR ;
|
|
|
|
|
|
|
|
|
|
( -- n )
|
|
|
|
|
( _sdcSR 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
|
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
|
|
|
|
|
;
|
2020-05-04 21:43:48 -04:00
|
|
|
1 12 LOADR+
|
