]> git.sur5r.net Git - u-boot/blob - drivers/block/ide.c
Merge git://git.denx.de/u-boot-fsl-qoriq
[u-boot] / drivers / block / ide.c
1 /*
2  * (C) Copyright 2000-2011
3  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
4  *
5  * SPDX-License-Identifier:     GPL-2.0+
6  */
7
8 #include <common.h>
9 #include <ata.h>
10 #include <dm.h>
11 #include <ide.h>
12 #include <watchdog.h>
13 #include <asm/io.h>
14
15 #ifdef __PPC__
16 # define EIEIO          __asm__ volatile ("eieio")
17 # define SYNC           __asm__ volatile ("sync")
18 #else
19 # define EIEIO          /* nothing */
20 # define SYNC           /* nothing */
21 #endif
22
23 /* Current offset for IDE0 / IDE1 bus access    */
24 ulong ide_bus_offset[CONFIG_SYS_IDE_MAXBUS] = {
25 #if defined(CONFIG_SYS_ATA_IDE0_OFFSET)
26         CONFIG_SYS_ATA_IDE0_OFFSET,
27 #endif
28 #if defined(CONFIG_SYS_ATA_IDE1_OFFSET) && (CONFIG_SYS_IDE_MAXBUS > 1)
29         CONFIG_SYS_ATA_IDE1_OFFSET,
30 #endif
31 };
32
33 static int ide_bus_ok[CONFIG_SYS_IDE_MAXBUS];
34
35 struct blk_desc ide_dev_desc[CONFIG_SYS_IDE_MAXDEVICE];
36
37 #define IDE_TIME_OUT    2000    /* 2 sec timeout */
38
39 #define ATAPI_TIME_OUT  7000    /* 7 sec timeout (5 sec seems to work...) */
40
41 #define IDE_SPIN_UP_TIME_OUT 5000 /* 5 sec spin-up timeout */
42
43 #ifndef CONFIG_SYS_ATA_PORT_ADDR
44 #define CONFIG_SYS_ATA_PORT_ADDR(port) (port)
45 #endif
46
47 #ifdef CONFIG_IDE_RESET
48 extern void ide_set_reset(int idereset);
49
50 static void ide_reset(void)
51 {
52         int i;
53
54         for (i = 0; i < CONFIG_SYS_IDE_MAXBUS; ++i)
55                 ide_bus_ok[i] = 0;
56         for (i = 0; i < CONFIG_SYS_IDE_MAXDEVICE; ++i)
57                 ide_dev_desc[i].type = DEV_TYPE_UNKNOWN;
58
59         ide_set_reset(1);       /* assert reset */
60
61         /* the reset signal shall be asserted for et least 25 us */
62         udelay(25);
63
64         WATCHDOG_RESET();
65
66         /* de-assert RESET signal */
67         ide_set_reset(0);
68
69         /* wait 250 ms */
70         for (i = 0; i < 250; ++i)
71                 udelay(1000);
72 }
73 #else
74 #define ide_reset()     /* dummy */
75 #endif /* CONFIG_IDE_RESET */
76
77 /*
78  * Wait until Busy bit is off, or timeout (in ms)
79  * Return last status
80  */
81 static uchar ide_wait(int dev, ulong t)
82 {
83         ulong delay = 10 * t;   /* poll every 100 us */
84         uchar c;
85
86         while ((c = ide_inb(dev, ATA_STATUS)) & ATA_STAT_BUSY) {
87                 udelay(100);
88                 if (delay-- == 0)
89                         break;
90         }
91         return c;
92 }
93
94 /*
95  * copy src to dest, skipping leading and trailing blanks and null
96  * terminate the string
97  * "len" is the size of available memory including the terminating '\0'
98  */
99 static void ident_cpy(unsigned char *dst, unsigned char *src,
100                       unsigned int len)
101 {
102         unsigned char *end, *last;
103
104         last = dst;
105         end = src + len - 1;
106
107         /* reserve space for '\0' */
108         if (len < 2)
109                 goto OUT;
110
111         /* skip leading white space */
112         while ((*src) && (src < end) && (*src == ' '))
113                 ++src;
114
115         /* copy string, omitting trailing white space */
116         while ((*src) && (src < end)) {
117                 *dst++ = *src;
118                 if (*src++ != ' ')
119                         last = dst;
120         }
121 OUT:
122         *last = '\0';
123 }
124
125 #ifdef CONFIG_ATAPI
126 /****************************************************************************
127  * ATAPI Support
128  */
129
130 #if defined(CONFIG_IDE_SWAP_IO)
131 /* since ATAPI may use commands with not 4 bytes alligned length
132  * we have our own transfer functions, 2 bytes alligned */
133 __weak void ide_output_data_shorts(int dev, ushort *sect_buf, int shorts)
134 {
135         ushort *dbuf;
136         volatile ushort *pbuf;
137
138         pbuf = (ushort *)(ATA_CURR_BASE(dev) + ATA_DATA_REG);
139         dbuf = (ushort *)sect_buf;
140
141         debug("in output data shorts base for read is %lx\n",
142               (unsigned long) pbuf);
143
144         while (shorts--) {
145                 EIEIO;
146                 *pbuf = *dbuf++;
147         }
148 }
149
150 __weak void ide_input_data_shorts(int dev, ushort *sect_buf, int shorts)
151 {
152         ushort *dbuf;
153         volatile ushort *pbuf;
154
155         pbuf = (ushort *)(ATA_CURR_BASE(dev) + ATA_DATA_REG);
156         dbuf = (ushort *)sect_buf;
157
158         debug("in input data shorts base for read is %lx\n",
159               (unsigned long) pbuf);
160
161         while (shorts--) {
162                 EIEIO;
163                 *dbuf++ = *pbuf;
164         }
165 }
166
167 #else  /* ! CONFIG_IDE_SWAP_IO */
168 __weak void ide_output_data_shorts(int dev, ushort *sect_buf, int shorts)
169 {
170         outsw(ATA_CURR_BASE(dev) + ATA_DATA_REG, sect_buf, shorts);
171 }
172
173 __weak void ide_input_data_shorts(int dev, ushort *sect_buf, int shorts)
174 {
175         insw(ATA_CURR_BASE(dev) + ATA_DATA_REG, sect_buf, shorts);
176 }
177
178 #endif /* CONFIG_IDE_SWAP_IO */
179
180 /*
181  * Wait until (Status & mask) == res, or timeout (in ms)
182  * Return last status
183  * This is used since some ATAPI CD ROMs clears their Busy Bit first
184  * and then they set their DRQ Bit
185  */
186 static uchar atapi_wait_mask(int dev, ulong t, uchar mask, uchar res)
187 {
188         ulong delay = 10 * t;   /* poll every 100 us */
189         uchar c;
190
191         /* prevents to read the status before valid */
192         c = ide_inb(dev, ATA_DEV_CTL);
193
194         while (((c = ide_inb(dev, ATA_STATUS)) & mask) != res) {
195                 /* break if error occurs (doesn't make sense to wait more) */
196                 if ((c & ATA_STAT_ERR) == ATA_STAT_ERR)
197                         break;
198                 udelay(100);
199                 if (delay-- == 0)
200                         break;
201         }
202         return c;
203 }
204
205 /*
206  * issue an atapi command
207  */
208 unsigned char atapi_issue(int device, unsigned char *ccb, int ccblen,
209                           unsigned char *buffer, int buflen)
210 {
211         unsigned char c, err, mask, res;
212         int n;
213
214         /* Select device
215          */
216         mask = ATA_STAT_BUSY | ATA_STAT_DRQ;
217         res = 0;
218         ide_outb(device, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(device));
219         c = atapi_wait_mask(device, ATAPI_TIME_OUT, mask, res);
220         if ((c & mask) != res) {
221                 printf("ATAPI_ISSUE: device %d not ready status %X\n", device,
222                        c);
223                 err = 0xFF;
224                 goto AI_OUT;
225         }
226         /* write taskfile */
227         ide_outb(device, ATA_ERROR_REG, 0);     /* no DMA, no overlaped */
228         ide_outb(device, ATA_SECT_CNT, 0);
229         ide_outb(device, ATA_SECT_NUM, 0);
230         ide_outb(device, ATA_CYL_LOW, (unsigned char) (buflen & 0xFF));
231         ide_outb(device, ATA_CYL_HIGH,
232                  (unsigned char) ((buflen >> 8) & 0xFF));
233         ide_outb(device, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(device));
234
235         ide_outb(device, ATA_COMMAND, ATAPI_CMD_PACKET);
236         udelay(50);
237
238         mask = ATA_STAT_DRQ | ATA_STAT_BUSY | ATA_STAT_ERR;
239         res = ATA_STAT_DRQ;
240         c = atapi_wait_mask(device, ATAPI_TIME_OUT, mask, res);
241
242         if ((c & mask) != res) {        /* DRQ must be 1, BSY 0 */
243                 printf("ATAPI_ISSUE: Error (no IRQ) before sending ccb dev %d status 0x%02x\n",
244                        device, c);
245                 err = 0xFF;
246                 goto AI_OUT;
247         }
248
249         /* write command block */
250         ide_output_data_shorts(device, (unsigned short *)ccb, ccblen / 2);
251
252         /* ATAPI Command written wait for completition */
253         udelay(5000);           /* device must set bsy */
254
255         mask = ATA_STAT_DRQ | ATA_STAT_BUSY | ATA_STAT_ERR;
256         /*
257          * if no data wait for DRQ = 0 BSY = 0
258          * if data wait for DRQ = 1 BSY = 0
259          */
260         res = 0;
261         if (buflen)
262                 res = ATA_STAT_DRQ;
263         c = atapi_wait_mask(device, ATAPI_TIME_OUT, mask, res);
264         if ((c & mask) != res) {
265                 if (c & ATA_STAT_ERR) {
266                         err = (ide_inb(device, ATA_ERROR_REG)) >> 4;
267                         debug("atapi_issue 1 returned sense key %X status %02X\n",
268                               err, c);
269                 } else {
270                         printf("ATAPI_ISSUE: (no DRQ) after sending ccb (%x)  status 0x%02x\n",
271                                ccb[0], c);
272                         err = 0xFF;
273                 }
274                 goto AI_OUT;
275         }
276         n = ide_inb(device, ATA_CYL_HIGH);
277         n <<= 8;
278         n += ide_inb(device, ATA_CYL_LOW);
279         if (n > buflen) {
280                 printf("ERROR, transfer bytes %d requested only %d\n", n,
281                        buflen);
282                 err = 0xff;
283                 goto AI_OUT;
284         }
285         if ((n == 0) && (buflen < 0)) {
286                 printf("ERROR, transfer bytes %d requested %d\n", n, buflen);
287                 err = 0xff;
288                 goto AI_OUT;
289         }
290         if (n != buflen) {
291                 debug("WARNING, transfer bytes %d not equal with requested %d\n",
292                       n, buflen);
293         }
294         if (n != 0) {           /* data transfer */
295                 debug("ATAPI_ISSUE: %d Bytes to transfer\n", n);
296                 /* we transfer shorts */
297                 n >>= 1;
298                 /* ok now decide if it is an in or output */
299                 if ((ide_inb(device, ATA_SECT_CNT) & 0x02) == 0) {
300                         debug("Write to device\n");
301                         ide_output_data_shorts(device, (unsigned short *)buffer,
302                                                n);
303                 } else {
304                         debug("Read from device @ %p shorts %d\n", buffer, n);
305                         ide_input_data_shorts(device, (unsigned short *)buffer,
306                                               n);
307                 }
308         }
309         udelay(5000);           /* seems that some CD ROMs need this... */
310         mask = ATA_STAT_BUSY | ATA_STAT_ERR;
311         res = 0;
312         c = atapi_wait_mask(device, ATAPI_TIME_OUT, mask, res);
313         if ((c & ATA_STAT_ERR) == ATA_STAT_ERR) {
314                 err = (ide_inb(device, ATA_ERROR_REG) >> 4);
315                 debug("atapi_issue 2 returned sense key %X status %X\n", err,
316                       c);
317         } else {
318                 err = 0;
319         }
320 AI_OUT:
321         return err;
322 }
323
324 /*
325  * sending the command to atapi_issue. If an status other than good
326  * returns, an request_sense will be issued
327  */
328
329 #define ATAPI_DRIVE_NOT_READY   100
330 #define ATAPI_UNIT_ATTN         10
331
332 unsigned char atapi_issue_autoreq(int device,
333                                   unsigned char *ccb,
334                                   int ccblen,
335                                   unsigned char *buffer, int buflen)
336 {
337         unsigned char sense_data[18], sense_ccb[12];
338         unsigned char res, key, asc, ascq;
339         int notready, unitattn;
340
341         unitattn = ATAPI_UNIT_ATTN;
342         notready = ATAPI_DRIVE_NOT_READY;
343
344 retry:
345         res = atapi_issue(device, ccb, ccblen, buffer, buflen);
346         if (res == 0)
347                 return 0;       /* Ok */
348
349         if (res == 0xFF)
350                 return 0xFF;    /* error */
351
352         debug("(auto_req)atapi_issue returned sense key %X\n", res);
353
354         memset(sense_ccb, 0, sizeof(sense_ccb));
355         memset(sense_data, 0, sizeof(sense_data));
356         sense_ccb[0] = ATAPI_CMD_REQ_SENSE;
357         sense_ccb[4] = 18;      /* allocation Length */
358
359         res = atapi_issue(device, sense_ccb, 12, sense_data, 18);
360         key = (sense_data[2] & 0xF);
361         asc = (sense_data[12]);
362         ascq = (sense_data[13]);
363
364         debug("ATAPI_CMD_REQ_SENSE returned %x\n", res);
365         debug(" Sense page: %02X key %02X ASC %02X ASCQ %02X\n",
366               sense_data[0], key, asc, ascq);
367
368         if ((key == 0))
369                 return 0;       /* ok device ready */
370
371         if ((key == 6) || (asc == 0x29) || (asc == 0x28)) { /* Unit Attention */
372                 if (unitattn-- > 0) {
373                         udelay(200 * 1000);
374                         goto retry;
375                 }
376                 printf("Unit Attention, tried %d\n", ATAPI_UNIT_ATTN);
377                 goto error;
378         }
379         if ((asc == 0x4) && (ascq == 0x1)) {
380                 /* not ready, but will be ready soon */
381                 if (notready-- > 0) {
382                         udelay(200 * 1000);
383                         goto retry;
384                 }
385                 printf("Drive not ready, tried %d times\n",
386                        ATAPI_DRIVE_NOT_READY);
387                 goto error;
388         }
389         if (asc == 0x3a) {
390                 debug("Media not present\n");
391                 goto error;
392         }
393
394         printf("ERROR: Unknown Sense key %02X ASC %02X ASCQ %02X\n", key, asc,
395                ascq);
396 error:
397         debug("ERROR Sense key %02X ASC %02X ASCQ %02X\n", key, asc, ascq);
398         return 0xFF;
399 }
400
401 /*
402  * atapi_read:
403  * we transfer only one block per command, since the multiple DRQ per
404  * command is not yet implemented
405  */
406 #define ATAPI_READ_MAX_BYTES    2048    /* we read max 2kbytes */
407 #define ATAPI_READ_BLOCK_SIZE   2048    /* assuming CD part */
408 #define ATAPI_READ_MAX_BLOCK    (ATAPI_READ_MAX_BYTES/ATAPI_READ_BLOCK_SIZE)
409
410 ulong atapi_read(struct blk_desc *block_dev, lbaint_t blknr, lbaint_t blkcnt,
411                  void *buffer)
412 {
413         int device = block_dev->devnum;
414         ulong n = 0;
415         unsigned char ccb[12];  /* Command descriptor block */
416         ulong cnt;
417
418         debug("atapi_read dev %d start " LBAF " blocks " LBAF
419               " buffer at %lX\n", device, blknr, blkcnt, (ulong) buffer);
420
421         do {
422                 if (blkcnt > ATAPI_READ_MAX_BLOCK)
423                         cnt = ATAPI_READ_MAX_BLOCK;
424                 else
425                         cnt = blkcnt;
426
427                 ccb[0] = ATAPI_CMD_READ_12;
428                 ccb[1] = 0;     /* reserved */
429                 ccb[2] = (unsigned char) (blknr >> 24) & 0xFF;  /* MSB Block */
430                 ccb[3] = (unsigned char) (blknr >> 16) & 0xFF;  /*  */
431                 ccb[4] = (unsigned char) (blknr >> 8) & 0xFF;
432                 ccb[5] = (unsigned char) blknr & 0xFF;  /* LSB Block */
433                 ccb[6] = (unsigned char) (cnt >> 24) & 0xFF; /* MSB Block cnt */
434                 ccb[7] = (unsigned char) (cnt >> 16) & 0xFF;
435                 ccb[8] = (unsigned char) (cnt >> 8) & 0xFF;
436                 ccb[9] = (unsigned char) cnt & 0xFF;    /* LSB Block */
437                 ccb[10] = 0;    /* reserved */
438                 ccb[11] = 0;    /* reserved */
439
440                 if (atapi_issue_autoreq(device, ccb, 12,
441                                         (unsigned char *)buffer,
442                                         cnt * ATAPI_READ_BLOCK_SIZE)
443                     == 0xFF) {
444                         return n;
445                 }
446                 n += cnt;
447                 blkcnt -= cnt;
448                 blknr += cnt;
449                 buffer += (cnt * ATAPI_READ_BLOCK_SIZE);
450         } while (blkcnt > 0);
451         return n;
452 }
453
454 static void atapi_inquiry(struct blk_desc *dev_desc)
455 {
456         unsigned char ccb[12];  /* Command descriptor block */
457         unsigned char iobuf[64];        /* temp buf */
458         unsigned char c;
459         int device;
460
461         device = dev_desc->devnum;
462         dev_desc->type = DEV_TYPE_UNKNOWN;      /* not yet valid */
463 #ifndef CONFIG_BLK
464         dev_desc->block_read = atapi_read;
465 #endif
466
467         memset(ccb, 0, sizeof(ccb));
468         memset(iobuf, 0, sizeof(iobuf));
469
470         ccb[0] = ATAPI_CMD_INQUIRY;
471         ccb[4] = 40;            /* allocation Legnth */
472         c = atapi_issue_autoreq(device, ccb, 12, (unsigned char *)iobuf, 40);
473
474         debug("ATAPI_CMD_INQUIRY returned %x\n", c);
475         if (c != 0)
476                 return;
477
478         /* copy device ident strings */
479         ident_cpy((unsigned char *)dev_desc->vendor, &iobuf[8], 8);
480         ident_cpy((unsigned char *)dev_desc->product, &iobuf[16], 16);
481         ident_cpy((unsigned char *)dev_desc->revision, &iobuf[32], 5);
482
483         dev_desc->lun = 0;
484         dev_desc->lba = 0;
485         dev_desc->blksz = 0;
486         dev_desc->log2blksz = LOG2_INVALID(typeof(dev_desc->log2blksz));
487         dev_desc->type = iobuf[0] & 0x1f;
488
489         if ((iobuf[1] & 0x80) == 0x80)
490                 dev_desc->removable = 1;
491         else
492                 dev_desc->removable = 0;
493
494         memset(ccb, 0, sizeof(ccb));
495         memset(iobuf, 0, sizeof(iobuf));
496         ccb[0] = ATAPI_CMD_START_STOP;
497         ccb[4] = 0x03;          /* start */
498
499         c = atapi_issue_autoreq(device, ccb, 12, (unsigned char *)iobuf, 0);
500
501         debug("ATAPI_CMD_START_STOP returned %x\n", c);
502         if (c != 0)
503                 return;
504
505         memset(ccb, 0, sizeof(ccb));
506         memset(iobuf, 0, sizeof(iobuf));
507         c = atapi_issue_autoreq(device, ccb, 12, (unsigned char *)iobuf, 0);
508
509         debug("ATAPI_CMD_UNIT_TEST_READY returned %x\n", c);
510         if (c != 0)
511                 return;
512
513         memset(ccb, 0, sizeof(ccb));
514         memset(iobuf, 0, sizeof(iobuf));
515         ccb[0] = ATAPI_CMD_READ_CAP;
516         c = atapi_issue_autoreq(device, ccb, 12, (unsigned char *)iobuf, 8);
517         debug("ATAPI_CMD_READ_CAP returned %x\n", c);
518         if (c != 0)
519                 return;
520
521         debug("Read Cap: LBA %02X%02X%02X%02X blksize %02X%02X%02X%02X\n",
522               iobuf[0], iobuf[1], iobuf[2], iobuf[3],
523               iobuf[4], iobuf[5], iobuf[6], iobuf[7]);
524
525         dev_desc->lba = ((unsigned long) iobuf[0] << 24) +
526                 ((unsigned long) iobuf[1] << 16) +
527                 ((unsigned long) iobuf[2] << 8) + ((unsigned long) iobuf[3]);
528         dev_desc->blksz = ((unsigned long) iobuf[4] << 24) +
529                 ((unsigned long) iobuf[5] << 16) +
530                 ((unsigned long) iobuf[6] << 8) + ((unsigned long) iobuf[7]);
531         dev_desc->log2blksz = LOG2(dev_desc->blksz);
532 #ifdef CONFIG_LBA48
533         /* ATAPI devices cannot use 48bit addressing (ATA/ATAPI v7) */
534         dev_desc->lba48 = 0;
535 #endif
536         return;
537 }
538
539 #endif /* CONFIG_ATAPI */
540
541 static void ide_ident(struct blk_desc *dev_desc)
542 {
543         unsigned char c;
544         hd_driveid_t iop;
545
546 #ifdef CONFIG_ATAPI
547         int retries = 0;
548 #endif
549         int device;
550
551         device = dev_desc->devnum;
552         printf("  Device %d: ", device);
553
554         /* Select device
555          */
556         ide_outb(device, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(device));
557         dev_desc->if_type = IF_TYPE_IDE;
558 #ifdef CONFIG_ATAPI
559
560         retries = 0;
561
562         /* Warning: This will be tricky to read */
563         while (retries <= 1) {
564                 /* check signature */
565                 if ((ide_inb(device, ATA_SECT_CNT) == 0x01) &&
566                     (ide_inb(device, ATA_SECT_NUM) == 0x01) &&
567                     (ide_inb(device, ATA_CYL_LOW) == 0x14) &&
568                     (ide_inb(device, ATA_CYL_HIGH) == 0xEB)) {
569                         /* ATAPI Signature found */
570                         dev_desc->if_type = IF_TYPE_ATAPI;
571                         /*
572                          * Start Ident Command
573                          */
574                         ide_outb(device, ATA_COMMAND, ATAPI_CMD_IDENT);
575                         /*
576                          * Wait for completion - ATAPI devices need more time
577                          * to become ready
578                          */
579                         c = ide_wait(device, ATAPI_TIME_OUT);
580                 } else
581 #endif
582                 {
583                         /*
584                          * Start Ident Command
585                          */
586                         ide_outb(device, ATA_COMMAND, ATA_CMD_IDENT);
587
588                         /*
589                          * Wait for completion
590                          */
591                         c = ide_wait(device, IDE_TIME_OUT);
592                 }
593
594                 if (((c & ATA_STAT_DRQ) == 0) ||
595                     ((c & (ATA_STAT_FAULT | ATA_STAT_ERR)) != 0)) {
596 #ifdef CONFIG_ATAPI
597                         {
598                                 /*
599                                  * Need to soft reset the device
600                                  * in case it's an ATAPI...
601                                  */
602                                 debug("Retrying...\n");
603                                 ide_outb(device, ATA_DEV_HD,
604                                          ATA_LBA | ATA_DEVICE(device));
605                                 udelay(100000);
606                                 ide_outb(device, ATA_COMMAND, 0x08);
607                                 udelay(500000); /* 500 ms */
608                         }
609                         /*
610                          * Select device
611                          */
612                         ide_outb(device, ATA_DEV_HD,
613                                  ATA_LBA | ATA_DEVICE(device));
614                         retries++;
615 #else
616                         return;
617 #endif
618                 }
619 #ifdef CONFIG_ATAPI
620                 else
621                         break;
622         }                       /* see above - ugly to read */
623
624         if (retries == 2)       /* Not found */
625                 return;
626 #endif
627
628         ide_input_swap_data(device, (ulong *)&iop, ATA_SECTORWORDS);
629
630         ident_cpy((unsigned char *)dev_desc->revision, iop.fw_rev,
631                   sizeof(dev_desc->revision));
632         ident_cpy((unsigned char *)dev_desc->vendor, iop.model,
633                   sizeof(dev_desc->vendor));
634         ident_cpy((unsigned char *)dev_desc->product, iop.serial_no,
635                   sizeof(dev_desc->product));
636 #ifdef __LITTLE_ENDIAN
637         /*
638          * firmware revision, model, and serial number have Big Endian Byte
639          * order in Word. Convert all three to little endian.
640          *
641          * See CF+ and CompactFlash Specification Revision 2.0:
642          * 6.2.1.6: Identify Drive, Table 39 for more details
643          */
644
645         strswab(dev_desc->revision);
646         strswab(dev_desc->vendor);
647         strswab(dev_desc->product);
648 #endif /* __LITTLE_ENDIAN */
649
650         if ((iop.config & 0x0080) == 0x0080)
651                 dev_desc->removable = 1;
652         else
653                 dev_desc->removable = 0;
654
655 #ifdef CONFIG_ATAPI
656         if (dev_desc->if_type == IF_TYPE_ATAPI) {
657                 atapi_inquiry(dev_desc);
658                 return;
659         }
660 #endif /* CONFIG_ATAPI */
661
662 #ifdef __BIG_ENDIAN
663         /* swap shorts */
664         dev_desc->lba = (iop.lba_capacity << 16) | (iop.lba_capacity >> 16);
665 #else  /* ! __BIG_ENDIAN */
666         /*
667          * do not swap shorts on little endian
668          *
669          * See CF+ and CompactFlash Specification Revision 2.0:
670          * 6.2.1.6: Identfy Drive, Table 39, Word Address 57-58 for details.
671          */
672         dev_desc->lba = iop.lba_capacity;
673 #endif /* __BIG_ENDIAN */
674
675 #ifdef CONFIG_LBA48
676         if (iop.command_set_2 & 0x0400) {       /* LBA 48 support */
677                 dev_desc->lba48 = 1;
678                 dev_desc->lba = (unsigned long long) iop.lba48_capacity[0] |
679                         ((unsigned long long) iop.lba48_capacity[1] << 16) |
680                         ((unsigned long long) iop.lba48_capacity[2] << 32) |
681                         ((unsigned long long) iop.lba48_capacity[3] << 48);
682         } else {
683                 dev_desc->lba48 = 0;
684         }
685 #endif /* CONFIG_LBA48 */
686         /* assuming HD */
687         dev_desc->type = DEV_TYPE_HARDDISK;
688         dev_desc->blksz = ATA_BLOCKSIZE;
689         dev_desc->log2blksz = LOG2(dev_desc->blksz);
690         dev_desc->lun = 0;      /* just to fill something in... */
691
692 #if 0                           /* only used to test the powersaving mode,
693                                  * if enabled, the drive goes after 5 sec
694                                  * in standby mode */
695         ide_outb(device, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(device));
696         c = ide_wait(device, IDE_TIME_OUT);
697         ide_outb(device, ATA_SECT_CNT, 1);
698         ide_outb(device, ATA_LBA_LOW, 0);
699         ide_outb(device, ATA_LBA_MID, 0);
700         ide_outb(device, ATA_LBA_HIGH, 0);
701         ide_outb(device, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(device));
702         ide_outb(device, ATA_COMMAND, 0xe3);
703         udelay(50);
704         c = ide_wait(device, IDE_TIME_OUT);     /* can't take over 500 ms */
705 #endif
706 }
707
708 __weak void ide_outb(int dev, int port, unsigned char val)
709 {
710         debug("ide_outb (dev= %d, port= 0x%x, val= 0x%02x) : @ 0x%08lx\n",
711               dev, port, val,
712               (ATA_CURR_BASE(dev) + CONFIG_SYS_ATA_PORT_ADDR(port)));
713
714 #if defined(CONFIG_IDE_AHB)
715         if (port) {
716                 /* write command */
717                 ide_write_register(dev, port, val);
718         } else {
719                 /* write data */
720                 outb(val, (ATA_CURR_BASE(dev)));
721         }
722 #else
723         outb(val, (ATA_CURR_BASE(dev) + CONFIG_SYS_ATA_PORT_ADDR(port)));
724 #endif
725 }
726
727 __weak unsigned char ide_inb(int dev, int port)
728 {
729         uchar val;
730
731 #if defined(CONFIG_IDE_AHB)
732         val = ide_read_register(dev, port);
733 #else
734         val = inb((ATA_CURR_BASE(dev) + CONFIG_SYS_ATA_PORT_ADDR(port)));
735 #endif
736
737         debug("ide_inb (dev= %d, port= 0x%x) : @ 0x%08lx -> 0x%02x\n",
738               dev, port,
739               (ATA_CURR_BASE(dev) + CONFIG_SYS_ATA_PORT_ADDR(port)), val);
740         return val;
741 }
742
743 void ide_init(void)
744 {
745         unsigned char c;
746         int i, bus;
747
748 #ifdef CONFIG_IDE_PREINIT
749         WATCHDOG_RESET();
750
751         if (ide_preinit()) {
752                 puts("ide_preinit failed\n");
753                 return;
754         }
755 #endif /* CONFIG_IDE_PREINIT */
756
757         WATCHDOG_RESET();
758
759         /* ATAPI Drives seems to need a proper IDE Reset */
760         ide_reset();
761
762         /*
763          * Wait for IDE to get ready.
764          * According to spec, this can take up to 31 seconds!
765          */
766         for (bus = 0; bus < CONFIG_SYS_IDE_MAXBUS; ++bus) {
767                 int dev =
768                         bus * (CONFIG_SYS_IDE_MAXDEVICE /
769                                CONFIG_SYS_IDE_MAXBUS);
770
771                 printf("Bus %d: ", bus);
772
773                 ide_bus_ok[bus] = 0;
774
775                 /* Select device
776                  */
777                 udelay(100000); /* 100 ms */
778                 ide_outb(dev, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(dev));
779                 udelay(100000); /* 100 ms */
780                 i = 0;
781                 do {
782                         udelay(10000);  /* 10 ms */
783
784                         c = ide_inb(dev, ATA_STATUS);
785                         i++;
786                         if (i > (ATA_RESET_TIME * 100)) {
787                                 puts("** Timeout **\n");
788                                 return;
789                         }
790                         if ((i >= 100) && ((i % 100) == 0))
791                                 putc('.');
792
793                 } while (c & ATA_STAT_BUSY);
794
795                 if (c & (ATA_STAT_BUSY | ATA_STAT_FAULT)) {
796                         puts("not available  ");
797                         debug("Status = 0x%02X ", c);
798 #ifndef CONFIG_ATAPI            /* ATAPI Devices do not set DRDY */
799                 } else if ((c & ATA_STAT_READY) == 0) {
800                         puts("not available  ");
801                         debug("Status = 0x%02X ", c);
802 #endif
803                 } else {
804                         puts("OK ");
805                         ide_bus_ok[bus] = 1;
806                 }
807                 WATCHDOG_RESET();
808         }
809
810         putc('\n');
811
812         for (i = 0; i < CONFIG_SYS_IDE_MAXDEVICE; ++i) {
813                 ide_dev_desc[i].type = DEV_TYPE_UNKNOWN;
814                 ide_dev_desc[i].if_type = IF_TYPE_IDE;
815                 ide_dev_desc[i].devnum = i;
816                 ide_dev_desc[i].part_type = PART_TYPE_UNKNOWN;
817                 ide_dev_desc[i].blksz = 0;
818                 ide_dev_desc[i].log2blksz =
819                         LOG2_INVALID(typeof(ide_dev_desc[i].log2blksz));
820                 ide_dev_desc[i].lba = 0;
821 #ifndef CONFIG_BLK
822                 ide_dev_desc[i].block_read = ide_read;
823                 ide_dev_desc[i].block_write = ide_write;
824 #endif
825                 if (!ide_bus_ok[IDE_BUS(i)])
826                         continue;
827                 ide_ident(&ide_dev_desc[i]);
828                 dev_print(&ide_dev_desc[i]);
829
830 #ifndef CONFIG_BLK
831                 if ((ide_dev_desc[i].lba > 0) && (ide_dev_desc[i].blksz > 0)) {
832                         /* initialize partition type */
833                         part_init(&ide_dev_desc[i]);
834                 }
835 #endif
836         }
837         WATCHDOG_RESET();
838
839 #ifdef CONFIG_BLK
840         struct udevice *dev;
841
842         uclass_first_device(UCLASS_IDE, &dev);
843 #endif
844 }
845
846 /* We only need to swap data if we are running on a big endian cpu. */
847 #if defined(__LITTLE_ENDIAN)
848 __weak void ide_input_swap_data(int dev, ulong *sect_buf, int words)
849 {
850         ide_input_data(dev, sect_buf, words);
851 }
852 #else
853 __weak void ide_input_swap_data(int dev, ulong *sect_buf, int words)
854 {
855         volatile ushort *pbuf =
856                 (ushort *)(ATA_CURR_BASE(dev) + ATA_DATA_REG);
857         ushort *dbuf = (ushort *)sect_buf;
858
859         debug("in input swap data base for read is %lx\n",
860               (unsigned long) pbuf);
861
862         while (words--) {
863 #ifdef __MIPS__
864                 *dbuf++ = swab16p((u16 *)pbuf);
865                 *dbuf++ = swab16p((u16 *)pbuf);
866 #else
867                 *dbuf++ = ld_le16(pbuf);
868                 *dbuf++ = ld_le16(pbuf);
869 #endif /* !MIPS */
870         }
871 }
872 #endif /* __LITTLE_ENDIAN */
873
874
875 #if defined(CONFIG_IDE_SWAP_IO)
876 __weak void ide_output_data(int dev, const ulong *sect_buf, int words)
877 {
878         ushort *dbuf;
879         volatile ushort *pbuf;
880
881         pbuf = (ushort *)(ATA_CURR_BASE(dev) + ATA_DATA_REG);
882         dbuf = (ushort *)sect_buf;
883         while (words--) {
884                 EIEIO;
885                 *pbuf = *dbuf++;
886                 EIEIO;
887                 *pbuf = *dbuf++;
888         }
889 }
890 #else  /* ! CONFIG_IDE_SWAP_IO */
891 __weak void ide_output_data(int dev, const ulong *sect_buf, int words)
892 {
893 #if defined(CONFIG_IDE_AHB)
894         ide_write_data(dev, sect_buf, words);
895 #else
896         outsw(ATA_CURR_BASE(dev) + ATA_DATA_REG, sect_buf, words << 1);
897 #endif
898 }
899 #endif /* CONFIG_IDE_SWAP_IO */
900
901 #if defined(CONFIG_IDE_SWAP_IO)
902 __weak void ide_input_data(int dev, ulong *sect_buf, int words)
903 {
904         ushort *dbuf;
905         volatile ushort *pbuf;
906
907         pbuf = (ushort *)(ATA_CURR_BASE(dev) + ATA_DATA_REG);
908         dbuf = (ushort *)sect_buf;
909
910         debug("in input data base for read is %lx\n", (unsigned long) pbuf);
911
912         while (words--) {
913                 EIEIO;
914                 *dbuf++ = *pbuf;
915                 EIEIO;
916                 *dbuf++ = *pbuf;
917         }
918 }
919 #else  /* ! CONFIG_IDE_SWAP_IO */
920 __weak void ide_input_data(int dev, ulong *sect_buf, int words)
921 {
922 #if defined(CONFIG_IDE_AHB)
923         ide_read_data(dev, sect_buf, words);
924 #else
925         insw(ATA_CURR_BASE(dev) + ATA_DATA_REG, sect_buf, words << 1);
926 #endif
927 }
928
929 #endif /* CONFIG_IDE_SWAP_IO */
930
931 #ifdef CONFIG_BLK
932 ulong ide_read(struct udevice *dev, lbaint_t blknr, lbaint_t blkcnt,
933                void *buffer)
934 #else
935 ulong ide_read(struct blk_desc *block_dev, lbaint_t blknr, lbaint_t blkcnt,
936                void *buffer)
937 #endif
938 {
939 #ifdef CONFIG_BLK
940         struct blk_desc *block_dev = dev_get_uclass_platdata(dev);
941 #endif
942         int device = block_dev->devnum;
943         ulong n = 0;
944         unsigned char c;
945         unsigned char pwrsave = 0;      /* power save */
946
947 #ifdef CONFIG_LBA48
948         unsigned char lba48 = 0;
949
950         if (blknr & 0x0000fffff0000000ULL) {
951                 /* more than 28 bits used, use 48bit mode */
952                 lba48 = 1;
953         }
954 #endif
955         debug("ide_read dev %d start " LBAF ", blocks " LBAF " buffer at %lX\n",
956               device, blknr, blkcnt, (ulong) buffer);
957
958         /* Select device
959          */
960         ide_outb(device, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(device));
961         c = ide_wait(device, IDE_TIME_OUT);
962
963         if (c & ATA_STAT_BUSY) {
964                 printf("IDE read: device %d not ready\n", device);
965                 goto IDE_READ_E;
966         }
967
968         /* first check if the drive is in Powersaving mode, if yes,
969          * increase the timeout value */
970         ide_outb(device, ATA_COMMAND, ATA_CMD_CHK_PWR);
971         udelay(50);
972
973         c = ide_wait(device, IDE_TIME_OUT);     /* can't take over 500 ms */
974
975         if (c & ATA_STAT_BUSY) {
976                 printf("IDE read: device %d not ready\n", device);
977                 goto IDE_READ_E;
978         }
979         if ((c & ATA_STAT_ERR) == ATA_STAT_ERR) {
980                 printf("No Powersaving mode %X\n", c);
981         } else {
982                 c = ide_inb(device, ATA_SECT_CNT);
983                 debug("Powersaving %02X\n", c);
984                 if (c == 0)
985                         pwrsave = 1;
986         }
987
988
989         while (blkcnt-- > 0) {
990                 c = ide_wait(device, IDE_TIME_OUT);
991
992                 if (c & ATA_STAT_BUSY) {
993                         printf("IDE read: device %d not ready\n", device);
994                         break;
995                 }
996 #ifdef CONFIG_LBA48
997                 if (lba48) {
998                         /* write high bits */
999                         ide_outb(device, ATA_SECT_CNT, 0);
1000                         ide_outb(device, ATA_LBA_LOW, (blknr >> 24) & 0xFF);
1001 #ifdef CONFIG_SYS_64BIT_LBA
1002                         ide_outb(device, ATA_LBA_MID, (blknr >> 32) & 0xFF);
1003                         ide_outb(device, ATA_LBA_HIGH, (blknr >> 40) & 0xFF);
1004 #else
1005                         ide_outb(device, ATA_LBA_MID, 0);
1006                         ide_outb(device, ATA_LBA_HIGH, 0);
1007 #endif
1008                 }
1009 #endif
1010                 ide_outb(device, ATA_SECT_CNT, 1);
1011                 ide_outb(device, ATA_LBA_LOW, (blknr >> 0) & 0xFF);
1012                 ide_outb(device, ATA_LBA_MID, (blknr >> 8) & 0xFF);
1013                 ide_outb(device, ATA_LBA_HIGH, (blknr >> 16) & 0xFF);
1014
1015 #ifdef CONFIG_LBA48
1016                 if (lba48) {
1017                         ide_outb(device, ATA_DEV_HD,
1018                                  ATA_LBA | ATA_DEVICE(device));
1019                         ide_outb(device, ATA_COMMAND, ATA_CMD_READ_EXT);
1020
1021                 } else
1022 #endif
1023                 {
1024                         ide_outb(device, ATA_DEV_HD, ATA_LBA |
1025                                  ATA_DEVICE(device) | ((blknr >> 24) & 0xF));
1026                         ide_outb(device, ATA_COMMAND, ATA_CMD_READ);
1027                 }
1028
1029                 udelay(50);
1030
1031                 if (pwrsave) {
1032                         /* may take up to 4 sec */
1033                         c = ide_wait(device, IDE_SPIN_UP_TIME_OUT);
1034                         pwrsave = 0;
1035                 } else {
1036                         /* can't take over 500 ms */
1037                         c = ide_wait(device, IDE_TIME_OUT);
1038                 }
1039
1040                 if ((c & (ATA_STAT_DRQ | ATA_STAT_BUSY | ATA_STAT_ERR)) !=
1041                     ATA_STAT_DRQ) {
1042                         printf("Error (no IRQ) dev %d blk " LBAF
1043                                ": status %#02x\n", device, blknr, c);
1044                         break;
1045                 }
1046
1047                 ide_input_data(device, buffer, ATA_SECTORWORDS);
1048                 (void) ide_inb(device, ATA_STATUS);     /* clear IRQ */
1049
1050                 ++n;
1051                 ++blknr;
1052                 buffer += ATA_BLOCKSIZE;
1053         }
1054 IDE_READ_E:
1055         return n;
1056 }
1057
1058 #ifdef CONFIG_BLK
1059 ulong ide_write(struct udevice *dev, lbaint_t blknr, lbaint_t blkcnt,
1060                 const void *buffer)
1061 #else
1062 ulong ide_write(struct blk_desc *block_dev, lbaint_t blknr, lbaint_t blkcnt,
1063                 const void *buffer)
1064 #endif
1065 {
1066 #ifdef CONFIG_BLK
1067         struct blk_desc *block_dev = dev_get_uclass_platdata(dev);
1068 #endif
1069         int device = block_dev->devnum;
1070         ulong n = 0;
1071         unsigned char c;
1072
1073 #ifdef CONFIG_LBA48
1074         unsigned char lba48 = 0;
1075
1076         if (blknr & 0x0000fffff0000000ULL) {
1077                 /* more than 28 bits used, use 48bit mode */
1078                 lba48 = 1;
1079         }
1080 #endif
1081
1082         /* Select device
1083          */
1084         ide_outb(device, ATA_DEV_HD, ATA_LBA | ATA_DEVICE(device));
1085
1086         while (blkcnt-- > 0) {
1087                 c = ide_wait(device, IDE_TIME_OUT);
1088
1089                 if (c & ATA_STAT_BUSY) {
1090                         printf("IDE read: device %d not ready\n", device);
1091                         goto WR_OUT;
1092                 }
1093 #ifdef CONFIG_LBA48
1094                 if (lba48) {
1095                         /* write high bits */
1096                         ide_outb(device, ATA_SECT_CNT, 0);
1097                         ide_outb(device, ATA_LBA_LOW, (blknr >> 24) & 0xFF);
1098 #ifdef CONFIG_SYS_64BIT_LBA
1099                         ide_outb(device, ATA_LBA_MID, (blknr >> 32) & 0xFF);
1100                         ide_outb(device, ATA_LBA_HIGH, (blknr >> 40) & 0xFF);
1101 #else
1102                         ide_outb(device, ATA_LBA_MID, 0);
1103                         ide_outb(device, ATA_LBA_HIGH, 0);
1104 #endif
1105                 }
1106 #endif
1107                 ide_outb(device, ATA_SECT_CNT, 1);
1108                 ide_outb(device, ATA_LBA_LOW, (blknr >> 0) & 0xFF);
1109                 ide_outb(device, ATA_LBA_MID, (blknr >> 8) & 0xFF);
1110                 ide_outb(device, ATA_LBA_HIGH, (blknr >> 16) & 0xFF);
1111
1112 #ifdef CONFIG_LBA48
1113                 if (lba48) {
1114                         ide_outb(device, ATA_DEV_HD,
1115                                  ATA_LBA | ATA_DEVICE(device));
1116                         ide_outb(device, ATA_COMMAND, ATA_CMD_WRITE_EXT);
1117
1118                 } else
1119 #endif
1120                 {
1121                         ide_outb(device, ATA_DEV_HD, ATA_LBA |
1122                                  ATA_DEVICE(device) | ((blknr >> 24) & 0xF));
1123                         ide_outb(device, ATA_COMMAND, ATA_CMD_WRITE);
1124                 }
1125
1126                 udelay(50);
1127
1128                 /* can't take over 500 ms */
1129                 c = ide_wait(device, IDE_TIME_OUT);
1130
1131                 if ((c & (ATA_STAT_DRQ | ATA_STAT_BUSY | ATA_STAT_ERR)) !=
1132                     ATA_STAT_DRQ) {
1133                         printf("Error (no IRQ) dev %d blk " LBAF
1134                                ": status %#02x\n", device, blknr, c);
1135                         goto WR_OUT;
1136                 }
1137
1138                 ide_output_data(device, buffer, ATA_SECTORWORDS);
1139                 c = ide_inb(device, ATA_STATUS);        /* clear IRQ */
1140                 ++n;
1141                 ++blknr;
1142                 buffer += ATA_BLOCKSIZE;
1143         }
1144 WR_OUT:
1145         return n;
1146 }
1147
1148 #if defined(CONFIG_OF_IDE_FIXUP)
1149 int ide_device_present(int dev)
1150 {
1151         if (dev >= CONFIG_SYS_IDE_MAXBUS)
1152                 return 0;
1153         return ide_dev_desc[dev].type == DEV_TYPE_UNKNOWN ? 0 : 1;
1154 }
1155 #endif
1156
1157 #ifdef CONFIG_BLK
1158 static int ide_blk_probe(struct udevice *udev)
1159 {
1160         struct blk_desc *desc = dev_get_uclass_platdata(udev);
1161
1162         /* fill in device vendor/product/rev strings */
1163         strncpy(desc->vendor, ide_dev_desc[desc->devnum].vendor,
1164                 BLK_VEN_SIZE);
1165         desc->vendor[BLK_VEN_SIZE] = '\0';
1166         strncpy(desc->product, ide_dev_desc[desc->devnum].product,
1167                 BLK_PRD_SIZE);
1168         desc->product[BLK_PRD_SIZE] = '\0';
1169         strncpy(desc->revision, ide_dev_desc[desc->devnum].revision,
1170                 BLK_REV_SIZE);
1171         desc->revision[BLK_REV_SIZE] = '\0';
1172
1173         part_init(desc);
1174
1175         return 0;
1176 }
1177
1178 static const struct blk_ops ide_blk_ops = {
1179         .read   = ide_read,
1180         .write  = ide_write,
1181 };
1182
1183 U_BOOT_DRIVER(ide_blk) = {
1184         .name           = "ide_blk",
1185         .id             = UCLASS_BLK,
1186         .ops            = &ide_blk_ops,
1187         .probe          = ide_blk_probe,
1188 };
1189
1190 static int ide_probe(struct udevice *udev)
1191 {
1192         struct udevice *blk_dev;
1193         char name[20];
1194         int blksz;
1195         lbaint_t size;
1196         int i;
1197         int ret;
1198
1199         for (i = 0; i < CONFIG_SYS_IDE_MAXDEVICE; i++) {
1200                 if (ide_dev_desc[i].type != DEV_TYPE_UNKNOWN) {
1201                         sprintf(name, "blk#%d", i);
1202
1203                         blksz = ide_dev_desc[i].blksz;
1204                         size = blksz * ide_dev_desc[i].lba;
1205
1206                         /*
1207                          * With CDROM, if there is no CD inserted, blksz will
1208                          * be zero, don't bother to create IDE block device.
1209                          */
1210                         if (!blksz)
1211                                 continue;
1212                         ret = blk_create_devicef(udev, "ide_blk", name,
1213                                                  IF_TYPE_IDE, i,
1214                                                  blksz, size, &blk_dev);
1215                         if (ret)
1216                                 return ret;
1217                 }
1218         }
1219
1220         return 0;
1221 }
1222
1223 U_BOOT_DRIVER(ide) = {
1224         .name           = "ide",
1225         .id             = UCLASS_IDE,
1226         .probe          = ide_probe,
1227 };
1228
1229 struct pci_device_id ide_supported[] = {
1230         { PCI_DEVICE_CLASS(PCI_CLASS_STORAGE_IDE << 8, 0xffff00) },
1231         { }
1232 };
1233
1234 U_BOOT_PCI_DEVICE(ide, ide_supported);
1235
1236 UCLASS_DRIVER(ide) = {
1237         .name           = "ide",
1238         .id             = UCLASS_IDE,
1239 };
1240 #else
1241 U_BOOT_LEGACY_BLK(ide) = {
1242         .if_typename    = "ide",
1243         .if_type        = IF_TYPE_IDE,
1244         .max_devs       = CONFIG_SYS_IDE_MAXDEVICE,
1245         .desc           = ide_dev_desc,
1246 };
1247 #endif