minix/drivers/dp8390/wdeth.c

369 lines
9.5 KiB
C

/*
wdeth.c
Created: March 14, 1994 by Philip Homburg
*/
#include "../drivers.h"
#include <net/gen/ether.h>
#include <net/gen/eth_io.h>
#include "assert.h"
#include "local.h"
#include "dp8390.h"
#include "wdeth.h"
#if ENABLE_WDETH
#define WET_ETHERNET 0x01 /* Ethernet transceiver */
#define WET_STARLAN 0x02 /* Starlan transceiver */
#define WET_INTERF_CHIP 0x04 /* has a WD83C583 interface chip */
#define WET_BRD_16BIT 0x08 /* 16 bit board */
#define WET_SLT_16BIT 0x10 /* 16 bit slot */
#define WET_790 0x20 /* '790 chip */
static int we_int_table[8]= { 9, 3, 5, 7, 10, 11, 15, 4 };
static int we_790int_table[8]= { 0, 9, 3, 5, 7, 10, 11, 15 };
_PROTOTYPE( static void we_init, (dpeth_t *dep) );
_PROTOTYPE( static void we_stop, (dpeth_t *dep) );
_PROTOTYPE( static int we_aliasing, (dpeth_t *dep) );
_PROTOTYPE( static int we_interface_chip, (dpeth_t *dep) );
_PROTOTYPE( static int we_16bitboard, (dpeth_t *dep) );
_PROTOTYPE( static int we_16bitslot, (dpeth_t *dep) );
_PROTOTYPE( static int we_ultra, (dpeth_t *dep) );
/*===========================================================================*
* wdeth_probe *
*===========================================================================*/
int wdeth_probe(dep)
dpeth_t *dep;
{
int sum;
if (dep->de_linmem == 0)
return 0; /* No shared memory, so no WD board */
sum = inb_we(dep, EPL_EA0) + inb_we(dep, EPL_EA1) +
inb_we(dep, EPL_EA2) + inb_we(dep, EPL_EA3) +
inb_we(dep, EPL_EA4) + inb_we(dep, EPL_EA5) +
inb_we(dep, EPL_TLB) + inb_we(dep, EPL_CHKSUM);
if ((sum & 0xFF) != 0xFF)
return 0; /* No ethernet board at this address */
dep->de_initf= we_init;
dep->de_stopf= we_stop;
dep->de_prog_IO= 0;
return 1;
}
/*===========================================================================*
* we_init *
*===========================================================================*/
static void we_init(dep)
dpeth_t *dep;
{
int i, int_indx, int_nr;
int tlb, rambit, revision;
int icr, irr, hwr, b, gcr;
int we_type;
int sendq_nr;
assert(dep->de_mode == DEM_ENABLED);
assert(!(dep->de_flags & DEF_ENABLED));
dep->de_address.ea_addr[0] = inb_we(dep, EPL_EA0);
dep->de_address.ea_addr[1] = inb_we(dep, EPL_EA1);
dep->de_address.ea_addr[2] = inb_we(dep, EPL_EA2);
dep->de_address.ea_addr[3] = inb_we(dep, EPL_EA3);
dep->de_address.ea_addr[4] = inb_we(dep, EPL_EA4);
dep->de_address.ea_addr[5] = inb_we(dep, EPL_EA5);
dep->de_dp8390_port= dep->de_base_port + EPL_DP8390;
dep->de_16bit= 0;
we_type= 0;
we_type |= WET_ETHERNET; /* assume ethernet */
if (we_ultra(dep))
we_type |= WET_790;
if (!we_aliasing(dep))
{
if (we_interface_chip(dep))
we_type |= WET_INTERF_CHIP;
if (we_16bitboard(dep))
{
we_type |= WET_BRD_16BIT;
if (we_16bitslot(dep))
we_type |= WET_SLT_16BIT;
}
}
if (we_type & WET_SLT_16BIT)
dep->de_16bit= 1;
/* look at the on board ram size. */
tlb= inb_we(dep, EPL_TLB);
revision= tlb & E_TLB_REV;
rambit= tlb & E_TLB_RAM;
if (dep->de_ramsize != 0)
{
/* size set from boot environment. */
}
else if (revision < 2)
{
dep->de_ramsize= 0x2000; /* 8K */
if (we_type & WET_BRD_16BIT)
dep->de_ramsize= 0x4000; /* 16K */
else if ((we_type & WET_INTERF_CHIP) &&
inb_we(dep, EPL_ICR) & E_ICR_MEMBIT)
{
dep->de_ramsize= 0x8000; /* 32K */
}
}
else
{
if (we_type & WET_BRD_16BIT)
{
/* 32K or 16K */
dep->de_ramsize= rambit ? 0x8000 : 0x4000;
}
else
{
/* 32K or 8K */
dep->de_ramsize= rambit ? 0x8000 : 0x2000;
}
}
if (we_type & WET_790)
{
outb_we(dep, EPL_MSR, E_MSR_RESET);
if ((we_type & (WET_BRD_16BIT|WET_SLT_16BIT)) ==
(WET_BRD_16BIT|WET_SLT_16BIT))
{
outb_we(dep, EPL_LAAR, E_LAAR_LAN16E | E_LAAR_MEM16E);
}
}
else if (we_type & WET_BRD_16BIT)
{
if (we_type & WET_SLT_16BIT)
{
outb_we(dep, EPL_LAAR, E_LAAR_A19 | E_LAAR_SOFTINT |
E_LAAR_LAN16E | E_LAAR_MEM16E);
}
else
{
outb_we(dep, EPL_LAAR, E_LAAR_A19 | E_LAAR_SOFTINT |
E_LAAR_LAN16E);
}
}
if (we_type & WET_790)
{
outb_we(dep, EPL_MSR, E_MSR_MENABLE);
hwr= inb_we(dep, EPL_790_HWR);
outb_we(dep, EPL_790_HWR, hwr | E_790_HWR_SWH);
b= inb_we(dep, EPL_790_B);
outb_we(dep, EPL_790_B, ((dep->de_linmem >> 13) & 0x0f) |
((dep->de_linmem >> 11) & 0x40) | (b & 0xb0));
outb_we(dep, EPL_790_HWR, hwr & ~E_790_HWR_SWH);
}
else
{
outb_we(dep, EPL_MSR, E_MSR_RESET);
outb_we(dep, EPL_MSR, E_MSR_MENABLE |
((dep->de_linmem >> 13) & E_MSR_MEMADDR));
}
if ((we_type & WET_INTERF_CHIP) && !(we_type & WET_790))
{
icr= inb_we(dep, EPL_ICR);
irr= inb_we(dep, EPL_IRR);
int_indx= (icr & E_ICR_IR2) |
((irr & (E_IRR_IR0|E_IRR_IR1)) >> 5);
int_nr= we_int_table[int_indx];
#if DEBUG
{ printf("%s: encoded irq= %d\n", dep->de_name, int_nr); }
#endif
if (dep->de_irq & DEI_DEFAULT) dep->de_irq= int_nr;
outb_we(dep, EPL_IRR, irr | E_IRR_IEN);
}
if (we_type & WET_790)
{
hwr= inb_we(dep, EPL_790_HWR);
outb_we(dep, EPL_790_HWR, hwr | E_790_HWR_SWH);
gcr= inb_we(dep, EPL_790_GCR);
outb_we(dep, EPL_790_HWR, hwr & ~E_790_HWR_SWH);
int_indx= ((gcr & E_790_GCR_IR2) >> 4) |
((gcr & (E_790_GCR_IR1|E_790_GCR_IR0)) >> 2);
int_nr= we_790int_table[int_indx];
#if DEBUG
{ printf("%s: encoded irq= %d\n", dep->de_name, int_nr); }
#endif
if (dep->de_irq & DEI_DEFAULT) dep->de_irq= int_nr;
icr= inb_we(dep, EPL_790_ICR);
outb_we(dep, EPL_790_ICR, icr | E_790_ICR_EIL);
}
/* Strip the "default flag." */
dep->de_irq &= ~DEI_DEFAULT;
if (!debug)
{
printf("%s: WD80%d3 at %X:%d:%lX\n",
dep->de_name, we_type & WET_BRD_16BIT ? 1 : 0,
dep->de_base_port, dep->de_irq, dep->de_linmem);
}
else
{
printf("%s: Western Digital %s%s card %s%s at I/O "
"address 0x%X, memory address 0x%lX, "
"memory size 0x%X, irq %d\n",
dep->de_name,
we_type & WET_BRD_16BIT ? "16-bit " : "",
we_type & WET_ETHERNET ? "Ethernet" :
we_type & WET_STARLAN ? "Starlan" : "Network",
we_type & WET_INTERF_CHIP ? "with an interface chip " : "",
we_type & WET_SLT_16BIT ? "in a 16-bit slot " : "",
dep->de_base_port, dep->de_linmem, dep->de_ramsize,
dep->de_irq);
}
dep->de_offset_page= 0; /* Shared memory starts at 0 */
/* Allocate one send buffer (1.5KB) per 8KB of on board memory. */
sendq_nr= dep->de_ramsize / 0x2000;
if (sendq_nr < 1)
sendq_nr= 1;
else if (sendq_nr > SENDQ_NR)
sendq_nr= SENDQ_NR;
dep->de_sendq_nr= sendq_nr;
for (i= 0; i<sendq_nr; i++)
dep->de_sendq[i].sq_sendpage= i*SENDQ_PAGES;
dep->de_startpage= i*SENDQ_PAGES;
dep->de_stoppage= dep->de_ramsize / DP_PAGESIZE;
}
/*===========================================================================*
* we_stop *
*===========================================================================*/
static void we_stop(dep)
dpeth_t *dep;
{
if (dep->de_16bit)
outb_we(dep, EPL_LAAR, E_LAAR_A19 | E_LAAR_LAN16E);
outb_we(dep, EPL_MSR, E_MSR_RESET);
outb_we(dep, EPL_MSR, 0);
}
/*===========================================================================*
* we_aliasing *
*===========================================================================*/
static int we_aliasing(dep)
dpeth_t *dep;
{
/* Determine whether wd8003 hardware performs register aliasing. This implies
* an old WD8003E board. */
if (inb_we(dep, EPL_REG1) != inb_we(dep, EPL_EA1))
return 0;
if (inb_we(dep, EPL_REG2) != inb_we(dep, EPL_EA2))
return 0;
if (inb_we(dep, EPL_REG3) != inb_we(dep, EPL_EA3))
return 0;
if (inb_we(dep, EPL_REG4) != inb_we(dep, EPL_EA4))
return 0;
if (inb_we(dep, EPL_REG7) != inb_we(dep, EPL_CHKSUM))
return 0;
return 1;
}
/*===========================================================================*
* we_interface_chip *
*===========================================================================*/
static int we_interface_chip(dep)
dpeth_t *dep;
{
/* Determine if the board has an interface chip. */
outb_we(dep, EPL_GP2, 0x35);
if (inb_we(dep, EPL_GP2) != 0x35)
return 0;
outb_we(dep, EPL_GP2, 0x3A);
if (inb_we(dep, EPL_GP2) != 0x3A)
return 0;
return 1;
}
/*===========================================================================*
* we_16bitboard *
*===========================================================================*/
static int we_16bitboard(dep)
dpeth_t *dep;
{
/* Determine whether the board is capable of doing 16 bit memory moves.
* If the 16 bit enable bit is unchangable by software we'll assume an
* 8 bit board.
*/
int icr;
u8_t tlb;
icr= inb_we(dep, EPL_ICR);
outb_we(dep, EPL_ICR, icr ^ E_ICR_16BIT);
if (inb_we(dep, EPL_ICR) == icr)
{
tlb= inb_we(dep, EPL_TLB);
#if DEBUG
printf("%s: tlb= 0x%x\n", dep->de_name, tlb);
#endif
return tlb == E_TLB_EB || tlb == E_TLB_E ||
tlb == E_TLB_SMCE || tlb == E_TLB_SMC8216T ||
tlb == E_TLB_SMC8216C;
}
outb_we(dep, EPL_ICR, icr);
return (icr & E_ICR_16BIT);
}
/*===========================================================================*
* we_16bitslot *
*===========================================================================*/
static int we_16bitslot(dep)
dpeth_t *dep;
{
/* Determine if the 16 bit board in plugged into a 16 bit slot. */
return !!(inb_we(dep, EPL_ICR) & E_ICR_16BIT);
}
/*===========================================================================*
* we_ultra *
*===========================================================================*/
static int we_ultra(dep)
dpeth_t *dep;
{
/* Determine if we has an '790 chip. */
u8_t tlb;
tlb= inb_we(dep, EPL_TLB);
return tlb == E_TLB_SMC8216T || tlb == E_TLB_SMC8216C;
}
#endif /* ENABLE_WDETH */
/*
* $PchId: wdeth.c,v 1.10 2003/09/10 19:31:50 philip Exp $
*/