ivsc.c revision 1.27 1 1.27 tron /* $NetBSD: ivsc.c,v 1.27 1999/01/10 13:17:01 tron 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.22 bouyer #include <dev/scsipi/scsi_all.h>
43 1.22 bouyer #include <dev/scsipi/scsipi_all.h>
44 1.22 bouyer #include <dev/scsipi/scsiconf.h>
45 1.2 chopps #include <amiga/amiga/custom.h>
46 1.2 chopps #include <amiga/amiga/device.h>
47 1.9 chopps #include <amiga/amiga/isr.h>
48 1.2 chopps #include <amiga/dev/scireg.h>
49 1.2 chopps #include <amiga/dev/scivar.h>
50 1.7 chopps #include <amiga/dev/zbusvar.h>
51 1.2 chopps
52 1.2 chopps void ivscattach __P((struct device *, struct device *, void *));
53 1.21 veego int ivscmatch __P((struct device *, struct cfdata *, void *));
54 1.2 chopps
55 1.15 veego int ivsc_intr __P((void *));
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.22 bouyer struct scsipi_device ivsc_scsidev = {
62 1.2 chopps NULL, /* use default error handler */
63 1.2 chopps NULL, /* do not have a start functio */
64 1.2 chopps NULL, /* have no async handler */
65 1.2 chopps NULL, /* Use default done routine */
66 1.2 chopps };
67 1.2 chopps
68 1.2 chopps
69 1.2 chopps #ifdef DEBUG
70 1.2 chopps extern int sci_debug;
71 1.19 christos #define QPRINTF(a) if (sci_debug > 1) printf a
72 1.15 veego #else
73 1.15 veego #define QPRINTF(a)
74 1.2 chopps #endif
75 1.2 chopps
76 1.2 chopps extern int sci_data_wait;
77 1.2 chopps
78 1.11 chopps int ivsdma_pseudo = 1; /* 0=off, 1=on */
79 1.11 chopps
80 1.13 thorpej struct cfattach ivsc_ca = {
81 1.13 thorpej sizeof(struct sci_softc), ivscmatch, ivscattach
82 1.13 thorpej };
83 1.1 chopps
84 1.1 chopps /*
85 1.2 chopps * if this is an IVS board
86 1.1 chopps */
87 1.2 chopps int
88 1.21 veego ivscmatch(pdp, cfp, auxp)
89 1.2 chopps struct device *pdp;
90 1.21 veego struct cfdata *cfp;
91 1.21 veego void *auxp;
92 1.2 chopps {
93 1.7 chopps struct zbus_args *zap;
94 1.1 chopps
95 1.2 chopps zap = auxp;
96 1.1 chopps
97 1.2 chopps /*
98 1.2 chopps * Check manufacturer and product id.
99 1.2 chopps */
100 1.2 chopps if (zap->manid != 2112 || /* If manufacturer is IVS */
101 1.12 chopps (zap->prodid != 48 && /* product = Trumpcard 500 */
102 1.12 chopps zap->prodid != 52 && /* product = Trumpcard */
103 1.2 chopps zap->prodid != 243)) /* product = Vector SCSI */
104 1.2 chopps return(0); /* didn't match */
105 1.2 chopps return(1);
106 1.2 chopps }
107 1.1 chopps
108 1.1 chopps void
109 1.2 chopps ivscattach(pdp, dp, auxp)
110 1.2 chopps struct device *pdp, *dp;
111 1.2 chopps void *auxp;
112 1.2 chopps {
113 1.2 chopps volatile u_char *rp;
114 1.2 chopps struct sci_softc *sc;
115 1.7 chopps struct zbus_args *zap;
116 1.3 chopps
117 1.19 christos printf("\n");
118 1.2 chopps
119 1.2 chopps zap = auxp;
120 1.2 chopps
121 1.2 chopps sc = (struct sci_softc *)dp;
122 1.27 tron rp = (u_char *)zap->va + 0x40;
123 1.2 chopps sc->sci_data = rp;
124 1.2 chopps sc->sci_odata = rp;
125 1.2 chopps sc->sci_icmd = rp + 2;
126 1.2 chopps sc->sci_mode = rp + 4;
127 1.2 chopps sc->sci_tcmd = rp + 6;
128 1.2 chopps sc->sci_bus_csr = rp + 8;
129 1.2 chopps sc->sci_sel_enb = rp + 8;
130 1.2 chopps sc->sci_csr = rp + 10;
131 1.2 chopps sc->sci_dma_send = rp + 10;
132 1.2 chopps sc->sci_idata = rp + 12;
133 1.2 chopps sc->sci_trecv = rp + 12;
134 1.2 chopps sc->sci_iack = rp + 14;
135 1.2 chopps sc->sci_irecv = rp + 14;
136 1.2 chopps
137 1.11 chopps if (ivsdma_pseudo == 1) {
138 1.11 chopps sc->dma_xfer_in = ivsc_dma_xfer_in;
139 1.11 chopps sc->dma_xfer_out = ivsc_dma_xfer_out;
140 1.11 chopps }
141 1.2 chopps
142 1.9 chopps sc->sc_isr.isr_intr = ivsc_intr;
143 1.9 chopps sc->sc_isr.isr_arg = sc;
144 1.9 chopps sc->sc_isr.isr_ipl = 2;
145 1.9 chopps add_isr(&sc->sc_isr);
146 1.9 chopps
147 1.2 chopps scireset(sc);
148 1.2 chopps
149 1.25 thorpej sc->sc_adapter.scsipi_cmd = sci_scsicmd;
150 1.25 thorpej sc->sc_adapter.scsipi_minphys = sci_minphys;
151 1.25 thorpej
152 1.22 bouyer sc->sc_link.scsipi_scsi.channel = SCSI_CHANNEL_ONLY_ONE;
153 1.2 chopps sc->sc_link.adapter_softc = sc;
154 1.22 bouyer sc->sc_link.scsipi_scsi.adapter_target = 7;
155 1.25 thorpej sc->sc_link.adapter = &sc->sc_adapter;
156 1.2 chopps sc->sc_link.device = &ivsc_scsidev;
157 1.8 chopps sc->sc_link.openings = 1;
158 1.22 bouyer sc->sc_link.scsipi_scsi.max_target = 7;
159 1.26 mjacob sc->sc_link.scsipi_scsi.max_lun = 7;
160 1.22 bouyer sc->sc_link.type = BUS_SCSI;
161 1.2 chopps TAILQ_INIT(&sc->sc_xslist);
162 1.2 chopps
163 1.2 chopps /*
164 1.2 chopps * attach all scsi units on us
165 1.2 chopps */
166 1.17 cgd config_found(dp, &sc->sc_link, scsiprint);
167 1.2 chopps }
168 1.2 chopps
169 1.2 chopps int
170 1.2 chopps ivsc_dma_xfer_in (dev, len, buf, phase)
171 1.2 chopps struct sci_softc *dev;
172 1.2 chopps int len;
173 1.2 chopps register u_char *buf;
174 1.2 chopps int phase;
175 1.2 chopps {
176 1.11 chopps int wait = sci_data_wait;
177 1.11 chopps volatile register u_char *sci_dma = dev->sci_idata + 0x20;
178 1.11 chopps volatile register u_char *sci_csr = dev->sci_csr;
179 1.15 veego #ifdef DEBUG
180 1.15 veego u_char *obp = buf;
181 1.15 veego #endif
182 1.11 chopps
183 1.11 chopps QPRINTF(("ivsc_dma_in %d, csr=%02x\n", len, *dev->sci_bus_csr));
184 1.11 chopps
185 1.11 chopps *dev->sci_tcmd = phase;
186 1.11 chopps *dev->sci_mode |= SCI_MODE_DMA;
187 1.11 chopps *dev->sci_irecv = 0;
188 1.11 chopps
189 1.11 chopps while (len >= 128) {
190 1.11 chopps wait = sci_data_wait;
191 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) !=
192 1.11 chopps (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) {
193 1.11 chopps if (!(*sci_csr & SCI_CSR_PHASE_MATCH)
194 1.11 chopps || !(*dev->sci_bus_csr & SCI_BUS_BSY)
195 1.11 chopps || --wait < 0) {
196 1.11 chopps #ifdef DEBUG
197 1.11 chopps if (sci_debug)
198 1.19 christos printf("ivsc_dma_in2 fail: l%d i%x w%d\n",
199 1.15 veego len, *dev->sci_bus_csr, wait);
200 1.11 chopps #endif
201 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
202 1.11 chopps return 0;
203 1.11 chopps }
204 1.11 chopps }
205 1.11 chopps
206 1.11 chopps #define R1 (*buf++ = *sci_dma)
207 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
208 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
209 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
210 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
211 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
212 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
213 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
214 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
215 1.11 chopps R1; R1; R1; R1; R1; R1; R1; R1;
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 len -= 128;
224 1.11 chopps }
225 1.11 chopps
226 1.11 chopps while (len > 0) {
227 1.11 chopps wait = sci_data_wait;
228 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) !=
229 1.11 chopps (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) {
230 1.11 chopps if (!(*sci_csr & SCI_CSR_PHASE_MATCH)
231 1.11 chopps || !(*dev->sci_bus_csr & SCI_BUS_BSY)
232 1.11 chopps || --wait < 0) {
233 1.11 chopps #ifdef DEBUG
234 1.11 chopps if (sci_debug)
235 1.19 christos printf("ivsc_dma_in1 fail: l%d i%x w%d\n",
236 1.15 veego len, *dev->sci_bus_csr, wait);
237 1.11 chopps #endif
238 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
239 1.11 chopps return 0;
240 1.11 chopps }
241 1.11 chopps }
242 1.11 chopps
243 1.11 chopps *buf++ = *sci_dma;
244 1.11 chopps len--;
245 1.11 chopps }
246 1.11 chopps
247 1.11 chopps QPRINTF(("ivsc_dma_in {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
248 1.11 chopps len, obp[0], obp[1], obp[2], obp[3], obp[4], obp[5],
249 1.11 chopps obp[6], obp[7], obp[8], obp[9]));
250 1.11 chopps
251 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
252 1.11 chopps return 0;
253 1.2 chopps }
254 1.2 chopps
255 1.2 chopps int
256 1.2 chopps ivsc_dma_xfer_out (dev, len, buf, phase)
257 1.2 chopps struct sci_softc *dev;
258 1.2 chopps int len;
259 1.2 chopps register u_char *buf;
260 1.2 chopps int phase;
261 1.1 chopps {
262 1.11 chopps int wait = sci_data_wait;
263 1.11 chopps volatile register u_char *sci_dma = dev->sci_data + 0x20;
264 1.11 chopps volatile register u_char *sci_csr = dev->sci_csr;
265 1.11 chopps
266 1.11 chopps QPRINTF(("ivsc_dma_out %d, csr=%02x\n", len, *dev->sci_bus_csr));
267 1.11 chopps
268 1.11 chopps QPRINTF(("ivsc_dma_out {%d} %02x %02x %02x %02x %02x %02x %02x %02x %02x %02x\n",
269 1.11 chopps len, buf[0], buf[1], buf[2], buf[3], buf[4], buf[5],
270 1.11 chopps buf[6], buf[7], buf[8], buf[9]));
271 1.11 chopps
272 1.11 chopps *dev->sci_tcmd = phase;
273 1.11 chopps *dev->sci_mode |= SCI_MODE_DMA;
274 1.11 chopps *dev->sci_icmd |= SCI_ICMD_DATA;
275 1.11 chopps *dev->sci_dma_send = 0;
276 1.11 chopps while (len > 0) {
277 1.11 chopps wait = sci_data_wait;
278 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) !=
279 1.11 chopps (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) {
280 1.11 chopps if (!(*sci_csr & SCI_CSR_PHASE_MATCH)
281 1.11 chopps || !(*dev->sci_bus_csr & SCI_BUS_BSY)
282 1.11 chopps || --wait < 0) {
283 1.11 chopps #ifdef DEBUG
284 1.11 chopps if (sci_debug)
285 1.19 christos printf("ivsc_dma_out fail: l%d i%x w%d\n",
286 1.15 veego len, *dev->sci_bus_csr, wait);
287 1.11 chopps #endif
288 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
289 1.11 chopps return 0;
290 1.11 chopps }
291 1.11 chopps }
292 1.11 chopps
293 1.11 chopps *sci_dma = *buf++;
294 1.11 chopps len--;
295 1.11 chopps }
296 1.11 chopps
297 1.11 chopps wait = sci_data_wait;
298 1.11 chopps while ((*sci_csr & (SCI_CSR_DREQ|SCI_CSR_PHASE_MATCH)) ==
299 1.11 chopps SCI_CSR_PHASE_MATCH && --wait);
300 1.11 chopps
301 1.11 chopps
302 1.11 chopps *dev->sci_mode &= ~SCI_MODE_DMA;
303 1.11 chopps return 0;
304 1.1 chopps }
305 1.2 chopps
306 1.2 chopps int
307 1.15 veego ivsc_intr(arg)
308 1.15 veego void *arg;
309 1.2 chopps {
310 1.15 veego struct sci_softc *dev = arg;
311 1.2 chopps u_char stat;
312 1.2 chopps
313 1.9 chopps if ((*dev->sci_csr & SCI_CSR_INT) == 0)
314 1.9 chopps return(0);
315 1.9 chopps stat = *dev->sci_iack;
316 1.14 is /* XXXX is: something is missing here, at least a: */
317 1.14 is return(1);
318 1.2 chopps }
319