Subversion Repositories openrisc

//=============================================================================
//
//      xscale_test.c - Cyclone Diagnostics
//
//=============================================================================
//####ECOSGPLCOPYRIGHTBEGIN####
// -------------------------------------------
// This file is part of eCos, the Embedded Configurable Operating System.
// Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
//
// eCos 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 or (at your option) any later version.
//
// eCos 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 eCos; if not, write to the Free Software Foundation, Inc.,
// 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
//
// As a special exception, if other files instantiate templates or use macros
// or inline functions from this file, or you compile this file and link it
// with other works to produce a work based on this file, this file does not
// by itself cause the resulting work to be covered by the GNU General Public
// License. However the source code for this file must still be made available
// in accordance with section (3) of the GNU General Public License.
//
// This exception does not invalidate any other reasons why a work based on
// this file might be covered by the GNU General Public License.
//
// Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
// at http://sources.redhat.com/ecos/ecos-license/
// -------------------------------------------
//####ECOSGPLCOPYRIGHTEND####
//=============================================================================
//#####DESCRIPTIONBEGIN####
//
// Author(s):   Scott Coulter, Jeff Frazier, Eric Breeden
// Contributors:
// Date:        2001-01-25
// Purpose:     
// Description: 
//
//####DESCRIPTIONEND####
//
//===========================================================================*/
 
/************************************************************************/
/* iq80310_test.c - Main diagnostics for IQ80310 board			*/
/*									*/
/* Modification History							*/
/* --------------------							*/
/* 11oct00, ejb, Created for IQ80310 StrongARM2				*/
/* 18dec00  jwf                                                         */
/* 02feb01  jwf	added tests: _coy_tight_loop, cache_loop, LoopMemTest,  */
/*              special_mem_test written by snc				*/     
/* 07feb01  jwf added function calls to a variable delay time generator */
/* 09feb01  jwf added function version_info to show version information */
/*              about OS, BOARD, CPLD, 80200 ID, 80312 ID.              */
/************************************************************************/
 
#include <redboot.h>
#include <cyg/io/pci_hw.h>
#include <cyg/io/pci.h>
 
#include "7_segment_displays.h"
#include "test_menu.h"
#include "iq80310.h"
#include "pci_bios.h"
 
extern void __disableDCache(void);
extern void __enableDCache(void);
extern void _enableFiqIrq(void);
extern void _usec_delay(void);
extern void _msec_delay(void);
extern void _enable_timer(void);
extern void _disable_timer(void);
extern int  xgetchar_timeout(char *ch, int msec);
extern char xgetchar(void);
 
 
/* 02/02/01 jwf */
extern long decIn(void);
extern long hexIn(void);
extern void hex32out(unsigned long num);
extern char* sgets(char *s);
 
extern void flash_test(MENU_ARG arg) RAM_FUNC_SECT;
 
extern STATUS pci_isr_connect (int intline, int bus, int device, int (*handler)(int), int arg);
extern STATUS pci_to_xint(int device, int intpin, int *xint);
extern void timer_test (MENU_ARG arg);
 
extern void delay_ms(int msecs);
 
extern int memTest (long startAddr, long endAddr);
 
/* 02/02/01 jwf */
extern int LoopMemTest (long	startAddr, long	endAddr);
 
extern void uart_test(MENU_ARG arg);
extern void pci_ether_test (UINT32 busno, UINT32 devno, UINT32 funcno);
extern void config_ints(void);	/* configure interrupts */
extern int eeprom_write (unsigned long pci_base, int eeprom_addr, unsigned short *p_data, int nwords);
extern int enable_external_interrupt (int int_id);
extern int disable_external_interrupt (int int_id);
extern int isr_connect(int int_num, void (*handler)(int), int arg);
extern int isr_disconnect(int int_num);
extern void init_external_timer(void);
extern void uninit_external_timer(void);
extern int isHost(void);
 
void pci_int_test (MENU_ARG arg);
void hdwr_diag (void);
void rotary_switch (MENU_ARG arg);
void seven_segment_display (MENU_ARG arg);
void backplane_detection(MENU_ARG arg);
void battery_status(MENU_ARG arg);
void ether_test (MENU_ARG arg);
void gpio_test (MENU_ARG arg);
 
/* 02/02/01 jwf */
void static cache_loop (MENU_ARG arg);
 
/* 02/09/01 jwf */
void version_info (MENU_ARG arg);
void read_coyanosa_id_reg (void);
char board_revision (void);
 
static void battery_test_menu (MENU_ARG arg);
static void battery_test_write (MENU_ARG arg);
static void battery_test_read (MENU_ARG arg);
 
/* 01/11/01 jwf */
void select_host_test_system (void);
 
void internal_timer(MENU_ARG arg);
static void enet_setup (MENU_ARG arg);
static void memory_tests (MENU_ARG arg);
static void repeat_mem_test (MENU_ARG arg);
 
/* 02/02/01 jwf */
static void special_mem_test (MENU_ARG arg);
 
static void spci_tests (MENU_ARG arg), ppci_tests (MENU_ARG arg);
 
#define VENDOR_INTEL    0x8086
#define INTEL_NAME	"Intel Corporation Inc."
 
#define I80303_BRIDGE	0x0309
#define I80303_NAME0	"80303 PCI-PCI Bridge"
 
#define I80303_ATU	0x5309
#define I80303_NAME1	"80303 Address Translation Unit"
 
#define I82557		0x1229
#define I82557_NAME	"82557/82558/82559 10/100 LAN Controller"
 
#define I82559ER	0x1209
#define I82559ER_NAME	"82559ER 10/100 LAN Controller"
 
 
/* Test Menu Table */
static MENU_ITEM testMenu[] = {
    {"Memory Tests",				memory_tests,	      0},
    {"Repeating Memory Tests",			repeat_mem_test,      0},
    {"16C552 DUART Serial Port Tests", 		uart_test, 	      0},
    {"Rotary Switch S1 Test",			rotary_switch,	      0},
    {"7 Segment LED Tests",			seven_segment_display,0},
    {"Backplane Detection Test",		backplane_detection,  0},
    {"Battery Status Test",			battery_status,       0},
    {"External Timer Test",			timer_test,           0},
#ifdef CYGPKG_IO_FLASH
    {"Flash Test",				flash_test,	      0},
#endif
    {"i82559 Ethernet Configuration",		enet_setup,	      0},
    {"i82559 Ethernet Test",			ether_test,	      0},
    {"i960Rx/303 PCI Interrupt Test",		pci_int_test,	      0},
    {"Internal Timer Test",			internal_timer,	      0},
    {"Secondary PCI Bus Test",			spci_tests,	      0},
    {"Primary PCI Bus Test",			ppci_tests,	      0},
    {"Battery Backup SDRAM Memory Test",	battery_test_menu,    0},
    {"GPIO Test",				gpio_test,	      0},
/* 02/02/01 jwf */
    {"Repeat-On-Fail Memory Test",		special_mem_test,     0},
    {"Coyonosa Cache Loop (No return)",		cache_loop,	      0},
/* 02/09/01 jwf */
    {"Show Software and Hardware Revision",	version_info,	      0}
};
 
#define NUM_MENU_ITEMS	(sizeof (testMenu) / sizeof (testMenu[0]))
 
#define MENU_TITLE	"\n  IQ80310 Hardware Tests"
 
extern void __reset(void);
 
void hdwr_diag (void)
{
    unsigned char* led0 = (unsigned char*)MSB_DISPLAY_REG;
    unsigned char* led1 = (unsigned char*)LSB_DISPLAY_REG;
 
    *led0 = LETTER_S;
    *led1 = LETTER_S;
 
    printf ("Entering Hardware Diagnostics - Disabling Data Cache!\n\n");
 
    __disableDCache();
 
    _enableFiqIrq(); /* enable FIQ and IRQ interrupts */
 
    config_ints();  /* configure interrupts for diagnostics */
 
    /* 01/11/01 jwf */
    select_host_test_system();
 
    menu (testMenu, NUM_MENU_ITEMS, MENU_TITLE, MENU_OPT_NONE);
 
    printf ("Exiting Hardware Diagnostics - Reenabling Data Cache!\n\n");
 
    *led0 = ZERO;
    *led1 = ZERO;
 
    __reset();  /* reset the board so RedBoot starts with a clean slate */
}
 
/* 02/02/01 jwf */
static void cache_loop (MENU_ARG arg)
{
    printf ("Putting Processor in a Tight Loop Forever...\n\n");
 
    asm ( "0: mov r0,r0\n"
	  "b 0b\n");
    /* not reached */
}
 
 
/************************************************/
/* Secondary PCI Bus Test			*/
/*						*/
/* This test assumes that a IQ80303 eval board  */
/* is installed in a secondary PCI slot. This   */
/* second board must be configured with 32 Meg  */
/* of SDRAM minimum.		                */
/*						*/
/************************************************/
static void spci_tests (MENU_ARG arg)
{
    long  start_addr;
    long  mem_size;
    long  end_addr;
    cyg_pci_device_id  devid = CYG_PCI_NULL_DEVID;
    int bus, devfn;
 
    /* Look for ATU on the secondary PCI Bus */
    printf("\nLooking for a IQ80303 board on the Secondary PCI bus:\n");
    while (TRUE) {
	if (cyg_pci_find_device(VENDOR_INTEL, I80303_ATU, &devid)) {
	    bus = CYG_PCI_DEV_GET_BUS(devid);
	    devfn = CYG_PCI_DEV_GET_DEVFN(devid);
	    if (bus != SECONDARY_BUS_NUM)
		continue;
	    printf("An IQ80303 board has been detected: bus[%d] devive[%d] fn[%d].",
		   bus, CYG_PCI_DEV_GET_DEV(devfn), CYG_PCI_DEV_GET_FN(devfn));
	    break;
	} else {
	    printf("No IQ80303 board detected on the SPCI bus!\n");
	    return;
	}
    }
 
    /* read the PCI address which corresponds to the start of DRAM */
    cyg_pci_read_config_uint32(devid, 0x10, (UINT32 *)&start_addr);
 
    /* strip off indicator bits */
    start_addr &= 0xfffffff0;
 
    printf ("i80303 DRAM starts at PCI address 0x%08X\n", start_addr);
 
    /* skip over 1st Mbyte of target DRAM */
    start_addr += 0x100000;
 
    mem_size = 0x1f00000;
    end_addr = start_addr + mem_size;
 
    printf("\n\nTesting memory from $");
    hex32out(start_addr);
    printf(" to $");
    hex32out(end_addr);
    printf(".\n");
 
    memTest(start_addr, end_addr);
    printf("\n");
 
    printf ("\nMemory test done.\n");
    printf ("Press return to continue.\n");
    (void) hexIn();
}
 
/************************************************/
/* Primary PCI Bus Test			        */
/*						*/
/* This test assumes that a IQ80303 eval board  */
/* is installed in a primary PCI slot. This     */
/* second board must be configured with 32 Meg  */
/* of SDRAM minimum.				*/
/*						*/
/************************************************/
static void ppci_tests (MENU_ARG arg)
{
    long	start_addr;
    long	mem_size;
    long	end_addr;
    cyg_pci_device_id  devid = CYG_PCI_NULL_DEVID;
    int bus, devfn;
 
    /* check to see if we are the host of the backplane, if not 
       return an error */
    if (isHost() == FALSE) {
	printf ("Invalid test configuration, must be PCI host!\n");
	return;
    }
 
    /* Look for ATU on the primary PCI Bus */
    printf("\nLooking for a IQ80303 board on the Primary PCI bus:\n");
    while (TRUE) {
	if (cyg_pci_find_device(VENDOR_INTEL, I80303_ATU, &devid)) {
	    bus = CYG_PCI_DEV_GET_BUS(devid);
	    devfn = CYG_PCI_DEV_GET_DEVFN(devid);
	    if (bus != PRIMARY_BUS_NUM)
		continue;
	    printf("An IQ80303 board has been detected: bus[%d] devive[%d] fn[%d].",
		   bus, CYG_PCI_DEV_GET_DEV(devfn), CYG_PCI_DEV_GET_FN(devfn));
	    break;
	} else {
	    printf("No IQ80303 board detected on the PPCI bus!\n");
	    return;
	}
    }
 
    /* read the PCI address which corresponds to the start of DRAM */
    cyg_pci_read_config_uint32(devid, 0x10, (UINT32 *)&start_addr);
 
    /* strip off indicator bits */
    start_addr &= 0xfffffff0;
 
    printf ("i80303 DRAM starts at PCI address 0x%08X\n", start_addr);
 
    /* skip over 1st Mbyte of target DRAM */
    start_addr += 0x100000;
 
    mem_size = 0x1f00000;
    end_addr = start_addr + mem_size;
 
    printf("\n\nTesting memory from $");
    hex32out(start_addr);
    printf(" to $");
    hex32out(end_addr);
    printf(".\n");
 
    memTest(start_addr, end_addr);
    printf("\n");
 
    printf ("\nMemory test done.\n");
    printf ("Press return to continue.\n");
    (void) hexIn();
}
 
 
/*****************************************************************************
* memory_tests - Basic Memory Tests                       
*
* Memory tests can be run one of two ways - with the cache turned OFF to test
* physical memory, or with cache turned ON to test the caching
*/
static void memory_tests (MENU_ARG arg)
{
    long	start_addr;
    long	mem_size;
    long	end_addr;
 
    printf ("Base address of memory to test (in hex): ");
    start_addr = hexIn();
    printf("\n");
    printf ("Size of memory to test (in hex): ");
    mem_size = hexIn();
    printf("\n");
    end_addr = start_addr + mem_size;
 
    printf("Testing memory from $");
    hex32out(start_addr);
    printf(" to $");
    hex32out(end_addr);
    printf(".\n");
    memTest(start_addr, end_addr);
    printf("\n");
 
    printf ("\nMemory test done.\n");
    printf ("Press return to continue.\n");
    (void) xgetchar();
}
 
 
/*****************************************************************************
* repeat_mem_test - Repeating Memory Tests                       
*
*/
static void repeat_mem_test (MENU_ARG arg)
{
    unsigned long start_addr, mem_size, end_addr;
    char	cache_disable[10];
 
    printf ("Turn off Data Cache? (y/n): ");
    sgets (cache_disable);
    printf ("\n");
    printf ("Base address of memory to test (in hex): ");
    start_addr = hexIn();
    printf("\n");
    printf ("Size of memory to test (in hex): ");
    mem_size = hexIn();
    printf("\n");
    end_addr = start_addr + mem_size;
    printf("Testing memory from $");
    hex32out(start_addr);
    printf(" to $");
    hex32out(end_addr);
    while (memTest (start_addr, end_addr))
        ;
}
 
/* 02/02/01 jwf */
/*****************************************************************************
* special_mem_test - Repeat-On-Fail Memory Test                     
*
* Memory tests can be run one of two ways - with the cache turned OFF to test
* physical memory, or with cache turned ON to test the caching
*/
static void special_mem_test (MENU_ARG arg)
{
    long	start_addr;
    long	mem_size;
    long	end_addr;
 
    printf ("Base address of memory to test (in hex): ");
    start_addr = hexIn();
    printf("\n");
    printf ("Size of memory to test (in hex): ");
    mem_size = hexIn();
    printf("\n");
    end_addr = start_addr + mem_size;
 
    printf("Testing memory from $");
    hex32out(start_addr);
    printf(" to $");
    hex32out(end_addr);
    printf(".\n");
    LoopMemTest(start_addr, end_addr);
    printf("\n");
 
    printf ("\nMemory test done.\n");
    printf ("Press return to continue.\n");
    (void) xgetchar();
}
 
const unsigned char SevSegDecode[] = {
    ZERO, ONE, TWO, THREE, FOUR,
    FIVE, SIX, SEVEN, EIGHT, NINE,
    LETTER_A, LETTER_B, LETTER_C, LETTER_D,
    LETTER_E, LETTER_F, DECIMAL_POINT,
    DISPLAY_OFF
};
 
/* sequential test for LSD and MSD 7 segment Leds */
void seven_segment_display (MENU_ARG arg)
{
    int DisplaySequence;
    int SelectLed;
 
    *MSB_DISPLAY_REG = DISPLAY_OFF;	/* blank MSD 7 segment LEDS */
    *LSB_DISPLAY_REG = DISPLAY_OFF;	/* blank LSD 7 segment LEDS  */
 
    SelectLed=0; /* initialize 7 segment LED selection */
 
    do {
	/* run test data sequence for a 7 segment LED */
	for (DisplaySequence = 0; DisplaySequence <= 17; ++DisplaySequence) {
 
	    /* display test data on selected 7 segment LED */
	    /* the test data sequence for a 7 segment led will be seen as:*/
	    /* 0 1 2 3 4 5 6 7 8 9 A b C d e F . */
	    if (SelectLed)
		*MSB_DISPLAY_REG = SevSegDecode[DisplaySequence];
	    else
		*LSB_DISPLAY_REG = SevSegDecode[DisplaySequence];
 
	    delay_ms(400);
 
	} /* end for(DisplaySequence~) */
	++SelectLed;	/* select next 7 segment LED */
    } while (SelectLed < 2);	 /* tests a pair of 7 segment LEDs */
 
    *MSB_DISPLAY_REG = LETTER_S;
    *LSB_DISPLAY_REG = LETTER_S;
}
 
 
/* 12/18/00 jwf */
/* tests rotary switch status, S1 positions 0-3, a 2 bit output code */
void rotary_switch (MENU_ARG arg)
{
    const unsigned char MAX_SWITCH_SAMPLES = 9;
    unsigned char RotarySwitch[MAX_SWITCH_SAMPLES];
    unsigned char index;	   /* index for Rotary Switch array */
    unsigned char debounce;	   /* keeps tally of equal rotary switch data reads in a loop */
    char ch;
 
    *MSB_DISPLAY_REG = DISPLAY_OFF;
    *MSB_DISPLAY_REG = DISPLAY_OFF;
 
    printf("\n\nThe 7-Segment LSD LED shows the Rotary Switch position selected, i.e., 0-F.");
    printf("\n\nSlowly dial the Rotary Switch through each position 0-F and confirm reading.");
 
    printf( "\n\nStrike <CR> to exit this test." );
    do {
	do {	/* debounce the switch contacts */
	    for (index = 0; index <= MAX_SWITCH_SAMPLES; index++) {
		/* read rotary switch code */
		RotarySwitch[index] = *(volatile unsigned char *)0xfe8d0000;
		RotarySwitch[index] &= 0x0f;
	    }
	    debounce = 0;
	    for (index = 1; index <= MAX_SWITCH_SAMPLES; index++)
		if (RotarySwitch[0] == RotarySwitch[index])
		    debounce++;
 
	    /* exit when all rotary switch code readings are equal,
	       when debounce = MAX_SWITCH_SAMPLES-1 */
	} while (debounce < (MAX_SWITCH_SAMPLES - 1));	
 
	/* display the rotary switch position on the 7 segment LSD LED as: 0, 1, 2, 3 */
	*LSB_DISPLAY_REG = SevSegDecode[RotarySwitch[0]];
 
    } while (!xgetchar_timeout(&ch, 200) || ch != 0x0d); /* run until User types a <CR> to exit */
 
    *MSB_DISPLAY_REG = LETTER_S;
    *LSB_DISPLAY_REG = LETTER_S;
 
}
 
 
/* test backplane detection, connector socket J19 pin 7 */
/* BP_DET#=0, no backplane */
/* BP_DET#=1, backplane installed */
/* b0 <--> BP_DET# */
void backplane_detection(MENU_ARG arg)
{
    unsigned char BpDetStatus;	/* L = pci700 board installed on backplane */
 
    BpDetStatus = *( unsigned char * ) 0xfe870000;	/* read backplane detection status port */
 
    BpDetStatus &= 0x01;		/* isolate bit b0 */
 
    /* examine bit 0 */
    switch( BpDetStatus ) {
    case 0x00:		/* BpDetStatus = !(BP_DET#=1) = 0 */
	printf("\nBackplane detection bit read Low, no backplane installed\n");
	printf("\nPlace a jumper across J19.7 to J19.1, then run this test again.\n");
	break;
 
    case 0x01:		/* BpDetStatus = !(BP_DET#=0) = 1 */
	printf("\nBackplane detection bit read High, 1 backplane detected.\n");
	printf("\nRemove jumper from J19\n");
	break;
 
    default:
	break;
    }
 
    /* 12/18/00 jwf */
    printf ("\n\nStrike <CR> to exit this test.\n\n");
    hexIn();
}
 
 
/* test battery status */
/* b0 - !(BATT_PRES#=0). A battery is installed.*/
/* b1 - BATT_CHRG=1. The battery is fully charged. */
/* b2 - BATT_DISCHRG=1. The battery is fully discharged. */
void battery_status(MENU_ARG arg)
{
    unsigned char BatteryStatus;
 
    BatteryStatus = *(unsigned char *)0xfe8f0000;	/* read battery status port */
 
    /* examine bit b0 BATT_PRES# */
    if (BatteryStatus & 0x01)	/* TestBit=!(BATT_PRES#=0)=1 */
	printf("\nBATT_PRES#=0. A battery was detected.\n");
    else
	printf("\nBATT_PRES#=1. No battery installed.\n");
 
    /* examine bit b1 BATT_CHRG */
    if (BatteryStatus & 0x02)	/* BATT_CHRG=1 */
	printf("\nBATT_CHRG=1. Battery is fully charged.\n");
    else			/* BATT_CHRG=0 */
	printf("\nBATT_CHRG=0. Battery is charging.\n");
 
    /* examine bit b2 BATT_DISCHRG */
    if (BatteryStatus & 0x04)
	printf("\nBATT_DISCHRG=1. Battery is fully discharged.\n");
    else
	printf("\nBATT_DISCHRG=0. Battery voltage measures with in normal operating range.\n");
 
    printf ("\n\nStrike <CR> to exit this test.\n\n");
    hexIn();
}
 
 
 
/* GPIO test */
/* Header J16 pin out is: J16.1=b0, J16.3=b1, J16.5=b2, J16.7=b3, J16.9=b4, J16.11=b5, J16.13=b6, J16.15=b7 */
/* This test will require use of 2 special test sockets wired as follows for the output and input tests. */
/* Intel specifies that each GPIO pin must be pulled down after P_RST# deasserts to swamp out their weak internal active pull up */
/* Note that the internal weak active pull up tends to have more of an affect on the GPIO input port rather than the output port */
/* Therefore for the input test, jumper J16 pins: 1-2, 3-4, 5-6, 7-8, 9-10, 11-12, 13-14, 15-16, and (TBD) provide an input source for each bit */
/* For the output test, jumper J16 pins: 1-2, 3-4, 5-6, 7-8, 9-10, 11-12, 13-14, 15-16 */
/* each jumpered pin connects a weak pull down resistor, resident on board, to each GPIO pin */
void gpio_test (MENU_ARG arg)
{
    /*unsigned char GpioInputPort;*/
    unsigned char GpioOutputPort;
    unsigned char GpioOutputEnablePort;
 
    /* GPIO output port test */
 
    printf("\n\nPlug output test socket into header J16, strike 'Enter' to continue" );
    while(xgetchar()!=0x0d);
 
    /* write test data pattern to GPIO Output Enable Register at address 0x0000171c */
    *( unsigned char * ) 0x0000171c = 0x55;
 
    /* read GPIO Output Enable Register from address 0x0000171c */
    GpioOutputEnablePort = *( unsigned char * ) 0x0000171c;
 
    if (GpioOutputEnablePort==0x55)
	printf("\nGPIO Output Enable first write/read test PASSED.");
    else
	printf("\nGPIO Output Enable first write/read test FAILED.");
 
    /* write test data pattern to GPIO Output Enable Register at address 0x0000171c */
    *( unsigned char * ) 0x0000171c = 0xaa;
 
    /* read GPIO Output Enable Register from address 0x0000171c */
    GpioOutputEnablePort = *( unsigned char * ) 0x0000171c;
 
    if (GpioOutputEnablePort==0xaa)
	printf("\nGPIO Output Enable second write/read test PASSED.");
    else
	printf("\nGPIO Output Enable second write/read test FAILED.");
 
    /* enable output bits b0-b7, write test pattern to GPIO Output Enable Register */
    *( unsigned char * ) 0x0000171c = 0x00;
 
    /* write test data pattern to GPIO Output Data Register at address 00001724h */
    *( unsigned char * ) 0x00001724 = 0x55;
 
    /* read test data pattern from GPIO Output Data Register at address 00001724h */
    GpioOutputPort = *( unsigned char * ) 0x00001724;
 
    if (GpioOutputPort==0x55)
	printf("\nGPIO Output Data Register first write/read test PASSED.");
    else
	printf("\nGPIO Output Data Register first write/read test FAILED.");
 
    /* write output data pattern to GPIO Output Data Register at address 00001724h */
    *( unsigned char * ) 0x00001724 = 0xaa;
 
    /* read output data pattern from GPIO Output Data Register at address 00001724h */
    GpioOutputPort = *( unsigned char * ) 0x00001724;
 
    if (GpioOutputPort==0xaa)
	printf("\nGPIO Output Data Register second write/read test PASSED.");
    else
	printf("\nGPIO Output Data Register second write/read test FAILED.");
 
    printf("\n\nRemove output test socket from header J16, strike 'Enter' to continue" );
    while(xgetchar()!=0x0d);
}
 
/* i82559 Ethernet test */
void ether_test (MENU_ARG arg)
{
    cyg_pci_device_id  devid[6];
    int	unit = 0;
    int i, num_enet;
 
 
    for (i = 0, num_enet = 0; i < 6; i++, num_enet++) {
	if (i == 0)
	    devid[0] = CYG_PCI_NULL_DEVID;
	else
	    devid[i] = devid[i-1]; // start from last one found
	if (!cyg_pci_find_device(VENDOR_INTEL, I82557, &devid[i]))
	    break;
    }
 
    for (; i < 6; i++, num_enet++) {
	if (i == 0)
	    devid[0] = CYG_PCI_NULL_DEVID;
	else
	    devid[i] = devid[i-1]; // start from last one found
	if (!cyg_pci_find_device(VENDOR_INTEL, I82559ER, &devid[i]))
	    break;
    }
 
    if (num_enet == 0) {
	printf ("No supported Ethernet devices found\n");
	return;
    }
 
    printf ("Supported Ethernet Devices:\n\n");
 
    printf (" Unit#  Bus#  Device#\n");
    printf (" -----  ----  -------\n");
    for (i = 0; i < num_enet; i++)
	printf ("   %d     %d       %d\n", i,
		CYG_PCI_DEV_GET_BUS(devid[i]),
		CYG_PCI_DEV_GET_DEV(CYG_PCI_DEV_GET_DEVFN(devid[i]))); 
 
    printf ("\nEnter the unit number to test : ");
    unit = decIn();
    printf ("\n");
 
    pci_ether_test (CYG_PCI_DEV_GET_BUS(devid[unit]),
		    CYG_PCI_DEV_GET_DEV(CYG_PCI_DEV_GET_DEVFN(devid[unit])),
		    CYG_PCI_DEV_GET_FN(CYG_PCI_DEV_GET_DEVFN(devid[unit])));
}
 
 
 
 
/* Setup Serial EEPROM for Ethernet Configuration */
static void enet_setup (MENU_ARG arg)
{
    UINT32 adapter_ptr;   /* Ptr to PCI Ethernet adapter */
    cyg_pci_device_id  devid;
 
    UINT16 eepromData[3] = {
		0x4801,		/* Valid EEPROM, No Expansion ROM, Rev = ?, PHY Addr = 1 */
		0x0700,		/* Subsystem Id			- PCI700 */
		0x113c		/* Subsystem Vendor Id	- Cyclone Microsystems */
    };
    int config_data_offset = 0x0a;	/* offset into EEPROM for config. data storage */
    int ia_offset = 0x00;			/* offset into EEPROM for IA storage */
    UINT8  buffer[6];				/* temporary storage for IA */
    UINT16 temp_node_addr[3] = {0,0,0};
    UINT16 serial_no;
    UINT8  revision_id = 0, port_id = 0;
    char rev_string[8];
 
    /* Cyclone identifier */
    buffer[0] = 0x00;
    buffer[1] = 0x80;
    buffer[2] = 0x4D;
    buffer[3] = 0x46;    /* board identifier - PCI700 = 70 = 0x46 */
 
    serial_no = 10000;
    while (serial_no >= 10000) {
	printf ("\nEnter the board serial number (1 - 9999): ");
	serial_no = decIn();
	printf ("\n");
    }
    revision_id = 8;
    while ((revision_id < 1) || (revision_id > 7)) {
	printf ("\nEnter the board revison (A - G)      : ");
	sgets (rev_string);
	rev_string[0] = (rev_string[0] & 0xdf);		/* convert to upper case */
	revision_id = (rev_string[0] - 'A') + 1;	/* convert to a number 1 - 7 */
	printf ("\n");
    }
    revision_id &= 0x7;
    eepromData[0] |= (revision_id << 8);	/* add the rev. id to data */
 
    /* we only want to set up on-board 559 */
    devid = CYG_PCI_DEV_MAKE_ID(2, CYG_PCI_DEV_MAKE_DEVFN(0,0));
    /* Get the PCI Base Address for mem. runtime registers */
    cyg_pci_read_config_uint32(devid, 0x10, &adapter_ptr);
 
    /* strip off indicator bits */
    adapter_ptr = adapter_ptr & 0xfffffff0;
 
    printf ("Writing the Configuration Data to the Serial EEPROM... ");
    if (eeprom_write (adapter_ptr,config_data_offset,eepromData,3) != OK) {
	printf ("Error writing the Configuration Data to Serial EEPROM\n");
	return;
    }
    printf ("Done\n");
 
    /* setup node's Ethernet address */
    port_id = ((0 << 6) & 0xc0);	/* two bits of port number ID */
    buffer[4] = (UINT8) (((serial_no & 0x3FFF) >> 8) | port_id);
    buffer[5] = (UINT8) (serial_no & 0x00FF); 
 
    temp_node_addr[0] = (UINT16) ((buffer[1] << 8) + buffer[0]);
    temp_node_addr[1] = (UINT16) ((buffer[3] << 8) + buffer[2]);
    temp_node_addr[2] = (UINT16) ((buffer[5] << 8) + buffer[4]);
 
    printf ("Writing the Individual Address to the Serial EEPROM... ");
    if (eeprom_write (adapter_ptr,ia_offset,temp_node_addr,3) != OK) {
	printf ("\nError writing the IA address to Serial EEPROM.\n");
	return;
    }
    printf ("Done\n"); 
 
    /* now that we have finished writing the configuration data, we must ask the
       operator to reset the PCI916 to have the configuration changes take effect.
       After the reset, the standard Enet. port diagnostics can be run on the 916
       under test */
 
    printf ("\n\n******** Reset the IQ80310 Now to Have Changes Take Effect ********\n\n");
 
    /* wait forever as a reset will bring us back */
    while ((volatile int)TRUE)
	;
}
 
 
 
/* use the clock in the Performance Monitoring Unit to do delays */
void polled_delay (int usec)
{
    volatile int i;
 
    _enable_timer();
 
    for (i = 0; i < usec; i++)
	_usec_delay();
 
    _disable_timer();
}
 
 
 
void internal_timer(MENU_ARG arg)
{
    int j, i;
 
    printf ("\n");
 
    _enable_timer();
 
    printf ("Timer enabled...\n");
 
    for (j = 0; j < 20; j++) {		
	printf (".");
	for (i = 0; i < 1000; i++)
	    _msec_delay();
    }
 
    _disable_timer();
 
    printf ("\nTimer disabled...\n");
}
 
 
#define I80960RP_BRIDGE		0x0960
#define I80960RP_NAME0		"80960RP PCI-PCI Bridge"
 
#define I80960RP_ATU		0x1960
#define I80960RP_NAME1		"80960RP Address Translation Unit"
 
#define I80960RM_BRIDGE		0x0962
#define I80960RM_NAME0		"80960RM PCI-PCI Bridge"
 
#define I80960RM_ATU		0x1962
#define I80960RM_NAME1		"80960RM Address Translation Unit"
 
#define I80960RN_BRIDGE		0x0964
#define I80960RN_NAME0		"80960RN PCI-PCI Bridge"
 
#define I80960RN_ATU		0x1964
#define I80960RN_NAME1		"80960RN Address Translation Unit"
 
#define I80303_BRIDGE		0x0309
#define I80303_NAME0		"80303 PCI-PCI Bridge"
 
#define I80303_ATU		0x5309
#define I80303_NAME1		"80303 Address Translation Unit"
 
 
 
/******************************************************************/
/* The following functions are all part of the PCI Interrupt Test */
/******************************************************************/
/* definitions pertaining to PCI interrupt test */
#define MAX_I960RX 31
typedef struct 
{
	UINT32 device_id;
	UINT32 busno;
	UINT32 devno;
	UINT32 funcno;
} I960RX_DEVICES;
I960RX_DEVICES i960Rx_devices[MAX_I960RX];
UINT32 num_rx_devices = 0; 
UINT32	messagingUnitBase = (UINT32)NULL;
 
/* Outbound Interrupt Status Register bits */
#define OB_STAT_INTA	(1 << 4)
#define OB_STAT_INTB	(1 << 5)
#define OB_STAT_INTC	(1 << 6)
#define OB_STAT_INTD	(1 << 7)
 
/* Outbound Doorbell Register bits */
#define OB_DBELL_INTA	(1 << 28)
#define OB_DBELL_INTB	(1 << 29)
#define OB_DBELL_INTC	(1 << 30)
#define OB_DBELL_INTD	(1 << 31)
 
/***********************************************************************
*
* line_to_string - Returns name as string of particular XINT number
*
*/
static char *line_to_string (int intline)
{
    switch (intline) {
    case XINT0: return("XINT0");
    case XINT1: return("XINT1");
    case XINT2: return("XINT2");
    case XINT3: return("XINT3");
    default:	return("ERROR");
    }
}
 
 
/***************************************************************************
*
* PCI_IntHandler - Interrupt handler for PCI interrupt test
*
* Used to verify that an interrupt was recieved during the PCI interrupt 
* test by the IQ80310 from the add-in i960Rx board.  This handler prints out
* which interrupt was recieved, and then clears the interrupt by clearing 
* the doorbell register on the i960Rx card.
*
*/
int PCI_IntHandler (int IntPin)
{
    UINT32 *OutboundDbReg	 = (UINT32 *)(messagingUnitBase + 0x2c);
    UINT32 *OutboundIstatReg = (UINT32 *)(messagingUnitBase + 0x30);
 
    switch (IntPin) {
    case INTA:
 
	/* check to see if we are looking at the correct interrupt */
	if (!(*OutboundIstatReg & OB_STAT_INTA)) {		
	    return (0);
	} else {			
	    printf ("PCI INTA generated/received\n\n");
	    printf ("OISR OK!\n");
	    printf ("OISR = 0x%X\n", *OutboundIstatReg);
	    printf ("**** PCI INTA Success ****\n\n");
	    *OutboundDbReg |= OB_DBELL_INTA;		/* try to clear specific source */
	    return (1);
	}
	break;
 
    case INTB:
	/* check to see if we are looking at the correct interrupt */
	if (!(*OutboundIstatReg & OB_STAT_INTB)) {
	    return (0);
	} else {
	    printf ("PCI INTB generated/received\n\n");
	    printf ("OISR OK!\n");
	    printf ("OISR = 0x%X\n", *OutboundIstatReg);
	    printf ("**** PCI INTB Success ****\n\n");
	    *OutboundDbReg |= OB_DBELL_INTB;		/* try to clear specific source */
	    return (1);
	}
 
	break;
 
    case INTC:
	/* check to see if we are looking at the correct interrupt */
	if (!(*OutboundIstatReg & OB_STAT_INTC)) {
	    return (0);
	} else {
	    printf ("PCI INTC generated/received\n\n");
	    printf ("OISR OK!\n");
	    printf ("OISR = 0x%X\n", *OutboundIstatReg);
	    printf ("**** PCI INTC Success ****\n\n");
	    *OutboundDbReg |= OB_DBELL_INTC;		/* try to clear specific source */
	    return (1);
	}
 
	break;
 
    case INTD:
	/* check to see if we are looking at the correct interrupt */
	if (!(*OutboundIstatReg & OB_STAT_INTD)) {
	    return (0);
	} else {
	    printf ("PCI INTD generated/received\n\n");
	    printf ("OISR OK!\n");
	    printf ("OISR = 0x%X\n", *OutboundIstatReg);
	    printf ("**** PCI INTD Success ****\n\n");
	    *OutboundDbReg |= OB_DBELL_INTD;		/* try to clear specific source */
	    return (1);
	}
 
	break;
 
    default:
	printf ("Unknown interrupt received\n");
	return (0);
	break;
    }
    return (1);		/* interrupt sharing support requirement */
}
 
 
/*******************************************************************************
*
* i960Rx_seek - look for i960Rx CPUs on the PCI Bus
*
* This function is used by the PCI interrupt test to find and print out
* all PCI location of a particular i960Rx processor on the PCI bus.  Thses include
* boards based on the RP, RD, RM, and RN processors.  The device ID of one of 
* these processors is the input to the function.
*
*/
static void i960Rx_seek (UINT32 adapter_device_id)
{
    static char *i960Rx_name;
    cyg_pci_device_id  devid = CYG_PCI_NULL_DEVID;
    int bus, devfn;
 
    /* get the common name for the current Rx processor */
    switch (adapter_device_id) {
    case I80960RN_ATU:
	i960Rx_name = " i960RN  ";
	break;
    case I80960RM_ATU:
	i960Rx_name = " i960RM  ";
	break;
    case I80960RP_ATU:
	i960Rx_name = "i960RP/RD";
	break;
    case I80303_ATU:
    default:
	i960Rx_name = " i80303  ";
	break;
    } 
 
    while (cyg_pci_find_device(VENDOR_INTEL, adapter_device_id, &devid)) {
	bus = CYG_PCI_DEV_GET_BUS(devid);
	devfn = CYG_PCI_DEV_GET_DEVFN(devid);
	/* set up this entry into the device array */
	i960Rx_devices[num_rx_devices].device_id = adapter_device_id;
	i960Rx_devices[num_rx_devices].busno = bus;
	i960Rx_devices[num_rx_devices].devno = CYG_PCI_DEV_GET_DEV(devfn);
	i960Rx_devices[num_rx_devices].funcno = CYG_PCI_DEV_GET_FN(devfn);
 
	printf ("   %d        %s  %d       %d         %d\n",  
		num_rx_devices, i960Rx_name,
		i960Rx_devices[num_rx_devices].busno,
		i960Rx_devices[num_rx_devices].devno,
		i960Rx_devices[num_rx_devices].funcno);
 
	num_rx_devices++;	/* increment total number of i960Rx devices found */
    }
}
 
 
/*********************************************************************************
*
* pci_int_test - tests PCI interrupts on IQ80310 PCI buses
*
* This test allows full testing of PCI interrupt routing to a particular
* slot on the PCI bus.  It runs in conjunction with a Cyclone i960Rx-based
* board plugged into the target slot.  A default interrupt handler is connected
* for all four PCI interrupt pins on the target board.  The test then waits for 
* the target board to trigger each interrupt using the i960Rx doorbell registers.
* The test passes if all four interrupts are recieved and properly handled by the
* IQ80310.
*
*/
void pci_int_test (MENU_ARG arg)
{
    int indexChoice = 0;
    UINT32 long_data;
    UINT32 *OutboundImaskReg;
    int intline_INTA, intline_INTB, intline_INTC, intline_INTD;
    cyg_pci_device_id  devid = CYG_PCI_NULL_DEVID;
 
    num_rx_devices = 0;	
 
    printf ("Scanning PCI Bus for all supported i960Rx ATU Devices.....\n\n");
 
    printf (" Index    Processor   Bus   Device   Function\n");
    printf (" -----    ---------   ---   ------   --------\n");
 
    i960Rx_seek (I80960RN_ATU);
    i960Rx_seek (I80960RM_ATU);
    i960Rx_seek (I80960RP_ATU);
    i960Rx_seek	(I80303_ATU);
 
    if (num_rx_devices == 0) {
	printf ("\n*** No i960Rx ATU Found on PCI Bus ***\n");
	return;
    }
 
    printf ("Enter index number to use for test : ");
    indexChoice = decIn();
    printf ("\n\n");
 
    if (indexChoice >= num_rx_devices) {
	printf ("Invalid index chosen, exiting\n");
	return;
    }
 
 
    devid = CYG_PCI_DEV_MAKE_ID(i960Rx_devices[indexChoice].busno,
				CYG_PCI_DEV_MAKE_DEVFN(i960Rx_devices[indexChoice].devno,
						       i960Rx_devices[indexChoice].funcno));
 
    cyg_pci_read_config_uint32(devid, REGION0_BASE_OFFSET,(UINT32*)&long_data);
 
    messagingUnitBase = long_data & 0xfffffff0;
    printf ("Messaging Unit PCI Base Address = 0x%X\n", messagingUnitBase);
    OutboundImaskReg = (UINT32 *)(messagingUnitBase + 0x34);
 
    /* Normally, we would just read the intline value from the configuration
       space to determine where the interrupt is routed.  However, the i960Rx
       only requested interrupt resources for one interrupt at a time... */
 
    /* compute interrupt routing values */
    if ((pci_to_xint(i960Rx_devices[indexChoice].devno, INTA, (int*)&intline_INTA)) ||
	(pci_to_xint(i960Rx_devices[indexChoice].devno, INTB, (int*)&intline_INTB)) ||
	(pci_to_xint(i960Rx_devices[indexChoice].devno, INTC, (int*)&intline_INTC)) ||
	(pci_to_xint(i960Rx_devices[indexChoice].devno, INTD, (int*)&intline_INTD)) == ERROR) {
	printf ("Error: Unable to connect PCI interrupts with IQ80310 interrupts\n");
	return;
    }
 
    printf ("i960Rx INTA pin mapped to intLine %s on IQ80310\n", line_to_string(intline_INTA));
    printf ("i960Rx INTB pin mapped to intLine %s on IQ80310\n", line_to_string(intline_INTB));
    printf ("i960Rx INTC pin mapped to intLine %s on IQ80310\n", line_to_string(intline_INTC));
    printf ("i960Rx INTD pin mapped to intLine %s on IQ80310\n", line_to_string(intline_INTD));
 
 
    /* Connect i960Rx PCI INTA Handler */
    if (pci_isr_connect (INTA, i960Rx_devices[indexChoice].busno,
			 i960Rx_devices[indexChoice].devno, PCI_IntHandler, INTA) 
	== ERROR ) {
	printf ("Error Connecting INTA interrupt handler\n");
	return;
    }
    printf ("INTA Service Routine installed...\n");
 
    /* enable PCI INTA */
    enable_external_interrupt(SINTA_INT_ID);
 
    /* Connect i960Rx PCI INTB Handler */
    if (pci_isr_connect (INTA, i960Rx_devices[indexChoice].busno,
			 i960Rx_devices[indexChoice].devno, PCI_IntHandler, INTB) 
	== ERROR) {
	printf ("Error Connecting INTB interrupt handler\n");
	return;
    }
    printf ("INTB Service Routine installed...\n");
 
    /* enable PCI INTB */
    enable_external_interrupt(SINTB_INT_ID);
 
    /* Connect i960Rx PCI INTC Handler */
    if (pci_isr_connect (INTA, i960Rx_devices[indexChoice].busno,
			 i960Rx_devices[indexChoice].devno, PCI_IntHandler, INTC) 
	== ERROR) {
	printf ("Error Connecting INTC interrupt handler\n");
	return;
    }
    printf ("INTC Service Routine installed...\n");
 
    /* enable PCI INTC */
    enable_external_interrupt(SINTC_INT_ID);
 
    /* Connect i960Rx PCI INTD Handler */
    if (pci_isr_connect (INTA, i960Rx_devices[indexChoice].busno,
			 i960Rx_devices[indexChoice].devno, PCI_IntHandler, INTD) 
	== ERROR) {
	printf ("Error Connecting INTD interrupt handler\n");
	return;
    }
    printf ("INTD Service Routine installed...\n");
 
    /* enable PCI INTD */
    enable_external_interrupt(SINTD_INT_ID);
 
    /* make sure that the Outbound interrupts aren't masked */
    *OutboundImaskReg &= ~(OB_STAT_INTA | OB_STAT_INTB | OB_STAT_INTC | OB_STAT_INTD);
 
    /* let the ISR do the rest of the work... */
    printf ("Waiting for the PCI Interrupts to be received...\n\n");
    printf ("Hit <CR> when the test is complete\n\n\n");
 
    hexIn();
 
    return;
}
 
 
/*******************************************/
/*  Battery Backup SDRAM memory write test */
/*******************************************/
static void battery_test_write (MENU_ARG arg)
{
    unsigned long start_addr = SDRAM_BATTERY_TEST_BASE;  /* Address to write to */
 
    /* Data to be written to address and read after the board has been powered off and powered back on */
    UINT32 junk = BATTERY_TEST_PATTERN;		
 
    *(volatile UINT32 *)start_addr = junk;
 
    printf("\nThe value '");
    hex32out(BATTERY_TEST_PATTERN);
    printf ("' is now written in DRAM at address $");
    hex32out(SDRAM_BATTERY_TEST_BASE);
    printf(".\n\nYou can now power the board off, wait 60 seconds and power it back on.");
    printf("\nThen come back in the battery test menu and select option 2 to check data from DRAM.\n");
 
    printf ("\nPress return to continue.\n");
    (void) hexIn();
}
 
 
/******************************************/
/*  Battery Backup SDRAM memory read test */
/******************************************/
static void battery_test_read (MENU_ARG arg)
{
    unsigned long start_addr = SDRAM_BATTERY_TEST_BASE;  /* Address to read from */
    UINT32 value_written = BATTERY_TEST_PATTERN;  /* Data that was written */
    UINT32 value_read;	
 
    value_read = *(volatile UINT32 *)start_addr;
 
    printf ("Value written at address $");
    hex32out(SDRAM_BATTERY_TEST_BASE);
    printf (": ");
    hex32out(BATTERY_TEST_PATTERN);
    printf ("\nValue read at address $");
    hex32out(SDRAM_BATTERY_TEST_BASE);
    printf("   : ");
    hex32out(value_read);
 
    if (value_read == value_written)
	printf ("\n\nThe battery test is a success !\n");
    else {
	printf ("\n\n****************************\n");
	printf ("* The battery test failed. *\n");
	printf ("****************************\n");
    }
 
    printf ("\nBattery test done.\n");
    printf ("Press return to continue.\n");
    (void) hexIn();
}
 
 
/*************************************/
/*  Battery Backup SDRAM memory menu */
/*************************************/
static void battery_test_menu (MENU_ARG arg)
{
    /* Test Menu Table */
    static MENU_ITEM batteryMenu[] = {
	{"Write data to SDRAM",			battery_test_write,		NULL},
	{"Check data from SDRAM",		battery_test_read,		NULL},
    };
 
    unsigned int num_menu_items =	(sizeof (batteryMenu) / sizeof (batteryMenu[0]));
 
    /*  char menu_title[15] = "\n Battery Backup SDRAM memory test."; */
    char menu_title[36] = "\n Battery Backup SDRAM memory test.";
 
    printf ("\n*************************************************************************\n");
    printf ("* This test will enable you to perform a battery test in 4 steps:       *\n"); 
    printf ("*  1/  Select option 1 to write the value '");
    hex32out(BATTERY_TEST_PATTERN);
    printf ("' to DRAM at address *\n*      $");
    hex32out(SDRAM_BATTERY_TEST_BASE);
    printf (",                                                       *\n"); 
    printf ("*  2/  Power the board off and wait 60 seconds,                         *\n"); 
    printf ("*  3/  Power the board back on,                                         *\n"); 
    printf ("*  4/  Select option 2 to read at address $");
    hex32out(SDRAM_BATTERY_TEST_BASE);
    printf (" and compare the     *\n*      value to the value written '");
    hex32out(BATTERY_TEST_PATTERN); 
    printf ("'.                           *\n");
    printf ("*************************************************************************");
 
    menu (batteryMenu, num_menu_items, menu_title, MENU_OPT_NONE);
    printf ("\n");
}
 
/* 01/11/01 jwf */
/* Make the user select their host test platform type from a list of choices. */
/* If the user picks a Cyclone SB923 then modify the Outbound PCI Translate Register on the IQ80310 for the SB923 */
void select_host_test_system (void)
{
    char selection;
 
    printf("Select your Host test system\n\n");
    printf("Make a selection by typing a number.\n\n");
    printf("1 - Cyclone SB923\n");
    printf("2 - Personal Computer or other\n");
 
    do {
	selection = xgetchar();
    } while( (selection != '1') && (selection != '2') );
 
    if (selection == '1') {
	/* Modify the Outbound PCI Translate Register for a SB923, at address 0x1254 */
	*(volatile UINT32 *) POMWVR_ADDR = 0xa0000000;
    }
}
 
 
/* 02/09/01 jwf */
/* Read the 80200 Coyanosa ID register */
/* Use a base address equal to the fourth memory location from the last memory location */
/* in a 32MB SDRAM DIMM */
/* Store from coprocessor register 15 to memory. */
/* ARM register R0 is the address after the transfer */
void read_coyanosa_id_reg (void)
{
    __asm__ ("ldr r0, = 0xA1FFFFFC");
    __asm__ ("mrc p15, 0, r1, c0, c0, 0");
    __asm__ ("str r1, [r0], #0");
}
 
 
/* 02/09/01 jwf */
/*
*Display the following version information.
*1. Software version of Red Boot or Cygnus Cygmon Rom Monitor.
*2. Cpld version.  Located in the 0xFE840000 (Read)
*3. Board Revision. Located at 0xFE830000 (Read)
*4. 80200 ID data Located in CP15 Register 0
*5. 80312 Stepping Located at 0x00001008
*/
void version_info (MENU_ARG arg)
{
    char board_rev;
 
/* show revision information for operating system */
#if CYGNUS_CYGMON_OS
    extern void version(void); /* is defined in monitor.c */
    version();
#endif
 
#if REDHAT_REDBOOT_OS
    extern void do_version(int argc, char *argv[]);/* is defined in main.c */
    do_version(0,0);
#endif
 
    board_rev = board_revision();
    if ( board_rev >= BOARD_REV_E ) {
	/* read Board revision register and adjust numeric revision to letter revision, 0x1 <--> A */	
	printf("\nBoard Revision = %c\n",(*BOARD_REV_REG_ADDR & BOARD_REV_MASK) + 'A' - 1 );
    } else {
	/* Board letter revision might be A or B or C or D */	
	printf("\nBoard Revision Unknown!\n");
    }
 
    /* read CPLD revision register and adjust numeric revision to letter revision, 0x1 <--> A */
    printf("CPLD Revision = %c\n",(*CPLD_REV_REG_ADDR & BOARD_REV_MASK) + 'A' - 1 );
 
    /* Read the 80200 Coyanosa ID register */
    read_coyanosa_id_reg();
 
    printf( "80200 Revision ID = 0x%x\n", ( *(volatile unsigned long *) COYANOSA_ID_BASE_ADDR) );
 
    /* read the 80312 Yavapai Revision ID register */
    printf( "80312 Revision ID = %d\n", (*(volatile unsigned char *) RIDR_ADDR) );
 
    printf ("\n\nStrike <CR> to exit this test.\n\n");
 
    hexIn();
}
 
 
/* 02/09/01 jwf */
/* Determine if the CPLD supports a Board Revision Register. */
/* If a Board Revision Register exists then return the board revision number read from a dedicated CPLD register at memory address 0xfe830000 */
/* Otherwise return a default board revision number. */
char board_revision ()
{
    /* represents the ring indicator bit logic level in UART2 */
    unsigned char ri_state;
 
    /* holds a board revision number */
    char board_rev;
 
    /* access UART2 MSR at memory address 0xfe810006 through the CYGMON serial port, J9 */
    ri_state = *( unsigned char * ) 0xfe810006;
    ri_state &= RI_MASK;
 
    /* RI# pin on UART2 is grounded */
    /* CPLD design supports a Board Revision Register implemention */
    if(ri_state == RI_MASK) {
	/* read Board Revision register and isolate LSN */
	board_rev = (*BOARD_REV_REG_ADDR & BOARD_REV_MASK);
 
	/* Board Rev is at E or higher */
	if (board_rev >= BOARD_REV_E)
	    return (board_rev);
    }
 
    /* RI# pin on UART2 is pulled up to 3.3V. */
    /* Unknown Board Revision! */
    /* Unable to determine a board revision because the CPLD Board Revision Register */
    /* was never implemented for IQ80310 PCI-700 board REVs A,B,C, or D. */
    /* set a default board revision value of 0x2 <--> Rev B. */
    board_rev = 0x2;
 
    /* return a default value */
    return (board_rev);
}