Home | History | Annotate | Line # | Download | only in dev
grfabs_et.c revision 1.20
      1  1.20    provos /*	$NetBSD: grfabs_et.c,v 1.20 2002/09/27 15:35:52 provos Exp $	*/
      2   1.1       leo 
      3   1.1       leo /*
      4   1.1       leo  * Copyright (c) 1996 Leo Weppelman.
      5   1.1       leo  * All rights reserved.
      6   1.1       leo  *
      7   1.1       leo  * Redistribution and use in source and binary forms, with or without
      8   1.1       leo  * modification, are permitted provided that the following conditions
      9   1.1       leo  * are met:
     10   1.1       leo  * 1. Redistributions of source code must retain the above copyright
     11   1.1       leo  *    notice, this list of conditions and the following disclaimer.
     12   1.1       leo  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1       leo  *    notice, this list of conditions and the following disclaimer in the
     14   1.1       leo  *    documentation and/or other materials provided with the distribution.
     15   1.1       leo  * 3. All advertising materials mentioning features or use of this software
     16   1.1       leo  *    must display the following acknowledgement:
     17   1.1       leo  *      This product includes software developed by Leo Weppelman.
     18   1.1       leo  * 4. The name of the author may not be used to endorse or promote products
     19   1.1       leo  *    derived from this software without specific prior written permission
     20   1.1       leo  *
     21   1.1       leo  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     22   1.1       leo  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     23   1.1       leo  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     24   1.1       leo  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     25   1.1       leo  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     26   1.1       leo  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     27   1.1       leo  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     28   1.1       leo  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     29   1.1       leo  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     30   1.1       leo  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     31   1.1       leo  */
     32   1.1       leo 
     33   1.1       leo /*
     34   1.1       leo  * Most of the lower-level et4000 stuff was derived from:
     35   1.1       leo  *	.../amiga/dev/grf_et.c
     36   1.1       leo  *
     37   1.1       leo  * Which was copyrighted by:
     38   1.1       leo  *	Copyright (c) 1996 Tobias Abt
     39   1.1       leo  *	Copyright (c) 1995 Ezra Story
     40   1.1       leo  *	Copyright (c) 1995 Kari Mettinen
     41   1.1       leo  *	Copyright (c) 1994 Markus Wild
     42   1.1       leo  *	Copyright (c) 1994 Lutz Vieweg
     43   1.1       leo  *
     44   1.1       leo  * Thanks guys!
     45   1.1       leo  *
     46   1.1       leo  */
     47   1.1       leo #include <sys/param.h>
     48   1.1       leo #include <sys/queue.h>
     49   1.1       leo #include <sys/malloc.h>
     50   1.1       leo #include <sys/device.h>
     51   1.1       leo #include <sys/systm.h>
     52   1.1       leo 
     53  1.18       mrg #include <uvm/uvm_extern.h>
     54  1.10       leo 
     55   1.1       leo /*
     56   1.1       leo  * For PCI probing...
     57   1.1       leo  */
     58   1.1       leo #include <dev/pci/pcireg.h>
     59   1.1       leo #include <dev/pci/pcivar.h>
     60  1.10       leo #include <dev/pci/pcidevs.h>
     61   1.1       leo 
     62   1.1       leo #include <machine/iomap.h>
     63   1.1       leo #include <machine/video.h>
     64   1.1       leo #include <machine/mfp.h>
     65   1.6       leo #include <machine/cpu.h>
     66   1.1       leo #include <atari/atari/device.h>
     67   1.1       leo #include <atari/dev/grfioctl.h>
     68   1.1       leo #include <atari/dev/grfabs_reg.h>
     69   1.3       leo #include <atari/dev/grfabs_et.h>
     70   1.1       leo #include <atari/dev/grf_etreg.h>
     71   1.1       leo 
     72   1.3       leo #define	SAVEBUF_SIZE	(32*1024 + sizeof(save_area_t))
     73   1.1       leo 
     74   1.1       leo /*
     75   1.7       leo  * Allow a 16Kb io-region and a 4MB frame buffer to be mapped. This
     76   1.7       leo  * is more or less required by the XFree server.
     77   1.7       leo  */
     78   1.7       leo #define	REG_MAPPABLE	(16 * 1024)
     79   1.7       leo #define	FRAME_MAPPABLE	(4 * 1024 * 1024)
     80  1.11    thomas #define VGA_MAPPABLE	(128 * 1024)
     81  1.11    thomas #define VGA_BASE	0xa0000
     82   1.7       leo 
     83   1.7       leo /*
     84  1.11    thomas  * Linear memory base, near the end of the pci area
     85  1.11    thomas  */
     86  1.11    thomas #define PCI_LINMEMBASE  0x0e000000
     87  1.10       leo 
     88  1.10       leo /*
     89   1.1       leo  * Function decls
     90   1.1       leo  */
     91   1.1       leo static void       init_view __P((view_t *, bmap_t *, dmode_t *, box_t *));
     92   1.1       leo static colormap_t *alloc_colormap __P((dmode_t *));
     93   1.1       leo static void	  et_display_view __P((view_t *));
     94   1.1       leo static view_t	  *et_alloc_view __P((dmode_t *, dimen_t *, u_char));
     95   1.1       leo static void	  et_free_view __P((view_t *));
     96   1.3       leo static void	  et_loadmode __P((struct grfvideo_mode *, et_sv_reg_t *));
     97   1.1       leo static void	  et_remove_view __P((view_t *));
     98   1.1       leo static void	  et_save_view __P((view_t *));
     99   1.1       leo static int	  et_use_colormap __P((view_t *, colormap_t *));
    100   1.1       leo 
    101   1.1       leo /*
    102   1.1       leo  * Our function switch table
    103   1.1       leo  */
    104   1.1       leo struct grfabs_sw et_vid_sw = {
    105   1.1       leo 	et_display_view,
    106   1.1       leo 	et_alloc_view,
    107   1.1       leo 	et_free_view,
    108   1.1       leo 	et_remove_view,
    109   1.1       leo 	et_save_view,
    110   1.1       leo 	et_use_colormap
    111   1.1       leo };
    112   1.1       leo 
    113   1.1       leo static struct grfvideo_mode hw_modes[] = {
    114   1.1       leo     {
    115   1.1       leo 	0, "", 25175000,		/* num, descr, pix-clock	*/
    116   1.3       leo 	640, 400, 4,			/* width, height, depth		*/
    117   1.5       leo 	632/8, 672/8, 688/8, 808/8, 768/8,/* HBS, HBE, HSS, HSE, HT	*/
    118   1.3       leo 	399, 450, 408, 413, 449		/* VBS, VBE, VSS, VSE, VT	*/
    119   1.3       leo     },
    120   1.1       leo     {
    121   1.1       leo 	0, "", 25175000,		/* num, descr, pix-clock	*/
    122   1.3       leo 	640, 480, 4,			/* width, height, depth		*/
    123   1.5       leo 	632/8, 672/8, 688/8, 752/8, 752/8,/* HBS, HBE, HSS, HSE, HT	*/
    124   1.3       leo 	481, 522, 490, 498, 522		/* VBS, VBE, VSS, VSE, VT	*/
    125   1.1       leo     }
    126   1.1       leo };
    127   1.1       leo 
    128   1.1       leo static dmode_t vid_modes[] = {
    129   1.1       leo     { { NULL, NULL },
    130   1.3       leo 	"640x400", { 640, 400 }, 1, (void*)&hw_modes[0], &et_vid_sw },
    131   1.3       leo     { { NULL, NULL },
    132   1.3       leo 	"640x480", { 640, 480 }, 1, (void*)&hw_modes[1], &et_vid_sw },
    133   1.1       leo     { { NULL, NULL }, NULL,  }
    134   1.1       leo };
    135   1.1       leo 
    136   1.1       leo #define	ET_NUMCLOCKS	32
    137   1.1       leo 
    138   1.1       leo static u_int et_clockfreqs[ET_NUMCLOCKS] = {
    139   1.1       leo 	 6293750,  7080500,  7875000,  8125000,
    140   1.1       leo 	 9000000,  9375000, 10000000, 11225000,
    141   1.1       leo 	12587500, 14161000, 15750000, 16250000,
    142   1.1       leo 	18000000, 18750000, 20000000, 22450000,
    143   1.1       leo 	25175000, 28322000, 31500000, 32500000,
    144   1.1       leo 	36000000, 37500000, 40000000, 44900000,
    145   1.1       leo 	50350000, 56644000, 63000000, 65000000,
    146   1.1       leo 	72000000, 75000000, 80000000, 89800000
    147   1.1       leo };
    148   1.1       leo 
    149   1.1       leo static bmap_t	con_bm; /* XXX */
    150   1.1       leo 
    151   1.1       leo struct grfabs_et_priv {
    152   1.1       leo 	pcitag_t		pci_tag;
    153   1.1       leo 	volatile caddr_t	regkva;
    154   1.1       leo 	volatile caddr_t	memkva;
    155  1.11    thomas 	u_int			linbase;
    156   1.1       leo 	int			regsz;
    157   1.1       leo 	int			memsz;
    158  1.10       leo 	int			board_type;
    159   1.1       leo } et_priv;
    160   1.1       leo 
    161   1.1       leo /*
    162  1.10       leo  * Board types:
    163  1.10       leo  */
    164  1.10       leo #define	BT_ET4000		1
    165  1.10       leo #define	BT_ET6000		2
    166  1.10       leo 
    167  1.10       leo /*
    168   1.1       leo  * XXX: called from ite console init routine.
    169  1.19       wiz  * Initialize list of possible video modes.
    170   1.1       leo  */
    171   1.1       leo void
    172   1.1       leo et_probe_video(modelp)
    173   1.1       leo MODES	*modelp;
    174   1.1       leo {
    175   1.1       leo 	dmode_t	*dm;
    176   1.1       leo 	int	i;
    177   1.1       leo 
    178   1.1       leo 	for (i = 0; (dm = &vid_modes[i])->name != NULL; i++) {
    179   1.1       leo 		LIST_INSERT_HEAD(modelp, dm, link);
    180   1.1       leo 	}
    181   1.1       leo }
    182   1.1       leo 
    183   1.1       leo static void
    184   1.1       leo et_display_view(v)
    185   1.1       leo view_t *v;
    186   1.1       leo {
    187   1.1       leo 	dmode_t		*dm = v->mode;
    188   1.1       leo 	bmap_t		*bm = v->bitmap;
    189   1.1       leo 	int		sv_size;
    190   1.1       leo 	u_short		*src, *dst;
    191   1.3       leo 	save_area_t	*sa;
    192   1.1       leo 
    193   1.1       leo 	if (dm->current_view && (dm->current_view != v)) {
    194   1.1       leo 		/*
    195   1.1       leo 		 * Mark current view for this mode as no longer displayed
    196   1.1       leo 		 */
    197   1.1       leo 		dm->current_view->flags &= ~VF_DISPLAY;
    198   1.1       leo 	}
    199   1.1       leo 	dm->current_view = v;
    200   1.1       leo 	v->flags |= VF_DISPLAY;
    201   1.1       leo 
    202   1.3       leo 	if ((sa = (save_area_t*)v->save_area) == NULL)
    203   1.3       leo 		return; /* XXX: Can't happen.... */
    204   1.3       leo 
    205   1.3       leo 	/*
    206   1.3       leo 	 * Restore register settings and turn the plane pointer
    207   1.3       leo 	 * to the card-memory
    208   1.3       leo 	 */
    209   1.3       leo 	et_hwrest(&sa->sv_regs);
    210   1.1       leo 	bm->plane = et_priv.memkva;
    211   1.1       leo 
    212   1.3       leo 	et_use_colormap(v, v->colormap);
    213   1.1       leo 
    214   1.1       leo 	/*
    215   1.3       leo 	 * Copy the backing store to card-memory
    216   1.1       leo 	 */
    217   1.3       leo 	sv_size = sa->fb_size;
    218   1.3       leo 	src     = sa->sv_fb;
    219   1.3       leo 	dst     = (u_short *)bm->plane;
    220   1.1       leo 	while (sv_size--)
    221   1.1       leo 		*dst++ = *src++;
    222   1.1       leo }
    223   1.1       leo 
    224   1.1       leo void
    225   1.1       leo et_remove_view(v)
    226   1.1       leo view_t *v;
    227   1.1       leo {
    228   1.1       leo 	dmode_t *mode = v->mode;
    229   1.1       leo 
    230   1.1       leo 	if (mode->current_view == v) {
    231   1.1       leo #if 0
    232   1.1       leo 		if (v->flags & VF_DISPLAY)
    233  1.20    provos 			panic("Cannot shutdown display"); /* XXX */
    234   1.1       leo #endif
    235   1.1       leo 		mode->current_view = NULL;
    236   1.1       leo 	}
    237   1.1       leo 	v->flags &= ~VF_DISPLAY;
    238   1.1       leo }
    239   1.1       leo 
    240   1.1       leo void
    241   1.1       leo et_save_view(v)
    242   1.1       leo view_t *v;
    243   1.1       leo {
    244   1.3       leo 	bmap_t		*bm = v->bitmap;
    245   1.3       leo 	u_char		font_height;
    246   1.3       leo 	int		sv_size;
    247   1.3       leo 	u_short		*src, *dst;
    248   1.3       leo 	save_area_t	*sa;
    249   1.1       leo 
    250   1.1       leo 	if (!atari_realconfig)
    251   1.1       leo 		return;
    252   1.3       leo 
    253   1.1       leo 	if (RGfx(et_priv.regkva, GCT_ID_MISC) & 1) {
    254   1.4  christos #if 0 /* XXX: Can't use printf here.... */
    255   1.4  christos 		printf("et_save_view: Don't know how to save"
    256   1.1       leo 			" a graphics mode\n");
    257   1.3       leo #endif
    258   1.1       leo 		return;
    259   1.1       leo 	}
    260   1.1       leo 	if (v->save_area == NULL)
    261   1.8       leo 		v->save_area = malloc(SAVEBUF_SIZE, M_DEVBUF, M_NOWAIT);
    262   1.1       leo 
    263   1.1       leo 	/*
    264   1.1       leo 	 * Calculate the size of the copy
    265   1.1       leo 	 */
    266   1.1       leo 	font_height = RCrt(et_priv.regkva, CRT_ID_MAX_ROW_ADDRESS) & 0x1f;
    267   1.1       leo 	sv_size = bm->bytes_per_row * (bm->rows / (font_height + 1));
    268   1.3       leo 	sv_size = min(SAVEBUF_SIZE, sv_size);
    269   1.1       leo 
    270   1.3       leo 	/*
    271   1.3       leo 	 * Save all we need to know....
    272   1.3       leo 	 */
    273   1.3       leo 	sa  = (save_area_t *)v->save_area;
    274   1.3       leo 	et_hwsave(&sa->sv_regs);
    275   1.3       leo 	sa->fb_size = sv_size;
    276   1.1       leo 	src = (u_short *)bm->plane;
    277   1.3       leo 	dst = sa->sv_fb;
    278   1.1       leo 	while (sv_size--)
    279   1.1       leo 		*dst++ = *src++;
    280   1.3       leo 	bm->plane = (u_char *)sa->sv_fb;
    281   1.1       leo }
    282   1.1       leo 
    283   1.1       leo void
    284   1.1       leo et_free_view(v)
    285   1.1       leo view_t *v;
    286   1.1       leo {
    287   1.1       leo 	if(v) {
    288   1.1       leo 		et_remove_view(v);
    289   1.1       leo 		if (v->colormap != &gra_con_cmap)
    290   1.1       leo 			free(v->colormap, M_DEVBUF);
    291   1.1       leo 		if (v->save_area != NULL)
    292   1.1       leo 			free(v->save_area, M_DEVBUF);
    293   1.1       leo 		if (v != &gra_con_view) {
    294   1.1       leo 			free(v->bitmap, M_DEVBUF);
    295   1.1       leo 			free(v, M_DEVBUF);
    296   1.1       leo 		}
    297   1.1       leo 	}
    298   1.1       leo }
    299   1.1       leo 
    300   1.1       leo static int
    301   1.1       leo et_use_colormap(v, cm)
    302   1.1       leo view_t		*v;
    303   1.1       leo colormap_t	*cm;
    304   1.1       leo {
    305   1.1       leo 	return (0); /* XXX: Nothing here for now... */
    306   1.1       leo }
    307   1.1       leo 
    308   1.1       leo static view_t *
    309   1.1       leo et_alloc_view(mode, dim, depth)
    310   1.1       leo dmode_t	*mode;
    311   1.1       leo dimen_t	*dim;
    312   1.1       leo u_char   depth;
    313   1.1       leo {
    314   1.3       leo 	view_t		*v;
    315   1.3       leo 	bmap_t		*bm;
    316   1.3       leo 	box_t		box;
    317   1.3       leo 	save_area_t	*sa;
    318   1.1       leo 
    319   1.1       leo 	if (!atari_realconfig) {
    320   1.1       leo 		v  = &gra_con_view;
    321   1.1       leo 		bm = &con_bm;
    322   1.1       leo 	}
    323   1.1       leo 	else {
    324   1.1       leo 		v  = malloc(sizeof(*v), M_DEVBUF, M_WAITOK);
    325   1.1       leo 		bm = malloc(sizeof(*bm), M_DEVBUF, M_WAITOK);
    326   1.1       leo 	}
    327   1.1       leo 	v->bitmap = bm;
    328   1.1       leo 
    329   1.1       leo 	/*
    330   1.1       leo 	 * Initialize the bitmap
    331   1.1       leo 	 */
    332   1.1       leo 	bm->plane         = et_priv.memkva;
    333  1.11    thomas 	bm->vga_address   = (caddr_t)kvtop(et_priv.memkva);
    334  1.11    thomas 	bm->vga_base      = VGA_BASE;
    335  1.11    thomas 	bm->hw_address    = (caddr_t)(PCI_MEM_PHYS | et_priv.linbase);
    336  1.11    thomas 	bm->lin_base      = et_priv.linbase;
    337   1.1       leo 	bm->regs          = et_priv.regkva;
    338   1.6       leo 	bm->hw_regs       = (caddr_t)kvtop(et_priv.regkva);
    339   1.7       leo 	bm->reg_size      = REG_MAPPABLE;
    340   1.7       leo 	bm->phys_mappable = FRAME_MAPPABLE;
    341  1.11    thomas 	bm->vga_mappable  = VGA_MAPPABLE;
    342   1.1       leo 
    343   1.1       leo 	bm->bytes_per_row = (mode->size.width * depth) / NBBY;
    344   1.1       leo 	bm->rows          = mode->size.height;
    345   1.1       leo 	bm->depth         = depth;
    346   1.1       leo 
    347   1.1       leo 	/*
    348   1.1       leo 	 * Allocate a save_area.
    349   1.1       leo 	 * Note: If atari_realconfig is false, no save area is (can be)
    350   1.1       leo 	 * allocated. This means that the plane is the video memory,
    351   1.3       leo 	 * which is what's wanted in this case.
    352   1.1       leo 	 */
    353   1.1       leo 	if (atari_realconfig) {
    354   1.1       leo 		v->save_area = malloc(SAVEBUF_SIZE, M_DEVBUF, M_WAITOK);
    355   1.3       leo 		sa           = (save_area_t*)v->save_area;
    356   1.3       leo 		sa->fb_size  = 0;
    357   1.3       leo 		bm->plane    = (u_char *)sa->sv_fb;
    358   1.3       leo 		et_loadmode(mode->data, &sa->sv_regs);
    359   1.1       leo 	}
    360   1.1       leo 	else v->save_area = NULL;
    361   1.1       leo 
    362   1.1       leo 	v->colormap = alloc_colormap(mode);
    363   1.1       leo 	if (v->colormap) {
    364   1.1       leo 		INIT_BOX(&box,0,0,mode->size.width,mode->size.height);
    365   1.1       leo 		init_view(v, bm, mode, &box);
    366   1.1       leo 		return (v);
    367   1.1       leo 	}
    368   1.1       leo 	if (v != &gra_con_view) {
    369   1.1       leo 		free(v, M_DEVBUF);
    370   1.1       leo 		free(bm, M_DEVBUF);
    371   1.1       leo 	}
    372   1.1       leo 	return (NULL);
    373   1.1       leo }
    374   1.1       leo 
    375   1.1       leo static void
    376   1.1       leo init_view(v, bm, mode, dbox)
    377   1.1       leo view_t	*v;
    378   1.1       leo bmap_t	*bm;
    379   1.1       leo dmode_t	*mode;
    380   1.1       leo box_t	*dbox;
    381   1.1       leo {
    382   1.1       leo 	v->bitmap    = bm;
    383   1.1       leo 	v->mode      = mode;
    384   1.1       leo 	v->flags     = 0;
    385   1.1       leo 	bcopy(dbox, &v->display, sizeof(box_t));
    386   1.1       leo }
    387   1.1       leo 
    388   1.1       leo /* XXX: No more than a stub... */
    389   1.1       leo static colormap_t *
    390   1.1       leo alloc_colormap(dm)
    391   1.1       leo dmode_t		*dm;
    392   1.1       leo {
    393   1.1       leo 	colormap_t	*cm;
    394   1.1       leo 	int		i;
    395   1.1       leo 
    396   1.1       leo 	cm = &gra_con_cmap;
    397   1.1       leo 	cm->entry = gra_con_colors;
    398   1.1       leo 
    399   1.1       leo 	cm->first = 0;
    400   1.1       leo 	cm->size  = 2;
    401   1.1       leo 
    402   1.1       leo 	for (i = 0; i < 2; i++)
    403   1.1       leo 		cm->entry[i] = gra_def_color16[i % 16];
    404   1.1       leo 	return (cm);
    405   1.1       leo }
    406   1.1       leo 
    407   1.1       leo /*
    408   1.1       leo  * Go look for a VGA card on the PCI-bus. This search is a
    409   1.1       leo  * stripped down version of the PCI-probe. It only looks on
    410  1.10       leo  * bus0 for et4000/et6000 cards. The first card found is used.
    411   1.1       leo  */
    412   1.1       leo int
    413   1.1       leo et_probe_card()
    414   1.1       leo {
    415   1.1       leo 	pci_chipset_tag_t	pc = NULL; /* XXX */
    416  1.13       leo 	pcitag_t		tag;
    417  1.10       leo 	int			device, found, id, maxndevs;
    418   1.1       leo 
    419   1.1       leo 	found    = 0;
    420   1.1       leo 	tag      = 0;
    421  1.10       leo 	id       = 0;
    422   1.1       leo 	maxndevs = pci_bus_maxdevs(pc, 0);
    423   1.1       leo 
    424  1.10       leo 	for (device = 0; !found && (device < maxndevs); device++) {
    425   1.1       leo 
    426   1.1       leo 		tag = pci_make_tag(pc, 0, device, 0);
    427   1.1       leo 		id  = pci_conf_read(pc, tag, PCI_ID_REG);
    428   1.1       leo 		if (id == 0 || id == 0xffffffff)
    429   1.1       leo 			continue;
    430  1.10       leo 		switch (PCI_PRODUCT(id)) {
    431  1.10       leo 			case PCI_PRODUCT_TSENG_ET6000:
    432  1.10       leo 			case PCI_PRODUCT_TSENG_ET4000_W32P_A:
    433  1.10       leo 			case PCI_PRODUCT_TSENG_ET4000_W32P_B:
    434  1.10       leo 			case PCI_PRODUCT_TSENG_ET4000_W32P_C:
    435  1.10       leo 			case PCI_PRODUCT_TSENG_ET4000_W32P_D:
    436  1.10       leo 				found = 1;
    437  1.10       leo 				break;
    438  1.10       leo 			default:
    439  1.10       leo 				break;
    440   1.1       leo 		}
    441   1.1       leo 	}
    442   1.1       leo 	if (!found)
    443   1.1       leo 		return (0);
    444   1.1       leo 
    445  1.10       leo 	if (PCI_PRODUCT(id) ==  PCI_PRODUCT_TSENG_ET6000)
    446  1.10       leo 		et_priv.board_type = BT_ET6000;
    447  1.10       leo 	else et_priv.board_type = BT_ET4000;
    448  1.10       leo 
    449   1.1       leo 	et_priv.pci_tag = tag;
    450   1.1       leo 
    451   1.1       leo 	/*
    452   1.1       leo 	 * The things below are setup in atari_init.c
    453   1.1       leo 	 */
    454   1.1       leo 	et_priv.regkva  = (volatile caddr_t)pci_io_addr;
    455   1.1       leo 	et_priv.memkva  = (volatile caddr_t)pci_mem_addr;
    456  1.13       leo 	et_priv.linbase = PCI_LINMEMBASE; /* XXX pci_conf_read??? */
    457  1.11    thomas 	et_priv.memsz   = PCI_VGA_SIZE;
    458   1.7       leo 	et_priv.regsz   = PCI_IO_SIZE;
    459   1.1       leo 
    460  1.15       leo 	if (!atari_realconfig) {
    461   1.3       leo 		et_loadmode(&hw_modes[0], NULL);
    462   1.1       leo 		return (1);
    463   1.1       leo 	}
    464   1.1       leo 
    465   1.1       leo 	return (1);
    466   1.1       leo }
    467   1.1       leo 
    468   1.1       leo static void
    469   1.3       leo et_loadmode(mode, regs)
    470   1.3       leo struct grfvideo_mode	*mode;
    471   1.3       leo et_sv_reg_t		*regs;
    472   1.1       leo {
    473   1.1       leo 	unsigned short	HDE, VDE;
    474   1.1       leo 	int	    	lace, dblscan;
    475   1.1       leo 	int     	uplim, lowlim;
    476   1.3       leo 	int		i;
    477   1.1       leo 	unsigned char	clock, tmp;
    478   1.1       leo 	volatile u_char	*ba;
    479   1.3       leo 	et_sv_reg_t	loc_regs;
    480   1.3       leo 
    481   1.3       leo 	if (regs == NULL)
    482   1.3       leo 		regs = &loc_regs;
    483   1.1       leo 
    484   1.1       leo 	ba  = et_priv.regkva;
    485   1.1       leo 	HDE = mode->disp_width / 8 - 1;
    486   1.1       leo 	VDE = mode->disp_height - 1;
    487   1.1       leo 
    488   1.1       leo 	/* figure out whether lace or dblscan is needed */
    489   1.1       leo 
    490   1.1       leo 	uplim   = mode->disp_height + (mode->disp_height / 4);
    491   1.1       leo 	lowlim  = mode->disp_height - (mode->disp_height / 4);
    492   1.1       leo 	lace    = (((mode->vtotal * 2) > lowlim)
    493   1.1       leo 		   && ((mode->vtotal * 2) < uplim)) ? 1 : 0;
    494   1.1       leo 	dblscan = (((mode->vtotal / 2) > lowlim)
    495   1.1       leo 		   && ((mode->vtotal / 2) < uplim)) ? 1 : 0;
    496   1.1       leo 
    497   1.1       leo 	/* adjustments */
    498   1.1       leo 	if (lace)
    499   1.1       leo 		VDE /= 2;
    500   1.1       leo 
    501   1.3       leo 	regs->misc_output = 0x23; /* Page 0, Color mode */
    502   1.3       leo 	regs->seg_sel     = 0x00;
    503   1.3       leo 	regs->state_ctl   = 0x00;
    504   1.3       leo 
    505   1.3       leo 	regs->seq[SEQ_ID_RESET]           = 0x03; /* reset off		*/
    506   1.3       leo 	regs->seq[SEQ_ID_CLOCKING_MODE]   = 0x21; /* Turn off screen	*/
    507   1.3       leo 	regs->seq[SEQ_ID_MAP_MASK]        = 0xff; /* Cpu writes all planes*/
    508   1.3       leo 	regs->seq[SEQ_ID_CHAR_MAP_SELECT] = 0x00; /* Char. generator 0	*/
    509   1.3       leo 	regs->seq[SEQ_ID_MEMORY_MODE]     = 0x0e; /* Seq. Memory mode	*/
    510   1.1       leo 
    511   1.1       leo 	/*
    512   1.1       leo 	 * Set the clock...
    513   1.1       leo 	 */
    514   1.1       leo 	for(clock = ET_NUMCLOCKS-1; clock > 0; clock--) {
    515   1.1       leo 		if (et_clockfreqs[clock] <= mode->pixel_clock)
    516   1.1       leo 			break;
    517   1.1       leo 	}
    518   1.3       leo 	regs->misc_output |= (clock & 3) << 2;
    519   1.3       leo 	regs->aux_mode     = 0xb4 | ((clock & 8) << 3);
    520   1.3       leo 	regs->compat_6845  = (clock & 4) ? 0x0a : 0x08;
    521   1.3       leo 
    522   1.3       leo 	/*
    523   1.3       leo 	 * The display parameters...
    524   1.3       leo 	 */
    525   1.3       leo 	regs->crt[CRT_ID_HOR_TOTAL]        =  mode->htotal;
    526   1.3       leo 	regs->crt[CRT_ID_HOR_DISP_ENA_END] = ((HDE >= mode->hblank_start)
    527   1.3       leo 						? mode->hblank_stop - 1
    528   1.3       leo 						: HDE);
    529   1.3       leo 	regs->crt[CRT_ID_START_HOR_BLANK]  = mode->hblank_start;
    530   1.3       leo 	regs->crt[CRT_ID_END_HOR_BLANK]    = (mode->hblank_stop & 0x1f) | 0x80;
    531   1.3       leo 	regs->crt[CRT_ID_START_HOR_RETR]   = mode->hsync_start;
    532   1.3       leo 	regs->crt[CRT_ID_END_HOR_RETR]     = (mode->hsync_stop & 0x1f)
    533   1.3       leo 						| ((mode->hblank_stop & 0x20)
    534   1.3       leo 							? 0x80 : 0x00);
    535   1.3       leo 	regs->crt[CRT_ID_VER_TOTAL]        = mode->vtotal;
    536   1.3       leo 	regs->crt[CRT_ID_START_VER_RETR]   = mode->vsync_start;
    537   1.3       leo 	regs->crt[CRT_ID_END_VER_RETR]     = (mode->vsync_stop & 0x0f) | 0x30;
    538   1.3       leo 	regs->crt[CRT_ID_VER_DISP_ENA_END] = VDE;
    539   1.3       leo 	regs->crt[CRT_ID_START_VER_BLANK]  = mode->vblank_start;
    540   1.3       leo 	regs->crt[CRT_ID_END_VER_BLANK]    = mode->vblank_stop;
    541   1.3       leo 	regs->crt[CRT_ID_MODE_CONTROL]     = 0xab;
    542   1.3       leo 	regs->crt[CRT_ID_START_ADDR_HIGH]  = 0x00;
    543   1.3       leo 	regs->crt[CRT_ID_START_ADDR_LOW]   = 0x00;
    544   1.3       leo 	regs->crt[CRT_ID_LINE_COMPARE]     = 0xff;
    545   1.3       leo 	regs->crt[CRT_ID_UNDERLINE_LOC]    = 0x00;
    546  1.14       leo 	regs->crt[CRT_ID_PRESET_ROW_SCAN]  = 0x00;
    547   1.3       leo 	regs->crt[CRT_ID_OFFSET]           = mode->disp_width/16;
    548   1.3       leo 	regs->crt[CRT_ID_MAX_ROW_ADDRESS]  =
    549   1.3       leo 		0x40 |
    550   1.3       leo 		(dblscan ? 0x80 : 0x00) |
    551   1.3       leo 		((mode->vblank_start & 0x200) ? 0x20 : 0x00);
    552   1.3       leo 	regs->crt[CRT_ID_OVERFLOW] =
    553   1.1       leo 		0x10 |
    554   1.1       leo 		((mode->vtotal       & 0x100) ? 0x01 : 0x00) |
    555   1.1       leo 		((VDE                & 0x100) ? 0x02 : 0x00) |
    556   1.1       leo 		((mode->vsync_start  & 0x100) ? 0x04 : 0x00) |
    557   1.1       leo 		((mode->vblank_start & 0x100) ? 0x08 : 0x00) |
    558   1.1       leo 		((mode->vtotal       & 0x200) ? 0x20 : 0x00) |
    559   1.1       leo 		((VDE                & 0x200) ? 0x40 : 0x00) |
    560   1.3       leo 		((mode->vsync_start  & 0x200) ? 0x80 : 0x00);
    561   1.3       leo 	regs->overfl_high =
    562   1.1       leo 		0x10 |
    563   1.1       leo 		((mode->vblank_start & 0x400) ? 0x01 : 0x00) |
    564   1.1       leo 		((mode->vtotal       & 0x400) ? 0x02 : 0x00) |
    565   1.1       leo 		((VDE                & 0x400) ? 0x04 : 0x00) |
    566   1.1       leo 		((mode->vsync_start  & 0x400) ? 0x08 : 0x00) |
    567   1.3       leo 		(lace ? 0x80 : 0x00);
    568   1.3       leo 	regs->hor_overfl =
    569   1.1       leo 		((mode->htotal       & 0x100) ? 0x01 : 0x00) |
    570   1.1       leo 		((mode->hblank_start & 0x100) ? 0x04 : 0x00) |
    571   1.3       leo 		((mode->hsync_start  & 0x100) ? 0x10 : 0x00);
    572   1.3       leo 
    573   1.3       leo 	regs->grf[GCT_ID_SET_RESET]        = 0x00;
    574   1.3       leo 	regs->grf[GCT_ID_ENABLE_SET_RESET] = 0x00;
    575   1.3       leo 	regs->grf[GCT_ID_COLOR_COMPARE]    = 0x00;
    576   1.3       leo 	regs->grf[GCT_ID_DATA_ROTATE]      = 0x00;
    577   1.3       leo 	regs->grf[GCT_ID_READ_MAP_SELECT]  = 0x00;
    578   1.3       leo 	regs->grf[GCT_ID_GRAPHICS_MODE]    = mode->depth == 1 ? 0x00: 0x40;
    579   1.3       leo 	regs->grf[GCT_ID_MISC]             = 0x01;
    580   1.3       leo 	regs->grf[GCT_ID_COLOR_XCARE]      = 0x0f;
    581   1.3       leo 	regs->grf[GCT_ID_BITMASK]          = 0xff;
    582   1.3       leo 
    583   1.3       leo 	for (i = 0; i < 0x10; i++)
    584   1.3       leo 		regs->attr[i] = i;
    585   1.3       leo 	regs->attr[ACT_ID_ATTR_MODE_CNTL]  = 0x01;
    586   1.3       leo 	regs->attr[ACT_ID_OVERSCAN_COLOR]  = 0x00;
    587   1.3       leo 	regs->attr[ACT_ID_COLOR_PLANE_ENA] = 0x0f;
    588   1.3       leo 	regs->attr[ACT_ID_HOR_PEL_PANNING] = 0x00;
    589   1.3       leo 	regs->attr[ACT_ID_COLOR_SELECT]    = 0x00;
    590   1.3       leo 	regs->attr[ACT_ID_MISCELLANEOUS]   = 0x00;
    591   1.1       leo 
    592   1.1       leo 	/*
    593   1.1       leo 	 * XXX: This works for depth == 4. I need some better docs
    594   1.1       leo 	 * to fix the other modes....
    595   1.1       leo 	 */
    596   1.9    thomas 	/*
    597   1.9    thomas 	 * What we need would be probe functions for RAMDAC/clock chip
    598   1.9    thomas 	 */
    599   1.9    thomas 	vgar(ba, VDAC_ADDRESS);		/* clear old state */
    600   1.1       leo 	vgar(ba, VDAC_MASK);
    601   1.1       leo 	vgar(ba, VDAC_MASK);
    602   1.1       leo 	vgar(ba, VDAC_MASK);
    603   1.1       leo 	vgar(ba, VDAC_MASK);
    604   1.1       leo 
    605   1.9    thomas 	vgaw(ba, VDAC_MASK, 0);		/* set to palette */
    606   1.9    thomas 	vgar(ba, VDAC_ADDRESS);		/* clear state */
    607   1.9    thomas 
    608   1.9    thomas 	vgaw(ba, VDAC_MASK, 0xff);
    609   1.1       leo 	/*
    610   1.1       leo 	 * End of depth stuff
    611   1.1       leo 	 */
    612   1.1       leo 
    613   1.1       leo 	/*
    614   1.1       leo 	 * Compute Hsync & Vsync polarity
    615   1.1       leo 	 * Note: This seems to be some kind of a black art :-(
    616   1.1       leo 	 */
    617   1.3       leo 	tmp = regs->misc_output & 0x3f;
    618   1.5       leo #if 1 /* This is according to my BW monitor & Xfree... */
    619   1.1       leo 	if (VDE < 400)
    620   1.1       leo 		tmp |= 0x40;	/* -hsync +vsync */
    621   1.1       leo 	else if (VDE < 480)
    622   1.1       leo 		tmp |= 0xc0;	/* -hsync -vsync */
    623   1.1       leo #else /* This is according to my color monitor.... */
    624   1.1       leo 	if (VDE < 400)
    625   1.1       leo 		tmp |= 0x00;	/* +hsync +vsync */
    626   1.1       leo 	else if (VDE < 480)
    627   1.1       leo 		tmp |= 0x80;	/* +hsync -vsync */
    628   1.1       leo #endif
    629   1.1       leo 	/* I'm unable to try the rest.... */
    630   1.3       leo 	regs->misc_output = tmp;
    631   1.1       leo 
    632   1.3       leo 	if(regs == &loc_regs)
    633   1.3       leo 		et_hwrest(regs);
    634   1.3       leo }
    635   1.3       leo 
    636   1.3       leo void
    637   1.3       leo et_hwsave(et_regs)
    638   1.3       leo et_sv_reg_t	*et_regs;
    639   1.3       leo {
    640   1.3       leo 	volatile u_char *ba;
    641   1.3       leo 	int		i, s;
    642   1.3       leo 
    643   1.3       leo 	ba = et_priv.regkva;
    644   1.3       leo 
    645   1.3       leo 	s = splhigh();
    646   1.3       leo 
    647   1.3       leo 	/*
    648   1.3       leo 	 * General VGA registers
    649   1.3       leo 	 */
    650   1.3       leo 	et_regs->misc_output = vgar(ba, GREG_MISC_OUTPUT_R);
    651   1.3       leo 	for(i = 0; i < 25; i++)
    652   1.3       leo 		et_regs->crt[i]  = RCrt(ba, i);
    653   1.3       leo 	for(i = 0; i < 21; i++)
    654   1.3       leo 		et_regs->attr[i] = RAttr(ba, i | 0x20);
    655   1.3       leo 	for(i = 0; i < 9; i++)
    656   1.3       leo 		et_regs->grf[i]  = RGfx(ba, i);
    657   1.3       leo 	for(i = 0; i < 5; i++)
    658   1.3       leo 		et_regs->seq[i]  = RSeq(ba, i);
    659   1.3       leo 
    660   1.3       leo 	/*
    661   1.3       leo 	 * ET4000 extensions
    662   1.3       leo 	 */
    663   1.3       leo 	et_regs->ext_start   = RCrt(ba, CTR_ID_EXT_START);
    664   1.3       leo 	et_regs->compat_6845 = RCrt(ba, CRT_ID_6845_COMPAT);
    665   1.3       leo 	et_regs->overfl_high = RCrt(ba, CRT_ID_OVERFLOW_HIGH);
    666   1.3       leo 	et_regs->hor_overfl  = RCrt(ba, CRT_ID_HOR_OVERFLOW);
    667   1.3       leo 	et_regs->state_ctl   = RSeq(ba, SEQ_ID_STATE_CONTROL);
    668   1.3       leo 	et_regs->aux_mode    = RSeq(ba, SEQ_ID_AUXILIARY_MODE);
    669   1.3       leo 	et_regs->seg_sel     = vgar(ba, GREG_SEGMENTSELECT);
    670   1.3       leo 
    671  1.16       leo 	splx(s);
    672   1.3       leo }
    673   1.3       leo 
    674   1.3       leo void
    675   1.3       leo et_hwrest(et_regs)
    676   1.3       leo et_sv_reg_t	*et_regs;
    677   1.3       leo {
    678   1.3       leo 	volatile u_char *ba;
    679   1.3       leo 	int		i, s;
    680   1.3       leo 
    681   1.3       leo 	ba = et_priv.regkva;
    682   1.3       leo 
    683   1.3       leo 	s = splhigh();
    684   1.3       leo 
    685   1.3       leo 	vgaw(ba, GREG_SEGMENTSELECT, 0);
    686   1.3       leo 	vgaw(ba, GREG_MISC_OUTPUT_W, et_regs->misc_output);
    687   1.3       leo 
    688   1.3       leo 	/*
    689   1.3       leo 	 * General VGA registers
    690   1.3       leo 	 */
    691  1.12       leo 	WSeq(ba, SEQ_ID_RESET, 0x01);
    692  1.12       leo 	for(i = 1; i < 5; i++)
    693   1.3       leo 		WSeq(ba, i, et_regs->seq[i]);
    694  1.12       leo 	WSeq(ba, SEQ_ID_RESET, 0x03);
    695   1.3       leo 
    696   1.3       leo 	/*
    697   1.3       leo 	 * Make sure we're allowed to write all crt-registers
    698   1.3       leo 	 */
    699   1.3       leo 	WCrt(ba, CRT_ID_END_VER_RETR,
    700   1.3       leo 		et_regs->crt[CRT_ID_END_VER_RETR] & 0x7f);
    701   1.3       leo 	for(i = 0; i < 25; i++)
    702   1.3       leo 		WCrt(ba, i, et_regs->crt[i]);
    703   1.3       leo 	for(i = 0; i < 9; i++)
    704   1.3       leo 		WGfx(ba, i, et_regs->grf[i]);
    705   1.3       leo 	for(i = 0; i < 21; i++)
    706   1.3       leo 		WAttr(ba, i | 0x20, et_regs->attr[i]);
    707   1.3       leo 
    708   1.3       leo 	/*
    709   1.3       leo 	 * ET4000 extensions
    710   1.3       leo 	 */
    711   1.3       leo 	WSeq(ba, SEQ_ID_STATE_CONTROL, et_regs->state_ctl);
    712   1.3       leo 	WSeq(ba, SEQ_ID_AUXILIARY_MODE, et_regs->aux_mode);
    713   1.3       leo 	WCrt(ba, CTR_ID_EXT_START, et_regs->ext_start);
    714   1.3       leo 	WCrt(ba, CRT_ID_6845_COMPAT, et_regs->compat_6845);
    715   1.3       leo 	WCrt(ba, CRT_ID_OVERFLOW_HIGH, et_regs->overfl_high);
    716   1.3       leo 	WCrt(ba, CRT_ID_HOR_OVERFLOW, et_regs->hor_overfl);
    717   1.3       leo 	vgaw(ba, GREG_SEGMENTSELECT, et_regs->seg_sel);
    718   1.3       leo 
    719   1.3       leo 	i = et_regs->seq[SEQ_ID_CLOCKING_MODE] & ~0x20;
    720   1.3       leo 	WSeq(ba, SEQ_ID_CLOCKING_MODE, i);
    721   1.3       leo 
    722  1.16       leo 	splx(s);
    723   1.1       leo }
    724