source: rtems/c/src/libchip/i2c/spi-sd-card.c @ fa011f35

4.11
Last change on this file since fa011f35 was fa011f35, checked in by Ralf Corsepius <ralf.corsepius@…>, on Dec 13, 2011 at 12:00:13 PM

2011-12-13 Ralf Corsépius <ralf.corsepius@…>

  • libchip/i2c/spi-memdrv.c: Make spi_memdrv_minor2param_ptr, spi_memdrv_wait_ms static.
  • libchip/i2c/spi-sd-card.c: Make sd_card_compute_crc7, sd_card_compute_crc16 static.
  • Property mode set to 100644
File size: 37.3 KB
Line 
1/**
2 * @file
3 *
4 * @brief SD Card LibI2C driver.
5 */
6
7/*
8 * Copyright (c) 2008
9 * Embedded Brains GmbH
10 * Obere Lagerstr. 30
11 * D-82178 Puchheim
12 * Germany
13 * rtems@embedded-brains.de
14 *
15 * The license and distribution terms for this file may be found in the file
16 * LICENSE in this distribution or at http://www.rtems.com/license/LICENSE.
17 */
18
19#include <stdio.h>
20#include <errno.h>
21#include <inttypes.h>
22
23#include <rtems.h>
24#include <rtems/libi2c.h>
25#include <rtems/libio.h>
26#include <rtems/diskdevs.h>
27#include <rtems/blkdev.h>
28
29#include <libchip/spi-sd-card.h>
30
31#include <rtems/status-checks.h>
32
33/**
34 * @name Integer to and from Byte-Stream Converter
35 * @{
36 */
37
38static inline uint16_t sd_card_get_uint16( const uint8_t *s)
39{
40        return (uint16_t) ((s [0] << 8) | s [1]);
41}
42
43static inline uint32_t sd_card_get_uint32( const uint8_t *s)
44{
45        return ((uint32_t) s [0] << 24) | ((uint32_t) s [1] << 16) | ((uint32_t) s [2] << 8) | (uint32_t) s [3];
46}
47
48static inline void sd_card_put_uint16( uint16_t v, uint8_t *s)
49{
50        *s++ = (uint8_t) (v >> 8);
51        *s   = (uint8_t) (v);
52}
53
54static inline void sd_card_put_uint32( uint32_t v, uint8_t *s)
55{
56        *s++ = (uint8_t) (v >> 24);
57        *s++ = (uint8_t) (v >> 16);
58        *s++ = (uint8_t) (v >> 8);
59        *s   = (uint8_t) (v);
60}
61
62/** @} */
63
64#define SD_CARD_BUSY_TOKEN 0
65
66#define SD_CARD_BLOCK_SIZE_DEFAULT 512
67
68#define SD_CARD_COMMAND_RESPONSE_START 7
69
70/**
71 * @name Commands
72 * @{
73 */
74
75#define SD_CARD_CMD_GO_IDLE_STATE 0
76#define SD_CARD_CMD_SEND_OP_COND 1
77#define SD_CARD_CMD_SEND_IF_COND 8
78#define SD_CARD_CMD_SEND_CSD 9
79#define SD_CARD_CMD_SEND_CID 10
80#define SD_CARD_CMD_STOP_TRANSMISSION 12
81#define SD_CARD_CMD_SEND_STATUS 13
82#define SD_CARD_CMD_SET_BLOCKLEN 16
83#define SD_CARD_CMD_READ_SINGLE_BLOCK 17
84#define SD_CARD_CMD_READ_MULTIPLE_BLOCK 18
85#define SD_CARD_CMD_SET_BLOCK_COUNT 23
86#define SD_CARD_CMD_WRITE_BLOCK 24
87#define SD_CARD_CMD_WRITE_MULTIPLE_BLOCK 25
88#define SD_CARD_CMD_PROGRAM_CSD 27
89#define SD_CARD_CMD_SET_WRITE_PROT 28
90#define SD_CARD_CMD_CLR_WRITE_PROT 29
91#define SD_CARD_CMD_SEND_WRITE_PROT 30
92#define SD_CARD_CMD_TAG_SECTOR_START 32
93#define SD_CARD_CMD_TAG_SECTOR_END 33
94#define SD_CARD_CMD_UNTAG_SECTOR 34
95#define SD_CARD_CMD_TAG_ERASE_GROUP_START 35
96#define SD_CARD_CMD_TAG_ERASE_GROUP_END 36
97#define SD_CARD_CMD_UNTAG_ERASE_GROUP 37
98#define SD_CARD_CMD_ERASE 38
99#define SD_CARD_CMD_LOCK_UNLOCK 42
100#define SD_CARD_CMD_APP_CMD 55
101#define SD_CARD_CMD_GEN_CND 56
102#define SD_CARD_CMD_READ_OCR 58
103#define SD_CARD_CMD_CRC_ON_OFF 59
104
105/** @} */
106
107/**
108 * @name Application Commands
109 * @{
110 */
111
112#define SD_CARD_ACMD_SD_SEND_OP_COND 41
113
114/** @} */
115
116/**
117 * @name Command Flags
118 * @{
119 */
120
121#define SD_CARD_FLAG_HCS 0x40000000U
122
123#define SD_CARD_FLAG_VHS_2_7_TO_3_3 0x00000100U
124
125#define SD_CARD_FLAG_CHECK_PATTERN 0x000000aaU
126
127/** @} */
128
129/**
130 * @name Command Fields
131 * @{
132 */
133
134#define SD_CARD_COMMAND_SET_COMMAND( c, cmd) (c) [1] = (uint8_t) (0x40 + ((cmd) & 0x3f))
135
136#define SD_CARD_COMMAND_SET_ARGUMENT( c, arg) sd_card_put_uint32( (arg), &((c) [2]))
137
138#define SD_CARD_COMMAND_SET_CRC7( c, crc7) ((c) [6] = ((crc7) << 1) | 1U)
139
140#define SD_CARD_COMMAND_GET_CRC7( c) ((c) [6] >> 1)
141
142/** @} */
143
144/**
145 * @name Response Fields
146 * @{
147 */
148
149#define SD_CARD_IS_RESPONSE( r) (((r) & 0x80) == 0)
150
151#define SD_CARD_IS_ERRORLESS_RESPONSE( r) (((r) & 0x7e) == 0)
152
153#define SD_CARD_IS_NOT_IDLE_RESPONSE( r) (((r) & 0x81) == 0)
154
155#define SD_CARD_IS_DATA_ERROR( r) (((r) & 0xe0) == 0)
156
157#define SD_CARD_IS_DATA_REJECTED( r) (((r) & 0x1f) != 0x05)
158
159/** @} */
160
161/**
162 * @name Card Identification
163 * @{
164 */
165
166#define SD_CARD_CID_SIZE 16
167
168#define SD_CARD_CID_GET_MID( cid) ((cid) [0])
169#define SD_CARD_CID_GET_OID( cid) sd_card_get_uint16( cid + 1)
170#define SD_CARD_CID_GET_PNM( cid, i) ((char) (cid) [3 + (i)])
171#define SD_CARD_CID_GET_PRV( cid) ((cid) [9])
172#define SD_CARD_CID_GET_PSN( cid) sd_card_get_uint32( cid + 10)
173#define SD_CARD_CID_GET_MDT( cid) ((cid) [14])
174#define SD_CARD_CID_GET_CRC7( cid) ((cid) [15] >> 1)
175
176/** @} */
177
178/**
179 * @name Card Specific Data
180 * @{
181 */
182
183#define SD_CARD_CSD_SIZE 16
184
185#define SD_CARD_CSD_GET_CSD_STRUCTURE( csd) ((csd) [0] >> 6)
186#define SD_CARD_CSD_GET_SPEC_VERS( csd) (((csd) [0] >> 2) & 0xf)
187#define SD_CARD_CSD_GET_TAAC( csd) ((csd) [1])
188#define SD_CARD_CSD_GET_NSAC( csd) ((uint32_t) (csd) [2])
189#define SD_CARD_CSD_GET_TRAN_SPEED( csd) ((csd) [3])
190#define SD_CARD_CSD_GET_C_SIZE( csd) ((((uint32_t) (csd) [6] & 0x3) << 10) + (((uint32_t) (csd) [7]) << 2) + ((((uint32_t) (csd) [8]) >> 6) & 0x3))
191#define SD_CARD_CSD_GET_C_SIZE_MULT( csd) ((((csd) [9] & 0x3) << 1) + (((csd) [10] >> 7) & 0x1))
192#define SD_CARD_CSD_GET_READ_BLK_LEN( csd) ((uint32_t) (csd) [5] & 0xf)
193#define SD_CARD_CSD_GET_WRITE_BLK_LEN( csd) ((((uint32_t) (csd) [12] & 0x3) << 2) + ((((uint32_t) (csd) [13]) >> 6) & 0x3))
194#define SD_CARD_CSD_1_GET_C_SIZE( csd) ((((uint32_t) (csd) [7] & 0x3f) << 16) + (((uint32_t) (csd) [8]) << 8) + (uint32_t) (csd) [9])
195
196/** @} */
197
198#define SD_CARD_INVALIDATE_RESPONSE_INDEX( e) e->response_index = SD_CARD_COMMAND_SIZE
199
200/**
201 * @name Data Start and Stop Tokens
202 * @{
203 */
204
205#define SD_CARD_START_BLOCK_SINGLE_BLOCK_READ 0xfe
206#define SD_CARD_START_BLOCK_MULTIPLE_BLOCK_READ 0xfe
207#define SD_CARD_START_BLOCK_SINGLE_BLOCK_WRITE 0xfe
208#define SD_CARD_START_BLOCK_MULTIPLE_BLOCK_WRITE 0xfc
209#define SD_CARD_STOP_TRANSFER_MULTIPLE_BLOCK_WRITE 0xfd
210
211/** @} */
212
213/**
214 * @name Card Specific Data Functions
215 * @{
216 */
217
218static inline uint32_t sd_card_block_number( const uint8_t *csd)
219{
220        uint32_t size = SD_CARD_CSD_GET_C_SIZE( csd);
221        uint32_t mult = 1U << (SD_CARD_CSD_GET_C_SIZE_MULT( csd) + 2);
222        return (size + 1) * mult;
223}
224
225static inline uint32_t sd_card_capacity( const uint8_t *csd)
226{
227        uint32_t block_size = 1U << SD_CARD_CSD_GET_READ_BLK_LEN( csd);
228        return sd_card_block_number( csd) * block_size;
229}
230
231static inline uint32_t sd_card_transfer_speed( const uint8_t *csd)
232{
233        uint32_t s = SD_CARD_CSD_GET_TRAN_SPEED( csd);
234        uint32_t e = s & 0x7;
235        uint32_t m = s >> 3;
236        switch (e) {
237                case 0: s = 10000; break;
238                case 1: s = 100000; break;
239                case 2: s = 1000000; break;
240                case 3: s = 10000000; break;
241                default: s = 0; break;
242        }
243        switch (m) {
244                case 1: s *= 10; break;
245                case 2: s *= 12; break;
246                case 3: s *= 13; break;
247                case 4: s *= 15; break;
248                case 5: s *= 20; break;
249                case 6: s *= 25; break;
250                case 7: s *= 30; break;
251                case 8: s *= 35; break;
252                case 9: s *= 40; break;
253                case 10: s *= 45; break;
254                case 11: s *= 50; break;
255                case 12: s *= 55; break;
256                case 13: s *= 60; break;
257                case 14: s *= 70; break;
258                case 15: s *= 80; break;
259                default: s *= 0; break;
260        }
261        return s;
262}
263
264static inline uint32_t sd_card_access_time( const uint8_t *csd)
265{
266        uint32_t ac = SD_CARD_CSD_GET_TAAC( csd);
267        uint32_t e = ac & 0x7;
268        uint32_t m = ac >> 3;
269        switch (e) {
270                case 0: ac = 1; break;
271                case 1: ac = 10; break;
272                case 2: ac = 100; break;
273                case 3: ac = 1000; break;
274                case 4: ac = 10000; break;
275                case 5: ac = 100000; break;
276                case 6: ac = 1000000; break;
277                case 7: ac = 10000000; break;
278                default: ac = 0; break;
279        }
280        switch (m) {
281                case 1: ac *= 10; break;
282                case 2: ac *= 12; break;
283                case 3: ac *= 13; break;
284                case 4: ac *= 15; break;
285                case 5: ac *= 20; break;
286                case 6: ac *= 25; break;
287                case 7: ac *= 30; break;
288                case 8: ac *= 35; break;
289                case 9: ac *= 40; break;
290                case 10: ac *= 45; break;
291                case 11: ac *= 50; break;
292                case 12: ac *= 55; break;
293                case 13: ac *= 60; break;
294                case 14: ac *= 70; break;
295                case 15: ac *= 80; break;
296                default: ac *= 0; break;
297        }
298        return ac / 10;
299}
300
301static inline uint32_t sd_card_max_access_time( const uint8_t *csd, uint32_t transfer_speed)
302{
303        uint64_t ac = sd_card_access_time( csd);
304        uint32_t ac_100ms = transfer_speed / 80;
305        uint32_t n = SD_CARD_CSD_GET_NSAC( csd) * 100;
306        /* ac is in ns, transfer_speed in bps, max_access_time in bytes.
307           max_access_time is 100 times typical access time (taac+nsac) */
308        ac = ac * transfer_speed / 80000000;
309        ac = ac + 100*n;
310        if ((uint32_t)ac > ac_100ms)
311                return ac_100ms;
312        else
313                return (uint32_t)ac;
314}
315
316/** @} */
317
318/**
319 * @name CRC functions
320 *
321 * Based on http://en.wikipedia.org/wiki/Computation_of_CRC
322 *
323 * @{
324 */
325
326static uint8_t sd_card_compute_crc7 (uint8_t *data, size_t len)
327{
328        uint8_t e, f, crc;
329        size_t i;
330
331        crc = 0;
332        for (i = 0; i < len; i++) {
333                e   = crc ^ data[i];
334                f   = e ^ (e >> 4) ^ (e >> 7);
335                crc = (f << 1) ^ (f << 4);
336        }
337        return crc >> 1;
338}
339
340static uint16_t sd_card_compute_crc16 (uint8_t *data, size_t len)
341{
342        uint8_t s, t;
343        uint16_t crc;
344        size_t i;
345
346        crc = 0;
347        for (i = 0; i < len; i++) {
348                s = data[i] ^ (crc >> 8);
349                t = s ^ (s >> 4);
350                crc = (crc << 8) ^ t ^ (t << 5) ^ (t << 12);
351        }
352        return crc;
353}
354
355/** @} */
356
357/**
358 * @name Communication Functions
359 * @{
360 */
361
362static inline int sd_card_query( sd_card_driver_entry *e, uint8_t *in, int n)
363{
364        return rtems_libi2c_read_bytes( e->bus, in, n);
365}
366
367static int sd_card_wait( sd_card_driver_entry *e)
368{
369        int rv = 0;
370        int r = 0;
371        int n = 2;
372        /* For writes, the timeout is 2.5 times that of reads; since we
373           don't know if it is a write or read, assume write.
374           FIXME should actually look at R2W_FACTOR for non-HC cards. */
375        int retries = e->n_ac_max * 25 / 10;
376        /* n_ac_max/100 is supposed to be the average waiting time. To
377           approximate this, we start with waiting n_ac_max/150 and
378           gradually increase the waiting time. */
379        int wait_time_bytes = (retries + 149) / 150;
380        while (e->busy) {
381                /* Query busy tokens */
382                rv = sd_card_query( e, e->response, n);
383                RTEMS_CHECK_RV( rv, "Busy");
384
385                /* Search for non busy tokens */
386                for (r = 0; r < n; ++r) {
387                        if (e->response [r] != SD_CARD_BUSY_TOKEN) {
388                                e->busy = false;
389                                return 0;
390                        }
391                }
392                retries -= n;
393                if (retries <= 0) {
394                        return -RTEMS_TIMEOUT;
395                }
396
397                if (e->schedule_if_busy) {
398                        uint64_t wait_time_us = wait_time_bytes;
399                        wait_time_us *= 8000000;
400                        wait_time_us /= e->transfer_mode.baudrate;
401                        rtems_task_wake_after( RTEMS_MICROSECONDS_TO_TICKS(wait_time_us));
402                        retries -= wait_time_bytes;
403                        wait_time_bytes = wait_time_bytes * 15 / 10;
404                } else {
405                        n = SD_CARD_COMMAND_SIZE;
406                }
407        }
408        return 0;
409}
410
411static int sd_card_send_command( sd_card_driver_entry *e, uint32_t command, uint32_t argument)
412{
413        int rv = 0;
414        rtems_libi2c_read_write_t rw = {
415                .rd_buf = e->response,
416                .wr_buf = e->command,
417                .byte_cnt = SD_CARD_COMMAND_SIZE
418        };
419        int r = 0;
420        uint8_t crc7;
421
422        SD_CARD_INVALIDATE_RESPONSE_INDEX( e);
423
424        /* Wait until card is not busy */
425        rv = sd_card_wait( e);
426        RTEMS_CHECK_RV( rv, "Wait");
427
428        /* Write command and read response */
429        SD_CARD_COMMAND_SET_COMMAND( e->command, command);
430        SD_CARD_COMMAND_SET_ARGUMENT( e->command, argument);
431        crc7 = sd_card_compute_crc7( e->command + 1, 5);
432        SD_CARD_COMMAND_SET_CRC7( e->command, crc7);
433        rv = rtems_libi2c_ioctl( e->bus, RTEMS_LIBI2C_IOCTL_READ_WRITE, &rw);
434        RTEMS_CHECK_RV( rv, "Write command and read response");
435
436        /* Check respose */
437        for (r = SD_CARD_COMMAND_RESPONSE_START; r < SD_CARD_COMMAND_SIZE; ++r) {
438                RTEMS_DEBUG_PRINT( "Token [%02u]: 0x%02x\n", r, e->response [r]);
439                e->response_index = r;
440                if (SD_CARD_IS_RESPONSE( e->response [r])) {
441                        if (SD_CARD_IS_ERRORLESS_RESPONSE( e->response [r])) {
442                                return 0;
443                        } else {
444                                RTEMS_SYSLOG_ERROR( "Command error [%02i]: 0x%02" PRIx8 "\n", r, e->response [r]);
445                                goto sd_card_send_command_error;
446                        }
447                } else if (e->response [r] != SD_CARD_IDLE_TOKEN) {
448                        RTEMS_SYSLOG_ERROR( "Unexpected token [%02i]: 0x%02" PRIx8 "\n", r, e->response [r]);
449                        goto sd_card_send_command_error;
450                }
451        }
452
453        RTEMS_SYSLOG_ERROR( "Timeout\n");
454
455sd_card_send_command_error:
456
457        RTEMS_SYSLOG_ERROR( "Response:");
458        for (r = 0; r < SD_CARD_COMMAND_SIZE; ++r) {
459                if (e->response_index == r) {
460                        RTEMS_SYSLOG_PRINT( " %02" PRIx8 ":[%02" PRIx8 "]", e->command [r], e->response [r]);
461                } else {
462                        RTEMS_SYSLOG_PRINT( " %02" PRIx8 ":%02" PRIx8 "", e->command [r], e->response [r]);
463                }
464        }
465        RTEMS_SYSLOG_PRINT( "\n");
466
467        return -RTEMS_IO_ERROR;
468}
469
470static int sd_card_send_register_command( sd_card_driver_entry *e, uint32_t command, uint32_t argument, uint32_t *reg)
471{
472        int rv = 0;
473        uint8_t crc7;
474
475        rv = sd_card_send_command( e, command, argument);
476        RTEMS_CHECK_RV( rv, "Send command");
477
478        if (e->response_index + 5 > SD_CARD_COMMAND_SIZE) {
479                /*
480                 * TODO: If this happens in the wild we need to implement a
481                 * more sophisticated response query.
482                 */
483                RTEMS_SYSLOG_ERROR( "Unexpected response position\n");
484                return -RTEMS_IO_ERROR;
485        }
486
487        crc7 = sd_card_compute_crc7( e->response + e->response_index, 5);
488        if (crc7 != SD_CARD_COMMAND_GET_CRC7( e->response + e->response_index) &&
489                SD_CARD_COMMAND_GET_CRC7( e->response + e->response_index) != 0x7f) {
490                RTEMS_SYSLOG_ERROR( "CRC check failed on register command\n");
491                return -RTEMS_IO_ERROR;
492        }
493
494        *reg = sd_card_get_uint32( e->response + e->response_index + 1);
495
496        return 0;
497}
498
499static int sd_card_stop_multiple_block_read( sd_card_driver_entry *e)
500{
501        int rv = 0;
502
503        SD_CARD_COMMAND_SET_COMMAND( e->command, SD_CARD_CMD_STOP_TRANSMISSION);
504        rv = rtems_libi2c_write_bytes( e->bus, e->command, SD_CARD_COMMAND_SIZE);
505        RTEMS_CHECK_RV( rv, "Write stop transfer token");
506
507        return 0;
508}
509
510static int sd_card_stop_multiple_block_write( sd_card_driver_entry *e)
511{
512        int rv = 0;
513        uint8_t stop_transfer [3] = { SD_CARD_IDLE_TOKEN, SD_CARD_STOP_TRANSFER_MULTIPLE_BLOCK_WRITE, SD_CARD_IDLE_TOKEN };
514
515        /* Wait until card is not busy */
516        rv = sd_card_wait( e);
517        RTEMS_CHECK_RV( rv, "Wait");
518
519        /* Send stop token */
520        rv = rtems_libi2c_write_bytes( e->bus, stop_transfer, 3);
521        RTEMS_CHECK_RV( rv, "Write stop transfer token");
522
523        /* Card is now busy */
524        e->busy = true;
525
526        return 0;
527}
528
529static int sd_card_read( sd_card_driver_entry *e, uint8_t start_token, uint8_t *in, int n)
530{
531        int rv = 0;
532
533        /* Discard command response */
534        int r = e->response_index + 1;
535
536        /* Standard response size */
537        int response_size = SD_CARD_COMMAND_SIZE;
538
539        /* Where the response is stored */
540        uint8_t *response = e->response;
541
542        /* Data input index */
543        int i = 0;
544
545        /* CRC check of data */
546        uint16_t crc16;
547
548        /* Maximum number of tokens to read. */
549        int retries = e->n_ac_max;
550
551        SD_CARD_INVALIDATE_RESPONSE_INDEX( e);
552
553        while (true) {
554                RTEMS_DEBUG_PRINT( "Search from %u to %u\n", r, response_size - 1);
555
556                /* Search the data start token in in current response buffer */
557                retries -= (response_size - r);
558                while (r < response_size) {
559                        RTEMS_DEBUG_PRINT( "Token [%02u]: 0x%02x\n", r, response [r]);
560                        if (response [r] == start_token) {
561                                /* Discard data start token */
562                                ++r;
563                                goto sd_card_read_start;
564                        } else if (SD_CARD_IS_DATA_ERROR( response [r])) {
565                                RTEMS_SYSLOG_ERROR( "Data error token [%02i]: 0x%02" PRIx8 "\n", r, response [r]);
566                                return -RTEMS_IO_ERROR;
567                        } else if (response [r] != SD_CARD_IDLE_TOKEN) {
568                                RTEMS_SYSLOG_ERROR( "Unexpected token [%02i]: 0x%02" PRIx8 "\n", r, response [r]);
569                                return -RTEMS_IO_ERROR;
570                        }
571                        ++r;
572                }
573
574                if (retries <= 0) {
575                        RTEMS_SYSLOG_ERROR( "Timeout\n");
576                        return -RTEMS_IO_ERROR;
577                }
578
579                if (e->schedule_if_busy)
580                        rtems_task_wake_after( RTEMS_YIELD_PROCESSOR);
581
582                /* Query more.  We typically have to wait between 10 and 100
583                   bytes.  To reduce overhead, read the response in chunks of
584                   50 bytes - this doesn't introduce too much copy overhead
585                   but does allow SPI DMA transfers to work efficiently. */
586                response = in;
587                response_size = 50;
588                if (response_size > n)
589                        response_size = n;
590                rv = sd_card_query( e, response, response_size);
591                RTEMS_CHECK_RV( rv, "Query data start token");
592
593                /* Reset start position */
594                r = 0;
595        }
596
597sd_card_read_start:
598
599        /* Read data */
600        while (r < response_size && i < n) {
601                in [i++] = response [r++];
602        }
603
604        /* Read more data? */
605        if (i < n) {
606                rv = sd_card_query( e, &in [i], n - i);
607                RTEMS_CHECK_RV( rv, "Read data");
608                i += rv;
609        }
610
611        /* Read CRC 16 and N_RC */
612        rv = sd_card_query( e, e->response, 3);
613        RTEMS_CHECK_RV( rv, "Read CRC 16");
614
615        crc16 = sd_card_compute_crc16 (in, n);
616        if ((e->response[0] != ((crc16 >> 8) & 0xff)) ||
617            (e->response[1] != (crc16 & 0xff))) {
618                RTEMS_SYSLOG_ERROR( "CRC check failed on read\n");
619                return -RTEMS_IO_ERROR;
620        }
621
622        return i;
623}
624
625static int sd_card_write( sd_card_driver_entry *e, uint8_t start_token, uint8_t *out, int n)
626{
627        int rv = 0;
628        uint8_t crc16_bytes [2] = { 0, 0 };
629        uint16_t crc16;
630
631        /* Data output index */
632        int o = 0;
633
634        /* Wait until card is not busy */
635        rv = sd_card_wait( e);
636        RTEMS_CHECK_RV( rv, "Wait");
637
638        /* Write data start token */
639        rv = rtems_libi2c_write_bytes( e->bus, &start_token, 1);
640        RTEMS_CHECK_RV( rv, "Write data start token");
641
642        /* Write data */
643        o = rtems_libi2c_write_bytes( e->bus, out, n);
644        RTEMS_CHECK_RV( o, "Write data");
645
646        /* Write CRC 16 */
647        crc16 = sd_card_compute_crc16(out, n);
648        crc16_bytes[0] = (crc16>>8) & 0xff;
649        crc16_bytes[1] = (crc16) & 0xff;
650        rv = rtems_libi2c_write_bytes( e->bus, crc16_bytes, 2);
651        RTEMS_CHECK_RV( rv, "Write CRC 16");
652
653        /* Read data response */
654        rv = sd_card_query( e, e->response, 2);
655        RTEMS_CHECK_RV( rv, "Read data response");
656        if (SD_CARD_IS_DATA_REJECTED( e->response [0])) {
657                RTEMS_SYSLOG_ERROR( "Data rejected: 0x%02" PRIx8 "\n", e->response [0]);
658                return -RTEMS_IO_ERROR;
659        }
660
661        /* Card is now busy */
662        e->busy = true;
663
664        return o;
665}
666
667static inline rtems_status_code sd_card_start( sd_card_driver_entry *e)
668{
669        rtems_status_code sc = RTEMS_SUCCESSFUL;
670        int rv = 0;
671
672        sc = rtems_libi2c_send_start( e->bus);
673        RTEMS_CHECK_SC( sc, "Send start");
674
675        rv = rtems_libi2c_ioctl( e->bus, RTEMS_LIBI2C_IOCTL_SET_TFRMODE, &e->transfer_mode);
676        RTEMS_CHECK_RV_SC( rv, "Set transfer mode");
677
678        sc = rtems_libi2c_send_addr( e->bus, 1);
679        RTEMS_CHECK_SC( sc, "Send address");
680
681        return RTEMS_SUCCESSFUL;
682}
683
684static inline rtems_status_code sd_card_stop( sd_card_driver_entry *e)
685{
686        rtems_status_code sc = RTEMS_SUCCESSFUL;
687
688        sc = rtems_libi2c_send_stop( e->bus);
689        RTEMS_CHECK_SC( sc, "Send stop");
690
691        return RTEMS_SUCCESSFUL;
692}
693
694static rtems_status_code sd_card_init( sd_card_driver_entry *e)
695{
696        rtems_status_code sc = RTEMS_SUCCESSFUL;
697        int rv = 0;
698        uint8_t block [SD_CARD_BLOCK_SIZE_DEFAULT];
699        uint32_t transfer_speed = 0;
700        uint32_t read_block_size = 0;
701        uint32_t write_block_size = 0;
702        uint8_t csd_structure = 0;
703        uint64_t capacity = 0;
704        uint8_t crc7;
705
706        /* Assume first that we have a SD card and not a MMC card */
707        bool assume_sd = true;
708
709        /*
710         * Assume high capacity until proven wrong (applies to SD and not yet
711         * existing MMC).
712         */
713        bool high_capacity = true;
714
715        bool do_cmd58 = true;
716        uint32_t cmd_arg = 0;
717        uint32_t if_cond_test = SD_CARD_FLAG_VHS_2_7_TO_3_3 | SD_CARD_FLAG_CHECK_PATTERN;
718        uint32_t if_cond_reg = if_cond_test;
719
720        /* Start */
721        sc = sd_card_start( e);
722        RTEMS_CLEANUP_SC( sc, sd_card_driver_init_cleanup, "Start");
723
724        /* Wait until card is not busy */
725        rv = sd_card_wait( e);
726        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Wait");
727
728        /* Send idle tokens for at least 74 clock cycles with active chip select */
729        memset( block, SD_CARD_IDLE_TOKEN, SD_CARD_BLOCK_SIZE_DEFAULT);
730        rv = rtems_libi2c_write_bytes( e->bus, block, SD_CARD_BLOCK_SIZE_DEFAULT);
731        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Active chip select delay");
732
733        /* Stop */
734        sc = sd_card_stop( e);
735        RTEMS_CHECK_SC( sc, "Stop");
736
737        /* Start with inactive chip select */
738        sc = rtems_libi2c_send_start( e->bus);
739        RTEMS_CHECK_SC( sc, "Send start");
740
741        /* Set transfer mode */
742        rv = rtems_libi2c_ioctl( e->bus, RTEMS_LIBI2C_IOCTL_SET_TFRMODE, &e->transfer_mode);
743        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Set transfer mode");
744
745        /* Send idle tokens with inactive chip select */
746        rv = sd_card_query( e, e->response, SD_CARD_COMMAND_SIZE);
747        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Inactive chip select delay");
748
749        /* Activate chip select */
750        sc = rtems_libi2c_send_addr( e->bus, 1);
751        RTEMS_CLEANUP_SC( sc, sd_card_driver_init_cleanup, "Send address");
752
753        /* Stop multiple block write */
754        sd_card_stop_multiple_block_write( e);
755
756        /* Get card status */
757        sd_card_send_command( e, SD_CARD_CMD_SEND_STATUS, 0);
758
759        /* Stop multiple block read */
760        sd_card_stop_multiple_block_read( e);
761
762        /* Switch to SPI mode */
763        rv = sd_card_send_command( e, SD_CARD_CMD_GO_IDLE_STATE, 0);
764        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Send: SD_CARD_CMD_GO_IDLE_STATE");
765
766        /*
767         * Get interface condition, CMD8.  This is new for SD 2.x and enables
768         * getting the High Capacity Support flag HCS and checks that the
769         * voltage is right.  Some MMCs accept this command but will still fail
770         * on ACMD41.  SD 1.x cards will fails this command and do not support
771         * HCS (> 2G capacity).
772         */
773        rv = sd_card_send_register_command( e, SD_CARD_CMD_SEND_IF_COND, if_cond_reg, &if_cond_reg);
774
775        /*
776         * Regardless of whether CMD8 above passes or fails, send ACMD41.  If
777         * card is MMC it will fail.  But older SD < 2.0 (which fail CMD8) will
778         * always stay "idle" if cmd_arg is non-zero, so set to 0 above on
779         * fail.
780         */
781        if (rv < 0) {
782                /* Failed CMD8, so SD 1.x or MMC */
783                cmd_arg = 0;
784        } else {
785                cmd_arg = SD_CARD_FLAG_HCS;
786        }
787
788        /* Enable CRC */
789        sd_card_send_command( e, SD_CARD_CMD_CRC_ON_OFF, 1);
790
791        /* Initialize card */
792        while (true) {
793                if (assume_sd) {
794                        /* This command (CMD55) supported by SD and (most?) MMCs */
795                        rv = sd_card_send_command( e, SD_CARD_CMD_APP_CMD, 0);
796                        if (rv < 0) {
797                                RTEMS_SYSLOG( "CMD55 failed.  Assume MMC and try CMD1\n");
798                                assume_sd = false;
799                                continue;
800                        }
801
802                        /*
803                         * This command (ACMD41) only supported by SD.  Always
804                         * fails if MMC.
805                         */
806                        rv = sd_card_send_command( e, SD_CARD_ACMD_SD_SEND_OP_COND, cmd_arg);
807                        if (rv < 0) {
808                                /*
809                                 * This *will* fail for MMC.  If fails, bad/no
810                                 * card or card is MMC, do CMD58 then CMD1.
811                                 */
812                                RTEMS_SYSLOG( "ACMD41 failed.  Assume MMC and do CMD58 (once) then CMD1\n");
813                                assume_sd = false;
814                                cmd_arg = SD_CARD_FLAG_HCS;
815                                do_cmd58 = true;
816                                continue;
817                        } else {
818                                /*
819                                 * Passed ACMD41 so SD.  It is now save to
820                                 * check if_cond_reg from CMD8.  Reject the
821                                 * card in case of a indicated bad voltage.
822                                 */
823                                if (if_cond_reg != if_cond_test) {
824                                        RTEMS_CLEANUP_RV_SC( -1, sc, sd_card_driver_init_cleanup, "Bad voltage for SD");
825                                }
826                        }
827                } else {
828                        /*
829                         * Does not seem to be SD card.  Do init for MMC.
830                         * First send CMD58 once to enable check for HCS
831                         * (similar to CMD8 of SD) with bits 30:29 set to 10b.
832                         * This will work for MMC >= 4.2.  Older cards (<= 4.1)
833                         * may may not respond to CMD1 unless CMD58 is sent
834                         * again with zero argument.
835                         */
836                        if (do_cmd58) {
837                                rv = sd_card_send_command( e, SD_CARD_CMD_READ_OCR, cmd_arg);
838                                RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Failed CMD58 for MMC");
839
840                                /* A one-shot call */
841                                do_cmd58 = false;
842                        }
843
844                        /* Do CMD1 */
845                        rv = sd_card_send_command( e, SD_CARD_CMD_SEND_OP_COND, 0);
846                        if (rv < 0) {
847                                if (cmd_arg != 0) {
848                                        /*
849                                         * Send CMD58 again with zero argument
850                                         * value.  Proves card is not
851                                         * high_capacity.
852                                         */
853                                        cmd_arg = 0;
854                                        do_cmd58 = true;
855                                        high_capacity = false;
856                                        continue;
857                                }
858
859                                RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Failed to initialize MMC");
860                        }
861                }
862
863                /*
864                 * Not idle?
865                 *
866                 * This hangs forever if the card remains not idle and sends
867                 * always a valid response.
868                 */
869                if (SD_CARD_IS_NOT_IDLE_RESPONSE( e->response [e->response_index])) {
870                        break;
871                }
872
873                /* Invoke the scheduler */
874                rtems_task_wake_after( RTEMS_YIELD_PROCESSOR);
875        }
876
877        /* Now we know if we are SD or MMC */
878        if (assume_sd) {
879                if (cmd_arg == 0) {
880                        /* SD is < 2.0 so never high capacity (<= 2G) */
881                        high_capacity = 0;
882                } else {
883                        uint32_t reg = 0;
884
885                        /*
886                         * SD is definitely 2.x.  Now need to send CMD58 to get
887                         * the OCR to see if the HCS bit is set (capacity > 2G)
888                         * or if bit is off (capacity <= 2G, standard
889                         * capacity).
890                         */
891                        rv = sd_card_send_register_command( e, SD_CARD_CMD_READ_OCR, 0, &reg);
892                        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Failed CMD58 for SD 2.x");
893
894                        /* Check HCS bit of OCR */
895                        high_capacity = (reg & SD_CARD_FLAG_HCS) != 0;
896                }
897        } else {
898                /*
899                 * Card is MMC.  Unless already proven to be not HCS (< 4.2)
900                 * must do CMD58 again to check the OCR bits 30:29.
901                 */
902                if (high_capacity) {
903                        uint32_t reg = 0;
904
905                        /*
906                         * The argument should still be correct since was never
907                         * set to 0
908                         */
909                        rv = sd_card_send_register_command( e, SD_CARD_CMD_READ_OCR, cmd_arg, &reg);
910                        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Failed CMD58 for MMC 4.2");
911
912                        /* Check HCS bit of the OCR */
913                        high_capacity = (reg & 0x600000) == SD_CARD_FLAG_HCS;
914                }
915        }
916
917        /* Card Identification */
918        if (e->verbose) {
919                rv = sd_card_send_command( e, SD_CARD_CMD_SEND_CID, 0);
920                RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Send: SD_CARD_CMD_SEND_CID");
921                rv = sd_card_read( e, SD_CARD_START_BLOCK_SINGLE_BLOCK_READ, block, SD_CARD_CID_SIZE);
922                RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Read: SD_CARD_CMD_SEND_CID");
923                RTEMS_SYSLOG( "*** Card Identification ***\n");
924                RTEMS_SYSLOG( "Manufacturer ID          : %" PRIu8 "\n", SD_CARD_CID_GET_MID( block));
925                RTEMS_SYSLOG( "OEM/Application ID       : %" PRIu16 "\n", SD_CARD_CID_GET_OID( block));
926                RTEMS_SYSLOG(
927                        "Product name             : %c%c%c%c%c%c\n",
928                        SD_CARD_CID_GET_PNM( block, 0),
929                        SD_CARD_CID_GET_PNM( block, 1),
930                        SD_CARD_CID_GET_PNM( block, 2),
931                        SD_CARD_CID_GET_PNM( block, 3),
932                        SD_CARD_CID_GET_PNM( block, 4),
933                        SD_CARD_CID_GET_PNM( block, 5)
934                );
935                RTEMS_SYSLOG( "Product revision         : %" PRIu8 "\n", SD_CARD_CID_GET_PRV( block));
936                RTEMS_SYSLOG( "Product serial number    : %" PRIu32 "\n", SD_CARD_CID_GET_PSN( block));
937                RTEMS_SYSLOG( "Manufacturing date       : %" PRIu8 "\n", SD_CARD_CID_GET_MDT( block));
938                RTEMS_SYSLOG( "7-bit CRC checksum       : %" PRIu8 "\n",  SD_CARD_CID_GET_CRC7( block));
939                crc7 = sd_card_compute_crc7( block, 15);
940                if (crc7 != SD_CARD_CID_GET_CRC7( block))
941                        RTEMS_SYSLOG( "  Failed! (computed %02" PRIx8 ")\n", crc7);
942        }
943
944        /* Card Specific Data */
945
946        /* Read CSD */
947        rv = sd_card_send_command( e, SD_CARD_CMD_SEND_CSD, 0);
948        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Send: SD_CARD_CMD_SEND_CSD");
949        rv = sd_card_read( e, SD_CARD_START_BLOCK_SINGLE_BLOCK_READ, block, SD_CARD_CSD_SIZE);
950        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Read: SD_CARD_CMD_SEND_CSD");
951
952        crc7 = sd_card_compute_crc7( block, 15);
953        if (crc7 != SD_CARD_CID_GET_CRC7( block)) {
954                RTEMS_SYSLOG( "SD_CARD_CMD_SEND_CSD CRC failed\n");
955                sc = RTEMS_IO_ERROR;
956                goto sd_card_driver_init_cleanup;
957        }
958       
959        /* CSD Structure */
960        csd_structure = SD_CARD_CSD_GET_CSD_STRUCTURE( block);
961
962        /* Transfer speed and access time */
963        transfer_speed = sd_card_transfer_speed( block);
964        e->transfer_mode.baudrate = transfer_speed;
965        e->n_ac_max = sd_card_max_access_time( block, transfer_speed);
966
967        /* Block sizes and capacity */
968        if (csd_structure == 0 || !assume_sd) {
969                /* Treat MMC same as CSD Version 1.0 */
970
971                read_block_size = 1U << SD_CARD_CSD_GET_READ_BLK_LEN( block);
972                e->block_size_shift = SD_CARD_CSD_GET_WRITE_BLK_LEN( block);
973                write_block_size = 1U << e->block_size_shift;
974                if (read_block_size < write_block_size) {
975                        RTEMS_SYSLOG_ERROR( "Read block size smaller than write block size\n");
976                        return -RTEMS_IO_ERROR;
977                }
978                e->block_size = write_block_size;
979                e->block_number = sd_card_block_number( block);
980                capacity = sd_card_capacity( block);
981        } else if (csd_structure == 1) {
982                uint32_t c_size = SD_CARD_CSD_1_GET_C_SIZE( block);
983
984                /* Block size is fixed in CSD Version 2.0 */
985                e->block_size_shift = 9;
986                e->block_size = 512;
987
988                e->block_number = (c_size + 1) * 1024;
989                capacity = (c_size + 1) * 512 * 1024;
990                read_block_size = 512;
991                write_block_size = 512;
992
993                /* Timeout is fixed at 100ms in CSD Version 2.0 */
994                e->n_ac_max = transfer_speed / 80;
995        } else {
996                RTEMS_DO_CLEANUP_SC( RTEMS_IO_ERROR, sc, sd_card_driver_init_cleanup, "Unexpected CSD Structure number");
997        }
998
999        /* Print CSD information */
1000        if (e->verbose) {
1001                RTEMS_SYSLOG( "*** Card Specific Data ***\n");
1002                RTEMS_SYSLOG( "CSD structure            : %" PRIu8 "\n", SD_CARD_CSD_GET_CSD_STRUCTURE( block));
1003                RTEMS_SYSLOG( "Spec version             : %" PRIu8 "\n", SD_CARD_CSD_GET_SPEC_VERS( block));
1004                RTEMS_SYSLOG( "Access time [ns]         : %" PRIu32 "\n", sd_card_access_time( block));
1005                RTEMS_SYSLOG( "Access time [N]          : %" PRIu32 "\n", SD_CARD_CSD_GET_NSAC( block)*100);
1006                RTEMS_SYSLOG( "Max access time [N]      : %" PRIu32 "\n", e->n_ac_max);
1007                RTEMS_SYSLOG( "Max read block size [B]  : %" PRIu32 "\n", read_block_size);
1008                RTEMS_SYSLOG( "Max write block size [B] : %" PRIu32 "\n", write_block_size);
1009                RTEMS_SYSLOG( "Block size [B]           : %" PRIu32 "\n", e->block_size);
1010                RTEMS_SYSLOG( "Block number             : %" PRIu32 "\n", e->block_number);
1011                RTEMS_SYSLOG( "Capacity [B]             : %" PRIu64 "\n", capacity);
1012                RTEMS_SYSLOG( "Max transfer speed [b/s] : %" PRIu32 "\n", transfer_speed);
1013        }
1014
1015        if (high_capacity) {
1016                /* For high capacity cards the address is in blocks */
1017                e->block_size_shift = 0;
1018        } else if (e->block_size_shift == 10) {
1019                /*
1020                 * Low capacity 2GByte cards with reported block size of 1024
1021                 * need to be set back to block size of 512 per 'Simplified
1022                 * Physical Layer Specification Version 2.0' section 4.3.2.
1023                 * Otherwise, CMD16 fails if set to 1024.
1024                 */
1025                e->block_size_shift = 9;
1026                e->block_size = 512;
1027                e->block_number *= 2;
1028        }
1029
1030        /* Set read block size */
1031        rv = sd_card_send_command( e, SD_CARD_CMD_SET_BLOCKLEN, e->block_size);
1032        RTEMS_CLEANUP_RV_SC( rv, sc, sd_card_driver_init_cleanup, "Send: SD_CARD_CMD_SET_BLOCKLEN");
1033
1034        /* Stop */
1035        sc = sd_card_stop( e);
1036        RTEMS_CHECK_SC( sc, "Stop");
1037
1038        return RTEMS_SUCCESSFUL;
1039
1040sd_card_driver_init_cleanup:
1041
1042        /* Stop */
1043        sd_card_stop( e);
1044
1045        return sc;
1046}
1047/** @} */
1048
1049/**
1050 * @name Disk Driver Functions
1051 * @{
1052 */
1053
1054static int sd_card_disk_block_read( sd_card_driver_entry *e, rtems_blkdev_request *r)
1055{
1056        rtems_status_code sc = RTEMS_SUCCESSFUL;
1057        int rv = 0;
1058        uint32_t start_address = RTEMS_BLKDEV_START_BLOCK (r) << e->block_size_shift;
1059        uint32_t i = 0;
1060
1061#ifdef DEBUG
1062        /* Check request */
1063        if (r->bufs[0].block >= e->block_number) {
1064                RTEMS_SYSLOG_ERROR( "Start block number out of range");
1065                return -RTEMS_INTERNAL_ERROR;
1066        } else if (r->bufnum > e->block_number - RTEMS_BLKDEV_START_BLOCK (r)) {
1067                RTEMS_SYSLOG_ERROR( "Block count out of range");
1068                return -RTEMS_INTERNAL_ERROR;
1069        }
1070#endif /* DEBUG */
1071
1072        /* Start */
1073        sc = sd_card_start( e);
1074        RTEMS_CLEANUP_SC_RV( sc, rv, sd_card_disk_block_read_cleanup, "Start");
1075
1076        if (r->bufnum == 1) {
1077#ifdef DEBUG
1078                /* Check buffer */
1079                if (r->bufs [0].length != e->block_size) {
1080                        RTEMS_DO_CLEANUP_RV( -RTEMS_INTERNAL_ERROR, rv, sd_card_disk_block_read_cleanup, "Buffer and disk block size are not equal");
1081                }
1082                RTEMS_DEBUG_PRINT( "[01:01]: buffer = 0x%08x, size = %u\n", r->bufs [0].buffer, r->bufs [0].length);
1083#endif /* DEBUG */
1084
1085                /* Single block read */
1086                rv = sd_card_send_command( e, SD_CARD_CMD_READ_SINGLE_BLOCK, start_address);
1087                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_read_cleanup, "Send: SD_CARD_CMD_READ_SINGLE_BLOCK");
1088                rv = sd_card_read( e, SD_CARD_START_BLOCK_SINGLE_BLOCK_READ, (uint8_t *) r->bufs [0].buffer, (int) e->block_size);
1089                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_read_cleanup, "Read: SD_CARD_CMD_READ_SINGLE_BLOCK");
1090        } else {
1091                /* Start multiple block read */
1092                rv = sd_card_send_command( e, SD_CARD_CMD_READ_MULTIPLE_BLOCK, start_address);
1093                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_read_stop_cleanup, "Send: SD_CARD_CMD_READ_MULTIPLE_BLOCK");
1094
1095                /* Multiple block read */
1096                for (i = 0; i < r->bufnum; ++i) {
1097#ifdef DEBUG
1098                        /* Check buffer */
1099                        if (r->bufs [i].length != e->block_size) {
1100                                RTEMS_DO_CLEANUP_RV( -RTEMS_INTERNAL_ERROR, rv, sd_card_disk_block_read_stop_cleanup, "Buffer and disk block size are not equal");
1101                        }
1102                        RTEMS_DEBUG_PRINT( "[%02u:%02u]: buffer = 0x%08x, size = %u\n", i + 1, r->bufnum, r->bufs [i].buffer, r->bufs [i].length);
1103#endif /* DEBUG */
1104
1105                        rv = sd_card_read( e, SD_CARD_START_BLOCK_MULTIPLE_BLOCK_READ, (uint8_t *) r->bufs [i].buffer, (int) e->block_size);
1106                        RTEMS_CLEANUP_RV( rv, sd_card_disk_block_read_stop_cleanup, "Read block");
1107                }
1108
1109                /* Stop multiple block read */
1110                rv = sd_card_stop_multiple_block_read( e);
1111                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_read_cleanup, "Stop multiple block read");
1112        }
1113
1114        /* Stop */
1115        sc = sd_card_stop( e);
1116        RTEMS_CHECK_SC_RV( sc, "Stop");
1117
1118        /* Done */
1119        r->req_done( r->done_arg, RTEMS_SUCCESSFUL);
1120
1121        return 0;
1122
1123sd_card_disk_block_read_stop_cleanup:
1124
1125        /* Stop multiple block read */
1126        sd_card_stop_multiple_block_read( e);
1127
1128sd_card_disk_block_read_cleanup:
1129
1130        /* Stop */
1131        sd_card_stop( e);
1132
1133        /* Done */
1134        r->req_done( r->done_arg, RTEMS_IO_ERROR);
1135
1136        return rv;
1137}
1138
1139static int sd_card_disk_block_write( sd_card_driver_entry *e, rtems_blkdev_request *r)
1140{
1141        rtems_status_code sc = RTEMS_SUCCESSFUL;
1142        int rv = 0;
1143        uint32_t start_address = RTEMS_BLKDEV_START_BLOCK (r) << e->block_size_shift;
1144        uint32_t i = 0;
1145
1146#ifdef DEBUG
1147        /* Check request */
1148        if (r->bufs[0].block >= e->block_number) {
1149                RTEMS_SYSLOG_ERROR( "Start block number out of range");
1150                return -RTEMS_INTERNAL_ERROR;
1151        } else if (r->bufnum > e->block_number - RTEMS_BLKDEV_START_BLOCK (r)) {
1152                RTEMS_SYSLOG_ERROR( "Block count out of range");
1153                return -RTEMS_INTERNAL_ERROR;
1154        }
1155#endif /* DEBUG */
1156
1157        /* Start */
1158        sc = sd_card_start( e);
1159        RTEMS_CLEANUP_SC_RV( sc, rv, sd_card_disk_block_write_cleanup, "Start");
1160
1161        if (r->bufnum == 1) {
1162#ifdef DEBUG
1163                /* Check buffer */
1164                if (r->bufs [0].length != e->block_size) {
1165                        RTEMS_DO_CLEANUP_RV( -RTEMS_INTERNAL_ERROR, rv, sd_card_disk_block_write_cleanup, "Buffer and disk block size are not equal");
1166                }
1167                RTEMS_DEBUG_PRINT( "[01:01]: buffer = 0x%08x, size = %u\n", r->bufs [0].buffer, r->bufs [0].length);
1168#endif /* DEBUG */
1169
1170                /* Single block write */
1171                rv = sd_card_send_command( e, SD_CARD_CMD_WRITE_BLOCK, start_address);
1172                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_write_cleanup, "Send: SD_CARD_CMD_WRITE_BLOCK");
1173                rv = sd_card_write( e, SD_CARD_START_BLOCK_SINGLE_BLOCK_WRITE, (uint8_t *) r->bufs [0].buffer, (int) e->block_size);
1174                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_write_cleanup, "Write: SD_CARD_CMD_WRITE_BLOCK");
1175        } else {
1176                /* Start multiple block write */
1177                rv = sd_card_send_command( e, SD_CARD_CMD_WRITE_MULTIPLE_BLOCK, start_address);
1178                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_write_stop_cleanup, "Send: SD_CARD_CMD_WRITE_MULTIPLE_BLOCK");
1179
1180                /* Multiple block write */
1181                for (i = 0; i < r->bufnum; ++i) {
1182#ifdef DEBUG
1183                        /* Check buffer */
1184                        if (r->bufs [i].length != e->block_size) {
1185                                RTEMS_DO_CLEANUP_RV( -RTEMS_INTERNAL_ERROR, rv, sd_card_disk_block_write_stop_cleanup, "Buffer and disk block size are not equal");
1186                        }
1187                        RTEMS_DEBUG_PRINT( "[%02u:%02u]: buffer = 0x%08x, size = %u\n", i + 1, r->bufnum, r->bufs [i].buffer, r->bufs [i].length);
1188#endif /* DEBUG */
1189
1190                        rv = sd_card_write( e, SD_CARD_START_BLOCK_MULTIPLE_BLOCK_WRITE, (uint8_t *) r->bufs [i].buffer, (int) e->block_size);
1191                        RTEMS_CLEANUP_RV( rv, sd_card_disk_block_write_stop_cleanup, "Write block");
1192                }
1193
1194                /* Stop multiple block write */
1195                rv = sd_card_stop_multiple_block_write( e);
1196                RTEMS_CLEANUP_RV( rv, sd_card_disk_block_write_cleanup, "Stop multiple block write");
1197        }
1198
1199        /* Get card status */
1200        rv = sd_card_send_command( e, SD_CARD_CMD_SEND_STATUS, 0);
1201        RTEMS_CHECK_RV( rv, "Send: SD_CARD_CMD_SEND_STATUS");
1202
1203        /* Stop */
1204        sc = sd_card_stop( e);
1205        RTEMS_CHECK_SC_RV( sc, "Stop");
1206
1207        /* Done */
1208        r->req_done( r->done_arg, RTEMS_SUCCESSFUL);
1209
1210        return 0;
1211
1212sd_card_disk_block_write_stop_cleanup:
1213
1214        /* Stop multiple block write */
1215        sd_card_stop_multiple_block_write( e);
1216
1217sd_card_disk_block_write_cleanup:
1218
1219        /* Get card status */
1220        rv = sd_card_send_command( e, SD_CARD_CMD_SEND_STATUS, 0);
1221        RTEMS_CHECK_RV( rv, "Send: SD_CARD_CMD_SEND_STATUS");
1222
1223        /* Stop */
1224        sd_card_stop( e);
1225
1226        /* Done */
1227        r->req_done( r->done_arg, RTEMS_IO_ERROR);
1228
1229        return rv;
1230}
1231
1232static int sd_card_disk_ioctl( rtems_disk_device *dd, uint32_t req, void *arg)
1233{
1234        RTEMS_DEBUG_PRINT( "dev = %u, req = %u, arg = 0x08%x\n", dev, req, arg);
1235        if (req == RTEMS_BLKIO_REQUEST) {
1236                rtems_device_minor_number minor = rtems_disk_get_minor_number( dd);
1237                sd_card_driver_entry *e = &sd_card_driver_table [minor];
1238                rtems_blkdev_request *r = (rtems_blkdev_request *) arg;
1239                int (*f)( sd_card_driver_entry *, rtems_blkdev_request *);
1240                uint32_t retries = e->retries;
1241                int result;
1242
1243                switch (r->req) {
1244                        case RTEMS_BLKDEV_REQ_READ:
1245                                f = sd_card_disk_block_read;
1246                                break;
1247                        case RTEMS_BLKDEV_REQ_WRITE:
1248                                f = sd_card_disk_block_write;
1249                                break;
1250                        default:
1251                                errno = EINVAL;
1252                                return -1;
1253                }
1254                do {
1255                        result = f( e, r);
1256                } while (retries-- > 0 && result != 0);
1257                return result;
1258
1259        } else if (req == RTEMS_BLKIO_CAPABILITIES) {
1260                *(uint32_t *) arg = RTEMS_BLKDEV_CAP_MULTISECTOR_CONT;
1261                return 0;
1262        } else {
1263                errno = EINVAL;
1264                return -1;
1265        }
1266}
1267
1268static rtems_status_code sd_card_disk_init( rtems_device_major_number major, rtems_device_minor_number minor, void *arg)
1269{
1270        rtems_status_code sc = RTEMS_SUCCESSFUL;
1271
1272        /* Initialize disk IO */
1273        sc = rtems_disk_io_initialize();
1274        RTEMS_CHECK_SC( sc, "Initialize RTEMS disk IO");
1275
1276        for (minor = 0; minor < sd_card_driver_table_size; ++minor) {
1277                sd_card_driver_entry *e = &sd_card_driver_table [minor];
1278                dev_t dev = rtems_filesystem_make_dev_t( major, minor);
1279                uint32_t retries = e->retries;
1280
1281                /* Initialize SD Card */
1282                do {
1283                        sc = sd_card_init( e);
1284                } while (retries-- > 0 && sc != RTEMS_SUCCESSFUL);
1285                RTEMS_CHECK_SC( sc, "Initialize SD Card");
1286
1287                /* Create disk device */
1288                sc = rtems_disk_create_phys( dev, e->block_size, e->block_number, sd_card_disk_ioctl, NULL, e->device_name);
1289                RTEMS_CHECK_SC( sc, "Create disk device");
1290        }
1291
1292        return RTEMS_SUCCESSFUL;
1293}
1294
1295/** @} */
1296
1297static const rtems_driver_address_table sd_card_disk_ops = {
1298        .initialization_entry = sd_card_disk_init,
1299        .open_entry = rtems_blkdev_generic_open,
1300        .close_entry = rtems_blkdev_generic_close,
1301        .read_entry = rtems_blkdev_generic_read,
1302        .write_entry = rtems_blkdev_generic_write,
1303        .control_entry = rtems_blkdev_generic_ioctl
1304};
1305
1306rtems_status_code sd_card_register( void)
1307{
1308        rtems_status_code sc = RTEMS_SUCCESSFUL;
1309        rtems_device_major_number major = 0;
1310
1311        sc = rtems_io_register_driver( 0, &sd_card_disk_ops, &major);
1312        RTEMS_CHECK_SC( sc, "Register disk SD Card driver");
1313
1314        return RTEMS_SUCCESSFUL;
1315}
Note: See TracBrowser for help on using the repository browser.