diff options
author | Miod Vallat <miod@cvs.openbsd.org> | 2002-12-31 16:35:43 +0000 |
---|---|---|
committer | Miod Vallat <miod@cvs.openbsd.org> | 2002-12-31 16:35:43 +0000 |
commit | 5bd8a66c32f475b5f4a897da8aef1878cc2e768e (patch) | |
tree | 90bdb8cb64032fcc765f8865bae36013cff255a7 /sys/arch/amiga/dev/grf_cl.c | |
parent | 4d298384bbeb0ddbaf45d1ececd54291a3e88796 (diff) |
amiga and sun3 turned out to not be y2k+3 compliant here. Remove them, as
well as the few userland tools which were only used on these platforms.
Diffstat (limited to 'sys/arch/amiga/dev/grf_cl.c')
-rw-r--r-- | sys/arch/amiga/dev/grf_cl.c | 1820 |
1 files changed, 0 insertions, 1820 deletions
diff --git a/sys/arch/amiga/dev/grf_cl.c b/sys/arch/amiga/dev/grf_cl.c deleted file mode 100644 index 4742e8e0e2f..00000000000 --- a/sys/arch/amiga/dev/grf_cl.c +++ /dev/null @@ -1,1820 +0,0 @@ -/* $OpenBSD: grf_cl.c,v 1.17 2002/08/02 16:13:07 millert Exp $ */ -/* $NetBSD: grf_cl.c,v 1.20 1997/07/29 17:46:24 veego Exp $ */ - -/* - * Copyright (c) 1997 Klaus Burkert - * Copyright (c) 1995 Ezra Story - * Copyright (c) 1995 Kari Mettinen - * Copyright (c) 1994 Markus Wild - * Copyright (c) 1994 Lutz Vieweg - * All rights reserved. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by Lutz Vieweg. - * 4. The name of the author may not be used to endorse or promote products - * derived from this software without specific prior written permission - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR - * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES - * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. - * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, - * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT - * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, - * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY - * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT - * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF - * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - */ -#include "grfcl.h" -#if NGRFCL > 0 - -/* - * Graphics routines for Cirrus CL GD 5426 boards, - * - * This code offers low-level routines to access Cirrus Cl GD 5426 - * graphics-boards from within OpenBSD for the Amiga. - * No warranties for any kind of function at all - this - * code may crash your hardware and scratch your harddisk. Use at your - * own risk. Freely distributable. - * - * Modified for Cirrus CL GD 5426 from - * Lutz Vieweg's retina driver by Kari Mettinen 08/94 - * Contributions by Ill, ScottE, MiL - * Extensively hacked and rewritten by Ezra Story (Ezy) 01/95 - * Picasso/040 patches (wee!) by crest 01/96 - * - * PicassoIV support bz Klaus "crest" Burkert. - * Fixed interlace and doublescan, added clockdoubling and - * HiColor&TrueColor suuport by crest 01/97 - * - * Thanks to Village Tronic Marketing Gmbh for providing me with - * a Picasso-II board. - * Thanks for Integrated Electronics Oy Ab for providing me with - * Cirrus CL GD 542x family documentation. - * - * TODO: - * Mouse support (almost there! :-)) - * Blitter support - * - */ - -#include <sys/param.h> -#include <sys/systm.h> -#include <sys/errno.h> -#include <sys/ioctl.h> -#include <sys/device.h> -#include <sys/malloc.h> - -#include <machine/cpu.h> -#include <dev/cons.h> -#include <amiga/dev/itevar.h> -#include <amiga/amiga/device.h> -#include <amiga/dev/grfioctl.h> -#include <amiga/dev/grfvar.h> -#include <amiga/dev/grf_clreg.h> -#include <amiga/dev/zbusvar.h> - -int cl_mondefok(struct grfvideo_mode *); -void cl_boardinit(struct grf_softc *); -void cl_CompFQ(u_int, u_char *, u_char *, u_char *); -int cl_getvmode(struct grf_softc *, struct grfvideo_mode *); -int cl_setvmode(struct grf_softc *, unsigned int); -int cl_toggle(struct grf_softc *, unsigned short); -int cl_getcmap(struct grf_softc *, struct grf_colormap *); -int cl_putcmap(struct grf_softc *, struct grf_colormap *); -#ifndef CL5426CONSOLE -void cl_off(struct grf_softc *); -#endif -void cl_inittextmode(struct grf_softc *); -int cl_ioctl(register struct grf_softc *, u_long, void *); -int cl_getmousepos(struct grf_softc *, struct grf_position *); -int cl_setmousepos(struct grf_softc *, struct grf_position *); -int cl_setspriteinfo(struct grf_softc *, struct grf_spriteinfo *); -int cl_getspriteinfo(struct grf_softc *, struct grf_spriteinfo *); -int cl_getspritemax(struct grf_softc *, struct grf_position *); -int cl_blank(struct grf_softc *, int *); -int cl_setmonitor(struct grf_softc *, struct grfvideo_mode *); -void cl_writesprpos(volatile char *, short, short); -void writeshifted(volatile char *, char, char); - -void RegWakeup(volatile u_char *); -void RegOnpass(volatile u_char *); -void RegOffpass(volatile u_char *); - -void grfclattach(struct device *, struct device *, void *); -int grfclprint(void *, const char *); -int grfclmatch(struct device *, void *, void *); -void cl_memset(unsigned char *, unsigned char, int); - -/* Handle rgb format */ -void cl_setcolor(volatile u_char *, u_char, u_char, u_char); -void cl_getcolor(volatile u_char *, u_char *, u_char *, u_char *); - -/* Graphics display definitions. - * These are filled by 'grfconfig' using GRFIOCSETMON. - */ -#define monitor_def_max 24 -static struct grfvideo_mode monitor_def[24] = { - {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0}, - {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0}, - {0}, {0}, {0}, {0}, {0}, {0}, {0}, {0} -}; -static struct grfvideo_mode *monitor_current = &monitor_def[0]; - -/* Patchable maximum pixel clock */ -unsigned long cl_maxpixelclock = 86000000; - -/* Console display definition. - * Default hardcoded text mode. This grf_cl is set up to - * use one text mode only, and this is it. You may use - * grfconfig to change the mode after boot. - */ -/* Console font */ -#ifdef KFONT_8X11 -#define CIRRUSFONT kernel_font_8x11 -#define CIRRUSFONTY 11 -#else -#define CIRRUSFONT kernel_font_8x8 -#define CIRRUSFONTY 8 -#endif -extern unsigned char CIRRUSFONT[]; - -struct grfcltext_mode clconsole_mode = { - {255, "", 28200000, 640, 480, 4, 640/8, 752/8, 792/8, 832/8, - 481, 490, 498, 522, 0}, - 8, CIRRUSFONTY, 80, 480 / CIRRUSFONTY, CIRRUSFONT, 32, 255 -}; -/* Console colors */ -unsigned char clconscolors[13][3] = { /* background, foreground, hilite */ -// {0, 0x40, 0x50}, {152, 152, 152}, {255, 255, 255} - {0, 0, 0}, /* black */ - {170, 170, 170}, /* ul */ - {170, 170, 170}, /* white */ - {255, 255, 255}, /* bright white */ - {70, 70, 170}, /* blue */ - {100, 100, 255}, /* bright blue */ - {170, 70, 70}, /* red */ - {255, 100, 100}, /* bright red */ - {170, 170, 70}, /* yellow */ - {255, 255, 255}, /* ul2 */ - {255, 255, 100}, /* bright yellow */ - {70, 170, 70}, /* green */ - {100, 255, 70}, /* bright green */ -}; - -int cltype = 0; /* Picasso, Spectrum or Piccolo */ -int cl_64bit = 0; /* PiccoloSD64 or PicassoIV */ -unsigned char pass_toggle; /* passthru status tracker */ - -/* - * because all 542x-boards have 2 configdev entries, one for - * framebuffer mem and the other for regs, we have to hold onto - * the pointers globally until we match on both. This and 'cltype' - * are the primary obsticles to multiple board support, but if you - * have multiple boards you have bigger problems than grf_cl. - */ -static void *cl_fbaddr = 0; /* framebuffer */ -static void *cl_regaddr = 0; /* registers */ -static int cl_fbsize; /* framebuffer size */ -static int cl_fbautosize; /* framebuffer autoconfig size */ - -/* - * current sprite info, if you add support for multiple boards - * make this an array or something - */ -struct grf_spriteinfo cl_cursprite; - -/* sprite bitmaps in kernel stack, you'll need to arrayize these too if - * you add multiple board support - */ -static unsigned char cl_imageptr[8 * 64], cl_maskptr[8 * 64]; -static unsigned char cl_sprred[2], cl_sprgreen[2], cl_sprblue[2]; - -/* standard driver stuff */ -struct cfattach grfcl_ca = { - sizeof(struct grf_softc), grfclmatch, grfclattach -}; - -struct cfdriver grfcl_cd = { - NULL, "grfcl", DV_DULL, NULL, 0 -}; -static struct cfdata *grfcl_cfdata; - -/* - * Some sort 'o Magic. Spectrum has some changes on the board to speed - * up 15 and 16Bit modes. They can access these modes with easy-to-programm - * rgbrgbrgb instead of rrrgggbbb. Side effect: when in 8Bit mode, rgb - * is swapped to bgr. I wonder if we need to check for 8Bit though, ill - */ - -/* - * The source for the above comment is somewhat unknow to me. - * The Spectrum, Piccolo and PiccoloSD64 have the analog Red and Blue - * lines swapped. In 24BPP this provides RGB instead of BGR as it would - * be native to the chipset. This requires special programming for the - * CLUT in 8BPP to compensate and avoid false colors. - * I didn't find any special stuff for 15 and 16BPP though, crest. - */ -void -cl_setcolor(ba, r, g, b) - volatile u_char *ba; - u_char r, g, b; -{ - if (cltype == PICASSO) { - vgaw(ba, VDAC_DATA, (r >> 2U)); - vgaw(ba, VDAC_DATA, (g >> 2U)); - vgaw(ba, VDAC_DATA, (b >> 2U)); - } else { - vgaw(ba, VDAC_DATA, (b >> 2U)); - vgaw(ba, VDAC_DATA, (g >> 2U)); - vgaw(ba, VDAC_DATA, (r >> 2U)); - } -} - -void -cl_getcolor(ba, rp, gp, bp) - volatile u_char *ba; - u_char *rp, *gp, *bp; -{ - if (cltype == PICASSO) { - *rp = vgar(ba, VDAC_DATA) << 2; - *gp = vgar(ba, VDAC_DATA) << 2; - *bp = vgar(ba, VDAC_DATA) << 2; - } else { - *bp = vgar(ba, VDAC_DATA) << 2; - *gp = vgar(ba, VDAC_DATA) << 2; - *rp = vgar(ba, VDAC_DATA) << 2; - } -} - -int -grfclmatch(pdp, match, auxp) - struct device *pdp; - void *match, *auxp; -{ -#ifdef CL5426CONSOLE - struct cfdata *cfp = match; -#endif - struct zbus_args *zap; - static int regprod, fbprod, fbprod2; - int error; - - fbprod2 = 0; - zap = auxp; - -#ifndef CL5426CONSOLE - if (amiga_realconfig == 0) - return (0); -#endif - - /* Grab the first board we encounter as the preferred one. This will - * allow one board to work in a multiple 5426 board system, but not - * multiple boards at the same time. */ - if (cltype == 0) { - switch (zap->manid) { - case PICASSO: - switch (zap->prodid) { - case 11: - case 12: - regprod = 12; - fbprod = 11; - error = 0; - break; - case 22: - fbprod2 = 22; - error = 0; - break; - case 21: - case 23: - regprod = 23; - fbprod = 21; - cl_64bit = 1; - error = 0; - break; - case 24: - regprod = 24; - fbprod = 24; - cl_64bit = 1; - error = 0; - break; - default: - error = 1; - break; - } - if (error == 1) - return (0); - else - break; - case SPECTRUM: - if (zap->prodid != 2 && zap->prodid != 1) - return (0); - regprod = 2; - fbprod = 1; - break; - case PICCOLO: - switch (zap->prodid) { - case 5: - case 6: - regprod = 6; - fbprod = 5; - error = 0; - break; - case 10: - case 11: - regprod = 11; - fbprod = 10; - cl_64bit = 1; - error = 0; - break; - default: - error = 1; - break; - } - if (error == 1) - return (0); - else - break; - default: - return (0); - } - cltype = zap->manid; - } else { - if (cltype != zap->manid) { - return (0); - } - } - - /* Configure either registers or framebuffer in any order */ - if ((cltype == PICASSO) && (cl_64bit == 1)) { - switch (zap->prodid) { - case 21: - cl_fbaddr = zap->va; - cl_fbautosize = zap->size; - break; - case 22: - cl_fbautosize += zap->size; - break; - case 23: - cl_regaddr = (void *)((unsigned long)(zap->va) + - 0x10000); - break; - case 24: - cl_regaddr = (void *)((unsigned long)(zap->va) + - 0x600000); - cl_fbaddr = (void *)((unsigned long)(zap->va) + - 0x01000000); - cl_fbautosize = 0x400000; - break; - default: - return (0); - } - } else { - if (zap->prodid == regprod) - cl_regaddr = zap->va; - else - if (zap->prodid == fbprod) { - cl_fbaddr = zap->va; - cl_fbautosize = zap->size; - } else - return (0); - } - -#ifdef CL5426CONSOLE - if (amiga_realconfig == 0) { - grfcl_cfdata = cfp; - } -#endif - - return (1); -} - -void -grfclattach(pdp, dp, auxp) - struct device *pdp, *dp; - void *auxp; -{ - static struct grf_softc congrf; - struct zbus_args *zap; - struct grf_softc *gp; - static char attachflag = 0; - - zap = auxp; - - printf("\n"); - - /* make sure both halves have matched */ - if (!cl_regaddr || !cl_fbaddr) - return; - - /* do all that messy console/grf stuff */ - if (dp == NULL) - gp = &congrf; - else - gp = (struct grf_softc *) dp; - - if (dp != NULL && congrf.g_regkva != 0) { - /* - * inited earlier, just copy (not device struct) - */ - bcopy(&congrf.g_display, &gp->g_display, - (char *) &gp[1] - (char *) &gp->g_display); - } else { - gp->g_regkva = (volatile caddr_t) cl_regaddr; - gp->g_fbkva = (volatile caddr_t) cl_fbaddr; - - gp->g_unit = GRF_CL5426_UNIT; - gp->g_mode = cl_mode; - gp->g_conpri = grfcl_cnprobe(); - gp->g_flags = GF_ALIVE; - - /* wakeup the board */ - cl_boardinit(gp); -#ifdef CL5426CONSOLE - grfcl_iteinit(gp); - (void) cl_load_mon(gp, &clconsole_mode); -#endif - - } - - /* - * attach grf (once) - */ - if (amiga_config_found(grfcl_cfdata, &gp->g_device, gp, grfclprint)) { - attachflag = 1; - printf("grfcl: %dMB ", cl_fbsize / 0x100000); - switch (cltype) { - case PICASSO: - if (cl_64bit == 1) { - printf("Picasso IV"); - /* 135MHz will be supported if we - * have a palette doubling mode. - */ - cl_maxpixelclock = 86000000; - } else { - printf("Picasso II"); - - /* check for PicassoII+ (crest) */ - if (zap->serno == 0x00100000) - printf("+"); - - /* determine used Gfx/chipset (crest) */ - vgaw(gp->g_regkva, CRT_ADDRESS, 0x27); - switch (vgar(gp->g_regkva, CRT_ADDRESS_R)>>2) { - case 0x24: - printf(" (with CL-GD5426)"); - break; - case 0x26: - printf(" (with CL-GD5428)"); - break; - case 0x27: - printf(" (with CL-GD5429)"); - break; - } - cl_maxpixelclock = 86000000; - } - break; - case SPECTRUM: - printf("Spectrum"); - cl_maxpixelclock = 90000000; - break; - case PICCOLO: - if (cl_64bit == 1) { - printf("Piccolo SD64"); - /* 110MHz will be supported if we - * have a palette doubling mode. - */ - cl_maxpixelclock = 90000000; - } else { - printf("Piccolo"); - cl_maxpixelclock = 90000000; - } - break; - } - printf(" being used\n"); -#ifdef CL_OVERCLOCK - cl_maxpixelclock = 115000000; -#endif - } else { - if (!attachflag) - printf("grfcl unattached!!\n"); - } -} - -int -grfclprint(auxp, pnp) - void *auxp; - const char *pnp; -{ - if (pnp) - printf("ite at %s: ", pnp); - return (UNCONF); -} - -void -cl_boardinit(gp) - struct grf_softc *gp; -{ - volatile unsigned char *ba = gp->g_regkva; - int x; - - if ((cltype == PICASSO) && (cl_64bit == 1)) { /* PicassoIV */ - /* disable capture (FlickerFixer) */ - WCrt(ba, 0x51, 0x00); - /* wait some time (two frames as of now) */ - delay(200000); - /* get Blitter into 542x */ - WGfx(ba, 0x2f, 0x00); - /* compatibility mode */ - WGfx(ba, GCT_ID_RESERVED, 0x00); - /* or at least, try so... */ - WGfx(ba, GCT_ID_BLT_STAT_START, 0x00); - cl_fbsize = cl_fbautosize; - } else { - - /* wakeup board and flip passthru OFF */ - RegWakeup(ba); - RegOnpass(ba); - - vgaw(ba, 0x46e8, 0x16); - vgaw(ba, 0x102, 1); - vgaw(ba, 0x46e8, 0x0e); - if (cl_64bit != 1) - vgaw(ba, 0x3c3, 1); - - cl_fbsize = cl_fbautosize; - - /* setup initial unchanging parameters */ - - /* 8 dot - display off */ - WSeq(ba, SEQ_ID_CLOCKING_MODE, 0x21); - vgaw(ba, GREG_MISC_OUTPUT_W, 0xed); /* mem disable */ - - WGfx(ba, GCT_ID_OFFSET_1, 0xec); /* magic cookie */ - WSeq(ba, SEQ_ID_UNLOCK_EXT, 0x12); /* yum! cookies! */ - - if (cl_64bit == 1) { - WSeq(ba, SEQ_ID_CONF_RBACK, 0x00); - WSeq(ba, SEQ_ID_DRAM_CNTL, - (cl_fbsize / 0x100000 == 2) ? 0x38 : 0xb8); - } else { - WSeq(ba, SEQ_ID_DRAM_CNTL, 0xb0); - } - WSeq(ba, SEQ_ID_RESET, 0x03); - WSeq(ba, SEQ_ID_MAP_MASK, 0xff); - WSeq(ba, SEQ_ID_CHAR_MAP_SELECT, 0x00); - WSeq(ba, SEQ_ID_MEMORY_MODE, 0x0e); /* a or 6? */ - WSeq(ba, SEQ_ID_EXT_SEQ_MODE, - (cltype == PICASSO) ? 0x21 : 0x81); - WSeq(ba, SEQ_ID_EEPROM_CNTL, 0x00); - if (cl_64bit == 1) - WSeq(ba, SEQ_ID_PERF_TUNE, 0x5a); - else - /* mouse 0a fa */ - WSeq(ba, SEQ_ID_PERF_TUNE, 0x0a); - WSeq(ba, SEQ_ID_SIG_CNTL, 0x02); - WSeq(ba, SEQ_ID_CURSOR_ATTR, 0x04); - if (cl_64bit == 1) - WSeq(ba, SEQ_ID_MCLK_SELECT, 0x1c); - else - WSeq(ba, SEQ_ID_MCLK_SELECT, 0x22); - - WCrt(ba, CRT_ID_PRESET_ROW_SCAN, 0x00); - WCrt(ba, CRT_ID_CURSOR_START, 0x00); - WCrt(ba, CRT_ID_CURSOR_END, 0x08); - WCrt(ba, CRT_ID_START_ADDR_HIGH, 0x00); - WCrt(ba, CRT_ID_START_ADDR_LOW, 0x00); - WCrt(ba, CRT_ID_CURSOR_LOC_HIGH, 0x00); - WCrt(ba, CRT_ID_CURSOR_LOC_LOW, 0x00); - - WCrt(ba, CRT_ID_UNDERLINE_LOC, 0x07); - WCrt(ba, CRT_ID_MODE_CONTROL, 0xe3); - WCrt(ba, CRT_ID_LINE_COMPARE, 0xff); /* ff */ - WCrt(ba, CRT_ID_EXT_DISP_CNTL, 0x22); - if (cl_64bit == 1) { - WCrt(ba, CRT_ID_SYNC_ADJ_GENLOCK, 0x00); - WCrt(ba, CRT_ID_OVERLAY_EXT_CTRL_REG, 0x40); - } - WSeq(ba, SEQ_ID_CURSOR_STORE, 0x3c); /* mouse 0x00 */ - - WGfx(ba, GCT_ID_SET_RESET, 0x00); - WGfx(ba, GCT_ID_ENABLE_SET_RESET, 0x00); - WGfx(ba, GCT_ID_DATA_ROTATE, 0x00); - WGfx(ba, GCT_ID_READ_MAP_SELECT, 0x00); - WGfx(ba, GCT_ID_GRAPHICS_MODE, 0x00); - WGfx(ba, GCT_ID_MISC, 0x01); - WGfx(ba, GCT_ID_COLOR_XCARE, 0x0f); - WGfx(ba, GCT_ID_BITMASK, 0xff); - WGfx(ba, GCT_ID_MODE_EXT, 0x28); - - for (x = 0; x < 0x10; x++) - WAttr(ba, x, x); - WAttr(ba, ACT_ID_ATTR_MODE_CNTL, 0x01); - WAttr(ba, ACT_ID_OVERSCAN_COLOR, 0x00); - WAttr(ba, ACT_ID_COLOR_PLANE_ENA, 0x0f); - WAttr(ba, ACT_ID_HOR_PEL_PANNING, 0x00); - WAttr(ba, ACT_ID_COLOR_SELECT, 0x00); - WAttr(ba, 0x34, 0x00); - - vgaw(ba, VDAC_MASK, 0xff); - vgaw(ba, GREG_MISC_OUTPUT_W, 0xef); - - WGfx(ba, GCT_ID_BLT_STAT_START, 0x04); - WGfx(ba, GCT_ID_BLT_STAT_START, 0x00); - } - - /* colors initially set to greyscale */ - vgaw(ba, VDAC_ADDRESS_W, 0); - for (x = 255; x >= 0; x--) - cl_setcolor(ba, x, x, x); - /* set sprite bitmap pointers */ - cl_cursprite.image = cl_imageptr; - cl_cursprite.mask = cl_maskptr; - cl_cursprite.cmap.red = cl_sprred; - cl_cursprite.cmap.green = cl_sprgreen; - cl_cursprite.cmap.blue = cl_sprblue; - - if (cl_64bit == 0) { - /* check for 1MB or 2MB board (crest) */ - volatile unsigned long *cl_fbtestaddr; - cl_fbtestaddr = (volatile unsigned long *)gp->g_fbkva; - - WGfx(ba, GCT_ID_OFFSET_0, 0x40); - *cl_fbtestaddr = 0x12345678; - - if (*cl_fbtestaddr != 0x12345678) { - WSeq(ba, SEQ_ID_DRAM_CNTL, 0x30); - cl_fbsize = 0x100000; - } else { - cl_fbsize = 0x200000; - } - } - WGfx(ba, GCT_ID_OFFSET_0, 0x00); -} - - -int -cl_getvmode(gp, vm) - struct grf_softc *gp; - struct grfvideo_mode *vm; -{ - struct grfvideo_mode *gv; - -#ifdef CL5426CONSOLE - /* Handle grabbing console mode */ - if (vm->mode_num == 255) { - bcopy(&clconsole_mode, vm, sizeof(struct grfvideo_mode)); - /* XXX so grfconfig can tell us the correct text dimensions. */ - vm->depth = clconsole_mode.fy; - } else -#endif - { - if (vm->mode_num == 0) - vm->mode_num = (monitor_current - monitor_def) + 1; - if (vm->mode_num < 1 || vm->mode_num > monitor_def_max) - return (EINVAL); - gv = monitor_def + (vm->mode_num - 1); - if (gv->mode_num == 0) - return (EINVAL); - - bcopy(gv, vm, sizeof(struct grfvideo_mode)); - } - - /* adjust internal values to pixel values */ - - vm->hblank_start *= 8; - vm->hsync_start *= 8; - vm->hsync_stop *= 8; - vm->htotal *= 8; - - return (0); -} - - -int -cl_setvmode(gp, mode) - struct grf_softc *gp; - unsigned mode; -{ - if (!mode || (mode > monitor_def_max) || - monitor_def[mode - 1].mode_num == 0) - return (EINVAL); - - monitor_current = monitor_def + (mode - 1); - - return (0); -} - -#ifndef CL5426CONSOLE -void -cl_off(gp) - struct grf_softc *gp; -{ - char *ba = gp->g_regkva; - - /* - * we'll put the pass-through on for cc ite and set Full Bandwidth bit - * on just in case it didn't work...but then it doesn't matter does - * it? =) - */ - RegOnpass(ba); - vgaw(ba, SEQ_ADDRESS, SEQ_ID_CLOCKING_MODE); - vgaw(ba, SEQ_ADDRESS_W, vgar(ba, SEQ_ADDRESS_W) | 0x20); -} -#endif - -int -cl_blank(gp, on) - struct grf_softc *gp; - int *on; -{ - WSeq(gp->g_regkva, SEQ_ID_CLOCKING_MODE, *on > 0 ? 0x01 : 0x21); - return(0); -} - -/* - * Change the mode of the display. - * Return a UNIX error number or 0 for success. - */ -int -cl_mode(gp, cmd, arg, a2, a3) - register struct grf_softc *gp; - u_long cmd; - void *arg; - u_long a2; - int a3; -{ - int error; - - switch (cmd) { - case GM_GRFON: - error = cl_load_mon(gp, - (struct grfcltext_mode *) monitor_current) ? 0 : EINVAL; - return (error); - - case GM_GRFOFF: -#ifndef CL5426CONSOLE - cl_off(gp); -#else - cl_load_mon(gp, &clconsole_mode); -#endif - return (0); - - case GM_GRFCONFIG: - return (0); - - case GM_GRFGETVMODE: - return (cl_getvmode(gp, (struct grfvideo_mode *) arg)); - - case GM_GRFSETVMODE: - error = cl_setvmode(gp, *(unsigned *) arg); - if (!error && (gp->g_flags & GF_GRFON)) - cl_load_mon(gp, - (struct grfcltext_mode *) monitor_current); - return (error); - - case GM_GRFGETNUMVM: - *(int *) arg = monitor_def_max; - return (0); - - case GM_GRFIOCTL: - return (cl_ioctl(gp, a2, arg)); - - default: - break; - } - - return (EINVAL); -} - -int -cl_ioctl(gp, cmd, data) - register struct grf_softc *gp; - u_long cmd; - void *data; -{ - switch (cmd) { - case GRFIOCGSPRITEPOS: - return (cl_getmousepos(gp, (struct grf_position *) data)); - - case GRFIOCSSPRITEPOS: - return (cl_setmousepos(gp, (struct grf_position *) data)); - - case GRFIOCSSPRITEINF: - return (cl_setspriteinfo(gp, (struct grf_spriteinfo *) data)); - - case GRFIOCGSPRITEINF: - return (cl_getspriteinfo(gp, (struct grf_spriteinfo *) data)); - - case GRFIOCGSPRITEMAX: - return (cl_getspritemax(gp, (struct grf_position *) data)); - - case GRFIOCGETCMAP: - return (cl_getcmap(gp, (struct grf_colormap *) data)); - - case GRFIOCPUTCMAP: - return (cl_putcmap(gp, (struct grf_colormap *) data)); - - case GRFIOCBITBLT: - break; - - case GRFTOGGLE: - return (cl_toggle(gp, 0)); - - case GRFIOCSETMON: - return (cl_setmonitor(gp, (struct grfvideo_mode *) data)); - - case GRFIOCBLANK: - return (cl_blank(gp, (int *)data)); - - } - return (EINVAL); -} - -int -cl_getmousepos(gp, data) - struct grf_softc *gp; - struct grf_position *data; -{ - data->x = cl_cursprite.pos.x; - data->y = cl_cursprite.pos.y; - return (0); -} - -void -cl_writesprpos(ba, x, y) - volatile char *ba; - short x; - short y; -{ - /* we want to use a 16-bit write to 3c4 so no macros used */ - volatile unsigned char *cwp; - volatile unsigned short *wp; - - cwp = ba + 0x3c4; - wp = (unsigned short *)cwp; - - /* - * don't ask me why, but apparently you can't do a 16-bit write with - * x-position like with y-position below (dagge) - */ - cwp[0] = 0x10 | ((x << 5) & 0xff); - cwp[1] = (x >> 3) & 0xff; - - *wp = 0x1100 | ((y & 7) << 13) | ((y >> 3) & 0xff); -} - -void -writeshifted(to, shiftx, shifty) - volatile char *to; - char shiftx; - char shifty; -{ - register char y; - unsigned long long *tptr, *iptr, *mptr, line; - - tptr = (unsigned long long *) to; - iptr = (unsigned long long *) cl_cursprite.image; - mptr = (unsigned long long *) cl_cursprite.mask; - - shiftx = shiftx < 0 ? 0 : shiftx; - shifty = shifty < 0 ? 0 : shifty; - - /* - * start reading shifty lines down, and - * shift each line in by shiftx - */ - for (y = shifty; y < 64; y++) { - - /* image */ - line = iptr[(int)y]; - *tptr++ = line << shiftx; - - /* mask */ - line = mptr[(int)y]; - *tptr++ = line << shiftx; - } - - /* clear the remainder */ - for (y = shifty; y > 0; y--) { - *tptr++ = 0; - *tptr++ = 0; - } -} - -int -cl_setmousepos(gp, data) - struct grf_softc *gp; - struct grf_position *data; -{ - volatile char *ba = gp->g_regkva; - short rx, ry, prx, pry; -#ifdef CL_SHIFTSPRITE - volatile char *fb = gp->g_fbkva; - volatile char *sprite = fb + (cl_fbsize - 1024); -#endif - - /* no movement */ - if (cl_cursprite.pos.x == data->x && cl_cursprite.pos.y == data->y) - return (0); - - /* current and previous real coordinates */ - rx = data->x - cl_cursprite.hot.x; - ry = data->y - cl_cursprite.hot.y; - prx = cl_cursprite.pos.x - cl_cursprite.hot.x; - pry = cl_cursprite.pos.y - cl_cursprite.hot.y; - - /* - * if we are/were on an edge, create (un)shifted bitmap -- - * ripped out optimization (not extremely worthwhile, - * and kind of buggy anyhow). - */ -#ifdef CL_SHIFTSPRITE - if (rx < 0 || ry < 0 || prx < 0 || pry < 0) { - writeshifted(sprite, rx < 0 ? -rx : 0, ry < 0 ? -ry : 0); - } -#endif - - /* do movement, save position */ - cl_writesprpos(ba, rx < 0 ? 0 : rx, ry < 0 ? 0 : ry); - cl_cursprite.pos.x = data->x; - cl_cursprite.pos.y = data->y; - - return (0); -} - -int -cl_getspriteinfo(gp, data) - struct grf_softc *gp; - struct grf_spriteinfo *data; -{ - copyout(&cl_cursprite, data, sizeof(struct grf_spriteinfo)); - copyout(cl_cursprite.image, data->image, 64 * 8); - copyout(cl_cursprite.mask, data->mask, 64 * 8); - return (0); -} - -int -cl_setspriteinfo(gp, data) - struct grf_softc *gp; - struct grf_spriteinfo *data; -{ - volatile unsigned char *ba = gp->g_regkva, *fb = gp->g_fbkva; - volatile char *sprite = fb + (cl_fbsize - 1024); - - if (data->set & GRFSPRSET_SHAPE) { - - unsigned short dsx, dsy, i; - unsigned long *di, *dm, *si, *sm; - unsigned long ssi[128], ssm[128]; - struct grf_position gpos; - - - /* check for a too large sprite (no clipping!) */ - dsy = data->size.y; - dsx = data->size.x; - if (dsy > 64 || dsx > 64) - return(EINVAL); - - /* prepare destination */ - di = (unsigned long *)cl_cursprite.image; - dm = (unsigned long *)cl_cursprite.mask; - cl_memset((unsigned char *)di, 0, 8*64); - cl_memset((unsigned char *)dm, 0, 8*64); - - /* two alternatives: 64 across, then it's - * the same format we use, just copy. Otherwise, - * copy into tmp buf and recopy skipping the - * unused 32 bits. - */ - if ((dsx - 1) / 32) { - copyin(data->image, di, 8 * dsy); - copyin(data->mask, dm, 8 * dsy); - } else { - si = ssi; sm = ssm; - copyin(data->image, si, 4 * dsy); - copyin(data->mask, sm, 4 * dsy); - for (i = 0; i < dsy; i++) { - *di = *si++; - *dm = *sm++; - di += 2; - dm += 2; - } - } - - /* set size */ - cl_cursprite.size.x = data->size.x; - cl_cursprite.size.y = data->size.y; - - /* forcably load into board */ - gpos.x = cl_cursprite.pos.x; - gpos.y = cl_cursprite.pos.y; - cl_cursprite.pos.x = -1; - cl_cursprite.pos.y = -1; - writeshifted(sprite, 0, 0); - cl_setmousepos(gp, &gpos); - - } - if (data->set & GRFSPRSET_HOT) { - - cl_cursprite.hot = data->hot; - - } - if (data->set & GRFSPRSET_CMAP) { - - u_char red[2], green[2], blue[2]; - - copyin(data->cmap.red, red, 2); - copyin(data->cmap.green, green, 2); - copyin(data->cmap.blue, blue, 2); - bcopy(red, cl_cursprite.cmap.red, 2); - bcopy(green, cl_cursprite.cmap.green, 2); - bcopy(blue, cl_cursprite.cmap.blue, 2); - - /* enable and load colors 256 & 257 */ - WSeq(ba, SEQ_ID_CURSOR_ATTR, 0x06); - - /* 256 */ - vgaw(ba, VDAC_ADDRESS_W, 0x00); - cl_setcolor(ba, red[0], green[0], blue[0]); - - /* 257 */ - vgaw(ba, VDAC_ADDRESS_W, 0x0f); - cl_setcolor(ba, red[1], green[1], blue[1]); - - /* turn on/off sprite */ - if (cl_cursprite.enable) { - WSeq(ba, SEQ_ID_CURSOR_ATTR, 0x05); - } else { - WSeq(ba, SEQ_ID_CURSOR_ATTR, 0x04); - } - - } - if (data->set & GRFSPRSET_ENABLE) { - - if (data->enable == 1) { - WSeq(ba, SEQ_ID_CURSOR_ATTR, 0x05); - cl_cursprite.enable = 1; - } else { - WSeq(ba, SEQ_ID_CURSOR_ATTR, 0x04); - cl_cursprite.enable = 0; - } - - } - if (data->set & GRFSPRSET_POS) { - - /* force placement */ - cl_cursprite.pos.x = -1; - cl_cursprite.pos.y = -1; - - /* do it */ - cl_setmousepos(gp, &data->pos); - - } - return (0); -} - -int -cl_getspritemax(gp, data) - struct grf_softc *gp; - struct grf_position *data; -{ - if (gp->g_display.gd_planes == 24) - return (EINVAL); - data->x = 64; - data->y = 64; - return (0); -} - -int -cl_setmonitor(gp, gv) - struct grf_softc *gp; - struct grfvideo_mode *gv; -{ - struct grfvideo_mode *md; - - if (!cl_mondefok(gv)) - return(EINVAL); - -#ifdef CL5426CONSOLE - /* handle interactive setting of console mode */ - if (gv->mode_num == 255) { - bcopy(gv, &clconsole_mode.gv, sizeof(struct grfvideo_mode)); - clconsole_mode.gv.hblank_start /= 8; - clconsole_mode.gv.hsync_start /= 8; - clconsole_mode.gv.hsync_stop /= 8; - clconsole_mode.gv.htotal /= 8; - clconsole_mode.rows = gv->disp_height / clconsole_mode.fy; - clconsole_mode.cols = gv->disp_width / clconsole_mode.fx; - if (!(gp->g_flags & GF_GRFON)) - cl_load_mon(gp, &clconsole_mode); - ite_reinit(gp->g_itedev); - return (0); - } -#endif - - md = monitor_def + (gv->mode_num - 1); - bcopy(gv, md, sizeof(struct grfvideo_mode)); - - /* adjust pixel oriented values to internal rep. */ - - md->hblank_start /= 8; - md->hsync_start /= 8; - md->hsync_stop /= 8; - md->htotal /= 8; - - return (0); -} - -int -cl_getcmap(gfp, cmap) - struct grf_softc *gfp; - struct grf_colormap *cmap; -{ - volatile unsigned char *ba; - u_char red[256], green[256], blue[256], *rp, *gp, *bp; - short x; - int error; - - if (cmap->count == 0 || cmap->index >= 256) - return 0; - - if (cmap->count > 256 - cmap->index) - cmap->count = 256 - cmap->index; - - ba = gfp->g_regkva; - /* first read colors out of the chip, then copyout to userspace */ - vgaw(ba, VDAC_ADDRESS_R, cmap->index); - - rp = red + cmap->index; - gp = green + cmap->index; - bp = blue + cmap->index; - - for (x = 0; x < cmap->count; x++) - cl_getcolor(ba, rp++, gp++, bp++); - - if (!(error = copyout(red + cmap->index, cmap->red, cmap->count)) - && !(error = copyout(green + cmap->index, cmap->green, cmap->count)) - && !(error = copyout(blue + cmap->index, cmap->blue, cmap->count))) - return (0); - - return (error); -} - -int -cl_putcmap(gfp, cmap) - struct grf_softc *gfp; - struct grf_colormap *cmap; -{ - volatile unsigned char *ba; - u_char red[256], green[256], blue[256], *rp, *gp, *bp; - short x; - int error; - - if (cmap->count == 0 || cmap->index >= 256) - return (0); - - if (cmap->count > 256 - cmap->index) - cmap->count = 256 - cmap->index; - - /* first copy the colors into kernelspace */ - if (!(error = copyin(cmap->red, red + cmap->index, cmap->count)) - && !(error = copyin(cmap->green, green + cmap->index, cmap->count)) - && !(error = copyin(cmap->blue, blue + cmap->index, cmap->count))) { - ba = gfp->g_regkva; - vgaw(ba, VDAC_ADDRESS_W, cmap->index); - rp = red + cmap->index; - gp = green + cmap->index; - bp = blue + cmap->index; - - for (x = 0; x < cmap->count; x++) - cl_setcolor(ba, *rp++, *gp++, *bp++); - return (0); - } else - return (error); -} - - -int -cl_toggle(gp, wopp) - struct grf_softc *gp; - unsigned short wopp; /* don't need that one yet, ill */ -{ - volatile caddr_t ba; - - ba = gp->g_regkva; - - if (pass_toggle) { - RegOffpass(ba); - } else { - RegOnpass(ba); - } - return (0); -} - -void -cl_CompFQ(fq, num, denom, clkdoub) - u_int fq; - u_char *num; - u_char *denom; - u_char *clkdoub; -{ -#define OSC 14318180 -/* OK, here's what we're doing here: - * - * OSC * NUMERATOR - * VCLK = ------------------- Hz - * DENOMINATOR * (1+P) - * - * so we're given VCLK and we should give out some useful - * values.... - * - * NUMERATOR is 7 bits wide - * DENOMINATOR is 5 bits wide with bit P in the same char as bit 0. - * - * We run through all the possible combinations and - * return the values which deviate the least from the chosen frequency. - * - */ -#define OSC 14318180 -#define count(n,d,p) ((OSC * n)/(d * (1+p))) - - unsigned char n, d, p, minn, mind, minp = 0; - unsigned long err, minerr; - -/* -numer = 0x00 - 0x7f -denom = 0x00 - 0x1f (1) 0x20 - 0x3e (even) -*/ - - /* find lowest error in 6144 iterations. */ - minerr = fq; - minn = 0; - mind = 0; - p = 0; - - if ((cl_64bit == 1) && (fq >= 86000000)) { - for (d = 1; d < 0x20; d++) { - for (n = 1; n < 0x80; n++) { - err = abs(count(n, d, 0) - fq); - if (err < minerr) { - minerr = err; - minn = n; - mind = d; - minp = 1; - } - } - } - *clkdoub = 1; - } else { - for (d = 1; d < 0x20; d++) { - for (n = 1; n < 0x80; n++) { - err = abs(count(n, d, p) - fq); - if (err < minerr) { - minerr = err; - minn = n; - mind = d; - minp = p; - } - } - if (d == 0x1f && p == 0) { - p = 1; - d = 0x0f; - } - } - *clkdoub = 0; - } - - *num = minn; - *denom = (mind << 1) | minp; - if (minerr > 500000) - printf("Warning: CompFQ minimum error = %ld\n", minerr); - return; -} - -int -cl_mondefok(gv) - struct grfvideo_mode *gv; -{ - unsigned long maxpix; - - if (gv->mode_num < 1 || gv->mode_num > monitor_def_max) - if (gv->mode_num != 255 || gv->depth != 4) - return(0); - - switch (gv->depth) { - case 4: - if (gv->mode_num != 255) - return(0); - case 1: - case 8: - maxpix = cl_maxpixelclock; - if (cl_64bit == 1) - { - if (cltype == PICASSO) /* Picasso IV */ - maxpix = 135000000; - else /* Piccolo SD64 */ - maxpix = 110000000; - } - break; - case 15: - case 16: - if (cl_64bit == 1) - maxpix = 85000000; - else - maxpix = cl_maxpixelclock - (cl_maxpixelclock / 3); - break; - case 24: - if ((cltype == PICASSO) && (cl_64bit == 1)) - maxpix = 85000000; - else - maxpix = cl_maxpixelclock / 3; - break; - case 32: - if ((cltype == PICCOLO) && (cl_64bit == 1)) - maxpix = 50000000; - else - maxpix = 0; - break; - default: - printf("grfcl: Illegal depth in mode %d\n", - (int) gv->mode_num); - return (0); - } - - if (gv->pixel_clock > maxpix) { - printf("grfcl: Pixelclock too high in mode %d\n", - (int) gv->mode_num); - return (0); - } - - if (gv->disp_flags & GRF_FLAGS_SYNC_ON_GREEN) { - printf("grfcl: sync-on-green is not supported\n"); - return (0); - } - - return (1); -} - -int -cl_load_mon(gp, md) - struct grf_softc *gp; - struct grfcltext_mode *md; -{ - struct grfvideo_mode *gv; - struct grfinfo *gi; - volatile caddr_t ba, fb; - unsigned char num0, denom0, clkdoub; - unsigned short HT, HDE, HBS, HBE, HSS, HSE, VDE, VBS, VBE, VSS, - VSE, VT; - int clkmul, offsmul, clkmode; - int vmul; - int sr15; - unsigned char hvsync_pulse; - char TEXT; - - /* identity */ - gv = &md->gv; - TEXT = (gv->depth == 4); - - if (!cl_mondefok(gv)) { - printf("grfcl: Monitor definition not ok\n"); - return (0); - } - - ba = gp->g_regkva; - fb = gp->g_fbkva; - - /* - * provide all needed information in grf device-independant - * locations - */ - gp->g_data = (caddr_t)gv; - gi = &gp->g_display; - gi->gd_regaddr = (caddr_t)kvtop(ba); - gi->gd_regsize = 64 * 1024; - gi->gd_fbaddr = (caddr_t)kvtop(fb); - gi->gd_fbsize = cl_fbsize; - gi->gd_colors = 1 << gv->depth; - gi->gd_planes = gv->depth; - gi->gd_fbwidth = gv->disp_width; - gi->gd_fbheight = gv->disp_height; - gi->gd_fbx = 0; - gi->gd_fby = 0; - if (TEXT) { - gi->gd_dwidth = md->fx * md->cols; - gi->gd_dheight = md->fy * md->rows; - } else { - gi->gd_dwidth = gv->disp_width; - gi->gd_dheight = gv->disp_height; - } - gi->gd_dx = 0; - gi->gd_dy = 0; - - /* get display mode parameters */ - - HBS = gv->hblank_start; - HSS = gv->hsync_start; - HSE = gv->hsync_stop; - HBE = gv->htotal - 1; - HT = gv->htotal; - VBS = gv->vblank_start; - VSS = gv->vsync_start; - VSE = gv->vsync_stop; - VBE = gv->vtotal - 1; - VT = gv->vtotal; - - if (TEXT) - HDE = ((gv->disp_width + md->fx - 1) / md->fx) - 1; - else - HDE = (gv->disp_width + 3) / 8 - 1; /* HBS; */ - VDE = gv->disp_height - 1; - - /* adjustments */ - switch (gv->depth) { - case 8: - clkmul = 1; - offsmul = 1; - clkmode = 0x0; - break; - case 15: - case 16: - clkmul = 1; - offsmul = 2; - clkmode = 0x6; - break; - case 24: - /* Picasso IV? */ - if ((cltype == PICASSO) && (cl_64bit == 1)) - clkmul = 1; - else - clkmul = 3; - offsmul = 3; - clkmode = 0x4; - break; - case 32: - clkmul = 1; - offsmul = 2; - clkmode = 0x8; - break; - default: - clkmul = 1; - offsmul = 1; - clkmode = 0x0; - break; - } - - if ((VT > 1023) && (!(gv->disp_flags & GRF_FLAGS_LACE))) { - WCrt(ba, CRT_ID_MODE_CONTROL, 0xe7); - } else - WCrt(ba, CRT_ID_MODE_CONTROL, 0xe3); - - vmul = 2; - if ((VT > 1023) || (gv->disp_flags & GRF_FLAGS_LACE)) - vmul = 1; - if (gv->disp_flags & GRF_FLAGS_DBLSCAN) - vmul = 4; - - VDE = VDE * vmul / 2; - VBS = VBS * vmul / 2; - VSS = VSS * vmul / 2; - VSE = VSE * vmul / 2; - VBE = VBE * vmul / 2; - VT = VT * vmul / 2; - - WSeq(ba, SEQ_ID_MEMORY_MODE, (TEXT || (gv->depth == 1)) ? 0x06 : 0x0e); - if (cl_64bit == 1) { - if (TEXT || (gv->depth == 1)) - sr15 = 0xd0; - else - sr15 = ((cl_fbsize / 0x100000 == 2) ? 0x38 : 0xb8); - WSeq(ba, SEQ_ID_CONF_RBACK, 0x00); - } else { - sr15 = (TEXT || (gv->depth == 1)) ? 0xd0 : 0xb0; - sr15 &= ((cl_fbsize / 0x100000) == 2) ? 0xff : 0x7f; - } - WSeq(ba, SEQ_ID_DRAM_CNTL, sr15); - WGfx(ba, GCT_ID_READ_MAP_SELECT, 0x00); - WSeq(ba, SEQ_ID_MAP_MASK, (gv->depth == 1) ? 0x01 : 0xff); - WSeq(ba, SEQ_ID_CHAR_MAP_SELECT, 0x00); - - /* Set clock */ - - cl_CompFQ(gv->pixel_clock * clkmul, &num0, &denom0, &clkdoub); - - /* Horizontal/Vertical Sync Pulse */ - hvsync_pulse = vgar(ba, GREG_MISC_OUTPUT_R); - if (gv->disp_flags & GRF_FLAGS_PHSYNC) - hvsync_pulse &= ~0x40; - else - hvsync_pulse |= 0x40; - if (gv->disp_flags & GRF_FLAGS_PVSYNC) - hvsync_pulse &= ~0x80; - else - hvsync_pulse |= 0x80; - vgaw(ba, GREG_MISC_OUTPUT_W, hvsync_pulse); - - if (clkdoub) { - HDE /= 2; - HBS /= 2; - HSS /= 2; - HSE /= 2; - HBE /= 2; - HT /= 2; - clkmode = 0x6; - } - - WSeq(ba, SEQ_ID_VCLK_3_NUM, num0); - WSeq(ba, SEQ_ID_VCLK_3_DENOM, denom0); - - /* load display parameters into board */ - - WCrt(ba, CRT_ID_HOR_TOTAL, HT); - WCrt(ba, CRT_ID_HOR_DISP_ENA_END, ((HDE >= HBS) ? HBS - 1 : HDE)); - WCrt(ba, CRT_ID_START_HOR_BLANK, HBS); - WCrt(ba, CRT_ID_END_HOR_BLANK, (HBE & 0x1f) | 0x80); /* | 0x80? */ - WCrt(ba, CRT_ID_START_HOR_RETR, HSS); - WCrt(ba, CRT_ID_END_HOR_RETR, - (HSE & 0x1f) | - ((HBE & 0x20) ? 0x80 : 0x00)); - WCrt(ba, CRT_ID_VER_TOTAL, VT); - WCrt(ba, CRT_ID_OVERFLOW, - 0x10 | - ((VT & 0x100) ? 0x01 : 0x00) | - ((VDE & 0x100) ? 0x02 : 0x00) | - ((VSS & 0x100) ? 0x04 : 0x00) | - ((VBS & 0x100) ? 0x08 : 0x00) | - ((VT & 0x200) ? 0x20 : 0x00) | - ((VDE & 0x200) ? 0x40 : 0x00) | - ((VSS & 0x200) ? 0x80 : 0x00)); - - WCrt(ba, CRT_ID_CHAR_HEIGHT, - 0x40 | /* TEXT ? 0x00 ??? */ - ((gv->disp_flags & GRF_FLAGS_DBLSCAN) ? 0x80 : 0x00) | - ((VBS & 0x200) ? 0x20 : 0x00) | - (TEXT ? ((md->fy - 1) & 0x1f) : 0x00)); - - /* text cursor */ - - if (TEXT) { -#if CL_ULCURSOR - WCrt(ba, CRT_ID_CURSOR_START, (md->fy & 0x1f) - 2); - WCrt(ba, CRT_ID_CURSOR_END, (md->fy & 0x1f) - 1); -#else - WCrt(ba, CRT_ID_CURSOR_START, 0x00); - WCrt(ba, CRT_ID_CURSOR_END, md->fy & 0x1f); -#endif - WCrt(ba, CRT_ID_UNDERLINE_LOC, (md->fy - 1) & 0x1f); - - WCrt(ba, CRT_ID_CURSOR_LOC_HIGH, 0x00); - WCrt(ba, CRT_ID_CURSOR_LOC_LOW, 0x00); - } - WCrt(ba, CRT_ID_START_ADDR_HIGH, 0x00); - WCrt(ba, CRT_ID_START_ADDR_LOW, 0x00); - - WCrt(ba, CRT_ID_START_VER_RETR, VSS); - WCrt(ba, CRT_ID_END_VER_RETR, (VSE & 0x0f) | 0x20); - WCrt(ba, CRT_ID_VER_DISP_ENA_END, VDE); - WCrt(ba, CRT_ID_START_VER_BLANK, VBS); - WCrt(ba, CRT_ID_END_VER_BLANK, VBE); - - WCrt(ba, CRT_ID_LINE_COMPARE, 0xff); - WCrt(ba, CRT_ID_LACE_END, HT / 2); /* MW/16 */ - WCrt(ba, CRT_ID_LACE_CNTL, - ((gv->disp_flags & GRF_FLAGS_LACE) ? 0x01 : 0x00) | - ((HBE & 0x40) ? 0x10 : 0x00) | - ((HBE & 0x80) ? 0x20 : 0x00) | - ((VBE & 0x100) ? 0x40 : 0x00) | - ((VBE & 0x200) ? 0x80 : 0x00)); - - WGfx(ba, GCT_ID_GRAPHICS_MODE, - ((TEXT || (gv->depth == 1)) ? 0x00 : 0x40)); - WGfx(ba, GCT_ID_MISC, (TEXT ? 0x04 : 0x01)); - - WSeq(ba, SEQ_ID_EXT_SEQ_MODE, - ((TEXT || (gv->depth == 1)) ? 0x00 : 0x01) | - ((cltype == PICASSO) ? 0x20 : 0x80) | clkmode); - - /* write 0x00 to VDAC_MASK before accessing HDR this helps - sometimes, out of "secret" application note (crest) */ - vgaw(ba, VDAC_MASK, 0); - /* reset HDR "magic" access counter (crest) */ - vgar(ba, VDAC_ADDRESS); - - delay(200000); - vgar(ba, VDAC_MASK); - delay(200000); - vgar(ba, VDAC_MASK); - delay(200000); - vgar(ba, VDAC_MASK); - delay(200000); - vgar(ba, VDAC_MASK); - delay(200000); - switch (gv->depth) { - case 1: - case 4: /* text */ - vgaw(ba, VDAC_MASK, 0); - HDE = gv->disp_width / 16; - break; - case 8: - if (clkdoub) - vgaw(ba, VDAC_MASK, 0x4a); /* Clockdouble Magic */ - else - vgaw(ba, VDAC_MASK, 0); - HDE = gv->disp_width / 8; - break; - case 15: - vgaw(ba, VDAC_MASK, 0xd0); - HDE = gv->disp_width / 4; - break; - case 16: - vgaw(ba, VDAC_MASK, 0xc1); - HDE = gv->disp_width / 4; - break; - case 24: - vgaw(ba, VDAC_MASK, 0xc5); - HDE = (gv->disp_width / 8) * 3; - break; - case 32: - vgaw(ba, VDAC_MASK, 0xc5); - HDE = (gv->disp_width / 4); - break; - } - - /* reset HDR "magic" access counter (crest) */ - vgar(ba, VDAC_ADDRESS); - /* then enable all bit in VDAC_MASK afterwards (crest) */ - vgaw(ba, VDAC_MASK, 0xff); - - WCrt(ba, CRT_ID_OFFSET, HDE); - if (cl_64bit == 1) { - WCrt(ba, CRT_ID_SYNC_ADJ_GENLOCK, 0x00); - WCrt(ba, CRT_ID_OVERLAY_EXT_CTRL_REG, 0x40); - } - WCrt(ba, CRT_ID_EXT_DISP_CNTL, - ((TEXT && gv->pixel_clock > 29000000) ? 0x40 : 0x00) | - 0x22 | - ((HDE > 0xff) ? 0x10 : 0x00)); - - WAttr(ba, ACT_ID_ATTR_MODE_CNTL, (TEXT ? 0x0a : 0x01)); - WAttr(ba, 0x20 | ACT_ID_COLOR_PLANE_ENA, - (gv->depth == 1) ? 0x01 : 0x0f); - - /* text initialization */ - - if (TEXT) { - cl_inittextmode(gp); - } - WSeq(ba, SEQ_ID_CURSOR_ATTR, 0x14); - WSeq(ba, SEQ_ID_CLOCKING_MODE, 0x01); - - /* Pass-through */ - - RegOffpass(ba); - - return (1); -} - -void -cl_inittextmode(gp) - struct grf_softc *gp; -{ - struct grfcltext_mode *tm = (struct grfcltext_mode *) gp->g_data; - volatile unsigned char *ba = gp->g_regkva; - unsigned char *fb = gp->g_fbkva; - unsigned char *c, *f, y; - unsigned short z; - - - /* load text font into beginning of display memory. Each character - * cell is 32 bytes long (enough for 4 planes) */ - - SetTextPlane(ba, 0x02); - cl_memset(fb, 0, 256 * 32); - c = (unsigned char *) (fb) + (32 * tm->fdstart); - f = tm->fdata; - for (z = tm->fdstart; z <= tm->fdend; z++, c += (32 - tm->fy)) - for (y = 0; y < tm->fy; y++) - *c++ = *f++; - - /* clear out text/attr planes (three screens worth) */ - - SetTextPlane(ba, 0x01); - cl_memset(fb, 0x07, tm->cols * tm->rows * 3); - SetTextPlane(ba, 0x00); - cl_memset(fb, 0x20, tm->cols * tm->rows * 3); - - /* print out a little init msg */ - - c = (unsigned char *) (fb) + (tm->cols - 32); -#define MPROMPT "CIRRUS" - memcpy(c, MPROMPT, sizeof(MPROMPT)-1); - SetTextPlane(ba, 0x01); - - /* set colors (B&W) */ - - vgaw(ba, VDAC_ADDRESS_W, 0); - for (z = 0; z < 256; z++) { - y = z % 13; - cl_setcolor(ba, clconscolors[y][0], - clconscolors[y][1], clconscolors[y][2]); - } -} - -void -cl_memset(d, c, l) - unsigned char *d; - unsigned char c; - int l; -{ - for (; l > 0; l--) - *d++ = c; -} - -/* - * Special wakeup/passthrough registers on graphics boards - * - * The methods have diverged a bit for each board, so - * WPass(P) has been converted into a set of specific - * inline functions. - */ -void -RegWakeup(ba) - volatile u_char *ba; -{ - - switch (cltype) { - case SPECTRUM: - vgaw(ba, PASS_ADDRESS_W, 0x1f); - break; - case PICASSO: - /* Picasso needs no wakeup */ - break; - case PICCOLO: - if (cl_64bit == 1) - vgaw(ba, PASS_ADDRESS_W, 0x1f); - else - vgaw(ba, PASS_ADDRESS_W, - vgar(ba, PASS_ADDRESS) | 0x10); - break; - } - delay(200000); -} - -void -RegOnpass(ba) - volatile u_char *ba; -{ - - switch (cltype) { - case SPECTRUM: - vgaw(ba, PASS_ADDRESS_W, 0x4f); - break; - case PICASSO: - vgaw(ba, PASS_ADDRESS_WP, 0x01); - break; - case PICCOLO: - if (cl_64bit == 1) - vgaw(ba, PASS_ADDRESS_W, 0x4f); - else - vgaw(ba, PASS_ADDRESS_W, vgar(ba, PASS_ADDRESS) & 0xdf); - break; - } - pass_toggle = 1; - delay(200000); -} - -void -RegOffpass(ba) - volatile u_char *ba; -{ - - switch (cltype) { - case SPECTRUM: - vgaw(ba, PASS_ADDRESS_W, 0x6f); - break; - case PICASSO: - if (cl_64bit == 0) - vgaw(ba, PASS_ADDRESS_W, 0xff); - break; - case PICCOLO: - if (cl_64bit == 1) - vgaw(ba, PASS_ADDRESS_W, 0x6f); - else - vgaw(ba, PASS_ADDRESS_W, - vgar(ba, PASS_ADDRESS) | 0x20); - break; - } - pass_toggle = 0; - delay(200000); -} - -#endif /* NGRFCL */ |