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