mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-27 17:38:06 +11:00
17 lines
497 B
Plaintext
17 lines
497 B
Plaintext
|
: _sdc! ( srcaddr blkno -- )
|
||
|
|
_sdcSel 0x58 ( CMD24 ) 0 ROT ( a cmd 0 blkno ) _cmd
|
||
|
|
IF _err THEN
|
||
|
|
_idle DROP 0xfe _sdcSR DROP
|
||
|
|
0 SWAP ( crc a )
|
||
|
|
512 0 DO ( crc a )
|
||
|
|
C@+ ( crc a+1 n )
|
||
|
|
ROT OVER ( a n crc n )
|
||
|
|
_crc16 ( a n crc )
|
||
|
|
SWAP ( a crc n )
|
||
|
|
_sdcSR DROP ( a crc )
|
||
|
|
SWAP ( crc a )
|
||
|
|
LOOP
|
||
|
|
DROP ( crc ) 256 /MOD ( lsb msb )
|
||
|
|
_sdcSR DROP _sdcSR DROP
|
||
|
|
_wait DROP _sdcDesel ;
|