]> git.sur5r.net Git - u-boot/blob - drivers/pcmcia/ti_pci1410a.c
d83db3f022ece851511610b781fa99bb9d7203f8
[u-boot] / drivers / pcmcia / ti_pci1410a.c
1 /*
2  * (C) Copyright 2000-2002
3  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
4  * (C) Copyright 2002
5  * Daniel Engström, Omicron Ceti AB
6  *
7  * SPDX-License-Identifier:     GPL-2.0+
8  *
9  ********************************************************************
10  *
11  * Lots of code copied from:
12  *
13  * m8xx_pcmcia.c - Linux PCMCIA socket driver for the mpc8xx series.
14  * (C) 1999-2000 Magnus Damm <damm@bitsmart.com>
15  *
16  * "The ExCA standard specifies that socket controllers should provide
17  * two IO and five memory windows per socket, which can be independently
18  * configured and positioned in the host address space and mapped to
19  * arbitrary segments of card address space. " - David A Hinds. 1999
20  *
21  * This controller does _not_ meet the ExCA standard.
22  *
23  * m8xx pcmcia controller brief info:
24  * + 8 windows (attrib, mem, i/o)
25  * + up to two slots (SLOT_A and SLOT_B)
26  * + inputpins, outputpins, event and mask registers.
27  * - no offset register. sigh.
28  *
29  * Because of the lacking offset register we must map the whole card.
30  * We assign each memory window PCMCIA_MEM_WIN_SIZE address space.
31  * Make sure there is (PCMCIA_MEM_WIN_SIZE * PCMCIA_MEM_WIN_NO
32  * * PCMCIA_SOCKETS_NO) bytes at PCMCIA_MEM_WIN_BASE.
33  * The i/o windows are dynamically allocated at PCMCIA_IO_WIN_BASE.
34  * They are maximum 64KByte each...
35  */
36
37
38 #undef DEBUG            /**/
39
40 /*
41  * PCMCIA support
42  */
43 #include <common.h>
44 #include <command.h>
45 #include <config.h>
46 #include <pci.h>
47 #include <asm/io.h>
48
49 #include <pcmcia.h>
50
51 #if defined(CONFIG_CMD_PCMCIA)
52
53 int pcmcia_on(int ide_base_bus);
54
55 static int  hardware_disable(int slot);
56 static int  hardware_enable(int slot);
57 static int  voltage_set(int slot, int vcc, int vpp);
58 static void print_funcid(int func);
59 static void print_fixed(volatile char *p);
60 static int  identify(volatile char *p);
61 static int  check_ide_device(int slot, int ide_base_bus);
62
63
64 /* ------------------------------------------------------------------------- */
65
66
67 const char *indent = "\t   ";
68
69 /* ------------------------------------------------------------------------- */
70
71
72 static struct pci_device_id supported[] = {
73         { PCI_VENDOR_ID_TI, 0xac50 }, /* Ti PCI1410A */
74         { PCI_VENDOR_ID_TI, 0xac56 }, /* Ti PCI1510 */
75         { }
76 };
77
78 static pci_dev_t devbusfn;
79 static u32 socket_base;
80 static u32 pcmcia_cis_ptr;
81
82 int pcmcia_on(int ide_base_bus)
83 {
84         u16 dev_id;
85         u32 socket_status;
86         int slot = 0;
87         int cis_len;
88         u16 io_base;
89         u16 io_len;
90
91         /*
92          * Find the CardBus PCI device(s).
93          */
94         if ((devbusfn = pci_find_devices(supported, 0)) < 0) {
95                 printf("Ti CardBus: not found\n");
96                 return 1;
97         }
98
99         pci_read_config_word(devbusfn, PCI_DEVICE_ID, &dev_id);
100
101         if (dev_id == 0xac56) {
102                 debug("Enable PCMCIA Ti PCI1510\n");
103         } else {
104                 debug("Enable PCMCIA Ti PCI1410A\n");
105         }
106
107         pcmcia_cis_ptr = CONFIG_SYS_PCMCIA_CIS_WIN;
108         cis_len = CONFIG_SYS_PCMCIA_CIS_WIN_SIZE;
109
110         io_base = CONFIG_SYS_PCMCIA_IO_WIN;
111         io_len = CONFIG_SYS_PCMCIA_IO_WIN_SIZE;
112
113         /*
114          * Setup the PCI device.
115          */
116         pci_read_config_dword(devbusfn, PCI_BASE_ADDRESS_0, &socket_base);
117         socket_base &= ~0xf;
118
119         socket_status = readl(socket_base+8);
120         if ((socket_status & 6) == 0) {
121                 printf("Card Present: ");
122
123                 switch (socket_status & 0x3c00) {
124
125                 case 0x400:
126                         printf("5V ");
127                         break;
128                 case 0x800:
129                         printf("3.3V ");
130                         break;
131                 case 0xc00:
132                         printf("3.3/5V ");
133                         break;
134                 default:
135                         printf("unsupported Vcc ");
136                         break;
137                 }
138                 switch (socket_status & 0x30) {
139                 case 0x10:
140                         printf("16bit PC-Card\n");
141                         break;
142                 case 0x20:
143                         printf("32bit CardBus Card\n");
144                         break;
145                 default:
146                         printf("8bit PC-Card\n");
147                         break;
148                 }
149         }
150
151
152         writeb(0x41, socket_base + 0x806); /* Enable I/O window 0 and memory window 0 */
153         writeb(0x0e, socket_base + 0x807); /* Reset I/O window options */
154
155         /* Careful: the linux yenta driver do not seem to reset the offset
156          * in the i/o windows, so leaving them non-zero is a problem */
157
158         writeb(io_base & 0xff, socket_base + 0x808); /* I/O window 0 base address */
159         writeb(io_base>>8, socket_base + 0x809);
160         writeb((io_base + io_len - 1) & 0xff, socket_base + 0x80a); /* I/O window 0 end address */
161         writeb((io_base + io_len - 1)>>8, socket_base + 0x80b);
162         writeb(0x00, socket_base + 0x836);      /* I/O window 0 offset address 0x000 */
163         writeb(0x00, socket_base + 0x837);
164
165
166         writeb((pcmcia_cis_ptr&0x000ff000) >> 12,
167                socket_base + 0x810); /* Memory window 0 start address bits 19-12 */
168         writeb((pcmcia_cis_ptr&0x00f00000) >> 20,
169                socket_base + 0x811);  /* Memory window 0 start address bits 23-20 */
170         writeb(((pcmcia_cis_ptr+cis_len-1) & 0x000ff000) >> 12,
171                 socket_base + 0x812); /* Memory window 0 end address bits 19-12*/
172         writeb(((pcmcia_cis_ptr+cis_len-1) & 0x00f00000) >> 20,
173                 socket_base + 0x813); /* Memory window 0 end address bits 23-20*/
174         writeb(0x00, socket_base + 0x814); /* Memory window 0 offset bits 19-12 */
175         writeb(0x40, socket_base + 0x815); /* Memory window 0 offset bits 23-20 and
176                                             * options (read/write, attribute access) */
177         writeb(0x00, socket_base + 0x816); /* ExCA card-detect and general control  */
178         writeb(0x00, socket_base + 0x81e); /* ExCA global control (interrupt modes) */
179
180         writeb((pcmcia_cis_ptr & 0xff000000) >> 24,
181                socket_base + 0x840); /* Memory window address bits 31-24 */
182
183
184         /* turn off voltage */
185         if (voltage_set(slot, 0, 0)) {
186                 return 1;
187         }
188
189         /* Enable external hardware */
190         if (hardware_enable(slot)) {
191                 return 1;
192         }
193
194         if (check_ide_device(slot, ide_base_bus)) {
195                 return 1;
196         }
197
198         return 0;
199 }
200
201 /* ------------------------------------------------------------------------- */
202
203
204 #if defined(CONFIG_CMD_PCMCIA)
205 int pcmcia_off (void)
206 {
207         int slot = 0;
208
209         writeb(0x00, socket_base + 0x806); /* disable all I/O and memory windows */
210
211         writeb(0x00, socket_base + 0x808); /* I/O window 0 base address */
212         writeb(0x00, socket_base + 0x809);
213         writeb(0x00, socket_base + 0x80a); /* I/O window 0 end address */
214         writeb(0x00, socket_base + 0x80b);
215         writeb(0x00, socket_base + 0x836); /* I/O window 0 offset address  */
216         writeb(0x00, socket_base + 0x837);
217
218         writeb(0x00, socket_base + 0x80c); /* I/O window 1 base address  */
219         writeb(0x00, socket_base + 0x80d);
220         writeb(0x00, socket_base + 0x80e); /* I/O window 1 end address  */
221         writeb(0x00, socket_base + 0x80f);
222         writeb(0x00, socket_base + 0x838); /* I/O window 1 offset address  */
223         writeb(0x00, socket_base + 0x839);
224
225         writeb(0x00, socket_base + 0x810); /* Memory window 0 start address */
226         writeb(0x00, socket_base + 0x811);
227         writeb(0x00, socket_base + 0x812); /* Memory window 0 end address  */
228         writeb(0x00, socket_base + 0x813);
229         writeb(0x00, socket_base + 0x814); /* Memory window 0 offset */
230         writeb(0x00, socket_base + 0x815);
231
232         writeb(0xc0, socket_base + 0x840); /* Memory window 0 page address */
233
234
235         /* turn off voltage */
236         voltage_set(slot, 0, 0);
237
238         /* disable external hardware */
239         printf ("Shutdown and Poweroff Ti PCI1410A\n");
240         hardware_disable(slot);
241
242         return 0;
243 }
244
245 #endif
246
247 /* ------------------------------------------------------------------------- */
248
249
250 #define MAX_TUPEL_SZ    512
251 #define MAX_FEATURES    4
252 int ide_devices_found;
253 static int check_ide_device(int slot, int ide_base_bus)
254 {
255         volatile char *ident = NULL;
256         volatile char *feature_p[MAX_FEATURES];
257         volatile char *p, *start;
258         int n_features = 0;
259         uchar func_id = ~0;
260         uchar code, len;
261         ushort config_base = 0;
262         int found = 0;
263         int i;
264         u32 socket_status;
265
266         debug ("PCMCIA MEM: %08X\n", pcmcia_cis_ptr);
267
268         socket_status = readl(socket_base+8);
269
270         if ((socket_status & 6) != 0 || (socket_status & 0x20) != 0) {
271                 printf("no card or CardBus card\n");
272                 return 1;
273         }
274
275         start = p = (volatile char *) pcmcia_cis_ptr;
276
277         while ((p - start) < MAX_TUPEL_SZ) {
278
279                 code = *p; p += 2;
280
281                 if (code == 0xFF) { /* End of chain */
282                         break;
283                 }
284
285                 len = *p; p += 2;
286 #if defined(DEBUG) && (DEBUG > 1)
287                 {
288                         volatile uchar *q = p;
289                         printf ("\nTuple code %02x  length %d\n\tData:",
290                                 code, len);
291
292                         for (i = 0; i < len; ++i) {
293                                 printf (" %02x", *q);
294                                 q+= 2;
295                         }
296                 }
297 #endif  /* DEBUG */
298                 switch (code) {
299                 case CISTPL_VERS_1:
300                         ident = p + 4;
301                         break;
302                 case CISTPL_FUNCID:
303                         /* Fix for broken SanDisk which may have 0x80 bit set */
304                         func_id = *p & 0x7F;
305                         break;
306                 case CISTPL_FUNCE:
307                         if (n_features < MAX_FEATURES)
308                                 feature_p[n_features++] = p;
309                         break;
310                 case CISTPL_CONFIG:
311                         config_base = (*(p+6) << 8) + (*(p+4));
312                         debug ("\n## Config_base = %04x ###\n", config_base);
313                 default:
314                         break;
315                 }
316                 p += 2 * len;
317         }
318
319         found = identify(ident);
320
321         if (func_id != ((uchar)~0)) {
322                 print_funcid (func_id);
323
324                 if (func_id == CISTPL_FUNCID_FIXED)
325                         found = 1;
326                 else
327                         return 1;       /* no disk drive */
328         }
329
330         for (i=0; i<n_features; ++i) {
331                 print_fixed(feature_p[i]);
332         }
333
334         if (!found) {
335                 printf("unknown card type\n");
336                 return 1;
337         }
338
339         /* select config index 1 */
340         writeb(1, pcmcia_cis_ptr + config_base);
341
342 #if 0
343         printf("Confiuration Option Register: %02x\n", readb(pcmcia_cis_ptr + config_base));
344         printf("Card Confiuration and Status Register: %02x\n", readb(pcmcia_cis_ptr + config_base + 2));
345         printf("Pin Replacement Register Register: %02x\n", readb(pcmcia_cis_ptr + config_base + 4));
346         printf("Socket and Copy Register: %02x\n", readb(pcmcia_cis_ptr + config_base + 6));
347 #endif
348         ide_devices_found |= (1 << (slot+ide_base_bus));
349
350         return 0;
351 }
352
353
354 static int voltage_set(int slot, int vcc, int vpp)
355 {
356         u32 socket_control;
357         int reg=0;
358
359         switch (slot) {
360         case 0:
361                 reg = socket_base + 0x10;
362                 break;
363         default:
364                 return 1;
365         }
366
367         socket_control = 0;
368
369
370         switch (vcc) {
371         case 50:
372                 socket_control |= 0x20;
373                 break;
374         case 33:
375                 socket_control |= 0x30;
376                 break;
377         case 0:
378         default: ;
379         }
380
381         switch (vpp) {
382         case 120:
383                 socket_control |= 0x1;
384                 break;
385         case 50:
386                 socket_control |= 0x2;
387                 break;
388         case 33:
389                 socket_control |= 0x3;
390                 break;
391         case 0:
392         default: ;
393         }
394
395         writel(socket_control, reg);
396
397         debug ("voltage_set: Ti PCI1410A Slot %d, Vcc=%d.%d, Vpp=%d.%d\n",
398                 slot, vcc/10, vcc%10, vpp/10, vpp%10);
399
400         udelay(500);
401         return 0;
402 }
403
404
405 static int hardware_enable(int slot)
406 {
407         u32 socket_status;
408         u16 brg_ctrl;
409         int is_82365sl;
410
411         socket_status = readl(socket_base+8);
412
413         if ((socket_status & 6) == 0) {
414
415                 switch (socket_status & 0x3c00) {
416
417                 case 0x400:
418                         printf("5V ");
419                         voltage_set(slot, 50, 0);
420                         break;
421                 case 0x800:
422                         voltage_set(slot, 33, 0);
423                         break;
424                 case 0xc00:
425                         voltage_set(slot, 33, 0);
426                         break;
427                 default:
428                         voltage_set(slot, 0, 0);
429                         break;
430                 }
431         } else {
432                 voltage_set(slot, 0, 0);
433         }
434
435         pci_read_config_word(devbusfn, PCI_BRIDGE_CONTROL, &brg_ctrl);
436         brg_ctrl &= ~PCI_BRIDGE_CTL_BUS_RESET;
437         pci_write_config_word(devbusfn, PCI_BRIDGE_CONTROL, brg_ctrl);
438         is_82365sl = ((readb(socket_base+0x800) & 0x0f) == 2);
439         writeb(is_82365sl?0x90:0x98, socket_base+0x802);
440         writeb(0x67, socket_base+0x803);
441         udelay(100000);
442 #if 0
443         printf("ExCA Id %02x, Card Status %02x, Power config %02x, Interrupt Config %02x, bridge control %04x %d\n",
444                readb(socket_base+0x800), readb(socket_base+0x801),
445                readb(socket_base+0x802), readb(socket_base+0x803), brg_ctrl, is_82365sl);
446 #endif
447
448         return ((readb(socket_base+0x801)&0x6c)==0x6c)?0:1;
449 }
450
451
452 static int hardware_disable(int slot)
453 {
454         voltage_set(slot, 0, 0);
455         return 0;
456 }
457
458 static void print_funcid(int func)
459 {
460         puts(indent);
461         switch (func) {
462         case CISTPL_FUNCID_MULTI:
463                 puts(" Multi-Function");
464                 break;
465         case CISTPL_FUNCID_MEMORY:
466                 puts(" Memory");
467                 break;
468         case CISTPL_FUNCID_SERIAL:
469                 puts(" Serial Port");
470                 break;
471         case CISTPL_FUNCID_PARALLEL:
472                 puts(" Parallel Port");
473                 break;
474         case CISTPL_FUNCID_FIXED:
475                 puts(" Fixed Disk");
476                 break;
477         case CISTPL_FUNCID_VIDEO:
478                 puts(" Video Adapter");
479                 break;
480         case CISTPL_FUNCID_NETWORK:
481                 puts(" Network Adapter");
482                 break;
483         case CISTPL_FUNCID_AIMS:
484                 puts(" AIMS Card");
485                 break;
486         case CISTPL_FUNCID_SCSI:
487                 puts(" SCSI Adapter");
488                 break;
489         default:
490                 puts(" Unknown");
491                 break;
492         }
493         puts(" Card\n");
494 }
495
496 /* ------------------------------------------------------------------------- */
497
498 static void print_fixed(volatile char *p)
499 {
500         if (p == NULL)
501                 return;
502
503         puts(indent);
504
505         switch (*p) {
506         case CISTPL_FUNCE_IDE_IFACE:
507                 {   uchar iface = *(p+2);
508
509                         puts ((iface == CISTPL_IDE_INTERFACE) ? " IDE" : " unknown");
510                         puts (" interface ");
511                         break;
512                 }
513         case CISTPL_FUNCE_IDE_MASTER:
514         case CISTPL_FUNCE_IDE_SLAVE:
515                 {
516                         uchar f1 = *(p+2);
517                         uchar f2 = *(p+4);
518
519                         puts((f1 & CISTPL_IDE_SILICON) ? " [silicon]" : " [rotating]");
520
521                         if (f1 & CISTPL_IDE_UNIQUE) {
522                                 puts(" [unique]");
523                         }
524
525                         puts((f1 & CISTPL_IDE_DUAL) ? " [dual]" : " [single]");
526
527                         if (f2 & CISTPL_IDE_HAS_SLEEP) {
528                                 puts(" [sleep]");
529                         }
530
531                         if (f2 & CISTPL_IDE_HAS_STANDBY) {
532                                 puts(" [standby]");
533                         }
534
535                         if (f2 & CISTPL_IDE_HAS_IDLE) {
536                                 puts(" [idle]");
537                         }
538
539                         if (f2 & CISTPL_IDE_LOW_POWER) {
540                                 puts(" [low power]");
541                         }
542
543                         if (f2 & CISTPL_IDE_REG_INHIBIT) {
544                                 puts(" [reg inhibit]");
545                         }
546
547                         if (f2 & CISTPL_IDE_HAS_INDEX) {
548                                 puts(" [index]");
549                         }
550
551                         if (f2 & CISTPL_IDE_IOIS16) {
552                                 puts(" [IOis16]");
553                         }
554
555                         break;
556                 }
557         }
558         putc('\n');
559 }
560
561 /* ------------------------------------------------------------------------- */
562
563 #define MAX_IDENT_CHARS         64
564 #define MAX_IDENT_FIELDS        4
565
566 static char *known_cards[] = {
567         "ARGOSY PnPIDE D5",
568         NULL
569 };
570
571 static int identify(volatile char *p)
572 {
573         char id_str[MAX_IDENT_CHARS];
574         char data;
575         char *t;
576         char **card;
577         int i, done;
578
579         if (p == NULL)
580                 return (0);     /* Don't know */
581
582         t = id_str;
583         done =0;
584
585         for (i=0; i<=4 && !done; ++i, p+=2) {
586                 while ((data = *p) != '\0') {
587                         if (data == 0xFF) {
588                                 done = 1;
589                                 break;
590                         }
591                         *t++ = data;
592                         if (t == &id_str[MAX_IDENT_CHARS-1]) {
593                                 done = 1;
594                                 break;
595                         }
596                         p += 2;
597                 }
598                 if (!done)
599                         *t++ = ' ';
600         }
601         *t = '\0';
602         while (--t > id_str) {
603                 if (*t == ' ') {
604                         *t = '\0';
605                 } else {
606                         break;
607                 }
608         }
609         puts(id_str);
610         putc('\n');
611
612         for (card=known_cards; *card; ++card) {
613                 debug ("## Compare against \"%s\"\n", *card);
614                 if (strcmp(*card, id_str) == 0) {       /* found! */
615                         debug ("## CARD FOUND ##\n");
616                         return 1;
617                 }
618         }
619
620         return 0;       /* don't know */
621 }
622
623 #endif /* CONFIG_CMD_PCMCIA */