spc.c revision 1.16 1 1.16 minoura /* $NetBSD: spc.c,v 1.16 1998/08/04 16:51:52 minoura Exp $ */
2 1.1 oki
3 1.12 oki #define integrate __inline static
4 1.1 oki
5 1.1 oki /*
6 1.1 oki * Copyright (c) 1996 Masaru Oki. All rights reserved.
7 1.1 oki * Copyright (c) 1994, 1995, 1996 Charles M. Hannum. All rights reserved.
8 1.1 oki *
9 1.1 oki * Redistribution and use in source and binary forms, with or without
10 1.1 oki * modification, are permitted provided that the following conditions
11 1.1 oki * are met:
12 1.1 oki * 1. Redistributions of source code must retain the above copyright
13 1.1 oki * notice, this list of conditions and the following disclaimer.
14 1.1 oki * 2. Redistributions in binary form must reproduce the above copyright
15 1.1 oki * notice, this list of conditions and the following disclaimer in the
16 1.1 oki * documentation and/or other materials provided with the distribution.
17 1.1 oki * 3. All advertising materials mentioning features or use of this software
18 1.1 oki * must display the following acknowledgement:
19 1.1 oki * This product includes software developed by Charles M. Hannum.
20 1.1 oki * 4. The name of the author may not be used to endorse or promote products
21 1.1 oki * derived from this software without specific prior written permission.
22 1.1 oki *
23 1.1 oki * Copyright (c) 1994 Jarle Greipsland
24 1.1 oki * All rights reserved.
25 1.1 oki *
26 1.1 oki * Redistribution and use in source and binary forms, with or without
27 1.1 oki * modification, are permitted provided that the following conditions
28 1.1 oki * are met:
29 1.1 oki * 1. Redistributions of source code must retain the above copyright
30 1.1 oki * notice, this list of conditions and the following disclaimer.
31 1.1 oki * 2. Redistributions in binary form must reproduce the above copyright
32 1.1 oki * notice, this list of conditions and the following disclaimer in the
33 1.1 oki * documentation and/or other materials provided with the distribution.
34 1.1 oki * 3. The name of the author may not be used to endorse or promote products
35 1.1 oki * derived from this software without specific prior written permission.
36 1.1 oki *
37 1.1 oki * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
38 1.1 oki * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
39 1.1 oki * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
40 1.1 oki * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
41 1.1 oki * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
42 1.1 oki * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
43 1.1 oki * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
44 1.1 oki * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
45 1.1 oki * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
46 1.1 oki * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
47 1.1 oki * POSSIBILITY OF SUCH DAMAGE.
48 1.1 oki */
49 1.1 oki
50 1.1 oki /*
51 1.1 oki * Acknowledgements: Many of the algorithms used in this driver are
52 1.1 oki * inspired by the work of Julian Elischer (julian (at) tfs.com) and
53 1.1 oki * Charles Hannum (mycroft (at) duality.gnu.ai.mit.edu). Thanks a million!
54 1.1 oki */
55 1.1 oki
56 1.1 oki /* TODO list:
57 1.1 oki * 1) Get the DMA stuff working.
58 1.1 oki * 2) Get the iov/uio stuff working. Is this a good thing ???
59 1.1 oki * 3) Get the synch stuff working.
60 1.1 oki * 4) Rewrite it to use malloc for the acb structs instead of static alloc.?
61 1.1 oki */
62 1.1 oki
63 1.1 oki /*
64 1.1 oki * A few customizable items:
65 1.1 oki */
66 1.1 oki
67 1.1 oki /* Use doubleword transfers to/from SCSI chip. Note: This requires
68 1.1 oki * motherboard support. Basicly, some motherboard chipsets are able to
69 1.1 oki * split a 32 bit I/O operation into two 16 bit I/O operations,
70 1.1 oki * transparently to the processor. This speeds up some things, notably long
71 1.1 oki * data transfers.
72 1.1 oki */
73 1.1 oki #define SPC_USE_DWORDS 0
74 1.1 oki
75 1.1 oki /* Synchronous data transfers? */
76 1.1 oki #define SPC_USE_SYNCHRONOUS 0
77 1.1 oki #define SPC_SYNC_REQ_ACK_OFS 8
78 1.1 oki
79 1.1 oki /* Wide data transfers? */
80 1.1 oki #define SPC_USE_WIDE 0
81 1.1 oki #define SPC_MAX_WIDTH 0
82 1.1 oki
83 1.1 oki /* Max attempts made to transmit a message */
84 1.1 oki #define SPC_MSG_MAX_ATTEMPT 3 /* Not used now XXX */
85 1.1 oki
86 1.1 oki /* Some spin loop parameters (essentially how long to wait some places)
87 1.1 oki * The problem(?) is that sometimes we expect either to be able to transmit a
88 1.1 oki * byte or to get a new one from the SCSI bus pretty soon. In order to avoid
89 1.1 oki * returning from the interrupt just to get yanked back for the next byte we
90 1.1 oki * may spin in the interrupt routine waiting for this byte to come. How long?
91 1.1 oki * This is really (SCSI) device and processor dependent. Tuneable, I guess.
92 1.1 oki */
93 1.12 oki #define SPC_MSGIN_SPIN 1 /* Will spinwait upto ?ms for a new msg byte */
94 1.12 oki #define SPC_MSGOUT_SPIN 1
95 1.1 oki
96 1.1 oki /* Include debug functions? At the end of this file there are a bunch of
97 1.1 oki * functions that will print out various information regarding queued SCSI
98 1.1 oki * commands, driver state and chip contents. You can call them from the
99 1.1 oki * kernel debugger. If you set SPC_DEBUG to 0 they are not included (the
100 1.1 oki * kernel uses less memory) but you lose the debugging facilities.
101 1.1 oki */
102 1.1 oki #define SPC_DEBUG 1
103 1.1 oki
104 1.1 oki #define SPC_ABORT_TIMEOUT 2000 /* time to wait for abort */
105 1.1 oki
106 1.1 oki /* End of customizable parameters */
107 1.1 oki
108 1.1 oki /*
109 1.1 oki * MB89352 SCSI Protocol Controller (SPC) routines.
110 1.1 oki */
111 1.15 jonathan
112 1.15 jonathan #include "opt_ddb.h"
113 1.1 oki
114 1.1 oki #include <sys/types.h>
115 1.1 oki #include <sys/param.h>
116 1.1 oki #include <sys/systm.h>
117 1.1 oki #include <sys/kernel.h>
118 1.1 oki #include <sys/errno.h>
119 1.1 oki #include <sys/ioctl.h>
120 1.1 oki #include <sys/device.h>
121 1.1 oki #include <sys/buf.h>
122 1.1 oki #include <sys/proc.h>
123 1.1 oki #include <sys/user.h>
124 1.1 oki #include <sys/queue.h>
125 1.1 oki
126 1.10 bouyer #include <dev/scsipi/scsi_all.h>
127 1.10 bouyer #include <dev/scsipi/scsipi_all.h>
128 1.10 bouyer #include <dev/scsipi/scsi_message.h>
129 1.10 bouyer #include <dev/scsipi/scsiconf.h>
130 1.1 oki
131 1.1 oki #include <x68k/x68k/iodevice.h>
132 1.1 oki #include <x68k/dev/mb89352reg.h>
133 1.1 oki
134 1.1 oki /*
135 1.1 oki * Definitions, most of them has turned out to be unneccesary, but here they
136 1.1 oki * are anyway.
137 1.1 oki */
138 1.1 oki
139 1.1 oki #define IOBASE sc->sc_iobase
140 1.1 oki #define BDID (IOBASE->scsi_bdid)
141 1.1 oki #define SCTL (IOBASE->scsi_sctl)
142 1.1 oki #define SCMD (IOBASE->scsi_scmd)
143 1.1 oki #define TMOD (IOBASE->scsi_tmod)
144 1.1 oki #define INTS (IOBASE->scsi_ints)
145 1.1 oki #define PSNS (IOBASE->scsi_psns)
146 1.1 oki #define SSTS (IOBASE->scsi_ssts)
147 1.1 oki #define SERR (IOBASE->scsi_serr)
148 1.1 oki #define PCTL (IOBASE->scsi_pctl)
149 1.1 oki #define MBC (IOBASE->scsi_mbc)
150 1.1 oki #define DREG (IOBASE->scsi_dreg)
151 1.1 oki #define TEMP (IOBASE->scsi_temp)
152 1.1 oki #define TCH (IOBASE->scsi_tch)
153 1.1 oki #define TCM (IOBASE->scsi_tcm)
154 1.1 oki #define TCL (IOBASE->scsi_tcl)
155 1.1 oki #define EXBF (IOBASE->scsi_exbf)
156 1.1 oki
157 1.1 oki /* PSNS */
158 1.1 oki #define REQI 0x80
159 1.1 oki #define ACKI 0x40
160 1.1 oki #define ATNI 0x20
161 1.1 oki #define SELI 0x10
162 1.1 oki #define BSYI 0x08
163 1.1 oki #define MSGI 0x04
164 1.1 oki #define CDI 0x02
165 1.1 oki #define IOI 0x01
166 1.1 oki
167 1.1 oki /* Important! The 3 most significant bits of this register, in initiator mode,
168 1.1 oki * represents the "expected" SCSI bus phase and can be used to trigger phase
169 1.1 oki * mismatch and phase change interrupts. But more important: If there is a
170 1.1 oki * phase mismatch the chip will not transfer any data! This is actually a nice
171 1.1 oki * feature as it gives us a bit more control over what is happening when we are
172 1.1 oki * bursting data (in) through the FIFOs and the phase suddenly changes from
173 1.1 oki * DATA IN to STATUS or MESSAGE IN. The transfer will stop and wait for the
174 1.1 oki * proper phase to be set in this register instead of dumping the bits into the
175 1.1 oki * FIFOs.
176 1.1 oki */
177 1.1 oki #if 0
178 1.1 oki #define REQO 0x80
179 1.1 oki #define ACKO 0x40
180 1.1 oki #define ATNO 0x20
181 1.1 oki #define SELO 0x10
182 1.1 oki #define BSYO 0x08
183 1.1 oki #endif
184 1.1 oki /* PCTL */
185 1.1 oki #define MSGO 0x04
186 1.1 oki #define CDO 0x02
187 1.1 oki #define IOO 0x01
188 1.1 oki
189 1.1 oki /* Information transfer phases */
190 1.1 oki #define PH_DATAOUT (0)
191 1.1 oki #define PH_DATAIN (IOI)
192 1.1 oki #define PH_CMD (CDI)
193 1.1 oki #define PH_STAT (CDI | IOI)
194 1.1 oki #define PH_MSGOUT (MSGI | CDI)
195 1.1 oki #define PH_MSGIN (MSGI | CDI | IOI)
196 1.1 oki
197 1.1 oki #define PH_MASK (MSGI | CDI | IOI)
198 1.1 oki
199 1.1 oki #define PH_INVALID 0xff
200 1.1 oki
201 1.1 oki /* SCSI selection/reselection ID (both target *and* initiator) */
202 1.1 oki #define SELID7 0x80
203 1.1 oki #define SELID6 0x40
204 1.1 oki #define SELID5 0x20
205 1.1 oki #define SELID4 0x10
206 1.1 oki #define SELID3 0x08
207 1.1 oki #define SELID2 0x04
208 1.1 oki #define SELID1 0x02
209 1.1 oki #define SELID0 0x01
210 1.1 oki
211 1.1 oki #ifndef DDB
213 1.1 oki #define Debugger() panic("should call debugger here (spc.c)")
214 1.1 oki #endif /* ! DDB */
215 1.1 oki
216 1.1 oki /*
217 1.1 oki * ACB. Holds additional information for each SCSI command Comments: We
218 1.1 oki * need a separate scsi command block because we may need to overwrite it
219 1.1 oki * with a request sense command. Basicly, we refrain from fiddling with
220 1.1 oki * the scsi_xfer struct (except do the expected updating of return values).
221 1.1 oki * We'll generally update: xs->{flags,resid,error,sense,status} and
222 1.1 oki * occasionally xs->retries.
223 1.1 oki */
224 1.1 oki struct spc_acb {
225 1.1 oki struct scsi_generic scsi_cmd;
226 1.1 oki int scsi_cmd_length;
227 1.1 oki u_char *data_addr; /* Saved data pointer */
228 1.1 oki int data_length; /* Residue */
229 1.1 oki
230 1.1 oki u_char target_stat; /* SCSI status byte */
231 1.2 oki
232 1.1 oki /* struct spc_dma_seg dma[SPC_NSEG];*/ /* Physical addresses+len */
233 1.1 oki
234 1.10 bouyer TAILQ_ENTRY(spc_acb) chain;
235 1.1 oki struct scsipi_xfer *xs; /* SCSI xfer ctrl block from above */
236 1.1 oki int flags;
237 1.1 oki #define ACB_ALLOC 0x01
238 1.1 oki #define ACB_NEXUS 0x02
239 1.1 oki #define ACB_SENSE 0x04
240 1.1 oki #define ACB_ABORT 0x40
241 1.1 oki #define ACB_RESET 0x80
242 1.1 oki int timeout;
243 1.1 oki };
244 1.1 oki
245 1.1 oki /*
246 1.1 oki * Some info about each (possible) target on the SCSI bus. This should
247 1.1 oki * probably have been a "per target+lunit" structure, but we'll leave it at
248 1.1 oki * this for now.
249 1.1 oki */
250 1.1 oki struct spc_tinfo {
251 1.1 oki int cmds; /* #commands processed */
252 1.1 oki int dconns; /* #disconnects */
253 1.1 oki int touts; /* #timeouts */
254 1.1 oki int perrs; /* #parity errors */
255 1.1 oki int senses; /* #request sense commands sent */
256 1.1 oki ushort lubusy; /* What local units/subr. are busy? */
257 1.1 oki u_char flags;
258 1.1 oki #define DO_SYNC 0x01 /* (Re)Negotiate synchronous options */
259 1.1 oki #define DO_WIDE 0x02 /* (Re)Negotiate wide options */
260 1.1 oki u_char period; /* Period suggestion */
261 1.1 oki u_char offset; /* Offset suggestion */
262 1.1 oki u_char width; /* Width suggestion */
263 1.1 oki } tinfo_t;
264 1.1 oki
265 1.1 oki struct spc_softc {
266 1.1 oki struct device sc_dev;
267 1.1 oki volatile struct mb89352 *sc_iobase;
268 1.10 bouyer
269 1.1 oki struct scsipi_link sc_link; /* prototype for subdevs */
270 1.1 oki
271 1.1 oki TAILQ_HEAD(, spc_acb) free_list, ready_list, nexus_list;
272 1.1 oki struct spc_acb *sc_nexus; /* current command */
273 1.1 oki struct spc_acb sc_acb[8];
274 1.1 oki struct spc_tinfo sc_tinfo[8];
275 1.1 oki
276 1.1 oki /* Data about the current nexus (updated for every cmd switch) */
277 1.1 oki u_char *sc_dp; /* Current data pointer */
278 1.1 oki size_t sc_dleft; /* Data bytes left to transfer */
279 1.1 oki u_char *sc_cp; /* Current command pointer */
280 1.1 oki size_t sc_cleft; /* Command bytes left to transfer */
281 1.1 oki
282 1.1 oki /* Adapter state */
283 1.1 oki u_char sc_phase; /* Current bus phase */
284 1.1 oki u_char sc_prevphase; /* Previous bus phase */
285 1.1 oki u_char sc_state; /* State applicable to the adapter */
286 1.1 oki #define SPC_INIT 0
287 1.1 oki #define SPC_IDLE 1
288 1.1 oki #define SPC_SELECTING 2 /* SCSI command is arbiting */
289 1.1 oki #define SPC_RESELECTED 3 /* Has been reselected */
290 1.1 oki #define SPC_CONNECTED 4 /* Actively using the SCSI bus */
291 1.1 oki #define SPC_DISCONNECT 5 /* MSG_DISCONNECT received */
292 1.1 oki #define SPC_CMDCOMPLETE 6 /* MSG_CMDCOMPLETE received */
293 1.1 oki #define SPC_CLEANING 7
294 1.1 oki u_char sc_flags;
295 1.1 oki #define SPC_DROP_MSGIN 0x01 /* Discard all msgs (parity err detected) */
296 1.1 oki #define SPC_ABORTING 0x02 /* Bailing out */
297 1.1 oki #define SPC_DOINGDMA 0x04 /* The FIFO data path is active! */
298 1.1 oki u_char sc_selid; /* Reselection ID */
299 1.1 oki
300 1.1 oki /* Message stuff */
301 1.1 oki u_char sc_msgpriq; /* Messages we want to send */
302 1.1 oki u_char sc_msgoutq; /* Messages sent during last MESSAGE OUT */
303 1.1 oki u_char sc_lastmsg; /* Message last transmitted */
304 1.1 oki u_char sc_currmsg; /* Message currently ready to transmit */
305 1.1 oki #define SEND_DEV_RESET 0x01
306 1.1 oki #define SEND_PARITY_ERROR 0x02
307 1.1 oki #define SEND_INIT_DET_ERR 0x04
308 1.1 oki #define SEND_REJECT 0x08
309 1.1 oki #define SEND_IDENTIFY 0x10
310 1.1 oki #define SEND_ABORT 0x20
311 1.1 oki #define SEND_SDTR 0x40
312 1.1 oki #define SEND_WDTR 0x80
313 1.1 oki #define SPC_MAX_MSG_LEN 8
314 1.1 oki u_char sc_omess[SPC_MAX_MSG_LEN];
315 1.1 oki u_char *sc_omp; /* Outgoing message pointer */
316 1.1 oki u_char sc_imess[SPC_MAX_MSG_LEN];
317 1.1 oki u_char *sc_imp; /* Incoming message pointer */
318 1.1 oki
319 1.1 oki /* Hardware stuff */
320 1.1 oki int sc_initiator; /* Our scsi id */
321 1.1 oki int sc_freq; /* Clock frequency in MHz */
322 1.1 oki int sc_minsync; /* Minimum sync period / 4 */
323 1.1 oki int sc_maxsync; /* Maximum sync period / 4 */
324 1.1 oki };
325 1.1 oki
326 1.1 oki #if SPC_DEBUG
327 1.1 oki #define SPC_SHOWACBS 0x01
328 1.1 oki #define SPC_SHOWINTS 0x02
329 1.1 oki #define SPC_SHOWCMDS 0x04
330 1.1 oki #define SPC_SHOWMISC 0x08
331 1.1 oki #define SPC_SHOWTRACE 0x10
332 1.1 oki #define SPC_SHOWSTART 0x20
333 1.2 oki #define SPC_DOBREAK 0x40
334 1.8 christos int spc_debug = 0x00; /* SPC_SHOWSTART|SPC_SHOWMISC|SPC_SHOWTRACE; */
335 1.1 oki #define SPC_PRINT(b, s) do {if ((spc_debug & (b)) != 0) printf s;} while (0)
336 1.8 christos #define SPC_BREAK() do {if ((spc_debug & SPC_DOBREAK) != 0) Debugger();} while (0)
337 1.1 oki #define SPC_ASSERT(x) do {if (x) {} else {printf("%s at line %d: assertion failed\n", sc->sc_dev.dv_xname, __LINE__); Debugger();}} while (0)
338 1.1 oki #else
339 1.1 oki #define SPC_PRINT(b, s)
340 1.1 oki #define SPC_BREAK()
341 1.1 oki #define SPC_ASSERT(x)
342 1.1 oki #endif
343 1.1 oki
344 1.1 oki #define SPC_ACBS(s) SPC_PRINT(SPC_SHOWACBS, s)
345 1.1 oki #define SPC_INTS(s) SPC_PRINT(SPC_SHOWINTS, s)
346 1.1 oki #define SPC_CMDS(s) SPC_PRINT(SPC_SHOWCMDS, s)
347 1.1 oki #define SPC_MISC(s) SPC_PRINT(SPC_SHOWMISC, s)
348 1.1 oki #define SPC_TRACE(s) SPC_PRINT(SPC_SHOWTRACE, s)
349 1.1 oki #define SPC_START(s) SPC_PRINT(SPC_SHOWSTART, s)
350 1.16 minoura
351 1.1 oki int spcmatch __P((struct device *, struct cfdata *, void *));
352 1.1 oki void spcattach __P((struct device *, struct device *, void *));
353 1.1 oki void spc_minphys __P((struct buf *));
354 1.1 oki int spcintr __P((int));
355 1.1 oki void spc_init __P((struct spc_softc *));
356 1.1 oki void spc_done __P((struct spc_softc *, struct spc_acb *));
357 1.10 bouyer void spc_dequeue __P((struct spc_softc *, struct spc_acb *));
358 1.10 bouyer int spc_scsi_cmd __P((struct scsipi_xfer *));
359 1.1 oki int spc_poll __P((struct spc_softc *, struct scsipi_xfer *, int));
360 1.1 oki integrate void spc_sched_msgout __P((struct spc_softc *, u_char));
361 1.1 oki integrate void spc_setsync __P((struct spc_softc *, struct spc_tinfo *));
362 1.1 oki void spc_select __P((struct spc_softc *, struct spc_acb *));
363 1.1 oki void spc_timeout __P((void *));
364 1.1 oki void spc_sched __P((struct spc_softc *));
365 1.1 oki void spc_scsi_reset __P((struct spc_softc *));
366 1.11 oki void spc_reset __P((struct spc_softc *));
367 1.11 oki void spc_free_acb __P((struct spc_softc *, struct spc_acb *, int));
368 1.11 oki struct spc_acb * spc_get_acb __P((struct spc_softc *, int));
369 1.11 oki int spc_reselect __P((struct spc_softc *, u_char));
370 1.11 oki void spc_sense __P((struct spc_softc *, struct spc_acb *));
371 1.11 oki void spc_msgin __P((struct spc_softc *));
372 1.11 oki void spc_msgout __P((struct spc_softc *));
373 1.11 oki int spc_dataout_pio __P((struct spc_softc *, u_char *, int));
374 1.11 oki int spc_datain_pio __P((struct spc_softc *, u_char *, int));
375 1.1 oki void spc_abort __P((struct spc_softc *, struct spc_acb *));
376 1.11 oki #if SPC_DEBUG
377 1.11 oki void spc_print_acb __P((struct spc_acb *));
378 1.11 oki void spc_dump_driver __P((struct spc_softc *));
379 1.11 oki void spc_show_scsi_cmd __P((struct spc_acb *));
380 1.1 oki void spc_print_active_acb __P((void));
381 1.1 oki #endif
382 1.1 oki volatile void * spc_find __P((int));
383 1.1 oki
384 1.1 oki struct cfattach spc_ca = {
385 1.1 oki sizeof(struct spc_softc), spcmatch, spcattach
386 1.1 oki };
387 1.13 thorpej
388 1.1 oki extern struct cfdriver spc_cd;
389 1.10 bouyer
390 1.1 oki struct scsipi_adapter spc_switch = {
391 1.1 oki spc_scsi_cmd,
392 1.1 oki spc_minphys,
393 1.1 oki 0,
394 1.1 oki 0,
395 1.1 oki };
396 1.10 bouyer
397 1.1 oki struct scsipi_device spc_dev = {
398 1.1 oki NULL, /* Use default error handler */
399 1.1 oki NULL, /* have a queue, served by this */
400 1.1 oki NULL, /* have no async handler */
401 1.1 oki NULL, /* Use default 'done' routine */
402 1.1 oki };
403 1.1 oki
404 1.1 oki /*
406 1.1 oki * INITIALIZATION ROUTINES (probe, attach ++)
407 1.1 oki */
408 1.1 oki
409 1.1 oki /*
410 1.1 oki * returns non-zero value if a controller is found.
411 1.16 minoura */
412 1.1 oki int
413 1.16 minoura spcmatch(parent, cf, aux)
414 1.16 minoura struct device *parent;
415 1.1 oki struct cfdata *cf;
416 1.1 oki void *aux;
417 1.1 oki {
418 1.1 oki if (strcmp(aux, "spc") || spc_find(cf->cf_unit) == 0)
419 1.1 oki return 0;
420 1.1 oki return 1;
421 1.1 oki }
422 1.1 oki
423 1.1 oki /*
424 1.1 oki * Find the board
425 1.1 oki */
426 1.1 oki volatile void *
427 1.1 oki spc_find(unit)
428 1.1 oki int unit;
429 1.1 oki {
430 1.1 oki volatile void *addr;
431 1.1 oki
432 1.1 oki if (unit > 1)
433 1.1 oki return 0;
434 1.1 oki switch(unit) {
435 1.1 oki case 0: /* builtin */
436 1.1 oki if (badaddr(IODEVbase->inscsirom) ||
437 1.1 oki badbaddr(&IODEVbase->io_inspc.bdid) ||
438 1.1 oki bcmp((void *)&IODEVbase->inscsirom[0x24], "SCSIIN", 6))
439 1.1 oki return 0;
440 1.1 oki addr = &IODEVbase->io_inspc;
441 1.1 oki break;
442 1.1 oki case 1: /* external */
443 1.1 oki if (badaddr(IODEVbase->exscsirom) ||
444 1.1 oki badbaddr(&IODEVbase->io_exspc.bdid) ||
445 1.1 oki bcmp((void *)&IODEVbase->exscsirom[0x24], "SCSIEX", 6))
446 1.1 oki return 0;
447 1.1 oki addr = &IODEVbase->io_exspc;
448 1.1 oki break;
449 1.1 oki }
450 1.1 oki
451 1.1 oki if (badaddr(addr))
452 1.1 oki return 0;
453 1.1 oki
454 1.1 oki return addr;
455 1.1 oki }
456 1.1 oki
457 1.1 oki /*
458 1.1 oki */
459 1.1 oki void
460 1.1 oki spcattach(parent, self, aux)
461 1.1 oki struct device *parent, *self;
462 1.1 oki void *aux;
463 1.1 oki {
464 1.1 oki struct spc_softc *sc = (void *)self;
465 1.1 oki
466 1.1 oki SPC_TRACE(("spcattach "));
467 1.1 oki sc->sc_state = SPC_INIT;
468 1.1 oki sc->sc_iobase = spc_find(sc->sc_dev.dv_unit); /* XXX */
469 1.1 oki spc_init(sc); /* Init chip and driver */
470 1.10 bouyer
471 1.1 oki /*
472 1.10 bouyer * Fill in the prototype scsipi_link
473 1.1 oki */
474 1.10 bouyer sc->sc_link.scsipi_scsi.channel = SCSI_CHANNEL_ONLY_ONE;
475 1.1 oki sc->sc_link.adapter_softc = sc;
476 1.1 oki sc->sc_link.scsipi_scsi.adapter_target = sc->sc_initiator;
477 1.1 oki sc->sc_link.adapter = &spc_switch;
478 1.10 bouyer sc->sc_link.device = &spc_dev;
479 1.10 bouyer sc->sc_link.openings = 2;
480 1.1 oki sc->sc_link.scsipi_scsi.max_target = 7;
481 1.8 christos sc->sc_link.type = BUS_SCSI;
482 1.1 oki
483 1.5 cgd printf("\n");
484 1.1 oki
485 1.1 oki config_found(self, &sc->sc_link, scsiprint);
486 1.1 oki }
487 1.1 oki
488 1.1 oki void
489 1.1 oki spc_reset(sc)
490 1.1 oki struct spc_softc *sc;
491 1.1 oki {
492 1.1 oki sc->sc_initiator = IODEVbase->io_sram[0x70] & 0x7; /* XXX */
493 1.1 oki /*
494 1.1 oki * Disable interrupts then reset the FUJITSU chip.
495 1.1 oki */
496 1.1 oki SCTL = SCTL_DISABLE | SCTL_CTRLRST;
497 1.1 oki SCMD = 0;
498 1.1 oki PCTL = 0;
499 1.1 oki TEMP = 0;
500 1.1 oki TCH = 0;
501 1.1 oki TCM = 0;
502 1.1 oki TCL = 0;
503 1.1 oki INTS = 0;
504 1.1 oki SCTL = SCTL_DISABLE | SCTL_ABRT_ENAB | SCTL_PARITY_ENAB | SCTL_RESEL_ENAB;
505 1.1 oki BDID = sc->sc_initiator;
506 1.1 oki delay(400);
507 1.1 oki SCTL &= ~SCTL_DISABLE;
508 1.1 oki }
509 1.1 oki
510 1.1 oki /*
511 1.1 oki * Pull the SCSI RST line for 500us.
512 1.1 oki */
513 1.1 oki void
514 1.1 oki spc_scsi_reset(sc)
515 1.1 oki struct spc_softc *sc;
516 1.1 oki {
517 1.1 oki
518 1.1 oki SCMD |= SCMD_RST;
519 1.1 oki delay(500);
520 1.1 oki SCMD &= ~SCMD_RST;
521 1.1 oki delay(50);
522 1.1 oki }
523 1.1 oki
524 1.1 oki /*
525 1.1 oki * Initialize spc SCSI driver.
526 1.1 oki */
527 1.1 oki void
528 1.1 oki spc_init(sc)
529 1.1 oki struct spc_softc *sc;
530 1.1 oki {
531 1.1 oki struct spc_acb *acb;
532 1.1 oki int r;
533 1.1 oki
534 1.1 oki spc_reset(sc);
535 1.1 oki spc_scsi_reset(sc);
536 1.1 oki spc_reset(sc);
537 1.1 oki
538 1.1 oki if (sc->sc_state == SPC_INIT) {
539 1.1 oki /* First time through; initialize. */
540 1.1 oki TAILQ_INIT(&sc->ready_list);
541 1.1 oki TAILQ_INIT(&sc->nexus_list);
542 1.1 oki TAILQ_INIT(&sc->free_list);
543 1.1 oki sc->sc_nexus = NULL;
544 1.1 oki acb = sc->sc_acb;
545 1.1 oki bzero(acb, sizeof(sc->sc_acb));
546 1.1 oki for (r = 0; r < sizeof(sc->sc_acb) / sizeof(*acb); r++) {
547 1.1 oki TAILQ_INSERT_TAIL(&sc->free_list, acb, chain);
548 1.1 oki acb++;
549 1.1 oki }
550 1.1 oki bzero(&sc->sc_tinfo, sizeof(sc->sc_tinfo));
551 1.1 oki } else {
552 1.1 oki /* Cancel any active commands. */
553 1.1 oki sc->sc_state = SPC_CLEANING;
554 1.1 oki if ((acb = sc->sc_nexus) != NULL) {
555 1.1 oki acb->xs->error = XS_DRIVER_STUFFUP;
556 1.1 oki untimeout(spc_timeout, acb);
557 1.2 oki spc_done(sc, acb);
558 1.1 oki }
559 1.1 oki while ((acb = sc->nexus_list.tqh_first) != NULL) {
560 1.1 oki acb->xs->error = XS_DRIVER_STUFFUP;
561 1.1 oki untimeout(spc_timeout, acb);
562 1.1 oki spc_done(sc, acb);
563 1.1 oki }
564 1.1 oki }
565 1.1 oki
566 1.1 oki sc->sc_prevphase = PH_INVALID;
567 1.1 oki for (r = 0; r < 8; r++) {
568 1.1 oki struct spc_tinfo *ti = &sc->sc_tinfo[r];
569 1.1 oki
570 1.1 oki ti->flags = 0;
571 1.1 oki #if SPC_USE_SYNCHRONOUS
572 1.1 oki ti->flags |= DO_SYNC;
573 1.1 oki ti->period = sc->sc_minsync;
574 1.1 oki ti->offset = SPC_SYNC_REQ_ACK_OFS;
575 1.1 oki #else
576 1.1 oki ti->period = ti->offset = 0;
577 1.1 oki #endif
578 1.1 oki #if SPC_USE_WIDE
579 1.1 oki ti->flags |= DO_WIDE;
580 1.1 oki ti->width = SPC_MAX_WIDTH;
581 1.1 oki #else
582 1.1 oki ti->width = 0;
583 1.1 oki #endif
584 1.1 oki }
585 1.1 oki
586 1.1 oki sc->sc_state = SPC_IDLE;
587 1.1 oki SCTL |= SCTL_INTR_ENAB;
588 1.1 oki }
589 1.1 oki
590 1.1 oki void
591 1.1 oki spc_free_acb(sc, acb, flags)
592 1.1 oki struct spc_softc *sc;
593 1.1 oki struct spc_acb *acb;
594 1.1 oki int flags;
595 1.1 oki {
596 1.1 oki int s;
597 1.1 oki
598 1.1 oki s = splbio();
599 1.1 oki
600 1.1 oki acb->flags = 0;
601 1.1 oki TAILQ_INSERT_HEAD(&sc->free_list, acb, chain);
602 1.1 oki
603 1.1 oki /*
604 1.1 oki * If there were none, wake anybody waiting for one to come free,
605 1.1 oki * starting with queued entries.
606 1.1 oki */
607 1.1 oki if (acb->chain.tqe_next == 0)
608 1.1 oki wakeup(&sc->free_list);
609 1.1 oki
610 1.1 oki splx(s);
611 1.1 oki }
612 1.1 oki
613 1.1 oki struct spc_acb *
614 1.1 oki spc_get_acb(sc, flags)
615 1.1 oki struct spc_softc *sc;
616 1.1 oki int flags;
617 1.1 oki {
618 1.1 oki struct spc_acb *acb;
619 1.1 oki int s;
620 1.1 oki
621 1.1 oki s = splbio();
622 1.1 oki
623 1.1 oki while ((acb = sc->free_list.tqh_first) == NULL &&
624 1.1 oki (flags & SCSI_NOSLEEP) == 0)
625 1.1 oki tsleep(&sc->free_list, PRIBIO, "spcacb", 0);
626 1.1 oki if (acb) {
627 1.1 oki TAILQ_REMOVE(&sc->free_list, acb, chain);
628 1.1 oki acb->flags |= ACB_ALLOC;
629 1.1 oki }
630 1.1 oki
631 1.1 oki splx(s);
632 1.1 oki return acb;
633 1.1 oki }
634 1.1 oki
635 1.1 oki /*
637 1.1 oki * DRIVER FUNCTIONS CALLABLE FROM HIGHER LEVEL DRIVERS
638 1.1 oki */
639 1.1 oki
640 1.1 oki /*
641 1.1 oki * Expected sequence:
642 1.1 oki * 1) Command inserted into ready list
643 1.1 oki * 2) Command selected for execution
644 1.1 oki * 3) Command won arbitration and has selected target device
645 1.1 oki * 4) Send message out (identify message, eventually also sync.negotiations)
646 1.1 oki * 5) Send command
647 1.1 oki * 5a) Receive disconnect message, disconnect.
648 1.1 oki * 5b) Reselected by target
649 1.1 oki * 5c) Receive identify message from target.
650 1.1 oki * 6) Send or receive data
651 1.1 oki * 7) Receive status
652 1.1 oki * 8) Receive message (command complete etc.)
653 1.1 oki * 9) If status == SCSI_CHECK construct a synthetic request sense SCSI cmd.
654 1.1 oki * Repeat 2-8 (no disconnects please...)
655 1.1 oki */
656 1.1 oki
657 1.1 oki /*
658 1.1 oki * Start a SCSI-command
659 1.1 oki * This function is called by the higher level SCSI-driver to queue/run
660 1.1 oki * SCSI-commands.
661 1.10 bouyer */
662 1.1 oki int
663 1.10 bouyer spc_scsi_cmd(xs)
664 1.1 oki struct scsipi_xfer *xs;
665 1.1 oki {
666 1.1 oki struct scsipi_link *sc_link = xs->sc_link;
667 1.1 oki struct spc_softc *sc = sc_link->adapter_softc;
668 1.1 oki struct spc_acb *acb;
669 1.1 oki int s, flags;
670 1.10 bouyer
671 1.1 oki SPC_TRACE(("spc_scsi_cmd "));
672 1.1 oki SPC_CMDS(("[0x%x, %d]->%d ", (int)xs->cmd->opcode, xs->cmdlen,
673 1.1 oki sc_link->scsipi_scsi.target));
674 1.1 oki
675 1.1 oki flags = xs->flags;
676 1.1 oki if ((acb = spc_get_acb(sc, flags)) == NULL) {
677 1.1 oki xs->error = XS_DRIVER_STUFFUP;
678 1.1 oki return TRY_AGAIN_LATER;
679 1.1 oki }
680 1.1 oki
681 1.1 oki /* Initialize acb */
682 1.1 oki acb->xs = xs;
683 1.1 oki acb->timeout = xs->timeout;
684 1.1 oki
685 1.1 oki if (xs->flags & SCSI_RESET) {
686 1.1 oki acb->flags |= ACB_RESET;
687 1.1 oki acb->scsi_cmd_length = 0;
688 1.1 oki acb->data_length = 0;
689 1.10 bouyer } else {
690 1.1 oki bcopy(xs->cmd, &acb->scsi_cmd, xs->cmdlen);
691 1.1 oki #if 1
692 1.1 oki acb->scsi_cmd.bytes[0] |= sc_link->scsipi_scsi.lun << 5; /* XXX? */
693 1.1 oki #endif
694 1.1 oki acb->scsi_cmd_length = xs->cmdlen;
695 1.1 oki acb->data_addr = xs->data;
696 1.1 oki acb->data_length = xs->datalen;
697 1.1 oki }
698 1.1 oki acb->target_stat = 0;
699 1.1 oki
700 1.1 oki s = splbio();
701 1.1 oki
702 1.1 oki TAILQ_INSERT_TAIL(&sc->ready_list, acb, chain);
703 1.1 oki /*
704 1.1 oki * $B%-%e!<$N=hM}Cf$G$J$1$l$P!"%9%1%8%e!<%j%s%03+;O$9$k(B
705 1.1 oki */
706 1.1 oki if (sc->sc_state == SPC_IDLE)
707 1.1 oki spc_sched(sc);
708 1.1 oki /*
709 1.1 oki * $BAw?.$K@.8y$7$?$i!"$9$0$K%j%?!<%s$9$k$+D4$Y$k(B
710 1.1 oki * $B$9$0%j%?!<%s$9$k$J$i(B SUCCESSFULLY_QUEUED $B$rJV$9(B
711 1.1 oki */
712 1.1 oki
713 1.1 oki splx(s);
714 1.1 oki
715 1.1 oki if ((flags & SCSI_POLL) == 0)
716 1.3 oki return SUCCESSFULLY_QUEUED;
717 1.1 oki
718 1.1 oki /* Not allowed to use interrupts, use polling instead */
719 1.1 oki s = splbio();
720 1.1 oki if (spc_poll(sc, xs, acb->timeout)) {
721 1.1 oki spc_timeout(acb);
722 1.3 oki if (spc_poll(sc, xs, acb->timeout))
723 1.1 oki spc_timeout(acb);
724 1.1 oki }
725 1.1 oki splx(s);
726 1.1 oki return COMPLETE;
727 1.1 oki }
728 1.1 oki
729 1.1 oki /*
730 1.1 oki * Adjust transfer size in buffer structure
731 1.1 oki */
732 1.1 oki void
733 1.1 oki spc_minphys(bp)
734 1.1 oki struct buf *bp;
735 1.1 oki {
736 1.1 oki
737 1.1 oki SPC_TRACE(("spc_minphys "));
738 1.1 oki minphys(bp);
739 1.1 oki }
740 1.1 oki
741 1.1 oki /*
742 1.1 oki * Used when interrupt driven I/O isn't allowed, e.g. during boot.
743 1.1 oki */
744 1.10 bouyer int
745 1.1 oki spc_poll(sc, xs, count)
746 1.1 oki struct spc_softc *sc;
747 1.1 oki struct scsipi_xfer *xs;
748 1.1 oki int count;
749 1.1 oki {
750 1.1 oki
751 1.1 oki SPC_TRACE(("spc_poll "));
752 1.1 oki while (count) {
753 1.1 oki /*
754 1.1 oki * If we had interrupts enabled, would we
755 1.1 oki * have got an interrupt?
756 1.1 oki */
757 1.1 oki if (INTS != 0)
758 1.1 oki spcintr(sc->sc_dev.dv_unit);
759 1.1 oki if ((xs->flags & ITSDONE) != 0)
760 1.1 oki return 0;
761 1.1 oki delay(1000);
762 1.1 oki count--;
763 1.1 oki }
764 1.1 oki return 1;
765 1.1 oki }
766 1.1 oki
767 1.1 oki /*
769 1.1 oki * LOW LEVEL SCSI UTILITIES
770 1.1 oki */
771 1.1 oki
772 1.1 oki integrate void
773 1.1 oki spc_sched_msgout(sc, m)
774 1.1 oki struct spc_softc *sc;
775 1.1 oki u_char m;
776 1.1 oki {
777 1.1 oki if (sc->sc_msgpriq == 0)
778 1.1 oki SCMD = SCMD_SET_ATN;
779 1.1 oki sc->sc_msgpriq |= m;
780 1.1 oki }
781 1.1 oki
782 1.1 oki /*
783 1.1 oki * Set synchronous transfer offset and period.
784 1.1 oki */
785 1.1 oki integrate void
786 1.1 oki spc_setsync(sc, ti)
787 1.1 oki struct spc_softc *sc;
788 1.1 oki struct spc_tinfo *ti;
789 1.1 oki {
790 1.1 oki #if SPC_USE_SYNCHRONOUS
791 1.1 oki
792 1.1 oki if (ti->offset != 0)
793 1.1 oki TMOD =
794 1.1 oki ((ti->period * sc->sc_freq) / 250 - 2) << 4 | ti->offset);
795 1.1 oki else
796 1.1 oki TMOD = 0;
797 1.1 oki #endif
798 1.1 oki }
799 1.1 oki
800 1.1 oki /*
801 1.1 oki * Start a selection. This is used by spc_sched() to select an idle target,
802 1.1 oki * and by spc_done() to immediately reselect a target to get sense information.
803 1.1 oki */
804 1.1 oki void
805 1.10 bouyer spc_select(sc, acb)
806 1.10 bouyer struct spc_softc *sc;
807 1.1 oki struct spc_acb *acb;
808 1.1 oki {
809 1.1 oki struct scsipi_link *sc_link = acb->xs->sc_link;
810 1.1 oki int target = sc_link->scsipi_scsi.target;
811 1.1 oki struct spc_tinfo *ti = &sc->sc_tinfo[target];
812 1.1 oki
813 1.1 oki spc_setsync(sc, ti);
814 1.12 oki
815 1.12 oki #if 0
816 1.12 oki SCMD = SCMD_SET_ATN;
817 1.1 oki #endif
818 1.1 oki /* XXX? */
819 1.1 oki do asm ("nop"); while (SSTS & (SSTS_ACTIVE|SSTS_TARGET|SSTS_BUSY));
820 1.1 oki
821 1.1 oki PCTL = 0;
822 1.1 oki TEMP = (1 << sc->sc_initiator) | (1 << target);
823 1.1 oki /*
824 1.1 oki * BSY $B$K$h$k1~EzBT$A;~4V@_Dj(B ($B@_Dj;~4V$r2a$.$k$H(B selection timeout)
825 1.1 oki * 0 $B$K$9$k$HL58BBT$A(B (x68k $B$G$O(B Tclf == 200ns)
826 1.1 oki * T = (X * 256 + 15) * Tclf * 2 $B$J$N$G(B... 256ms $BBT$D$H$9$k$H(B
827 1.1 oki * 128000ns/200ns = X * 256 + 15
828 1.1 oki * 640 - 15 = X * 256
829 1.1 oki * X = 625 / 256
830 1.1 oki * X = 2 + 113 / 256
831 1.1 oki * $B$J$N$G(B tch $B$K(B 2, tcm $B$K(B 113 $B$rBeF~!#(B($B$$$$$N$+(B?)
832 1.1 oki */
833 1.1 oki TCH = 2;
834 1.1 oki TCM = 113;
835 1.1 oki /* BSY $B$H(B SEL $B$,(B 0 $B$K$J$C$F$+$i%U%'!<%:3+;O$^$G$N;~4V(B */
836 1.1 oki TCL = 3;
837 1.1 oki SCMD = SCMD_SELECT;
838 1.1 oki
839 1.1 oki sc->sc_state = SPC_SELECTING;
840 1.1 oki }
841 1.1 oki
842 1.1 oki int
843 1.1 oki spc_reselect(sc, message)
844 1.1 oki struct spc_softc *sc;
845 1.10 bouyer u_char message;
846 1.1 oki {
847 1.1 oki u_char selid, target, lun;
848 1.1 oki struct spc_acb *acb;
849 1.1 oki struct scsipi_link *sc_link;
850 1.1 oki struct spc_tinfo *ti;
851 1.1 oki
852 1.1 oki /*
853 1.1 oki * The SCSI chip made a snapshot of the data bus while the reselection
854 1.1 oki * was being negotiated. This enables us to determine which target did
855 1.8 christos * the reselect.
856 1.1 oki */
857 1.1 oki selid = sc->sc_selid & ~(1 << sc->sc_initiator);
858 1.1 oki if (selid & (selid - 1)) {
859 1.1 oki printf("%s: reselect with invalid selid %02x; sending DEVICE RESET\n",
860 1.1 oki sc->sc_dev.dv_xname, selid);
861 1.1 oki SPC_BREAK();
862 1.1 oki goto reset;
863 1.1 oki }
864 1.1 oki
865 1.1 oki /*
866 1.1 oki * Search wait queue for disconnected cmd
867 1.1 oki * The list should be short, so I haven't bothered with
868 1.1 oki * any more sophisticated structures than a simple
869 1.1 oki * singly linked list.
870 1.1 oki */
871 1.1 oki target = ffs(selid) - 1;
872 1.10 bouyer lun = message & 0x07;
873 1.10 bouyer for (acb = sc->nexus_list.tqh_first; acb != NULL;
874 1.1 oki acb = acb->chain.tqe_next) {
875 1.1 oki sc_link = acb->xs->sc_link;
876 1.1 oki if (sc_link->scsipi_scsi.target == target &&
877 1.8 christos sc_link->scsipi_scsi.lun == lun)
878 1.1 oki break;
879 1.1 oki }
880 1.1 oki if (acb == NULL) {
881 1.1 oki printf("%s: reselect from target %d lun %d with no nexus; sending ABORT\n",
882 1.1 oki sc->sc_dev.dv_xname, target, lun);
883 1.1 oki SPC_BREAK();
884 1.1 oki goto abort;
885 1.1 oki }
886 1.1 oki
887 1.1 oki /* Make this nexus active again. */
888 1.1 oki TAILQ_REMOVE(&sc->nexus_list, acb, chain);
889 1.1 oki sc->sc_state = SPC_CONNECTED;
890 1.1 oki sc->sc_nexus = acb;
891 1.1 oki ti = &sc->sc_tinfo[target];
892 1.1 oki ti->lubusy |= (1 << lun);
893 1.1 oki spc_setsync(sc, ti);
894 1.1 oki
895 1.1 oki if (acb->flags & ACB_RESET)
896 1.1 oki spc_sched_msgout(sc, SEND_DEV_RESET);
897 1.1 oki else if (acb->flags & ACB_ABORT)
898 1.1 oki spc_sched_msgout(sc, SEND_ABORT);
899 1.1 oki
900 1.1 oki /* Do an implicit RESTORE POINTERS. */
901 1.1 oki sc->sc_dp = acb->data_addr;
902 1.1 oki sc->sc_dleft = acb->data_length;
903 1.1 oki sc->sc_cp = (u_char *)&acb->scsi_cmd;
904 1.1 oki sc->sc_cleft = acb->scsi_cmd_length;
905 1.1 oki
906 1.1 oki return (0);
907 1.1 oki
908 1.1 oki reset:
909 1.1 oki spc_sched_msgout(sc, SEND_DEV_RESET);
910 1.1 oki return (1);
911 1.1 oki
912 1.1 oki abort:
913 1.1 oki spc_sched_msgout(sc, SEND_ABORT);
914 1.1 oki return (1);
915 1.1 oki }
916 1.1 oki
917 1.1 oki /*
919 1.1 oki * Schedule a SCSI operation. This has now been pulled out of the interrupt
920 1.1 oki * handler so that we may call it from spc_scsi_cmd and spc_done. This may
921 1.1 oki * save us an unecessary interrupt just to get things going. Should only be
922 1.1 oki * called when state == SPC_IDLE and at bio pl.
923 1.1 oki */
924 1.10 bouyer void
925 1.1 oki spc_sched(sc)
926 1.1 oki register struct spc_softc *sc;
927 1.1 oki {
928 1.1 oki struct spc_acb *acb;
929 1.1 oki struct scsipi_link *sc_link;
930 1.1 oki struct spc_tinfo *ti;
931 1.1 oki
932 1.1 oki /*
933 1.1 oki * Find first acb in ready queue that is for a target/lunit pair that
934 1.10 bouyer * is not busy.
935 1.10 bouyer */
936 1.1 oki for (acb = sc->ready_list.tqh_first; acb != NULL;
937 1.10 bouyer acb = acb->chain.tqe_next) {
938 1.1 oki sc_link = acb->xs->sc_link;
939 1.1 oki ti = &sc->sc_tinfo[sc_link->scsipi_scsi.target];
940 1.1 oki if ((ti->lubusy & (1 << sc_link->scsipi_scsi.lun)) == 0) {
941 1.1 oki SPC_MISC(("selecting %d:%d ",
942 1.1 oki sc_link->scsipi_scsi.target, sc_link->scsipi_scsi.lun));
943 1.1 oki TAILQ_REMOVE(&sc->ready_list, acb, chain);
944 1.10 bouyer sc->sc_nexus = acb;
945 1.1 oki spc_select(sc, acb);
946 1.1 oki return;
947 1.1 oki } else
948 1.1 oki SPC_MISC(("%d:%d busy\n",
949 1.1 oki sc_link->scsipi_scsi.target, sc_link->scsipi_scsi.lun));
950 1.1 oki }
951 1.1 oki SPC_MISC(("idle "));
952 1.1 oki /* Nothing to start; just enable reselections and wait. */
953 1.1 oki }
954 1.1 oki
955 1.10 bouyer void
957 1.10 bouyer spc_sense(sc, acb)
958 1.10 bouyer struct spc_softc *sc;
959 1.1 oki struct spc_acb *acb;
960 1.1 oki {
961 1.1 oki struct scsipi_xfer *xs = acb->xs;
962 1.1 oki struct scsipi_link *sc_link = xs->sc_link;
963 1.1 oki struct spc_tinfo *ti = &sc->sc_tinfo[sc_link->scsipi_scsi.target];
964 1.10 bouyer struct scsipi_sense *ss = (void *)&acb->scsi_cmd;
965 1.10 bouyer
966 1.1 oki SPC_MISC(("requesting sense "));
967 1.10 bouyer /* Next, setup a request sense command block */
968 1.10 bouyer bzero(ss, sizeof(*ss));
969 1.1 oki ss->opcode = REQUEST_SENSE;
970 1.1 oki ss->byte2 = sc_link->scsipi_scsi.lun << 5;
971 1.1 oki ss->length = sizeof(struct scsipi_sense_data);
972 1.10 bouyer acb->scsi_cmd_length = sizeof(*ss);
973 1.1 oki acb->data_addr = (char *)&xs->sense.scsi_sense;
974 1.1 oki acb->data_length = sizeof(struct scsipi_sense_data);
975 1.1 oki acb->flags |= ACB_SENSE;
976 1.1 oki ti->senses++;
977 1.1 oki if (acb->flags & ACB_NEXUS)
978 1.1 oki ti->lubusy &= ~(1 << sc_link->scsipi_scsi.lun);
979 1.1 oki if (acb == sc->sc_nexus) {
980 1.1 oki spc_select(sc, acb);
981 1.1 oki } else {
982 1.1 oki spc_dequeue(sc, acb);
983 1.1 oki TAILQ_INSERT_HEAD(&sc->ready_list, acb, chain);
984 1.1 oki if (sc->sc_state == SPC_IDLE)
985 1.1 oki spc_sched(sc);
986 1.1 oki }
987 1.1 oki }
988 1.1 oki
989 1.1 oki /*
990 1.1 oki * POST PROCESSING OF SCSI_CMD (usually current)
991 1.10 bouyer */
992 1.10 bouyer void
993 1.10 bouyer spc_done(sc, acb)
994 1.1 oki struct spc_softc *sc;
995 1.1 oki struct spc_acb *acb;
996 1.1 oki {
997 1.1 oki struct scsipi_xfer *xs = acb->xs;
998 1.1 oki struct scsipi_link *sc_link = xs->sc_link;
999 1.1 oki struct spc_tinfo *ti = &sc->sc_tinfo[sc_link->scsipi_scsi.target];
1000 1.1 oki
1001 1.1 oki SPC_TRACE(("spc_done "));
1002 1.1 oki
1003 1.1 oki /*
1004 1.1 oki * Now, if we've come here with no error code, i.e. we've kept the
1005 1.1 oki * initial XS_NOERROR, and the status code signals that we should
1006 1.1 oki * check sense, we'll need to set up a request sense cmd block and
1007 1.1 oki * push the command back into the ready queue *before* any other
1008 1.1 oki * commands for this target/lunit, else we lose the sense info.
1009 1.1 oki * We don't support chk sense conditions for the request sense cmd.
1010 1.1 oki */
1011 1.14 msaitoh if (xs->error == XS_NOERROR) {
1012 1.14 msaitoh if (acb->flags & ACB_ABORT) {
1013 1.14 msaitoh xs->error = XS_DRIVER_STUFFUP;
1014 1.14 msaitoh } else if (acb->flags & ACB_SENSE) {
1015 1.14 msaitoh xs->error = XS_SENSE;
1016 1.14 msaitoh } else {
1017 1.14 msaitoh switch (acb->target_stat) {
1018 1.14 msaitoh case SCSI_CHECK:
1019 1.14 msaitoh /* First, save the return values */
1020 1.14 msaitoh xs->resid = acb->data_length;
1021 1.14 msaitoh xs->status = acb->target_stat;
1022 1.14 msaitoh spc_sense(sc, acb);
1023 1.14 msaitoh return;
1024 1.14 msaitoh case SCSI_BUSY:
1025 1.14 msaitoh xs->error = XS_BUSY;
1026 1.14 msaitoh break;
1027 1.14 msaitoh case SCSI_OK:
1028 1.14 msaitoh xs->resid = acb->data_length;
1029 1.14 msaitoh break;
1030 1.14 msaitoh default:
1031 1.14 msaitoh xs->error = XS_DRIVER_STUFFUP;
1032 1.1 oki #if SPC_DEBUG
1033 1.1 oki printf("%s: spc_done: bad stat 0x%x\n",
1034 1.1 oki sc->sc_dev.dv_xname, acb->target_stat);
1035 1.1 oki #endif
1036 1.1 oki break;
1037 1.1 oki }
1038 1.1 oki }
1039 1.1 oki }
1040 1.8 christos
1041 1.1 oki xs->flags |= ITSDONE;
1042 1.10 bouyer
1043 1.1 oki #if SPC_DEBUG
1044 1.8 christos if ((spc_debug & SPC_SHOWMISC) != 0) {
1045 1.1 oki if (xs->resid != 0)
1046 1.1 oki printf("resid=%d ", xs->resid);
1047 1.1 oki if (xs->error == XS_SENSE)
1048 1.1 oki printf("sense=0x%02x\n", xs->sense.scsi_sense.error_code);
1049 1.1 oki else
1050 1.1 oki printf("error=%d\n", xs->error);
1051 1.1 oki }
1052 1.10 bouyer #endif
1053 1.1 oki
1054 1.1 oki /*
1055 1.1 oki * Remove the ACB from whatever queue it happens to be on.
1056 1.1 oki */
1057 1.1 oki if (acb->flags & ACB_NEXUS)
1058 1.1 oki ti->lubusy &= ~(1 << sc_link->scsipi_scsi.lun);
1059 1.1 oki if (acb == sc->sc_nexus) {
1060 1.1 oki sc->sc_nexus = NULL;
1061 1.1 oki sc->sc_state = SPC_IDLE;
1062 1.10 bouyer spc_sched(sc);
1063 1.1 oki } else
1064 1.1 oki spc_dequeue(sc, acb);
1065 1.1 oki
1066 1.1 oki spc_free_acb(sc, acb, xs->flags);
1067 1.1 oki ti->cmds++;
1068 1.1 oki scsipi_done(xs);
1069 1.1 oki }
1070 1.1 oki
1071 1.1 oki void
1072 1.1 oki spc_dequeue(sc, acb)
1073 1.1 oki struct spc_softc *sc;
1074 1.1 oki struct spc_acb *acb;
1075 1.1 oki {
1076 1.1 oki
1077 1.1 oki if (acb->flags & ACB_NEXUS) {
1078 1.1 oki TAILQ_REMOVE(&sc->nexus_list, acb, chain);
1079 1.1 oki } else {
1080 1.1 oki TAILQ_REMOVE(&sc->ready_list, acb, chain);
1081 1.1 oki }
1082 1.1 oki }
1083 1.1 oki
1084 1.1 oki /*
1086 1.1 oki * INTERRUPT/PROTOCOL ENGINE
1087 1.1 oki */
1088 1.1 oki
1089 1.1 oki #define IS1BYTEMSG(m) (((m) != 0x01 && (m) < 0x20) || (m) >= 0x80)
1090 1.1 oki #define IS2BYTEMSG(m) (((m) & 0xf0) == 0x20)
1091 1.1 oki #define ISEXTMSG(m) ((m) == 0x01)
1092 1.1 oki
1093 1.1 oki /*
1094 1.1 oki * Precondition:
1095 1.1 oki * The SCSI bus is already in the MSGI phase and there is a message byte
1096 1.1 oki * on the bus, along with an asserted REQ signal.
1097 1.1 oki */
1098 1.1 oki void
1099 1.1 oki spc_msgin(sc)
1100 1.1 oki register struct spc_softc *sc;
1101 1.1 oki {
1102 1.1 oki int n;
1103 1.1 oki
1104 1.1 oki SPC_TRACE(("spc_msgin "));
1105 1.1 oki
1106 1.1 oki if (sc->sc_prevphase == PH_MSGIN) {
1107 1.1 oki /* This is a continuation of the previous message. */
1108 1.1 oki n = sc->sc_imp - sc->sc_imess;
1109 1.1 oki goto nextbyte;
1110 1.1 oki }
1111 1.1 oki
1112 1.1 oki /* This is a new MESSAGE IN phase. Clean up our state. */
1113 1.1 oki sc->sc_flags &= ~SPC_DROP_MSGIN;
1114 1.1 oki
1115 1.1 oki nextmsg:
1116 1.1 oki n = 0;
1117 1.1 oki sc->sc_imp = &sc->sc_imess[n];
1118 1.1 oki
1119 1.1 oki nextbyte:
1120 1.1 oki /*
1121 1.1 oki * Read a whole message, but don't ack the last byte. If we reject the
1122 1.1 oki * message, we have to assert ATN during the message transfer phase
1123 1.1 oki * itself.
1124 1.1 oki */
1125 1.1 oki for (;;) {
1126 1.1 oki #if 0
1127 1.1 oki for (;;) {
1128 1.1 oki if ((PSNS & PSNS_REQ) != 0)
1129 1.1 oki break;
1130 1.1 oki /* Wait for REQINIT. XXX Need timeout. */
1131 1.1 oki }
1132 1.1 oki #endif
1133 1.1 oki if (INTS != 0) {
1134 1.1 oki /*
1135 1.1 oki * Target left MESSAGE IN, probably because it
1136 1.1 oki * a) noticed our ATN signal, or
1137 1.1 oki * b) ran out of messages.
1138 1.1 oki */
1139 1.1 oki goto out;
1140 1.1 oki }
1141 1.1 oki
1142 1.1 oki /* If parity error, just dump everything on the floor. */
1143 1.1 oki if ((SERR & (SERR_SCSI_PAR|SERR_SPC_PAR)) != 0) {
1144 1.1 oki sc->sc_flags |= SPC_DROP_MSGIN;
1145 1.1 oki spc_sched_msgout(sc, SEND_PARITY_ERROR);
1146 1.1 oki }
1147 1.1 oki
1148 1.1 oki /* send TRANSFER command. */
1149 1.1 oki TCH = 0;
1150 1.1 oki TCM = 0;
1151 1.1 oki TCL = 1;
1152 1.1 oki PCTL = sc->sc_phase | PCTL_BFINT_ENAB;
1153 1.1 oki SCMD = SCMD_XFR; /* | SCMD_PROG_XFR */
1154 1.1 oki for (;;) {
1155 1.1 oki /*if ((SSTS & SSTS_BUSY) != 0 && (SSTS & SSTS_DREG_EMPTY) != 0)*/
1156 1.1 oki if ((SSTS & SSTS_DREG_EMPTY) == 0)
1157 1.1 oki break;
1158 1.1 oki if (INTS != 0)
1159 1.1 oki goto out;
1160 1.1 oki }
1161 1.1 oki
1162 1.1 oki /* Gather incoming message bytes if needed. */
1163 1.1 oki if ((sc->sc_flags & SPC_DROP_MSGIN) == 0) {
1164 1.1 oki if (n >= SPC_MAX_MSG_LEN) {
1165 1.1 oki (void) DREG;
1166 1.1 oki sc->sc_flags |= SPC_DROP_MSGIN;
1167 1.1 oki spc_sched_msgout(sc, SEND_REJECT);
1168 1.1 oki } else {
1169 1.1 oki *sc->sc_imp++ = DREG;
1170 1.1 oki n++;
1171 1.1 oki /*
1172 1.1 oki * This testing is suboptimal, but most
1173 1.1 oki * messages will be of the one byte variety, so
1174 1.1 oki * it should not affect performance
1175 1.1 oki * significantly.
1176 1.1 oki */
1177 1.1 oki if (n == 1 && IS1BYTEMSG(sc->sc_imess[0]))
1178 1.1 oki break;
1179 1.1 oki if (n == 2 && IS2BYTEMSG(sc->sc_imess[0]))
1180 1.1 oki break;
1181 1.1 oki if (n >= 3 && ISEXTMSG(sc->sc_imess[0]) &&
1182 1.1 oki n == sc->sc_imess[1] + 2)
1183 1.1 oki break;
1184 1.1 oki }
1185 1.1 oki } else
1186 1.1 oki (void) DREG;
1187 1.1 oki
1188 1.1 oki /*
1189 1.1 oki * If we reach this spot we're either:
1190 1.1 oki * a) in the middle of a multi-byte message, or
1191 1.1 oki * b) dropping bytes.
1192 1.1 oki */
1193 1.1 oki
1194 1.1 oki #if 0
1195 1.1 oki /* Ack the last byte read. */
1196 1.1 oki /*(void) DREG;*/
1197 1.1 oki while ((PSNS & ACKI) != 0)
1198 1.1 oki ;
1199 1.1 oki #endif
1200 1.10 bouyer }
1201 1.1 oki
1202 1.1 oki SPC_MISC(("n=%d imess=0x%02x ", n, sc->sc_imess[0]));
1203 1.1 oki
1204 1.1 oki /* We now have a complete message. Parse it. */
1205 1.1 oki switch (sc->sc_state) {
1206 1.10 bouyer struct spc_acb *acb;
1207 1.1 oki struct scsipi_link *sc_link;
1208 1.1 oki struct spc_tinfo *ti;
1209 1.1 oki
1210 1.1 oki case SPC_CONNECTED:
1211 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1212 1.8 christos acb = sc->sc_nexus;
1213 1.1 oki ti = &sc->sc_tinfo[acb->xs->sc_link->scsipi_scsi.target];
1214 1.10 bouyer
1215 1.1 oki switch (sc->sc_imess[0]) {
1216 1.1 oki case MSG_CMDCOMPLETE:
1217 1.1 oki if (sc->sc_dleft < 0) {
1218 1.1 oki sc_link = acb->xs->sc_link;
1219 1.1 oki printf("%s: %d extra bytes from %d:%d\n",
1220 1.1 oki sc->sc_dev.dv_xname, -sc->sc_dleft,
1221 1.1 oki sc_link->scsipi_scsi.target, sc_link->scsipi_scsi.lun);
1222 1.1 oki acb->data_length = 0;
1223 1.1 oki }
1224 1.1 oki acb->xs->resid = acb->data_length = sc->sc_dleft;
1225 1.1 oki sc->sc_state = SPC_CMDCOMPLETE;
1226 1.1 oki break;
1227 1.1 oki
1228 1.1 oki case MSG_PARITY_ERROR:
1229 1.1 oki /* Resend the last message. */
1230 1.1 oki spc_sched_msgout(sc, sc->sc_lastmsg);
1231 1.1 oki break;
1232 1.1 oki
1233 1.1 oki case MSG_MESSAGE_REJECT:
1234 1.1 oki SPC_MISC(("message rejected %02x ", sc->sc_lastmsg));
1235 1.1 oki switch (sc->sc_lastmsg) {
1236 1.1 oki #if SPC_USE_SYNCHRONOUS + SPC_USE_WIDE
1237 1.1 oki case SEND_IDENTIFY:
1238 1.1 oki ti->flags &= ~(DO_SYNC | DO_WIDE);
1239 1.1 oki ti->period = ti->offset = 0;
1240 1.1 oki spc_setsync(sc, ti);
1241 1.1 oki ti->width = 0;
1242 1.1 oki break;
1243 1.1 oki #endif
1244 1.1 oki #if SPC_USE_SYNCHRONOUS
1245 1.1 oki case SEND_SDTR:
1246 1.1 oki ti->flags &= ~DO_SYNC;
1247 1.1 oki ti->period = ti->offset = 0;
1248 1.1 oki spc_setsync(sc, ti);
1249 1.1 oki break;
1250 1.1 oki #endif
1251 1.1 oki #if SPC_USE_WIDE
1252 1.1 oki case SEND_WDTR:
1253 1.1 oki ti->flags &= ~DO_WIDE;
1254 1.1 oki ti->width = 0;
1255 1.1 oki break;
1256 1.1 oki #endif
1257 1.1 oki case SEND_INIT_DET_ERR:
1258 1.1 oki spc_sched_msgout(sc, SEND_ABORT);
1259 1.1 oki break;
1260 1.1 oki }
1261 1.1 oki break;
1262 1.1 oki
1263 1.1 oki case MSG_NOOP:
1264 1.1 oki break;
1265 1.1 oki
1266 1.1 oki case MSG_DISCONNECT:
1267 1.1 oki ti->dconns++;
1268 1.1 oki sc->sc_state = SPC_DISCONNECT;
1269 1.1 oki break;
1270 1.1 oki
1271 1.1 oki case MSG_SAVEDATAPOINTER:
1272 1.1 oki acb->data_addr = sc->sc_dp;
1273 1.1 oki acb->data_length = sc->sc_dleft;
1274 1.1 oki break;
1275 1.1 oki
1276 1.1 oki case MSG_RESTOREPOINTERS:
1277 1.1 oki sc->sc_dp = acb->data_addr;
1278 1.1 oki sc->sc_dleft = acb->data_length;
1279 1.1 oki sc->sc_cp = (u_char *)&acb->scsi_cmd;
1280 1.1 oki sc->sc_cleft = acb->scsi_cmd_length;
1281 1.1 oki break;
1282 1.1 oki
1283 1.1 oki case MSG_EXTENDED:
1284 1.1 oki switch (sc->sc_imess[2]) {
1285 1.1 oki #if SPC_USE_SYNCHRONOUS
1286 1.1 oki case MSG_EXT_SDTR:
1287 1.1 oki if (sc->sc_imess[1] != 3)
1288 1.1 oki goto reject;
1289 1.1 oki ti->period = sc->sc_imess[3];
1290 1.1 oki ti->offset = sc->sc_imess[4];
1291 1.1 oki ti->flags &= ~DO_SYNC;
1292 1.10 bouyer if (ti->offset == 0) {
1293 1.8 christos } else if (ti->period < sc->sc_minsync ||
1294 1.1 oki ti->period > sc->sc_maxsync ||
1295 1.1 oki ti->offset > 8) {
1296 1.1 oki ti->period = ti->offset = 0;
1297 1.1 oki spc_sched_msgout(sc, SEND_SDTR);
1298 1.1 oki } else {
1299 1.1 oki scsi_print_addr(acb->xs->sc_link);
1300 1.1 oki printf("sync, offset %d, period %dnsec\n",
1301 1.1 oki ti->offset, ti->period * 4);
1302 1.1 oki }
1303 1.1 oki spc_setsync(sc, ti);
1304 1.1 oki break;
1305 1.1 oki #endif
1306 1.1 oki
1307 1.1 oki #if SPC_USE_WIDE
1308 1.1 oki case MSG_EXT_WDTR:
1309 1.1 oki if (sc->sc_imess[1] != 2)
1310 1.1 oki goto reject;
1311 1.10 bouyer ti->width = sc->sc_imess[3];
1312 1.8 christos ti->flags &= ~DO_WIDE;
1313 1.1 oki if (ti->width == 0) {
1314 1.1 oki } else if (ti->width > SPC_MAX_WIDTH) {
1315 1.1 oki ti->width = 0;
1316 1.1 oki spc_sched_msgout(sc, SEND_WDTR);
1317 1.1 oki } else {
1318 1.1 oki scsi_print_addr(acb->xs->sc_link);
1319 1.8 christos printf("wide, width %d\n",
1320 1.1 oki 1 << (3 + ti->width));
1321 1.1 oki }
1322 1.1 oki break;
1323 1.1 oki #endif
1324 1.1 oki
1325 1.1 oki default:
1326 1.1 oki printf("%s: unrecognized MESSAGE EXTENDED; sending REJECT\n",
1327 1.8 christos sc->sc_dev.dv_xname);
1328 1.1 oki SPC_BREAK();
1329 1.1 oki goto reject;
1330 1.1 oki }
1331 1.1 oki break;
1332 1.1 oki
1333 1.1 oki default:
1334 1.1 oki printf("%s: unrecognized MESSAGE; sending REJECT\n",
1335 1.1 oki sc->sc_dev.dv_xname);
1336 1.1 oki SPC_BREAK();
1337 1.1 oki reject:
1338 1.8 christos spc_sched_msgout(sc, SEND_REJECT);
1339 1.1 oki break;
1340 1.1 oki }
1341 1.1 oki break;
1342 1.1 oki
1343 1.1 oki case SPC_RESELECTED:
1344 1.1 oki if (!MSG_ISIDENTIFY(sc->sc_imess[0])) {
1345 1.1 oki printf("%s: reselect without IDENTIFY; sending DEVICE RESET\n",
1346 1.1 oki sc->sc_dev.dv_xname);
1347 1.1 oki SPC_BREAK();
1348 1.8 christos goto reset;
1349 1.1 oki }
1350 1.1 oki
1351 1.1 oki (void) spc_reselect(sc, sc->sc_imess[0]);
1352 1.1 oki break;
1353 1.1 oki
1354 1.1 oki default:
1355 1.1 oki printf("%s: unexpected MESSAGE IN; sending DEVICE RESET\n",
1356 1.1 oki sc->sc_dev.dv_xname);
1357 1.1 oki SPC_BREAK();
1358 1.1 oki reset:
1359 1.1 oki spc_sched_msgout(sc, SEND_DEV_RESET);
1360 1.1 oki break;
1361 1.1 oki
1362 1.1 oki abort:
1363 1.1 oki spc_sched_msgout(sc, SEND_ABORT);
1364 1.1 oki break;
1365 1.1 oki }
1366 1.1 oki
1367 1.1 oki /* Ack the last message byte. */
1368 1.1 oki #if 0 /* XXX? */
1369 1.1 oki (void) DREG;
1370 1.1 oki while ((PSNS & ACKI) != 0)
1371 1.1 oki ;
1372 1.1 oki #endif
1373 1.1 oki
1374 1.1 oki /* Go get the next message, if any. */
1375 1.1 oki goto nextmsg;
1376 1.1 oki
1377 1.1 oki out:
1378 1.1 oki SCMD = SCMD_RST_ACK;
1379 1.1 oki SPC_MISC(("n=%d imess=0x%02x ", n, sc->sc_imess[0]));
1380 1.1 oki }
1381 1.1 oki
1382 1.1 oki /*
1383 1.1 oki * Send the highest priority, scheduled message.
1384 1.1 oki */
1385 1.1 oki void
1386 1.1 oki spc_msgout(sc)
1387 1.1 oki register struct spc_softc *sc;
1388 1.1 oki {
1389 1.1 oki struct spc_tinfo *ti;
1390 1.1 oki int n;
1391 1.1 oki
1392 1.1 oki SPC_TRACE(("spc_msgout "));
1393 1.1 oki
1394 1.1 oki if (sc->sc_prevphase == PH_MSGOUT) {
1395 1.1 oki if (sc->sc_omp == sc->sc_omess) {
1396 1.1 oki /*
1397 1.1 oki * This is a retransmission.
1398 1.1 oki *
1399 1.1 oki * We get here if the target stayed in MESSAGE OUT
1400 1.1 oki * phase. Section 5.1.9.2 of the SCSI 2 spec indicates
1401 1.1 oki * that all of the previously transmitted messages must
1402 1.1 oki * be sent again, in the same order. Therefore, we
1403 1.1 oki * requeue all the previously transmitted messages, and
1404 1.1 oki * start again from the top. Our simple priority
1405 1.1 oki * scheme keeps the messages in the right order.
1406 1.1 oki */
1407 1.1 oki SPC_MISC(("retransmitting "));
1408 1.1 oki sc->sc_msgpriq |= sc->sc_msgoutq;
1409 1.1 oki /*
1410 1.1 oki * Set ATN. If we're just sending a trivial 1-byte
1411 1.1 oki * message, we'll clear ATN later on anyway.
1412 1.1 oki */
1413 1.1 oki SCMD = SCMD_SET_ATN; /* XXX? */
1414 1.1 oki } else {
1415 1.1 oki /* This is a continuation of the previous message. */
1416 1.1 oki n = sc->sc_omp - sc->sc_omess;
1417 1.1 oki goto nextbyte;
1418 1.1 oki }
1419 1.1 oki }
1420 1.1 oki
1421 1.1 oki /* No messages transmitted so far. */
1422 1.1 oki sc->sc_msgoutq = 0;
1423 1.1 oki sc->sc_lastmsg = 0;
1424 1.1 oki
1425 1.1 oki nextmsg:
1426 1.1 oki /* Pick up highest priority message. */
1427 1.1 oki sc->sc_currmsg = sc->sc_msgpriq & -sc->sc_msgpriq;
1428 1.1 oki sc->sc_msgpriq &= ~sc->sc_currmsg;
1429 1.10 bouyer sc->sc_msgoutq |= sc->sc_currmsg;
1430 1.1 oki
1431 1.1 oki /* Build the outgoing message data. */
1432 1.1 oki switch (sc->sc_currmsg) {
1433 1.1 oki case SEND_IDENTIFY:
1434 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1435 1.1 oki sc->sc_omess[0] =
1436 1.10 bouyer MSG_IDENTIFY(sc->sc_nexus->xs->sc_link->scsipi_scsi.lun, 1);
1437 1.1 oki n = 1;
1438 1.1 oki break;
1439 1.1 oki
1440 1.1 oki #if SPC_USE_SYNCHRONOUS
1441 1.1 oki case SEND_SDTR:
1442 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1443 1.1 oki ti = &sc->sc_tinfo[sc->sc_nexus->xs->sc_link->scsipi_scsi.target];
1444 1.1 oki sc->sc_omess[4] = MSG_EXTENDED;
1445 1.1 oki sc->sc_omess[3] = 3;
1446 1.1 oki sc->sc_omess[2] = MSG_EXT_SDTR;
1447 1.1 oki sc->sc_omess[1] = ti->period >> 2;
1448 1.1 oki sc->sc_omess[0] = ti->offset;
1449 1.10 bouyer n = 5;
1450 1.1 oki break;
1451 1.1 oki #endif
1452 1.1 oki
1453 1.1 oki #if SPC_USE_WIDE
1454 1.1 oki case SEND_WDTR:
1455 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1456 1.1 oki ti = &sc->sc_tinfo[sc->sc_nexus->xs->sc_link->scsipi_scsi.target];
1457 1.1 oki sc->sc_omess[3] = MSG_EXTENDED;
1458 1.1 oki sc->sc_omess[2] = 2;
1459 1.1 oki sc->sc_omess[1] = MSG_EXT_WDTR;
1460 1.1 oki sc->sc_omess[0] = ti->width;
1461 1.1 oki n = 4;
1462 1.1 oki break;
1463 1.1 oki #endif
1464 1.1 oki
1465 1.1 oki case SEND_DEV_RESET:
1466 1.1 oki sc->sc_flags |= SPC_ABORTING;
1467 1.1 oki sc->sc_omess[0] = MSG_BUS_DEV_RESET;
1468 1.1 oki n = 1;
1469 1.1 oki break;
1470 1.1 oki
1471 1.1 oki case SEND_REJECT:
1472 1.1 oki sc->sc_omess[0] = MSG_MESSAGE_REJECT;
1473 1.1 oki n = 1;
1474 1.1 oki break;
1475 1.1 oki
1476 1.1 oki case SEND_PARITY_ERROR:
1477 1.1 oki sc->sc_omess[0] = MSG_PARITY_ERROR;
1478 1.1 oki n = 1;
1479 1.1 oki break;
1480 1.1 oki
1481 1.1 oki case SEND_INIT_DET_ERR:
1482 1.1 oki sc->sc_omess[0] = MSG_INITIATOR_DET_ERR;
1483 1.1 oki n = 1;
1484 1.1 oki break;
1485 1.1 oki
1486 1.8 christos case SEND_ABORT:
1487 1.1 oki sc->sc_flags |= SPC_ABORTING;
1488 1.1 oki sc->sc_omess[0] = MSG_ABORT;
1489 1.1 oki n = 1;
1490 1.1 oki break;
1491 1.1 oki
1492 1.1 oki default:
1493 1.1 oki printf("%s: unexpected MESSAGE OUT; sending NOOP\n",
1494 1.1 oki sc->sc_dev.dv_xname);
1495 1.1 oki SPC_BREAK();
1496 1.1 oki sc->sc_omess[0] = MSG_NOOP;
1497 1.1 oki n = 1;
1498 1.1 oki break;
1499 1.1 oki }
1500 1.1 oki sc->sc_omp = &sc->sc_omess[n];
1501 1.1 oki
1502 1.1 oki nextbyte:
1503 1.1 oki /* Send message bytes. */
1504 1.1 oki /* send TRANSFER command. */
1505 1.1 oki TCH = n >> 16;
1506 1.1 oki TCM = n >> 8;
1507 1.1 oki TCL = n;
1508 1.1 oki PCTL = sc->sc_phase | PCTL_BFINT_ENAB;
1509 1.1 oki SCMD = SCMD_XFR; /* | SCMD_PROG_XFR */
1510 1.1 oki for (;;) {
1511 1.1 oki if ((SSTS & SSTS_BUSY) != 0)
1512 1.1 oki break;
1513 1.1 oki if (INTS != 0)
1514 1.1 oki goto out;
1515 1.1 oki }
1516 1.1 oki for (;;) {
1517 1.1 oki #if 0
1518 1.1 oki for (;;) {
1519 1.1 oki if ((PSNS & PSNS_REQ) != 0)
1520 1.1 oki break;
1521 1.1 oki /* Wait for REQINIT. XXX Need timeout. */
1522 1.1 oki }
1523 1.1 oki #endif
1524 1.1 oki if (INTS != 0) {
1525 1.1 oki /*
1526 1.1 oki * Target left MESSAGE OUT, possibly to reject
1527 1.1 oki * our message.
1528 1.1 oki *
1529 1.1 oki * If this is the last message being sent, then we
1530 1.1 oki * deassert ATN, since either the target is going to
1531 1.1 oki * ignore this message, or it's going to ask for a
1532 1.1 oki * retransmission via MESSAGE PARITY ERROR (in which
1533 1.1 oki * case we reassert ATN anyway).
1534 1.1 oki */
1535 1.1 oki #if 0
1536 1.1 oki if (sc->sc_msgpriq == 0)
1537 1.1 oki SCMD = SCMD_RST_ATN;
1538 1.1 oki #endif
1539 1.1 oki goto out;
1540 1.1 oki }
1541 1.1 oki
1542 1.1 oki #if 0
1543 1.1 oki /* Clear ATN before last byte if this is the last message. */
1544 1.1 oki if (n == 1 && sc->sc_msgpriq == 0)
1545 1.1 oki SCMD = SCMD_RST_ATN;
1546 1.1 oki #endif
1547 1.1 oki
1548 1.1 oki while ((SSTS & SSTS_DREG_FULL) != 0)
1549 1.1 oki ;
1550 1.1 oki /* Send message byte. */
1551 1.1 oki DREG = *--sc->sc_omp;
1552 1.1 oki --n;
1553 1.1 oki /* Keep track of the last message we've sent any bytes of. */
1554 1.1 oki sc->sc_lastmsg = sc->sc_currmsg;
1555 1.1 oki #if 0
1556 1.1 oki /* Wait for ACK to be negated. XXX Need timeout. */
1557 1.1 oki while ((PSNS & ACKI) != 0)
1558 1.1 oki ;
1559 1.1 oki #endif
1560 1.1 oki
1561 1.1 oki if (n == 0)
1562 1.1 oki break;
1563 1.1 oki }
1564 1.1 oki
1565 1.1 oki /* We get here only if the entire message has been transmitted. */
1566 1.1 oki if (sc->sc_msgpriq != 0) {
1567 1.1 oki /* There are more outgoing messages. */
1568 1.1 oki goto nextmsg;
1569 1.1 oki }
1570 1.1 oki
1571 1.1 oki /*
1572 1.1 oki * The last message has been transmitted. We need to remember the last
1573 1.1 oki * message transmitted (in case the target switches to MESSAGE IN phase
1574 1.1 oki * and sends a MESSAGE REJECT), and the list of messages transmitted
1575 1.1 oki * this time around (in case the target stays in MESSAGE OUT phase to
1576 1.1 oki * request a retransmit).
1577 1.1 oki */
1578 1.1 oki
1579 1.1 oki out:
1580 1.1 oki /* Disable REQ/ACK protocol. */
1581 1.1 oki }
1582 1.1 oki
1583 1.1 oki /*
1585 1.1 oki * This new revision has been optimized (I tried) to make the common case fast,
1586 1.1 oki * and the rarer cases (as a result) somewhat more comlex
1587 1.1 oki */
1588 1.1 oki int
1589 1.1 oki spc_dataout_pio(sc, p, n)
1590 1.1 oki register struct spc_softc *sc;
1591 1.1 oki u_char *p;
1592 1.1 oki int n;
1593 1.1 oki {
1594 1.1 oki register u_char intstat = 0;
1595 1.1 oki int out = 0;
1596 1.1 oki #define DOUTAMOUNT 8 /* Full FIFO */
1597 1.1 oki
1598 1.1 oki /* send TRANSFER command. */
1599 1.1 oki TCH = n >> 16;
1600 1.1 oki TCM = n >> 8;
1601 1.1 oki TCL = n;
1602 1.1 oki PCTL = sc->sc_phase | PCTL_BFINT_ENAB;
1603 1.1 oki SCMD = SCMD_XFR;
1604 1.1 oki for (;;) {
1605 1.1 oki if ((SSTS & SSTS_BUSY) != 0)
1606 1.1 oki break;
1607 1.1 oki if (INTS != 0)
1608 1.1 oki break;
1609 1.1 oki }
1610 1.1 oki
1611 1.1 oki /*
1612 1.1 oki * I have tried to make the main loop as tight as possible. This
1613 1.1 oki * means that some of the code following the loop is a bit more
1614 1.1 oki * complex than otherwise.
1615 1.1 oki */
1616 1.1 oki while (n > 0) {
1617 1.1 oki int xfer;
1618 1.1 oki
1619 1.1 oki for (;;) {
1620 1.1 oki intstat = INTS;
1621 1.1 oki /* $B%P%C%U%!$,6u$K$J$k$^$GBT$D(B */
1622 1.1 oki if ((SSTS & SSTS_DREG_EMPTY) != 0)
1623 1.1 oki break;
1624 1.1 oki /* $B$?$@$73d$j9~$_$,F~$C$F$-$?$iH4$1$k(B */
1625 1.1 oki if (intstat != 0)
1626 1.1 oki goto phasechange;
1627 1.1 oki }
1628 1.1 oki
1629 1.1 oki xfer = min(DOUTAMOUNT, n);
1630 1.1 oki
1631 1.1 oki SPC_MISC(("%d> ", xfer));
1632 1.1 oki
1633 1.1 oki n -= xfer;
1634 1.1 oki out += xfer;
1635 1.1 oki
1636 1.1 oki while (xfer-- > 0) {
1637 1.1 oki DREG = *p++;
1638 1.1 oki }
1639 1.1 oki }
1640 1.1 oki
1641 1.1 oki if (out == 0) {
1642 1.1 oki for (;;) {
1643 1.1 oki if (INTS != 0)
1644 1.1 oki break;
1645 1.1 oki }
1646 1.1 oki SPC_MISC(("extra data "));
1647 1.1 oki } else {
1648 1.1 oki /* See the bytes off chip */
1649 1.1 oki for (;;) {
1650 1.1 oki /* $B%P%C%U%!$,6u$K$J$k$^$GBT$D(B */
1651 1.1 oki if ((SSTS & SSTS_DREG_EMPTY) != 0)
1652 1.1 oki break;
1653 1.1 oki intstat = INTS;
1654 1.1 oki /* $B$?$@$73d$j9~$_$,F~$C$F$-$?$iH4$1$k(B */
1655 1.1 oki if (intstat != 0)
1656 1.1 oki goto phasechange;
1657 1.1 oki }
1658 1.1 oki }
1659 1.1 oki
1660 1.1 oki phasechange:
1661 1.1 oki /* Stop the FIFO data path. */
1662 1.1 oki
1663 1.1 oki if (intstat != 0) {
1664 1.1 oki /* Some sort of phase change. */
1665 1.1 oki int amount;
1666 1.1 oki
1667 1.1 oki amount = (TCH << 16) | (TCM << 8) | TCL;
1668 1.1 oki if (amount > 0) {
1669 1.1 oki out -= amount;
1670 1.1 oki SPC_MISC(("+%d ", amount));
1671 1.1 oki }
1672 1.1 oki }
1673 1.1 oki /* Turn on ENREQINIT again. */
1674 1.1 oki
1675 1.1 oki return out;
1676 1.1 oki }
1677 1.1 oki
1678 1.1 oki /*
1680 1.1 oki * For now, uses a pretty dumb algorithm, hangs around until all data has been
1681 1.1 oki * transferred. This, is OK for fast targets, but not so smart for slow
1682 1.1 oki * targets which don't disconnect or for huge transfers.
1683 1.1 oki */
1684 1.1 oki int
1685 1.1 oki spc_datain_pio(sc, p, n)
1686 1.1 oki register struct spc_softc *sc;
1687 1.1 oki u_char *p;
1688 1.1 oki int n;
1689 1.1 oki {
1690 1.1 oki register u_short intstat;
1691 1.1 oki int in = 0;
1692 1.1 oki #define DINAMOUNT 8 /* Full FIFO */
1693 1.1 oki
1694 1.1 oki /* send TRANSFER command. */
1695 1.1 oki TCH = n >> 16;
1696 1.1 oki TCM = n >> 8;
1697 1.1 oki TCL = n;
1698 1.1 oki PCTL = sc->sc_phase | PCTL_BFINT_ENAB;
1699 1.1 oki SCMD = SCMD_XFR;
1700 1.1 oki for (;;) {
1701 1.1 oki if ((SSTS & SSTS_BUSY) != 0)
1702 1.1 oki break;
1703 1.1 oki if (INTS != 0)
1704 1.1 oki goto phasechange;
1705 1.1 oki }
1706 1.1 oki
1707 1.1 oki /*
1708 1.1 oki * We leave this loop if one or more of the following is true:
1709 1.1 oki * a) phase != PH_DATAIN && FIFOs are empty
1710 1.1 oki * b) reset has occurred or busfree is detected.
1711 1.1 oki */
1712 1.1 oki while (n > 0) {
1713 1.1 oki int xfer;
1714 1.1 oki
1715 1.1 oki #define INTSMASK 0xff
1716 1.1 oki /* Wait for fifo half full or phase mismatch */
1717 1.1 oki for (;;) {
1718 1.1 oki intstat = (SSTS << 8) | INTS;
1719 1.1 oki if ((intstat & (INTSMASK | (SSTS_DREG_FULL << 8))) != 0)
1720 1.1 oki break;
1721 1.1 oki if ((intstat & (SSTS_DREG_EMPTY << 8)) == 0)
1722 1.1 oki break;
1723 1.1 oki }
1724 1.1 oki
1725 1.1 oki #if 1
1726 1.1 oki if ((intstat & INTSMASK) != 0)
1727 1.1 oki goto phasechange;
1728 1.1 oki #else
1729 1.1 oki if ((intstat & INTSMASK) != 0 &&
1730 1.1 oki (intstat & (SSTS_DREG_EMPTY << 8)))
1731 1.1 oki goto phasechange;
1732 1.1 oki #endif
1733 1.1 oki if ((intstat & (SSTS_DREG_FULL << 8)) != 0)
1734 1.1 oki xfer = min(DINAMOUNT, n);
1735 1.1 oki else
1736 1.1 oki xfer = min(1, n);
1737 1.1 oki
1738 1.1 oki SPC_MISC((">%d ", xfer));
1739 1.1 oki
1740 1.1 oki n -= xfer;
1741 1.1 oki in += xfer;
1742 1.1 oki
1743 1.1 oki while (xfer-- > 0) {
1744 1.1 oki *p++ = DREG;
1745 1.1 oki }
1746 1.1 oki
1747 1.1 oki if ((intstat & INTSMASK) != 0)
1748 1.1 oki goto phasechange;
1749 1.1 oki }
1750 1.1 oki
1751 1.1 oki /*
1752 1.1 oki * Some SCSI-devices are rude enough to transfer more data than what
1753 1.1 oki * was requested, e.g. 2048 bytes from a CD-ROM instead of the
1754 1.1 oki * requested 512. Test for progress, i.e. real transfers. If no real
1755 1.1 oki * transfers have been performed (n is probably already zero) and the
1756 1.1 oki * FIFO is not empty, waste some bytes....
1757 1.1 oki */
1758 1.1 oki if (in == 0) {
1759 1.1 oki for (;;) {
1760 1.1 oki if (INTS != 0)
1761 1.1 oki break;
1762 1.1 oki }
1763 1.1 oki SPC_MISC(("extra data "));
1764 1.1 oki }
1765 1.1 oki
1766 1.1 oki phasechange:
1767 1.1 oki /* Stop the FIFO data path. */
1768 1.1 oki
1769 1.1 oki /* Turn on ENREQINIT again. */
1770 1.1 oki
1771 1.1 oki return in;
1772 1.1 oki }
1773 1.1 oki
1774 1.1 oki /*
1776 1.1 oki * Catch an interrupt from the adaptor
1777 1.12 oki */
1778 1.1 oki /*
1779 1.12 oki * This is the workhorse routine of the driver.
1780 1.12 oki * Deficiencies (for now):
1781 1.1 oki * 1) always uses programmed I/O
1782 1.1 oki */
1783 1.1 oki int
1784 1.12 oki spcintr(unit)
1785 1.12 oki int unit;
1786 1.12 oki {
1787 1.1 oki struct spc_softc *sc = spc_cd.cd_devs[unit]; /* XXX */
1788 1.1 oki u_char ints;
1789 1.1 oki struct spc_acb *acb;
1790 1.1 oki struct scsipi_link *sc_link;
1791 1.1 oki struct spc_tinfo *ti;
1792 1.1 oki int n;
1793 1.1 oki
1794 1.1 oki /* return if not configured */
1795 1.1 oki if (sc == NULL)
1796 1.1 oki return;
1797 1.1 oki /*
1798 1.1 oki * $B3d$j9~$_6X;_$K$9$k(B
1799 1.1 oki */
1800 1.1 oki SCTL &= ~SCTL_INTR_ENAB;
1801 1.1 oki
1802 1.1 oki SPC_TRACE(("spcintr "));
1803 1.1 oki
1804 1.1 oki loop:
1805 1.1 oki /*
1806 1.1 oki * $BA4E>Aw$,40A4$K=*N;$9$k$^$G%k!<%W$9$k(B
1807 1.1 oki */
1808 1.1 oki /*
1809 1.8 christos * First check for abnormal conditions, such as reset.
1810 1.1 oki */
1811 1.1 oki #if 1 /* XXX? */
1812 1.1 oki while ((ints = INTS) == 0)
1813 1.1 oki delay(1);
1814 1.1 oki SPC_MISC(("ints = 0x%x ", ints));
1815 1.1 oki #else /* usually? */
1816 1.1 oki ints = INTS;
1817 1.8 christos #endif
1818 1.1 oki if ((ints & INTS_RST) != 0) {
1819 1.1 oki printf("%s: SCSI bus reset\n", sc->sc_dev.dv_xname);
1820 1.1 oki goto reset;
1821 1.1 oki }
1822 1.1 oki
1823 1.1 oki /*
1824 1.1 oki * Check for less serious errors.
1825 1.1 oki */
1826 1.1 oki if ((SERR & (SERR_SCSI_PAR|SERR_SPC_PAR)) != 0) {
1827 1.1 oki printf("%s: SCSI bus parity error\n", sc->sc_dev.dv_xname);
1828 1.1 oki if (sc->sc_prevphase == PH_MSGIN) {
1829 1.1 oki sc->sc_flags |= SPC_DROP_MSGIN;
1830 1.1 oki spc_sched_msgout(sc, SEND_PARITY_ERROR);
1831 1.1 oki } else
1832 1.1 oki spc_sched_msgout(sc, SEND_INIT_DET_ERR);
1833 1.1 oki }
1834 1.1 oki
1835 1.1 oki /*
1836 1.1 oki * If we're not already busy doing something test for the following
1837 1.1 oki * conditions:
1838 1.1 oki * 1) We have been reselected by something
1839 1.1 oki * 2) We have selected something successfully
1840 1.1 oki * 3) Our selection process has timed out
1841 1.1 oki * 4) This is really a bus free interrupt just to get a new command
1842 1.1 oki * going?
1843 1.8 christos * 5) Spurious interrupt?
1844 1.1 oki */
1845 1.1 oki switch (sc->sc_state) {
1846 1.1 oki case SPC_IDLE:
1847 1.1 oki case SPC_SELECTING:
1848 1.1 oki
1849 1.1 oki if ((ints & INTS_SEL) != 0) {
1850 1.1 oki /*
1851 1.1 oki * We don't currently support target mode.
1852 1.1 oki */
1853 1.1 oki printf("%s: target mode selected; going to BUS FREE\n",
1854 1.1 oki sc->sc_dev.dv_xname);
1855 1.1 oki
1856 1.1 oki goto sched;
1857 1.1 oki } else if ((ints & INTS_RESEL) != 0) {
1858 1.1 oki SPC_MISC(("reselected "));
1859 1.1 oki
1860 1.1 oki /*
1861 1.1 oki * If we're trying to select a target ourselves,
1862 1.1 oki * push our command back into the ready list.
1863 1.1 oki */
1864 1.1 oki if (sc->sc_state == SPC_SELECTING) {
1865 1.1 oki SPC_MISC(("backoff selector "));
1866 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1867 1.1 oki acb = sc->sc_nexus;
1868 1.1 oki sc->sc_nexus = NULL;
1869 1.1 oki TAILQ_INSERT_HEAD(&sc->ready_list, acb, chain);
1870 1.1 oki }
1871 1.1 oki
1872 1.1 oki /* Save reselection ID. */
1873 1.1 oki sc->sc_selid = TEMP;
1874 1.1 oki
1875 1.1 oki sc->sc_state = SPC_RESELECTED;
1876 1.8 christos } else if ((ints & INTS_CMD_DONE) != 0) {
1877 1.1 oki SPC_MISC(("selected "));
1878 1.1 oki
1879 1.1 oki /*
1880 1.1 oki * We have selected a target. Things to do:
1881 1.1 oki * a) Determine what message(s) to send.
1882 1.1 oki * b) Verify that we're still selecting the target.
1883 1.1 oki * c) Mark device as busy.
1884 1.10 bouyer */
1885 1.1 oki if (sc->sc_state != SPC_SELECTING) {
1886 1.1 oki printf("%s: selection out while idle; resetting\n",
1887 1.1 oki sc->sc_dev.dv_xname);
1888 1.1 oki SPC_BREAK();
1889 1.1 oki goto reset;
1890 1.1 oki }
1891 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1892 1.1 oki acb = sc->sc_nexus;
1893 1.1 oki sc_link = acb->xs->sc_link;
1894 1.1 oki ti = &sc->sc_tinfo[sc_link->scsipi_scsi.target];
1895 1.1 oki
1896 1.1 oki sc->sc_msgpriq = SEND_IDENTIFY;
1897 1.1 oki if (acb->flags & ACB_RESET)
1898 1.1 oki sc->sc_msgpriq |= SEND_DEV_RESET;
1899 1.1 oki else if (acb->flags & ACB_ABORT)
1900 1.1 oki sc->sc_msgpriq |= SEND_ABORT;
1901 1.1 oki else {
1902 1.1 oki #if SPC_USE_SYNCHRONOUS
1903 1.10 bouyer if ((ti->flags & DO_SYNC) != 0)
1904 1.1 oki sc->sc_msgpriq |= SEND_SDTR;
1905 1.1 oki #endif
1906 1.1 oki #if SPC_USE_WIDE
1907 1.1 oki if ((ti->flags & DO_WIDE) != 0)
1908 1.1 oki sc->sc_msgpriq |= SEND_WDTR;
1909 1.1 oki #endif
1910 1.1 oki }
1911 1.1 oki
1912 1.1 oki acb->flags |= ACB_NEXUS;
1913 1.1 oki ti->lubusy |= (1 << sc_link->scsipi_scsi.lun);
1914 1.1 oki
1915 1.1 oki /* Do an implicit RESTORE POINTERS. */
1916 1.1 oki sc->sc_dp = acb->data_addr;
1917 1.1 oki sc->sc_dleft = acb->data_length;
1918 1.1 oki sc->sc_cp = (u_char *)&acb->scsi_cmd;
1919 1.1 oki sc->sc_cleft = acb->scsi_cmd_length;
1920 1.8 christos
1921 1.1 oki /* On our first connection, schedule a timeout. */
1922 1.1 oki if ((acb->xs->flags & SCSI_POLL) == 0)
1923 1.1 oki timeout(spc_timeout, acb, (acb->timeout * hz) / 1000);
1924 1.1 oki
1925 1.1 oki sc->sc_state = SPC_CONNECTED;
1926 1.1 oki } else if ((ints & INTS_TIMEOUT) != 0) {
1927 1.1 oki SPC_MISC(("selection timeout "));
1928 1.1 oki
1929 1.1 oki if (sc->sc_state != SPC_SELECTING) {
1930 1.1 oki printf("%s: selection timeout while idle; resetting\n",
1931 1.1 oki sc->sc_dev.dv_xname);
1932 1.1 oki SPC_BREAK();
1933 1.1 oki goto reset;
1934 1.8 christos }
1935 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1936 1.1 oki acb = sc->sc_nexus;
1937 1.1 oki
1938 1.1 oki delay(250);
1939 1.1 oki
1940 1.1 oki acb->xs->error = XS_SELTIMEOUT;
1941 1.1 oki goto finish;
1942 1.1 oki } else {
1943 1.1 oki if (sc->sc_state != SPC_IDLE) {
1944 1.1 oki printf("%s: BUS FREE while not idle; state=%d\n",
1945 1.1 oki sc->sc_dev.dv_xname, sc->sc_state);
1946 1.1 oki SPC_BREAK();
1947 1.1 oki goto out;
1948 1.1 oki }
1949 1.1 oki
1950 1.1 oki goto sched;
1951 1.1 oki }
1952 1.1 oki
1953 1.1 oki /*
1954 1.1 oki * Turn off selection stuff, and prepare to catch bus free
1955 1.1 oki * interrupts, parity errors, and phase changes.
1956 1.1 oki */
1957 1.1 oki
1958 1.1 oki sc->sc_flags = 0;
1959 1.1 oki sc->sc_prevphase = PH_INVALID;
1960 1.1 oki goto dophase;
1961 1.1 oki }
1962 1.1 oki
1963 1.1 oki if ((ints & INTS_DISCON) != 0) {
1964 1.1 oki /* We've gone to BUS FREE phase. */
1965 1.1 oki PCTL &= ~PCTL_BFINT_ENAB; /* disable disconnect interrupt */
1966 1.1 oki INTS = ints; /* XXX reset interrput */
1967 1.1 oki
1968 1.1 oki switch (sc->sc_state) {
1969 1.1 oki case SPC_RESELECTED:
1970 1.1 oki goto sched;
1971 1.1 oki
1972 1.1 oki case SPC_CONNECTED:
1973 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
1974 1.10 bouyer acb = sc->sc_nexus;
1975 1.1 oki
1976 1.1 oki #if SPC_USE_SYNCHRONOUS + SPC_USE_WIDE
1977 1.1 oki if (sc->sc_prevphase == PH_MSGOUT) {
1978 1.1 oki /*
1979 1.1 oki * If the target went to BUS FREE phase during
1980 1.1 oki * or immediately after sending a SDTR or WDTR
1981 1.1 oki * message, disable negotiation.
1982 1.1 oki */
1983 1.1 oki sc_link = acb->xs->sc_link;
1984 1.1 oki ti = &sc->sc_tinfo[sc_link->scsipi_scsi.target];
1985 1.1 oki switch (sc->sc_lastmsg) {
1986 1.1 oki #if SPC_USE_SYNCHRONOUS
1987 1.1 oki case SEND_SDTR:
1988 1.1 oki ti->flags &= ~DO_SYNC;
1989 1.1 oki ti->period = ti->offset = 0;
1990 1.1 oki break;
1991 1.1 oki #endif
1992 1.1 oki #if SPC_USE_WIDE
1993 1.1 oki case SEND_WDTR:
1994 1.1 oki ti->flags &= ~DO_WIDE;
1995 1.1 oki ti->width = 0;
1996 1.1 oki break;
1997 1.1 oki #endif
1998 1.1 oki }
1999 1.1 oki }
2000 1.1 oki #endif
2001 1.8 christos
2002 1.1 oki if ((sc->sc_flags & SPC_ABORTING) == 0) {
2003 1.1 oki /*
2004 1.1 oki * Section 5.1.1 of the SCSI 2 spec suggests
2005 1.1 oki * issuing a REQUEST SENSE following an
2006 1.1 oki * unexpected disconnect. Some devices go into
2007 1.1 oki * a contingent allegiance condition when
2008 1.1 oki * disconnecting, and this is necessary to
2009 1.1 oki * clean up their state.
2010 1.1 oki */
2011 1.1 oki printf("%s: unexpected disconnect; sending REQUEST SENSE\n",
2012 1.1 oki sc->sc_dev.dv_xname);
2013 1.1 oki SPC_BREAK();
2014 1.1 oki spc_sense(sc, acb);
2015 1.1 oki goto out;
2016 1.1 oki }
2017 1.1 oki
2018 1.1 oki acb->xs->error = XS_DRIVER_STUFFUP;
2019 1.1 oki goto finish;
2020 1.1 oki
2021 1.1 oki case SPC_DISCONNECT:
2022 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
2023 1.1 oki acb = sc->sc_nexus;
2024 1.1 oki TAILQ_INSERT_HEAD(&sc->nexus_list, acb, chain);
2025 1.1 oki sc->sc_nexus = NULL;
2026 1.1 oki goto sched;
2027 1.1 oki
2028 1.1 oki case SPC_CMDCOMPLETE:
2029 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
2030 1.1 oki acb = sc->sc_nexus;
2031 1.1 oki goto finish;
2032 1.1 oki }
2033 1.1 oki }
2034 1.1 oki else if ((ints & INTS_CMD_DONE) != 0 &&
2035 1.1 oki sc->sc_prevphase == PH_MSGIN && sc->sc_state != SPC_CONNECTED)
2036 1.1 oki goto out;
2037 1.1 oki
2038 1.1 oki dophase:
2039 1.1 oki #if 0
2040 1.1 oki if ((PSNS & PSNS_REQ) == 0) {
2041 1.1 oki /* Wait for REQINIT. */
2042 1.1 oki goto out;
2043 1.1 oki }
2044 1.1 oki #else
2045 1.1 oki INTS = ints;
2046 1.1 oki ints = 0;
2047 1.1 oki while ((PSNS & PSNS_REQ) == 0)
2048 1.1 oki delay(1); /* need timeout XXX */
2049 1.1 oki #endif
2050 1.1 oki
2051 1.1 oki /*
2052 1.1 oki * $B%U%'!<%:$K$h$C$F>uBVA+0\$9$k(B
2053 1.1 oki */
2054 1.1 oki sc->sc_phase = PSNS & PH_MASK;
2055 1.1 oki /* PCTL = sc->sc_phase;*/
2056 1.1 oki
2057 1.1 oki switch (sc->sc_phase) {
2058 1.1 oki case PH_MSGOUT:
2059 1.1 oki if (sc->sc_state != SPC_CONNECTED &&
2060 1.1 oki sc->sc_state != SPC_RESELECTED)
2061 1.1 oki break;
2062 1.1 oki spc_msgout(sc);
2063 1.1 oki sc->sc_prevphase = PH_MSGOUT;
2064 1.1 oki goto loop;
2065 1.1 oki
2066 1.1 oki case PH_MSGIN:
2067 1.1 oki if (sc->sc_state != SPC_CONNECTED &&
2068 1.1 oki sc->sc_state != SPC_RESELECTED)
2069 1.1 oki break;
2070 1.1 oki spc_msgin(sc);
2071 1.8 christos sc->sc_prevphase = PH_MSGIN;
2072 1.1 oki goto loop;
2073 1.1 oki
2074 1.1 oki case PH_CMD:
2075 1.1 oki if (sc->sc_state != SPC_CONNECTED)
2076 1.1 oki break;
2077 1.1 oki #if SPC_DEBUG
2078 1.1 oki if ((spc_debug & SPC_SHOWMISC) != 0) {
2079 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
2080 1.1 oki acb = sc->sc_nexus;
2081 1.1 oki printf("cmd=0x%02x+%d ",
2082 1.1 oki acb->scsi_cmd.opcode, acb->scsi_cmd_length-1);
2083 1.1 oki }
2084 1.1 oki #endif
2085 1.1 oki n = spc_dataout_pio(sc, sc->sc_cp, sc->sc_cleft);
2086 1.1 oki sc->sc_cp += n;
2087 1.1 oki sc->sc_cleft -= n;
2088 1.1 oki sc->sc_prevphase = PH_CMD;
2089 1.1 oki goto loop;
2090 1.1 oki
2091 1.1 oki case PH_DATAOUT:
2092 1.1 oki if (sc->sc_state != SPC_CONNECTED)
2093 1.1 oki break;
2094 1.1 oki SPC_MISC(("dataout dleft=%d ", sc->sc_dleft));
2095 1.1 oki n = spc_dataout_pio(sc, sc->sc_dp, sc->sc_dleft);
2096 1.1 oki sc->sc_dp += n;
2097 1.1 oki sc->sc_dleft -= n;
2098 1.1 oki sc->sc_prevphase = PH_DATAOUT;
2099 1.1 oki goto loop;
2100 1.1 oki
2101 1.1 oki case PH_DATAIN:
2102 1.1 oki if (sc->sc_state != SPC_CONNECTED)
2103 1.1 oki break;
2104 1.1 oki SPC_MISC(("datain "));
2105 1.1 oki n = spc_datain_pio(sc, sc->sc_dp, sc->sc_dleft);
2106 1.1 oki sc->sc_dp += n;
2107 1.1 oki sc->sc_dleft -= n;
2108 1.1 oki sc->sc_prevphase = PH_DATAIN;
2109 1.1 oki goto loop;
2110 1.1 oki
2111 1.1 oki case PH_STAT:
2112 1.1 oki if (sc->sc_state != SPC_CONNECTED)
2113 1.8 christos break;
2114 1.1 oki SPC_ASSERT(sc->sc_nexus != NULL);
2115 1.1 oki acb = sc->sc_nexus;
2116 1.1 oki /*acb->target_stat = DREG;*/
2117 1.1 oki spc_datain_pio(sc, &acb->target_stat, 1);
2118 1.1 oki SPC_MISC(("target_stat=0x%02x ", acb->target_stat));
2119 1.1 oki sc->sc_prevphase = PH_STAT;
2120 1.1 oki goto loop;
2121 1.1 oki }
2122 1.1 oki
2123 1.1 oki printf("%s: unexpected bus phase; resetting\n", sc->sc_dev.dv_xname);
2124 1.1 oki SPC_BREAK();
2125 1.1 oki reset:
2126 1.1 oki spc_init(sc);
2127 1.1 oki return 1;
2128 1.1 oki
2129 1.1 oki finish:
2130 1.1 oki untimeout(spc_timeout, acb);
2131 1.1 oki INTS = ints;
2132 1.1 oki ints = 0;
2133 1.1 oki spc_done(sc, acb);
2134 1.1 oki goto out;
2135 1.1 oki
2136 1.1 oki sched:
2137 1.1 oki sc->sc_state = SPC_IDLE;
2138 1.1 oki spc_sched(sc);
2139 1.1 oki goto out;
2140 1.1 oki
2141 1.1 oki out:
2142 1.1 oki if (ints)
2143 1.1 oki INTS = ints;
2144 1.1 oki SCTL |= SCTL_INTR_ENAB;
2145 1.1 oki return 1;
2146 1.1 oki }
2147 1.1 oki
2148 1.1 oki void
2149 1.1 oki spc_abort(sc, acb)
2150 1.1 oki struct spc_softc *sc;
2151 1.1 oki struct spc_acb *acb;
2152 1.1 oki {
2153 1.1 oki
2154 1.1 oki /* 2 secs for the abort */
2155 1.1 oki acb->timeout = SPC_ABORT_TIMEOUT;
2156 1.1 oki acb->flags |= ACB_ABORT;
2157 1.1 oki
2158 1.1 oki if (acb == sc->sc_nexus) {
2159 1.1 oki /*
2160 1.1 oki * If we're still selecting, the message will be scheduled
2161 1.1 oki * after selection is complete.
2162 1.1 oki */
2163 1.1 oki if (sc->sc_state == SPC_CONNECTED)
2164 1.1 oki spc_sched_msgout(sc, SEND_ABORT);
2165 1.1 oki } else {
2166 1.1 oki spc_dequeue(sc, acb);
2167 1.1 oki TAILQ_INSERT_HEAD(&sc->ready_list, acb, chain);
2168 1.10 bouyer if (sc->sc_state == SPC_IDLE)
2169 1.10 bouyer spc_sched(sc);
2170 1.1 oki }
2171 1.1 oki }
2172 1.1 oki
2173 1.10 bouyer void
2174 1.8 christos spc_timeout(arg)
2175 1.1 oki void *arg;
2176 1.1 oki {
2177 1.1 oki struct spc_acb *acb = arg;
2178 1.1 oki struct scsipi_xfer *xs = acb->xs;
2179 1.1 oki struct scsipi_link *sc_link = xs->sc_link;
2180 1.8 christos struct spc_softc *sc = sc_link->adapter_softc;
2181 1.1 oki int s;
2182 1.1 oki
2183 1.1 oki scsi_print_addr(sc_link);
2184 1.8 christos printf("timed out");
2185 1.1 oki
2186 1.1 oki s = splbio();
2187 1.1 oki
2188 1.1 oki if (acb->flags & ACB_ABORT) {
2189 1.1 oki /* abort timed out */
2190 1.1 oki printf(" AGAIN\n");
2191 1.1 oki /* XXX Must reset! */
2192 1.14 msaitoh } else {
2193 1.1 oki /* abort the operation that has timed out */
2194 1.1 oki printf("\n");
2195 1.1 oki acb->xs->error = XS_TIMEOUT;
2196 1.1 oki spc_abort(sc, acb);
2197 1.1 oki }
2198 1.1 oki
2199 1.1 oki splx(s);
2200 1.1 oki }
2201 1.1 oki
2202 1.1 oki #if SPC_DEBUG
2204 1.1 oki /*
2205 1.1 oki * The following functions are mostly used for debugging purposes, either
2206 1.10 bouyer * directly called from the driver or from the kernel debugger.
2207 1.1 oki */
2208 1.1 oki
2209 1.1 oki void
2210 1.8 christos spc_show_scsi_cmd(acb)
2211 1.8 christos struct spc_acb *acb;
2212 1.1 oki {
2213 1.8 christos u_char *b = (u_char *)&acb->scsi_cmd;
2214 1.1 oki struct scsipi_link *sc_link = acb->xs->sc_link;
2215 1.8 christos int i;
2216 1.1 oki
2217 1.1 oki scsi_print_addr(sc_link);
2218 1.1 oki if ((acb->xs->flags & SCSI_RESET) == 0) {
2219 1.1 oki for (i = 0; i < acb->scsi_cmd_length; i++) {
2220 1.1 oki if (i)
2221 1.1 oki printf(",");
2222 1.1 oki printf("%x", b[i]);
2223 1.8 christos }
2224 1.8 christos printf("\n");
2225 1.1 oki } else
2226 1.1 oki printf("RESET\n");
2227 1.1 oki }
2228 1.1 oki
2229 1.1 oki void
2230 1.1 oki spc_print_acb(acb)
2231 1.1 oki struct spc_acb *acb;
2232 1.1 oki {
2233 1.1 oki
2234 1.1 oki printf("acb@%x xs=%x flags=%x", acb, acb->xs, acb->flags);
2235 1.8 christos printf(" dp=%x dleft=%d target_stat=%x\n",
2236 1.1 oki (long)acb->data_addr, acb->data_length, acb->target_stat);
2237 1.1 oki spc_show_scsi_cmd(acb);
2238 1.1 oki }
2239 1.8 christos
2240 1.1 oki void
2241 1.1 oki spc_print_active_acb()
2242 1.8 christos {
2243 1.1 oki struct spc_acb *acb;
2244 1.1 oki struct spc_softc *sc = spc_cd.cd_devs[0]; /* XXX */
2245 1.1 oki
2246 1.1 oki printf("ready list:\n");
2247 1.1 oki for (acb = sc->ready_list.tqh_first; acb != NULL;
2248 1.1 oki acb = acb->chain.tqe_next)
2249 1.1 oki spc_print_acb(acb);
2250 1.1 oki printf("nexus:\n");
2251 1.1 oki if (sc->sc_nexus != NULL)
2252 1.1 oki spc_print_acb(sc->sc_nexus);
2253 1.1 oki printf("nexus list:\n");
2254 1.1 oki for (acb = sc->nexus_list.tqh_first; acb != NULL;
2255 1.8 christos acb = acb->chain.tqe_next)
2256 1.8 christos spc_print_acb(acb);
2257 1.1 oki }
2258 1.1 oki
2259 1.1 oki void
2260 1.1 oki spc_dump_driver(sc)
2261 1.8 christos struct spc_softc *sc;
2262 1.1 oki {
2263 1.8 christos struct spc_tinfo *ti;
2264 1.1 oki int i;
2265 1.1 oki
2266 1.1 oki printf("nexus=%x prevphase=%x\n", sc->sc_nexus, sc->sc_prevphase);
2267 printf("state=%x msgin=%x msgpriq=%x msgoutq=%x lastmsg=%x currmsg=%x\n",
2268 sc->sc_state, sc->sc_imess[0],
2269 sc->sc_msgpriq, sc->sc_msgoutq, sc->sc_lastmsg, sc->sc_currmsg);
2270 for (i = 0; i < 7; i++) {
2271 ti = &sc->sc_tinfo[i];
2272 printf("tinfo%d: %d cmds %d disconnects %d timeouts",
2273 i, ti->cmds, ti->dconns, ti->touts);
2274 printf(" %d senses flags=%x\n", ti->senses, ti->flags);
2275 }
2276 }
2277 #endif
2278