esp.c revision 1.57 1 1.57 christos /* $NetBSD: esp.c,v 1.57 2008/12/16 22:35:24 christos Exp $ */
2 1.1 dbj
3 1.1 dbj /*-
4 1.5 mycroft * Copyright (c) 1997, 1998 The NetBSD Foundation, Inc.
5 1.1 dbj * All rights reserved.
6 1.1 dbj *
7 1.1 dbj * This code is derived from software contributed to The NetBSD Foundation
8 1.6 mycroft * by Charles M. Hannum and by Jason R. Thorpe of the Numerical Aerospace
9 1.6 mycroft * Simulation Facility, NASA Ames Research Center.
10 1.1 dbj *
11 1.1 dbj * Redistribution and use in source and binary forms, with or without
12 1.1 dbj * modification, are permitted provided that the following conditions
13 1.1 dbj * are met:
14 1.1 dbj * 1. Redistributions of source code must retain the above copyright
15 1.1 dbj * notice, this list of conditions and the following disclaimer.
16 1.1 dbj * 2. Redistributions in binary form must reproduce the above copyright
17 1.1 dbj * notice, this list of conditions and the following disclaimer in the
18 1.1 dbj * documentation and/or other materials provided with the distribution.
19 1.1 dbj *
20 1.1 dbj * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
21 1.1 dbj * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
22 1.1 dbj * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
23 1.1 dbj * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
24 1.1 dbj * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
25 1.1 dbj * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
26 1.1 dbj * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
27 1.1 dbj * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 1.1 dbj * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
29 1.1 dbj * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
30 1.1 dbj * POSSIBILITY OF SUCH DAMAGE.
31 1.1 dbj */
32 1.1 dbj
33 1.1 dbj /*
34 1.1 dbj * Copyright (c) 1994 Peter Galbavy
35 1.1 dbj * All rights reserved.
36 1.1 dbj *
37 1.1 dbj * Redistribution and use in source and binary forms, with or without
38 1.1 dbj * modification, are permitted provided that the following conditions
39 1.1 dbj * are met:
40 1.1 dbj * 1. Redistributions of source code must retain the above copyright
41 1.1 dbj * notice, this list of conditions and the following disclaimer.
42 1.1 dbj * 2. Redistributions in binary form must reproduce the above copyright
43 1.1 dbj * notice, this list of conditions and the following disclaimer in the
44 1.1 dbj * documentation and/or other materials provided with the distribution.
45 1.1 dbj * 3. All advertising materials mentioning features or use of this software
46 1.1 dbj * must display the following acknowledgement:
47 1.1 dbj * This product includes software developed by Peter Galbavy
48 1.1 dbj * 4. The name of the author may not be used to endorse or promote products
49 1.1 dbj * derived from this software without specific prior written permission.
50 1.1 dbj *
51 1.1 dbj * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
52 1.1 dbj * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
53 1.1 dbj * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
54 1.1 dbj * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
55 1.1 dbj * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
56 1.1 dbj * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
57 1.1 dbj * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
58 1.1 dbj * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
59 1.1 dbj * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
60 1.1 dbj * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
61 1.1 dbj * POSSIBILITY OF SUCH DAMAGE.
62 1.1 dbj */
63 1.1 dbj
64 1.1 dbj /*
65 1.1 dbj * Based on aic6360 by Jarle Greipsland
66 1.1 dbj *
67 1.1 dbj * Acknowledgements: Many of the algorithms used in this driver are
68 1.1 dbj * inspired by the work of Julian Elischer (julian (at) tfs.com) and
69 1.1 dbj * Charles Hannum (mycroft (at) duality.gnu.ai.mit.edu). Thanks a million!
70 1.1 dbj */
71 1.1 dbj
72 1.1 dbj /*
73 1.1 dbj * Grabbed from the sparc port at revision 1.73 for the NeXT.
74 1.47 keihan * Darrin B. Jewell <dbj (at) NetBSD.org> Sat Jul 4 15:41:32 1998
75 1.1 dbj */
76 1.45 lukem
77 1.45 lukem #include <sys/cdefs.h>
78 1.57 christos __KERNEL_RCSID(0, "$NetBSD: esp.c,v 1.57 2008/12/16 22:35:24 christos Exp $");
79 1.1 dbj
80 1.1 dbj #include <sys/types.h>
81 1.1 dbj #include <sys/param.h>
82 1.1 dbj #include <sys/systm.h>
83 1.1 dbj #include <sys/kernel.h>
84 1.1 dbj #include <sys/errno.h>
85 1.1 dbj #include <sys/ioctl.h>
86 1.1 dbj #include <sys/device.h>
87 1.1 dbj #include <sys/buf.h>
88 1.1 dbj #include <sys/proc.h>
89 1.1 dbj #include <sys/user.h>
90 1.1 dbj #include <sys/queue.h>
91 1.1 dbj
92 1.43 thorpej #include <uvm/uvm_extern.h>
93 1.43 thorpej
94 1.1 dbj #include <dev/scsipi/scsi_all.h>
95 1.1 dbj #include <dev/scsipi/scsipi_all.h>
96 1.1 dbj #include <dev/scsipi/scsiconf.h>
97 1.1 dbj #include <dev/scsipi/scsi_message.h>
98 1.1 dbj
99 1.1 dbj #include <machine/bus.h>
100 1.1 dbj #include <machine/autoconf.h>
101 1.1 dbj #include <machine/cpu.h>
102 1.1 dbj
103 1.1 dbj #include <dev/ic/ncr53c9xreg.h>
104 1.1 dbj #include <dev/ic/ncr53c9xvar.h>
105 1.1 dbj
106 1.1 dbj #include <next68k/next68k/isr.h>
107 1.1 dbj
108 1.38 mycroft #include <next68k/dev/intiovar.h>
109 1.1 dbj #include <next68k/dev/nextdmareg.h>
110 1.1 dbj #include <next68k/dev/nextdmavar.h>
111 1.1 dbj
112 1.38 mycroft #include <next68k/dev/espreg.h>
113 1.38 mycroft #include <next68k/dev/espvar.h>
114 1.1 dbj
115 1.20 dbj #ifdef DEBUG
116 1.39 mycroft #undef ESP_DEBUG
117 1.4 dbj #endif
118 1.4 dbj
119 1.4 dbj #ifdef ESP_DEBUG
120 1.10 dbj int esp_debug = 0;
121 1.10 dbj #define DPRINTF(x) if (esp_debug) printf x;
122 1.38 mycroft extern char *ndtracep;
123 1.38 mycroft extern char ndtrace[];
124 1.38 mycroft extern int ndtraceshow;
125 1.38 mycroft #define NDTRACEIF(x) if (10 && ndtracep < (ndtrace + 8192)) do {x;} while (0)
126 1.4 dbj #else
127 1.4 dbj #define DPRINTF(x)
128 1.38 mycroft #define NDTRACEIF(x)
129 1.4 dbj #endif
130 1.37 christos #define PRINTF(x) printf x;
131 1.4 dbj
132 1.4 dbj
133 1.55 tsutsui int espmatch_intio(device_t, cfdata_t, void *);
134 1.55 tsutsui void espattach_intio(device_t, device_t, void *);
135 1.1 dbj
136 1.2 dbj /* DMA callbacks */
137 1.49 chs bus_dmamap_t esp_dmacb_continue(void *);
138 1.49 chs void esp_dmacb_completed(bus_dmamap_t, void *);
139 1.49 chs void esp_dmacb_shutdown(void *);
140 1.2 dbj
141 1.49 chs static void findchannel_defer(struct device *);
142 1.38 mycroft
143 1.20 dbj #ifdef ESP_DEBUG
144 1.20 dbj char esp_dma_dump[5*1024] = "";
145 1.20 dbj struct ncr53c9x_softc *esp_debug_sc = 0;
146 1.49 chs void esp_dma_store(struct ncr53c9x_softc *);
147 1.49 chs void esp_dma_print(struct ncr53c9x_softc *);
148 1.22 dbj int esp_dma_nest = 0;
149 1.20 dbj #endif
150 1.20 dbj
151 1.20 dbj
152 1.1 dbj /* Linkup to the rest of the kernel */
153 1.55 tsutsui CFATTACH_DECL_NEW(esp, sizeof(struct esp_softc),
154 1.42 thorpej espmatch_intio, espattach_intio, NULL, NULL);
155 1.1 dbj
156 1.38 mycroft static int attached = 0;
157 1.38 mycroft
158 1.1 dbj /*
159 1.1 dbj * Functions and the switch for the MI code.
160 1.1 dbj */
161 1.55 tsutsui uint8_t esp_read_reg(struct ncr53c9x_softc *, int);
162 1.55 tsutsui void esp_write_reg(struct ncr53c9x_softc *, int, uint8_t);
163 1.49 chs int esp_dma_isintr(struct ncr53c9x_softc *);
164 1.49 chs void esp_dma_reset(struct ncr53c9x_softc *);
165 1.49 chs int esp_dma_intr(struct ncr53c9x_softc *);
166 1.55 tsutsui int esp_dma_setup(struct ncr53c9x_softc *, uint8_t **, size_t *, int,
167 1.49 chs size_t *);
168 1.49 chs void esp_dma_go(struct ncr53c9x_softc *);
169 1.49 chs void esp_dma_stop(struct ncr53c9x_softc *);
170 1.49 chs int esp_dma_isactive(struct ncr53c9x_softc *);
171 1.1 dbj
172 1.1 dbj struct ncr53c9x_glue esp_glue = {
173 1.1 dbj esp_read_reg,
174 1.1 dbj esp_write_reg,
175 1.1 dbj esp_dma_isintr,
176 1.1 dbj esp_dma_reset,
177 1.1 dbj esp_dma_intr,
178 1.1 dbj esp_dma_setup,
179 1.1 dbj esp_dma_go,
180 1.1 dbj esp_dma_stop,
181 1.1 dbj esp_dma_isactive,
182 1.1 dbj NULL, /* gl_clear_latched_intr */
183 1.1 dbj };
184 1.1 dbj
185 1.11 dbj #ifdef ESP_DEBUG
186 1.50 christos #define XCHR(x) hexdigits[(x) & 0xf]
187 1.11 dbj static void
188 1.11 dbj esp_hex_dump(unsigned char *pkt, size_t len)
189 1.11 dbj {
190 1.11 dbj size_t i, j;
191 1.11 dbj
192 1.31 dbj printf("00000000 ");
193 1.55 tsutsui for(i = 0; i < len; i++) {
194 1.11 dbj printf("%c%c ", XCHR(pkt[i]>>4), XCHR(pkt[i]));
195 1.55 tsutsui if ((i + 1) % 16 == 8) {
196 1.24 dbj printf(" ");
197 1.24 dbj }
198 1.55 tsutsui if ((i + 1) % 16 == 0) {
199 1.24 dbj printf(" %c", '|');
200 1.55 tsutsui for(j = 0; j < 16; j++) {
201 1.11 dbj printf("%c", pkt[i-15+j]>=32 && pkt[i-15+j]<127?pkt[i-15+j]:'.');
202 1.24 dbj }
203 1.24 dbj printf("%c\n%c%c%c%c%c%c%c%c ", '|',
204 1.24 dbj XCHR((i+1)>>28),XCHR((i+1)>>24),XCHR((i+1)>>20),XCHR((i+1)>>16),
205 1.24 dbj XCHR((i+1)>>12), XCHR((i+1)>>8), XCHR((i+1)>>4), XCHR(i+1));
206 1.11 dbj }
207 1.11 dbj }
208 1.11 dbj printf("\n");
209 1.11 dbj }
210 1.11 dbj #endif
211 1.11 dbj
212 1.1 dbj int
213 1.55 tsutsui espmatch_intio(device_t parent, cfdata_t cf, void *aux)
214 1.1 dbj {
215 1.55 tsutsui struct intio_attach_args *ia = aux;
216 1.38 mycroft
217 1.38 mycroft if (attached)
218 1.55 tsutsui return 0;
219 1.38 mycroft
220 1.38 mycroft ia->ia_addr = (void *)NEXT_P_SCSI;
221 1.1 dbj
222 1.55 tsutsui return 1;
223 1.1 dbj }
224 1.1 dbj
225 1.38 mycroft static void
226 1.49 chs findchannel_defer(struct device *self)
227 1.38 mycroft {
228 1.55 tsutsui struct esp_softc *esc = device_private(self);
229 1.38 mycroft struct ncr53c9x_softc *sc = &esc->sc_ncr53c9x;
230 1.38 mycroft int error;
231 1.38 mycroft
232 1.38 mycroft if (!esc->sc_dma) {
233 1.55 tsutsui aprint_normal("%s", device_xname(sc->sc_dev));
234 1.55 tsutsui esc->sc_dma = nextdma_findchannel("scsi");
235 1.38 mycroft if (!esc->sc_dma)
236 1.55 tsutsui panic("%s: can't find DMA channel",
237 1.55 tsutsui device_xname(sc->sc_dev));
238 1.38 mycroft }
239 1.38 mycroft
240 1.55 tsutsui nextdma_setconf(esc->sc_dma, shutdown_cb, &esp_dmacb_shutdown);
241 1.55 tsutsui nextdma_setconf(esc->sc_dma, continue_cb, &esp_dmacb_continue);
242 1.55 tsutsui nextdma_setconf(esc->sc_dma, completed_cb, &esp_dmacb_completed);
243 1.55 tsutsui nextdma_setconf(esc->sc_dma, cb_arg, sc);
244 1.38 mycroft
245 1.38 mycroft error = bus_dmamap_create(esc->sc_dma->sc_dmat,
246 1.43 thorpej sc->sc_maxxfer,
247 1.55 tsutsui sc->sc_maxxfer / PAGE_SIZE + 1,
248 1.55 tsutsui sc->sc_maxxfer,
249 1.38 mycroft 0, BUS_DMA_ALLOCNOW, &esc->sc_main_dmamap);
250 1.38 mycroft if (error) {
251 1.38 mycroft panic("%s: can't create main i/o DMA map, error = %d",
252 1.55 tsutsui device_xname(sc->sc_dev), error);
253 1.38 mycroft }
254 1.38 mycroft
255 1.38 mycroft error = bus_dmamap_create(esc->sc_dma->sc_dmat,
256 1.38 mycroft ESP_DMA_TAILBUFSIZE, 1, ESP_DMA_TAILBUFSIZE,
257 1.38 mycroft 0, BUS_DMA_ALLOCNOW, &esc->sc_tail_dmamap);
258 1.38 mycroft if (error) {
259 1.38 mycroft panic("%s: can't create tail i/o DMA map, error = %d",
260 1.55 tsutsui device_xname(sc->sc_dev), error);
261 1.38 mycroft }
262 1.38 mycroft
263 1.38 mycroft #if 0
264 1.44 wiz /* Turn on target selection using the `DMA' method */
265 1.38 mycroft sc->sc_features |= NCR_F_DMASELECT;
266 1.38 mycroft #endif
267 1.38 mycroft
268 1.38 mycroft /* Do the common parts of attachment. */
269 1.38 mycroft sc->sc_adapter.adapt_minphys = minphys;
270 1.38 mycroft sc->sc_adapter.adapt_request = ncr53c9x_scsipi_request;
271 1.38 mycroft ncr53c9x_attach(sc);
272 1.38 mycroft
273 1.38 mycroft /* Establish interrupt channel */
274 1.38 mycroft isrlink_autovec(ncr53c9x_intr, sc, NEXT_I_IPL(NEXT_I_SCSI), 0, NULL);
275 1.38 mycroft INTR_ENABLE(NEXT_I_SCSI);
276 1.38 mycroft
277 1.38 mycroft /* register interrupt stats */
278 1.38 mycroft evcnt_attach_dynamic(&sc->sc_intrcnt, EVCNT_TYPE_INTR, NULL,
279 1.55 tsutsui device_xname(sc->sc_dev), "intr");
280 1.38 mycroft
281 1.55 tsutsui aprint_normal_dev(sc->sc_dev, "using DMA channel %s\n",
282 1.55 tsutsui device_xname(&esc->sc_dma->sc_dev));
283 1.38 mycroft }
284 1.38 mycroft
285 1.1 dbj void
286 1.55 tsutsui espattach_intio(device_t parent, device_t self, void *aux)
287 1.1 dbj {
288 1.55 tsutsui struct esp_softc *esc = device_private(self);
289 1.1 dbj struct ncr53c9x_softc *sc = &esc->sc_ncr53c9x;
290 1.55 tsutsui struct intio_attach_args *ia = aux;
291 1.55 tsutsui
292 1.55 tsutsui sc->sc_dev = self;
293 1.1 dbj
294 1.20 dbj #ifdef ESP_DEBUG
295 1.20 dbj esp_debug_sc = sc;
296 1.20 dbj #endif
297 1.20 dbj
298 1.38 mycroft esc->sc_bst = ia->ia_bst;
299 1.1 dbj if (bus_space_map(esc->sc_bst, NEXT_P_SCSI,
300 1.1 dbj ESP_DEVICE_SIZE, 0, &esc->sc_bsh)) {
301 1.55 tsutsui aprint_normal("\n");
302 1.55 tsutsui panic("%s: can't map ncr53c90 registers",
303 1.55 tsutsui device_xname(self));
304 1.1 dbj }
305 1.1 dbj
306 1.1 dbj sc->sc_id = 7;
307 1.52 lukem sc->sc_freq = 20; /* MHz */
308 1.1 dbj
309 1.1 dbj /*
310 1.1 dbj * Set up glue for MI code early; we use some of it here.
311 1.1 dbj */
312 1.1 dbj sc->sc_glue = &esp_glue;
313 1.1 dbj
314 1.1 dbj /*
315 1.1 dbj * XXX More of this should be in ncr53c9x_attach(), but
316 1.1 dbj * XXX should we really poke around the chip that much in
317 1.1 dbj * XXX the MI code? Think about this more...
318 1.1 dbj */
319 1.1 dbj
320 1.1 dbj /*
321 1.1 dbj * It is necessary to try to load the 2nd config register here,
322 1.1 dbj * to find out what rev the esp chip is, else the ncr53c9x_reset
323 1.1 dbj * will not set up the defaults correctly.
324 1.1 dbj */
325 1.1 dbj sc->sc_cfg1 = sc->sc_id | NCRCFG1_PARENB;
326 1.1 dbj sc->sc_cfg2 = NCRCFG2_SCSI2 | NCRCFG2_RPE;
327 1.1 dbj sc->sc_cfg3 = NCRCFG3_CDB;
328 1.1 dbj NCR_WRITE_REG(sc, NCR_CFG2, sc->sc_cfg2);
329 1.1 dbj
330 1.1 dbj if ((NCR_READ_REG(sc, NCR_CFG2) & ~NCRCFG2_RSVD) !=
331 1.1 dbj (NCRCFG2_SCSI2 | NCRCFG2_RPE)) {
332 1.1 dbj sc->sc_rev = NCR_VARIANT_ESP100;
333 1.1 dbj } else {
334 1.1 dbj sc->sc_cfg2 = NCRCFG2_SCSI2;
335 1.1 dbj NCR_WRITE_REG(sc, NCR_CFG2, sc->sc_cfg2);
336 1.1 dbj sc->sc_cfg3 = 0;
337 1.1 dbj NCR_WRITE_REG(sc, NCR_CFG3, sc->sc_cfg3);
338 1.1 dbj sc->sc_cfg3 = (NCRCFG3_CDB | NCRCFG3_FCLK);
339 1.1 dbj NCR_WRITE_REG(sc, NCR_CFG3, sc->sc_cfg3);
340 1.1 dbj if (NCR_READ_REG(sc, NCR_CFG3) !=
341 1.1 dbj (NCRCFG3_CDB | NCRCFG3_FCLK)) {
342 1.1 dbj sc->sc_rev = NCR_VARIANT_ESP100A;
343 1.1 dbj } else {
344 1.1 dbj /* NCRCFG2_FE enables > 64K transfers */
345 1.1 dbj sc->sc_cfg2 |= NCRCFG2_FE;
346 1.1 dbj sc->sc_cfg3 = 0;
347 1.1 dbj NCR_WRITE_REG(sc, NCR_CFG3, sc->sc_cfg3);
348 1.1 dbj sc->sc_rev = NCR_VARIANT_ESP200;
349 1.1 dbj }
350 1.1 dbj }
351 1.1 dbj
352 1.1 dbj /*
353 1.1 dbj * XXX minsync and maxxfer _should_ be set up in MI code,
354 1.1 dbj * XXX but it appears to have some dependency on what sort
355 1.1 dbj * XXX of DMA we're hooked up to, etc.
356 1.1 dbj */
357 1.1 dbj
358 1.1 dbj /*
359 1.1 dbj * This is the value used to start sync negotiations
360 1.1 dbj * Note that the NCR register "SYNCTP" is programmed
361 1.1 dbj * in "clocks per byte", and has a minimum value of 4.
362 1.1 dbj * The SCSI period used in negotiation is one-fourth
363 1.1 dbj * of the time (in nanoseconds) needed to transfer one byte.
364 1.1 dbj * Since the chip's clock is given in MHz, we have the following
365 1.1 dbj * formula: 4 * period = (1000 / freq) * 4
366 1.1 dbj */
367 1.39 mycroft sc->sc_minsync = /* 1000 / sc->sc_freq */ 0;
368 1.1 dbj
369 1.1 dbj /*
370 1.1 dbj * Alas, we must now modify the value a bit, because it's
371 1.1 dbj * only valid when can switch on FASTCLK and FASTSCSI bits
372 1.1 dbj * in config register 3...
373 1.1 dbj */
374 1.1 dbj switch (sc->sc_rev) {
375 1.1 dbj case NCR_VARIANT_ESP100:
376 1.1 dbj sc->sc_maxxfer = 64 * 1024;
377 1.1 dbj sc->sc_minsync = 0; /* No synch on old chip? */
378 1.1 dbj break;
379 1.1 dbj
380 1.1 dbj case NCR_VARIANT_ESP100A:
381 1.1 dbj sc->sc_maxxfer = 64 * 1024;
382 1.1 dbj /* Min clocks/byte is 5 */
383 1.39 mycroft sc->sc_minsync = /* ncr53c9x_cpb2stp(sc, 5) */ 0;
384 1.1 dbj break;
385 1.1 dbj
386 1.1 dbj case NCR_VARIANT_ESP200:
387 1.1 dbj sc->sc_maxxfer = 16 * 1024 * 1024;
388 1.1 dbj /* XXX - do actually set FAST* bits */
389 1.1 dbj break;
390 1.1 dbj }
391 1.1 dbj
392 1.3 dbj /* @@@ Some ESP_DCTL bits probably need setting */
393 1.3 dbj NCR_WRITE_REG(sc, ESP_DCTL,
394 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_RESET);
395 1.3 dbj DELAY(10);
396 1.22 dbj DPRINTF(("esp dctl is 0x%02x\n",NCR_READ_REG(sc,ESP_DCTL)));
397 1.37 christos NCR_WRITE_REG(sc, ESP_DCTL, ESPDCTL_16MHZ | ESPDCTL_INTENB);
398 1.3 dbj DELAY(10);
399 1.22 dbj DPRINTF(("esp dctl is 0x%02x\n",NCR_READ_REG(sc,ESP_DCTL)));
400 1.3 dbj
401 1.38 mycroft esc->sc_dma = nextdma_findchannel ("scsi");
402 1.38 mycroft if (esc->sc_dma) {
403 1.55 tsutsui findchannel_defer(self);
404 1.38 mycroft } else {
405 1.55 tsutsui aprint_normal("\n");
406 1.55 tsutsui config_defer(self, findchannel_defer);
407 1.3 dbj }
408 1.1 dbj
409 1.38 mycroft attached = 1;
410 1.1 dbj }
411 1.1 dbj
412 1.1 dbj /*
413 1.1 dbj * Glue functions.
414 1.1 dbj */
415 1.1 dbj
416 1.55 tsutsui uint8_t
417 1.49 chs esp_read_reg(struct ncr53c9x_softc *sc, int reg)
418 1.1 dbj {
419 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
420 1.1 dbj
421 1.55 tsutsui return bus_space_read_1(esc->sc_bst, esc->sc_bsh, reg);
422 1.1 dbj }
423 1.1 dbj
424 1.1 dbj void
425 1.55 tsutsui esp_write_reg(struct ncr53c9x_softc *sc, int reg, uint8_t val)
426 1.1 dbj {
427 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
428 1.1 dbj
429 1.1 dbj bus_space_write_1(esc->sc_bst, esc->sc_bsh, reg, val);
430 1.1 dbj }
431 1.1 dbj
432 1.55 tsutsui volatile uint32_t save1;
433 1.37 christos
434 1.37 christos #define xADDR 0x0211a000
435 1.49 chs int doze(volatile int);
436 1.37 christos int
437 1.49 chs doze(volatile int c)
438 1.37 christos {
439 1.37 christos /* static int tmp1; */
440 1.55 tsutsui uint32_t tmp1;
441 1.55 tsutsui volatile uint8_t tmp2;
442 1.55 tsutsui volatile uint8_t *reg = (volatile uint8_t *)IIOV(xADDR);
443 1.55 tsutsui
444 1.55 tsutsui if (c > 244)
445 1.55 tsutsui return 0;
446 1.55 tsutsui if (c == 0)
447 1.55 tsutsui return 0;
448 1.37 christos /* ((*(volatile u_long *)IIOV(NEXT_P_INTRMASK))&=(~NEXT_I_BIT(x))) */
449 1.37 christos (*reg) = 0;
450 1.37 christos (*reg) = 0;
451 1.37 christos do {
452 1.37 christos save1 = (*reg);
453 1.37 christos tmp2 = *(reg + 3);
454 1.37 christos tmp1 = tmp2;
455 1.37 christos } while (tmp1 <= c);
456 1.55 tsutsui return 0;
457 1.37 christos }
458 1.37 christos
459 1.1 dbj int
460 1.49 chs esp_dma_isintr(struct ncr53c9x_softc *sc)
461 1.1 dbj {
462 1.4 dbj struct esp_softc *esc = (struct esp_softc *)sc;
463 1.55 tsutsui
464 1.37 christos if (INTR_OCCURRED(NEXT_I_SCSI)) {
465 1.38 mycroft NDTRACEIF (*ndtracep++ = 'i');
466 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
467 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
468 1.55 tsutsui (esc->sc_datain ? ESPDCTL_DMARD : 0));
469 1.55 tsutsui return 1;
470 1.37 christos } else {
471 1.55 tsutsui return 0;
472 1.37 christos }
473 1.37 christos }
474 1.37 christos
475 1.49 chs #define nd_bsr4(reg) \
476 1.49 chs bus_space_read_4(nsc->sc_bst, nsc->sc_bsh, (reg))
477 1.49 chs #define nd_bsw4(reg,val) \
478 1.49 chs bus_space_write_4(nsc->sc_bst, nsc->sc_bsh, (reg), (val))
479 1.49 chs
480 1.37 christos int
481 1.49 chs esp_dma_intr(struct ncr53c9x_softc *sc)
482 1.37 christos {
483 1.37 christos struct esp_softc *esc = (struct esp_softc *)sc;
484 1.38 mycroft struct nextdma_softc *nsc = esc->sc_dma;
485 1.38 mycroft struct nextdma_status *stat = &nsc->sc_stat;
486 1.4 dbj int r = (INTR_OCCURRED(NEXT_I_SCSI));
487 1.37 christos int flushcount;
488 1.55 tsutsui
489 1.37 christos r = 1;
490 1.4 dbj
491 1.38 mycroft NDTRACEIF (*ndtracep++ = 'I');
492 1.4 dbj if (r) {
493 1.37 christos /* printf ("esp_dma_isintr start\n"); */
494 1.20 dbj {
495 1.37 christos int s = spldma();
496 1.38 mycroft void *ndmap = stat->nd_map;
497 1.38 mycroft int ndidx = stat->nd_idx;
498 1.37 christos splx(s);
499 1.20 dbj
500 1.23 dbj flushcount = 0;
501 1.23 dbj
502 1.22 dbj #ifdef ESP_DEBUG
503 1.37 christos /* esp_dma_nest++; */
504 1.28 tv
505 1.28 tv if (esp_debug) {
506 1.28 tv char sbuf[256];
507 1.28 tv
508 1.57 christos snprintb(sbuf, sizeof(sbuf), NEXT_INTR_BITS,
509 1.57 christos (*(volatile u_long *)IIOV(NEXT_P_INTRSTAT)));
510 1.57 christos
511 1.28 tv printf("esp_dma_isintr = 0x%s\n", sbuf);
512 1.28 tv }
513 1.22 dbj #endif
514 1.22 dbj
515 1.55 tsutsui while (!nextdma_finished(nsc)) {
516 1.55 tsutsui /* esp_dma_isactive(sc)) { */
517 1.38 mycroft NDTRACEIF (*ndtracep++ = 'w');
518 1.38 mycroft NDTRACEIF (
519 1.55 tsutsui sprintf(ndtracep, "f%dm%dl%dw",
520 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG) &
521 1.55 tsutsui NCRFIFO_FF,
522 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
523 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL));
524 1.55 tsutsui ndtracep += strlen(ndtracep);
525 1.55 tsutsui );
526 1.37 christos if (NCR_READ_REG(sc, NCR_FFLAG) & NCRFIFO_FF)
527 1.55 tsutsui flushcount = 5;
528 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
529 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
530 1.55 tsutsui ESPDCTL_DMAMOD |
531 1.55 tsutsui (esc->sc_datain ? ESPDCTL_DMARD : 0));
532 1.37 christos
533 1.37 christos s = spldma();
534 1.55 tsutsui while (ndmap == stat->nd_map &&
535 1.55 tsutsui ndidx == stat->nd_idx &&
536 1.55 tsutsui (nd_bsr4 (DD_CSR) & 0x08000000) == 0&&
537 1.37 christos ++flushcount < 5) {
538 1.37 christos splx(s);
539 1.38 mycroft NDTRACEIF (*ndtracep++ = 'F');
540 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
541 1.55 tsutsui ESPDCTL_FLUSH | ESPDCTL_16MHZ |
542 1.55 tsutsui ESPDCTL_INTENB | ESPDCTL_DMAMOD |
543 1.55 tsutsui (esc->sc_datain ?
544 1.55 tsutsui ESPDCTL_DMARD : 0));
545 1.37 christos doze(0x32);
546 1.20 dbj NCR_WRITE_REG(sc, ESP_DCTL,
547 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
548 1.55 tsutsui ESPDCTL_DMAMOD |
549 1.55 tsutsui (esc->sc_datain ?
550 1.55 tsutsui ESPDCTL_DMARD : 0));
551 1.37 christos doze(0x32);
552 1.37 christos s = spldma();
553 1.37 christos }
554 1.38 mycroft NDTRACEIF (*ndtracep++ = '0' + flushcount);
555 1.37 christos if (flushcount > 4) {
556 1.37 christos int next;
557 1.37 christos int onext = 0;
558 1.55 tsutsui
559 1.37 christos splx(s);
560 1.55 tsutsui DPRINTF(("DMA reset\n"));
561 1.38 mycroft while (((next = nd_bsr4 (DD_NEXT)) !=
562 1.55 tsutsui (nd_bsr4(DD_LIMIT) & 0x7FFFFFFF)) &&
563 1.55 tsutsui onext != next) {
564 1.37 christos onext = next;
565 1.37 christos DELAY(50);
566 1.37 christos }
567 1.38 mycroft NDTRACEIF (*ndtracep++ = 'R');
568 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
569 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
570 1.38 mycroft NDTRACEIF (
571 1.55 tsutsui sprintf(ndtracep,
572 1.55 tsutsui "ff:%d tcm:%d tcl:%d ",
573 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG)
574 1.55 tsutsui & NCRFIFO_FF,
575 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
576 1.55 tsutsui NCR_READ_REG((sc),
577 1.55 tsutsui NCR_TCL));
578 1.38 mycroft ndtracep += strlen (ndtracep);
579 1.38 mycroft );
580 1.37 christos s = spldma();
581 1.38 mycroft nextdma_reset (nsc);
582 1.37 christos splx(s);
583 1.37 christos goto out;
584 1.20 dbj }
585 1.37 christos splx(s);
586 1.20 dbj
587 1.23 dbj #ifdef DIAGNOSTIC
588 1.37 christos if (flushcount > 4) {
589 1.38 mycroft NDTRACEIF (*ndtracep++ = '+');
590 1.55 tsutsui printf("%s: unexpected flushcount"
591 1.55 tsutsui " %d on %s\n",
592 1.55 tsutsui device_xname(sc->sc_dev),
593 1.55 tsutsui flushcount,
594 1.55 tsutsui esc->sc_datain ? "read" : "write");
595 1.37 christos }
596 1.23 dbj #endif
597 1.23 dbj
598 1.55 tsutsui if (!nextdma_finished(nsc)) {
599 1.55 tsutsui /* esp_dma_isactive(sc)) { */
600 1.38 mycroft NDTRACEIF (*ndtracep++ = '1');
601 1.16 dbj }
602 1.37 christos flushcount = 0;
603 1.37 christos s = spldma();
604 1.38 mycroft ndmap = stat->nd_map;
605 1.38 mycroft ndidx = stat->nd_idx;
606 1.37 christos splx(s);
607 1.37 christos
608 1.16 dbj }
609 1.55 tsutsui out:
610 1.55 tsutsui ;
611 1.20 dbj
612 1.22 dbj #ifdef ESP_DEBUG
613 1.37 christos /* esp_dma_nest--; */
614 1.22 dbj #endif
615 1.22 dbj
616 1.13 dbj }
617 1.13 dbj
618 1.55 tsutsui doze(0x32);
619 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
620 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
621 1.55 tsutsui (esc->sc_datain ? ESPDCTL_DMARD : 0));
622 1.38 mycroft NDTRACEIF (*ndtracep++ = 'b');
623 1.37 christos
624 1.55 tsutsui while (esc->sc_datain != -1)
625 1.55 tsutsui DELAY(50);
626 1.37 christos
627 1.37 christos if (esc->sc_dmaaddr) {
628 1.37 christos bus_size_t xfer_len = 0;
629 1.37 christos int resid;
630 1.37 christos
631 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
632 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
633 1.38 mycroft if (stat->nd_exception == 0) {
634 1.55 tsutsui resid = NCR_READ_REG((sc), NCR_TCL) +
635 1.55 tsutsui (NCR_READ_REG((sc), NCR_TCM) << 8);
636 1.37 christos if (resid) {
637 1.55 tsutsui resid += (NCR_READ_REG(sc, NCR_FFLAG) &
638 1.55 tsutsui NCRFIFO_FF);
639 1.38 mycroft #ifdef ESP_DEBUG
640 1.55 tsutsui if (NCR_READ_REG(sc, NCR_FFLAG) &
641 1.55 tsutsui NCRFIFO_FF)
642 1.55 tsutsui if ((NCR_READ_REG(sc,
643 1.55 tsutsui NCR_FFLAG) & NCRFIFO_FF) !=
644 1.55 tsutsui 16 ||
645 1.55 tsutsui NCR_READ_REG((sc),
646 1.55 tsutsui NCR_TCL) != 240)
647 1.38 mycroft ndtraceshow++;
648 1.38 mycroft #endif
649 1.37 christos }
650 1.37 christos xfer_len = esc->sc_dmasize - resid;
651 1.37 christos } else {
652 1.55 tsutsui extern void ncr53c9x_abort(struct ncr53c9x_softc *, struct ncr53c9x_ecb *);
653 1.37 christos #define ncr53c9x_sched_msgout(m) \
654 1.37 christos do { \
655 1.37 christos NCR_MISC(("ncr53c9x_sched_msgout %x %d", m, __LINE__)); \
656 1.37 christos NCRCMD(sc, NCRCMD_SETATN); \
657 1.37 christos sc->sc_flags |= NCR_ATN; \
658 1.37 christos sc->sc_msgpriq |= (m); \
659 1.37 christos } while (0)
660 1.37 christos int i;
661 1.55 tsutsui
662 1.38 mycroft xfer_len = 0;
663 1.38 mycroft if (esc->sc_begin)
664 1.38 mycroft xfer_len += esc->sc_begin_size;
665 1.38 mycroft if (esc->sc_main_dmamap)
666 1.55 tsutsui xfer_len +=
667 1.55 tsutsui esc->sc_main_dmamap->dm_xfer_len;
668 1.38 mycroft if (esc->sc_tail_dmamap)
669 1.55 tsutsui xfer_len +=
670 1.55 tsutsui esc->sc_tail_dmamap->dm_xfer_len;
671 1.37 christos resid = 0;
672 1.37 christos printf ("X\n");
673 1.37 christos for (i = 0; i < 16; i++) {
674 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
675 1.55 tsutsui ESPDCTL_FLUSH | ESPDCTL_16MHZ |
676 1.55 tsutsui ESPDCTL_INTENB |
677 1.55 tsutsui (esc->sc_datain ?
678 1.55 tsutsui ESPDCTL_DMARD : 0));
679 1.37 christos NCR_WRITE_REG(sc, ESP_DCTL,
680 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
681 1.55 tsutsui (esc->sc_datain ?
682 1.55 tsutsui ESPDCTL_DMARD : 0));
683 1.37 christos }
684 1.37 christos #if 0
685 1.55 tsutsui printf ("ff:%02x tcm:%d tcl:%d esp_dstat:%02x"
686 1.55 tsutsui " stat:%02x step: %02x intr:%02x"
687 1.55 tsutsui " new stat:%02X\n",
688 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG),
689 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
690 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL),
691 1.55 tsutsui NCR_READ_REG(sc, ESP_DSTAT),
692 1.55 tsutsui sc->sc_espstat, sc->sc_espstep,
693 1.55 tsutsui sc->sc_espintr,
694 1.55 tsutsui NCR_READ_REG(sc, NCR_STAT));
695 1.55 tsutsui printf("sc->sc_state: %x sc->sc_phase: %x"
696 1.55 tsutsui " sc->sc_espstep:%x sc->sc_prevphase:%x"
697 1.55 tsutsui " sc->sc_flags:%x\n",
698 1.55 tsutsui sc->sc_state, sc->sc_phase, sc->sc_espstep,
699 1.55 tsutsui sc->sc_prevphase, sc->sc_flags);
700 1.37 christos #endif
701 1.37 christos /* sc->sc_flags &= ~NCR_ICCS; */
702 1.37 christos sc->sc_nexus->flags |= ECB_ABORT;
703 1.37 christos if (sc->sc_phase == MESSAGE_IN_PHASE) {
704 1.37 christos /* ncr53c9x_sched_msgout(SEND_ABORT); */
705 1.37 christos ncr53c9x_abort(sc, sc->sc_nexus);
706 1.37 christos } else if (sc->sc_phase != STATUS_PHASE) {
707 1.55 tsutsui printf("ATTENTION!!! "
708 1.55 tsutsui "not message/status phase: %d\n",
709 1.55 tsutsui sc->sc_phase);
710 1.37 christos }
711 1.37 christos }
712 1.37 christos
713 1.55 tsutsui NDTRACEIF(
714 1.55 tsutsui sprintf(ndtracep, "f%dm%dl%ds%dx%dr%dS",
715 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG) & NCRFIFO_FF,
716 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
717 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL),
718 1.55 tsutsui esc->sc_dmasize, (int)xfer_len, resid);
719 1.55 tsutsui ndtracep += strlen(ndtracep);
720 1.55 tsutsui );
721 1.20 dbj
722 1.55 tsutsui *esc->sc_dmaaddr += xfer_len;
723 1.54 tsutsui *esc->sc_dmalen -= xfer_len;
724 1.37 christos esc->sc_dmaaddr = 0;
725 1.37 christos esc->sc_dmalen = 0;
726 1.37 christos esc->sc_dmasize = 0;
727 1.13 dbj }
728 1.37 christos
729 1.38 mycroft NDTRACEIF (*ndtracep++ = 'B');
730 1.55 tsutsui sc->sc_espstat = NCR_READ_REG(sc, NCR_STAT) |
731 1.55 tsutsui (sc->sc_espstat & NCRSTAT_INT);
732 1.37 christos
733 1.55 tsutsui DPRINTF(("esp dctl is 0x%02x\n", NCR_READ_REG(sc, ESP_DCTL)));
734 1.37 christos /* printf ("esp_dma_isintr DONE\n"); */
735 1.13 dbj
736 1.4 dbj }
737 1.4 dbj
738 1.55 tsutsui return r;
739 1.1 dbj }
740 1.1 dbj
741 1.1 dbj void
742 1.49 chs esp_dma_reset(struct ncr53c9x_softc *sc)
743 1.1 dbj {
744 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
745 1.3 dbj
746 1.44 wiz DPRINTF(("esp DMA reset\n"));
747 1.13 dbj
748 1.13 dbj #ifdef ESP_DEBUG
749 1.13 dbj if (esp_debug) {
750 1.28 tv char sbuf[256];
751 1.28 tv
752 1.57 christos snprintb(sbuf, sizeof(sbuf), NEXT_INTR_BITS,
753 1.57 christos (*(volatile u_long *)IIOV(NEXT_P_INTRSTAT)));
754 1.28 tv printf(" *intrstat = 0x%s\n", sbuf);
755 1.28 tv
756 1.57 christos snprintb(sbuf, sizeof(sbuf), NEXT_INTR_BITS,
757 1.57 christos (*(volatile u_long *)IIOV(NEXT_P_INTRMASK)));
758 1.28 tv printf(" *intrmask = 0x%s\n", sbuf);
759 1.13 dbj }
760 1.13 dbj #endif
761 1.13 dbj
762 1.38 mycroft #if 0
763 1.13 dbj /* Clear the DMAMOD bit in the DCTL register: */
764 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL, ESPDCTL_16MHZ | ESPDCTL_INTENB);
765 1.22 dbj DPRINTF(("esp dctl is 0x%02x\n",NCR_READ_REG(sc,ESP_DCTL)));
766 1.38 mycroft #endif
767 1.13 dbj
768 1.38 mycroft nextdma_reset(esc->sc_dma);
769 1.38 mycroft nextdma_init(esc->sc_dma);
770 1.4 dbj
771 1.18 dbj esc->sc_datain = -1;
772 1.18 dbj esc->sc_dmaaddr = 0;
773 1.18 dbj esc->sc_dmalen = 0;
774 1.20 dbj esc->sc_dmasize = 0;
775 1.18 dbj
776 1.18 dbj esc->sc_loaded = 0;
777 1.18 dbj
778 1.18 dbj esc->sc_begin = 0;
779 1.18 dbj esc->sc_begin_size = 0;
780 1.13 dbj
781 1.18 dbj if (esc->sc_main_dmamap->dm_mapsize) {
782 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_main_dmamap);
783 1.13 dbj }
784 1.18 dbj esc->sc_main = 0;
785 1.18 dbj esc->sc_main_size = 0;
786 1.13 dbj
787 1.18 dbj if (esc->sc_tail_dmamap->dm_mapsize) {
788 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap);
789 1.18 dbj }
790 1.18 dbj esc->sc_tail = 0;
791 1.18 dbj esc->sc_tail_size = 0;
792 1.1 dbj }
793 1.1 dbj
794 1.19 dbj /* it appears that:
795 1.19 dbj * addr and len arguments to this need to be kept up to date
796 1.19 dbj * with the status of the transfter.
797 1.19 dbj * the dmasize of this is the actual length of the transfer
798 1.19 dbj * request, which is guaranteed to be less than maxxfer.
799 1.19 dbj * (len may be > maxxfer)
800 1.19 dbj */
801 1.19 dbj
802 1.1 dbj int
803 1.55 tsutsui esp_dma_setup(struct ncr53c9x_softc *sc, uint8_t **addr, size_t *len,
804 1.55 tsutsui int datain, size_t *dmasize)
805 1.1 dbj {
806 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
807 1.2 dbj
808 1.38 mycroft NDTRACEIF (*ndtracep++ = 'h');
809 1.11 dbj #ifdef DIAGNOSTIC
810 1.20 dbj #ifdef ESP_DEBUG
811 1.11 dbj /* if this is a read DMA, pre-fill the buffer with 0xdeadbeef
812 1.11 dbj * to identify bogus reads
813 1.11 dbj */
814 1.11 dbj if (datain) {
815 1.14 dbj int *v = (int *)(*addr);
816 1.11 dbj int i;
817 1.55 tsutsui for (i = 0; i < ((*len) / 4); i++)
818 1.55 tsutsui v[i] = 0xdeadbeef;
819 1.18 dbj v = (int *)(&(esc->sc_tailbuf[0]));
820 1.55 tsutsui for (i = 0; i < ((sizeof(esc->sc_tailbuf) / 4)); i++)
821 1.55 tsutsui v[i] = 0xdeafbeef;
822 1.23 dbj } else {
823 1.23 dbj int *v;
824 1.23 dbj int i;
825 1.23 dbj v = (int *)(&(esc->sc_tailbuf[0]));
826 1.55 tsutsui for (i = 0; i < ((sizeof(esc->sc_tailbuf) / 4)); i++)
827 1.55 tsutsui v[i] = 0xfeeb1eed;
828 1.11 dbj }
829 1.20 dbj #endif
830 1.11 dbj #endif
831 1.11 dbj
832 1.55 tsutsui DPRINTF(("esp_dma_setup(%p,0x%08x,0x%08x)\n", *addr, *len, *dmasize));
833 1.11 dbj
834 1.24 dbj #if 0
835 1.12 dbj #ifdef DIAGNOSTIC /* @@@ this is ok sometimes. verify that we handle it ok
836 1.37 christos * and then remove this check
837 1.37 christos */
838 1.14 dbj if (*len != *dmasize) {
839 1.55 tsutsui panic("esp dmalen 0x%lx != size 0x%lx", *len, *dmasize);
840 1.11 dbj }
841 1.11 dbj #endif
842 1.24 dbj #endif
843 1.4 dbj
844 1.2 dbj #ifdef DIAGNOSTIC
845 1.3 dbj if ((esc->sc_datain != -1) ||
846 1.55 tsutsui (esc->sc_main_dmamap->dm_mapsize != 0) ||
847 1.55 tsutsui (esc->sc_tail_dmamap->dm_mapsize != 0) ||
848 1.55 tsutsui (esc->sc_dmasize != 0)) {
849 1.40 provos panic("%s: map already loaded in esp_dma_setup"
850 1.55 tsutsui "\tdatain = %d\n\tmain_mapsize=%ld\n"
851 1.55 tsutsui "\tail_mapsize=%ld\n\tdmasize = %d",
852 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain,
853 1.55 tsutsui esc->sc_main_dmamap->dm_mapsize,
854 1.55 tsutsui esc->sc_tail_dmamap->dm_mapsize,
855 1.55 tsutsui esc->sc_dmasize);
856 1.2 dbj }
857 1.2 dbj #endif
858 1.2 dbj
859 1.44 wiz /* we are sometimes asked to DMA zero bytes, that's easy */
860 1.24 dbj if (*dmasize <= 0) {
861 1.55 tsutsui return 0;
862 1.20 dbj }
863 1.20 dbj
864 1.37 christos if (*dmasize > ESP_MAX_DMASIZE)
865 1.37 christos *dmasize = ESP_MAX_DMASIZE;
866 1.37 christos
867 1.14 dbj /* Save these in case we have to abort DMA */
868 1.14 dbj esc->sc_datain = datain;
869 1.14 dbj esc->sc_dmaaddr = addr;
870 1.14 dbj esc->sc_dmalen = len;
871 1.14 dbj esc->sc_dmasize = *dmasize;
872 1.14 dbj
873 1.18 dbj esc->sc_loaded = 0;
874 1.18 dbj
875 1.23 dbj #define DMA_SCSI_ALIGNMENT 16
876 1.23 dbj #define DMA_SCSI_ALIGN(type, addr) \
877 1.55 tsutsui ((type)(((unsigned int)(addr) + DMA_SCSI_ALIGNMENT - 1) \
878 1.23 dbj &~(DMA_SCSI_ALIGNMENT-1)))
879 1.23 dbj #define DMA_SCSI_ALIGNED(addr) \
880 1.55 tsutsui (((unsigned int)(addr) & (DMA_SCSI_ALIGNMENT - 1))==0)
881 1.23 dbj
882 1.2 dbj {
883 1.18 dbj size_t slop_bgn_size; /* # bytes to be fifo'd at beginning */
884 1.18 dbj size_t slop_end_size; /* # bytes to be transferred in tail buffer */
885 1.18 dbj
886 1.3 dbj {
887 1.13 dbj u_long bgn = (u_long)(*esc->sc_dmaaddr);
888 1.54 tsutsui u_long end = bgn + esc->sc_dmasize;
889 1.3 dbj
890 1.55 tsutsui slop_bgn_size =
891 1.55 tsutsui DMA_SCSI_ALIGNMENT - (bgn % DMA_SCSI_ALIGNMENT);
892 1.55 tsutsui if (slop_bgn_size == DMA_SCSI_ALIGNMENT)
893 1.55 tsutsui slop_bgn_size = 0;
894 1.55 tsutsui slop_end_size = end % DMA_ENDALIGNMENT;
895 1.3 dbj }
896 1.3 dbj
897 1.23 dbj /* Force a minimum slop end size. This ensures that write
898 1.55 tsutsui * requests will overrun, as required to get completion
899 1.55 tsutsui * interrupts.
900 1.23 dbj * In addition, since the tail buffer is guaranteed to be mapped
901 1.44 wiz * in a single DMA segment, the overrun won't accidentally
902 1.23 dbj * end up in its own segment.
903 1.23 dbj */
904 1.23 dbj if (!esc->sc_datain) {
905 1.24 dbj #if 0
906 1.23 dbj slop_end_size += ESP_DMA_MAXTAIL;
907 1.24 dbj #else
908 1.24 dbj slop_end_size += 0x10;
909 1.24 dbj #endif
910 1.23 dbj }
911 1.23 dbj
912 1.10 dbj /* Check to make sure we haven't counted extra slop
913 1.44 wiz * as would happen for a very short DMA buffer, also
914 1.14 dbj * for short buffers, just stuff the entire thing in the tail
915 1.14 dbj */
916 1.18 dbj if ((slop_bgn_size+slop_end_size >= esc->sc_dmasize)
917 1.20 dbj #if 0
918 1.55 tsutsui || (esc->sc_dmasize <= ESP_DMA_MAXTAIL)
919 1.18 dbj #endif
920 1.55 tsutsui ) {
921 1.14 dbj slop_bgn_size = 0;
922 1.14 dbj slop_end_size = esc->sc_dmasize;
923 1.18 dbj }
924 1.14 dbj
925 1.18 dbj /* initialize the fifo buffer */
926 1.18 dbj if (slop_bgn_size) {
927 1.18 dbj esc->sc_begin = *esc->sc_dmaaddr;
928 1.18 dbj esc->sc_begin_size = slop_bgn_size;
929 1.18 dbj } else {
930 1.18 dbj esc->sc_begin = 0;
931 1.18 dbj esc->sc_begin_size = 0;
932 1.18 dbj }
933 1.18 dbj
934 1.37 christos #if 01
935 1.18 dbj /* Load the normal DMA map */
936 1.18 dbj {
937 1.55 tsutsui esc->sc_main = *esc->sc_dmaaddr;
938 1.55 tsutsui esc->sc_main += slop_bgn_size;
939 1.55 tsutsui esc->sc_main_size =
940 1.55 tsutsui (esc->sc_dmasize) - (slop_end_size+slop_bgn_size);
941 1.18 dbj
942 1.18 dbj if (esc->sc_main_size) {
943 1.18 dbj int error;
944 1.37 christos
945 1.55 tsutsui if (!esc->sc_datain ||
946 1.55 tsutsui DMA_ENDALIGNED(esc->sc_main_size +
947 1.55 tsutsui slop_end_size)) {
948 1.55 tsutsui KASSERT(DMA_SCSI_ALIGNMENT ==
949 1.55 tsutsui DMA_ENDALIGNMENT);
950 1.55 tsutsui KASSERT(DMA_BEGINALIGNMENT ==
951 1.55 tsutsui DMA_ENDALIGNMENT);
952 1.37 christos esc->sc_main_size += slop_end_size;
953 1.37 christos slop_end_size = 0;
954 1.37 christos if (!esc->sc_datain) {
955 1.55 tsutsui esc->sc_main_size =
956 1.55 tsutsui DMA_ENDALIGN(uint8_t *,
957 1.55 tsutsui esc->sc_main +
958 1.55 tsutsui esc->sc_main_size) -
959 1.55 tsutsui esc->sc_main;
960 1.37 christos }
961 1.37 christos }
962 1.37 christos
963 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
964 1.55 tsutsui esc->sc_main_dmamap,
965 1.55 tsutsui esc->sc_main, esc->sc_main_size,
966 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
967 1.18 dbj if (error) {
968 1.34 dbj #ifdef ESP_DEBUG
969 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
970 1.55 tsutsui "_dm_size = %ld\n",
971 1.55 tsutsui device_xname(sc->sc_dev),
972 1.55 tsutsui esc->sc_main_dmamap->_dm_size);
973 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
974 1.55 tsutsui "_dm_segcnt = %d\n",
975 1.55 tsutsui device_xname(sc->sc_dev),
976 1.55 tsutsui esc->sc_main_dmamap->_dm_segcnt);
977 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
978 1.55 tsutsui "_dm_maxsegsz = %ld\n",
979 1.55 tsutsui device_xname(sc->sc_dev),
980 1.55 tsutsui esc->sc_main_dmamap->_dm_maxsegsz);
981 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
982 1.55 tsutsui "_dm_boundary = %ld\n",
983 1.55 tsutsui device_xname(sc->sc_dev),
984 1.55 tsutsui esc->sc_main_dmamap->_dm_boundary);
985 1.34 dbj esp_dma_print(sc);
986 1.34 dbj #endif
987 1.55 tsutsui panic("%s: can't load main DMA map."
988 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
989 1.55 tsutsui device_xname(sc->sc_dev),
990 1.55 tsutsui error, esc->sc_main,
991 1.55 tsutsui esc->sc_main_size);
992 1.18 dbj }
993 1.55 tsutsui if (!esc->sc_datain) {
994 1.55 tsutsui /*
995 1.55 tsutsui * patch the DMA map for write overrun
996 1.55 tsutsui */
997 1.55 tsutsui esc->sc_main_dmamap->dm_mapsize +=
998 1.55 tsutsui ESP_DMA_OVERRUN;
999 1.55 tsutsui esc->sc_main_dmamap->dm_segs[
1000 1.55 tsutsui esc->sc_main_dmamap->dm_nsegs -
1001 1.55 tsutsui 1].ds_len +=
1002 1.37 christos ESP_DMA_OVERRUN;
1003 1.37 christos }
1004 1.23 dbj #if 0
1005 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat,
1006 1.55 tsutsui esc->sc_main_dmamap,
1007 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1008 1.55 tsutsui (esc->sc_datain ? BUS_DMASYNC_PREREAD :
1009 1.55 tsutsui BUS_DMASYNC_PREWRITE));
1010 1.34 dbj esc->sc_main_dmamap->dm_xfer_len = 0;
1011 1.23 dbj #endif
1012 1.18 dbj } else {
1013 1.18 dbj esc->sc_main = 0;
1014 1.18 dbj }
1015 1.14 dbj }
1016 1.3 dbj
1017 1.18 dbj /* Load the tail DMA map */
1018 1.18 dbj if (slop_end_size) {
1019 1.55 tsutsui esc->sc_tail = DMA_ENDALIGN(uint8_t *,
1020 1.55 tsutsui esc->sc_tailbuf + slop_end_size) - slop_end_size;
1021 1.55 tsutsui /*
1022 1.55 tsutsui * If the beginning of the tail is not correctly
1023 1.55 tsutsui * aligned, we have no choice but to align the start,
1024 1.55 tsutsui * which might then unalign the end.
1025 1.55 tsutsui */
1026 1.55 tsutsui esc->sc_tail = DMA_SCSI_ALIGN(uint8_t *, esc->sc_tail);
1027 1.55 tsutsui /*
1028 1.55 tsutsui * So therefore, we change the tail size to be
1029 1.55 tsutsui * end aligned again.
1030 1.18 dbj */
1031 1.55 tsutsui esc->sc_tail_size = DMA_ENDALIGN(uint8_t *,
1032 1.55 tsutsui esc->sc_tail + slop_end_size) - esc->sc_tail;
1033 1.19 dbj
1034 1.44 wiz /* @@@ next DMA overrun lossage */
1035 1.20 dbj if (!esc->sc_datain) {
1036 1.21 dbj esc->sc_tail_size += ESP_DMA_OVERRUN;
1037 1.20 dbj }
1038 1.20 dbj
1039 1.18 dbj {
1040 1.18 dbj int error;
1041 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
1042 1.55 tsutsui esc->sc_tail_dmamap,
1043 1.55 tsutsui esc->sc_tail, esc->sc_tail_size,
1044 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
1045 1.18 dbj if (error) {
1046 1.55 tsutsui panic("%s: can't load tail DMA map."
1047 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
1048 1.55 tsutsui device_xname(sc->sc_dev), error,
1049 1.55 tsutsui esc->sc_tail,esc->sc_tail_size);
1050 1.18 dbj }
1051 1.23 dbj #if 0
1052 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat,
1053 1.55 tsutsui esc->sc_tail_dmamap, 0,
1054 1.55 tsutsui esc->sc_tail_dmamap->dm_mapsize,
1055 1.55 tsutsui (esc->sc_datain ? BUS_DMASYNC_PREREAD :
1056 1.55 tsutsui BUS_DMASYNC_PREWRITE));
1057 1.34 dbj esc->sc_tail_dmamap->dm_xfer_len = 0;
1058 1.23 dbj #endif
1059 1.3 dbj }
1060 1.3 dbj }
1061 1.37 christos #else
1062 1.37 christos
1063 1.37 christos esc->sc_begin = *esc->sc_dmaaddr;
1064 1.55 tsutsui slop_bgn_size = DMA_SCSI_ALIGNMENT -
1065 1.55 tsutsui ((u_long)esc->sc_begin % DMA_SCSI_ALIGNMENT);
1066 1.55 tsutsui if (slop_bgn_size == DMA_SCSI_ALIGNMENT)
1067 1.55 tsutsui slop_bgn_size = 0;
1068 1.37 christos slop_end_size = esc->sc_dmasize - slop_bgn_size;
1069 1.37 christos
1070 1.37 christos if (slop_bgn_size < esc->sc_dmasize) {
1071 1.37 christos int error;
1072 1.37 christos
1073 1.37 christos esc->sc_tail = 0;
1074 1.37 christos esc->sc_tail_size = 0;
1075 1.37 christos
1076 1.37 christos esc->sc_begin_size = slop_bgn_size;
1077 1.54 tsutsui esc->sc_main = *esc->sc_dmaaddr;
1078 1.54 tsutsui esc->sc_main += slop_bgn_size;
1079 1.55 tsutsui esc->sc_main_size = DMA_ENDALIGN(uint8_t *,
1080 1.55 tsutsui esc->sc_main + esc->sc_dmasize - slop_bgn_size) -
1081 1.55 tsutsui esc->sc_main;
1082 1.37 christos
1083 1.37 christos if (!esc->sc_datain) {
1084 1.37 christos esc->sc_main_size += ESP_DMA_OVERRUN;
1085 1.37 christos }
1086 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
1087 1.55 tsutsui esc->sc_main_dmamap,
1088 1.55 tsutsui esc->sc_main, esc->sc_main_size,
1089 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
1090 1.37 christos if (error) {
1091 1.55 tsutsui panic("%s: can't load main DMA map."
1092 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
1093 1.55 tsutsui device_xname(sc->sc_dev), error,
1094 1.55 tsutsui esc->sc_main,esc->sc_main_size);
1095 1.37 christos }
1096 1.37 christos } else {
1097 1.37 christos esc->sc_begin = 0;
1098 1.37 christos esc->sc_begin_size = 0;
1099 1.37 christos esc->sc_main = 0;
1100 1.37 christos esc->sc_main_size = 0;
1101 1.37 christos
1102 1.37 christos #if 0
1103 1.55 tsutsui esc->sc_tail = DMA_ENDALIGN(uint8_t *,
1104 1.55 tsutsui esc->sc_tailbuf + slop_bgn_size) - slop_bgn_size;
1105 1.55 tsutsui /*
1106 1.55 tsutsui * If the beginning of the tail is not correctly
1107 1.55 tsutsui * aligned, we have no choice but to align the start,
1108 1.55 tsutsui * which might then unalign the end.
1109 1.37 christos */
1110 1.37 christos #endif
1111 1.55 tsutsui esc->sc_tail = DMA_SCSI_ALIGN(void *, esc->sc_tailbuf);
1112 1.55 tsutsui /*
1113 1.55 tsutsui * So therefore, we change the tail size to be
1114 1.55 tsutsui * end aligned again.
1115 1.55 tsutsui */
1116 1.55 tsutsui esc->sc_tail_size = DMA_ENDALIGN(uint8_t *,
1117 1.55 tsutsui esc->sc_tail + esc->sc_dmasize) - esc->sc_tail;
1118 1.37 christos
1119 1.44 wiz /* @@@ next DMA overrun lossage */
1120 1.37 christos if (!esc->sc_datain) {
1121 1.37 christos esc->sc_tail_size += ESP_DMA_OVERRUN;
1122 1.37 christos }
1123 1.37 christos
1124 1.37 christos {
1125 1.37 christos int error;
1126 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
1127 1.55 tsutsui esc->sc_tail_dmamap,
1128 1.55 tsutsui esc->sc_tail, esc->sc_tail_size,
1129 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
1130 1.37 christos if (error) {
1131 1.55 tsutsui panic("%s: can't load tail DMA map."
1132 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
1133 1.55 tsutsui device_xname(sc->sc_dev), error,
1134 1.55 tsutsui esc->sc_tail, esc->sc_tail_size);
1135 1.37 christos }
1136 1.37 christos }
1137 1.37 christos }
1138 1.37 christos #endif
1139 1.37 christos
1140 1.55 tsutsui DPRINTF(("%s: setup: %8p %d %8p %d %8p %d %8p %d\n",
1141 1.55 tsutsui device_xname(sc->sc_dev),
1142 1.55 tsutsui *esc->sc_dmaaddr, esc->sc_dmasize,
1143 1.55 tsutsui esc->sc_begin, esc->sc_begin_size,
1144 1.55 tsutsui esc->sc_main, esc->sc_main_size,
1145 1.55 tsutsui esc->sc_tail, esc->sc_tail_size));
1146 1.2 dbj }
1147 1.2 dbj
1148 1.55 tsutsui return 0;
1149 1.1 dbj }
1150 1.1 dbj
1151 1.20 dbj #ifdef ESP_DEBUG
1152 1.20 dbj /* For debugging */
1153 1.1 dbj void
1154 1.49 chs esp_dma_store(struct ncr53c9x_softc *sc)
1155 1.1 dbj {
1156 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1157 1.20 dbj char *p = &esp_dma_dump[0];
1158 1.20 dbj
1159 1.55 tsutsui p += sprintf(p, "%s: sc_datain=%d\n",
1160 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain);
1161 1.55 tsutsui p += sprintf(p, "%s: sc_loaded=0x%08x\n",
1162 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_loaded);
1163 1.3 dbj
1164 1.20 dbj if (esc->sc_dmaaddr) {
1165 1.55 tsutsui p += sprintf(p, "%s: sc_dmaaddr=%p\n",
1166 1.55 tsutsui device_xname(sc->sc_dev), *esc->sc_dmaaddr);
1167 1.20 dbj } else {
1168 1.55 tsutsui p += sprintf(p, "%s: sc_dmaaddr=NULL\n",
1169 1.55 tsutsui device_xname(sc->sc_dev));
1170 1.20 dbj }
1171 1.20 dbj if (esc->sc_dmalen) {
1172 1.55 tsutsui p += sprintf(p, "%s: sc_dmalen=0x%08x\n",
1173 1.55 tsutsui device_xname(sc->sc_dev), *esc->sc_dmalen);
1174 1.20 dbj } else {
1175 1.55 tsutsui p += sprintf(p, "%s: sc_dmalen=NULL\n",
1176 1.55 tsutsui device_xname(sc->sc_dev));
1177 1.20 dbj }
1178 1.55 tsutsui p += sprintf(p, "%s: sc_dmasize=0x%08x\n",
1179 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_dmasize);
1180 1.19 dbj
1181 1.55 tsutsui p += sprintf(p, "%s: sc_begin = %p, sc_begin_size = 0x%08x\n",
1182 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_begin, esc->sc_begin_size);
1183 1.55 tsutsui p += sprintf(p, "%s: sc_main = %p, sc_main_size = 0x%08x\n",
1184 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_main, esc->sc_main_size);
1185 1.37 christos /* if (esc->sc_main) */ {
1186 1.19 dbj int i;
1187 1.19 dbj bus_dmamap_t map = esc->sc_main_dmamap;
1188 1.55 tsutsui p += sprintf(p, "%s: sc_main_dmamap."
1189 1.55 tsutsui " mapsize = 0x%08lx, nsegs = %d\n",
1190 1.55 tsutsui device_xname(sc->sc_dev), map->dm_mapsize, map->dm_nsegs);
1191 1.55 tsutsui for(i = 0; i < map->dm_nsegs; i++) {
1192 1.55 tsutsui p += sprintf(p, "%s:"
1193 1.55 tsutsui " map->dm_segs[%d].ds_addr = 0x%08lx,"
1194 1.55 tsutsui " len = 0x%08lx\n",
1195 1.55 tsutsui device_xname(sc->sc_dev),
1196 1.55 tsutsui i, map->dm_segs[i].ds_addr,
1197 1.55 tsutsui map->dm_segs[i].ds_len);
1198 1.19 dbj }
1199 1.19 dbj }
1200 1.55 tsutsui p += sprintf(p, "%s: sc_tail = %p, sc_tail_size = 0x%08x\n",
1201 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_tail, esc->sc_tail_size);
1202 1.37 christos /* if (esc->sc_tail) */ {
1203 1.19 dbj int i;
1204 1.19 dbj bus_dmamap_t map = esc->sc_tail_dmamap;
1205 1.55 tsutsui p += sprintf(p, "%s: sc_tail_dmamap."
1206 1.55 tsutsui " mapsize = 0x%08lx, nsegs = %d\n",
1207 1.55 tsutsui device_xname(sc->sc_dev), map->dm_mapsize, map->dm_nsegs);
1208 1.55 tsutsui for (i = 0; i < map->dm_nsegs; i++) {
1209 1.55 tsutsui p += sprintf(p, "%s:"
1210 1.55 tsutsui " map->dm_segs[%d].ds_addr = 0x%08lx,"
1211 1.55 tsutsui " len = 0x%08lx\n",
1212 1.55 tsutsui device_xname(sc->sc_dev),
1213 1.55 tsutsui i, map->dm_segs[i].ds_addr,
1214 1.55 tsutsui map->dm_segs[i].ds_len);
1215 1.19 dbj }
1216 1.19 dbj }
1217 1.20 dbj }
1218 1.20 dbj
1219 1.20 dbj void
1220 1.49 chs esp_dma_print(struct ncr53c9x_softc *sc)
1221 1.20 dbj {
1222 1.55 tsutsui
1223 1.20 dbj esp_dma_store(sc);
1224 1.55 tsutsui printf("%s", esp_dma_dump);
1225 1.20 dbj }
1226 1.20 dbj #endif
1227 1.20 dbj
1228 1.20 dbj void
1229 1.49 chs esp_dma_go(struct ncr53c9x_softc *sc)
1230 1.20 dbj {
1231 1.20 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1232 1.38 mycroft struct nextdma_softc *nsc = esc->sc_dma;
1233 1.38 mycroft struct nextdma_status *stat = &nsc->sc_stat;
1234 1.37 christos /* int s = spldma(); */
1235 1.37 christos
1236 1.38 mycroft #ifdef ESP_DEBUG
1237 1.38 mycroft if (ndtracep != ndtrace) {
1238 1.38 mycroft if (ndtraceshow) {
1239 1.38 mycroft *ndtracep = '\0';
1240 1.55 tsutsui printf("esp ndtrace: %s\n", ndtrace);
1241 1.38 mycroft ndtraceshow = 0;
1242 1.37 christos } else {
1243 1.55 tsutsui DPRINTF(("X"));
1244 1.37 christos }
1245 1.38 mycroft ndtracep = ndtrace;
1246 1.37 christos }
1247 1.38 mycroft #endif
1248 1.20 dbj
1249 1.20 dbj DPRINTF(("%s: esp_dma_go(datain = %d)\n",
1250 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain));
1251 1.20 dbj
1252 1.20 dbj #ifdef ESP_DEBUG
1253 1.55 tsutsui if (esp_debug)
1254 1.55 tsutsui esp_dma_print(sc);
1255 1.55 tsutsui else
1256 1.55 tsutsui esp_dma_store(sc);
1257 1.19 dbj #endif
1258 1.4 dbj
1259 1.20 dbj #ifdef ESP_DEBUG
1260 1.11 dbj {
1261 1.11 dbj int n = NCR_READ_REG(sc, NCR_FFLAG);
1262 1.20 dbj DPRINTF(("%s: fifo size = %d, seq = 0x%x\n",
1263 1.55 tsutsui device_xname(sc->sc_dev),
1264 1.55 tsutsui n & NCRFIFO_FF, (n & NCRFIFO_SS) >> 5));
1265 1.4 dbj }
1266 1.11 dbj #endif
1267 1.4 dbj
1268 1.44 wiz /* zero length DMA transfers are boring */
1269 1.20 dbj if (esc->sc_dmasize == 0) {
1270 1.37 christos /* splx(s); */
1271 1.20 dbj return;
1272 1.20 dbj }
1273 1.20 dbj
1274 1.18 dbj #if defined(DIAGNOSTIC)
1275 1.55 tsutsui if ((esc->sc_begin_size == 0) &&
1276 1.55 tsutsui (esc->sc_main_dmamap->dm_mapsize == 0) &&
1277 1.55 tsutsui (esc->sc_tail_dmamap->dm_mapsize == 0)) {
1278 1.38 mycroft #ifdef ESP_DEBUG
1279 1.20 dbj esp_dma_print(sc);
1280 1.38 mycroft #endif
1281 1.55 tsutsui panic("%s: No DMA requested!", device_xname(sc->sc_dev));
1282 1.18 dbj }
1283 1.18 dbj #endif
1284 1.18 dbj
1285 1.18 dbj /* Stuff the fifo with the begin buffer */
1286 1.18 dbj if (esc->sc_datain) {
1287 1.4 dbj int i;
1288 1.23 dbj DPRINTF(("%s: FIFO read of %d bytes:",
1289 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_begin_size));
1290 1.55 tsutsui for (i = 0; i < esc->sc_begin_size; i++) {
1291 1.55 tsutsui esc->sc_begin[i] = NCR_READ_REG(sc, NCR_FIFO);
1292 1.55 tsutsui DPRINTF((" %02x", esc->sc_begin[i] & 0xff));
1293 1.4 dbj }
1294 1.23 dbj DPRINTF(("\n"));
1295 1.4 dbj } else {
1296 1.4 dbj int i;
1297 1.23 dbj DPRINTF(("%s: FIFO write of %d bytes:",
1298 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_begin_size));
1299 1.55 tsutsui for (i = 0; i < esc->sc_begin_size; i++) {
1300 1.18 dbj NCR_WRITE_REG(sc, NCR_FIFO, esc->sc_begin[i]);
1301 1.55 tsutsui DPRINTF((" %02x",esc->sc_begin[i] & 0xff));
1302 1.4 dbj }
1303 1.23 dbj DPRINTF(("\n"));
1304 1.11 dbj }
1305 1.4 dbj
1306 1.23 dbj if (esc->sc_main_dmamap->dm_mapsize) {
1307 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_main_dmamap,
1308 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1309 1.55 tsutsui (esc->sc_datain ?
1310 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1311 1.34 dbj esc->sc_main_dmamap->dm_xfer_len = 0;
1312 1.23 dbj }
1313 1.23 dbj
1314 1.23 dbj if (esc->sc_tail_dmamap->dm_mapsize) {
1315 1.44 wiz /* if we are a DMA write cycle, copy the end slop */
1316 1.37 christos if (!esc->sc_datain) {
1317 1.55 tsutsui memcpy(esc->sc_tail, *esc->sc_dmaaddr +
1318 1.55 tsutsui esc->sc_begin_size+esc->sc_main_size,
1319 1.55 tsutsui esc->sc_dmasize -
1320 1.55 tsutsui (esc->sc_begin_size + esc->sc_main_size));
1321 1.37 christos }
1322 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap,
1323 1.55 tsutsui 0, esc->sc_tail_dmamap->dm_mapsize,
1324 1.55 tsutsui (esc->sc_datain ?
1325 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1326 1.34 dbj esc->sc_tail_dmamap->dm_xfer_len = 0;
1327 1.23 dbj }
1328 1.23 dbj
1329 1.38 mycroft stat->nd_exception = 0;
1330 1.38 mycroft nextdma_start(nsc, (esc->sc_datain ? DMACSR_SETREAD : DMACSR_SETWRITE));
1331 1.12 dbj
1332 1.14 dbj if (esc->sc_datain) {
1333 1.14 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1334 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMAMOD |
1335 1.55 tsutsui ESPDCTL_DMARD);
1336 1.3 dbj } else {
1337 1.14 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1338 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMAMOD);
1339 1.3 dbj }
1340 1.22 dbj DPRINTF(("esp dctl is 0x%02x\n",NCR_READ_REG(sc,ESP_DCTL)));
1341 1.37 christos
1342 1.55 tsutsui NDTRACEIF(
1343 1.55 tsutsui if (esc->sc_begin_size) {
1344 1.55 tsutsui *ndtracep++ = '1';
1345 1.55 tsutsui *ndtracep++ = 'A' + esc->sc_begin_size;
1346 1.55 tsutsui }
1347 1.55 tsutsui );
1348 1.55 tsutsui NDTRACEIF(
1349 1.55 tsutsui if (esc->sc_main_size) {
1350 1.55 tsutsui *ndtracep++ = '2';
1351 1.55 tsutsui *ndtracep++ = '0' + esc->sc_main_dmamap->dm_nsegs;
1352 1.55 tsutsui }
1353 1.55 tsutsui );
1354 1.55 tsutsui NDTRACEIF(
1355 1.55 tsutsui if (esc->sc_tail_size) {
1356 1.55 tsutsui *ndtracep++ = '3';
1357 1.55 tsutsui *ndtracep++ = 'A' + esc->sc_tail_size;
1358 1.55 tsutsui }
1359 1.55 tsutsui );
1360 1.37 christos
1361 1.37 christos /* splx(s); */
1362 1.1 dbj }
1363 1.1 dbj
1364 1.1 dbj void
1365 1.49 chs esp_dma_stop(struct ncr53c9x_softc *sc)
1366 1.1 dbj {
1367 1.34 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1368 1.55 tsutsui
1369 1.38 mycroft nextdma_print(esc->sc_dma);
1370 1.38 mycroft #ifdef ESP_DEBUG
1371 1.34 dbj esp_dma_print(sc);
1372 1.38 mycroft #endif
1373 1.37 christos #if 1
1374 1.55 tsutsui panic("%s: stop not yet implemented", device_xname(sc->sc_dev));
1375 1.37 christos #endif
1376 1.1 dbj }
1377 1.1 dbj
1378 1.1 dbj int
1379 1.49 chs esp_dma_isactive(struct ncr53c9x_softc *sc)
1380 1.1 dbj {
1381 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1382 1.55 tsutsui int r;
1383 1.55 tsutsui
1384 1.55 tsutsui r = (esc->sc_dmaaddr != NULL); /* !nextdma_finished(esc->sc_dma); */
1385 1.11 dbj DPRINTF(("esp_dma_isactive = %d\n",r));
1386 1.55 tsutsui return r;
1387 1.2 dbj }
1388 1.2 dbj
1389 1.2 dbj /****************************************************************/
1390 1.2 dbj
1391 1.49 chs int esp_dma_int(void *);
1392 1.49 chs int esp_dma_int(void *arg)
1393 1.37 christos {
1394 1.49 chs void nextdma_rotate(struct nextdma_softc *);
1395 1.49 chs void nextdma_setup_curr_regs(struct nextdma_softc *);
1396 1.49 chs void nextdma_setup_cont_regs(struct nextdma_softc *);
1397 1.37 christos
1398 1.37 christos struct ncr53c9x_softc *sc = (struct ncr53c9x_softc *)arg;
1399 1.37 christos struct esp_softc *esc = (struct esp_softc *)sc;
1400 1.38 mycroft struct nextdma_softc *nsc = esc->sc_dma;
1401 1.38 mycroft struct nextdma_status *stat = &nsc->sc_stat;
1402 1.37 christos unsigned int state;
1403 1.37 christos
1404 1.38 mycroft NDTRACEIF (*ndtracep++ = 'E');
1405 1.37 christos
1406 1.38 mycroft state = nd_bsr4 (DD_CSR);
1407 1.37 christos
1408 1.37 christos #if 1
1409 1.38 mycroft NDTRACEIF (
1410 1.55 tsutsui if (state & DMACSR_COMPLETE)
1411 1.55 tsutsui *ndtracep++ = 'c';
1412 1.55 tsutsui if (state & DMACSR_ENABLE)
1413 1.55 tsutsui *ndtracep++ = 'e';
1414 1.55 tsutsui if (state & DMACSR_BUSEXC)
1415 1.55 tsutsui *ndtracep++ = 'b';
1416 1.55 tsutsui if (state & DMACSR_READ)
1417 1.55 tsutsui *ndtracep++ = 'r';
1418 1.55 tsutsui if (state & DMACSR_SUPDATE)
1419 1.55 tsutsui *ndtracep++ = 's';
1420 1.38 mycroft );
1421 1.37 christos
1422 1.38 mycroft NDTRACEIF (*ndtracep++ = 'E');
1423 1.37 christos
1424 1.38 mycroft #ifdef ESP_DEBUG
1425 1.55 tsutsui if (0)
1426 1.55 tsutsui if ((state & DMACSR_BUSEXC) && (state & DMACSR_ENABLE))
1427 1.55 tsutsui ndtraceshow++;
1428 1.55 tsutsui if (0)
1429 1.55 tsutsui if ((state & DMACSR_SUPDATE))
1430 1.55 tsutsui ndtraceshow++;
1431 1.38 mycroft #endif
1432 1.37 christos #endif
1433 1.37 christos
1434 1.55 tsutsui if ((stat->nd_exception == 0) &&
1435 1.55 tsutsui (state & DMACSR_COMPLETE) &&
1436 1.55 tsutsui (state & DMACSR_ENABLE)) {
1437 1.55 tsutsui stat->nd_map->dm_xfer_len +=
1438 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len;
1439 1.38 mycroft }
1440 1.37 christos
1441 1.55 tsutsui if ((stat->nd_idx + 1) == stat->nd_map->dm_nsegs) {
1442 1.38 mycroft if (nsc->sc_conf.nd_completed_cb)
1443 1.55 tsutsui (*nsc->sc_conf.nd_completed_cb)(stat->nd_map,
1444 1.55 tsutsui nsc->sc_conf.nd_cb_arg);
1445 1.37 christos }
1446 1.38 mycroft nextdma_rotate(nsc);
1447 1.37 christos
1448 1.37 christos if ((state & DMACSR_COMPLETE) && (state & DMACSR_ENABLE)) {
1449 1.37 christos #if 0
1450 1.38 mycroft int l = nd_bsr4 (DD_LIMIT) & 0x7FFFFFFF;
1451 1.38 mycroft int s = nd_bsr4 (DD_STOP);
1452 1.37 christos #endif
1453 1.38 mycroft /* nextdma_setup_cont_regs(nsc); */
1454 1.38 mycroft if (stat->nd_map_cont) {
1455 1.55 tsutsui nd_bsw4(DD_START, stat->nd_map_cont->dm_segs[
1456 1.55 tsutsui stat->nd_idx_cont].ds_addr);
1457 1.55 tsutsui nd_bsw4(DD_STOP, (stat->nd_map_cont->dm_segs[
1458 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1459 1.55 tsutsui stat->nd_map_cont->dm_segs[
1460 1.55 tsutsui stat->nd_idx_cont].ds_len));
1461 1.37 christos }
1462 1.37 christos
1463 1.55 tsutsui nd_bsw4 (DD_CSR, DMACSR_CLRCOMPLETE |
1464 1.55 tsutsui (state & DMACSR_READ ? DMACSR_SETREAD : DMACSR_SETWRITE) |
1465 1.55 tsutsui (stat->nd_map_cont ? DMACSR_SETSUPDATE : 0));
1466 1.37 christos
1467 1.37 christos #if 0
1468 1.38 mycroft #ifdef ESP_DEBUG
1469 1.37 christos if (state & DMACSR_BUSEXC) {
1470 1.55 tsutsui sprintf(ndtracep, "CE/BUSEXC: %08lX %08X %08X\n",
1471 1.55 tsutsui (stat->nd_map->dm_segs[stat->nd_idx].ds_addr +
1472 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len),
1473 1.55 tsutsui l, s);
1474 1.55 tsutsui ndtracep += strlen(ndtracep);
1475 1.37 christos }
1476 1.37 christos #endif
1477 1.38 mycroft #endif
1478 1.37 christos } else {
1479 1.37 christos #if 0
1480 1.37 christos if (state & DMACSR_BUSEXC) {
1481 1.55 tsutsui while (nd_bsr4(DD_NEXT) !=
1482 1.55 tsutsui (nd_bsr4(DD_LIMIT) & 0x7FFFFFFF))
1483 1.55 tsutsui printf("Y"); /* DELAY(50); */
1484 1.55 tsutsui state = nd_bsr4(DD_CSR);
1485 1.37 christos }
1486 1.37 christos #endif
1487 1.37 christos
1488 1.37 christos if (!(state & DMACSR_SUPDATE)) {
1489 1.38 mycroft nextdma_rotate(nsc);
1490 1.37 christos } else {
1491 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE |
1492 1.55 tsutsui DMACSR_INITBUF | DMACSR_RESET |
1493 1.55 tsutsui (state & DMACSR_READ ?
1494 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE));
1495 1.55 tsutsui
1496 1.55 tsutsui nd_bsw4(DD_NEXT,
1497 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_addr);
1498 1.55 tsutsui nd_bsw4(DD_LIMIT,
1499 1.55 tsutsui (stat->nd_map->dm_segs[stat->nd_idx].ds_addr +
1500 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len) |
1501 1.55 tsutsui 0/* x80000000 */);
1502 1.38 mycroft if (stat->nd_map_cont) {
1503 1.55 tsutsui nd_bsw4(DD_START,
1504 1.55 tsutsui stat->nd_map_cont->dm_segs[
1505 1.55 tsutsui stat->nd_idx_cont].ds_addr);
1506 1.55 tsutsui nd_bsw4(DD_STOP,
1507 1.55 tsutsui (stat->nd_map_cont->dm_segs[
1508 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1509 1.55 tsutsui stat->nd_map_cont->dm_segs[
1510 1.55 tsutsui stat->nd_idx_cont].ds_len) |
1511 1.55 tsutsui 0/* x80000000 */);
1512 1.37 christos }
1513 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_SETENABLE | DMACSR_CLRCOMPLETE |
1514 1.55 tsutsui (state & DMACSR_READ ?
1515 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE) |
1516 1.55 tsutsui (stat->nd_map_cont ? DMACSR_SETSUPDATE : 0));
1517 1.37 christos #if 1
1518 1.38 mycroft #ifdef ESP_DEBUG
1519 1.55 tsutsui sprintf(ndtracep, "supdate ");
1520 1.55 tsutsui ndtracep += strlen(ndtracep);
1521 1.55 tsutsui sprintf(ndtracep, "%08X %08X %08X %08X ",
1522 1.55 tsutsui nd_bsr4(DD_NEXT),
1523 1.55 tsutsui nd_bsr4(DD_LIMIT) & 0x7FFFFFFF,
1524 1.55 tsutsui nd_bsr4 (DD_START),
1525 1.55 tsutsui nd_bsr4 (DD_STOP) & 0x7FFFFFFF);
1526 1.55 tsutsui ndtracep += strlen(ndtracep);
1527 1.38 mycroft #endif
1528 1.37 christos #endif
1529 1.38 mycroft stat->nd_exception++;
1530 1.55 tsutsui return 1;
1531 1.37 christos /* NCR_WRITE_REG(sc, ESP_DCTL, ctl); */
1532 1.37 christos goto restart;
1533 1.37 christos }
1534 1.37 christos
1535 1.38 mycroft if (stat->nd_map) {
1536 1.37 christos #if 1
1537 1.38 mycroft #ifdef ESP_DEBUG
1538 1.55 tsutsui sprintf(ndtracep, "%08X %08X %08X %08X ",
1539 1.55 tsutsui nd_bsr4 (DD_NEXT),
1540 1.55 tsutsui nd_bsr4 (DD_LIMIT) & 0x7FFFFFFF,
1541 1.55 tsutsui nd_bsr4 (DD_START),
1542 1.55 tsutsui nd_bsr4 (DD_STOP) & 0x7FFFFFFF);
1543 1.55 tsutsui ndtracep += strlen(ndtracep);
1544 1.38 mycroft #endif
1545 1.37 christos #endif
1546 1.37 christos
1547 1.37 christos #if 0
1548 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE | DMACSR_RESET);
1549 1.37 christos
1550 1.55 tsutsui nd_bsw4(DD_CSR, 0);
1551 1.37 christos #endif
1552 1.37 christos #if 1
1553 1.37 christos /* 6/2 */
1554 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE |
1555 1.55 tsutsui DMACSR_INITBUF | DMACSR_RESET |
1556 1.55 tsutsui (state & DMACSR_READ ?
1557 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE));
1558 1.37 christos
1559 1.55 tsutsui /* nextdma_setup_curr_regs(nsc); */
1560 1.55 tsutsui nd_bsw4(DD_NEXT,
1561 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_addr);
1562 1.55 tsutsui nd_bsw4(DD_LIMIT,
1563 1.55 tsutsui (stat->nd_map->dm_segs[stat->nd_idx].ds_addr +
1564 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len) |
1565 1.55 tsutsui 0/* x80000000 */);
1566 1.55 tsutsui /* nextdma_setup_cont_regs(nsc); */
1567 1.38 mycroft if (stat->nd_map_cont) {
1568 1.55 tsutsui nd_bsw4(DD_START,
1569 1.55 tsutsui stat->nd_map_cont->dm_segs[
1570 1.55 tsutsui stat->nd_idx_cont].ds_addr);
1571 1.55 tsutsui nd_bsw4(DD_STOP,
1572 1.55 tsutsui (stat->nd_map_cont->dm_segs[
1573 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1574 1.55 tsutsui stat->nd_map_cont->dm_segs[
1575 1.55 tsutsui stat->nd_idx_cont].ds_len) |
1576 1.55 tsutsui 0/* x80000000 */);
1577 1.37 christos }
1578 1.37 christos
1579 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_SETENABLE |
1580 1.55 tsutsui (stat->nd_map_cont ? DMACSR_SETSUPDATE : 0) |
1581 1.55 tsutsui (state & DMACSR_READ ?
1582 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE));
1583 1.38 mycroft #ifdef ESP_DEBUG
1584 1.38 mycroft /* ndtraceshow++; */
1585 1.38 mycroft #endif
1586 1.38 mycroft stat->nd_exception++;
1587 1.55 tsutsui return 1;
1588 1.37 christos #endif
1589 1.37 christos /* NCR_WRITE_REG(sc, ESP_DCTL, ctl); */
1590 1.37 christos goto restart;
1591 1.37 christos restart:
1592 1.37 christos #if 1
1593 1.38 mycroft #ifdef ESP_DEBUG
1594 1.55 tsutsui sprintf(ndtracep, "restart %08lX %08lX\n",
1595 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_addr,
1596 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_addr +
1597 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len);
1598 1.38 mycroft if (stat->nd_map_cont) {
1599 1.55 tsutsui sprintf(ndtracep + strlen(ndtracep) - 1,
1600 1.55 tsutsui " %08lX %08lX\n",
1601 1.55 tsutsui stat->nd_map_cont->dm_segs[
1602 1.55 tsutsui stat->nd_idx_cont].ds_addr,
1603 1.55 tsutsui stat->nd_map_cont->dm_segs[
1604 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1605 1.55 tsutsui stat->nd_map_cont->dm_segs[
1606 1.55 tsutsui stat->nd_idx_cont].ds_len);
1607 1.37 christos }
1608 1.55 tsutsui ndtracep += strlen(ndtracep);
1609 1.38 mycroft #endif
1610 1.37 christos #endif
1611 1.38 mycroft nextdma_print(nsc);
1612 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
1613 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
1614 1.55 tsutsui printf("ff:%02x tcm:%d tcl:%d esp_dstat:%02x"
1615 1.55 tsutsui " state:%02x step: %02x intr:%02x state:%08X\n",
1616 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG),
1617 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
1618 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL),
1619 1.55 tsutsui NCR_READ_REG(sc, ESP_DSTAT),
1620 1.55 tsutsui NCR_READ_REG(sc, NCR_STAT),
1621 1.55 tsutsui NCR_READ_REG(sc, NCR_STEP),
1622 1.55 tsutsui NCR_READ_REG(sc, NCR_INTR), state);
1623 1.38 mycroft #ifdef ESP_DEBUG
1624 1.38 mycroft *ndtracep = '\0';
1625 1.55 tsutsui printf("ndtrace: %s\n", ndtrace);
1626 1.38 mycroft #endif
1627 1.55 tsutsui panic("%s: busexc/supdate occurred."
1628 1.55 tsutsui " Please email this output to chris (at) pin.lu.",
1629 1.55 tsutsui device_xname(sc->sc_dev));
1630 1.38 mycroft #ifdef ESP_DEBUG
1631 1.38 mycroft ndtraceshow++;
1632 1.38 mycroft #endif
1633 1.37 christos } else {
1634 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE | DMACSR_RESET);
1635 1.38 mycroft if (nsc->sc_conf.nd_shutdown_cb)
1636 1.38 mycroft (*nsc->sc_conf.nd_shutdown_cb)(nsc->sc_conf.nd_cb_arg);
1637 1.37 christos }
1638 1.37 christos }
1639 1.55 tsutsui return 1;
1640 1.37 christos }
1641 1.37 christos
1642 1.44 wiz /* Internal DMA callback routines */
1643 1.2 dbj bus_dmamap_t
1644 1.49 chs esp_dmacb_continue(void *arg)
1645 1.2 dbj {
1646 1.55 tsutsui struct ncr53c9x_softc *sc = arg;
1647 1.2 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1648 1.2 dbj
1649 1.38 mycroft NDTRACEIF (*ndtracep++ = 'x');
1650 1.44 wiz DPRINTF(("%s: DMA continue\n",sc->sc_dev.dv_xname));
1651 1.4 dbj
1652 1.2 dbj #ifdef DIAGNOSTIC
1653 1.2 dbj if ((esc->sc_datain < 0) || (esc->sc_datain > 1)) {
1654 1.55 tsutsui panic("%s: map not loaded in DMA continue callback,"
1655 1.55 tsutsui " datain = %d",
1656 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain);
1657 1.2 dbj }
1658 1.2 dbj #endif
1659 1.18 dbj
1660 1.55 tsutsui if (((esc->sc_loaded & ESP_LOADED_MAIN) == 0) &&
1661 1.55 tsutsui (esc->sc_main_dmamap->dm_mapsize)) {
1662 1.55 tsutsui DPRINTF(("%s: Loading main map\n", device_xname(sc->sc_dev)));
1663 1.19 dbj #if 0
1664 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_main_dmamap,
1665 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1666 1.55 tsutsui (esc->sc_datain ?
1667 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1668 1.55 tsutsui esc->sc_main_dmamap->dm_xfer_len = 0;
1669 1.55 tsutsui #endif
1670 1.55 tsutsui esc->sc_loaded |= ESP_LOADED_MAIN;
1671 1.55 tsutsui return esc->sc_main_dmamap;
1672 1.18 dbj }
1673 1.18 dbj
1674 1.55 tsutsui if (((esc->sc_loaded & ESP_LOADED_TAIL) == 0) &&
1675 1.55 tsutsui (esc->sc_tail_dmamap->dm_mapsize)) {
1676 1.55 tsutsui DPRINTF(("%s: Loading tail map\n", device_xname(sc->sc_dev)));
1677 1.19 dbj #if 0
1678 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap,
1679 1.55 tsutsui 0, esc->sc_tail_dmamap->dm_mapsize,
1680 1.55 tsutsui (esc->sc_datain ?
1681 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1682 1.55 tsutsui esc->sc_tail_dmamap->dm_xfer_len = 0;
1683 1.19 dbj #endif
1684 1.55 tsutsui esc->sc_loaded |= ESP_LOADED_TAIL;
1685 1.55 tsutsui return esc->sc_tail_dmamap;
1686 1.10 dbj }
1687 1.18 dbj
1688 1.55 tsutsui DPRINTF(("%s: not loading map\n", device_xname(sc->sc_dev)));
1689 1.55 tsutsui return 0;
1690 1.2 dbj }
1691 1.2 dbj
1692 1.14 dbj
1693 1.2 dbj void
1694 1.49 chs esp_dmacb_completed(bus_dmamap_t map, void *arg)
1695 1.2 dbj {
1696 1.2 dbj struct ncr53c9x_softc *sc = (struct ncr53c9x_softc *)arg;
1697 1.2 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1698 1.2 dbj
1699 1.38 mycroft NDTRACEIF (*ndtracep++ = 'X');
1700 1.55 tsutsui DPRINTF(("%s: DMA completed\n", device_xname(sc->sc_dev)));
1701 1.4 dbj
1702 1.2 dbj #ifdef DIAGNOSTIC
1703 1.14 dbj if ((esc->sc_datain < 0) || (esc->sc_datain > 1)) {
1704 1.55 tsutsui panic("%s: invalid DMA direction in completed callback,"
1705 1.55 tsutsui " datain = %d",
1706 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain);
1707 1.32 dbj }
1708 1.32 dbj #endif
1709 1.32 dbj
1710 1.34 dbj #if defined(DIAGNOSTIC) && 0
1711 1.32 dbj {
1712 1.32 dbj int i;
1713 1.55 tsutsui for(i = 0; i < map->dm_nsegs; i++) {
1714 1.33 dbj if (map->dm_xfer_len != map->dm_mapsize) {
1715 1.55 tsutsui printf("%s: map->dm_mapsize = %d\n",
1716 1.55 tsutsui device_xname(sc->sc_dev), map->dm_mapsize);
1717 1.55 tsutsui printf("%s: map->dm_nsegs = %d\n",
1718 1.55 tsutsui device_xname(sc->sc_dev), map->dm_nsegs);
1719 1.55 tsutsui printf("%s: map->dm_xfer_len = %d\n",
1720 1.55 tsutsui device_xname(sc->sc_dev), map->dm_xfer_len);
1721 1.55 tsutsui for(i = 0; i < map->dm_nsegs; i++) {
1722 1.55 tsutsui printf("%s: map->dm_segs[%d].ds_addr ="
1723 1.55 tsutsui " 0x%08lx\n",
1724 1.55 tsutsui device_xname(sc->sc_dev), i,
1725 1.55 tsutsui map->dm_segs[i].ds_addr);
1726 1.55 tsutsui printf("%s: map->dm_segs[%d].ds_len ="
1727 1.55 tsutsui " %d\n",
1728 1.55 tsutsui device_xname(sc->sc_dev), i,
1729 1.55 tsutsui map->dm_segs[i].ds_len);
1730 1.32 dbj }
1731 1.55 tsutsui panic("%s: incomplete DMA transfer",
1732 1.55 tsutsui device_xname(sc->sc_dev));
1733 1.32 dbj }
1734 1.32 dbj }
1735 1.2 dbj }
1736 1.23 dbj #endif
1737 1.23 dbj
1738 1.23 dbj if (map == esc->sc_main_dmamap) {
1739 1.23 dbj #ifdef DIAGNOSTIC
1740 1.23 dbj if ((esc->sc_loaded & ESP_UNLOADED_MAIN) ||
1741 1.55 tsutsui (esc->sc_loaded & ESP_LOADED_MAIN) == 0) {
1742 1.55 tsutsui panic("%s: unexpected completed call for main map",
1743 1.55 tsutsui device_xname(sc->sc_dev));
1744 1.23 dbj }
1745 1.23 dbj #endif
1746 1.23 dbj esc->sc_loaded |= ESP_UNLOADED_MAIN;
1747 1.23 dbj } else if (map == esc->sc_tail_dmamap) {
1748 1.23 dbj #ifdef DIAGNOSTIC
1749 1.23 dbj if ((esc->sc_loaded & ESP_UNLOADED_TAIL) ||
1750 1.55 tsutsui (esc->sc_loaded & ESP_LOADED_TAIL) == 0) {
1751 1.55 tsutsui panic("%s: unexpected completed call for tail map",
1752 1.55 tsutsui device_xname(sc->sc_dev));
1753 1.23 dbj }
1754 1.23 dbj #endif
1755 1.23 dbj esc->sc_loaded |= ESP_UNLOADED_TAIL;
1756 1.23 dbj }
1757 1.23 dbj #ifdef DIAGNOSTIC
1758 1.23 dbj else {
1759 1.55 tsutsui panic("%s: unexpected completed map", device_xname(sc->sc_dev));
1760 1.2 dbj }
1761 1.2 dbj #endif
1762 1.2 dbj
1763 1.23 dbj #ifdef ESP_DEBUG
1764 1.23 dbj if (esp_debug) {
1765 1.23 dbj if (map == esc->sc_main_dmamap) {
1766 1.55 tsutsui printf("%s: completed main map\n",
1767 1.55 tsutsui device_xname(sc->sc_dev));
1768 1.23 dbj } else if (map == esc->sc_tail_dmamap) {
1769 1.55 tsutsui printf("%s: completed tail map\n",
1770 1.55 tsutsui device_xname(sc->sc_dev));
1771 1.23 dbj }
1772 1.23 dbj }
1773 1.23 dbj #endif
1774 1.22 dbj
1775 1.22 dbj #if 0
1776 1.22 dbj if ((map == esc->sc_tail_dmamap) ||
1777 1.55 tsutsui ((esc->sc_tail_size == 0) && (map == esc->sc_main_dmamap))) {
1778 1.22 dbj
1779 1.55 tsutsui /*
1780 1.55 tsutsui * Clear the DMAMOD bit in the DCTL register to give control
1781 1.22 dbj * back to the scsi chip.
1782 1.22 dbj */
1783 1.22 dbj if (esc->sc_datain) {
1784 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1785 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMARD);
1786 1.22 dbj } else {
1787 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1788 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
1789 1.22 dbj }
1790 1.55 tsutsui DPRINTF(("esp dctl is 0x%02x\n", NCR_READ_REG(sc, ESP_DCTL)));
1791 1.22 dbj }
1792 1.22 dbj #endif
1793 1.22 dbj
1794 1.22 dbj
1795 1.19 dbj #if 0
1796 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, map,
1797 1.55 tsutsui 0, map->dm_mapsize,
1798 1.55 tsutsui (esc->sc_datain ? BUS_DMASYNC_POSTREAD : BUS_DMASYNC_POSTWRITE));
1799 1.19 dbj #endif
1800 1.13 dbj
1801 1.2 dbj }
1802 1.2 dbj
1803 1.2 dbj void
1804 1.49 chs esp_dmacb_shutdown(void *arg)
1805 1.2 dbj {
1806 1.2 dbj struct ncr53c9x_softc *sc = (struct ncr53c9x_softc *)arg;
1807 1.2 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1808 1.2 dbj
1809 1.38 mycroft NDTRACEIF (*ndtracep++ = 'S');
1810 1.55 tsutsui DPRINTF(("%s: DMA shutdown\n", device_xname(sc->sc_dev)));
1811 1.4 dbj
1812 1.37 christos if (esc->sc_loaded == 0)
1813 1.37 christos return;
1814 1.37 christos
1815 1.22 dbj #if 0
1816 1.22 dbj {
1817 1.22 dbj /* Clear the DMAMOD bit in the DCTL register to give control
1818 1.22 dbj * back to the scsi chip.
1819 1.22 dbj */
1820 1.22 dbj if (esc->sc_datain) {
1821 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1822 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMARD);
1823 1.22 dbj } else {
1824 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1825 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
1826 1.22 dbj }
1827 1.55 tsutsui DPRINTF(("esp dctl is 0x%02x\n", NCR_READ_REG(sc, ESP_DCTL)));
1828 1.22 dbj }
1829 1.22 dbj #endif
1830 1.22 dbj
1831 1.55 tsutsui DPRINTF(("%s: esp_dma_nest == %d\n",
1832 1.55 tsutsui device_xname(sc->sc_dev), esp_dma_nest));
1833 1.22 dbj
1834 1.13 dbj /* Stuff the end slop into fifo */
1835 1.3 dbj
1836 1.14 dbj #ifdef ESP_DEBUG
1837 1.14 dbj if (esp_debug) {
1838 1.13 dbj int n = NCR_READ_REG(sc, NCR_FFLAG);
1839 1.55 tsutsui
1840 1.20 dbj DPRINTF(("%s: fifo size = %d, seq = 0x%x\n",
1841 1.55 tsutsui device_xname(sc->sc_dev), n & NCRFIFO_FF,
1842 1.55 tsutsui (n & NCRFIFO_SS) >> 5));
1843 1.13 dbj }
1844 1.13 dbj #endif
1845 1.12 dbj
1846 1.22 dbj if (esc->sc_main_dmamap->dm_mapsize) {
1847 1.55 tsutsui if (!esc->sc_datain) {
1848 1.55 tsutsui /* unpatch the DMA map for write overrun */
1849 1.37 christos esc->sc_main_dmamap->dm_mapsize -= ESP_DMA_OVERRUN;
1850 1.55 tsutsui esc->sc_main_dmamap->dm_segs[
1851 1.55 tsutsui esc->sc_main_dmamap->dm_nsegs - 1].ds_len -=
1852 1.55 tsutsui ESP_DMA_OVERRUN;
1853 1.37 christos }
1854 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_main_dmamap,
1855 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1856 1.55 tsutsui (esc->sc_datain ?
1857 1.55 tsutsui BUS_DMASYNC_POSTREAD : BUS_DMASYNC_POSTWRITE));
1858 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_main_dmamap);
1859 1.38 mycroft NDTRACEIF (
1860 1.55 tsutsui sprintf(ndtracep, "m%ld",
1861 1.55 tsutsui esc->sc_main_dmamap->dm_xfer_len);
1862 1.55 tsutsui ndtracep += strlen(ndtracep);
1863 1.55 tsutsui );
1864 1.22 dbj }
1865 1.22 dbj
1866 1.22 dbj if (esc->sc_tail_dmamap->dm_mapsize) {
1867 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap,
1868 1.55 tsutsui 0, esc->sc_tail_dmamap->dm_mapsize,
1869 1.55 tsutsui (esc->sc_datain ?
1870 1.55 tsutsui BUS_DMASYNC_POSTREAD : BUS_DMASYNC_POSTWRITE));
1871 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap);
1872 1.44 wiz /* copy the tail DMA buffer data for read transfers */
1873 1.37 christos if (esc->sc_datain) {
1874 1.55 tsutsui memcpy(*esc->sc_dmaaddr + esc->sc_begin_size +
1875 1.55 tsutsui esc->sc_main_size, esc->sc_tail,
1876 1.55 tsutsui esc->sc_dmasize -
1877 1.55 tsutsui (esc->sc_begin_size + esc->sc_main_size));
1878 1.37 christos }
1879 1.38 mycroft NDTRACEIF (
1880 1.55 tsutsui sprintf(ndtracep, "t%ld",
1881 1.55 tsutsui esc->sc_tail_dmamap->dm_xfer_len);
1882 1.55 tsutsui ndtracep += strlen(ndtracep);
1883 1.55 tsutsui );
1884 1.4 dbj }
1885 1.13 dbj
1886 1.18 dbj #ifdef ESP_DEBUG
1887 1.18 dbj if (esp_debug) {
1888 1.35 chs printf("%s: dma_shutdown: addr=%p,len=0x%08x,size=0x%08x\n",
1889 1.55 tsutsui device_xname(sc->sc_dev),
1890 1.55 tsutsui *esc->sc_dmaaddr, *esc->sc_dmalen, esc->sc_dmasize);
1891 1.24 dbj if (esp_debug > 10) {
1892 1.55 tsutsui esp_hex_dump(*(esc->sc_dmaaddr), esc->sc_dmasize);
1893 1.35 chs printf("%s: tail=%p,tailbuf=%p,tail_size=0x%08x\n",
1894 1.55 tsutsui device_xname(sc->sc_dev),
1895 1.55 tsutsui esc->sc_tail, &(esc->sc_tailbuf[0]),
1896 1.55 tsutsui esc->sc_tail_size);
1897 1.55 tsutsui esp_hex_dump(&(esc->sc_tailbuf[0]),
1898 1.55 tsutsui sizeof(esc->sc_tailbuf));
1899 1.24 dbj }
1900 1.13 dbj }
1901 1.11 dbj #endif
1902 1.3 dbj
1903 1.18 dbj esc->sc_main = 0;
1904 1.18 dbj esc->sc_main_size = 0;
1905 1.14 dbj esc->sc_tail = 0;
1906 1.14 dbj esc->sc_tail_size = 0;
1907 1.19 dbj
1908 1.19 dbj esc->sc_datain = -1;
1909 1.37 christos /* esc->sc_dmaaddr = 0; */
1910 1.37 christos /* esc->sc_dmalen = 0; */
1911 1.37 christos /* esc->sc_dmasize = 0; */
1912 1.19 dbj
1913 1.19 dbj esc->sc_loaded = 0;
1914 1.19 dbj
1915 1.19 dbj esc->sc_begin = 0;
1916 1.19 dbj esc->sc_begin_size = 0;
1917 1.20 dbj
1918 1.20 dbj #ifdef ESP_DEBUG
1919 1.20 dbj if (esp_debug) {
1920 1.28 tv char sbuf[256];
1921 1.28 tv
1922 1.57 christos snprintb(sbuf, sizeof(sbuf), NEXT_INTR_BITS,
1923 1.57 christos (*(volatile u_long *)IIOV(NEXT_P_INTRSTAT)));
1924 1.28 tv printf(" *intrstat = 0x%s\n", sbuf);
1925 1.28 tv
1926 1.57 christos snprintb(sbuf, sizeof(sbuf), NEXT_INTR_BITS,
1927 1.57 christos (*(volatile u_long *)IIOV(NEXT_P_INTRMASK)));
1928 1.28 tv printf(" *intrmask = 0x%s\n", sbuf);
1929 1.20 dbj }
1930 1.20 dbj #endif
1931 1.1 dbj }
1932