Home | History | Annotate | Line # | Download | only in dev
gftfb.c revision 1.1
      1 /*	$NetBSD: gftfb.c,v 1.1 2024/02/13 13:40:13 macallan Exp $	*/
      2 
      3 /*	$OpenBSD: sti_pci.c,v 1.7 2009/02/06 22:51:04 miod Exp $	*/
      4 
      5 /*
      6  * Copyright (c) 2006, 2007 Miodrag Vallat.
      7  *
      8  * Permission to use, copy, modify, and distribute this software for any
      9  * purpose with or without fee is hereby granted, provided that the above
     10  * copyright notice, this permission notice, and the disclaimer below
     11  * appear in all copies.
     12  *
     13  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
     14  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
     15  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
     16  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
     17  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
     18  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
     19  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
     20  */
     21 
     22 #include <sys/param.h>
     23 #include <sys/systm.h>
     24 #include <sys/kmem.h>
     25 #include <sys/device.h>
     26 
     27 #include <dev/pci/pcivar.h>
     28 #include <dev/pci/pcireg.h>
     29 #include <dev/pci/pcidevs.h>
     30 #include <dev/pci/pciio.h>
     31 
     32 #include <dev/wscons/wsdisplayvar.h>
     33 #include <dev/wscons/wsconsio.h>
     34 #include <dev/wsfont/wsfont.h>
     35 #include <dev/rasops/rasops.h>
     36 #include <dev/wscons/wsdisplay_vconsvar.h>
     37 #include <dev/pci/wsdisplay_pci.h>
     38 #include <dev/wscons/wsdisplay_glyphcachevar.h>
     39 
     40 #include <dev/ic/stireg.h>
     41 #include <dev/ic/stivar.h>
     42 
     43 #ifdef STIDEBUG
     44 #define	DPRINTF(s)	do {	\
     45 	if (stidebug)		\
     46 		printf s;	\
     47 } while(0)
     48 
     49 extern int stidebug;
     50 #else
     51 #define	DPRINTF(s)	/* */
     52 #endif
     53 
     54 int	gftfb_match(device_t, cfdata_t, void *);
     55 void	gftfb_attach(device_t, device_t, void *);
     56 
     57 struct	gftfb_softc {
     58 	device_t		sc_dev;
     59 	pci_chipset_tag_t	sc_pc;
     60 	pcitag_t		sc_tag;
     61 
     62 	/* stuff we need in order to use the STI ROM */
     63 	struct sti_softc	sc_base;
     64 	struct sti_screen 	sc_scr;
     65 	bus_space_handle_t	sc_romh;
     66 
     67 	int sc_width, sc_height;
     68 	int sc_locked;
     69 	struct vcons_screen sc_console_screen;
     70 	struct wsscreen_descr sc_defaultscreen_descr;
     71 	const struct wsscreen_descr *sc_screens[1];
     72 	struct wsscreen_list sc_screenlist;
     73 	struct vcons_data vd;
     74 	int sc_mode;
     75 	u_char sc_cmap_red[256];
     76 	u_char sc_cmap_green[256];
     77 	u_char sc_cmap_blue[256];
     78 	glyphcache sc_gc;
     79 };
     80 
     81 CFATTACH_DECL_NEW(gftfb, sizeof(struct gftfb_softc),
     82     gftfb_match, gftfb_attach, NULL, NULL);
     83 
     84 int	gftfb_readbar(struct sti_softc *, struct pci_attach_args *, u_int, int);
     85 int	gftfb_check_rom(struct gftfb_softc *, struct pci_attach_args *);
     86 void	gftfb_enable_rom(struct sti_softc *);
     87 void	gftfb_disable_rom(struct sti_softc *);
     88 void	gftfb_enable_rom_internal(struct gftfb_softc *);
     89 void	gftfb_disable_rom_internal(struct gftfb_softc *);
     90 
     91 void 	gftfb_setup(struct gftfb_softc *);
     92 void 	gftfb_wait(struct gftfb_softc *);
     93 
     94 #define	ngle_bt458_write(memt, memh, r, v) \
     95 	bus_space_write_stream_4(memt, memh, NGLE_REG_RAMDAC + ((r) << 2), (v) << 24)
     96 
     97 void gftfb_setup_fb(struct gftfb_softc *);
     98 
     99 /* XXX these really need o go into their own header */
    100 int	sti_pci_is_console(struct pci_attach_args *, bus_addr_t *);
    101 int	sti_rom_setup(struct sti_rom *, bus_space_tag_t, bus_space_tag_t,
    102 	    bus_space_handle_t, bus_addr_t *, u_int);
    103 int	sti_screen_setup(struct sti_screen *, int);
    104 void	sti_describe_screen(struct sti_softc *, struct sti_screen *);
    105 
    106 #define PCI_ROM_SIZE(mr)                                                \
    107             (PCI_MAPREG_ROM_ADDR(mr) & -PCI_MAPREG_ROM_ADDR(mr))
    108 
    109 /* wsdisplay stuff */
    110 static int	gftfb_ioctl(void *, void *, u_long, void *, int,
    111 			     struct lwp *);
    112 static paddr_t	gftfb_mmap(void *, void *, off_t, int);
    113 static void	gftfb_init_screen(void *, struct vcons_screen *, int, long *);
    114 
    115 static int	gftfb_putcmap(struct gftfb_softc *, struct wsdisplay_cmap *);
    116 static int 	gftfb_getcmap(struct gftfb_softc *, struct wsdisplay_cmap *);
    117 static void	gftfb_restore_palette(struct gftfb_softc *);
    118 static int 	gftfb_putpalreg(struct gftfb_softc *, uint8_t, uint8_t,
    119 			    uint8_t, uint8_t);
    120 
    121 #if 0
    122 static void	gftfb_rectfill(struct gftfb_softc *, int, int, int, int,
    123 			    uint32_t);
    124 static void	gftfb_bitblt(void *, int, int, int, int, int,
    125 			    int, int);
    126 
    127 static void	gftfb_cursor(void *, int, int, int);
    128 static void	gftfb_putchar(void *, int, int, u_int, long);
    129 static void	gftfb_putchar_aa(void *, int, int, u_int, long);
    130 static void	gftfb_copycols(void *, int, int, int, int);
    131 static void	gftfb_erasecols(void *, int, int, int, long);
    132 static void	gftfb_copyrows(void *, int, int, int);
    133 static void	gftfb_eraserows(void *, int, int, long);
    134 #endif
    135 
    136 struct wsdisplay_accessops gftfb_accessops = {
    137 	gftfb_ioctl,
    138 	gftfb_mmap,
    139 	NULL,	/* alloc_screen */
    140 	NULL,	/* free_screen */
    141 	NULL,	/* show_screen */
    142 	NULL, 	/* load_font */
    143 	NULL,	/* pollc */
    144 	NULL	/* scroll */
    145 };
    146 
    147 int
    148 gftfb_match(device_t parent, cfdata_t cf, void *aux)
    149 {
    150 	struct pci_attach_args *paa = aux;
    151 
    152 	if (PCI_VENDOR(paa->pa_id) != PCI_VENDOR_HP)
    153 		return 0;
    154 
    155 	if (PCI_PRODUCT(paa->pa_id) == PCI_PRODUCT_HP_VISUALIZE_EG)
    156 		return 10;	/* beat out sti at pci */
    157 
    158 	return 0;
    159 }
    160 
    161 void
    162 gftfb_attach(device_t parent, device_t self, void *aux)
    163 {
    164 	struct gftfb_softc *sc = device_private(self);
    165 	struct pci_attach_args *paa = aux;
    166 	struct sti_rom *rom;
    167 	struct rasops_info *ri;
    168 	struct wsemuldisplaydev_attach_args aa;
    169 	unsigned long defattr;
    170 	int ret, is_console = 0, i, j;
    171 	uint8_t cmap[768];
    172 
    173 	sc->sc_dev = self;
    174 
    175 	sc->sc_pc = paa->pa_pc;
    176 	sc->sc_tag = paa->pa_tag;
    177 	sc->sc_base.sc_dev = self;
    178 	sc->sc_base.sc_enable_rom = gftfb_enable_rom;
    179 	sc->sc_base.sc_disable_rom = gftfb_disable_rom;
    180 
    181 	aprint_normal("\n");
    182 
    183 	if (gftfb_check_rom(sc, paa) != 0)
    184 		return;
    185 
    186 	ret = sti_pci_is_console(paa, sc->sc_base. bases);
    187 	if (ret != 0) {
    188 		sc->sc_base.sc_flags |= STI_CONSOLE;
    189 		is_console = 1;
    190 	}
    191 	rom = (struct sti_rom *)kmem_zalloc(sizeof(*rom), KM_SLEEP);
    192 	rom->rom_softc = &sc->sc_base;
    193 	ret = sti_rom_setup(rom, paa->pa_iot, paa->pa_memt, sc->sc_romh, sc->sc_base.bases, STI_CODEBASE_MAIN);
    194 	if (ret != 0) {
    195 		kmem_free(rom, sizeof(*rom));
    196 		return;
    197 	}
    198 
    199 	sc->sc_base.sc_rom = rom;
    200 
    201 	sc->sc_scr.scr_rom = sc->sc_base.sc_rom;
    202 	ret = sti_screen_setup(&sc->sc_scr, STI_FBMODE);
    203 
    204 	sc->sc_width = sc->sc_scr.scr_cfg.scr_width;
    205 	sc->sc_height = sc->sc_scr.scr_cfg.scr_height;
    206 
    207 	aprint_normal_dev(sc->sc_dev, "%s at %dx%d\n", sc->sc_scr.name,
    208 	    sc->sc_width, sc->sc_height);
    209 	gftfb_setup(sc);
    210 
    211 	sc->sc_defaultscreen_descr = (struct wsscreen_descr){
    212 		"default",
    213 		0, 0,
    214 		NULL,
    215 		8, 16,
    216 		WSSCREEN_WSCOLORS | WSSCREEN_HILIT | WSSCREEN_UNDERLINE |
    217 		      WSSCREEN_RESIZE,
    218 		NULL
    219 	};
    220 
    221 	sc->sc_screens[0] = &sc->sc_defaultscreen_descr;
    222 	sc->sc_screenlist = (struct wsscreen_list){1, sc->sc_screens};
    223 	sc->sc_mode = WSDISPLAYIO_MODE_EMUL;
    224 	sc->sc_locked = 0;
    225 
    226 	vcons_init(&sc->vd, sc, &sc->sc_defaultscreen_descr,
    227 	    &gftfb_accessops);
    228 	sc->vd.init_screen = gftfb_init_screen;
    229 	sc->vd.show_screen_cookie = &sc->sc_gc;
    230 	sc->vd.show_screen_cb = glyphcache_adapt;
    231 
    232 	ri = &sc->sc_console_screen.scr_ri;
    233 
    234 #if 0
    235 	sc->sc_gc.gc_bitblt = gftfb_bitblt;
    236 	sc->sc_gc.gc_blitcookie = sc;
    237 	sc->sc_gc.gc_rop = 0x0c;
    238 #endif
    239 	if (is_console) {
    240 		vcons_init_screen(&sc->vd, &sc->sc_console_screen, 1,
    241 		    &defattr);
    242 		sc->sc_console_screen.scr_flags |= VCONS_SCREEN_IS_STATIC;
    243 
    244 #if 0
    245 		gftfb_rectfill(sc, 0, 0, sc->sc_width, sc->sc_height,
    246 		    ri->ri_devcmap[(defattr >> 16) & 0xff]);
    247 #endif
    248 		sc->sc_defaultscreen_descr.textops = &ri->ri_ops;
    249 		sc->sc_defaultscreen_descr.capabilities = ri->ri_caps;
    250 		sc->sc_defaultscreen_descr.nrows = ri->ri_rows;
    251 		sc->sc_defaultscreen_descr.ncols = ri->ri_cols;
    252 #if 0
    253 		glyphcache_init(&sc->sc_gc, sc->sc_height + 5,
    254 				(0x800000 / sc->sc_stride) - sc->sc_height - 5,
    255 				sc->sc_width,
    256 				ri->ri_font->fontwidth,
    257 				ri->ri_font->fontheight,
    258 				defattr);
    259 #endif
    260 		wsdisplay_cnattach(&sc->sc_defaultscreen_descr, ri, 0, 0,
    261 		    defattr);
    262 		vcons_replay_msgbuf(&sc->sc_console_screen);
    263 	} else {
    264 		/*
    265 		 * since we're not the console we can postpone the rest
    266 		 * until someone actually allocates a screen for us
    267 		 */
    268 		if (sc->sc_console_screen.scr_ri.ri_rows == 0) {
    269 			/* do some minimal setup to avoid weirdnesses later */
    270 			vcons_init_screen(&sc->vd, &sc->sc_console_screen, 1,
    271 			    &defattr);
    272 		} else
    273 			(*ri->ri_ops.allocattr)(ri, 0, 0, 0, &defattr);
    274 #if 0
    275 		glyphcache_init(&sc->sc_gc, sc->sc_height + 5,
    276 				(0x800000 / sc->sc_stride) - sc->sc_height - 5,
    277 				sc->sc_width,
    278 				ri->ri_font->fontwidth,
    279 				ri->ri_font->fontheight,
    280 				defattr);
    281 #endif
    282 	}
    283 
    284 	j = 0;
    285 	rasops_get_cmap(ri, cmap, sizeof(cmap));
    286 	for (i = 0; i < 256; i++) {
    287 		sc->sc_cmap_red[i] = cmap[j];
    288 		sc->sc_cmap_green[i] = cmap[j + 1];
    289 		sc->sc_cmap_blue[i] = cmap[j + 2];
    290 		gftfb_putpalreg(sc, i, cmap[j], cmap[j + 1], cmap[j + 2]);
    291 		j += 3;
    292 	}
    293 
    294 	/* no suspend/resume support yet */
    295 	if (!pmf_device_register(sc->sc_dev, NULL, NULL))
    296 		aprint_error_dev(sc->sc_dev,
    297 		    "couldn't establish power handler\n");
    298 
    299 	aa.console = is_console;
    300 	aa.scrdata = &sc->sc_screenlist;
    301 	aa.accessops = &gftfb_accessops;
    302 	aa.accesscookie = &sc->vd;
    303 
    304 	config_found(sc->sc_dev, &aa, wsemuldisplaydevprint, CFARGS_NONE);
    305 }
    306 
    307 /*
    308  * Grovel the STI ROM image.
    309  */
    310 int
    311 gftfb_check_rom(struct gftfb_softc *spc, struct pci_attach_args *pa)
    312 {
    313 	struct sti_softc *sc = &spc->sc_base;
    314 	pcireg_t address, mask;
    315 	bus_space_handle_t romh;
    316 	bus_size_t romsize, subsize, stiromsize;
    317 	bus_addr_t selected, offs, suboffs;
    318 	uint32_t tmp;
    319 	int i;
    320 	int rc;
    321 
    322 	/* sort of inline sti_pci_enable_rom(sc) */
    323 	address = pci_conf_read(pa->pa_pc, pa->pa_tag, PCI_MAPREG_ROM);
    324 	pci_conf_write(pa->pa_pc, pa->pa_tag, PCI_MAPREG_ROM,
    325 	    ~PCI_MAPREG_ROM_ENABLE);
    326 	mask = pci_conf_read(pa->pa_pc, pa->pa_tag, PCI_MAPREG_ROM);
    327 	address |= PCI_MAPREG_ROM_ENABLE;
    328 	pci_conf_write(pa->pa_pc, pa->pa_tag, PCI_MAPREG_ROM, address);
    329 	sc->sc_flags |= STI_ROM_ENABLED;
    330 	/*
    331 	 * Map the complete ROM for now.
    332 	 */
    333 
    334 	romsize = PCI_ROM_SIZE(mask);
    335 	DPRINTF(("%s: mapping rom @ %lx for %lx\n", __func__,
    336 	    (long)PCI_MAPREG_ROM_ADDR(address), (long)romsize));
    337 
    338 	rc = bus_space_map(pa->pa_memt, PCI_MAPREG_ROM_ADDR(address), romsize,
    339 	    0, &romh);
    340 	if (rc != 0) {
    341 		aprint_error_dev(sc->sc_dev, "can't map PCI ROM (%d)\n", rc);
    342 		goto fail2;
    343 	}
    344 
    345 	gftfb_disable_rom_internal(spc);
    346 	/*
    347 	 * Iterate over the ROM images, pick the best candidate.
    348 	 */
    349 
    350 	selected = (bus_addr_t)-1;
    351 	for (offs = 0; offs < romsize; offs += subsize) {
    352 		gftfb_enable_rom_internal(spc);
    353 		/*
    354 		 * Check for a valid ROM header.
    355 		 */
    356 		tmp = bus_space_read_4(pa->pa_memt, romh, offs + 0);
    357 		tmp = le32toh(tmp);
    358 		if (tmp != 0x55aa0000) {
    359 			gftfb_disable_rom_internal(spc);
    360 			if (offs == 0) {
    361 				aprint_error_dev(sc->sc_dev,
    362 				    "invalid PCI ROM header signature (%08x)\n",
    363 				     tmp);
    364 				rc = EINVAL;
    365 			}
    366 			break;
    367 		}
    368 
    369 		/*
    370 		 * Check ROM type.
    371 		 */
    372 		tmp = bus_space_read_4(pa->pa_memt, romh, offs + 4);
    373 		tmp = le32toh(tmp);
    374 		if (tmp != 0x00000001) {	/* 1 == STI ROM */
    375 			gftfb_disable_rom_internal(spc);
    376 			if (offs == 0) {
    377 				aprint_error_dev(sc->sc_dev,
    378 				    "invalid PCI ROM type (%08x)\n", tmp);
    379 				rc = EINVAL;
    380 			}
    381 			break;
    382 		}
    383 
    384 		subsize = (bus_addr_t)bus_space_read_2(pa->pa_memt, romh,
    385 		    offs + 0x0c);
    386 		subsize <<= 9;
    387 
    388 #ifdef STIDEBUG
    389 		gftfb_disable_rom_internal(spc);
    390 		DPRINTF(("ROM offset %08x size %08x type %08x",
    391 		    (u_int)offs, (u_int)subsize, tmp));
    392 		gftfb_enable_rom_internal(spc);
    393 #endif
    394 
    395 		/*
    396 		 * Check for a valid ROM data structure.
    397 		 * We do not need it except to know what architecture the ROM
    398 		 * code is for.
    399 		 */
    400 
    401 		suboffs = offs +(bus_addr_t)bus_space_read_2(pa->pa_memt, romh,
    402 		    offs + 0x18);
    403 		tmp = bus_space_read_4(pa->pa_memt, romh, suboffs + 0);
    404 		tmp = le32toh(tmp);
    405 		if (tmp != 0x50434952) {	/* PCIR */
    406 			gftfb_disable_rom_internal(spc);
    407 			if (offs == 0) {
    408 				aprint_error_dev(sc->sc_dev, "invalid PCI data"
    409 				    " signature (%08x)\n", tmp);
    410 				rc = EINVAL;
    411 			} else {
    412 				DPRINTF((" invalid PCI data signature %08x\n",
    413 				    tmp));
    414 				continue;
    415 			}
    416 		}
    417 
    418 		tmp = bus_space_read_1(pa->pa_memt, romh, suboffs + 0x14);
    419 		gftfb_disable_rom_internal(spc);
    420 		DPRINTF((" code %02x", tmp));
    421 
    422 		switch (tmp) {
    423 #ifdef __hppa__
    424 		case 0x10:
    425 			if (selected == (bus_addr_t)-1)
    426 				selected = offs;
    427 			break;
    428 #endif
    429 #ifdef __i386__
    430 		case 0x00:
    431 			if (selected == (bus_addr_t)-1)
    432 				selected = offs;
    433 			break;
    434 #endif
    435 		default:
    436 #ifdef STIDEBUG
    437 			DPRINTF((" (wrong architecture)"));
    438 #endif
    439 			break;
    440 		}
    441 		DPRINTF(("%s\n", selected == offs ? " -> SELECTED" : ""));
    442 	}
    443 
    444 	if (selected == (bus_addr_t)-1) {
    445 		if (rc == 0) {
    446 			aprint_error_dev(sc->sc_dev, "found no ROM with "
    447 			    "correct microcode architecture\n");
    448 			rc = ENOEXEC;
    449 		}
    450 		goto fail;
    451 	}
    452 
    453 	/*
    454 	 * Read the STI region BAR assignments.
    455 	 */
    456 
    457 	gftfb_enable_rom_internal(spc);
    458 	offs = selected +
    459 	    (bus_addr_t)bus_space_read_2(pa->pa_memt, romh, selected + 0x0e);
    460 	for (i = 0; i < STI_REGION_MAX; i++) {
    461 		rc = gftfb_readbar(sc, pa, i,
    462 		    bus_space_read_1(pa->pa_memt, romh, offs + i));
    463 		if (rc != 0)
    464 			goto fail;
    465 	}
    466 
    467 	/*
    468 	 * Find out where the STI ROM itself lies, and its size.
    469 	 */
    470 
    471 	offs = selected +
    472 	    (bus_addr_t)bus_space_read_4(pa->pa_memt, romh, selected + 0x08);
    473 	stiromsize = (bus_addr_t)bus_space_read_4(pa->pa_memt, romh,
    474 	    offs + 0x18);
    475 	stiromsize = le32toh(stiromsize);
    476 	gftfb_disable_rom_internal(spc);
    477 
    478 	/*
    479 	 * Replace our mapping with a smaller mapping of only the area
    480 	 * we are interested in.
    481 	 */
    482 
    483 	DPRINTF(("remapping rom @ %lx for %lx\n",
    484 	    (long)(PCI_MAPREG_ROM_ADDR(address) + offs), (long)stiromsize));
    485 	bus_space_unmap(pa->pa_memt, romh, romsize);
    486 	rc = bus_space_map(pa->pa_memt, PCI_MAPREG_ROM_ADDR(address) + offs,
    487 	    stiromsize, 0, &spc->sc_romh);
    488 	if (rc != 0) {
    489 		aprint_error_dev(sc->sc_dev, "can't map STI ROM (%d)\n",
    490 		    rc);
    491 		goto fail2;
    492 	}
    493  	gftfb_disable_rom_internal(spc);
    494 	sc->sc_flags &= ~STI_ROM_ENABLED;
    495 
    496 	return 0;
    497 
    498 fail:
    499 	bus_space_unmap(pa->pa_memt, romh, romsize);
    500 fail2:
    501 	gftfb_disable_rom_internal(spc);
    502 
    503 	return rc;
    504 }
    505 
    506 /*
    507  * Decode a BAR register.
    508  */
    509 int
    510 gftfb_readbar(struct sti_softc *sc, struct pci_attach_args *pa, u_int region,
    511     int bar)
    512 {
    513 	bus_addr_t addr;
    514 	bus_size_t size;
    515 	uint32_t cf;
    516 	int rc;
    517 
    518 	if (bar == 0) {
    519 		sc->bases[region] = 0;
    520 		return (0);
    521 	}
    522 
    523 #ifdef DIAGNOSTIC
    524 	if (bar < PCI_MAPREG_START || bar > PCI_MAPREG_PPB_END) {
    525 		gftfb_disable_rom(sc);
    526 		printf("%s: unexpected bar %02x for region %d\n",
    527 		    device_xname(sc->sc_dev), bar, region);
    528 		gftfb_enable_rom(sc);
    529 	}
    530 #endif
    531 
    532 	cf = pci_conf_read(pa->pa_pc, pa->pa_tag, bar);
    533 
    534 	rc = pci_mapreg_info(pa->pa_pc, pa->pa_tag, bar, PCI_MAPREG_TYPE(cf),
    535 	    &addr, &size, NULL);
    536 
    537 	if (rc != 0) {
    538 		gftfb_disable_rom(sc);
    539 		aprint_error_dev(sc->sc_dev, "invalid bar %02x for region %d\n",
    540 		    bar, region);
    541 		gftfb_enable_rom(sc);
    542 		return (rc);
    543 	}
    544 
    545 	sc->bases[region] = addr;
    546 	return (0);
    547 }
    548 
    549 /*
    550  * Enable PCI ROM.
    551  */
    552 void
    553 gftfb_enable_rom_internal(struct gftfb_softc *spc)
    554 {
    555 	pcireg_t address;
    556 
    557 	KASSERT(spc != NULL);
    558 
    559 	address = pci_conf_read(spc->sc_pc, spc->sc_tag, PCI_MAPREG_ROM);
    560 	address |= PCI_MAPREG_ROM_ENABLE;
    561 	pci_conf_write(spc->sc_pc, spc->sc_tag, PCI_MAPREG_ROM, address);
    562 }
    563 
    564 void
    565 gftfb_enable_rom(struct sti_softc *sc)
    566 {
    567 	struct gftfb_softc *spc = device_private(sc->sc_dev);
    568 
    569 	if (!ISSET(sc->sc_flags, STI_ROM_ENABLED)) {
    570 		gftfb_enable_rom_internal(spc);
    571 	}
    572 	SET(sc->sc_flags, STI_ROM_ENABLED);
    573 }
    574 
    575 /*
    576  * Disable PCI ROM.
    577  */
    578 void
    579 gftfb_disable_rom_internal(struct gftfb_softc *spc)
    580 {
    581 	pcireg_t address;
    582 
    583 	KASSERT(spc != NULL);
    584 
    585 	address = pci_conf_read(spc->sc_pc, spc->sc_tag, PCI_MAPREG_ROM);
    586 	address &= ~PCI_MAPREG_ROM_ENABLE;
    587 	pci_conf_write(spc->sc_pc, spc->sc_tag, PCI_MAPREG_ROM, address);
    588 }
    589 
    590 void
    591 gftfb_disable_rom(struct sti_softc *sc)
    592 {
    593 	struct gftfb_softc *spc = device_private(sc->sc_dev);
    594 
    595 	if (ISSET(sc->sc_flags, STI_ROM_ENABLED)) {
    596 		gftfb_disable_rom_internal(spc);
    597 	}
    598 	CLR(sc->sc_flags, STI_ROM_ENABLED);
    599 }
    600 
    601 void
    602 gftfb_wait(struct gftfb_softc *sc)
    603 {
    604 	struct sti_rom *rom = sc->sc_base.sc_rom;
    605 	bus_space_tag_t memt = rom->memt;
    606 	bus_space_handle_t memh = rom->regh[2];
    607 	uint8_t stat;
    608 
    609 	do {
    610 		stat = bus_space_read_1(memt, memh, NGLE_REG_15b0);
    611 		if (stat == 0)
    612 			stat = bus_space_read_1(memt, memh, NGLE_REG_15b0);
    613 	} while (stat != 0);
    614 }
    615 
    616 void
    617 gftfb_setup_fb(struct gftfb_softc *sc)
    618 {
    619 	struct sti_rom *rom = sc->sc_base.sc_rom;
    620 	bus_space_tag_t memt = rom->memt;
    621 	bus_space_handle_t memh = rom->regh[2];
    622 
    623 	gftfb_wait(sc);
    624 	bus_space_write_stream_4(memt, memh, NGLE_REG_10, 0x13601000);
    625 	bus_space_write_stream_4(memt, memh, NGLE_REG_14, 0x83000300);
    626 	gftfb_wait(sc);
    627 	bus_space_write_1(memt, memh, NGLE_REG_16b1, 1);
    628 }
    629 
    630 void
    631 gftfb_setup(struct gftfb_softc *sc)
    632 {
    633 	struct sti_rom *rom = sc->sc_base.sc_rom;
    634 	bus_space_tag_t memt = rom->memt;
    635 	bus_space_handle_t memh = rom->regh[2];
    636 
    637 	/* set Bt458 read mask register to all planes */
    638 	gftfb_wait(sc);
    639 	ngle_bt458_write(memt, memh, 0x08, 0x04);
    640 	ngle_bt458_write(memt, memh, 0x0a, 0xff);
    641 
    642 	gftfb_setup_fb(sc);
    643 
    644 	/* attr. planes */
    645 	gftfb_wait(sc);
    646 	bus_space_write_stream_4(memt, memh, NGLE_REG_11, 0x2ea0d000);
    647 	bus_space_write_stream_4(memt, memh, NGLE_REG_14, 0x23000302);
    648 	bus_space_write_stream_4(memt, memh, NGLE_REG_12, NGLE_ARTIST_CMAP0);
    649 	bus_space_write_stream_4(memt, memh, NGLE_REG_8, 0xffffffff);
    650 
    651 	gftfb_wait(sc);
    652 	bus_space_write_stream_4(memt, memh, NGLE_REG_6, 0x00000000);
    653 	bus_space_write_stream_4(memt, memh, NGLE_REG_9,
    654 	    (sc->sc_scr.scr_cfg.scr_width << 16) | sc->sc_scr.scr_cfg.scr_height);
    655 	bus_space_write_stream_4(memt, memh, NGLE_REG_6, 0x05000000);
    656 	bus_space_write_stream_4(memt, memh, NGLE_REG_9, 0x00040001);
    657 
    658 	gftfb_wait(sc);
    659 	bus_space_write_stream_4(memt, memh, NGLE_REG_12, 0x00000000);
    660 
    661 	gftfb_setup_fb(sc);
    662 
    663 	gftfb_wait(sc);
    664 	bus_space_write_stream_4(memt, memh, NGLE_REG_21,
    665 	    bus_space_read_stream_4(memt, memh, NGLE_REG_21) | 0x0a000000);
    666 	bus_space_write_stream_4(memt, memh, NGLE_REG_27,
    667 	    bus_space_read_stream_4(memt, memh, NGLE_REG_27) | 0x00800000);
    668 }
    669 
    670 static int
    671 gftfb_ioctl(void *v, void *vs, u_long cmd, void *data, int flag,
    672 	struct lwp *l)
    673 {
    674 	struct vcons_data *vd = v;
    675 	struct gftfb_softc *sc = vd->cookie;
    676 	struct wsdisplay_fbinfo *wdf;
    677 	struct vcons_screen *ms = vd->active;
    678 
    679 	switch (cmd) {
    680 	case WSDISPLAYIO_GTYPE:
    681 		*(u_int *)data = WSDISPLAY_TYPE_PCIMISC;
    682 		return 0;
    683 
    684 	/* PCI config read/write passthrough. */
    685 	case PCI_IOC_CFGREAD:
    686 	case PCI_IOC_CFGWRITE:
    687 		return pci_devioctl(sc->sc_pc, sc->sc_tag,
    688 		    cmd, data, flag, l);
    689 
    690 	case WSDISPLAYIO_GET_BUSID:
    691 		return wsdisplayio_busid_pci(sc->sc_dev, sc->sc_pc,
    692 		    sc->sc_tag, data);
    693 
    694 	case WSDISPLAYIO_GINFO:
    695 		if (ms == NULL)
    696 			return ENODEV;
    697 		wdf = (void *)data;
    698 		wdf->height = ms->scr_ri.ri_height;
    699 		wdf->width = ms->scr_ri.ri_width;
    700 		wdf->depth = ms->scr_ri.ri_depth;
    701 		wdf->cmsize = 256;
    702 		return 0;
    703 
    704 	case WSDISPLAYIO_GETCMAP:
    705 		return gftfb_getcmap(sc,
    706 		    (struct wsdisplay_cmap *)data);
    707 
    708 	case WSDISPLAYIO_PUTCMAP:
    709 		return gftfb_putcmap(sc,
    710 		    (struct wsdisplay_cmap *)data);
    711 
    712 	case WSDISPLAYIO_LINEBYTES:
    713 		*(u_int *)data = 2048;
    714 		return 0;
    715 
    716 	case WSDISPLAYIO_SMODE: {
    717 		int new_mode = *(int*)data;
    718 		if (new_mode != sc->sc_mode) {
    719 			sc->sc_mode = new_mode;
    720 			if(new_mode == WSDISPLAYIO_MODE_EMUL) {
    721 				//r128fb_init(sc);
    722 				gftfb_restore_palette(sc);
    723 				//glyphcache_wipe(&sc->sc_gc);
    724 				//r128fb_rectfill(sc, 0, 0, sc->sc_width,
    725 				//    sc->sc_height, ms->scr_ri.ri_devcmap[
    726 				//    (ms->scr_defattr >> 16) & 0xff]);
    727 				vcons_redraw_screen(ms);
    728 			}
    729 		}
    730 		}
    731 		return 0;
    732 
    733 	case WSDISPLAYIO_GET_FBINFO:
    734 	{
    735 			struct wsdisplayio_fbinfo *fbi = data;
    736 
    737 		return wsdisplayio_get_fbinfo(&ms->scr_ri, fbi);
    738 	}
    739 	}
    740 	return EPASSTHROUGH;
    741 }
    742 
    743 static paddr_t
    744 gftfb_mmap(void *v, void *vs, off_t offset, int prot)
    745 {
    746 #if 0
    747 	struct vcons_data *vd = v;
    748 	struct gftfb_softc *sc = vd->cookie;
    749 	paddr_t pa;
    750 #endif
    751 	return -1;
    752 }
    753 
    754 static void
    755 gftfb_init_screen(void *cookie, struct vcons_screen *scr,
    756     int existing, long *defattr)
    757 {
    758 	struct gftfb_softc *sc = cookie;
    759 	struct rasops_info *ri = &scr->scr_ri;
    760 
    761 	ri->ri_depth = 8;
    762 	ri->ri_width = sc->sc_width;
    763 	ri->ri_height = sc->sc_height;
    764 	ri->ri_stride = 2048;
    765 	ri->ri_flg = RI_CENTER;
    766 	if (scr->scr_flags & VCONS_SCREEN_IS_STATIC)
    767 		ri->ri_flg |= RI_FULLCLEAR | RI_CLEAR;
    768 	ri->ri_bits = (void *)sc->sc_scr.fbaddr;
    769 #if 0
    770 	if (sc->sc_depth == 8)
    771 		ri->ri_flg |= RI_8BIT_IS_RGB | RI_ENABLE_ALPHA |
    772 			      RI_PREFER_ALPHA;
    773 #endif
    774 	rasops_init(ri, 0, 0);
    775 	ri->ri_caps = WSSCREEN_WSCOLORS | WSSCREEN_HILIT | WSSCREEN_UNDERLINE |
    776 		      WSSCREEN_RESIZE;
    777 	scr->scr_flags |= VCONS_DONT_READ;
    778 	scr->scr_flags |= VCONS_LOADFONT;
    779 
    780 	rasops_reconfig(ri, sc->sc_height / ri->ri_font->fontheight,
    781 		    sc->sc_width / ri->ri_font->fontwidth);
    782 
    783 	ri->ri_hw = scr;
    784 #if 0
    785 	ri->ri_ops.copyrows = gftfb_copyrows;
    786 	ri->ri_ops.copycols = gftfb_copycols;
    787 	ri->ri_ops.eraserows = gftfb_eraserows;
    788 	ri->ri_ops.erasecols = gftfb_erasecols;
    789 	ri->ri_ops.cursor = gftfb_cursor;
    790 	if (FONT_IS_ALPHA(ri->ri_font)) {
    791 		ri->ri_ops.putchar = gftfb_putchar_aa;
    792 	} else
    793 		ri->ri_ops.putchar = gftfb_putchar;
    794 #endif
    795 }
    796 
    797 static int
    798 gftfb_putcmap(struct gftfb_softc *sc, struct wsdisplay_cmap *cm)
    799 {
    800 	u_char *r, *g, *b;
    801 	u_int index = cm->index;
    802 	u_int count = cm->count;
    803 	int i, error;
    804 	u_char rbuf[256], gbuf[256], bbuf[256];
    805 
    806 #ifdef R128FB_DEBUG
    807 	aprint_debug("putcmap: %d %d\n",index, count);
    808 #endif
    809 	if (cm->index >= 256 || cm->count > 256 ||
    810 	    (cm->index + cm->count) > 256)
    811 		return EINVAL;
    812 	error = copyin(cm->red, &rbuf[index], count);
    813 	if (error)
    814 		return error;
    815 	error = copyin(cm->green, &gbuf[index], count);
    816 	if (error)
    817 		return error;
    818 	error = copyin(cm->blue, &bbuf[index], count);
    819 	if (error)
    820 		return error;
    821 
    822 	memcpy(&sc->sc_cmap_red[index], &rbuf[index], count);
    823 	memcpy(&sc->sc_cmap_green[index], &gbuf[index], count);
    824 	memcpy(&sc->sc_cmap_blue[index], &bbuf[index], count);
    825 
    826 	r = &sc->sc_cmap_red[index];
    827 	g = &sc->sc_cmap_green[index];
    828 	b = &sc->sc_cmap_blue[index];
    829 
    830 	for (i = 0; i < count; i++) {
    831 		gftfb_putpalreg(sc, index, *r, *g, *b);
    832 		index++;
    833 		r++, g++, b++;
    834 	}
    835 	return 0;
    836 }
    837 
    838 static int
    839 gftfb_getcmap(struct gftfb_softc *sc, struct wsdisplay_cmap *cm)
    840 {
    841 	u_int index = cm->index;
    842 	u_int count = cm->count;
    843 	int error;
    844 
    845 	if (index >= 255 || count > 256 || index + count > 256)
    846 		return EINVAL;
    847 
    848 	error = copyout(&sc->sc_cmap_red[index],   cm->red,   count);
    849 	if (error)
    850 		return error;
    851 	error = copyout(&sc->sc_cmap_green[index], cm->green, count);
    852 	if (error)
    853 		return error;
    854 	error = copyout(&sc->sc_cmap_blue[index],  cm->blue,  count);
    855 	if (error)
    856 		return error;
    857 
    858 	return 0;
    859 }
    860 
    861 static void
    862 gftfb_restore_palette(struct gftfb_softc *sc)
    863 {
    864 	int i;
    865 
    866 	for (i = 0; i < 256; i++) {
    867 		gftfb_putpalreg(sc, i, sc->sc_cmap_red[i],
    868 		    sc->sc_cmap_green[i], sc->sc_cmap_blue[i]);
    869 	}
    870 }
    871 
    872 static int
    873 gftfb_putpalreg(struct gftfb_softc *sc, uint8_t idx, uint8_t r, uint8_t g,
    874     uint8_t b)
    875 {
    876 	struct sti_rom *rom = sc->sc_base.sc_rom;
    877 	bus_space_tag_t memt = rom->memt;
    878 	bus_space_handle_t memh = rom->regh[2];
    879 
    880 	gftfb_wait(sc);
    881 	bus_space_write_stream_4(memt, memh, NGLE_REG_10, 0xbbe0f000);
    882 	bus_space_write_stream_4(memt, memh, NGLE_REG_14, 0x03000300);
    883 	bus_space_write_stream_4(memt, memh, NGLE_REG_13, 0xffffffff);
    884 
    885 	gftfb_wait(sc);
    886 	bus_space_write_stream_4(memt, memh, NGLE_REG_3,
    887 	    0x400 | (idx << 2));
    888 	bus_space_write_stream_4(memt, memh, NGLE_REG_4,
    889 	    (r << 16) | (g << 8) | b);
    890 
    891 	bus_space_write_stream_4(memt, memh, NGLE_REG_2, 0x400);
    892 	bus_space_write_stream_4(memt, memh, NGLE_REG_26, 0x80000100);
    893 	gftfb_setup_fb(sc);
    894 	return 0;
    895 }
    896