1 /* $OpenBSD: bwtwo.c,v 1.19 2013/10/20 20:07:30 miod Exp $ */ 2 3 /* 4 * Copyright (c) 2002 Jason L. Wright (jason@thought.net) 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 17 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 18 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 19 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, 20 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 21 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 22 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 24 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 25 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 26 * POSSIBILITY OF SUCH DAMAGE. 27 * 28 * Effort sponsored in part by the Defense Advanced Research Projects 29 * Agency (DARPA) and Air Force Research Laboratory, Air Force 30 * Materiel Command, USAF, under agreement number F30602-01-2-0537. 31 * 32 */ 33 34 #include <sys/param.h> 35 #include <sys/systm.h> 36 #include <sys/kernel.h> 37 #include <sys/errno.h> 38 #include <sys/device.h> 39 #include <sys/ioctl.h> 40 #include <sys/malloc.h> 41 42 #include <machine/bus.h> 43 #include <machine/intr.h> 44 #include <machine/autoconf.h> 45 #include <machine/openfirm.h> 46 47 #include <dev/sbus/sbusvar.h> 48 #include <dev/wscons/wsconsio.h> 49 #include <dev/wscons/wsdisplayvar.h> 50 #include <dev/rasops/rasops.h> 51 #include <machine/fbvar.h> 52 53 #define BWTWO_CTRL_OFFSET 0x400000 54 #define BWTWO_CTRL_SIZE (sizeof(u_int32_t) * 8) 55 #define BWTWO_VID_OFFSET 0x800000 56 #define BWTWO_VID_SIZE (1024 * 1024) 57 58 #define FBC_CTRL 0x10 /* control */ 59 #define FBC_STAT 0x11 /* status */ 60 #define FBC_START 0x12 /* cursor start */ 61 #define FBC_END 0x13 /* cursor end */ 62 #define FBC_VCTRL 0x14 /* 12 bytes of timing goo */ 63 64 #define FBC_CTRL_IENAB 0x80 /* interrupt enable */ 65 #define FBC_CTRL_VENAB 0x40 /* video enable */ 66 #define FBC_CTRL_TIME 0x20 /* timing enable */ 67 #define FBC_CTRL_CURS 0x10 /* cursor compare enable */ 68 #define FBC_CTRL_XTAL 0x0c /* xtal select (0,1,2,test): */ 69 #define FBC_CTRL_XTAL_0 0x00 /* 0 */ 70 #define FBC_CTRL_XTAL_1 0x04 /* 0 */ 71 #define FBC_CTRL_XTAL_2 0x08 /* 0 */ 72 #define FBC_CTRL_XTAL_TEST 0x0c /* 0 */ 73 #define FBC_CTRL_DIV 0x03 /* divisor (1,2,3,4): */ 74 #define FBC_CTRL_DIV_1 0x00 /* / 1 */ 75 #define FBC_CTRL_DIV_2 0x01 /* / 2 */ 76 #define FBC_CTRL_DIV_3 0x02 /* / 3 */ 77 #define FBC_CTRL_DIV_4 0x03 /* / 4 */ 78 79 #define FBC_STAT_INTR 0x80 /* interrupt pending */ 80 #define FBC_STAT_RES 0x70 /* monitor sense: */ 81 #define FBC_STAT_RES_1024 0x10 /* 1024x768 */ 82 #define FBC_STAT_RES_1280 0x40 /* 1280x1024 */ 83 #define FBC_STAT_RES_1152 0x30 /* 1152x900 */ 84 #define FBC_STAT_RES_1152A 0x40 /* 1152x900x76, A */ 85 #define FBC_STAT_RES_1600 0x50 /* 1600x1200 */ 86 #define FBC_STAT_RES_1152B 0x60 /* 1152x900x86, B */ 87 #define FBC_STAT_ID 0x0f /* id mask: */ 88 #define FBC_STAT_ID_COLOR 0x01 /* color */ 89 #define FBC_STAT_ID_MONO 0x02 /* monochrome */ 90 #define FBC_STAT_ID_MONOECL 0x03 /* monochrome, ecl */ 91 92 #define FBC_READ(sc, reg) \ 93 bus_space_read_1((sc)->sc_bustag, (sc)->sc_ctrl_regs, (reg)) 94 #define FBC_WRITE(sc, reg, val) \ 95 bus_space_write_1((sc)->sc_bustag, (sc)->sc_ctrl_regs, (reg), (val)) 96 97 struct bwtwo_softc { 98 struct sunfb sc_sunfb; 99 bus_space_tag_t sc_bustag; 100 bus_addr_t sc_paddr; 101 bus_space_handle_t sc_ctrl_regs; 102 bus_space_handle_t sc_vid_regs; 103 int sc_nscreens; 104 }; 105 106 int bwtwo_ioctl(void *, u_long, caddr_t, int, struct proc *); 107 paddr_t bwtwo_mmap(void *, off_t, int); 108 int bwtwo_is_console(int); 109 void bwtwo_burner(void *, u_int, u_int); 110 111 struct wsdisplay_accessops bwtwo_accessops = { 112 .ioctl = bwtwo_ioctl, 113 .mmap = bwtwo_mmap, 114 .burn_screen = bwtwo_burner 115 }; 116 117 int bwtwomatch(struct device *, void *, void *); 118 void bwtwoattach(struct device *, struct device *, void *); 119 120 struct cfattach bwtwo_ca = { 121 sizeof (struct bwtwo_softc), bwtwomatch, bwtwoattach 122 }; 123 124 struct cfdriver bwtwo_cd = { 125 NULL, "bwtwo", DV_DULL 126 }; 127 128 int 129 bwtwomatch(parent, vcf, aux) 130 struct device *parent; 131 void *vcf, *aux; 132 { 133 struct cfdata *cf = vcf; 134 struct sbus_attach_args *sa = aux; 135 136 return (strcmp(cf->cf_driver->cd_name, sa->sa_name) == 0); 137 } 138 139 void 140 bwtwoattach(parent, self, aux) 141 struct device *parent, *self; 142 void *aux; 143 { 144 struct bwtwo_softc *sc = (struct bwtwo_softc *)self; 145 struct sbus_attach_args *sa = aux; 146 int node, console; 147 const char *nam; 148 149 node = sa->sa_node; 150 sc->sc_bustag = sa->sa_bustag; 151 sc->sc_paddr = sbus_bus_addr(sa->sa_bustag, sa->sa_slot, sa->sa_offset); 152 153 fb_setsize(&sc->sc_sunfb, 1, 1152, 900, node, 0); 154 155 if (sa->sa_nreg != 1) { 156 printf(": expected %d registers, got %d\n", 1, sa->sa_nreg); 157 goto fail; 158 } 159 160 /* 161 * Map just CTRL and video RAM. 162 */ 163 if (sbus_bus_map(sa->sa_bustag, sa->sa_reg[0].sbr_slot, 164 sa->sa_reg[0].sbr_offset + BWTWO_CTRL_OFFSET, 165 BWTWO_CTRL_SIZE, 0, 0, &sc->sc_ctrl_regs) != 0) { 166 printf(": cannot map ctrl registers\n"); 167 goto fail_ctrl; 168 } 169 170 if (sbus_bus_map(sa->sa_bustag, sa->sa_reg[0].sbr_slot, 171 sa->sa_reg[0].sbr_offset + BWTWO_VID_OFFSET, 172 sc->sc_sunfb.sf_fbsize, BUS_SPACE_MAP_LINEAR, 173 0, &sc->sc_vid_regs) != 0) { 174 printf(": cannot map vid registers\n"); 175 goto fail_vid; 176 } 177 178 nam = getpropstring(node, "model"); 179 if (*nam == '\0') 180 nam = sa->sa_name; 181 printf(": %s", nam); 182 183 console = bwtwo_is_console(node); 184 185 bwtwo_burner(sc, 1, 0); 186 187 printf(", %dx%d\n", sc->sc_sunfb.sf_width, sc->sc_sunfb.sf_height); 188 189 sc->sc_sunfb.sf_ro.ri_bits = (void *)bus_space_vaddr(sc->sc_bustag, 190 sc->sc_vid_regs); 191 sc->sc_sunfb.sf_ro.ri_hw = sc; 192 fbwscons_init(&sc->sc_sunfb, 0, console); 193 194 if (console) 195 fbwscons_console_init(&sc->sc_sunfb, -1); 196 197 fbwscons_attach(&sc->sc_sunfb, &bwtwo_accessops, console); 198 199 return; 200 201 fail_vid: 202 bus_space_unmap(sa->sa_bustag, sc->sc_ctrl_regs, BWTWO_CTRL_SIZE); 203 fail_ctrl: 204 fail: 205 ; 206 } 207 208 int 209 bwtwo_ioctl(v, cmd, data, flags, p) 210 void *v; 211 u_long cmd; 212 caddr_t data; 213 int flags; 214 struct proc *p; 215 { 216 struct bwtwo_softc *sc = v; 217 struct wsdisplay_fbinfo *wdf; 218 219 switch (cmd) { 220 case WSDISPLAYIO_GTYPE: 221 *(u_int *)data = WSDISPLAY_TYPE_SUNBW; 222 break; 223 case WSDISPLAYIO_GINFO: 224 wdf = (void *)data; 225 wdf->height = sc->sc_sunfb.sf_height; 226 wdf->width = sc->sc_sunfb.sf_width; 227 wdf->depth = sc->sc_sunfb.sf_depth; 228 wdf->cmsize = 0; 229 break; 230 case WSDISPLAYIO_LINEBYTES: 231 *(u_int *)data = sc->sc_sunfb.sf_linebytes; 232 break; 233 234 case WSDISPLAYIO_GETCMAP: 235 case WSDISPLAYIO_PUTCMAP: 236 break; 237 238 case WSDISPLAYIO_SVIDEO: 239 case WSDISPLAYIO_GVIDEO: 240 break; 241 242 case WSDISPLAYIO_GCURPOS: 243 case WSDISPLAYIO_SCURPOS: 244 case WSDISPLAYIO_GCURMAX: 245 case WSDISPLAYIO_GCURSOR: 246 case WSDISPLAYIO_SCURSOR: 247 default: 248 return -1; /* not supported yet */ 249 } 250 251 return (0); 252 } 253 254 paddr_t 255 bwtwo_mmap(v, offset, prot) 256 void *v; 257 off_t offset; 258 int prot; 259 { 260 struct bwtwo_softc *sc = v; 261 262 if (offset & PGOFSET) 263 return (-1); 264 265 if (offset >= 0 && offset < sc->sc_sunfb.sf_fbsize) 266 return (bus_space_mmap(sc->sc_bustag, sc->sc_paddr, 267 BWTWO_VID_OFFSET + offset, prot, BUS_SPACE_MAP_LINEAR)); 268 269 return (-1); 270 } 271 272 int 273 bwtwo_is_console(node) 274 int node; 275 { 276 extern int fbnode; 277 278 return (fbnode == node); 279 } 280 281 void 282 bwtwo_burner(vsc, on, flags) 283 void *vsc; 284 u_int on, flags; 285 { 286 struct bwtwo_softc *sc = vsc; 287 int s; 288 u_int8_t fbc; 289 290 s = splhigh(); 291 fbc = FBC_READ(sc, FBC_CTRL); 292 if (on) 293 fbc |= FBC_CTRL_VENAB | FBC_CTRL_TIME; 294 else { 295 fbc &= ~FBC_CTRL_VENAB; 296 if (flags & WSDISPLAY_BURN_VBLANK) 297 fbc &= ~FBC_CTRL_TIME; 298 } 299 FBC_WRITE(sc, FBC_CTRL, fbc); 300 splx(s); 301 } 302