board/cray/L1/flash.c

   1 /*
   2  * (C) Copyright 2000
   3  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
   4  *
   5  * See file CREDITS for list of people who contributed to this
   6  * project.
   7  *
   8  * This program is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU General Public License as
  10  * published by the Free Software Foundation; either version 2 of
  11  * the License, or (at your option) any later version.
  12  *
  13  * This program is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16  * GNU General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU General Public License
  19  * along with this program; if not, write to the Free Software
  20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  21  * MA 02111-1307 USA
  22  */
  23
  24 /*
  25  * Modified 4/5/2001
  26  * Wait for completion of each sector erase command issued
  27  * 4/5/2001
  28  * Chris Hallinan - DS4.COM, Inc. - clh@net1plus.com
  29  */
  30
  31 /*
  32  * Modified July 20, 2001
  33  * Strip down to support ONLY the AMD29F032B.
  34  * Dave Updegraff - Cray, Inc. dave@cray.com
  35  */
  36
  37 #include <common.h>
  38 #include <asm/ppc4xx.h>
  39 #include <asm/processor.h>
  40
  41 /* The flash chip we use... */
  42 #define AMD_ID_F032B    0x41    /* 29F032B ID  32 Mbit,64 64Kx8 sectors */
  43 #define FLASH_AM320B    0x0009
  44
  45
  46 flash_info_t    flash_info[CONFIG_SYS_MAX_FLASH_BANKS]; /* info for FLASH chips */
  47
  48 /*-----------------------------------------------------------------------
  49  * Functions
  50  */
  51 static ulong flash_get_size (vu_long *addr, flash_info_t *info);
  52 static int write_word (flash_info_t *info, ulong dest, ulong data);
  53 static void flash_get_offsets (ulong base, flash_info_t *info);
  54
  55 #define ADDR0           0x5555
  56 #define ADDR1           0x2aaa
  57 #define FLASH_WORD_SIZE unsigned char
  58
  59 /*-----------------------------------------------------------------------
  60  */
  61
  62 unsigned long flash_init (void)
  63 {
  64         unsigned long size_b0, size_b1;
  65         int i;
  66
  67         /* Init: no FLASHes known */
  68         for (i=0; i<CONFIG_SYS_MAX_FLASH_BANKS; ++i) {
  69                 flash_info[i].flash_id = FLASH_UNKNOWN;
  70         }
  71
  72         /* Static FLASH Bank configuration here - FIXME XXX */
  73
  74         size_b0 = flash_get_size((vu_long *)FLASH_BASE0_PRELIM, &flash_info[0]);
  75
  76         if (flash_info[0].flash_id == FLASH_UNKNOWN) {
  77                 printf ("## Unknown FLASH on Bank 0 - Size = 0x%08lx = %ld MB\n",
  78                         size_b0, size_b0<<20);
  79         }
  80
  81         /* Only one bank */
  82         if (CONFIG_SYS_MAX_FLASH_BANKS == 1)
  83           {
  84             /* Setup offsets */
  85             flash_get_offsets (FLASH_BASE0_PRELIM, &flash_info[0]);
  86
  87 #if 0
  88             /* Monitor protection ON by default */
  89             (void)flash_protect(FLAG_PROTECT_SET,
  90                                 FLASH_BASE0_PRELIM,
  91                                 FLASH_BASE0_PRELIM+monitor_flash_len-1,
  92                                 &flash_info[0]);
  93 #endif
  94             size_b1 = 0 ;
  95             flash_info[0].size = size_b0;
  96           }
  97
  98         return (size_b0 + size_b1);
  99 }
 100
 101
 102 /*-----------------------------------------------------------------------
 103  */
 104 static void flash_get_offsets (ulong base, flash_info_t *info)
 105 {
 106         int i;
 107
 108         /* set up sector start address table */
 109         for (i = 0; i < info->sector_count; i++)
 110                 info->start[i] = base + (i * 0x00010000);
 111 }
 112
 113 /*-----------------------------------------------------------------------
 114  */
 115 void flash_print_info  (flash_info_t *info)
 116 {
 117         int i;
 118         int k;
 119         int size;
 120         int erased;
 121         volatile unsigned long *flash;
 122
 123         if (info->flash_id == FLASH_UNKNOWN) {
 124                 printf ("missing or unknown FLASH type\n");
 125                 return;
 126         }
 127
 128         switch (info->flash_id & FLASH_VENDMASK) {
 129         case FLASH_MAN_AMD:     printf ("AMD ");                break;
 130         default:                printf ("Unknown Vendor ");     break;
 131         }
 132
 133         switch (info->flash_id & FLASH_TYPEMASK) {
 134         case FLASH_AM320B:printf ("AM29F032B (32 Mbit 64x64KB uniform sectors)\n");
 135                                 break;
 136         default:                printf ("Unknown Chip Type\n");
 137                                 break;
 138         }
 139
 140         printf ("  Size: %ld KB in %d Sectors\n",
 141                 info->size >> 10, info->sector_count);
 142
 143         printf ("  Sector Start Addresses:");
 144         for (i=0; i<info->sector_count; ++i) {
 145                 /*
 146                  * Check if whole sector is erased
 147                  */
 148                 if (i != (info->sector_count-1))
 149                   size = info->start[i+1] - info->start[i];
 150                 else
 151                   size = info->start[0] + info->size - info->start[i];
 152                 erased = 1;
 153                 flash = (volatile unsigned long *)info->start[i];
 154                 size = size >> 2;        /* divide by 4 for longword access */
 155                 for (k=0; k<size; k++)
 156                   {
 157                     if (*flash++ != 0xffffffff)
 158                       {
 159                         erased = 0;
 160                         break;
 161                       }
 162                   }
 163
 164                 if ((i % 5) == 0)
 165                         printf ("\n   ");
 166
 167                 printf (" %08lX%s%s",
 168                         info->start[i],
 169                         erased ? " E" : "  ",
 170                         info->protect[i] ? "RO " : "   "
 171                 );
 172         }
 173         printf ("\n");
 174 }
 175
 176 /*-----------------------------------------------------------------------
 177  */
 178
 179
 180 /*-----------------------------------------------------------------------
 181  */
 182
 183 /*
 184  * The following code cannot be run from FLASH!
 185  */
 186 static ulong flash_get_size (vu_long *addr, flash_info_t *info)
 187 {
 188         short i;
 189         FLASH_WORD_SIZE value;
 190         ulong base = (ulong)addr;
 191         volatile FLASH_WORD_SIZE *addr2 = (FLASH_WORD_SIZE *)addr;
 192
 193         /* Write auto select command: read Manufacturer ID */
 194         addr2[ADDR0] = (FLASH_WORD_SIZE)0x00AA00AA;
 195         addr2[ADDR1] = (FLASH_WORD_SIZE)0x00550055;
 196         addr2[ADDR0] = (FLASH_WORD_SIZE)0x00900090;
 197
 198         value = addr2[0];
 199
 200         switch (value) {
 201         case (FLASH_WORD_SIZE)AMD_MANUFACT:
 202                 info->flash_id = FLASH_MAN_AMD;
 203                 break;
 204         default:
 205                 info->flash_id = FLASH_UNKNOWN;
 206                 info->sector_count = 0;
 207                 info->size = 0;
 208                 return (0);                     /* no or unknown flash  */
 209         }
 210
 211         value = addr2[1];                       /* device ID            */
 212
 213         switch (value) {
 214         case (FLASH_WORD_SIZE)AMD_ID_F032B:
 215                 info->flash_id += FLASH_AM320B;
 216                 info->sector_count = 64;
 217                 info->size = 0x0400000; /* => 4 MB */
 218                 break;
 219         default:
 220                 info->flash_id = FLASH_UNKNOWN;
 221                 return (0);                     /* => no or unknown flash */
 222
 223         }
 224
 225         /* set up sector start address table */
 226         for (i = 0; i < info->sector_count; i++)
 227                 info->start[i] = base + (i * 0x00010000);
 228
 229         /* check for protected sectors */
 230         for (i = 0; i < info->sector_count; i++) {
 231                 /* read sector protection at sector address, (A7 .. A0) = 0x02 */
 232                 /* D0 = 1 if protected */
 233                 addr2 = (volatile FLASH_WORD_SIZE *)(info->start[i]);
 234         info->protect[i] = addr2[2] & 1;
 235         }
 236
 237         /*
 238          * Prevent writes to uninitialized FLASH.
 239          */
 240         if (info->flash_id != FLASH_UNKNOWN) {
 241                 addr2 = (FLASH_WORD_SIZE *)info->start[0];
 242                 *addr2 = (FLASH_WORD_SIZE)0x00F000F0;   /* reset bank */
 243         }
 244
 245         return (info->size);
 246 }
 247
 248 int wait_for_DQ7(flash_info_t *info, int sect)
 249 {
 250         ulong start, now, last;
 251         volatile FLASH_WORD_SIZE *addr = (FLASH_WORD_SIZE *)(info->start[sect]);
 252
 253         start = get_timer (0);
 254     last  = start;
 255     while ((addr[0] & (FLASH_WORD_SIZE)0x00800080) != (FLASH_WORD_SIZE)0x00800080) {
 256         if ((now = get_timer(start)) > CONFIG_SYS_FLASH_ERASE_TOUT) {
 257             printf ("Timeout\n");
 258             return -1;
 259         }
 260         /* show that we're waiting */
 261         if ((now - last) > 1000) {  /* every second */
 262             putc ('.');
 263             last = now;
 264         }
 265     }
 266         return 0;
 267 }
 268
 269 /*-----------------------------------------------------------------------
 270  */
 271
 272 int     flash_erase (flash_info_t *info, int s_first, int s_last)
 273 {
 274         volatile FLASH_WORD_SIZE *addr = (FLASH_WORD_SIZE *)(info->start[0]);
 275         volatile FLASH_WORD_SIZE *addr2;
 276         int flag, prot, sect;
 277
 278         if ((s_first < 0) || (s_first > s_last)) {
 279                 if (info->flash_id == FLASH_UNKNOWN) {
 280                         printf ("- missing\n");
 281                 } else {
 282                         printf ("- no sectors to erase\n");
 283                 }
 284                 return 1;
 285         }
 286
 287         if (info->flash_id == FLASH_UNKNOWN) {
 288                 printf ("Can't erase unknown flash type - aborted\n");
 289                 return 1;
 290         }
 291
 292         prot = 0;
 293         for (sect=s_first; sect<=s_last; ++sect) {
 294                 if (info->protect[sect]) {
 295                         prot++;
 296                 }
 297         }
 298
 299         if (prot) {
 300                 printf ("- Warning: %d protected sectors will not be erased!\n",
 301                         prot);
 302         } else {
 303                 printf ("\n");
 304         }
 305
 306         /* Disable interrupts which might cause a timeout here */
 307         flag = disable_interrupts();
 308
 309         /* Start erase on unprotected sectors */
 310         for (sect = s_first; sect<=s_last; sect++) {
 311                 if (info->protect[sect] == 0) { /* not protected */
 312                         addr2 = (FLASH_WORD_SIZE *)(info->start[sect]);
 313                         printf("Erasing sector %p\n", addr2);
 314
 315                         addr[ADDR0] = (FLASH_WORD_SIZE)0x00AA00AA;
 316                         addr[ADDR1] = (FLASH_WORD_SIZE)0x00550055;
 317                         addr[ADDR0] = (FLASH_WORD_SIZE)0x00800080;
 318                         addr[ADDR0] = (FLASH_WORD_SIZE)0x00AA00AA;
 319                         addr[ADDR1] = (FLASH_WORD_SIZE)0x00550055;
 320                         addr2[0] = (FLASH_WORD_SIZE)0x00300030;  /* sector erase */
 321                         /*
 322                          * Wait for each sector to complete, it's more
 323                          * reliable.  According to AMD Spec, you must
 324                          * issue all erase commands within a specified
 325                          * timeout.  This has been seen to fail, especially
 326                          * if printf()s are included (for debug)!!
 327                          */
 328                         wait_for_DQ7(info, sect);
 329                 }
 330         }
 331
 332         /* re-enable interrupts if necessary */
 333         if (flag)
 334                 enable_interrupts();
 335
 336         /* wait at least 80us - let's wait 1 ms */
 337         udelay (1000);
 338
 339         /* reset to read mode */
 340         addr = (FLASH_WORD_SIZE *)info->start[0];
 341         addr[0] = (FLASH_WORD_SIZE)0x00F000F0;  /* reset bank */
 342
 343         printf (" done\n");
 344         return 0;
 345 }
 346
 347 /*-----------------------------------------------------------------------
 348  * Copy memory to flash, returns:
 349  * 0 - OK
 350  * 1 - write timeout
 351  * 2 - Flash not erased
 352  */
 353
 354 int write_buff (flash_info_t *info, uchar *src, ulong addr, ulong cnt)
 355 {
 356         ulong cp, wp, data;
 357         int i, l, rc;
 358
 359         wp = (addr & ~3);       /* get lower word aligned address */
 360
 361         /*
 362          * handle unaligned start bytes
 363          */
 364         if ((l = addr - wp) != 0) {
 365                 data = 0;
 366                 for (i=0, cp=wp; i<l; ++i, ++cp) {
 367                         data = (data << 8) | (*(uchar *)cp);
 368                 }
 369                 for (; i<4 && cnt>0; ++i) {
 370                         data = (data << 8) | *src++;
 371                         --cnt;
 372                         ++cp;
 373                 }
 374                 for (; cnt==0 && i<4; ++i, ++cp) {
 375                         data = (data << 8) | (*(uchar *)cp);
 376                 }
 377
 378                 if ((rc = write_word(info, wp, data)) != 0) {
 379                         return (rc);
 380                 }
 381                 wp += 4;
 382         }
 383
 384         /*
 385          * handle word aligned part
 386          */
 387         while (cnt >= 4) {
 388                 data = 0;
 389                 for (i=0; i<4; ++i) {
 390                         data = (data << 8) | *src++;
 391                 }
 392                 if ((rc = write_word(info, wp, data)) != 0) {
 393                         return (rc);
 394                 }
 395                 wp  += 4;
 396                 cnt -= 4;
 397         }
 398
 399         if (cnt == 0) {
 400                 return (0);
 401         }
 402
 403         /*
 404          * handle unaligned tail bytes
 405          */
 406         data = 0;
 407         for (i=0, cp=wp; i<4 && cnt>0; ++i, ++cp) {
 408                 data = (data << 8) | *src++;
 409                 --cnt;
 410         }
 411         for (; i<4; ++i, ++cp) {
 412                 data = (data << 8) | (*(uchar *)cp);
 413         }
 414
 415         return (write_word(info, wp, data));
 416 }
 417
 418 /*-----------------------------------------------------------------------
 419  * Write a word to Flash, returns:
 420  * 0 - OK
 421  * 1 - write timeout
 422  * 2 - Flash not erased
 423  */
 424 static int write_word (flash_info_t *info, ulong dest, ulong data)
 425 {
 426         volatile FLASH_WORD_SIZE *addr2 = (FLASH_WORD_SIZE *)(info->start[0]);
 427         volatile FLASH_WORD_SIZE *dest2 = (FLASH_WORD_SIZE *)dest;
 428         volatile FLASH_WORD_SIZE *data2 = (FLASH_WORD_SIZE *)&data;
 429         ulong start;
 430         int flag;
 431         int i;
 432
 433         /* Check if Flash is (sufficiently) erased */
 434         if ((*((volatile FLASH_WORD_SIZE *)dest) &
 435              (FLASH_WORD_SIZE)data) != (FLASH_WORD_SIZE)data) {
 436                 return (2);
 437         }
 438         /* Disable interrupts which might cause a timeout here */
 439         flag = disable_interrupts();
 440
 441         for (i=0; i<4/sizeof(FLASH_WORD_SIZE); i++)
 442           {
 443             addr2[ADDR0] = (FLASH_WORD_SIZE)0x00AA00AA;
 444             addr2[ADDR1] = (FLASH_WORD_SIZE)0x00550055;
 445             addr2[ADDR0] = (FLASH_WORD_SIZE)0x00A000A0;
 446
 447             dest2[i] = data2[i];
 448
 449             /* re-enable interrupts if necessary */
 450             if (flag)
 451               enable_interrupts();
 452
 453             /* data polling for D7 */
 454             start = get_timer (0);
 455             while ((dest2[i] & (FLASH_WORD_SIZE)0x00800080) !=
 456                    (data2[i] & (FLASH_WORD_SIZE)0x00800080)) {
 457               if (get_timer(start) > CONFIG_SYS_FLASH_WRITE_TOUT) {
 458                 return (1);
 459               }
 460             }
 461           }
 462
 463         return (0);
 464 }
 465
 466 /*-----------------------------------------------------------------------
 467  */