collapseos/blk/604

( -- 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 SWAP DROP EXIT THEN
        1+
    DUP 20 = UNTIL
    DROP 0xff
;
1 12 LOADR+
Copy sdc driver to blkfs 2020-04-24 03:55:00 +10: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`
			`DUP 0xff = IF DROP ELSE SWAP DROP EXIT THEN`
			`1+`
			`DUP 20 = UNTIL`
			`DROP 0xff`
			`;`
blk: Add LOAD+ and LOADR+ And use them in all places they make sense. 2020-05-05 11:43:48 +10:00			`1 12 LOADR+`