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