#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: if_qt.c,v 1.29 2025/01/08 18:36:08 tsutsui Exp $");
#include "opt_inet.h"
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/mbuf.h>
#include <sys/protosw.h>
#include <sys/socket.h>
#include <sys/ioctl.h>
#include <sys/device.h>
#include <sys/errno.h>
#include <sys/syslog.h>
#include <sys/time.h>
#include <sys/kernel.h>
#include <net/if.h>
#include <net/if_ether.h>
#include <net/route.h>
#include <net/bpf.h>
#ifdef INET
#include <sys/domain.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/in_var.h>
#include <netinet/ip.h>
#endif
#include <sys/bus.h>
#include <dev/qbus/ubavar.h>
#include <dev/qbus/if_uba.h>
#include <dev/qbus/if_qtreg.h>
#define NRCV QT_MAX_RCV
#define NXMT QT_MAX_XMT
#if NRCV != 32 || NXMT != 12
hardware requires these sizes.
#endif
struct qt_cdata {
struct qt_init qc_init;
struct qt_rring qc_r[NRCV];
struct qt_tring qc_t[NXMT];
};
struct qt_softc {
device_t sc_dev;
struct ethercom is_ec;
struct uba_softc *sc_uh;
struct evcnt sc_intrcnt;
#define is_if is_ec.ec_if
u_int8_t is_addr[ETHER_ADDR_LEN];
bus_space_tag_t sc_iot;
bus_addr_t sc_ioh;
struct ubinfo sc_ui;
struct qt_cdata *sc_ib;
struct qt_cdata *sc_pib;
struct ifubinfo sc_ifuba;
struct ifrw sc_ifr[NRCV];
struct ifxmt sc_ifw[NXMT];
int rindex;
int nxtrcv;
int nrcv;
int xnext;
int xlast;
int nxmit;
short vector;
};
static int qtmatch(device_t, cfdata_t, void *);
static void qtattach(device_t, device_t, void *);
static void lance_setladrf(struct ethercom *ec, uint16_t *af);
static void qtintr(void *);
static int qtinit(struct ifnet *);
static int qtioctl(struct ifnet *, u_long, void *);
static int qtturbo(struct qt_softc *);
static void qtstart(struct ifnet *ifp);
static void qtstop(struct ifnet *ifp, int disable);
static void qtsrr(struct qt_softc *, int);
static void qtrint(struct qt_softc *sc);
static void qttint(struct qt_softc *sc);
#ifdef notyet
static void qtreset(struct qt_softc *sc);
#endif
CFATTACH_DECL_NEW(qt, sizeof(struct qt_softc),
qtmatch, qtattach, NULL, NULL);
#define MAXPACKETSIZE (ETHERMTU + sizeof (struct ether_header) + ETHER_CRC_LEN)
#define MINPACKETSIZE 64
#define QT_WCSR(csr, val) \
bus_space_write_2(sc->sc_iot, sc->sc_ioh, csr, val)
#define QT_RCSR(csr) \
bus_space_read_2(sc->sc_iot, sc->sc_ioh, csr)
#define loint(x) ((int)(x) & 0xffff)
#define hiint(x) (((int)(x) >> 16) & 0x3f)
int
qtmatch(device_t parent, cfdata_t cf, void *aux)
{
struct qt_softc ssc;
struct qt_softc *sc = &ssc;
struct uba_attach_args *ua = aux;
struct uba_softc *uh = device_private(parent);
struct qt_init *qi;
struct ubinfo ui;
sc->sc_iot = ua->ua_iot;
sc->sc_ioh = ua->ua_ioh;
if (qtturbo(sc) == 0)
return 0;
ui.ui_size = sizeof(struct qt_init);
if (ubmemalloc(uh, &ui, 0))
return 0;
qi = (struct qt_init *)ui.ui_vaddr;
memset(qi, 0, sizeof(struct qt_init));
qi->vector = uh->uh_lastiv - 4;
qi->options = INIT_OPTIONS_INT;
QT_WCSR(CSR_IBAL, loint(ui.ui_baddr));
QT_WCSR(CSR_IBAH, hiint(ui.ui_baddr));
QT_WCSR(CSR_SRQR, 2);
delay(100000);
QT_WCSR(CSR_SRQR, 3);
ubmemfree(uh, &ui);
return 10;
}
void
qtattach(device_t parent, device_t self, void *aux)
{
struct qt_softc *sc = device_private(self);
struct ifnet *ifp = &sc->is_if;
struct uba_attach_args *ua = aux;
sc->sc_dev = self;
uba_intr_establish(ua->ua_icookie, ua->ua_cvec, qtintr, sc,
&sc->sc_intrcnt);
evcnt_attach_dynamic(&sc->sc_intrcnt, EVCNT_TYPE_INTR, ua->ua_evcnt,
device_xname(sc->sc_dev), "intr");
sc->sc_uh = device_private(parent);
sc->sc_iot = ua->ua_iot;
sc->sc_ioh = ua->ua_ioh;
sc->sc_uh->uh_lastiv -= 4;
sc->vector = sc->sc_uh->uh_lastiv;
sc->is_addr[0] = QT_RCSR(0);
sc->is_addr[1] = QT_RCSR(2);
sc->is_addr[2] = QT_RCSR(4);
sc->is_addr[3] = QT_RCSR(6);
sc->is_addr[4] = QT_RCSR(8);
sc->is_addr[5] = QT_RCSR(10);
strcpy(ifp->if_xname, device_xname(sc->sc_dev));
ifp->if_softc = sc;
ifp->if_flags = IFF_BROADCAST|IFF_MULTICAST;
ifp->if_ioctl = qtioctl;
ifp->if_start = qtstart;
ifp->if_init = qtinit;
ifp->if_stop = qtstop;
IFQ_SET_READY(&ifp->if_snd);
printf("\n%s: delqa-plus in Turbo mode, hardware address %s\n",
device_xname(sc->sc_dev), ether_sprintf(sc->is_addr));
if_attach(ifp);
ether_ifattach(ifp, sc->is_addr);
}
int
qtturbo(struct qt_softc *sc)
{
int i;
QT_WCSR(CSR_ARQR, ARQR_SR);
QT_WCSR(CSR_ARQR, 0);
delay(150L);
QT_WCSR(CSR_SRR, 0x8001);
i = QT_RCSR(CSR_SRR);
QT_WCSR(CSR_SRR, 0x8000);
if (i != 0x8001)
return 0;
QT_WCSR(CSR_XCR0, 0x0baf);
QT_WCSR(CSR_XCR1, 0xff00);
for (i = 0; i < 1000; i++) {
if ((QT_RCSR(CSR_SRR) & SRR_RESP) == 1)
break;
delay(1000L);
}
if (i >= 1000) {
printf("qt !Turbo\n");
return 0;
}
return 1;
}
#define ETHER_CMP(a,b) memcmp((a), (b), 6)
void
lance_setladrf(struct ethercom *ec, uint16_t *af)
{
struct ifnet *ifp = &ec->ec_if;
struct ether_multi *enm;
uint32_t crc;
struct ether_multistep step;
if (ifp->if_flags & IFF_PROMISC)
goto allmulti;
af[0] = af[1] = af[2] = af[3] = 0x0000;
ETHER_LOCK(ec);
ETHER_FIRST_MULTI(step, ec, enm);
while (enm != NULL) {
if (ETHER_CMP(enm->enm_addrlo, enm->enm_addrhi)) {
ETHER_UNLOCK(ec);
goto allmulti;
}
crc = ether_crc32_le(enm->enm_addrlo, ETHER_ADDR_LEN);
crc >>= 26;
af[crc >> 4] |= 1 << (crc & 0xf);
ETHER_NEXT_MULTI(step, enm);
}
ETHER_UNLOCK(ec);
ifp->if_flags &= ~IFF_ALLMULTI;
return;
allmulti:
ifp->if_flags |= IFF_ALLMULTI;
af[0] = af[1] = af[2] = af[3] = 0xffff;
}
int
qtinit(struct ifnet *ifp)
{
struct qt_softc *sc = ifp->if_softc;
struct qt_init *iniblk;
struct ifrw *ifrw;
struct ifxmt *ifxp;
struct qt_rring *rp;
struct qt_tring *tp;
int i, error;
if (ifp->if_flags & IFF_RUNNING) {
qtstop(ifp, 0);
}
if (sc->sc_ib == NULL) {
if (if_ubaminit(&sc->sc_ifuba, sc->sc_uh,
MCLBYTES, sc->sc_ifr, NRCV, sc->sc_ifw, NXMT)) {
printf("%s: can't initialize\n",
device_xname(sc->sc_dev));
ifp->if_flags &= ~IFF_UP;
return 0;
}
sc->sc_ui.ui_size = sizeof(struct qt_cdata);
if ((error = ubmemalloc(sc->sc_uh, &sc->sc_ui, 0))) {
printf(": failed ubmemalloc(), error = %d\n", error);
return error;
}
sc->sc_ib = (struct qt_cdata *)sc->sc_ui.ui_vaddr;
sc->sc_pib = (struct qt_cdata *)sc->sc_ui.ui_baddr;
memset(sc->sc_ib, 0, sizeof(struct qt_cdata));
iniblk = &sc->sc_ib->qc_init;
iniblk->vector = sc->vector;
memcpy(iniblk->paddr, sc->is_addr, 6);
iniblk->options = INIT_OPTIONS_INT;
iniblk->rx_lo = loint(&sc->sc_pib->qc_r);
iniblk->rx_hi = hiint(&sc->sc_pib->qc_r);
iniblk->tx_lo = loint(&sc->sc_pib->qc_t);
iniblk->tx_hi = hiint(&sc->sc_pib->qc_t);
}
iniblk = &sc->sc_ib->qc_init;
iniblk->mode = ifp->if_flags & IFF_PROMISC ? INIT_MODE_PRO : 0;
lance_setladrf(&sc->is_ec, iniblk->laddr);
for (i = 0; i < NRCV; i++) {
rp = &sc->sc_ib->qc_r[i];
ifrw = &sc->sc_ifr[i];
rp->rmd1 = MCLBYTES;
rp->rmd4 = loint(ifrw->ifrw_info);
rp->rmd5 = hiint(ifrw->ifrw_info);
rp->rmd3 = 0;
}
for (i = 0; i < NXMT; i++) {
tp = &sc->sc_ib->qc_t[i];
ifxp = &sc->sc_ifw[i];
tp->tmd4 = loint(ifxp->ifw_info);
tp->tmd5 = hiint(ifxp->ifw_info);
tp->tmd3 = TMD3_OWN;
}
sc->xnext = sc->xlast = sc->nxmit = 0;
sc->rindex = 0;
sc->nxtrcv = 0;
sc->nrcv = 0;
QT_WCSR(CSR_IBAL, loint(&sc->sc_pib->qc_init));
QT_WCSR(CSR_IBAH, hiint(&sc->sc_pib->qc_init));
QT_WCSR(CSR_SRQR, 2);
sc->is_if.if_flags |= IFF_RUNNING;
return 0;
}
void
qtstart(struct ifnet *ifp)
{
int len, nxmit;
struct qt_softc *sc = ifp->if_softc;
struct qt_tring *rp;
struct mbuf *m = NULL;
for (nxmit = sc->nxmit; nxmit < NXMT; nxmit++) {
IF_DEQUEUE(&sc->is_if.if_snd, m);
if (m == NULL)
break;
rp = &sc->sc_ib->qc_t[sc->xnext];
if ((rp->tmd3 & TMD3_OWN) == 0)
panic("qtstart");
bpf_mtap(ifp, m, BPF_D_OUT);
len = if_ubaput(&sc->sc_ifuba, &sc->sc_ifw[sc->xnext], m);
if (len < MINPACKETSIZE)
len = MINPACKETSIZE;
rp->tmd3 = len & TMD3_BCT;
QT_WCSR(CSR_ARQR, ARQR_TRQ);
if (++sc->xnext >= NXMT)
sc->xnext = 0;
}
if (sc->nxmit != nxmit)
sc->nxmit = nxmit;
}
void
qtintr(void *arg)
{
struct qt_softc *sc = arg;
struct ifnet *ifp = &sc->is_if;
short status;
status = QT_RCSR(CSR_SRR);
if (status < 0) {
qtsrr(sc, status);
}
if ((ifp->if_flags & IFF_UP) == 0)
return;
qtrint(sc);
qttint(sc);
qtstart(&sc->is_ec.ec_if);
}
#define BBLMIS (TMD2_BBL|TMD2_MIS)
void
qttint(struct qt_softc *sc)
{
struct qt_tring *rp;
while (sc->nxmit > 0) {
rp = &sc->sc_ib->qc_t[sc->xlast];
if ((rp->tmd3 & TMD3_OWN) == 0)
break;
if_statinc(&sc->is_if, if_opackets);
if (rp->tmd2 & TMD2_CER)
if_statinc(&sc->is_if, if_collisions);
if ((rp->tmd0 & TMD0_ERR1) ||
((rp->tmd2 & TMD2_ERR2) && (rp->tmd2 & BBLMIS))) {
#ifdef QTDEBUG
char buf[100];
snprintb(buf, sizeof(buf), TMD2_BITS, rp->tmd2);
printf("%s: tmd2 %s\n", device_xname(sc->sc_dev), buf);
#endif
if_statinc(&sc->is_if, if_oerrors);
}
if_ubaend(&sc->sc_ifuba, &sc->sc_ifw[sc->xlast]);
if (++sc->xlast >= NXMT)
sc->xlast = 0;
sc->nxmit--;
}
}
void
qtrint(struct qt_softc *sc)
{
struct qt_rring *rp;
struct ifnet *ifp = &sc->is_ec.ec_if;
struct mbuf *m;
int len;
while (sc->sc_ib->qc_r[(int)sc->rindex].rmd3 & RMD3_OWN) {
rp = &sc->sc_ib->qc_r[(int)sc->rindex];
if ((rp->rmd0 & (RMD0_STP|RMD0_ENP)) != (RMD0_STP|RMD0_ENP)) {
printf("%s: chained packet\n",
device_xname(sc->sc_dev));
if_statinc(&sc->is_if, if_ierrors);
goto rnext;
}
len = (rp->rmd1 & RMD1_MCNT) - ETHER_CRC_LEN;
if ((rp->rmd0 & RMD0_ERR3) || (rp->rmd2 & RMD2_ERR4)) {
#ifdef QTDEBUG
char buf[100];
snprintb(buf, sizeof(buf), RMD0_BITS, rp->rmd0);
printf("%s: rmd0 %s\n", device_xname(sc->sc_dev), buf);
snprintb(buf, sizeof(buf), RMD2_BITS, rp->rmd2);
printf("%s: rmd2 %s\n", device_xname(sc->sc_dev), buf);
#endif
if_statinc(&sc->is_if, if_ierrors);
goto rnext;
}
m = if_ubaget(&sc->sc_ifuba, &sc->sc_ifr[(int)sc->rindex],
ifp, len);
if (m == NULL) {
if_statinc(&sc->is_if, if_ierrors);
goto rnext;
}
if_percpuq_enqueue(ifp->if_percpuq, m);
rnext:
--sc->nrcv;
rp->rmd3 = 0;
rp->rmd1 = MCLBYTES;
if (++sc->rindex >= NRCV)
sc->rindex = 0;
}
QT_WCSR(CSR_ARQR, ARQR_RRQ);
}
int
qtioctl(struct ifnet *ifp, u_long cmd, void *data)
{
int s, error;
s = splnet();
error = ether_ioctl(ifp, cmd, data);
if (error == ENETRESET) {
if (ifp->if_flags & IFF_RUNNING)
error = qtinit(ifp);
else
error = 0;
}
splx(s);
return error;
}
void
qtsrr(struct qt_softc *sc, int srrbits)
{
char buf[100];
snprintb(buf, sizeof(buf), SRR_BITS, srrbits);
printf("%s: srr=%s\n", device_xname(sc->sc_dev), buf);
}
void
qtstop(struct ifnet *ifp, int disable)
{
struct qt_softc *sc = ifp->if_softc;
int i;
QT_WCSR(CSR_SRQR, 3);
for (i = 0; i < 100; i++) {
if ((QT_RCSR(CSR_SRR) & SRR_RESP) == 3)
break;
}
if (QT_RCSR(CSR_SRR) & SRR_FES)
qtsrr(sc, QT_RCSR(CSR_SRR));
while (sc->nxmit > 0) {
if_ubaend(&sc->sc_ifuba, &sc->sc_ifw[sc->xlast]);
if (++sc->xlast >= NXMT)
sc->xlast = 0;
sc->nxmit--;
}
qtrint(sc);
ifp->if_flags &= ~IFF_RUNNING;
}
#ifdef notyet
void
qtreset(struct qt_softc *sc)
{
qtturbo(sc);
qtinit(&sc->is_ec.ec_if);
}
#endif