Home | History | Annotate | Line # | Download | only in eisa
ahb.c revision 1.48.16.1
      1  1.48.16.1      matt /*	$NetBSD: ahb.c,v 1.48.16.1 2007/11/06 23:26:00 matt Exp $	*/
      2        1.1   mycroft 
      3        1.9   thorpej /*-
      4       1.17   thorpej  * Copyright (c) 1997, 1998 The NetBSD Foundation, Inc.
      5        1.9   thorpej  * All rights reserved.
      6        1.9   thorpej  *
      7        1.9   thorpej  * This code is derived from software contributed to The NetBSD Foundation
      8       1.23   mycroft  * by Charles M. Hannum and by Jason R. Thorpe of the Numerical Aerospace
      9       1.23   mycroft  * Simulation Facility, NASA Ames Research Center.
     10        1.9   thorpej  *
     11        1.9   thorpej  * Redistribution and use in source and binary forms, with or without
     12        1.9   thorpej  * modification, are permitted provided that the following conditions
     13        1.9   thorpej  * are met:
     14        1.9   thorpej  * 1. Redistributions of source code must retain the above copyright
     15        1.9   thorpej  *    notice, this list of conditions and the following disclaimer.
     16        1.9   thorpej  * 2. Redistributions in binary form must reproduce the above copyright
     17        1.9   thorpej  *    notice, this list of conditions and the following disclaimer in the
     18        1.9   thorpej  *    documentation and/or other materials provided with the distribution.
     19        1.9   thorpej  * 3. All advertising materials mentioning features or use of this software
     20        1.9   thorpej  *    must display the following acknowledgement:
     21        1.9   thorpej  *	This product includes software developed by the NetBSD
     22        1.9   thorpej  *	Foundation, Inc. and its contributors.
     23        1.9   thorpej  * 4. Neither the name of The NetBSD Foundation nor the names of its
     24        1.9   thorpej  *    contributors may be used to endorse or promote products derived
     25        1.9   thorpej  *    from this software without specific prior written permission.
     26        1.9   thorpej  *
     27        1.9   thorpej  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     28        1.9   thorpej  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     29        1.9   thorpej  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     30        1.9   thorpej  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     31        1.9   thorpej  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     32        1.9   thorpej  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     33        1.9   thorpej  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     34        1.9   thorpej  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     35        1.9   thorpej  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     36        1.9   thorpej  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     37        1.9   thorpej  * POSSIBILITY OF SUCH DAMAGE.
     38        1.1   mycroft  */
     39        1.1   mycroft 
     40        1.1   mycroft /*
     41        1.1   mycroft  * Originally written by Julian Elischer (julian (at) tfs.com)
     42        1.1   mycroft  * for TRW Financial Systems for use under the MACH(2.5) operating system.
     43        1.1   mycroft  *
     44        1.1   mycroft  * TRW Financial Systems, in accordance with their agreement with Carnegie
     45        1.1   mycroft  * Mellon University, makes this software available to CMU to distribute
     46        1.1   mycroft  * or use in any manner that they see fit as long as this message is kept with
     47        1.1   mycroft  * the software. For this reason TFS also grants any other persons or
     48        1.1   mycroft  * organisations permission to use or modify this software.
     49        1.1   mycroft  *
     50        1.1   mycroft  * TFS supplies this software to be publicly redistributed
     51        1.1   mycroft  * on the understanding that TFS is not responsible for the correct
     52        1.1   mycroft  * functioning of this software in any circumstances.
     53        1.1   mycroft  */
     54       1.33     lukem 
     55       1.33     lukem #include <sys/cdefs.h>
     56  1.48.16.1      matt __KERNEL_RCSID(0, "$NetBSD: ahb.c,v 1.48.16.1 2007/11/06 23:26:00 matt Exp $");
     57       1.33     lukem 
     58       1.33     lukem #include "opt_ddb.h"
     59       1.33     lukem 
     60       1.33     lukem #undef	AHBDEBUG
     61        1.1   mycroft 
     62        1.1   mycroft #include <sys/param.h>
     63        1.1   mycroft #include <sys/systm.h>
     64        1.1   mycroft #include <sys/kernel.h>
     65        1.1   mycroft #include <sys/errno.h>
     66        1.1   mycroft #include <sys/ioctl.h>
     67        1.1   mycroft #include <sys/device.h>
     68        1.1   mycroft #include <sys/malloc.h>
     69        1.1   mycroft #include <sys/buf.h>
     70        1.1   mycroft #include <sys/proc.h>
     71        1.1   mycroft #include <sys/user.h>
     72        1.1   mycroft 
     73       1.31   thorpej #include <uvm/uvm_extern.h>
     74       1.31   thorpej 
     75  1.48.16.1      matt #include <sys/bus.h>
     76  1.48.16.1      matt #include <sys/intr.h>
     77        1.1   mycroft 
     78       1.10    bouyer #include <dev/scsipi/scsi_all.h>
     79       1.10    bouyer #include <dev/scsipi/scsipi_all.h>
     80       1.10    bouyer #include <dev/scsipi/scsiconf.h>
     81        1.1   mycroft 
     82        1.1   mycroft #include <dev/eisa/eisareg.h>
     83        1.1   mycroft #include <dev/eisa/eisavar.h>
     84        1.1   mycroft #include <dev/eisa/eisadevs.h>
     85        1.1   mycroft #include <dev/eisa/ahbreg.h>
     86        1.1   mycroft 
     87        1.1   mycroft #ifndef DDB
     88        1.1   mycroft #define Debugger() panic("should call debugger here (aha1742.c)")
     89        1.1   mycroft #endif /* ! DDB */
     90        1.1   mycroft 
     91        1.1   mycroft #define AHB_ECB_MAX	32	/* store up to 32 ECBs at one time */
     92        1.1   mycroft #define	ECB_HASH_SIZE	32	/* hash table size for phystokv */
     93        1.1   mycroft #define	ECB_HASH_SHIFT	9
     94        1.1   mycroft #define ECB_HASH(x)	((((long)(x))>>ECB_HASH_SHIFT) & (ECB_HASH_SIZE - 1))
     95        1.1   mycroft 
     96        1.9   thorpej #define AHB_MAXXFER	((AHB_NSEG - 1) << PGSHIFT)
     97        1.1   mycroft 
     98        1.1   mycroft struct ahb_softc {
     99        1.1   mycroft 	struct device sc_dev;
    100        1.8   mycroft 
    101        1.6   thorpej 	bus_space_tag_t sc_iot;
    102        1.6   thorpej 	bus_space_handle_t sc_ioh;
    103        1.9   thorpej 	bus_dma_tag_t sc_dmat;
    104        1.1   mycroft 	void *sc_ih;
    105        1.1   mycroft 
    106       1.18   thorpej 	bus_dmamap_t sc_dmamap_ecb;	/* maps the ecbs */
    107       1.18   thorpej 	struct ahb_ecb *sc_ecbs;	/* all our ecbs */
    108       1.18   thorpej 
    109        1.1   mycroft 	struct ahb_ecb *sc_ecbhash[ECB_HASH_SIZE];
    110        1.1   mycroft 	TAILQ_HEAD(, ahb_ecb) sc_free_ecb;
    111        1.1   mycroft 	struct ahb_ecb *sc_immed_ecb;	/* an outstanding immediete command */
    112        1.1   mycroft 	int sc_numecbs;
    113       1.32    bouyer 
    114       1.25   thorpej 	struct scsipi_adapter sc_adapter;
    115       1.32    bouyer 	struct scsipi_channel sc_channel;
    116        1.1   mycroft };
    117        1.1   mycroft 
    118       1.18   thorpej /*
    119       1.18   thorpej  * Offset of an ECB from the beginning of the ECB DMA mapping.
    120       1.18   thorpej  */
    121       1.18   thorpej #define	AHB_ECB_OFF(e)	(((u_long)(e)) - ((u_long)&sc->sc_ecbs[0]))
    122       1.18   thorpej 
    123        1.8   mycroft struct ahb_probe_data {
    124        1.8   mycroft 	int sc_irq;
    125        1.8   mycroft 	int sc_scsi_dev;
    126        1.8   mycroft };
    127        1.8   mycroft 
    128       1.40   thorpej static void	ahb_send_mbox(struct ahb_softc *, int, struct ahb_ecb *);
    129       1.40   thorpej static void	ahb_send_immed(struct ahb_softc *, u_int32_t, struct ahb_ecb *);
    130       1.40   thorpej static int	ahbintr(void *);
    131       1.40   thorpej static void	ahb_free_ecb(struct ahb_softc *, struct ahb_ecb *);
    132       1.40   thorpej static struct	ahb_ecb *ahb_get_ecb(struct ahb_softc *);
    133       1.40   thorpej static struct	ahb_ecb *ahb_ecb_phys_kv(struct ahb_softc *, physaddr);
    134       1.40   thorpej static void	ahb_done(struct ahb_softc *, struct ahb_ecb *);
    135       1.40   thorpej static int	ahb_find(bus_space_tag_t, bus_space_handle_t,
    136       1.40   thorpej 		    struct ahb_probe_data *);
    137       1.40   thorpej static int	ahb_init(struct ahb_softc *);
    138       1.40   thorpej static void	ahbminphys(struct buf *);
    139       1.40   thorpej static void	ahb_scsipi_request(struct scsipi_channel *,
    140       1.40   thorpej 		    scsipi_adapter_req_t, void *);
    141       1.40   thorpej static int	ahb_poll(struct ahb_softc *, struct scsipi_xfer *, int);
    142       1.40   thorpej static void	ahb_timeout(void *);
    143       1.40   thorpej static int	ahb_create_ecbs(struct ahb_softc *, struct ahb_ecb *, int);
    144        1.3   thorpej 
    145       1.40   thorpej static int	ahb_init_ecb(struct ahb_softc *, struct ahb_ecb *);
    146        1.1   mycroft 
    147       1.40   thorpej static int	ahbmatch(struct device *, struct cfdata *, void *);
    148       1.40   thorpej static void	ahbattach(struct device *, struct device *, void *);
    149        1.1   mycroft 
    150       1.37   thorpej CFATTACH_DECL(ahb, sizeof(struct ahb_softc),
    151       1.38   thorpej     ahbmatch, ahbattach, NULL, NULL);
    152        1.1   mycroft 
    153        1.1   mycroft #define	AHB_ABORT_TIMEOUT	2000	/* time to wait for abort (mSec) */
    154        1.9   thorpej 
    155        1.1   mycroft /*
    156        1.1   mycroft  * Check the slots looking for a board we recognise
    157        1.1   mycroft  * If we find one, note it's address (slot) and call
    158        1.1   mycroft  * the actual probe routine to check it out.
    159        1.1   mycroft  */
    160       1.40   thorpej static int
    161       1.47  christos ahbmatch(struct device *parent, struct cfdata *match,
    162       1.46  christos     void *aux)
    163        1.1   mycroft {
    164        1.1   mycroft 	struct eisa_attach_args *ea = aux;
    165        1.6   thorpej 	bus_space_tag_t iot = ea->ea_iot;
    166        1.6   thorpej 	bus_space_handle_t ioh;
    167        1.1   mycroft 	int rv;
    168        1.1   mycroft 
    169        1.1   mycroft 	/* must match one of our known ID strings */
    170        1.1   mycroft 	if (strcmp(ea->ea_idstring, "ADP0000") &&
    171        1.1   mycroft 	    strcmp(ea->ea_idstring, "ADP0001") &&
    172        1.1   mycroft 	    strcmp(ea->ea_idstring, "ADP0002") &&
    173        1.1   mycroft 	    strcmp(ea->ea_idstring, "ADP0400"))
    174        1.1   mycroft 		return (0);
    175        1.1   mycroft 
    176       1.22   mycroft 	if (bus_space_map(iot,
    177       1.22   mycroft 	    EISA_SLOT_ADDR(ea->ea_slot) + AHB_EISA_SLOT_OFFSET, AHB_EISA_IOSIZE,
    178       1.22   mycroft 	    0, &ioh))
    179        1.1   mycroft 		return (0);
    180        1.1   mycroft 
    181        1.6   thorpej 	rv = !ahb_find(iot, ioh, NULL);
    182        1.1   mycroft 
    183       1.22   mycroft 	bus_space_unmap(iot, ioh, AHB_EISA_IOSIZE);
    184        1.1   mycroft 
    185        1.1   mycroft 	return (rv);
    186        1.1   mycroft }
    187        1.1   mycroft 
    188        1.1   mycroft /*
    189        1.1   mycroft  * Attach all the sub-devices we can find
    190        1.1   mycroft  */
    191       1.40   thorpej static void
    192       1.47  christos ahbattach(struct device *parent, struct device *self, void *aux)
    193        1.1   mycroft {
    194        1.1   mycroft 	struct eisa_attach_args *ea = aux;
    195       1.45   thorpej 	struct ahb_softc *sc = device_private(self);
    196        1.6   thorpej 	bus_space_tag_t iot = ea->ea_iot;
    197        1.6   thorpej 	bus_space_handle_t ioh;
    198        1.1   mycroft 	eisa_chipset_tag_t ec = ea->ea_ec;
    199        1.1   mycroft 	eisa_intr_handle_t ih;
    200        1.1   mycroft 	const char *model, *intrstr;
    201        1.8   mycroft 	struct ahb_probe_data apd;
    202       1.32    bouyer 	struct scsipi_adapter *adapt = &sc->sc_adapter;
    203       1.32    bouyer 	struct scsipi_channel *chan = &sc->sc_channel;
    204        1.1   mycroft 
    205        1.1   mycroft 	if (!strcmp(ea->ea_idstring, "ADP0000"))
    206        1.1   mycroft 		model = EISA_PRODUCT_ADP0000;
    207        1.1   mycroft 	else if (!strcmp(ea->ea_idstring, "ADP0001"))
    208        1.1   mycroft 		model = EISA_PRODUCT_ADP0001;
    209        1.1   mycroft 	else if (!strcmp(ea->ea_idstring, "ADP0002"))
    210        1.1   mycroft 		model = EISA_PRODUCT_ADP0002;
    211        1.1   mycroft 	else if (!strcmp(ea->ea_idstring, "ADP0400"))
    212        1.1   mycroft 		model = EISA_PRODUCT_ADP0400;
    213        1.1   mycroft 	else
    214        1.1   mycroft 		model = "unknown model!";
    215        1.5  christos 	printf(": %s\n", model);
    216        1.1   mycroft 
    217       1.22   mycroft 	if (bus_space_map(iot,
    218       1.22   mycroft 	    EISA_SLOT_ADDR(ea->ea_slot) + AHB_EISA_SLOT_OFFSET, AHB_EISA_IOSIZE,
    219       1.22   mycroft 	    0, &ioh))
    220        1.1   mycroft 		panic("ahbattach: could not map I/O addresses");
    221        1.1   mycroft 
    222        1.6   thorpej 	sc->sc_iot = iot;
    223        1.1   mycroft 	sc->sc_ioh = ioh;
    224        1.9   thorpej 	sc->sc_dmat = ea->ea_dmat;
    225        1.8   mycroft 	if (ahb_find(iot, ioh, &apd))
    226        1.1   mycroft 		panic("ahbattach: ahb_find failed!");
    227        1.1   mycroft 
    228        1.1   mycroft 	TAILQ_INIT(&sc->sc_free_ecb);
    229       1.32    bouyer 
    230       1.32    bouyer 	/*
    231       1.32    bouyer 	 * Fill in the scsipi_adapter.
    232       1.32    bouyer 	 */
    233       1.32    bouyer 	memset(adapt, 0, sizeof(*adapt));
    234       1.32    bouyer 	adapt->adapt_dev = &sc->sc_dev;
    235       1.32    bouyer 	adapt->adapt_nchannels = 1;
    236       1.32    bouyer 	/* adapt_openings initialized below */
    237       1.32    bouyer 	adapt->adapt_max_periph = 4;		/* XXX arbitrary? */
    238       1.32    bouyer 	adapt->adapt_request = ahb_scsipi_request;
    239       1.32    bouyer 	adapt->adapt_minphys = ahbminphys;
    240       1.32    bouyer 
    241       1.32    bouyer 	/*
    242       1.32    bouyer 	 * Fill in the scsipi_channel.
    243       1.32    bouyer 	 */
    244       1.32    bouyer 	memset(chan, 0, sizeof(*chan));
    245       1.32    bouyer 	chan->chan_adapter = adapt;
    246       1.32    bouyer 	chan->chan_bustype = &scsi_bustype;
    247       1.32    bouyer 	chan->chan_channel = 0;
    248       1.32    bouyer 	chan->chan_ntargets = 8;
    249       1.32    bouyer 	chan->chan_nluns = 8;
    250       1.32    bouyer 	chan->chan_id = apd.sc_scsi_dev;
    251        1.1   mycroft 
    252       1.18   thorpej 	if (ahb_init(sc) != 0) {
    253       1.18   thorpej 		/* Error during initialization! */
    254       1.18   thorpej 		return;
    255       1.18   thorpej 	}
    256       1.18   thorpej 
    257        1.8   mycroft 	if (eisa_intr_map(ec, apd.sc_irq, &ih)) {
    258        1.5  christos 		printf("%s: couldn't map interrupt (%d)\n",
    259        1.8   mycroft 		    sc->sc_dev.dv_xname, apd.sc_irq);
    260        1.1   mycroft 		return;
    261        1.1   mycroft 	}
    262        1.1   mycroft 	intrstr = eisa_intr_string(ec, ih);
    263        1.1   mycroft 	sc->sc_ih = eisa_intr_establish(ec, ih, IST_LEVEL, IPL_BIO,
    264        1.1   mycroft 	    ahbintr, sc);
    265        1.1   mycroft 	if (sc->sc_ih == NULL) {
    266        1.5  christos 		printf("%s: couldn't establish interrupt",
    267        1.1   mycroft 		    sc->sc_dev.dv_xname);
    268        1.1   mycroft 		if (intrstr != NULL)
    269        1.5  christos 			printf(" at %s", intrstr);
    270        1.5  christos 		printf("\n");
    271        1.1   mycroft 		return;
    272        1.1   mycroft 	}
    273        1.1   mycroft 	if (intrstr != NULL)
    274        1.5  christos 		printf("%s: interrupting at %s\n", sc->sc_dev.dv_xname,
    275        1.1   mycroft 		    intrstr);
    276        1.1   mycroft 
    277        1.1   mycroft 	/*
    278        1.1   mycroft 	 * ask the adapter what subunits are present
    279        1.1   mycroft 	 */
    280       1.32    bouyer 	config_found(self, &sc->sc_channel, scsiprint);
    281        1.1   mycroft }
    282        1.1   mycroft 
    283        1.1   mycroft /*
    284        1.1   mycroft  * Function to send a command out through a mailbox
    285        1.1   mycroft  */
    286       1.40   thorpej static void
    287       1.40   thorpej ahb_send_mbox(struct ahb_softc *sc, int opcode, struct ahb_ecb *ecb)
    288        1.1   mycroft {
    289        1.6   thorpej 	bus_space_tag_t iot = sc->sc_iot;
    290        1.6   thorpej 	bus_space_handle_t ioh = sc->sc_ioh;
    291        1.1   mycroft 	int wait = 300;	/* 1ms should be enough */
    292        1.1   mycroft 
    293        1.1   mycroft 	while (--wait) {
    294        1.6   thorpej 		if ((bus_space_read_1(iot, ioh, G2STAT) & (G2STAT_BUSY | G2STAT_MBOX_EMPTY))
    295        1.1   mycroft 		    == (G2STAT_MBOX_EMPTY))
    296        1.1   mycroft 			break;
    297        1.1   mycroft 		delay(10);
    298        1.1   mycroft 	}
    299        1.1   mycroft 	if (!wait) {
    300        1.5  christos 		printf("%s: board not responding\n", sc->sc_dev.dv_xname);
    301        1.1   mycroft 		Debugger();
    302        1.1   mycroft 	}
    303        1.1   mycroft 
    304        1.9   thorpej 	/*
    305        1.9   thorpej 	 * don't know if this will work.
    306        1.9   thorpej 	 * XXX WHAT DOES THIS COMMENT MEAN?!  --thorpej
    307        1.9   thorpej 	 */
    308        1.9   thorpej 	bus_space_write_4(iot, ioh, MBOXOUT0,
    309       1.18   thorpej 	    sc->sc_dmamap_ecb->dm_segs[0].ds_addr + AHB_ECB_OFF(ecb));
    310       1.10    bouyer 	bus_space_write_1(iot, ioh, ATTN, opcode |
    311       1.32    bouyer 		ecb->xs->xs_periph->periph_target);
    312        1.1   mycroft 
    313       1.28   thorpej 	if ((ecb->xs->xs_control & XS_CTL_POLL) == 0)
    314       1.29   thorpej 		callout_reset(&ecb->xs->xs_callout,
    315       1.35    bouyer 		    mstohz(ecb->timeout), ahb_timeout, ecb);
    316        1.1   mycroft }
    317        1.1   mycroft 
    318        1.1   mycroft /*
    319        1.1   mycroft  * Function to  send an immediate type command to the adapter
    320        1.1   mycroft  */
    321       1.40   thorpej static void
    322       1.40   thorpej ahb_send_immed(struct ahb_softc *sc, u_int32_t cmd, struct ahb_ecb *ecb)
    323        1.1   mycroft {
    324        1.6   thorpej 	bus_space_tag_t iot = sc->sc_iot;
    325        1.6   thorpej 	bus_space_handle_t ioh = sc->sc_ioh;
    326        1.1   mycroft 	int wait = 100;	/* 1 ms enough? */
    327        1.1   mycroft 
    328        1.1   mycroft 	while (--wait) {
    329        1.6   thorpej 		if ((bus_space_read_1(iot, ioh, G2STAT) & (G2STAT_BUSY | G2STAT_MBOX_EMPTY))
    330        1.1   mycroft 		    == (G2STAT_MBOX_EMPTY))
    331        1.1   mycroft 			break;
    332        1.1   mycroft 		delay(10);
    333        1.1   mycroft 	}
    334        1.1   mycroft 	if (!wait) {
    335        1.5  christos 		printf("%s: board not responding\n", sc->sc_dev.dv_xname);
    336        1.1   mycroft 		Debugger();
    337        1.1   mycroft 	}
    338        1.1   mycroft 
    339        1.6   thorpej 	bus_space_write_4(iot, ioh, MBOXOUT0, cmd);	/* don't know this will work */
    340        1.6   thorpej 	bus_space_write_1(iot, ioh, G2CNTRL, G2CNTRL_SET_HOST_READY);
    341       1.10    bouyer 	bus_space_write_1(iot, ioh, ATTN, OP_IMMED |
    342       1.32    bouyer 		ecb->xs->xs_periph->periph_target);
    343        1.1   mycroft 
    344       1.28   thorpej 	if ((ecb->xs->xs_control & XS_CTL_POLL) == 0)
    345       1.29   thorpej 		callout_reset(&ecb->xs->xs_callout,
    346       1.35    bouyer 		    mstohz(ecb->timeout), ahb_timeout, ecb);
    347        1.1   mycroft }
    348        1.1   mycroft 
    349        1.1   mycroft /*
    350        1.1   mycroft  * Catch an interrupt from the adaptor
    351        1.1   mycroft  */
    352       1.40   thorpej static int
    353       1.40   thorpej ahbintr(void *arg)
    354        1.1   mycroft {
    355        1.1   mycroft 	struct ahb_softc *sc = arg;
    356        1.6   thorpej 	bus_space_tag_t iot = sc->sc_iot;
    357        1.6   thorpej 	bus_space_handle_t ioh = sc->sc_ioh;
    358        1.1   mycroft 	struct ahb_ecb *ecb;
    359        1.1   mycroft 	u_char ahbstat;
    360       1.30   thorpej 	u_int32_t mboxval;
    361        1.1   mycroft 
    362        1.1   mycroft #ifdef	AHBDEBUG
    363        1.5  christos 	printf("%s: ahbintr ", sc->sc_dev.dv_xname);
    364        1.1   mycroft #endif /* AHBDEBUG */
    365        1.1   mycroft 
    366        1.6   thorpej 	if ((bus_space_read_1(iot, ioh, G2STAT) & G2STAT_INT_PEND) == 0)
    367        1.1   mycroft 		return 0;
    368        1.1   mycroft 
    369        1.1   mycroft 	for (;;) {
    370        1.1   mycroft 		/*
    371        1.1   mycroft 		 * First get all the information and then
    372       1.39       wiz 		 * acknowledge the interrupt
    373        1.1   mycroft 		 */
    374        1.6   thorpej 		ahbstat = bus_space_read_1(iot, ioh, G2INTST);
    375        1.6   thorpej 		mboxval = bus_space_read_4(iot, ioh, MBOXIN0);
    376        1.6   thorpej 		bus_space_write_1(iot, ioh, G2CNTRL, G2CNTRL_CLEAR_EISA_INT);
    377        1.1   mycroft 
    378        1.1   mycroft #ifdef	AHBDEBUG
    379        1.5  christos 		printf("status = 0x%x ", ahbstat);
    380        1.1   mycroft #endif /* AHBDEBUG */
    381        1.1   mycroft 
    382        1.1   mycroft 		/*
    383        1.1   mycroft 		 * Process the completed operation
    384        1.1   mycroft 		 */
    385        1.1   mycroft 		switch (ahbstat & G2INTST_INT_STAT) {
    386        1.1   mycroft 		case AHB_ECB_OK:
    387        1.1   mycroft 		case AHB_ECB_RECOVERED:
    388        1.1   mycroft 		case AHB_ECB_ERR:
    389        1.1   mycroft 			ecb = ahb_ecb_phys_kv(sc, mboxval);
    390        1.1   mycroft 			if (!ecb) {
    391        1.5  christos 				printf("%s: BAD ECB RETURNED!\n",
    392        1.1   mycroft 				    sc->sc_dev.dv_xname);
    393        1.1   mycroft 				goto next;	/* whatever it was, it'll timeout */
    394        1.1   mycroft 			}
    395        1.1   mycroft 			break;
    396        1.1   mycroft 
    397        1.1   mycroft 		case AHB_IMMED_ERR:
    398        1.1   mycroft 			ecb = sc->sc_immed_ecb;
    399        1.1   mycroft 			sc->sc_immed_ecb = 0;
    400        1.1   mycroft 			ecb->flags |= ECB_IMMED_FAIL;
    401        1.1   mycroft 			break;
    402        1.1   mycroft 
    403        1.1   mycroft 		case AHB_IMMED_OK:
    404        1.1   mycroft 			ecb = sc->sc_immed_ecb;
    405        1.1   mycroft 			sc->sc_immed_ecb = 0;
    406        1.1   mycroft 			break;
    407        1.1   mycroft 
    408        1.1   mycroft 		default:
    409        1.5  christos 			printf("%s: unexpected interrupt %x\n",
    410        1.1   mycroft 			    sc->sc_dev.dv_xname, ahbstat);
    411        1.1   mycroft 			goto next;
    412        1.1   mycroft 		}
    413        1.1   mycroft 
    414       1.29   thorpej 		callout_stop(&ecb->xs->xs_callout);
    415        1.1   mycroft 		ahb_done(sc, ecb);
    416        1.1   mycroft 
    417        1.1   mycroft 	next:
    418        1.6   thorpej 		if ((bus_space_read_1(iot, ioh, G2STAT) & G2STAT_INT_PEND) == 0)
    419        1.1   mycroft 			return 1;
    420        1.1   mycroft 	}
    421        1.1   mycroft }
    422        1.1   mycroft 
    423       1.44     perry static inline void
    424       1.47  christos ahb_reset_ecb(struct ahb_softc *sc, struct ahb_ecb *ecb)
    425        1.1   mycroft {
    426        1.1   mycroft 
    427        1.1   mycroft 	ecb->flags = 0;
    428        1.1   mycroft }
    429        1.1   mycroft 
    430        1.1   mycroft /*
    431        1.1   mycroft  * A ecb (and hence a mbx-out is put onto the
    432        1.1   mycroft  * free list.
    433        1.1   mycroft  */
    434       1.40   thorpej static void
    435       1.40   thorpej ahb_free_ecb(struct ahb_softc *sc, struct ahb_ecb *ecb)
    436        1.1   mycroft {
    437        1.1   mycroft 	int s;
    438        1.1   mycroft 
    439        1.1   mycroft 	s = splbio();
    440        1.1   mycroft 	ahb_reset_ecb(sc, ecb);
    441        1.1   mycroft 	TAILQ_INSERT_HEAD(&sc->sc_free_ecb, ecb, chain);
    442        1.1   mycroft 	splx(s);
    443        1.1   mycroft }
    444        1.1   mycroft 
    445        1.9   thorpej /*
    446        1.9   thorpej  * Create a set of ecbs and add them to the free list.
    447        1.9   thorpej  */
    448       1.40   thorpej static int
    449       1.40   thorpej ahb_init_ecb(struct ahb_softc *sc, struct ahb_ecb *ecb)
    450        1.1   mycroft {
    451        1.9   thorpej 	bus_dma_tag_t dmat = sc->sc_dmat;
    452       1.11   thorpej 	int hashnum, error;
    453        1.1   mycroft 
    454        1.9   thorpej 	/*
    455       1.18   thorpej 	 * Create the DMA map for this ECB.
    456        1.9   thorpej 	 */
    457       1.11   thorpej 	error = bus_dmamap_create(dmat, AHB_MAXXFER, AHB_NSEG, AHB_MAXXFER,
    458       1.11   thorpej 	    0, BUS_DMA_NOWAIT|BUS_DMA_ALLOCNOW, &ecb->dmamap_xfer);
    459       1.11   thorpej 	if (error) {
    460       1.11   thorpej 		printf("%s: can't create ecb dmamap_xfer\n",
    461       1.11   thorpej 		    sc->sc_dev.dv_xname);
    462       1.11   thorpej 		return (error);
    463       1.11   thorpej 	}
    464        1.9   thorpej 
    465        1.9   thorpej 	/*
    466        1.1   mycroft 	 * put in the phystokv hash table
    467        1.1   mycroft 	 * Never gets taken out.
    468        1.1   mycroft 	 */
    469       1.18   thorpej 	ecb->hashkey = sc->sc_dmamap_ecb->dm_segs[0].ds_addr +
    470       1.18   thorpej 	    AHB_ECB_OFF(ecb);
    471        1.1   mycroft 	hashnum = ECB_HASH(ecb->hashkey);
    472        1.1   mycroft 	ecb->nexthash = sc->sc_ecbhash[hashnum];
    473        1.1   mycroft 	sc->sc_ecbhash[hashnum] = ecb;
    474        1.1   mycroft 	ahb_reset_ecb(sc, ecb);
    475       1.11   thorpej 	return (0);
    476        1.1   mycroft }
    477        1.1   mycroft 
    478       1.40   thorpej static int
    479       1.40   thorpej ahb_create_ecbs(struct ahb_softc *sc, struct ahb_ecb *ecbstore, int count)
    480        1.9   thorpej {
    481        1.9   thorpej 	struct ahb_ecb *ecb;
    482       1.18   thorpej 	int i, error;
    483        1.9   thorpej 
    484       1.18   thorpej 	bzero(ecbstore, sizeof(struct ahb_ecb) * count);
    485       1.18   thorpej 	for (i = 0; i < count; i++) {
    486       1.18   thorpej 		ecb = &ecbstore[i];
    487       1.18   thorpej 		if ((error = ahb_init_ecb(sc, ecb)) != 0) {
    488       1.18   thorpej 			printf("%s: unable to initialize ecb, error = %d\n",
    489       1.18   thorpej 			    sc->sc_dev.dv_xname, error);
    490       1.18   thorpej 			goto out;
    491       1.11   thorpej 		}
    492        1.9   thorpej 		TAILQ_INSERT_TAIL(&sc->sc_free_ecb, ecb, chain);
    493        1.9   thorpej 	}
    494       1.18   thorpej  out:
    495       1.18   thorpej 	return (i);
    496        1.9   thorpej }
    497        1.9   thorpej 
    498        1.1   mycroft /*
    499        1.1   mycroft  * Get a free ecb
    500        1.1   mycroft  *
    501        1.1   mycroft  * If there are none, see if we can allocate a new one. If so, put it in the
    502        1.1   mycroft  * hash table too otherwise either return an error or sleep.
    503        1.1   mycroft  */
    504       1.40   thorpej static struct ahb_ecb *
    505       1.40   thorpej ahb_get_ecb(struct ahb_softc *sc)
    506        1.1   mycroft {
    507        1.1   mycroft 	struct ahb_ecb *ecb;
    508        1.1   mycroft 	int s;
    509        1.1   mycroft 
    510        1.1   mycroft 	s = splbio();
    511       1.32    bouyer 	ecb = TAILQ_FIRST(&sc->sc_free_ecb);
    512       1.32    bouyer 	if (ecb != NULL) {
    513       1.32    bouyer 		TAILQ_REMOVE(&sc->sc_free_ecb, ecb, chain);
    514       1.32    bouyer 		ecb->flags |= ECB_ALLOC;
    515        1.1   mycroft 	}
    516        1.1   mycroft 	splx(s);
    517       1.32    bouyer 	return (ecb);
    518        1.1   mycroft }
    519        1.1   mycroft 
    520        1.1   mycroft /*
    521        1.1   mycroft  * given a physical address, find the ecb that it corresponds to.
    522        1.1   mycroft  */
    523       1.40   thorpej static struct ahb_ecb *
    524       1.40   thorpej ahb_ecb_phys_kv(struct ahb_softc *sc, physaddr ecb_phys)
    525        1.1   mycroft {
    526        1.1   mycroft 	int hashnum = ECB_HASH(ecb_phys);
    527        1.1   mycroft 	struct ahb_ecb *ecb = sc->sc_ecbhash[hashnum];
    528        1.1   mycroft 
    529        1.1   mycroft 	while (ecb) {
    530        1.1   mycroft 		if (ecb->hashkey == ecb_phys)
    531        1.1   mycroft 			break;
    532        1.1   mycroft 		ecb = ecb->nexthash;
    533        1.1   mycroft 	}
    534        1.1   mycroft 	return ecb;
    535        1.1   mycroft }
    536        1.1   mycroft 
    537        1.1   mycroft /*
    538        1.1   mycroft  * We have a ecb which has been processed by the adaptor, now we look to see
    539        1.1   mycroft  * how the operation went.
    540        1.1   mycroft  */
    541       1.40   thorpej static void
    542       1.40   thorpej ahb_done(struct ahb_softc *sc, struct ahb_ecb *ecb)
    543        1.1   mycroft {
    544        1.9   thorpej 	bus_dma_tag_t dmat = sc->sc_dmat;
    545       1.42   thorpej 	struct scsi_sense_data *s1, *s2;
    546       1.10    bouyer 	struct scsipi_xfer *xs = ecb->xs;
    547        1.1   mycroft 
    548       1.32    bouyer 	SC_DEBUG(xs->xs_periph, SCSIPI_DB2, ("ahb_done\n"));
    549        1.9   thorpej 
    550       1.18   thorpej 	bus_dmamap_sync(dmat, sc->sc_dmamap_ecb,
    551       1.18   thorpej 	    AHB_ECB_OFF(ecb), sizeof(struct ahb_ecb),
    552       1.18   thorpej 	    BUS_DMASYNC_POSTREAD|BUS_DMASYNC_POSTWRITE);
    553       1.18   thorpej 
    554        1.9   thorpej 	/*
    555        1.9   thorpej 	 * If we were a data transfer, unload the map that described
    556        1.9   thorpej 	 * the data buffer.
    557        1.9   thorpej 	 */
    558        1.9   thorpej 	if (xs->datalen) {
    559       1.17   thorpej 		bus_dmamap_sync(dmat, ecb->dmamap_xfer, 0,
    560       1.17   thorpej 		    ecb->dmamap_xfer->dm_mapsize,
    561       1.28   thorpej 		    (xs->xs_control & XS_CTL_DATA_IN) ? BUS_DMASYNC_POSTREAD :
    562        1.9   thorpej 		    BUS_DMASYNC_POSTWRITE);
    563        1.9   thorpej 		bus_dmamap_unload(dmat, ecb->dmamap_xfer);
    564        1.9   thorpej 	}
    565        1.9   thorpej 
    566        1.1   mycroft 	/*
    567        1.1   mycroft 	 * Otherwise, put the results of the operation
    568        1.1   mycroft 	 * into the xfer and call whoever started it
    569        1.1   mycroft 	 */
    570        1.1   mycroft 	if ((ecb->flags & ECB_ALLOC) == 0) {
    571        1.5  christos 		printf("%s: exiting ecb not allocated!\n", sc->sc_dev.dv_xname);
    572        1.1   mycroft 		Debugger();
    573        1.1   mycroft 	}
    574        1.1   mycroft 	if (ecb->flags & ECB_IMMED) {
    575        1.1   mycroft 		if (ecb->flags & ECB_IMMED_FAIL)
    576        1.1   mycroft 			xs->error = XS_DRIVER_STUFFUP;
    577        1.1   mycroft 		goto done;
    578        1.1   mycroft 	}
    579        1.1   mycroft 	if (xs->error == XS_NOERROR) {
    580        1.1   mycroft 		if (ecb->ecb_status.host_stat != HS_OK) {
    581        1.1   mycroft 			switch (ecb->ecb_status.host_stat) {
    582        1.1   mycroft 			case HS_TIMED_OUT:	/* No response */
    583        1.1   mycroft 				xs->error = XS_SELTIMEOUT;
    584        1.1   mycroft 				break;
    585        1.1   mycroft 			default:	/* Other scsi protocol messes */
    586        1.5  christos 				printf("%s: host_stat %x\n",
    587        1.1   mycroft 				    sc->sc_dev.dv_xname, ecb->ecb_status.host_stat);
    588        1.1   mycroft 				xs->error = XS_DRIVER_STUFFUP;
    589        1.1   mycroft 			}
    590        1.1   mycroft 		} else if (ecb->ecb_status.target_stat != SCSI_OK) {
    591        1.1   mycroft 			switch (ecb->ecb_status.target_stat) {
    592        1.1   mycroft 			case SCSI_CHECK:
    593        1.1   mycroft 				s1 = &ecb->ecb_sense;
    594       1.10    bouyer 				s2 = &xs->sense.scsi_sense;
    595        1.1   mycroft 				*s2 = *s1;
    596        1.1   mycroft 				xs->error = XS_SENSE;
    597        1.1   mycroft 				break;
    598        1.1   mycroft 			case SCSI_BUSY:
    599        1.1   mycroft 				xs->error = XS_BUSY;
    600        1.1   mycroft 				break;
    601        1.1   mycroft 			default:
    602        1.5  christos 				printf("%s: target_stat %x\n",
    603        1.1   mycroft 				    sc->sc_dev.dv_xname, ecb->ecb_status.target_stat);
    604        1.1   mycroft 				xs->error = XS_DRIVER_STUFFUP;
    605        1.1   mycroft 			}
    606        1.1   mycroft 		} else
    607        1.1   mycroft 			xs->resid = 0;
    608        1.1   mycroft 	}
    609        1.1   mycroft done:
    610        1.1   mycroft 	ahb_free_ecb(sc, ecb);
    611       1.10    bouyer 	scsipi_done(xs);
    612        1.1   mycroft }
    613        1.1   mycroft 
    614        1.1   mycroft /*
    615        1.1   mycroft  * Start the board, ready for normal operation
    616        1.1   mycroft  */
    617       1.40   thorpej static int
    618       1.40   thorpej ahb_find(bus_space_tag_t iot, bus_space_handle_t ioh, struct ahb_probe_data *sc)
    619        1.1   mycroft {
    620        1.1   mycroft 	u_char intdef;
    621        1.1   mycroft 	int i, irq, busid;
    622        1.1   mycroft 	int wait = 1000;	/* 1 sec enough? */
    623        1.1   mycroft 
    624        1.6   thorpej 	bus_space_write_1(iot, ioh, PORTADDR, PORTADDR_ENHANCED);
    625        1.1   mycroft 
    626        1.1   mycroft #define	NO_NO 1
    627        1.1   mycroft #ifdef NO_NO
    628        1.1   mycroft 	/*
    629        1.1   mycroft 	 * reset board, If it doesn't respond, assume
    630        1.1   mycroft 	 * that it's not there.. good for the probe
    631        1.1   mycroft 	 */
    632        1.6   thorpej 	bus_space_write_1(iot, ioh, G2CNTRL, G2CNTRL_HARD_RESET);
    633        1.1   mycroft 	delay(1000);
    634        1.6   thorpej 	bus_space_write_1(iot, ioh, G2CNTRL, 0);
    635        1.1   mycroft 	delay(10000);
    636        1.1   mycroft 	while (--wait) {
    637        1.6   thorpej 		if ((bus_space_read_1(iot, ioh, G2STAT) & G2STAT_BUSY) == 0)
    638        1.1   mycroft 			break;
    639        1.1   mycroft 		delay(1000);
    640        1.1   mycroft 	}
    641        1.1   mycroft 	if (!wait) {
    642        1.1   mycroft #ifdef	AHBDEBUG
    643        1.5  christos 		printf("ahb_find: No answer from aha1742 board\n");
    644        1.1   mycroft #endif /* AHBDEBUG */
    645        1.1   mycroft 		return ENXIO;
    646        1.1   mycroft 	}
    647        1.6   thorpej 	i = bus_space_read_1(iot, ioh, MBOXIN0);
    648        1.1   mycroft 	if (i) {
    649        1.5  christos 		printf("self test failed, val = 0x%x\n", i);
    650        1.1   mycroft 		return EIO;
    651        1.1   mycroft 	}
    652        1.1   mycroft 
    653        1.1   mycroft 	/* Set it again, just to be sure. */
    654        1.6   thorpej 	bus_space_write_1(iot, ioh, PORTADDR, PORTADDR_ENHANCED);
    655        1.1   mycroft #endif
    656        1.1   mycroft 
    657        1.6   thorpej 	while (bus_space_read_1(iot, ioh, G2STAT) & G2STAT_INT_PEND) {
    658        1.5  christos 		printf(".");
    659        1.6   thorpej 		bus_space_write_1(iot, ioh, G2CNTRL, G2CNTRL_CLEAR_EISA_INT);
    660        1.1   mycroft 		delay(10000);
    661        1.1   mycroft 	}
    662        1.1   mycroft 
    663        1.6   thorpej 	intdef = bus_space_read_1(iot, ioh, INTDEF);
    664        1.1   mycroft 	switch (intdef & 0x07) {
    665        1.1   mycroft 	case INT9:
    666        1.1   mycroft 		irq = 9;
    667        1.1   mycroft 		break;
    668        1.1   mycroft 	case INT10:
    669        1.1   mycroft 		irq = 10;
    670        1.1   mycroft 		break;
    671        1.1   mycroft 	case INT11:
    672        1.1   mycroft 		irq = 11;
    673        1.1   mycroft 		break;
    674        1.1   mycroft 	case INT12:
    675        1.1   mycroft 		irq = 12;
    676        1.1   mycroft 		break;
    677        1.1   mycroft 	case INT14:
    678        1.1   mycroft 		irq = 14;
    679        1.1   mycroft 		break;
    680        1.1   mycroft 	case INT15:
    681        1.1   mycroft 		irq = 15;
    682        1.1   mycroft 		break;
    683        1.1   mycroft 	default:
    684        1.5  christos 		printf("illegal int setting %x\n", intdef);
    685        1.1   mycroft 		return EIO;
    686        1.1   mycroft 	}
    687        1.1   mycroft 
    688        1.6   thorpej 	bus_space_write_1(iot, ioh, INTDEF, (intdef | INTEN));	/* make sure we can interrupt */
    689        1.1   mycroft 
    690        1.1   mycroft 	/* who are we on the scsi bus? */
    691        1.6   thorpej 	busid = (bus_space_read_1(iot, ioh, SCSIDEF) & HSCSIID);
    692        1.1   mycroft 
    693        1.8   mycroft 	/* if we want to return data, do so now */
    694        1.8   mycroft 	if (sc) {
    695        1.1   mycroft 		sc->sc_irq = irq;
    696        1.1   mycroft 		sc->sc_scsi_dev = busid;
    697        1.1   mycroft 	}
    698        1.1   mycroft 
    699        1.1   mycroft 	/*
    700        1.1   mycroft 	 * Note that we are going and return (to probe)
    701        1.1   mycroft 	 */
    702        1.1   mycroft 	return 0;
    703        1.1   mycroft }
    704        1.1   mycroft 
    705       1.40   thorpej static int
    706       1.40   thorpej ahb_init(struct ahb_softc *sc)
    707        1.1   mycroft {
    708       1.18   thorpej 	bus_dma_segment_t seg;
    709       1.18   thorpej 	int i, error, rseg;
    710       1.18   thorpej 
    711       1.18   thorpej #define	ECBSIZE		(AHB_ECB_MAX * sizeof(struct ahb_ecb))
    712       1.18   thorpej 
    713       1.18   thorpej 	/*
    714       1.18   thorpej 	 * Allocate the ECBs.
    715       1.18   thorpej 	 */
    716       1.18   thorpej 	if ((error = bus_dmamem_alloc(sc->sc_dmat, ECBSIZE,
    717       1.31   thorpej 	    PAGE_SIZE, 0, &seg, 1, &rseg, BUS_DMA_NOWAIT)) != 0) {
    718       1.18   thorpej 		printf("%s: unable to allocate ecbs, error = %d\n",
    719       1.18   thorpej 		    sc->sc_dev.dv_xname, error);
    720       1.18   thorpej 		return (error);
    721       1.18   thorpej 	}
    722       1.18   thorpej 	if ((error = bus_dmamem_map(sc->sc_dmat, &seg, rseg,
    723       1.48  christos 	    ECBSIZE, (void **)&sc->sc_ecbs,
    724       1.18   thorpej 	    BUS_DMA_NOWAIT|BUS_DMA_COHERENT)) != 0) {
    725       1.18   thorpej 		printf("%s: unable to map ecbs, error = %d\n",
    726       1.18   thorpej 		    sc->sc_dev.dv_xname, error);
    727       1.18   thorpej 		return (error);
    728       1.18   thorpej 	}
    729       1.18   thorpej 
    730       1.18   thorpej 	/*
    731       1.18   thorpej 	 * Create and load the DMA map used for the ecbs.
    732       1.18   thorpej 	 */
    733       1.18   thorpej 	if ((error = bus_dmamap_create(sc->sc_dmat, ECBSIZE,
    734       1.18   thorpej 	    1, ECBSIZE, 0, BUS_DMA_NOWAIT, &sc->sc_dmamap_ecb)) != 0) {
    735       1.18   thorpej 		printf("%s: unable to create ecb DMA map, error = %d\n",
    736       1.18   thorpej 		    sc->sc_dev.dv_xname, error);
    737       1.18   thorpej 		return (error);
    738       1.18   thorpej 	}
    739       1.18   thorpej 	if ((error = bus_dmamap_load(sc->sc_dmat, sc->sc_dmamap_ecb,
    740       1.18   thorpej 	    sc->sc_ecbs, ECBSIZE, NULL, BUS_DMA_NOWAIT)) != 0) {
    741       1.18   thorpej 		printf("%s: unable to load ecb DMA map, error = %d\n",
    742       1.18   thorpej 		    sc->sc_dev.dv_xname, error);
    743       1.18   thorpej 		return (error);
    744       1.18   thorpej 	}
    745        1.1   mycroft 
    746       1.18   thorpej #undef ECBSIZE
    747       1.18   thorpej 
    748       1.18   thorpej 	/*
    749       1.18   thorpej 	 * Initialize the ecbs.
    750       1.18   thorpej 	 */
    751       1.18   thorpej 	i = ahb_create_ecbs(sc, sc->sc_ecbs, AHB_ECB_MAX);
    752       1.18   thorpej 	if (i == 0) {
    753       1.18   thorpej 		printf("%s: unable to create ecbs\n",
    754       1.18   thorpej 		    sc->sc_dev.dv_xname);
    755       1.18   thorpej 		return (ENOMEM);
    756       1.18   thorpej 	} else if (i != AHB_ECB_MAX) {
    757       1.18   thorpej 		printf("%s: WARNING: only %d of %d ecbs created\n",
    758       1.18   thorpej 		    sc->sc_dev.dv_xname, i, AHB_ECB_MAX);
    759       1.18   thorpej 	}
    760       1.18   thorpej 
    761       1.32    bouyer 	sc->sc_adapter.adapt_openings = i;
    762       1.32    bouyer 
    763       1.18   thorpej 	return (0);
    764        1.1   mycroft }
    765        1.1   mycroft 
    766       1.40   thorpej static void
    767       1.40   thorpej ahbminphys(struct buf *bp)
    768        1.1   mycroft {
    769        1.1   mycroft 
    770        1.9   thorpej 	if (bp->b_bcount > AHB_MAXXFER)
    771        1.9   thorpej 		bp->b_bcount = AHB_MAXXFER;
    772        1.1   mycroft 	minphys(bp);
    773        1.1   mycroft }
    774        1.1   mycroft 
    775        1.1   mycroft /*
    776        1.1   mycroft  * start a scsi operation given the command and the data address.  Also needs
    777        1.1   mycroft  * the unit, target and lu.
    778        1.1   mycroft  */
    779       1.40   thorpej static void
    780       1.40   thorpej ahb_scsipi_request(struct scsipi_channel *chan, scsipi_adapter_req_t req,
    781       1.40   thorpej     void *arg)
    782       1.32    bouyer {
    783       1.10    bouyer 	struct scsipi_xfer *xs;
    784       1.32    bouyer 	struct scsipi_periph *periph;
    785       1.32    bouyer 	struct ahb_softc *sc = (void *)chan->chan_adapter->adapt_dev;
    786        1.9   thorpej 	bus_dma_tag_t dmat = sc->sc_dmat;
    787        1.1   mycroft 	struct ahb_ecb *ecb;
    788        1.9   thorpej 	int error, seg, flags, s;
    789       1.12   thorpej 
    790       1.32    bouyer 	switch (req) {
    791       1.32    bouyer 	case ADAPTER_REQ_RUN_XFER:
    792       1.32    bouyer 		xs = arg;
    793       1.32    bouyer 		periph = xs->xs_periph;
    794       1.32    bouyer 		flags = xs->xs_control;
    795       1.32    bouyer 
    796       1.32    bouyer 		SC_DEBUG(periph, SCSIPI_DB2, ("ahb_scsipi_request\n"));
    797       1.32    bouyer 
    798       1.32    bouyer 		/* Get an ECB to use. */
    799       1.32    bouyer 		ecb = ahb_get_ecb(sc);
    800       1.32    bouyer #ifdef DIAGNOSTIC
    801       1.12   thorpej 		/*
    802       1.32    bouyer 		 * This should never happen as we track the resources
    803       1.32    bouyer 		 * in the mid-layer.
    804       1.12   thorpej 		 */
    805       1.32    bouyer 		if (ecb == NULL) {
    806       1.32    bouyer 			scsipi_printaddr(periph);
    807       1.32    bouyer 			printf("unable to allocate ecb\n");
    808       1.32    bouyer 			panic("ahb_scsipi_request");
    809       1.12   thorpej 		}
    810       1.32    bouyer #endif
    811       1.32    bouyer 
    812       1.32    bouyer 		ecb->xs = xs;
    813       1.32    bouyer 		ecb->timeout = xs->timeout;
    814       1.12   thorpej 
    815       1.12   thorpej 		/*
    816       1.32    bouyer 		 * If it's a reset, we need to do an 'immediate'
    817       1.32    bouyer 		 * command, and store its ecb for later
    818       1.32    bouyer 		 * if there is already an immediate waiting,
    819       1.32    bouyer 		 * then WE must wait
    820       1.12   thorpej 		 */
    821       1.32    bouyer 		if (flags & XS_CTL_RESET) {
    822       1.32    bouyer 			ecb->flags |= ECB_IMMED;
    823       1.32    bouyer 			if (sc->sc_immed_ecb) {
    824       1.32    bouyer 				ahb_free_ecb(sc, ecb);
    825       1.32    bouyer 				xs->error = XS_BUSY;
    826       1.32    bouyer 				scsipi_done(xs);
    827       1.32    bouyer 				return;
    828       1.32    bouyer 			}
    829       1.32    bouyer 			sc->sc_immed_ecb = ecb;
    830       1.12   thorpej 
    831       1.32    bouyer 			s = splbio();
    832       1.32    bouyer 			ahb_send_immed(sc, AHB_TARG_RESET, ecb);
    833       1.12   thorpej 			splx(s);
    834       1.32    bouyer 
    835       1.32    bouyer 			if ((flags & XS_CTL_POLL) == 0)
    836       1.32    bouyer 				return;
    837       1.32    bouyer 
    838       1.32    bouyer 			/*
    839       1.32    bouyer 			 * If we can't use interrupts, poll on completion
    840       1.32    bouyer 			 */
    841       1.32    bouyer 			if (ahb_poll(sc, xs, ecb->timeout))
    842       1.32    bouyer 				ahb_timeout(ecb);
    843       1.32    bouyer 			return;
    844       1.12   thorpej 		}
    845       1.12   thorpej 
    846       1.12   thorpej 		/*
    847       1.32    bouyer 		 * Put all the arguments for the xfer in the ecb
    848       1.12   thorpej 		 */
    849       1.41   thorpej 		if (xs->cmdlen > sizeof(ecb->scsi_cmd)) {
    850       1.41   thorpej 			printf("%s: cmdlen %d too large for ECB\n",
    851       1.41   thorpej 			    sc->sc_dev.dv_xname, xs->cmdlen);
    852       1.41   thorpej 			xs->error = XS_DRIVER_STUFFUP;
    853       1.41   thorpej 			goto out_bad;
    854       1.41   thorpej 		}
    855       1.32    bouyer 		ecb->opcode = ECB_SCSI_OP;
    856       1.32    bouyer 		ecb->opt1 = ECB_SES /*| ECB_DSB*/ | ECB_ARS;
    857       1.32    bouyer 		ecb->opt2 = periph->periph_lun | ECB_NRB;
    858       1.32    bouyer 		bcopy(xs->cmd, &ecb->scsi_cmd,
    859       1.32    bouyer 		    ecb->scsi_cmd_length = xs->cmdlen);
    860       1.32    bouyer 		ecb->sense_ptr = sc->sc_dmamap_ecb->dm_segs[0].ds_addr +
    861       1.32    bouyer 		    AHB_ECB_OFF(ecb) + offsetof(struct ahb_ecb, ecb_sense);
    862       1.32    bouyer 		ecb->req_sense_length = sizeof(ecb->ecb_sense);
    863       1.32    bouyer 		ecb->status = sc->sc_dmamap_ecb->dm_segs[0].ds_addr +
    864       1.32    bouyer 		    AHB_ECB_OFF(ecb) + offsetof(struct ahb_ecb, ecb_status);
    865       1.32    bouyer 		ecb->ecb_status.host_stat = 0x00;
    866       1.32    bouyer 		ecb->ecb_status.target_stat = 0x00;
    867       1.32    bouyer 
    868       1.32    bouyer 		if (xs->datalen) {
    869       1.32    bouyer 			/*
    870       1.32    bouyer 			 * Map the DMA transfer.
    871       1.32    bouyer 			 */
    872       1.32    bouyer #ifdef TFS
    873       1.32    bouyer 			if (flags & XS_CTL_DATA_UIO) {
    874       1.32    bouyer 				error = bus_dmamap_load_uio(sc->sc_dmat,
    875       1.32    bouyer 				    ecb->dmamap_xfer, (struct uio *)xs->data,
    876       1.32    bouyer 				    BUS_DMA_NOWAIT);
    877       1.32    bouyer 			} else
    878       1.32    bouyer #endif /* TFS */
    879       1.32    bouyer 			{
    880       1.32    bouyer 				error = bus_dmamap_load(sc->sc_dmat,
    881       1.32    bouyer 				    ecb->dmamap_xfer, xs->data, xs->datalen,
    882       1.32    bouyer 				    NULL, BUS_DMA_NOWAIT);
    883       1.32    bouyer 			}
    884       1.32    bouyer 
    885       1.32    bouyer 			switch (error) {
    886       1.32    bouyer 			case 0:
    887       1.32    bouyer 				break;
    888       1.32    bouyer 
    889       1.32    bouyer 			case ENOMEM:
    890       1.32    bouyer 			case EAGAIN:
    891       1.32    bouyer 				xs->error = XS_RESOURCE_SHORTAGE;
    892       1.32    bouyer 				goto out_bad;
    893       1.12   thorpej 
    894       1.32    bouyer 			default:
    895       1.32    bouyer 				xs->error = XS_DRIVER_STUFFUP;
    896       1.32    bouyer 				printf("%s: error %d loading DMA map\n",
    897       1.32    bouyer 				    sc->sc_dev.dv_xname, error);
    898       1.32    bouyer  out_bad:
    899       1.32    bouyer 				ahb_free_ecb(sc, ecb);
    900       1.32    bouyer 				scsipi_done(xs);
    901       1.32    bouyer 				return;
    902       1.32    bouyer 			}
    903       1.12   thorpej 
    904       1.32    bouyer 			bus_dmamap_sync(dmat, ecb->dmamap_xfer, 0,
    905       1.32    bouyer 			    ecb->dmamap_xfer->dm_mapsize,
    906       1.32    bouyer 			    (flags & XS_CTL_DATA_IN) ? BUS_DMASYNC_PREREAD :
    907       1.32    bouyer 			    BUS_DMASYNC_PREWRITE);
    908       1.32    bouyer 
    909       1.32    bouyer 			/*
    910       1.32    bouyer 			 * Load the hardware scatter/gather map with the
    911       1.32    bouyer 			 * contents of the DMA map.
    912       1.32    bouyer 			 */
    913       1.32    bouyer 			for (seg = 0; seg < ecb->dmamap_xfer->dm_nsegs; seg++) {
    914       1.32    bouyer 				ecb->ahb_dma[seg].seg_addr =
    915       1.32    bouyer 				    ecb->dmamap_xfer->dm_segs[seg].ds_addr;
    916       1.32    bouyer 				ecb->ahb_dma[seg].seg_len =
    917       1.32    bouyer 				    ecb->dmamap_xfer->dm_segs[seg].ds_len;
    918       1.32    bouyer 			}
    919        1.1   mycroft 
    920       1.32    bouyer 			ecb->data_addr = sc->sc_dmamap_ecb->dm_segs[0].ds_addr +
    921       1.32    bouyer 			    AHB_ECB_OFF(ecb) +
    922       1.32    bouyer 			    offsetof(struct ahb_ecb, ahb_dma);
    923       1.32    bouyer 			ecb->data_length = ecb->dmamap_xfer->dm_nsegs *
    924       1.32    bouyer 			    sizeof(struct ahb_dma_seg);
    925       1.32    bouyer 			ecb->opt1 |= ECB_S_G;
    926       1.32    bouyer 		} else {	/* No data xfer, use non S/G values */
    927       1.32    bouyer 			ecb->data_addr = (physaddr)0;
    928       1.32    bouyer 			ecb->data_length = 0;
    929       1.32    bouyer 		}
    930       1.32    bouyer 		ecb->link_addr = (physaddr)0;
    931       1.32    bouyer 
    932       1.32    bouyer 		bus_dmamap_sync(sc->sc_dmat, sc->sc_dmamap_ecb,
    933       1.32    bouyer 		    AHB_ECB_OFF(ecb), sizeof(struct ahb_ecb),
    934       1.32    bouyer 		    BUS_DMASYNC_PREREAD|BUS_DMASYNC_PREWRITE);
    935        1.1   mycroft 
    936        1.1   mycroft 		s = splbio();
    937       1.32    bouyer 		ahb_send_mbox(sc, OP_START_ECB, ecb);
    938        1.1   mycroft 		splx(s);
    939        1.1   mycroft 
    940       1.28   thorpej 		if ((flags & XS_CTL_POLL) == 0)
    941       1.32    bouyer 			return;
    942        1.1   mycroft 
    943        1.1   mycroft 		/*
    944        1.1   mycroft 		 * If we can't use interrupts, poll on completion
    945        1.1   mycroft 		 */
    946       1.32    bouyer 		if (ahb_poll(sc, xs, ecb->timeout)) {
    947        1.1   mycroft 			ahb_timeout(ecb);
    948       1.32    bouyer 			if (ahb_poll(sc, xs, ecb->timeout))
    949       1.32    bouyer 				ahb_timeout(ecb);
    950        1.1   mycroft 		}
    951       1.32    bouyer 		return;
    952        1.9   thorpej 
    953       1.32    bouyer 	case ADAPTER_REQ_GROW_RESOURCES:
    954       1.32    bouyer 		/* XXX Not supported. */
    955       1.32    bouyer 		return;
    956        1.9   thorpej 
    957       1.32    bouyer 	case ADAPTER_REQ_SET_XFER_MODE:
    958       1.32    bouyer 		/* XXX How do we do this? */
    959       1.32    bouyer 		return;
    960        1.1   mycroft 	}
    961        1.1   mycroft }
    962        1.1   mycroft 
    963        1.1   mycroft /*
    964        1.1   mycroft  * Function to poll for command completion when in poll mode
    965        1.1   mycroft  */
    966       1.40   thorpej static int
    967       1.40   thorpej ahb_poll(struct ahb_softc *sc, struct scsipi_xfer *xs, int count)
    968        1.1   mycroft {				/* in msec  */
    969        1.6   thorpej 	bus_space_tag_t iot = sc->sc_iot;
    970        1.6   thorpej 	bus_space_handle_t ioh = sc->sc_ioh;
    971        1.1   mycroft 
    972        1.1   mycroft 	while (count) {
    973        1.1   mycroft 		/*
    974        1.1   mycroft 		 * If we had interrupts enabled, would we
    975        1.1   mycroft 		 * have got an interrupt?
    976        1.1   mycroft 		 */
    977        1.6   thorpej 		if (bus_space_read_1(iot, ioh, G2STAT) & G2STAT_INT_PEND)
    978        1.1   mycroft 			ahbintr(sc);
    979       1.28   thorpej 		if (xs->xs_status & XS_STS_DONE)
    980        1.1   mycroft 			return 0;
    981        1.1   mycroft 		delay(1000);
    982        1.1   mycroft 		count--;
    983        1.1   mycroft 	}
    984        1.1   mycroft 	return 1;
    985        1.1   mycroft }
    986        1.1   mycroft 
    987       1.40   thorpej static void
    988       1.40   thorpej ahb_timeout(void *arg)
    989        1.1   mycroft {
    990        1.1   mycroft 	struct ahb_ecb *ecb = arg;
    991       1.10    bouyer 	struct scsipi_xfer *xs = ecb->xs;
    992       1.32    bouyer 	struct scsipi_periph *periph = xs->xs_periph;
    993       1.32    bouyer 	struct ahb_softc *sc =
    994       1.32    bouyer 	    (void *)periph->periph_channel->chan_adapter->adapt_dev;
    995        1.1   mycroft 	int s;
    996        1.1   mycroft 
    997       1.32    bouyer 	scsipi_printaddr(periph);
    998        1.5  christos 	printf("timed out");
    999        1.1   mycroft 
   1000        1.1   mycroft 	s = splbio();
   1001        1.1   mycroft 
   1002        1.1   mycroft 	if (ecb->flags & ECB_IMMED) {
   1003        1.5  christos 		printf("\n");
   1004        1.1   mycroft 		ecb->flags |= ECB_IMMED_FAIL;
   1005        1.1   mycroft 		/* XXX Must reset! */
   1006        1.1   mycroft 	} else
   1007        1.1   mycroft 
   1008        1.1   mycroft 	/*
   1009        1.1   mycroft 	 * If it has been through before, then
   1010        1.1   mycroft 	 * a previous abort has failed, don't
   1011        1.1   mycroft 	 * try abort again
   1012        1.1   mycroft 	 */
   1013        1.1   mycroft 	if (ecb->flags & ECB_ABORT) {
   1014        1.1   mycroft 		/* abort timed out */
   1015        1.5  christos 		printf(" AGAIN\n");
   1016        1.1   mycroft 		/* XXX Must reset! */
   1017        1.1   mycroft 	} else {
   1018        1.1   mycroft 		/* abort the operation that has timed out */
   1019        1.5  christos 		printf("\n");
   1020        1.1   mycroft 		ecb->xs->error = XS_TIMEOUT;
   1021        1.1   mycroft 		ecb->timeout = AHB_ABORT_TIMEOUT;
   1022        1.1   mycroft 		ecb->flags |= ECB_ABORT;
   1023        1.1   mycroft 		ahb_send_mbox(sc, OP_ABORT_ECB, ecb);
   1024        1.1   mycroft 	}
   1025        1.1   mycroft 
   1026        1.1   mycroft 	splx(s);
   1027        1.1   mycroft }
   1028