NetBSD-5.0.2/sys/arch/vax/vax/crx.c
/* $NetBSD: crx.c,v 1.13 2008/03/11 05:34:03 matt Exp $ */
/*
* Copyright (c) 1988 Regents of the University of California.
* All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* Chris Torek.
*
* 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. 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.
*
* @(#)rx50.c 7.5 (Berkeley) 12/16/90
*/
/*
* Routines to handle the console RX50.
*/
#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: crx.c,v 1.13 2008/03/11 05:34:03 matt Exp $");
#include <sys/param.h>
#include <sys/time.h>
#include <sys/proc.h>
#include <sys/kernel.h>
#include <sys/buf.h>
#include <sys/errno.h>
#include <sys/uio.h>
#include <sys/device.h>
#include <sys/systm.h>
#include <sys/conf.h>
#include <machine/ka820.h>
#include <vax/vax/crx.h>
static dev_type_open(crxopen);
static dev_type_close(crxclose);
static dev_type_read(crxrw);
const struct cdevsw crx_cdevsw = {
crxopen, crxclose, crxrw, crxrw, noioctl,
nostop, notty, nopoll, nommap, nokqfilter,
};
extern struct rx50device *rx50device_ptr;
#define rxaddr rx50device_ptr
extern struct ka820port *ka820port_ptr;
#define rx50unit(dev) minor(dev)
struct rx50state {
short rs_flags; /* see below */
short rs_drive; /* current drive number */
u_int rs_blkno; /* current block number */
} rx50state;
/* flags */
#define RS_0OPEN 0x01 /* drive 0 open -- must be first */
#define RS_1OPEN 0x02 /* drive 1 open -- must be second */
#define RS_BUSY 0x04 /* operation in progress */
#define RS_WANT 0x08 /* wakeup when done */
#define RS_DONE 0x20 /* I/O operation done */
#define RS_ERROR 0x40 /* error bit set at interrupt */
#if 0
#define CRXDEBUG 1
#endif
/*
* Open a console RX50.
*/
/*ARGSUSED*/
int
crxopen(dev_t dev, int flags, int fmt, struct lwp *l)
{
int unit;
#if CRXDEBUG
printf("crxopen(csa%d)\n", rx50unit(dev));
#endif
if ((unit = rx50unit(dev)) >= 2)
return (ENXIO);
/* enforce exclusive access */
if (rx50state.rs_flags & (1 << unit))
return (EBUSY);
rx50state.rs_flags |= 1 << unit;
return (0);
}
/*
* Close a console RX50.
*/
/*ARGSUSED*/
int
crxclose(dev_t dev, int flags, int fmt, struct lwp *l)
{
#if CRXDEBUG
printf("crxclose(csa%d)\n", rx50unit(dev));
#endif
rx50state.rs_flags &= ~(1 << rx50unit(dev)); /* atomic */
return 0;
}
/*
* Perform a read (uio->uio_rw==UIO_READ) or write (uio->uio_rw==UIO_WRITE).
*/
int
crxrw(dev_t dev, struct uio *uio, int flags)
{
struct rx50state *rs;
char *cp;
int error, i, t;
char secbuf[512];
static char driveselect[2] = { RXCMD_DRIVE0, RXCMD_DRIVE1 };
#if CRXDEBUG
printf("crxrw(csa%d): %s\n",
rx50unit(dev), uio->uio_rw==UIO_READ?"read":"write");
printf("crxrw: ka820port = %x\n", ka820port_ptr->csr);
#endif
/* enforce whole-sector I/O */
if ((uio->uio_offset & 511) || (uio->uio_resid & 511))
return (EINVAL);
rs = &rx50state;
/* lock out others */
i = splvm();
while (rs->rs_flags & RS_BUSY) {
rs->rs_flags |= RS_WANT;
(void) tsleep(&rx50state, PRIBIO, "crxbusy", 0);
}
rs->rs_flags |= RS_BUSY;
rs->rs_drive = rx50unit(dev);
splx(i);
rxaddr = rx50device_ptr;
error = 0;
while (uio->uio_resid) {
rs->rs_blkno = uio->uio_offset >> 9;
if (rs->rs_blkno >= RX50MAXSEC) {
if (rs->rs_blkno > RX50MAXSEC)
error = EINVAL;
else if (uio->uio_rw == UIO_WRITE)
error = ENOSPC;
/* else ``eof'' */
break;
}
rs->rs_flags &= ~(RS_ERROR | RS_DONE);
if (uio->uio_rw == UIO_WRITE) {
/* copy the data to the RX50 silo */
error = uiomove(secbuf, 512, uio);
if (error)
break;
i = rxaddr->rxrda;
for (cp = secbuf, i = 512; --i >= 0;)
rxaddr->rxfdb = *cp++;
i = RXCMD_WRITE;
} else
i = RXCMD_READ;
rxaddr->rxcmd = i | driveselect[rs->rs_drive];
i = rs->rs_blkno - ((t = rs->rs_blkno / RX50SEC) * RX50SEC);
rxaddr->rxtrk = t == 79 ? 0 : t + 1;
#ifdef notdef
rxaddr->rxsec = "\1\3\5\7\11\1\3\5\7"[(2*t + i) % 5] + (i > 4);
#else
rxaddr->rxsec = RX50SKEW(i, t);
#endif
#if CRXDEBUG
printf("crx: going off\n");
printf("crxrw: ka820port = %x\n", ka820port_ptr->csr);
#endif
rxaddr->rxgo = 0; /* start it up */
ka820port_ptr->csr |= KA820PORT_RXIRQ;
i = splvm();
while ((rs->rs_flags & RS_DONE) == 0) {
#if CRXDEBUG
printf("crx: sleeping on I/O\n");
printf("crxopen: ka820port = %x\n", ka820port_ptr->csr);
#endif
(void) tsleep(&rs->rs_blkno, PRIBIO, "crxrw", 0);
}
splx(i);
if (rs->rs_flags & RS_ERROR) {
error = EIO;
break;
}
if (uio->uio_rw == UIO_READ) {
/* copy the data out of the silo */
i = rxaddr->rxrda;
for (cp = secbuf, i = 512; --i >= 0;)
*cp++ = rxaddr->rxedb;
error = uiomove(secbuf, 512, uio);
if (error)
break;
}
}
/* let others in */
#if CRXDEBUG
printf("crx: let others in\n");
#endif
rs->rs_flags &= ~RS_BUSY;
if (rs->rs_flags & RS_WANT)
wakeup((void *) rs);
return (error);
}
void
crxintr(void *arg)
{
struct rx50state *rs = &rx50state;
/* ignore spurious interrupts */
if ((rxaddr->rxcmd & RXCMD_DONE) == 0)
return;
if ((rs->rs_flags & RS_BUSY) == 0) {
printf("stray rx50 interrupt ignored (rs_flags: 0x%x, rxcmd: 0x%x)\n",
rs->rs_flags, rxaddr->rxcmd);
return;
}
if (rxaddr->rxcmd & RXCMD_ERROR) {
printf(
"csa%d: hard error sn%d: cmd=%x trk=%x sec=%x csc=%x ict=%x ext=%x\n",
rs->rs_drive + 1, rs->rs_blkno,
rxaddr->rxcmd, rxaddr->rxtrk, rxaddr->rxsec,
rxaddr->rxcsc, rxaddr->rxict, rxaddr->rxext);
rxaddr->rxcmd = RXCMD_RESET;
rxaddr->rxgo = 0;
rs->rs_flags |= RS_ERROR;
}
rs->rs_flags |= RS_DONE;
wakeup((void *) &rs->rs_blkno);
}