patch-1.3.94 linux/drivers/net/a2065.c

Next file: linux/drivers/net/a2065.h
Previous file: linux/drivers/char/tty_io.c
Back to the patch index
Back to the overall index

diff -u --recursive --new-file v1.3.93/linux/drivers/net/a2065.c linux/drivers/net/a2065.c
@@ -0,0 +1,798 @@
+/*
+ * Amiga Linux/68k A2065 Ethernet Driver
+ *
+ * (C) Copyright 1995 by Geert Uytterhoeven
+ *                      (Geert.Uytterhoeven@cs.kuleuven.ac.be)
+ *
+ * Fixes and tips by:
+ *	- Janos Farkas (CHEXUM@sparta.banki.hu)
+ *	- Jes Degn Soerensen (jds@kom.auc.dk)
+ *
+ * ----------------------------------------------------------------------------
+ *
+ * This program is based on
+ *
+ *	ariadne.?:	Amiga Linux/68k Ariadne Ethernet Driver
+ *			(C) Copyright 1995 by Geert Uytterhoeven,
+ *                                            Peter De Schrijver
+ *
+ *	lance.c:	An AMD LANCE ethernet driver for linux.
+ *			Written 1993-94 by Donald Becker.
+ *
+ *	Am79C960:	PCnet(tm)-ISA Single-Chip Ethernet Controller
+ *			Advanced Micro Devices
+ *			Publication #16907, Rev. B, Amendment/0, May 1994
+ *
+ * ----------------------------------------------------------------------------
+ *
+ * This file is subject to the terms and conditions of the GNU General Public
+ * License.  See the file README.legal in the main directory of the Linux/68k
+ * distribution for more details.
+ *
+ * ----------------------------------------------------------------------------
+ *
+ * The A2065 is a Zorro-II board made by Commodore/Ameristar. It contains:
+ *
+ *	- an Am7990 Local Area Network Controller for Ethernet (LANCE) with
+ *	  both 10BASE-2 (thin coax) and AUI (DB-15) connectors
+ */
+
+#include <stddef.h>
+
+#include <linux/kernel.h>
+#include <linux/sched.h>
+#include <linux/string.h>
+#include <linux/ptrace.h>
+#include <linux/errno.h>
+#include <linux/ioport.h>
+#include <linux/malloc.h>
+#include <linux/interrupt.h>
+#include <linux/netdevice.h>
+#include <linux/etherdevice.h>
+#include <linux/skbuff.h>
+
+#include <asm/bitops.h>
+#include <asm/io.h>
+#include <asm/irq.h>
+
+#include <asm/bootinfo.h>
+#include <asm/amigaints.h>
+#include <asm/amigahw.h>
+#include <asm/zorro.h>
+
+#include "a2065.h"
+
+#ifdef A2065_DEBUG
+int a2065_debug = A2065_DEBUG;
+#else
+int a2065_debug = 1;
+#endif
+
+
+	/*
+	 *		Transmit/Receive Ring Definitions
+	 */
+
+#define LANCE_LOG_TX_BUFFERS	(2)
+#define LANCE_LOG_RX_BUFFERS	(4)
+
+#define TX_RING_SIZE		(1<<LANCE_LOG_TX_BUFFERS)
+#define RX_RING_SIZE		(1<<LANCE_LOG_RX_BUFFERS)
+
+#define TX_RING_MOD_MASK	(TX_RING_SIZE-1)
+#define RX_RING_MOD_MASK	(RX_RING_SIZE-1)
+
+#define PKT_BUF_SIZE		(1520)
+
+
+	/*
+	 *		Private Device Data
+	 */
+
+struct a2065_private {
+	struct A2065Board *board;
+	struct TDRE *tx_ring[TX_RING_SIZE];
+	struct RDRE *rx_ring[RX_RING_SIZE];
+	u_char *tx_buff[TX_RING_SIZE];
+	u_char *rx_buff[RX_RING_SIZE];
+	int cur_tx, cur_rx;		/* The next free ring entry */
+	int dirty_tx;			/* The ring entries to be free()ed. */
+	struct enet_statistics stats;
+	char tx_full;
+	unsigned long lock;
+};
+
+
+	/*
+	 *		Structure Created in the A2065's RAM Buffer
+	 */
+
+struct lancedata {
+	struct InitBlock init;
+	struct TDRE tx_ring[TX_RING_SIZE];
+	struct RDRE rx_ring[RX_RING_SIZE];
+	u_char tx_buff[TX_RING_SIZE][PKT_BUF_SIZE];
+	u_char rx_buff[RX_RING_SIZE][PKT_BUF_SIZE];
+};
+
+
+static int a2065_open(struct device *dev);
+static void a2065_init_ring(struct device *dev);
+static int a2065_start_xmit(struct sk_buff *skb, struct device *dev);
+static int a2065_rx(struct device *dev);
+static void a2065_interrupt(int irq, struct pt_regs *fp, void *data);
+static int a2065_close(struct device *dev);
+static struct enet_statistics *a2065_get_stats(struct device *dev);
+static void set_multicast_list(struct device *dev);
+
+
+int a2065_probe(struct device *dev)
+{
+	int key1, key2;
+	struct ConfigDev *cd;
+	u_long board;
+	u_long sn;
+	struct a2065_private *priv;
+
+	if ((key1 = zorro_find(MANUF_COMMODORE, PROD_A2065, 0, 0)) ||
+	    (key2 = zorro_find(MANUF_AMERISTAR, PROD_AMERISTAR2065, 0, 0))) {
+		cd = zorro_get_board(key1 ? key1 : key2);
+		if ((board = (u_long)cd->cd_BoardAddr)) {
+			sn = cd->cd_Rom.er_SerialNumber;
+			if (key1) {			/* Commodore */
+				dev->dev_addr[0] = 0x00;
+				dev->dev_addr[1] = 0x80;
+				dev->dev_addr[2] = 0x10;
+			} else {			/* Ameristar */
+				dev->dev_addr[0] = 0x00;
+				dev->dev_addr[1] = 0x00;
+				dev->dev_addr[2] = 0x9f;
+			}
+			dev->dev_addr[3] = (sn>>16) & 0xff;
+			dev->dev_addr[4] = (sn>>8) & 0xff;
+			dev->dev_addr[5] = sn & 0xff;
+			printk("%s: A2065 at 0x%08lx, Ethernet Address %02x:%02x:%02x:%02x:%02x:%02x\n",
+			       dev->name, board, dev->dev_addr[0],
+			       dev->dev_addr[1], dev->dev_addr[2],
+			       dev->dev_addr[3], dev->dev_addr[4],
+			       dev->dev_addr[5]);
+
+			init_etherdev(dev, 0);
+
+			dev->priv = kmalloc(sizeof(struct
+						   a2065_private),
+					    GFP_KERNEL);
+			priv = (struct a2065_private *)dev->priv;
+			memset(priv, 0, sizeof(struct a2065_private));
+
+			priv->board = (struct A2065Board *)ZTWO_VADDR(board);
+
+			dev->open = &a2065_open;
+			dev->stop = &a2065_close;
+			dev->hard_start_xmit = &a2065_start_xmit;
+			dev->get_stats = &a2065_get_stats;
+			dev->set_multicast_list = &set_multicast_list;
+
+			zorro_config_board(key1 ? key1 : key2, 0);
+			return(0);
+		}
+	}
+	return(ENODEV);
+}
+
+
+static int a2065_open(struct device *dev)
+{
+	struct a2065_private *priv = (struct a2065_private *)dev->priv;
+	struct A2065Board *board = priv->board;
+	static int interruptinstalled = 0;
+	struct lancedata *lancedata;		/* LANCE point of view */
+	struct lancedata *alancedata;		/* Amiga point of view */
+
+	lancedata = (struct lancedata *)offsetof(struct A2065Board, RAM);
+	alancedata = (struct lancedata *)board->RAM;
+
+	/* Stop the LANCE */
+	board->Lance.RAP = CSR0;		/* LANCE Controller Status */
+	board->Lance.RDP = STOP;
+
+	/* Enable big endian byte ordering */
+	board->Lance.RAP = CSR3;		/* CSR3 */
+	board->Lance.RDP = BSWP;
+
+	/* Set the Init Block Pointer */
+	board->Lance.RAP = CSR1;		/* IADR[15:0] */
+	board->Lance.RDP = (u_long)&lancedata->init;
+	board->Lance.RAP = CSR2;		/* IADR[23:16] */
+	board->Lance.RDP = 0x0000;
+
+	/* Set the Mode */
+	alancedata->init.Mode = 0;
+
+	/* Set the Ethernet Hardware Address */
+	                    /* Physical Address Register */
+	alancedata->init.PADR[0] = dev->dev_addr[1];
+	alancedata->init.PADR[1] = dev->dev_addr[0];
+	alancedata->init.PADR[2] = dev->dev_addr[3];
+	alancedata->init.PADR[3] = dev->dev_addr[2];
+	alancedata->init.PADR[4] = dev->dev_addr[5];
+	alancedata->init.PADR[5] = dev->dev_addr[4];
+
+	/* Set the Multicast Table */
+	                    /* Logical Address Filter, LADRF[31:0] */
+	alancedata->init.LADRF[0] = 0x00000000;
+	                    /* Logical Address Filter, LADRF[63:32] */	
+	alancedata->init.LADRF[1] = 0x00000000;
+
+	/* Set the Receive and Transmit Descriptor Ring Pointers */
+	alancedata->init.RDRA = (u_long)&lancedata->rx_ring;
+	alancedata->init.RLEN = LANCE_LOG_RX_BUFFERS << 13;
+	alancedata->init.TDRA = (u_long)&lancedata->tx_ring;
+	alancedata->init.TLEN = LANCE_LOG_TX_BUFFERS << 13;
+
+	/* Initialise the Rings */
+	a2065_init_ring(dev);
+
+
+	/* Install the Interrupt handler */
+	if (!interruptinstalled) {
+		if (!add_isr(IRQ_AMIGA_PORTS, a2065_interrupt, 0, dev,
+					 "a2065 Ethernet"))
+			return(-EAGAIN);
+		interruptinstalled = 1;
+	}
+
+	/* Make the LANCE read the Init Block */
+	board->Lance.RAP = CSR0;		/* LANCE Controller Status */
+	board->Lance.RDP = INEA|INIT;
+
+	dev->tbusy = 0;
+	dev->interrupt = 0;
+	dev->start = 1;
+
+	return(0);
+}
+
+
+static void a2065_init_ring(struct device *dev)
+{
+	struct a2065_private *priv = (struct a2065_private *)dev->priv;
+	struct A2065Board *board = priv->board;
+	struct lancedata *lancedata;		/* LANCE point of view */
+	struct lancedata *alancedata;		/* Amiga point of view */
+	int i;
+
+	priv->lock = 0, priv->tx_full = 0;
+	priv->cur_rx = priv->cur_tx = 0;
+	priv->dirty_tx = 0;
+
+	lancedata = (struct lancedata *)offsetof(struct A2065Board, RAM);
+	alancedata = (struct lancedata *)board->RAM;
+
+	/* Set up TX Ring */
+	for (i = 0; i < TX_RING_SIZE; i++) {
+		alancedata->tx_ring[i].TMD0 = (u_long)lancedata->tx_buff[i];
+		alancedata->tx_ring[i].TMD1 = TF_STP|TF_ENP;
+		alancedata->tx_ring[i].TMD2 = -PKT_BUF_SIZE;
+		alancedata->tx_ring[i].TMD3 = 0x0000;
+		priv->tx_ring[i] = &alancedata->tx_ring[i];
+		priv->tx_buff[i] = alancedata->tx_buff[i];
+#if 0
+		printk("TX Entry %2d @ 0x%08x (LANCE 0x%08x), Buf @ 0x%08x (LANCE 0x%08x)\n", i,
+		       (int)&alancedata->tx_ring[i],
+		       (int)&lancedata->tx_ring[i],
+		       (int)alancedata->tx_buff[i],
+		       (int)lancedata->tx_buff[i]);
+#endif
+	}
+
+	/* Set up RX Ring */
+	for (i = 0; i < RX_RING_SIZE; i++) {
+		alancedata->rx_ring[i].RMD0 = (u_long)lancedata->rx_buff[i];
+		alancedata->rx_ring[i].RMD1 = RF_OWN;
+		alancedata->rx_ring[i].RMD2 = -PKT_BUF_SIZE;
+		alancedata->rx_ring[i].RMD3 = 0x0000;
+		priv->rx_ring[i] = &alancedata->rx_ring[i];
+		priv->rx_buff[i] = alancedata->rx_buff[i];
+#if 0
+		printk("RX Entry %2d @ 0x%08x (LANCE 0x%08x), Buf @ 0x%08x (LANCE 0x%08x)\n", i,
+		       (int)&alancedata->rx_ring[i],
+		       (int)&lancedata->rx_ring[i],
+		       (int)alancedata->rx_buff[i],
+		       (int)lancedata->rx_buff[i]);
+#endif
+	}
+}
+
+
+static int a2065_close(struct device *dev)
+{
+	struct a2065_private *priv = (struct a2065_private *)dev->priv;
+	struct A2065Board *board = priv->board;
+
+	dev->start = 0;
+	dev->tbusy = 1;
+
+	board->Lance.RAP = CSR0;		/* LANCE Controller Status */
+
+	if (a2065_debug > 1) {
+	  printk("%s: Shutting down ethercard, status was %2.2x.\n",
+		 dev->name, board->Lance.RDP);
+	  printk("%s: %d packets missed\n", dev->name,
+		 priv->stats.rx_missed_errors);
+	}
+
+	/* We stop the LANCE here - it occasionally polls memory if we don't */
+	board->Lance.RDP = STOP;
+
+	return(0);
+}
+
+
+static void a2065_interrupt(int irq, struct pt_regs *fp, void *data)
+{
+	struct device *dev = (struct device *)data;
+	struct a2065_private *priv;
+	struct A2065Board *board;
+	int csr0, boguscnt = 10;
+
+	if (dev == NULL) {
+		printk("a2065_interrupt(): irq for unknown device.\n");
+		return;
+	}
+
+	priv = (struct a2065_private *)dev->priv;
+	board = priv->board;
+
+	board->Lance.RAP = CSR0;	/* LANCE Controller Status */
+
+	if (!(board->Lance.RDP & INTR)) /* Check if any interrrupt has
+					   been generated by the board. */
+		return;
+
+	if (dev->interrupt)
+		printk("%s: Re-entering the interrupt handler.\n", dev->name);
+
+	dev->interrupt = 1;
+
+	while ((csr0 = board->Lance.RDP) & (ERR|RINT|TINT) && --boguscnt >= 0){
+		/* Acknowledge all of the current interrupt sources ASAP. */
+		board->Lance.RDP = csr0 & ~(INEA|TDMD|STOP|STRT|INIT);
+
+#if 0
+		if (a2065_debug > 5) {
+		  printk("%s: interrupt  csr0=%#2.2x new csr=%#2.2x.",
+			 dev->name, csr0, board->Lance.RDP);
+		  printk("[");
+		  if (csr0 & INTR)
+		    printk(" INTR");
+		  if (csr0 & INEA)
+		    printk(" INEA");
+		  if (csr0 & RXON)
+		    printk(" RXON");
+		  if (csr0 & TXON)
+		    printk(" TXON");
+		  if (csr0 & TDMD)
+		    printk(" TDMD");
+		  if (csr0 & STOP)
+		    printk(" STOP");
+		  if (csr0 & STRT)
+		    printk(" STRT");
+		  if (csr0 & INIT)
+		    printk(" INIT");
+		  if (csr0 & ERR)
+		    printk(" ERR");
+		  if (csr0 & BABL)
+		    printk(" BABL");
+		  if (csr0 & CERR)
+		    printk(" CERR");
+		  if (csr0 & MISS)
+		    printk(" MISS");
+		  if (csr0 & MERR)
+		    printk(" MERR");
+		  if (csr0 & RINT)
+		    printk(" RINT");
+		  if (csr0 & TINT)
+		    printk(" TINT");
+		  if (csr0 & IDON)
+		    printk(" IDON");
+		  printk(" ]\n");
+		}
+#endif
+
+		if (csr0 & RINT)			/* Rx interrupt */
+			a2065_rx(dev);
+
+		if (csr0 & TINT) {			/* Tx-done interrupt */
+			int dirty_tx = priv->dirty_tx;
+
+			while (dirty_tx < priv->cur_tx) {
+				int entry = dirty_tx % TX_RING_SIZE;
+				int status =
+				  priv->tx_ring[entry]->TMD1 & 0xff00;
+
+				if (status & TF_OWN)
+					break;	/* It still hasn't been Txed */
+
+				priv->tx_ring[entry]->TMD1 &= 0x00ff;
+
+				if (status & TF_ERR) {
+					/* There was an major error, log it. */
+					int err_status =
+					  priv->tx_ring[entry]->TMD3;
+					priv->stats.tx_errors++;
+					if (err_status & EF_RTRY)
+					  priv->stats.tx_aborted_errors++;
+					if (err_status & EF_LCAR)
+					  priv->stats.tx_carrier_errors++;
+					if (err_status & EF_LCOL)
+					  priv->stats.tx_window_errors++;
+					if (err_status & EF_UFLO) {
+		         /* Ackk!  On FIFO errors the Tx unit is turned off! */
+					  priv->stats.tx_fifo_errors++;
+					  /* Remove this verbosity later! */
+					  printk("%s: Tx FIFO error! Status %4.4x.\n", dev->name, csr0);
+					  /* Restart the chip. */
+					  board->Lance.RDP = STRT;
+					}
+				} else {
+					if (status & (TF_MORE|TF_ONE))
+					  priv->stats.collisions++;
+					priv->stats.tx_packets++;
+				}
+				dirty_tx++;
+			}
+
+#ifndef final_version
+			if (priv->cur_tx - dirty_tx >= TX_RING_SIZE) {
+				printk("out-of-sync dirty pointer, %d vs. %d, full=%d.\n",
+				       dirty_tx, priv->cur_tx, priv->tx_full);
+				dirty_tx += TX_RING_SIZE;
+			}
+#endif
+
+			if (priv->tx_full && dev->tbusy && dirty_tx >
+			    priv->cur_tx - TX_RING_SIZE + 2) {
+				/* The ring is no longer full, clear tbusy. */
+				priv->tx_full = 0;
+				dev->tbusy = 0;
+				mark_bh(NET_BH);
+			}
+
+			priv->dirty_tx = dirty_tx;
+		}
+
+		/* Log misc errors. */
+		if (csr0 & BABL)
+			priv->stats.tx_errors++;       /* Tx babble. */
+		if (csr0 & MISS)
+			priv->stats.rx_errors++;       /* Missed a Rx frame. */
+		if (csr0 & MERR) {
+			printk("%s: Bus master arbitration failure, status %4.4x.\n", dev->name, csr0);
+			/* Restart the chip. */
+			board->Lance.RDP = STRT;
+		}
+	}
+
+	/* Clear any other interrupt, and set interrupt enable. */
+	board->Lance.RAP = CSR0;		/* LANCE Controller Status */
+	board->Lance.RDP = INEA|BABL|CERR|MISS|MERR|IDON;
+
+#if 0
+	if (a2065_debug > 4)
+		printk("%s: exiting interrupt, csr%d=%#4.4x.\n",
+		       dev->name, board->Lance.RAP, board->Lance.RDP);
+#endif
+
+	dev->interrupt = 0;
+	return;
+}
+
+
+static int a2065_start_xmit(struct sk_buff *skb, struct device *dev)
+{
+	struct a2065_private *priv = (struct a2065_private *)dev->priv;
+	struct A2065Board *board = priv->board;
+	int entry;
+
+	/* Transmitter timeout, serious problems. */
+	if (dev->tbusy) {
+		int tickssofar = jiffies - dev->trans_start;
+		if (tickssofar < 20)
+			return(1);
+		board->Lance.RAP = CSR0;	/* LANCE Controller Status */
+		printk("%s: transmit timed out, status %4.4x, resetting.\n", dev->name, board->Lance.RDP);
+		board->Lance.RDP = STOP;
+
+		/* Enable big endian byte ordering */
+		board->Lance.RAP = CSR3;			/* CSR3 */
+		board->Lance.RDP = BSWP;
+
+		priv->stats.tx_errors++;
+#ifndef final_version
+		{
+		  int i;
+		  printk(" Ring data dump: dirty_tx %d cur_tx %d%s cur_rx %d.",
+			 priv->dirty_tx, priv->cur_tx, priv->tx_full ?
+			 " (full)" : "", priv->cur_rx);
+		  for (i = 0 ; i < RX_RING_SIZE; i++)
+		    printk("%s %08x %04x %04x", i & 0x3 ? "" : "\n ",
+			   ((priv->rx_ring[i]->RMD1)<<16) |
+			   priv->rx_ring[i]->RMD0,
+			   -priv->rx_ring[i]->RMD2, priv->rx_ring[i]->RMD3);
+		  for (i = 0 ; i < TX_RING_SIZE; i++)
+		    printk("%s %08x %04x %04x", i & 0x3 ? "" : "\n ",
+			   ((priv->tx_ring[i]->TMD1)<<16) |
+			   priv->tx_ring[i]->TMD0,
+			   -priv->tx_ring[i]->TMD2, priv->tx_ring[i]->TMD3);
+			printk("\n");
+		}
+#endif
+		a2065_init_ring(dev);
+		board->Lance.RDP = INEA|INIT;
+
+		dev->tbusy = 0;
+		dev->trans_start = jiffies;
+
+		return(0);
+	}
+
+	if (skb == NULL) {
+		dev_tint(dev);
+		return(0);
+	}
+
+	if (skb->len <= 0)
+		return(0);
+
+#if 0
+	if (a2065_debug > 3) {
+		board->Lance.RAP = CSR0;	/* LANCE Controller Status */
+		printk("%s: a2065_start_xmit() called, csr0 %4.4x.\n",
+		       dev->name, board->Lance.RDP);
+		board->Lance.RDP = 0x0000;
+	}
+#endif
+
+	/*
+	 * Block a timer-based transmit from overlapping.  This could better be
+	 * done with atomic_swap(1, dev->tbusy), but set_bit() works as well.
+	 */
+	if (set_bit(0, (void*)&dev->tbusy) != 0) {
+		printk("%s: Transmitter access conflict.\n", dev->name);
+		return(1);
+	}
+
+	if (set_bit(0, (void*)&priv->lock) != 0) {
+		if (a2065_debug > 0)
+			printk("%s: tx queue lock!.\n", dev->name);
+		/* don't clear dev->tbusy flag. */
+		return(1);
+	}
+
+	/* Fill in a Tx ring entry */
+
+#if 0
+	printk("TX pkt type 0x%04x from ", ((u_short *)skb->data)[6]);
+	{
+		int i;
+		u_char *ptr = &((u_char *)skb->data)[6];
+		for (i = 0; i < 6; i++)
+			printk("%02x", ptr[i]);
+	}
+	printk(" to ");
+	{
+		int i;
+		u_char *ptr = (u_char *)skb->data;
+		for (i = 0; i < 6; i++)
+			printk("%02x", ptr[i]);
+	}
+	printk(" data 0x%08x len %d\n", (int)skb->data, (int)skb->len);
+#endif
+
+	entry = priv->cur_tx % TX_RING_SIZE;
+
+	priv->tx_ring[entry]->TMD2 = -(ETH_ZLEN < skb->len ? skb->len : ETH_ZLEN);
+	priv->tx_ring[entry]->TMD3 = 0x0000;
+	memcpy(priv->tx_buff[entry], skb->data, skb->len);
+
+#if 0
+	{
+		int i, len;
+
+		len = skb->len > 64 ? 64 : skb->len;
+		for (i = 0; i < len; i += 8) {
+			int j;
+			printk("%02x:", i);
+			for (j = 0; (j < 16) && ((i+j) < len); j++) {
+				if (!(j & 1))
+					printk(" ");
+				printk("%02x", priv->tx_buff[entry][i+j]);
+			}
+			printk("\n");
+		}
+	}
+#endif
+
+	priv->tx_ring[entry]->TMD1 = (priv->tx_ring[entry]->TMD1 &
+				      0x00ff)|TF_OWN|TF_STP|TF_ENP;
+
+	dev_kfree_skb(skb, FREE_WRITE);
+
+	priv->cur_tx++;
+	if ((priv->cur_tx >= TX_RING_SIZE)&&(priv->dirty_tx >= TX_RING_SIZE)){
+
+#if 0
+	  printk("*** Subtracting TX_RING_SIZE from cur_tx (%d) and dirty_tx (%d)\n",
+		 priv->cur_tx, priv->dirty_tx);
+#endif
+
+		priv->cur_tx -= TX_RING_SIZE;
+		priv->dirty_tx -= TX_RING_SIZE;
+	}
+
+	/* Trigger an immediate send poll. */
+	board->Lance.RAP = CSR0;		/* LANCE Controller Status */
+	board->Lance.RDP = INEA|TDMD;
+
+	dev->trans_start = jiffies;
+
+	cli();
+	priv->lock = 0;
+	if ((priv->tx_ring[(entry+1) % TX_RING_SIZE]->TMD1 & 0xff00) == 0)
+		dev->tbusy = 0;
+	else
+		priv->tx_full = 1;
+	sti();
+
+	return(0);
+}
+
+
+static int a2065_rx(struct device *dev)
+{
+	struct a2065_private *priv = (struct a2065_private *)dev->priv;
+	int entry = priv->cur_rx % RX_RING_SIZE;
+	int i;
+
+	/* If we own the next entry, it's a new packet. Send it up. */
+	while (!(priv->rx_ring[entry]->RMD1 & RF_OWN)) {
+		int status = priv->rx_ring[entry]->RMD1 & 0xff00;
+
+		if (status != (RF_STP|RF_ENP)) {      /* There was an error. */
+		  /* There is a tricky error noted by John Murphy,
+		     <murf@perftech.com> to Russ Nelson: Even with full-sized
+		     buffers it's possible for a jabber packet to use two
+		     buffers, with only the last correctly noting the error. */
+			if (status & RF_ENP)
+			  /* Only count a general error at the */
+				priv->stats.rx_errors++; /* end of a packet.*/
+			if (status & RF_FRAM)
+				priv->stats.rx_frame_errors++;
+			if (status & RF_OFLO)
+				priv->stats.rx_over_errors++;
+			if (status & RF_CRC)
+				priv->stats.rx_crc_errors++;
+			if (status & RF_BUFF)
+				priv->stats.rx_fifo_errors++;
+			priv->rx_ring[entry]->RMD1 &= 0x00ff|RF_STP|RF_ENP;
+		} else {
+			/* Malloc up new buffer, compatible with net-3. */
+			short pkt_len = priv->rx_ring[entry]->RMD3;
+			struct sk_buff *skb;
+
+			if(pkt_len<60)
+			{
+				printk("%s: Runt packet!\n",dev->name);
+				priv->stats.rx_errors++;
+			}
+			else
+			{
+				skb = dev_alloc_skb(pkt_len+2);
+				if (skb == NULL) {
+					printk("%s: Memory squeeze, deferring packet.\n", dev->name);
+					for (i = 0; i < RX_RING_SIZE; i++)
+						if (priv->rx_ring[(entry+i) % RX_RING_SIZE]->RMD1 & RF_OWN)
+							break;
+
+					if (i > RX_RING_SIZE-2) {
+						priv->stats.rx_dropped++;
+						priv->rx_ring[entry]->RMD1 |= RF_OWN;
+						priv->cur_rx++;
+					}
+					break;
+				}
+				skb->dev = dev;
+				skb_reserve(skb,2);	/* 16 byte align */
+				skb_put(skb,pkt_len);	/* Make room */
+				eth_copy_and_sum(skb,
+						 priv->rx_buff[entry],
+						 pkt_len,0);
+				skb->protocol=eth_type_trans(skb,dev);
+#if 0
+				printk("RX pkt type 0x%04x from ", 
+				       ((u_short *)skb->data)[6]);
+				{
+				  int i;
+				  u_char *ptr = &((u_char *)skb->data)[6];
+				  for (i = 0; i < 6; i++)
+				    printk("%02x", ptr[i]);
+				}
+				printk(" to ");
+				{
+				  int i;
+				  u_char *ptr = (u_char *)skb->data;
+				  for (i = 0; i < 6; i++)
+				    printk("%02x", ptr[i]);
+				}
+				printk(" data 0x%08x len %d\n",
+				       (int)skb->data, (int)skb->len);
+#endif
+
+				netif_rx(skb);
+				priv->stats.rx_packets++;
+			}
+		}
+		priv->rx_ring[entry]->RMD1 |= RF_OWN;
+		entry = (++priv->cur_rx) % RX_RING_SIZE;
+	}
+
+	priv->cur_rx = priv->cur_rx % RX_RING_SIZE;
+
+	/* We should check that at least two ring entries are free.
+	   If not, we should free one and mark stats->rx_dropped++. */
+
+	return(0);
+}
+
+
+static struct enet_statistics *a2065_get_stats(struct device *dev)
+{
+	struct a2065_private *priv = (struct a2065_private *)dev->priv;
+
+	return(&priv->stats);
+}
+
+
+/* Set or clear the multicast filter for this adaptor.
+ */
+static void set_multicast_list(struct device *dev)
+{
+	struct a2065_private *priv = (struct a2065_private *)dev->priv;
+	struct A2065Board *board = priv->board;
+	struct lancedata *alancedata;	      /* Amiga point of view */
+	alancedata = (struct lancedata *)board->RAM;
+
+	/* We take the simple way out and always enable promiscuous mode. */
+	board->Lance.RAP = CSR0;	      /* LANCE Controller Status */
+	board->Lance.RDP = STOP;	      /* Temporarily stop the lance. */
+
+	/* Enable big endian byte ordering */
+	board->Lance.RAP = CSR3;	      /* CSR3 */
+	board->Lance.RDP = BSWP;
+
+	if (dev->flags&IFF_PROMISC) {
+	  /* Log any net taps. */
+	  printk("%s: Promiscuous mode enabled.\n", dev->name);
+	  alancedata->init.Mode = PROM;	      /* Set promiscuous mode */
+	} else {
+	  short multicast_table[4];
+	  int num_addrs=dev->mc_count;
+	  if(dev->flags&IFF_ALLMULTI)
+		num_addrs=1;
+	  /*
+	   * We don't use the multicast table,
+	   * but rely on upper-layer filtering.
+	   */
+	  memset(multicast_table, (num_addrs == 0) ? 0 : -1,
+		 sizeof(multicast_table));
+	  alancedata->init.LADRF[0] = multicast_table[0]<<16 |
+	    multicast_table[1];
+	  alancedata->init.LADRF[1] = multicast_table[2]<<16 |
+	    multicast_table[3];
+	  alancedata->init.Mode = 0x0000;
+	}
+
+	board->Lance.RAP = CSR0;	        /* LANCE Controller Status */
+	board->Lance.RDP = INEA|STRT|IDON|INIT;	/* Resume normal operation. */
+}

FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen, slshen@lbl.gov with Sam's (original) version
of this