/* * Copyright (c) 1988 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. * *	@(#)kdb.c	7.9 (Berkeley) 5/4/91 *//* * KDB50/RAxx disk device driver */#include "../include/pte.h"#include "sys/param.h"#include "sys/disklabel.h"#include "stand/saio.h"#include "savax.h"/* * N.B.: on KDB50, controller == adapter * here we just use the controller number */#define	NKRA		8	/* max drive number */#define	SECTSIZ		512	/* sector size in bytes *//* * Parameters for the communications area: * command and response rings both one entry. */#define	NRSP	1#define	NCMD	1#include "../bi/bireg.h"#include "../bi/kdbreg.h"#include "../vax/mscp.h"struct kdb {	struct kdbca	kdb_ca;	struct mscp	kdb_rsp;	struct mscp	kdb_cmd;} kdb;int	kdbinit[MAXNKDB];struct	disklabel kralabel[MAXNKDB][NKRA];u_long	kramedia[MAXNKDB][NKRA];char	lbuf[SECTSIZ];kraopen(io)	register struct iob *io;{	register struct kdb_regs *kr;	register struct disklabel *lp;	register int ctlr, unit;	struct iob tio;	if ((u_int)(ctlr = io->i_ctlr) >= nkdb)		return (EADAPT);	if ((u_int)(unit = io->i_unit) >= NKRA)		return (EUNIT);	kr = (struct kdb_regs *)kdbaddr[ctlr];	if (kdbinit[ctlr] == 0) {		kr->kdb_bi.bi_csr |= BICSR_NRST;		DELAY(10000);	/* ??? */		/* clear any bus errors */		kr->kdb_bi.bi_ber = ~(BIBER_MBZ|BIBER_NMR|BIBER_UPEN);		while ((kr->kdb_sa & KDB_STEP1) == 0)			/* void */;		kr->kdb_bi.bi_bcicsr |= BCI_STOPEN | BCI_IDENTEN;		kr->kdb_sw = KDB_ERR;		while ((kr->kdb_sa & KDB_STEP2) == 0)			/* void */;		kr->kdb_sw = (int)&kdb.kdb_ca.ca_rspdsc[0];		while ((kr->kdb_sa & KDB_STEP3) == 0)			/* void */;		kr->kdb_sw = (int)&kdb.kdb_ca.ca_rspdsc[0] >> 16;		while ((kr->kdb_sa & KDB_STEP4) == 0)			/* void */;		kr->kdb_sw = KDB_GO;		kdb.kdb_ca.ca_rspdsc[0] = (long)&kdb.kdb_rsp.mscp_cmdref;		kdb.kdb_ca.ca_cmddsc[0] = (long)&kdb.kdb_cmd.mscp_cmdref;		if (kdbcmd(M_OP_SETCTLRC, io)) {			printf("kra: open error, SETCTLRC\n");			return (ENXIO);		}		kdbinit[ctlr] = 1;	}	lp = &kralabel[ctlr][unit];	if (kramedia[ctlr][unit] == 0) {		kdb.kdb_cmd.mscp_unit = unit;		if (kdbcmd(M_OP_ONLINE, io)) {			printf("kra: open error, ONLINE\n");			return (ENXIO);		}		kramedia[ctlr][unit] = kdb.kdb_rsp.mscp_onle.onle_mediaid;		tio = *io;		tio.i_bn = LABELSECTOR;		tio.i_ma = lbuf;		tio.i_cc = SECTSIZ;		tio.i_flgs |= F_RDDATA;		if (krastrategy(&tio, F_READ) != SECTSIZ)			return (ERDLAB);		*lp = *(struct disklabel *)(lbuf + LABELOFFSET);		if (lp->d_magic != DISKMAGIC || lp->d_magic2 != DISKMAGIC) {#ifdef COMPAT_42			printf("kra%d: unlabeled\n", unit);			kramaptype(io, lp);#else			return (EUNLAB);#endif		}	}	if ((u_int)io->i_part >= lp->d_npartitions ||	    (io->i_boff = lp->d_partitions[io->i_part].p_offset) == -1)		return (EPART);	return (0);}kdbcmd(op, io)	int op;	struct iob *io;{	register struct kdb *k = &kdb;	register struct mscp *mp;	register int i;	k->kdb_cmd.mscp_opcode = op;	k->kdb_rsp.mscp_msglen = MSCP_MSGLEN;	k->kdb_cmd.mscp_msglen = MSCP_MSGLEN;	k->kdb_ca.ca_rspdsc[0] |= MSCP_OWN | MSCP_INT;	k->kdb_ca.ca_cmddsc[0] |= MSCP_OWN | MSCP_INT;	i = ((struct kdb_regs *)kdbaddr[io->i_ctlr])->kdb_ip;#ifdef lint	i = i;#endif	mp = &k->kdb_rsp;	for (;;) {		if (k->kdb_ca.ca_cmdint)			k->kdb_ca.ca_cmdint = 0;		if (k->kdb_ca.ca_rspint == 0)			continue;		k->kdb_ca.ca_rspint = 0;		if (mp->mscp_opcode == (op | M_OP_END))			break;		printf("unexpected rsp type %x op %x ignored\n",			MSCP_MSGTYPE(mp->mscp_msgtc), mp->mscp_opcode);		k->kdb_ca.ca_rspdsc[0] |= MSCP_OWN | MSCP_INT;	}	if ((mp->mscp_status & M_ST_MASK) != M_ST_SUCCESS)		return (-1);	return (0);}krastrategy(io, func)	register struct iob *io;	int func;{	register struct mscp *mp;	mp = &kdb.kdb_cmd;	mp->mscp_unit = io->i_unit;	mp->mscp_seq.seq_lbn = io->i_bn;	mp->mscp_seq.seq_bytecount = io->i_cc;	mp->mscp_seq.seq_buffer = (long)io->i_ma | KDB_PHYS;	if (kdbcmd(func == F_READ ? M_OP_READ : M_OP_WRITE, io)) {		printf("kra: I/O error\n");		return (-1);	}	return (io->i_cc);}#ifdef COMPAT_42u_long kra60_off[] = { 0, 15884, 0, 49324, 131404, 49324, 242606, 49324 };#define kra70_off kra60_offu_long kra80_off[] = { 0, 15884, 0, -1, 49324, 49324, 49910, 131404 };u_long kra81_off[] = { 0, 15884, 0, 131404, 49324, 498790, 563050, 131404 };u_long kra82_off[] = { 0, 15884, 0, 375345, 391590, 699390, 375345, 83790 }; struct mediamap {	u_long	id;		/* media ID */	u_long	*off;		/* offsets */} kra_map[] = {	{ MSCP_MKDRIVE2('R', 'A', 60),		kra60_off },	{ MSCP_MKDRIVE2('R', 'A', 70),		kra70_off },	{ MSCP_MKDRIVE2('R', 'A', 80),		kra80_off },	{ MSCP_MKDRIVE2('R', 'A', 81),		kra81_off },	{ MSCP_MKDRIVE2('R', 'A', 82),		kra82_off },	0};kramaptype(io, lp)	register struct iob *io;	register struct disklabel *lp;{	register struct partition *pp;	register u_long i;	register struct mediamap *map;	i = MSCP_MEDIA_DRIVE(kramedia[io->i_ctlr][io->i_unit]);	for (map = kra_map; map->id != 0; map++) {		if (map->id == i) {			lp->d_npartitions = 8;			for (pp = lp->d_partitions, i = 0; i < 8; pp++, i++)				pp->p_offset = map->off[i];			return;		}	}	printf("kra%d: media type 0x%x unsupported\n", io->i_unit, i);	lp->d_npartitions = 0;}#endif