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