ichspi.c 18.9 KB
Newer Older
1 2 3 4 5 6
/*
 * This file is part of the flashrom project.
 *
 * Copyright (C) 2008 Stefan Wildemann <stefan.wildemann@kontron.com>
 * Copyright (C) 2008 Claus Gindhart <claus.gindhart@kontron.com>
 * Copyright (C) 2008 Dominik Geyer <dominik.geyer@kontron.com>
Stefan Reinauer's avatar
Stefan Reinauer committed
7
 * Copyright (C) 2008 coresystems GmbH <info@coresystems.de>
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
 */

/*
 * This module is designed for supporting the devices
 * ST M25P40
 * ST M25P80
 * ST M25P16
 * ST M25P32 already tested
 * ST M25P64
 * AT 25DF321 already tested
 *
 */

#include <string.h>
#include "flash.h"
#include "spi.h"

Stefan Reinauer's avatar
Stefan Reinauer committed
39 40 41 42 43
/* ICH9 controller register definition */
#define ICH9_REG_FADDR         0x08	/* 32 Bits */
#define ICH9_REG_FDATA0                0x10	/* 64 Bytes */

#define ICH9_REG_SSFS          0x90	/* 08 Bits */
44 45 46 47
#define SSFS_SCIP		0x00000001
#define SSFS_CDS		0x00000004
#define SSFS_FCERR		0x00000008
#define SSFS_AEL		0x00000010
Stefan Reinauer's avatar
Stefan Reinauer committed
48 49

#define ICH9_REG_SSFC          0x91	/* 24 Bits */
50 51 52 53 54 55 56 57 58 59
#define SSFC_SCGO		0x00000200
#define SSFC_ACS		0x00000400
#define SSFC_SPOP		0x00000800
#define SSFC_COP		0x00001000
#define SSFC_DBC		0x00010000
#define SSFC_DS			0x00400000
#define SSFC_SME		0x00800000
#define SSFC_SCF		0x01000000
#define SSFC_SCF_20MHZ 0x00000000
#define SSFC_SCF_33MHZ 0x01000000
Stefan Reinauer's avatar
Stefan Reinauer committed
60 61 62 63

#define ICH9_REG_PREOP         0x94	/* 16 Bits */
#define ICH9_REG_OPTYPE                0x96	/* 16 Bits */
#define ICH9_REG_OPMENU                0x98	/* 64 Bits */
64 65 66 67 68 69 70

// ICH9R SPI commands
#define SPI_OPCODE_TYPE_READ_NO_ADDRESS     0
#define SPI_OPCODE_TYPE_WRITE_NO_ADDRESS    1
#define SPI_OPCODE_TYPE_READ_WITH_ADDRESS   2
#define SPI_OPCODE_TYPE_WRITE_WITH_ADDRESS  3

Stefan Reinauer's avatar
Stefan Reinauer committed
71 72 73 74 75 76
// ICH7 registers
#define ICH7_REG_SPIS          0x00	/* 16 Bits */
#define SPIS_SCIP              0x00000001
#define SPIS_CDS               0x00000004
#define SPIS_FCERR             0x00000008

77 78 79 80 81 82 83 84 85 86
/* VIA SPI is compatible with ICH7, but maxdata
   to transfer is 16 bytes.

   DATA byte count on ICH7 is 8:13, on VIA 8:11

   bit 12 is port select CS0 CS1
   bit 13 is FAST READ enable
   bit 7  is used with fast read and one shot controls CS de-assert?
*/

Stefan Reinauer's avatar
Stefan Reinauer committed
87 88 89 90
#define ICH7_REG_SPIC          0x02	/* 16 Bits */
#define SPIC_SCGO              0x0002
#define SPIC_ACS               0x0004
#define SPIC_SPOP              0x0008
91
#define SPIC_DS                0x4000
Stefan Reinauer's avatar
Stefan Reinauer committed
92 93 94 95 96 97 98

#define ICH7_REG_SPIA          0x04	/* 32 Bits */
#define ICH7_REG_SPID0         0x08	/* 64 Bytes */
#define ICH7_REG_PREOP         0x54	/* 16 Bits */
#define ICH7_REG_OPTYPE                0x56	/* 16 Bits */
#define ICH7_REG_OPMENU                0x58	/* 64 Bits */

99 100 101
/* ICH SPI configuration lock-down. May be set during chipset enabling. */
int ichspi_lock = 0;

102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125
typedef struct _OPCODE {
	uint8_t opcode;		//This commands spi opcode
	uint8_t spi_type;	//This commands spi type
	uint8_t atomic;		//Use preop: (0: none, 1: preop0, 2: preop1
} OPCODE;

/* Opcode definition:
 * Preop 1: Write Enable
 * Preop 2: Write Status register enable
 *
 * OP 0: Write address
 * OP 1: Read Address
 * OP 2: ERASE block
 * OP 3: Read Status register
 * OP 4: Read ID
 * OP 5: Write Status register
 * OP 6: chip private (read JDEC id)
 * OP 7: Chip erase
 */
typedef struct _OPCODES {
	uint8_t preop[2];
	OPCODE opcode[8];
} OPCODES;

126
static OPCODES *curopcodes = NULL;
127 128

/* HW access functions */
129
static uint32_t REGREAD32(int X)
130
{
131
	return mmio_readl(spibar + X);
Stefan Reinauer's avatar
Stefan Reinauer committed
132 133
}

134
static uint16_t REGREAD16(int X)
Stefan Reinauer's avatar
Stefan Reinauer committed
135
{
136
	return mmio_readw(spibar + X);
137 138
}

139 140 141
#define REGWRITE32(X,Y) mmio_writel(Y, spibar+X)
#define REGWRITE16(X,Y) mmio_writew(Y, spibar+X)
#define REGWRITE8(X,Y)  mmio_writeb(Y, spibar+X)
142 143

/* Common SPI functions */
144 145
static int find_opcode(OPCODES *op, uint8_t opcode);
static int find_preop(OPCODES *op, uint8_t preop);
FENG yu ning's avatar
FENG yu ning committed
146
static int generate_opcodes(OPCODES * op);
147
static int program_opcodes(OPCODES * op);
148
static int run_opcode(OPCODE op, uint32_t offset,
149 150
		      uint8_t datalength, uint8_t * data);
static int ich_spi_write_page(struct flashchip *flash, uint8_t * bytes,
151
			      int offset, int maxdata);
152

FENG yu ning's avatar
FENG yu ning committed
153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169
/* for pairing opcodes with their required preop */
struct preop_opcode_pair {
	uint8_t preop;
	uint8_t opcode;
};

struct preop_opcode_pair pops[] = {
	{JEDEC_WREN, JEDEC_BYTE_PROGRAM},
	{JEDEC_WREN, JEDEC_SE}, /* sector erase */
	{JEDEC_WREN, JEDEC_BE_52}, /* block erase */
	{JEDEC_WREN, JEDEC_BE_D8}, /* block erase */
	{JEDEC_WREN, JEDEC_CE_60}, /* chip erase */
	{JEDEC_WREN, JEDEC_CE_C7}, /* chip erase */
	{JEDEC_EWSR, JEDEC_WRSR},
	{0,}
};

170 171 172
OPCODES O_ST_M25P = {
	{
	 JEDEC_WREN,
173
	 0},
174
	{
175 176 177 178
	 {JEDEC_BYTE_PROGRAM, SPI_OPCODE_TYPE_WRITE_WITH_ADDRESS, 1},	// Write Byte
	 {JEDEC_READ, SPI_OPCODE_TYPE_READ_WITH_ADDRESS, 0},	// Read Data
	 {JEDEC_BE_D8, SPI_OPCODE_TYPE_WRITE_WITH_ADDRESS, 1},	// Erase Sector
	 {JEDEC_RDSR, SPI_OPCODE_TYPE_READ_NO_ADDRESS, 0},	// Read Device Status Reg
179
	 {JEDEC_REMS, SPI_OPCODE_TYPE_READ_WITH_ADDRESS, 0},	// Read Electronic Manufacturer Signature
180 181 182 183
	 {JEDEC_WRSR, SPI_OPCODE_TYPE_WRITE_NO_ADDRESS, 1},	// Write Status Register
	 {JEDEC_RDID, SPI_OPCODE_TYPE_READ_NO_ADDRESS, 0},	// Read JDEC ID
	 {JEDEC_CE_C7, SPI_OPCODE_TYPE_WRITE_NO_ADDRESS, 1},	// Bulk erase
	 }
184 185
};

186 187
OPCODES O_EXISTING = {};

188
static int find_opcode(OPCODES *op, uint8_t opcode)
189 190 191 192 193 194 195 196 197 198 199
{
	int a;

	for (a = 0; a < 8; a++) {
		if (op->opcode[a].opcode == opcode)
			return a;
	}

	return -1;
}

200
static int find_preop(OPCODES *op, uint8_t preop)
201 202 203 204 205 206 207 208 209 210 211
{
	int a;

	for (a = 0; a < 2; a++) {
		if (op->preop[a] == preop)
			return a;
	}

	return -1;
}

FENG yu ning's avatar
FENG yu ning committed
212
static int generate_opcodes(OPCODES * op)
213
{
FENG yu ning's avatar
FENG yu ning committed
214
	int a, b, i;
215 216 217 218
	uint16_t preop, optype;
	uint32_t opmenu[2];

	if (op == NULL) {
219
		printf_debug("\n%s: null OPCODES pointer!\n", __func__);
220 221 222
		return -1;
	}

223 224 225
	switch (spi_controller) {
	case SPI_CONTROLLER_ICH7:
	case SPI_CONTROLLER_VIA:
226 227 228 229 230
		preop = REGREAD16(ICH7_REG_PREOP);
		optype = REGREAD16(ICH7_REG_OPTYPE);
		opmenu[0] = REGREAD32(ICH7_REG_OPMENU);
		opmenu[1] = REGREAD32(ICH7_REG_OPMENU + 4);
		break;
231
	case SPI_CONTROLLER_ICH9:
232 233 234 235 236 237
		preop = REGREAD16(ICH9_REG_PREOP);
		optype = REGREAD16(ICH9_REG_OPTYPE);
		opmenu[0] = REGREAD32(ICH9_REG_OPMENU);
		opmenu[1] = REGREAD32(ICH9_REG_OPMENU + 4);
		break;
	default:
238
		printf_debug("%s: unsupported chipset\n", __func__);
239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263
		return -1;
	}

	op->preop[0] = (uint8_t) preop;
	op->preop[1] = (uint8_t) (preop >> 8);

	for (a = 0; a < 8; a++) {
		op->opcode[a].spi_type = (uint8_t) (optype & 0x3);
		optype >>= 2;
	}

	for (a = 0; a < 4; a++) {
		op->opcode[a].opcode = (uint8_t) (opmenu[0] & 0xff);
		opmenu[0] >>= 8;
	}

	for (a = 4; a < 8; a++) {
		op->opcode[a].opcode = (uint8_t) (opmenu[1] & 0xff);
		opmenu[1] >>= 8;
	}

	/* atomic (link opcode with required pre-op) */
	for (a = 4; a < 8; a++)
		op->opcode[a].atomic = 0;

FENG yu ning's avatar
FENG yu ning committed
264 265 266 267 268
	for (i = 0; pops[i].opcode; i++) {
		a = find_opcode(op, pops[i].opcode);
		b = find_preop(op, pops[i].preop);
		if ((a != -1) && (b != -1))
			op->opcode[a].atomic = (uint8_t) ++b;
269 270 271 272 273
	}

	return 0;
}

274 275 276
int program_opcodes(OPCODES * op)
{
	uint8_t a;
277 278
	uint16_t preop, optype;
	uint32_t opmenu[2];
279 280 281

	/* Program Prefix Opcodes */
	/* 0:7 Prefix Opcode 1 */
282
	preop = (op->preop[0]);
283
	/* 8:16 Prefix Opcode 2 */
284
	preop |= ((uint16_t) op->preop[1]) << 8;
285

Stefan Reinauer's avatar
Stefan Reinauer committed
286
	/* Program Opcode Types 0 - 7 */
287
	optype = 0;
288
	for (a = 0; a < 8; a++) {
289
		optype |= ((uint16_t) op->opcode[a].spi_type) << (a * 2);
290
	}
291

Stefan Reinauer's avatar
Stefan Reinauer committed
292
	/* Program Allowable Opcodes 0 - 3 */
293
	opmenu[0] = 0;
294
	for (a = 0; a < 4; a++) {
295
		opmenu[0] |= ((uint32_t) op->opcode[a].opcode) << (a * 8);
Stefan Reinauer's avatar
Stefan Reinauer committed
296 297
	}

298
	/*Program Allowable Opcodes 4 - 7 */
299
	opmenu[1] = 0;
300
	for (a = 4; a < 8; a++) {
301
		opmenu[1] |= ((uint32_t) op->opcode[a].opcode) << ((a - 4) * 8);
Stefan Reinauer's avatar
Stefan Reinauer committed
302 303
	}

Peter Stuge's avatar
Peter Stuge committed
304
	printf_debug("\n%s: preop=%04x optype=%04x opmenu=%08x%08x\n", __func__, preop, optype, opmenu[0], opmenu[1]);
305 306 307
	switch (spi_controller) {
	case SPI_CONTROLLER_ICH7:
	case SPI_CONTROLLER_VIA:
308 309 310 311 312
		REGWRITE16(ICH7_REG_PREOP, preop);
		REGWRITE16(ICH7_REG_OPTYPE, optype);
		REGWRITE32(ICH7_REG_OPMENU, opmenu[0]);
		REGWRITE32(ICH7_REG_OPMENU + 4, opmenu[1]);
		break;
313
	case SPI_CONTROLLER_ICH9:
314 315 316 317 318 319
		REGWRITE16(ICH9_REG_PREOP, preop);
		REGWRITE16(ICH9_REG_OPTYPE, optype);
		REGWRITE32(ICH9_REG_OPMENU, opmenu[0]);
		REGWRITE32(ICH9_REG_OPMENU + 4, opmenu[1]);
		break;
	default:
320
		printf_debug("%s: unsupported chipset\n", __func__);
321
		return -1;
Stefan Reinauer's avatar
Stefan Reinauer committed
322 323 324 325 326
	}

	return 0;
}

FENG yu ning's avatar
FENG yu ning committed
327 328
/* This function generates OPCODES from or programs OPCODES to ICH according to
 * the chipset's SPI configuration lock.
329
 *
FENG yu ning's avatar
FENG yu ning committed
330
 * It should be called before ICH sends any spi command.
331
 */
332
int ich_init_opcodes(void)
333 334 335 336 337 338 339 340 341 342
{
	int rc = 0;
	OPCODES *curopcodes_done;

	if (curopcodes)
		return 0;

	if (ichspi_lock) {
		printf_debug("Generating OPCODES... ");
		curopcodes_done = &O_EXISTING;
FENG yu ning's avatar
FENG yu ning committed
343
		rc = generate_opcodes(curopcodes_done);
344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360
	} else {
		printf_debug("Programming OPCODES... ");
		curopcodes_done = &O_ST_M25P;
		rc = program_opcodes(curopcodes_done);
	}

	if (rc) {
		curopcodes = NULL;
		printf_debug("failed\n");
		return 1;
	} else {
		curopcodes = curopcodes_done;
		printf_debug("done\n");
		return 0;
	}
}

361
static int ich7_run_opcode(OPCODE op, uint32_t offset,
362
			   uint8_t datalength, uint8_t * data, int maxdata)
Stefan Reinauer's avatar
Stefan Reinauer committed
363 364 365
{
	int write_cmd = 0;
	int timeout;
366
	uint32_t temp32 = 0;
Stefan Reinauer's avatar
Stefan Reinauer committed
367 368
	uint16_t temp16;
	uint32_t a;
369 370
	uint64_t opmenu;
	int opcode_index;
Stefan Reinauer's avatar
Stefan Reinauer committed
371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413

	/* Is it a write command? */
	if ((op.spi_type == SPI_OPCODE_TYPE_WRITE_NO_ADDRESS)
	    || (op.spi_type == SPI_OPCODE_TYPE_WRITE_WITH_ADDRESS)) {
		write_cmd = 1;
	}

	/* Programm Offset in Flash into FADDR */
	REGWRITE32(ICH7_REG_SPIA, (offset & 0x00FFFFFF));	/* SPI addresses are 24 BIT only */

	/* Program data into FDATA0 to N */
	if (write_cmd && (datalength != 0)) {
		temp32 = 0;
		for (a = 0; a < datalength; a++) {
			if ((a % 4) == 0) {
				temp32 = 0;
			}

			temp32 |= ((uint32_t) data[a]) << ((a % 4) * 8);

			if ((a % 4) == 3) {
				REGWRITE32(ICH7_REG_SPID0 + (a - (a % 4)),
					   temp32);
			}
		}
		if (((a - 1) % 4) != 3) {
			REGWRITE32(ICH7_REG_SPID0 +
				   ((a - 1) - ((a - 1) % 4)), temp32);
		}

	}

	/* Assemble SPIS */
	temp16 = 0;
	/* clear error status registers */
	temp16 |= (SPIS_CDS + SPIS_FCERR);
	REGWRITE16(ICH7_REG_SPIS, temp16);

	/* Assemble SPIC */
	temp16 = 0;

	if (datalength != 0) {
		temp16 |= SPIC_DS;
414
		temp16 |= ((uint32_t) ((datalength - 1) & (maxdata - 1))) << 8;
Stefan Reinauer's avatar
Stefan Reinauer committed
415 416 417
	}

	/* Select opcode */
418 419 420
	opmenu = REGREAD32(ICH7_REG_OPMENU);
	opmenu |= ((uint64_t)REGREAD32(ICH7_REG_OPMENU + 4)) << 32;

421 422
	for (opcode_index = 0; opcode_index < 8; opcode_index++) {
		if ((opmenu & 0xff) == op.opcode) {
423 424 425 426 427 428 429 430 431
			break;
		}
		opmenu >>= 8;
	}
	if (opcode_index == 8) {
		printf_debug("Opcode %x not found.\n", op.opcode);
		return 1;
	}
	temp16 |= ((uint16_t) (opcode_index & 0x07)) << 4;
Stefan Reinauer's avatar
Stefan Reinauer committed
432 433 434 435 436

	/* Handle Atomic */
	if (op.atomic != 0) {
		/* Select atomic command */
		temp16 |= SPIC_ACS;
437
		/* Select prefix opcode */
Stefan Reinauer's avatar
Stefan Reinauer committed
438 439 440 441 442 443 444 445 446 447 448 449 450
		if ((op.atomic - 1) == 1) {
			/*Select prefix opcode 2 */
			temp16 |= SPIC_SPOP;
		}
	}

	/* Start */
	temp16 |= SPIC_SCGO;

	/* write it */
	REGWRITE16(ICH7_REG_SPIC, temp16);

	/* wait for cycle complete */
451
	timeout = 100 * 1000 * 60;	// 60s is a looong timeout.
Stefan Reinauer's avatar
Stefan Reinauer committed
452
	while (((REGREAD16(ICH7_REG_SPIS) & SPIS_CDS) == 0) && --timeout) {
453
		programmer_delay(10);
Stefan Reinauer's avatar
Stefan Reinauer committed
454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473
	}
	if (!timeout) {
		printf_debug("timeout\n");
	}

	if ((REGREAD16(ICH7_REG_SPIS) & SPIS_FCERR) != 0) {
		printf_debug("Transaction error!\n");
		return 1;
	}

	if ((!write_cmd) && (datalength != 0)) {
		for (a = 0; a < datalength; a++) {
			if ((a % 4) == 0) {
				temp32 = REGREAD32(ICH7_REG_SPID0 + (a));
			}

			data[a] =
			    (temp32 & (((uint32_t) 0xff) << ((a % 4) * 8)))
			    >> ((a % 4) * 8);
		}
474 475 476 477 478
	}

	return 0;
}

479
static int ich9_run_opcode(OPCODE op, uint32_t offset,
Stefan Reinauer's avatar
Stefan Reinauer committed
480
			   uint8_t datalength, uint8_t * data)
481 482
{
	int write_cmd = 0;
483
	int timeout;
484 485
	uint32_t temp32;
	uint32_t a;
486 487
	uint64_t opmenu;
	int opcode_index;
488 489 490 491 492 493 494 495

	/* Is it a write command? */
	if ((op.spi_type == SPI_OPCODE_TYPE_WRITE_NO_ADDRESS)
	    || (op.spi_type == SPI_OPCODE_TYPE_WRITE_WITH_ADDRESS)) {
		write_cmd = 1;
	}

	/* Programm Offset in Flash into FADDR */
Stefan Reinauer's avatar
Stefan Reinauer committed
496
	REGWRITE32(ICH9_REG_FADDR, (offset & 0x00FFFFFF));	/* SPI addresses are 24 BIT only */
497 498 499 500 501 502 503 504 505 506 507 508

	/* Program data into FDATA0 to N */
	if (write_cmd && (datalength != 0)) {
		temp32 = 0;
		for (a = 0; a < datalength; a++) {
			if ((a % 4) == 0) {
				temp32 = 0;
			}

			temp32 |= ((uint32_t) data[a]) << ((a % 4) * 8);

			if ((a % 4) == 3) {
Stefan Reinauer's avatar
Stefan Reinauer committed
509 510
				REGWRITE32(ICH9_REG_FDATA0 + (a - (a % 4)),
					   temp32);
511 512 513
			}
		}
		if (((a - 1) % 4) != 3) {
Stefan Reinauer's avatar
Stefan Reinauer committed
514 515
			REGWRITE32(ICH9_REG_FDATA0 +
				   ((a - 1) - ((a - 1) % 4)), temp32);
516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534
		}
	}

	/* Assemble SSFS + SSFC */
	temp32 = 0;

	/* clear error status registers */
	temp32 |= (SSFS_CDS + SSFS_FCERR);
	/* USE 20 MhZ */
	temp32 |= SSFC_SCF_20MHZ;

	if (datalength != 0) {
		uint32_t datatemp;
		temp32 |= SSFC_DS;
		datatemp = ((uint32_t) ((datalength - 1) & 0x3f)) << (8 + 8);
		temp32 |= datatemp;
	}

	/* Select opcode */
535 536 537
	opmenu = REGREAD32(ICH9_REG_OPMENU);
	opmenu |= ((uint64_t)REGREAD32(ICH9_REG_OPMENU + 4)) << 32;

538 539
	for (opcode_index = 0; opcode_index < 8; opcode_index++) {
		if ((opmenu & 0xff) == op.opcode) {
540 541 542 543 544 545 546 547 548
			break;
		}
		opmenu >>= 8;
	}
	if (opcode_index == 8) {
		printf_debug("Opcode %x not found.\n", op.opcode);
		return 1;
	}
	temp32 |= ((uint32_t) (opcode_index & 0x07)) << (8 + 4);
549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564

	/* Handle Atomic */
	if (op.atomic != 0) {
		/* Select atomic command */
		temp32 |= SSFC_ACS;
		/* Selct prefix opcode */
		if ((op.atomic - 1) == 1) {
			/*Select prefix opcode 2 */
			temp32 |= SSFC_SPOP;
		}
	}

	/* Start */
	temp32 |= SSFC_SCGO;

	/* write it */
Stefan Reinauer's avatar
Stefan Reinauer committed
565
	REGWRITE32(ICH9_REG_SSFS, temp32);
566 567

	/*wait for cycle complete */
568
	timeout = 100 * 1000 * 60;	// 60s is a looong timeout.
569
	while (((REGREAD32(ICH9_REG_SSFS) & SSFS_CDS) == 0) && --timeout) {
570
		programmer_delay(10);
571 572 573
	}
	if (!timeout) {
		printf_debug("timeout\n");
574 575
	}

Stefan Reinauer's avatar
Stefan Reinauer committed
576
	if ((REGREAD32(ICH9_REG_SSFS) & SSFS_FCERR) != 0) {
577 578 579 580 581 582 583
		printf_debug("Transaction error!\n");
		return 1;
	}

	if ((!write_cmd) && (datalength != 0)) {
		for (a = 0; a < datalength; a++) {
			if ((a % 4) == 0) {
Stefan Reinauer's avatar
Stefan Reinauer committed
584
				temp32 = REGREAD32(ICH9_REG_FDATA0 + (a));
585 586 587
			}

			data[a] =
Stefan Reinauer's avatar
Stefan Reinauer committed
588 589
			    (temp32 & (((uint32_t) 0xff) << ((a % 4) * 8)))
			    >> ((a % 4) * 8);
590 591 592 593 594 595
		}
	}

	return 0;
}

596
static int run_opcode(OPCODE op, uint32_t offset,
Stefan Reinauer's avatar
Stefan Reinauer committed
597 598
		      uint8_t datalength, uint8_t * data)
{
599 600
	switch (spi_controller) {
	case SPI_CONTROLLER_VIA:
601 602
		if (datalength > 16)
			return SPI_INVALID_LENGTH;
603
		return ich7_run_opcode(op, offset, datalength, data, 16);
604
	case SPI_CONTROLLER_ICH7:
605 606
		if (datalength > 64)
			return SPI_INVALID_LENGTH;
607
		return ich7_run_opcode(op, offset, datalength, data, 64);
608
	case SPI_CONTROLLER_ICH9:
609 610
		if (datalength > 64)
			return SPI_INVALID_LENGTH;
611
		return ich9_run_opcode(op, offset, datalength, data);
612
	default:
613
		printf_debug("%s: unsupported chipset\n", __func__);
614
	}
Stefan Reinauer's avatar
Stefan Reinauer committed
615 616 617 618 619

	/* If we ever get here, something really weird happened */
	return -1;
}

620
static int ich_spi_write_page(struct flashchip *flash, uint8_t * bytes,
621
			      int offset, int maxdata)
622 623 624
{
	int page_size = flash->page_size;
	uint32_t remaining = page_size;
625
	int towrite;
626

Stefan Reinauer's avatar
Stefan Reinauer committed
627 628
	printf_debug("ich_spi_write_page: offset=%d, number=%d, buf=%p\n",
		     offset, page_size, bytes);
629

630 631 632 633 634 635
	for (; remaining > 0; remaining -= towrite) {
		towrite = min(remaining, maxdata);
		if (spi_nbyte_program(offset + (page_size - remaining),
				      &bytes[page_size - remaining], towrite)) {
			printf_debug("Error writing");
			return 1;
636 637 638 639 640 641
		}
	}

	return 0;
}

642
int ich_spi_read(struct flashchip *flash, uint8_t * buf, int start, int len)
643
{
644 645
	int maxdata = 64;

646
	if (spi_controller == SPI_CONTROLLER_VIA)
647
		maxdata = 16;
648

649
	return spi_read_chunked(flash, buf, start, len, maxdata);
650 651
}

652
int ich_spi_write_256(struct flashchip *flash, uint8_t * buf)
653 654 655 656 657
{
	int i, j, rc = 0;
	int total_size = flash->total_size * 1024;
	int page_size = flash->page_size;
	int erase_size = 64 * 1024;
658
	int maxdata = 64;
659 660 661 662 663 664

	spi_disable_blockprotect();

	printf("Programming page: \n");

	for (i = 0; i < total_size / erase_size; i++) {
665 666 667 668
		/* FIMXE: call the chip-specific spi_block_erase_XX instead.
		 * For this, we need to add a block erase function to
		 * struct flashchip.
		 */
669
		rc = spi_block_erase_d8(flash, i * erase_size, erase_size);
670 671 672 673
		if (rc) {
			printf("Error erasing block at 0x%x\n", i);
			break;
		}
674

675
		if (spi_controller == SPI_CONTROLLER_VIA)
Peter Stuge's avatar
Peter Stuge committed
676 677
			maxdata = 16;

678
		for (j = 0; j < erase_size / page_size; j++) {
679 680 681
			ich_spi_write_page(flash,
			   (void *)(buf + (i * erase_size) + (j * page_size)),
			   (i * erase_size) + (j * page_size), maxdata);
682 683 684 685 686 687 688 689
		}
	}

	printf("\n");

	return rc;
}

690
int ich_spi_send_command(unsigned int writecnt, unsigned int readcnt,
691
		    const unsigned char *writearr, unsigned char *readarr)
692 693
{
	int a;
694
	int result;
695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712
	int opcode_index = -1;
	const unsigned char cmd = *writearr;
	OPCODE *opcode;
	uint32_t addr = 0;
	uint8_t *data;
	int count;

	/* find cmd in opcodes-table */
	for (a = 0; a < 8; a++) {
		if ((curopcodes->opcode[a]).opcode == cmd) {
			opcode_index = a;
			break;
		}
	}

	/* unknown / not programmed command */
	if (opcode_index == -1) {
		printf_debug("Invalid OPCODE 0x%02x\n", cmd);
713
		return SPI_INVALID_OPCODE;
714 715 716 717 718 719 720
	}

	opcode = &(curopcodes->opcode[opcode_index]);

	/* if opcode-type requires an address */
	if (opcode->spi_type == SPI_OPCODE_TYPE_READ_WITH_ADDRESS ||
	    opcode->spi_type == SPI_OPCODE_TYPE_WRITE_WITH_ADDRESS) {
721 722
		addr = (writearr[1] << 16) |
		    (writearr[2] << 8) | (writearr[3] << 0);
723
	}
724

725 726
	/* translate read/write array/count */
	if (opcode->spi_type == SPI_OPCODE_TYPE_WRITE_NO_ADDRESS) {
727 728 729 730 731 732 733
		data = (uint8_t *) (writearr + 1);
		count = writecnt - 1;
	} else if (opcode->spi_type == SPI_OPCODE_TYPE_WRITE_WITH_ADDRESS) {
		data = (uint8_t *) (writearr + 4);
		count = writecnt - 4;
	} else {
		data = (uint8_t *) readarr;
734 735
		count = readcnt;
	}
736

737 738
	result = run_opcode(*opcode, addr, count, data);
	if (result) {
739 740 741
		printf_debug("run OPCODE 0x%02x failed\n", opcode->opcode);
	}

742
	return result;
743
}
744

745
int ich_spi_send_multicommand(struct spi_command *cmds)
746 747
{
	int ret = 0;
748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767
	int oppos, preoppos;
	for (; (cmds->writecnt || cmds->readcnt) && !ret; cmds++) {
		/* Is the next command valid or a terminator? */
		if ((cmds + 1)->writecnt || (cmds + 1)->readcnt) {
			preoppos = find_preop(curopcodes, cmds->writearr[0]);
			oppos = find_opcode(curopcodes, (cmds + 1)->writearr[0]);
			/* Is the opcode of the current command listed in the
			 * ICH struct OPCODES as associated preopcode for the
			 * opcode of the next command?
			 */
			if ((oppos != -1) && (preoppos != -1) &&
			    (curopcodes->opcode[oppos].atomic - 1 == preoppos)) {
				printf_debug("opcode 0x%02x will be run as PREOP\n",
					     cmds->writearr[0]);
				continue;
			}
		}	
			
		ret = ich_spi_send_command(cmds->writecnt, cmds->readcnt,
					   cmds->writearr, cmds->readarr);
768 769 770
	}
	return ret;
}