1/* $NetBSD: pci_milan.c,v 1.17 2023/01/06 10:28:28 tsutsui 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.17 2023/01/06 10:28:28 tsutsui 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 52int 53pci_bus_maxdevs(pci_chipset_tag_t pc, int busno) 54{ 55 56 return 6; 57} 58 59/* 60 * These are defined in locore.s: 61 */ 62pcireg_t milan_pci_confread(pcitag_t); 63void milan_pci_confwrite(uint32_t, pcireg_t); 64extern uint32_t plx_status; 65 66pcireg_t 67pci_conf_read(pci_chipset_tag_t pc, pcitag_t tag, int reg) 68{ 69 uint32_t data; 70 71 if ((uint32_t)reg >= PCI_CONF_SIZE) 72 return 0xffffffff; 73 74 data = bswap32(milan_pci_confread(tag | reg)); 75 if ((plx_status & 0xf9000000) != 0) { 76 /* 77 * Access error, assume nothing there... 78 */ 79 data = 0xffffffff; 80 } 81 return data; 82} 83 84 85void 86pci_conf_write(pci_chipset_tag_t pc, pcitag_t tag, int reg, pcireg_t data) 87{ 88 89 if ((uint32_t)reg >= PCI_CONF_SIZE) 90 return; 91 92 milan_pci_confwrite(tag | reg, bswap32(data)); 93} 94 95int 96pci_intr_setattr(pci_chipset_tag_t pc, pci_intr_handle_t *ih, int attr, 97 uint64_t data) 98{ 99 100 switch (attr) { 101 case PCI_INTR_MPSAFE: 102 return 0; 103 default: 104 return ENODEV; 105 } 106} 107 108void * 109pci_intr_establish(pci_chipset_tag_t pc, pci_intr_handle_t ih, int level, 110 int (*ih_fun)(void *), void *ih_arg) 111{ 112 113 if (ih == 0 || ih >= 16 || ih == 2) 114 panic("pci_intr_establish: bogus handle 0x%x", ih); 115 return isa_intr_establish(NULL, ih, IST_LEVEL, level, ih_fun, ih_arg); 116} 117 118void 119pci_intr_disestablish(pci_chipset_tag_t pc, void *cookie) 120{ 121 122 isa_intr_disestablish(NULL, cookie); 123} 124 125/* 126 * VGA related stuff... 127 * 128 * It looks like the Milan BIOS is initializing the VGA card in a reasonably 129 * standard text mode. However, the screen mode is 640*480 instead of 640*400. 130 * Since wscons does not handle the right by default, the card is reprogrammed 131 * to 640*400 using only 'standard' VGA registers (I hope!). So this ought to 132 * work on cards other than the S3Trio card I have tested it on. 133 */ 134static const uint8_t crt_tab[] = { 135 /* taken from vga_crtc[] in sys/dev/ic/vga_subr.c */ 136 0x5f, /* 00: horizontal total */ 137 0x4f, /* 01: horizontal display-enable end */ 138 0x50, /* 02: start horizontal blanking */ 139 0x82, /* 03: display skew control / end horizontal blanking */ 140 0x55, /* 04: start horizontal retrace pulse */ 141 0x81, /* 05: horizontal retrace delay / end horizontal retrace */ 142 0xbf, /* 06: vertical total */ 143 0x1f, /* 07: overflow register */ 144 0x00, /* 08: preset row scan */ 145 0x4f, /* 09: overflow / maximum scan line */ 146 0x0d, /* 0A: cursor off / cursor start */ 147 0x0e, /* 0B: cursor skew / cursor end */ 148 0x00, /* 0C: start regenerative buffer address high */ 149 0x00, /* 0D: start regenerative buffer address low */ 150 0x00, /* 0E: cursor location high */ 151 0x00, /* 0F: cursor location low */ 152 0x9c, /* 10: vertical retrace start */ 153 0x8e, /* 11: vertical interrupt / vertical retrace end */ 154 0x8f, /* 12: vertical display enable end */ 155 0x28, /* 13: logical line width */ 156 0x00, /* 14: underline location */ 157 0x96, /* 15: start vertical blanking */ 158 0xb9, /* 16: end vertical blanking */ 159 0xa3, /* 17: CRT mode control */ 160 0xff /* 18: line compare */ 161}; 162 163/* 164 * XXX: Why are we repeating this everywhere! (Leo) 165 */ 166#define PCI_LINMEMBASE 0x0e000000 167 168void 169milan_vga_init(pci_chipset_tag_t pc, pcitag_t tag, int id, 170 volatile uint8_t *ba, uint8_t *fb) 171{ 172 uint32_t csr; 173 int i; 174 175 /* Turn on the card */ 176 pci_conf_write(pc, tag, PCI_MAPREG_START, PCI_LINMEMBASE); 177 csr = pci_conf_read(pc, tag, PCI_COMMAND_STATUS_REG); 178 csr |= (PCI_COMMAND_MEM_ENABLE|PCI_COMMAND_IO_ENABLE); 179 csr |= PCI_COMMAND_MASTER_ENABLE; 180 pci_conf_write(pc, tag, PCI_COMMAND_STATUS_REG, csr); 181 182 /* 183 * Make sure we're allowed to write all crt-registers and reload them. 184 */ 185 WCrt(ba, CRT_ID_END_VER_RETR, (RCrt(ba, CRT_ID_END_VER_RETR) & 0x7f)); 186 187 for (i = 0; i < 0x18; i++) 188 WCrt(ba, i, crt_tab[i]); 189 190 /* 191 * The Milan has a white border... make it black 192 */ 193 WAttr(ba, 0x11, 0|0x20); 194} 195