board/esd/ar405/ar405.c

   1 /*
   2  * (C) Copyright 2001-2004
   3  * Stefan Roese, esd gmbh germany, stefan.roese@esd-electronics.com
   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 "ar405.h"
  26 #include <asm/processor.h>
  27 #include <command.h>
  28
  29 /*cmd_boot.c*/
  30 extern int do_reset (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[]);
  31 extern void lxt971_no_sleep(void);
  32
  33 /* ------------------------------------------------------------------------- */
  34
  35 #if 0
  36 #define FPGA_DEBUG
  37 #endif
  38
  39 /* fpga configuration data - generated by bin2cc */
  40 const unsigned char fpgadata[] = {
  41 #include "fpgadata.c"
  42 };
  43
  44 const unsigned char fpgadata_xl30[] = {
  45 #include "fpgadata_xl30.c"
  46 };
  47
  48 /*
  49  * include common fpga code (for esd boards)
  50  */
  51 #include "../common/fpga.c"
  52
  53
  54 int board_early_init_f (void)
  55 {
  56         DECLARE_GLOBAL_DATA_PTR;
  57
  58         int index, len, i;
  59         int status;
  60
  61 #ifdef FPGA_DEBUG
  62         /* set up serial port with default baudrate */
  63         (void) get_clocks ();
  64         gd->baudrate = CONFIG_BAUDRATE;
  65         serial_init ();
  66         console_init_f ();
  67 #endif
  68
  69         /*
  70          * Boot onboard FPGA
  71          */
  72         /* first try 40er image */
  73         gd->board_type = 40;
  74         status = fpga_boot ((unsigned char *) fpgadata, sizeof (fpgadata));
  75         if (status != 0) {
  76                 /* try xl30er image */
  77                 gd->board_type = 30;
  78                 status = fpga_boot ((unsigned char *) fpgadata_xl30, sizeof (fpgadata_xl30));
  79                 if (status != 0) {
  80                         /* booting FPGA failed */
  81 #ifndef FPGA_DEBUG
  82                         /* set up serial port with default baudrate */
  83                         (void) get_clocks ();
  84                         gd->baudrate = CONFIG_BAUDRATE;
  85                         serial_init ();
  86                         console_init_f ();
  87 #endif
  88                         printf ("\nFPGA: Booting failed ");
  89                         switch (status) {
  90                         case ERROR_FPGA_PRG_INIT_LOW:
  91                                 printf ("(Timeout: INIT not low after asserting PROGRAM*)\n ");
  92                                 break;
  93                         case ERROR_FPGA_PRG_INIT_HIGH:
  94                                 printf ("(Timeout: INIT not high after deasserting PROGRAM*)\n ");
  95                                 break;
  96                         case ERROR_FPGA_PRG_DONE:
  97                                 printf ("(Timeout: DONE not high after programming FPGA)\n ");
  98                                 break;
  99                         }
 100
 101                         /* display infos on fpgaimage */
 102                         index = 15;
 103                         for (i = 0; i < 4; i++) {
 104                                 len = fpgadata[index];
 105                                 printf ("FPGA: %s\n", &(fpgadata[index + 1]));
 106                                 index += len + 3;
 107                         }
 108                         putc ('\n');
 109                         /* delayed reboot */
 110                         for (i = 20; i > 0; i--) {
 111                                 printf ("Rebooting in %2d seconds \r", i);
 112                                 for (index = 0; index < 1000; index++)
 113                                         udelay (1000);
 114                         }
 115                         putc ('\n');
 116                         do_reset (NULL, 0, 0, NULL);
 117                 }
 118         }
 119
 120         /*
 121          * IRQ 0-15  405GP internally generated; active high; level sensitive
 122          * IRQ 16    405GP internally generated; active low; level sensitive
 123          * IRQ 17-24 RESERVED
 124          * IRQ 25 (EXT IRQ 0) CAN0; active low; level sensitive
 125          * IRQ 26 (EXT IRQ 1) CAN1; active low; level sensitive
 126          * IRQ 27 (EXT IRQ 2) PCI SLOT 0; active low; level sensitive
 127          * IRQ 28 (EXT IRQ 3) PCI SLOT 1; active low; level sensitive
 128          * IRQ 29 (EXT IRQ 4) PCI SLOT 2; active low; level sensitive
 129          * IRQ 30 (EXT IRQ 5) PCI SLOT 3; active low; level sensitive
 130          * IRQ 31 (EXT IRQ 6) COMPACT FLASH; active high; level sensitive
 131          */
 132         mtdcr (uicsr, 0xFFFFFFFF);      /* clear all ints */
 133         mtdcr (uicer, 0x00000000);      /* disable all ints */
 134         mtdcr (uiccr, 0x00000000);      /* set all to be non-critical */
 135         mtdcr (uicpr, 0xFFFFFF81);      /* set int polarities */
 136         mtdcr (uictr, 0x10000000);      /* set int trigger levels */
 137         mtdcr (uicvcr, 0x00000001);     /* set vect base=0,INT0 highest priority */
 138         mtdcr (uicsr, 0xFFFFFFFF);      /* clear all ints */
 139
 140         *(ushort *) 0xf03000ec = 0x0fff;        /* enable all interrupts in fpga */
 141
 142         return 0;
 143 }
 144
 145
 146 /* ------------------------------------------------------------------------- */
 147
 148 /*
 149  * Check Board Identity:
 150  */
 151
 152 int checkboard (void)
 153 {
 154         DECLARE_GLOBAL_DATA_PTR;
 155
 156         int index;
 157         int len;
 158         unsigned char str[64];
 159         int i = getenv_r ("serial#", str, sizeof (str));
 160         const unsigned char *fpga;
 161
 162         puts ("Board: ");
 163
 164         if (i == -1) {
 165                 puts ("### No HW ID - assuming AR405");
 166         } else {
 167                 puts(str);
 168         }
 169
 170         puts ("\nFPGA:  ");
 171
 172         /* display infos on fpgaimage */
 173         if (gd->board_type == 30) {
 174                 fpga = fpgadata_xl30;
 175         } else {
 176                 fpga = fpgadata;
 177         }
 178         index = 15;
 179         for (i = 0; i < 4; i++) {
 180                 len = fpga[index];
 181                 printf ("%s ", &(fpga[index + 1]));
 182                 index += len + 3;
 183         }
 184
 185         putc ('\n');
 186
 187         /*
 188          * Disable sleep mode in LXT971
 189          */
 190         lxt971_no_sleep();
 191
 192         return 0;
 193 }
 194
 195 /* ------------------------------------------------------------------------- */
 196
 197 long int initdram (int board_type)
 198 {
 199         unsigned long val;
 200
 201         mtdcr(memcfga, mem_mb0cf);
 202         val = mfdcr(memcfgd);
 203
 204         return (4*1024*1024 << ((val & 0x000e0000) >> 17));
 205 }
 206
 207 /* ------------------------------------------------------------------------- */
 208
 209 int testdram (void)
 210 {
 211         /* TODO: XXX XXX XXX */
 212         printf ("test: 16 MB - ok\n");
 213
 214         return (0);
 215 }
 216
 217
 218 #if 1 /* test-only: some internal test routines... */
 219 /*
 220  * Some test routines
 221  */
 222 int do_digtest(cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 223 {
 224         volatile uchar *digen = (volatile uchar *)0xf03000b4;
 225         volatile ushort *digout = (volatile ushort *)0xf03000b0;
 226         volatile ushort *digin = (volatile ushort *)0xf03000a0;
 227         int i;
 228         int k;
 229         int start;
 230         int end;
 231
 232         if (argc != 3) {
 233                 puts("Usage: digtest n_start n_end (digtest 0 7)\n");
 234                 return 0;
 235         }
 236
 237         start = simple_strtol (argv[1], NULL, 10);
 238         end = simple_strtol (argv[2], NULL, 10);
 239
 240         /*
 241          * Enable digital outputs
 242          */
 243         *digen = 0x08;
 244
 245         printf("\nStarting digital In-/Out Test from I/O %d to %d (Cntrl-C to abort)...\n",
 246                start, end);
 247
 248         /*
 249          * Set outputs one by one
 250          */
 251         for (;;) {
 252                 for (i=start; i<=end; i++) {
 253                         *digout = 0x0001 << i;
 254                         for (k=0; k<200; k++)
 255                                 udelay(1000);
 256
 257                         if (*digin != (0x0001 << i)) {
 258                                 printf("ERROR: OUT=0x%04X, IN=0x%04X\n", 0x0001 << i, *digin);
 259                                 return 0;
 260                         }
 261
 262                         /* Abort if ctrl-c was pressed */
 263                         if (ctrlc()) {
 264                                 puts("\nAbort\n");
 265                                 return 0;
 266                         }
 267                 }
 268         }
 269
 270         return 0;
 271 }
 272 U_BOOT_CMD(
 273         digtest,        3,      1,      do_digtest,
 274         "digtest - Test digital in-/output\n",
 275         NULL
 276         );
 277
 278
 279 #define ERROR_DELTA     256
 280
 281 struct io {
 282         volatile short val;
 283         short dummy;
 284 };
 285
 286 int do_anatest(cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 287 {
 288         volatile short val;
 289         int i;
 290         int volt;
 291         struct io *out;
 292         struct io *in;
 293
 294         out = (struct io *)0xf0300090;
 295         in = (struct io *)0xf0300000;
 296
 297         i = simple_strtol (argv[1], NULL, 10);
 298
 299         volt = 0;
 300         printf("Setting Channel %d to %dV...\n", i, volt);
 301         out[i].val = (volt * 0x7fff) / 10;
 302         udelay(10000);
 303         val = in[i*2].val;
 304         printf("-> InChannel %d: 0x%04x=%dV\n", i*2, val, (val * 4000) / 0x7fff);
 305         if ((val < ((volt * 0x7fff) / 40) - ERROR_DELTA) ||
 306             (val > ((volt * 0x7fff) / 40) + ERROR_DELTA)) {
 307                 printf("ERROR! (min=0x%04x max=0x%04x)\n", ((volt * 0x7fff) / 40) - ERROR_DELTA,
 308                        ((volt * 0x7fff) / 40) + ERROR_DELTA);
 309                 return -1;
 310         }
 311         val = in[i*2+1].val;
 312         printf("-> InChannel %d: 0x%04x=%dV\n", i*2+1, val, (val * 4000) / 0x7fff);
 313         if ((val < ((volt * 0x7fff) / 40) - ERROR_DELTA) ||
 314             (val > ((volt * 0x7fff) / 40) + ERROR_DELTA)) {
 315                 printf("ERROR! (min=0x%04x max=0x%04x)\n", ((volt * 0x7fff) / 40) - ERROR_DELTA,
 316                        ((volt * 0x7fff) / 40) + ERROR_DELTA);
 317                 return -1;
 318         }
 319
 320         volt = 5;
 321         printf("Setting Channel %d to %dV...\n", i, volt);
 322         out[i].val = (volt * 0x7fff) / 10;
 323         udelay(10000);
 324         val = in[i*2].val;
 325         printf("-> InChannel %d: 0x%04x=%dV\n", i*2, val, (val * 4000) / 0x7fff);
 326         if ((val < ((volt * 0x7fff) / 40) - ERROR_DELTA) ||
 327             (val > ((volt * 0x7fff) / 40) + ERROR_DELTA)) {
 328                 printf("ERROR! (min=0x%04x max=0x%04x)\n", ((volt * 0x7fff) / 40) - ERROR_DELTA,
 329                        ((volt * 0x7fff) / 40) + ERROR_DELTA);
 330                 return -1;
 331         }
 332         val = in[i*2+1].val;
 333         printf("-> InChannel %d: 0x%04x=%dV\n", i*2+1, val, (val * 4000) / 0x7fff);
 334         if ((val < ((volt * 0x7fff) / 40) - ERROR_DELTA) ||
 335             (val > ((volt * 0x7fff) / 40) + ERROR_DELTA)) {
 336                 printf("ERROR! (min=0x%04x max=0x%04x)\n", ((volt * 0x7fff) / 40) - ERROR_DELTA,
 337                        ((volt * 0x7fff) / 40) + ERROR_DELTA);
 338                 return -1;
 339         }
 340
 341         volt = 10;
 342         printf("Setting Channel %d to %dV...\n", i, volt);
 343         out[i].val = (volt * 0x7fff) / 10;
 344         udelay(10000);
 345         val = in[i*2].val;
 346         printf("-> InChannel %d: 0x%04x=%dV\n", i*2, val, (val * 4000) / 0x7fff);
 347         if ((val < ((volt * 0x7fff) / 40) - ERROR_DELTA) ||
 348             (val > ((volt * 0x7fff) / 40) + ERROR_DELTA)) {
 349                 printf("ERROR! (min=0x%04x max=0x%04x)\n", ((volt * 0x7fff) / 40) - ERROR_DELTA,
 350                        ((volt * 0x7fff) / 40) + ERROR_DELTA);
 351                 return -1;
 352         }
 353         val = in[i*2+1].val;
 354         printf("-> InChannel %d: 0x%04x=%dV\n", i*2+1, val, (val * 4000) / 0x7fff);
 355         if ((val < ((volt * 0x7fff) / 40) - ERROR_DELTA) ||
 356             (val > ((volt * 0x7fff) / 40) + ERROR_DELTA)) {
 357                 printf("ERROR! (min=0x%04x max=0x%04x)\n", ((volt * 0x7fff) / 40) - ERROR_DELTA,
 358                        ((volt * 0x7fff) / 40) + ERROR_DELTA);
 359                 return -1;
 360         }
 361
 362         printf("Channel %d OK!\n", i);
 363
 364         return 0;
 365 }
 366 U_BOOT_CMD(
 367         anatest,        2,      1,      do_anatest,
 368         "anatest - Test analog in-/output\n",
 369         NULL
 370         );
 371
 372
 373 int counter = 0;
 374
 375 void cyclicInt(void *ptr)
 376 {
 377         *(ushort *)0xf03000e8 = 0x0800; /* ack int */
 378         counter++;
 379 }
 380
 381
 382 int do_inctest(cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 383 {
 384         volatile uchar *digout = (volatile uchar *)0xf03000b4;
 385         volatile ulong *incin;
 386         int i;
 387
 388         incin = (volatile ulong *)0xf0300040;
 389
 390         /*
 391          * Clear inc counter
 392          */
 393         incin[0] = 0;
 394         incin[1] = 0;
 395         incin[2] = 0;
 396         incin[3] = 0;
 397
 398         incin = (volatile ulong *)0xf0300050;
 399
 400         /*
 401          * Inc a little
 402          */
 403         for (i=0; i<10000; i++) {
 404                 switch (i & 0x03) {
 405                 case 0:
 406                         *digout = 0x02;
 407                         break;
 408                 case 1:
 409                         *digout = 0x03;
 410                         break;
 411                 case 2:
 412                         *digout = 0x01;
 413                         break;
 414                 case 3:
 415                         *digout = 0x00;
 416                         break;
 417                 }
 418                 udelay(10);
 419         }
 420
 421         printf("Inc 0 = %ld\n", incin[0]);
 422         printf("Inc 1 = %ld\n", incin[1]);
 423         printf("Inc 2 = %ld\n", incin[2]);
 424         printf("Inc 3 = %ld\n", incin[3]);
 425
 426         *(ushort *)0xf03000e0 = 0x0c80-1; /* set counter */
 427         *(ushort *)0xf03000ec |= 0x0800; /* enable int */
 428         irq_install_handler (30, (interrupt_handler_t *) cyclicInt, NULL);
 429         printf("counter=%d\n", counter);
 430
 431         return 0;
 432 }
 433 U_BOOT_CMD(
 434         inctest,        3,      1,      do_inctest,
 435         "inctest - Test incremental encoder inputs\n",
 436         NULL
 437         );
 438 #endif