1 /* $NetBSD: pci_milan.c,v 1.12 2009/03/16 23:11:10 dsl Exp $ */ 2 3 /*- 4 * Copyright (c) 2001 The NetBSD Foundation, Inc. 5 * All rights reserved. 6 * 7 * This code is derived from software contributed to The NetBSD Foundation 8 * by Leo Weppelman. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 29 * POSSIBILITY OF SUCH DAMAGE. 30 */ 31 32 #include <sys/cdefs.h> 33 __KERNEL_RCSID(0, "$NetBSD: pci_milan.c,v 1.12 2009/03/16 23:11:10 dsl Exp $"); 34 35 #include <sys/types.h> 36 #include <sys/param.h> 37 #include <sys/systm.h> 38 #include <sys/device.h> 39 40 #include <dev/pci/pcivar.h> 41 #include <dev/pci/pcireg.h> 42 43 #include <dev/isa/isavar.h> /* isa_intr_{dis}establish */ 44 #include <dev/isa/isareg.h> /* isa_intr_{dis}establish */ 45 46 #include <sys/bswap.h> 47 #include <machine/isa_machdep.h> /* isa_intr_{dis}establish */ 48 49 #include <atari/pci/pci_vga.h> 50 #include <atari/dev/grf_etreg.h> 51 52 int 53 pci_bus_maxdevs(pci_chipset_tag_t pc, int busno) 54 { 55 return (6); 56 } 57 58 /* 59 * These are defined in locore.s: 60 */ 61 pcireg_t milan_pci_confread(pcitag_t); 62 void milan_pci_confwrite(u_long, pcireg_t); 63 u_long plx_status; 64 65 pcireg_t 66 pci_conf_read(pci_chipset_tag_t pc, pcitag_t tag, int reg) 67 { 68 u_long data; 69 70 data = bswap32(milan_pci_confread(tag | reg)); 71 if ((plx_status) & 0xf9000000) { 72 /* 73 * Access error, assume nothing there... 74 */ 75 data = 0xffffffff; 76 } 77 return(data); 78 } 79 80 81 void 82 pci_conf_write(pci_chipset_tag_t pc, pcitag_t tag, int reg, pcireg_t data) 83 { 84 milan_pci_confwrite(tag | reg, bswap32(data)); 85 } 86 87 int 88 pci_intr_setattr(pci_chipset_tag_t pc, pci_intr_handle_t *ih, 89 int attr, uint64_t data) 90 { 91 92 switch (attr) { 93 case PCI_INTR_MPSAFE: 94 return 0; 95 default: 96 return ENODEV; 97 } 98 } 99 100 void * 101 pci_intr_establish(pci_chipset_tag_t pc, pci_intr_handle_t ih, int level, int (*ih_fun)(void *), void *ih_arg) 102 { 103 if (ih == 0 || ih >= 16 || ih == 2) 104 panic("pci_intr_establish: bogus handle 0x%x", ih); 105 return isa_intr_establish(NULL, ih, IST_LEVEL, level, ih_fun, ih_arg); 106 } 107 108 void 109 pci_intr_disestablish(pci_chipset_tag_t pc, void *cookie) 110 { 111 isa_intr_disestablish(NULL, cookie); 112 } 113 114 /* 115 * VGA related stuff... 116 * XXX: Currently, you can only boot the Milan through loadbsd.ttp, hence the 117 * text mode ;-) 118 * It looks like the Milan BIOS is initializing the VGA card in a reasonably 119 * standard text mode. However, the screen mode is 640*480 instead of 640*400. 120 * Since wscons does not handle the right by default, the card is reprogrammed 121 * to 640*400 using only 'standard' VGA registers (I hope!). So this ought to 122 * work on cards other than the S3Trio card I have tested it on. 123 */ 124 static u_char crt_tab[] = { 125 0x60, 0x53, 0x4f, 0x14, 0x56, 0x05, 0xc1, 0x1f, 126 0x00, 0x4f, 0x00, 0x0f, 0x00, 0x00, 0x00, 0x00, 127 0x98, 0x3d, 0x8f, 0x28, 0x0f, 0x8f, 0xc1, 0xc3, 128 0xff }; 129 130 /* 131 * XXX: Why are we repeating this everywhere! (Leo) 132 */ 133 #define PCI_LINMEMBASE 0x0e000000 134 135 void 136 milan_vga_init(pci_chipset_tag_t pc, pcitag_t tag, int id, volatile u_char *ba, u_char *fb) 137 { 138 int i, csr; 139 140 /* Turn on the card */ 141 pci_conf_write(pc, tag, PCI_MAPREG_START, PCI_LINMEMBASE); 142 csr = pci_conf_read(pc, tag, PCI_COMMAND_STATUS_REG); 143 csr |= (PCI_COMMAND_MEM_ENABLE|PCI_COMMAND_IO_ENABLE); 144 csr |= PCI_COMMAND_MASTER_ENABLE; 145 pci_conf_write(pc, tag, PCI_COMMAND_STATUS_REG, csr); 146 147 /* 148 * Make sure we're allowed to write all crt-registers and reload them. 149 */ 150 WCrt(ba, CRT_ID_END_VER_RETR, (RCrt(ba, CRT_ID_END_VER_RETR) & 0x7f)); 151 152 for (i = 0; i < 0x18; i++) 153 WCrt(ba, i, crt_tab[i]); 154 155 /* 156 * The Milan has a white border... make it black 157 */ 158 WAttr(ba, 0x11, 0|0x20); 159 } 160