mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 18:58:05 +11:00
17 lines
313 B
Plaintext
17 lines
313 B
Plaintext
( -- 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
|
|
DUP 0xff = IF DROP ELSE NIP EXIT THEN
|
|
1+
|
|
DUP 20 = UNTIL
|
|
DROP 0xff
|
|
;
|
|
1 12 LOADR+
|