3 * Kyle Harris, Nexus Technologies, Inc. kharris@nexus-tech.net
6 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
8 * See file CREDITS for list of people who contributed to this
11 * This program is free software; you can redistribute it and/or
12 * modify it under the terms of the GNU General Public License as
13 * published by the Free Software Foundation; either version 2 of
14 * the License, or (at your option) any later version.
16 * This program is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 * GNU General Public License for more details.
21 * You should have received a copy of the GNU General Public License
22 * along with this program; if not, write to the Free Software
23 * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
28 #include <linux/byteorder/swab.h>
31 flash_info_t flash_info
[CFG_MAX_FLASH_BANKS
]; /* info for FLASH chips */
33 /* Board support for 1 or 2 flash devices */
34 #define FLASH_PORT_WIDTH32
35 #undef FLASH_PORT_WIDTH16
37 #ifdef FLASH_PORT_WIDTH16
38 #define FLASH_PORT_WIDTH ushort
39 #define FLASH_PORT_WIDTHV vu_short
40 #define SWAP(x) __swab16(x)
42 #define FLASH_PORT_WIDTH ulong
43 #define FLASH_PORT_WIDTHV vu_long
44 #define SWAP(x) __swab32(x)
47 #define FPW FLASH_PORT_WIDTH
48 #define FPWV FLASH_PORT_WIDTHV
50 #define mb() __asm__ __volatile__ ("" : : : "memory")
52 /*-----------------------------------------------------------------------
55 static ulong
flash_get_size (FPW
*addr
, flash_info_t
*info
);
56 static int write_data (flash_info_t
*info
, ulong dest
, FPW data
);
57 static void flash_get_offsets (ulong base
, flash_info_t
*info
);
58 void inline spin_wheel (void);
60 /*-----------------------------------------------------------------------
63 unsigned long flash_init (void)
69 for (i
= 0; i
< CFG_MAX_FLASH_BANKS
; i
++) {
72 flash_get_size ((FPW
*) PHYS_FLASH_1
, &flash_info
[i
]);
73 flash_get_offsets (PHYS_FLASH_1
, &flash_info
[i
]);
76 flash_get_size ((FPW
*) PHYS_FLASH_2
, &flash_info
[i
]);
77 flash_get_offsets (PHYS_FLASH_2
, &flash_info
[i
]);
80 panic ("configured too many flash banks!\n");
83 size
+= flash_info
[i
].size
;
86 /* Protect monitor and environment sectors
88 flash_protect ( FLAG_PROTECT_SET
,
90 CFG_FLASH_BASE
+ monitor_flash_len
- 1,
93 flash_protect ( FLAG_PROTECT_SET
,
95 CFG_ENV_ADDR
+ CFG_ENV_SIZE
- 1, &flash_info
[0] );
102 /*-----------------------------------------------------------------------
104 static void flash_get_offsets (ulong base
, flash_info_t
*info
)
108 if (info
->flash_id
== FLASH_UNKNOWN
) {
112 if ((info
->flash_id
& FLASH_VENDMASK
) == FLASH_MAN_INTEL
) {
113 for (i
= 0; i
< info
->sector_count
; i
++) {
114 info
->start
[i
] = base
+ (i
* PHYS_FLASH_SECT_SIZE
);
115 info
->protect
[i
] = 0;
120 /*-----------------------------------------------------------------------
122 void flash_print_info (flash_info_t
*info
)
126 if (info
->flash_id
== FLASH_UNKNOWN
) {
127 printf ("missing or unknown FLASH type\n");
131 switch (info
->flash_id
& FLASH_VENDMASK
) {
132 case FLASH_MAN_INTEL
:
136 printf ("Unknown Vendor ");
140 switch (info
->flash_id
& FLASH_TYPEMASK
) {
141 case FLASH_28F128J3A
:
142 printf ("28F128J3A\n");
145 printf ("Unknown Chip Type\n");
149 printf (" Size: %ld MB in %d Sectors\n",
150 info
->size
>> 20, info
->sector_count
);
152 printf (" Sector Start Addresses:");
153 for (i
= 0; i
< info
->sector_count
; ++i
) {
158 info
->protect
[i
] ? " (RO)" : " ");
165 * The following code cannot be run from FLASH!
167 static ulong
flash_get_size (FPW
*addr
, flash_info_t
*info
)
171 /* Write auto select command: read Manufacturer ID */
172 addr
[0x5555] = (FPW
) 0x00AA00AA;
173 addr
[0x2AAA] = (FPW
) 0x00550055;
174 addr
[0x5555] = (FPW
) 0x00900090;
181 case (FPW
) INTEL_MANUFACT
:
182 info
->flash_id
= FLASH_MAN_INTEL
;
186 info
->flash_id
= FLASH_UNKNOWN
;
187 info
->sector_count
= 0;
189 addr
[0] = (FPW
) 0x00FF00FF; /* restore read mode */
190 return (0); /* no or unknown flash */
194 value
= addr
[1]; /* device ID */
198 case (FPW
) INTEL_ID_28F128J3A
:
199 info
->flash_id
+= FLASH_28F128J3A
;
200 info
->sector_count
= 128;
201 info
->size
= 0x02000000;
202 break; /* => 16 MB */
205 info
->flash_id
= FLASH_UNKNOWN
;
209 if (info
->sector_count
> CFG_MAX_FLASH_SECT
) {
210 printf ("** ERROR: sector count %d > max (%d) **\n",
211 info
->sector_count
, CFG_MAX_FLASH_SECT
);
212 info
->sector_count
= CFG_MAX_FLASH_SECT
;
215 addr
[0] = (FPW
) 0x00FF00FF; /* restore read mode */
221 /*-----------------------------------------------------------------------
224 int flash_erase (flash_info_t
*info
, int s_first
, int s_last
)
226 int flag
, prot
, sect
;
227 ulong type
, start
, last
;
230 if ((s_first
< 0) || (s_first
> s_last
)) {
231 if (info
->flash_id
== FLASH_UNKNOWN
) {
232 printf ("- missing\n");
234 printf ("- no sectors to erase\n");
239 type
= (info
->flash_id
& FLASH_VENDMASK
);
240 if ((type
!= FLASH_MAN_INTEL
)) {
241 printf ("Can't erase unknown flash type %08lx - aborted\n",
247 for (sect
= s_first
; sect
<= s_last
; ++sect
) {
248 if (info
->protect
[sect
]) {
254 printf ("- Warning: %d protected sectors will not be erased!\n",
260 start
= get_timer (0);
263 /* Disable interrupts which might cause a timeout here */
264 flag
= disable_interrupts ();
266 /* Start erase on unprotected sectors */
267 for (sect
= s_first
; sect
<= s_last
; sect
++) {
268 if (info
->protect
[sect
] == 0) { /* not protected */
269 FPWV
*addr
= (FPWV
*) (info
->start
[sect
]);
272 printf ("Erasing sector %2d ... ", sect
);
274 /* arm simple, non interrupt dependent timer */
275 reset_timer_masked ();
277 *addr
= (FPW
) 0x00500050; /* clear status register */
278 *addr
= (FPW
) 0x00200020; /* erase setup */
279 *addr
= (FPW
) 0x00D000D0; /* erase confirm */
281 while (((status
= *addr
) & (FPW
) 0x00800080) != (FPW
) 0x00800080) {
282 if (get_timer_masked () > CFG_FLASH_ERASE_TOUT
) {
283 printf ("Timeout\n");
284 *addr
= (FPW
) 0x00B000B0; /* suspend erase */
285 *addr
= (FPW
) 0x00FF00FF; /* reset to read mode */
291 *addr
= 0x00500050; /* clear status register cmd. */
292 *addr
= 0x00FF00FF; /* resest to read mode */
300 /*-----------------------------------------------------------------------
301 * Copy memory to flash, returns:
304 * 2 - Flash not erased
305 * 4 - Flash not identified
308 int write_buff (flash_info_t
*info
, uchar
*src
, ulong addr
, ulong cnt
)
312 int count
, i
, l
, rc
, port_width
;
314 if (info
->flash_id
== FLASH_UNKNOWN
) {
317 /* get lower word aligned address */
318 #ifdef FLASH_PORT_WIDTH16
327 * handle unaligned start bytes
329 if ((l
= addr
- wp
) != 0) {
331 for (i
= 0, cp
= wp
; i
< l
; ++i
, ++cp
) {
332 data
= (data
<< 8) | (*(uchar
*) cp
);
334 for (; i
< port_width
&& cnt
> 0; ++i
) {
335 data
= (data
<< 8) | *src
++;
339 for (; cnt
== 0 && i
< port_width
; ++i
, ++cp
) {
340 data
= (data
<< 8) | (*(uchar
*) cp
);
343 if ((rc
= write_data (info
, wp
, SWAP (data
))) != 0) {
350 * handle word aligned part
353 while (cnt
>= port_width
) {
355 for (i
= 0; i
< port_width
; ++i
) {
356 data
= (data
<< 8) | *src
++;
358 if ((rc
= write_data (info
, wp
, SWAP (data
))) != 0) {
363 if (count
++ > 0x800) {
374 * handle unaligned tail bytes
377 for (i
= 0, cp
= wp
; i
< port_width
&& cnt
> 0; ++i
, ++cp
) {
378 data
= (data
<< 8) | *src
++;
381 for (; i
< port_width
; ++i
, ++cp
) {
382 data
= (data
<< 8) | (*(uchar
*) cp
);
385 return (write_data (info
, wp
, SWAP (data
)));
388 /*-----------------------------------------------------------------------
389 * Write a word or halfword to Flash, returns:
392 * 2 - Flash not erased
394 static int write_data (flash_info_t
*info
, ulong dest
, FPW data
)
396 FPWV
*addr
= (FPWV
*) dest
;
400 /* Check if Flash is (sufficiently) erased */
401 if ((*addr
& data
) != data
) {
402 printf ("not erased at %08lx (%lx)\n", (ulong
) addr
, *addr
);
405 /* Disable interrupts which might cause a timeout here */
406 flag
= disable_interrupts ();
408 *addr
= (FPW
) 0x00400040; /* write setup */
411 /* arm simple, non interrupt dependent timer */
412 reset_timer_masked ();
414 /* wait while polling the status register */
415 while (((status
= *addr
) & (FPW
) 0x00800080) != (FPW
) 0x00800080) {
416 if (get_timer_masked () > CFG_FLASH_WRITE_TOUT
) {
417 *addr
= (FPW
) 0x00FF00FF; /* restore read mode */
422 *addr
= (FPW
) 0x00FF00FF; /* restore read mode */
427 void inline spin_wheel (void)
430 static char w
[] = "\\/-";
432 printf ("\010%c", w
[p
]);
433 (++p
== 3) ? (p
= 0) : 0;