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