[J-u-boot.git] / common / cmd_otp.c

/*
 * cmd_otp.c - interface to Blackfin on-chip One-Time-Programmable memory
 *
 * Copyright (c) 2007-2008 Analog Devices Inc.
 *
 * Licensed under the GPL-2 or later.
 */

/* There are 512 128-bit "pages" (0x000 through 0x1FF).
 * The pages are accessable as 64-bit "halfpages" (an upper and lower half).
 * The pages are not part of the memory map.  There is an OTP controller which
 * handles scanning in/out of bits.  While access is done through OTP MMRs,
 * the bootrom provides C-callable helper functions to handle the interaction.
 */

#include <config.h>
#include <common.h>
#include <command.h>

#include <asm/blackfin.h>
#include <asm/mach-common/bits/otp.h>

static const char *otp_strerror(uint32_t err)
{
	switch (err) {
	case 0:                   return "no error";
	case OTP_WRITE_ERROR:     return "OTP fuse write error";
	case OTP_READ_ERROR:      return "OTP fuse read error";
	case OTP_ACC_VIO_ERROR:   return "invalid OTP address";
	case OTP_DATA_MULT_ERROR: return "multiple bad bits detected";
	case OTP_ECC_MULT_ERROR:  return "error in ECC bits";
	case OTP_PREV_WR_ERROR:   return "space already written";
	case OTP_DATA_SB_WARN:    return "single bad bit in half page";
	case OTP_ECC_SB_WARN:     return "single bad bit in ECC";
	default:                  return "unknown error";
	}
}

#define lowup(x) ((x) % 2 ? "upper" : "lower")

static int check_voltage(void)
{
	/* Make sure voltage limits are within datasheet spec */
	uint16_t vr_ctl = bfin_read_VR_CTL();

#ifdef __ADSPBF54x__
	/* 0.9V <= VDDINT <= 1.1V */
	if ((vr_ctl & 0xc) && (vr_ctl & 0xc0) == 0xc0)
		return 1;
#else
	/* for the parts w/out qualification yet */
	(void)vr_ctl;
#endif

	return 0;
}

static void set_otp_timing(bool write)
{
	static uint32_t timing;
	if (!timing) {
		uint32_t tp1, tp2, tp3;
		/* OTP_TP1 = 1000 / sclk_period (in nanoseconds)
		 * OTP_TP1 = 1000 / (1 / get_sclk() * 10^9)
		 * OTP_TP1 = (1000 * get_sclk()) / 10^9
		 * OTP_TP1 = get_sclk() / 10^6
		 */
		tp1 = get_sclk() / 1000000;
		/* OTP_TP2 = 400 / (2 * sclk_period)
		 * OTP_TP2 = 400 / (2 * 1 / get_sclk() * 10^9)
		 * OTP_TP2 = (400 * get_sclk()) / (2 * 10^9)
		 * OTP_TP2 = (2 * get_sclk()) / 10^7
		 */
		tp2 = (2 * get_sclk() / 10000000) << 8;
		/* OTP_TP3 = magic constant */
		tp3 = (0x1401) << 15;
		timing = tp1 | tp2 | tp3;
	}

	bfrom_OtpCommand(OTP_INIT, write ? timing : timing & ~(-1 << 15));
}

int do_otp(cmd_tbl_t *cmdtp, int flag, int argc, char * const argv[])
{
	char *cmd;
	uint32_t ret, base_flags;
	bool prompt_user, force_read;
	uint32_t (*otp_func)(uint32_t page, uint32_t flags, uint64_t *page_content);

	if (argc < 4) {
 usage:
		return CMD_RET_USAGE;
	}

	prompt_user = false;
	base_flags = 0;
	cmd = argv[1];
	if (!strcmp(cmd, "read"))
		otp_func = bfrom_OtpRead;
	else if (!strcmp(cmd, "dump")) {
		otp_func = bfrom_OtpRead;
		force_read = true;
	} else if (!strcmp(cmd, "write")) {
		otp_func = bfrom_OtpWrite;
		base_flags = OTP_CHECK_FOR_PREV_WRITE;
		if (!strcmp(argv[2], "--force")) {
			argv++;
			--argc;
		} else
			prompt_user = false;
	} else if (!strcmp(cmd, "lock")) {
		if (argc != 4)
			goto usage;
		otp_func = bfrom_OtpWrite;
		base_flags = OTP_LOCK;
	} else
		goto usage;

	uint64_t *addr = (uint64_t *)simple_strtoul(argv[2], NULL, 16);
	uint32_t page = simple_strtoul(argv[3], NULL, 16);
	uint32_t flags;
	size_t i, count;
	ulong half;

	if (argc > 4)
		count = simple_strtoul(argv[4], NULL, 16);
	else
		count = 2;

	if (argc > 5) {
		half = simple_strtoul(argv[5], NULL, 16);
		if (half != 0 && half != 1) {
			puts("Error: 'half' can only be '0' or '1'\n");
			goto usage;
		}
	} else
		half = 0;

	/* "otp lock" has slightly different semantics */
	if (base_flags & OTP_LOCK) {
		count = page;
		page = (uint32_t)addr;
		addr = NULL;
	}

	/* do to the nature of OTP, make sure users are sure */
	if (prompt_user) {
		printf(
			"Writing one time programmable memory\n"
			"Make sure your operating voltages and temperature are within spec\n"
			"   source address:  0x%p\n"
			"   OTP destination: %s page 0x%03X - %s page 0x%03lX\n"
			"   number to write: %lu halfpages\n"
			" type \"YES\" (no quotes) to confirm: ",
			addr,
			lowup(half), page,
			lowup(half + count - 1), page + (half + count - 1) / 2,
			half + count
		);

		i = 0;
		while (1) {
			if (tstc()) {
				const char exp_ans[] = "YES\r";
				char c;
				putc(c = getc());
				if (exp_ans[i++] != c) {
					printf(" Aborting\n");
					return 1;
				} else if (!exp_ans[i]) {
					puts("\n");
					break;
				}
			}
		}
	}

	printf("OTP memory %s: addr 0x%p  page 0x%03X  count %zu ... ",
		cmd, addr, page, count);

	set_otp_timing(otp_func == bfrom_OtpWrite);
	if (otp_func == bfrom_OtpWrite && check_voltage()) {
		puts("ERROR: VDDINT voltage is out of spec for writing\n");
		return -1;
	}

	/* Do the actual reading/writing stuff */
	ret = 0;
	for (i = half; i < count + half; ++i) {
		flags = base_flags | (i % 2 ? OTP_UPPER_HALF : OTP_LOWER_HALF);
 try_again:
		ret = otp_func(page, flags, addr);
		if (ret & OTP_MASTER_ERROR) {
			if (force_read) {
				if (flags & OTP_NO_ECC)
					break;
				else
					flags |= OTP_NO_ECC;
				puts("E");
				goto try_again;
			} else
				break;
		} else if (ret)
			puts("W");
		else
			puts(".");
		if (!(base_flags & OTP_LOCK)) {
			++addr;
			if (i % 2)
				++page;
		} else
			++page;
	}
	if (ret & 0x1)
		printf("\nERROR at page 0x%03X (%s-halfpage): 0x%03X: %s\n",
			page, lowup(i), ret, otp_strerror(ret));
	else
		puts(" done\n");

	/* Make sure we disable writing */
	set_otp_timing(false);
	bfrom_OtpCommand(OTP_CLOSE, 0);

	return ret;
}

U_BOOT_CMD(
	otp, 7, 0, do_otp,
	"One-Time-Programmable sub-system",
	"read <addr> <page> [count] [half]\n"
	" - read 'count' half-pages starting at 'page' (offset 'half') to 'addr'\n"
	"otp dump <addr> <page> [count] [half]\n"
	" - like 'otp read', but skip read errors\n"
	"otp write [--force] <addr> <page> [count] [half]\n"
	" - write 'count' half-pages starting at 'page' (offset 'half') from 'addr'\n"
	"otp lock <page> <count>\n"
	" - lock 'count' pages starting at 'page'"
);
Commit	Line	Data
d0b01a24 MF	1	/*
	2	* cmd_otp.c - interface to Blackfin on-chip One-Time-Programmable memory
	3	*
	4	* Copyright (c) 2007-2008 Analog Devices Inc.
	5	*
	6	* Licensed under the GPL-2 or later.
	7	*/
	8
8b35e3ae	9	/* There are 512 128-bit "pages" (0x000 through 0x1FF).
d0b01a24 MF	10	* The pages are accessable as 64-bit "halfpages" (an upper and lower half).
	11	* The pages are not part of the memory map. There is an OTP controller which
	12	* handles scanning in/out of bits. While access is done through OTP MMRs,
	13	* the bootrom provides C-callable helper functions to handle the interaction.
	14	*/
	15
	16	#include <config.h>
	17	#include <common.h>
	18	#include <command.h>
	19
d0b01a24 MF	20	#include <asm/blackfin.h>
	21	#include <asm/mach-common/bits/otp.h>
	22
	23	static const char *otp_strerror(uint32_t err)
	24	{
	25	switch (err) {
	26	case 0: return "no error";
	27	case OTP_WRITE_ERROR: return "OTP fuse write error";
	28	case OTP_READ_ERROR: return "OTP fuse read error";
	29	case OTP_ACC_VIO_ERROR: return "invalid OTP address";
	30	case OTP_DATA_MULT_ERROR: return "multiple bad bits detected";
	31	case OTP_ECC_MULT_ERROR: return "error in ECC bits";
	32	case OTP_PREV_WR_ERROR: return "space already written";
	33	case OTP_DATA_SB_WARN: return "single bad bit in half page";
	34	case OTP_ECC_SB_WARN: return "single bad bit in ECC";
	35	default: return "unknown error";
	36	}
	37	}
	38
	39	#define lowup(x) ((x) % 2 ? "upper" : "lower")
	40
8b35e3ae MF	41	static int check_voltage(void)
	42	{
	43	/* Make sure voltage limits are within datasheet spec */
	44	uint16_t vr_ctl = bfin_read_VR_CTL();
	45
	46	#ifdef __ADSPBF54x__
	47	/* 0.9V <= VDDINT <= 1.1V */
	48	if ((vr_ctl & 0xc) && (vr_ctl & 0xc0) == 0xc0)
	49	return 1;
	50	#else
	51	/* for the parts w/out qualification yet */
	52	(void)vr_ctl;
	53	#endif
	54
	55	return 0;
	56	}
	57
	58	static void set_otp_timing(bool write)
d0b01a24	59	{
8b35e3ae MF	60	static uint32_t timing;
	61	if (!timing) {
	62	uint32_t tp1, tp2, tp3;
	63	/* OTP_TP1 = 1000 / sclk_period (in nanoseconds)
	64	* OTP_TP1 = 1000 / (1 / get_sclk() * 10^9)
	65	* OTP_TP1 = (1000 * get_sclk()) / 10^9
	66	* OTP_TP1 = get_sclk() / 10^6
	67	*/
	68	tp1 = get_sclk() / 1000000;
	69	/* OTP_TP2 = 400 / (2 * sclk_period)
	70	* OTP_TP2 = 400 / (2 * 1 / get_sclk() * 10^9)
	71	* OTP_TP2 = (400 * get_sclk()) / (2 * 10^9)
	72	* OTP_TP2 = (2 * get_sclk()) / 10^7
	73	*/
	74	tp2 = (2 * get_sclk() / 10000000) << 8;
	75	/* OTP_TP3 = magic constant */
	76	tp3 = (0x1401) << 15;
	77	timing = tp1 \| tp2 \| tp3;
d0b01a24 MF	78	}
d0b01a24 MF	79
8b35e3ae MF	80	bfrom_OtpCommand(OTP_INIT, write ? timing : timing & ~(-1 << 15));
	81	}
	82
54841ab5	83	int do_otp(cmd_tbl_t cmdtp, int flag, int argc, char const argv[])
8b35e3ae	84	{
fcbd5b73	85	char *cmd;
8b35e3ae MF	86	uint32_t ret, base_flags;
8b35e3ae MF	87	bool prompt_user, force_read;
d0b01a24	88	uint32_t (otp_func)(uint32_t page, uint32_t flags, uint64_t page_content);
8b35e3ae MF	89
8b35e3ae MF	90	if (argc < 4) {
d0b01a24	91	usage:
4c12eeb8	92	return CMD_RET_USAGE;
d0b01a24 MF	93	}
d0b01a24 MF	94
8b35e3ae MF	95	prompt_user = false;
8b35e3ae MF	96	base_flags = 0;
fcbd5b73 MF	97	cmd = argv[1];
fcbd5b73 MF	98	if (!strcmp(cmd, "read"))
8b35e3ae	99	otp_func = bfrom_OtpRead;
fcbd5b73	100	else if (!strcmp(cmd, "dump")) {
8b35e3ae MF	101	otp_func = bfrom_OtpRead;
8b35e3ae MF	102	force_read = true;
fcbd5b73	103	} else if (!strcmp(cmd, "write")) {
8b35e3ae MF	104	otp_func = bfrom_OtpWrite;
	105	base_flags = OTP_CHECK_FOR_PREV_WRITE;
	106	if (!strcmp(argv[2], "--force")) {
8b35e3ae MF	107	argv++;
	108	--argc;
	109	} else
	110	prompt_user = false;
fcbd5b73	111	} else if (!strcmp(cmd, "lock")) {
8b35e3ae MF	112	if (argc != 4)
	113	goto usage;
	114	otp_func = bfrom_OtpWrite;
	115	base_flags = OTP_LOCK;
	116	} else
	117	goto usage;
	118
d0b01a24 MF	119	uint64_t addr = (uint64_t )simple_strtoul(argv[2], NULL, 16);
d0b01a24 MF	120	uint32_t page = simple_strtoul(argv[3], NULL, 16);
8b35e3ae	121	uint32_t flags;
d0b01a24 MF	122	size_t i, count;
	123	ulong half;
	124
	125	if (argc > 4)
	126	count = simple_strtoul(argv[4], NULL, 16);
	127	else
	128	count = 2;
	129
	130	if (argc > 5) {
	131	half = simple_strtoul(argv[5], NULL, 16);
	132	if (half != 0 && half != 1) {
	133	puts("Error: 'half' can only be '0' or '1'\n");
	134	goto usage;
	135	}
	136	} else
	137	half = 0;
	138
8b35e3ae MF	139	/* "otp lock" has slightly different semantics */
	140	if (base_flags & OTP_LOCK) {
	141	count = page;
	142	page = (uint32_t)addr;
	143	addr = NULL;
	144	}
	145
d0b01a24	146	/* do to the nature of OTP, make sure users are sure */
8b35e3ae	147	if (prompt_user) {
d0b01a24 MF	148	printf(
	149	"Writing one time programmable memory\n"
	150	"Make sure your operating voltages and temperature are within spec\n"
	151	" source address: 0x%p\n"
fe033ad6 MF	152	" OTP destination: %s page 0x%03X - %s page 0x%03lX\n"
fe033ad6 MF	153	" number to write: %lu halfpages\n"
d0b01a24 MF	154	" type \"YES\" (no quotes) to confirm: ",
	155	addr,
	156	lowup(half), page,
	157	lowup(half + count - 1), page + (half + count - 1) / 2,
	158	half + count
	159	);
	160
	161	i = 0;
	162	while (1) {
	163	if (tstc()) {
	164	const char exp_ans[] = "YES\r";
	165	char c;
	166	putc(c = getc());
	167	if (exp_ans[i++] != c) {
	168	printf(" Aborting\n");
	169	return 1;
	170	} else if (!exp_ans[i]) {
	171	puts("\n");
	172	break;
	173	}
	174	}
	175	}
d0b01a24 MF	176	}
d0b01a24 MF	177
fe033ad6	178	printf("OTP memory %s: addr 0x%p page 0x%03X count %zu ... ",
fcbd5b73	179	cmd, addr, page, count);
d0b01a24	180
8b35e3ae MF	181	set_otp_timing(otp_func == bfrom_OtpWrite);
	182	if (otp_func == bfrom_OtpWrite && check_voltage()) {
	183	puts("ERROR: VDDINT voltage is out of spec for writing\n");
	184	return -1;
	185	}
	186
	187	/* Do the actual reading/writing stuff */
d0b01a24 MF	188	ret = 0;
d0b01a24 MF	189	for (i = half; i < count + half; ++i) {
8b35e3ae MF	190	flags = base_flags \| (i % 2 ? OTP_UPPER_HALF : OTP_LOWER_HALF);
8b35e3ae MF	191	try_again:
d0b01a24	192	ret = otp_func(page, flags, addr);
8b35e3ae MF	193	if (ret & OTP_MASTER_ERROR) {
	194	if (force_read) {
	195	if (flags & OTP_NO_ECC)
	196	break;
	197	else
	198	flags \|= OTP_NO_ECC;
	199	puts("E");
	200	goto try_again;
	201	} else
	202	break;
	203	} else if (ret)
d0b01a24 MF	204	puts("W");
	205	else
	206	puts(".");
8b35e3ae MF	207	if (!(base_flags & OTP_LOCK)) {
	208	++addr;
	209	if (i % 2)
	210	++page;
	211	} else
d0b01a24 MF	212	++page;
	213	}
	214	if (ret & 0x1)
	215	printf("\nERROR at page 0x%03X (%s-halfpage): 0x%03X: %s\n",
	216	page, lowup(i), ret, otp_strerror(ret));
	217	else
	218	puts(" done\n");
	219
8b35e3ae MF	220	/* Make sure we disable writing */
	221	set_otp_timing(false);
	222	bfrom_OtpCommand(OTP_CLOSE, 0);
d0b01a24 MF	223
	224	return ret;
	225	}
	226
388a29d0 FM	227	U_BOOT_CMD(
388a29d0 FM	228	otp, 7, 0, do_otp,
dbc6ab9f	229	"One-Time-Programmable sub-system",
d0b01a24	230	"read <addr> <page> [count] [half]\n"
8b35e3ae MF	231	" - read 'count' half-pages starting at 'page' (offset 'half') to 'addr'\n"
	232	"otp dump <addr> <page> [count] [half]\n"
	233	" - like 'otp read', but skip read errors\n"
d0b01a24	234	"otp write [--force] <addr> <page> [count] [half]\n"
8b35e3ae MF	235	" - write 'count' half-pages starting at 'page' (offset 'half') from 'addr'\n"
8b35e3ae MF	236	"otp lock <page> <count>\n"
a89c33db WD	237	" - lock 'count' pages starting at 'page'"
a89c33db WD	238	);