Home | History | Annotate | Line # | Download | only in qbus
rl.c revision 1.43
      1  1.43  dholland /*	$NetBSD: rl.c,v 1.43 2014/03/16 05:20:29 dholland Exp $	*/
      2   1.1     ragge 
      3   1.1     ragge /*
      4   1.1     ragge  * Copyright (c) 2000 Ludd, University of Lule}, Sweden. All rights reserved.
      5   1.1     ragge  *
      6   1.1     ragge  * Redistribution and use in source and binary forms, with or without
      7   1.1     ragge  * modification, are permitted provided that the following conditions
      8   1.1     ragge  * are met:
      9   1.1     ragge  * 1. Redistributions of source code must retain the above copyright
     10   1.1     ragge  *    notice, this list of conditions and the following disclaimer.
     11   1.1     ragge  * 2. Redistributions in binary form must reproduce the above copyright
     12   1.1     ragge  *    notice, this list of conditions and the following disclaimer in the
     13   1.1     ragge  *    documentation and/or other materials provided with the distribution.
     14   1.1     ragge  * 3. All advertising materials mentioning features or use of this software
     15   1.1     ragge  *    must display the following acknowledgement:
     16  1.24    simonb  *      This product includes software developed at Ludd, University of
     17   1.1     ragge  *      Lule}, Sweden and its contributors.
     18   1.1     ragge  * 4. The name of the author may not be used to endorse or promote products
     19   1.1     ragge  *    derived from this software without specific prior written permission
     20   1.1     ragge  *
     21   1.1     ragge  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     22   1.1     ragge  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     23   1.1     ragge  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     24   1.1     ragge  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     25   1.1     ragge  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     26   1.1     ragge  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     27   1.1     ragge  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     28   1.1     ragge  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     29   1.1     ragge  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     30   1.1     ragge  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     31   1.1     ragge  */
     32   1.1     ragge 
     33   1.1     ragge /*
     34   1.1     ragge  * RL11/RLV11/RLV12 disk controller driver and
     35   1.1     ragge  * RL01/RL02 disk device driver.
     36   1.1     ragge  *
     37   1.1     ragge  * TODO:
     38   1.1     ragge  *	Handle disk errors more gracefully
     39   1.1     ragge  *	Do overlapping seeks on multiple drives
     40   1.1     ragge  *
     41   1.1     ragge  * Implementation comments:
     42  1.24    simonb  *
     43   1.1     ragge  */
     44  1.10     lukem 
     45  1.10     lukem #include <sys/cdefs.h>
     46  1.43  dholland __KERNEL_RCSID(0, "$NetBSD: rl.c,v 1.43 2014/03/16 05:20:29 dholland Exp $");
     47   1.1     ragge 
     48   1.1     ragge #include <sys/param.h>
     49   1.1     ragge #include <sys/device.h>
     50   1.1     ragge #include <sys/systm.h>
     51   1.1     ragge #include <sys/conf.h>
     52   1.1     ragge #include <sys/disk.h>
     53   1.1     ragge #include <sys/disklabel.h>
     54   1.1     ragge #include <sys/buf.h>
     55  1.23      yamt #include <sys/bufq.h>
     56   1.1     ragge #include <sys/stat.h>
     57   1.1     ragge #include <sys/dkio.h>
     58   1.1     ragge #include <sys/fcntl.h>
     59  1.17  jdolecek #include <sys/event.h>
     60   1.1     ragge 
     61   1.1     ragge #include <ufs/ufs/dinode.h>
     62   1.1     ragge #include <ufs/ffs/fs.h>
     63   1.1     ragge 
     64  1.37        ad #include <sys/bus.h>
     65   1.1     ragge 
     66   1.1     ragge #include <dev/qbus/ubavar.h>
     67   1.1     ragge #include <dev/qbus/rlreg.h>
     68  1.11     ragge #include <dev/qbus/rlvar.h>
     69   1.1     ragge 
     70   1.1     ragge #include "ioconf.h"
     71   1.1     ragge #include "locators.h"
     72   1.1     ragge 
     73  1.38      matt static	int rlcmatch(device_t, cfdata_t, void *);
     74  1.38      matt static	void rlcattach(device_t, device_t, void *);
     75   1.1     ragge static	int rlcprint(void *, const char *);
     76   1.1     ragge static	void rlcintr(void *);
     77  1.38      matt static	int rlmatch(device_t, cfdata_t, void *);
     78  1.38      matt static	void rlattach(device_t, device_t, void *);
     79   1.1     ragge static	void rlcstart(struct rlc_softc *, struct buf *);
     80   1.1     ragge static	void waitcrdy(struct rlc_softc *);
     81  1.38      matt static	void rlcreset(device_t);
     82   1.1     ragge 
     83  1.38      matt CFATTACH_DECL_NEW(rlc, sizeof(struct rlc_softc),
     84  1.16   thorpej     rlcmatch, rlcattach, NULL, NULL);
     85  1.15   thorpej 
     86  1.38      matt CFATTACH_DECL_NEW(rl, sizeof(struct rl_softc),
     87  1.16   thorpej     rlmatch, rlattach, NULL, NULL);
     88   1.1     ragge 
     89  1.38      matt static dev_type_open(rlopen);
     90  1.38      matt static dev_type_close(rlclose);
     91  1.38      matt static dev_type_read(rlread);
     92  1.38      matt static dev_type_write(rlwrite);
     93  1.38      matt static dev_type_ioctl(rlioctl);
     94  1.38      matt static dev_type_strategy(rlstrategy);
     95  1.38      matt static dev_type_dump(rldump);
     96  1.38      matt static dev_type_size(rlpsize);
     97  1.13   gehenna 
     98  1.13   gehenna const struct bdevsw rl_bdevsw = {
     99  1.43  dholland 	.d_open = rlopen,
    100  1.43  dholland 	.d_close = rlclose,
    101  1.43  dholland 	.d_strategy = rlstrategy,
    102  1.43  dholland 	.d_ioctl = rlioctl,
    103  1.43  dholland 	.d_dump = rldump,
    104  1.43  dholland 	.d_psize = rlpsize,
    105  1.43  dholland 	.d_flag = D_DISK
    106  1.13   gehenna };
    107  1.13   gehenna 
    108  1.13   gehenna const struct cdevsw rl_cdevsw = {
    109  1.43  dholland 	.d_open = rlopen,
    110  1.43  dholland 	.d_close = rlclose,
    111  1.43  dholland 	.d_read = rlread,
    112  1.43  dholland 	.d_write = rlwrite,
    113  1.43  dholland 	.d_ioctl = rlioctl,
    114  1.43  dholland 	.d_stop = nostop,
    115  1.43  dholland 	.d_tty = notty,
    116  1.43  dholland 	.d_poll = nopoll,
    117  1.43  dholland 	.d_mmap = nommap,
    118  1.43  dholland 	.d_kqfilter = nokqfilter,
    119  1.43  dholland 	.d_flag = D_DISK
    120  1.13   gehenna };
    121  1.13   gehenna 
    122   1.1     ragge #define	MAXRLXFER (RL_BPS * RL_SPT)
    123   1.1     ragge 
    124   1.1     ragge #define	RL_WREG(reg, val) \
    125   1.1     ragge 	bus_space_write_2(sc->sc_iot, sc->sc_ioh, (reg), (val))
    126   1.1     ragge #define RL_RREG(reg) \
    127   1.1     ragge 	bus_space_read_2(sc->sc_iot, sc->sc_ioh, (reg))
    128   1.1     ragge 
    129  1.38      matt static const char * const rlstates[] = {
    130  1.11     ragge 	"drive not loaded",
    131  1.11     ragge 	"drive spinning up",
    132  1.11     ragge 	"drive brushes out",
    133  1.11     ragge 	"drive loading heads",
    134  1.11     ragge 	"drive seeking",
    135  1.11     ragge 	"drive ready",
    136  1.11     ragge 	"drive unloading heads",
    137  1.11     ragge 	"drive spun down",
    138  1.11     ragge };
    139  1.11     ragge 
    140  1.38      matt static const struct dkdriver rldkdriver = {
    141  1.22   thorpej 	rlstrategy, minphys
    142  1.22   thorpej };
    143  1.22   thorpej 
    144  1.25     ragge static const char *
    145  1.11     ragge rlstate(struct rlc_softc *sc, int unit)
    146  1.11     ragge {
    147  1.11     ragge 	int i = 0;
    148  1.11     ragge 
    149  1.11     ragge 	do {
    150  1.11     ragge 		RL_WREG(RL_DA, RLDA_GS);
    151  1.11     ragge 		RL_WREG(RL_CS, RLCS_GS|(unit << RLCS_USHFT));
    152  1.11     ragge 		waitcrdy(sc);
    153  1.11     ragge 	} while (((RL_RREG(RL_CS) & RLCS_ERR) != 0) && i++ < 10);
    154  1.11     ragge 	if (i == 10)
    155  1.11     ragge 		return NULL;
    156  1.11     ragge 	i = RL_RREG(RL_MP) & RLMP_STATUS;
    157  1.11     ragge 	return rlstates[i];
    158  1.11     ragge }
    159  1.11     ragge 
    160   1.1     ragge void
    161   1.1     ragge waitcrdy(struct rlc_softc *sc)
    162   1.1     ragge {
    163   1.1     ragge 	int i;
    164   1.1     ragge 
    165   1.1     ragge 	for (i = 0; i < 1000; i++) {
    166   1.1     ragge 		DELAY(10000);
    167   1.1     ragge 		if (RL_RREG(RL_CS) & RLCS_CRDY)
    168   1.1     ragge 			return;
    169   1.1     ragge 	}
    170  1.38      matt 	aprint_error_dev(sc->sc_dev, "never got ready\n"); /* ?panic? */
    171   1.1     ragge }
    172   1.1     ragge 
    173   1.1     ragge int
    174   1.1     ragge rlcprint(void *aux, const char *name)
    175   1.1     ragge {
    176   1.1     ragge 	struct rlc_attach_args *ra = aux;
    177   1.1     ragge 
    178   1.1     ragge 	if (name)
    179  1.18   thorpej 		aprint_normal("RL0%d at %s",
    180  1.18   thorpej 		    ra->type & RLMP_DT ? '2' : '1', name);
    181  1.18   thorpej 	aprint_normal(" drive %d", ra->hwid);
    182   1.1     ragge 	return UNCONF;
    183   1.1     ragge }
    184   1.1     ragge 
    185   1.1     ragge /*
    186   1.1     ragge  * Force the controller to interrupt.
    187   1.1     ragge  */
    188   1.1     ragge int
    189  1.38      matt rlcmatch(device_t parent, cfdata_t cf, void *aux)
    190   1.1     ragge {
    191   1.1     ragge 	struct uba_attach_args *ua = aux;
    192   1.1     ragge 	struct rlc_softc ssc, *sc = &ssc;
    193   1.1     ragge 	int i;
    194   1.1     ragge 
    195   1.1     ragge 	sc->sc_iot = ua->ua_iot;
    196   1.1     ragge 	sc->sc_ioh = ua->ua_ioh;
    197   1.1     ragge 	/* Force interrupt by issuing a "Get Status" command */
    198   1.1     ragge 	RL_WREG(RL_DA, RLDA_GS);
    199   1.1     ragge 	RL_WREG(RL_CS, RLCS_GS|RLCS_IE);
    200   1.1     ragge 
    201   1.1     ragge 	for (i = 0; i < 100; i++) {
    202   1.1     ragge 		DELAY(100000);
    203   1.1     ragge 		if (RL_RREG(RL_CS) & RLCS_CRDY)
    204   1.1     ragge 			return 1;
    205   1.1     ragge 	}
    206   1.1     ragge 	return 0;
    207   1.1     ragge }
    208   1.1     ragge 
    209   1.1     ragge void
    210  1.38      matt rlcattach(device_t parent, device_t self, void *aux)
    211   1.1     ragge {
    212  1.30   thorpej 	struct rlc_softc *sc = device_private(self);
    213   1.1     ragge 	struct uba_attach_args *ua = aux;
    214   1.1     ragge 	struct rlc_attach_args ra;
    215   1.1     ragge 	int i, error;
    216   1.1     ragge 
    217  1.38      matt 	sc->sc_dev = self;
    218  1.38      matt 	sc->sc_uh = device_private(parent);
    219   1.1     ragge 	sc->sc_iot = ua->ua_iot;
    220   1.1     ragge 	sc->sc_ioh = ua->ua_ioh;
    221   1.1     ragge 	sc->sc_dmat = ua->ua_dmat;
    222   1.4      matt 	uba_intr_establish(ua->ua_icookie, ua->ua_cvec,
    223   1.4      matt 		rlcintr, sc, &sc->sc_intrcnt);
    224   1.5      matt 	evcnt_attach_dynamic(&sc->sc_intrcnt, EVCNT_TYPE_INTR, ua->ua_evcnt,
    225  1.38      matt 		device_xname(sc->sc_dev), "intr");
    226  1.11     ragge 	uba_reset_establish(rlcreset, self);
    227  1.11     ragge 
    228   1.1     ragge 	printf("\n");
    229   1.1     ragge 
    230   1.1     ragge 	/*
    231  1.24    simonb 	 * The RL11 can only have one transfer going at a time,
    232   1.1     ragge 	 * and max transfer size is one track, so only one dmamap
    233   1.1     ragge 	 * is needed.
    234   1.1     ragge 	 */
    235   1.1     ragge 	error = bus_dmamap_create(sc->sc_dmat, MAXRLXFER, 1, MAXRLXFER, 0,
    236   1.1     ragge 	    BUS_DMA_ALLOCNOW, &sc->sc_dmam);
    237   1.1     ragge 	if (error) {
    238  1.38      matt 		aprint_error(": Failed to allocate DMA map, error %d\n", error);
    239   1.1     ragge 		return;
    240   1.1     ragge 	}
    241  1.26      yamt 	bufq_alloc(&sc->sc_q, "disksort", BUFQ_SORT_CYLINDER);
    242   1.1     ragge 	for (i = 0; i < RL_MAXDPC; i++) {
    243   1.1     ragge 		waitcrdy(sc);
    244   1.1     ragge 		RL_WREG(RL_DA, RLDA_GS|RLDA_RST);
    245   1.1     ragge 		RL_WREG(RL_CS, RLCS_GS|(i << RLCS_USHFT));
    246   1.1     ragge 		waitcrdy(sc);
    247   1.1     ragge 		ra.type = RL_RREG(RL_MP);
    248   1.1     ragge 		ra.hwid = i;
    249   1.1     ragge 		if ((RL_RREG(RL_CS) & RLCS_ERR) == 0)
    250  1.38      matt 			config_found(sc->sc_dev, &ra, rlcprint);
    251   1.1     ragge 	}
    252   1.1     ragge }
    253   1.1     ragge 
    254   1.1     ragge int
    255  1.38      matt rlmatch(device_t parent, cfdata_t cf, void *aux)
    256   1.1     ragge {
    257   1.1     ragge 	struct rlc_attach_args *ra = aux;
    258   1.1     ragge 
    259   1.1     ragge 	if (cf->cf_loc[RLCCF_DRIVE] != RLCCF_DRIVE_DEFAULT &&
    260   1.1     ragge 	    cf->cf_loc[RLCCF_DRIVE] != ra->hwid)
    261   1.1     ragge 		return 0;
    262   1.1     ragge 	return 1;
    263   1.1     ragge }
    264   1.1     ragge 
    265   1.1     ragge void
    266  1.38      matt rlattach(device_t parent, device_t self, void *aux)
    267   1.1     ragge {
    268  1.30   thorpej 	struct rl_softc *rc = device_private(self);
    269   1.1     ragge 	struct rlc_attach_args *ra = aux;
    270   1.1     ragge 	struct disklabel *dl;
    271   1.1     ragge 
    272  1.38      matt 	rc->rc_dev = self;
    273  1.38      matt 	rc->rc_rlc = device_private(parent);
    274   1.1     ragge 	rc->rc_hwid = ra->hwid;
    275  1.38      matt 	disk_init(&rc->rc_disk, device_xname(rc->rc_dev), &rldkdriver);
    276   1.1     ragge 	disk_attach(&rc->rc_disk);
    277   1.1     ragge 	dl = rc->rc_disk.dk_label;
    278   1.1     ragge 	dl->d_npartitions = 3;
    279   1.1     ragge 	strcpy(dl->d_typename, "RL01");
    280   1.1     ragge 	if (ra->type & RLMP_DT)
    281   1.1     ragge 		dl->d_typename[3] = '2';
    282   1.1     ragge 	dl->d_secsize = DEV_BSIZE; /* XXX - wrong, but OK for now */
    283   1.1     ragge 	dl->d_nsectors = RL_SPT/2;
    284   1.1     ragge 	dl->d_ntracks = RL_SPD;
    285   1.1     ragge 	dl->d_ncylinders = ra->type & RLMP_DT ? RL_TPS02 : RL_TPS01;
    286   1.1     ragge 	dl->d_secpercyl = dl->d_nsectors * dl->d_ntracks;
    287   1.1     ragge 	dl->d_secperunit = dl->d_ncylinders * dl->d_secpercyl;
    288   1.1     ragge 	dl->d_partitions[0].p_size = dl->d_partitions[2].p_size =
    289   1.1     ragge 	    dl->d_secperunit;
    290   1.1     ragge 	dl->d_partitions[0].p_offset = dl->d_partitions[2].p_offset = 0;
    291   1.1     ragge 	dl->d_interleave = dl->d_headswitch = 1;
    292   1.1     ragge 	dl->d_bbsize = BBSIZE;
    293  1.19        he 	dl->d_sbsize = SBLOCKSIZE;
    294   1.1     ragge 	dl->d_rpm = 2400;
    295   1.1     ragge 	dl->d_type = DTYPE_DEC;
    296  1.38      matt 	printf(": %s, %s\n", dl->d_typename, rlstate(rc->rc_rlc, ra->hwid));
    297  1.22   thorpej 
    298  1.22   thorpej 	/*
    299  1.22   thorpej 	 * XXX We should try to discovery wedges here, but
    300  1.22   thorpej 	 * XXX that would mean loading up the pack and being
    301  1.22   thorpej 	 * XXX able to do I/O.  Should use config_defer() here.
    302  1.22   thorpej 	 */
    303   1.1     ragge }
    304   1.1     ragge 
    305   1.1     ragge int
    306  1.27  christos rlopen(dev_t dev, int flag, int fmt, struct lwp *l)
    307   1.1     ragge {
    308  1.38      matt 	struct rl_softc * const rc = device_lookup_private(&rl_cd, DISKUNIT(dev));
    309  1.38      matt 	struct rlc_softc *sc;
    310  1.38      matt 	int error, part, mask;
    311   1.1     ragge 	struct disklabel *dl;
    312  1.20       dsl 	const char *msg;
    313  1.11     ragge 
    314   1.1     ragge 	/*
    315   1.1     ragge 	 * Make sure this is a reasonable open request.
    316   1.1     ragge 	 */
    317  1.38      matt 	if (rc == NULL)
    318   1.1     ragge 		return ENXIO;
    319   1.1     ragge 
    320  1.38      matt 	sc = rc->rc_rlc;
    321  1.22   thorpej 	part = DISKPART(dev);
    322  1.22   thorpej 
    323  1.34        ad 	mutex_enter(&rc->rc_disk.dk_openlock);
    324  1.22   thorpej 
    325  1.22   thorpej 	/*
    326  1.22   thorpej 	 * If there are wedges, and this is not RAW_PART, then we
    327  1.22   thorpej 	 * need to fail.
    328  1.22   thorpej 	 */
    329  1.22   thorpej 	if (rc->rc_disk.dk_nwedges != 0 && part != RAW_PART) {
    330  1.22   thorpej 		error = EBUSY;
    331  1.22   thorpej 		goto bad1;
    332  1.22   thorpej 	}
    333  1.22   thorpej 
    334  1.11     ragge 	/* Check that the disk actually is useable */
    335  1.11     ragge 	msg = rlstate(sc, rc->rc_hwid);
    336  1.11     ragge 	if (msg == NULL || msg == rlstates[RLMP_UNLOAD] ||
    337  1.22   thorpej 	    msg == rlstates[RLMP_SPUNDOWN]) {
    338  1.22   thorpej 		error = ENXIO;
    339  1.22   thorpej 		goto bad1;
    340  1.22   thorpej 	}
    341   1.1     ragge 	/*
    342   1.1     ragge 	 * If this is the first open; read in where on the disk we are.
    343   1.1     ragge 	 */
    344   1.1     ragge 	dl = rc->rc_disk.dk_label;
    345   1.1     ragge 	if (rc->rc_state == DK_CLOSED) {
    346   1.1     ragge 		u_int16_t mp;
    347  1.13   gehenna 		int maj;
    348   1.1     ragge 		RL_WREG(RL_CS, RLCS_RHDR|(rc->rc_hwid << RLCS_USHFT));
    349   1.1     ragge 		waitcrdy(sc);
    350   1.1     ragge 		mp = RL_RREG(RL_MP);
    351   1.1     ragge 		rc->rc_head = ((mp & RLMP_HS) == RLMP_HS);
    352   1.1     ragge 		rc->rc_cyl = (mp >> 7) & 0777;
    353   1.1     ragge 		rc->rc_state = DK_OPEN;
    354   1.1     ragge 		/* Get disk label */
    355  1.13   gehenna 		maj = cdevsw_lookup_major(&rl_cdevsw);
    356  1.13   gehenna 		if ((msg = readdisklabel(MAKEDISKDEV(maj,
    357  1.38      matt 		    device_unit(rc->rc_dev), RAW_PART), rlstrategy, dl, NULL)))
    358  1.38      matt 			aprint_normal_dev(rc->rc_dev, "%s", msg);
    359  1.38      matt 		aprint_normal_dev(rc->rc_dev, "size %d sectors\n",
    360  1.38      matt 		    dl->d_secperunit);
    361   1.1     ragge 	}
    362  1.22   thorpej 	if (part >= dl->d_npartitions) {
    363  1.22   thorpej 		error = ENXIO;
    364  1.22   thorpej 		goto bad1;
    365  1.22   thorpej 	}
    366   1.1     ragge 
    367   1.1     ragge 	mask = 1 << part;
    368   1.1     ragge 	switch (fmt) {
    369   1.1     ragge 	case S_IFCHR:
    370   1.1     ragge 		rc->rc_disk.dk_copenmask |= mask;
    371   1.1     ragge 		break;
    372   1.1     ragge 	case S_IFBLK:
    373   1.1     ragge 		rc->rc_disk.dk_bopenmask |= mask;
    374   1.1     ragge 		break;
    375   1.1     ragge 	}
    376   1.1     ragge 	rc->rc_disk.dk_openmask |= mask;
    377  1.34        ad 	error = 0;
    378  1.22   thorpej  bad1:
    379  1.34        ad 	mutex_exit(&rc->rc_disk.dk_openlock);
    380  1.22   thorpej 	return (error);
    381   1.1     ragge }
    382   1.1     ragge 
    383   1.1     ragge int
    384  1.27  christos rlclose(dev_t dev, int flag, int fmt, struct lwp *l)
    385   1.1     ragge {
    386  1.34        ad 	int unit = DISKUNIT(dev);
    387  1.39  drochner 	struct rl_softc *rc = device_lookup_private(&rl_cd, unit);
    388   1.1     ragge 	int mask = (1 << DISKPART(dev));
    389   1.1     ragge 
    390  1.34        ad 	mutex_enter(&rc->rc_disk.dk_openlock);
    391  1.22   thorpej 
    392   1.1     ragge 	switch (fmt) {
    393   1.1     ragge 	case S_IFCHR:
    394   1.1     ragge 		rc->rc_disk.dk_copenmask &= ~mask;
    395   1.1     ragge 		break;
    396   1.1     ragge 	case S_IFBLK:
    397   1.1     ragge 		rc->rc_disk.dk_bopenmask &= ~mask;
    398   1.1     ragge 		break;
    399   1.1     ragge 	}
    400   1.1     ragge 	rc->rc_disk.dk_openmask =
    401   1.1     ragge 	    rc->rc_disk.dk_copenmask | rc->rc_disk.dk_bopenmask;
    402   1.1     ragge 
    403   1.1     ragge 	if (rc->rc_disk.dk_openmask == 0)
    404   1.1     ragge 		rc->rc_state = DK_CLOSED; /* May change pack */
    405  1.34        ad 	mutex_exit(&rc->rc_disk.dk_openlock);
    406   1.1     ragge 	return 0;
    407   1.1     ragge }
    408   1.1     ragge 
    409   1.1     ragge void
    410   1.1     ragge rlstrategy(struct buf *bp)
    411   1.1     ragge {
    412  1.38      matt 	struct rl_softc * const rc = device_lookup_private(&rl_cd, DISKUNIT(bp->b_dev));
    413   1.1     ragge 	struct disklabel *lp;
    414  1.38      matt 	int s;
    415  1.38      matt 
    416  1.38      matt 	if (rc == NULL || rc->rc_state != DK_OPEN) /* How did we end up here at all? */
    417   1.1     ragge 		panic("rlstrategy: state impossible");
    418   1.1     ragge 
    419   1.1     ragge 	lp = rc->rc_disk.dk_label;
    420  1.38      matt 	if (bounds_check_with_label(&rc->rc_disk, bp, 1) <= 0)
    421   1.1     ragge 		goto done;
    422   1.1     ragge 
    423   1.1     ragge 	if (bp->b_bcount == 0)
    424   1.1     ragge 		goto done;
    425   1.1     ragge 
    426   1.1     ragge 	bp->b_rawblkno =
    427   1.1     ragge 	    bp->b_blkno + lp->d_partitions[DISKPART(bp->b_dev)].p_offset;
    428   1.1     ragge 	bp->b_cylinder = bp->b_rawblkno / lp->d_secpercyl;
    429   1.1     ragge 
    430   1.8   thorpej 	s = splbio();
    431  1.40      yamt 	bufq_put(rc->rc_rlc->sc_q, bp);
    432  1.38      matt 	rlcstart(rc->rc_rlc, 0);
    433   1.1     ragge 	splx(s);
    434   1.1     ragge 	return;
    435   1.1     ragge 
    436   1.1     ragge done:	biodone(bp);
    437   1.1     ragge }
    438   1.1     ragge 
    439   1.1     ragge int
    440  1.31  christos rlioctl(dev_t dev, u_long cmd, void *addr, int flag, struct lwp *l)
    441   1.1     ragge {
    442  1.39  drochner 	struct rl_softc *rc = device_lookup_private(&rl_cd, DISKUNIT(dev));
    443   1.1     ragge 	struct disklabel *lp = rc->rc_disk.dk_label;
    444   1.1     ragge 	int err = 0;
    445   1.6      fvdl #ifdef __HAVE_OLD_DISKLABEL
    446   1.6      fvdl 	struct disklabel newlabel;
    447   1.6      fvdl #endif
    448   1.1     ragge 
    449   1.1     ragge 	switch (cmd) {
    450   1.1     ragge 	case DIOCGDINFO:
    451  1.42   tsutsui 		memcpy(addr, lp, sizeof (struct disklabel));
    452   1.1     ragge 		break;
    453   1.1     ragge 
    454   1.6      fvdl #ifdef __HAVE_OLD_DISKLABEL
    455   1.6      fvdl 	case ODIOCGDINFO:
    456   1.6      fvdl 		newlabel = *lp;
    457   1.6      fvdl 		if (newlabel.d_npartitions > OLDMAXPARTITIONS)
    458   1.7      fvdl 			return ENOTTY;
    459  1.42   tsutsui 		memcpy(addr, &newlabel, sizeof (struct olddisklabel));
    460   1.6      fvdl 		break;
    461   1.6      fvdl #endif
    462   1.6      fvdl 
    463   1.1     ragge 	case DIOCGPART:
    464   1.1     ragge 		((struct partinfo *)addr)->disklab = lp;
    465   1.1     ragge 		((struct partinfo *)addr)->part =
    466   1.1     ragge 		    &lp->d_partitions[DISKPART(dev)];
    467   1.1     ragge 		break;
    468   1.1     ragge 
    469   1.1     ragge 	case DIOCSDINFO:
    470   1.1     ragge 	case DIOCWDINFO:
    471   1.6      fvdl #ifdef __HAVE_OLD_DISKLABEL
    472   1.6      fvdl 	case ODIOCWDINFO:
    473   1.6      fvdl 	case ODIOCSDINFO:
    474   1.6      fvdl #endif
    475   1.6      fvdl 	{
    476   1.6      fvdl 		struct disklabel *tp;
    477   1.6      fvdl 
    478   1.6      fvdl #ifdef __HAVE_OLD_DISKLABEL
    479   1.6      fvdl 		if (cmd == ODIOCSDINFO || cmd == ODIOCWDINFO) {
    480   1.6      fvdl 			memset(&newlabel, 0, sizeof newlabel);
    481   1.6      fvdl 			memcpy(&newlabel, addr, sizeof (struct olddisklabel));
    482   1.6      fvdl 			tp = &newlabel;
    483   1.6      fvdl 		} else
    484   1.6      fvdl #endif
    485   1.6      fvdl 		tp = (struct disklabel *)addr;
    486   1.6      fvdl 
    487   1.1     ragge 		if ((flag & FWRITE) == 0)
    488   1.1     ragge 			err = EBADF;
    489  1.22   thorpej 		else {
    490  1.34        ad 			mutex_enter(&rc->rc_disk.dk_openlock);
    491   1.6      fvdl 			err = ((
    492   1.6      fvdl #ifdef __HAVE_OLD_DISKLABEL
    493   1.6      fvdl 			       cmd == ODIOCSDINFO ||
    494   1.6      fvdl #endif
    495   1.6      fvdl 			       cmd == DIOCSDINFO) ?
    496   1.6      fvdl 			    setdisklabel(lp, tp, 0, 0) :
    497   1.1     ragge 			    writedisklabel(dev, rlstrategy, lp, 0));
    498  1.34        ad 			mutex_exit(&rc->rc_disk.dk_openlock);
    499  1.22   thorpej 		}
    500   1.1     ragge 		break;
    501   1.6      fvdl 	}
    502   1.1     ragge 
    503   1.1     ragge 	case DIOCWLABEL:
    504   1.1     ragge 		if ((flag & FWRITE) == 0)
    505   1.1     ragge 			err = EBADF;
    506   1.1     ragge 		break;
    507   1.1     ragge 
    508  1.38      matt 	case DIOCAWEDGE: {
    509  1.24    simonb 		struct dkwedge_info *dkw = (void *) addr;
    510  1.22   thorpej 
    511  1.22   thorpej 		if ((flag & FWRITE) == 0)
    512  1.22   thorpej 			return (EBADF);
    513  1.22   thorpej 
    514  1.22   thorpej 		/* If the ioctl happens here, the parent is us. */
    515  1.38      matt 		strcpy(dkw->dkw_parent, device_xname(rc->rc_dev));
    516  1.38      matt 		return dkwedge_add(dkw);
    517  1.38      matt 	}
    518  1.24    simonb 
    519  1.38      matt 	case DIOCDWEDGE: {
    520  1.24    simonb 		struct dkwedge_info *dkw = (void *) addr;
    521  1.22   thorpej 
    522  1.22   thorpej 		if ((flag & FWRITE) == 0)
    523  1.22   thorpej 			return (EBADF);
    524  1.22   thorpej 
    525  1.22   thorpej 		/* If the ioctl happens here, the parent is us. */
    526  1.38      matt 		strcpy(dkw->dkw_parent, device_xname(rc->rc_dev));
    527  1.38      matt 		return dkwedge_del(dkw);
    528  1.38      matt 	}
    529  1.24    simonb 
    530  1.38      matt 	case DIOCLWEDGES: {
    531  1.24    simonb 		struct dkwedge_list *dkwl = (void *) addr;
    532  1.22   thorpej 
    533  1.38      matt 		return dkwedge_list(&rc->rc_disk, dkwl, l);
    534  1.38      matt 	}
    535  1.22   thorpej 
    536   1.1     ragge 	default:
    537   1.1     ragge 		err = ENOTTY;
    538  1.38      matt 		break;
    539   1.1     ragge 	}
    540   1.1     ragge 	return err;
    541   1.1     ragge }
    542   1.1     ragge 
    543   1.1     ragge int
    544  1.38      matt rlpsize(dev_t dev)
    545   1.1     ragge {
    546  1.38      matt 	struct rl_softc * const rc = device_lookup_private(&rl_cd, DISKUNIT(dev));
    547   1.1     ragge 	struct disklabel *dl;
    548  1.38      matt 	int size;
    549   1.1     ragge 
    550  1.38      matt 	if (rc == NULL)
    551   1.1     ragge 		return -1;
    552   1.1     ragge 	dl = rc->rc_disk.dk_label;
    553   1.1     ragge 	size = dl->d_partitions[DISKPART(dev)].p_size *
    554   1.1     ragge 	    (dl->d_secsize / DEV_BSIZE);
    555   1.1     ragge 	return size;
    556   1.1     ragge }
    557   1.1     ragge 
    558   1.1     ragge int
    559  1.31  christos rldump(dev_t dev, daddr_t blkno, void *va, size_t size)
    560   1.1     ragge {
    561   1.1     ragge 	/* Not likely... */
    562   1.1     ragge 	return 0;
    563   1.1     ragge }
    564   1.1     ragge 
    565   1.1     ragge int
    566   1.1     ragge rlread(dev_t dev, struct uio *uio, int ioflag)
    567   1.1     ragge {
    568   1.1     ragge 	return (physio(rlstrategy, NULL, dev, B_READ, minphys, uio));
    569   1.1     ragge }
    570   1.1     ragge 
    571   1.1     ragge int
    572   1.1     ragge rlwrite(dev_t dev, struct uio *uio, int ioflag)
    573   1.1     ragge {
    574   1.1     ragge 	return (physio(rlstrategy, NULL, dev, B_WRITE, minphys, uio));
    575   1.1     ragge }
    576   1.1     ragge 
    577  1.38      matt static const char * const rlerr[] = {
    578   1.1     ragge 	"no",
    579   1.1     ragge 	"operation incomplete",
    580   1.1     ragge 	"read data CRC",
    581   1.1     ragge 	"header CRC",
    582   1.1     ragge 	"data late",
    583   1.1     ragge 	"header not found",
    584   1.1     ragge 	"",
    585   1.1     ragge 	"",
    586   1.9       wiz 	"non-existent memory",
    587   1.1     ragge 	"memory parity error",
    588   1.1     ragge 	"",
    589   1.1     ragge 	"",
    590   1.1     ragge 	"",
    591   1.1     ragge 	"",
    592   1.1     ragge 	"",
    593   1.1     ragge 	"",
    594   1.1     ragge };
    595   1.1     ragge 
    596   1.1     ragge void
    597   1.1     ragge rlcintr(void *arg)
    598   1.1     ragge {
    599   1.1     ragge 	struct rlc_softc *sc = arg;
    600   1.1     ragge 	struct buf *bp;
    601   1.1     ragge 	u_int16_t cs;
    602   1.1     ragge 
    603   1.1     ragge 	bp = sc->sc_active;
    604   1.1     ragge 	if (bp == 0) {
    605  1.38      matt 		aprint_error_dev(sc->sc_dev, "strange interrupt\n");
    606   1.1     ragge 		return;
    607   1.1     ragge 	}
    608   1.1     ragge 	bus_dmamap_unload(sc->sc_dmat, sc->sc_dmam);
    609   1.1     ragge 	sc->sc_active = 0;
    610   1.1     ragge 	cs = RL_RREG(RL_CS);
    611   1.1     ragge 	if (cs & RLCS_ERR) {
    612   1.1     ragge 		int error = (cs & RLCS_ERRMSK) >> 10;
    613   1.1     ragge 
    614  1.38      matt 		aprint_error_dev(sc->sc_dev, "%s\n", rlerr[error]);
    615   1.1     ragge 		bp->b_error = EIO;
    616   1.1     ragge 		bp->b_resid = bp->b_bcount;
    617   1.1     ragge 		sc->sc_bytecnt = 0;
    618   1.1     ragge 	}
    619   1.1     ragge 	if (sc->sc_bytecnt == 0) /* Finished transfer */
    620   1.1     ragge 		biodone(bp);
    621   1.1     ragge 	rlcstart(sc, sc->sc_bytecnt ? bp : 0);
    622   1.1     ragge }
    623   1.1     ragge 
    624   1.1     ragge /*
    625  1.24    simonb  * Start routine. First position the disk to the given position,
    626   1.1     ragge  * then start reading/writing. An optimization would be to be able
    627   1.1     ragge  * to handle overlapping seeks between disks.
    628   1.1     ragge  */
    629   1.1     ragge void
    630   1.1     ragge rlcstart(struct rlc_softc *sc, struct buf *ob)
    631   1.1     ragge {
    632   1.1     ragge 	struct disklabel *lp;
    633   1.1     ragge 	struct rl_softc *rc;
    634   1.1     ragge 	struct buf *bp;
    635   1.1     ragge 	int bn, cn, sn, tn, blks, err;
    636   1.1     ragge 
    637   1.1     ragge 	if (sc->sc_active)
    638   1.1     ragge 		return;	/* Already doing something */
    639   1.1     ragge 
    640   1.1     ragge 	if (ob == 0) {
    641  1.40      yamt 		bp = bufq_get(sc->sc_q);
    642   1.1     ragge 		if (bp == NULL)
    643   1.1     ragge 			return;	/* Nothing to do */
    644   1.3   thorpej 		sc->sc_bufaddr = bp->b_data;
    645   1.1     ragge 		sc->sc_diskblk = bp->b_rawblkno;
    646   1.1     ragge 		sc->sc_bytecnt = bp->b_bcount;
    647   1.1     ragge 		bp->b_resid = 0;
    648   1.1     ragge 	} else
    649   1.1     ragge 		bp = ob;
    650   1.1     ragge 	sc->sc_active = bp;
    651   1.1     ragge 
    652  1.39  drochner 	rc = device_lookup_private(&rl_cd, DISKUNIT(bp->b_dev));
    653   1.1     ragge 	bn = sc->sc_diskblk;
    654   1.1     ragge 	lp = rc->rc_disk.dk_label;
    655   1.1     ragge 	if (bn) {
    656   1.1     ragge 		cn = bn / lp->d_secpercyl;
    657   1.1     ragge 		sn = bn % lp->d_secpercyl;
    658   1.1     ragge 		tn = sn / lp->d_nsectors;
    659   1.1     ragge 		sn = sn % lp->d_nsectors;
    660   1.1     ragge 	} else
    661   1.1     ragge 		cn = sn = tn = 0;
    662   1.1     ragge 
    663   1.1     ragge 	/*
    664   1.1     ragge 	 * Check if we have to position disk first.
    665   1.1     ragge 	 */
    666   1.1     ragge 	if (rc->rc_cyl != cn || rc->rc_head != tn) {
    667   1.1     ragge 		u_int16_t da = RLDA_SEEK;
    668   1.1     ragge 		if (cn > rc->rc_cyl)
    669   1.1     ragge 			da |= ((cn - rc->rc_cyl) << RLDA_CYLSHFT) | RLDA_DIR;
    670   1.1     ragge 		else
    671   1.1     ragge 			da |= ((rc->rc_cyl - cn) << RLDA_CYLSHFT);
    672   1.1     ragge 		if (tn)
    673   1.1     ragge 			da |= RLDA_HSSEEK;
    674   1.1     ragge 		waitcrdy(sc);
    675   1.1     ragge 		RL_WREG(RL_DA, da);
    676   1.1     ragge 		RL_WREG(RL_CS, RLCS_SEEK | (rc->rc_hwid << RLCS_USHFT));
    677   1.1     ragge 		waitcrdy(sc);
    678   1.1     ragge 		rc->rc_cyl = cn;
    679   1.1     ragge 		rc->rc_head = tn;
    680   1.1     ragge 	}
    681   1.1     ragge 	RL_WREG(RL_DA, (cn << RLDA_CYLSHFT) | (tn ? RLDA_HSRW : 0) | (sn << 1));
    682   1.1     ragge 	blks = sc->sc_bytecnt/DEV_BSIZE;
    683   1.1     ragge 
    684   1.1     ragge 	if (sn + blks > RL_SPT/2)
    685   1.1     ragge 		blks = RL_SPT/2 - sn;
    686   1.1     ragge 	RL_WREG(RL_MP, -(blks*DEV_BSIZE)/2);
    687   1.1     ragge 	err = bus_dmamap_load(sc->sc_dmat, sc->sc_dmam, sc->sc_bufaddr,
    688  1.11     ragge 	    (blks*DEV_BSIZE), (bp->b_flags & B_PHYS ? bp->b_proc : 0),
    689  1.11     ragge 	    BUS_DMA_NOWAIT);
    690   1.1     ragge 	if (err)
    691   1.1     ragge 		panic("%s: bus_dmamap_load failed: %d",
    692  1.38      matt 		    device_xname(sc->sc_dev), err);
    693   1.1     ragge 	RL_WREG(RL_BA, (sc->sc_dmam->dm_segs[0].ds_addr & 0xffff));
    694   1.1     ragge 
    695   1.1     ragge 	/* Count up vars */
    696  1.33  christos 	sc->sc_bufaddr = (char *)sc->sc_bufaddr + (blks*DEV_BSIZE);
    697   1.1     ragge 	sc->sc_diskblk += blks;
    698   1.1     ragge 	sc->sc_bytecnt -= (blks*DEV_BSIZE);
    699   1.1     ragge 
    700   1.1     ragge 	if (bp->b_flags & B_READ)
    701   1.1     ragge 		RL_WREG(RL_CS, RLCS_IE|RLCS_RD|(rc->rc_hwid << RLCS_USHFT));
    702   1.1     ragge 	else
    703   1.1     ragge 		RL_WREG(RL_CS, RLCS_IE|RLCS_WD|(rc->rc_hwid << RLCS_USHFT));
    704   1.2     ragge }
    705   1.2     ragge 
    706  1.11     ragge /*
    707  1.11     ragge  * Called once per controller when an ubareset occurs.
    708  1.11     ragge  * Retracts all disks and restarts active transfers.
    709  1.11     ragge  */
    710   1.2     ragge void
    711  1.38      matt rlcreset(device_t dev)
    712   1.2     ragge {
    713  1.38      matt 	struct rlc_softc *sc = device_private(dev);
    714  1.11     ragge 	struct rl_softc *rc;
    715  1.11     ragge 	int i;
    716   1.2     ragge 	u_int16_t mp;
    717   1.2     ragge 
    718  1.11     ragge 	for (i = 0; i < rl_cd.cd_ndevs; i++) {
    719  1.38      matt 		if ((rc = device_lookup_private(&rl_cd, i)) == NULL)
    720  1.11     ragge 			continue;
    721  1.11     ragge 		if (rc->rc_state != DK_OPEN)
    722  1.11     ragge 			continue;
    723  1.38      matt 		if (rc->rc_rlc != sc)
    724  1.38      matt 			continue;
    725  1.11     ragge 
    726  1.11     ragge 		RL_WREG(RL_CS, RLCS_RHDR|(rc->rc_hwid << RLCS_USHFT));
    727  1.11     ragge 		waitcrdy(sc);
    728  1.11     ragge 		mp = RL_RREG(RL_MP);
    729  1.11     ragge 		rc->rc_head = ((mp & RLMP_HS) == RLMP_HS);
    730  1.11     ragge 		rc->rc_cyl = (mp >> 7) & 0777;
    731  1.11     ragge 	}
    732   1.2     ragge 	if (sc->sc_active == 0)
    733   1.2     ragge 		return;
    734   1.2     ragge 
    735  1.40      yamt 	bufq_put(sc->sc_q, sc->sc_active);
    736   1.2     ragge 	sc->sc_active = 0;
    737   1.2     ragge 	rlcstart(sc, 0);
    738   1.1     ragge }
    739