/*- * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * Ralph Campbell and Rick Macklem. * * 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 the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``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 REGENTS OR CONTRIBUTORS 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. * * from: @(#)pm.c 8.1 (Berkeley) 6/10/93 * $Id: pm.c,v 1.3 1994/05/27 08:59:08 glass Exp $ */ /* * devGraphics.c -- * * This file contains machine-dependent routines for the graphics device. * * Copyright (C) 1989 Digital Equipment Corporation. * Permission to use, copy, modify, and distribute this software and * its documentation for any purpose and without fee is hereby granted, * provided that the above copyright notice appears in all copies. * Digital Equipment Corporation makes no representations about the * suitability of this software for any purpose. It is provided "as is" * without express or implied warranty. * * from: Header: /sprite/src/kernel/dev/ds3100.md/RCS/devGraphics.c, * v 9.2 90/02/13 22:16:24 shirriff Exp SPRITE (DECWRL)"; * $Id: pm.c,v 1.3 1994/05/27 08:59:08 glass Exp $ */ #include #include #if NPM > 0 #if NDC == 0 pm needs dc device #else #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* * These need to be mapped into user space. */ struct fbuaccess pmu; struct pmax_fb pmfb; static u_short curReg; /* copy of PCCRegs.cmdr since it's read only */ /* * Forward references. */ static void pmScreenInit(); static void pmLoadCursor(); static void pmRestoreCursorColor(); static void pmCursorColor(); void pmPosCursor(); static void pmInitColorMap(); static void pmVDACInit(); static void pmLoadColorMap(); void pmKbdEvent(), pmMouseEvent(), pmMouseButtons(); extern void dcPutc(); extern void (*dcDivertXInput)(); extern void (*dcMouseEvent)(); extern void (*dcMouseButtons)(); extern int pmax_boardtype; extern u_short defCursor[32]; extern struct consdev cn_tab; int pmprobe(); struct driver pmdriver = { "pm", pmprobe, 0, 0, }; /* * Test to see if device is present. * Return true if found and initialized ok. */ /*ARGSUSED*/ pmprobe(cp) register struct pmax_ctlr *cp; { register struct pmax_fb *fp = &pmfb; if (pmax_boardtype != DS_PMAX) return (0); if (!fp->initialized && !pminit()) return (0); if (fp->isMono) printf("pm0 (monochrome display)\n"); else printf("pm0 (color display)\n"); return (1); } /*ARGSUSED*/ pmopen(dev, flag) dev_t dev; int flag; { register struct pmax_fb *fp = &pmfb; int s; if (!fp->initialized) return (ENXIO); if (fp->GraphicsOpen) return (EBUSY); fp->GraphicsOpen = 1; if (!fp->isMono) pmInitColorMap(); /* * Set up event queue for later */ fp->fbu->scrInfo.qe.eSize = PM_MAXEVQ; fp->fbu->scrInfo.qe.eHead = fp->fbu->scrInfo.qe.eTail = 0; fp->fbu->scrInfo.qe.tcSize = MOTION_BUFFER_SIZE; fp->fbu->scrInfo.qe.tcNext = 0; fp->fbu->scrInfo.qe.timestamp_ms = TO_MS(time); s = spltty(); dcDivertXInput = pmKbdEvent; dcMouseEvent = pmMouseEvent; dcMouseButtons = pmMouseButtons; splx(s); return (0); } /*ARGSUSED*/ pmclose(dev, flag) dev_t dev; int flag; { register struct pmax_fb *fp = &pmfb; int s; if (!fp->GraphicsOpen) return (EBADF); fp->GraphicsOpen = 0; if (!fp->isMono) pmInitColorMap(); s = spltty(); dcDivertXInput = (void (*)())0; dcMouseEvent = (void (*)())0; dcMouseButtons = (void (*)())0; splx(s); pmScreenInit(); bzero((caddr_t)fp->fr_addr, (fp->isMono ? 1024 / 8 : 1024) * 864); pmPosCursor(fp->col * 8, fp->row * 15); return (0); } /*ARGSUSED*/ pmioctl(dev, cmd, data, flag, p) dev_t dev; caddr_t data; struct proc *p; { register PCCRegs *pcc = (PCCRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_PCC); register struct pmax_fb *fp = &pmfb; int s; switch (cmd) { case QIOCGINFO: return (fbmmap(fp, dev, data, p)); case QIOCPMSTATE: /* * Set mouse state. */ fp->fbu->scrInfo.mouse = *(pmCursor *)data; pmPosCursor(fp->fbu->scrInfo.mouse.x, fp->fbu->scrInfo.mouse.y); break; case QIOCINIT: /* * Initialize the screen. */ pmScreenInit(); break; case QIOCKPCMD: { pmKpCmd *kpCmdPtr; unsigned char *cp; kpCmdPtr = (pmKpCmd *)data; if (kpCmdPtr->nbytes == 0) kpCmdPtr->cmd |= 0x80; if (!fp->GraphicsOpen) kpCmdPtr->cmd |= 1; (*fp->KBDPutc)(fp->kbddev, (int)kpCmdPtr->cmd); cp = &kpCmdPtr->par[0]; for (; kpCmdPtr->nbytes > 0; cp++, kpCmdPtr->nbytes--) { if (kpCmdPtr->nbytes == 1) *cp |= 0x80; (*fp->KBDPutc)(fp->kbddev, (int)*cp); } break; } case QIOCADDR: *(PM_Info **)data = &fp->fbu->scrInfo; break; case QIOWCURSOR: pmLoadCursor((unsigned short *)data); break; case QIOWCURSORCOLOR: pmCursorColor((unsigned int *)data); break; case QIOSETCMAP: pmLoadColorMap((ColorMap *)data); break; case QIOKERNLOOP: s = spltty(); dcDivertXInput = pmKbdEvent; dcMouseEvent = pmMouseEvent; dcMouseButtons = pmMouseButtons; splx(s); break; case QIOKERNUNLOOP: s = spltty(); dcDivertXInput = (void (*)())0; dcMouseEvent = (void (*)())0; dcMouseButtons = (void (*)())0; splx(s); break; case QIOVIDEOON: if (!fp->isMono) pmRestoreCursorColor(); curReg |= PCC_ENPA; curReg &= ~PCC_FOPB; pcc->cmdr = curReg; break; case QIOVIDEOOFF: if (!fp->isMono) pmVDACInit(); curReg |= PCC_FOPB; curReg &= ~PCC_ENPA; pcc->cmdr = curReg; break; default: printf("pm0: Unknown ioctl command %x\n", cmd); return (EINVAL); } return (0); } /* * Return the physical page number that corresponds to byte offset 'off'. */ /*ARGSUSED*/ pmmap(dev, off, prot) dev_t dev; { int len; len = pmax_round_page(((vm_offset_t)&pmu & PGOFSET) + sizeof(pmu)); if (off < len) return pmax_btop(MACH_CACHED_TO_PHYS(&pmu) + off); off -= len; if (off >= pmfb.fr_size) return (-1); return pmax_btop(MACH_UNCACHED_TO_PHYS(pmfb.fr_addr) + off); } pmselect(dev, flag, p) dev_t dev; int flag; struct proc *p; { struct pmax_fb *fp = &pmfb; switch (flag) { case FREAD: if (fp->fbu->scrInfo.qe.eHead != fp->fbu->scrInfo.qe.eTail) return (1); selrecord(p, &fp->selp); break; } return (0); } static u_char bg_RGB[3]; /* background color for the cursor */ static u_char fg_RGB[3]; /* foreground color for the cursor */ /* * Test to see if device is present. * Return true if found and initialized ok. */ pminit() { register PCCRegs *pcc = (PCCRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_PCC); register struct pmax_fb *fp = &pmfb; fp->isMono = *(volatile u_short *)MACH_PHYS_TO_UNCACHED(KN01_SYS_CSR) & KN01_CSR_MONO; fp->fr_addr = (char *)MACH_PHYS_TO_UNCACHED(KN01_PHYS_FBUF_START); fp->fr_size = fp->isMono ? 0x40000 : 0x100000; /* * Must be in Uncached space since the fbuaccess structure is * mapped into the user's address space uncached. */ fp->fbu = (struct fbuaccess *) MACH_PHYS_TO_UNCACHED(MACH_CACHED_TO_PHYS(&pmu)); fp->posCursor = pmPosCursor; fp->KBDPutc = dcPutc; fp->kbddev = makedev(DCDEV, DCKBD_PORT); if (fp->isMono) { /* check for no frame buffer */ if (badaddr((char *)fp->fr_addr, 4)) return (0); } /* * Initialize the screen. */ pcc->cmdr = PCC_FOPB | PCC_VBHI; /* * Initialize the cursor register. */ pcc->cmdr = curReg = PCC_ENPA | PCC_ENPB; /* * Initialize screen info. */ fp->fbu->scrInfo.max_row = 56; fp->fbu->scrInfo.max_col = 80; fp->fbu->scrInfo.max_x = 1024; fp->fbu->scrInfo.max_y = 864; fp->fbu->scrInfo.max_cur_x = 1023; fp->fbu->scrInfo.max_cur_y = 863; fp->fbu->scrInfo.version = 11; fp->fbu->scrInfo.mthreshold = 4; fp->fbu->scrInfo.mscale = 2; fp->fbu->scrInfo.min_cur_x = -15; fp->fbu->scrInfo.min_cur_y = -15; fp->fbu->scrInfo.qe.timestamp_ms = TO_MS(time); fp->fbu->scrInfo.qe.eSize = PM_MAXEVQ; fp->fbu->scrInfo.qe.eHead = fp->fbu->scrInfo.qe.eTail = 0; fp->fbu->scrInfo.qe.tcSize = MOTION_BUFFER_SIZE; fp->fbu->scrInfo.qe.tcNext = 0; /* * Initialize the color map, the screen, and the mouse. */ pmInitColorMap(); pmScreenInit(); fbScroll(fp); fp->initialized = 1; if (cn_tab.cn_fb == (struct pmax_fb *)0) cn_tab.cn_fb = fp; return (1); } /* * ---------------------------------------------------------------------------- * * pmScreenInit -- * * Initialize the screen. * * Results: * None. * * Side effects: * The screen is initialized. * * ---------------------------------------------------------------------------- */ static void pmScreenInit() { register struct pmax_fb *fp = &pmfb; /* * Home the cursor. * We want an LSI terminal emulation. We want the graphics * terminal to scroll from the bottom. So start at the bottom. */ fp->row = 55; fp->col = 0; /* * Load the cursor with the default values * */ pmLoadCursor(defCursor); } /* * ---------------------------------------------------------------------------- * * pmLoadCursor -- * * Routine to load the cursor Sprite pattern. * * Results: * None. * * Side effects: * The cursor is loaded into the hardware cursor. * * ---------------------------------------------------------------------------- */ static void pmLoadCursor(cur) unsigned short *cur; { register PCCRegs *pcc = (PCCRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_PCC); register int i; curReg |= PCC_LODSA; pcc->cmdr = curReg; for (i = 0; i < 32; i++) { pcc->memory = cur[i]; MachEmptyWriteBuffer(); } curReg &= ~PCC_LODSA; pcc->cmdr = curReg; } /* * ---------------------------------------------------------------------------- * * pmRestoreCursorColor -- * * Routine to restore the color of the cursor. * * Results: * None. * * Side effects: * None. * * ---------------------------------------------------------------------------- */ static void pmRestoreCursorColor() { register VDACRegs *vdac = (VDACRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_VDAC); register int i; vdac->overWA = 0x04; MachEmptyWriteBuffer(); for (i = 0; i < 3; i++) { vdac->over = bg_RGB[i]; MachEmptyWriteBuffer(); } vdac->overWA = 0x08; MachEmptyWriteBuffer(); vdac->over = 0x00; MachEmptyWriteBuffer(); vdac->over = 0x00; MachEmptyWriteBuffer(); vdac->over = 0x7f; MachEmptyWriteBuffer(); vdac->overWA = 0x0c; MachEmptyWriteBuffer(); for (i = 0; i < 3; i++) { vdac->over = fg_RGB[i]; MachEmptyWriteBuffer(); } } /* * ---------------------------------------------------------------------------- * * pmCursorColor -- * * Set the color of the cursor. * * Results: * None. * * Side effects: * None. * * ---------------------------------------------------------------------------- */ static void pmCursorColor(color) unsigned int color[]; { register int i, j; for (i = 0; i < 3; i++) bg_RGB[i] = (u_char)(color[i] >> 8); for (i = 3, j = 0; i < 6; i++, j++) fg_RGB[j] = (u_char)(color[i] >> 8); pmRestoreCursorColor(); } /* * ---------------------------------------------------------------------------- * * pmInitColorMap -- * * Initialize the color map. * * Results: * None. * * Side effects: * The colormap is initialized appropriately whether it is color or * monochrome. * * ---------------------------------------------------------------------------- */ static void pmInitColorMap() { register VDACRegs *vdac = (VDACRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_VDAC); struct pmax_fb *fp = &pmfb; register int i; *(volatile char *)MACH_PHYS_TO_UNCACHED(KN01_PHYS_COLMASK_START) = 0xff; MachEmptyWriteBuffer(); if (fp->isMono) { vdac->mapWA = 0; MachEmptyWriteBuffer(); for (i = 0; i < 256; i++) { vdac->map = (i < 128) ? 0x00 : 0xff; MachEmptyWriteBuffer(); vdac->map = (i < 128) ? 0x00 : 0xff; MachEmptyWriteBuffer(); vdac->map = (i < 128) ? 0x00 : 0xff; MachEmptyWriteBuffer(); } } else { vdac->mapWA = 0; MachEmptyWriteBuffer(); vdac->map = 0; MachEmptyWriteBuffer(); vdac->map = 0; MachEmptyWriteBuffer(); vdac->map = 0; MachEmptyWriteBuffer(); for (i = 1; i < 256; i++) { vdac->map = 0xff; MachEmptyWriteBuffer(); vdac->map = 0xff; MachEmptyWriteBuffer(); vdac->map = 0xff; MachEmptyWriteBuffer(); } } for (i = 0; i < 3; i++) { bg_RGB[i] = 0x00; fg_RGB[i] = 0xff; } pmRestoreCursorColor(); } /* * ---------------------------------------------------------------------------- * * pmVDACInit -- * * Initialize the VDAC. * * Results: * None. * * Side effects: * None. * * ---------------------------------------------------------------------------- */ static void pmVDACInit() { register VDACRegs *vdac = (VDACRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_VDAC); /* * * Initialize the VDAC */ vdac->overWA = 0x04; MachEmptyWriteBuffer(); vdac->over = 0x00; MachEmptyWriteBuffer(); vdac->over = 0x00; MachEmptyWriteBuffer(); vdac->over = 0x00; MachEmptyWriteBuffer(); vdac->overWA = 0x08; MachEmptyWriteBuffer(); vdac->over = 0x00; MachEmptyWriteBuffer(); vdac->over = 0x00; MachEmptyWriteBuffer(); vdac->over = 0x7f; MachEmptyWriteBuffer(); vdac->overWA = 0x0c; MachEmptyWriteBuffer(); vdac->over = 0xff; MachEmptyWriteBuffer(); vdac->over = 0xff; MachEmptyWriteBuffer(); vdac->over = 0xff; MachEmptyWriteBuffer(); } /* * ---------------------------------------------------------------------------- * * pmLoadColorMap -- * * Load the color map. * * Results: * None. * * Side effects: * The color map is loaded. * * ---------------------------------------------------------------------------- */ static void pmLoadColorMap(ptr) ColorMap *ptr; { register VDACRegs *vdac = (VDACRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_VDAC); if (ptr->index > 256) return; vdac->mapWA = ptr->index; MachEmptyWriteBuffer(); vdac->map = ptr->Entry.red; MachEmptyWriteBuffer(); vdac->map = ptr->Entry.green; MachEmptyWriteBuffer(); vdac->map = ptr->Entry.blue; MachEmptyWriteBuffer(); } /* *---------------------------------------------------------------------- * * pmPosCursor -- * * Postion the cursor. * * Results: * None. * * Side effects: * None. * *---------------------------------------------------------------------- */ void pmPosCursor(x, y) register int x, y; { register PCCRegs *pcc = (PCCRegs *)MACH_PHYS_TO_UNCACHED(KN01_SYS_PCC); register struct pmax_fb *fp = &pmfb; if (y < fp->fbu->scrInfo.min_cur_y || y > fp->fbu->scrInfo.max_cur_y) y = fp->fbu->scrInfo.max_cur_y; if (x < fp->fbu->scrInfo.min_cur_x || x > fp->fbu->scrInfo.max_cur_x) x = fp->fbu->scrInfo.max_cur_x; fp->fbu->scrInfo.cursor.x = x; /* keep track of real cursor */ fp->fbu->scrInfo.cursor.y = y; /* position, indep. of mouse */ pcc->xpos = PCC_X_OFFSET + x; pcc->ypos = PCC_Y_OFFSET + y; } /* * pm keyboard and mouse input. Just punt to the generic ones in fb.c */ void pmKbdEvent(ch) int ch; { fbKbdEvent(ch, &pmfb); } void pmMouseEvent(newRepPtr) MouseReport *newRepPtr; { fbMouseEvent(newRepPtr, &pmfb); } void pmMouseButtons(newRepPtr) MouseReport *newRepPtr; { fbMouseButtons(newRepPtr, &pmfb); } #endif /* NDC */ #endif /* NPM */