Home | History | Annotate | Line # | Download | only in dev
sci.c revision 1.26
      1  1.26   aymeric /*	$NetBSD: sci.c,v 1.26 2002/01/26 13:41:00 aymeric Exp $ */
      2   1.8       cgd 
      3   1.5    chopps /*
      4   1.5    chopps  * Copyright (c) 1994 Michael L. Hitch
      5   1.1    chopps  * Copyright (c) 1990 The Regents of the University of California.
      6   1.1    chopps  * All rights reserved.
      7   1.1    chopps  *
      8   1.1    chopps  * This code is derived from software contributed to Berkeley by
      9   1.1    chopps  * Van Jacobson of Lawrence Berkeley Laboratory.
     10   1.1    chopps  *
     11   1.1    chopps  * Redistribution and use in source and binary forms, with or without
     12   1.1    chopps  * modification, are permitted provided that the following conditions
     13   1.1    chopps  * are met:
     14   1.1    chopps  * 1. Redistributions of source code must retain the above copyright
     15   1.1    chopps  *    notice, this list of conditions and the following disclaimer.
     16   1.1    chopps  * 2. Redistributions in binary form must reproduce the above copyright
     17   1.1    chopps  *    notice, this list of conditions and the following disclaimer in the
     18   1.1    chopps  *    documentation and/or other materials provided with the distribution.
     19   1.1    chopps  * 3. All advertising materials mentioning features or use of this software
     20   1.1    chopps  *    must display the following acknowledgement:
     21   1.1    chopps  *	This product includes software developed by the University of
     22   1.1    chopps  *	California, Berkeley and its contributors.
     23   1.1    chopps  * 4. Neither the name of the University nor the names of its contributors
     24   1.1    chopps  *    may be used to endorse or promote products derived from this software
     25   1.1    chopps  *    without specific prior written permission.
     26   1.1    chopps  *
     27   1.1    chopps  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     28   1.1    chopps  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     29   1.1    chopps  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     30   1.1    chopps  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     31   1.1    chopps  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     32   1.1    chopps  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     33   1.1    chopps  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     34   1.1    chopps  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     35   1.1    chopps  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     36   1.1    chopps  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     37   1.1    chopps  * SUCH DAMAGE.
     38   1.1    chopps  *
     39   1.5    chopps  *	@(#)scsi.c	7.5 (Berkeley) 5/4/91
     40   1.1    chopps  */
     41   1.1    chopps 
     42   1.1    chopps /*
     43   1.1    chopps  * AMIGA NCR 5380 scsi adaptor driver
     44   1.1    chopps  */
     45   1.1    chopps 
     46   1.1    chopps #include <sys/param.h>
     47   1.1    chopps #include <sys/systm.h>
     48   1.5    chopps #include <sys/device.h>
     49  1.11    chopps #include <sys/disklabel.h>
     50  1.11    chopps #include <sys/dkstat.h>
     51   1.1    chopps #include <sys/buf.h>
     52  1.20    bouyer #include <dev/scsipi/scsi_all.h>
     53  1.20    bouyer #include <dev/scsipi/scsipi_all.h>
     54  1.20    bouyer #include <dev/scsipi/scsiconf.h>
     55  1.23       mrg #include <uvm/uvm_extern.h>
     56   1.1    chopps #include <machine/pmap.h>
     57   1.5    chopps #include <machine/cpu.h>
     58   1.5    chopps #include <amiga/amiga/device.h>
     59   1.5    chopps #include <amiga/amiga/custom.h>
     60  1.11    chopps #include <amiga/amiga/isr.h>
     61   1.5    chopps #include <amiga/dev/scireg.h>
     62   1.1    chopps #include <amiga/dev/scivar.h>
     63   1.1    chopps 
     64   1.1    chopps /*
     65   1.1    chopps  * SCSI delays
     66   1.1    chopps  * In u-seconds, primarily for state changes on the SPC.
     67   1.1    chopps  */
     68   1.5    chopps #define	SCI_CMD_WAIT	50000	/* wait per step of 'immediate' cmds */
     69   1.5    chopps #define	SCI_DATA_WAIT	50000	/* wait per data in/out step */
     70   1.5    chopps #define	SCI_INIT_WAIT	50000	/* wait per step (both) during init */
     71   1.1    chopps 
     72  1.26   aymeric int  sciicmd(struct sci_softc *, int, void *, int, void *, int,u_char);
     73  1.26   aymeric int  scigo(struct sci_softc *, struct scsipi_xfer *);
     74  1.26   aymeric int  sciselectbus(struct sci_softc *, u_char, u_char);
     75  1.26   aymeric void sciabort(struct sci_softc *, char *);
     76  1.26   aymeric void scierror(struct sci_softc *, u_char);
     77  1.26   aymeric void scisetdelay(int);
     78  1.26   aymeric void sci_scsidone(struct sci_softc *, int);
     79  1.26   aymeric void sci_donextcmd(struct sci_softc *);
     80  1.26   aymeric int  sci_ixfer_out(struct sci_softc *, int, register u_char *, int);
     81  1.26   aymeric void sci_ixfer_in(struct sci_softc *, int, register u_char *, int);
     82   1.5    chopps 
     83   1.5    chopps int sci_cmd_wait = SCI_CMD_WAIT;
     84   1.5    chopps int sci_data_wait = SCI_DATA_WAIT;
     85   1.5    chopps int sci_init_wait = SCI_INIT_WAIT;
     86   1.1    chopps 
     87   1.5    chopps int sci_no_dma = 0;
     88   1.5    chopps 
     89   1.5    chopps #ifdef DEBUG
     90  1.19  christos #define QPRINTF(a) if (sci_debug > 1) printf a
     91   1.5    chopps int	sci_debug = 0;
     92   1.1    chopps #else
     93  1.16     veego #define QPRINTF(a)
     94   1.1    chopps #endif
     95   1.1    chopps 
     96   1.5    chopps /*
     97   1.5    chopps  * default minphys routine for sci based controllers
     98   1.5    chopps  */
     99  1.13   mycroft void
    100  1.26   aymeric sci_minphys(struct buf *bp)
    101   1.5    chopps {
    102  1.13   mycroft 
    103   1.5    chopps 	/*
    104  1.13   mycroft 	 * No max transfer at this level.
    105   1.5    chopps 	 */
    106  1.13   mycroft 	minphys(bp);
    107   1.5    chopps }
    108   1.5    chopps 
    109   1.5    chopps /*
    110   1.5    chopps  * used by specific sci controller
    111   1.5    chopps  *
    112   1.5    chopps  * it appears that the higher level code does nothing with LUN's
    113   1.5    chopps  * so I will too.  I could plug it in, however so could they
    114  1.20    bouyer  * in scsi_scsipi_cmd().
    115   1.5    chopps  */
    116  1.25    bouyer void
    117  1.26   aymeric sci_scsipi_request(struct scsipi_channel *chan, scsipi_adapter_req_t req,
    118  1.26   aymeric                    void *arg)
    119  1.25    bouyer {
    120  1.20    bouyer 	struct scsipi_xfer *xs;
    121  1.25    bouyer 	struct scsipi_periph *periph;
    122  1.25    bouyer 	struct sci_softc *dev = (void *)chan->chan_adapter->adapt_dev;
    123   1.5    chopps 	int flags, s;
    124   1.1    chopps 
    125  1.25    bouyer 	switch (req) {
    126  1.25    bouyer 	case ADAPTER_REQ_RUN_XFER:
    127  1.25    bouyer 		xs = arg;
    128  1.25    bouyer 		periph = xs->xs_periph;
    129  1.25    bouyer 		flags = xs->xs_control;
    130   1.1    chopps 
    131  1.25    bouyer 		if (flags & XS_CTL_DATA_UIO)
    132   1.5    chopps 		panic("sci: scsi data uio requested");
    133  1.13   mycroft 
    134  1.25    bouyer 		if (dev->sc_xs && flags & XS_CTL_POLL)
    135  1.25    bouyer 			panic("sci_scsicmd: busy");
    136   1.1    chopps 
    137  1.25    bouyer #ifdef DIAGNOSTIC
    138  1.25    bouyer 		/*
    139  1.25    bouyer 		 * This should never happen as we track the resources
    140  1.25    bouyer 		 * in the mid-layer.
    141  1.25    bouyer 		 */
    142  1.25    bouyer 		if (dev->sc_xs) {
    143  1.25    bouyer 			scsipi_printaddr(periph);
    144  1.25    bouyer 			printf("unable to allocate scb\n");
    145  1.25    bouyer 			panic("sea_scsipi_request");
    146  1.25    bouyer 		}
    147  1.25    bouyer #endif
    148  1.25    bouyer 
    149  1.25    bouyer 		dev->sc_xs = xs;
    150   1.5    chopps 		splx(s);
    151   1.1    chopps 
    152  1.25    bouyer 		/*
    153  1.25    bouyer 		 * nothing is pending do it now.
    154  1.25    bouyer 		 */
    155  1.25    bouyer 		sci_donextcmd(dev);
    156  1.25    bouyer 
    157  1.25    bouyer 		return;
    158   1.1    chopps 
    159  1.25    bouyer 	case ADAPTER_REQ_GROW_RESOURCES:
    160  1.25    bouyer 		return;
    161   1.1    chopps 
    162  1.25    bouyer 	case ADAPTER_REQ_SET_XFER_MODE:
    163  1.25    bouyer 		return;
    164  1.25    bouyer 	}
    165   1.5    chopps }
    166   1.1    chopps 
    167   1.5    chopps /*
    168   1.5    chopps  * entered with dev->sc_xs pointing to the next xfer to perform
    169   1.5    chopps  */
    170   1.5    chopps void
    171  1.26   aymeric sci_donextcmd(struct sci_softc *dev)
    172   1.5    chopps {
    173  1.20    bouyer 	struct scsipi_xfer *xs;
    174  1.25    bouyer 	struct scsipi_periph *periph;
    175   1.5    chopps 	int flags, phase, stat;
    176   1.5    chopps 
    177   1.5    chopps 	xs = dev->sc_xs;
    178  1.25    bouyer 	periph = xs->xs_periph;
    179  1.21   thorpej 	flags = xs->xs_control;
    180   1.5    chopps 
    181  1.21   thorpej 	if (flags & XS_CTL_DATA_IN)
    182   1.5    chopps 		phase = DATA_IN_PHASE;
    183  1.21   thorpej 	else if (flags & XS_CTL_DATA_OUT)
    184   1.5    chopps 		phase = DATA_OUT_PHASE;
    185   1.5    chopps 	else
    186   1.5    chopps 		phase = STATUS_PHASE;
    187  1.13   mycroft 
    188  1.21   thorpej 	if (flags & XS_CTL_RESET)
    189   1.5    chopps 		scireset(dev);
    190   1.1    chopps 
    191   1.5    chopps 	dev->sc_stat[0] = -1;
    192  1.25    bouyer 	xs->cmd->bytes[0] |= periph->periph_lun << 5;
    193  1.21   thorpej 	if (phase == STATUS_PHASE || flags & XS_CTL_POLL)
    194  1.25    bouyer 		stat = sciicmd(dev, periph->periph_target, xs->cmd, xs->cmdlen,
    195   1.5    chopps 		    xs->data, xs->datalen, phase);
    196   1.5    chopps 	else if (scigo(dev, xs) == 0)
    197   1.5    chopps 		return;
    198  1.13   mycroft 	else
    199   1.5    chopps 		stat = dev->sc_stat[0];
    200  1.13   mycroft 
    201   1.5    chopps 	sci_scsidone(dev, stat);
    202   1.5    chopps }
    203   1.1    chopps 
    204   1.5    chopps void
    205  1.26   aymeric sci_scsidone(struct sci_softc *dev, int stat)
    206   1.5    chopps {
    207  1.20    bouyer 	struct scsipi_xfer *xs;
    208   1.5    chopps 
    209   1.5    chopps 	xs = dev->sc_xs;
    210   1.5    chopps #ifdef DIAGNOSTIC
    211   1.5    chopps 	if (xs == NULL)
    212   1.5    chopps 		panic("sci_scsidone");
    213  1.11    chopps #endif
    214   1.5    chopps 	xs->status = stat;
    215  1.10    chopps 	if (stat == 0)
    216   1.5    chopps 		xs->resid = 0;
    217   1.5    chopps 	else {
    218   1.5    chopps 		switch(stat) {
    219   1.5    chopps 		case SCSI_CHECK:
    220  1.25    bouyer 			xs->resid = 0;
    221  1.25    bouyer 			/* FALLTHOUGH */
    222   1.5    chopps 		case SCSI_BUSY:
    223   1.5    chopps 			xs->error = XS_BUSY;
    224   1.5    chopps 			break;
    225   1.5    chopps 		default:
    226   1.5    chopps 			xs->error = XS_DRIVER_STUFFUP;
    227   1.5    chopps 			QPRINTF(("sci_scsicmd() bad %x\n", stat));
    228   1.5    chopps 			break;
    229   1.5    chopps 		}
    230   1.5    chopps 	}
    231  1.21   thorpej 
    232  1.20    bouyer 	scsipi_done(xs);
    233   1.1    chopps 
    234   1.1    chopps }
    235   1.1    chopps 
    236   1.5    chopps void
    237  1.26   aymeric sciabort(struct sci_softc *dev, char *where)
    238   1.1    chopps {
    239  1.19  christos 	printf ("%s: abort %s: csr = 0x%02x, bus = 0x%02x\n",
    240   1.5    chopps 	  dev->sc_dev.dv_xname, where, *dev->sci_csr, *dev->sci_bus_csr);
    241   1.1    chopps 
    242   1.1    chopps 	if (dev->sc_flags & SCI_SELECTED) {
    243   1.1    chopps 
    244   1.7    chopps 		/* lets just hope it worked.. */
    245   1.7    chopps 		dev->sc_flags &= ~SCI_SELECTED;
    246   1.1    chopps 		/* XXX */
    247   1.5    chopps 		scireset (dev);
    248   1.1    chopps 	}
    249   1.1    chopps }
    250   1.1    chopps 
    251   1.1    chopps /*
    252   1.1    chopps  * XXX Set/reset long delays.
    253   1.1    chopps  *
    254   1.1    chopps  * if delay == 0, reset default delays
    255   1.1    chopps  * if delay < 0,  set both delays to default long initialization values
    256   1.1    chopps  * if delay > 0,  set both delays to this value
    257   1.1    chopps  *
    258   1.1    chopps  * Used when a devices is expected to respond slowly (e.g. during
    259   1.1    chopps  * initialization).
    260   1.1    chopps  */
    261   1.1    chopps void
    262  1.26   aymeric scisetdelay(int del)
    263   1.1    chopps {
    264   1.1    chopps 	static int saved_cmd_wait, saved_data_wait;
    265   1.1    chopps 
    266   1.5    chopps 	if (del) {
    267   1.1    chopps 		saved_cmd_wait = sci_cmd_wait;
    268   1.1    chopps 		saved_data_wait = sci_data_wait;
    269   1.5    chopps 		if (del > 0)
    270   1.5    chopps 			sci_cmd_wait = sci_data_wait = del;
    271   1.1    chopps 		else
    272   1.1    chopps 			sci_cmd_wait = sci_data_wait = sci_init_wait;
    273   1.1    chopps 	} else {
    274   1.1    chopps 		sci_cmd_wait = saved_cmd_wait;
    275   1.1    chopps 		sci_data_wait = saved_data_wait;
    276   1.1    chopps 	}
    277   1.1    chopps }
    278   1.1    chopps 
    279   1.1    chopps void
    280  1.26   aymeric scireset(struct sci_softc *dev)
    281   1.1    chopps {
    282  1.16     veego 	u_int s;
    283  1.16     veego 	u_char my_id;
    284   1.1    chopps 
    285   1.7    chopps 	dev->sc_flags &= ~SCI_SELECTED;
    286   1.1    chopps 	if (dev->sc_flags & SCI_ALIVE)
    287   1.5    chopps 		sciabort(dev, "reset");
    288   1.1    chopps 
    289  1.19  christos 	printf("%s: ", dev->sc_dev.dv_xname);
    290   1.1    chopps 
    291   1.1    chopps 	s = splbio();
    292   1.1    chopps 	/* preserve our ID for now */
    293   1.1    chopps 	my_id = 7;
    294   1.1    chopps 
    295   1.1    chopps 	/*
    296   1.5    chopps 	 * Reset the chip
    297   1.1    chopps 	 */
    298   1.1    chopps 	*dev->sci_icmd = SCI_ICMD_TEST;
    299   1.1    chopps 	*dev->sci_icmd = SCI_ICMD_TEST | SCI_ICMD_RST;
    300   1.6    chopps 	delay (25);
    301   1.1    chopps 	*dev->sci_icmd = 0;
    302   1.1    chopps 
    303   1.1    chopps 	/*
    304   1.1    chopps 	 * Set up various chip parameters
    305   1.1    chopps 	 */
    306   1.1    chopps 	*dev->sci_icmd = 0;
    307   1.1    chopps 	*dev->sci_tcmd = 0;
    308   1.1    chopps 	*dev->sci_sel_enb = 0;
    309   1.1    chopps 
    310   1.1    chopps 	/* anything else was zeroed by reset */
    311   1.1    chopps 
    312   1.1    chopps 	splx (s);
    313   1.1    chopps 
    314  1.19  christos 	printf("sci id %d\n", my_id);
    315   1.1    chopps 	dev->sc_flags |= SCI_ALIVE;
    316   1.1    chopps }
    317   1.1    chopps 
    318   1.5    chopps void
    319  1.26   aymeric scierror(struct sci_softc *dev, u_char csr)
    320   1.1    chopps {
    321  1.20    bouyer 	struct scsipi_xfer *xs;
    322   1.1    chopps 
    323   1.5    chopps 	xs = dev->sc_xs;
    324   1.5    chopps 
    325   1.5    chopps #ifdef DIAGNOSTIC
    326   1.5    chopps 	if (xs == NULL)
    327   1.5    chopps 		panic("scierror");
    328   1.5    chopps #endif
    329  1.21   thorpej 	if (xs->xs_control & XS_CTL_SILENT)
    330   1.5    chopps 		return;
    331   1.5    chopps 
    332  1.19  christos 	printf("%s: ", dev->sc_dev.dv_xname);
    333  1.19  christos 	printf("csr == 0x%02i\n", csr);	/* XXX */
    334   1.1    chopps }
    335   1.1    chopps 
    336   1.5    chopps /*
    337   1.5    chopps  * select the bus, return when selected or error.
    338   1.5    chopps  */
    339   1.5    chopps int
    340  1.26   aymeric sciselectbus(struct sci_softc *dev, u_char target, u_char our_addr)
    341   1.1    chopps {
    342   1.1    chopps 	register int timeo = 2500;
    343   1.1    chopps 
    344   1.5    chopps 	QPRINTF (("sciselectbus %d\n", target));
    345   1.1    chopps 
    346   1.1    chopps 	/* if we're already selected, return */
    347   1.1    chopps 	if (dev->sc_flags & SCI_SELECTED)	/* XXXX */
    348   1.1    chopps 		return 1;
    349   1.1    chopps 
    350   1.1    chopps 	if ((*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)) &&
    351   1.1    chopps 	    (*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)) &&
    352   1.1    chopps 	    (*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)))
    353   1.1    chopps 		return 1;
    354   1.1    chopps 
    355   1.1    chopps 	*dev->sci_tcmd = 0;
    356   1.1    chopps 	*dev->sci_odata = 0x80 + (1 << target);
    357   1.1    chopps 	*dev->sci_icmd = SCI_ICMD_DATA|SCI_ICMD_SEL;
    358   1.1    chopps 	while ((*dev->sci_bus_csr & SCI_BUS_BSY) == 0) {
    359   1.1    chopps 		if (--timeo > 0) {
    360   1.6    chopps 			delay(100);
    361   1.1    chopps 		} else {
    362   1.1    chopps 			break;
    363   1.1    chopps 		}
    364   1.1    chopps 	}
    365   1.1    chopps 	if (timeo) {
    366   1.1    chopps 		*dev->sci_icmd = 0;
    367   1.1    chopps 		dev->sc_flags |= SCI_SELECTED;
    368   1.1    chopps 		return (0);
    369   1.1    chopps 	}
    370   1.1    chopps 	*dev->sci_icmd = 0;
    371   1.1    chopps 	return (1);
    372   1.1    chopps }
    373   1.1    chopps 
    374   1.5    chopps int
    375  1.26   aymeric sci_ixfer_out(register struct sci_softc *dev, int len, register u_char *buf,
    376  1.26   aymeric               int phase)
    377   1.1    chopps {
    378   1.1    chopps 	register int wait = sci_data_wait;
    379   1.1    chopps 	u_char csr;
    380   1.1    chopps 
    381   1.5    chopps 	QPRINTF(("sci_ixfer_out {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
    382   1.1    chopps 	  len, buf[0], buf[1], buf[2], buf[3], buf[4], buf[5],
    383   1.1    chopps 	  buf[6], buf[7], buf[8], buf[9]));
    384   1.1    chopps 
    385   1.1    chopps 	*dev->sci_tcmd = phase;
    386   1.1    chopps 	*dev->sci_icmd = SCI_ICMD_DATA;
    387   1.1    chopps 	for (;len > 0; len--) {
    388   1.1    chopps 		csr = *dev->sci_bus_csr;
    389   1.1    chopps 		while (!(csr & SCI_BUS_REQ)) {
    390   1.1    chopps 			if ((csr & SCI_BUS_BSY) == 0 || --wait < 0) {
    391   1.1    chopps #ifdef DEBUG
    392   1.1    chopps 				if (sci_debug)
    393  1.19  christos 					printf("sci_ixfer_out fail: l%d i%x w%d\n",
    394   1.1    chopps 					  len, csr, wait);
    395   1.1    chopps #endif
    396   1.1    chopps 				return (len);
    397   1.1    chopps 			}
    398   1.6    chopps 			delay(1);
    399   1.1    chopps 			csr = *dev->sci_bus_csr;
    400   1.1    chopps 		}
    401   1.1    chopps 
    402   1.1    chopps 		if (!(*dev->sci_csr & SCI_CSR_PHASE_MATCH))
    403   1.1    chopps 			break;
    404   1.1    chopps 		*dev->sci_odata = *buf;
    405   1.1    chopps 		*dev->sci_icmd = SCI_ICMD_DATA|SCI_ICMD_ACK;
    406   1.1    chopps 		buf++;
    407   1.1    chopps 		while (*dev->sci_bus_csr & SCI_BUS_REQ);
    408   1.1    chopps 		*dev->sci_icmd = SCI_ICMD_DATA;
    409   1.1    chopps 	}
    410   1.1    chopps 
    411   1.5    chopps 	QPRINTF(("sci_ixfer_out done\n"));
    412   1.1    chopps 	return (0);
    413   1.1    chopps }
    414   1.1    chopps 
    415   1.5    chopps void
    416  1.26   aymeric sci_ixfer_in(struct sci_softc *dev, int len, register u_char *buf, int phase)
    417   1.1    chopps {
    418   1.1    chopps 	int wait = sci_data_wait;
    419   1.1    chopps 	u_char csr;
    420   1.1    chopps 	volatile register u_char *sci_bus_csr = dev->sci_bus_csr;
    421   1.1    chopps 	volatile register u_char *sci_data = dev->sci_data;
    422   1.1    chopps 	volatile register u_char *sci_icmd = dev->sci_icmd;
    423  1.16     veego #ifdef DEBUG
    424  1.16     veego 	u_char *obp = buf;
    425  1.16     veego #endif
    426   1.1    chopps 
    427   1.1    chopps 	csr = *sci_bus_csr;
    428   1.1    chopps 
    429   1.5    chopps 	QPRINTF(("sci_ixfer_in %d, csr=%02x\n", len, csr));
    430   1.1    chopps 
    431   1.1    chopps 	*dev->sci_tcmd = phase;
    432   1.1    chopps 	*sci_icmd = 0;
    433   1.1    chopps 	for (;len > 0; len--) {
    434   1.1    chopps 		csr = *sci_bus_csr;
    435   1.1    chopps 		while (!(csr & SCI_BUS_REQ)) {
    436   1.1    chopps 			if (!(csr & SCI_BUS_BSY) || --wait < 0) {
    437   1.1    chopps #ifdef DEBUG
    438   1.1    chopps 				if (sci_debug)
    439  1.19  christos 					printf("sci_ixfer_in fail: l%d i%x w%d\n",
    440   1.1    chopps 					len, csr, wait);
    441   1.1    chopps #endif
    442   1.1    chopps 				return;
    443   1.1    chopps 			}
    444   1.1    chopps 
    445   1.6    chopps 			delay(1);
    446   1.1    chopps 			csr = *sci_bus_csr;
    447   1.1    chopps 		}
    448   1.1    chopps 
    449   1.1    chopps 		if (!(*dev->sci_csr & SCI_CSR_PHASE_MATCH))
    450   1.1    chopps 			break;
    451   1.1    chopps 		*buf = *sci_data;
    452   1.1    chopps 		*sci_icmd = SCI_ICMD_ACK;
    453   1.1    chopps 		buf++;
    454   1.1    chopps 		while (*sci_bus_csr & SCI_BUS_REQ);
    455   1.1    chopps 		*sci_icmd = 0;
    456   1.1    chopps 	}
    457   1.1    chopps 
    458   1.5    chopps 	QPRINTF(("sci_ixfer_in {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
    459   1.1    chopps 	  len, obp[0], obp[1], obp[2], obp[3], obp[4], obp[5],
    460   1.1    chopps 	  obp[6], obp[7], obp[8], obp[9]));
    461   1.1    chopps }
    462   1.1    chopps 
    463   1.1    chopps /*
    464   1.1    chopps  * SCSI 'immediate' command:  issue a command to some SCSI device
    465   1.1    chopps  * and get back an 'immediate' response (i.e., do programmed xfer
    466   1.1    chopps  * to get the response data).  'cbuf' is a buffer containing a scsi
    467   1.1    chopps  * command of length clen bytes.  'buf' is a buffer of length 'len'
    468   1.1    chopps  * bytes for data.  The transfer direction is determined by the device
    469   1.1    chopps  * (i.e., by the scsi bus data xfer phase).  If 'len' is zero, the
    470   1.1    chopps  * command must supply no data.  'xferphase' is the bus phase the
    471   1.1    chopps  * caller expects to happen after the command is issued.  It should
    472   1.1    chopps  * be one of DATA_IN_PHASE, DATA_OUT_PHASE or STATUS_PHASE.
    473   1.1    chopps  */
    474   1.5    chopps int
    475  1.26   aymeric sciicmd(struct sci_softc *dev, int target, void *cbuf, int clen, void *buf,
    476  1.26   aymeric         int len, u_char xferphase)
    477   1.1    chopps {
    478  1.16     veego 	u_char phase;
    479   1.1    chopps 	register int wait;
    480   1.1    chopps 
    481   1.1    chopps 	/* select the SCSI bus (it's an error if bus isn't free) */
    482   1.5    chopps 	if (sciselectbus (dev, target, dev->sc_scsi_addr))
    483   1.1    chopps 		return -1;
    484   1.1    chopps 	/*
    485   1.1    chopps 	 * Wait for a phase change (or error) then let the device
    486   1.1    chopps 	 * sequence us through the various SCSI phases.
    487   1.1    chopps 	 */
    488   1.1    chopps 	dev->sc_stat[0] = 0xff;
    489   1.1    chopps 	dev->sc_msg[0] = 0xff;
    490   1.1    chopps 	phase = CMD_PHASE;
    491   1.1    chopps 	while (1) {
    492   1.1    chopps 		wait = sci_cmd_wait;
    493   1.1    chopps 
    494   1.1    chopps 		while ((*dev->sci_bus_csr & (SCI_BUS_REQ|SCI_BUS_BSY)) == SCI_BUS_BSY);
    495   1.1    chopps 
    496   1.1    chopps 		QPRINTF((">CSR:%02x<", *dev->sci_bus_csr));
    497   1.1    chopps 		if ((*dev->sci_bus_csr & SCI_BUS_REQ) == 0) {
    498   1.1    chopps 			return -1;
    499   1.1    chopps 		}
    500   1.1    chopps 		phase = SCI_PHASE(*dev->sci_bus_csr);
    501   1.1    chopps 
    502   1.1    chopps 		switch (phase) {
    503   1.1    chopps 		case CMD_PHASE:
    504   1.5    chopps 			if (sci_ixfer_out (dev, clen, cbuf, phase))
    505   1.1    chopps 				goto abort;
    506   1.1    chopps 			phase = xferphase;
    507   1.1    chopps 			break;
    508   1.1    chopps 
    509   1.1    chopps 		case DATA_IN_PHASE:
    510   1.1    chopps 			if (len <= 0)
    511   1.1    chopps 				goto abort;
    512   1.1    chopps 			wait = sci_data_wait;
    513   1.5    chopps 			sci_ixfer_in (dev, len, buf, phase);
    514   1.1    chopps 			phase = STATUS_PHASE;
    515   1.1    chopps 			break;
    516   1.1    chopps 
    517   1.1    chopps 		case DATA_OUT_PHASE:
    518   1.1    chopps 			if (len <= 0)
    519   1.1    chopps 				goto abort;
    520   1.1    chopps 			wait = sci_data_wait;
    521   1.5    chopps 			if (sci_ixfer_out (dev, len, buf, phase))
    522   1.1    chopps 				goto abort;
    523   1.1    chopps 			phase = STATUS_PHASE;
    524   1.1    chopps 			break;
    525   1.1    chopps 
    526   1.1    chopps 		case MESG_IN_PHASE:
    527   1.1    chopps 			dev->sc_msg[0] = 0xff;
    528   1.5    chopps 			sci_ixfer_in (dev, 1, dev->sc_msg,phase);
    529   1.1    chopps 			dev->sc_flags &= ~SCI_SELECTED;
    530   1.1    chopps 			while (*dev->sci_bus_csr & SCI_BUS_BSY);
    531   1.1    chopps 			goto out;
    532   1.1    chopps 			break;
    533   1.1    chopps 
    534   1.1    chopps 		case MESG_OUT_PHASE:
    535   1.1    chopps 			phase = STATUS_PHASE;
    536   1.1    chopps 			break;
    537   1.1    chopps 
    538   1.1    chopps 		case STATUS_PHASE:
    539   1.5    chopps 			sci_ixfer_in (dev, 1, dev->sc_stat, phase);
    540   1.1    chopps 			phase = MESG_IN_PHASE;
    541   1.1    chopps 			break;
    542   1.1    chopps 
    543   1.1    chopps 		case BUS_FREE_PHASE:
    544   1.1    chopps 			goto out;
    545   1.1    chopps 
    546   1.1    chopps 		default:
    547  1.19  christos 		printf("sci: unexpected phase %d in icmd from %d\n",
    548   1.1    chopps 		  phase, target);
    549   1.1    chopps 		goto abort;
    550   1.1    chopps 		}
    551   1.1    chopps #if 0
    552   1.1    chopps 		if (wait <= 0)
    553   1.1    chopps 			goto abort;
    554   1.1    chopps #endif
    555   1.1    chopps 	}
    556   1.1    chopps 
    557   1.1    chopps abort:
    558   1.5    chopps 	sciabort(dev, "icmd");
    559   1.1    chopps out:
    560   1.1    chopps 	QPRINTF(("=STS:%02x=", dev->sc_stat[0]));
    561   1.1    chopps 	return (dev->sc_stat[0]);
    562   1.1    chopps }
    563   1.1    chopps 
    564   1.1    chopps int
    565  1.26   aymeric scigo(struct sci_softc *dev, struct scsipi_xfer *xs)
    566   1.1    chopps {
    567  1.16     veego 	int count, target;
    568  1.16     veego 	u_char phase, *addr;
    569   1.5    chopps 
    570  1.25    bouyer 	target = xs->xs_periph->periph_target;
    571   1.5    chopps 	count = xs->datalen;
    572   1.5    chopps 	addr = xs->data;
    573   1.1    chopps 
    574   1.1    chopps 	if (sci_no_dma)	{
    575   1.5    chopps 		sciicmd (dev, target, (u_char *) xs->cmd, xs->cmdlen,
    576   1.1    chopps 		  addr, count,
    577  1.21   thorpej 		  xs->xs_control & XS_CTL_DATA_IN ? DATA_IN_PHASE : DATA_OUT_PHASE);
    578   1.1    chopps 
    579   1.5    chopps 		return (1);
    580   1.1    chopps 	}
    581   1.1    chopps 
    582   1.1    chopps 	/* select the SCSI bus (it's an error if bus isn't free) */
    583   1.5    chopps 	if (sciselectbus (dev, target, dev->sc_scsi_addr))
    584   1.1    chopps 		return -1;
    585   1.1    chopps 	/*
    586   1.1    chopps 	 * Wait for a phase change (or error) then let the device
    587   1.1    chopps 	 * sequence us through the various SCSI phases.
    588   1.1    chopps 	 */
    589   1.1    chopps 	dev->sc_stat[0] = 0xff;
    590   1.1    chopps 	dev->sc_msg[0] = 0xff;
    591   1.1    chopps 	phase = CMD_PHASE;
    592   1.1    chopps 	while (1) {
    593   1.1    chopps 		while ((*dev->sci_bus_csr & (SCI_BUS_REQ|SCI_BUS_BSY)) ==
    594   1.1    chopps 		  SCI_BUS_BSY);
    595   1.1    chopps 
    596   1.1    chopps 		QPRINTF((">CSR:%02x<", *dev->sci_bus_csr));
    597   1.1    chopps 		if ((*dev->sci_bus_csr & SCI_BUS_REQ) == 0) {
    598   1.1    chopps 			goto abort;
    599   1.1    chopps 		}
    600   1.1    chopps 		phase = SCI_PHASE(*dev->sci_bus_csr);
    601   1.1    chopps 
    602   1.1    chopps 		switch (phase) {
    603   1.1    chopps 		case CMD_PHASE:
    604  1.16     veego 			if (sci_ixfer_out (dev, xs->cmdlen, (u_char *) xs->cmd, phase))
    605   1.1    chopps 				goto abort;
    606  1.21   thorpej 			phase = xs->xs_control & XS_CTL_DATA_IN ? DATA_IN_PHASE : DATA_OUT_PHASE;
    607   1.1    chopps 			break;
    608   1.1    chopps 
    609   1.1    chopps 		case DATA_IN_PHASE:
    610   1.1    chopps 			if (count <= 0)
    611   1.1    chopps 				goto abort;
    612   1.1    chopps 			/* XXX use psuedo DMA if available */
    613   1.1    chopps 			if (count >= 128 && dev->dma_xfer_in)
    614   1.1    chopps 				(*dev->dma_xfer_in)(dev, count, addr, phase);
    615   1.1    chopps 			else
    616   1.5    chopps 				sci_ixfer_in (dev, count, addr, phase);
    617   1.1    chopps 			phase = STATUS_PHASE;
    618   1.1    chopps 			break;
    619   1.1    chopps 
    620   1.1    chopps 		case DATA_OUT_PHASE:
    621   1.1    chopps 			if (count <= 0)
    622   1.1    chopps 				goto abort;
    623   1.1    chopps 			/* XXX use psuedo DMA if available */
    624   1.1    chopps 			if (count >= 128 && dev->dma_xfer_out)
    625   1.1    chopps 				(*dev->dma_xfer_out)(dev, count, addr, phase);
    626   1.1    chopps 			else
    627   1.5    chopps 				if (sci_ixfer_out (dev, count, addr, phase))
    628   1.1    chopps 					goto abort;
    629   1.1    chopps 			phase = STATUS_PHASE;
    630   1.1    chopps 			break;
    631   1.1    chopps 
    632   1.1    chopps 		case MESG_IN_PHASE:
    633   1.1    chopps 			dev->sc_msg[0] = 0xff;
    634   1.5    chopps 			sci_ixfer_in (dev, 1, dev->sc_msg,phase);
    635   1.1    chopps 			dev->sc_flags &= ~SCI_SELECTED;
    636   1.1    chopps 			while (*dev->sci_bus_csr & SCI_BUS_BSY);
    637   1.1    chopps 			goto out;
    638   1.1    chopps 			break;
    639   1.1    chopps 
    640   1.1    chopps 		case MESG_OUT_PHASE:
    641   1.1    chopps 			phase = STATUS_PHASE;
    642   1.1    chopps 			break;
    643   1.1    chopps 
    644   1.1    chopps 		case STATUS_PHASE:
    645   1.5    chopps 			sci_ixfer_in (dev, 1, dev->sc_stat, phase);
    646   1.1    chopps 			phase = MESG_IN_PHASE;
    647   1.1    chopps 			break;
    648   1.1    chopps 
    649   1.1    chopps 		case BUS_FREE_PHASE:
    650   1.1    chopps 			goto out;
    651   1.1    chopps 
    652   1.1    chopps 		default:
    653  1.19  christos 		printf("sci: unexpected phase %d in icmd from %d\n",
    654   1.5    chopps 		  phase, target);
    655   1.1    chopps 		goto abort;
    656   1.1    chopps 		}
    657   1.1    chopps 	}
    658   1.1    chopps 
    659   1.1    chopps abort:
    660   1.5    chopps 	sciabort(dev, "go");
    661   1.1    chopps out:
    662   1.1    chopps 	QPRINTF(("=STS:%02x=", dev->sc_stat[0]));
    663   1.5    chopps 	return (1);
    664   1.1    chopps }
    665