drivers/net/bfin_mac.c - uboot/prism - Git at Google

 /*
  * Driver for Blackfin On-Chip MAC device
  *
  * Copyright (c) 2005-2008 Analog Device, Inc.
  *
  * Licensed under the GPL-2 or later.
  */

 #include <common.h>
 #include <config.h>
 #include <net.h>
 #include <netdev.h>
 #include <command.h>
 #include <malloc.h>
 #include <miiphy.h>
 #include <linux/mii.h>

 #include <asm/blackfin.h>
 #include <asm/mach-common/bits/dma.h>
 #include <asm/mach-common/bits/emac.h>
 #include <asm/mach-common/bits/pll.h>

 #include "bfin_mac.h"

 #ifndef CONFIG_PHY_ADDR
 # define CONFIG_PHY_ADDR 1
 #endif
 #ifndef CONFIG_PHY_CLOCK_FREQ
 # define CONFIG_PHY_CLOCK_FREQ 2500000
 #endif

 #ifdef CONFIG_POST
 #include <post.h>
 #endif

 #define RXBUF_BASE_ADDR		0xFF900000
 #define TXBUF_BASE_ADDR		0xFF800000
 #define TX_BUF_CNT		1

 #define TOUT_LOOP		1000000

 static ADI_ETHER_BUFFER *txbuf[TX_BUF_CNT];
 static ADI_ETHER_BUFFER *rxbuf[PKTBUFSRX];
 static u16 txIdx;		/* index of the current RX buffer */
 static u16 rxIdx;		/* index of the current TX buffer */

 /* DMAx_CONFIG values at DMA Restart */
 static const union {
 	u16 data;
 	ADI_DMA_CONFIG_REG reg;
 } txdmacfg = {
 	.reg = {
 		.b_DMA_EN  = 1,	/* enabled */
 		.b_WNR     = 0,	/* read from memory */
 		.b_WDSIZE  = 2,	/* wordsize is 32 bits */
 		.b_DMA2D   = 0,
 		.b_RESTART = 0,
 		.b_DI_SEL  = 0,
 		.b_DI_EN   = 0,	/* no interrupt */
 		.b_NDSIZE  = 5,	/* 5 half words is desc size */
 		.b_FLOW    = 7	/* large desc flow */
 	},
 };

 static int bfin_miiphy_wait(void)
 {
 	/* poll the STABUSY bit */
 	while (bfin_read_EMAC_STAADD() & STABUSY)
 		continue;
 	return 0;
 }

 static int bfin_miiphy_read(char *devname, uchar addr, uchar reg, ushort *val)
 {
 	if (bfin_miiphy_wait())
 		return 1;
 	bfin_write_EMAC_STAADD(SET_PHYAD(addr) | SET_REGAD(reg) | STABUSY);
 	if (bfin_miiphy_wait())
 		return 1;
 	*val = bfin_read_EMAC_STADAT();
 	return 0;
 }

 static int bfin_miiphy_write(char *devname, uchar addr, uchar reg, ushort val)
 {
 	if (bfin_miiphy_wait())
 		return 1;
 	bfin_write_EMAC_STADAT(val);
 	bfin_write_EMAC_STAADD(SET_PHYAD(addr) | SET_REGAD(reg) | STAOP | STABUSY);
 	return 0;
 }

 int bfin_EMAC_initialize(bd_t *bis)
 {
 	struct eth_device *dev;
 	dev = malloc(sizeof(*dev));
 	if (dev == NULL)
 		hang();

 	memset(dev, 0, sizeof(*dev));
 	sprintf(dev->name, "Blackfin EMAC");

 	dev->iobase = 0;
 	dev->priv = 0;
 	dev->init = bfin_EMAC_init;
 	dev->halt = bfin_EMAC_halt;
 	dev->send = bfin_EMAC_send;
 	dev->recv = bfin_EMAC_recv;

 	eth_register(dev);

 #if defined(CONFIG_MII) || defined(CONFIG_CMD_MII)
 	miiphy_register(dev->name, bfin_miiphy_read, bfin_miiphy_write);
 #endif

 	return 0;
 }

 static int bfin_EMAC_send(struct eth_device *dev, volatile void *packet,
 			  int length)
 {
 	int i;
 	int result = 0;
 	unsigned int *buf;
 	buf = (unsigned int *)packet;

 	if (length <= 0) {
 		printf("Ethernet: bad packet size: %d\n", length);
 		goto out;
 	}

 	if ((*pDMA2_IRQ_STATUS & DMA_ERR) != 0) {
 		printf("Ethernet: tx DMA error\n");
 		goto out;
 	}

 	for (i = 0; (*pDMA2_IRQ_STATUS & DMA_RUN) != 0; i++) {
 		if (i > TOUT_LOOP) {
 			puts("Ethernet: tx time out\n");
 			goto out;
 		}
 	}
 	txbuf[txIdx]->FrmData->NoBytes = length;
 	memcpy(txbuf[txIdx]->FrmData->Dest, (void *)packet, length);
 	txbuf[txIdx]->Dma[0].START_ADDR = (u32) txbuf[txIdx]->FrmData;
 	*pDMA2_NEXT_DESC_PTR = txbuf[txIdx]->Dma;
 	*pDMA2_CONFIG = txdmacfg.data;
 	*pEMAC_OPMODE |= TE;

 	for (i = 0; (txbuf[txIdx]->StatusWord & TX_COMP) == 0; i++) {
 		if (i > TOUT_LOOP) {
 			puts("Ethernet: tx error\n");
 			goto out;
 		}
 	}
 	result = txbuf[txIdx]->StatusWord;
 	txbuf[txIdx]->StatusWord = 0;
 	if ((txIdx + 1) >= TX_BUF_CNT)
 		txIdx = 0;
 	else
 		txIdx++;
  out:
 	debug("BFIN EMAC send: length = %d\n", length);
 	return result;
 }

 static int bfin_EMAC_recv(struct eth_device *dev)
 {
 	int length = 0;

 	for (;;) {
 		if ((rxbuf[rxIdx]->StatusWord & RX_COMP) == 0) {
 			length = -1;
 			break;
 		}
 		if ((rxbuf[rxIdx]->StatusWord & RX_DMAO) != 0) {
 			printf("Ethernet: rx dma overrun\n");
 			break;
 		}
 		if ((rxbuf[rxIdx]->StatusWord & RX_OK) == 0) {
 			printf("Ethernet: rx error\n");
 			break;
 		}
 		length = rxbuf[rxIdx]->StatusWord & 0x000007FF;
 		if (length <= 4) {
 			printf("Ethernet: bad frame\n");
 			break;
 		}
 		NetRxPackets[rxIdx] =
 		    (volatile uchar *)(rxbuf[rxIdx]->FrmData->Dest);
 		NetReceive(NetRxPackets[rxIdx], length - 4);
 		*pDMA1_IRQ_STATUS |= DMA_DONE | DMA_ERR;
 		rxbuf[rxIdx]->StatusWord = 0x00000000;
 		if ((rxIdx + 1) >= PKTBUFSRX)
 			rxIdx = 0;
 		else
 			rxIdx++;
 	}

 	return length;
 }

 /**************************************************************
  *
  * Ethernet Initialization Routine
  *
  *************************************************************/

 /* MDC = SCLK / MDC_freq / 2 - 1 */
 #define MDC_FREQ_TO_DIV(mdc_freq) (get_sclk() / (mdc_freq) / 2 - 1)

 static int bfin_miiphy_init(struct eth_device *dev, int *opmode)
 {
 	u16 phydat;
 	size_t count;

 	/* Enable PHY output */
 	*pVR_CTL |= CLKBUFOE;

 	/* Set all the pins to peripheral mode */
 #ifdef CONFIG_RMII
 	/* grab RMII pins */
 # if defined(__ADSPBF51x__)
 	*pPORTF_MUX = (*pPORTF_MUX & \
 		~(PORT_x_MUX_3_MASK | PORT_x_MUX_4_MASK | PORT_x_MUX_5_MASK)) | \
 		PORT_x_MUX_3_FUNC_1 | PORT_x_MUX_4_FUNC_1 | PORT_x_MUX_5_FUNC_1;
 	*pPORTF_FER |= PF8 | PF9 | PF10 | PF11 | PF12 | PF13 | PF14 | PF15;
 	*pPORTG_MUX = (*pPORTG_MUX & ~PORT_x_MUX_0_MASK) | PORT_x_MUX_0_FUNC_1;
 	*pPORTG_FER |= PG0 | PG1 | PG2;
 # elif defined(__ADSPBF52x__)
 	*pPORTG_MUX = (*pPORTG_MUX & ~PORT_x_MUX_6_MASK) | PORT_x_MUX_6_FUNC_2;
 	*pPORTG_FER |= PG14 | PG15;
 	*pPORTH_MUX = (*pPORTH_MUX & ~(PORT_x_MUX_0_MASK | PORT_x_MUX_1_MASK)) | \
 		PORT_x_MUX_0_FUNC_2 | PORT_x_MUX_1_FUNC_2;
 	*pPORTH_FER |= PH0 | PH1 | PH2 | PH3 | PH4 | PH5 | PH6 | PH7 | PH8;
 # else
 	*pPORTH_FER |= PH0 | PH1 | PH4 | PH5 | PH6 | PH8 | PH9 | PH14 | PH15;
 # endif
 #else
 	/* grab MII & RMII pins */
 # if defined(__ADSPBF51x__)
 	*pPORTF_MUX = (*pPORTF_MUX & \
 		~(PORT_x_MUX_0_MASK | PORT_x_MUX_1_MASK | PORT_x_MUX_3_MASK | PORT_x_MUX_4_MASK | PORT_x_MUX_5_MASK)) | \
 		PORT_x_MUX_0_FUNC_1 | PORT_x_MUX_1_FUNC_1 | PORT_x_MUX_3_FUNC_1 | PORT_x_MUX_4_FUNC_1 | PORT_x_MUX_5_FUNC_1;
 	*pPORTF_FER |= PF0 | PF1 | PF2 | PF3 | PF4 | PF5 | PF6 | PF8 | PF9 | PF10 | PF11 | PF12 | PF13 | PF14 | PF15;
 	*pPORTG_MUX = (*pPORTG_MUX & ~PORT_x_MUX_0_MASK) | PORT_x_MUX_0_FUNC_1;
 	*pPORTG_FER |= PG0 | PG1 | PG2;
 # elif defined(__ADSPBF52x__)
 	*pPORTG_MUX = (*pPORTG_MUX & ~PORT_x_MUX_6_MASK) | PORT_x_MUX_6_FUNC_2;
 	*pPORTG_FER |= PG14 | PG15;
 	*pPORTH_MUX = PORT_x_MUX_0_FUNC_2 | PORT_x_MUX_1_FUNC_2 | PORT_x_MUX_2_FUNC_2;
 	*pPORTH_FER = -1; /* all pins */
 # else
 	*pPORTH_FER = -1; /* all pins */
 # endif
 #endif

 	/* Odd word alignment for Receive Frame DMA word */
 	/* Configure checksum support and rcve frame word alignment */
 	bfin_write_EMAC_SYSCTL(RXDWA | RXCKS | SET_MDCDIV(MDC_FREQ_TO_DIV(CONFIG_PHY_CLOCK_FREQ)));

 	/* turn on auto-negotiation and wait for link to come up */
 	bfin_miiphy_write(dev->name, CONFIG_PHY_ADDR, MII_BMCR, BMCR_ANENABLE);
 	count = 0;
 	while (1) {
 		++count;
 		if (bfin_miiphy_read(dev->name, CONFIG_PHY_ADDR, MII_BMSR, &phydat))
 			return -1;
 		if (phydat & BMSR_LSTATUS)
 			break;
 		if (count > 30000) {
 			printf("%s: link down, check cable\n", dev->name);
 			return -1;
 		}
 		udelay(100);
 	}

 	/* see what kind of link we have */
 	if (bfin_miiphy_read(dev->name, CONFIG_PHY_ADDR, MII_LPA, &phydat))
 		return -1;
 	if (phydat & LPA_DUPLEX)
 		*opmode = FDMODE;
 	else
 		*opmode = 0;

 	bfin_write_EMAC_MMC_CTL(RSTC | CROLL);

 	/* Initialize the TX DMA channel registers */
 	*pDMA2_X_COUNT = 0;
 	*pDMA2_X_MODIFY = 4;
 	*pDMA2_Y_COUNT = 0;
 	*pDMA2_Y_MODIFY = 0;

 	/* Initialize the RX DMA channel registers */
 	*pDMA1_X_COUNT = 0;
 	*pDMA1_X_MODIFY = 4;
 	*pDMA1_Y_COUNT = 0;
 	*pDMA1_Y_MODIFY = 0;

 	return 0;
 }

 static int bfin_EMAC_init(struct eth_device *dev, bd_t *bd)
 {
 	u32 opmode;
 	int dat;
 	int i;
 	debug("Eth_init: ......\n");

 	txIdx = 0;
 	rxIdx = 0;

 	/* Initialize System Register */
 	if (bfin_miiphy_init(dev, &dat) < 0)
 		return -1;

 	/* Initialize EMAC address */
 	bfin_EMAC_setup_addr(dev->enetaddr);

 	/* Initialize TX and RX buffer */
 	for (i = 0; i < PKTBUFSRX; i++) {
 		rxbuf[i] = SetupRxBuffer(i);
 		if (i > 0) {
 			rxbuf[i - 1]->Dma[1].NEXT_DESC_PTR = rxbuf[i]->Dma;
 			if (i == (PKTBUFSRX - 1))
 				rxbuf[i]->Dma[1].NEXT_DESC_PTR = rxbuf[0]->Dma;
 		}
 	}
 	for (i = 0; i < TX_BUF_CNT; i++) {
 		txbuf[i] = SetupTxBuffer(i);
 		if (i > 0) {
 			txbuf[i - 1]->Dma[1].NEXT_DESC_PTR = txbuf[i]->Dma;
 			if (i == (TX_BUF_CNT - 1))
 				txbuf[i]->Dma[1].NEXT_DESC_PTR = txbuf[0]->Dma;
 		}
 	}

 	/* Set RX DMA */
 	*pDMA1_NEXT_DESC_PTR = rxbuf[0]->Dma;
 	*pDMA1_CONFIG = rxbuf[0]->Dma[0].CONFIG_DATA;

 	/* Wait MII done */
 	bfin_miiphy_wait();

 	/* We enable only RX here */
 	/* ASTP   : Enable Automatic Pad Stripping
 	   PR     : Promiscuous Mode for test
 	   PSF    : Receive frames with total length less than 64 bytes.
 	   FDMODE : Full Duplex Mode
 	   LB	  : Internal Loopback for test
 	   RE     : Receiver Enable */
 	if (dat == FDMODE)
 		opmode = ASTP | FDMODE | PSF;
 	else
 		opmode = ASTP | PSF;
 	opmode |= RE;
 #ifdef CONFIG_RMII
 	opmode |= TE | RMII;
 #endif
 	/* Turn on the EMAC */
 	*pEMAC_OPMODE = opmode;
 	return 0;
 }

 static void bfin_EMAC_halt(struct eth_device *dev)
 {
 	debug("Eth_halt: ......\n");
 	/* Turn off the EMAC */
 	*pEMAC_OPMODE = 0x00000000;
 	/* Turn off the EMAC RX DMA */
 	*pDMA1_CONFIG = 0x0000;
 	*pDMA2_CONFIG = 0x0000;

 }

 void bfin_EMAC_setup_addr(uchar *enetaddr)
 {
 	*pEMAC_ADDRLO =
 		enetaddr[0] |
 		enetaddr[1] << 8 |
 		enetaddr[2] << 16 |
 		enetaddr[3] << 24;
 	*pEMAC_ADDRHI =
 		enetaddr[4] |
 		enetaddr[5] << 8;
 }

 ADI_ETHER_BUFFER *SetupRxBuffer(int no)
 {
 	ADI_ETHER_FRAME_BUFFER *frmbuf;
 	ADI_ETHER_BUFFER *buf;
 	int nobytes_buffer = sizeof(ADI_ETHER_BUFFER[2]) / 2;	/* ensure a multi. of 4 */
 	int total_size = nobytes_buffer + RECV_BUFSIZE;

 	buf = (void *) (RXBUF_BASE_ADDR + no * total_size);
 	frmbuf = (void *) (RXBUF_BASE_ADDR + no * total_size + nobytes_buffer);

 	memset(buf, 0x00, nobytes_buffer);
 	buf->FrmData = frmbuf;
 	memset(frmbuf, 0xfe, RECV_BUFSIZE);

 	/* set up first desc to point to receive frame buffer */
 	buf->Dma[0].NEXT_DESC_PTR = &(buf->Dma[1]);
 	buf->Dma[0].START_ADDR = (u32) buf->FrmData;
 	buf->Dma[0].CONFIG.b_DMA_EN = 1;	/* enabled */
 	buf->Dma[0].CONFIG.b_WNR = 1;	/* Write to memory */
 	buf->Dma[0].CONFIG.b_WDSIZE = 2;	/* wordsize is 32 bits */
 	buf->Dma[0].CONFIG.b_NDSIZE = 5;	/* 5 half words is desc size. */
 	buf->Dma[0].CONFIG.b_FLOW = 7;	/* large desc flow */

 	/* set up second desc to point to status word */
 	buf->Dma[1].NEXT_DESC_PTR = buf->Dma;
 	buf->Dma[1].START_ADDR = (u32) & buf->IPHdrChksum;
 	buf->Dma[1].CONFIG.b_DMA_EN = 1;	/* enabled */
 	buf->Dma[1].CONFIG.b_WNR = 1;	/* Write to memory */
 	buf->Dma[1].CONFIG.b_WDSIZE = 2;	/* wordsize is 32 bits */
 	buf->Dma[1].CONFIG.b_DI_EN = 1;	/* enable interrupt */
 	buf->Dma[1].CONFIG.b_NDSIZE = 5;	/* must be 0 when FLOW is 0 */
 	buf->Dma[1].CONFIG.b_FLOW = 7;	/* stop */

 	return buf;
 }

 ADI_ETHER_BUFFER *SetupTxBuffer(int no)
 {
 	ADI_ETHER_FRAME_BUFFER *frmbuf;
 	ADI_ETHER_BUFFER *buf;
 	int nobytes_buffer = sizeof(ADI_ETHER_BUFFER[2]) / 2;	/* ensure a multi. of 4 */
 	int total_size = nobytes_buffer + RECV_BUFSIZE;

 	buf = (void *) (TXBUF_BASE_ADDR + no * total_size);
 	frmbuf = (void *) (TXBUF_BASE_ADDR + no * total_size + nobytes_buffer);

 	memset(buf, 0x00, nobytes_buffer);
 	buf->FrmData = frmbuf;
 	memset(frmbuf, 0x00, RECV_BUFSIZE);

 	/* set up first desc to point to receive frame buffer */
 	buf->Dma[0].NEXT_DESC_PTR = &(buf->Dma[1]);
 	buf->Dma[0].START_ADDR = (u32) buf->FrmData;
 	buf->Dma[0].CONFIG.b_DMA_EN = 1;	/* enabled */
 	buf->Dma[0].CONFIG.b_WNR = 0;	/* Read to memory */
 	buf->Dma[0].CONFIG.b_WDSIZE = 2;	/* wordsize is 32 bits */
 	buf->Dma[0].CONFIG.b_NDSIZE = 5;	/* 5 half words is desc size. */
 	buf->Dma[0].CONFIG.b_FLOW = 7;	/* large desc flow */

 	/* set up second desc to point to status word */
 	buf->Dma[1].NEXT_DESC_PTR = &(buf->Dma[0]);
 	buf->Dma[1].START_ADDR = (u32) & buf->StatusWord;
 	buf->Dma[1].CONFIG.b_DMA_EN = 1;	/* enabled */
 	buf->Dma[1].CONFIG.b_WNR = 1;	/* Write to memory */
 	buf->Dma[1].CONFIG.b_WDSIZE = 2;	/* wordsize is 32 bits */
 	buf->Dma[1].CONFIG.b_DI_EN = 1;	/* enable interrupt */
 	buf->Dma[1].CONFIG.b_NDSIZE = 0;	/* must be 0 when FLOW is 0 */
 	buf->Dma[1].CONFIG.b_FLOW = 0;	/* stop */

 	return buf;
 }

 #if defined(CONFIG_POST) && defined(CONFIG_SYS_POST_ETHER)
 int ether_post_test(int flags)
 {
 	uchar buf[64];
 	int i, value = 0;
 	int length;

 	printf("\n--------");
 	bfin_EMAC_init(NULL, NULL);
 	/* construct the package */
 	buf[0] = buf[6] = (unsigned char)(*pEMAC_ADDRLO & 0xFF);
 	buf[1] = buf[7] = (unsigned char)((*pEMAC_ADDRLO & 0xFF00) >> 8);
 	buf[2] = buf[8] = (unsigned char)((*pEMAC_ADDRLO & 0xFF0000) >> 16);
 	buf[3] = buf[9] = (unsigned char)((*pEMAC_ADDRLO & 0xFF000000) >> 24);
 	buf[4] = buf[10] = (unsigned char)(*pEMAC_ADDRHI & 0xFF);
 	buf[5] = buf[11] = (unsigned char)((*pEMAC_ADDRHI & 0xFF00) >> 8);
 	buf[12] = 0x08;		/* Type: ARP */
 	buf[13] = 0x06;
 	buf[14] = 0x00;		/* Hardware type: Ethernet */
 	buf[15] = 0x01;
 	buf[16] = 0x08;		/* Protocal type: IP */
 	buf[17] = 0x00;
 	buf[18] = 0x06;		/* Hardware size    */
 	buf[19] = 0x04;		/* Protocol size    */
 	buf[20] = 0x00;		/* Opcode: request  */
 	buf[21] = 0x01;

 	for (i = 0; i < 42; i++)
 		buf[i + 22] = i;
 	printf("--------Send 64 bytes......\n");
 	bfin_EMAC_send(NULL, (volatile void *)buf, 64);
 	for (i = 0; i < 100; i++) {
 		udelay(10000);
 		if ((rxbuf[rxIdx]->StatusWord & RX_COMP) != 0) {
 			value = 1;
 			break;
 		}
 	}
 	if (value == 0) {
 		printf("--------EMAC can't receive any data\n");
 		eth_halt();
 		return -1;
 	}
 	length = rxbuf[rxIdx]->StatusWord & 0x000007FF - 4;
 	for (i = 0; i < length; i++) {
 		if (rxbuf[rxIdx]->FrmData->Dest[i] != buf[i]) {
 			printf("--------EMAC receive error data!\n");
 			eth_halt();
 			return -1;
 		}
 	}
 	printf("--------receive %d bytes, matched\n", length);
 	bfin_EMAC_halt(NULL);
 	return 0;
 }
 #endif
	/*
	* Driver for Blackfin On-Chip MAC device
	*
	* Copyright (c) 2005-2008 Analog Device, Inc.
	*
	* Licensed under the GPL-2 or later.
	*/

	#include <common.h>
	#include <config.h>
	#include <net.h>
	#include <netdev.h>
	#include <command.h>
	#include <malloc.h>
	#include <miiphy.h>
	#include <linux/mii.h>

	#include <asm/blackfin.h>
	#include <asm/mach-common/bits/dma.h>
	#include <asm/mach-common/bits/emac.h>
	#include <asm/mach-common/bits/pll.h>

	#include "bfin_mac.h"

	#ifndef CONFIG_PHY_ADDR
	# define CONFIG_PHY_ADDR 1
	#endif
	#ifndef CONFIG_PHY_CLOCK_FREQ
	# define CONFIG_PHY_CLOCK_FREQ 2500000
	#endif

	#ifdef CONFIG_POST
	#include <post.h>
	#endif

	#define RXBUF_BASE_ADDR 0xFF900000
	#define TXBUF_BASE_ADDR 0xFF800000
	#define TX_BUF_CNT 1

	#define TOUT_LOOP 1000000

	static ADI_ETHER_BUFFER *txbuf[TX_BUF_CNT];
	static ADI_ETHER_BUFFER *rxbuf[PKTBUFSRX];
	static u16 txIdx; /* index of the current RX buffer */
	static u16 rxIdx; /* index of the current TX buffer */

	/* DMAx_CONFIG values at DMA Restart */
	static const union {
	u16 data;
	ADI_DMA_CONFIG_REG reg;
	} txdmacfg = {
	.reg = {
	.b_DMA_EN = 1, /* enabled */
	.b_WNR = 0, /* read from memory */
	.b_WDSIZE = 2, /* wordsize is 32 bits */
	.b_DMA2D = 0,
	.b_RESTART = 0,
	.b_DI_SEL = 0,
	.b_DI_EN = 0, /* no interrupt */
	.b_NDSIZE = 5, /* 5 half words is desc size */
	.b_FLOW = 7 /* large desc flow */
	},
	};

	static int bfin_miiphy_wait(void)
	{
	/* poll the STABUSY bit */
	while (bfin_read_EMAC_STAADD() & STABUSY)
	continue;
	return 0;
	}

	static int bfin_miiphy_read(char devname, uchar addr, uchar reg, ushort val)
	{
	if (bfin_miiphy_wait())
	return 1;
	bfin_write_EMAC_STAADD(SET_PHYAD(addr) \| SET_REGAD(reg) \| STABUSY);
	if (bfin_miiphy_wait())
	return 1;
	*val = bfin_read_EMAC_STADAT();
	return 0;
	}

	static int bfin_miiphy_write(char *devname, uchar addr, uchar reg, ushort val)
	{
	if (bfin_miiphy_wait())
	return 1;
	bfin_write_EMAC_STADAT(val);
	bfin_write_EMAC_STAADD(SET_PHYAD(addr) \| SET_REGAD(reg) \| STAOP \| STABUSY);
	return 0;
	}

	int bfin_EMAC_initialize(bd_t *bis)
	{
	struct eth_device *dev;
	dev = malloc(sizeof(*dev));
	if (dev == NULL)
	hang();

	memset(dev, 0, sizeof(*dev));
	sprintf(dev->name, "Blackfin EMAC");

	dev->iobase = 0;
	dev->priv = 0;
	dev->init = bfin_EMAC_init;
	dev->halt = bfin_EMAC_halt;
	dev->send = bfin_EMAC_send;
	dev->recv = bfin_EMAC_recv;

	eth_register(dev);

	#if defined(CONFIG_MII) \|\| defined(CONFIG_CMD_MII)
	miiphy_register(dev->name, bfin_miiphy_read, bfin_miiphy_write);
	#endif

	return 0;
	}

	static int bfin_EMAC_send(struct eth_device dev, volatile void packet,
	int length)
	{
	int i;
	int result = 0;
	unsigned int *buf;
	buf = (unsigned int *)packet;

	if (length <= 0) {
	printf("Ethernet: bad packet size: %d\n", length);
	goto out;
	}

	if ((*pDMA2_IRQ_STATUS & DMA_ERR) != 0) {
	printf("Ethernet: tx DMA error\n");
	goto out;
	}

	for (i = 0; (*pDMA2_IRQ_STATUS & DMA_RUN) != 0; i++) {
	if (i > TOUT_LOOP) {
	puts("Ethernet: tx time out\n");
	goto out;
	}
	}
	txbuf[txIdx]->FrmData->NoBytes = length;
	memcpy(txbuf[txIdx]->FrmData->Dest, (void *)packet, length);
	txbuf[txIdx]->Dma[0].START_ADDR = (u32) txbuf[txIdx]->FrmData;
	*pDMA2_NEXT_DESC_PTR = txbuf[txIdx]->Dma;
	*pDMA2_CONFIG = txdmacfg.data;
	*pEMAC_OPMODE \|= TE;

	for (i = 0; (txbuf[txIdx]->StatusWord & TX_COMP) == 0; i++) {
	if (i > TOUT_LOOP) {
	puts("Ethernet: tx error\n");
	goto out;
	}
	}
	result = txbuf[txIdx]->StatusWord;
	txbuf[txIdx]->StatusWord = 0;
	if ((txIdx + 1) >= TX_BUF_CNT)
	txIdx = 0;
	else
	txIdx++;
	out:
	debug("BFIN EMAC send: length = %d\n", length);
	return result;
	}

	static int bfin_EMAC_recv(struct eth_device *dev)
	{
	int length = 0;

	for (;;) {
	if ((rxbuf[rxIdx]->StatusWord & RX_COMP) == 0) {
	length = -1;
	break;
	}
	if ((rxbuf[rxIdx]->StatusWord & RX_DMAO) != 0) {
	printf("Ethernet: rx dma overrun\n");
	break;
	}
	if ((rxbuf[rxIdx]->StatusWord & RX_OK) == 0) {
	printf("Ethernet: rx error\n");
	break;
	}
	length = rxbuf[rxIdx]->StatusWord & 0x000007FF;
	if (length <= 4) {
	printf("Ethernet: bad frame\n");
	break;
	}
	NetRxPackets[rxIdx] =
	(volatile uchar *)(rxbuf[rxIdx]->FrmData->Dest);
	NetReceive(NetRxPackets[rxIdx], length - 4);
	*pDMA1_IRQ_STATUS \|= DMA_DONE \| DMA_ERR;
	rxbuf[rxIdx]->StatusWord = 0x00000000;
	if ((rxIdx + 1) >= PKTBUFSRX)
	rxIdx = 0;
	else
	rxIdx++;
	}

	return length;
	}

	/**************************************************************
	*
	* Ethernet Initialization Routine
	*
	*************************************************************/

	/* MDC = SCLK / MDC_freq / 2 - 1 */
	#define MDC_FREQ_TO_DIV(mdc_freq) (get_sclk() / (mdc_freq) / 2 - 1)

	static int bfin_miiphy_init(struct eth_device dev, int opmode)
	{
	u16 phydat;
	size_t count;

	/* Enable PHY output */
	*pVR_CTL \|= CLKBUFOE;

	/* Set all the pins to peripheral mode */
	#ifdef CONFIG_RMII
	/* grab RMII pins */
	# if defined(__ADSPBF51x__)
	pPORTF_MUX = (pPORTF_MUX & \
	~(PORT_x_MUX_3_MASK \| PORT_x_MUX_4_MASK \| PORT_x_MUX_5_MASK)) \| \
	PORT_x_MUX_3_FUNC_1 \| PORT_x_MUX_4_FUNC_1 \| PORT_x_MUX_5_FUNC_1;
	*pPORTF_FER \|= PF8 \| PF9 \| PF10 \| PF11 \| PF12 \| PF13 \| PF14 \| PF15;
	pPORTG_MUX = (pPORTG_MUX & ~PORT_x_MUX_0_MASK) \| PORT_x_MUX_0_FUNC_1;
	*pPORTG_FER \|= PG0 \| PG1 \| PG2;
	# elif defined(__ADSPBF52x__)
	pPORTG_MUX = (pPORTG_MUX & ~PORT_x_MUX_6_MASK) \| PORT_x_MUX_6_FUNC_2;
	*pPORTG_FER \|= PG14 \| PG15;
	pPORTH_MUX = (pPORTH_MUX & ~(PORT_x_MUX_0_MASK \| PORT_x_MUX_1_MASK)) \| \
	PORT_x_MUX_0_FUNC_2 \| PORT_x_MUX_1_FUNC_2;
	*pPORTH_FER \|= PH0 \| PH1 \| PH2 \| PH3 \| PH4 \| PH5 \| PH6 \| PH7 \| PH8;
	# else
	*pPORTH_FER \|= PH0 \| PH1 \| PH4 \| PH5 \| PH6 \| PH8 \| PH9 \| PH14 \| PH15;
	# endif
	#else
	/* grab MII & RMII pins */
	# if defined(__ADSPBF51x__)
	pPORTF_MUX = (pPORTF_MUX & \
	~(PORT_x_MUX_0_MASK \| PORT_x_MUX_1_MASK \| PORT_x_MUX_3_MASK \| PORT_x_MUX_4_MASK \| PORT_x_MUX_5_MASK)) \| \
	PORT_x_MUX_0_FUNC_1 \| PORT_x_MUX_1_FUNC_1 \| PORT_x_MUX_3_FUNC_1 \| PORT_x_MUX_4_FUNC_1 \| PORT_x_MUX_5_FUNC_1;
	*pPORTF_FER \|= PF0 \| PF1 \| PF2 \| PF3 \| PF4 \| PF5 \| PF6 \| PF8 \| PF9 \| PF10 \| PF11 \| PF12 \| PF13 \| PF14 \| PF15;
	pPORTG_MUX = (pPORTG_MUX & ~PORT_x_MUX_0_MASK) \| PORT_x_MUX_0_FUNC_1;
	*pPORTG_FER \|= PG0 \| PG1 \| PG2;
	# elif defined(__ADSPBF52x__)
	pPORTG_MUX = (pPORTG_MUX & ~PORT_x_MUX_6_MASK) \| PORT_x_MUX_6_FUNC_2;
	*pPORTG_FER \|= PG14 \| PG15;
	*pPORTH_MUX = PORT_x_MUX_0_FUNC_2 \| PORT_x_MUX_1_FUNC_2 \| PORT_x_MUX_2_FUNC_2;
	pPORTH_FER = -1; / all pins */
	# else
	pPORTH_FER = -1; / all pins */
	# endif
	#endif

	/* Odd word alignment for Receive Frame DMA word */
	/* Configure checksum support and rcve frame word alignment */
	bfin_write_EMAC_SYSCTL(RXDWA \| RXCKS \| SET_MDCDIV(MDC_FREQ_TO_DIV(CONFIG_PHY_CLOCK_FREQ)));

	/* turn on auto-negotiation and wait for link to come up */
	bfin_miiphy_write(dev->name, CONFIG_PHY_ADDR, MII_BMCR, BMCR_ANENABLE);
	count = 0;
	while (1) {
	++count;
	if (bfin_miiphy_read(dev->name, CONFIG_PHY_ADDR, MII_BMSR, &phydat))
	return -1;
	if (phydat & BMSR_LSTATUS)
	break;
	if (count > 30000) {
	printf("%s: link down, check cable\n", dev->name);
	return -1;
	}
	udelay(100);
	}

	/* see what kind of link we have */
	if (bfin_miiphy_read(dev->name, CONFIG_PHY_ADDR, MII_LPA, &phydat))
	return -1;
	if (phydat & LPA_DUPLEX)
	*opmode = FDMODE;
	else
	*opmode = 0;

	bfin_write_EMAC_MMC_CTL(RSTC \| CROLL);

	/* Initialize the TX DMA channel registers */
	*pDMA2_X_COUNT = 0;
	*pDMA2_X_MODIFY = 4;
	*pDMA2_Y_COUNT = 0;
	*pDMA2_Y_MODIFY = 0;

	/* Initialize the RX DMA channel registers */
	*pDMA1_X_COUNT = 0;
	*pDMA1_X_MODIFY = 4;
	*pDMA1_Y_COUNT = 0;
	*pDMA1_Y_MODIFY = 0;

	return 0;
	}

	static int bfin_EMAC_init(struct eth_device dev, bd_t bd)
	{
	u32 opmode;
	int dat;
	int i;
	debug("Eth_init: ......\n");

	txIdx = 0;
	rxIdx = 0;

	/* Initialize System Register */
	if (bfin_miiphy_init(dev, &dat) < 0)
	return -1;

	/* Initialize EMAC address */
	bfin_EMAC_setup_addr(dev->enetaddr);

	/* Initialize TX and RX buffer */
	for (i = 0; i < PKTBUFSRX; i++) {
	rxbuf[i] = SetupRxBuffer(i);
	if (i > 0) {
	rxbuf[i - 1]->Dma[1].NEXT_DESC_PTR = rxbuf[i]->Dma;
	if (i == (PKTBUFSRX - 1))
	rxbuf[i]->Dma[1].NEXT_DESC_PTR = rxbuf[0]->Dma;
	}
	}
	for (i = 0; i < TX_BUF_CNT; i++) {
	txbuf[i] = SetupTxBuffer(i);
	if (i > 0) {
	txbuf[i - 1]->Dma[1].NEXT_DESC_PTR = txbuf[i]->Dma;
	if (i == (TX_BUF_CNT - 1))
	txbuf[i]->Dma[1].NEXT_DESC_PTR = txbuf[0]->Dma;
	}
	}

	/* Set RX DMA */
	*pDMA1_NEXT_DESC_PTR = rxbuf[0]->Dma;
	*pDMA1_CONFIG = rxbuf[0]->Dma[0].CONFIG_DATA;

	/* Wait MII done */
	bfin_miiphy_wait();

	/* We enable only RX here */
	/* ASTP : Enable Automatic Pad Stripping
	PR : Promiscuous Mode for test
	PSF : Receive frames with total length less than 64 bytes.
	FDMODE : Full Duplex Mode
	LB : Internal Loopback for test
	RE : Receiver Enable */
	if (dat == FDMODE)
	opmode = ASTP \| FDMODE \| PSF;
	else
	opmode = ASTP \| PSF;
	opmode \|= RE;
	#ifdef CONFIG_RMII
	opmode \|= TE \| RMII;
	#endif
	/* Turn on the EMAC */
	*pEMAC_OPMODE = opmode;
	return 0;
	}

	static void bfin_EMAC_halt(struct eth_device *dev)
	{
	debug("Eth_halt: ......\n");
	/* Turn off the EMAC */
	*pEMAC_OPMODE = 0x00000000;
	/* Turn off the EMAC RX DMA */
	*pDMA1_CONFIG = 0x0000;
	*pDMA2_CONFIG = 0x0000;

	}

	void bfin_EMAC_setup_addr(uchar *enetaddr)
	{
	*pEMAC_ADDRLO =
	enetaddr[0] \|
	enetaddr[1] << 8 \|
	enetaddr[2] << 16 \|
	enetaddr[3] << 24;
	*pEMAC_ADDRHI =
	enetaddr[4] \|
	enetaddr[5] << 8;
	}

	ADI_ETHER_BUFFER *SetupRxBuffer(int no)
	{
	ADI_ETHER_FRAME_BUFFER *frmbuf;
	ADI_ETHER_BUFFER *buf;
	int nobytes_buffer = sizeof(ADI_ETHER_BUFFER[2]) / 2; /* ensure a multi. of 4 */
	int total_size = nobytes_buffer + RECV_BUFSIZE;

	buf = (void ) (RXBUF_BASE_ADDR + no total_size);
	frmbuf = (void ) (RXBUF_BASE_ADDR + no total_size + nobytes_buffer);

	memset(buf, 0x00, nobytes_buffer);
	buf->FrmData = frmbuf;
	memset(frmbuf, 0xfe, RECV_BUFSIZE);

	/* set up first desc to point to receive frame buffer */
	buf->Dma[0].NEXT_DESC_PTR = &(buf->Dma[1]);
	buf->Dma[0].START_ADDR = (u32) buf->FrmData;
	buf->Dma[0].CONFIG.b_DMA_EN = 1; /* enabled */
	buf->Dma[0].CONFIG.b_WNR = 1; /* Write to memory */
	buf->Dma[0].CONFIG.b_WDSIZE = 2; /* wordsize is 32 bits */
	buf->Dma[0].CONFIG.b_NDSIZE = 5; /* 5 half words is desc size. */
	buf->Dma[0].CONFIG.b_FLOW = 7; /* large desc flow */

	/* set up second desc to point to status word */
	buf->Dma[1].NEXT_DESC_PTR = buf->Dma;
	buf->Dma[1].START_ADDR = (u32) & buf->IPHdrChksum;
	buf->Dma[1].CONFIG.b_DMA_EN = 1; /* enabled */
	buf->Dma[1].CONFIG.b_WNR = 1; /* Write to memory */
	buf->Dma[1].CONFIG.b_WDSIZE = 2; /* wordsize is 32 bits */
	buf->Dma[1].CONFIG.b_DI_EN = 1; /* enable interrupt */
	buf->Dma[1].CONFIG.b_NDSIZE = 5; /* must be 0 when FLOW is 0 */
	buf->Dma[1].CONFIG.b_FLOW = 7; /* stop */

	return buf;
	}

	ADI_ETHER_BUFFER *SetupTxBuffer(int no)
	{
	ADI_ETHER_FRAME_BUFFER *frmbuf;
	ADI_ETHER_BUFFER *buf;
	int nobytes_buffer = sizeof(ADI_ETHER_BUFFER[2]) / 2; /* ensure a multi. of 4 */
	int total_size = nobytes_buffer + RECV_BUFSIZE;

	buf = (void ) (TXBUF_BASE_ADDR + no total_size);
	frmbuf = (void ) (TXBUF_BASE_ADDR + no total_size + nobytes_buffer);

	memset(buf, 0x00, nobytes_buffer);
	buf->FrmData = frmbuf;
	memset(frmbuf, 0x00, RECV_BUFSIZE);

	/* set up first desc to point to receive frame buffer */
	buf->Dma[0].NEXT_DESC_PTR = &(buf->Dma[1]);
	buf->Dma[0].START_ADDR = (u32) buf->FrmData;
	buf->Dma[0].CONFIG.b_DMA_EN = 1; /* enabled */
	buf->Dma[0].CONFIG.b_WNR = 0; /* Read to memory */
	buf->Dma[0].CONFIG.b_WDSIZE = 2; /* wordsize is 32 bits */
	buf->Dma[0].CONFIG.b_NDSIZE = 5; /* 5 half words is desc size. */
	buf->Dma[0].CONFIG.b_FLOW = 7; /* large desc flow */

	/* set up second desc to point to status word */
	buf->Dma[1].NEXT_DESC_PTR = &(buf->Dma[0]);
	buf->Dma[1].START_ADDR = (u32) & buf->StatusWord;
	buf->Dma[1].CONFIG.b_DMA_EN = 1; /* enabled */
	buf->Dma[1].CONFIG.b_WNR = 1; /* Write to memory */
	buf->Dma[1].CONFIG.b_WDSIZE = 2; /* wordsize is 32 bits */
	buf->Dma[1].CONFIG.b_DI_EN = 1; /* enable interrupt */
	buf->Dma[1].CONFIG.b_NDSIZE = 0; /* must be 0 when FLOW is 0 */
	buf->Dma[1].CONFIG.b_FLOW = 0; /* stop */

	return buf;
	}

	#if defined(CONFIG_POST) && defined(CONFIG_SYS_POST_ETHER)
	int ether_post_test(int flags)
	{
	uchar buf[64];
	int i, value = 0;
	int length;

	printf("\n--------");
	bfin_EMAC_init(NULL, NULL);
	/* construct the package */
	buf[0] = buf[6] = (unsigned char)(*pEMAC_ADDRLO & 0xFF);
	buf[1] = buf[7] = (unsigned char)((*pEMAC_ADDRLO & 0xFF00) >> 8);
	buf[2] = buf[8] = (unsigned char)((*pEMAC_ADDRLO & 0xFF0000) >> 16);
	buf[3] = buf[9] = (unsigned char)((*pEMAC_ADDRLO & 0xFF000000) >> 24);
	buf[4] = buf[10] = (unsigned char)(*pEMAC_ADDRHI & 0xFF);
	buf[5] = buf[11] = (unsigned char)((*pEMAC_ADDRHI & 0xFF00) >> 8);
	buf[12] = 0x08; /* Type: ARP */
	buf[13] = 0x06;
	buf[14] = 0x00; /* Hardware type: Ethernet */
	buf[15] = 0x01;
	buf[16] = 0x08; /* Protocal type: IP */
	buf[17] = 0x00;
	buf[18] = 0x06; /* Hardware size */
	buf[19] = 0x04; /* Protocol size */
	buf[20] = 0x00; /* Opcode: request */
	buf[21] = 0x01;

	for (i = 0; i < 42; i++)
	buf[i + 22] = i;
	printf("--------Send 64 bytes......\n");
	bfin_EMAC_send(NULL, (volatile void *)buf, 64);
	for (i = 0; i < 100; i++) {
	udelay(10000);
	if ((rxbuf[rxIdx]->StatusWord & RX_COMP) != 0) {
	value = 1;
	break;
	}
	}
	if (value == 0) {
	printf("--------EMAC can't receive any data\n");
	eth_halt();
	return -1;
	}
	length = rxbuf[rxIdx]->StatusWord & 0x000007FF - 4;
	for (i = 0; i < length; i++) {
	if (rxbuf[rxIdx]->FrmData->Dest[i] != buf[i]) {
	printf("--------EMAC receive error data!\n");
	eth_halt();
	return -1;
	}
	}
	printf("--------receive %d bytes, matched\n", length);
	bfin_EMAC_halt(NULL);
	return 0;
	}
	#endif