/* $NetBSD: qv.c,v 1.15 2004/02/13 11:36:20 wiz Exp $ */ /*- * Copyright (c) 1988 * The Regents of the University of California. All rights reserved. * (c) UNIX System Laboratories, Inc. * All or some portions of this file are derived from material licensed * to the University of California by American Telephone and Telegraph * Co. or Unix System Laboratories, Inc. and are reproduced herein with * the permission of UNIX System Laboratories, Inc. * * 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. 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. * * @(#)qv.c 7.2 (Berkeley) 1/21/94 */ /* * derived from: @(#)qv.c 1.8 (ULTRIX) 8/21/85 */ /************************************************************************ * * * Copyright (c) 1985 by * * Digital Equipment Corporation, Maynard, MA * * All rights reserved. * * * * This software is furnished under a license and may be used and * * copied only in accordance with the terms of such license and * * with the inclusion of the above copyright notice. This * * software or any other copies thereof may not be provided or * * otherwise made available to any other person. No title to and * * ownership of the software is hereby transferred. * * * * This software is derived from software received from the * * University of California, Berkeley, and from Bell * * Laboratories. Use, duplication, or disclosure is subject to * * restrictions under license agreements with University of * * California and with AT&T. * * * * The information in this software is subject to change without * * notice and should not be construed as a commitment by Digital * * Equipment Corporation. * * * * Digital assumes no responsibility for the use or reliability * * of its software on equipment which is not supplied by Digital. * * * ************************************************************************ * * This driver provides glass tty functionality to the qvss. It is a strange * device in that it supports three subchannels. The first being the asr, * the second being a channel that intercepts the chars headed for the screen * ( like a pseudo tty ) and the third being a source of mouse state changes. * NOTE: the second is conditional on #ifdef CONS_HACK in this version * of the driver, as it's a total crock. * * There may be one and only one qvss in the system. This restriction is based * on the inability to map more than one at a time. This restriction will * exist until the kernel has shared memory services. This driver therefore * support a single unit. No attempt was made to have it service more. * * (this belongs in sccs - not here) * * 02 Aug 85 -- rjl * Changed the names of the special setup routines so that the system * can have a qvss or a qdss system console. * * 03 Jul 85 -- rjl * Added a check for virtual mode in qvputc so that the driver * doesn't crash while in a dump which is done in physical mode. * * 10 Apr 85 -- jg * Well, our theory about keyboard handling was wrong; most of the * keyboard is in autorepeat, down mode. These changes are to make * the qvss work the same as the Vs100, which is not necessarily * completely correct, as some chord usage may fail. But since we * can't easily change the Vs100, we might as well propagate the * problem to another device. There are also changes for screen and * mouse accellaration. * * 27 Mar 85 -- rjl * MicroVAX-II systems have interval timers that interrupt at ipl4. * Everything else is higher and thus causes us to miss clock ticks. The * problem isn't severe except in the case of a device like this one that * generates lots of interrupts. We aren't willing to make this change to * all device drivers but it seems acceptable in this case. * * 3 Dec 84 -- jg * To continue the tradition of building a better mouse trap, this * driver has been extended to form Vs100 style event queues. If the * mouse device is open, the keyboard events are intercepted and put * into the shared memory queue. Unfortunately, we are ending up with * one of the longest Unix device drivers. Sigh.... * * 20 Nov 84 -- rjl * As a further complication this driver is required to function as the * virtual system console. This code runs before and during auto- * configuration and therefore is require to have a second path for setup. * It is futher constrained to have a character output routine that * is not dependant on the interrupt system. * */ #include __KERNEL_RCSID(0, "$NetBSD: qv.c,v 1.15 2004/02/13 11:36:20 wiz Exp $"); #include "qv.h" #if NQV > 0 #include "../include/pte.h" #include "sys/param.h" #include "sys/conf.h" #include "sys/user.h" #include "qvioctl.h" #include "sys/tty.h" #include "sys/buf.h" #include "sys/vm.h" #include "sys/file.h" #include "sys/uio.h" #include "sys/kernel.h" #include "sys/syslog.h" #include "../include/cpu.h" #include "../include/mtpr.h" #include "ubareg.h" #include "ubavar.h" #define CONS_HACK struct uba_device *qvinfo[NQV]; struct tty qv_tty[NQV*4]; #define nNQV NQV int nqv = NQV*4; /* * Definition of the driver for the auto-configuration program. */ int qvprobe(), qvattach(), qvkint(), qvvint(); u_short qvstd[] = { 0 }; struct uba_driver qvdriver = { qvprobe, 0, qvattach, 0, qvstd, "qv", qvinfo }; extern char qvmem[][512*VAX_NBPG]; extern struct pte QVmap[][512]; /* * Local variables for the driver. Initialized for 15' screen * so that it can be used during the boot process. */ #define QVWAITPRI (PZERO+1) #define QVKEYBOARD 0 /* minor 0, keyboard/glass tty */ #define QVPCONS 1 /* minor 1, console interceptor XXX */ #define QVMOUSECHAN 2 /* minor 2, mouse */ #define QVSPARE 3 /* unused */ #define QVCHAN(unit) ((unit) & 03) /* * v_putc is the switch that is used to redirect the console cnputc to the * virtual console vputc. consops is used to redirect the console * device to the qvss console. */ extern (*v_putc)(); extern struct cdevsw *consops; /* * qv_def_scrn is used to select the appropriate tables. 0=15 inch 1=19 inch, * 2 = uVAXII. */ int qv_def_scrn = 2; #define QVMAXEVQ 64 /* must be power of 2 */ #define EVROUND(x) ((x) & (QVMAXEVQ - 1)) /* * Screen parameters 15 & 19 inch monitors. These determine the max size in * pixel and character units for the display and cursor positions. * Notice that the mouse defaults to original square algorithm, but X * will change to its defaults once implemented. */ struct qv_info *qv_scn; struct qv_info qv_scn_defaults[] = { {0, {0, 0}, 0, {0, 0}, 0, 0, 30, 80, 768, 480, 768-16, 480-16, 0, 0, 0, 0, 0, QVMAXEVQ, 0, 0, {0, 0}, {0, 0, 0, 0}, 2, 4}, {0, {0, 0}, 0, {0, 0}, 0, 0, 55, 120, 960, 864, 960-16, 864-16, 0, 0, 0, 0, 0, QVMAXEVQ, 0, 0, {0, 0}, {0, 0, 0, 0}, 2, 4}, {0, {0, 0}, 0, {0, 0}, 0, 0, 56, 120,1024, 864,1024-16, 864-16, 0, 0, 0, 0, 0, QVMAXEVQ, 0, 0, {0, 0}, {0, 0, 0, 0}, 2, 4} }; /* * Screen controller initialization parameters. The definations and use * of these parameters can be found in the Motorola 68045 crtc specs. In * essence they set the display parameters for the chip. The first set is * for the 15" screen and the second is for the 19" separate sync. There * is also a third set for a 19" composite sync monitor which we have not * tested and which is not supported. */ static short qv_crt_parms[][16] = { { 31, 25, 27, 0142, 31, 13, 30, 31, 4, 15, 040, 0, 0, 0, 0, 0 }, /* VR100*/ { 39, 30, 32, 0262, 55, 5, 54, 54, 4, 15, 040, 0, 0, 0, 0, 0 }, /* VR260*/ { 39, 32, 33, 0264, 56, 5, 54, 54, 4, 15, 040, 0, 0, 0, 0, 0}, }; /* * Screen parameters */ struct qv_info *qv_scn; int maxqvmem = 254*1024 - sizeof(struct qv_info) - QVMAXEVQ*sizeof(vsEvent); /* * Keyboard state */ struct qv_keyboard { int shift; /* state variables */ int cntrl; int lock; char last; /* last character */ } qv_keyboard; short divdefaults[15] = { LK_DOWN, /* 0 doesn't exist */ LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN, LK_DOWN, LK_UPDOWN, LK_UPDOWN, LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN, LK_DOWN, LK_AUTODOWN }; short kbdinitstring[] = { /* reset any random keyboard stuff */ LK_AR_ENABLE, /* we want autorepeat by default */ LK_CL_ENABLE, /* keyclick */ 0x84, /* keyclick volume */ LK_KBD_ENABLE, /* the keyboard itself */ LK_BELL_ENABLE, /* keyboard bell */ 0x84, /* bell volume */ LK_LED_DISABLE, /* keyboard leds */ LED_ALL }; #define KBD_INIT_LENGTH sizeof(kbdinitstring)/sizeof(short) #define TOY ((time.tv_sec * 100) + (time.tv_usec / 10000)) int qv_ipl_lo = 1; /* IPL low flag */ int mouseon = 0; /* mouse channel is enabled when 1*/ struct proc *qvrsel; /* process waiting for select */ int qvstart(), qvputc(), ttrstrt(); /* * Keyboard translation and font tables */ extern u_short q_key[], q_shift_key[], q_cursor[]; extern char *q_special[], q_font[]; dev_type_open(qvopen); dev_type_close(qvclose); dev_type_read(qvread); dev_type_write(qvwrite); dev_type_ioctl(qvioctl); dev_type_stop(qvstop); dev_type_poll(qvpoll); dev_type_kqfilter(qvkqfilter); const struct cdevsw qv_cdevsw = { qvopen, qvclose, qvread, qvwrite, qvioctl, qvstop, notty, qvpoll, nommap, qvkqfilter, }; /* * See if the qvss will interrupt. */ /*ARGSUSED*/ qvprobe(reg, ctlr) caddr_t reg; int ctlr; { register int br, cvec; /* these are ``value-result'' */ register struct qvdevice *qvaddr = (struct qvdevice *)reg; static int tvec, ovec; #ifdef lint br = 0; cvec = br; br = cvec; qvkint(0); qvvint(0); #endif /* * Allocate the next two vectors */ tvec = 0360; ovec = cvec; /* * Turn on the keyboard and vertical interrupt vectors. */ qvaddr->qv_intcsr = 0; /* init the interrupt controller */ qvaddr->qv_intcsr = 0x40; /* reset irr */ qvaddr->qv_intcsr = 0x80; /* specify individual vectors */ qvaddr->qv_intcsr = 0xc0; /* preset autoclear data */ qvaddr->qv_intdata = 0xff; /* all setup as autoclear */ qvaddr->qv_intcsr = 0xe0; /* preset vector address 1 */ qvaddr->qv_intdata = tvec; /* give it the keyboard vector */ qvaddr->qv_intcsr = 0x28; /* enable tx/rx interrupt */ qvaddr->qv_intcsr = 0xe1; /* preset vector address 2 */ qvaddr->qv_intdata = tvec+4; /* give it the vertical sysnc */ qvaddr->qv_intcsr = 0x29; /* enable */ qvaddr->qv_intcsr = 0xa1; /* arm the interrupt ctrl */ qvaddr->qv_uartcmd = 0x15; /* set mode pntr/enable rx/tx */ qvaddr->qv_uartmode = 0x17; /* noparity, 8-bit */ qvaddr->qv_uartmode = 0x07; /* 1 stop bit */ qvaddr->qv_uartstatus = 0x99; /* 4800 baud xmit/recv */ qvaddr->qv_uartintstatus = 2; /* enable recv interrupts */ qvaddr->qv_csr |= QV_INT_ENABLE | QV_CUR_MODE; DELAY(10000); qvaddr->qv_csr &= ~QV_INT_ENABLE; /* * If the qvss did interrupt it was the second vector not * the first so we have to return the first so that they * will be setup properly */ if( ovec == cvec ) { return 0; } else cvec -= 4; return (sizeof (struct qvdevice)); } /* * Routine called to attach a qv. */ qvattach(ui) struct uba_device *ui; { /* * If not the console then we have to setup the screen */ if (v_putc != qvputc || ui->ui_unit != 0) (void)qv_setup((struct qvdevice *)ui->ui_addr, ui->ui_unit, 1); else qv_scn->qvaddr = (struct qvdevice *)ui->ui_addr; } /*ARGSUSED*/ int qvopen(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { register struct tty *tp; register int unit, qv; register struct qvdevice *qvaddr; register struct uba_device *ui; register struct qv_info *qp = qv_scn; unit = minor(dev); qv = unit >> 2; if (unit >= nqv || (ui = qvinfo[qv])== 0 || ui->ui_alive == 0) return (ENXIO); if (QVCHAN(unit) == QVSPARE #ifndef CONS_HACK || QVCHAN(unit) == QVPCONS #endif ) return (ENODEV); tp = &qv_tty[unit]; if (tp->t_state&TS_XCLUDE && u.u_uid!=0) return (EBUSY); qvaddr = (struct qvdevice *)ui->ui_addr; qv_scn->qvaddr = qvaddr; tp->t_addr = (caddr_t)qvaddr; tp->t_oproc = qvstart; if ((tp->t_state&TS_ISOPEN) == 0) { ttychars(tp); tp->t_state = TS_ISOPEN|TS_CARR_ON; tp->t_ispeed = B9600; tp->t_ospeed = B9600; if( QVCHAN(unit) == QVKEYBOARD ) { /* make sure keyboard is always back to default */ qvkbdreset(); qvaddr->qv_csr |= QV_INT_ENABLE; tp->t_iflag = TTYDEF_IFLAG; tp->t_oflag = TTYDEF_OFLAG; tp->t_lflag = TTYDEF_LFLAG; tp->t_cflag = TTYDEF_CFLAG; } /* XXX ?why? else tp->t_flags = RAW; */ } /* * Process line discipline specific open if its not the * mouse channel. For the mouse we init the ring ptr's. */ if( QVCHAN(unit) != QVMOUSECHAN ) return ((*tp->t_linesw->l_open)(dev, tp)); else { mouseon = 1; /* set up event queue for later */ qp->ibuff = (vsEvent *)qp - QVMAXEVQ; qp->iqsize = QVMAXEVQ; qp->ihead = qp->itail = 0; return 0; } return (0); } /* * Close a QVSS line. */ /*ARGSUSED*/ int qvclose(dev, flag, mode, p) dev_t dev; int flag, mode; struct proc *p; { register struct tty *tp; register unit; register struct qvdevice *qvaddr; int error; unit = minor(dev); tp = &qv_tty[unit]; /* * If this is the keyboard unit (0) shutdown the * interface. */ qvaddr = (struct qvdevice *)tp->t_addr; if (QVCHAN(unit) == QVKEYBOARD ) qvaddr->qv_csr &= ~QV_INT_ENABLE; /* * If unit is not the mouse channel call the line disc. * otherwise clear the state flag, and put the keyboard into down/up. */ if (QVCHAN(unit) != QVMOUSECHAN) { (*tp->t_linesw->l_close)(tp, flag); error = ttyclose(tp); } else { mouseon = 0; qv_init( qvaddr ); error = 0; } tp->t_state = 0; return (error); } int qvread(dev, uio, flag) dev_t dev; struct uio *uio; int flag; { register struct tty *tp; int unit = minor( dev ); if (QVCHAN(unit) != QVMOUSECHAN) { tp = &qv_tty[unit]; return ((*tp->t_linesw->l_read)(tp, uio)); } return (ENXIO); } int qvwrite(dev, uio, flag) dev_t dev; struct uio *uio; int flag; { register struct tty *tp; int unit = minor( dev ); /* * If this is the mouse we simply fake the i/o, otherwise * we let the line disp. handle it. */ if (QVCHAN(unit) == QVMOUSECHAN) { uio->uio_offset = uio->uio_resid; uio->uio_resid = 0; return 0; } tp = &qv_tty[unit]; return ((*tp->t_linesw->l_write)(tp, uio)); } int qvpoll(dev, events, p) dev_t dev; int events; struct proc *p; { register struct tty *tp; int unit = minor( dev ); /* * XXX Should perform similar checks to deprecated `qvselect()' */ tp = &qv_tty[unit]; return ((*tp->t_linesw->l_poll)(tp, events, p)); } /* * XXX Is qvselect() even useful now? * This driver looks to have suffered some serious bit-rot... */ /* * Mouse activity select routine */ qvselect(dev, rw) dev_t dev; { register int s = spl5(); register struct qv_info *qp = qv_scn; if( QVCHAN(minor(dev)) == QVMOUSECHAN ) switch(rw) { case FREAD: /* if events okay */ if(qp->ihead != qp->itail) { splx(s); return(1); } qvrsel = u.u_procp; splx(s); return(0); default: /* can never write */ splx(s); return(0); } else { splx(s); return( ttselect(dev, rw) ); } /*NOTREACHED*/ } /* * QVSS keyboard interrupt. */ qvkint(qv) int qv; { struct tty *tp; register c; struct uba_device *ui; register int key; register int i; ui = qvinfo[qv]; if (ui == 0 || ui->ui_alive == 0) return; tp = &qv_tty[qv<<2]; /* * Get a character from the keyboard. */ key = ((struct qvdevice *)ui->ui_addr)->qv_uartdata & 0xff; if( mouseon == 0) { /* * Check for various keyboard errors */ if( key == LK_POWER_ERROR || key == LK_KDOWN_ERROR || key == LK_INPUT_ERROR || key == LK_OUTPUT_ERROR) { log(LOG_ERR, "qv%d: Keyboard error, code = %x\n",qv,key); return; } if( key < LK_LOWEST ) return; /* * See if its a state change key */ switch ( key ) { case LOCK: qv_keyboard.lock ^= 0xffff; /* toggle */ if( qv_keyboard.lock ) qv_key_out( LK_LED_ENABLE ); else qv_key_out( LK_LED_DISABLE ); qv_key_out( LED_3 ); return; case SHIFT: qv_keyboard.shift ^= 0xffff; return; case CNTRL: qv_keyboard.cntrl ^= 0xffff; return; case ALLUP: qv_keyboard.cntrl = qv_keyboard.shift = 0; return; case REPEAT: c = qv_keyboard.last; break; default: /* * Test for control characters. If set, see if the character * is elligible to become a control character. */ if( qv_keyboard.cntrl ) { c = q_key[ key ]; if( c >= ' ' && c <= '~' ) c &= 0x1f; } else if( qv_keyboard.lock || qv_keyboard.shift ) c = q_shift_key[ key ]; else c = q_key[ key ]; break; } qv_keyboard.last = c; /* * Check for special function keys */ if( c & 0x80 ) { register char *string; string = q_special[ c & 0x7f ]; while( *string ) (*tp->t_linesw->l_rint)(*string++, tp); } else (*tp->t_linesw->l_rint)(c, tp); } else { /* * Mouse channel is open put it into the event queue * instead. */ register struct qv_info *qp = qv_scn; register vsEvent *vep; if ((i = EVROUND(qp->itail+1)) == qp->ihead) return; vep = &qp->ibuff[qp->itail]; vep->vse_direction = VSE_KBTRAW; vep->vse_type = VSE_BUTTON; vep->vse_device = VSE_DKB; vep->vse_x = qp->mouse.x; vep->vse_y = qp->mouse.y; vep->vse_time = TOY; vep->vse_key = key; qp->itail = i; if(qvrsel) { selwakeup(qvrsel,0); qvrsel = 0; } } } /* * Ioctl for QVSS. */ /*ARGSUSED*/ int qvioctl(dev, cmd, data, flag, p) dev_t dev; u_long cmd; register caddr_t data; int flag; struct proc *p; { register struct tty *tp; register int unit = minor(dev); register struct qv_info *qp = qv_scn; register struct qv_kpcmd *qk; register unsigned char *cp; int error; /* * Check for and process qvss specific ioctl's */ switch( cmd ) { case QIOCGINFO: /* return screen info */ bcopy((caddr_t)qp, data, sizeof (struct qv_info)); break; case QIOCSMSTATE: /* set mouse state */ qp->mouse = *((vsCursor *)data); qv_pos_cur( qp->mouse.x, qp->mouse.y ); break; case QIOCINIT: /* init screen */ qv_init( qp->qvaddr ); break; case QIOCKPCMD: qk = (struct qv_kpcmd *)data; if(qk->nbytes == 0) qk->cmd |= 0200; if(mouseon == 0) qk->cmd |= 1; /* no mode changes */ qv_key_out(qk->cmd); cp = &qk->par[0]; while(qk->nbytes-- > 0) { /* terminate parameters */ if(qk->nbytes <= 0) *cp |= 0200; qv_key_out(*cp++); } break; case QIOCADDR: /* get struct addr */ *(struct qv_info **) data = qp; break; default: /* not ours ?? */ tp = &qv_tty[unit]; error = (*tp->t_linesw->l_ioctl)(tp, cmd, data, flag); if (error != EPASSTHROUGH) return (error); return ttioctl(tp, cmd, data, flag); break; } return (0); } /* * Initialize the screen and the scanmap */ qv_init(qvaddr) struct qvdevice *qvaddr; { register short *scanline; register int i; register short scan; register char *ptr; register struct qv_info *qp = qv_scn; /* * Clear the bit map */ for( i=0 , ptr = qp->bitmap ; i<240 ; i += 2 , ptr += 2048) bzero( ptr, 2048 ); /* * Reinitialize the scanmap */ scan = qvaddr->qv_csr & QV_MEM_BANK; scanline = qp->scanmap; for(i = 0 ; i < qp->max_y ; i++ ) *scanline++ = scan++; /* * Home the cursor */ qp->row = qp->col = 0; /* * Reset the cursor to the default type. */ for( i=0 ; i<16 ; i++ ) qp->cursorbits[i] = q_cursor[i]; qvaddr->qv_csr |= QV_CUR_MODE; /* * Reset keyboard to default state. */ qvkbdreset(); } qvreset() { } qvkbdreset() { register int i; qv_key_out(LK_DEFAULTS); for( i=1 ; i < 15 ; i++ ) qv_key_out( divdefaults[i] | (i<<3)); for (i = 0; i < KBD_INIT_LENGTH; i++) qv_key_out(kbdinitstring[i]); } #define abs(x) (((x) > 0) ? (x) : (-(x))) /* * QVSS vertical sync interrupt */ qvvint(qv) int qv; { extern int selwait; register struct qvdevice *qvaddr; struct uba_device *ui; register struct qv_info *qp = qv_scn; int unit; struct tty *tp0; int i; register int j; /* * Mouse state info */ static ushort omouse = 0, nmouse = 0; static char omx=0, omy=0, mx=0, my=0, om_switch=0, m_switch=0; register int dx, dy; /* * Test and set the qv_ipl_lo flag. If the result is not zero then * someone else must have already gotten here. */ if( --qv_ipl_lo ) return; (void)spl4(); ui = qvinfo[qv]; unit = qv<<2; qvaddr = (struct qvdevice *)ui->ui_addr; tp0 = &qv_tty[QVCHAN(unit) + QVMOUSECHAN]; /* * See if the mouse has moved. */ if( omouse != (nmouse = qvaddr->qv_mouse) ) { omouse = nmouse; mx = nmouse & 0xff; my = nmouse >> 8; dy = my - omy; omy = my; dx = mx - omx; omx = mx; if( dy < 50 && dy > -50 && dx < 50 && dx > -50 ) { register vsEvent *vep; if( qp->mscale < 0 ) { /* Ray Lanza's original */ if( dy < 0 ) dy = -( dy * dy ); else dy *= dy; if( dx < 0 ) dx = -( dx * dx ); else dx *= dx; } else { /* Vs100 style, see WGA spec */ int thresh = qp->mthreshold; int scale = qp->mscale; if( abs(dx) > thresh ) { if ( dx < 0 ) dx = (dx + thresh)*scale - thresh; else dx = (dx - thresh)*scale + thresh; } if( abs(dy) > thresh ) { if ( dy < 0 ) dy = (dy + thresh)*scale - thresh; else dy = (dy - thresh)*scale + thresh; } } qp->mouse.x += dx; qp->mouse.y -= dy; if( qp->mouse.x < 0 ) qp->mouse.x = 0; if( qp->mouse.y < 0 ) qp->mouse.y = 0; if( qp->mouse.x > qp->max_cur_x ) qp->mouse.x = qp->max_cur_x; if( qp->mouse.y > qp->max_cur_y ) qp->mouse.y = qp->max_cur_y; if( tp0->t_state & TS_ISOPEN ) qv_pos_cur( qp->mouse.x, qp->mouse.y ); if (qp->mouse.y < qp->mbox.bottom && qp->mouse.y >= qp->mbox.top && qp->mouse.x < qp->mbox.right && qp->mouse.x >= qp->mbox.left) goto switches; qp->mbox.bottom = 0; /* trash box */ if (EVROUND(qp->itail+1) == qp->ihead) goto switches; i = EVROUND(qp->itail - 1); if ((qp->itail != qp->ihead) && (i != qp->ihead)) { vep = & qp->ibuff[i]; if(vep->vse_type == VSE_MMOTION) { vep->vse_x = qp->mouse.x; vep->vse_y = qp->mouse.y; goto switches; } } /* put event into queue and do select */ vep = & qp->ibuff[qp->itail]; vep->vse_type = VSE_MMOTION; vep->vse_time = TOY; vep->vse_x = qp->mouse.x; vep->vse_y = qp->mouse.y; qp->itail = EVROUND(qp->itail+1); } } /* * See if mouse switches have changed. */ switches:if( om_switch != ( m_switch = (qvaddr->qv_csr & QV_MOUSE_ANY) >> 8 ) ) { qp->mswitches = ~m_switch & 0x7; for (j = 0; j < 3; j++) { /* check each switch */ register vsEvent *vep; if ( ((om_switch>>j) & 1) == ((m_switch>>j) & 1) ) continue; /* check for room in the queue */ if ((i = EVROUND(qp->itail+1)) == qp->ihead) return; /* put event into queue and do select */ vep = &qp->ibuff[qp->itail]; vep->vse_type = VSE_BUTTON; vep->vse_key = 2 - j; vep->vse_direction = VSE_KBTDOWN; if ( (m_switch >> j) & 1) vep->vse_direction = VSE_KBTUP; vep->vse_device = VSE_MOUSE; vep->vse_time = TOY; vep->vse_x = qp->mouse.x; vep->vse_y = qp->mouse.y; } qp->itail = i; om_switch = m_switch; qp->mswitches = m_switch; } /* if we have proc waiting, and event has happened, wake him up */ if(qvrsel && (qp->ihead != qp->itail)) { selwakeup(qvrsel,0); qvrsel = 0; } /* * Okay we can take another hit now */ qv_ipl_lo = 1; } /* * Start transmission */ qvstart(tp) register struct tty *tp; { register int unit, c; register struct tty *tp0; int s; unit = minor(tp->t_dev); #ifdef CONS_HACK tp0 = &qv_tty[(unit&0xfc)+QVPCONS]; #endif unit = QVCHAN(unit); s = spl5(); /* * If it's currently active, or delaying, no need to do anything. */ if (tp->t_state&(TS_TIMEOUT|TS_BUSY|TS_TTSTOP)) goto out; /* * Display chars until the queue is empty, if the second subchannel * is open direct them there. Drop characters from subchannels other * than 0 on the floor. */ while( tp->t_outq.c_cc ) { c = getc(&tp->t_outq); if (unit == QVKEYBOARD) #ifdef CONS_HACK if( tp0->t_state & TS_ISOPEN ){ (*linesw[tp0->t_line].l_rint)(c, tp0); } else #endif qvputchar( c & 0xff ); } /* * Position the cursor to the next character location. */ qv_pos_cur( qv_scn->col*8, qv_scn->row*15 ); /* * If there are sleepers, and output has drained below low * water mark, wake up the sleepers. */ if ( tp->t_outq.c_cc<= tp->t_lowat ) { if (tp->t_state&TS_ASLEEP){ tp->t_state &= ~TS_ASLEEP; wakeup((caddr_t)&tp->t_outq); } } tp->t_state &= ~TS_BUSY; out: splx(s); } /* * Stop output on a line, e.g. for ^S/^Q or output flush. */ /*ARGSUSED*/ void qvstop(tp, flag) register struct tty *tp; int flag; { register int s; /* * Block input/output interrupts while messing with state. */ s = spl5(); if (tp->t_state & TS_BUSY) { if ((tp->t_state&TS_TTSTOP)==0) { tp->t_state |= TS_FLUSH; } else tp->t_state &= ~TS_BUSY; } splx(s); } qvputc(c) char c; { qvputchar(c); if (c == '\n') qvputchar('\r'); } /* * Routine to display a character on the screen. The model used is a * glass tty. It is assummed that the user will only use this emulation * during system boot and that the screen will be eventually controlled * by a window manager. * */ qvputchar( c ) register char c; { register char *b_row, *f_row; register int i; register short *scanline; register int ote = 128; register struct qv_info *qp = qv_scn; /* * This routine may be called in physical mode by the dump code * so we check and punt if that's the case. */ if( (mfpr(MAPEN) & 1) == 0 ) return; c &= 0x7f; switch ( c ) { case '\t': /* tab */ for( i = 8 - (qp->col & 0x7) ; i > 0 ; i-- ) qvputchar( ' ' ); break; case '\r': /* return */ qp->col = 0; break; case '\010': /* backspace */ if( --qp->col < 0 ) qp->col = 0; break; case '\n': /* linefeed */ if( qp->row+1 >= qp->max_row ) qvscroll(); else qp->row++; /* * Position the cursor to the next character location. */ qv_pos_cur( qp->col*8, qp->row*15 ); break; case '\007': /* bell */ /* * We don't do anything to the keyboard until after * autoconfigure. */ if( qp->qvaddr ) qv_key_out( LK_RING_BELL ); return; default: if( c >= ' ' && c <= '~' ) { scanline = qp->scanmap; b_row = qp->bitmap+(scanline[qp->row*15]&0x3ff)*128+qp->col; i = c - ' '; if( i < 0 || i > 95 ) i = 0; else i *= 15; f_row = (char *)((int)q_font + i); /* for( i=0 ; i<15 ; i++ , b_row += 128, f_row++ ) *b_row = *f_row;*/ /* inline expansion for speed */ *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; *b_row = *f_row++; b_row += ote; if( ++qp->col >= qp->max_col ) { qp->col = 0 ; if( qp->row+1 >= qp->max_row ) qvscroll(); else qp->row++; } } break; } } /* * Position the cursor to a particular spot. */ qv_pos_cur( x, y) register int x,y; { register struct qvdevice *qvaddr; register struct qv_info *qp = qv_scn; register index; if( qvaddr = qp->qvaddr ) { if( y < 0 || y > qp->max_cur_y ) y = qp->max_cur_y; if( x < 0 || x > qp->max_cur_x ) x = qp->max_cur_x; qp->cursor.x = x; /* keep track of real cursor*/ qp->cursor.y = y; /* position, indep. of mouse*/ qvaddr->qv_crtaddr = 10; /* select cursor start reg */ qvaddr->qv_crtdata = y & 0xf; qvaddr->qv_crtaddr = 11; /* select cursor end reg */ qvaddr->qv_crtdata = y & 0xf; qvaddr->qv_crtaddr = 14; /* select cursor y pos. */ qvaddr->qv_crtdata = y >> 4; qvaddr->qv_xcur = x; /* pos x axis */ /* * If the mouse is being used then we change the mode of * cursor display based on the pixels under the cursor */ if( mouseon ) { index = y*128 + x/8; if( qp->bitmap[ index ] && qp->bitmap[ index+128 ] ) qvaddr->qv_csr &= ~QV_CUR_MODE; else qvaddr->qv_csr |= QV_CUR_MODE; } } } /* * Scroll the bitmap by moving the scanline map words. This could * be done by moving the bitmap but it's much too slow for a full screen. * The only drawback is that the scanline map must be reset when the user * wants to do graphics. */ qvscroll() { short tmpscanlines[15]; register char *b_row; register short *scanline; register struct qv_info *qp = qv_scn; /* * If the mouse is on we don't scroll so that the bit map * remains sane. */ if( mouseon ) { qp->row = 0; return; } /* * Save the first 15 scanlines so that we can put them at * the bottom when done. */ bcopy((caddr_t)qp->scanmap, (caddr_t)tmpscanlines, sizeof tmpscanlines); /* * Clear the wrapping line so that it won't flash on the bottom * of the screen. */ scanline = qp->scanmap; b_row = qp->bitmap+(*scanline&0x3ff)*128; bzero( b_row, 1920 ); /* * Now move the scanlines down */ bcopy((caddr_t)(qp->scanmap+15), (caddr_t)qp->scanmap, (qp->row * 15) * sizeof (short) ); /* * Now put the other lines back */ bcopy((caddr_t)tmpscanlines, (caddr_t)(qp->scanmap+(qp->row * 15)), sizeof (tmpscanlines) ); } /* * Output to the keyboard. This routine status polls the transmitter on the * keyboard to output a code. The timer is to avoid hanging on a bad device. */ qv_key_out(c) u_short c; { int timer = 30000; register struct qv_info *qp = qv_scn; if (qp->qvaddr) { while ((qp->qvaddr->qv_uartstatus & 0x4) == 0 && timer--) ; qp->qvaddr->qv_uartdata = c; } } /* * Virtual console initialization. This routine sets up the qvss so that it can * be used as the system console. It is invoked before autoconfig and has to do * everything necessary to allow the device to serve as the system console. * In this case it must map the q-bus and device areas and initialize the qvss * screen. */ qvcons_init() { struct percpu *pcpu; /* pointer to percpu structure */ register struct qbus *qb; struct qvdevice *qvaddr; /* device pointer */ short *devptr; /* virtual device space */ extern cnputc(); /* standard serial console putc */ #define QVSSCSR 017200 /* * If secondary console already configured, * don't override the previous one. */ if (v_putc != cnputc) return 0; /* * find the percpu entry that matches this machine. */ for( pcpu = percpu ; pcpu && pcpu->pc_cputype != cpu ; pcpu++ ) ; if( pcpu == NULL ) return 0; if (pcpu->pc_io->io_type != IO_QBUS) return 0; /* * Found an entry for this CPU. Because this device is Microvax specific * we assume that there is a single q-bus and don't have to worry about * multiple adapters. * * Map the device registers. */ qb = (struct qbus *)pcpu->pc_io->io_details; ioaccess(qb->qb_iopage, UMEMmap[0] + qb->qb_memsize, UBAIOPAGES * VAX_NBPG); /* * See if the qvss is there. */ devptr = (short *)((char *)umem[0] + (qb->qb_memsize * VAX_NBPG)); qvaddr = (struct qvdevice *)((u_int)devptr + ubdevreg(QVSSCSR)); if (badaddr((caddr_t)qvaddr, sizeof(short))) return 0; /* * Okay the device is there lets set it up */ if (!qv_setup(qvaddr, 0, 0)) return 0; v_putc = qvputc; consops = &qv_cdevsw; return 1; } /* * Do the board specific setup */ qv_setup(qvaddr, unit, probed) struct qvdevice *qvaddr; int unit; int probed; { caddr_t qvssmem; /* pointer to the display mem */ register i; /* simple index */ register struct qv_info *qp; register int *pte; struct percpu *pcpu; /* pointer to percpu structure */ register struct qbus *qb; /* * find the percpu entry that matches this machine. */ for( pcpu = percpu ; pcpu && pcpu->pc_cputype != cpu ; pcpu++ ) ; if( pcpu == NULL ) return(0); /* * Found an entry for this CPU. Because this device is Microvax specific * we assume that there is a single q-bus and don't have to worry about * multiple adapters. * * Map the device memory. */ qb = (struct qbus *)pcpu->pc_io->io_details; i = (u_int)(qvaddr->qv_csr & QV_MEM_BANK) << 7; ioaccess(qb->qb_maddr + i, QVmap[unit], 512 * VAX_NBPG); qvssmem = qvmem[unit]; pte = (int *)(QVmap[unit]); for (i=0; i < 512; i++, pte++) *pte = (*pte & ~PG_PROT) | PG_UW | PG_V; qv_scn = (struct qv_info *)((u_int)qvssmem + 251*1024); qp = qv_scn; if( (qvaddr->qv_csr & QV_19INCH) && qv_def_scrn == 0) qv_def_scrn = 1; *qv_scn = qv_scn_defaults[ qv_def_scrn ]; if (probed) qp->qvaddr = qvaddr; qp->bitmap = qvssmem; qp->scanmap = (short *)((u_int)qvssmem + 254*1024); qp->cursorbits = (short *)((u_int)qvssmem + 256*1024-32); /* set up event queue for later */ qp->ibuff = (vsEvent *)qp - QVMAXEVQ; qp->iqsize = QVMAXEVQ; qp->ihead = qp->itail = 0; /* * Setup the crt controller chip. */ for( i=0 ; i<16 ; i++ ) { qvaddr->qv_crtaddr = i; qvaddr->qv_crtdata = qv_crt_parms[ qv_def_scrn ][ i ]; } /* * Setup the display. */ qv_init( qvaddr ); /* * Turn on the video */ qvaddr->qv_csr |= QV_VIDEO_ENA ; return 1; } #endif