collapseos/blk/612

: _sdc@  ( dstaddr blkno -- )
    (spie) 0x51 ( CMD17 ) 0 ROT ( a cmd 0 blkno ) _cmd
    IF _err THEN
    _wait 0xfe = NOT IF _err THEN
    0 SWAP               ( crc a )
    512 0 DO             ( crc a )
        DUP _idle        ( crc a a n )
        DUP ROT C!       ( crc a n )
        ROT SWAP _crc16  ( a crc )
        SWAP 1+          ( crc a+1 )
    LOOP
    DROP                 ( crc1 )
    _idle 8 LSHIFT _idle +  ( crc2 )
    _wait DROP (spid)
    = NOT IF _err THEN ;
Copy sdc driver to blkfs 2020-04-24 03:55:00 +10:00			`: _sdc@ ( dstaddr blkno -- )`
rc2014: separate SPI relay and SDC drivers My intention is to reuse the SPI relay to program AVR MCUs from a RC2014. 2020-06-30 08:48:00 +10:00			`(spie) 0x51 ( CMD17 ) 0 ROT ( a cmd 0 blkno ) _cmd`
Copy sdc driver to blkfs 2020-04-24 03:55:00 +10:00			`IF _err THEN`
			`_wait 0xfe = NOT IF _err THEN`
			`0 SWAP ( crc a )`
			`512 0 DO ( crc a )`
			`DUP _idle ( crc a a n )`
			`DUP ROT C! ( crc a n )`
			`ROT SWAP _crc16 ( a crc )`
			`SWAP 1+ ( crc a+1 )`
			`LOOP`
			`DROP ( crc1 )`
Add words RSHIFT and LSHIFT 2020-05-08 05:40:10 +10:00			`_idle 8 LSHIFT _idle + ( crc2 )`
rc2014: separate SPI relay and SDC drivers My intention is to reuse the SPI relay to program AVR MCUs from a RC2014. 2020-06-30 08:48:00 +10:00			`_wait DROP (spid)`
Copy sdc driver to blkfs 2020-04-24 03:55:00 +10:00			`= NOT IF _err THEN ;`