[people/ms/u-boot.git] / cmd / pcmcia.c

/*
 * (C) Copyright 2000-2006
 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
 *
 * SPDX-License-Identifier:	GPL-2.0+
 *
 ********************************************************************
 *
 * Lots of code copied from:
 *
 * m8xx_pcmcia.c - Linux PCMCIA socket driver for the mpc8xx series.
 * (C) 1999-2000 Magnus Damm <damm@bitsmart.com>
 *
 * "The ExCA standard specifies that socket controllers should provide
 * two IO and five memory windows per socket, which can be independently
 * configured and positioned in the host address space and mapped to
 * arbitrary segments of card address space. " - David A Hinds. 1999
 *
 * This controller does _not_ meet the ExCA standard.
 *
 * m8xx pcmcia controller brief info:
 * + 8 windows (attrib, mem, i/o)
 * + up to two slots (SLOT_A and SLOT_B)
 * + inputpins, outputpins, event and mask registers.
 * - no offset register. sigh.
 *
 * Because of the lacking offset register we must map the whole card.
 * We assign each memory window PCMCIA_MEM_WIN_SIZE address space.
 * Make sure there is (PCMCIA_MEM_WIN_SIZE * PCMCIA_MEM_WIN_NO
 * * PCMCIA_SOCKETS_NO) bytes at PCMCIA_MEM_WIN_BASE.
 * The i/o windows are dynamically allocated at PCMCIA_IO_WIN_BASE.
 * They are maximum 64KByte each...
 */

/* #define DEBUG	1	*/

/*
 * PCMCIA support
 */
#include <common.h>
#include <command.h>
#include <config.h>
#include <pcmcia.h>
#include <asm/io.h>

/* -------------------------------------------------------------------- */

#if defined(CONFIG_CMD_PCMCIA)

extern int pcmcia_on (void);
extern int pcmcia_off (void);

int do_pinit (cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[])
{
	int rcode = 0;

	if (argc != 2) {
		printf ("Usage: pinit {on | off}\n");
		return 1;
	}
	if (strcmp(argv[1],"on") == 0) {
		rcode = pcmcia_on ();
	} else if (strcmp(argv[1],"off") == 0) {
		rcode = pcmcia_off ();
	} else {
		printf ("Usage: pinit {on | off}\n");
		return 1;
	}

	return rcode;
}

U_BOOT_CMD(
	pinit,	2,	0,	do_pinit,
	"PCMCIA sub-system",
	"on  - power on PCMCIA socket\n"
	"pinit off - power off PCMCIA socket"
);

#endif

/* -------------------------------------------------------------------- */

#undef	CHECK_IDE_DEVICE

#if	defined(CONFIG_PXA_PCMCIA)
#define	CHECK_IDE_DEVICE
#endif

#ifdef	CHECK_IDE_DEVICE

int		ide_devices_found;
static uchar	*known_cards[] = {
	(uchar *)"ARGOSY PnPIDE D5",
	NULL
};

#define	MAX_TUPEL_SZ	512
#define MAX_FEATURES	4

#define MAX_IDENT_CHARS		64
#define	MAX_IDENT_FIELDS	4

#define	indent	"\t   "

static void print_funcid (int func)
{
	puts (indent);
	switch (func) {
		case CISTPL_FUNCID_MULTI:
			puts (" Multi-Function");
			break;
		case CISTPL_FUNCID_MEMORY:
			puts (" Memory");
			break;
		case CISTPL_FUNCID_SERIAL:
			puts (" Serial Port");
			break;
		case CISTPL_FUNCID_PARALLEL:
			puts (" Parallel Port");
			break;
		case CISTPL_FUNCID_FIXED:
			puts (" Fixed Disk");
			break;
		case CISTPL_FUNCID_VIDEO:
			puts (" Video Adapter");
			break;
		case CISTPL_FUNCID_NETWORK:
			puts (" Network Adapter");
			break;
		case CISTPL_FUNCID_AIMS:
			puts (" AIMS Card");
			break;
		case CISTPL_FUNCID_SCSI:
			puts (" SCSI Adapter");
			break;
		default:
			puts (" Unknown");
			break;
	}
	puts (" Card\n");
}

static void print_fixed (volatile uchar *p)
{
	if (p == NULL)
		return;

	puts(indent);

	switch (*p) {
		case CISTPL_FUNCE_IDE_IFACE:
		{   uchar iface = *(p+2);

		puts ((iface == CISTPL_IDE_INTERFACE) ? " IDE" : " unknown");
		puts (" interface ");
		break;
		}
		case CISTPL_FUNCE_IDE_MASTER:
		case CISTPL_FUNCE_IDE_SLAVE:
		{   uchar f1 = *(p+2);
		uchar f2 = *(p+4);

		puts ((f1 & CISTPL_IDE_SILICON) ? " [silicon]" : " [rotating]");

		if (f1 & CISTPL_IDE_UNIQUE)
			puts (" [unique]");

		puts ((f1 & CISTPL_IDE_DUAL) ? " [dual]" : " [single]");

		if (f2 & CISTPL_IDE_HAS_SLEEP)
			puts (" [sleep]");

		if (f2 & CISTPL_IDE_HAS_STANDBY)
			puts (" [standby]");

		if (f2 & CISTPL_IDE_HAS_IDLE)
			puts (" [idle]");

		if (f2 & CISTPL_IDE_LOW_POWER)
			puts (" [low power]");

		if (f2 & CISTPL_IDE_REG_INHIBIT)
			puts (" [reg inhibit]");

		if (f2 & CISTPL_IDE_HAS_INDEX)
			puts (" [index]");

		if (f2 & CISTPL_IDE_IOIS16)
			puts (" [IOis16]");

		break;
		}
	}
	putc ('\n');
}

static int identify  (volatile uchar *p)
{
	uchar id_str[MAX_IDENT_CHARS];
	uchar data;
	uchar *t;
	uchar **card;
	int i, done;

	if (p == NULL)
		return (0);	/* Don't know */

	t = id_str;
	done =0;

	for (i=0; i<=4 && !done; ++i, p+=2) {
		while ((data = *p) != '\0') {
			if (data == 0xFF) {
				done = 1;
				break;
			}
			*t++ = data;
			if (t == &id_str[MAX_IDENT_CHARS-1]) {
				done = 1;
				break;
			}
			p += 2;
		}
		if (!done)
			*t++ = ' ';
	}
	*t = '\0';
	while (--t > id_str) {
		if (*t == ' ')
			*t = '\0';
		else
			break;
	}
	puts ((char *)id_str);
	putc ('\n');

	for (card=known_cards; *card; ++card) {
		debug ("## Compare against \"%s\"\n", *card);
		if (strcmp((char *)*card, (char *)id_str) == 0) {	/* found! */
			debug ("## CARD FOUND ##\n");
			return (1);
		}
	}

	return (0);	/* don't know */
}

int check_ide_device (int slot)
{
	volatile uchar *ident = NULL;
	volatile uchar *feature_p[MAX_FEATURES];
	volatile uchar *p, *start, *addr;
	int n_features = 0;
	uchar func_id = ~0;
	uchar code, len;
	ushort config_base = 0;
	int found = 0;
	int i;

	addr = (volatile uchar *)(CONFIG_SYS_PCMCIA_MEM_ADDR +
				  CONFIG_SYS_PCMCIA_MEM_SIZE * (slot * 4));
	debug ("PCMCIA MEM: %08lX\n", (ulong)addr);

	start = p = (volatile uchar *) addr;

	while ((p - start) < MAX_TUPEL_SZ) {

		code = *p; p += 2;

		if (code == 0xFF) { /* End of chain */
			break;
		}

		len = *p; p += 2;
#if defined(DEBUG) && (DEBUG > 1)
		{ volatile uchar *q = p;
			printf ("\nTuple code %02x  length %d\n\tData:",
				code, len);

			for (i = 0; i < len; ++i) {
				printf (" %02x", *q);
				q+= 2;
			}
		}
#endif	/* DEBUG */
		switch (code) {
		case CISTPL_VERS_1:
			ident = p + 4;
			break;
		case CISTPL_FUNCID:
			/* Fix for broken SanDisk which may have 0x80 bit set */
			func_id = *p & 0x7F;
			break;
		case CISTPL_FUNCE:
			if (n_features < MAX_FEATURES)
				feature_p[n_features++] = p;
			break;
		case CISTPL_CONFIG:
			config_base = (*(p+6) << 8) + (*(p+4));
			debug ("\n## Config_base = %04x ###\n", config_base);
		default:
			break;
		}
		p += 2 * len;
	}

	found = identify (ident);

	if (func_id != ((uchar)~0)) {
		print_funcid (func_id);

		if (func_id == CISTPL_FUNCID_FIXED)
			found = 1;
		else
			return (1);	/* no disk drive */
	}

	for (i=0; i<n_features; ++i) {
		print_fixed (feature_p[i]);
	}

	if (!found) {
		printf ("unknown card type\n");
		return (1);
	}

	ide_devices_found |= (1 << slot);

	/* set I/O area in config reg -> only valid for ARGOSY D5!!! */
	*((uchar *)(addr + config_base)) = 1;
#if 0
	printf("\n## Config_base = %04x ###\n", config_base);
	printf("Configuration Option Register: %02x @ %x\n", readb(addr + config_base), addr + config_base);
	printf("Card Configuration and Status Register: %02x\n", readb(addr + config_base + 2));
	printf("Pin Replacement Register Register: %02x\n", readb(addr + config_base + 4));
	printf("Socket and Copy Register: %02x\n", readb(addr + config_base + 6));
#endif
	return (0);
}

#endif	/* CHECK_IDE_DEVICE */
Commit	Line	Data
c609719b	1	/*
8cba090c	2	* (C) Copyright 2000-2006
c609719b WD	3	* Wolfgang Denk, DENX Software Engineering, wd@denx.de.
c609719b WD	4	*
1a459660	5	* SPDX-License-Identifier: GPL-2.0+
c609719b WD	6	*
	7	********************************************************************
	8	*
	9	* Lots of code copied from:
	10	*
	11	* m8xx_pcmcia.c - Linux PCMCIA socket driver for the mpc8xx series.
	12	* (C) 1999-2000 Magnus Damm <damm@bitsmart.com>
	13	*
	14	* "The ExCA standard specifies that socket controllers should provide
	15	* two IO and five memory windows per socket, which can be independently
	16	* configured and positioned in the host address space and mapped to
	17	* arbitrary segments of card address space. " - David A Hinds. 1999
	18	*
	19	* This controller does _not_ meet the ExCA standard.
	20	*
	21	* m8xx pcmcia controller brief info:
	22	* + 8 windows (attrib, mem, i/o)
	23	* + up to two slots (SLOT_A and SLOT_B)
	24	* + inputpins, outputpins, event and mask registers.
	25	* - no offset register. sigh.
	26	*
	27	* Because of the lacking offset register we must map the whole card.
	28	* We assign each memory window PCMCIA_MEM_WIN_SIZE address space.
	29	* Make sure there is (PCMCIA_MEM_WIN_SIZE * PCMCIA_MEM_WIN_NO
	30	* * PCMCIA_SOCKETS_NO) bytes at PCMCIA_MEM_WIN_BASE.
	31	* The i/o windows are dynamically allocated at PCMCIA_IO_WIN_BASE.
	32	* They are maximum 64KByte each...
	33	*/
	34
	35	/* #define DEBUG 1 */
	36
	37	/*
	38	* PCMCIA support
	39	*/
	40	#include <common.h>
	41	#include <command.h>
	42	#include <config.h>
	43	#include <pcmcia.h>
e2ffd59b WD	44	#include <asm/io.h>
e2ffd59b WD	45
1f53a416	46	/* -------------------------------------------------------------------- */
c609719b	47
fd9bcaa3	48	#if defined(CONFIG_CMD_PCMCIA)
db01a2ea	49
9d407995 WD	50	extern int pcmcia_on (void);
9d407995 WD	51	extern int pcmcia_off (void);
c609719b	52
54841ab5	53	int do_pinit (cmd_tbl_t cmdtp, int flag, int argc, char const argv[])
c609719b WD	54	{
	55	int rcode = 0;
	56
	57	if (argc != 2) {
	58	printf ("Usage: pinit {on \| off}\n");
	59	return 1;
	60	}
	61	if (strcmp(argv[1],"on") == 0) {
9d407995	62	rcode = pcmcia_on ();
c609719b WD	63	} else if (strcmp(argv[1],"off") == 0) {
	64	rcode = pcmcia_off ();
	65	} else {
	66	printf ("Usage: pinit {on \| off}\n");
	67	return 1;
	68	}
	69
	70	return rcode;
	71	}
66fd3d1c	72
9d407995	73	U_BOOT_CMD(
9912121f	74	pinit, 2, 0, do_pinit,
2fb2604d	75	"PCMCIA sub-system",
9d407995	76	"on - power on PCMCIA socket\n"
a89c33db WD	77	"pinit off - power off PCMCIA socket"
a89c33db WD	78	);
66fd3d1c	79
fd9bcaa3	80	#endif
66fd3d1c	81
9d407995	82	/* -------------------------------------------------------------------- */
66fd3d1c	83
9d407995	84	#undef CHECK_IDE_DEVICE
db01a2ea	85
9d407995 WD	86	#if defined(CONFIG_PXA_PCMCIA)
9d407995 WD	87	#define CHECK_IDE_DEVICE
c609719b WD	88	#endif
c609719b WD	89
9d407995	90	#ifdef CHECK_IDE_DEVICE
c609719b	91
9d407995 WD	92	int ide_devices_found;
	93	static uchar *known_cards[] = {
	94	(uchar *)"ARGOSY PnPIDE D5",
	95	NULL
	96	};
c609719b	97
9d407995 WD	98	#define MAX_TUPEL_SZ 512
9d407995 WD	99	#define MAX_FEATURES 4
c609719b	100
9d407995 WD	101	#define MAX_IDENT_CHARS 64
9d407995 WD	102	#define MAX_IDENT_FIELDS 4
c609719b	103
9d407995	104	#define indent "\t "
c609719b	105
9d407995 WD	106	static void print_funcid (int func)
	107	{
	108	puts (indent);
	109	switch (func) {
	110	case CISTPL_FUNCID_MULTI:
	111	puts (" Multi-Function");
a6cccaea	112	break;
9d407995 WD	113	case CISTPL_FUNCID_MEMORY:
9d407995 WD	114	puts (" Memory");
c609719b	115	break;
9d407995 WD	116	case CISTPL_FUNCID_SERIAL:
9d407995 WD	117	puts (" Serial Port");
c609719b	118	break;
9d407995 WD	119	case CISTPL_FUNCID_PARALLEL:
9d407995 WD	120	puts (" Parallel Port");
c609719b	121	break;
9d407995 WD	122	case CISTPL_FUNCID_FIXED:
9d407995 WD	123	puts (" Fixed Disk");
7cb22f97	124	break;
9d407995 WD	125	case CISTPL_FUNCID_VIDEO:
	126	puts (" Video Adapter");
	127	break;
	128	case CISTPL_FUNCID_NETWORK:
	129	puts (" Network Adapter");
	130	break;
	131	case CISTPL_FUNCID_AIMS:
	132	puts (" AIMS Card");
	133	break;
	134	case CISTPL_FUNCID_SCSI:
	135	puts (" SCSI Adapter");
	136	break;
	137	default:
	138	puts (" Unknown");
c609719b	139	break;
ea909b76	140	}
9d407995	141	puts (" Card\n");
db01a2ea WD	142	}
db01a2ea WD	143
9d407995	144	static void print_fixed (volatile uchar *p)
db01a2ea	145	{
9d407995 WD	146	if (p == NULL)
9d407995 WD	147	return;
db01a2ea	148
9d407995	149	puts(indent);
db01a2ea	150
9d407995 WD	151	switch (*p) {
	152	case CISTPL_FUNCE_IDE_IFACE:
	153	{ uchar iface = *(p+2);
db01a2ea	154
9d407995 WD	155	puts ((iface == CISTPL_IDE_INTERFACE) ? " IDE" : " unknown");
	156	puts (" interface ");
	157	break;
	158	}
	159	case CISTPL_FUNCE_IDE_MASTER:
	160	case CISTPL_FUNCE_IDE_SLAVE:
	161	{ uchar f1 = *(p+2);
	162	uchar f2 = *(p+4);
db01a2ea	163
9d407995	164	puts ((f1 & CISTPL_IDE_SILICON) ? " [silicon]" : " [rotating]");
db01a2ea	165
9d407995 WD	166	if (f1 & CISTPL_IDE_UNIQUE)
9d407995 WD	167	puts (" [unique]");
db01a2ea	168
9d407995	169	puts ((f1 & CISTPL_IDE_DUAL) ? " [dual]" : " [single]");
db01a2ea	170
9d407995 WD	171	if (f2 & CISTPL_IDE_HAS_SLEEP)
9d407995 WD	172	puts (" [sleep]");
db01a2ea	173
9d407995 WD	174	if (f2 & CISTPL_IDE_HAS_STANDBY)
9d407995 WD	175	puts (" [standby]");
db01a2ea	176
9d407995 WD	177	if (f2 & CISTPL_IDE_HAS_IDLE)
9d407995 WD	178	puts (" [idle]");
db01a2ea	179
9d407995 WD	180	if (f2 & CISTPL_IDE_LOW_POWER)
9d407995 WD	181	puts (" [low power]");
c609719b	182
9d407995 WD	183	if (f2 & CISTPL_IDE_REG_INHIBIT)
9d407995 WD	184	puts (" [reg inhibit]");
c609719b	185
9d407995 WD	186	if (f2 & CISTPL_IDE_HAS_INDEX)
9d407995 WD	187	puts (" [index]");
66fd3d1c	188
9d407995 WD	189	if (f2 & CISTPL_IDE_IOIS16)
9d407995 WD	190	puts (" [IOis16]");
66fd3d1c	191
9d407995 WD	192	break;
	193	}
	194	}
	195	putc ('\n');
66fd3d1c	196	}
db01a2ea	197
9d407995	198	static int identify (volatile uchar *p)
c609719b	199	{
9d407995 WD	200	uchar id_str[MAX_IDENT_CHARS];
	201	uchar data;
	202	uchar *t;
	203	uchar **card;
	204	int i, done;
c609719b	205
9d407995 WD	206	if (p == NULL)
9d407995 WD	207	return (0); /* Don't know */
c609719b	208
9d407995 WD	209	t = id_str;
9d407995 WD	210	done =0;
c609719b	211
9d407995 WD	212	for (i=0; i<=4 && !done; ++i, p+=2) {
	213	while ((data = *p) != '\0') {
	214	if (data == 0xFF) {
	215	done = 1;
	216	break;
	217	}
	218	*t++ = data;
	219	if (t == &id_str[MAX_IDENT_CHARS-1]) {
	220	done = 1;
	221	break;
	222	}
	223	p += 2;
	224	}
	225	if (!done)
	226	*t++ = ' ';
c609719b	227	}
9d407995 WD	228	*t = '\0';
	229	while (--t > id_str) {
	230	if (*t == ' ')
	231	*t = '\0';
	232	else
	233	break;
	234	}
	235	puts ((char *)id_str);
	236	putc ('\n');
c609719b	237
9d407995 WD	238	for (card=known_cards; *card; ++card) {
	239	debug ("## Compare against \"%s\"\n", *card);
	240	if (strcmp((char )card, (char )id_str) == 0) { / found! */
	241	debug ("## CARD FOUND ##\n");
	242	return (1);
	243	}
	244	}
c609719b	245
9d407995	246	return (0); /* don't know */
db01a2ea	247	}
c609719b	248
9d407995	249	int check_ide_device (int slot)
c609719b WD	250	{
	251	volatile uchar *ident = NULL;
	252	volatile uchar *feature_p[MAX_FEATURES];
ea909b76	253	volatile uchar p, start, *addr;
c609719b WD	254	int n_features = 0;
	255	uchar func_id = ~0;
	256	uchar code, len;
	257	ushort config_base = 0;
	258	int found = 0;
	259	int i;
	260
6d0f6bcf JCPV	261	addr = (volatile uchar *)(CONFIG_SYS_PCMCIA_MEM_ADDR +
6d0f6bcf JCPV	262	CONFIG_SYS_PCMCIA_MEM_SIZE * (slot * 4));
d0fb80c3	263	debug ("PCMCIA MEM: %08lX\n", (ulong)addr);
c609719b	264
ea909b76	265	start = p = (volatile uchar *) addr;
c609719b WD	266
	267	while ((p - start) < MAX_TUPEL_SZ) {
	268
	269	code = *p; p += 2;
	270
	271	if (code == 0xFF) { /* End of chain */
	272	break;
	273	}
	274
	275	len = *p; p += 2;
	276	#if defined(DEBUG) && (DEBUG > 1)
	277	{ volatile uchar *q = p;
	278	printf ("\nTuple code %02x length %d\n\tData:",
	279	code, len);
	280
	281	for (i = 0; i < len; ++i) {
	282	printf (" %02x", *q);
	283	q+= 2;
	284	}
	285	}
	286	#endif /* DEBUG */
	287	switch (code) {
	288	case CISTPL_VERS_1:
	289	ident = p + 4;
	290	break;
	291	case CISTPL_FUNCID:
	292	/* Fix for broken SanDisk which may have 0x80 bit set */
	293	func_id = *p & 0x7F;
	294	break;
	295	case CISTPL_FUNCE:
	296	if (n_features < MAX_FEATURES)
	297	feature_p[n_features++] = p;
	298	break;
	299	case CISTPL_CONFIG:
	300	config_base = ((p+6) << 8) + ((p+4));
	301	debug ("\n## Config_base = %04x ###\n", config_base);
	302	default:
	303	break;
	304	}
	305	p += 2 * len;
	306	}
	307
	308	found = identify (ident);
	309
	310	if (func_id != ((uchar)~0)) {
	311	print_funcid (func_id);
	312
	313	if (func_id == CISTPL_FUNCID_FIXED)
	314	found = 1;
	315	else
	316	return (1); /* no disk drive */
	317	}
	318
	319	for (i=0; i<n_features; ++i) {
	320	print_fixed (feature_p[i]);
	321	}
	322
	323	if (!found) {
	324	printf ("unknown card type\n");
	325	return (1);
	326	}
	327
6069ff26 WD	328	ide_devices_found \|= (1 << slot);
6069ff26 WD	329
c609719b	330	/* set I/O area in config reg -> only valid for ARGOSY D5!!! */
ea909b76	331	((uchar )(addr + config_base)) = 1;
e2ffd59b WD	332	#if 0
	333	printf("\n## Config_base = %04x ###\n", config_base);
	334	printf("Configuration Option Register: %02x @ %x\n", readb(addr + config_base), addr + config_base);
	335	printf("Card Configuration and Status Register: %02x\n", readb(addr + config_base + 2));
	336	printf("Pin Replacement Register Register: %02x\n", readb(addr + config_base + 4));
	337	printf("Socket and Copy Register: %02x\n", readb(addr + config_base + 6));
	338	#endif
c609719b WD	339	return (0);
c609719b WD	340	}
c609719b	341
9d407995	342	#endif /* CHECK_IDE_DEVICE */