1 /* $OpenBSD: agten.c,v 1.9 2008/12/27 17:23:03 miod Exp $ */ 2 /* 3 * Copyright (c) 2002, 2003, Miodrag Vallat. 4 * All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 15 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 17 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 18 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, 19 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 20 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 21 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 22 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 23 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 24 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 25 * POSSIBILITY OF SUCH DAMAGE. 26 * 27 */ 28 29 /* 30 * Fujitsu AG-10 framebuffer driver. 31 * 32 * The AG-10 is mostly made of: 33 * - a 3DLabs 300SX Glint chip, with two 6MB independent framebuffer spaces 34 * - a Number Nine Imagine 128 chip with its own 4MB framebuffer space 35 * - a Weitek P9100 with its own 2MB of framebuffer memory 36 * - an IBM PaletteDAC 561 ramdac 37 * - an Analog Devices ADSP-21062 38 * 39 * All of these chips (memory, registers, etc) are mapped in the SBus 40 * memory space associated to the board. What is unexpected, however, is 41 * that there are also PCI registers mappings for the first three chips! 42 * 43 * The three graphics chips act as overlays of each other, for the final 44 * video output. 45 * 46 * The PROM initialization will use the I128 framebuffer memory for output, 47 * which is ``above'' the P9100. The P9100 seems to only be there to provide 48 * a simple RAMDAC interface, but its frame buffer memory is accessible and 49 * will appear as an ``underlay'' plane. 50 */ 51 52 /* 53 * TODO 54 * - initialize the I128 in 32bit mode 55 * - use the i128 acceleration features 56 */ 57 58 #include <sys/param.h> 59 #include <sys/systm.h> 60 #include <sys/buf.h> 61 #include <sys/device.h> 62 #include <sys/ioctl.h> 63 #include <sys/malloc.h> 64 #include <sys/mman.h> 65 #include <sys/tty.h> 66 #include <sys/conf.h> 67 68 #include <uvm/uvm_extern.h> 69 70 #include <machine/autoconf.h> 71 #include <machine/pmap.h> 72 #include <machine/cpu.h> 73 #include <machine/conf.h> 74 75 #include <dev/wscons/wsconsio.h> 76 #include <dev/wscons/wsdisplayvar.h> 77 #include <dev/rasops/rasops.h> 78 #include <machine/fbvar.h> 79 80 #include <dev/ic/p9000.h> 81 #include <dev/ic/ibm561reg.h> 82 83 #include <dev/sbus/sbusvar.h> 84 85 struct agten_cmap { 86 u_int8_t cm_red[256]; 87 u_int8_t cm_green[256]; 88 u_int8_t cm_blue[256]; 89 }; 90 91 /* per-display variables */ 92 struct agten_softc { 93 struct sunfb sc_sunfb; /* common base part */ 94 95 bus_space_tag_t sc_bustag; 96 bus_addr_t sc_paddr; 97 off_t sc_physoffset; /* offset for frame buffer */ 98 99 volatile u_int8_t *sc_p9100; 100 struct agten_cmap sc_cmap; /* shadow color map */ 101 102 volatile u_int32_t *sc_i128_fb; 103 104 int sc_nscreens; 105 }; 106 107 int agten_ioctl(void *, u_long, caddr_t, int, struct proc *); 108 paddr_t agten_mmap(void *, off_t, int); 109 void agten_reset(struct agten_softc *); 110 void agten_setcolor(void *, u_int, u_int8_t, u_int8_t, u_int8_t); 111 112 static __inline__ void ibm561_write(struct agten_softc *, u_int32_t, u_int32_t); 113 int agten_getcmap(struct agten_cmap *, struct wsdisplay_cmap *); 114 int agten_putcmap(struct agten_cmap *, struct wsdisplay_cmap *); 115 void agten_loadcmap(struct agten_softc *, u_int, u_int); 116 117 struct wsdisplay_accessops agten_accessops = { 118 agten_ioctl, 119 agten_mmap, 120 NULL, /* alloc_screen */ 121 NULL, /* free_screen */ 122 NULL, /* show_screen */ 123 NULL, /* load_font */ 124 NULL, /* scrollback */ 125 NULL, /* getchar */ 126 NULL, /* burner */ 127 }; 128 129 int agtenmatch(struct device *, void *, void *); 130 void agtenattach(struct device *, struct device *, void *); 131 132 struct cfattach agten_ca = { 133 sizeof(struct agten_softc), agtenmatch, agtenattach 134 }; 135 136 struct cfdriver agten_cd = { 137 NULL, "agten", DV_DULL 138 }; 139 140 int 141 agtenmatch(struct device *parent, void *vcf, void *aux) 142 { 143 struct sbus_attach_args *sa = aux; 144 145 if (strcmp(sa->sa_name, "PFU,aga") != 0) 146 return (0); 147 148 return (1); 149 } 150 151 void 152 agtenattach(struct device *parent, struct device *self, void *args) 153 { 154 struct agten_softc *sc = (struct agten_softc *)self; 155 struct sbus_attach_args *sa = args; 156 bus_space_tag_t bt; 157 bus_space_handle_t bh; 158 int node, isconsole; 159 char *nam; 160 161 bt = sa->sa_bustag; 162 node = sa->sa_node; 163 nam = getpropstring(node, "model"); 164 printf(": model %s", nam); 165 166 isconsole = node == fbnode; 167 168 /* 169 * Map the various beasts of this card we are interested in. 170 */ 171 172 sc->sc_bustag = bt; 173 sc->sc_paddr = sbus_bus_addr(bt, sa->sa_slot, sa->sa_offset); 174 175 sc->sc_physoffset = 176 (off_t)getpropint(node, "i128_fb_physaddr", 0x8000000); 177 178 if (sbus_bus_map(bt, sa->sa_slot, sa->sa_offset + sc->sc_physoffset, 179 getpropint(node, "i128_fb_size", 0x400000), BUS_SPACE_MAP_LINEAR, 180 0, &bh) != 0) { 181 printf("\n%s: couldn't map video memory\n", self->dv_xname); 182 return; 183 } 184 sc->sc_i128_fb = bus_space_vaddr(bt, bh); 185 if (sbus_bus_map(bt, sa->sa_slot, sa->sa_offset + 186 getpropint(node, "p9100_reg_physaddr", 0x10a0000), 0x4000, 187 BUS_SPACE_MAP_LINEAR, 0, &bh) != 0) { 188 printf("\n%s: couldn't map control registers\n", self->dv_xname); 189 return; 190 } 191 sc->sc_p9100 = bus_space_vaddr(bt, bh); 192 193 /* 194 * For some reason the agten does not use the canonical name for 195 * properties, but uses an ffb_ prefix; and the linebytes property is 196 * missing. 197 * The following is a specific version of 198 * fb_setsize(&sc->sc_sunfb, 8, 1152, 900, node, BUS_SBUS); 199 * using the correct property names. 200 */ 201 #ifdef notyet 202 sc->sc_sunfb.sf_depth = 32; 203 #else 204 sc->sc_sunfb.sf_depth = getpropint(node, "ffb_depth", 8); 205 #endif 206 sc->sc_sunfb.sf_width = getpropint(node, "ffb_width", 1152); 207 sc->sc_sunfb.sf_height = getpropint(node, "ffb_height", 900); 208 sc->sc_sunfb.sf_linebytes = 209 roundup(sc->sc_sunfb.sf_width, sc->sc_sunfb.sf_depth) * 210 sc->sc_sunfb.sf_depth / 8; 211 sc->sc_sunfb.sf_fbsize = 212 sc->sc_sunfb.sf_height * sc->sc_sunfb.sf_linebytes; 213 214 printf(", %dx%d, depth %d\n", 215 sc->sc_sunfb.sf_width, sc->sc_sunfb.sf_height, 216 sc->sc_sunfb.sf_depth); 217 218 sc->sc_sunfb.sf_ro.ri_bits = (void *)sc->sc_i128_fb; 219 220 sc->sc_sunfb.sf_ro.ri_hw = sc; 221 fbwscons_init(&sc->sc_sunfb, 0, isconsole); 222 fbwscons_setcolormap(&sc->sc_sunfb, agten_setcolor); 223 224 if (isconsole) 225 fbwscons_console_init(&sc->sc_sunfb, -1); 226 227 fbwscons_attach(&sc->sc_sunfb, &agten_accessops, isconsole); 228 } 229 230 int 231 agten_ioctl(dev, cmd, data, flags, p) 232 void *dev; 233 u_long cmd; 234 caddr_t data; 235 int flags; 236 struct proc *p; 237 { 238 struct agten_softc *sc = dev; 239 struct wsdisplay_cmap *cm; 240 struct wsdisplay_fbinfo *wdf; 241 int error; 242 243 switch (cmd) { 244 case WSDISPLAYIO_GTYPE: 245 *(u_int *)data = WSDISPLAY_TYPE_AGTEN; 246 break; 247 case WSDISPLAYIO_GINFO: 248 wdf = (struct wsdisplay_fbinfo *)data; 249 wdf->height = sc->sc_sunfb.sf_height; 250 wdf->width = sc->sc_sunfb.sf_width; 251 wdf->depth = sc->sc_sunfb.sf_depth; 252 wdf->cmsize = (sc->sc_sunfb.sf_depth == 8) ? 256 : 0; 253 break; 254 case WSDISPLAYIO_LINEBYTES: 255 *(u_int *)data = sc->sc_sunfb.sf_linebytes; 256 break; 257 258 case WSDISPLAYIO_GETCMAP: 259 if (sc->sc_sunfb.sf_depth == 8) { 260 cm = (struct wsdisplay_cmap *)data; 261 error = agten_getcmap(&sc->sc_cmap, cm); 262 if (error) 263 return (error); 264 } 265 break; 266 case WSDISPLAYIO_PUTCMAP: 267 if (sc->sc_sunfb.sf_depth == 8) { 268 cm = (struct wsdisplay_cmap *)data; 269 error = agten_putcmap(&sc->sc_cmap, cm); 270 if (error) 271 return (error); 272 agten_loadcmap(sc, 0, 256); 273 } 274 break; 275 276 case WSDISPLAYIO_SVIDEO: 277 case WSDISPLAYIO_GVIDEO: 278 break; 279 280 case WSDISPLAYIO_GCURPOS: 281 case WSDISPLAYIO_SCURPOS: 282 case WSDISPLAYIO_GCURMAX: 283 case WSDISPLAYIO_GCURSOR: 284 case WSDISPLAYIO_SCURSOR: 285 default: 286 return (-1); /* not supported yet */ 287 } 288 289 return (0); 290 } 291 292 /* 293 * Return the address that would map the given device at the given 294 * offset, allowing for the given protection, or return -1 for error. 295 */ 296 paddr_t 297 agten_mmap(v, offset, prot) 298 void *v; 299 off_t offset; 300 int prot; 301 { 302 struct agten_softc *sc = v; 303 304 if (offset & PGOFSET) 305 return (-1); 306 307 /* Allow mapping as a dumb framebuffer from offset 0 */ 308 if (offset >= 0 && offset < sc->sc_sunfb.sf_fbsize) { 309 return (bus_space_mmap(sc->sc_bustag, sc->sc_paddr, 310 sc->sc_physoffset + offset, prot, BUS_SPACE_MAP_LINEAR)); 311 } 312 313 return (-1); /* not a user-map offset */ 314 } 315 316 void 317 agten_setcolor(v, index, r, g, b) 318 void *v; 319 u_int index; 320 u_int8_t r, g, b; 321 { 322 struct agten_softc *sc = v; 323 324 sc->sc_cmap.cm_red[index] = r; 325 sc->sc_cmap.cm_green[index] = g; 326 sc->sc_cmap.cm_blue[index] = b; 327 328 agten_loadcmap(sc, index, 1); 329 } 330 331 int 332 agten_getcmap(struct agten_cmap *cm, struct wsdisplay_cmap *rcm) 333 { 334 u_int index = rcm->index, count = rcm->count; 335 int error; 336 337 if (index >= 256 || count > 256 - index) 338 return (EINVAL); 339 340 if ((error = copyout(&cm->cm_red[index], rcm->red, count)) != 0) 341 return (error); 342 if ((error = copyout(&cm->cm_green[index], rcm->green, count)) != 0) 343 return (error); 344 if ((error = copyout(&cm->cm_blue[index], rcm->blue, count)) != 0) 345 return (error); 346 347 return (0); 348 } 349 350 int 351 agten_putcmap(struct agten_cmap *cm, struct wsdisplay_cmap *rcm) 352 { 353 u_int index = rcm->index, count = rcm->count; 354 int error; 355 356 if (index >= 256 || count > 256 - index) 357 return (EINVAL); 358 359 if ((error = copyin(rcm->red, &cm->cm_red[index], count)) != 0) 360 return (error); 361 if ((error = copyin(rcm->green, &cm->cm_green[index], count)) != 0) 362 return (error); 363 if ((error = copyin(rcm->blue, &cm->cm_blue[index], count)) != 0) 364 return (error); 365 366 return (0); 367 } 368 369 static __inline__ void 370 ibm561_write(struct agten_softc *sc, u_int32_t reg, u_int32_t value) 371 { 372 /* 373 * For some design reason the IBM561 PaletteDac needs to be fed 374 * values shifted left by 16 bits. What happened to simplicity? 375 */ 376 *(volatile u_int32_t *)(sc->sc_p9100 + P9100_RAMDAC_REGISTER(reg)) = 377 (value) << 16; 378 } 379 380 void 381 agten_loadcmap(struct agten_softc *sc, u_int start, u_int ncolors) 382 { 383 int i; 384 u_int8_t *red, *green, *blue; 385 386 ibm561_write(sc, IBM561_ADDR_LOW, 387 (IBM561_CMAP_TABLE + start) & 0xff); 388 ibm561_write(sc, IBM561_ADDR_HIGH, 389 ((IBM561_CMAP_TABLE + start) >> 8) & 0xff); 390 391 red = sc->sc_cmap.cm_red; 392 green = sc->sc_cmap.cm_green; 393 blue = sc->sc_cmap.cm_blue; 394 for (i = start; i < start + ncolors; i++) { 395 ibm561_write(sc, IBM561_CMD_CMAP, *red++); 396 ibm561_write(sc, IBM561_CMD_CMAP, *green++); 397 ibm561_write(sc, IBM561_CMD_CMAP, *blue++); 398 } 399 } 400