isa.c revision 1.33 1 1.1 cgd /*-
2 1.1 cgd * Copyright (c) 1991 The Regents of the University of California.
3 1.1 cgd * All rights reserved.
4 1.1 cgd *
5 1.1 cgd * This code is derived from software contributed to Berkeley by
6 1.1 cgd * William Jolitz.
7 1.1 cgd *
8 1.1 cgd * Redistribution and use in source and binary forms, with or without
9 1.1 cgd * modification, are permitted provided that the following conditions
10 1.1 cgd * are met:
11 1.1 cgd * 1. Redistributions of source code must retain the above copyright
12 1.1 cgd * notice, this list of conditions and the following disclaimer.
13 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
14 1.1 cgd * notice, this list of conditions and the following disclaimer in the
15 1.1 cgd * documentation and/or other materials provided with the distribution.
16 1.1 cgd * 3. All advertising materials mentioning features or use of this software
17 1.1 cgd * must display the following acknowledgement:
18 1.1 cgd * This product includes software developed by the University of
19 1.1 cgd * California, Berkeley and its contributors.
20 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
21 1.1 cgd * may be used to endorse or promote products derived from this software
22 1.1 cgd * without specific prior written permission.
23 1.1 cgd *
24 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 1.1 cgd * SUCH DAMAGE.
35 1.1 cgd *
36 1.13 cgd * from: @(#)isa.c 7.2 (Berkeley) 5/13/91
37 1.33 hpeyerl * $Id: isa.c,v 1.33 1994/02/16 07:26:52 hpeyerl Exp $
38 1.1 cgd */
39 1.1 cgd
40 1.1 cgd /*
41 1.1 cgd * code to manage AT bus
42 1.2 cgd *
43 1.2 cgd * 92/08/18 Frank P. MacLachlan (fpm (at) crash.cts.com):
44 1.2 cgd * Fixed uninitialized variable problem and added code to deal
45 1.2 cgd * with DMA page boundaries in isa_dmarangecheck(). Fixed word
46 1.2 cgd * mode DMA count compution and reorganized DMA setup code in
47 1.2 cgd * isa_dmastart()
48 1.1 cgd */
49 1.1 cgd
50 1.31 mycroft #include <sys/param.h>
51 1.31 mycroft #include <sys/systm.h>
52 1.31 mycroft #include <sys/conf.h>
53 1.31 mycroft #include <sys/file.h>
54 1.31 mycroft #include <sys/buf.h>
55 1.31 mycroft #include <sys/uio.h>
56 1.31 mycroft #include <sys/syslog.h>
57 1.31 mycroft #include <sys/malloc.h>
58 1.31 mycroft
59 1.31 mycroft #include <vm/vm.h>
60 1.31 mycroft
61 1.31 mycroft #include <machine/segments.h>
62 1.32 mycroft #include <machine/pio.h>
63 1.31 mycroft #include <machine/cpufunc.h>
64 1.31 mycroft
65 1.31 mycroft #include <i386/isa/isa_device.h>
66 1.31 mycroft #include <i386/isa/isa.h>
67 1.31 mycroft #include <i386/isa/icu.h>
68 1.31 mycroft #include <i386/isa/ic/i8237.h>
69 1.31 mycroft #include <i386/isa/ic/i8042.h>
70 1.31 mycroft #include <i386/isa/timerreg.h>
71 1.31 mycroft #include <i386/isa/spkr_reg.h>
72 1.14 deraadt
73 1.14 deraadt /* sorry, has to be here, no place else really suitable */
74 1.31 mycroft #include <machine/pc/display.h>
75 1.14 deraadt u_short *Crtat = (u_short *)MONO_BUF;
76 1.1 cgd
77 1.2 cgd /*
78 1.2 cgd ** Register definitions for DMA controller 1 (channels 0..3):
79 1.2 cgd */
80 1.2 cgd #define DMA1_CHN(c) (IO_DMA1 + 1*(2*(c))) /* addr reg for channel c */
81 1.2 cgd #define DMA1_SMSK (IO_DMA1 + 1*10) /* single mask register */
82 1.2 cgd #define DMA1_MODE (IO_DMA1 + 1*11) /* mode register */
83 1.2 cgd #define DMA1_FFC (IO_DMA1 + 1*12) /* clear first/last FF */
84 1.2 cgd
85 1.2 cgd /*
86 1.2 cgd ** Register definitions for DMA controller 2 (channels 4..7):
87 1.2 cgd */
88 1.30 mycroft #define DMA2_CHN(c) (IO_DMA2 + 2*(2*(c))) /* addr reg for channel c */
89 1.2 cgd #define DMA2_SMSK (IO_DMA2 + 2*10) /* single mask register */
90 1.2 cgd #define DMA2_MODE (IO_DMA2 + 2*11) /* mode register */
91 1.2 cgd #define DMA2_FFC (IO_DMA2 + 2*12) /* clear first/last FF */
92 1.2 cgd
93 1.15 cgd int config_isadev(struct isa_device *, u_int *);
94 1.6 deraadt void config_attach(struct isa_driver *, struct isa_device *);
95 1.21 andrew static void sysbeepstop(int);
96 1.33 hpeyerl
97 1.33 hpeyerl /*
98 1.33 hpeyerl * elink_reset: This is the reset code for the dumb 3c50[79] cards
99 1.33 hpeyerl * which is required during probe. The problem is that the two cards
100 1.33 hpeyerl * use the same reset to the ID_PORT and hence the two drivers will
101 1.33 hpeyerl * reset each others cards. This is notably non-optimal.
102 1.33 hpeyerl */
103 1.33 hpeyerl
104 1.33 hpeyerl void
105 1.33 hpeyerl elink_reset()
106 1.33 hpeyerl {
107 1.33 hpeyerl static x;
108 1.33 hpeyerl
109 1.33 hpeyerl if(x == 0)
110 1.33 hpeyerl outb(ELINK_ID_PORT, ELINK_RESET);
111 1.33 hpeyerl x = 1;
112 1.33 hpeyerl }
113 1.1 cgd
114 1.1 cgd /*
115 1.1 cgd * Configure all ISA devices
116 1.1 cgd */
117 1.21 andrew void
118 1.30 mycroft isa_configure()
119 1.30 mycroft {
120 1.1 cgd struct isa_device *dvp;
121 1.1 cgd struct isa_driver *dp;
122 1.1 cgd
123 1.1 cgd splhigh();
124 1.1 cgd INTREN(IRQ_SLAVE);
125 1.30 mycroft enable_intr();
126 1.30 mycroft
127 1.6 deraadt for (dvp = isa_devtab_tty; config_isadev(dvp,&ttymask); dvp++)
128 1.6 deraadt ;
129 1.6 deraadt for (dvp = isa_devtab_bio; config_isadev(dvp,&biomask); dvp++)
130 1.6 deraadt ;
131 1.6 deraadt for (dvp = isa_devtab_net; config_isadev(dvp,&netmask); dvp++)
132 1.6 deraadt ;
133 1.15 cgd for (dvp = isa_devtab_null; config_isadev(dvp, (u_int *) NULL); dvp++)
134 1.6 deraadt ;
135 1.7 cgd
136 1.30 mycroft printf("biomask %x ttymask %x netmask %x\n",
137 1.30 mycroft biomask, ttymask, netmask);
138 1.30 mycroft
139 1.30 mycroft biomask |= astmask;
140 1.30 mycroft ttymask |= astmask;
141 1.30 mycroft netmask |= astmask;
142 1.30 mycroft impmask = netmask | ttymask;
143 1.26 mycroft
144 1.30 mycroft spl0();
145 1.1 cgd }
146 1.1 cgd
147 1.1 cgd /*
148 1.1 cgd * Configure an ISA device.
149 1.1 cgd */
150 1.21 andrew int
151 1.1 cgd config_isadev(isdp, mp)
152 1.1 cgd struct isa_device *isdp;
153 1.15 cgd u_int *mp;
154 1.1 cgd {
155 1.1 cgd struct isa_driver *dp;
156 1.1 cgd
157 1.1 cgd if (dp = isdp->id_driver) {
158 1.1 cgd if (isdp->id_maddr) {
159 1.1 cgd extern u_int atdevbase;
160 1.1 cgd
161 1.15 cgd isdp->id_maddr -= 0xa0000; /* XXX should be a define */
162 1.1 cgd isdp->id_maddr += atdevbase;
163 1.1 cgd }
164 1.1 cgd isdp->id_alive = (*dp->probe)(isdp);
165 1.11 deraadt if (isdp->id_irq == (u_short)-1)
166 1.11 deraadt isdp->id_alive = 0;
167 1.15 cgd /*
168 1.15 cgd * Only print the I/O address range if id_alive != -1
169 1.15 cgd * Right now this is a temporary fix just for the new
170 1.15 cgd * NPX code so that if it finds a 486 that can use trap
171 1.15 cgd * 16 it will not report I/O addresses.
172 1.15 cgd * Rod Grimes 04/26/94
173 1.15 cgd *
174 1.15 cgd * XXX -- cgd
175 1.15 cgd */
176 1.1 cgd if (isdp->id_alive) {
177 1.1 cgd printf("%s%d", dp->name, isdp->id_unit);
178 1.27 cgd if (isdp->id_iobase) {
179 1.27 cgd printf(" at 0x%x", isdp->id_iobase);
180 1.27 cgd if ((isdp->id_iobase + isdp->id_alive - 1) !=
181 1.27 cgd isdp->id_iobase)
182 1.27 cgd printf("-0x%x", isdp->id_iobase +
183 1.27 cgd isdp->id_alive - 1);
184 1.27 cgd }
185 1.11 deraadt if (isdp->id_irq != 0)
186 1.15 cgd printf(" irq %d", ffs(isdp->id_irq)-1);
187 1.3 deraadt if (isdp->id_drq != -1)
188 1.15 cgd printf(" drq %d", isdp->id_drq);
189 1.4 cgd if (isdp->id_maddr != 0)
190 1.15 cgd printf(" maddr 0x%x", kvtop(isdp->id_maddr));
191 1.4 cgd if (isdp->id_msize != 0)
192 1.20 deraadt printf("-0x%x", kvtop(isdp->id_maddr) +
193 1.20 deraadt isdp->id_msize - 1);
194 1.4 cgd if (isdp->id_flags != 0)
195 1.15 cgd printf(" flags 0x%x", isdp->id_flags);
196 1.15 cgd printf(" on isa\n");
197 1.3 deraadt
198 1.6 deraadt config_attach(dp, isdp);
199 1.6 deraadt
200 1.12 deraadt if (isdp->id_irq) {
201 1.1 cgd int intrno;
202 1.1 cgd
203 1.1 cgd intrno = ffs(isdp->id_irq)-1;
204 1.15 cgd setidt(ICU_OFFSET+intrno, isdp->id_intr,
205 1.15 cgd SDT_SYS386IGT, SEL_KPL);
206 1.3 deraadt if(mp)
207 1.3 deraadt INTRMASK(*mp,isdp->id_irq);
208 1.15 cgd INTREN(isdp->id_irq);
209 1.1 cgd }
210 1.1 cgd }
211 1.1 cgd return (1);
212 1.1 cgd } else return(0);
213 1.1 cgd }
214 1.6 deraadt
215 1.6 deraadt void
216 1.6 deraadt config_attach(struct isa_driver *dp, struct isa_device *isdp)
217 1.6 deraadt {
218 1.6 deraadt extern struct isa_device isa_subdev[];
219 1.6 deraadt struct isa_device *dvp;
220 1.6 deraadt
221 1.6 deraadt if(isdp->id_masunit==-1) {
222 1.8 deraadt (void)(*dp->attach)(isdp);
223 1.6 deraadt return;
224 1.6 deraadt }
225 1.6 deraadt
226 1.6 deraadt if(isdp->id_masunit==0) {
227 1.6 deraadt for(dvp = isa_subdev; dvp->id_driver; dvp++) {
228 1.6 deraadt if (dvp->id_driver != dp)
229 1.6 deraadt continue;
230 1.10 deraadt if (dvp->id_masunit != isdp->id_unit)
231 1.6 deraadt continue;
232 1.6 deraadt if (dvp->id_physid == -1)
233 1.6 deraadt continue;
234 1.8 deraadt dvp->id_alive = (*dp->attach)(dvp);
235 1.6 deraadt }
236 1.6 deraadt for(dvp = isa_subdev; dvp->id_driver; dvp++) {
237 1.6 deraadt if (dvp->id_driver != dp)
238 1.6 deraadt continue;
239 1.10 deraadt if (dvp->id_masunit != isdp->id_unit)
240 1.6 deraadt continue;
241 1.6 deraadt if (dvp->id_physid != -1)
242 1.6 deraadt continue;
243 1.8 deraadt dvp->id_alive = (*dp->attach)(dvp);
244 1.6 deraadt }
245 1.6 deraadt return;
246 1.6 deraadt }
247 1.6 deraadt printf("id_masunit has weird value\n");
248 1.6 deraadt }
249 1.6 deraadt
250 1.1 cgd
251 1.1 cgd #define IDTVEC(name) __CONCAT(X,name)
252 1.1 cgd /* default interrupt vector table entries */
253 1.1 cgd extern IDTVEC(intr0), IDTVEC(intr1), IDTVEC(intr2), IDTVEC(intr3),
254 1.1 cgd IDTVEC(intr4), IDTVEC(intr5), IDTVEC(intr6), IDTVEC(intr7),
255 1.1 cgd IDTVEC(intr8), IDTVEC(intr9), IDTVEC(intr10), IDTVEC(intr11),
256 1.1 cgd IDTVEC(intr12), IDTVEC(intr13), IDTVEC(intr14), IDTVEC(intr15);
257 1.1 cgd
258 1.1 cgd static *defvec[16] = {
259 1.1 cgd &IDTVEC(intr0), &IDTVEC(intr1), &IDTVEC(intr2), &IDTVEC(intr3),
260 1.1 cgd &IDTVEC(intr4), &IDTVEC(intr5), &IDTVEC(intr6), &IDTVEC(intr7),
261 1.1 cgd &IDTVEC(intr8), &IDTVEC(intr9), &IDTVEC(intr10), &IDTVEC(intr11),
262 1.1 cgd &IDTVEC(intr12), &IDTVEC(intr13), &IDTVEC(intr14), &IDTVEC(intr15) };
263 1.1 cgd
264 1.1 cgd /* out of range default interrupt vector gate entry */
265 1.1 cgd extern IDTVEC(intrdefault);
266 1.15 cgd
267 1.1 cgd /*
268 1.1 cgd * Fill in default interrupt table (in case of spuruious interrupt
269 1.1 cgd * during configuration of kernel, setup interrupt control unit
270 1.1 cgd */
271 1.21 andrew void
272 1.1 cgd isa_defaultirq() {
273 1.1 cgd int i;
274 1.1 cgd
275 1.1 cgd /* icu vectors */
276 1.1 cgd for (i = NRSVIDT ; i < NRSVIDT+ICU_LEN ; i++)
277 1.1 cgd setidt(i, defvec[i], SDT_SYS386IGT, SEL_KPL);
278 1.15 cgd
279 1.1 cgd /* out of range vectors */
280 1.1 cgd for (i = NRSVIDT; i < NIDT; i++)
281 1.1 cgd setidt(i, &IDTVEC(intrdefault), SDT_SYS386IGT, SEL_KPL);
282 1.1 cgd
283 1.1 cgd /* initialize 8259's */
284 1.1 cgd outb(IO_ICU1, 0x11); /* reset; program device, four bytes */
285 1.1 cgd outb(IO_ICU1+1, NRSVIDT); /* starting at this vector index */
286 1.1 cgd outb(IO_ICU1+1, 1<<2); /* slave on line 2 */
287 1.15 cgd #ifdef AUTO_EOI_1
288 1.15 cgd outb(IO_ICU1+1, 2 | 1); /* auto EOI, 8086 mode */
289 1.15 cgd #else
290 1.1 cgd outb(IO_ICU1+1, 1); /* 8086 mode */
291 1.15 cgd #endif
292 1.1 cgd outb(IO_ICU1+1, 0xff); /* leave interrupts masked */
293 1.15 cgd outb(IO_ICU1, 0x0a); /* default to IRR on read */
294 1.21 andrew #ifdef REORDER_IRQ
295 1.15 cgd outb(IO_ICU1, 0xc0 | (3 - 1)); /* pri order 3-7, 0-2 (com2 first) */
296 1.21 andrew #endif
297 1.1 cgd
298 1.1 cgd outb(IO_ICU2, 0x11); /* reset; program device, four bytes */
299 1.1 cgd outb(IO_ICU2+1, NRSVIDT+8); /* staring at this vector index */
300 1.1 cgd outb(IO_ICU2+1,2); /* my slave id is 2 */
301 1.15 cgd #ifdef AUTO_EOI_2
302 1.15 cgd outb(IO_ICU2+1, 2 | 1); /* auto EOI, 8086 mode */
303 1.15 cgd #else
304 1.1 cgd outb(IO_ICU2+1,1); /* 8086 mode */
305 1.15 cgd #endif
306 1.1 cgd outb(IO_ICU2+1, 0xff); /* leave interrupts masked */
307 1.15 cgd outb(IO_ICU2, 0x0a); /* default to IRR on read */
308 1.1 cgd }
309 1.1 cgd
310 1.1 cgd /* region of physical memory known to be contiguous */
311 1.1 cgd vm_offset_t isaphysmem;
312 1.1 cgd static caddr_t dma_bounce[8]; /* XXX */
313 1.1 cgd static char bounced[8]; /* XXX */
314 1.1 cgd #define MAXDMASZ 512 /* XXX */
315 1.1 cgd
316 1.1 cgd /* high byte of address is stored in this port for i-th dma channel */
317 1.1 cgd static short dmapageport[8] =
318 1.1 cgd { 0x87, 0x83, 0x81, 0x82, 0x8f, 0x8b, 0x89, 0x8a };
319 1.1 cgd
320 1.1 cgd /*
321 1.1 cgd * isa_dmacascade(): program 8237 DMA controller channel to accept
322 1.1 cgd * external dma control by a board.
323 1.1 cgd */
324 1.21 andrew void
325 1.21 andrew isa_dmacascade(unsigned chan)
326 1.2 cgd {
327 1.1 cgd if (chan > 7)
328 1.1 cgd panic("isa_dmacascade: impossible request");
329 1.1 cgd
330 1.1 cgd /* set dma channel mode, and set dma channel mode */
331 1.2 cgd if ((chan & 4) == 0) {
332 1.2 cgd outb(DMA1_MODE, DMA37MD_CASCADE | chan);
333 1.2 cgd outb(DMA1_SMSK, chan);
334 1.2 cgd } else {
335 1.2 cgd outb(DMA2_MODE, DMA37MD_CASCADE | (chan & 3));
336 1.2 cgd outb(DMA2_SMSK, chan & 3);
337 1.2 cgd }
338 1.1 cgd }
339 1.1 cgd
340 1.1 cgd /*
341 1.1 cgd * isa_dmastart(): program 8237 DMA controller channel, avoid page alignment
342 1.1 cgd * problems by using a bounce buffer.
343 1.1 cgd */
344 1.21 andrew void
345 1.21 andrew isa_dmastart(int flags, caddr_t addr, unsigned nbytes, unsigned chan)
346 1.1 cgd { vm_offset_t phys;
347 1.2 cgd int waport;
348 1.1 cgd caddr_t newaddr;
349 1.1 cgd
350 1.2 cgd if ( chan > 7
351 1.2 cgd || (chan < 4 && nbytes > (1<<16))
352 1.2 cgd || (chan >= 4 && (nbytes > (1<<17) || (u_int)addr & 1)))
353 1.1 cgd panic("isa_dmastart: impossible request");
354 1.1 cgd
355 1.2 cgd if (isa_dmarangecheck(addr, nbytes, chan)) {
356 1.1 cgd if (dma_bounce[chan] == 0)
357 1.1 cgd dma_bounce[chan] =
358 1.1 cgd /*(caddr_t)malloc(MAXDMASZ, M_TEMP, M_WAITOK);*/
359 1.1 cgd (caddr_t) isaphysmem + NBPG*chan;
360 1.1 cgd bounced[chan] = 1;
361 1.1 cgd newaddr = dma_bounce[chan];
362 1.1 cgd *(int *) newaddr = 0; /* XXX */
363 1.1 cgd
364 1.1 cgd /* copy bounce buffer on write */
365 1.1 cgd if (!(flags & B_READ))
366 1.1 cgd bcopy(addr, newaddr, nbytes);
367 1.1 cgd addr = newaddr;
368 1.1 cgd }
369 1.1 cgd
370 1.1 cgd /* translate to physical */
371 1.1 cgd phys = pmap_extract(pmap_kernel(), (vm_offset_t)addr);
372 1.1 cgd
373 1.2 cgd if ((chan & 4) == 0) {
374 1.2 cgd /*
375 1.2 cgd * Program one of DMA channels 0..3. These are
376 1.2 cgd * byte mode channels.
377 1.2 cgd */
378 1.2 cgd /* set dma channel mode, and reset address ff */
379 1.2 cgd if (flags & B_READ)
380 1.2 cgd outb(DMA1_MODE, DMA37MD_SINGLE|DMA37MD_WRITE|chan);
381 1.2 cgd else
382 1.2 cgd outb(DMA1_MODE, DMA37MD_SINGLE|DMA37MD_READ|chan);
383 1.2 cgd outb(DMA1_FFC, 0);
384 1.1 cgd
385 1.2 cgd /* send start address */
386 1.2 cgd waport = DMA1_CHN(chan);
387 1.1 cgd outb(waport, phys);
388 1.1 cgd outb(waport, phys>>8);
389 1.2 cgd outb(dmapageport[chan], phys>>16);
390 1.2 cgd
391 1.2 cgd /* send count */
392 1.2 cgd outb(waport + 1, --nbytes);
393 1.2 cgd outb(waport + 1, nbytes>>8);
394 1.2 cgd
395 1.2 cgd /* unmask channel */
396 1.2 cgd outb(DMA1_SMSK, chan);
397 1.1 cgd } else {
398 1.2 cgd /*
399 1.2 cgd * Program one of DMA channels 4..7. These are
400 1.2 cgd * word mode channels.
401 1.2 cgd */
402 1.2 cgd /* set dma channel mode, and reset address ff */
403 1.2 cgd if (flags & B_READ)
404 1.2 cgd outb(DMA2_MODE, DMA37MD_SINGLE|DMA37MD_WRITE|(chan&3));
405 1.2 cgd else
406 1.2 cgd outb(DMA2_MODE, DMA37MD_SINGLE|DMA37MD_READ|(chan&3));
407 1.2 cgd outb(DMA2_FFC, 0);
408 1.2 cgd
409 1.2 cgd /* send start address */
410 1.2 cgd waport = DMA2_CHN(chan - 4);
411 1.1 cgd outb(waport, phys>>1);
412 1.1 cgd outb(waport, phys>>9);
413 1.2 cgd outb(dmapageport[chan], phys>>16);
414 1.1 cgd
415 1.2 cgd /* send count */
416 1.2 cgd nbytes >>= 1;
417 1.1 cgd outb(waport + 2, --nbytes);
418 1.1 cgd outb(waport + 2, nbytes>>8);
419 1.2 cgd
420 1.2 cgd /* unmask channel */
421 1.2 cgd outb(DMA2_SMSK, chan & 3);
422 1.1 cgd }
423 1.1 cgd }
424 1.1 cgd
425 1.21 andrew void
426 1.21 andrew isa_dmadone(int flags, caddr_t addr, int nbytes, int chan)
427 1.1 cgd {
428 1.1 cgd
429 1.1 cgd /* copy bounce buffer on read */
430 1.1 cgd /*if ((flags & (B_PHYS|B_READ)) == (B_PHYS|B_READ))*/
431 1.1 cgd if (bounced[chan]) {
432 1.1 cgd bcopy(dma_bounce[chan], addr, nbytes);
433 1.1 cgd bounced[chan] = 0;
434 1.1 cgd }
435 1.1 cgd }
436 1.1 cgd
437 1.1 cgd /*
438 1.1 cgd * Check for problems with the address range of a DMA transfer
439 1.2 cgd * (non-contiguous physical pages, outside of bus address space,
440 1.2 cgd * crossing DMA page boundaries).
441 1.1 cgd * Return true if special handling needed.
442 1.1 cgd */
443 1.1 cgd
444 1.21 andrew int
445 1.2 cgd isa_dmarangecheck(caddr_t va, unsigned length, unsigned chan) {
446 1.2 cgd vm_offset_t phys, priorpage = 0, endva;
447 1.2 cgd u_int dma_pgmsk = (chan & 4) ? ~(128*1024-1) : ~(64*1024-1);
448 1.1 cgd
449 1.1 cgd endva = (vm_offset_t)round_page(va + length);
450 1.1 cgd for (; va < (caddr_t) endva ; va += NBPG) {
451 1.1 cgd phys = trunc_page(pmap_extract(pmap_kernel(), (vm_offset_t)va));
452 1.1 cgd #define ISARAM_END RAM_END
453 1.1 cgd if (phys == 0)
454 1.1 cgd panic("isa_dmacheck: no physical page present");
455 1.1 cgd if (phys > ISARAM_END)
456 1.1 cgd return (1);
457 1.2 cgd if (priorpage) {
458 1.2 cgd if (priorpage + NBPG != phys)
459 1.2 cgd return (1);
460 1.2 cgd /* check if crossing a DMA page boundary */
461 1.2 cgd if (((u_int)priorpage ^ (u_int)phys) & dma_pgmsk)
462 1.2 cgd return (1);
463 1.2 cgd }
464 1.1 cgd priorpage = phys;
465 1.1 cgd }
466 1.1 cgd return (0);
467 1.1 cgd }
468 1.1 cgd
469 1.1 cgd /* head of queue waiting for physmem to become available */
470 1.1 cgd struct buf isa_physmemq;
471 1.1 cgd
472 1.1 cgd /* blocked waiting for resource to become free for exclusive use */
473 1.1 cgd static isaphysmemflag;
474 1.1 cgd /* if waited for and call requested when free (B_CALL) */
475 1.1 cgd static void (*isaphysmemunblock)(); /* needs to be a list */
476 1.1 cgd
477 1.1 cgd /*
478 1.1 cgd * Allocate contiguous physical memory for transfer, returning
479 1.1 cgd * a *virtual* address to region. May block waiting for resource.
480 1.1 cgd * (assumed to be called at splbio())
481 1.1 cgd */
482 1.1 cgd caddr_t
483 1.1 cgd isa_allocphysmem(caddr_t va, unsigned length, void (*func)()) {
484 1.1 cgd
485 1.1 cgd isaphysmemunblock = func;
486 1.1 cgd while (isaphysmemflag & B_BUSY) {
487 1.1 cgd isaphysmemflag |= B_WANTED;
488 1.24 deraadt sleep((caddr_t)&isaphysmemflag, PRIBIO);
489 1.1 cgd }
490 1.1 cgd isaphysmemflag |= B_BUSY;
491 1.1 cgd
492 1.1 cgd return((caddr_t)isaphysmem);
493 1.1 cgd }
494 1.1 cgd
495 1.1 cgd /*
496 1.1 cgd * Free contiguous physical memory used for transfer.
497 1.1 cgd * (assumed to be called at splbio())
498 1.1 cgd */
499 1.1 cgd void
500 1.1 cgd isa_freephysmem(caddr_t va, unsigned length) {
501 1.1 cgd
502 1.1 cgd isaphysmemflag &= ~B_BUSY;
503 1.1 cgd if (isaphysmemflag & B_WANTED) {
504 1.1 cgd isaphysmemflag &= B_WANTED;
505 1.24 deraadt wakeup((caddr_t)&isaphysmemflag);
506 1.1 cgd if (isaphysmemunblock)
507 1.1 cgd (*isaphysmemunblock)();
508 1.1 cgd }
509 1.1 cgd }
510 1.1 cgd
511 1.1 cgd /*
512 1.1 cgd * Handle a NMI, possibly a machine check.
513 1.1 cgd * return true to panic system, false to ignore.
514 1.1 cgd */
515 1.21 andrew int
516 1.1 cgd isa_nmi(cd) {
517 1.1 cgd
518 1.1 cgd log(LOG_CRIT, "\nNMI port 61 %x, port 70 %x\n", inb(0x61), inb(0x70));
519 1.1 cgd return(0);
520 1.1 cgd }
521 1.1 cgd
522 1.1 cgd /*
523 1.1 cgd * Caught a stray interrupt, notify
524 1.1 cgd */
525 1.21 andrew void
526 1.1 cgd isa_strayintr(d) {
527 1.1 cgd
528 1.1 cgd /* DON'T BOTHER FOR NOW! */
529 1.1 cgd /* for some reason, we get bursts of intr #7, even if not enabled! */
530 1.4 cgd /*
531 1.4 cgd * Well the reason you got bursts of intr #7 is because someone
532 1.4 cgd * raised an interrupt line and dropped it before the 8259 could
533 1.4 cgd * prioritize it. This is documented in the intel data book. This
534 1.4 cgd * means you have BAD hardware! I have changed this so that only
535 1.15 cgd * the first 5 get logged, then it quits logging them, and puts
536 1.4 cgd * out a special message. rgrimes 3/25/1993
537 1.4 cgd */
538 1.15 cgd extern u_long intrcnt_stray;
539 1.4 cgd
540 1.15 cgd intrcnt_stray++;
541 1.15 cgd if (intrcnt_stray <= 5)
542 1.4 cgd log(LOG_ERR,"ISA strayintr %x\n", d);
543 1.15 cgd if (intrcnt_stray == 5)
544 1.4 cgd log(LOG_CRIT,"Too many ISA strayintr not logging any more\n");
545 1.1 cgd }
546 1.1 cgd
547 1.1 cgd /*
548 1.15 cgd * Wait "n" microseconds.
549 1.15 cgd * Relies on timer 1 counting down from (TIMER_FREQ / hz) at
550 1.17 mycroft * (1 * TIMER_FREQ) Hz.
551 1.15 cgd * Note: timer had better have been programmed before this is first used!
552 1.17 mycroft * (Note that we use `rate generator' mode, which counts at 1:1; `square
553 1.17 mycroft * wave' mode counts at 2:1).
554 1.15 cgd */
555 1.17 mycroft #define CF (1 * TIMER_FREQ)
556 1.15 cgd
557 1.15 cgd extern int hz; /* XXX - should be elsewhere */
558 1.15 cgd
559 1.21 andrew void
560 1.21 andrew DELAY(n)
561 1.15 cgd int n;
562 1.15 cgd {
563 1.15 cgd int counter_limit;
564 1.15 cgd int prev_tick;
565 1.15 cgd int tick;
566 1.15 cgd int ticks_left;
567 1.15 cgd int sec;
568 1.15 cgd int usec;
569 1.15 cgd
570 1.15 cgd #ifdef DELAYDEBUG
571 1.16 mycroft int gettick_calls = 1;
572 1.15 cgd int n1;
573 1.15 cgd static int state = 0;
574 1.15 cgd
575 1.15 cgd if (state == 0) {
576 1.15 cgd state = 1;
577 1.15 cgd for (n1 = 1; n1 <= 10000000; n1 *= 10)
578 1.15 cgd DELAY(n1);
579 1.15 cgd state = 2;
580 1.15 cgd }
581 1.15 cgd if (state == 1)
582 1.15 cgd printf("DELAY(%d)...", n);
583 1.15 cgd #endif
584 1.15 cgd
585 1.15 cgd /*
586 1.15 cgd * Read the counter first, so that the rest of the setup overhead is
587 1.15 cgd * counted. Guess the initial overhead is 20 usec (on most systems it
588 1.16 mycroft * takes about 1.5 usec for each of the i/o's in gettick(). The loop
589 1.15 cgd * takes about 6 usec on a 486/33 and 13 usec on a 386/20. The
590 1.15 cgd * multiplications and divisions to scale the count take a while).
591 1.15 cgd */
592 1.16 mycroft prev_tick = gettick();
593 1.15 cgd n -= 20;
594 1.15 cgd
595 1.15 cgd /*
596 1.15 cgd * Calculate (n * (CF / 1e6)) without using floating point and without
597 1.15 cgd * any avoidable overflows.
598 1.15 cgd */
599 1.15 cgd sec = n / 1000000;
600 1.15 cgd usec = n - sec * 1000000;
601 1.15 cgd ticks_left = sec * CF
602 1.15 cgd + usec * (CF / 1000000)
603 1.15 cgd + usec * ((CF % 1000000) / 1000) / 1000
604 1.15 cgd + usec * (CF % 1000) / 1000000;
605 1.15 cgd
606 1.15 cgd counter_limit = TIMER_FREQ / hz;
607 1.15 cgd while (ticks_left > 0) {
608 1.16 mycroft tick = gettick();
609 1.15 cgd #ifdef DELAYDEBUG
610 1.16 mycroft ++gettick_calls;
611 1.15 cgd #endif
612 1.15 cgd if (tick > prev_tick)
613 1.15 cgd ticks_left -= prev_tick - (tick - counter_limit);
614 1.15 cgd else
615 1.15 cgd ticks_left -= prev_tick - tick;
616 1.15 cgd prev_tick = tick;
617 1.1 cgd }
618 1.15 cgd #ifdef DELAYDEBUG
619 1.15 cgd if (state == 1)
620 1.16 mycroft printf(" %d calls to gettick() at %d usec each\n",
621 1.16 mycroft gettick_calls, (n + 5) / gettick_calls);
622 1.15 cgd #endif
623 1.1 cgd }
624 1.1 cgd
625 1.21 andrew int
626 1.16 mycroft gettick() {
627 1.15 cgd int high;
628 1.15 cgd int low;
629 1.15 cgd
630 1.15 cgd /*
631 1.15 cgd * Protect ourself against interrupts.
632 1.15 cgd */
633 1.15 cgd disable_intr();
634 1.15 cgd /*
635 1.15 cgd * Latch the count for 'timer' (cc00xxxx, c = counter, x = any).
636 1.15 cgd */
637 1.16 mycroft outb(TIMER_MODE, TIMER_SEL0 | TIMER_LATCH);
638 1.16 mycroft low = inb(TIMER_CNTR0);
639 1.16 mycroft high = inb(TIMER_CNTR0);
640 1.15 cgd enable_intr();
641 1.15 cgd return ((high << 8) | low);
642 1.1 cgd }
643 1.1 cgd
644 1.1 cgd static beeping;
645 1.21 andrew static void
646 1.21 andrew sysbeepstop(int f)
647 1.1 cgd {
648 1.16 mycroft int s = splhigh();
649 1.16 mycroft
650 1.1 cgd /* disable counter 2 */
651 1.16 mycroft disable_intr();
652 1.28 brezak outb(PITAUX_PORT, inb(PITAUX_PORT) & ~PIT_SPKR);
653 1.16 mycroft enable_intr();
654 1.1 cgd if (f)
655 1.24 deraadt timeout((timeout_t)sysbeepstop, (caddr_t)0, f);
656 1.1 cgd else
657 1.1 cgd beeping = 0;
658 1.16 mycroft
659 1.16 mycroft splx(s);
660 1.1 cgd }
661 1.1 cgd
662 1.21 andrew void
663 1.21 andrew sysbeep(int pitch, int period)
664 1.1 cgd {
665 1.16 mycroft int s = splhigh();
666 1.16 mycroft static int last_pitch, last_period;
667 1.1 cgd
668 1.16 mycroft if (beeping) {
669 1.24 deraadt untimeout((timeout_t)sysbeepstop, (caddr_t)(last_period/2));
670 1.24 deraadt untimeout((timeout_t)sysbeepstop, (caddr_t)0);
671 1.1 cgd }
672 1.16 mycroft if (!beeping || last_pitch != pitch) {
673 1.16 mycroft /*
674 1.16 mycroft * XXX - move timer stuff to clock.c.
675 1.16 mycroft */
676 1.16 mycroft disable_intr();
677 1.16 mycroft outb(TIMER_MODE, TIMER_SEL2|TIMER_16BIT|TIMER_SQWAVE);
678 1.19 mycroft outb(TIMER_CNTR2, TIMER_DIV(pitch)%256);
679 1.19 mycroft outb(TIMER_CNTR2, TIMER_DIV(pitch)/256);
680 1.28 brezak outb(PITAUX_PORT, inb(PITAUX_PORT) | PIT_SPKR); /* enable counter 2 */
681 1.16 mycroft enable_intr();
682 1.16 mycroft }
683 1.16 mycroft last_pitch = pitch;
684 1.16 mycroft beeping = last_period = period;
685 1.24 deraadt timeout((timeout_t)sysbeepstop, (caddr_t)(period/2), period);
686 1.16 mycroft
687 1.16 mycroft splx(s);
688 1.1 cgd }
689 1.1 cgd
690 1.1 cgd /*
691 1.1 cgd * Pass command to keyboard controller (8042)
692 1.1 cgd */
693 1.21 andrew unsigned
694 1.21 andrew kbc_8042cmd(int val)
695 1.21 andrew {
696 1.1 cgd while (inb(KBSTATP)&KBS_IBF);
697 1.1 cgd if (val) outb(KBCMDP, val);
698 1.1 cgd while (inb(KBSTATP)&KBS_IBF);
699 1.1 cgd return (inb(KBDATAP));
700 1.28 brezak }
701 1.28 brezak
702 1.28 brezak /*
703 1.28 brezak * find an ISA device in a given isa_devtab_* table, given
704 1.28 brezak * the table to search, the expected id_driver entry, and the unit number.
705 1.28 brezak *
706 1.28 brezak * this function is defined in isa_device.h, and this location is debatable;
707 1.28 brezak * i put it there because it's useless w/o, and directly operates on
708 1.28 brezak * the other stuff in that file.
709 1.28 brezak *
710 1.28 brezak */
711 1.28 brezak
712 1.28 brezak struct isa_device *find_isadev(table, driverp, unit)
713 1.28 brezak struct isa_device *table;
714 1.28 brezak struct isa_driver *driverp;
715 1.28 brezak int unit;
716 1.28 brezak {
717 1.28 brezak if (driverp == NULL) /* sanity check */
718 1.28 brezak return NULL;
719 1.28 brezak
720 1.28 brezak while ((table->id_driver != driverp) || (table->id_unit != unit)) {
721 1.28 brezak if (table->id_driver == 0)
722 1.28 brezak return NULL;
723 1.28 brezak
724 1.28 brezak table++;
725 1.28 brezak }
726 1.28 brezak
727 1.28 brezak return table;
728 1.15 cgd }
729 1.15 cgd
730 1.15 cgd /*
731 1.15 cgd * Return nonzero if a (masked) irq is pending for a given device.
732 1.15 cgd */
733 1.15 cgd int
734 1.15 cgd isa_irq_pending(dvp)
735 1.15 cgd struct isa_device *dvp;
736 1.15 cgd {
737 1.15 cgd unsigned id_irq;
738 1.15 cgd
739 1.15 cgd id_irq = (unsigned short) dvp->id_irq; /* XXX silly type in struct */
740 1.15 cgd if (id_irq & 0xff)
741 1.15 cgd return (inb(IO_ICU1) & id_irq);
742 1.15 cgd return (inb(IO_ICU2) & (id_irq >> 8));
743 1.1 cgd }
744