Annotation of sys/arch/vax/uba/qv.c, Revision 1.1.1.1
1.1 nbrk 1: /* $OpenBSD: qv.c,v 1.12 2006/01/17 20:26:16 miod Exp $ */
2: /* $NetBSD: qv.c,v 1.2 1996/09/02 06:44:28 mycroft Exp $ */
3:
4: /*-
5: * Copyright (c) 1988
6: * The Regents of the University of California. All rights reserved.
7: * (c) UNIX System Laboratories, Inc.
8: * All or some portions of this file are derived from material licensed
9: * to the University of California by American Telephone and Telegraph
10: * Co. or Unix System Laboratories, Inc. and are reproduced herein with
11: * the permission of UNIX System Laboratories, Inc.
12: *
13: * Redistribution and use in source and binary forms, with or without
14: * modification, are permitted provided that the following conditions
15: * are met:
16: * 1. Redistributions of source code must retain the above copyright
17: * notice, this list of conditions and the following disclaimer.
18: * 2. Redistributions in binary form must reproduce the above copyright
19: * notice, this list of conditions and the following disclaimer in the
20: * documentation and/or other materials provided with the distribution.
21: * 3. Neither the name of the University nor the names of its contributors
22: * may be used to endorse or promote products derived from this software
23: * without specific prior written permission.
24: *
25: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
26: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
29: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
30: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
31: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
32: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
33: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
34: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
35: * SUCH DAMAGE.
36: *
37: * @(#)qv.c 7.2 (Berkeley) 1/21/94
38: */
39:
40: /*
41: * derived from: @(#)qv.c 1.8 (ULTRIX) 8/21/85
42: */
43:
44: /************************************************************************
45: * *
46: * Copyright (c) 1985 by *
47: * Digital Equipment Corporation, Maynard, MA *
48: * All rights reserved. *
49: * *
50: * This software is furnished under a license and may be used and *
51: * copied only in accordance with the terms of such license and *
52: * with the inclusion of the above copyright notice. This *
53: * software or any other copies thereof may not be provided or *
54: * otherwise made available to any other person. No title to and *
55: * ownership of the software is hereby transferred. *
56: * *
57: * This software is derived from software received from the *
58: * University of California, Berkeley, and from Bell *
59: * Laboratories. Use, duplication, or disclosure is subject to *
60: * restrictions under license agreements with University of *
61: * California and with AT&T. *
62: * *
63: * The information in this software is subject to change without *
64: * notice and should not be construed as a commitment by Digital *
65: * Equipment Corporation. *
66: * *
67: * Digital assumes no responsibility for the use or reliability *
68: * of its software on equipment which is not supplied by Digital. *
69: * *
70: ************************************************************************
71: *
72: * This driver provides glass tty functionality to the qvss. It is a strange
73: * device in that it supports three subchannels. The first being the asr,
74: * the second being a channel that intercepts the chars headed for the screen
75: * ( like a pseudo tty ) and the third being a source of mouse state changes.
76: * NOTE: the second is conditional on #ifdef CONS_HACK in this version
77: * of the driver, as it's a total crock.
78: *
79: * There may be one and only one qvss in the system. This restriction is based
80: * on the inability to map more than one at a time. This restriction will
81: * exist until the kernel has shared memory services. This driver therefore
82: * support a single unit. No attempt was made to have it service more.
83: *
84: * (this belongs in sccs - not here)
85: *
86: * 02 Aug 85 -- rjl
87: * Changed the names of the special setup routines so that the system
88: * can have a qvss or a qdss system console.
89: *
90: * 03 Jul 85 -- rjl
91: * Added a check for virtual mode in qvputc so that the driver
92: * doesn't crash while in a dump which is done in physical mode.
93: *
94: * 10 Apr 85 -- jg
95: * Well, our theory about keyboard handling was wrong; most of the
96: * keyboard is in autorepeat, down mode. These changes are to make
97: * the qvss work the same as the Vs100, which is not necessarily
98: * completely correct, as some chord usage may fail. But since we
99: * can't easily change the Vs100, we might as well propagate the
100: * problem to another device. There are also changes for screen and
101: * mouse accellaration.
102: *
103: * 27 Mar 85 -- rjl
104: * MicroVAX-II systems have interval timers that interrupt at ipl4.
105: * Everything else is higher and thus causes us to miss clock ticks. The
106: * problem isn't severe except in the case of a device like this one that
107: * generates lots of interrupts. We aren't willing to make this change to
108: * all device drivers but it seems acceptable in this case.
109: *
110: * 3 Dec 84 -- jg
111: * To continue the tradition of building a better mouse trap, this
112: * driver has been extended to form Vs100 style event queues. If the
113: * mouse device is open, the keyboard events are intercepted and put
114: * into the shared memory queue. Unfortunately, we are ending up with
115: * one of the longest Unix device drivers. Sigh....
116: *
117: * 20 Nov 84 -- rjl
118: * As a further complication this driver is required to function as the
119: * virtual system console. This code runs before and during auto-
120: * configuration and therefore is require to have a second path for setup.
121: * It is futher constrained to have a character output routine that
122: * is not dependant on the interrupt system.
123: *
124: */
125:
126:
127: #include "qv.h"
128: #if NQV > 0
129:
130: #include <machine/pte.h>
131:
132: #include <sys/param.h>
133: #include <sys/conf.h>
134: #include <sys/user.h>
135: #include <vax/uba/qvioctl.h>
136: #include <sys/tty.h>
137: #include <sys/map.h>
138: #include <sys/buf.h>
139: #include <sys/vm.h>
140: #include <sys/file.h>
141: #include <sys/uio.h>
142: #include <sys/kernel.h>
143: #include <sys/syslog.h>
144: #include <sys/poll.h>
145: #include <machine/cpu.h>
146: #include <machine/mtpr.h>
147: #include <vax/uba/ubareg.h>
148: #include <vax/uba/ubavar.h>
149:
150: #define CONS_HACK
151:
152: struct uba_device *qvinfo[NQV];
153:
154: struct tty qv_tty[NQV*4];
155:
156: #define nNQV NQV
157: int nqv = NQV*4;
158:
159: /*
160: * Definition of the driver for the auto-configuration program.
161: */
162: int qvprobe(), qvattach(), qvkint(), qvvint();
163: u_short qvstd[] = { 0 };
164: struct uba_driver qvdriver =
165: { qvprobe, 0, qvattach, 0, qvstd, "qv", qvinfo };
166:
167: extern char qvmem[][512*NBPG];
168: extern pt_entry_t QVmap[][512];
169:
170: /*
171: * Local variables for the driver. Initialized for 15' screen
172: * so that it can be used during the boot process.
173: */
174:
175: #define QVWAITPRI (PZERO+1)
176: #define QVSSMAJOR 40
177:
178: #define QVKEYBOARD 0 /* minor 0, keyboard/glass tty */
179: #define QVPCONS 1 /* minor 1, console interceptor XXX */
180: #define QVMOUSECHAN 2 /* minor 2, mouse */
181: #define QVSPARE 3 /* unused */
182: #define QVCHAN(unit) ((unit) & 03)
183: /*
184: * v_putc is the switch that is used to redirect the console cnputc to the
185: * virtual console vputc. consops is used to redirect the console
186: * device to the qvss console.
187: */
188: extern (*v_putc)();
189: extern struct cdevsw *consops;
190: /*
191: * qv_def_scrn is used to select the appropriate tables. 0=15 inch 1=19 inch,
192: * 2 = uVAXII.
193: */
194: int qv_def_scrn = 2;
195:
196: #define QVMAXEVQ 64 /* must be power of 2 */
197: #define EVROUND(x) ((x) & (QVMAXEVQ - 1))
198:
199: /*
200: * Screen parameters 15 & 19 inch monitors. These determine the max size in
201: * pixel and character units for the display and cursor positions.
202: * Notice that the mouse defaults to original square algorithm, but X
203: * will change to its defaults once implemented.
204: */
205: struct qv_info *qv_scn;
206: struct qv_info qv_scn_defaults[] = {
207: {0, {0, 0}, 0, {0, 0}, 0, 0, 30, 80, 768, 480, 768-16, 480-16,
208: 0, 0, 0, 0, 0, QVMAXEVQ, 0, 0, {0, 0}, {0, 0, 0, 0}, 2, 4},
209: {0, {0, 0}, 0, {0, 0}, 0, 0, 55, 120, 960, 864, 960-16, 864-16,
210: 0, 0, 0, 0, 0, QVMAXEVQ, 0, 0, {0, 0}, {0, 0, 0, 0}, 2, 4},
211: {0, {0, 0}, 0, {0, 0}, 0, 0, 56, 120,1024, 864,1024-16, 864-16,
212: 0, 0, 0, 0, 0, QVMAXEVQ, 0, 0, {0, 0}, {0, 0, 0, 0}, 2, 4}
213: };
214:
215: /*
216: * Screen controller initialization parameters. The definations and use
217: * of these parameters can be found in the Motorola 68045 crtc specs. In
218: * essence they set the display parameters for the chip. The first set is
219: * for the 15" screen and the second is for the 19" separate sync. There
220: * is also a third set for a 19" composite sync monitor which we have not
221: * tested and which is not supported.
222: */
223: static short qv_crt_parms[][16] = {
224: { 31, 25, 27, 0142, 31, 13, 30, 31, 4, 15, 040, 0, 0, 0, 0, 0 },
225: /* VR100*/ { 39, 30, 32, 0262, 55, 5, 54, 54, 4, 15, 040, 0, 0, 0, 0, 0 },
226: /* VR260*/ { 39, 32, 33, 0264, 56, 5, 54, 54, 4, 15, 040, 0, 0, 0, 0, 0},
227: };
228:
229: /*
230: * Screen parameters
231: */
232: struct qv_info *qv_scn;
233: int maxqvmem = 254*1024 - sizeof(struct qv_info) - QVMAXEVQ*sizeof(vsEvent);
234:
235: /*
236: * Keyboard state
237: */
238: struct qv_keyboard {
239: int shift; /* state variables */
240: int cntrl;
241: int lock;
242: char last; /* last character */
243: } qv_keyboard;
244:
245: short divdefaults[15] = { LK_DOWN, /* 0 doesn't exist */
246: LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN, LK_DOWN,
247: LK_UPDOWN, LK_UPDOWN, LK_AUTODOWN, LK_AUTODOWN,
248: LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN, LK_AUTODOWN,
249: LK_DOWN, LK_AUTODOWN };
250:
251: short kbdinitstring[] = { /* reset any random keyboard stuff */
252: LK_AR_ENABLE, /* we want autorepeat by default */
253: LK_CL_ENABLE, /* keyclick */
254: 0x84, /* keyclick volume */
255: LK_KBD_ENABLE, /* the keyboard itself */
256: LK_BELL_ENABLE, /* keyboard bell */
257: 0x84, /* bell volume */
258: LK_LED_DISABLE, /* keyboard leds */
259: LED_ALL };
260: #define KBD_INIT_LENGTH sizeof(kbdinitstring)/sizeof(short)
261:
262: #define TOY ((time.tv_sec * 100) + (time.tv_usec / 10000))
263:
264: int qv_ipl_lo = 1; /* IPL low flag */
265: int mouseon = 0; /* mouse channel is enabled when 1*/
266: struct proc *qvrsel; /* process waiting for select */
267:
268: int qvstart(), qvputc();
269:
270: /*
271: * Keyboard translation and font tables
272: */
273: extern u_short q_key[], q_shift_key[], q_cursor[];
274: extern char *q_special[], q_font[];
275:
276: /*
277: * See if the qvss will interrupt.
278: */
279:
280: /*ARGSUSED*/
281: qvprobe(reg, ctlr)
282: caddr_t reg;
283: int ctlr;
284: {
285: register int br, cvec; /* these are ``value-result'' */
286: register struct qvdevice *qvaddr = (struct qvdevice *)reg;
287: static int tvec, ovec;
288:
289: #ifdef lint
290: br = 0; cvec = br; br = cvec;
291: qvkint(0); qvvint(0);
292: #endif
293: /*
294: * Allocate the next two vectors
295: */
296: tvec = 0360;
297: ovec = cvec;
298: /*
299: * Turn on the keyboard and vertical interrupt vectors.
300: */
301: qvaddr->qv_intcsr = 0; /* init the interrupt controller */
302: qvaddr->qv_intcsr = 0x40; /* reset irr */
303: qvaddr->qv_intcsr = 0x80; /* specify individual vectors */
304: qvaddr->qv_intcsr = 0xc0; /* preset autoclear data */
305: qvaddr->qv_intdata = 0xff; /* all setup as autoclear */
306:
307: qvaddr->qv_intcsr = 0xe0; /* preset vector address 1 */
308: qvaddr->qv_intdata = tvec; /* give it the keyboard vector */
309: qvaddr->qv_intcsr = 0x28; /* enable tx/rx interrupt */
310:
311: qvaddr->qv_intcsr = 0xe1; /* preset vector address 2 */
312: qvaddr->qv_intdata = tvec+4; /* give it the vertical sysnc */
313: qvaddr->qv_intcsr = 0x29; /* enable */
314:
315: qvaddr->qv_intcsr = 0xa1; /* arm the interrupt ctrl */
316:
317: qvaddr->qv_uartcmd = 0x15; /* set mode pntr/enable rx/tx */
318: qvaddr->qv_uartmode = 0x17; /* noparity, 8-bit */
319: qvaddr->qv_uartmode = 0x07; /* 1 stop bit */
320: qvaddr->qv_uartstatus = 0x99; /* 4800 baud xmit/recv */
321: qvaddr->qv_uartintstatus = 2; /* enable recv interrupts */
322:
323: qvaddr->qv_csr |= QV_INT_ENABLE | QV_CUR_MODE;
324:
325: DELAY(10000);
326:
327: qvaddr->qv_csr &= ~QV_INT_ENABLE;
328:
329: /*
330: * If the qvss did interrupt it was the second vector not
331: * the first so we have to return the first so that they
332: * will be setup properly
333: */
334: if( ovec == cvec ) {
335: return 0;
336: } else
337: cvec -= 4;
338: return (sizeof (struct qvdevice));
339: }
340:
341: /*
342: * Routine called to attach a qv.
343: */
344: qvattach(ui)
345: struct uba_device *ui;
346: {
347:
348: /*
349: * If not the console then we have to setup the screen
350: */
351: if (v_putc != qvputc || ui->ui_unit != 0)
352: (void)qv_setup((struct qvdevice *)ui->ui_addr, ui->ui_unit, 1);
353: else
354: qv_scn->qvaddr = (struct qvdevice *)ui->ui_addr;
355: }
356:
357:
358: /*ARGSUSED*/
359: qvopen(dev, flag)
360: dev_t dev;
361: {
362: register struct tty *tp;
363: register int unit, qv;
364: register struct qvdevice *qvaddr;
365: register struct uba_device *ui;
366: register struct qv_info *qp = qv_scn;
367:
368: unit = minor(dev);
369: qv = unit >> 2;
370: if (unit >= nqv || (ui = qvinfo[qv])== 0 || ui->ui_alive == 0)
371: return (ENXIO);
372: if (QVCHAN(unit) == QVSPARE
373: #ifndef CONS_HACK
374: || QVCHAN(unit) == QVPCONS
375: #endif
376: )
377: return (ENODEV);
378: tp = &qv_tty[unit];
379: if (tp->t_state&TS_XCLUDE && u.u_uid!=0)
380: return (EBUSY);
381: qvaddr = (struct qvdevice *)ui->ui_addr;
382: qv_scn->qvaddr = qvaddr;
383: tp->t_addr = (caddr_t)qvaddr;
384: tp->t_oproc = qvstart;
385:
386: if ((tp->t_state&TS_ISOPEN) == 0) {
387: ttychars(tp);
388: tp->t_state = TS_ISOPEN|TS_CARR_ON;
389: tp->t_ispeed = B9600;
390: tp->t_ospeed = B9600;
391: if( QVCHAN(unit) == QVKEYBOARD ) {
392: /* make sure keyboard is always back to default */
393: qvkbdreset();
394: qvaddr->qv_csr |= QV_INT_ENABLE;
395: tp->t_iflag = TTYDEF_IFLAG;
396: tp->t_oflag = TTYDEF_OFLAG;
397: tp->t_lflag = TTYDEF_LFLAG;
398: tp->t_cflag = TTYDEF_CFLAG;
399: }
400: /* XXX ?why? else
401: tp->t_flags = RAW;
402: */
403: }
404: /*
405: * Process line discipline specific open if its not the
406: * mouse channel. For the mouse we init the ring ptr's.
407: */
408: if( QVCHAN(unit) != QVMOUSECHAN )
409: return ((*linesw[tp->t_line].l_open)(dev, tp));
410: else {
411: mouseon = 1;
412: /* set up event queue for later */
413: qp->ibuff = (vsEvent *)qp - QVMAXEVQ;
414: qp->iqsize = QVMAXEVQ;
415: qp->ihead = qp->itail = 0;
416: return 0;
417: }
418: }
419:
420: /*
421: * Close a QVSS line.
422: */
423: /*ARGSUSED*/
424: qvclose(dev, flag, mode, p)
425: dev_t dev;
426: int flag, mode;
427: struct proc *p;
428: {
429: register struct tty *tp;
430: register unit;
431: register struct qvdevice *qvaddr;
432: int error;
433:
434: unit = minor(dev);
435: tp = &qv_tty[unit];
436:
437: /*
438: * If this is the keyboard unit (0) shutdown the
439: * interface.
440: */
441: qvaddr = (struct qvdevice *)tp->t_addr;
442: if (QVCHAN(unit) == QVKEYBOARD )
443: qvaddr->qv_csr &= ~QV_INT_ENABLE;
444:
445: /*
446: * If unit is not the mouse channel call the line disc.
447: * otherwise clear the state flag, and put the keyboard into down/up.
448: */
449: if (QVCHAN(unit) != QVMOUSECHAN) {
450: (*linesw[tp->t_line].l_close)(tp, flag);
451: error = ttyclose(tp);
452: } else {
453: mouseon = 0;
454: qv_init( qvaddr );
455: error = 0;
456: }
457: tp->t_state = 0;
458: return (error);
459: }
460:
461: qvread(dev, uio)
462: dev_t dev;
463: struct uio *uio;
464: {
465: register struct tty *tp;
466: int unit = minor( dev );
467:
468: if (QVCHAN(unit) != QVMOUSECHAN) {
469: tp = &qv_tty[unit];
470: return ((*linesw[tp->t_line].l_read)(tp, uio));
471: }
472: return (ENXIO);
473: }
474:
475: qvwrite(dev, uio)
476: dev_t dev;
477: struct uio *uio;
478: {
479: register struct tty *tp;
480: int unit = minor( dev );
481:
482: /*
483: * If this is the mouse we simply fake the i/o, otherwise
484: * we let the line disp. handle it.
485: */
486: if (QVCHAN(unit) == QVMOUSECHAN) {
487: uio->uio_offset = uio->uio_resid;
488: uio->uio_resid = 0;
489: return 0;
490: }
491: tp = &qv_tty[unit];
492: return ((*linesw[tp->t_line].l_write)(tp, uio));
493: }
494:
495:
496: /*
497: * Mouse activity poll routine
498: */
499: int
500: qvpoll(dev, events, p)
501: dev_t dev;
502: int events;
503: struct proc *p;
504: {
505: struct qv_info *qp = qv_scn;
506: int revents = 0;
507: int s = spl5();
508:
509: if (QVCHAN(minor(dev)) != QVMOUSECHAN) {
510: splx(s);
511: return(ttpoll(dev, events, p));
512: }
513:
514: if (events & (POLLIN | POLLRDNORM)) {
515: if (qp->ihead != qp->itail)
516: revents |= events & (POLLIN | POLLRDNORM);
517: else
518: qvrsel = u.u_procp;
519: }
520: splx(s);
521: return(revents);
522: }
523:
524: /*
525: * QVSS keyboard interrupt.
526: */
527: qvkint(qv)
528: int qv;
529: {
530: struct tty *tp;
531: register c;
532: struct uba_device *ui;
533: register int key;
534: register int i;
535:
536: ui = qvinfo[qv];
537: if (ui == 0 || ui->ui_alive == 0)
538: return;
539: tp = &qv_tty[qv<<2];
540: /*
541: * Get a character from the keyboard.
542: */
543: key = ((struct qvdevice *)ui->ui_addr)->qv_uartdata & 0xff;
544: if( mouseon == 0) {
545: /*
546: * Check for various keyboard errors
547: */
548: if( key == LK_POWER_ERROR || key == LK_KDOWN_ERROR ||
549: key == LK_INPUT_ERROR || key == LK_OUTPUT_ERROR) {
550: log(LOG_ERR,
551: "qv%d: Keyboard error, code = %x\n",qv,key);
552: return;
553: }
554: if( key < LK_LOWEST ) return;
555: /*
556: * See if its a state change key
557: */
558: switch ( key ) {
559: case LOCK:
560: qv_keyboard.lock ^= 0xffff; /* toggle */
561: if( qv_keyboard.lock )
562: qv_key_out( LK_LED_ENABLE );
563: else
564: qv_key_out( LK_LED_DISABLE );
565: qv_key_out( LED_3 );
566: return;
567: case SHIFT:
568: qv_keyboard.shift ^= 0xffff;
569: return;
570: case CNTRL:
571: qv_keyboard.cntrl ^= 0xffff;
572: return;
573: case ALLUP:
574: qv_keyboard.cntrl = qv_keyboard.shift = 0;
575: return;
576: case REPEAT:
577: c = qv_keyboard.last;
578: break;
579: default:
580: /*
581: * Test for control characters. If set, see if the character
582: * is eligible to become a control character.
583: */
584: if( qv_keyboard.cntrl ) {
585: c = q_key[ key ];
586: if( c >= ' ' && c <= '~' )
587: c &= 0x1f;
588: } else if( qv_keyboard.lock || qv_keyboard.shift )
589: c = q_shift_key[ key ];
590: else
591: c = q_key[ key ];
592: break;
593: }
594:
595: qv_keyboard.last = c;
596:
597: /*
598: * Check for special function keys
599: */
600: if( c & 0x80 ) {
601: register char *string;
602: string = q_special[ c & 0x7f ];
603: while( *string )
604: (*linesw[tp->t_line].l_rint)(*string++, tp);
605: } else
606: (*linesw[tp->t_line].l_rint)(c, tp);
607: } else {
608: /*
609: * Mouse channel is open put it into the event queue
610: * instead.
611: */
612: register struct qv_info *qp = qv_scn;
613: register vsEvent *vep;
614:
615: if ((i = EVROUND(qp->itail+1)) == qp->ihead)
616: return;
617: vep = &qp->ibuff[qp->itail];
618: vep->vse_direction = VSE_KBTRAW;
619: vep->vse_type = VSE_BUTTON;
620: vep->vse_device = VSE_DKB;
621: vep->vse_x = qp->mouse.x;
622: vep->vse_y = qp->mouse.y;
623: vep->vse_time = TOY;
624: vep->vse_key = key;
625: qp->itail = i;
626: if(qvrsel) {
627: selwakeup(qvrsel,0);
628: qvrsel = 0;
629: }
630: }
631: }
632:
633: /*
634: * Ioctl for QVSS.
635: */
636: /*ARGSUSED*/
637: qvioctl(dev, cmd, data, flag)
638: dev_t dev;
639: register caddr_t data;
640: {
641: register struct tty *tp;
642: register int unit = minor(dev);
643: register struct qv_info *qp = qv_scn;
644: register struct qv_kpcmd *qk;
645: register unsigned char *cp;
646: int error;
647:
648: /*
649: * Check for and process qvss specific ioctl's
650: */
651: switch( cmd ) {
652: case QIOCGINFO: /* return screen info */
653: bcopy((caddr_t)qp, data, sizeof (struct qv_info));
654: break;
655:
656: case QIOCSMSTATE: /* set mouse state */
657: qp->mouse = *((vsCursor *)data);
658: qv_pos_cur( qp->mouse.x, qp->mouse.y );
659: break;
660:
661: case QIOCINIT: /* init screen */
662: qv_init( qp->qvaddr );
663: break;
664:
665: case QIOCKPCMD:
666: qk = (struct qv_kpcmd *)data;
667: if(qk->nbytes == 0) qk->cmd |= 0200;
668: if(mouseon == 0) qk->cmd |= 1; /* no mode changes */
669: qv_key_out(qk->cmd);
670: cp = &qk->par[0];
671: while(qk->nbytes-- > 0) { /* terminate parameters */
672: if(qk->nbytes <= 0) *cp |= 0200;
673: qv_key_out(*cp++);
674: }
675: break;
676: case QIOCADDR: /* get struct addr */
677: *(struct qv_info **) data = qp;
678: break;
679: default: /* not ours ?? */
680: tp = &qv_tty[unit];
681: error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag);
682: if (error >= 0)
683: return (error);
684: error = ttioctl(tp, cmd, data, flag);
685: if (error >= 0) {
686: return (error);
687: }
688: break;
689: }
690: return (0);
691: }
692: /*
693: * Initialize the screen and the scanmap
694: */
695: qv_init(qvaddr)
696: struct qvdevice *qvaddr;
697: {
698: register short *scanline;
699: register int i;
700: register short scan;
701: register char *ptr;
702: register struct qv_info *qp = qv_scn;
703:
704: /*
705: * Clear the bit map
706: */
707: for( i=0 , ptr = qp->bitmap ; i<240 ; i += 2 , ptr += 2048)
708: bzero( ptr, 2048 );
709: /*
710: * Reinitialize the scanmap
711: */
712: scan = qvaddr->qv_csr & QV_MEM_BANK;
713: scanline = qp->scanmap;
714: for(i = 0 ; i < qp->max_y ; i++ )
715: *scanline++ = scan++;
716:
717: /*
718: * Home the cursor
719: */
720: qp->row = qp->col = 0;
721:
722: /*
723: * Reset the cursor to the default type.
724: */
725: for( i=0 ; i<16 ; i++ )
726: qp->cursorbits[i] = q_cursor[i];
727: qvaddr->qv_csr |= QV_CUR_MODE;
728: /*
729: * Reset keyboard to default state.
730: */
731: qvkbdreset();
732: }
733:
734: qvreset()
735: {
736: }
737: qvkbdreset()
738: {
739: register int i;
740: qv_key_out(LK_DEFAULTS);
741: for( i=1 ; i < 15 ; i++ )
742: qv_key_out( divdefaults[i] | (i<<3));
743: for (i = 0; i < KBD_INIT_LENGTH; i++)
744: qv_key_out(kbdinitstring[i]);
745: }
746:
747: #define abs(x) (((x) > 0) ? (x) : (-(x)))
748: /*
749: * QVSS vertical sync interrupt
750: */
751: qvvint(qv)
752: int qv;
753: {
754: extern int selwait;
755: register struct qvdevice *qvaddr;
756: struct uba_device *ui;
757: register struct qv_info *qp = qv_scn;
758: int unit;
759: struct tty *tp0;
760: int i;
761: register int j;
762: /*
763: * Mouse state info
764: */
765: static ushort omouse = 0, nmouse = 0;
766: static char omx=0, omy=0, mx=0, my=0, om_switch=0, m_switch=0;
767: register int dx, dy;
768:
769: /*
770: * Test and set the qv_ipl_lo flag. If the result is not zero then
771: * someone else must have already gotten here.
772: */
773: if( --qv_ipl_lo )
774: return;
775: (void)spl4();
776: ui = qvinfo[qv];
777: unit = qv<<2;
778: qvaddr = (struct qvdevice *)ui->ui_addr;
779: tp0 = &qv_tty[QVCHAN(unit) + QVMOUSECHAN];
780: /*
781: * See if the mouse has moved.
782: */
783: if( omouse != (nmouse = qvaddr->qv_mouse) ) {
784: omouse = nmouse;
785: mx = nmouse & 0xff;
786: my = nmouse >> 8;
787: dy = my - omy; omy = my;
788: dx = mx - omx; omx = mx;
789: if( dy < 50 && dy > -50 && dx < 50 && dx > -50 ) {
790: register vsEvent *vep;
791: if( qp->mscale < 0 ) { /* Ray Lanza's original */
792: if( dy < 0 )
793: dy = -( dy * dy );
794: else
795: dy *= dy;
796: if( dx < 0 )
797: dx = -( dx * dx );
798: else
799: dx *= dx;
800: }
801: else { /* Vs100 style, see WGA spec */
802: int thresh = qp->mthreshold;
803: int scale = qp->mscale;
804: if( abs(dx) > thresh ) {
805: if ( dx < 0 )
806: dx = (dx + thresh)*scale - thresh;
807: else
808: dx = (dx - thresh)*scale + thresh;
809: }
810: if( abs(dy) > thresh ) {
811: if ( dy < 0 )
812: dy = (dy + thresh)*scale - thresh;
813: else
814: dy = (dy - thresh)*scale + thresh;
815: }
816: }
817: qp->mouse.x += dx;
818: qp->mouse.y -= dy;
819: if( qp->mouse.x < 0 )
820: qp->mouse.x = 0;
821: if( qp->mouse.y < 0 )
822: qp->mouse.y = 0;
823: if( qp->mouse.x > qp->max_cur_x )
824: qp->mouse.x = qp->max_cur_x;
825: if( qp->mouse.y > qp->max_cur_y )
826: qp->mouse.y = qp->max_cur_y;
827: if( tp0->t_state & TS_ISOPEN )
828: qv_pos_cur( qp->mouse.x, qp->mouse.y );
829: if (qp->mouse.y < qp->mbox.bottom &&
830: qp->mouse.y >= qp->mbox.top &&
831: qp->mouse.x < qp->mbox.right &&
832: qp->mouse.x >= qp->mbox.left) goto switches;
833: qp->mbox.bottom = 0; /* trash box */
834: if (EVROUND(qp->itail+1) == qp->ihead)
835: goto switches;
836: i = EVROUND(qp->itail - 1);
837: if ((qp->itail != qp->ihead) && (i != qp->ihead)) {
838: vep = & qp->ibuff[i];
839: if(vep->vse_type == VSE_MMOTION) {
840: vep->vse_x = qp->mouse.x;
841: vep->vse_y = qp->mouse.y;
842: goto switches;
843: }
844: }
845: /* put event into queue and do select */
846: vep = & qp->ibuff[qp->itail];
847: vep->vse_type = VSE_MMOTION;
848: vep->vse_time = TOY;
849: vep->vse_x = qp->mouse.x;
850: vep->vse_y = qp->mouse.y;
851: qp->itail = EVROUND(qp->itail+1);
852: }
853: }
854: /*
855: * See if mouse switches have changed.
856: */
857: switches:if( om_switch != ( m_switch = (qvaddr->qv_csr & QV_MOUSE_ANY) >> 8 ) ) {
858: qp->mswitches = ~m_switch & 0x7;
859: for (j = 0; j < 3; j++) { /* check each switch */
860: register vsEvent *vep;
861: if ( ((om_switch>>j) & 1) == ((m_switch>>j) & 1) )
862: continue;
863: /* check for room in the queue */
864: if ((i = EVROUND(qp->itail+1)) == qp->ihead) return;
865: /* put event into queue and do select */
866: vep = &qp->ibuff[qp->itail];
867: vep->vse_type = VSE_BUTTON;
868: vep->vse_key = 2 - j;
869: vep->vse_direction = VSE_KBTDOWN;
870: if ( (m_switch >> j) & 1)
871: vep->vse_direction = VSE_KBTUP;
872: vep->vse_device = VSE_MOUSE;
873: vep->vse_time = TOY;
874: vep->vse_x = qp->mouse.x;
875: vep->vse_y = qp->mouse.y;
876: }
877: qp->itail = i;
878: om_switch = m_switch;
879: qp->mswitches = m_switch;
880: }
881: /* if we have proc waiting, and event has happened, wake him up */
882: if(qvrsel && (qp->ihead != qp->itail)) {
883: selwakeup(qvrsel,0);
884: qvrsel = 0;
885: }
886: /*
887: * Okay we can take another hit now
888: */
889: qv_ipl_lo = 1;
890: }
891:
892: /*
893: * Start transmission
894: */
895: qvstart(tp)
896: register struct tty *tp;
897: {
898: register int unit, c;
899: register struct tty *tp0;
900: int s;
901:
902: unit = minor(tp->t_dev);
903: #ifdef CONS_HACK
904: tp0 = &qv_tty[(unit&0xfc)+QVPCONS];
905: #endif
906: unit = QVCHAN(unit);
907:
908: s = spl5();
909: /*
910: * If it's currently active, or delaying, no need to do anything.
911: */
912: if (tp->t_state&(TS_TIMEOUT|TS_BUSY|TS_TTSTOP))
913: goto out;
914: /*
915: * Display chars until the queue is empty, if the second subchannel
916: * is open direct them there. Drop characters from subchannels other
917: * than 0 on the floor.
918: */
919:
920: while( tp->t_outq.c_cc ) {
921: c = getc(&tp->t_outq);
922: if (unit == QVKEYBOARD)
923: #ifdef CONS_HACK
924: if( tp0->t_state & TS_ISOPEN ){
925: (*linesw[tp0->t_line].l_rint)(c, tp0);
926: } else
927: #endif
928: qvputchar( c & 0xff );
929: }
930: /*
931: * Position the cursor to the next character location.
932: */
933: qv_pos_cur( qv_scn->col*8, qv_scn->row*15 );
934:
935: /*
936: * If there are sleepers, and output has drained below low
937: * water mark, wake up the sleepers.
938: */
939: if ( tp->t_outq.c_cc<= tp->t_lowat ) {
940: if (tp->t_state&TS_ASLEEP){
941: tp->t_state &= ~TS_ASLEEP;
942: wakeup((caddr_t)&tp->t_outq);
943: }
944: }
945: tp->t_state &= ~TS_BUSY;
946: out:
947: splx(s);
948: }
949:
950: /*
951: * Stop output on a line, e.g. for ^S/^Q or output flush.
952: */
953: /*ARGSUSED*/
954: void
955: qvstop(tp, flag)
956: register struct tty *tp;
957: int flag;
958: {
959: register int s;
960:
961: /*
962: * Block input/output interrupts while messing with state.
963: */
964: s = spl5();
965: if (tp->t_state & TS_BUSY) {
966: if ((tp->t_state&TS_TTSTOP)==0) {
967: tp->t_state |= TS_FLUSH;
968: } else
969: tp->t_state &= ~TS_BUSY;
970: }
971: splx(s);
972: }
973:
974: qvputc(c)
975: char c;
976: {
977: qvputchar(c);
978: }
979:
980: /*
981: * Routine to display a character on the screen. The model used is a
982: * glass tty. It is assumed that the user will only use this emulation
983: * during system boot and that the screen will be eventually controlled
984: * by a window manager.
985: *
986: */
987: qvputchar( c )
988: register char c;
989: {
990:
991: register char *b_row, *f_row;
992: register int i;
993: register short *scanline;
994: register int ote = 128;
995: register struct qv_info *qp = qv_scn;
996:
997: /*
998: * This routine may be called in physical mode by the dump code
999: * so we check and punt if that's the case.
1000: */
1001: if( (mfpr(MAPEN) & 1) == 0 )
1002: return;
1003:
1004: c &= 0x7f;
1005:
1006: switch ( c ) {
1007: case '\t': /* tab */
1008: for( i = 8 - (qp->col & 0x7) ; i > 0 ; i-- )
1009: qvputchar( ' ' );
1010: break;
1011:
1012: case '\r': /* return */
1013: qp->col = 0;
1014: break;
1015:
1016: case '\010': /* backspace */
1017: if( --qp->col < 0 )
1018: qp->col = 0;
1019: break;
1020:
1021: case '\n': /* linefeed */
1022: if( qp->row+1 >= qp->max_row )
1023: qvscroll();
1024: else
1025: qp->row++;
1026: /*
1027: * Position the cursor to the next character location.
1028: */
1029: qv_pos_cur( qp->col*8, qp->row*15 );
1030: break;
1031:
1032: case '\007': /* bell */
1033: /*
1034: * We don't do anything to the keyboard until after
1035: * autoconfigure.
1036: */
1037: if( qp->qvaddr )
1038: qv_key_out( LK_RING_BELL );
1039: return;
1040:
1041: default:
1042: if( c >= ' ' && c <= '~' ) {
1043: scanline = qp->scanmap;
1044: b_row = qp->bitmap+(scanline[qp->row*15]&0x3ff)*128+qp->col;
1045: i = c - ' ';
1046: if( i < 0 || i > 95 )
1047: i = 0;
1048: else
1049: i *= 15;
1050: f_row = (char *)((int)q_font + i);
1051:
1052: /* for( i=0 ; i<15 ; i++ , b_row += 128, f_row++ )
1053: *b_row = *f_row;*/
1054: /* inline expansion for speed */
1055: *b_row = *f_row++; b_row += ote;
1056: *b_row = *f_row++; b_row += ote;
1057: *b_row = *f_row++; b_row += ote;
1058: *b_row = *f_row++; b_row += ote;
1059: *b_row = *f_row++; b_row += ote;
1060: *b_row = *f_row++; b_row += ote;
1061: *b_row = *f_row++; b_row += ote;
1062: *b_row = *f_row++; b_row += ote;
1063: *b_row = *f_row++; b_row += ote;
1064: *b_row = *f_row++; b_row += ote;
1065: *b_row = *f_row++; b_row += ote;
1066: *b_row = *f_row++; b_row += ote;
1067: *b_row = *f_row++; b_row += ote;
1068: *b_row = *f_row++; b_row += ote;
1069: *b_row = *f_row++; b_row += ote;
1070:
1071: if( ++qp->col >= qp->max_col ) {
1072: qp->col = 0 ;
1073: if( qp->row+1 >= qp->max_row )
1074: qvscroll();
1075: else
1076: qp->row++;
1077: }
1078: }
1079: break;
1080: }
1081: }
1082:
1083: /*
1084: * Position the cursor to a particular spot.
1085: */
1086: qv_pos_cur( x, y)
1087: register int x,y;
1088: {
1089: register struct qvdevice *qvaddr;
1090: register struct qv_info *qp = qv_scn;
1091: register index;
1092:
1093: if( qvaddr = qp->qvaddr ) {
1094: if( y < 0 || y > qp->max_cur_y )
1095: y = qp->max_cur_y;
1096: if( x < 0 || x > qp->max_cur_x )
1097: x = qp->max_cur_x;
1098: qp->cursor.x = x; /* keep track of real cursor*/
1099: qp->cursor.y = y; /* position, indep. of mouse*/
1100:
1101: qvaddr->qv_crtaddr = 10; /* select cursor start reg */
1102: qvaddr->qv_crtdata = y & 0xf;
1103: qvaddr->qv_crtaddr = 11; /* select cursor end reg */
1104: qvaddr->qv_crtdata = y & 0xf;
1105: qvaddr->qv_crtaddr = 14; /* select cursor y pos. */
1106: qvaddr->qv_crtdata = y >> 4;
1107: qvaddr->qv_xcur = x; /* pos x axis */
1108: /*
1109: * If the mouse is being used then we change the mode of
1110: * cursor display based on the pixels under the cursor
1111: */
1112: if( mouseon ) {
1113: index = y*128 + x/8;
1114: if( qp->bitmap[ index ] && qp->bitmap[ index+128 ] )
1115: qvaddr->qv_csr &= ~QV_CUR_MODE;
1116: else
1117: qvaddr->qv_csr |= QV_CUR_MODE;
1118: }
1119: }
1120: }
1121: /*
1122: * Scroll the bitmap by moving the scanline map words. This could
1123: * be done by moving the bitmap but it's much too slow for a full screen.
1124: * The only drawback is that the scanline map must be reset when the user
1125: * wants to do graphics.
1126: */
1127: qvscroll()
1128: {
1129: short tmpscanlines[15];
1130: register char *b_row;
1131: register short *scanline;
1132: register struct qv_info *qp = qv_scn;
1133:
1134: /*
1135: * If the mouse is on we don't scroll so that the bit map
1136: * remains sane.
1137: */
1138: if( mouseon ) {
1139: qp->row = 0;
1140: return;
1141: }
1142: /*
1143: * Save the first 15 scanlines so that we can put them at
1144: * the bottom when done.
1145: */
1146: bcopy((caddr_t)qp->scanmap, (caddr_t)tmpscanlines, sizeof tmpscanlines);
1147:
1148: /*
1149: * Clear the wrapping line so that it won't flash on the bottom
1150: * of the screen.
1151: */
1152: scanline = qp->scanmap;
1153: b_row = qp->bitmap+(*scanline&0x3ff)*128;
1154: bzero( b_row, 1920 );
1155:
1156: /*
1157: * Now move the scanlines down
1158: */
1159: bcopy((caddr_t)(qp->scanmap+15), (caddr_t)qp->scanmap,
1160: (qp->row * 15) * sizeof (short) );
1161:
1162: /*
1163: * Now put the other lines back
1164: */
1165: bcopy((caddr_t)tmpscanlines, (caddr_t)(qp->scanmap+(qp->row * 15)),
1166: sizeof (tmpscanlines) );
1167:
1168: }
1169:
1170: /*
1171: * Output to the keyboard. This routine status polls the transmitter on the
1172: * keyboard to output a code. The timer is to avoid hanging on a bad device.
1173: */
1174: qv_key_out(c)
1175: u_short c;
1176: {
1177: int timer = 30000;
1178: register struct qv_info *qp = qv_scn;
1179:
1180: if (qp->qvaddr) {
1181: while ((qp->qvaddr->qv_uartstatus & 0x4) == 0 && timer--)
1182: ;
1183: qp->qvaddr->qv_uartdata = c;
1184: }
1185: }
1186: /*
1187: * Virtual console initialization. This routine sets up the qvss so that it can
1188: * be used as the system console. It is invoked before autoconfig and has to do
1189: * everything necessary to allow the device to serve as the system console.
1190: * In this case it must map the q-bus and device areas and initialize the qvss
1191: * screen.
1192: */
1193: qvcons_init()
1194: {
1195: struct percpu *pcpu; /* pointer to percpu structure */
1196: register struct qbus *qb;
1197: struct qvdevice *qvaddr; /* device pointer */
1198: short *devptr; /* virtual device space */
1199: extern cnputc(); /* standard serial console putc */
1200: #define QVSSCSR 017200
1201:
1202: /*
1203: * If secondary console already configured,
1204: * don't override the previous one.
1205: */
1206: if (v_putc != cnputc)
1207: return 0;
1208: /*
1209: * find the percpu entry that matches this machine.
1210: */
1211: for( pcpu = percpu ; pcpu && pcpu->pc_cputype != cpu ; pcpu++ )
1212: ;
1213: if( pcpu == NULL )
1214: return 0;
1215: if (pcpu->pc_io->io_type != IO_QBUS)
1216: return 0;
1217:
1218: /*
1219: * Found an entry for this cpu. Because this device is Microvax specific
1220: * we assume that there is a single q-bus and don't have to worry about
1221: * multiple adapters.
1222: *
1223: * Map the device registers.
1224: */
1225: qb = (struct qbus *)pcpu->pc_io->io_details;
1226: ioaccess(qb->qb_iopage, UMEMmap[0] + qb->qb_memsize, UBAIOPAGES * NBPG);
1227:
1228: /*
1229: * See if the qvss is there.
1230: */
1231: devptr = (short *)((char *)umem[0] + (qb->qb_memsize * NBPG));
1232: qvaddr = (struct qvdevice *)((u_int)devptr + ubdevreg(QVSSCSR));
1233: if (badaddr((caddr_t)qvaddr, sizeof(short)))
1234: return 0;
1235: /*
1236: * Okay the device is there lets set it up
1237: */
1238: if (!qv_setup(qvaddr, 0, 0))
1239: return 0;
1240: v_putc = qvputc;
1241: consops = &cdevsw[QVSSMAJOR];
1242: return 1;
1243: }
1244: /*
1245: * Do the board specific setup
1246: */
1247: qv_setup(qvaddr, unit, probed)
1248: struct qvdevice *qvaddr;
1249: int unit;
1250: int probed;
1251: {
1252: caddr_t qvssmem; /* pointer to the display mem */
1253: register i; /* simple index */
1254: register struct qv_info *qp;
1255: register int *pte;
1256: struct percpu *pcpu; /* pointer to percpu structure */
1257: register struct qbus *qb;
1258:
1259: /*
1260: * find the percpu entry that matches this machine.
1261: */
1262: for( pcpu = percpu ; pcpu && pcpu->pc_cputype != cpu ; pcpu++ )
1263: ;
1264: if( pcpu == NULL )
1265: return(0);
1266:
1267: /*
1268: * Found an entry for this cpu. Because this device is Microvax specific
1269: * we assume that there is a single q-bus and don't have to worry about
1270: * multiple adapters.
1271: *
1272: * Map the device memory.
1273: */
1274: qb = (struct qbus *)pcpu->pc_io->io_details;
1275:
1276: i = (u_int)(qvaddr->qv_csr & QV_MEM_BANK) << 7;
1277: ioaccess(qb->qb_maddr + i, QVmap[unit], 512 * NBPG);
1278: qvssmem = qvmem[unit];
1279: pte = (int *)(QVmap[unit]);
1280: for (i=0; i < 512; i++, pte++)
1281: *pte = (*pte & ~PG_PROT) | PG_UW | PG_V;
1282:
1283: qv_scn = (struct qv_info *)((u_int)qvssmem + 251*1024);
1284: qp = qv_scn;
1285: if( (qvaddr->qv_csr & QV_19INCH) && qv_def_scrn == 0)
1286: qv_def_scrn = 1;
1287: *qv_scn = qv_scn_defaults[ qv_def_scrn ];
1288: if (probed)
1289: qp->qvaddr = qvaddr;
1290: qp->bitmap = qvssmem;
1291: qp->scanmap = (short *)((u_int)qvssmem + 254*1024);
1292: qp->cursorbits = (short *)((u_int)qvssmem + 256*1024-32);
1293: /* set up event queue for later */
1294: qp->ibuff = (vsEvent *)qp - QVMAXEVQ;
1295: qp->iqsize = QVMAXEVQ;
1296: qp->ihead = qp->itail = 0;
1297:
1298: /*
1299: * Setup the crt controller chip.
1300: */
1301: for( i=0 ; i<16 ; i++ ) {
1302: qvaddr->qv_crtaddr = i;
1303: qvaddr->qv_crtdata = qv_crt_parms[ qv_def_scrn ][ i ];
1304: }
1305: /*
1306: * Setup the display.
1307: */
1308: qv_init( qvaddr );
1309:
1310: /*
1311: * Turn on the video
1312: */
1313: qvaddr->qv_csr |= QV_VIDEO_ENA ;
1314: return 1;
1315: }
1316: #endif
CVSweb