Home | History | Annotate | Line # | Download | only in pci
pci_machdep.c revision 1.30
      1  1.30       leo /*	$NetBSD: pci_machdep.c,v 1.30 2001/03/09 20:55:47 leo Exp $	*/
      2   1.1       leo 
      3   1.1       leo /*
      4   1.1       leo  * Copyright (c) 1996 Leo Weppelman.  All rights reserved.
      5   1.7       cgd  * Copyright (c) 1996, 1997 Christopher G. Demetriou.  All rights reserved.
      6  1.13   mycroft  * Copyright (c) 1994 Charles M. Hannum.  All rights reserved.
      7   1.1       leo  *
      8   1.1       leo  * Redistribution and use in source and binary forms, with or without
      9   1.1       leo  * modification, are permitted provided that the following conditions
     10   1.1       leo  * are met:
     11   1.1       leo  * 1. Redistributions of source code must retain the above copyright
     12   1.1       leo  *    notice, this list of conditions and the following disclaimer.
     13   1.1       leo  * 2. Redistributions in binary form must reproduce the above copyright
     14   1.1       leo  *    notice, this list of conditions and the following disclaimer in the
     15   1.1       leo  *    documentation and/or other materials provided with the distribution.
     16   1.1       leo  * 3. All advertising materials mentioning features or use of this software
     17   1.1       leo  *    must display the following acknowledgement:
     18  1.13   mycroft  *	This product includes software developed by Charles M. Hannum.
     19   1.1       leo  * 4. The name of the author may not be used to endorse or promote products
     20   1.1       leo  *    derived from this software without specific prior written permission.
     21   1.1       leo  *
     22   1.1       leo  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     23   1.1       leo  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     24   1.1       leo  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     25   1.1       leo  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     26   1.1       leo  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     27   1.1       leo  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     28   1.1       leo  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     29   1.1       leo  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     30   1.1       leo  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     31   1.1       leo  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     32   1.1       leo  */
     33   1.1       leo 
     34   1.1       leo #include <sys/types.h>
     35   1.1       leo #include <sys/param.h>
     36   1.1       leo #include <sys/time.h>
     37   1.1       leo #include <sys/systm.h>
     38   1.1       leo #include <sys/errno.h>
     39   1.1       leo #include <sys/device.h>
     40  1.14    thomas #include <sys/malloc.h>
     41   1.1       leo 
     42  1.30       leo #define _ATARI_BUS_DMA_PRIVATE
     43  1.30       leo #include <machine/bus.h>
     44   1.1       leo 
     45   1.1       leo #include <dev/pci/pcivar.h>
     46   1.1       leo #include <dev/pci/pcireg.h>
     47   1.1       leo 
     48  1.30       leo #include <uvm/uvm_extern.h>
     49  1.30       leo 
     50   1.1       leo #include <machine/cpu.h>
     51   1.1       leo #include <machine/iomap.h>
     52   1.9       leo #include <machine/mfp.h>
     53  1.16       leo #include <machine/bswap.h>
     54  1.10       leo 
     55   1.1       leo #include <atari/atari/device.h>
     56  1.17       leo #include <atari/pci/pci_vga.h>
     57   1.1       leo 
     58   1.9       leo /*
     59  1.14    thomas  * Sizes of pci memory and I/O area.
     60   1.9       leo  */
     61  1.14    thomas #define PCI_MEM_END     0x10000000      /* 256 MByte */
     62  1.14    thomas #define PCI_IO_END      0x10000000      /* 256 MByte */
     63  1.14    thomas 
     64  1.14    thomas /*
     65  1.14    thomas  * We preserve some space at the begin of the pci area for 32BIT_1M
     66  1.14    thomas  * devices and standard vga.
     67  1.14    thomas  */
     68  1.14    thomas #define PCI_MEM_START   0x00100000      /*   1 MByte */
     69  1.15    thomas #define PCI_IO_START    0x00004000      /*  16 kByte (some PCI cards allow only
     70  1.25       leo 					    I/O addresses up to 0xffff) */
     71  1.20    thomas 
     72  1.20    thomas /*
     73  1.20    thomas  * PCI memory and IO should be aligned acording to this masks
     74  1.20    thomas  */
     75  1.20    thomas #define PCI_MACHDEP_IO_ALIGN_MASK	0xffffff00
     76  1.20    thomas #define PCI_MACHDEP_MEM_ALIGN_MASK	0xfffff000
     77  1.20    thomas 
     78  1.19       leo /*
     79  1.19       leo  * Convert a PCI 'device' number to a slot number.
     80  1.19       leo  */
     81  1.19       leo #define	DEV2SLOT(dev)	(3 - dev)
     82  1.14    thomas 
     83  1.14    thomas /*
     84  1.14    thomas  * Struct to hold the memory and I/O datas of the pci devices
     85  1.14    thomas  */
     86  1.14    thomas struct pci_memreg {
     87  1.14    thomas     LIST_ENTRY(pci_memreg) link;
     88  1.14    thomas     int dev;
     89  1.14    thomas     pcitag_t tag;
     90  1.14    thomas     pcireg_t reg, address, mask;
     91  1.14    thomas     u_int32_t size;
     92  1.14    thomas     u_int32_t csr;
     93  1.14    thomas };
     94  1.14    thomas 
     95  1.14    thomas typedef LIST_HEAD(pci_memreg_head, pci_memreg) PCI_MEMREG;
     96   1.9       leo 
     97  1.30       leo /*
     98  1.30       leo  * Entry points for PCI DMA.  Use only the 'standard' functions.
     99  1.30       leo  */
    100  1.30       leo int	_bus_dmamap_create __P((bus_dma_tag_t, bus_size_t, int, bus_size_t,
    101  1.30       leo 	    bus_size_t, int, bus_dmamap_t *));
    102  1.30       leo struct atari_bus_dma_tag pci_bus_dma_tag = {
    103  1.30       leo 	0,
    104  1.30       leo 	0x80000000, /* XXX */
    105  1.30       leo 	_bus_dmamap_create,
    106  1.30       leo 	_bus_dmamap_destroy,
    107  1.30       leo 	_bus_dmamap_load,
    108  1.30       leo 	_bus_dmamap_load_mbuf,
    109  1.30       leo 	_bus_dmamap_load_uio,
    110  1.30       leo 	_bus_dmamap_load_raw,
    111  1.30       leo 	_bus_dmamap_unload,
    112  1.30       leo 	_bus_dmamap_sync,
    113  1.30       leo };
    114  1.30       leo 
    115   1.1       leo int	pcibusprint __P((void *auxp, const char *));
    116   1.5       leo int	pcibusmatch __P((struct device *, struct cfdata *, void *));
    117   1.1       leo void	pcibusattach __P((struct device *, struct device *, void *));
    118   1.1       leo 
    119  1.14    thomas static void enable_pci_devices __P((void));
    120  1.14    thomas static void insert_into_list __P((PCI_MEMREG *head, struct pci_memreg *elem));
    121  1.14    thomas static int overlap_pci_areas __P((struct pci_memreg *p,
    122  1.14    thomas 	struct pci_memreg *self, u_int addr, u_int size, u_int what));
    123   1.1       leo static int pci_config_offset __P((pcitag_t));
    124   1.1       leo 
    125   1.1       leo struct cfattach pcibus_ca = {
    126   1.1       leo 	sizeof(struct device), pcibusmatch, pcibusattach
    127   1.1       leo };
    128   1.1       leo 
    129  1.27       leo /*
    130  1.27       leo  * We need some static storage to probe pci-busses for VGA cards during
    131  1.27       leo  * early console init.
    132  1.27       leo  */
    133  1.27       leo static struct atari_bus_space	bs_storage[2];	/* 1 iot, 1 memt */
    134  1.27       leo 
    135   1.1       leo int
    136   1.5       leo pcibusmatch(pdp, cfp, auxp)
    137   1.1       leo struct device	*pdp;
    138   1.5       leo struct cfdata	*cfp;
    139   1.5       leo void		*auxp;
    140   1.1       leo {
    141  1.26       leo 	static int	nmatched = 0;
    142  1.26       leo 
    143  1.26       leo 	if (strcmp((char *)auxp, "pcibus"))
    144  1.26       leo 		return (0);	/* Wrong number... */
    145  1.26       leo 
    146  1.27       leo 	if(atari_realconfig == 0)
    147  1.27       leo 		return (1);
    148  1.27       leo 
    149  1.26       leo 	if (machineid & ATARI_HADES) {
    150  1.26       leo 		/*
    151  1.26       leo 		 * The Hades has only one pci bus
    152  1.26       leo 		 */
    153  1.26       leo 		if (nmatched)
    154  1.26       leo 			return (0);
    155  1.26       leo 		nmatched++;
    156  1.26       leo 		return (1);
    157  1.26       leo 	}
    158  1.26       leo 	return (0);
    159   1.1       leo }
    160   1.1       leo 
    161   1.1       leo void
    162   1.1       leo pcibusattach(pdp, dp, auxp)
    163   1.1       leo struct device	*pdp, *dp;
    164   1.1       leo void		*auxp;
    165   1.1       leo {
    166   1.1       leo 	struct pcibus_attach_args	pba;
    167   1.1       leo 
    168   1.1       leo 	pba.pba_busname = "pci";
    169   1.4       leo 	pba.pba_pc      = NULL;
    170   1.1       leo 	pba.pba_bus     = 0;
    171   1.7       cgd 	pba.pba_flags	= PCI_FLAGS_IO_ENABLED | PCI_FLAGS_MEM_ENABLED;
    172  1.30       leo 	pba.pba_dmat	= &pci_bus_dma_tag;
    173  1.27       leo 	pba.pba_iot     = leb_alloc_bus_space_tag(&bs_storage[0]);
    174  1.29       leo 	pba.pba_memt    = leb_alloc_bus_space_tag(&bs_storage[1]);
    175  1.11       leo 	if ((pba.pba_iot == NULL) || (pba.pba_memt == NULL)) {
    176  1.11       leo 		printf("leb_alloc_bus_space_tag failed!\n");
    177  1.11       leo 		return;
    178  1.11       leo 	}
    179  1.11       leo 	pba.pba_iot->base  = PCI_IO_PHYS;
    180  1.11       leo 	pba.pba_memt->base = PCI_MEM_PHYS;
    181   1.6       leo 
    182  1.27       leo 	if (dp == NULL) {
    183  1.27       leo 		/*
    184  1.27       leo 		 * Scan the bus for a VGA-card that we support. If we
    185  1.27       leo 		 * find one, try to initialize it to a 'standard' text
    186  1.27       leo 		 * mode (80x25).
    187  1.27       leo 		 */
    188  1.27       leo 		check_for_vga();
    189  1.27       leo 		return;
    190  1.27       leo 	}
    191  1.27       leo 
    192  1.27       leo 	enable_pci_devices();
    193  1.27       leo 
    194   1.9       leo 	MFP2->mf_aer &= ~(0x27); /* PCI interrupts: HIGH -> LOW */
    195   1.9       leo 
    196   1.6       leo 	printf("\n");
    197   1.1       leo 
    198   1.1       leo 	config_found(dp, &pba, pcibusprint);
    199   1.1       leo }
    200   1.1       leo 
    201   1.1       leo int
    202   1.1       leo pcibusprint(auxp, name)
    203   1.1       leo void		*auxp;
    204   1.1       leo const char	*name;
    205   1.1       leo {
    206   1.1       leo 	if(name == NULL)
    207   1.1       leo 		return(UNCONF);
    208   1.1       leo 	return(QUIET);
    209   1.1       leo }
    210   1.1       leo 
    211   1.1       leo void
    212   1.1       leo pci_attach_hook(parent, self, pba)
    213   1.1       leo 	struct device *parent, *self;
    214   1.1       leo 	struct pcibus_attach_args *pba;
    215   1.1       leo {
    216   1.1       leo }
    217   1.1       leo 
    218   1.1       leo /*
    219   1.9       leo  * Initialize the PCI-bus. The Atari-BIOS does not do this, so....
    220  1.14    thomas  * We only disable all devices here. Memory and I/O enabling is done
    221  1.14    thomas  * later at pcibusattach.
    222   1.9       leo  */
    223   1.9       leo void
    224   1.9       leo init_pci_bus()
    225   1.9       leo {
    226   1.9       leo 	pci_chipset_tag_t	pc = NULL; /* XXX */
    227   1.9       leo 	pcitag_t		tag;
    228  1.14    thomas 	pcireg_t		csr;
    229  1.14    thomas 	int			device, id, maxndevs;
    230   1.9       leo 
    231  1.14    thomas 	tag   = 0;
    232  1.14    thomas 	id    = 0;
    233   1.9       leo 
    234   1.9       leo 	maxndevs = pci_bus_maxdevs(pc, 0);
    235   1.9       leo 
    236   1.9       leo 	for (device = 0; device < maxndevs; device++) {
    237   1.9       leo 
    238   1.9       leo 		tag = pci_make_tag(pc, 0, device, 0);
    239   1.9       leo 		id  = pci_conf_read(pc, tag, PCI_ID_REG);
    240   1.9       leo 		if (id == 0 || id == 0xffffffff)
    241   1.9       leo 			continue;
    242   1.9       leo 
    243  1.14    thomas 		csr = pci_conf_read(pc, tag, PCI_COMMAND_STATUS_REG);
    244  1.14    thomas 		csr &= ~(PCI_COMMAND_MEM_ENABLE|PCI_COMMAND_IO_ENABLE);
    245  1.14    thomas 		csr &= ~PCI_COMMAND_MASTER_ENABLE;
    246  1.14    thomas 		pci_conf_write(pc, tag, PCI_COMMAND_STATUS_REG, csr);
    247  1.14    thomas 	}
    248  1.14    thomas }
    249  1.14    thomas 
    250  1.14    thomas /*
    251  1.14    thomas  * insert a new element in an existing list that the ID's (size in struct
    252  1.14    thomas  * pci_memreg) are sorted.
    253  1.14    thomas  */
    254  1.14    thomas static void
    255  1.14    thomas insert_into_list(head, elem)
    256  1.14    thomas     PCI_MEMREG *head;
    257  1.14    thomas     struct pci_memreg *elem;
    258  1.14    thomas {
    259  1.14    thomas     struct pci_memreg *p, *q;
    260  1.14    thomas 
    261  1.14    thomas     p = LIST_FIRST(head);
    262  1.14    thomas     q = NULL;
    263  1.14    thomas 
    264  1.14    thomas     for (; p != NULL && p->size < elem->size; q = p, p = LIST_NEXT(p, link));
    265  1.14    thomas 
    266  1.14    thomas     if (q == NULL) {
    267  1.14    thomas 	LIST_INSERT_HEAD(head, elem, link);
    268  1.14    thomas     } else {
    269  1.14    thomas 	LIST_INSERT_AFTER(q, elem, link);
    270  1.14    thomas     }
    271  1.14    thomas }
    272  1.14    thomas 
    273  1.14    thomas /*
    274  1.14    thomas  * Test if a new selected area overlaps with an already (probably preselected)
    275  1.14    thomas  * pci area.
    276  1.14    thomas  */
    277  1.14    thomas static int
    278  1.14    thomas overlap_pci_areas(p, self, addr, size, what)
    279  1.14    thomas     struct pci_memreg *p, *self;
    280  1.14    thomas     u_int addr, size, what;
    281  1.14    thomas {
    282  1.14    thomas     struct pci_memreg *q;
    283  1.14    thomas 
    284  1.14    thomas     if (p == NULL)
    285  1.14    thomas 	return 0;
    286  1.14    thomas 
    287  1.14    thomas     q = p;
    288  1.14    thomas     while (q != NULL) {
    289  1.14    thomas 	if ((q != self) && (q->csr & what)) {
    290  1.14    thomas 	    if ((addr >= q->address) && (addr < (q->address + q->size))) {
    291  1.14    thomas #ifdef DEBUG_PCI_MACHDEP
    292  1.14    thomas 		printf("\noverlap area dev %d reg 0x%02x with dev %d reg 0x%02x",
    293  1.14    thomas 			self->dev, self->reg, q->dev, q->reg);
    294  1.14    thomas #endif
    295  1.14    thomas 		return 1;
    296  1.14    thomas 	    }
    297  1.14    thomas 	    if ((q->address >= addr) && (q->address < (addr + size))) {
    298  1.14    thomas #ifdef DEBUG_PCI_MACHDEP
    299  1.14    thomas 		printf("\noverlap area dev %d reg 0x%02x with dev %d reg 0x%02x",
    300  1.14    thomas 			self->dev, self->reg, q->dev, q->reg);
    301  1.14    thomas #endif
    302  1.14    thomas 		return 1;
    303  1.14    thomas 	    }
    304  1.14    thomas 	}
    305  1.14    thomas 	q = LIST_NEXT(q, link);
    306  1.14    thomas     }
    307  1.14    thomas     return 0;
    308  1.14    thomas }
    309  1.14    thomas 
    310  1.14    thomas /*
    311  1.14    thomas  * Enable memory and I/O on pci devices. Care about already enabled devices
    312  1.14    thomas  * (probabaly by the console driver).
    313  1.14    thomas  *
    314  1.14    thomas  * The idea behind the following code is:
    315  1.14    thomas  * We build a by sizes sorted list of the requirements of the different
    316  1.14    thomas  * pci devices. After that we choose the start addresses of that areas
    317  1.14    thomas  * in such a way that they are placed as closed as possible together.
    318  1.14    thomas  */
    319  1.14    thomas static void
    320  1.14    thomas enable_pci_devices()
    321  1.14    thomas {
    322  1.14    thomas     PCI_MEMREG memlist;
    323  1.14    thomas     PCI_MEMREG iolist;
    324  1.14    thomas     struct pci_memreg *p, *q;
    325  1.14    thomas     int dev, reg, id, class;
    326  1.14    thomas     pcitag_t tag;
    327  1.14    thomas     pcireg_t csr, address, mask;
    328  1.14    thomas     pci_chipset_tag_t pc;
    329  1.14    thomas     int sizecnt, membase_1m;
    330  1.14    thomas 
    331  1.14    thomas     pc = 0;
    332  1.14    thomas     csr = 0;
    333  1.14    thomas     tag = 0;
    334  1.14    thomas 
    335  1.14    thomas     LIST_INIT(&memlist);
    336  1.14    thomas     LIST_INIT(&iolist);
    337  1.14    thomas 
    338  1.14    thomas     /*
    339  1.14    thomas      * first step: go through all devices and gather memory and I/O
    340  1.14    thomas      * sizes
    341  1.14    thomas      */
    342  1.14    thomas     for (dev = 0; dev < pci_bus_maxdevs(pc,0); dev++) {
    343  1.14    thomas 
    344  1.14    thomas 	tag = pci_make_tag(pc, 0, dev, 0);
    345  1.14    thomas 	id  = pci_conf_read(pc, tag, PCI_ID_REG);
    346  1.14    thomas 	if (id == 0 || id == 0xffffffff)
    347  1.14    thomas 	    continue;
    348  1.14    thomas 
    349  1.14    thomas 	csr = pci_conf_read(pc, tag, PCI_COMMAND_STATUS_REG);
    350  1.14    thomas 
    351  1.14    thomas 	/*
    352  1.14    thomas 	 * special case: if a display card is found and memory is enabled
    353  1.14    thomas 	 * preserve 128k at 0xa0000 as vga memory.
    354  1.18       leo 	 * XXX: if a display card is found without being enabled, leave
    355  1.18       leo 	 *      it alone! You will usually only create conflicts by enabeling
    356  1.18       leo 	 *      it.
    357  1.14    thomas 	 */
    358  1.14    thomas 	class = pci_conf_read(pc, tag, PCI_CLASS_REG);
    359  1.14    thomas 	switch (PCI_CLASS(class)) {
    360  1.14    thomas 	    case PCI_CLASS_PREHISTORIC:
    361  1.14    thomas 	    case PCI_CLASS_DISPLAY:
    362  1.18       leo 	      if (csr & (PCI_COMMAND_MEM_ENABLE | PCI_COMMAND_MASTER_ENABLE)) {
    363  1.14    thomas 		    p = (struct pci_memreg *)malloc(sizeof(struct pci_memreg),
    364  1.14    thomas 				M_TEMP, M_WAITOK);
    365  1.14    thomas 		    memset(p, '\0', sizeof(struct pci_memreg));
    366  1.14    thomas 		    p->dev = dev;
    367  1.14    thomas 		    p->csr = csr;
    368  1.14    thomas 		    p->tag = tag;
    369  1.14    thomas 		    p->reg = 0;     /* there is no register about this */
    370  1.14    thomas 		    p->size = 0x20000;  /* 128kByte */
    371  1.14    thomas 		    p->mask = 0xfffe0000;
    372  1.14    thomas 		    p->address = 0xa0000;
    373  1.14    thomas 
    374  1.14    thomas 		    insert_into_list(&memlist, p);
    375  1.18       leo 	      }
    376  1.18       leo 	      else continue;
    377   1.9       leo 	}
    378   1.9       leo 
    379  1.14    thomas 	for (reg = PCI_MAPREG_START; reg < PCI_MAPREG_END; reg += 4) {
    380  1.14    thomas 
    381  1.14    thomas 	    address = pci_conf_read(pc, tag, reg);
    382  1.14    thomas 	    pci_conf_write(pc, tag, reg, 0xffffffff);
    383  1.14    thomas 	    mask    = pci_conf_read(pc, tag, reg);
    384  1.14    thomas 	    pci_conf_write(pc, tag, reg, address);
    385  1.14    thomas 	    if (mask == 0)
    386  1.14    thomas 		continue; /* Register unused */
    387  1.14    thomas 
    388  1.14    thomas 	    p = (struct pci_memreg *)malloc(sizeof(struct pci_memreg),
    389  1.14    thomas 			M_TEMP, M_WAITOK);
    390  1.14    thomas 	    memset(p, '\0', sizeof(struct pci_memreg));
    391  1.14    thomas 	    p->dev = dev;
    392  1.14    thomas 	    p->csr = csr;
    393  1.14    thomas 	    p->tag = tag;
    394  1.14    thomas 	    p->reg = reg;
    395  1.14    thomas 	    p->mask = mask;
    396  1.14    thomas 	    p->address = 0;
    397  1.14    thomas 
    398  1.14    thomas 	    if (mask & PCI_MAPREG_TYPE_IO) {
    399  1.14    thomas 		p->size = PCI_MAPREG_IO_SIZE(mask);
    400  1.14    thomas 
    401  1.14    thomas 		/*
    402  1.20    thomas 		 * Align IO if necessary
    403  1.20    thomas 		 */
    404  1.20    thomas 		if (p->size < PCI_MAPREG_IO_SIZE(PCI_MACHDEP_IO_ALIGN_MASK)) {
    405  1.20    thomas 		    p->mask = PCI_MACHDEP_IO_ALIGN_MASK;
    406  1.20    thomas 		    p->size = PCI_MAPREG_IO_SIZE(p->mask);
    407  1.20    thomas 		}
    408  1.20    thomas 
    409  1.20    thomas 		/*
    410  1.14    thomas 		 * if I/O is already enabled (probably by the console driver)
    411  1.14    thomas 		 * save the address in order to take care about it later.
    412  1.14    thomas 		 */
    413  1.14    thomas 		if (csr & PCI_COMMAND_IO_ENABLE)
    414  1.14    thomas 		    p->address = address;
    415  1.14    thomas 
    416  1.14    thomas 		insert_into_list(&iolist, p);
    417  1.14    thomas 	    } else {
    418  1.14    thomas 		p->size = PCI_MAPREG_MEM_SIZE(mask);
    419  1.14    thomas 
    420  1.14    thomas 		/*
    421  1.20    thomas 		 * Align memory if necessary
    422  1.20    thomas 		 */
    423  1.20    thomas 		if (p->size < PCI_MAPREG_IO_SIZE(PCI_MACHDEP_MEM_ALIGN_MASK)) {
    424  1.20    thomas 		    p->mask = PCI_MACHDEP_MEM_ALIGN_MASK;
    425  1.20    thomas 		    p->size = PCI_MAPREG_MEM_SIZE(p->mask);
    426  1.20    thomas 		}
    427  1.20    thomas 
    428  1.20    thomas 		/*
    429  1.14    thomas 		 * if memory is already enabled (probably by the console driver)
    430  1.14    thomas 		 * save the address in order to take care about it later.
    431  1.14    thomas 		 */
    432  1.14    thomas 		if (csr & PCI_COMMAND_MEM_ENABLE)
    433  1.14    thomas 		    p->address = address;
    434  1.14    thomas 
    435  1.14    thomas 		insert_into_list(&memlist, p);
    436   1.9       leo 
    437  1.14    thomas 		if (PCI_MAPREG_MEM_TYPE(mask) == PCI_MAPREG_MEM_TYPE_64BIT)
    438  1.14    thomas 		    reg++;
    439  1.14    thomas 	    }
    440  1.14    thomas 	}
    441   1.9       leo 
    442  1.14    thomas 	/*
    443  1.14    thomas 	 * Both interrupt pin & line are set to the device (== slot)
    444  1.14    thomas 	 * number. This makes sense on the atari because the
    445  1.14    thomas 	 * individual slots are hard-wired to a specific MFP-pin.
    446  1.14    thomas 	 */
    447  1.19       leo 	csr  = (DEV2SLOT(dev) << PCI_INTERRUPT_PIN_SHIFT);
    448  1.19       leo 	csr |= (DEV2SLOT(dev) << PCI_INTERRUPT_LINE_SHIFT);
    449  1.14    thomas 	pci_conf_write(pc, tag, PCI_INTERRUPT_REG, csr);
    450  1.14    thomas     }
    451  1.14    thomas 
    452  1.14    thomas     /*
    453  1.14    thomas      * second step: calculate the memory and I/O adresses beginning from
    454  1.14    thomas      * PCI_MEM_START and PCI_IO_START. Care about already mapped areas.
    455  1.14    thomas      *
    456  1.25       leo      * begin with memory list
    457  1.14    thomas      */
    458  1.14    thomas 
    459  1.14    thomas     address = PCI_MEM_START;
    460  1.14    thomas     sizecnt = 0;
    461  1.14    thomas     membase_1m = 0;
    462  1.14    thomas     p = LIST_FIRST(&memlist);
    463  1.14    thomas     while (p != NULL) {
    464  1.14    thomas 	if (!(p->csr & PCI_COMMAND_MEM_ENABLE)) {
    465  1.14    thomas 	    if (PCI_MAPREG_MEM_TYPE(p->mask) == PCI_MAPREG_MEM_TYPE_32BIT_1M) {
    466  1.14    thomas 		if (p->size > membase_1m)
    467  1.14    thomas 		    membase_1m = p->size;
    468  1.14    thomas 		do {
    469  1.14    thomas 		    p->address = membase_1m;
    470  1.14    thomas 		    membase_1m += p->size;
    471  1.14    thomas 		} while (overlap_pci_areas(LIST_FIRST(&memlist), p, p->address,
    472  1.14    thomas 					   p->size, PCI_COMMAND_MEM_ENABLE));
    473  1.14    thomas 		if (membase_1m > 0x00100000) {
    474  1.14    thomas 		    /*
    475  1.14    thomas 		     * Should we panic here?
    476  1.14    thomas 		     */
    477  1.14    thomas 		    printf("\npcibus0: dev %d reg %d: memory not configured",
    478  1.14    thomas 			    p->dev, p->reg);
    479  1.14    thomas 		    p->reg = 0;
    480   1.9       leo 		}
    481  1.14    thomas 	    } else {
    482   1.9       leo 
    483  1.14    thomas 		if (sizecnt && (p->size > sizecnt))
    484  1.14    thomas 		    sizecnt = ((p->size + sizecnt) & p->mask) &
    485  1.14    thomas 			      PCI_MAPREG_MEM_ADDR_MASK;
    486  1.14    thomas 		if (sizecnt > address) {
    487  1.14    thomas 		    address = sizecnt;
    488  1.14    thomas 		    sizecnt = 0;
    489  1.14    thomas 		}
    490   1.9       leo 
    491  1.14    thomas 		do {
    492  1.14    thomas 		    p->address = address + sizecnt;
    493  1.14    thomas 		    sizecnt += p->size;
    494  1.14    thomas 		} while (overlap_pci_areas(LIST_FIRST(&memlist), p, p->address,
    495  1.14    thomas 					   p->size, PCI_COMMAND_MEM_ENABLE));
    496  1.14    thomas 
    497  1.14    thomas 		if ((address + sizecnt) > PCI_MEM_END) {
    498  1.14    thomas 		    /*
    499  1.14    thomas 		     * Should we panic here?
    500  1.14    thomas 		     */
    501  1.14    thomas 		    printf("\npcibus0: dev %d reg %d: memory not configured",
    502  1.14    thomas 			    p->dev, p->reg);
    503  1.14    thomas 		    p->reg = 0;
    504  1.14    thomas 		}
    505  1.14    thomas 	    }
    506  1.14    thomas 	    if (p->reg > 0) {
    507  1.14    thomas 		pci_conf_write(pc, p->tag, p->reg, p->address);
    508  1.14    thomas 		csr = pci_conf_read(pc, p->tag, PCI_COMMAND_STATUS_REG);
    509  1.14    thomas 		csr |= PCI_COMMAND_MEM_ENABLE | PCI_COMMAND_MASTER_ENABLE;
    510  1.14    thomas 		pci_conf_write(pc, p->tag, PCI_COMMAND_STATUS_REG, csr);
    511  1.20    thomas 		p->csr = csr;
    512  1.14    thomas 	    }
    513  1.14    thomas 	}
    514  1.14    thomas 	p = LIST_NEXT(p, link);
    515  1.14    thomas     }
    516   1.9       leo 
    517  1.14    thomas     /*
    518  1.14    thomas      * now the I/O list
    519  1.14    thomas      */
    520  1.14    thomas 
    521  1.14    thomas     address = PCI_IO_START;
    522  1.14    thomas     sizecnt = 0;
    523  1.14    thomas     p = LIST_FIRST(&iolist);
    524  1.14    thomas     while (p != NULL) {
    525  1.14    thomas 	if (!(p->csr & PCI_COMMAND_IO_ENABLE)) {
    526  1.14    thomas 
    527  1.14    thomas 	    if (sizecnt && (p->size > sizecnt))
    528  1.14    thomas 		sizecnt = ((p->size + sizecnt) & p->mask) &
    529  1.14    thomas 			  PCI_MAPREG_IO_ADDR_MASK;
    530  1.14    thomas 	    if (sizecnt > address) {
    531  1.14    thomas 		address = sizecnt;
    532  1.14    thomas 		sizecnt = 0;
    533  1.14    thomas 	    }
    534  1.14    thomas 
    535  1.14    thomas 	    do {
    536  1.14    thomas 		p->address = address + sizecnt;
    537  1.14    thomas 		sizecnt += p->size;
    538  1.14    thomas 	    } while (overlap_pci_areas(LIST_FIRST(&iolist), p, p->address,
    539  1.14    thomas 				       p->size, PCI_COMMAND_IO_ENABLE));
    540   1.9       leo 
    541  1.14    thomas 	    if ((address + sizecnt) > PCI_IO_END) {
    542   1.9       leo 		/*
    543  1.14    thomas 		 * Should we panic here?
    544   1.9       leo 		 */
    545  1.14    thomas 		printf("\npcibus0: dev %d reg %d: io not configured",
    546  1.14    thomas 			p->dev, p->reg);
    547  1.14    thomas 	    } else {
    548  1.14    thomas 		pci_conf_write(pc, p->tag, p->reg, p->address);
    549  1.14    thomas 		csr = pci_conf_read(pc, p->tag, PCI_COMMAND_STATUS_REG);
    550  1.14    thomas 		csr |= PCI_COMMAND_IO_ENABLE | PCI_COMMAND_MASTER_ENABLE;
    551  1.14    thomas 		pci_conf_write(pc, p->tag, PCI_COMMAND_STATUS_REG, csr);
    552  1.20    thomas 		p->csr = csr;
    553  1.14    thomas 	    }
    554   1.9       leo 	}
    555  1.14    thomas 	p = LIST_NEXT(p, link);
    556  1.14    thomas     }
    557  1.14    thomas 
    558  1.14    thomas #ifdef DEBUG_PCI_MACHDEP
    559  1.14    thomas     printf("\nI/O List:\n");
    560  1.14    thomas     p = LIST_FIRST(&iolist);
    561  1.14    thomas 
    562  1.14    thomas     while (p != NULL) {
    563  1.14    thomas 	printf("\ndev: %d, reg: 0x%02x, size: 0x%08x, addr: 0x%08x", p->dev,
    564  1.14    thomas 			p->reg, p->size, p->address);
    565  1.14    thomas 	p = LIST_NEXT(p, link);
    566  1.14    thomas     }
    567  1.14    thomas     printf("\nMemlist:");
    568  1.14    thomas     p = LIST_FIRST(&memlist);
    569  1.14    thomas 
    570  1.14    thomas     while (p != NULL) {
    571  1.14    thomas 	printf("\ndev: %d, reg: 0x%02x, size: 0x%08x, addr: 0x%08x", p->dev,
    572  1.14    thomas 			p->reg, p->size, p->address);
    573  1.14    thomas 	p = LIST_NEXT(p, link);
    574  1.14    thomas     }
    575  1.14    thomas #endif
    576  1.14    thomas 
    577  1.14    thomas     /*
    578  1.14    thomas      * Free the lists
    579  1.14    thomas      */
    580  1.14    thomas     p = LIST_FIRST(&iolist);
    581  1.14    thomas     while (p != NULL) {
    582  1.14    thomas 	q = p;
    583  1.14    thomas 	LIST_REMOVE(q, link);
    584  1.14    thomas 	free(p, M_WAITOK);
    585  1.14    thomas 	p = LIST_FIRST(&iolist);
    586  1.14    thomas     }
    587  1.14    thomas     p = LIST_FIRST(&memlist);
    588  1.14    thomas     while (p != NULL) {
    589  1.14    thomas 	q = p;
    590  1.14    thomas 	LIST_REMOVE(q, link);
    591  1.14    thomas 	free(p, M_WAITOK);
    592  1.14    thomas 	p = LIST_FIRST(&memlist);
    593  1.14    thomas     }
    594   1.9       leo }
    595   1.9       leo 
    596   1.9       leo /*
    597   1.1       leo  * Atari_init.c maps the config areas NBPG bytes apart....
    598   1.1       leo  */
    599   1.1       leo static int pci_config_offset(tag)
    600   1.1       leo pcitag_t	tag;
    601   1.1       leo {
    602   1.1       leo 	int	device;
    603   1.1       leo 
    604   1.1       leo 	device = (tag >> 11) & 0x1f;
    605   1.1       leo 	return(device * NBPG);
    606   1.1       leo }
    607   1.1       leo 
    608   1.1       leo int
    609   1.1       leo pci_bus_maxdevs(pc, busno)
    610   1.1       leo 	pci_chipset_tag_t pc;
    611   1.1       leo 	int busno;
    612   1.1       leo {
    613   1.1       leo 	return (4);
    614   1.1       leo }
    615   1.1       leo 
    616   1.1       leo pcitag_t
    617   1.1       leo pci_make_tag(pc, bus, device, function)
    618   1.1       leo 	pci_chipset_tag_t pc;
    619   1.1       leo 	int bus, device, function;
    620   1.1       leo {
    621   1.1       leo 	return ((bus << 16) | (device << 11) | (function << 8));
    622   1.1       leo }
    623   1.1       leo 
    624   1.1       leo pcireg_t
    625   1.1       leo pci_conf_read(pc, tag, reg)
    626   1.1       leo 	pci_chipset_tag_t pc;
    627   1.1       leo 	pcitag_t tag;
    628   1.1       leo 	int reg;
    629   1.1       leo {
    630   1.1       leo 	u_long	data;
    631   1.1       leo 
    632   1.1       leo 	data = *(u_long *)(pci_conf_addr + pci_config_offset(tag) + reg);
    633   1.9       leo 	return (bswap32(data));
    634   1.1       leo }
    635   1.1       leo 
    636   1.1       leo void
    637   1.1       leo pci_conf_write(pc, tag, reg, data)
    638   1.1       leo 	pci_chipset_tag_t pc;
    639   1.1       leo 	pcitag_t tag;
    640   1.1       leo 	int reg;
    641   1.1       leo 	pcireg_t data;
    642   1.1       leo {
    643   1.9       leo 	*((u_long *)(pci_conf_addr + pci_config_offset(tag) + reg))
    644   1.9       leo 		= bswap32(data);
    645   1.1       leo }
    646   1.1       leo 
    647   1.1       leo int
    648  1.28  sommerfe pci_intr_map(pa, ihp)
    649  1.28  sommerfe 	struct pci_attach_args *pa;
    650   1.1       leo 	pci_intr_handle_t *ihp;
    651   1.1       leo {
    652  1.28  sommerfe 	int line = pa->pa_intrline;
    653  1.28  sommerfe 
    654   1.9       leo 	/*
    655   1.9       leo 	 * According to the PCI-spec, 255 means `unknown' or `no connection'.
    656   1.9       leo 	 * Interpret this as 'no interrupt assigned'.
    657   1.9       leo 	 */
    658   1.9       leo 	if (line == 255) {
    659   1.9       leo 		*ihp = -1;
    660   1.9       leo 		return 1;
    661   1.9       leo 	}
    662   1.9       leo 
    663   1.9       leo 	/*
    664   1.9       leo 	 * Values are pretty useless because the on the Hades all interrupt
    665   1.9       leo 	 * lines for a card are tied together and hardwired to the TT-MFP
    666   1.9       leo 	 * I/O port.
    667   1.9       leo 	 */
    668   1.9       leo 	*ihp = line;
    669   1.9       leo 	return 0;
    670   1.1       leo }
    671   1.1       leo 
    672   1.1       leo const char *
    673   1.1       leo pci_intr_string(pc, ih)
    674   1.1       leo 	pci_chipset_tag_t pc;
    675   1.1       leo 	pci_intr_handle_t ih;
    676   1.1       leo {
    677   1.1       leo 	static char irqstr[8];		/* 4 + 2 + NULL + sanity */
    678   1.1       leo 
    679   1.9       leo 	if (ih == -1)
    680   1.1       leo 		panic("pci_intr_string: bogus handle 0x%x\n", ih);
    681   1.1       leo 
    682   1.3  christos 	sprintf(irqstr, "irq %d", ih);
    683   1.1       leo 	return (irqstr);
    684   1.1       leo 
    685  1.22       cgd }
    686  1.22       cgd 
    687  1.22       cgd const struct evcnt *
    688  1.22       cgd pci_intr_evcnt(pc, ih)
    689  1.22       cgd 	pci_chipset_tag_t pc;
    690  1.22       cgd 	pci_intr_handle_t ih;
    691  1.22       cgd {
    692  1.22       cgd 
    693  1.22       cgd 	/* XXX for now, no evcnt parent reported */
    694  1.22       cgd 	return NULL;
    695   1.1       leo }
    696   1.1       leo 
    697   1.9       leo /*
    698   1.9       leo  * The interrupt stuff is rather ugly. On the Hades, all interrupt lines
    699   1.9       leo  * for a slot are wired together and connected to IO 0,1,2 or 5 (slots:
    700   1.9       leo  * (0-3) on the TT-MFP. The Pci-config code initializes the irq. number
    701   1.9       leo  * to the slot position.
    702   1.9       leo  */
    703   1.9       leo static pci_intr_info_t iinfo[4] = { { -1 }, { -1 }, { -1 }, { -1 } };
    704   1.9       leo 
    705   1.9       leo static int	iifun __P((int, int));
    706   1.9       leo 
    707   1.9       leo static int
    708   1.9       leo iifun(slot, sr)
    709   1.9       leo int	slot;
    710   1.9       leo int	sr;
    711   1.9       leo {
    712   1.9       leo 	pci_intr_info_t *iinfo_p;
    713   1.9       leo 	int		s;
    714   1.9       leo 
    715   1.9       leo 	iinfo_p = &iinfo[slot];
    716   1.9       leo 
    717   1.9       leo 	/*
    718   1.9       leo 	 * Disable the interrupts
    719   1.9       leo 	 */
    720   1.9       leo 	MFP2->mf_imrb  &= ~iinfo_p->imask;
    721   1.9       leo 
    722  1.12       leo 	if ((sr & PSL_IPL) >= (iinfo_p->ipl & PSL_IPL)) {
    723   1.9       leo 		/*
    724   1.9       leo 		 * We're running at a too high priority now.
    725   1.9       leo 		 */
    726   1.9       leo 		add_sicallback((si_farg)iifun, (void*)slot, 0);
    727   1.9       leo 	}
    728   1.9       leo 	else {
    729   1.9       leo 		s = splx(iinfo_p->ipl);
    730   1.9       leo 		(void) (iinfo_p->ifunc)(iinfo_p->iarg);
    731   1.9       leo 		splx(s);
    732   1.9       leo 
    733   1.9       leo 		/*
    734   1.9       leo 		 * Re-enable interrupts after handling
    735   1.9       leo 		 */
    736   1.9       leo 		MFP2->mf_imrb |= iinfo_p->imask;
    737   1.9       leo 	}
    738   1.9       leo 	return 1;
    739   1.9       leo }
    740   1.9       leo 
    741   1.1       leo void *
    742   1.9       leo pci_intr_establish(pc, ih, level, ih_fun, ih_arg)
    743   1.9       leo 	pci_chipset_tag_t	pc;
    744   1.9       leo 	pci_intr_handle_t	ih;
    745   1.9       leo 	int			level;
    746   1.9       leo 	int			(*ih_fun) __P((void *));
    747   1.9       leo 	void			*ih_arg;
    748   1.9       leo {
    749   1.9       leo 	pci_intr_info_t *iinfo_p;
    750   1.9       leo 	struct intrhand	*ihand;
    751   1.9       leo 	int		slot;
    752   1.9       leo 
    753   1.9       leo 	slot    = ih;
    754   1.9       leo 	iinfo_p = &iinfo[slot];
    755   1.9       leo 
    756   1.9       leo 	if (iinfo_p->ipl > 0)
    757   1.9       leo 	    panic("pci_intr_establish: interrupt was already established\n");
    758   1.9       leo 
    759   1.9       leo 	ihand = intr_establish((slot == 3) ? 23 : 16 + slot, USER_VEC, 0,
    760   1.9       leo 				(hw_ifun_t)iifun, (void *)slot);
    761   1.9       leo 	if (ihand != NULL) {
    762   1.9       leo 		iinfo_p->ipl   = level;
    763   1.9       leo 		iinfo_p->imask = (slot == 3) ? 0x80 : (0x01 << slot);
    764   1.9       leo 		iinfo_p->ifunc = ih_fun;
    765   1.9       leo 		iinfo_p->iarg  = ih_arg;
    766   1.9       leo 		iinfo_p->ihand = ihand;
    767   1.9       leo 
    768   1.9       leo 		/*
    769   1.9       leo 		 * Enable (unmask) the interrupt
    770   1.9       leo 		 */
    771   1.9       leo 		MFP2->mf_imrb |= iinfo_p->imask;
    772   1.9       leo 		MFP2->mf_ierb |= iinfo_p->imask;
    773   1.9       leo 		return(iinfo_p);
    774   1.9       leo 	}
    775   1.1       leo 	return NULL;
    776   1.1       leo }
    777   1.1       leo 
    778   1.1       leo void
    779   1.1       leo pci_intr_disestablish(pc, cookie)
    780   1.1       leo 	pci_chipset_tag_t pc;
    781   1.1       leo 	void *cookie;
    782   1.1       leo {
    783   1.9       leo 	pci_intr_info_t *iinfo_p = (pci_intr_info_t *)cookie;
    784   1.9       leo 
    785   1.9       leo 	if (iinfo->ipl < 0)
    786   1.9       leo 	    panic("pci_intr_disestablish: interrupt was not established\n");
    787   1.9       leo 
    788   1.9       leo 	MFP2->mf_imrb &= ~iinfo->imask;
    789   1.9       leo 	MFP2->mf_ierb &= ~iinfo->imask;
    790   1.9       leo 	(void) intr_disestablish(iinfo_p->ihand);
    791   1.9       leo 	iinfo_p->ipl = -1;
    792   1.1       leo }
    793