mirror of https://github.com/hsoft/collapseos.git
17 lines
537 B
Plaintext
17 lines
537 B
Plaintext
: SDC$
|
|
10 0 DO _idle DROP LOOP
|
|
10 0 DO ( r )
|
|
0x40 0 0 SDCMDR1 ( CMD0 )
|
|
DUP 1 = IF LEAVE ELSE DROP THEN
|
|
LOOP 1 = NOT IF _err THEN
|
|
0x48 0 0x1aa ( CMD8 ) SDCMDR7 ( r arg1 arg2 )
|
|
( expected 1 0 0x1aa )
|
|
0x1aa = ROT ( arg1 f r ) 1 = AND SWAP ( f&f arg1 )
|
|
NOT ( 0 expected ) AND ( f&f&f ) NOT IF _err THEN
|
|
BEGIN
|
|
0x77 0 0 SDCMDR1 ( CMD55 )
|
|
1 = NOT IF _err THEN
|
|
0x69 0x4000 0 SDCMDR1 ( CMD41 )
|
|
DUP 1 > IF _err THEN
|
|
NOT UNTIL ; ( out of idle mode, success! )
|