NetBSD/sys/dev/mca/if_elmc_mca.c

436 lines
12 KiB
C

/* $NetBSD: if_elmc_mca.c,v 1.12 2003/02/23 04:14:16 simonb Exp $ */
/*-
* Copyright (c) 2001 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Rafal K. Boni and Jaromir Dolecek.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the NetBSD
* Foundation, Inc. and its contributors.
* 4. Neither the name of The NetBSD Foundation nor the names of its
* contributors may be used to endorse or promote products derived
* from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
/*
* 3Com 3c523 EtherLink/MC Ethernet card driver (uses i82586 Ethernet chip).
*
* The 3c523-specific hooks were derived from Linux driver (file
* drivers/net/3c523.[ch]).
*
* This driver uses generic i82586 stuff. See also ai(4), ef(4), ix(4).
*/
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: if_elmc_mca.c,v 1.12 2003/02/23 04:14:16 simonb Exp $");
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/mbuf.h>
#include <sys/errno.h>
#include <sys/device.h>
#include <sys/protosw.h>
#include <sys/socket.h>
#include <net/if.h>
#include <net/if_types.h>
#include <net/if_media.h>
#include <net/if_ether.h>
#include <machine/bus.h>
#include <dev/ic/i82586reg.h>
#include <dev/ic/i82586var.h>
#include <dev/mca/mcadevs.h>
#include <dev/mca/mcavar.h>
#include <dev/mca/3c523reg.h>
struct elmc_mca_softc {
struct ie_softc sc_ie;
bus_space_tag_t sc_regt; /* space tag for registers */
bus_space_handle_t sc_regh; /* space handle for registers */
void *sc_ih; /* interrupt handle */
};
int elmc_mca_match __P((struct device *, struct cfdata *, void *));
void elmc_mca_attach __P((struct device *, struct device *, void *));
static void elmc_mca_copyin __P((struct ie_softc *, void *, int, size_t));
static void elmc_mca_copyout __P((struct ie_softc *, const void *, int, size_t));
static u_int16_t elmc_mca_read_16 __P((struct ie_softc *, int));
static void elmc_mca_write_16 __P((struct ie_softc *, int, u_int16_t));
static void elmc_mca_write_24 __P((struct ie_softc *, int, int));
static void elmc_mca_attn __P((struct ie_softc *, int));
static void elmc_mca_hwreset __P((struct ie_softc *, int));
static int elmc_mca_intrhook __P((struct ie_softc *, int));
int
elmc_mca_match(struct device *parent, struct cfdata *cf, void *aux)
{
struct mca_attach_args *ma = aux;
switch (ma->ma_id) {
case MCA_PRODUCT_3C523:
return 1;
}
return 0;
}
void
elmc_mca_attach(struct device *parent, struct device *self, void *aux)
{
struct elmc_mca_softc *asc = (void *) self;
struct ie_softc *sc = &asc->sc_ie;
struct mca_attach_args *ma = aux;
int pos2, pos3, i, revision;
int iobase, irq, pbram_addr;
bus_space_handle_t ioh, memh;
u_int8_t myaddr[ETHER_ADDR_LEN];
pos2 = mca_conf_read(ma->ma_mc, ma->ma_slot, 2);
pos3 = mca_conf_read(ma->ma_mc, ma->ma_slot, 3);
/*
* POS register 2: (adf pos0)
*
* 7 6 5 4 3 2 1 0
* \ \_/ \_/ \__ enable: 0=adapter disabled, 1=adapter enabled
* \ \ \____ I/O Address Range: 00=300-307, 01=1300-1307,
* \ \ 10=2300-2307, 11=3300-3307
* \ \______ Packet Buffer RAM Address Range:
* \ 00=0x0c0000-0x0c5fff 01=0x0c8000-0x0cdfff
* \ 10=0x0d0000-0x0d5fff 11=0x0d8000-0x0ddfff
* \______ Transceiver Type: 0=onboard(BNC) 1=ext(DIX)
*
* POS register 3: (adf pos1)
*
* 7 6 5 4 3 2 1 0
* \____/
* \__ Interrupt level: 0100=3, 0010=7, 1000=9, 0001=12
*/
iobase = ELMC_IOADDR_BASE + (0x1000 * ((pos2 & 0x6) >> 1));
/* get irq */
switch (pos3 & 0x1f) {
case 4: irq = 3; break;
case 2: irq = 7; break;
case 8: irq = 9; break;
case 1: irq = 12; break;
}
pbram_addr = ELMC_MADDR_BASE + (((pos2 & 24) >> 3) * 0x8000);
printf(" slot %d irq %d: 3Com EtherLink/MC Ethernet Adapter (3C523)\n",
ma->ma_slot + 1, irq);
/* map the pio registers */
if (bus_space_map(ma->ma_iot, iobase, ELMC_IOADDR_SIZE, 0, &ioh)) {
printf("%s: unable to map i/o space\n", sc->sc_dev.dv_xname);
return;
}
/*
* 3c523 has a 24K memory. The first 16K is the shared memory, while
* the last 8K is for the EtherStart BIOS ROM, which we don't care
* about. Just use the first 16K.
*/
if (bus_space_map(ma->ma_memt, pbram_addr, ELMC_MADDR_SIZE, 0, &memh)) {
printf("%s: unable to map memory space\n", sc->sc_dev.dv_xname);
if (pbram_addr == 0xc0000) {
printf("%s: memory space 0xc0000 may conflict with vga\n",
sc->sc_dev.dv_xname);
}
bus_space_unmap(ma->ma_iot, ioh, ELMC_IOADDR_SIZE);
return;
}
asc->sc_regt = ma->ma_iot;
asc->sc_regh = ioh;
sc->hwinit = NULL;
sc->intrhook = elmc_mca_intrhook;
sc->hwreset = elmc_mca_hwreset;
sc->chan_attn = elmc_mca_attn;
sc->ie_bus_barrier = NULL;
sc->memcopyin = elmc_mca_copyin;
sc->memcopyout = elmc_mca_copyout;
sc->ie_bus_read16 = elmc_mca_read_16;
sc->ie_bus_write16 = elmc_mca_write_16;
sc->ie_bus_write24 = elmc_mca_write_24;
sc->do_xmitnopchain = 0;
sc->sc_mediachange = NULL;
sc->sc_mediastatus = NULL;
sc->bt = ma->ma_memt;
sc->bh = memh;
/* Map i/o space. */
sc->sc_msize = ELMC_MADDR_SIZE;
sc->sc_maddr = (void *)memh;
sc->sc_iobase = (char *)sc->sc_maddr + sc->sc_msize - (1 << 24);
/* set up pointers to important on-card control structures */
sc->iscp = 0;
sc->scb = IE_ISCP_SZ;
sc->scp = sc->sc_msize + IE_SCP_ADDR - (1 << 24);
sc->buf_area = sc->scb + IE_SCB_SZ;
sc->buf_area_sz = sc->sc_msize - IE_ISCP_SZ - IE_SCB_SZ - IE_SCP_SZ;
/*
* According to docs, we might need to read the interrupt number and
* write it back to the IRQ select register, since the POST might not
* configure the IRQ properly.
*/
(void) mca_conf_write(ma->ma_mc, ma->ma_slot, 3, pos3 & 0x1f);
/* reset the card first */
elmc_mca_hwreset(sc, CARD_RESET);
delay(1000000 / ( 1<< 5));
/* zero card memory */
bus_space_set_region_1(sc->bt, sc->bh, 0, 0, sc->sc_msize);
/* set card to 16-bit bus mode */
bus_space_write_1(sc->bt, sc->bh, IE_SCP_BUS_USE((u_long)sc->scp),
IE_SYSBUS_16BIT);
/* set up pointers to key structures */
elmc_mca_write_24(sc, IE_SCP_ISCP((u_long)sc->scp), (u_long) sc->iscp);
elmc_mca_write_16(sc, IE_ISCP_SCB((u_long)sc->iscp), (u_long) sc->scb);
elmc_mca_write_24(sc, IE_ISCP_BASE((u_long)sc->iscp), (u_long) sc->iscp);
/* flush setup of pointers, check if chip answers */
bus_space_barrier(sc->bt, sc->bh, 0, sc->sc_msize,
BUS_SPACE_BARRIER_WRITE);
if (!i82586_proberam(sc)) {
printf("%s: can't talk to i82586!\n", sc->sc_dev.dv_xname);
bus_space_unmap(asc->sc_regt, asc->sc_regh, ELMC_IOADDR_SIZE);
bus_space_unmap(sc->bt, sc->bh, ELMC_MADDR_SIZE);
return;
}
/* revision is stored in the first 4 bits of the revision register */
revision = (int) bus_space_read_1(asc->sc_regt, asc->sc_regh,
ELMC_REVISION) & ELMC_REVISION_MASK;
/* dump known info */
printf("%s: rev %d, i/o %#04x-%#04x, mem %#06x-%#06x, %sternal xcvr\n",
sc->sc_dev.dv_xname, revision,
iobase, iobase + ELMC_IOADDR_SIZE - 1,
pbram_addr, pbram_addr + ELMC_MADDR_SIZE - 1,
(pos2 & 0x20) ? "ex" : "in");
/*
* Hardware ethernet address is stored in the first six bytes
* of the IO space.
*/
for(i=0; i < MIN(6, ETHER_ADDR_LEN); i++)
myaddr[i] = bus_space_read_1(asc->sc_regt, asc->sc_regh, i);
printf("%s:", sc->sc_dev.dv_xname);
i82586_attach((void *)sc, "3C523", myaddr, NULL, 0, 0);
/* establish interrupt handler */
asc->sc_ih = mca_intr_establish(ma->ma_mc, irq, IPL_NET, i82586_intr,
sc);
if (asc->sc_ih == NULL) {
printf("%s: couldn't establish interrupt handler\n",
sc->sc_dev.dv_xname);
return;
}
}
static void
elmc_mca_copyin (sc, dst, offset, size)
struct ie_softc *sc;
void *dst;
int offset;
size_t size;
{
int dribble;
u_int8_t* bptr = dst;
bus_space_barrier(sc->bt, sc->bh, offset, size,
BUS_SPACE_BARRIER_READ);
if (offset % 2) {
*bptr = bus_space_read_1(sc->bt, sc->bh, offset);
offset++; bptr++; size--;
}
dribble = size % 2;
bus_space_read_region_2(sc->bt, sc->bh, offset, (u_int16_t *) bptr,
size >> 1);
if (dribble) {
bptr += size - 1;
offset += size - 1;
*bptr = bus_space_read_1(sc->bt, sc->bh, offset);
}
}
static void
elmc_mca_copyout (sc, src, offset, size)
struct ie_softc *sc;
const void *src;
int offset;
size_t size;
{
int dribble;
int osize = size;
int ooffset = offset;
const u_int8_t* bptr = src;
if (offset % 2) {
bus_space_write_1(sc->bt, sc->bh, offset, *bptr);
offset++; bptr++; size--;
}
dribble = size % 2;
bus_space_write_region_2(sc->bt, sc->bh, offset, (u_int16_t *)bptr,
size >> 1);
if (dribble) {
bptr += size - 1;
offset += size - 1;
bus_space_write_1(sc->bt, sc->bh, offset, *bptr);
}
bus_space_barrier(sc->bt, sc->bh, ooffset, osize,
BUS_SPACE_BARRIER_WRITE);
}
static u_int16_t
elmc_mca_read_16 (sc, offset)
struct ie_softc *sc;
int offset;
{
bus_space_barrier(sc->bt, sc->bh, offset, 2, BUS_SPACE_BARRIER_READ);
return bus_space_read_2(sc->bt, sc->bh, offset);
}
static void
elmc_mca_write_16 (sc, offset, value)
struct ie_softc *sc;
int offset;
u_int16_t value;
{
bus_space_write_2(sc->bt, sc->bh, offset, value);
bus_space_barrier(sc->bt, sc->bh, offset, 2, BUS_SPACE_BARRIER_WRITE);
}
static void
elmc_mca_write_24 (sc, offset, addr)
struct ie_softc *sc;
int offset, addr;
{
bus_space_write_4(sc->bt, sc->bh, offset, addr +
(u_long) sc->sc_maddr - (u_long) sc->sc_iobase);
bus_space_barrier(sc->bt, sc->bh, offset, 4, BUS_SPACE_BARRIER_WRITE);
}
/*
* Channel attention hook.
*/
static void
elmc_mca_attn(sc, why)
struct ie_softc *sc;
int why;
{
struct elmc_mca_softc* asc = (struct elmc_mca_softc *) sc;
int intr = 0;
switch (why) {
case CHIP_PROBE:
intr = 0;
break;
case CARD_RESET:
intr = ELMC_CTRL_INT;
break;
}
bus_space_write_1(asc->sc_regt, asc->sc_regh, ELMC_CTRL,
ELMC_CTRL_RST | ELMC_CTRL_BS3 | ELMC_CTRL_CHA | intr);
delay(1); /* should be > 500 ns */
bus_space_write_1(asc->sc_regt, asc->sc_regh, ELMC_CTRL,
ELMC_CTRL_RST | ELMC_CTRL_BS3 | intr);
}
/*
* Do full card hardware reset.
*/
static void
elmc_mca_hwreset(sc, why)
struct ie_softc *sc;
int why;
{
struct elmc_mca_softc* asc = (struct elmc_mca_softc *) sc;
/* toggle the RST bit low then high */
bus_space_write_1(asc->sc_regt, asc->sc_regh, ELMC_CTRL,
ELMC_CTRL_BS3 | ELMC_CTRL_LOOP);
delay(1); /* should be > 500 ns */
bus_space_write_1(asc->sc_regt, asc->sc_regh, ELMC_CTRL,
ELMC_CTRL_BS3 | ELMC_CTRL_LOOP | ELMC_CTRL_RST);
elmc_mca_attn(sc, why);
}
/*
* Interrupt hook.
*/
static int
elmc_mca_intrhook(sc, why)
struct ie_softc *sc;
int why;
{
switch (why) {
case INTR_ACK:
elmc_mca_attn(sc, CHIP_PROBE);
break;
default:
/* do nothing */
break;
}
return (0);
}
CFATTACH_DECL(elmc_mca, sizeof(struct elmc_mca_softc),
elmc_mca_match, elmc_mca_attach, NULL, NULL);