Home | History | Annotate | Line # | Download | only in isa
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