esp.c revision 1.55.2.1 1 1.55.2.1 yamt /* $NetBSD: esp.c,v 1.55.2.1 2008/05/18 12:32:32 yamt 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.55.2.1 yamt __KERNEL_RCSID(0, "$NetBSD: esp.c,v 1.55.2.1 2008/05/18 12:32:32 yamt 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.28 tv bitmask_snprintf((*(volatile u_long *)IIOV(NEXT_P_INTRSTAT)),
509 1.28 tv NEXT_INTR_BITS, sbuf, sizeof(sbuf));
510 1.28 tv printf("esp_dma_isintr = 0x%s\n", sbuf);
511 1.28 tv }
512 1.22 dbj #endif
513 1.22 dbj
514 1.55 tsutsui while (!nextdma_finished(nsc)) {
515 1.55 tsutsui /* esp_dma_isactive(sc)) { */
516 1.38 mycroft NDTRACEIF (*ndtracep++ = 'w');
517 1.38 mycroft NDTRACEIF (
518 1.55 tsutsui sprintf(ndtracep, "f%dm%dl%dw",
519 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG) &
520 1.55 tsutsui NCRFIFO_FF,
521 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
522 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL));
523 1.55 tsutsui ndtracep += strlen(ndtracep);
524 1.55 tsutsui );
525 1.37 christos if (NCR_READ_REG(sc, NCR_FFLAG) & NCRFIFO_FF)
526 1.55 tsutsui flushcount = 5;
527 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
528 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
529 1.55 tsutsui ESPDCTL_DMAMOD |
530 1.55 tsutsui (esc->sc_datain ? ESPDCTL_DMARD : 0));
531 1.37 christos
532 1.37 christos s = spldma();
533 1.55 tsutsui while (ndmap == stat->nd_map &&
534 1.55 tsutsui ndidx == stat->nd_idx &&
535 1.55 tsutsui (nd_bsr4 (DD_CSR) & 0x08000000) == 0&&
536 1.37 christos ++flushcount < 5) {
537 1.37 christos splx(s);
538 1.38 mycroft NDTRACEIF (*ndtracep++ = 'F');
539 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
540 1.55 tsutsui ESPDCTL_FLUSH | ESPDCTL_16MHZ |
541 1.55 tsutsui ESPDCTL_INTENB | ESPDCTL_DMAMOD |
542 1.55 tsutsui (esc->sc_datain ?
543 1.55 tsutsui ESPDCTL_DMARD : 0));
544 1.37 christos doze(0x32);
545 1.20 dbj NCR_WRITE_REG(sc, ESP_DCTL,
546 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
547 1.55 tsutsui ESPDCTL_DMAMOD |
548 1.55 tsutsui (esc->sc_datain ?
549 1.55 tsutsui ESPDCTL_DMARD : 0));
550 1.37 christos doze(0x32);
551 1.37 christos s = spldma();
552 1.37 christos }
553 1.38 mycroft NDTRACEIF (*ndtracep++ = '0' + flushcount);
554 1.37 christos if (flushcount > 4) {
555 1.37 christos int next;
556 1.37 christos int onext = 0;
557 1.55 tsutsui
558 1.37 christos splx(s);
559 1.55 tsutsui DPRINTF(("DMA reset\n"));
560 1.38 mycroft while (((next = nd_bsr4 (DD_NEXT)) !=
561 1.55 tsutsui (nd_bsr4(DD_LIMIT) & 0x7FFFFFFF)) &&
562 1.55 tsutsui onext != next) {
563 1.37 christos onext = next;
564 1.37 christos DELAY(50);
565 1.37 christos }
566 1.38 mycroft NDTRACEIF (*ndtracep++ = 'R');
567 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
568 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
569 1.38 mycroft NDTRACEIF (
570 1.55 tsutsui sprintf(ndtracep,
571 1.55 tsutsui "ff:%d tcm:%d tcl:%d ",
572 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG)
573 1.55 tsutsui & NCRFIFO_FF,
574 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
575 1.55 tsutsui NCR_READ_REG((sc),
576 1.55 tsutsui NCR_TCL));
577 1.38 mycroft ndtracep += strlen (ndtracep);
578 1.38 mycroft );
579 1.37 christos s = spldma();
580 1.38 mycroft nextdma_reset (nsc);
581 1.37 christos splx(s);
582 1.37 christos goto out;
583 1.20 dbj }
584 1.37 christos splx(s);
585 1.20 dbj
586 1.23 dbj #ifdef DIAGNOSTIC
587 1.37 christos if (flushcount > 4) {
588 1.38 mycroft NDTRACEIF (*ndtracep++ = '+');
589 1.55 tsutsui printf("%s: unexpected flushcount"
590 1.55 tsutsui " %d on %s\n",
591 1.55 tsutsui device_xname(sc->sc_dev),
592 1.55 tsutsui flushcount,
593 1.55 tsutsui esc->sc_datain ? "read" : "write");
594 1.37 christos }
595 1.23 dbj #endif
596 1.23 dbj
597 1.55 tsutsui if (!nextdma_finished(nsc)) {
598 1.55 tsutsui /* esp_dma_isactive(sc)) { */
599 1.38 mycroft NDTRACEIF (*ndtracep++ = '1');
600 1.16 dbj }
601 1.37 christos flushcount = 0;
602 1.37 christos s = spldma();
603 1.38 mycroft ndmap = stat->nd_map;
604 1.38 mycroft ndidx = stat->nd_idx;
605 1.37 christos splx(s);
606 1.37 christos
607 1.16 dbj }
608 1.55 tsutsui out:
609 1.55 tsutsui ;
610 1.20 dbj
611 1.22 dbj #ifdef ESP_DEBUG
612 1.37 christos /* esp_dma_nest--; */
613 1.22 dbj #endif
614 1.22 dbj
615 1.13 dbj }
616 1.13 dbj
617 1.55 tsutsui doze(0x32);
618 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
619 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
620 1.55 tsutsui (esc->sc_datain ? ESPDCTL_DMARD : 0));
621 1.38 mycroft NDTRACEIF (*ndtracep++ = 'b');
622 1.37 christos
623 1.55 tsutsui while (esc->sc_datain != -1)
624 1.55 tsutsui DELAY(50);
625 1.37 christos
626 1.37 christos if (esc->sc_dmaaddr) {
627 1.37 christos bus_size_t xfer_len = 0;
628 1.37 christos int resid;
629 1.37 christos
630 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
631 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
632 1.38 mycroft if (stat->nd_exception == 0) {
633 1.55 tsutsui resid = NCR_READ_REG((sc), NCR_TCL) +
634 1.55 tsutsui (NCR_READ_REG((sc), NCR_TCM) << 8);
635 1.37 christos if (resid) {
636 1.55 tsutsui resid += (NCR_READ_REG(sc, NCR_FFLAG) &
637 1.55 tsutsui NCRFIFO_FF);
638 1.38 mycroft #ifdef ESP_DEBUG
639 1.55 tsutsui if (NCR_READ_REG(sc, NCR_FFLAG) &
640 1.55 tsutsui NCRFIFO_FF)
641 1.55 tsutsui if ((NCR_READ_REG(sc,
642 1.55 tsutsui NCR_FFLAG) & NCRFIFO_FF) !=
643 1.55 tsutsui 16 ||
644 1.55 tsutsui NCR_READ_REG((sc),
645 1.55 tsutsui NCR_TCL) != 240)
646 1.38 mycroft ndtraceshow++;
647 1.38 mycroft #endif
648 1.37 christos }
649 1.37 christos xfer_len = esc->sc_dmasize - resid;
650 1.37 christos } else {
651 1.55 tsutsui extern void ncr53c9x_abort(struct ncr53c9x_softc *, struct ncr53c9x_ecb *);
652 1.37 christos #define ncr53c9x_sched_msgout(m) \
653 1.37 christos do { \
654 1.37 christos NCR_MISC(("ncr53c9x_sched_msgout %x %d", m, __LINE__)); \
655 1.37 christos NCRCMD(sc, NCRCMD_SETATN); \
656 1.37 christos sc->sc_flags |= NCR_ATN; \
657 1.37 christos sc->sc_msgpriq |= (m); \
658 1.37 christos } while (0)
659 1.37 christos int i;
660 1.55 tsutsui
661 1.38 mycroft xfer_len = 0;
662 1.38 mycroft if (esc->sc_begin)
663 1.38 mycroft xfer_len += esc->sc_begin_size;
664 1.38 mycroft if (esc->sc_main_dmamap)
665 1.55 tsutsui xfer_len +=
666 1.55 tsutsui esc->sc_main_dmamap->dm_xfer_len;
667 1.38 mycroft if (esc->sc_tail_dmamap)
668 1.55 tsutsui xfer_len +=
669 1.55 tsutsui esc->sc_tail_dmamap->dm_xfer_len;
670 1.37 christos resid = 0;
671 1.37 christos printf ("X\n");
672 1.37 christos for (i = 0; i < 16; i++) {
673 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
674 1.55 tsutsui ESPDCTL_FLUSH | ESPDCTL_16MHZ |
675 1.55 tsutsui ESPDCTL_INTENB |
676 1.55 tsutsui (esc->sc_datain ?
677 1.55 tsutsui ESPDCTL_DMARD : 0));
678 1.37 christos NCR_WRITE_REG(sc, ESP_DCTL,
679 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB |
680 1.55 tsutsui (esc->sc_datain ?
681 1.55 tsutsui ESPDCTL_DMARD : 0));
682 1.37 christos }
683 1.37 christos #if 0
684 1.55 tsutsui printf ("ff:%02x tcm:%d tcl:%d esp_dstat:%02x"
685 1.55 tsutsui " stat:%02x step: %02x intr:%02x"
686 1.55 tsutsui " new stat:%02X\n",
687 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG),
688 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
689 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL),
690 1.55 tsutsui NCR_READ_REG(sc, ESP_DSTAT),
691 1.55 tsutsui sc->sc_espstat, sc->sc_espstep,
692 1.55 tsutsui sc->sc_espintr,
693 1.55 tsutsui NCR_READ_REG(sc, NCR_STAT));
694 1.55 tsutsui printf("sc->sc_state: %x sc->sc_phase: %x"
695 1.55 tsutsui " sc->sc_espstep:%x sc->sc_prevphase:%x"
696 1.55 tsutsui " sc->sc_flags:%x\n",
697 1.55 tsutsui sc->sc_state, sc->sc_phase, sc->sc_espstep,
698 1.55 tsutsui sc->sc_prevphase, sc->sc_flags);
699 1.37 christos #endif
700 1.37 christos /* sc->sc_flags &= ~NCR_ICCS; */
701 1.37 christos sc->sc_nexus->flags |= ECB_ABORT;
702 1.37 christos if (sc->sc_phase == MESSAGE_IN_PHASE) {
703 1.37 christos /* ncr53c9x_sched_msgout(SEND_ABORT); */
704 1.37 christos ncr53c9x_abort(sc, sc->sc_nexus);
705 1.37 christos } else if (sc->sc_phase != STATUS_PHASE) {
706 1.55 tsutsui printf("ATTENTION!!! "
707 1.55 tsutsui "not message/status phase: %d\n",
708 1.55 tsutsui sc->sc_phase);
709 1.37 christos }
710 1.37 christos }
711 1.37 christos
712 1.55 tsutsui NDTRACEIF(
713 1.55 tsutsui sprintf(ndtracep, "f%dm%dl%ds%dx%dr%dS",
714 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG) & NCRFIFO_FF,
715 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
716 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL),
717 1.55 tsutsui esc->sc_dmasize, (int)xfer_len, resid);
718 1.55 tsutsui ndtracep += strlen(ndtracep);
719 1.55 tsutsui );
720 1.20 dbj
721 1.55 tsutsui *esc->sc_dmaaddr += xfer_len;
722 1.54 tsutsui *esc->sc_dmalen -= xfer_len;
723 1.37 christos esc->sc_dmaaddr = 0;
724 1.37 christos esc->sc_dmalen = 0;
725 1.37 christos esc->sc_dmasize = 0;
726 1.13 dbj }
727 1.37 christos
728 1.38 mycroft NDTRACEIF (*ndtracep++ = 'B');
729 1.55 tsutsui sc->sc_espstat = NCR_READ_REG(sc, NCR_STAT) |
730 1.55 tsutsui (sc->sc_espstat & NCRSTAT_INT);
731 1.37 christos
732 1.55 tsutsui DPRINTF(("esp dctl is 0x%02x\n", NCR_READ_REG(sc, ESP_DCTL)));
733 1.37 christos /* printf ("esp_dma_isintr DONE\n"); */
734 1.13 dbj
735 1.4 dbj }
736 1.4 dbj
737 1.55 tsutsui return r;
738 1.1 dbj }
739 1.1 dbj
740 1.1 dbj void
741 1.49 chs esp_dma_reset(struct ncr53c9x_softc *sc)
742 1.1 dbj {
743 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
744 1.3 dbj
745 1.44 wiz DPRINTF(("esp DMA reset\n"));
746 1.13 dbj
747 1.13 dbj #ifdef ESP_DEBUG
748 1.13 dbj if (esp_debug) {
749 1.28 tv char sbuf[256];
750 1.28 tv
751 1.28 tv bitmask_snprintf((*(volatile u_long *)IIOV(NEXT_P_INTRSTAT)),
752 1.55 tsutsui NEXT_INTR_BITS, sbuf, sizeof(sbuf));
753 1.28 tv printf(" *intrstat = 0x%s\n", sbuf);
754 1.28 tv
755 1.28 tv bitmask_snprintf((*(volatile u_long *)IIOV(NEXT_P_INTRMASK)),
756 1.55 tsutsui NEXT_INTR_BITS, sbuf, sizeof(sbuf));
757 1.28 tv printf(" *intrmask = 0x%s\n", sbuf);
758 1.13 dbj }
759 1.13 dbj #endif
760 1.13 dbj
761 1.38 mycroft #if 0
762 1.13 dbj /* Clear the DMAMOD bit in the DCTL register: */
763 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL, ESPDCTL_16MHZ | ESPDCTL_INTENB);
764 1.22 dbj DPRINTF(("esp dctl is 0x%02x\n",NCR_READ_REG(sc,ESP_DCTL)));
765 1.38 mycroft #endif
766 1.13 dbj
767 1.38 mycroft nextdma_reset(esc->sc_dma);
768 1.38 mycroft nextdma_init(esc->sc_dma);
769 1.4 dbj
770 1.18 dbj esc->sc_datain = -1;
771 1.18 dbj esc->sc_dmaaddr = 0;
772 1.18 dbj esc->sc_dmalen = 0;
773 1.20 dbj esc->sc_dmasize = 0;
774 1.18 dbj
775 1.18 dbj esc->sc_loaded = 0;
776 1.18 dbj
777 1.18 dbj esc->sc_begin = 0;
778 1.18 dbj esc->sc_begin_size = 0;
779 1.13 dbj
780 1.18 dbj if (esc->sc_main_dmamap->dm_mapsize) {
781 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_main_dmamap);
782 1.13 dbj }
783 1.18 dbj esc->sc_main = 0;
784 1.18 dbj esc->sc_main_size = 0;
785 1.13 dbj
786 1.18 dbj if (esc->sc_tail_dmamap->dm_mapsize) {
787 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap);
788 1.18 dbj }
789 1.18 dbj esc->sc_tail = 0;
790 1.18 dbj esc->sc_tail_size = 0;
791 1.1 dbj }
792 1.1 dbj
793 1.19 dbj /* it appears that:
794 1.19 dbj * addr and len arguments to this need to be kept up to date
795 1.19 dbj * with the status of the transfter.
796 1.19 dbj * the dmasize of this is the actual length of the transfer
797 1.19 dbj * request, which is guaranteed to be less than maxxfer.
798 1.19 dbj * (len may be > maxxfer)
799 1.19 dbj */
800 1.19 dbj
801 1.1 dbj int
802 1.55 tsutsui esp_dma_setup(struct ncr53c9x_softc *sc, uint8_t **addr, size_t *len,
803 1.55 tsutsui int datain, size_t *dmasize)
804 1.1 dbj {
805 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
806 1.2 dbj
807 1.38 mycroft NDTRACEIF (*ndtracep++ = 'h');
808 1.11 dbj #ifdef DIAGNOSTIC
809 1.20 dbj #ifdef ESP_DEBUG
810 1.11 dbj /* if this is a read DMA, pre-fill the buffer with 0xdeadbeef
811 1.11 dbj * to identify bogus reads
812 1.11 dbj */
813 1.11 dbj if (datain) {
814 1.14 dbj int *v = (int *)(*addr);
815 1.11 dbj int i;
816 1.55 tsutsui for (i = 0; i < ((*len) / 4); i++)
817 1.55 tsutsui v[i] = 0xdeadbeef;
818 1.18 dbj v = (int *)(&(esc->sc_tailbuf[0]));
819 1.55 tsutsui for (i = 0; i < ((sizeof(esc->sc_tailbuf) / 4)); i++)
820 1.55 tsutsui v[i] = 0xdeafbeef;
821 1.23 dbj } else {
822 1.23 dbj int *v;
823 1.23 dbj int i;
824 1.23 dbj v = (int *)(&(esc->sc_tailbuf[0]));
825 1.55 tsutsui for (i = 0; i < ((sizeof(esc->sc_tailbuf) / 4)); i++)
826 1.55 tsutsui v[i] = 0xfeeb1eed;
827 1.11 dbj }
828 1.20 dbj #endif
829 1.11 dbj #endif
830 1.11 dbj
831 1.55 tsutsui DPRINTF(("esp_dma_setup(%p,0x%08x,0x%08x)\n", *addr, *len, *dmasize));
832 1.11 dbj
833 1.24 dbj #if 0
834 1.12 dbj #ifdef DIAGNOSTIC /* @@@ this is ok sometimes. verify that we handle it ok
835 1.37 christos * and then remove this check
836 1.37 christos */
837 1.14 dbj if (*len != *dmasize) {
838 1.55 tsutsui panic("esp dmalen 0x%lx != size 0x%lx", *len, *dmasize);
839 1.11 dbj }
840 1.11 dbj #endif
841 1.24 dbj #endif
842 1.4 dbj
843 1.2 dbj #ifdef DIAGNOSTIC
844 1.3 dbj if ((esc->sc_datain != -1) ||
845 1.55 tsutsui (esc->sc_main_dmamap->dm_mapsize != 0) ||
846 1.55 tsutsui (esc->sc_tail_dmamap->dm_mapsize != 0) ||
847 1.55 tsutsui (esc->sc_dmasize != 0)) {
848 1.40 provos panic("%s: map already loaded in esp_dma_setup"
849 1.55 tsutsui "\tdatain = %d\n\tmain_mapsize=%ld\n"
850 1.55 tsutsui "\tail_mapsize=%ld\n\tdmasize = %d",
851 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain,
852 1.55 tsutsui esc->sc_main_dmamap->dm_mapsize,
853 1.55 tsutsui esc->sc_tail_dmamap->dm_mapsize,
854 1.55 tsutsui esc->sc_dmasize);
855 1.2 dbj }
856 1.2 dbj #endif
857 1.2 dbj
858 1.44 wiz /* we are sometimes asked to DMA zero bytes, that's easy */
859 1.24 dbj if (*dmasize <= 0) {
860 1.55 tsutsui return 0;
861 1.20 dbj }
862 1.20 dbj
863 1.37 christos if (*dmasize > ESP_MAX_DMASIZE)
864 1.37 christos *dmasize = ESP_MAX_DMASIZE;
865 1.37 christos
866 1.14 dbj /* Save these in case we have to abort DMA */
867 1.14 dbj esc->sc_datain = datain;
868 1.14 dbj esc->sc_dmaaddr = addr;
869 1.14 dbj esc->sc_dmalen = len;
870 1.14 dbj esc->sc_dmasize = *dmasize;
871 1.14 dbj
872 1.18 dbj esc->sc_loaded = 0;
873 1.18 dbj
874 1.23 dbj #define DMA_SCSI_ALIGNMENT 16
875 1.23 dbj #define DMA_SCSI_ALIGN(type, addr) \
876 1.55 tsutsui ((type)(((unsigned int)(addr) + DMA_SCSI_ALIGNMENT - 1) \
877 1.23 dbj &~(DMA_SCSI_ALIGNMENT-1)))
878 1.23 dbj #define DMA_SCSI_ALIGNED(addr) \
879 1.55 tsutsui (((unsigned int)(addr) & (DMA_SCSI_ALIGNMENT - 1))==0)
880 1.23 dbj
881 1.2 dbj {
882 1.18 dbj size_t slop_bgn_size; /* # bytes to be fifo'd at beginning */
883 1.18 dbj size_t slop_end_size; /* # bytes to be transferred in tail buffer */
884 1.18 dbj
885 1.3 dbj {
886 1.13 dbj u_long bgn = (u_long)(*esc->sc_dmaaddr);
887 1.54 tsutsui u_long end = bgn + esc->sc_dmasize;
888 1.3 dbj
889 1.55 tsutsui slop_bgn_size =
890 1.55 tsutsui DMA_SCSI_ALIGNMENT - (bgn % DMA_SCSI_ALIGNMENT);
891 1.55 tsutsui if (slop_bgn_size == DMA_SCSI_ALIGNMENT)
892 1.55 tsutsui slop_bgn_size = 0;
893 1.55 tsutsui slop_end_size = end % DMA_ENDALIGNMENT;
894 1.3 dbj }
895 1.3 dbj
896 1.23 dbj /* Force a minimum slop end size. This ensures that write
897 1.55 tsutsui * requests will overrun, as required to get completion
898 1.55 tsutsui * interrupts.
899 1.23 dbj * In addition, since the tail buffer is guaranteed to be mapped
900 1.44 wiz * in a single DMA segment, the overrun won't accidentally
901 1.23 dbj * end up in its own segment.
902 1.23 dbj */
903 1.23 dbj if (!esc->sc_datain) {
904 1.24 dbj #if 0
905 1.23 dbj slop_end_size += ESP_DMA_MAXTAIL;
906 1.24 dbj #else
907 1.24 dbj slop_end_size += 0x10;
908 1.24 dbj #endif
909 1.23 dbj }
910 1.23 dbj
911 1.10 dbj /* Check to make sure we haven't counted extra slop
912 1.44 wiz * as would happen for a very short DMA buffer, also
913 1.14 dbj * for short buffers, just stuff the entire thing in the tail
914 1.14 dbj */
915 1.18 dbj if ((slop_bgn_size+slop_end_size >= esc->sc_dmasize)
916 1.20 dbj #if 0
917 1.55 tsutsui || (esc->sc_dmasize <= ESP_DMA_MAXTAIL)
918 1.18 dbj #endif
919 1.55 tsutsui ) {
920 1.14 dbj slop_bgn_size = 0;
921 1.14 dbj slop_end_size = esc->sc_dmasize;
922 1.18 dbj }
923 1.14 dbj
924 1.18 dbj /* initialize the fifo buffer */
925 1.18 dbj if (slop_bgn_size) {
926 1.18 dbj esc->sc_begin = *esc->sc_dmaaddr;
927 1.18 dbj esc->sc_begin_size = slop_bgn_size;
928 1.18 dbj } else {
929 1.18 dbj esc->sc_begin = 0;
930 1.18 dbj esc->sc_begin_size = 0;
931 1.18 dbj }
932 1.18 dbj
933 1.37 christos #if 01
934 1.18 dbj /* Load the normal DMA map */
935 1.18 dbj {
936 1.55 tsutsui esc->sc_main = *esc->sc_dmaaddr;
937 1.55 tsutsui esc->sc_main += slop_bgn_size;
938 1.55 tsutsui esc->sc_main_size =
939 1.55 tsutsui (esc->sc_dmasize) - (slop_end_size+slop_bgn_size);
940 1.18 dbj
941 1.18 dbj if (esc->sc_main_size) {
942 1.18 dbj int error;
943 1.37 christos
944 1.55 tsutsui if (!esc->sc_datain ||
945 1.55 tsutsui DMA_ENDALIGNED(esc->sc_main_size +
946 1.55 tsutsui slop_end_size)) {
947 1.55 tsutsui KASSERT(DMA_SCSI_ALIGNMENT ==
948 1.55 tsutsui DMA_ENDALIGNMENT);
949 1.55 tsutsui KASSERT(DMA_BEGINALIGNMENT ==
950 1.55 tsutsui DMA_ENDALIGNMENT);
951 1.37 christos esc->sc_main_size += slop_end_size;
952 1.37 christos slop_end_size = 0;
953 1.37 christos if (!esc->sc_datain) {
954 1.55 tsutsui esc->sc_main_size =
955 1.55 tsutsui DMA_ENDALIGN(uint8_t *,
956 1.55 tsutsui esc->sc_main +
957 1.55 tsutsui esc->sc_main_size) -
958 1.55 tsutsui esc->sc_main;
959 1.37 christos }
960 1.37 christos }
961 1.37 christos
962 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
963 1.55 tsutsui esc->sc_main_dmamap,
964 1.55 tsutsui esc->sc_main, esc->sc_main_size,
965 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
966 1.18 dbj if (error) {
967 1.34 dbj #ifdef ESP_DEBUG
968 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
969 1.55 tsutsui "_dm_size = %ld\n",
970 1.55 tsutsui device_xname(sc->sc_dev),
971 1.55 tsutsui esc->sc_main_dmamap->_dm_size);
972 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
973 1.55 tsutsui "_dm_segcnt = %d\n",
974 1.55 tsutsui device_xname(sc->sc_dev),
975 1.55 tsutsui esc->sc_main_dmamap->_dm_segcnt);
976 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
977 1.55 tsutsui "_dm_maxsegsz = %ld\n",
978 1.55 tsutsui device_xname(sc->sc_dev),
979 1.55 tsutsui esc->sc_main_dmamap->_dm_maxsegsz);
980 1.55 tsutsui printf("%s: esc->sc_main_dmamap->"
981 1.55 tsutsui "_dm_boundary = %ld\n",
982 1.55 tsutsui device_xname(sc->sc_dev),
983 1.55 tsutsui esc->sc_main_dmamap->_dm_boundary);
984 1.34 dbj esp_dma_print(sc);
985 1.34 dbj #endif
986 1.55 tsutsui panic("%s: can't load main DMA map."
987 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
988 1.55 tsutsui device_xname(sc->sc_dev),
989 1.55 tsutsui error, esc->sc_main,
990 1.55 tsutsui esc->sc_main_size);
991 1.18 dbj }
992 1.55 tsutsui if (!esc->sc_datain) {
993 1.55 tsutsui /*
994 1.55 tsutsui * patch the DMA map for write overrun
995 1.55 tsutsui */
996 1.55 tsutsui esc->sc_main_dmamap->dm_mapsize +=
997 1.55 tsutsui ESP_DMA_OVERRUN;
998 1.55 tsutsui esc->sc_main_dmamap->dm_segs[
999 1.55 tsutsui esc->sc_main_dmamap->dm_nsegs -
1000 1.55 tsutsui 1].ds_len +=
1001 1.37 christos ESP_DMA_OVERRUN;
1002 1.37 christos }
1003 1.23 dbj #if 0
1004 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat,
1005 1.55 tsutsui esc->sc_main_dmamap,
1006 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1007 1.55 tsutsui (esc->sc_datain ? BUS_DMASYNC_PREREAD :
1008 1.55 tsutsui BUS_DMASYNC_PREWRITE));
1009 1.34 dbj esc->sc_main_dmamap->dm_xfer_len = 0;
1010 1.23 dbj #endif
1011 1.18 dbj } else {
1012 1.18 dbj esc->sc_main = 0;
1013 1.18 dbj }
1014 1.14 dbj }
1015 1.3 dbj
1016 1.18 dbj /* Load the tail DMA map */
1017 1.18 dbj if (slop_end_size) {
1018 1.55 tsutsui esc->sc_tail = DMA_ENDALIGN(uint8_t *,
1019 1.55 tsutsui esc->sc_tailbuf + slop_end_size) - slop_end_size;
1020 1.55 tsutsui /*
1021 1.55 tsutsui * If the beginning of the tail is not correctly
1022 1.55 tsutsui * aligned, we have no choice but to align the start,
1023 1.55 tsutsui * which might then unalign the end.
1024 1.55 tsutsui */
1025 1.55 tsutsui esc->sc_tail = DMA_SCSI_ALIGN(uint8_t *, esc->sc_tail);
1026 1.55 tsutsui /*
1027 1.55 tsutsui * So therefore, we change the tail size to be
1028 1.55 tsutsui * end aligned again.
1029 1.18 dbj */
1030 1.55 tsutsui esc->sc_tail_size = DMA_ENDALIGN(uint8_t *,
1031 1.55 tsutsui esc->sc_tail + slop_end_size) - esc->sc_tail;
1032 1.19 dbj
1033 1.44 wiz /* @@@ next DMA overrun lossage */
1034 1.20 dbj if (!esc->sc_datain) {
1035 1.21 dbj esc->sc_tail_size += ESP_DMA_OVERRUN;
1036 1.20 dbj }
1037 1.20 dbj
1038 1.18 dbj {
1039 1.18 dbj int error;
1040 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
1041 1.55 tsutsui esc->sc_tail_dmamap,
1042 1.55 tsutsui esc->sc_tail, esc->sc_tail_size,
1043 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
1044 1.18 dbj if (error) {
1045 1.55 tsutsui panic("%s: can't load tail DMA map."
1046 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
1047 1.55 tsutsui device_xname(sc->sc_dev), error,
1048 1.55 tsutsui esc->sc_tail,esc->sc_tail_size);
1049 1.18 dbj }
1050 1.23 dbj #if 0
1051 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat,
1052 1.55 tsutsui esc->sc_tail_dmamap, 0,
1053 1.55 tsutsui esc->sc_tail_dmamap->dm_mapsize,
1054 1.55 tsutsui (esc->sc_datain ? BUS_DMASYNC_PREREAD :
1055 1.55 tsutsui BUS_DMASYNC_PREWRITE));
1056 1.34 dbj esc->sc_tail_dmamap->dm_xfer_len = 0;
1057 1.23 dbj #endif
1058 1.3 dbj }
1059 1.3 dbj }
1060 1.37 christos #else
1061 1.37 christos
1062 1.37 christos esc->sc_begin = *esc->sc_dmaaddr;
1063 1.55 tsutsui slop_bgn_size = DMA_SCSI_ALIGNMENT -
1064 1.55 tsutsui ((u_long)esc->sc_begin % DMA_SCSI_ALIGNMENT);
1065 1.55 tsutsui if (slop_bgn_size == DMA_SCSI_ALIGNMENT)
1066 1.55 tsutsui slop_bgn_size = 0;
1067 1.37 christos slop_end_size = esc->sc_dmasize - slop_bgn_size;
1068 1.37 christos
1069 1.37 christos if (slop_bgn_size < esc->sc_dmasize) {
1070 1.37 christos int error;
1071 1.37 christos
1072 1.37 christos esc->sc_tail = 0;
1073 1.37 christos esc->sc_tail_size = 0;
1074 1.37 christos
1075 1.37 christos esc->sc_begin_size = slop_bgn_size;
1076 1.54 tsutsui esc->sc_main = *esc->sc_dmaaddr;
1077 1.54 tsutsui esc->sc_main += slop_bgn_size;
1078 1.55 tsutsui esc->sc_main_size = DMA_ENDALIGN(uint8_t *,
1079 1.55 tsutsui esc->sc_main + esc->sc_dmasize - slop_bgn_size) -
1080 1.55 tsutsui esc->sc_main;
1081 1.37 christos
1082 1.37 christos if (!esc->sc_datain) {
1083 1.37 christos esc->sc_main_size += ESP_DMA_OVERRUN;
1084 1.37 christos }
1085 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
1086 1.55 tsutsui esc->sc_main_dmamap,
1087 1.55 tsutsui esc->sc_main, esc->sc_main_size,
1088 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
1089 1.37 christos if (error) {
1090 1.55 tsutsui panic("%s: can't load main DMA map."
1091 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
1092 1.55 tsutsui device_xname(sc->sc_dev), error,
1093 1.55 tsutsui esc->sc_main,esc->sc_main_size);
1094 1.37 christos }
1095 1.37 christos } else {
1096 1.37 christos esc->sc_begin = 0;
1097 1.37 christos esc->sc_begin_size = 0;
1098 1.37 christos esc->sc_main = 0;
1099 1.37 christos esc->sc_main_size = 0;
1100 1.37 christos
1101 1.37 christos #if 0
1102 1.55 tsutsui esc->sc_tail = DMA_ENDALIGN(uint8_t *,
1103 1.55 tsutsui esc->sc_tailbuf + slop_bgn_size) - slop_bgn_size;
1104 1.55 tsutsui /*
1105 1.55 tsutsui * If the beginning of the tail is not correctly
1106 1.55 tsutsui * aligned, we have no choice but to align the start,
1107 1.55 tsutsui * which might then unalign the end.
1108 1.37 christos */
1109 1.37 christos #endif
1110 1.55 tsutsui esc->sc_tail = DMA_SCSI_ALIGN(void *, esc->sc_tailbuf);
1111 1.55 tsutsui /*
1112 1.55 tsutsui * So therefore, we change the tail size to be
1113 1.55 tsutsui * end aligned again.
1114 1.55 tsutsui */
1115 1.55 tsutsui esc->sc_tail_size = DMA_ENDALIGN(uint8_t *,
1116 1.55 tsutsui esc->sc_tail + esc->sc_dmasize) - esc->sc_tail;
1117 1.37 christos
1118 1.44 wiz /* @@@ next DMA overrun lossage */
1119 1.37 christos if (!esc->sc_datain) {
1120 1.37 christos esc->sc_tail_size += ESP_DMA_OVERRUN;
1121 1.37 christos }
1122 1.37 christos
1123 1.37 christos {
1124 1.37 christos int error;
1125 1.38 mycroft error = bus_dmamap_load(esc->sc_dma->sc_dmat,
1126 1.55 tsutsui esc->sc_tail_dmamap,
1127 1.55 tsutsui esc->sc_tail, esc->sc_tail_size,
1128 1.55 tsutsui NULL, BUS_DMA_NOWAIT);
1129 1.37 christos if (error) {
1130 1.55 tsutsui panic("%s: can't load tail DMA map."
1131 1.55 tsutsui " error = %d, addr=%p, size=0x%08x",
1132 1.55 tsutsui device_xname(sc->sc_dev), error,
1133 1.55 tsutsui esc->sc_tail, esc->sc_tail_size);
1134 1.37 christos }
1135 1.37 christos }
1136 1.37 christos }
1137 1.37 christos #endif
1138 1.37 christos
1139 1.55 tsutsui DPRINTF(("%s: setup: %8p %d %8p %d %8p %d %8p %d\n",
1140 1.55 tsutsui device_xname(sc->sc_dev),
1141 1.55 tsutsui *esc->sc_dmaaddr, esc->sc_dmasize,
1142 1.55 tsutsui esc->sc_begin, esc->sc_begin_size,
1143 1.55 tsutsui esc->sc_main, esc->sc_main_size,
1144 1.55 tsutsui esc->sc_tail, esc->sc_tail_size));
1145 1.2 dbj }
1146 1.2 dbj
1147 1.55 tsutsui return 0;
1148 1.1 dbj }
1149 1.1 dbj
1150 1.20 dbj #ifdef ESP_DEBUG
1151 1.20 dbj /* For debugging */
1152 1.1 dbj void
1153 1.49 chs esp_dma_store(struct ncr53c9x_softc *sc)
1154 1.1 dbj {
1155 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1156 1.20 dbj char *p = &esp_dma_dump[0];
1157 1.20 dbj
1158 1.55 tsutsui p += sprintf(p, "%s: sc_datain=%d\n",
1159 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain);
1160 1.55 tsutsui p += sprintf(p, "%s: sc_loaded=0x%08x\n",
1161 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_loaded);
1162 1.3 dbj
1163 1.20 dbj if (esc->sc_dmaaddr) {
1164 1.55 tsutsui p += sprintf(p, "%s: sc_dmaaddr=%p\n",
1165 1.55 tsutsui device_xname(sc->sc_dev), *esc->sc_dmaaddr);
1166 1.20 dbj } else {
1167 1.55 tsutsui p += sprintf(p, "%s: sc_dmaaddr=NULL\n",
1168 1.55 tsutsui device_xname(sc->sc_dev));
1169 1.20 dbj }
1170 1.20 dbj if (esc->sc_dmalen) {
1171 1.55 tsutsui p += sprintf(p, "%s: sc_dmalen=0x%08x\n",
1172 1.55 tsutsui device_xname(sc->sc_dev), *esc->sc_dmalen);
1173 1.20 dbj } else {
1174 1.55 tsutsui p += sprintf(p, "%s: sc_dmalen=NULL\n",
1175 1.55 tsutsui device_xname(sc->sc_dev));
1176 1.20 dbj }
1177 1.55 tsutsui p += sprintf(p, "%s: sc_dmasize=0x%08x\n",
1178 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_dmasize);
1179 1.19 dbj
1180 1.55 tsutsui p += sprintf(p, "%s: sc_begin = %p, sc_begin_size = 0x%08x\n",
1181 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_begin, esc->sc_begin_size);
1182 1.55 tsutsui p += sprintf(p, "%s: sc_main = %p, sc_main_size = 0x%08x\n",
1183 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_main, esc->sc_main_size);
1184 1.37 christos /* if (esc->sc_main) */ {
1185 1.19 dbj int i;
1186 1.19 dbj bus_dmamap_t map = esc->sc_main_dmamap;
1187 1.55 tsutsui p += sprintf(p, "%s: sc_main_dmamap."
1188 1.55 tsutsui " mapsize = 0x%08lx, nsegs = %d\n",
1189 1.55 tsutsui device_xname(sc->sc_dev), map->dm_mapsize, map->dm_nsegs);
1190 1.55 tsutsui for(i = 0; i < map->dm_nsegs; i++) {
1191 1.55 tsutsui p += sprintf(p, "%s:"
1192 1.55 tsutsui " map->dm_segs[%d].ds_addr = 0x%08lx,"
1193 1.55 tsutsui " len = 0x%08lx\n",
1194 1.55 tsutsui device_xname(sc->sc_dev),
1195 1.55 tsutsui i, map->dm_segs[i].ds_addr,
1196 1.55 tsutsui map->dm_segs[i].ds_len);
1197 1.19 dbj }
1198 1.19 dbj }
1199 1.55 tsutsui p += sprintf(p, "%s: sc_tail = %p, sc_tail_size = 0x%08x\n",
1200 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_tail, esc->sc_tail_size);
1201 1.37 christos /* if (esc->sc_tail) */ {
1202 1.19 dbj int i;
1203 1.19 dbj bus_dmamap_t map = esc->sc_tail_dmamap;
1204 1.55 tsutsui p += sprintf(p, "%s: sc_tail_dmamap."
1205 1.55 tsutsui " mapsize = 0x%08lx, nsegs = %d\n",
1206 1.55 tsutsui device_xname(sc->sc_dev), map->dm_mapsize, map->dm_nsegs);
1207 1.55 tsutsui for (i = 0; i < map->dm_nsegs; i++) {
1208 1.55 tsutsui p += sprintf(p, "%s:"
1209 1.55 tsutsui " map->dm_segs[%d].ds_addr = 0x%08lx,"
1210 1.55 tsutsui " len = 0x%08lx\n",
1211 1.55 tsutsui device_xname(sc->sc_dev),
1212 1.55 tsutsui i, map->dm_segs[i].ds_addr,
1213 1.55 tsutsui map->dm_segs[i].ds_len);
1214 1.19 dbj }
1215 1.19 dbj }
1216 1.20 dbj }
1217 1.20 dbj
1218 1.20 dbj void
1219 1.49 chs esp_dma_print(struct ncr53c9x_softc *sc)
1220 1.20 dbj {
1221 1.55 tsutsui
1222 1.20 dbj esp_dma_store(sc);
1223 1.55 tsutsui printf("%s", esp_dma_dump);
1224 1.20 dbj }
1225 1.20 dbj #endif
1226 1.20 dbj
1227 1.20 dbj void
1228 1.49 chs esp_dma_go(struct ncr53c9x_softc *sc)
1229 1.20 dbj {
1230 1.20 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1231 1.38 mycroft struct nextdma_softc *nsc = esc->sc_dma;
1232 1.38 mycroft struct nextdma_status *stat = &nsc->sc_stat;
1233 1.37 christos /* int s = spldma(); */
1234 1.37 christos
1235 1.38 mycroft #ifdef ESP_DEBUG
1236 1.38 mycroft if (ndtracep != ndtrace) {
1237 1.38 mycroft if (ndtraceshow) {
1238 1.38 mycroft *ndtracep = '\0';
1239 1.55 tsutsui printf("esp ndtrace: %s\n", ndtrace);
1240 1.38 mycroft ndtraceshow = 0;
1241 1.37 christos } else {
1242 1.55 tsutsui DPRINTF(("X"));
1243 1.37 christos }
1244 1.38 mycroft ndtracep = ndtrace;
1245 1.37 christos }
1246 1.38 mycroft #endif
1247 1.20 dbj
1248 1.20 dbj DPRINTF(("%s: esp_dma_go(datain = %d)\n",
1249 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain));
1250 1.20 dbj
1251 1.20 dbj #ifdef ESP_DEBUG
1252 1.55 tsutsui if (esp_debug)
1253 1.55 tsutsui esp_dma_print(sc);
1254 1.55 tsutsui else
1255 1.55 tsutsui esp_dma_store(sc);
1256 1.19 dbj #endif
1257 1.4 dbj
1258 1.20 dbj #ifdef ESP_DEBUG
1259 1.11 dbj {
1260 1.11 dbj int n = NCR_READ_REG(sc, NCR_FFLAG);
1261 1.20 dbj DPRINTF(("%s: fifo size = %d, seq = 0x%x\n",
1262 1.55 tsutsui device_xname(sc->sc_dev),
1263 1.55 tsutsui n & NCRFIFO_FF, (n & NCRFIFO_SS) >> 5));
1264 1.4 dbj }
1265 1.11 dbj #endif
1266 1.4 dbj
1267 1.44 wiz /* zero length DMA transfers are boring */
1268 1.20 dbj if (esc->sc_dmasize == 0) {
1269 1.37 christos /* splx(s); */
1270 1.20 dbj return;
1271 1.20 dbj }
1272 1.20 dbj
1273 1.18 dbj #if defined(DIAGNOSTIC)
1274 1.55 tsutsui if ((esc->sc_begin_size == 0) &&
1275 1.55 tsutsui (esc->sc_main_dmamap->dm_mapsize == 0) &&
1276 1.55 tsutsui (esc->sc_tail_dmamap->dm_mapsize == 0)) {
1277 1.38 mycroft #ifdef ESP_DEBUG
1278 1.20 dbj esp_dma_print(sc);
1279 1.38 mycroft #endif
1280 1.55 tsutsui panic("%s: No DMA requested!", device_xname(sc->sc_dev));
1281 1.18 dbj }
1282 1.18 dbj #endif
1283 1.18 dbj
1284 1.18 dbj /* Stuff the fifo with the begin buffer */
1285 1.18 dbj if (esc->sc_datain) {
1286 1.4 dbj int i;
1287 1.23 dbj DPRINTF(("%s: FIFO read of %d bytes:",
1288 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_begin_size));
1289 1.55 tsutsui for (i = 0; i < esc->sc_begin_size; i++) {
1290 1.55 tsutsui esc->sc_begin[i] = NCR_READ_REG(sc, NCR_FIFO);
1291 1.55 tsutsui DPRINTF((" %02x", esc->sc_begin[i] & 0xff));
1292 1.4 dbj }
1293 1.23 dbj DPRINTF(("\n"));
1294 1.4 dbj } else {
1295 1.4 dbj int i;
1296 1.23 dbj DPRINTF(("%s: FIFO write of %d bytes:",
1297 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_begin_size));
1298 1.55 tsutsui for (i = 0; i < esc->sc_begin_size; i++) {
1299 1.18 dbj NCR_WRITE_REG(sc, NCR_FIFO, esc->sc_begin[i]);
1300 1.55 tsutsui DPRINTF((" %02x",esc->sc_begin[i] & 0xff));
1301 1.4 dbj }
1302 1.23 dbj DPRINTF(("\n"));
1303 1.11 dbj }
1304 1.4 dbj
1305 1.23 dbj if (esc->sc_main_dmamap->dm_mapsize) {
1306 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_main_dmamap,
1307 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1308 1.55 tsutsui (esc->sc_datain ?
1309 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1310 1.34 dbj esc->sc_main_dmamap->dm_xfer_len = 0;
1311 1.23 dbj }
1312 1.23 dbj
1313 1.23 dbj if (esc->sc_tail_dmamap->dm_mapsize) {
1314 1.44 wiz /* if we are a DMA write cycle, copy the end slop */
1315 1.37 christos if (!esc->sc_datain) {
1316 1.55 tsutsui memcpy(esc->sc_tail, *esc->sc_dmaaddr +
1317 1.55 tsutsui esc->sc_begin_size+esc->sc_main_size,
1318 1.55 tsutsui esc->sc_dmasize -
1319 1.55 tsutsui (esc->sc_begin_size + esc->sc_main_size));
1320 1.37 christos }
1321 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap,
1322 1.55 tsutsui 0, esc->sc_tail_dmamap->dm_mapsize,
1323 1.55 tsutsui (esc->sc_datain ?
1324 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1325 1.34 dbj esc->sc_tail_dmamap->dm_xfer_len = 0;
1326 1.23 dbj }
1327 1.23 dbj
1328 1.38 mycroft stat->nd_exception = 0;
1329 1.38 mycroft nextdma_start(nsc, (esc->sc_datain ? DMACSR_SETREAD : DMACSR_SETWRITE));
1330 1.12 dbj
1331 1.14 dbj if (esc->sc_datain) {
1332 1.14 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1333 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMAMOD |
1334 1.55 tsutsui ESPDCTL_DMARD);
1335 1.3 dbj } else {
1336 1.14 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1337 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMAMOD);
1338 1.3 dbj }
1339 1.22 dbj DPRINTF(("esp dctl is 0x%02x\n",NCR_READ_REG(sc,ESP_DCTL)));
1340 1.37 christos
1341 1.55 tsutsui NDTRACEIF(
1342 1.55 tsutsui if (esc->sc_begin_size) {
1343 1.55 tsutsui *ndtracep++ = '1';
1344 1.55 tsutsui *ndtracep++ = 'A' + esc->sc_begin_size;
1345 1.55 tsutsui }
1346 1.55 tsutsui );
1347 1.55 tsutsui NDTRACEIF(
1348 1.55 tsutsui if (esc->sc_main_size) {
1349 1.55 tsutsui *ndtracep++ = '2';
1350 1.55 tsutsui *ndtracep++ = '0' + esc->sc_main_dmamap->dm_nsegs;
1351 1.55 tsutsui }
1352 1.55 tsutsui );
1353 1.55 tsutsui NDTRACEIF(
1354 1.55 tsutsui if (esc->sc_tail_size) {
1355 1.55 tsutsui *ndtracep++ = '3';
1356 1.55 tsutsui *ndtracep++ = 'A' + esc->sc_tail_size;
1357 1.55 tsutsui }
1358 1.55 tsutsui );
1359 1.37 christos
1360 1.37 christos /* splx(s); */
1361 1.1 dbj }
1362 1.1 dbj
1363 1.1 dbj void
1364 1.49 chs esp_dma_stop(struct ncr53c9x_softc *sc)
1365 1.1 dbj {
1366 1.34 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1367 1.55 tsutsui
1368 1.38 mycroft nextdma_print(esc->sc_dma);
1369 1.38 mycroft #ifdef ESP_DEBUG
1370 1.34 dbj esp_dma_print(sc);
1371 1.38 mycroft #endif
1372 1.37 christos #if 1
1373 1.55 tsutsui panic("%s: stop not yet implemented", device_xname(sc->sc_dev));
1374 1.37 christos #endif
1375 1.1 dbj }
1376 1.1 dbj
1377 1.1 dbj int
1378 1.49 chs esp_dma_isactive(struct ncr53c9x_softc *sc)
1379 1.1 dbj {
1380 1.1 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1381 1.55 tsutsui int r;
1382 1.55 tsutsui
1383 1.55 tsutsui r = (esc->sc_dmaaddr != NULL); /* !nextdma_finished(esc->sc_dma); */
1384 1.11 dbj DPRINTF(("esp_dma_isactive = %d\n",r));
1385 1.55 tsutsui return r;
1386 1.2 dbj }
1387 1.2 dbj
1388 1.2 dbj /****************************************************************/
1389 1.2 dbj
1390 1.49 chs int esp_dma_int(void *);
1391 1.49 chs int esp_dma_int(void *arg)
1392 1.37 christos {
1393 1.49 chs void nextdma_rotate(struct nextdma_softc *);
1394 1.49 chs void nextdma_setup_curr_regs(struct nextdma_softc *);
1395 1.49 chs void nextdma_setup_cont_regs(struct nextdma_softc *);
1396 1.37 christos
1397 1.37 christos struct ncr53c9x_softc *sc = (struct ncr53c9x_softc *)arg;
1398 1.37 christos struct esp_softc *esc = (struct esp_softc *)sc;
1399 1.38 mycroft struct nextdma_softc *nsc = esc->sc_dma;
1400 1.38 mycroft struct nextdma_status *stat = &nsc->sc_stat;
1401 1.37 christos unsigned int state;
1402 1.37 christos
1403 1.38 mycroft NDTRACEIF (*ndtracep++ = 'E');
1404 1.37 christos
1405 1.38 mycroft state = nd_bsr4 (DD_CSR);
1406 1.37 christos
1407 1.37 christos #if 1
1408 1.38 mycroft NDTRACEIF (
1409 1.55 tsutsui if (state & DMACSR_COMPLETE)
1410 1.55 tsutsui *ndtracep++ = 'c';
1411 1.55 tsutsui if (state & DMACSR_ENABLE)
1412 1.55 tsutsui *ndtracep++ = 'e';
1413 1.55 tsutsui if (state & DMACSR_BUSEXC)
1414 1.55 tsutsui *ndtracep++ = 'b';
1415 1.55 tsutsui if (state & DMACSR_READ)
1416 1.55 tsutsui *ndtracep++ = 'r';
1417 1.55 tsutsui if (state & DMACSR_SUPDATE)
1418 1.55 tsutsui *ndtracep++ = 's';
1419 1.38 mycroft );
1420 1.37 christos
1421 1.38 mycroft NDTRACEIF (*ndtracep++ = 'E');
1422 1.37 christos
1423 1.38 mycroft #ifdef ESP_DEBUG
1424 1.55 tsutsui if (0)
1425 1.55 tsutsui if ((state & DMACSR_BUSEXC) && (state & DMACSR_ENABLE))
1426 1.55 tsutsui ndtraceshow++;
1427 1.55 tsutsui if (0)
1428 1.55 tsutsui if ((state & DMACSR_SUPDATE))
1429 1.55 tsutsui ndtraceshow++;
1430 1.38 mycroft #endif
1431 1.37 christos #endif
1432 1.37 christos
1433 1.55 tsutsui if ((stat->nd_exception == 0) &&
1434 1.55 tsutsui (state & DMACSR_COMPLETE) &&
1435 1.55 tsutsui (state & DMACSR_ENABLE)) {
1436 1.55 tsutsui stat->nd_map->dm_xfer_len +=
1437 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len;
1438 1.38 mycroft }
1439 1.37 christos
1440 1.55 tsutsui if ((stat->nd_idx + 1) == stat->nd_map->dm_nsegs) {
1441 1.38 mycroft if (nsc->sc_conf.nd_completed_cb)
1442 1.55 tsutsui (*nsc->sc_conf.nd_completed_cb)(stat->nd_map,
1443 1.55 tsutsui nsc->sc_conf.nd_cb_arg);
1444 1.37 christos }
1445 1.38 mycroft nextdma_rotate(nsc);
1446 1.37 christos
1447 1.37 christos if ((state & DMACSR_COMPLETE) && (state & DMACSR_ENABLE)) {
1448 1.37 christos #if 0
1449 1.38 mycroft int l = nd_bsr4 (DD_LIMIT) & 0x7FFFFFFF;
1450 1.38 mycroft int s = nd_bsr4 (DD_STOP);
1451 1.37 christos #endif
1452 1.38 mycroft /* nextdma_setup_cont_regs(nsc); */
1453 1.38 mycroft if (stat->nd_map_cont) {
1454 1.55 tsutsui nd_bsw4(DD_START, stat->nd_map_cont->dm_segs[
1455 1.55 tsutsui stat->nd_idx_cont].ds_addr);
1456 1.55 tsutsui nd_bsw4(DD_STOP, (stat->nd_map_cont->dm_segs[
1457 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1458 1.55 tsutsui stat->nd_map_cont->dm_segs[
1459 1.55 tsutsui stat->nd_idx_cont].ds_len));
1460 1.37 christos }
1461 1.37 christos
1462 1.55 tsutsui nd_bsw4 (DD_CSR, DMACSR_CLRCOMPLETE |
1463 1.55 tsutsui (state & DMACSR_READ ? DMACSR_SETREAD : DMACSR_SETWRITE) |
1464 1.55 tsutsui (stat->nd_map_cont ? DMACSR_SETSUPDATE : 0));
1465 1.37 christos
1466 1.37 christos #if 0
1467 1.38 mycroft #ifdef ESP_DEBUG
1468 1.37 christos if (state & DMACSR_BUSEXC) {
1469 1.55 tsutsui sprintf(ndtracep, "CE/BUSEXC: %08lX %08X %08X\n",
1470 1.55 tsutsui (stat->nd_map->dm_segs[stat->nd_idx].ds_addr +
1471 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len),
1472 1.55 tsutsui l, s);
1473 1.55 tsutsui ndtracep += strlen(ndtracep);
1474 1.37 christos }
1475 1.37 christos #endif
1476 1.38 mycroft #endif
1477 1.37 christos } else {
1478 1.37 christos #if 0
1479 1.37 christos if (state & DMACSR_BUSEXC) {
1480 1.55 tsutsui while (nd_bsr4(DD_NEXT) !=
1481 1.55 tsutsui (nd_bsr4(DD_LIMIT) & 0x7FFFFFFF))
1482 1.55 tsutsui printf("Y"); /* DELAY(50); */
1483 1.55 tsutsui state = nd_bsr4(DD_CSR);
1484 1.37 christos }
1485 1.37 christos #endif
1486 1.37 christos
1487 1.37 christos if (!(state & DMACSR_SUPDATE)) {
1488 1.38 mycroft nextdma_rotate(nsc);
1489 1.37 christos } else {
1490 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE |
1491 1.55 tsutsui DMACSR_INITBUF | DMACSR_RESET |
1492 1.55 tsutsui (state & DMACSR_READ ?
1493 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE));
1494 1.55 tsutsui
1495 1.55 tsutsui nd_bsw4(DD_NEXT,
1496 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_addr);
1497 1.55 tsutsui nd_bsw4(DD_LIMIT,
1498 1.55 tsutsui (stat->nd_map->dm_segs[stat->nd_idx].ds_addr +
1499 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len) |
1500 1.55 tsutsui 0/* x80000000 */);
1501 1.38 mycroft if (stat->nd_map_cont) {
1502 1.55 tsutsui nd_bsw4(DD_START,
1503 1.55 tsutsui stat->nd_map_cont->dm_segs[
1504 1.55 tsutsui stat->nd_idx_cont].ds_addr);
1505 1.55 tsutsui nd_bsw4(DD_STOP,
1506 1.55 tsutsui (stat->nd_map_cont->dm_segs[
1507 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1508 1.55 tsutsui stat->nd_map_cont->dm_segs[
1509 1.55 tsutsui stat->nd_idx_cont].ds_len) |
1510 1.55 tsutsui 0/* x80000000 */);
1511 1.37 christos }
1512 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_SETENABLE | DMACSR_CLRCOMPLETE |
1513 1.55 tsutsui (state & DMACSR_READ ?
1514 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE) |
1515 1.55 tsutsui (stat->nd_map_cont ? DMACSR_SETSUPDATE : 0));
1516 1.37 christos #if 1
1517 1.38 mycroft #ifdef ESP_DEBUG
1518 1.55 tsutsui sprintf(ndtracep, "supdate ");
1519 1.55 tsutsui ndtracep += strlen(ndtracep);
1520 1.55 tsutsui sprintf(ndtracep, "%08X %08X %08X %08X ",
1521 1.55 tsutsui nd_bsr4(DD_NEXT),
1522 1.55 tsutsui nd_bsr4(DD_LIMIT) & 0x7FFFFFFF,
1523 1.55 tsutsui nd_bsr4 (DD_START),
1524 1.55 tsutsui nd_bsr4 (DD_STOP) & 0x7FFFFFFF);
1525 1.55 tsutsui ndtracep += strlen(ndtracep);
1526 1.38 mycroft #endif
1527 1.37 christos #endif
1528 1.38 mycroft stat->nd_exception++;
1529 1.55 tsutsui return 1;
1530 1.37 christos /* NCR_WRITE_REG(sc, ESP_DCTL, ctl); */
1531 1.37 christos goto restart;
1532 1.37 christos }
1533 1.37 christos
1534 1.38 mycroft if (stat->nd_map) {
1535 1.37 christos #if 1
1536 1.38 mycroft #ifdef ESP_DEBUG
1537 1.55 tsutsui sprintf(ndtracep, "%08X %08X %08X %08X ",
1538 1.55 tsutsui nd_bsr4 (DD_NEXT),
1539 1.55 tsutsui nd_bsr4 (DD_LIMIT) & 0x7FFFFFFF,
1540 1.55 tsutsui nd_bsr4 (DD_START),
1541 1.55 tsutsui nd_bsr4 (DD_STOP) & 0x7FFFFFFF);
1542 1.55 tsutsui ndtracep += strlen(ndtracep);
1543 1.38 mycroft #endif
1544 1.37 christos #endif
1545 1.37 christos
1546 1.37 christos #if 0
1547 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE | DMACSR_RESET);
1548 1.37 christos
1549 1.55 tsutsui nd_bsw4(DD_CSR, 0);
1550 1.37 christos #endif
1551 1.37 christos #if 1
1552 1.37 christos /* 6/2 */
1553 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE |
1554 1.55 tsutsui DMACSR_INITBUF | DMACSR_RESET |
1555 1.55 tsutsui (state & DMACSR_READ ?
1556 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE));
1557 1.37 christos
1558 1.55 tsutsui /* nextdma_setup_curr_regs(nsc); */
1559 1.55 tsutsui nd_bsw4(DD_NEXT,
1560 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_addr);
1561 1.55 tsutsui nd_bsw4(DD_LIMIT,
1562 1.55 tsutsui (stat->nd_map->dm_segs[stat->nd_idx].ds_addr +
1563 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_len) |
1564 1.55 tsutsui 0/* x80000000 */);
1565 1.55 tsutsui /* nextdma_setup_cont_regs(nsc); */
1566 1.38 mycroft if (stat->nd_map_cont) {
1567 1.55 tsutsui nd_bsw4(DD_START,
1568 1.55 tsutsui stat->nd_map_cont->dm_segs[
1569 1.55 tsutsui stat->nd_idx_cont].ds_addr);
1570 1.55 tsutsui nd_bsw4(DD_STOP,
1571 1.55 tsutsui (stat->nd_map_cont->dm_segs[
1572 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1573 1.55 tsutsui stat->nd_map_cont->dm_segs[
1574 1.55 tsutsui stat->nd_idx_cont].ds_len) |
1575 1.55 tsutsui 0/* x80000000 */);
1576 1.37 christos }
1577 1.37 christos
1578 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_SETENABLE |
1579 1.55 tsutsui (stat->nd_map_cont ? DMACSR_SETSUPDATE : 0) |
1580 1.55 tsutsui (state & DMACSR_READ ?
1581 1.55 tsutsui DMACSR_SETREAD : DMACSR_SETWRITE));
1582 1.38 mycroft #ifdef ESP_DEBUG
1583 1.38 mycroft /* ndtraceshow++; */
1584 1.38 mycroft #endif
1585 1.38 mycroft stat->nd_exception++;
1586 1.55 tsutsui return 1;
1587 1.37 christos #endif
1588 1.37 christos /* NCR_WRITE_REG(sc, ESP_DCTL, ctl); */
1589 1.37 christos goto restart;
1590 1.37 christos restart:
1591 1.37 christos #if 1
1592 1.38 mycroft #ifdef ESP_DEBUG
1593 1.55 tsutsui sprintf(ndtracep, "restart %08lX %08lX\n",
1594 1.55 tsutsui stat->nd_map->dm_segs[stat->nd_idx].ds_addr,
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_len);
1597 1.38 mycroft if (stat->nd_map_cont) {
1598 1.55 tsutsui sprintf(ndtracep + strlen(ndtracep) - 1,
1599 1.55 tsutsui " %08lX %08lX\n",
1600 1.55 tsutsui stat->nd_map_cont->dm_segs[
1601 1.55 tsutsui stat->nd_idx_cont].ds_addr,
1602 1.55 tsutsui stat->nd_map_cont->dm_segs[
1603 1.55 tsutsui stat->nd_idx_cont].ds_addr +
1604 1.55 tsutsui stat->nd_map_cont->dm_segs[
1605 1.55 tsutsui stat->nd_idx_cont].ds_len);
1606 1.37 christos }
1607 1.55 tsutsui ndtracep += strlen(ndtracep);
1608 1.38 mycroft #endif
1609 1.37 christos #endif
1610 1.38 mycroft nextdma_print(nsc);
1611 1.55 tsutsui NCR_WRITE_REG(sc, ESP_DCTL,
1612 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
1613 1.55 tsutsui printf("ff:%02x tcm:%d tcl:%d esp_dstat:%02x"
1614 1.55 tsutsui " state:%02x step: %02x intr:%02x state:%08X\n",
1615 1.55 tsutsui NCR_READ_REG(sc, NCR_FFLAG),
1616 1.55 tsutsui NCR_READ_REG((sc), NCR_TCM),
1617 1.55 tsutsui NCR_READ_REG((sc), NCR_TCL),
1618 1.55 tsutsui NCR_READ_REG(sc, ESP_DSTAT),
1619 1.55 tsutsui NCR_READ_REG(sc, NCR_STAT),
1620 1.55 tsutsui NCR_READ_REG(sc, NCR_STEP),
1621 1.55 tsutsui NCR_READ_REG(sc, NCR_INTR), state);
1622 1.38 mycroft #ifdef ESP_DEBUG
1623 1.38 mycroft *ndtracep = '\0';
1624 1.55 tsutsui printf("ndtrace: %s\n", ndtrace);
1625 1.38 mycroft #endif
1626 1.55 tsutsui panic("%s: busexc/supdate occurred."
1627 1.55 tsutsui " Please email this output to chris (at) pin.lu.",
1628 1.55 tsutsui device_xname(sc->sc_dev));
1629 1.38 mycroft #ifdef ESP_DEBUG
1630 1.38 mycroft ndtraceshow++;
1631 1.38 mycroft #endif
1632 1.37 christos } else {
1633 1.55 tsutsui nd_bsw4(DD_CSR, DMACSR_CLRCOMPLETE | DMACSR_RESET);
1634 1.38 mycroft if (nsc->sc_conf.nd_shutdown_cb)
1635 1.38 mycroft (*nsc->sc_conf.nd_shutdown_cb)(nsc->sc_conf.nd_cb_arg);
1636 1.37 christos }
1637 1.37 christos }
1638 1.55 tsutsui return 1;
1639 1.37 christos }
1640 1.37 christos
1641 1.44 wiz /* Internal DMA callback routines */
1642 1.2 dbj bus_dmamap_t
1643 1.49 chs esp_dmacb_continue(void *arg)
1644 1.2 dbj {
1645 1.55 tsutsui struct ncr53c9x_softc *sc = arg;
1646 1.2 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1647 1.2 dbj
1648 1.38 mycroft NDTRACEIF (*ndtracep++ = 'x');
1649 1.44 wiz DPRINTF(("%s: DMA continue\n",sc->sc_dev.dv_xname));
1650 1.4 dbj
1651 1.2 dbj #ifdef DIAGNOSTIC
1652 1.2 dbj if ((esc->sc_datain < 0) || (esc->sc_datain > 1)) {
1653 1.55 tsutsui panic("%s: map not loaded in DMA continue callback,"
1654 1.55 tsutsui " datain = %d",
1655 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain);
1656 1.2 dbj }
1657 1.2 dbj #endif
1658 1.18 dbj
1659 1.55 tsutsui if (((esc->sc_loaded & ESP_LOADED_MAIN) == 0) &&
1660 1.55 tsutsui (esc->sc_main_dmamap->dm_mapsize)) {
1661 1.55 tsutsui DPRINTF(("%s: Loading main map\n", device_xname(sc->sc_dev)));
1662 1.19 dbj #if 0
1663 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_main_dmamap,
1664 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1665 1.55 tsutsui (esc->sc_datain ?
1666 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1667 1.55 tsutsui esc->sc_main_dmamap->dm_xfer_len = 0;
1668 1.55 tsutsui #endif
1669 1.55 tsutsui esc->sc_loaded |= ESP_LOADED_MAIN;
1670 1.55 tsutsui return esc->sc_main_dmamap;
1671 1.18 dbj }
1672 1.18 dbj
1673 1.55 tsutsui if (((esc->sc_loaded & ESP_LOADED_TAIL) == 0) &&
1674 1.55 tsutsui (esc->sc_tail_dmamap->dm_mapsize)) {
1675 1.55 tsutsui DPRINTF(("%s: Loading tail map\n", device_xname(sc->sc_dev)));
1676 1.19 dbj #if 0
1677 1.55 tsutsui bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap,
1678 1.55 tsutsui 0, esc->sc_tail_dmamap->dm_mapsize,
1679 1.55 tsutsui (esc->sc_datain ?
1680 1.55 tsutsui BUS_DMASYNC_PREREAD : BUS_DMASYNC_PREWRITE));
1681 1.55 tsutsui esc->sc_tail_dmamap->dm_xfer_len = 0;
1682 1.19 dbj #endif
1683 1.55 tsutsui esc->sc_loaded |= ESP_LOADED_TAIL;
1684 1.55 tsutsui return esc->sc_tail_dmamap;
1685 1.10 dbj }
1686 1.18 dbj
1687 1.55 tsutsui DPRINTF(("%s: not loading map\n", device_xname(sc->sc_dev)));
1688 1.55 tsutsui return 0;
1689 1.2 dbj }
1690 1.2 dbj
1691 1.14 dbj
1692 1.2 dbj void
1693 1.49 chs esp_dmacb_completed(bus_dmamap_t map, void *arg)
1694 1.2 dbj {
1695 1.2 dbj struct ncr53c9x_softc *sc = (struct ncr53c9x_softc *)arg;
1696 1.2 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1697 1.2 dbj
1698 1.38 mycroft NDTRACEIF (*ndtracep++ = 'X');
1699 1.55 tsutsui DPRINTF(("%s: DMA completed\n", device_xname(sc->sc_dev)));
1700 1.4 dbj
1701 1.2 dbj #ifdef DIAGNOSTIC
1702 1.14 dbj if ((esc->sc_datain < 0) || (esc->sc_datain > 1)) {
1703 1.55 tsutsui panic("%s: invalid DMA direction in completed callback,"
1704 1.55 tsutsui " datain = %d",
1705 1.55 tsutsui device_xname(sc->sc_dev), esc->sc_datain);
1706 1.32 dbj }
1707 1.32 dbj #endif
1708 1.32 dbj
1709 1.34 dbj #if defined(DIAGNOSTIC) && 0
1710 1.32 dbj {
1711 1.32 dbj int i;
1712 1.55 tsutsui for(i = 0; i < map->dm_nsegs; i++) {
1713 1.33 dbj if (map->dm_xfer_len != map->dm_mapsize) {
1714 1.55 tsutsui printf("%s: map->dm_mapsize = %d\n",
1715 1.55 tsutsui device_xname(sc->sc_dev), map->dm_mapsize);
1716 1.55 tsutsui printf("%s: map->dm_nsegs = %d\n",
1717 1.55 tsutsui device_xname(sc->sc_dev), map->dm_nsegs);
1718 1.55 tsutsui printf("%s: map->dm_xfer_len = %d\n",
1719 1.55 tsutsui device_xname(sc->sc_dev), map->dm_xfer_len);
1720 1.55 tsutsui for(i = 0; i < map->dm_nsegs; i++) {
1721 1.55 tsutsui printf("%s: map->dm_segs[%d].ds_addr ="
1722 1.55 tsutsui " 0x%08lx\n",
1723 1.55 tsutsui device_xname(sc->sc_dev), i,
1724 1.55 tsutsui map->dm_segs[i].ds_addr);
1725 1.55 tsutsui printf("%s: map->dm_segs[%d].ds_len ="
1726 1.55 tsutsui " %d\n",
1727 1.55 tsutsui device_xname(sc->sc_dev), i,
1728 1.55 tsutsui map->dm_segs[i].ds_len);
1729 1.32 dbj }
1730 1.55 tsutsui panic("%s: incomplete DMA transfer",
1731 1.55 tsutsui device_xname(sc->sc_dev));
1732 1.32 dbj }
1733 1.32 dbj }
1734 1.2 dbj }
1735 1.23 dbj #endif
1736 1.23 dbj
1737 1.23 dbj if (map == esc->sc_main_dmamap) {
1738 1.23 dbj #ifdef DIAGNOSTIC
1739 1.23 dbj if ((esc->sc_loaded & ESP_UNLOADED_MAIN) ||
1740 1.55 tsutsui (esc->sc_loaded & ESP_LOADED_MAIN) == 0) {
1741 1.55 tsutsui panic("%s: unexpected completed call for main map",
1742 1.55 tsutsui device_xname(sc->sc_dev));
1743 1.23 dbj }
1744 1.23 dbj #endif
1745 1.23 dbj esc->sc_loaded |= ESP_UNLOADED_MAIN;
1746 1.23 dbj } else if (map == esc->sc_tail_dmamap) {
1747 1.23 dbj #ifdef DIAGNOSTIC
1748 1.23 dbj if ((esc->sc_loaded & ESP_UNLOADED_TAIL) ||
1749 1.55 tsutsui (esc->sc_loaded & ESP_LOADED_TAIL) == 0) {
1750 1.55 tsutsui panic("%s: unexpected completed call for tail map",
1751 1.55 tsutsui device_xname(sc->sc_dev));
1752 1.23 dbj }
1753 1.23 dbj #endif
1754 1.23 dbj esc->sc_loaded |= ESP_UNLOADED_TAIL;
1755 1.23 dbj }
1756 1.23 dbj #ifdef DIAGNOSTIC
1757 1.23 dbj else {
1758 1.55 tsutsui panic("%s: unexpected completed map", device_xname(sc->sc_dev));
1759 1.2 dbj }
1760 1.2 dbj #endif
1761 1.2 dbj
1762 1.23 dbj #ifdef ESP_DEBUG
1763 1.23 dbj if (esp_debug) {
1764 1.23 dbj if (map == esc->sc_main_dmamap) {
1765 1.55 tsutsui printf("%s: completed main map\n",
1766 1.55 tsutsui device_xname(sc->sc_dev));
1767 1.23 dbj } else if (map == esc->sc_tail_dmamap) {
1768 1.55 tsutsui printf("%s: completed tail map\n",
1769 1.55 tsutsui device_xname(sc->sc_dev));
1770 1.23 dbj }
1771 1.23 dbj }
1772 1.23 dbj #endif
1773 1.22 dbj
1774 1.22 dbj #if 0
1775 1.22 dbj if ((map == esc->sc_tail_dmamap) ||
1776 1.55 tsutsui ((esc->sc_tail_size == 0) && (map == esc->sc_main_dmamap))) {
1777 1.22 dbj
1778 1.55 tsutsui /*
1779 1.55 tsutsui * Clear the DMAMOD bit in the DCTL register to give control
1780 1.22 dbj * back to the scsi chip.
1781 1.22 dbj */
1782 1.22 dbj if (esc->sc_datain) {
1783 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1784 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMARD);
1785 1.22 dbj } else {
1786 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1787 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
1788 1.22 dbj }
1789 1.55 tsutsui DPRINTF(("esp dctl is 0x%02x\n", NCR_READ_REG(sc, ESP_DCTL)));
1790 1.22 dbj }
1791 1.22 dbj #endif
1792 1.22 dbj
1793 1.22 dbj
1794 1.19 dbj #if 0
1795 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, map,
1796 1.55 tsutsui 0, map->dm_mapsize,
1797 1.55 tsutsui (esc->sc_datain ? BUS_DMASYNC_POSTREAD : BUS_DMASYNC_POSTWRITE));
1798 1.19 dbj #endif
1799 1.13 dbj
1800 1.2 dbj }
1801 1.2 dbj
1802 1.2 dbj void
1803 1.49 chs esp_dmacb_shutdown(void *arg)
1804 1.2 dbj {
1805 1.2 dbj struct ncr53c9x_softc *sc = (struct ncr53c9x_softc *)arg;
1806 1.2 dbj struct esp_softc *esc = (struct esp_softc *)sc;
1807 1.2 dbj
1808 1.38 mycroft NDTRACEIF (*ndtracep++ = 'S');
1809 1.55 tsutsui DPRINTF(("%s: DMA shutdown\n", device_xname(sc->sc_dev)));
1810 1.4 dbj
1811 1.37 christos if (esc->sc_loaded == 0)
1812 1.37 christos return;
1813 1.37 christos
1814 1.22 dbj #if 0
1815 1.22 dbj {
1816 1.22 dbj /* Clear the DMAMOD bit in the DCTL register to give control
1817 1.22 dbj * back to the scsi chip.
1818 1.22 dbj */
1819 1.22 dbj if (esc->sc_datain) {
1820 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1821 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB | ESPDCTL_DMARD);
1822 1.22 dbj } else {
1823 1.22 dbj NCR_WRITE_REG(sc, ESP_DCTL,
1824 1.55 tsutsui ESPDCTL_16MHZ | ESPDCTL_INTENB);
1825 1.22 dbj }
1826 1.55 tsutsui DPRINTF(("esp dctl is 0x%02x\n", NCR_READ_REG(sc, ESP_DCTL)));
1827 1.22 dbj }
1828 1.22 dbj #endif
1829 1.22 dbj
1830 1.55 tsutsui DPRINTF(("%s: esp_dma_nest == %d\n",
1831 1.55 tsutsui device_xname(sc->sc_dev), esp_dma_nest));
1832 1.22 dbj
1833 1.13 dbj /* Stuff the end slop into fifo */
1834 1.3 dbj
1835 1.14 dbj #ifdef ESP_DEBUG
1836 1.14 dbj if (esp_debug) {
1837 1.13 dbj int n = NCR_READ_REG(sc, NCR_FFLAG);
1838 1.55 tsutsui
1839 1.20 dbj DPRINTF(("%s: fifo size = %d, seq = 0x%x\n",
1840 1.55 tsutsui device_xname(sc->sc_dev), n & NCRFIFO_FF,
1841 1.55 tsutsui (n & NCRFIFO_SS) >> 5));
1842 1.13 dbj }
1843 1.13 dbj #endif
1844 1.12 dbj
1845 1.22 dbj if (esc->sc_main_dmamap->dm_mapsize) {
1846 1.55 tsutsui if (!esc->sc_datain) {
1847 1.55 tsutsui /* unpatch the DMA map for write overrun */
1848 1.37 christos esc->sc_main_dmamap->dm_mapsize -= ESP_DMA_OVERRUN;
1849 1.55 tsutsui esc->sc_main_dmamap->dm_segs[
1850 1.55 tsutsui esc->sc_main_dmamap->dm_nsegs - 1].ds_len -=
1851 1.55 tsutsui ESP_DMA_OVERRUN;
1852 1.37 christos }
1853 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_main_dmamap,
1854 1.55 tsutsui 0, esc->sc_main_dmamap->dm_mapsize,
1855 1.55 tsutsui (esc->sc_datain ?
1856 1.55 tsutsui BUS_DMASYNC_POSTREAD : BUS_DMASYNC_POSTWRITE));
1857 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_main_dmamap);
1858 1.38 mycroft NDTRACEIF (
1859 1.55 tsutsui sprintf(ndtracep, "m%ld",
1860 1.55 tsutsui esc->sc_main_dmamap->dm_xfer_len);
1861 1.55 tsutsui ndtracep += strlen(ndtracep);
1862 1.55 tsutsui );
1863 1.22 dbj }
1864 1.22 dbj
1865 1.22 dbj if (esc->sc_tail_dmamap->dm_mapsize) {
1866 1.38 mycroft bus_dmamap_sync(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap,
1867 1.55 tsutsui 0, esc->sc_tail_dmamap->dm_mapsize,
1868 1.55 tsutsui (esc->sc_datain ?
1869 1.55 tsutsui BUS_DMASYNC_POSTREAD : BUS_DMASYNC_POSTWRITE));
1870 1.38 mycroft bus_dmamap_unload(esc->sc_dma->sc_dmat, esc->sc_tail_dmamap);
1871 1.44 wiz /* copy the tail DMA buffer data for read transfers */
1872 1.37 christos if (esc->sc_datain) {
1873 1.55 tsutsui memcpy(*esc->sc_dmaaddr + esc->sc_begin_size +
1874 1.55 tsutsui esc->sc_main_size, esc->sc_tail,
1875 1.55 tsutsui esc->sc_dmasize -
1876 1.55 tsutsui (esc->sc_begin_size + esc->sc_main_size));
1877 1.37 christos }
1878 1.38 mycroft NDTRACEIF (
1879 1.55 tsutsui sprintf(ndtracep, "t%ld",
1880 1.55 tsutsui esc->sc_tail_dmamap->dm_xfer_len);
1881 1.55 tsutsui ndtracep += strlen(ndtracep);
1882 1.55 tsutsui );
1883 1.4 dbj }
1884 1.13 dbj
1885 1.18 dbj #ifdef ESP_DEBUG
1886 1.18 dbj if (esp_debug) {
1887 1.35 chs printf("%s: dma_shutdown: addr=%p,len=0x%08x,size=0x%08x\n",
1888 1.55 tsutsui device_xname(sc->sc_dev),
1889 1.55 tsutsui *esc->sc_dmaaddr, *esc->sc_dmalen, esc->sc_dmasize);
1890 1.24 dbj if (esp_debug > 10) {
1891 1.55 tsutsui esp_hex_dump(*(esc->sc_dmaaddr), esc->sc_dmasize);
1892 1.35 chs printf("%s: tail=%p,tailbuf=%p,tail_size=0x%08x\n",
1893 1.55 tsutsui device_xname(sc->sc_dev),
1894 1.55 tsutsui esc->sc_tail, &(esc->sc_tailbuf[0]),
1895 1.55 tsutsui esc->sc_tail_size);
1896 1.55 tsutsui esp_hex_dump(&(esc->sc_tailbuf[0]),
1897 1.55 tsutsui sizeof(esc->sc_tailbuf));
1898 1.24 dbj }
1899 1.13 dbj }
1900 1.11 dbj #endif
1901 1.3 dbj
1902 1.18 dbj esc->sc_main = 0;
1903 1.18 dbj esc->sc_main_size = 0;
1904 1.14 dbj esc->sc_tail = 0;
1905 1.14 dbj esc->sc_tail_size = 0;
1906 1.19 dbj
1907 1.19 dbj esc->sc_datain = -1;
1908 1.37 christos /* esc->sc_dmaaddr = 0; */
1909 1.37 christos /* esc->sc_dmalen = 0; */
1910 1.37 christos /* esc->sc_dmasize = 0; */
1911 1.19 dbj
1912 1.19 dbj esc->sc_loaded = 0;
1913 1.19 dbj
1914 1.19 dbj esc->sc_begin = 0;
1915 1.19 dbj esc->sc_begin_size = 0;
1916 1.20 dbj
1917 1.20 dbj #ifdef ESP_DEBUG
1918 1.20 dbj if (esp_debug) {
1919 1.28 tv char sbuf[256];
1920 1.28 tv
1921 1.28 tv bitmask_snprintf((*(volatile u_long *)IIOV(NEXT_P_INTRSTAT)),
1922 1.55 tsutsui NEXT_INTR_BITS, sbuf, sizeof(sbuf));
1923 1.28 tv printf(" *intrstat = 0x%s\n", sbuf);
1924 1.28 tv
1925 1.28 tv bitmask_snprintf((*(volatile u_long *)IIOV(NEXT_P_INTRMASK)),
1926 1.55 tsutsui NEXT_INTR_BITS, sbuf, sizeof(sbuf));
1927 1.28 tv printf(" *intrmask = 0x%s\n", sbuf);
1928 1.20 dbj }
1929 1.20 dbj #endif
1930 1.1 dbj }
1931