ivsc.c revision 1.11 1 1.11 chopps /* $NetBSD: ivsc.c,v 1.11 1995/05/07 15:37:10 chopps Exp $ */
2 1.5 cgd
3 1.1 chopps /*
4 1.2 chopps * Copyright (c) 1994 Michael L. Hitch
5 1.1 chopps * Copyright (c) 1982, 1990 The Regents of the University of California.
6 1.1 chopps * All rights reserved.
7 1.1 chopps *
8 1.1 chopps * Redistribution and use in source and binary forms, with or without
9 1.1 chopps * modification, are permitted provided that the following conditions
10 1.1 chopps * are met:
11 1.1 chopps * 1. Redistributions of source code must retain the above copyright
12 1.1 chopps * notice, this list of conditions and the following disclaimer.
13 1.1 chopps * 2. Redistributions in binary form must reproduce the above copyright
14 1.1 chopps * notice, this list of conditions and the following disclaimer in the
15 1.1 chopps * documentation and/or other materials provided with the distribution.
16 1.1 chopps * 3. All advertising materials mentioning features or use of this software
17 1.1 chopps * must display the following acknowledgement:
18 1.1 chopps * This product includes software developed by the University of
19 1.1 chopps * California, Berkeley and its contributors.
20 1.1 chopps * 4. Neither the name of the University nor the names of its contributors
21 1.1 chopps * may be used to endorse or promote products derived from this software
22 1.1 chopps * without specific prior written permission.
23 1.1 chopps *
24 1.1 chopps * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 1.1 chopps * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 1.1 chopps * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 1.1 chopps * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 1.1 chopps * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 1.1 chopps * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 1.1 chopps * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 1.1 chopps * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 1.1 chopps * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 1.1 chopps * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 1.1 chopps * SUCH DAMAGE.
35 1.1 chopps *
36 1.1 chopps * @(#)ivsdma.c
37 1.1 chopps */
38 1.2 chopps #include <sys/param.h>
39 1.2 chopps #include <sys/systm.h>
40 1.2 chopps #include <sys/kernel.h>
41 1.2 chopps #include <sys/device.h>
42 1.2 chopps #include <scsi/scsi_all.h>
43 1.2 chopps #include <scsi/scsiconf.h>
44 1.2 chopps #include <amiga/amiga/custom.h>
45 1.2 chopps #include <amiga/amiga/device.h>
46 1.9 chopps #include <amiga/amiga/isr.h>
47 1.2 chopps #include <amiga/dev/scireg.h>
48 1.2 chopps #include <amiga/dev/scivar.h>
49 1.7 chopps #include <amiga/dev/zbusvar.h>
50 1.2 chopps
51 1.2 chopps int ivscprint __P((void *auxp, char *));
52 1.2 chopps void ivscattach __P((struct device *, struct device *, void *));
53 1.2 chopps int ivscmatch __P((struct device *, struct cfdata *, void *));
54 1.2 chopps
55 1.9 chopps int ivsc_intr __P((struct sci_softc *));
56 1.2 chopps int ivsc_dma_xfer_in __P((struct sci_softc *dev, int len,
57 1.2 chopps register u_char *buf, int phase));
58 1.2 chopps int ivsc_dma_xfer_out __P((struct sci_softc *dev, int len,
59 1.2 chopps register u_char *buf, int phase));
60 1.2 chopps
61 1.2 chopps struct scsi_adapter ivsc_scsiswitch = {
62 1.2 chopps sci_scsicmd,
63 1.2 chopps sci_minphys,
64 1.2 chopps 0, /* no lun support */
65 1.2 chopps 0, /* no lun support */
66 1.2 chopps };
67 1.2 chopps
68 1.2 chopps struct scsi_device ivsc_scsidev = {
69 1.2 chopps NULL, /* use default error handler */
70 1.2 chopps NULL, /* do not have a start functio */
71 1.2 chopps NULL, /* have no async handler */
72 1.2 chopps NULL, /* Use default done routine */
73 1.2 chopps };
74 1.2 chopps
75 1.2 chopps #define QPRINTF
76 1.2 chopps
77 1.2 chopps #ifdef DEBUG
78 1.2 chopps extern int sci_debug;
79 1.2 chopps #endif
80 1.2 chopps
81 1.2 chopps extern int sci_data_wait;
82 1.2 chopps
83 1.11 chopps int ivsdma_pseudo = 1; /* 0=off, 1=on */
84 1.11 chopps
85 1.2 chopps struct cfdriver ivsccd = {
86 1.6 chopps NULL, "ivsc", (cfmatch_t)ivscmatch, ivscattach,
87 1.2 chopps DV_DULL, sizeof(struct sci_softc), NULL, 0 };
88 1.1 chopps
89 1.1 chopps /*
90 1.2 chopps * if this is an IVS board
91 1.1 chopps */
92 1.2 chopps int
93 1.2 chopps ivscmatch(pdp, cdp, auxp)
94 1.2 chopps struct device *pdp;
95 1.2 chopps struct cfdata *cdp;
96 1.2 chopps void *auxp;
97 1.2 chopps {
98 1.7 chopps struct zbus_args *zap;
99 1.1 chopps
100 1.2 chopps zap = auxp;
101 1.1 chopps
102 1.2 chopps /*
103 1.2 chopps * Check manufacturer and product id.
104 1.2 chopps */
105 1.2 chopps if (zap->manid != 2112 || /* If manufacturer is IVS */
106 1.2 chopps (zap->prodid != 52 && /* product = Trumpcard */
107 1.2 chopps zap->prodid != 243)) /* product = Vector SCSI */
108 1.2 chopps return(0); /* didn't match */
109 1.2 chopps return(1);
110 1.2 chopps }
111 1.1 chopps
112 1.1 chopps void
113 1.2 chopps ivscattach(pdp, dp, auxp)
114 1.2 chopps struct device *pdp, *dp;
115 1.2 chopps void *auxp;
116 1.2 chopps {
117 1.2 chopps volatile u_char *rp;
118 1.2 chopps struct sci_softc *sc;
119 1.7 chopps struct zbus_args *zap;
120 1.3 chopps
121 1.3 chopps printf("\n");
122 1.2 chopps
123 1.2 chopps zap = auxp;
124 1.2 chopps
125 1.2 chopps sc = (struct sci_softc *)dp;
126 1.2 chopps rp = zap->va + 0x40;
127 1.2 chopps sc->sci_data = rp;
128 1.2 chopps sc->sci_odata = rp;
129 1.2 chopps sc->sci_icmd = rp + 2;
130 1.2 chopps sc->sci_mode = rp + 4;
131 1.2 chopps sc->sci_tcmd = rp + 6;
132 1.2 chopps sc->sci_bus_csr = rp + 8;
133 1.2 chopps sc->sci_sel_enb = rp + 8;
134 1.2 chopps sc->sci_csr = rp + 10;
135 1.2 chopps sc->sci_dma_send = rp + 10;
136 1.2 chopps sc->sci_idata = rp + 12;
137 1.2 chopps sc->sci_trecv = rp + 12;
138 1.2 chopps sc->sci_iack = rp + 14;
139 1.2 chopps sc->sci_irecv = rp + 14;
140 1.2 chopps
141 1.11 chopps if (ivsdma_pseudo == 1) {
142 1.11 chopps sc->dma_xfer_in = ivsc_dma_xfer_in;
143 1.11 chopps sc->dma_xfer_out = ivsc_dma_xfer_out;
144 1.11 chopps }
145 1.2 chopps
146 1.9 chopps sc->sc_isr.isr_intr = ivsc_intr;
147 1.9 chopps sc->sc_isr.isr_arg = sc;
148 1.9 chopps sc->sc_isr.isr_ipl = 2;
149 1.9 chopps add_isr(&sc->sc_isr);
150 1.9 chopps
151 1.2 chopps scireset(sc);
152 1.2 chopps
153 1.2 chopps sc->sc_link.adapter_softc = sc;
154 1.8 chopps sc->sc_link.adapter_target = 7;
155 1.2 chopps sc->sc_link.adapter = &ivsc_scsiswitch;
156 1.2 chopps sc->sc_link.device = &ivsc_scsidev;
157 1.8 chopps sc->sc_link.openings = 1;
158 1.2 chopps TAILQ_INIT(&sc->sc_xslist);
159 1.2 chopps
160 1.2 chopps /*
161 1.2 chopps * attach all scsi units on us
162 1.2 chopps */
163 1.2 chopps config_found(dp, &sc->sc_link, ivscprint);
164 1.2 chopps }
165 1.2 chopps
166 1.2 chopps /*
167 1.2 chopps * print diag if pnp is NULL else just extra
168 1.2 chopps */
169 1.2 chopps int
170 1.2 chopps ivscprint(auxp, pnp)
171 1.2 chopps void *auxp;
172 1.2 chopps char *pnp;
173 1.2 chopps {
174 1.2 chopps if (pnp == NULL)
175 1.2 chopps return(UNCONF);
176 1.2 chopps return(QUIET);
177 1.2 chopps }
178 1.2 chopps
179 1.2 chopps int
180 1.2 chopps ivsc_dma_xfer_in (dev, len, buf, phase)
181 1.2 chopps struct sci_softc *dev;
182 1.2 chopps int len;
183 1.2 chopps register u_char *buf;
184 1.2 chopps int phase;
185 1.2 chopps {
186 1.11 chopps int wait = sci_data_wait;
187 1.11 chopps u_char csr;
188 1.11 chopps u_char *obp = buf;
189 1.11 chopps volatile register u_char *sci_dma = dev->sci_idata + 0x20;
190 1.11 chopps volatile register u_char *sci_csr = dev->sci_csr;
191 1.11 chopps
192 1.11 chopps QPRINTF(("ivsc_dma_in %d, csr=%02x\n", len, *dev->sci_bus_csr));
193 1.11 chopps
194 1.11 chopps *dev->sci_tcmd = phase;
195 1.11 chopps *dev->sci_mode |= SCI_MODE_DMA;
196 1.11 chopps *dev->sci_irecv = 0;
197 1.11 chopps
198 1.11 chopps while (len >= 128) {
199 1.11 chopps wait = sci_data_wait;
200 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) !=
201 1.11 chopps (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) {
202 1.11 chopps if (!(*sci_csr & SCI_CSR_PHASE_MATCH)
203 1.11 chopps || !(*dev->sci_bus_csr & SCI_BUS_BSY)
204 1.11 chopps || --wait < 0) {
205 1.11 chopps #ifdef DEBUG
206 1.11 chopps if (sci_debug)
207 1.11 chopps printf("ivsc_dma_in2 fail: l%d i%x w%d\n",
208 1.11 chopps len, csr, wait);
209 1.11 chopps #endif
210 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
211 1.11 chopps return 0;
212 1.11 chopps }
213 1.11 chopps }
214 1.11 chopps
215 1.11 chopps #define R1 (*buf++ = *sci_dma)
216 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
217 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
218 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
219 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
220 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
221 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
222 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
223 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
224 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
225 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
226 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
227 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
228 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
229 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
230 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
231 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
232 1.11 chopps len -= 128;
233 1.11 chopps }
234 1.11 chopps
235 1.11 chopps while (len > 0) {
236 1.11 chopps wait = sci_data_wait;
237 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) !=
238 1.11 chopps (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) {
239 1.11 chopps if (!(*sci_csr & SCI_CSR_PHASE_MATCH)
240 1.11 chopps || !(*dev->sci_bus_csr & SCI_BUS_BSY)
241 1.11 chopps || --wait < 0) {
242 1.11 chopps #ifdef DEBUG
243 1.11 chopps if (sci_debug)
244 1.11 chopps printf("ivsc_dma_in1 fail: l%d i%x w%d\n",
245 1.11 chopps len, csr, wait);
246 1.11 chopps #endif
247 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
248 1.11 chopps return 0;
249 1.11 chopps }
250 1.11 chopps }
251 1.11 chopps
252 1.11 chopps *buf++ = *sci_dma;
253 1.11 chopps len--;
254 1.11 chopps }
255 1.11 chopps
256 1.11 chopps QPRINTF(("ivsc_dma_in {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
257 1.11 chopps len, obp[0], obp[1], obp[2], obp[3], obp[4], obp[5],
258 1.11 chopps obp[6], obp[7], obp[8], obp[9]));
259 1.11 chopps
260 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
261 1.11 chopps return 0;
262 1.2 chopps }
263 1.2 chopps
264 1.2 chopps int
265 1.2 chopps ivsc_dma_xfer_out (dev, len, buf, phase)
266 1.2 chopps struct sci_softc *dev;
267 1.2 chopps int len;
268 1.2 chopps register u_char *buf;
269 1.2 chopps int phase;
270 1.1 chopps {
271 1.11 chopps int wait = sci_data_wait;
272 1.11 chopps u_char csr;
273 1.11 chopps u_char *obp = buf;
274 1.11 chopps volatile register u_char *sci_dma = dev->sci_data + 0x20;
275 1.11 chopps volatile register u_char *sci_csr = dev->sci_csr;
276 1.11 chopps
277 1.11 chopps QPRINTF(("ivsc_dma_out %d, csr=%02x\n", len, *dev->sci_bus_csr));
278 1.11 chopps
279 1.11 chopps QPRINTF(("ivsc_dma_out {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
280 1.11 chopps len, buf[0], buf[1], buf[2], buf[3], buf[4], buf[5],
281 1.11 chopps buf[6], buf[7], buf[8], buf[9]));
282 1.11 chopps
283 1.11 chopps *dev->sci_tcmd = phase;
284 1.11 chopps *dev->sci_mode |= SCI_MODE_DMA;
285 1.11 chopps *dev->sci_icmd |= SCI_ICMD_DATA;
286 1.11 chopps *dev->sci_dma_send = 0;
287 1.11 chopps while (len > 0) {
288 1.11 chopps wait = sci_data_wait;
289 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) !=
290 1.11 chopps (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) {
291 1.11 chopps if (!(*sci_csr & SCI_CSR_PHASE_MATCH)
292 1.11 chopps || !(*dev->sci_bus_csr & SCI_BUS_BSY)
293 1.11 chopps || --wait < 0) {
294 1.11 chopps #ifdef DEBUG
295 1.11 chopps if (sci_debug)
296 1.11 chopps printf("ivsc_dma_out fail: l%d i%x w%d\n",
297 1.11 chopps len, csr, wait);
298 1.11 chopps #endif
299 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
300 1.11 chopps return 0;
301 1.11 chopps }
302 1.11 chopps }
303 1.11 chopps
304 1.11 chopps *sci_dma = *buf++;
305 1.11 chopps len--;
306 1.11 chopps }
307 1.11 chopps
308 1.11 chopps wait = sci_data_wait;
309 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) ==
310 1.11 chopps SCI_CSR_PHASE_MATCH && --wait);
311 1.11 chopps
312 1.11 chopps
313 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
314 1.11 chopps return 0;
315 1.1 chopps }
316 1.2 chopps
317 1.2 chopps int
318 1.9 chopps ivsc_intr(dev)
319 1.9 chopps struct sci_softc *dev;
320 1.2 chopps {
321 1.2 chopps u_char stat;
322 1.2 chopps
323 1.9 chopps if ((*dev->sci_csr & SCI_CSR_INT) == 0)
324 1.9 chopps return(0);
325 1.9 chopps stat = *dev->sci_iack;
326 1.2 chopps }
327