common/cmd_pcmcia.c - github/trini/u-boot - Gitiles

 /*
  * (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_CMD_IDE) && defined(CONFIG_IDE_8xx_PCCARD)
 #define	CHECK_IDE_DEVICE
 #endif

 #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);

 #if CONFIG_CPC45
 #else
 	/* set I/O area in config reg -> only valid for ARGOSY D5!!! */
 	*((uchar *)(addr + config_base)) = 1;
 #endif
 #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 */
	/*
	* (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_CMD_IDE) && defined(CONFIG_IDE_8xx_PCCARD)
	#define CHECK_IDE_DEVICE
	#endif

	#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);

	#if CONFIG_CPC45
	#else
	/* set I/O area in config reg -> only valid for ARGOSY D5!!! */
	((uchar )(addr + config_base)) = 1;
	#endif
	#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 */