wds.c revision 1.73 1 1.73 cegger /* $NetBSD: wds.c,v 1.73 2009/05/12 09:10:16 cegger Exp $ */
2 1.1 mycroft
3 1.1 mycroft /*
4 1.1 mycroft * XXX
5 1.1 mycroft * aborts
6 1.1 mycroft * resets
7 1.1 mycroft */
8 1.1 mycroft
9 1.61 perry /*-
10 1.30 thorpej * Copyright (c) 1997, 1998 The NetBSD Foundation, Inc.
11 1.19 thorpej * All rights reserved.
12 1.61 perry *
13 1.19 thorpej * This code is derived from software contributed to The NetBSD Foundation
14 1.19 thorpej * by Jason R. Thorpe of the Numerical Aerospace Simulation Facility,
15 1.19 thorpej * NASA Ames Research Center.
16 1.61 perry *
17 1.61 perry * Redistribution and use in source and binary forms, with or without
18 1.19 thorpej * modification, are permitted provided that the following conditions
19 1.19 thorpej * are met:
20 1.19 thorpej * 1. Redistributions of source code must retain the above copyright
21 1.19 thorpej * notice, this list of conditions and the following disclaimer.
22 1.19 thorpej * 2. Redistributions in binary form must reproduce the above copyright
23 1.19 thorpej * notice, this list of conditions and the following disclaimer in the
24 1.19 thorpej * documentation and/or other materials provided with the distribution.
25 1.19 thorpej *
26 1.19 thorpej * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
27 1.19 thorpej * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
28 1.19 thorpej * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29 1.19 thorpej * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
30 1.19 thorpej * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
31 1.19 thorpej * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
32 1.19 thorpej * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
33 1.19 thorpej * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
34 1.19 thorpej * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35 1.19 thorpej * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36 1.19 thorpej * POSSIBILITY OF SUCH DAMAGE.
37 1.19 thorpej */
38 1.19 thorpej
39 1.1 mycroft /*
40 1.1 mycroft * Copyright (c) 1994, 1995 Julian Highfield. All rights reserved.
41 1.15 mycroft * Portions copyright (c) 1994, 1996, 1997
42 1.15 mycroft * Charles M. Hannum. All rights reserved.
43 1.1 mycroft *
44 1.1 mycroft * Redistribution and use in source and binary forms, with or without
45 1.1 mycroft * modification, are permitted provided that the following conditions
46 1.1 mycroft * are met:
47 1.1 mycroft * 1. Redistributions of source code must retain the above copyright
48 1.1 mycroft * notice, this list of conditions and the following disclaimer.
49 1.1 mycroft * 2. Redistributions in binary form must reproduce the above copyright
50 1.1 mycroft * notice, this list of conditions and the following disclaimer in the
51 1.1 mycroft * documentation and/or other materials provided with the distribution.
52 1.1 mycroft * 3. All advertising materials mentioning features or use of this software
53 1.1 mycroft * must display the following acknowledgement:
54 1.1 mycroft * This product includes software developed by Julian Highfield.
55 1.1 mycroft * 4. The name of the author may not be used to endorse or promote products
56 1.1 mycroft * derived from this software without specific prior written permission.
57 1.1 mycroft *
58 1.1 mycroft * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
59 1.1 mycroft * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
60 1.1 mycroft * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
61 1.1 mycroft * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
62 1.1 mycroft * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
63 1.1 mycroft * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
64 1.1 mycroft * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
65 1.1 mycroft * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
66 1.1 mycroft * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
67 1.1 mycroft * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
68 1.1 mycroft */
69 1.1 mycroft
70 1.1 mycroft /*
71 1.1 mycroft * This driver is for the WD7000 family of SCSI controllers:
72 1.1 mycroft * the WD7000-ASC, a bus-mastering DMA controller,
73 1.1 mycroft * the WD7000-FASST2, an -ASC with new firmware and scatter-gather,
74 1.1 mycroft * and the WD7000-ASE, which was custom manufactured for Apollo
75 1.1 mycroft * workstations and seems to include an -ASC as well as floppy
76 1.1 mycroft * and ESDI interfaces.
77 1.1 mycroft *
78 1.1 mycroft * Loosely based on Theo Deraadt's unfinished attempt.
79 1.1 mycroft */
80 1.46 lukem
81 1.46 lukem #include <sys/cdefs.h>
82 1.73 cegger __KERNEL_RCSID(0, "$NetBSD: wds.c,v 1.73 2009/05/12 09:10:16 cegger Exp $");
83 1.46 lukem
84 1.46 lukem #include "opt_ddb.h"
85 1.46 lukem
86 1.46 lukem #undef WDSDIAG
87 1.46 lukem #ifdef DDB
88 1.46 lukem #define integrate
89 1.46 lukem #else
90 1.46 lukem #define integrate static inline
91 1.46 lukem #endif
92 1.1 mycroft
93 1.1 mycroft #include <sys/param.h>
94 1.1 mycroft #include <sys/systm.h>
95 1.1 mycroft #include <sys/kernel.h>
96 1.1 mycroft #include <sys/errno.h>
97 1.1 mycroft #include <sys/ioctl.h>
98 1.1 mycroft #include <sys/device.h>
99 1.1 mycroft #include <sys/malloc.h>
100 1.1 mycroft #include <sys/buf.h>
101 1.1 mycroft #include <sys/proc.h>
102 1.1 mycroft #include <sys/user.h>
103 1.1 mycroft
104 1.41 thorpej #include <uvm/uvm_extern.h>
105 1.41 thorpej
106 1.67 ad #include <sys/bus.h>
107 1.67 ad #include <sys/intr.h>
108 1.1 mycroft
109 1.18 bouyer #include <dev/scsipi/scsi_all.h>
110 1.18 bouyer #include <dev/scsipi/scsipi_all.h>
111 1.18 bouyer #include <dev/scsipi/scsiconf.h>
112 1.1 mycroft
113 1.1 mycroft #include <dev/isa/isavar.h>
114 1.1 mycroft #include <dev/isa/isadmavar.h>
115 1.15 mycroft
116 1.1 mycroft #include <dev/isa/wdsreg.h>
117 1.3 cgd
118 1.15 mycroft #define WDS_ISA_IOSIZE 8
119 1.15 mycroft
120 1.3 cgd #ifndef DDB
121 1.3 cgd #define Debugger() panic("should call debugger here (wds.c)")
122 1.3 cgd #endif /* ! DDB */
123 1.1 mycroft
124 1.19 thorpej #define WDS_MAXXFER ((WDS_NSEG - 1) << PGSHIFT)
125 1.19 thorpej
126 1.1 mycroft #define WDS_MBX_SIZE 16
127 1.1 mycroft
128 1.1 mycroft #define WDS_SCB_MAX 32
129 1.1 mycroft #define SCB_HASH_SIZE 32 /* hash table size for phystokv */
130 1.1 mycroft #define SCB_HASH_SHIFT 9
131 1.1 mycroft #define SCB_HASH(x) ((((long)(x))>>SCB_HASH_SHIFT) & (SCB_HASH_SIZE - 1))
132 1.1 mycroft
133 1.1 mycroft #define wds_nextmbx(wmb, mbx, mbio) \
134 1.1 mycroft if ((wmb) == &(mbx)->mbio[WDS_MBX_SIZE - 1]) \
135 1.1 mycroft (wmb) = &(mbx)->mbio[0]; \
136 1.1 mycroft else \
137 1.1 mycroft (wmb)++;
138 1.1 mycroft
139 1.1 mycroft struct wds_mbx {
140 1.1 mycroft struct wds_mbx_out mbo[WDS_MBX_SIZE];
141 1.1 mycroft struct wds_mbx_in mbi[WDS_MBX_SIZE];
142 1.1 mycroft struct wds_mbx_out *cmbo; /* Collection Mail Box out */
143 1.1 mycroft struct wds_mbx_out *tmbo; /* Target Mail Box out */
144 1.1 mycroft struct wds_mbx_in *tmbi; /* Target Mail Box in */
145 1.1 mycroft };
146 1.1 mycroft
147 1.1 mycroft struct wds_softc {
148 1.1 mycroft struct device sc_dev;
149 1.15 mycroft
150 1.15 mycroft bus_space_tag_t sc_iot;
151 1.15 mycroft bus_space_handle_t sc_ioh;
152 1.19 thorpej bus_dma_tag_t sc_dmat;
153 1.19 thorpej bus_dmamap_t sc_dmamap_mbox; /* maps the mailbox */
154 1.1 mycroft void *sc_ih;
155 1.1 mycroft
156 1.19 thorpej struct wds_mbx *sc_mbx;
157 1.19 thorpej #define wmbx (sc->sc_mbx)
158 1.1 mycroft struct wds_scb *sc_scbhash[SCB_HASH_SIZE];
159 1.1 mycroft TAILQ_HEAD(, wds_scb) sc_free_scb, sc_waiting_scb;
160 1.1 mycroft int sc_numscbs, sc_mbofull;
161 1.42 bouyer
162 1.36 thorpej struct scsipi_adapter sc_adapter;
163 1.42 bouyer struct scsipi_channel sc_channel;
164 1.25 thorpej
165 1.15 mycroft int sc_revision;
166 1.19 thorpej int sc_maxsegs;
167 1.15 mycroft };
168 1.15 mycroft
169 1.15 mycroft struct wds_probe_data {
170 1.15 mycroft #ifdef notyet
171 1.15 mycroft int sc_irq, sc_drq;
172 1.15 mycroft #endif
173 1.1 mycroft int sc_scsi_dev;
174 1.1 mycroft };
175 1.1 mycroft
176 1.15 mycroft integrate void
177 1.60 perry wds_wait(bus_space_tag_t, bus_space_handle_t, int, int, int);
178 1.60 perry int wds_cmd(bus_space_tag_t, bus_space_handle_t, u_char *, int);
179 1.60 perry integrate void wds_finish_scbs(struct wds_softc *);
180 1.60 perry int wdsintr(void *);
181 1.60 perry integrate void wds_reset_scb(struct wds_softc *, struct wds_scb *);
182 1.60 perry void wds_free_scb(struct wds_softc *, struct wds_scb *);
183 1.60 perry integrate int wds_init_scb(struct wds_softc *, struct wds_scb *);
184 1.60 perry struct wds_scb *wds_get_scb(struct wds_softc *);
185 1.60 perry struct wds_scb *wds_scb_phys_kv(struct wds_softc *, u_long);
186 1.60 perry void wds_queue_scb(struct wds_softc *, struct wds_scb *);
187 1.60 perry void wds_collect_mbo(struct wds_softc *);
188 1.60 perry void wds_start_scbs(struct wds_softc *);
189 1.60 perry void wds_done(struct wds_softc *, struct wds_scb *, u_char);
190 1.60 perry int wds_find(bus_space_tag_t, bus_space_handle_t, struct wds_probe_data *);
191 1.60 perry void wds_attach(struct wds_softc *, struct wds_probe_data *);
192 1.60 perry void wds_init(struct wds_softc *, int);
193 1.60 perry void wds_inquire_setup_information(struct wds_softc *);
194 1.60 perry void wdsminphys(struct buf *);
195 1.60 perry void wds_scsipi_request(struct scsipi_channel *,
196 1.60 perry scsipi_adapter_req_t, void *);
197 1.60 perry int wds_poll(struct wds_softc *, struct scsipi_xfer *, int);
198 1.60 perry int wds_ipoll(struct wds_softc *, struct wds_scb *, int);
199 1.60 perry void wds_timeout(void *);
200 1.60 perry int wds_create_scbs(struct wds_softc *, void *, size_t);
201 1.1 mycroft
202 1.73 cegger int wdsprobe(device_t, cfdata_t, void *);
203 1.73 cegger void wdsattach(device_t, device_t, void *);
204 1.1 mycroft
205 1.51 thorpej CFATTACH_DECL(wds, sizeof(struct wds_softc),
206 1.52 thorpej wdsprobe, wdsattach, NULL, NULL);
207 1.1 mycroft
208 1.63 christos #ifdef WDSDEBUG
209 1.63 christos int wds_debug = 0;
210 1.63 christos #endif
211 1.63 christos
212 1.1 mycroft #define WDS_ABORT_TIMEOUT 2000 /* time to wait for abort (mSec) */
213 1.19 thorpej
214 1.1 mycroft integrate void
215 1.71 dsl wds_wait(bus_space_tag_t iot, bus_space_handle_t ioh, int port, int mask, int val)
216 1.1 mycroft {
217 1.1 mycroft
218 1.15 mycroft while ((bus_space_read_1(iot, ioh, port) & mask) != val)
219 1.1 mycroft ;
220 1.1 mycroft }
221 1.1 mycroft
222 1.1 mycroft /*
223 1.1 mycroft * Write a command to the board's I/O ports.
224 1.1 mycroft */
225 1.1 mycroft int
226 1.70 dsl wds_cmd(bus_space_tag_t iot, bus_space_handle_t ioh, u_char *ibuf, int icnt)
227 1.1 mycroft {
228 1.1 mycroft u_char c;
229 1.1 mycroft
230 1.15 mycroft wds_wait(iot, ioh, WDS_STAT, WDSS_RDY, WDSS_RDY);
231 1.1 mycroft
232 1.1 mycroft while (icnt--) {
233 1.15 mycroft bus_space_write_1(iot, ioh, WDS_CMD, *ibuf++);
234 1.15 mycroft wds_wait(iot, ioh, WDS_STAT, WDSS_RDY, WDSS_RDY);
235 1.15 mycroft c = bus_space_read_1(iot, ioh, WDS_STAT);
236 1.1 mycroft if (c & WDSS_REJ)
237 1.1 mycroft return 1;
238 1.1 mycroft }
239 1.1 mycroft
240 1.1 mycroft return 0;
241 1.1 mycroft }
242 1.1 mycroft
243 1.1 mycroft /*
244 1.1 mycroft * Check for the presence of a WD7000 SCSI controller.
245 1.1 mycroft */
246 1.1 mycroft int
247 1.73 cegger wdsprobe(device_t parent, cfdata_t match, void *aux)
248 1.1 mycroft {
249 1.15 mycroft struct isa_attach_args *ia = aux;
250 1.15 mycroft bus_space_tag_t iot = ia->ia_iot;
251 1.15 mycroft bus_space_handle_t ioh;
252 1.15 mycroft struct wds_probe_data wpd;
253 1.15 mycroft int rv;
254 1.22 thorpej
255 1.48 thorpej if (ia->ia_nio < 1)
256 1.48 thorpej return (0);
257 1.48 thorpej if (ia->ia_nirq < 1)
258 1.48 thorpej return (0);
259 1.48 thorpej if (ia->ia_ndrq < 1)
260 1.48 thorpej return (0);
261 1.48 thorpej
262 1.48 thorpej if (ISA_DIRECT_CONFIG(ia))
263 1.48 thorpej return (0);
264 1.48 thorpej
265 1.22 thorpej /* Disallow wildcarded i/o address. */
266 1.58 drochner if (ia->ia_io[0].ir_addr == ISA_UNKNOWN_PORT)
267 1.22 thorpej return (0);
268 1.15 mycroft
269 1.48 thorpej if (bus_space_map(iot, ia->ia_io[0].ir_addr, WDS_ISA_IOSIZE, 0, &ioh))
270 1.15 mycroft return (0);
271 1.15 mycroft
272 1.15 mycroft rv = wds_find(iot, ioh, &wpd);
273 1.15 mycroft
274 1.15 mycroft bus_space_unmap(iot, ioh, WDS_ISA_IOSIZE);
275 1.15 mycroft
276 1.15 mycroft if (rv) {
277 1.15 mycroft #ifdef notyet
278 1.58 drochner if (ia->ia_irq[0].ir_irq != ISA_UNKNOWN_IRQ &&
279 1.48 thorpej ia->ia_irq[0].ir_irq != wpd.sc_irq)
280 1.15 mycroft return (0);
281 1.58 drochner if (ia->ia_drq[0].ir_drq != ISA_UNKNOWN_DRQ &&
282 1.48 thorpej ia->ia_drq[0].ir_drq != wpd.sc_drq)
283 1.15 mycroft return (0);
284 1.48 thorpej
285 1.48 thorpej ia->ia_nirq = 1;
286 1.48 thorpej ia->ia_irq[0].ir_irq = wpd.sc_irq;
287 1.48 thorpej
288 1.48 thorpej ia->ia_ndrq = 1;
289 1.48 thorpej ia->ia_drq[0].ir_drq = wpd.sc_drq;
290 1.15 mycroft #else
291 1.58 drochner if (ia->ia_irq[0].ir_irq == ISA_UNKNOWN_IRQ)
292 1.15 mycroft return (0);
293 1.58 drochner if (ia->ia_drq[0].ir_drq == ISA_UNKNOWN_DRQ)
294 1.15 mycroft return (0);
295 1.48 thorpej
296 1.48 thorpej ia->ia_nirq = 1;
297 1.48 thorpej ia->ia_ndrq = 1;
298 1.1 mycroft #endif
299 1.48 thorpej ia->ia_nio = 1;
300 1.48 thorpej ia->ia_io[0].ir_size = WDS_ISA_IOSIZE;
301 1.48 thorpej
302 1.48 thorpej ia->ia_niomem = 0;
303 1.15 mycroft }
304 1.15 mycroft return (rv);
305 1.1 mycroft }
306 1.1 mycroft
307 1.1 mycroft /*
308 1.1 mycroft * Attach all available units.
309 1.1 mycroft */
310 1.1 mycroft void
311 1.73 cegger wdsattach(device_t parent, device_t self, void *aux)
312 1.1 mycroft {
313 1.1 mycroft struct isa_attach_args *ia = aux;
314 1.1 mycroft struct wds_softc *sc = (void *)self;
315 1.15 mycroft bus_space_tag_t iot = ia->ia_iot;
316 1.15 mycroft bus_space_handle_t ioh;
317 1.15 mycroft struct wds_probe_data wpd;
318 1.15 mycroft isa_chipset_tag_t ic = ia->ia_ic;
319 1.33 thorpej int error;
320 1.15 mycroft
321 1.15 mycroft printf("\n");
322 1.15 mycroft
323 1.48 thorpej if (bus_space_map(iot, ia->ia_io[0].ir_addr, WDS_ISA_IOSIZE, 0, &ioh)) {
324 1.68 cegger aprint_error_dev(&sc->sc_dev, "can't map i/o space\n");
325 1.23 thorpej return;
326 1.23 thorpej }
327 1.15 mycroft
328 1.15 mycroft sc->sc_iot = iot;
329 1.15 mycroft sc->sc_ioh = ioh;
330 1.20 mycroft sc->sc_dmat = ia->ia_dmat;
331 1.23 thorpej if (!wds_find(iot, ioh, &wpd)) {
332 1.68 cegger aprint_error_dev(&sc->sc_dev, "wds_find failed\n");
333 1.23 thorpej return;
334 1.23 thorpej }
335 1.15 mycroft
336 1.15 mycroft bus_space_write_1(iot, ioh, WDS_HCR, WDSH_DRQEN);
337 1.15 mycroft #ifdef notyet
338 1.33 thorpej if (wpd.sc_drq != -1) {
339 1.33 thorpej if ((error = isa_dmacascade(ic, wpd.sc_drq)) != 0) {
340 1.68 cegger aprint_error_dev(&sc->sc_dev, "unable to cascade DRQ, error = %d\n", error);
341 1.33 thorpej return;
342 1.33 thorpej }
343 1.33 thorpej }
344 1.15 mycroft
345 1.15 mycroft sc->sc_ih = isa_intr_establish(ic, wpd.sc_irq, IST_EDGE, IPL_BIO,
346 1.15 mycroft wdsintr, sc);
347 1.15 mycroft #else
348 1.48 thorpej if ((error = isa_dmacascade(ic, ia->ia_drq[0].ir_drq)) != 0) {
349 1.68 cegger aprint_error_dev(&sc->sc_dev, "unable to cascade DRQ, error = %d\n", error);
350 1.48 thorpej return;
351 1.33 thorpej }
352 1.1 mycroft
353 1.48 thorpej sc->sc_ih = isa_intr_establish(ic, ia->ia_irq[0].ir_irq, IST_EDGE,
354 1.48 thorpej IPL_BIO, wdsintr, sc);
355 1.15 mycroft #endif
356 1.15 mycroft if (sc->sc_ih == NULL) {
357 1.68 cegger aprint_error_dev(&sc->sc_dev, "couldn't establish interrupt\n");
358 1.15 mycroft return;
359 1.15 mycroft }
360 1.1 mycroft
361 1.15 mycroft wds_attach(sc, &wpd);
362 1.15 mycroft }
363 1.13 mycroft
364 1.15 mycroft void
365 1.70 dsl wds_attach(struct wds_softc *sc, struct wds_probe_data *wpd)
366 1.15 mycroft {
367 1.61 perry struct scsipi_adapter *adapt = &sc->sc_adapter;
368 1.42 bouyer struct scsipi_channel *chan = &sc->sc_channel;
369 1.1 mycroft
370 1.1 mycroft TAILQ_INIT(&sc->sc_free_scb);
371 1.1 mycroft TAILQ_INIT(&sc->sc_waiting_scb);
372 1.1 mycroft
373 1.1 mycroft /*
374 1.42 bouyer * Fill in the scsipi_adapter.
375 1.36 thorpej */
376 1.42 bouyer memset(adapt, 0, sizeof(*adapt));
377 1.42 bouyer adapt->adapt_dev = &sc->sc_dev;
378 1.42 bouyer adapt->adapt_nchannels = 1;
379 1.42 bouyer /* adapt_openings initialized below */
380 1.42 bouyer adapt->adapt_max_periph = 1;
381 1.42 bouyer adapt->adapt_request = wds_scsipi_request;
382 1.42 bouyer adapt->adapt_minphys = minphys;
383 1.36 thorpej
384 1.36 thorpej /*
385 1.42 bouyer * Fill in the scsipi_channel.
386 1.1 mycroft */
387 1.42 bouyer memset(chan, 0, sizeof(*chan));
388 1.42 bouyer chan->chan_adapter = adapt;
389 1.42 bouyer chan->chan_bustype = &scsi_bustype;
390 1.42 bouyer chan->chan_channel = 0;
391 1.42 bouyer chan->chan_ntargets = 8;
392 1.42 bouyer chan->chan_nluns = 8;
393 1.42 bouyer chan->chan_id = wpd->sc_scsi_dev;
394 1.42 bouyer
395 1.42 bouyer wds_init(sc, 0);
396 1.42 bouyer wds_inquire_setup_information(sc);
397 1.42 bouyer
398 1.42 bouyer /* XXX add support for GROW */
399 1.42 bouyer adapt->adapt_openings = sc->sc_numscbs;
400 1.1 mycroft
401 1.1 mycroft /*
402 1.1 mycroft * ask the adapter what subunits are present
403 1.1 mycroft */
404 1.42 bouyer config_found(&sc->sc_dev, &sc->sc_channel, scsiprint);
405 1.1 mycroft }
406 1.1 mycroft
407 1.1 mycroft integrate void
408 1.70 dsl wds_finish_scbs(struct wds_softc *sc)
409 1.1 mycroft {
410 1.1 mycroft struct wds_mbx_in *wmbi;
411 1.1 mycroft struct wds_scb *scb;
412 1.1 mycroft int i;
413 1.1 mycroft
414 1.1 mycroft wmbi = wmbx->tmbi;
415 1.1 mycroft
416 1.1 mycroft if (wmbi->stat == WDS_MBI_FREE) {
417 1.1 mycroft for (i = 0; i < WDS_MBX_SIZE; i++) {
418 1.1 mycroft if (wmbi->stat != WDS_MBI_FREE) {
419 1.12 christos printf("%s: mbi not in round-robin order\n",
420 1.68 cegger device_xname(&sc->sc_dev));
421 1.1 mycroft goto AGAIN;
422 1.1 mycroft }
423 1.1 mycroft wds_nextmbx(wmbi, wmbx, mbi);
424 1.1 mycroft }
425 1.1 mycroft #ifdef WDSDIAGnot
426 1.12 christos printf("%s: mbi interrupt with no full mailboxes\n",
427 1.68 cegger device_xname(&sc->sc_dev));
428 1.1 mycroft #endif
429 1.1 mycroft return;
430 1.1 mycroft }
431 1.1 mycroft
432 1.1 mycroft AGAIN:
433 1.1 mycroft do {
434 1.1 mycroft scb = wds_scb_phys_kv(sc, phystol(wmbi->scb_addr));
435 1.1 mycroft if (!scb) {
436 1.12 christos printf("%s: bad mbi scb pointer; skipping\n",
437 1.68 cegger device_xname(&sc->sc_dev));
438 1.1 mycroft goto next;
439 1.1 mycroft }
440 1.1 mycroft
441 1.1 mycroft #ifdef WDSDEBUG
442 1.1 mycroft if (wds_debug) {
443 1.63 christos u_char *cp = scb->cmd.xx;
444 1.12 christos printf("op=%x %x %x %x %x %x\n",
445 1.1 mycroft cp[0], cp[1], cp[2], cp[3], cp[4], cp[5]);
446 1.63 christos printf("stat %x for mbi addr = %p, ",
447 1.1 mycroft wmbi->stat, wmbi);
448 1.63 christos printf("scb addr = %p\n", scb);
449 1.1 mycroft }
450 1.1 mycroft #endif /* WDSDEBUG */
451 1.1 mycroft
452 1.40 thorpej callout_stop(&scb->xs->xs_callout);
453 1.1 mycroft wds_done(sc, scb, wmbi->stat);
454 1.1 mycroft
455 1.1 mycroft next:
456 1.1 mycroft wmbi->stat = WDS_MBI_FREE;
457 1.1 mycroft wds_nextmbx(wmbi, wmbx, mbi);
458 1.1 mycroft } while (wmbi->stat != WDS_MBI_FREE);
459 1.1 mycroft
460 1.1 mycroft wmbx->tmbi = wmbi;
461 1.1 mycroft }
462 1.1 mycroft
463 1.1 mycroft /*
464 1.1 mycroft * Process an interrupt.
465 1.1 mycroft */
466 1.1 mycroft int
467 1.70 dsl wdsintr(void *arg)
468 1.1 mycroft {
469 1.1 mycroft struct wds_softc *sc = arg;
470 1.15 mycroft bus_space_tag_t iot = sc->sc_iot;
471 1.15 mycroft bus_space_handle_t ioh = sc->sc_ioh;
472 1.5 christos u_char c;
473 1.1 mycroft
474 1.1 mycroft /* Was it really an interrupt from the board? */
475 1.15 mycroft if ((bus_space_read_1(iot, ioh, WDS_STAT) & WDSS_IRQ) == 0)
476 1.1 mycroft return 0;
477 1.1 mycroft
478 1.1 mycroft /* Get the interrupt status byte. */
479 1.15 mycroft c = bus_space_read_1(iot, ioh, WDS_IRQSTAT) & WDSI_MASK;
480 1.1 mycroft
481 1.1 mycroft /* Acknowledge (which resets) the interrupt. */
482 1.15 mycroft bus_space_write_1(iot, ioh, WDS_IRQACK, 0x00);
483 1.1 mycroft
484 1.1 mycroft switch (c) {
485 1.1 mycroft case WDSI_MSVC:
486 1.1 mycroft wds_finish_scbs(sc);
487 1.1 mycroft break;
488 1.1 mycroft
489 1.1 mycroft case WDSI_MFREE:
490 1.1 mycroft wds_start_scbs(sc);
491 1.1 mycroft break;
492 1.1 mycroft
493 1.1 mycroft default:
494 1.68 cegger aprint_error_dev(&sc->sc_dev, "unrecognized interrupt type %02x", c);
495 1.1 mycroft break;
496 1.1 mycroft }
497 1.1 mycroft
498 1.1 mycroft return 1;
499 1.1 mycroft }
500 1.1 mycroft
501 1.1 mycroft integrate void
502 1.65 christos wds_reset_scb(struct wds_softc *sc, struct wds_scb *scb)
503 1.1 mycroft {
504 1.1 mycroft
505 1.1 mycroft scb->flags = 0;
506 1.1 mycroft }
507 1.1 mycroft
508 1.1 mycroft /*
509 1.1 mycroft * Free the command structure, the outgoing mailbox and the data buffer.
510 1.1 mycroft */
511 1.1 mycroft void
512 1.70 dsl wds_free_scb(struct wds_softc *sc, struct wds_scb *scb)
513 1.1 mycroft {
514 1.1 mycroft int s;
515 1.1 mycroft
516 1.1 mycroft s = splbio();
517 1.1 mycroft wds_reset_scb(sc, scb);
518 1.1 mycroft TAILQ_INSERT_HEAD(&sc->sc_free_scb, scb, chain);
519 1.1 mycroft splx(s);
520 1.1 mycroft }
521 1.1 mycroft
522 1.24 thorpej integrate int
523 1.70 dsl wds_init_scb(struct wds_softc *sc, struct wds_scb *scb)
524 1.1 mycroft {
525 1.19 thorpej bus_dma_tag_t dmat = sc->sc_dmat;
526 1.24 thorpej int hashnum, error;
527 1.1 mycroft
528 1.19 thorpej /*
529 1.19 thorpej * XXX Should we put a DIAGNOSTIC check for multiple
530 1.19 thorpej * XXX SCB inits here?
531 1.19 thorpej */
532 1.1 mycroft
533 1.43 thorpej memset(scb, 0, sizeof(struct wds_scb));
534 1.1 mycroft
535 1.1 mycroft /*
536 1.19 thorpej * Create DMA maps for this SCB.
537 1.1 mycroft */
538 1.24 thorpej error = bus_dmamap_create(dmat, sizeof(struct wds_scb), 1,
539 1.24 thorpej sizeof(struct wds_scb), 0, BUS_DMA_NOWAIT, &scb->dmamap_self);
540 1.24 thorpej if (error) {
541 1.68 cegger aprint_error_dev(&sc->sc_dev, "can't create scb dmamap_self\n");
542 1.24 thorpej return (error);
543 1.24 thorpej }
544 1.1 mycroft
545 1.24 thorpej error = bus_dmamap_create(dmat, WDS_MAXXFER, WDS_NSEG, WDS_MAXXFER,
546 1.24 thorpej 0, BUS_DMA_NOWAIT|BUS_DMA_ALLOCNOW, &scb->dmamap_xfer);
547 1.24 thorpej if (error) {
548 1.68 cegger aprint_error_dev(&sc->sc_dev, "can't create scb dmamap_xfer\n");
549 1.24 thorpej bus_dmamap_destroy(dmat, scb->dmamap_self);
550 1.24 thorpej return (error);
551 1.24 thorpej }
552 1.1 mycroft
553 1.19 thorpej /*
554 1.19 thorpej * Load the permanent DMA maps.
555 1.19 thorpej */
556 1.24 thorpej error = bus_dmamap_load(dmat, scb->dmamap_self, scb,
557 1.24 thorpej sizeof(struct wds_scb), NULL, BUS_DMA_NOWAIT);
558 1.24 thorpej if (error) {
559 1.68 cegger aprint_error_dev(&sc->sc_dev, "can't load scb dmamap_self\n");
560 1.24 thorpej bus_dmamap_destroy(dmat, scb->dmamap_self);
561 1.24 thorpej bus_dmamap_destroy(dmat, scb->dmamap_xfer);
562 1.24 thorpej return (error);
563 1.24 thorpej }
564 1.1 mycroft
565 1.1 mycroft /*
566 1.1 mycroft * put in the phystokv hash table
567 1.1 mycroft * Never gets taken out.
568 1.1 mycroft */
569 1.19 thorpej scb->hashkey = scb->dmamap_self->dm_segs[0].ds_addr;
570 1.1 mycroft hashnum = SCB_HASH(scb->hashkey);
571 1.1 mycroft scb->nexthash = sc->sc_scbhash[hashnum];
572 1.1 mycroft sc->sc_scbhash[hashnum] = scb;
573 1.1 mycroft wds_reset_scb(sc, scb);
574 1.24 thorpej return (0);
575 1.1 mycroft }
576 1.1 mycroft
577 1.1 mycroft /*
578 1.19 thorpej * Create a set of scbs and add them to the free list.
579 1.19 thorpej */
580 1.19 thorpej int
581 1.70 dsl wds_create_scbs(struct wds_softc *sc, void *mem, size_t size)
582 1.19 thorpej {
583 1.19 thorpej bus_dma_segment_t seg;
584 1.19 thorpej struct wds_scb *scb;
585 1.19 thorpej int rseg, error;
586 1.19 thorpej
587 1.19 thorpej if (sc->sc_numscbs >= WDS_SCB_MAX)
588 1.19 thorpej return (0);
589 1.19 thorpej
590 1.19 thorpej if ((scb = mem) != NULL)
591 1.19 thorpej goto have_mem;
592 1.19 thorpej
593 1.41 thorpej size = PAGE_SIZE;
594 1.41 thorpej error = bus_dmamem_alloc(sc->sc_dmat, size, PAGE_SIZE, 0, &seg,
595 1.41 thorpej 1, &rseg, BUS_DMA_NOWAIT);
596 1.24 thorpej if (error) {
597 1.68 cegger aprint_error_dev(&sc->sc_dev, "can't allocate memory for scbs\n");
598 1.19 thorpej return (error);
599 1.24 thorpej }
600 1.19 thorpej
601 1.19 thorpej error = bus_dmamem_map(sc->sc_dmat, &seg, rseg, size,
602 1.56 christos (void *)&scb, BUS_DMA_NOWAIT|BUS_DMA_COHERENT);
603 1.19 thorpej if (error) {
604 1.68 cegger aprint_error_dev(&sc->sc_dev, "can't map memory for scbs\n");
605 1.19 thorpej bus_dmamem_free(sc->sc_dmat, &seg, rseg);
606 1.19 thorpej return (error);
607 1.19 thorpej }
608 1.19 thorpej
609 1.19 thorpej have_mem:
610 1.43 thorpej memset(scb, 0, size);
611 1.24 thorpej while (size > sizeof(struct wds_scb) && sc->sc_numscbs < WDS_SCB_MAX) {
612 1.24 thorpej error = wds_init_scb(sc, scb);
613 1.24 thorpej if (error) {
614 1.68 cegger aprint_error_dev(&sc->sc_dev, "can't initialize scb\n");
615 1.24 thorpej return (error);
616 1.24 thorpej }
617 1.19 thorpej TAILQ_INSERT_TAIL(&sc->sc_free_scb, scb, chain);
618 1.66 christos scb = (struct wds_scb *)((char *)scb +
619 1.57 drochner ALIGN(sizeof(struct wds_scb)));
620 1.19 thorpej size -= ALIGN(sizeof(struct wds_scb));
621 1.24 thorpej sc->sc_numscbs++;
622 1.19 thorpej }
623 1.19 thorpej
624 1.19 thorpej return (0);
625 1.19 thorpej }
626 1.19 thorpej
627 1.19 thorpej /*
628 1.1 mycroft * Get a free scb
629 1.1 mycroft *
630 1.1 mycroft * If there are none, see if we can allocate a new one. If so, put it in
631 1.1 mycroft * the hash table too otherwise either return an error or sleep.
632 1.1 mycroft */
633 1.1 mycroft struct wds_scb *
634 1.70 dsl wds_get_scb(struct wds_softc *sc)
635 1.1 mycroft {
636 1.1 mycroft struct wds_scb *scb;
637 1.1 mycroft int s;
638 1.1 mycroft
639 1.1 mycroft s = splbio();
640 1.42 bouyer scb = TAILQ_FIRST(&sc->sc_free_scb);
641 1.42 bouyer if (scb != NULL) {
642 1.42 bouyer TAILQ_REMOVE(&sc->sc_free_scb, scb, chain);
643 1.42 bouyer scb->flags |= SCB_ALLOC;
644 1.1 mycroft }
645 1.1 mycroft splx(s);
646 1.1 mycroft return (scb);
647 1.1 mycroft }
648 1.1 mycroft
649 1.1 mycroft struct wds_scb *
650 1.70 dsl wds_scb_phys_kv(struct wds_softc *sc, u_long scb_phys)
651 1.1 mycroft {
652 1.1 mycroft int hashnum = SCB_HASH(scb_phys);
653 1.1 mycroft struct wds_scb *scb = sc->sc_scbhash[hashnum];
654 1.1 mycroft
655 1.1 mycroft while (scb) {
656 1.1 mycroft if (scb->hashkey == scb_phys)
657 1.1 mycroft break;
658 1.1 mycroft /* XXX Check to see if it matches the sense command block. */
659 1.1 mycroft if (scb->hashkey == (scb_phys - sizeof(struct wds_cmd)))
660 1.1 mycroft break;
661 1.1 mycroft scb = scb->nexthash;
662 1.1 mycroft }
663 1.21 mycroft return (scb);
664 1.1 mycroft }
665 1.1 mycroft
666 1.1 mycroft /*
667 1.1 mycroft * Queue a SCB to be sent to the controller, and send it if possible.
668 1.1 mycroft */
669 1.1 mycroft void
670 1.70 dsl wds_queue_scb(struct wds_softc *sc, struct wds_scb *scb)
671 1.1 mycroft {
672 1.1 mycroft
673 1.1 mycroft TAILQ_INSERT_TAIL(&sc->sc_waiting_scb, scb, chain);
674 1.1 mycroft wds_start_scbs(sc);
675 1.1 mycroft }
676 1.1 mycroft
677 1.1 mycroft /*
678 1.1 mycroft * Garbage collect mailboxes that are no longer in use.
679 1.1 mycroft */
680 1.1 mycroft void
681 1.70 dsl wds_collect_mbo(struct wds_softc *sc)
682 1.1 mycroft {
683 1.1 mycroft struct wds_mbx_out *wmbo; /* Mail Box Out pointer */
684 1.11 christos #ifdef WDSDIAG
685 1.1 mycroft struct wds_scb *scb;
686 1.11 christos #endif
687 1.1 mycroft
688 1.1 mycroft wmbo = wmbx->cmbo;
689 1.1 mycroft
690 1.1 mycroft while (sc->sc_mbofull > 0) {
691 1.1 mycroft if (wmbo->cmd != WDS_MBO_FREE)
692 1.1 mycroft break;
693 1.1 mycroft
694 1.1 mycroft #ifdef WDSDIAG
695 1.1 mycroft scb = wds_scb_phys_kv(sc, phystol(wmbo->scb_addr));
696 1.1 mycroft scb->flags &= ~SCB_SENDING;
697 1.1 mycroft #endif
698 1.1 mycroft
699 1.1 mycroft --sc->sc_mbofull;
700 1.1 mycroft wds_nextmbx(wmbo, wmbx, mbo);
701 1.1 mycroft }
702 1.1 mycroft
703 1.1 mycroft wmbx->cmbo = wmbo;
704 1.1 mycroft }
705 1.1 mycroft
706 1.1 mycroft /*
707 1.1 mycroft * Send as many SCBs as we have empty mailboxes for.
708 1.1 mycroft */
709 1.1 mycroft void
710 1.70 dsl wds_start_scbs(struct wds_softc *sc)
711 1.1 mycroft {
712 1.15 mycroft bus_space_tag_t iot = sc->sc_iot;
713 1.15 mycroft bus_space_handle_t ioh = sc->sc_ioh;
714 1.1 mycroft struct wds_mbx_out *wmbo; /* Mail Box Out pointer */
715 1.1 mycroft struct wds_scb *scb;
716 1.1 mycroft u_char c;
717 1.1 mycroft
718 1.1 mycroft wmbo = wmbx->tmbo;
719 1.1 mycroft
720 1.5 christos while ((scb = sc->sc_waiting_scb.tqh_first) != NULL) {
721 1.1 mycroft if (sc->sc_mbofull >= WDS_MBX_SIZE) {
722 1.1 mycroft wds_collect_mbo(sc);
723 1.1 mycroft if (sc->sc_mbofull >= WDS_MBX_SIZE) {
724 1.1 mycroft c = WDSC_IRQMFREE;
725 1.15 mycroft wds_cmd(iot, ioh, &c, sizeof c);
726 1.1 mycroft break;
727 1.1 mycroft }
728 1.1 mycroft }
729 1.1 mycroft
730 1.1 mycroft TAILQ_REMOVE(&sc->sc_waiting_scb, scb, chain);
731 1.1 mycroft #ifdef WDSDIAG
732 1.1 mycroft scb->flags |= SCB_SENDING;
733 1.1 mycroft #endif
734 1.1 mycroft
735 1.1 mycroft /* Link scb to mbo. */
736 1.42 bouyer ltophys(scb->dmamap_self->dm_segs[0].ds_addr +
737 1.42 bouyer offsetof(struct wds_scb, cmd), wmbo->scb_addr);
738 1.1 mycroft /* XXX What about aborts? */
739 1.1 mycroft wmbo->cmd = WDS_MBO_START;
740 1.1 mycroft
741 1.1 mycroft /* Tell the card to poll immediately. */
742 1.1 mycroft c = WDSC_MSTART(wmbo - wmbx->mbo);
743 1.15 mycroft wds_cmd(sc->sc_iot, sc->sc_ioh, &c, sizeof c);
744 1.1 mycroft
745 1.1 mycroft if ((scb->flags & SCB_POLLED) == 0)
746 1.40 thorpej callout_reset(&scb->xs->xs_callout,
747 1.49 bouyer mstohz(scb->timeout), wds_timeout, scb);
748 1.1 mycroft
749 1.1 mycroft ++sc->sc_mbofull;
750 1.1 mycroft wds_nextmbx(wmbo, wmbx, mbo);
751 1.1 mycroft }
752 1.1 mycroft
753 1.1 mycroft wmbx->tmbo = wmbo;
754 1.1 mycroft }
755 1.1 mycroft
756 1.1 mycroft /*
757 1.1 mycroft * Process the result of a SCSI command.
758 1.1 mycroft */
759 1.1 mycroft void
760 1.70 dsl wds_done(struct wds_softc *sc, struct wds_scb *scb, u_char stat)
761 1.1 mycroft {
762 1.19 thorpej bus_dma_tag_t dmat = sc->sc_dmat;
763 1.18 bouyer struct scsipi_xfer *xs = scb->xs;
764 1.1 mycroft
765 1.1 mycroft /* XXXXX */
766 1.1 mycroft
767 1.1 mycroft /* Don't release the SCB if it was an internal command. */
768 1.1 mycroft if (xs == 0) {
769 1.1 mycroft scb->flags |= SCB_DONE;
770 1.1 mycroft return;
771 1.1 mycroft }
772 1.1 mycroft
773 1.42 bouyer /*
774 1.42 bouyer * If we were a data transfer, unload the map that described
775 1.42 bouyer * the data buffer.
776 1.42 bouyer */
777 1.42 bouyer if (xs->datalen) {
778 1.42 bouyer bus_dmamap_sync(dmat, scb->dmamap_xfer, 0,
779 1.42 bouyer scb->dmamap_xfer->dm_mapsize,
780 1.42 bouyer (xs->xs_control & XS_CTL_DATA_IN) ?
781 1.42 bouyer BUS_DMASYNC_POSTREAD : BUS_DMASYNC_POSTWRITE);
782 1.42 bouyer bus_dmamap_unload(dmat, scb->dmamap_xfer);
783 1.42 bouyer }
784 1.42 bouyer if (xs->error == XS_NOERROR) {
785 1.42 bouyer /* If all went well, or an error is acceptable. */
786 1.42 bouyer if (stat == WDS_MBI_OK) {
787 1.42 bouyer /* OK, set the result */
788 1.42 bouyer xs->resid = 0;
789 1.42 bouyer } else {
790 1.42 bouyer /* Check the mailbox status. */
791 1.42 bouyer switch (stat) {
792 1.42 bouyer case WDS_MBI_OKERR:
793 1.42 bouyer /*
794 1.42 bouyer * SCSI error recorded in scb,
795 1.42 bouyer * counts as WDS_MBI_OK
796 1.42 bouyer */
797 1.42 bouyer switch (scb->cmd.venderr) {
798 1.42 bouyer case 0x00:
799 1.68 cegger aprint_error_dev(&sc->sc_dev, "Is this "
800 1.68 cegger "an error?\n");
801 1.42 bouyer /* Experiment. */
802 1.42 bouyer xs->error = XS_DRIVER_STUFFUP;
803 1.42 bouyer break;
804 1.42 bouyer case 0x01:
805 1.19 thorpej #if 0
806 1.68 cegger aprint_error_dev(&sc->sc_dev, "OK, see SCSI "
807 1.68 cegger "error field.\n");
808 1.19 thorpej #endif
809 1.42 bouyer if (scb->cmd.stat == SCSI_CHECK ||
810 1.42 bouyer scb->cmd.stat == SCSI_BUSY) {
811 1.42 bouyer xs->status = scb->cmd.stat;
812 1.42 bouyer xs->error = XS_BUSY;
813 1.42 bouyer }
814 1.42 bouyer break;
815 1.42 bouyer case 0x40:
816 1.19 thorpej #if 0
817 1.42 bouyer printf("%s: DMA underrun!\n",
818 1.68 cegger device_xname(&sc->sc_dev));
819 1.19 thorpej #endif
820 1.1 mycroft /*
821 1.42 bouyer * Hits this if the target
822 1.42 bouyer * returns fewer that datalen
823 1.42 bouyer * bytes (eg my CD-ROM, which
824 1.42 bouyer * returns a short version
825 1.42 bouyer * string, or if DMA is
826 1.42 bouyer * turned off etc.
827 1.1 mycroft */
828 1.42 bouyer xs->resid = 0;
829 1.1 mycroft break;
830 1.42 bouyer default:
831 1.42 bouyer printf("%s: VENDOR ERROR "
832 1.42 bouyer "%02x, scsi %02x\n",
833 1.68 cegger device_xname(&sc->sc_dev),
834 1.42 bouyer scb->cmd.venderr,
835 1.42 bouyer scb->cmd.stat);
836 1.42 bouyer /* Experiment. */
837 1.1 mycroft xs->error = XS_DRIVER_STUFFUP;
838 1.1 mycroft break;
839 1.1 mycroft }
840 1.42 bouyer break;
841 1.42 bouyer case WDS_MBI_ETIME:
842 1.42 bouyer /*
843 1.42 bouyer * The documentation isn't clear on
844 1.42 bouyer * what conditions might generate this,
845 1.42 bouyer * but selection timeouts are the only
846 1.42 bouyer * one I can think of.
847 1.42 bouyer */
848 1.42 bouyer xs->error = XS_SELTIMEOUT;
849 1.42 bouyer break;
850 1.42 bouyer case WDS_MBI_ERESET:
851 1.42 bouyer case WDS_MBI_ETARCMD:
852 1.42 bouyer case WDS_MBI_ERESEL:
853 1.42 bouyer case WDS_MBI_ESEL:
854 1.42 bouyer case WDS_MBI_EABORT:
855 1.42 bouyer case WDS_MBI_ESRESET:
856 1.42 bouyer case WDS_MBI_EHRESET:
857 1.42 bouyer xs->error = XS_DRIVER_STUFFUP;
858 1.42 bouyer break;
859 1.1 mycroft }
860 1.42 bouyer }
861 1.1 mycroft } /* XS_NOERROR */
862 1.1 mycroft
863 1.1 mycroft wds_free_scb(sc, scb);
864 1.18 bouyer scsipi_done(xs);
865 1.1 mycroft }
866 1.1 mycroft
867 1.1 mycroft int
868 1.70 dsl wds_find(bus_space_tag_t iot, bus_space_handle_t ioh, struct wds_probe_data *sc)
869 1.1 mycroft {
870 1.1 mycroft int i;
871 1.1 mycroft
872 1.1 mycroft /* XXXXX */
873 1.1 mycroft
874 1.1 mycroft /*
875 1.1 mycroft * Sending a command causes the CMDRDY bit to clear.
876 1.1 mycroft */
877 1.15 mycroft for (i = 5; i; i--) {
878 1.15 mycroft if ((bus_space_read_1(iot, ioh, WDS_STAT) & WDSS_RDY) != 0)
879 1.15 mycroft break;
880 1.15 mycroft delay(100);
881 1.1 mycroft }
882 1.15 mycroft if (!i)
883 1.16 marc return 0;
884 1.1 mycroft
885 1.15 mycroft bus_space_write_1(iot, ioh, WDS_CMD, WDSC_NOOP);
886 1.15 mycroft if ((bus_space_read_1(iot, ioh, WDS_STAT) & WDSS_RDY) != 0)
887 1.16 marc return 0;
888 1.1 mycroft
889 1.15 mycroft bus_space_write_1(iot, ioh, WDS_HCR, WDSH_SCSIRESET|WDSH_ASCRESET);
890 1.1 mycroft delay(10000);
891 1.15 mycroft bus_space_write_1(iot, ioh, WDS_HCR, 0x00);
892 1.1 mycroft delay(500000);
893 1.15 mycroft wds_wait(iot, ioh, WDS_STAT, WDSS_RDY, WDSS_RDY);
894 1.15 mycroft if (bus_space_read_1(iot, ioh, WDS_IRQSTAT) != 1)
895 1.15 mycroft if (bus_space_read_1(iot, ioh, WDS_IRQSTAT) != 7)
896 1.16 marc return 0;
897 1.15 mycroft
898 1.15 mycroft for (i = 2000; i; i--) {
899 1.15 mycroft if ((bus_space_read_1(iot, ioh, WDS_STAT) & WDSS_RDY) != 0)
900 1.15 mycroft break;
901 1.15 mycroft delay(100);
902 1.1 mycroft }
903 1.15 mycroft if (!i)
904 1.16 marc return 0;
905 1.1 mycroft
906 1.15 mycroft if (sc) {
907 1.15 mycroft #ifdef notyet
908 1.15 mycroft sc->sc_irq = ...;
909 1.15 mycroft sc->sc_drq = ...;
910 1.15 mycroft #endif
911 1.1 mycroft /* XXX Can we do this better? */
912 1.1 mycroft sc->sc_scsi_dev = 7;
913 1.1 mycroft }
914 1.1 mycroft
915 1.16 marc return 1;
916 1.1 mycroft }
917 1.1 mycroft
918 1.1 mycroft /*
919 1.1 mycroft * Initialise the board and driver.
920 1.1 mycroft */
921 1.1 mycroft void
922 1.70 dsl wds_init(struct wds_softc *sc, int isreset)
923 1.1 mycroft {
924 1.15 mycroft bus_space_tag_t iot = sc->sc_iot;
925 1.15 mycroft bus_space_handle_t ioh = sc->sc_ioh;
926 1.19 thorpej bus_dma_segment_t seg;
927 1.1 mycroft struct wds_setup init;
928 1.1 mycroft u_char c;
929 1.19 thorpej int i, rseg;
930 1.19 thorpej
931 1.19 thorpej if (isreset)
932 1.19 thorpej goto doinit;
933 1.19 thorpej
934 1.19 thorpej /*
935 1.19 thorpej * Allocate the mailbox.
936 1.19 thorpej */
937 1.41 thorpej if (bus_dmamem_alloc(sc->sc_dmat, PAGE_SIZE, PAGE_SIZE, 0, &seg, 1,
938 1.19 thorpej &rseg, BUS_DMA_NOWAIT) ||
939 1.41 thorpej bus_dmamem_map(sc->sc_dmat, &seg, rseg, PAGE_SIZE,
940 1.66 christos (void **)&wmbx, BUS_DMA_NOWAIT|BUS_DMA_COHERENT))
941 1.19 thorpej panic("wds_init: can't create or map mailbox");
942 1.19 thorpej
943 1.21 mycroft /*
944 1.21 mycroft * Since DMA memory allocation is always rounded up to a
945 1.21 mycroft * page size, create some scbs from the leftovers.
946 1.21 mycroft */
947 1.66 christos if (wds_create_scbs(sc, ((char *)wmbx) +
948 1.21 mycroft ALIGN(sizeof(struct wds_mbx)),
949 1.41 thorpej PAGE_SIZE - ALIGN(sizeof(struct wds_mbx))))
950 1.21 mycroft panic("wds_init: can't create scbs");
951 1.19 thorpej
952 1.19 thorpej /*
953 1.19 thorpej * Create and load the mailbox DMA map.
954 1.19 thorpej */
955 1.19 thorpej if (bus_dmamap_create(sc->sc_dmat, sizeof(struct wds_mbx), 1,
956 1.19 thorpej sizeof(struct wds_mbx), 0, BUS_DMA_NOWAIT, &sc->sc_dmamap_mbox) ||
957 1.19 thorpej bus_dmamap_load(sc->sc_dmat, sc->sc_dmamap_mbox, wmbx,
958 1.19 thorpej sizeof(struct wds_mbx), NULL, BUS_DMA_NOWAIT))
959 1.55 wiz panic("wds_ionit: can't create or load mailbox DMA map");
960 1.1 mycroft
961 1.19 thorpej doinit:
962 1.1 mycroft /*
963 1.1 mycroft * Set up initial mail box for round-robin operation.
964 1.1 mycroft */
965 1.1 mycroft for (i = 0; i < WDS_MBX_SIZE; i++) {
966 1.1 mycroft wmbx->mbo[i].cmd = WDS_MBO_FREE;
967 1.6 mycroft wmbx->mbi[i].stat = WDS_MBI_FREE;
968 1.1 mycroft }
969 1.1 mycroft wmbx->cmbo = wmbx->tmbo = &wmbx->mbo[0];
970 1.1 mycroft wmbx->tmbi = &wmbx->mbi[0];
971 1.1 mycroft sc->sc_mbofull = 0;
972 1.1 mycroft
973 1.1 mycroft init.opcode = WDSC_INIT;
974 1.42 bouyer init.scsi_id = sc->sc_channel.chan_id;
975 1.1 mycroft init.buson_t = 48;
976 1.1 mycroft init.busoff_t = 24;
977 1.1 mycroft init.xx = 0;
978 1.19 thorpej ltophys(sc->sc_dmamap_mbox->dm_segs[0].ds_addr, init.mbaddr);
979 1.1 mycroft init.nomb = init.nimb = WDS_MBX_SIZE;
980 1.15 mycroft wds_cmd(iot, ioh, (u_char *)&init, sizeof init);
981 1.1 mycroft
982 1.15 mycroft wds_wait(iot, ioh, WDS_STAT, WDSS_INIT, WDSS_INIT);
983 1.1 mycroft
984 1.1 mycroft c = WDSC_DISUNSOL;
985 1.15 mycroft wds_cmd(iot, ioh, &c, sizeof c);
986 1.1 mycroft }
987 1.1 mycroft
988 1.1 mycroft /*
989 1.1 mycroft * Read the board's firmware revision information.
990 1.1 mycroft */
991 1.1 mycroft void
992 1.70 dsl wds_inquire_setup_information(struct wds_softc *sc)
993 1.1 mycroft {
994 1.15 mycroft bus_space_tag_t iot = sc->sc_iot;
995 1.15 mycroft bus_space_handle_t ioh = sc->sc_ioh;
996 1.1 mycroft struct wds_scb *scb;
997 1.1 mycroft u_char *j;
998 1.1 mycroft int s;
999 1.1 mycroft
1000 1.21 mycroft sc->sc_maxsegs = 1;
1001 1.19 thorpej
1002 1.42 bouyer scb = wds_get_scb(sc);
1003 1.21 mycroft if (scb == 0)
1004 1.21 mycroft panic("wds_inquire_setup_information: no scb available");
1005 1.19 thorpej
1006 1.1 mycroft scb->xs = NULL;
1007 1.1 mycroft scb->timeout = 40;
1008 1.1 mycroft
1009 1.43 thorpej memset(&scb->cmd, 0, sizeof scb->cmd);
1010 1.1 mycroft scb->cmd.write = 0x80;
1011 1.1 mycroft scb->cmd.opcode = WDSX_GETFIRMREV;
1012 1.1 mycroft
1013 1.1 mycroft /* Will poll card, await result. */
1014 1.15 mycroft bus_space_write_1(iot, ioh, WDS_HCR, WDSH_DRQEN);
1015 1.1 mycroft scb->flags |= SCB_POLLED;
1016 1.1 mycroft
1017 1.1 mycroft s = splbio();
1018 1.1 mycroft wds_queue_scb(sc, scb);
1019 1.1 mycroft splx(s);
1020 1.1 mycroft
1021 1.1 mycroft if (wds_ipoll(sc, scb, scb->timeout))
1022 1.1 mycroft goto out;
1023 1.1 mycroft
1024 1.1 mycroft /* Print the version number. */
1025 1.68 cegger printf("%s: version %x.%02x ", device_xname(&sc->sc_dev),
1026 1.59 thorpej scb->cmd.targ, scb->cmd.scb[0]);
1027 1.59 thorpej sc->sc_revision = (scb->cmd.targ << 8) | scb->cmd.scb[0];
1028 1.1 mycroft /* Print out the version string. */
1029 1.1 mycroft j = 2 + &(scb->cmd.targ);
1030 1.1 mycroft while ((*j >= 32) && (*j < 128)) {
1031 1.12 christos printf("%c", *j);
1032 1.1 mycroft j++;
1033 1.1 mycroft }
1034 1.1 mycroft
1035 1.19 thorpej /*
1036 1.19 thorpej * Determine if we can use scatter/gather.
1037 1.19 thorpej */
1038 1.19 thorpej if (sc->sc_revision >= 0x800)
1039 1.19 thorpej sc->sc_maxsegs = WDS_NSEG;
1040 1.19 thorpej
1041 1.1 mycroft out:
1042 1.12 christos printf("\n");
1043 1.61 perry
1044 1.19 thorpej /*
1045 1.19 thorpej * Free up the resources used by this scb.
1046 1.19 thorpej */
1047 1.21 mycroft wds_free_scb(sc, scb);
1048 1.1 mycroft }
1049 1.1 mycroft
1050 1.1 mycroft void
1051 1.70 dsl wdsminphys(struct buf *bp)
1052 1.1 mycroft {
1053 1.1 mycroft
1054 1.19 thorpej if (bp->b_bcount > WDS_MAXXFER)
1055 1.19 thorpej bp->b_bcount = WDS_MAXXFER;
1056 1.1 mycroft minphys(bp);
1057 1.1 mycroft }
1058 1.1 mycroft
1059 1.1 mycroft /*
1060 1.1 mycroft * Send a SCSI command.
1061 1.1 mycroft */
1062 1.42 bouyer void
1063 1.70 dsl wds_scsipi_request(struct scsipi_channel *chan, scsipi_adapter_req_t req, void *arg)
1064 1.42 bouyer {
1065 1.18 bouyer struct scsipi_xfer *xs;
1066 1.42 bouyer struct scsipi_periph *periph;
1067 1.42 bouyer struct wds_softc *sc = (void *)chan->chan_adapter->adapt_dev;
1068 1.19 thorpej bus_dma_tag_t dmat = sc->sc_dmat;
1069 1.1 mycroft struct wds_scb *scb;
1070 1.19 thorpej int error, seg, flags, s;
1071 1.1 mycroft
1072 1.42 bouyer switch (req) {
1073 1.42 bouyer case ADAPTER_REQ_RUN_XFER:
1074 1.42 bouyer xs = arg;
1075 1.42 bouyer periph = xs->xs_periph;
1076 1.42 bouyer
1077 1.42 bouyer if (xs->xs_control & XS_CTL_RESET) {
1078 1.42 bouyer /* XXX Fix me! */
1079 1.68 cegger printf("%s: reset!\n", device_xname(&sc->sc_dev));
1080 1.42 bouyer wds_init(sc, 1);
1081 1.42 bouyer scsipi_done(xs);
1082 1.42 bouyer return;
1083 1.42 bouyer }
1084 1.1 mycroft
1085 1.42 bouyer if (xs->xs_control & XS_CTL_DATA_UIO) {
1086 1.42 bouyer /* XXX Fix me! */
1087 1.42 bouyer /*
1088 1.42 bouyer * Let's not worry about UIO. There isn't any code
1089 1.42 bouyer * for the non-SG boards anyway!
1090 1.42 bouyer */
1091 1.68 cegger aprint_error_dev(&sc->sc_dev, "UIO is untested and disabled!\n");
1092 1.25 thorpej xs->error = XS_DRIVER_STUFFUP;
1093 1.42 bouyer scsipi_done(xs);
1094 1.42 bouyer return;
1095 1.25 thorpej }
1096 1.25 thorpej
1097 1.42 bouyer flags = xs->xs_control;
1098 1.25 thorpej
1099 1.42 bouyer /* Get an SCB to use. */
1100 1.42 bouyer scb = wds_get_scb(sc);
1101 1.42 bouyer #ifdef DIAGNOSTIC
1102 1.25 thorpej /*
1103 1.42 bouyer * This should never happen as we track the resources
1104 1.42 bouyer * in the mid-layer.
1105 1.25 thorpej */
1106 1.42 bouyer if (scb == NULL) {
1107 1.42 bouyer scsipi_printaddr(periph);
1108 1.42 bouyer printf("unable to allocate scb\n");
1109 1.42 bouyer panic("wds_scsipi_request");
1110 1.25 thorpej }
1111 1.42 bouyer #endif
1112 1.25 thorpej
1113 1.42 bouyer scb->xs = xs;
1114 1.42 bouyer scb->timeout = xs->timeout;
1115 1.25 thorpej
1116 1.42 bouyer /* Zero out the command structure. */
1117 1.59 thorpej if (xs->cmdlen > sizeof(scb->cmd.scb)) {
1118 1.68 cegger aprint_error_dev(&sc->sc_dev, "cmdlen %d too large for SCB\n",
1119 1.68 cegger xs->cmdlen);
1120 1.59 thorpej xs->error = XS_DRIVER_STUFFUP;
1121 1.59 thorpej goto out_bad;
1122 1.59 thorpej }
1123 1.43 thorpej memset(&scb->cmd, 0, sizeof scb->cmd);
1124 1.59 thorpej memcpy(&scb->cmd.scb, xs->cmd, xs->cmdlen);
1125 1.42 bouyer
1126 1.42 bouyer /* Set up some of the command fields. */
1127 1.42 bouyer scb->cmd.targ = (periph->periph_target << 5) |
1128 1.42 bouyer periph->periph_lun;
1129 1.1 mycroft
1130 1.42 bouyer /*
1131 1.42 bouyer * NOTE: cmd.write may be OK as 0x40 (disable direction
1132 1.42 bouyer * checking) on boards other than the WD-7000V-ASE. Need
1133 1.42 bouyer * this for the ASE:
1134 1.42 bouyer */
1135 1.42 bouyer scb->cmd.write = (xs->xs_control & XS_CTL_DATA_IN) ?
1136 1.42 bouyer 0x80 : 0x00;
1137 1.1 mycroft
1138 1.42 bouyer if (xs->datalen) {
1139 1.42 bouyer seg = 0;
1140 1.1 mycroft #ifdef TFS
1141 1.42 bouyer if (flags & XS_CTL_DATA_UIO) {
1142 1.42 bouyer error = bus_dmamap_load_uio(dmat,
1143 1.42 bouyer scb->dmamap_xfer, (struct uio *)xs->data,
1144 1.45 thorpej BUS_DMA_NOWAIT |
1145 1.45 thorpej ((flags & XS_CTL_DATA_IN) ? BUS_DMA_READ :
1146 1.45 thorpej BUS_DMA_WRITE));
1147 1.42 bouyer } else
1148 1.1 mycroft #endif /* TFS */
1149 1.42 bouyer {
1150 1.42 bouyer error = bus_dmamap_load(dmat,
1151 1.42 bouyer scb->dmamap_xfer, xs->data, xs->datalen,
1152 1.45 thorpej NULL, BUS_DMA_NOWAIT |
1153 1.45 thorpej ((flags & XS_CTL_DATA_IN) ? BUS_DMA_READ :
1154 1.45 thorpej BUS_DMA_WRITE));
1155 1.42 bouyer }
1156 1.42 bouyer
1157 1.42 bouyer switch (error) {
1158 1.42 bouyer case 0:
1159 1.42 bouyer break;
1160 1.1 mycroft
1161 1.42 bouyer case ENOMEM:
1162 1.42 bouyer case EAGAIN:
1163 1.42 bouyer xs->error = XS_RESOURCE_SHORTAGE;
1164 1.42 bouyer goto out_bad;
1165 1.42 bouyer
1166 1.42 bouyer default:
1167 1.42 bouyer xs->error = XS_DRIVER_STUFFUP;
1168 1.68 cegger aprint_error_dev(&sc->sc_dev, "error %d loading DMA map\n", error);
1169 1.42 bouyer out_bad:
1170 1.42 bouyer wds_free_scb(sc, scb);
1171 1.42 bouyer scsipi_done(xs);
1172 1.42 bouyer return;
1173 1.19 thorpej }
1174 1.1 mycroft
1175 1.42 bouyer bus_dmamap_sync(dmat, scb->dmamap_xfer, 0,
1176 1.42 bouyer scb->dmamap_xfer->dm_mapsize,
1177 1.42 bouyer (flags & XS_CTL_DATA_IN) ? BUS_DMASYNC_PREREAD :
1178 1.42 bouyer BUS_DMASYNC_PREWRITE);
1179 1.1 mycroft
1180 1.42 bouyer if (sc->sc_maxsegs > 1) {
1181 1.42 bouyer /*
1182 1.42 bouyer * Load the hardware scatter/gather map with the
1183 1.42 bouyer * contents of the DMA map.
1184 1.42 bouyer */
1185 1.42 bouyer for (seg = 0;
1186 1.42 bouyer seg < scb->dmamap_xfer->dm_nsegs; seg++) {
1187 1.19 thorpej ltophys(scb->dmamap_xfer->dm_segs[seg].ds_addr,
1188 1.42 bouyer scb->scat_gath[seg].seg_addr);
1189 1.19 thorpej ltophys(scb->dmamap_xfer->dm_segs[seg].ds_len,
1190 1.42 bouyer scb->scat_gath[seg].seg_len);
1191 1.42 bouyer }
1192 1.42 bouyer
1193 1.42 bouyer /*
1194 1.42 bouyer * Set up for scatter/gather transfer.
1195 1.42 bouyer */
1196 1.42 bouyer scb->cmd.opcode = WDSX_SCSISG;
1197 1.42 bouyer ltophys(scb->dmamap_self->dm_segs[0].ds_addr +
1198 1.42 bouyer offsetof(struct wds_scb, scat_gath),
1199 1.42 bouyer scb->cmd.data);
1200 1.42 bouyer ltophys(scb->dmamap_self->dm_nsegs *
1201 1.42 bouyer sizeof(struct wds_scat_gath), scb->cmd.len);
1202 1.42 bouyer } else {
1203 1.42 bouyer /*
1204 1.42 bouyer * This board is an ASC or an ASE, and the
1205 1.42 bouyer * transfer has been mapped contig for us.
1206 1.42 bouyer */
1207 1.42 bouyer scb->cmd.opcode = WDSX_SCSICMD;
1208 1.42 bouyer ltophys(scb->dmamap_xfer->dm_segs[0].ds_addr,
1209 1.42 bouyer scb->cmd.data);
1210 1.42 bouyer ltophys(scb->dmamap_xfer->dm_segs[0].ds_len,
1211 1.42 bouyer scb->cmd.len);
1212 1.19 thorpej }
1213 1.42 bouyer } else {
1214 1.42 bouyer scb->cmd.opcode = WDSX_SCSICMD;
1215 1.42 bouyer ltophys(0, scb->cmd.data);
1216 1.42 bouyer ltophys(0, scb->cmd.len);
1217 1.42 bouyer }
1218 1.1 mycroft
1219 1.42 bouyer scb->cmd.stat = 0x00;
1220 1.42 bouyer scb->cmd.venderr = 0x00;
1221 1.42 bouyer ltophys(0, scb->cmd.link);
1222 1.42 bouyer
1223 1.42 bouyer /* XXX Do we really want to do this? */
1224 1.42 bouyer if (flags & XS_CTL_POLL) {
1225 1.42 bouyer /* Will poll card, await result. */
1226 1.42 bouyer bus_space_write_1(sc->sc_iot, sc->sc_ioh,
1227 1.42 bouyer WDS_HCR, WDSH_DRQEN);
1228 1.42 bouyer scb->flags |= SCB_POLLED;
1229 1.19 thorpej } else {
1230 1.19 thorpej /*
1231 1.42 bouyer * Will send command, let interrupt routine
1232 1.42 bouyer * handle result.
1233 1.1 mycroft */
1234 1.42 bouyer bus_space_write_1(sc->sc_iot, sc->sc_ioh, WDS_HCR,
1235 1.42 bouyer WDSH_IRQEN | WDSH_DRQEN);
1236 1.1 mycroft }
1237 1.1 mycroft
1238 1.42 bouyer s = splbio();
1239 1.42 bouyer wds_queue_scb(sc, scb);
1240 1.42 bouyer splx(s);
1241 1.1 mycroft
1242 1.42 bouyer if ((flags & XS_CTL_POLL) == 0)
1243 1.42 bouyer return;
1244 1.1 mycroft
1245 1.42 bouyer if (wds_poll(sc, xs, scb->timeout)) {
1246 1.1 mycroft wds_timeout(scb);
1247 1.42 bouyer if (wds_poll(sc, xs, scb->timeout))
1248 1.42 bouyer wds_timeout(scb);
1249 1.42 bouyer }
1250 1.42 bouyer return;
1251 1.1 mycroft
1252 1.42 bouyer case ADAPTER_REQ_GROW_RESOURCES:
1253 1.42 bouyer /* XXX Not supported. */
1254 1.42 bouyer return;
1255 1.1 mycroft
1256 1.42 bouyer case ADAPTER_REQ_SET_XFER_MODE:
1257 1.42 bouyer /* XXX How do we do this? */
1258 1.42 bouyer return;
1259 1.42 bouyer }
1260 1.1 mycroft }
1261 1.1 mycroft
1262 1.1 mycroft /*
1263 1.1 mycroft * Poll a particular unit, looking for a particular scb
1264 1.1 mycroft */
1265 1.1 mycroft int
1266 1.70 dsl wds_poll(struct wds_softc *sc, struct scsipi_xfer *xs, int count)
1267 1.1 mycroft {
1268 1.15 mycroft bus_space_tag_t iot = sc->sc_iot;
1269 1.15 mycroft bus_space_handle_t ioh = sc->sc_ioh;
1270 1.1 mycroft
1271 1.1 mycroft /* timeouts are in msec, so we loop in 1000 usec cycles */
1272 1.1 mycroft while (count) {
1273 1.1 mycroft /*
1274 1.1 mycroft * If we had interrupts enabled, would we
1275 1.1 mycroft * have got an interrupt?
1276 1.1 mycroft */
1277 1.15 mycroft if (bus_space_read_1(iot, ioh, WDS_STAT) & WDSS_IRQ)
1278 1.1 mycroft wdsintr(sc);
1279 1.39 thorpej if (xs->xs_status & XS_STS_DONE)
1280 1.1 mycroft return 0;
1281 1.1 mycroft delay(1000); /* only happens in boot so ok */
1282 1.1 mycroft count--;
1283 1.1 mycroft }
1284 1.1 mycroft return 1;
1285 1.1 mycroft }
1286 1.1 mycroft
1287 1.1 mycroft /*
1288 1.1 mycroft * Poll a particular unit, looking for a particular scb
1289 1.1 mycroft */
1290 1.1 mycroft int
1291 1.70 dsl wds_ipoll(struct wds_softc *sc, struct wds_scb *scb, int count)
1292 1.1 mycroft {
1293 1.15 mycroft bus_space_tag_t iot = sc->sc_iot;
1294 1.15 mycroft bus_space_handle_t ioh = sc->sc_ioh;
1295 1.1 mycroft
1296 1.1 mycroft /* timeouts are in msec, so we loop in 1000 usec cycles */
1297 1.1 mycroft while (count) {
1298 1.1 mycroft /*
1299 1.1 mycroft * If we had interrupts enabled, would we
1300 1.1 mycroft * have got an interrupt?
1301 1.1 mycroft */
1302 1.15 mycroft if (bus_space_read_1(iot, ioh, WDS_STAT) & WDSS_IRQ)
1303 1.1 mycroft wdsintr(sc);
1304 1.1 mycroft if (scb->flags & SCB_DONE)
1305 1.1 mycroft return 0;
1306 1.1 mycroft delay(1000); /* only happens in boot so ok */
1307 1.1 mycroft count--;
1308 1.1 mycroft }
1309 1.1 mycroft return 1;
1310 1.1 mycroft }
1311 1.1 mycroft
1312 1.1 mycroft void
1313 1.70 dsl wds_timeout(void *arg)
1314 1.1 mycroft {
1315 1.1 mycroft struct wds_scb *scb = arg;
1316 1.18 bouyer struct scsipi_xfer *xs = scb->xs;
1317 1.42 bouyer struct scsipi_periph *periph = xs->xs_periph;
1318 1.42 bouyer struct wds_softc *sc =
1319 1.42 bouyer (void *)periph->periph_channel->chan_adapter->adapt_dev;
1320 1.1 mycroft int s;
1321 1.1 mycroft
1322 1.42 bouyer scsipi_printaddr(periph);
1323 1.12 christos printf("timed out");
1324 1.1 mycroft
1325 1.1 mycroft s = splbio();
1326 1.1 mycroft
1327 1.1 mycroft #ifdef WDSDIAG
1328 1.1 mycroft /*
1329 1.1 mycroft * If The scb's mbx is not free, then the board has gone south?
1330 1.1 mycroft */
1331 1.1 mycroft wds_collect_mbo(sc);
1332 1.1 mycroft if (scb->flags & SCB_SENDING) {
1333 1.68 cegger aprint_error_dev(&sc->sc_dev, "not taking commands!\n");
1334 1.1 mycroft Debugger();
1335 1.1 mycroft }
1336 1.1 mycroft #endif
1337 1.1 mycroft
1338 1.1 mycroft /*
1339 1.1 mycroft * If it has been through before, then
1340 1.1 mycroft * a previous abort has failed, don't
1341 1.1 mycroft * try abort again
1342 1.1 mycroft */
1343 1.1 mycroft if (scb->flags & SCB_ABORT) {
1344 1.1 mycroft /* abort timed out */
1345 1.12 christos printf(" AGAIN\n");
1346 1.1 mycroft /* XXX Must reset! */
1347 1.1 mycroft } else {
1348 1.1 mycroft /* abort the operation that has timed out */
1349 1.12 christos printf("\n");
1350 1.1 mycroft scb->xs->error = XS_TIMEOUT;
1351 1.1 mycroft scb->timeout = WDS_ABORT_TIMEOUT;
1352 1.1 mycroft scb->flags |= SCB_ABORT;
1353 1.1 mycroft wds_queue_scb(sc, scb);
1354 1.1 mycroft }
1355 1.1 mycroft
1356 1.1 mycroft splx(s);
1357 1.1 mycroft }
1358