board/purple/purple.c

   1 /*
   2  * (C) Copyright 2003
   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 #include <common.h>
  25 #include <command.h>
  26 #include <asm/inca-ip.h>
  27 #include <asm/regdef.h>
  28 #include <asm/mipsregs.h>
  29 #include <asm/io.h>
  30 #include <asm/addrspace.h>
  31 #include <asm/cacheops.h>
  32 #include <asm/reboot.h>
  33
  34 #include "sconsole.h"
  35
  36 #define cache_unroll(base,op)                   \
  37         __asm__ __volatile__("                  \
  38                 .set noreorder;                 \
  39                 .set mips3;                     \
  40                 cache %1, (%0);                 \
  41                 .set mips0;                     \
  42                 .set reorder"                   \
  43                 :                               \
  44                 : "r" (base),                   \
  45                   "i" (op));
  46
  47 typedef void (*FUNCPTR)(ulong *source, ulong *destination, ulong nlongs);
  48
  49 extern void     asc_serial_init         (void);
  50 extern void     asc_serial_putc         (char);
  51 extern void     asc_serial_puts         (const char *);
  52 extern int      asc_serial_getc         (void);
  53 extern int      asc_serial_tstc         (void);
  54 extern void     asc_serial_setbrg       (void);
  55
  56 void _machine_restart(void)
  57 {
  58         void (*f)(void) = (void *) 0xbfc00000;
  59
  60         f();
  61 }
  62
  63 static void sdram_timing_init (ulong size)
  64 {
  65         register uint pass;
  66         register uint done;
  67         register uint count;
  68         register uint p0, p1, p2, p3, p4;
  69         register uint addr;
  70
  71 #define WRITE_MC_IOGP_1 *(uint *)0xbf800800 = (p1<<14)+(p2<<13)+(p4<<8)+(p0<<4)+p3;
  72 #define WRITE_MC_IOGP_2 *(uint *)0xbf800800 = (p1<<14)+(p2<<13)+((p4-16)<<8)+(p0<<4)+p3;
  73
  74         done = 0;
  75         p0 = 2;
  76         while (p0 < 4 && done == 0) {
  77             p1 = 0;
  78             while (p1 < 2 && done == 0) {
  79                 p2 = 0;
  80                 while (p2 < 2 && done == 0) {
  81                     p3 = 0;
  82                     while (p3 < 16 && done == 0) {
  83                         count = 0;
  84                         p4 = 0;
  85                         while (p4 < 32 && done == 0) {
  86                             WRITE_MC_IOGP_1;
  87
  88                             for (addr = KSEG1 + 0x4000;
  89                                  addr < KSEG1ADDR (size);
  90                                  addr = addr + 4) {
  91                                         *(uint *) addr = 0xaa55aa55;
  92                             }
  93
  94                             pass = 1;
  95
  96                             for (addr = KSEG1 + 0x4000;
  97                                  addr < KSEG1ADDR (size) && pass == 1;
  98                                  addr = addr + 4) {
  99                                         if (*(uint *) addr != 0xaa55aa55)
 100                                                 pass = 0;
 101                             }
 102
 103                             if (pass == 1) {
 104                                 count++;
 105                             } else {
 106                                 count = 0;
 107                             }
 108
 109                             if (count == 32) {
 110                                 WRITE_MC_IOGP_2;
 111                                 done = 1;
 112                             }
 113                             p4++;
 114                         }
 115                         p3++;
 116                     }
 117                     p2++;
 118                 }
 119                 p1++;
 120             }
 121             p0++;
 122             if (p0 == 1)
 123                 p0++;
 124         }
 125 }
 126
 127 long int initdram(int board_type)
 128 {
 129         /* The only supported number of SDRAM banks is 4.
 130          */
 131 #define CFG_NB  4
 132
 133         ulong   cfgpb0  = *INCA_IP_SDRAM_MC_CFGPB0;
 134         ulong   cfgdw   = *INCA_IP_SDRAM_MC_CFGDW;
 135         int     cols    = cfgpb0 & 0xF;
 136         int     rows    = (cfgpb0 & 0xF0) >> 4;
 137         int     dw      = cfgdw & 0xF;
 138         ulong   size    = (1 << (rows + cols)) * (1 << (dw - 1)) * CFG_NB;
 139         void (*  sdram_init) (ulong);
 140
 141         sdram_init = (void (*)(ulong)) KSEG0ADDR(&sdram_timing_init);
 142
 143         sdram_init(0x10000);
 144
 145         return size;
 146 }
 147
 148 int checkboard (void)
 149 {
 150
 151         unsigned long chipid = *(unsigned long *)0xB800C800;
 152
 153         printf ("Board: Purple PLB 2800 chip version %ld, ", chipid & 0xF);
 154
 155         printf("CPU Speed %d MHz\n", CPU_CLOCK_RATE/1000000);
 156
 157         set_io_port_base(0);
 158
 159         return 0;
 160 }
 161
 162 int misc_init_r (void)
 163 {
 164         asc_serial_init ();
 165
 166         sconsole_putc   = asc_serial_putc;
 167         sconsole_puts   = asc_serial_puts;
 168         sconsole_getc   = asc_serial_getc;
 169         sconsole_tstc   = asc_serial_tstc;
 170         sconsole_setbrg = asc_serial_setbrg;
 171
 172         sconsole_flush ();
 173         return (0);
 174 }
 175
 176 /*******************************************************************************
 177 *
 178 * copydwords - copy one buffer to another a long at a time
 179 *
 180 * This routine copies the first <nlongs> longs from <source> to <destination>.
 181 */
 182 static void copydwords (ulong *source, ulong *destination, ulong nlongs)
 183 {
 184         ulong temp,temp1;
 185         ulong *dstend = destination + nlongs;
 186
 187         while (destination < dstend)
 188         {
 189                 temp = *source++;
 190                 /* dummy read from sdram */
 191                 temp1 = *(ulong *)0xa0000000;
 192                 /* avoid optimization from compliler */
 193                 *(ulong *)0xbf0081f8 = temp1 + temp;
 194                 *destination++ = temp;
 195
 196         }
 197 }
 198
 199 /*******************************************************************************
 200 *
 201 * copyLongs - copy one buffer to another a long at a time
 202 *
 203 * This routine copies the first <nlongs> longs from <source> to <destination>.
 204 */
 205 static void copyLongs (ulong *source, ulong *destination, ulong nlongs)
 206 {
 207         FUNCPTR absEntry;
 208
 209         absEntry = (FUNCPTR)(0xbf008000+((ulong)copydwords & 0x7));
 210         absEntry(source, destination, nlongs);
 211 }
 212
 213 /*******************************************************************************
 214 *
 215 * programLoad - load program into ram
 216 *
 217 * This routine load copydwords into ram
 218 *
 219 */
 220 static void programLoad(void)
 221 {
 222         FUNCPTR absEntry;
 223         ulong *src,*dst;
 224
 225         src = (ulong *)(TEXT_BASE + 0x428);
 226         dst = (ulong *)0xbf0081d0;
 227
 228         absEntry = (FUNCPTR)(TEXT_BASE + 0x400);
 229         absEntry(src,dst,0x6);
 230
 231         src = (ulong *)((ulong)copydwords & 0xfffffff8);
 232         dst = (ulong *)0xbf008000;
 233
 234         absEntry(src,dst,0x38);
 235 }
 236
 237 /*******************************************************************************
 238 *
 239 * copy_code - copy u-boot image from flash to RAM
 240 *
 241 * This routine is needed to solve flash problems on this board
 242 *
 243 */
 244 void copy_code (ulong dest_addr)
 245 {
 246         extern long uboot_end_data;
 247         unsigned long start;
 248         unsigned long end;
 249
 250         /* load copydwords into ram
 251          */
 252         programLoad();
 253
 254         /* copy u-boot code
 255          */
 256         copyLongs((ulong *)CFG_MONITOR_BASE,
 257                   (ulong *)dest_addr,
 258                   ((ulong)&uboot_end_data - CFG_MONITOR_BASE + 3) / 4);
 259
 260
 261         /* flush caches
 262          */
 263
 264         start = KSEG0;
 265         end = start + CFG_DCACHE_SIZE;
 266         while(start < end) {
 267                 cache_unroll(start,Index_Writeback_Inv_D);
 268                 start += CFG_CACHELINE_SIZE;
 269         }
 270
 271         start = KSEG0;
 272         end = start + CFG_ICACHE_SIZE;
 273         while(start < end) {
 274                 cache_unroll(start,Index_Invalidate_I);
 275                 start += CFG_CACHELINE_SIZE;
 276         }
 277 }