NetBSD/sys/arch/hp300/dev/dma.c

456 lines
11 KiB
C

/*
* Copyright (c) 1982, 1990 The Regents of the University of California.
* All rights reserved.
*
* 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 University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University 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 REGENTS 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 REGENTS 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.
*
* from: @(#)dma.c 7.5 (Berkeley) 5/4/91
* $Id: dma.c,v 1.2 1993/08/01 19:24:02 mycroft Exp $
*/
/*
* DMA driver
*/
#include "param.h"
#include "systm.h"
#include "time.h"
#include "kernel.h"
#include "proc.h"
#include "dmareg.h"
#include "dmavar.h"
#include "device.h"
#include "../include/cpu.h"
#include "../hp300/isr.h"
extern void isrlink();
extern void _insque();
extern void _remque();
extern void timeout();
extern u_int kvtop();
extern void PCIA();
/*
* The largest single request will be MAXPHYS bytes which will require
* at most MAXPHYS/NBPG+1 chain elements to describe, i.e. if none of
* the buffer pages are physically contiguous (MAXPHYS/NBPG) and the
* buffer is not page aligned (+1).
*/
#define DMAMAXIO (MAXPHYS/NBPG+1)
struct dma_chain {
int dc_count;
char *dc_addr;
};
struct dma_softc {
struct dmadevice *sc_hwaddr;
struct dmaBdevice *sc_Bhwaddr;
char sc_type;
char sc_flags;
u_short sc_cmd;
struct dma_chain *sc_cur;
struct dma_chain *sc_last;
struct dma_chain sc_chain[DMAMAXIO];
} dma_softc[NDMA];
/* types */
#define DMA_B 0
#define DMA_C 1
/* flags */
#define DMAF_PCFLUSH 0x01
#define DMAF_VCFLUSH 0x02
#define DMAF_NOINTR 0x04
struct devqueue dmachan[NDMA + 1];
int dmaintr();
#ifdef DEBUG
int dmadebug = 0;
#define DDB_WORD 0x01 /* same as DMAGO_WORD */
#define DDB_LWORD 0x02 /* same as DMAGO_LWORD */
#define DDB_FOLLOW 0x04
#define DDB_IO 0x08
void dmatimeout();
int dmatimo[NDMA];
long dmahits[NDMA];
long dmamisses[NDMA];
long dmabyte[NDMA];
long dmaword[NDMA];
long dmalword[NDMA];
#endif
void
dmainit()
{
register struct dmareg *dma = (struct dmareg *)DMA_BASE;
register struct dma_softc *dc;
register int i;
char rev;
/*
* Determine the DMA type.
* Don't know how to easily differentiate the A and B cards,
* so we just hope nobody has an A card (A cards will work if
* DMAINTLVL is set to 3).
*/
if (!badbaddr((char *)&dma->dma_id[2]))
rev = dma->dma_id[2];
else {
rev = 'B';
#if !defined(HP320)
panic("dmainit: DMA card requires hp320 support");
#endif
}
dc = &dma_softc[0];
for (i = 0; i < NDMA; i++) {
dc->sc_hwaddr = (i & 1) ? &dma->dma_chan1 : &dma->dma_chan0;
dc->sc_Bhwaddr = (i & 1) ? &dma->dma_Bchan1 : &dma->dma_Bchan0;
dc->sc_type = rev == 'B' ? DMA_B : DMA_C;
dc++;
dmachan[i].dq_forw = dmachan[i].dq_back = &dmachan[i];
}
dmachan[i].dq_forw = dmachan[i].dq_back = &dmachan[i];
#ifdef DEBUG
/* make sure timeout is really not needed */
timeout(dmatimeout, 0, 30 * hz);
#endif
printf("dma: 98620%c with 2 channels, %d bit DMA\n",
rev, rev == 'B' ? 16 : 32);
}
int
dmareq(dq)
register struct devqueue *dq;
{
register int i;
register int chan;
register int s = splbio();
chan = dq->dq_ctlr;
i = NDMA;
while (--i >= 0) {
if ((chan & (1 << i)) == 0)
continue;
if (dmachan[i].dq_forw != &dmachan[i])
continue;
insque(dq, &dmachan[i]);
dq->dq_ctlr = i;
splx(s);
return(1);
}
insque(dq, dmachan[NDMA].dq_back);
splx(s);
return(0);
}
void
dmafree(dq)
register struct devqueue *dq;
{
int unit = dq->dq_ctlr;
register struct dma_softc *dc = &dma_softc[unit];
register struct devqueue *dn;
register int chan, s;
s = splbio();
#ifdef DEBUG
dmatimo[unit] = 0;
#endif
DMA_CLEAR(dc);
/*
* XXX we may not always go thru the flush code in dmastop()
*/
#if defined(HP360) || defined(HP370)
if (dc->sc_flags & DMAF_PCFLUSH) {
PCIA();
dc->sc_flags &= ~DMAF_PCFLUSH;
}
#endif
#if defined(HP320) || defined(HP350)
if (dc->sc_flags & DMAF_VCFLUSH) {
/*
* 320/350s have VACs that may also need flushing.
* In our case we only flush the supervisor side
* because we know that if we are DMAing to user
* space, the physical pages will also be mapped
* in kernel space (via vmapbuf) and hence cache-
* inhibited by the pmap module due to the multiple
* mapping.
*/
DCIS();
dc->sc_flags &= ~DMAF_VCFLUSH;
}
#endif
remque(dq);
chan = 1 << unit;
for (dn = dmachan[NDMA].dq_forw;
dn != &dmachan[NDMA]; dn = dn->dq_forw) {
if (dn->dq_ctlr & chan) {
remque((caddr_t)dn);
insque((caddr_t)dn, (caddr_t)dq->dq_back);
splx(s);
dn->dq_ctlr = dq->dq_ctlr;
(dn->dq_driver->d_start)(dn->dq_unit);
return;
}
}
splx(s);
}
void
dmago(unit, addr, count, flags)
int unit;
register char *addr;
register int count;
register int flags;
{
register struct dma_softc *dc = &dma_softc[unit];
register struct dma_chain *dcp;
register char *dmaend = NULL;
register int tcount;
if (count > MAXPHYS)
panic("dmago: count > MAXPHYS");
#if defined(HP320)
if (dc->sc_type == DMA_B && (flags & DMAGO_LWORD))
panic("dmago: no can do 32-bit DMA");
#endif
#ifdef DEBUG
if (dmadebug & DDB_FOLLOW)
printf("dmago(%d, %x, %x, %x)\n",
unit, addr, count, flags);
if (flags & DMAGO_LWORD)
dmalword[unit]++;
else if (flags & DMAGO_WORD)
dmaword[unit]++;
else
dmabyte[unit]++;
#endif
/*
* Build the DMA chain
*/
for (dcp = dc->sc_chain; count > 0; dcp++) {
dcp->dc_addr = (char *) kvtop(addr);
if (count < (tcount = NBPG - ((int)addr & PGOFSET)))
tcount = count;
dcp->dc_count = tcount;
addr += tcount;
count -= tcount;
if (flags & DMAGO_LWORD)
tcount >>= 2;
else if (flags & DMAGO_WORD)
tcount >>= 1;
if (dcp->dc_addr == dmaend
#if defined(HP320)
/* only 16-bit count on 98620B */
&& (dc->sc_type != DMA_B ||
(dcp-1)->dc_count + tcount <= 65536)
#endif
) {
#ifdef DEBUG
dmahits[unit]++;
#endif
dmaend += dcp->dc_count;
(--dcp)->dc_count += tcount;
} else {
#ifdef DEBUG
dmamisses[unit]++;
#endif
dmaend = dcp->dc_addr + dcp->dc_count;
dcp->dc_count = tcount;
}
}
dc->sc_cur = dc->sc_chain;
dc->sc_last = --dcp;
dc->sc_flags = 0;
/*
* Set up the command word based on flags
*/
dc->sc_cmd = DMA_ENAB | DMA_IPL(DMAINTLVL) | DMA_START;
if ((flags & DMAGO_READ) == 0)
dc->sc_cmd |= DMA_WRT;
if (flags & DMAGO_LWORD)
dc->sc_cmd |= DMA_LWORD;
else if (flags & DMAGO_WORD)
dc->sc_cmd |= DMA_WORD;
if (flags & DMAGO_PRI)
dc->sc_cmd |= DMA_PRI;
#if defined(HP360) || defined(HP370)
/*
* Remember if we need to flush external physical cache when
* DMA is done. We only do this if we are reading (writing memory).
*/
if (ectype == EC_PHYS && (flags & DMAGO_READ))
dc->sc_flags |= DMAF_PCFLUSH;
#endif
#if defined(HP320) || defined(HP350)
if (ectype == EC_VIRT && (flags & DMAGO_READ))
dc->sc_flags |= DMAF_VCFLUSH;
#endif
/*
* Remember if we can skip the dma completion interrupt on
* the last segment in the chain.
*/
if (flags & DMAGO_NOINT) {
if (dc->sc_cur == dc->sc_last)
dc->sc_cmd &= ~DMA_ENAB;
else
dc->sc_flags |= DMAF_NOINTR;
}
#ifdef DEBUG
if (dmadebug & DDB_IO)
if ((dmadebug&DDB_WORD) && (dc->sc_cmd&DMA_WORD) ||
(dmadebug&DDB_LWORD) && (dc->sc_cmd&DMA_LWORD)) {
printf("dmago: cmd %x, flags %x\n",
dc->sc_cmd, dc->sc_flags);
for (dcp = dc->sc_chain; dcp <= dc->sc_last; dcp++)
printf(" %d: %d@%x\n", dcp-dc->sc_chain,
dcp->dc_count, dcp->dc_addr);
}
dmatimo[unit] = 1;
#endif
DMA_ARM(dc);
}
void
dmastop(unit)
register int unit;
{
register struct dma_softc *dc = &dma_softc[unit];
register struct devqueue *dq;
#ifdef DEBUG
if (dmadebug & DDB_FOLLOW)
printf("dmastop(%d)\n", unit);
dmatimo[unit] = 0;
#endif
DMA_CLEAR(dc);
#if defined(HP360) || defined(HP370)
if (dc->sc_flags & DMAF_PCFLUSH) {
PCIA();
dc->sc_flags &= ~DMAF_PCFLUSH;
}
#endif
#if defined(HP320) || defined(HP350)
if (dc->sc_flags & DMAF_VCFLUSH) {
/*
* 320/350s have VACs that may also need flushing.
* In our case we only flush the supervisor side
* because we know that if we are DMAing to user
* space, the physical pages will also be mapped
* in kernel space (via vmapbuf) and hence cache-
* inhibited by the pmap module due to the multiple
* mapping.
*/
DCIS();
dc->sc_flags &= ~DMAF_VCFLUSH;
}
#endif
/*
* We may get this interrupt after a device service routine
* has freed the dma channel. So, ignore the intr if there's
* nothing on the queue.
*/
dq = dmachan[unit].dq_forw;
if (dq != &dmachan[unit])
(dq->dq_driver->d_done)(dq->dq_unit);
}
int
dmaintr()
{
register struct dma_softc *dc;
register int i, stat;
int found = 0;
#ifdef DEBUG
if (dmadebug & DDB_FOLLOW)
printf("dmaintr\n");
#endif
for (i = 0, dc = dma_softc; i < NDMA; i++, dc++) {
stat = DMA_STAT(dc);
if ((stat & DMA_INTR) == 0)
continue;
found++;
#ifdef DEBUG
if (dmadebug & DDB_IO) {
if ((dmadebug&DDB_WORD) && (dc->sc_cmd&DMA_WORD) ||
(dmadebug&DDB_LWORD) && (dc->sc_cmd&DMA_LWORD))
printf("dmaintr: unit %d stat %x next %d\n",
i, stat, (dc->sc_cur-dc->sc_chain)+1);
}
if (stat & DMA_ARMED)
printf("dma%d: intr when armed\n", i);
#endif
if (++dc->sc_cur <= dc->sc_last) {
#ifdef DEBUG
dmatimo[i] = 1;
#endif
/*
* Last chain segment, disable DMA interrupt.
*/
if (dc->sc_cur == dc->sc_last &&
(dc->sc_flags & DMAF_NOINTR))
dc->sc_cmd &= ~DMA_ENAB;
DMA_CLEAR(dc);
DMA_ARM(dc);
} else
dmastop(i);
}
return(found);
}
#ifdef DEBUG
void
dmatimeout()
{
register int i, s;
for (i = 0; i < NDMA; i++) {
s = splbio();
if (dmatimo[i]) {
if (dmatimo[i] > 1)
printf("dma%d: timeout #%d\n",
i, dmatimo[i]-1);
dmatimo[i]++;
}
splx(s);
}
timeout(dmatimeout, (caddr_t)0, 30 * hz);
}
#endif