sc_wrap.c revision 1.22 1 1.22 wiz /* $NetBSD: sc_wrap.c,v 1.22 2003/05/03 18:10:54 wiz Exp $ */
2 1.3 tsubai
3 1.1 tsubai /*
4 1.4 tsubai * This driver is slow! Need to rewrite.
5 1.4 tsubai */
6 1.1 tsubai
7 1.1 tsubai #include <sys/types.h>
8 1.1 tsubai #include <sys/param.h>
9 1.1 tsubai #include <sys/systm.h>
10 1.1 tsubai #include <sys/kernel.h>
11 1.1 tsubai #include <sys/device.h>
12 1.1 tsubai #include <sys/proc.h>
13 1.1 tsubai #include <sys/buf.h>
14 1.1 tsubai #include <sys/malloc.h>
15 1.1 tsubai
16 1.21 thorpej #include <uvm/uvm_extern.h>
17 1.21 thorpej
18 1.1 tsubai #include <dev/scsipi/scsi_all.h>
19 1.1 tsubai #include <dev/scsipi/scsipi_all.h>
20 1.1 tsubai #include <dev/scsipi/scsiconf.h>
21 1.1 tsubai #include <dev/scsipi/scsi_message.h>
22 1.1 tsubai
23 1.2 thorpej #include <newsmips/dev/scsireg.h>
24 1.2 thorpej #include <newsmips/dev/dmac_0448.h>
25 1.2 thorpej #include <newsmips/dev/screg_1185.h>
26 1.1 tsubai
27 1.1 tsubai #include <machine/adrsmap.h>
28 1.1 tsubai #include <machine/autoconf.h>
29 1.1 tsubai #include <machine/machConst.h>
30 1.1 tsubai
31 1.18 thorpej #include <mips/cache.h>
32 1.18 thorpej
33 1.1 tsubai static int cxd1185_match __P((struct device *, struct cfdata *, void *));
34 1.1 tsubai static void cxd1185_attach __P((struct device *, struct device *, void *));
35 1.1 tsubai
36 1.20 thorpej CFATTACH_DECL(sc, sizeof(struct sc_softc),
37 1.20 thorpej cxd1185_match, cxd1185_attach, NULL, NULL);
38 1.1 tsubai
39 1.1 tsubai void cxd1185_init __P((struct sc_softc *));
40 1.4 tsubai static void free_scb __P((struct sc_softc *, struct sc_scb *));
41 1.1 tsubai static struct sc_scb *get_scb __P((struct sc_softc *, int));
42 1.17 bouyer static void sc_scsipi_request __P((struct scsipi_channel *,
43 1.17 bouyer scsipi_adapter_req_t, void *));
44 1.4 tsubai static int sc_poll __P((struct sc_softc *, int, int));
45 1.1 tsubai static void sc_sched __P((struct sc_softc *));
46 1.4 tsubai void sc_done __P((struct sc_scb *));
47 1.14 tsubai int sc_intr __P((void *));
48 1.1 tsubai static void cxd1185_timeout __P((void *));
49 1.1 tsubai
50 1.4 tsubai extern void sc_send __P((struct sc_scb *, int, int));
51 1.1 tsubai extern int scintr __P((void));
52 1.1 tsubai extern void scsi_hardreset __P((void));
53 1.4 tsubai extern int sc_busy __P((struct sc_softc *, int));
54 1.6 tsubai extern paddr_t kvtophys __P((vaddr_t));
55 1.1 tsubai
56 1.4 tsubai static int sc_disconnect = IDT_DISCON;
57 1.4 tsubai
58 1.1 tsubai int
59 1.1 tsubai cxd1185_match(parent, cf, aux)
60 1.1 tsubai struct device *parent;
61 1.1 tsubai struct cfdata *cf;
62 1.1 tsubai void *aux;
63 1.1 tsubai {
64 1.1 tsubai struct confargs *ca = aux;
65 1.1 tsubai
66 1.1 tsubai if (strcmp(ca->ca_name, "sc"))
67 1.1 tsubai return 0;
68 1.1 tsubai
69 1.1 tsubai return 1;
70 1.1 tsubai }
71 1.1 tsubai
72 1.1 tsubai void
73 1.1 tsubai cxd1185_attach(parent, self, aux)
74 1.1 tsubai struct device *parent, *self;
75 1.1 tsubai void *aux;
76 1.1 tsubai {
77 1.1 tsubai struct sc_softc *sc = (void *)self;
78 1.1 tsubai struct sc_scb *scb;
79 1.13 tsubai int i, intlevel;
80 1.13 tsubai
81 1.13 tsubai intlevel = sc->sc_dev.dv_cfdata->cf_level;
82 1.13 tsubai if (intlevel == -1) {
83 1.13 tsubai #if 0
84 1.13 tsubai printf(": interrupt level not configured\n");
85 1.13 tsubai return;
86 1.13 tsubai #else
87 1.13 tsubai printf(": interrupt level not configured; using");
88 1.13 tsubai intlevel = 0;
89 1.13 tsubai #endif
90 1.13 tsubai }
91 1.13 tsubai printf(" level %d\n", intlevel);
92 1.1 tsubai
93 1.1 tsubai if (sc_idenr & 0x08)
94 1.4 tsubai sc->scsi_1185AQ = 1;
95 1.4 tsubai else
96 1.4 tsubai sc->scsi_1185AQ = 0;
97 1.1 tsubai
98 1.17 bouyer sc->sc_adapter.adapt_dev = &sc->sc_dev;
99 1.17 bouyer sc->sc_adapter.adapt_nchannels = 1;
100 1.17 bouyer sc->sc_adapter.adapt_openings = 7;
101 1.17 bouyer sc->sc_adapter.adapt_max_periph = 1;
102 1.17 bouyer sc->sc_adapter.adapt_ioctl = NULL;
103 1.17 bouyer sc->sc_adapter.adapt_minphys = minphys;
104 1.17 bouyer sc->sc_adapter.adapt_request = sc_scsipi_request;
105 1.17 bouyer
106 1.17 bouyer memset(&sc->sc_channel, 0, sizeof(sc->sc_channel));
107 1.17 bouyer sc->sc_channel.chan_adapter = &sc->sc_adapter;
108 1.17 bouyer sc->sc_channel.chan_bustype = &scsi_bustype;
109 1.17 bouyer sc->sc_channel.chan_channel = 0;
110 1.17 bouyer sc->sc_channel.chan_ntargets = 8;
111 1.17 bouyer sc->sc_channel.chan_nluns = 8;
112 1.17 bouyer sc->sc_channel.chan_id = 7;
113 1.1 tsubai
114 1.1 tsubai TAILQ_INIT(&sc->ready_list);
115 1.1 tsubai TAILQ_INIT(&sc->free_list);
116 1.1 tsubai
117 1.1 tsubai scb = sc->sc_scb;
118 1.1 tsubai for (i = 0; i < 24; i++) { /* XXX 24 */
119 1.1 tsubai TAILQ_INSERT_TAIL(&sc->free_list, scb, chain);
120 1.1 tsubai scb++;
121 1.1 tsubai }
122 1.1 tsubai
123 1.1 tsubai cxd1185_init(sc);
124 1.1 tsubai DELAY(100000);
125 1.1 tsubai
126 1.14 tsubai hb_intr_establish(intlevel, IPL_BIO, sc_intr, sc);
127 1.12 tsubai
128 1.17 bouyer config_found(&sc->sc_dev, &sc->sc_channel, scsiprint);
129 1.1 tsubai }
130 1.1 tsubai
131 1.1 tsubai void
132 1.1 tsubai cxd1185_init(sc)
133 1.1 tsubai struct sc_softc *sc;
134 1.1 tsubai {
135 1.1 tsubai int i;
136 1.1 tsubai
137 1.1 tsubai for (i = 0; i < 8; i++)
138 1.1 tsubai sc->inuse[i] = 0;
139 1.1 tsubai
140 1.1 tsubai scsi_hardreset();
141 1.1 tsubai }
142 1.1 tsubai
143 1.1 tsubai void
144 1.4 tsubai free_scb(sc, scb)
145 1.1 tsubai struct sc_softc *sc;
146 1.1 tsubai struct sc_scb *scb;
147 1.1 tsubai {
148 1.1 tsubai int s;
149 1.1 tsubai
150 1.1 tsubai s = splbio();
151 1.1 tsubai
152 1.1 tsubai TAILQ_INSERT_HEAD(&sc->free_list, scb, chain);
153 1.1 tsubai
154 1.1 tsubai /*
155 1.1 tsubai * If there were none, wake anybody waiting for one to come free,
156 1.1 tsubai * starting with queued entries.
157 1.1 tsubai */
158 1.1 tsubai if (scb->chain.tqe_next == 0)
159 1.1 tsubai wakeup(&sc->free_list);
160 1.1 tsubai
161 1.1 tsubai splx(s);
162 1.1 tsubai }
163 1.1 tsubai
164 1.1 tsubai struct sc_scb *
165 1.1 tsubai get_scb(sc, flags)
166 1.1 tsubai struct sc_softc *sc;
167 1.1 tsubai int flags;
168 1.1 tsubai {
169 1.1 tsubai int s;
170 1.1 tsubai struct sc_scb *scb;
171 1.1 tsubai
172 1.1 tsubai s = splbio();
173 1.1 tsubai
174 1.1 tsubai while ((scb = sc->free_list.tqh_first) == NULL &&
175 1.11 thorpej (flags & XS_CTL_NOSLEEP) == 0)
176 1.1 tsubai tsleep(&sc->free_list, PRIBIO, "sc_scb", 0);
177 1.1 tsubai if (scb) {
178 1.1 tsubai TAILQ_REMOVE(&sc->free_list, scb, chain);
179 1.1 tsubai }
180 1.1 tsubai
181 1.1 tsubai splx(s);
182 1.1 tsubai return scb;
183 1.1 tsubai }
184 1.1 tsubai
185 1.17 bouyer void
186 1.17 bouyer sc_scsipi_request(chan, req, arg)
187 1.17 bouyer struct scsipi_channel *chan;
188 1.17 bouyer scsipi_adapter_req_t req;
189 1.17 bouyer void *arg;
190 1.17 bouyer {
191 1.1 tsubai struct scsipi_xfer *xs;
192 1.17 bouyer struct scsipi_periph *periph;
193 1.17 bouyer struct sc_softc *sc = (void *)chan->chan_adapter->adapt_dev;
194 1.1 tsubai struct sc_scb *scb;
195 1.1 tsubai int flags, s;
196 1.17 bouyer int target;
197 1.1 tsubai
198 1.17 bouyer switch (req) {
199 1.17 bouyer case ADAPTER_REQ_RUN_XFER:
200 1.17 bouyer xs = arg;
201 1.17 bouyer periph = xs->xs_periph;
202 1.17 bouyer
203 1.17 bouyer flags = xs->xs_control;
204 1.17 bouyer if ((scb = get_scb(sc, flags)) == NULL)
205 1.17 bouyer panic("sc_scsipi_request: no scb");
206 1.17 bouyer
207 1.17 bouyer scb->xs = xs;
208 1.17 bouyer scb->flags = 0;
209 1.17 bouyer scb->sc_ctag = 0;
210 1.17 bouyer scb->sc_coffset = 0;
211 1.17 bouyer scb->istatus = 0;
212 1.17 bouyer scb->tstatus = 0;
213 1.17 bouyer scb->message = 0;
214 1.17 bouyer bzero(scb->msgbuf, sizeof(scb->msgbuf));
215 1.17 bouyer
216 1.17 bouyer s = splbio();
217 1.17 bouyer
218 1.17 bouyer TAILQ_INSERT_TAIL(&sc->ready_list, scb, chain);
219 1.17 bouyer sc_sched(sc);
220 1.17 bouyer splx(s);
221 1.17 bouyer
222 1.17 bouyer if (flags & XS_CTL_POLL) {
223 1.17 bouyer target = periph->periph_target;
224 1.17 bouyer if (sc_poll(sc, target, xs->timeout)) {
225 1.17 bouyer printf("sc: timeout (retry)\n");
226 1.17 bouyer if (sc_poll(sc, target, xs->timeout)) {
227 1.17 bouyer printf("sc: timeout\n");
228 1.17 bouyer }
229 1.17 bouyer }
230 1.17 bouyer /* called during autoconfig only... */
231 1.18 thorpej mips_dcache_wbinv_all(); /* Flush DCache */
232 1.1 tsubai }
233 1.17 bouyer return;
234 1.17 bouyer case ADAPTER_REQ_GROW_RESOURCES:
235 1.17 bouyer /* XXX Not supported. */
236 1.17 bouyer return;
237 1.17 bouyer case ADAPTER_REQ_SET_XFER_MODE:
238 1.17 bouyer /* XXX Not supported. */
239 1.17 bouyer return;
240 1.1 tsubai }
241 1.1 tsubai }
242 1.1 tsubai
243 1.1 tsubai /*
244 1.1 tsubai * Used when interrupt driven I/O isn't allowed, e.g. during boot.
245 1.1 tsubai */
246 1.1 tsubai int
247 1.4 tsubai sc_poll(sc, chan, count)
248 1.4 tsubai struct sc_softc *sc;
249 1.4 tsubai int chan, count;
250 1.1 tsubai {
251 1.1 tsubai volatile u_char *int_stat = (void *)INTST1;
252 1.1 tsubai volatile u_char *int_clear = (void *)INTCLR1;
253 1.1 tsubai
254 1.4 tsubai while (sc_busy(sc, chan)) {
255 1.1 tsubai if (*int_stat & INTST1_DMA) {
256 1.1 tsubai *int_clear = INTST1_DMA;
257 1.1 tsubai if (dmac_gstat & CH_INT(CH_SCSI)) {
258 1.1 tsubai if (dmac_gstat & CH_MRQ(CH_SCSI)) {
259 1.1 tsubai DELAY(50);
260 1.1 tsubai if (dmac_gstat & CH_MRQ(CH_SCSI))
261 1.1 tsubai printf("dma_poll\n");
262 1.1 tsubai }
263 1.1 tsubai DELAY(10);
264 1.1 tsubai scintr();
265 1.1 tsubai }
266 1.1 tsubai }
267 1.1 tsubai DELAY(1000);
268 1.1 tsubai count--;
269 1.1 tsubai if (count <= 0)
270 1.1 tsubai return 1;
271 1.1 tsubai }
272 1.1 tsubai return 0;
273 1.1 tsubai }
274 1.1 tsubai
275 1.1 tsubai void
276 1.1 tsubai sc_sched(sc)
277 1.1 tsubai struct sc_softc *sc;
278 1.1 tsubai {
279 1.1 tsubai struct scsipi_xfer *xs;
280 1.17 bouyer struct scsipi_periph *periph;
281 1.1 tsubai int ie = 0;
282 1.1 tsubai int flags;
283 1.1 tsubai int chan, lun;
284 1.5 tsubai struct sc_scb *scb, *nextscb;
285 1.1 tsubai
286 1.1 tsubai scb = sc->ready_list.tqh_first;
287 1.1 tsubai start:
288 1.1 tsubai if (scb == NULL)
289 1.1 tsubai return;
290 1.1 tsubai
291 1.1 tsubai xs = scb->xs;
292 1.17 bouyer periph = xs->xs_periph;
293 1.17 bouyer chan = periph->periph_target;
294 1.11 thorpej flags = xs->xs_control;
295 1.1 tsubai
296 1.1 tsubai if (cold)
297 1.11 thorpej flags |= XS_CTL_POLL;
298 1.1 tsubai
299 1.1 tsubai if (sc->inuse[chan]) {
300 1.1 tsubai scb = scb->chain.tqe_next;
301 1.1 tsubai goto start;
302 1.1 tsubai }
303 1.1 tsubai sc->inuse[chan] = 1;
304 1.1 tsubai
305 1.11 thorpej if (flags & XS_CTL_RESET)
306 1.1 tsubai printf("SCSI RESET\n");
307 1.1 tsubai
308 1.17 bouyer lun = periph->periph_lun;
309 1.1 tsubai
310 1.4 tsubai scb->identify = MSG_IDENT | sc_disconnect | (lun & IDT_DRMASK);
311 1.4 tsubai scb->sc_ctrnscnt = xs->datalen;
312 1.1 tsubai
313 1.22 wiz /* make va->pa mapping table for DMA */
314 1.1 tsubai if (xs->datalen > 0) {
315 1.1 tsubai int pages, offset;
316 1.1 tsubai int i, pn;
317 1.6 tsubai vaddr_t va;
318 1.1 tsubai
319 1.4 tsubai /* bzero(&sc->sc_map[chan], sizeof(struct sc_map)); */
320 1.1 tsubai
321 1.6 tsubai va = (vaddr_t)xs->data;
322 1.1 tsubai
323 1.1 tsubai offset = va & PGOFSET;
324 1.21 thorpej pages = (offset + xs->datalen + PAGE_SIZE -1 ) >> PGSHIFT;
325 1.1 tsubai if (pages >= NSCMAP)
326 1.1 tsubai panic("sc_map: Too many pages");
327 1.1 tsubai
328 1.1 tsubai for (i = 0; i < pages; i++) {
329 1.6 tsubai pn = kvtophys(va) >> PGSHIFT;
330 1.1 tsubai sc->sc_map[chan].mp_addr[i] = pn;
331 1.21 thorpej va += PAGE_SIZE;
332 1.1 tsubai }
333 1.1 tsubai
334 1.1 tsubai sc->sc_map[chan].mp_offset = offset;
335 1.1 tsubai sc->sc_map[chan].mp_pages = pages;
336 1.4 tsubai scb->sc_map = &sc->sc_map[chan];
337 1.1 tsubai }
338 1.1 tsubai
339 1.11 thorpej if ((flags & XS_CTL_POLL) == 0)
340 1.3 tsubai ie = SCSI_INTEN;
341 1.1 tsubai
342 1.4 tsubai if (xs->data)
343 1.4 tsubai scb->sc_cpoint = (void *)xs->data;
344 1.4 tsubai else
345 1.4 tsubai scb->sc_cpoint = scb->msgbuf;
346 1.4 tsubai scb->scb_softc = sc;
347 1.4 tsubai
348 1.15 thorpej callout_reset(&scb->xs->xs_callout, hz * 10, cxd1185_timeout, scb);
349 1.4 tsubai sc_send(scb, chan, ie);
350 1.15 thorpej callout_stop(&scb->xs->xs_callout);
351 1.1 tsubai
352 1.5 tsubai nextscb = scb->chain.tqe_next;
353 1.5 tsubai
354 1.5 tsubai TAILQ_REMOVE(&sc->ready_list, scb, chain);
355 1.5 tsubai
356 1.5 tsubai scb = nextscb;
357 1.5 tsubai
358 1.1 tsubai goto start;
359 1.1 tsubai }
360 1.1 tsubai
361 1.1 tsubai void
362 1.4 tsubai sc_done(scb)
363 1.4 tsubai struct sc_scb *scb;
364 1.1 tsubai {
365 1.4 tsubai struct scsipi_xfer *xs = scb->xs;
366 1.17 bouyer struct scsipi_periph *periph = xs->xs_periph;
367 1.17 bouyer struct sc_softc *sc = (void *)periph->periph_channel->chan_adapter->adapt_dev;
368 1.1 tsubai
369 1.1 tsubai xs->resid = 0;
370 1.1 tsubai xs->status = 0;
371 1.1 tsubai
372 1.4 tsubai if (scb->istatus != INST_EP) {
373 1.16 matt if (scb->istatus == (INST_EP|INST_TO))
374 1.12 tsubai xs->error = XS_SELTIMEOUT;
375 1.12 tsubai else {
376 1.1 tsubai printf("SC(i): [istatus=0x%x, tstatus=0x%x]\n",
377 1.4 tsubai scb->istatus, scb->tstatus);
378 1.12 tsubai xs->error = XS_DRIVER_STUFFUP;
379 1.12 tsubai }
380 1.1 tsubai }
381 1.1 tsubai
382 1.4 tsubai switch (scb->tstatus) {
383 1.1 tsubai
384 1.1 tsubai case TGST_GOOD:
385 1.1 tsubai break;
386 1.1 tsubai
387 1.1 tsubai case TGST_CC:
388 1.17 bouyer xs->status = SCSI_CHECK;
389 1.17 bouyer if (xs->error == 0)
390 1.17 bouyer xs->error = XS_BUSY;
391 1.1 tsubai
392 1.1 tsubai default:
393 1.1 tsubai printf("SC(t): [istatus=0x%x, tstatus=0x%x]\n",
394 1.4 tsubai scb->istatus, scb->tstatus);
395 1.1 tsubai break;
396 1.1 tsubai }
397 1.1 tsubai
398 1.1 tsubai scsipi_done(xs);
399 1.4 tsubai free_scb(sc, scb);
400 1.17 bouyer sc->inuse[periph->periph_target] = 0;
401 1.1 tsubai sc_sched(sc);
402 1.1 tsubai }
403 1.1 tsubai
404 1.1 tsubai int
405 1.14 tsubai sc_intr(v)
406 1.14 tsubai void *v;
407 1.1 tsubai {
408 1.14 tsubai /* struct sc_softc *sc = v; */
409 1.14 tsubai volatile u_char *gsp = (u_char *)DMAC_GSTAT;
410 1.14 tsubai u_int gstat = *gsp;
411 1.14 tsubai int mrqb, i;
412 1.14 tsubai
413 1.14 tsubai if ((gstat & CH_INT(CH_SCSI)) == 0)
414 1.14 tsubai return 0;
415 1.14 tsubai
416 1.14 tsubai /*
417 1.14 tsubai * when DMA interrupt occurs there remain some untransferred data.
418 1.14 tsubai * wait data transfer completion.
419 1.14 tsubai */
420 1.14 tsubai mrqb = (gstat & CH_INT(CH_SCSI)) << 1;
421 1.14 tsubai if (gstat & mrqb) {
422 1.14 tsubai /*
423 1.14 tsubai * XXX SHOULD USE DELAY()
424 1.14 tsubai */
425 1.14 tsubai for (i = 0; i < 50; i++)
426 1.14 tsubai ;
427 1.14 tsubai if (*gsp & mrqb)
428 1.14 tsubai printf("sc_intr: MRQ\n");
429 1.14 tsubai }
430 1.14 tsubai scintr();
431 1.14 tsubai
432 1.14 tsubai return 1;
433 1.1 tsubai }
434 1.1 tsubai
435 1.1 tsubai
436 1.4 tsubai #if 0
437 1.1 tsubai /*
438 1.1 tsubai * SCOP_RSENSE request
439 1.1 tsubai */
440 1.1 tsubai void
441 1.1 tsubai scop_rsense(intr, sc_param, lun, ie, count, param)
442 1.1 tsubai register int intr;
443 1.1 tsubai register struct scsi *sc_param;
444 1.1 tsubai register int lun;
445 1.1 tsubai register int ie;
446 1.1 tsubai register int count;
447 1.1 tsubai register caddr_t param;
448 1.1 tsubai {
449 1.1 tsubai bzero(sc_param, sizeof(struct scsi));
450 1.4 tsubai sc_param->identify = MSG_IDENT | sc_disconnect | (lun & IDT_DRMASK);
451 1.1 tsubai sc_param->sc_lun = lun;
452 1.1 tsubai
453 1.1 tsubai sc_param->sc_cpoint = (u_char *)param;
454 1.1 tsubai sc_param->sc_ctrnscnt = count;
455 1.1 tsubai
456 1.1 tsubai /* sc_cdb */
457 1.1 tsubai sc_param->sc_opcode = SCOP_RSENSE;
458 1.1 tsubai sc_param->sc_count = count;
459 1.1 tsubai
460 1.4 tsubai sc_go(intr, sc_param, ie, sc_param);
461 1.1 tsubai }
462 1.4 tsubai #endif
463 1.1 tsubai
464 1.1 tsubai void
465 1.1 tsubai cxd1185_timeout(arg)
466 1.1 tsubai void *arg;
467 1.1 tsubai {
468 1.1 tsubai struct sc_scb *scb = arg;
469 1.1 tsubai struct scsipi_xfer *xs = scb->xs;
470 1.17 bouyer struct scsipi_periph *periph = xs->xs_periph;
471 1.1 tsubai int chan;
472 1.1 tsubai
473 1.17 bouyer chan = periph->periph_target;
474 1.1 tsubai
475 1.1 tsubai printf("sc: timeout ch=%d\n", chan);
476 1.1 tsubai
477 1.1 tsubai /* XXX abort transfer and ... */
478 1.1 tsubai }
479