sci.c revision 1.26 1 1.26 aymeric /* $NetBSD: sci.c,v 1.26 2002/01/26 13:41:00 aymeric Exp $ */
2 1.8 cgd
3 1.5 chopps /*
4 1.5 chopps * Copyright (c) 1994 Michael L. Hitch
5 1.1 chopps * Copyright (c) 1990 The Regents of the University of California.
6 1.1 chopps * All rights reserved.
7 1.1 chopps *
8 1.1 chopps * This code is derived from software contributed to Berkeley by
9 1.1 chopps * Van Jacobson of Lawrence Berkeley Laboratory.
10 1.1 chopps *
11 1.1 chopps * Redistribution and use in source and binary forms, with or without
12 1.1 chopps * modification, are permitted provided that the following conditions
13 1.1 chopps * are met:
14 1.1 chopps * 1. Redistributions of source code must retain the above copyright
15 1.1 chopps * notice, this list of conditions and the following disclaimer.
16 1.1 chopps * 2. Redistributions in binary form must reproduce the above copyright
17 1.1 chopps * notice, this list of conditions and the following disclaimer in the
18 1.1 chopps * documentation and/or other materials provided with the distribution.
19 1.1 chopps * 3. All advertising materials mentioning features or use of this software
20 1.1 chopps * must display the following acknowledgement:
21 1.1 chopps * This product includes software developed by the University of
22 1.1 chopps * California, Berkeley and its contributors.
23 1.1 chopps * 4. Neither the name of the University nor the names of its contributors
24 1.1 chopps * may be used to endorse or promote products derived from this software
25 1.1 chopps * without specific prior written permission.
26 1.1 chopps *
27 1.1 chopps * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 1.1 chopps * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 1.1 chopps * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 1.1 chopps * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 1.1 chopps * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 1.1 chopps * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 1.1 chopps * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 1.1 chopps * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 1.1 chopps * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 1.1 chopps * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37 1.1 chopps * SUCH DAMAGE.
38 1.1 chopps *
39 1.5 chopps * @(#)scsi.c 7.5 (Berkeley) 5/4/91
40 1.1 chopps */
41 1.1 chopps
42 1.1 chopps /*
43 1.1 chopps * AMIGA NCR 5380 scsi adaptor driver
44 1.1 chopps */
45 1.1 chopps
46 1.1 chopps #include <sys/param.h>
47 1.1 chopps #include <sys/systm.h>
48 1.5 chopps #include <sys/device.h>
49 1.11 chopps #include <sys/disklabel.h>
50 1.11 chopps #include <sys/dkstat.h>
51 1.1 chopps #include <sys/buf.h>
52 1.20 bouyer #include <dev/scsipi/scsi_all.h>
53 1.20 bouyer #include <dev/scsipi/scsipi_all.h>
54 1.20 bouyer #include <dev/scsipi/scsiconf.h>
55 1.23 mrg #include <uvm/uvm_extern.h>
56 1.1 chopps #include <machine/pmap.h>
57 1.5 chopps #include <machine/cpu.h>
58 1.5 chopps #include <amiga/amiga/device.h>
59 1.5 chopps #include <amiga/amiga/custom.h>
60 1.11 chopps #include <amiga/amiga/isr.h>
61 1.5 chopps #include <amiga/dev/scireg.h>
62 1.1 chopps #include <amiga/dev/scivar.h>
63 1.1 chopps
64 1.1 chopps /*
65 1.1 chopps * SCSI delays
66 1.1 chopps * In u-seconds, primarily for state changes on the SPC.
67 1.1 chopps */
68 1.5 chopps #define SCI_CMD_WAIT 50000 /* wait per step of 'immediate' cmds */
69 1.5 chopps #define SCI_DATA_WAIT 50000 /* wait per data in/out step */
70 1.5 chopps #define SCI_INIT_WAIT 50000 /* wait per step (both) during init */
71 1.1 chopps
72 1.26 aymeric int sciicmd(struct sci_softc *, int, void *, int, void *, int,u_char);
73 1.26 aymeric int scigo(struct sci_softc *, struct scsipi_xfer *);
74 1.26 aymeric int sciselectbus(struct sci_softc *, u_char, u_char);
75 1.26 aymeric void sciabort(struct sci_softc *, char *);
76 1.26 aymeric void scierror(struct sci_softc *, u_char);
77 1.26 aymeric void scisetdelay(int);
78 1.26 aymeric void sci_scsidone(struct sci_softc *, int);
79 1.26 aymeric void sci_donextcmd(struct sci_softc *);
80 1.26 aymeric int sci_ixfer_out(struct sci_softc *, int, register u_char *, int);
81 1.26 aymeric void sci_ixfer_in(struct sci_softc *, int, register u_char *, int);
82 1.5 chopps
83 1.5 chopps int sci_cmd_wait = SCI_CMD_WAIT;
84 1.5 chopps int sci_data_wait = SCI_DATA_WAIT;
85 1.5 chopps int sci_init_wait = SCI_INIT_WAIT;
86 1.1 chopps
87 1.5 chopps int sci_no_dma = 0;
88 1.5 chopps
89 1.5 chopps #ifdef DEBUG
90 1.19 christos #define QPRINTF(a) if (sci_debug > 1) printf a
91 1.5 chopps int sci_debug = 0;
92 1.1 chopps #else
93 1.16 veego #define QPRINTF(a)
94 1.1 chopps #endif
95 1.1 chopps
96 1.5 chopps /*
97 1.5 chopps * default minphys routine for sci based controllers
98 1.5 chopps */
99 1.13 mycroft void
100 1.26 aymeric sci_minphys(struct buf *bp)
101 1.5 chopps {
102 1.13 mycroft
103 1.5 chopps /*
104 1.13 mycroft * No max transfer at this level.
105 1.5 chopps */
106 1.13 mycroft minphys(bp);
107 1.5 chopps }
108 1.5 chopps
109 1.5 chopps /*
110 1.5 chopps * used by specific sci controller
111 1.5 chopps *
112 1.5 chopps * it appears that the higher level code does nothing with LUN's
113 1.5 chopps * so I will too. I could plug it in, however so could they
114 1.20 bouyer * in scsi_scsipi_cmd().
115 1.5 chopps */
116 1.25 bouyer void
117 1.26 aymeric sci_scsipi_request(struct scsipi_channel *chan, scsipi_adapter_req_t req,
118 1.26 aymeric void *arg)
119 1.25 bouyer {
120 1.20 bouyer struct scsipi_xfer *xs;
121 1.25 bouyer struct scsipi_periph *periph;
122 1.25 bouyer struct sci_softc *dev = (void *)chan->chan_adapter->adapt_dev;
123 1.5 chopps int flags, s;
124 1.1 chopps
125 1.25 bouyer switch (req) {
126 1.25 bouyer case ADAPTER_REQ_RUN_XFER:
127 1.25 bouyer xs = arg;
128 1.25 bouyer periph = xs->xs_periph;
129 1.25 bouyer flags = xs->xs_control;
130 1.1 chopps
131 1.25 bouyer if (flags & XS_CTL_DATA_UIO)
132 1.5 chopps panic("sci: scsi data uio requested");
133 1.13 mycroft
134 1.25 bouyer if (dev->sc_xs && flags & XS_CTL_POLL)
135 1.25 bouyer panic("sci_scsicmd: busy");
136 1.1 chopps
137 1.25 bouyer #ifdef DIAGNOSTIC
138 1.25 bouyer /*
139 1.25 bouyer * This should never happen as we track the resources
140 1.25 bouyer * in the mid-layer.
141 1.25 bouyer */
142 1.25 bouyer if (dev->sc_xs) {
143 1.25 bouyer scsipi_printaddr(periph);
144 1.25 bouyer printf("unable to allocate scb\n");
145 1.25 bouyer panic("sea_scsipi_request");
146 1.25 bouyer }
147 1.25 bouyer #endif
148 1.25 bouyer
149 1.25 bouyer dev->sc_xs = xs;
150 1.5 chopps splx(s);
151 1.1 chopps
152 1.25 bouyer /*
153 1.25 bouyer * nothing is pending do it now.
154 1.25 bouyer */
155 1.25 bouyer sci_donextcmd(dev);
156 1.25 bouyer
157 1.25 bouyer return;
158 1.1 chopps
159 1.25 bouyer case ADAPTER_REQ_GROW_RESOURCES:
160 1.25 bouyer return;
161 1.1 chopps
162 1.25 bouyer case ADAPTER_REQ_SET_XFER_MODE:
163 1.25 bouyer return;
164 1.25 bouyer }
165 1.5 chopps }
166 1.1 chopps
167 1.5 chopps /*
168 1.5 chopps * entered with dev->sc_xs pointing to the next xfer to perform
169 1.5 chopps */
170 1.5 chopps void
171 1.26 aymeric sci_donextcmd(struct sci_softc *dev)
172 1.5 chopps {
173 1.20 bouyer struct scsipi_xfer *xs;
174 1.25 bouyer struct scsipi_periph *periph;
175 1.5 chopps int flags, phase, stat;
176 1.5 chopps
177 1.5 chopps xs = dev->sc_xs;
178 1.25 bouyer periph = xs->xs_periph;
179 1.21 thorpej flags = xs->xs_control;
180 1.5 chopps
181 1.21 thorpej if (flags & XS_CTL_DATA_IN)
182 1.5 chopps phase = DATA_IN_PHASE;
183 1.21 thorpej else if (flags & XS_CTL_DATA_OUT)
184 1.5 chopps phase = DATA_OUT_PHASE;
185 1.5 chopps else
186 1.5 chopps phase = STATUS_PHASE;
187 1.13 mycroft
188 1.21 thorpej if (flags & XS_CTL_RESET)
189 1.5 chopps scireset(dev);
190 1.1 chopps
191 1.5 chopps dev->sc_stat[0] = -1;
192 1.25 bouyer xs->cmd->bytes[0] |= periph->periph_lun << 5;
193 1.21 thorpej if (phase == STATUS_PHASE || flags & XS_CTL_POLL)
194 1.25 bouyer stat = sciicmd(dev, periph->periph_target, xs->cmd, xs->cmdlen,
195 1.5 chopps xs->data, xs->datalen, phase);
196 1.5 chopps else if (scigo(dev, xs) == 0)
197 1.5 chopps return;
198 1.13 mycroft else
199 1.5 chopps stat = dev->sc_stat[0];
200 1.13 mycroft
201 1.5 chopps sci_scsidone(dev, stat);
202 1.5 chopps }
203 1.1 chopps
204 1.5 chopps void
205 1.26 aymeric sci_scsidone(struct sci_softc *dev, int stat)
206 1.5 chopps {
207 1.20 bouyer struct scsipi_xfer *xs;
208 1.5 chopps
209 1.5 chopps xs = dev->sc_xs;
210 1.5 chopps #ifdef DIAGNOSTIC
211 1.5 chopps if (xs == NULL)
212 1.5 chopps panic("sci_scsidone");
213 1.11 chopps #endif
214 1.5 chopps xs->status = stat;
215 1.10 chopps if (stat == 0)
216 1.5 chopps xs->resid = 0;
217 1.5 chopps else {
218 1.5 chopps switch(stat) {
219 1.5 chopps case SCSI_CHECK:
220 1.25 bouyer xs->resid = 0;
221 1.25 bouyer /* FALLTHOUGH */
222 1.5 chopps case SCSI_BUSY:
223 1.5 chopps xs->error = XS_BUSY;
224 1.5 chopps break;
225 1.5 chopps default:
226 1.5 chopps xs->error = XS_DRIVER_STUFFUP;
227 1.5 chopps QPRINTF(("sci_scsicmd() bad %x\n", stat));
228 1.5 chopps break;
229 1.5 chopps }
230 1.5 chopps }
231 1.21 thorpej
232 1.20 bouyer scsipi_done(xs);
233 1.1 chopps
234 1.1 chopps }
235 1.1 chopps
236 1.5 chopps void
237 1.26 aymeric sciabort(struct sci_softc *dev, char *where)
238 1.1 chopps {
239 1.19 christos printf ("%s: abort %s: csr = 0x%02x, bus = 0x%02x\n",
240 1.5 chopps dev->sc_dev.dv_xname, where, *dev->sci_csr, *dev->sci_bus_csr);
241 1.1 chopps
242 1.1 chopps if (dev->sc_flags & SCI_SELECTED) {
243 1.1 chopps
244 1.7 chopps /* lets just hope it worked.. */
245 1.7 chopps dev->sc_flags &= ~SCI_SELECTED;
246 1.1 chopps /* XXX */
247 1.5 chopps scireset (dev);
248 1.1 chopps }
249 1.1 chopps }
250 1.1 chopps
251 1.1 chopps /*
252 1.1 chopps * XXX Set/reset long delays.
253 1.1 chopps *
254 1.1 chopps * if delay == 0, reset default delays
255 1.1 chopps * if delay < 0, set both delays to default long initialization values
256 1.1 chopps * if delay > 0, set both delays to this value
257 1.1 chopps *
258 1.1 chopps * Used when a devices is expected to respond slowly (e.g. during
259 1.1 chopps * initialization).
260 1.1 chopps */
261 1.1 chopps void
262 1.26 aymeric scisetdelay(int del)
263 1.1 chopps {
264 1.1 chopps static int saved_cmd_wait, saved_data_wait;
265 1.1 chopps
266 1.5 chopps if (del) {
267 1.1 chopps saved_cmd_wait = sci_cmd_wait;
268 1.1 chopps saved_data_wait = sci_data_wait;
269 1.5 chopps if (del > 0)
270 1.5 chopps sci_cmd_wait = sci_data_wait = del;
271 1.1 chopps else
272 1.1 chopps sci_cmd_wait = sci_data_wait = sci_init_wait;
273 1.1 chopps } else {
274 1.1 chopps sci_cmd_wait = saved_cmd_wait;
275 1.1 chopps sci_data_wait = saved_data_wait;
276 1.1 chopps }
277 1.1 chopps }
278 1.1 chopps
279 1.1 chopps void
280 1.26 aymeric scireset(struct sci_softc *dev)
281 1.1 chopps {
282 1.16 veego u_int s;
283 1.16 veego u_char my_id;
284 1.1 chopps
285 1.7 chopps dev->sc_flags &= ~SCI_SELECTED;
286 1.1 chopps if (dev->sc_flags & SCI_ALIVE)
287 1.5 chopps sciabort(dev, "reset");
288 1.1 chopps
289 1.19 christos printf("%s: ", dev->sc_dev.dv_xname);
290 1.1 chopps
291 1.1 chopps s = splbio();
292 1.1 chopps /* preserve our ID for now */
293 1.1 chopps my_id = 7;
294 1.1 chopps
295 1.1 chopps /*
296 1.5 chopps * Reset the chip
297 1.1 chopps */
298 1.1 chopps *dev->sci_icmd = SCI_ICMD_TEST;
299 1.1 chopps *dev->sci_icmd = SCI_ICMD_TEST | SCI_ICMD_RST;
300 1.6 chopps delay (25);
301 1.1 chopps *dev->sci_icmd = 0;
302 1.1 chopps
303 1.1 chopps /*
304 1.1 chopps * Set up various chip parameters
305 1.1 chopps */
306 1.1 chopps *dev->sci_icmd = 0;
307 1.1 chopps *dev->sci_tcmd = 0;
308 1.1 chopps *dev->sci_sel_enb = 0;
309 1.1 chopps
310 1.1 chopps /* anything else was zeroed by reset */
311 1.1 chopps
312 1.1 chopps splx (s);
313 1.1 chopps
314 1.19 christos printf("sci id %d\n", my_id);
315 1.1 chopps dev->sc_flags |= SCI_ALIVE;
316 1.1 chopps }
317 1.1 chopps
318 1.5 chopps void
319 1.26 aymeric scierror(struct sci_softc *dev, u_char csr)
320 1.1 chopps {
321 1.20 bouyer struct scsipi_xfer *xs;
322 1.1 chopps
323 1.5 chopps xs = dev->sc_xs;
324 1.5 chopps
325 1.5 chopps #ifdef DIAGNOSTIC
326 1.5 chopps if (xs == NULL)
327 1.5 chopps panic("scierror");
328 1.5 chopps #endif
329 1.21 thorpej if (xs->xs_control & XS_CTL_SILENT)
330 1.5 chopps return;
331 1.5 chopps
332 1.19 christos printf("%s: ", dev->sc_dev.dv_xname);
333 1.19 christos printf("csr == 0x%02i\n", csr); /* XXX */
334 1.1 chopps }
335 1.1 chopps
336 1.5 chopps /*
337 1.5 chopps * select the bus, return when selected or error.
338 1.5 chopps */
339 1.5 chopps int
340 1.26 aymeric sciselectbus(struct sci_softc *dev, u_char target, u_char our_addr)
341 1.1 chopps {
342 1.1 chopps register int timeo = 2500;
343 1.1 chopps
344 1.5 chopps QPRINTF (("sciselectbus %d\n", target));
345 1.1 chopps
346 1.1 chopps /* if we're already selected, return */
347 1.1 chopps if (dev->sc_flags & SCI_SELECTED) /* XXXX */
348 1.1 chopps return 1;
349 1.1 chopps
350 1.1 chopps if ((*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)) &&
351 1.1 chopps (*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)) &&
352 1.1 chopps (*dev->sci_bus_csr & (SCI_BUS_BSY|SCI_BUS_SEL)))
353 1.1 chopps return 1;
354 1.1 chopps
355 1.1 chopps *dev->sci_tcmd = 0;
356 1.1 chopps *dev->sci_odata = 0x80 + (1 << target);
357 1.1 chopps *dev->sci_icmd = SCI_ICMD_DATA|SCI_ICMD_SEL;
358 1.1 chopps while ((*dev->sci_bus_csr & SCI_BUS_BSY) == 0) {
359 1.1 chopps if (--timeo > 0) {
360 1.6 chopps delay(100);
361 1.1 chopps } else {
362 1.1 chopps break;
363 1.1 chopps }
364 1.1 chopps }
365 1.1 chopps if (timeo) {
366 1.1 chopps *dev->sci_icmd = 0;
367 1.1 chopps dev->sc_flags |= SCI_SELECTED;
368 1.1 chopps return (0);
369 1.1 chopps }
370 1.1 chopps *dev->sci_icmd = 0;
371 1.1 chopps return (1);
372 1.1 chopps }
373 1.1 chopps
374 1.5 chopps int
375 1.26 aymeric sci_ixfer_out(register struct sci_softc *dev, int len, register u_char *buf,
376 1.26 aymeric int phase)
377 1.1 chopps {
378 1.1 chopps register int wait = sci_data_wait;
379 1.1 chopps u_char csr;
380 1.1 chopps
381 1.5 chopps QPRINTF(("sci_ixfer_out {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
382 1.1 chopps len, buf[0], buf[1], buf[2], buf[3], buf[4], buf[5],
383 1.1 chopps buf[6], buf[7], buf[8], buf[9]));
384 1.1 chopps
385 1.1 chopps *dev->sci_tcmd = phase;
386 1.1 chopps *dev->sci_icmd = SCI_ICMD_DATA;
387 1.1 chopps for (;len > 0; len--) {
388 1.1 chopps csr = *dev->sci_bus_csr;
389 1.1 chopps while (!(csr & SCI_BUS_REQ)) {
390 1.1 chopps if ((csr & SCI_BUS_BSY) == 0 || --wait < 0) {
391 1.1 chopps #ifdef DEBUG
392 1.1 chopps if (sci_debug)
393 1.19 christos printf("sci_ixfer_out fail: l%d i%x w%d\n",
394 1.1 chopps len, csr, wait);
395 1.1 chopps #endif
396 1.1 chopps return (len);
397 1.1 chopps }
398 1.6 chopps delay(1);
399 1.1 chopps csr = *dev->sci_bus_csr;
400 1.1 chopps }
401 1.1 chopps
402 1.1 chopps if (!(*dev->sci_csr & SCI_CSR_PHASE_MATCH))
403 1.1 chopps break;
404 1.1 chopps *dev->sci_odata = *buf;
405 1.1 chopps *dev->sci_icmd = SCI_ICMD_DATA|SCI_ICMD_ACK;
406 1.1 chopps buf++;
407 1.1 chopps while (*dev->sci_bus_csr & SCI_BUS_REQ);
408 1.1 chopps *dev->sci_icmd = SCI_ICMD_DATA;
409 1.1 chopps }
410 1.1 chopps
411 1.5 chopps QPRINTF(("sci_ixfer_out done\n"));
412 1.1 chopps return (0);
413 1.1 chopps }
414 1.1 chopps
415 1.5 chopps void
416 1.26 aymeric sci_ixfer_in(struct sci_softc *dev, int len, register u_char *buf, int phase)
417 1.1 chopps {
418 1.1 chopps int wait = sci_data_wait;
419 1.1 chopps u_char csr;
420 1.1 chopps volatile register u_char *sci_bus_csr = dev->sci_bus_csr;
421 1.1 chopps volatile register u_char *sci_data = dev->sci_data;
422 1.1 chopps volatile register u_char *sci_icmd = dev->sci_icmd;
423 1.16 veego #ifdef DEBUG
424 1.16 veego u_char *obp = buf;
425 1.16 veego #endif
426 1.1 chopps
427 1.1 chopps csr = *sci_bus_csr;
428 1.1 chopps
429 1.5 chopps QPRINTF(("sci_ixfer_in %d, csr=%02x\n", len, csr));
430 1.1 chopps
431 1.1 chopps *dev->sci_tcmd = phase;
432 1.1 chopps *sci_icmd = 0;
433 1.1 chopps for (;len > 0; len--) {
434 1.1 chopps csr = *sci_bus_csr;
435 1.1 chopps while (!(csr & SCI_BUS_REQ)) {
436 1.1 chopps if (!(csr & SCI_BUS_BSY) || --wait < 0) {
437 1.1 chopps #ifdef DEBUG
438 1.1 chopps if (sci_debug)
439 1.19 christos printf("sci_ixfer_in fail: l%d i%x w%d\n",
440 1.1 chopps len, csr, wait);
441 1.1 chopps #endif
442 1.1 chopps return;
443 1.1 chopps }
444 1.1 chopps
445 1.6 chopps delay(1);
446 1.1 chopps csr = *sci_bus_csr;
447 1.1 chopps }
448 1.1 chopps
449 1.1 chopps if (!(*dev->sci_csr & SCI_CSR_PHASE_MATCH))
450 1.1 chopps break;
451 1.1 chopps *buf = *sci_data;
452 1.1 chopps *sci_icmd = SCI_ICMD_ACK;
453 1.1 chopps buf++;
454 1.1 chopps while (*sci_bus_csr & SCI_BUS_REQ);
455 1.1 chopps *sci_icmd = 0;
456 1.1 chopps }
457 1.1 chopps
458 1.5 chopps QPRINTF(("sci_ixfer_in {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
459 1.1 chopps len, obp[0], obp[1], obp[2], obp[3], obp[4], obp[5],
460 1.1 chopps obp[6], obp[7], obp[8], obp[9]));
461 1.1 chopps }
462 1.1 chopps
463 1.1 chopps /*
464 1.1 chopps * SCSI 'immediate' command: issue a command to some SCSI device
465 1.1 chopps * and get back an 'immediate' response (i.e., do programmed xfer
466 1.1 chopps * to get the response data). 'cbuf' is a buffer containing a scsi
467 1.1 chopps * command of length clen bytes. 'buf' is a buffer of length 'len'
468 1.1 chopps * bytes for data. The transfer direction is determined by the device
469 1.1 chopps * (i.e., by the scsi bus data xfer phase). If 'len' is zero, the
470 1.1 chopps * command must supply no data. 'xferphase' is the bus phase the
471 1.1 chopps * caller expects to happen after the command is issued. It should
472 1.1 chopps * be one of DATA_IN_PHASE, DATA_OUT_PHASE or STATUS_PHASE.
473 1.1 chopps */
474 1.5 chopps int
475 1.26 aymeric sciicmd(struct sci_softc *dev, int target, void *cbuf, int clen, void *buf,
476 1.26 aymeric int len, u_char xferphase)
477 1.1 chopps {
478 1.16 veego u_char phase;
479 1.1 chopps register int wait;
480 1.1 chopps
481 1.1 chopps /* select the SCSI bus (it's an error if bus isn't free) */
482 1.5 chopps if (sciselectbus (dev, target, dev->sc_scsi_addr))
483 1.1 chopps return -1;
484 1.1 chopps /*
485 1.1 chopps * Wait for a phase change (or error) then let the device
486 1.1 chopps * sequence us through the various SCSI phases.
487 1.1 chopps */
488 1.1 chopps dev->sc_stat[0] = 0xff;
489 1.1 chopps dev->sc_msg[0] = 0xff;
490 1.1 chopps phase = CMD_PHASE;
491 1.1 chopps while (1) {
492 1.1 chopps wait = sci_cmd_wait;
493 1.1 chopps
494 1.1 chopps while ((*dev->sci_bus_csr & (SCI_BUS_REQ|SCI_BUS_BSY)) == SCI_BUS_BSY);
495 1.1 chopps
496 1.1 chopps QPRINTF((">CSR:%02x<", *dev->sci_bus_csr));
497 1.1 chopps if ((*dev->sci_bus_csr & SCI_BUS_REQ) == 0) {
498 1.1 chopps return -1;
499 1.1 chopps }
500 1.1 chopps phase = SCI_PHASE(*dev->sci_bus_csr);
501 1.1 chopps
502 1.1 chopps switch (phase) {
503 1.1 chopps case CMD_PHASE:
504 1.5 chopps if (sci_ixfer_out (dev, clen, cbuf, phase))
505 1.1 chopps goto abort;
506 1.1 chopps phase = xferphase;
507 1.1 chopps break;
508 1.1 chopps
509 1.1 chopps case DATA_IN_PHASE:
510 1.1 chopps if (len <= 0)
511 1.1 chopps goto abort;
512 1.1 chopps wait = sci_data_wait;
513 1.5 chopps sci_ixfer_in (dev, len, buf, phase);
514 1.1 chopps phase = STATUS_PHASE;
515 1.1 chopps break;
516 1.1 chopps
517 1.1 chopps case DATA_OUT_PHASE:
518 1.1 chopps if (len <= 0)
519 1.1 chopps goto abort;
520 1.1 chopps wait = sci_data_wait;
521 1.5 chopps if (sci_ixfer_out (dev, len, buf, phase))
522 1.1 chopps goto abort;
523 1.1 chopps phase = STATUS_PHASE;
524 1.1 chopps break;
525 1.1 chopps
526 1.1 chopps case MESG_IN_PHASE:
527 1.1 chopps dev->sc_msg[0] = 0xff;
528 1.5 chopps sci_ixfer_in (dev, 1, dev->sc_msg,phase);
529 1.1 chopps dev->sc_flags &= ~SCI_SELECTED;
530 1.1 chopps while (*dev->sci_bus_csr & SCI_BUS_BSY);
531 1.1 chopps goto out;
532 1.1 chopps break;
533 1.1 chopps
534 1.1 chopps case MESG_OUT_PHASE:
535 1.1 chopps phase = STATUS_PHASE;
536 1.1 chopps break;
537 1.1 chopps
538 1.1 chopps case STATUS_PHASE:
539 1.5 chopps sci_ixfer_in (dev, 1, dev->sc_stat, phase);
540 1.1 chopps phase = MESG_IN_PHASE;
541 1.1 chopps break;
542 1.1 chopps
543 1.1 chopps case BUS_FREE_PHASE:
544 1.1 chopps goto out;
545 1.1 chopps
546 1.1 chopps default:
547 1.19 christos printf("sci: unexpected phase %d in icmd from %d\n",
548 1.1 chopps phase, target);
549 1.1 chopps goto abort;
550 1.1 chopps }
551 1.1 chopps #if 0
552 1.1 chopps if (wait <= 0)
553 1.1 chopps goto abort;
554 1.1 chopps #endif
555 1.1 chopps }
556 1.1 chopps
557 1.1 chopps abort:
558 1.5 chopps sciabort(dev, "icmd");
559 1.1 chopps out:
560 1.1 chopps QPRINTF(("=STS:%02x=", dev->sc_stat[0]));
561 1.1 chopps return (dev->sc_stat[0]);
562 1.1 chopps }
563 1.1 chopps
564 1.1 chopps int
565 1.26 aymeric scigo(struct sci_softc *dev, struct scsipi_xfer *xs)
566 1.1 chopps {
567 1.16 veego int count, target;
568 1.16 veego u_char phase, *addr;
569 1.5 chopps
570 1.25 bouyer target = xs->xs_periph->periph_target;
571 1.5 chopps count = xs->datalen;
572 1.5 chopps addr = xs->data;
573 1.1 chopps
574 1.1 chopps if (sci_no_dma) {
575 1.5 chopps sciicmd (dev, target, (u_char *) xs->cmd, xs->cmdlen,
576 1.1 chopps addr, count,
577 1.21 thorpej xs->xs_control & XS_CTL_DATA_IN ? DATA_IN_PHASE : DATA_OUT_PHASE);
578 1.1 chopps
579 1.5 chopps return (1);
580 1.1 chopps }
581 1.1 chopps
582 1.1 chopps /* select the SCSI bus (it's an error if bus isn't free) */
583 1.5 chopps if (sciselectbus (dev, target, dev->sc_scsi_addr))
584 1.1 chopps return -1;
585 1.1 chopps /*
586 1.1 chopps * Wait for a phase change (or error) then let the device
587 1.1 chopps * sequence us through the various SCSI phases.
588 1.1 chopps */
589 1.1 chopps dev->sc_stat[0] = 0xff;
590 1.1 chopps dev->sc_msg[0] = 0xff;
591 1.1 chopps phase = CMD_PHASE;
592 1.1 chopps while (1) {
593 1.1 chopps while ((*dev->sci_bus_csr & (SCI_BUS_REQ|SCI_BUS_BSY)) ==
594 1.1 chopps SCI_BUS_BSY);
595 1.1 chopps
596 1.1 chopps QPRINTF((">CSR:%02x<", *dev->sci_bus_csr));
597 1.1 chopps if ((*dev->sci_bus_csr & SCI_BUS_REQ) == 0) {
598 1.1 chopps goto abort;
599 1.1 chopps }
600 1.1 chopps phase = SCI_PHASE(*dev->sci_bus_csr);
601 1.1 chopps
602 1.1 chopps switch (phase) {
603 1.1 chopps case CMD_PHASE:
604 1.16 veego if (sci_ixfer_out (dev, xs->cmdlen, (u_char *) xs->cmd, phase))
605 1.1 chopps goto abort;
606 1.21 thorpej phase = xs->xs_control & XS_CTL_DATA_IN ? DATA_IN_PHASE : DATA_OUT_PHASE;
607 1.1 chopps break;
608 1.1 chopps
609 1.1 chopps case DATA_IN_PHASE:
610 1.1 chopps if (count <= 0)
611 1.1 chopps goto abort;
612 1.1 chopps /* XXX use psuedo DMA if available */
613 1.1 chopps if (count >= 128 && dev->dma_xfer_in)
614 1.1 chopps (*dev->dma_xfer_in)(dev, count, addr, phase);
615 1.1 chopps else
616 1.5 chopps sci_ixfer_in (dev, count, addr, phase);
617 1.1 chopps phase = STATUS_PHASE;
618 1.1 chopps break;
619 1.1 chopps
620 1.1 chopps case DATA_OUT_PHASE:
621 1.1 chopps if (count <= 0)
622 1.1 chopps goto abort;
623 1.1 chopps /* XXX use psuedo DMA if available */
624 1.1 chopps if (count >= 128 && dev->dma_xfer_out)
625 1.1 chopps (*dev->dma_xfer_out)(dev, count, addr, phase);
626 1.1 chopps else
627 1.5 chopps if (sci_ixfer_out (dev, count, addr, phase))
628 1.1 chopps goto abort;
629 1.1 chopps phase = STATUS_PHASE;
630 1.1 chopps break;
631 1.1 chopps
632 1.1 chopps case MESG_IN_PHASE:
633 1.1 chopps dev->sc_msg[0] = 0xff;
634 1.5 chopps sci_ixfer_in (dev, 1, dev->sc_msg,phase);
635 1.1 chopps dev->sc_flags &= ~SCI_SELECTED;
636 1.1 chopps while (*dev->sci_bus_csr & SCI_BUS_BSY);
637 1.1 chopps goto out;
638 1.1 chopps break;
639 1.1 chopps
640 1.1 chopps case MESG_OUT_PHASE:
641 1.1 chopps phase = STATUS_PHASE;
642 1.1 chopps break;
643 1.1 chopps
644 1.1 chopps case STATUS_PHASE:
645 1.5 chopps sci_ixfer_in (dev, 1, dev->sc_stat, phase);
646 1.1 chopps phase = MESG_IN_PHASE;
647 1.1 chopps break;
648 1.1 chopps
649 1.1 chopps case BUS_FREE_PHASE:
650 1.1 chopps goto out;
651 1.1 chopps
652 1.1 chopps default:
653 1.19 christos printf("sci: unexpected phase %d in icmd from %d\n",
654 1.5 chopps phase, target);
655 1.1 chopps goto abort;
656 1.1 chopps }
657 1.1 chopps }
658 1.1 chopps
659 1.1 chopps abort:
660 1.5 chopps sciabort(dev, "go");
661 1.1 chopps out:
662 1.1 chopps QPRINTF(("=STS:%02x=", dev->sc_stat[0]));
663 1.5 chopps return (1);
664 1.1 chopps }
665