1855 lines
38 KiB
C
1855 lines
38 KiB
C
/*-
|
|
* Copyright (c) 1990 The Regents of the University of California.
|
|
* All rights reserved.
|
|
*
|
|
* This code is derived from software contributed to Berkeley by
|
|
* William Jolitz and Don Ahn.
|
|
*
|
|
* 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: @(#)pccons.c 5.11 (Berkeley) 5/21/91
|
|
* $Id: pccons.c,v 1.40 1994/02/09 21:13:51 mycroft Exp $
|
|
*/
|
|
|
|
#include "pc.h"
|
|
#if NPC > 0
|
|
|
|
/*
|
|
* code to work keyboard & display for PC-style console
|
|
*/
|
|
#include <sys/param.h>
|
|
#include <sys/conf.h>
|
|
#include <sys/ioctl.h>
|
|
#include <sys/proc.h>
|
|
#include <sys/user.h>
|
|
#include <sys/select.h>
|
|
#include <sys/tty.h>
|
|
#include <sys/uio.h>
|
|
#include <sys/callout.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/kernel.h>
|
|
#include <sys/syslog.h>
|
|
|
|
#include <dev/cons.h>
|
|
|
|
#include <machine/pio.h>
|
|
#include <machine/pccons.h>
|
|
#include <machine/pc/display.h>
|
|
|
|
#include <i386/isa/isa_device.h>
|
|
#include <i386/isa/icu.h>
|
|
#include <i386/isa/isa.h>
|
|
#include <i386/isa/ic/i8042.h>
|
|
#include <i386/isa/kbd.h>
|
|
|
|
#ifndef BEEP_FREQ
|
|
#define BEEP_FREQ 1500
|
|
#endif
|
|
#ifndef BEEP_TIME
|
|
#define BEEP_TIME (hz/4)
|
|
#endif
|
|
|
|
#define PCBURST 128
|
|
|
|
extern u_short *Crtat;
|
|
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
int pc_xmode = 0;
|
|
#endif /* XSERVER */
|
|
|
|
struct tty *pc_tty[1];
|
|
|
|
struct pcconsoftc {
|
|
char cs_flags;
|
|
#define CSF_ACTIVE 0x1 /* timeout active */
|
|
#define CSF_POLLING 0x2 /* polling for input */
|
|
char cs_lastc; /* last char sent */
|
|
int cs_timo; /* timeouts since interrupt */
|
|
u_long cs_wedgecnt; /* times restarted */
|
|
} pcconsoftc;
|
|
|
|
struct kbdsoftc {
|
|
char kbd_flags;
|
|
#define KBDF_ACTIVE 0x1 /* timeout active */
|
|
#define KBDF_POLLING 0x2 /* polling for input */
|
|
#define KBDF_RAW 0x4 /* pass thru scan codes for input */
|
|
char kbd_lastc; /* last char sent */
|
|
} kbdsoftc;
|
|
|
|
static struct video_state {
|
|
char esc; /* seen escape */
|
|
char ebrac; /* seen escape bracket */
|
|
char eparm; /* seen escape and parameters */
|
|
char so; /* in standout mode? */
|
|
int cx; /* "x" parameter */
|
|
int cy; /* "y" parameter */
|
|
int row, col; /* current cursor position */
|
|
int nrow, ncol; /* current screen geometry */
|
|
char fg_at, bg_at; /* normal attributes */
|
|
char so_at; /* standout attribute */
|
|
char kern_fg_at, kern_bg_at;
|
|
char color; /* color or mono display */
|
|
} vs;
|
|
|
|
int pcprobe(), pcattach();
|
|
|
|
struct isa_driver pcdriver = {
|
|
pcprobe, pcattach, "pc",
|
|
};
|
|
|
|
/* block cursor so wfj does not go blind on laptop hunting for
|
|
the verdamnt cursor -wfj */
|
|
#define FAT_CURSOR
|
|
|
|
#define COL 80
|
|
#define ROW 25
|
|
#define CHR 2
|
|
|
|
static unsigned int addr_6845 = MONO_BASE;
|
|
static openf;
|
|
|
|
char *sgetc __P((int));
|
|
static sputc __P((u_char, u_char));
|
|
|
|
static char *more_chars;
|
|
static int char_count;
|
|
|
|
/*
|
|
* We check the console periodically to make sure
|
|
* that it hasn't wedged. Unfortunately, if an XOFF
|
|
* is typed on the console, that can't be distinguished
|
|
* from more catastrophic failure.
|
|
*/
|
|
#define CN_TIMERVAL (hz) /* frequency at which to check cons */
|
|
#define CN_TIMO (2*60) /* intervals to allow for output char */
|
|
|
|
void pcstart();
|
|
int pcparam();
|
|
char partab[];
|
|
|
|
static void set_typematic(u_char data);
|
|
|
|
|
|
extern pcopen(dev_t, int, int, struct proc *);
|
|
/*
|
|
* Wait for CP to accept last CP command sent
|
|
* before setting up next command.
|
|
*/
|
|
#define waitforlast(timo) { \
|
|
if (pclast) { \
|
|
(timo) = 10000; \
|
|
do \
|
|
uncache((char *)&pclast->cp_unit); \
|
|
while ((pclast->cp_unit&CPTAKE) == 0 && --(timo)); \
|
|
} \
|
|
}
|
|
|
|
/*
|
|
* Pass command to keyboard controller (8042)
|
|
*/
|
|
static int kbc_8042cmd(val)
|
|
int val;
|
|
{
|
|
unsigned timeo;
|
|
|
|
timeo = 100000; /* > 100 msec */
|
|
while (inb(KBSTATP) & KBS_IBF)
|
|
if (--timeo == 0)
|
|
return (-1);
|
|
outb(KBCMDP, val);
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* Pass command to keyboard itself
|
|
*/
|
|
int kbd_cmd(val)
|
|
int val;
|
|
{
|
|
unsigned timeo;
|
|
|
|
timeo = 100000; /* > 100 msec */
|
|
while (inb(KBSTATP) & KBS_IBF)
|
|
if (--timeo == 0)
|
|
return (-1);
|
|
outb(KBOUTP, val);
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* Read response from keyboard
|
|
*/
|
|
int kbd_response()
|
|
{
|
|
unsigned timeo;
|
|
|
|
timeo = 500000; /* > 500 msec (KBR_RSTDONE requires 87) */
|
|
while (!(inb(KBSTATP) & KBS_DIB))
|
|
if (--timeo == 0)
|
|
return (-1);
|
|
return ((u_char) inb(KBDATAP));
|
|
}
|
|
|
|
/*
|
|
* these are both bad jokes
|
|
*/
|
|
pcprobe(dev)
|
|
struct isa_device *dev;
|
|
{
|
|
int again = 0;
|
|
int response;
|
|
|
|
/* Enable interrupts and keyboard, etc. */
|
|
if (kbc_8042cmd(K_LDCMDBYTE) != 0)
|
|
printf("Timeout specifying load of keyboard command byte\n");
|
|
if (kbd_cmd(CMDBYTE) != 0)
|
|
printf("Timeout writing keyboard command byte\n");
|
|
/*
|
|
* Discard any stale keyboard activity. The 0.1 boot code isn't
|
|
* very careful and sometimes leaves a KBR_RESEND.
|
|
*/
|
|
while (inb(KBSTATP) & KBS_DIB)
|
|
kbd_response();
|
|
|
|
/* Start keyboard reset */
|
|
if (kbd_cmd(KBC_RESET) != 0)
|
|
printf("Timeout for keyboard reset command\n");
|
|
|
|
#if 0
|
|
/* Wait for the first response to reset and handle retries */
|
|
while ((response = kbd_response()) != KBR_ACK) {
|
|
if (response < 0) {
|
|
printf("Timeout for keyboard reset ack byte #1\n");
|
|
response = KBR_RESEND;
|
|
}
|
|
if (response == KBR_RESEND) {
|
|
if (!again) {
|
|
printf("KEYBOARD disconnected: RECONNECT\n");
|
|
again = 1;
|
|
}
|
|
if (kbd_cmd(KBC_RESET) != 0)
|
|
printf("Timeout for keyboard reset command\n");
|
|
}
|
|
/*
|
|
* Other responses are harmless. They may occur for new
|
|
* keystrokes.
|
|
*/
|
|
}
|
|
#endif
|
|
|
|
/* Wait for the second response to reset */
|
|
while ((response = kbd_response()) != KBR_RSTDONE) {
|
|
if (response < 0) {
|
|
printf("Timeout for keyboard reset ack byte #2\n");
|
|
/*
|
|
* If KBR_RSTDONE never arrives, the loop will
|
|
* finish here unless the keyboard babbles or
|
|
* KBS_DIB gets stuck.
|
|
*/
|
|
break;
|
|
}
|
|
}
|
|
|
|
return (16);
|
|
}
|
|
|
|
pcattach(dev)
|
|
struct isa_device *dev;
|
|
{
|
|
u_short *cp = Crtat + (CGA_BUF-MONO_BUF)/CHR;
|
|
u_short was;
|
|
|
|
printf("pc%d: ", dev->id_unit);
|
|
if (vs.color == 0)
|
|
printf("mono");
|
|
else
|
|
printf("color");
|
|
printf("\n");
|
|
cursor(0);
|
|
}
|
|
|
|
/* ARGSUSED */
|
|
#ifdef __STDC__
|
|
pcopen(dev_t dev, int flag, int mode, struct proc *p)
|
|
#else
|
|
pcopen(dev, flag, mode, p)
|
|
dev_t dev;
|
|
int flag, mode;
|
|
struct proc *p;
|
|
#endif
|
|
{
|
|
register struct tty *tp;
|
|
|
|
if (minor(dev) != 0)
|
|
return (ENXIO);
|
|
if(!pc_tty[0]) {
|
|
tp = pc_tty[0] = ttymalloc();
|
|
} else {
|
|
tp = pc_tty[0];
|
|
}
|
|
tp->t_oproc = pcstart;
|
|
tp->t_param = pcparam;
|
|
tp->t_dev = dev;
|
|
openf++;
|
|
if ((tp->t_state & TS_ISOPEN) == 0) {
|
|
tp->t_state |= TS_WOPEN;
|
|
ttychars(tp);
|
|
tp->t_iflag = TTYDEF_IFLAG;
|
|
tp->t_oflag = TTYDEF_OFLAG;
|
|
tp->t_cflag = TTYDEF_CFLAG;
|
|
tp->t_lflag = TTYDEF_LFLAG;
|
|
tp->t_ispeed = tp->t_ospeed = TTYDEF_SPEED;
|
|
pcparam(tp, &tp->t_termios);
|
|
ttsetwater(tp);
|
|
} else if (tp->t_state&TS_XCLUDE && p->p_ucred->cr_uid != 0)
|
|
return (EBUSY);
|
|
tp->t_state |= TS_CARR_ON;
|
|
return ((*linesw[tp->t_line].l_open)(dev, tp));
|
|
}
|
|
|
|
pcclose(dev, flag, mode, p)
|
|
dev_t dev;
|
|
int flag, mode;
|
|
struct proc *p;
|
|
{
|
|
register struct tty *tp = pc_tty[0];
|
|
|
|
(*linesw[tp->t_line].l_close)(tp, flag);
|
|
ttyclose(tp);
|
|
return(0);
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
int
|
|
pcread(dev, uio, flag)
|
|
dev_t dev;
|
|
struct uio *uio;
|
|
{
|
|
register struct tty *tp = pc_tty[0];
|
|
|
|
return ((*linesw[tp->t_line].l_read)(tp, uio, flag));
|
|
}
|
|
|
|
/*ARGSUSED*/
|
|
int
|
|
pcwrite(dev, uio, flag)
|
|
dev_t dev;
|
|
struct uio *uio;
|
|
{
|
|
register struct tty *tp = pc_tty[0];
|
|
|
|
return ((*linesw[tp->t_line].l_write)(tp, uio, flag));
|
|
}
|
|
|
|
/*
|
|
* Got a console receive interrupt -
|
|
* the console processor wants to give us a character.
|
|
* Catch the character, and see who it goes to.
|
|
*/
|
|
void
|
|
pcrint(dev, irq, cpl)
|
|
dev_t dev;
|
|
{
|
|
register struct tty *tp = pc_tty[0];
|
|
|
|
int c;
|
|
char *cp;
|
|
|
|
cp = sgetc(1);
|
|
if (cp == 0)
|
|
return;
|
|
if (pcconsoftc.cs_flags & CSF_POLLING)
|
|
return;
|
|
#ifdef KDB
|
|
if (kdbrintr(c, tp))
|
|
return;
|
|
#endif
|
|
if (!openf)
|
|
return;
|
|
|
|
do {
|
|
(*linesw[tp->t_line].l_rint)(*cp++ & 0xff, tp);
|
|
} while (*cp);
|
|
}
|
|
|
|
|
|
int
|
|
pcioctl(dev, cmd, data, flag, p)
|
|
dev_t dev;
|
|
int cmd;
|
|
caddr_t data;
|
|
int flag;
|
|
struct proc *p;
|
|
{
|
|
register struct tty *tp = pc_tty[0];
|
|
register error;
|
|
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
if (cmd == CONSOLE_X_MODE_ON) {
|
|
pc_xmode_on ();
|
|
return (0);
|
|
} else if (cmd == CONSOLE_X_MODE_OFF) {
|
|
pc_xmode_off ();
|
|
return (0);
|
|
} else if (cmd == CONSOLE_X_BELL) {
|
|
/* if set, data is a pointer to a length 2 array of
|
|
integers. data[0] is the pitch in Hz and data[1]
|
|
is the duration in msec. */
|
|
if (data) {
|
|
sysbeep(((int*)data)[0],
|
|
(((int*)data)[1] * hz)/ 3000);
|
|
} else {
|
|
sysbeep(BEEP_FREQ, BEEP_TIME);
|
|
}
|
|
return (0);
|
|
}
|
|
#endif /* XSERVER */
|
|
if (cmd == CONSOLE_SET_TYPEMATIC_RATE) {
|
|
u_char rate;
|
|
|
|
if (!data)
|
|
return(EINVAL);
|
|
rate = *((u_char *)data);
|
|
/*
|
|
* check that it isn't too big (which would then be confused as
|
|
* a command)
|
|
*/
|
|
if (!(rate & 0x80))
|
|
set_typematic(rate); /* set the new rate & delay */
|
|
else
|
|
return(EINVAL);
|
|
}
|
|
|
|
error = (*linesw[tp->t_line].l_ioctl)(tp, cmd, data, flag, p);
|
|
if (error >= 0)
|
|
return (error);
|
|
error = ttioctl(tp, cmd, data, flag, p);
|
|
if (error >= 0)
|
|
return (error);
|
|
return (ENOTTY);
|
|
}
|
|
|
|
int pcconsintr = 1;
|
|
/*
|
|
* Got a console transmission interrupt -
|
|
* the console processor wants another character.
|
|
*/
|
|
pcxint(dev)
|
|
dev_t dev;
|
|
{
|
|
register struct tty *tp = pc_tty[0];
|
|
register int unit;
|
|
|
|
if (!pcconsintr)
|
|
return;
|
|
tp->t_state &= ~TS_BUSY;
|
|
pcconsoftc.cs_timo = 0;
|
|
if (tp->t_line)
|
|
(*linesw[tp->t_line].l_start)(tp);
|
|
else
|
|
pcstart(tp);
|
|
}
|
|
|
|
void
|
|
pcstart(tp)
|
|
register struct tty *tp;
|
|
{
|
|
register struct clist *rbp;
|
|
int s, len, n;
|
|
u_char buf[PCBURST];
|
|
|
|
s = spltty();
|
|
if (tp->t_state & (TS_TIMEOUT|TS_BUSY|TS_TTSTOP))
|
|
goto out;
|
|
tp->t_state |= TS_BUSY;
|
|
splx(s);
|
|
/*
|
|
* We need to do this outside spl since it could be fairly
|
|
* expensive and we don't want our serial ports to overflow.
|
|
*/
|
|
rbp = &tp->t_outq;
|
|
len = q_to_b(rbp, buf, PCBURST);
|
|
for (n = 0; n < len; n++)
|
|
if (buf[n]) sputc(buf[n], 0);
|
|
s = spltty();
|
|
tp->t_state &= ~TS_BUSY;
|
|
if (rbp->c_cc) {
|
|
tp->t_state |= TS_TIMEOUT;
|
|
timeout((timeout_t)ttrstrt, (caddr_t)tp, 1);
|
|
}
|
|
if (rbp->c_cc <= tp->t_lowat) {
|
|
if (tp->t_state&TS_ASLEEP) {
|
|
tp->t_state &= ~TS_ASLEEP;
|
|
wakeup((caddr_t)rbp);
|
|
}
|
|
selwakeup(&tp->t_wsel);
|
|
}
|
|
out:
|
|
splx(s);
|
|
}
|
|
|
|
pccnprobe(cp)
|
|
struct consdev *cp;
|
|
{
|
|
int maj;
|
|
|
|
/* locate the major number */
|
|
for (maj = 0; maj < nchrdev; maj++)
|
|
if (cdevsw[maj].d_open == pcopen)
|
|
break;
|
|
|
|
/* initialize required fields */
|
|
cp->cn_dev = makedev(maj, 0);
|
|
cp->cn_pri = CN_INTERNAL;
|
|
}
|
|
|
|
/* ARGSUSED */
|
|
pccninit(cp)
|
|
struct consdev *cp;
|
|
{
|
|
/*
|
|
* For now, don't screw with it.
|
|
*/
|
|
/* crtat = 0; */
|
|
}
|
|
|
|
static __color;
|
|
|
|
/* ARGSUSED */
|
|
pccnputc(dev, c)
|
|
dev_t dev;
|
|
char c;
|
|
{
|
|
if (c == '\n')
|
|
sputc('\r', 1);
|
|
sputc(c, 1);
|
|
}
|
|
|
|
/*
|
|
* Print a character on console.
|
|
*/
|
|
pcputchar(c, tp)
|
|
char c;
|
|
register struct tty *tp;
|
|
{
|
|
sputc(c, 1);
|
|
/*if (c=='\n') getchar();*/
|
|
}
|
|
|
|
|
|
/* ARGSUSED */
|
|
pccngetc(dev)
|
|
dev_t dev;
|
|
{
|
|
register int s;
|
|
register char *cp;
|
|
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
if (pc_xmode > 0)
|
|
return (0);
|
|
#endif /* XSERVER */
|
|
|
|
s = spltty(); /* block pcrint while we poll */
|
|
cp = sgetc(0);
|
|
splx(s);
|
|
if (*cp == '\r') return('\n');
|
|
return (*cp);
|
|
}
|
|
|
|
pcgetchar(tp)
|
|
register struct tty *tp;
|
|
{
|
|
char *cp;
|
|
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
if (pc_xmode > 0)
|
|
return (0);
|
|
#endif /* XSERVER */
|
|
|
|
cp = sgetc(0);
|
|
return (*cp&0xff);
|
|
}
|
|
|
|
/*
|
|
* Set line parameters
|
|
*/
|
|
pcparam(tp, t)
|
|
register struct tty *tp;
|
|
register struct termios *t;
|
|
{
|
|
register int cflag = t->c_cflag;
|
|
/* and copy to tty */
|
|
tp->t_ispeed = t->c_ispeed;
|
|
tp->t_ospeed = t->c_ospeed;
|
|
tp->t_cflag = cflag;
|
|
|
|
return(0);
|
|
}
|
|
|
|
#ifdef KDB
|
|
/*
|
|
* Turn input polling on/off (used by debugger).
|
|
*/
|
|
pcpoll(onoff)
|
|
int onoff;
|
|
{
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* cursor():
|
|
* reassigns cursor position, updated by the rescheduling clock
|
|
* which is a index (0-1999) into the text area. Note that the
|
|
* cursor is a "foreground" character, it's color determined by
|
|
* the fg_at attribute. Thus if fg_at is left as 0, (FG_BLACK),
|
|
* as when a portion of screen memory is 0, the cursor may dissappear.
|
|
*/
|
|
|
|
static u_short *crtat = 0;
|
|
|
|
cursor(int a)
|
|
{ int pos = crtat - Crtat;
|
|
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
if (pc_xmode <= 0) {
|
|
#endif /* XSERVER */
|
|
outb(addr_6845, 14);
|
|
outb(addr_6845+1, pos>> 8);
|
|
outb(addr_6845, 15);
|
|
outb(addr_6845+1, pos);
|
|
#ifdef FAT_CURSOR
|
|
outb(addr_6845, 10);
|
|
outb(addr_6845+1, 0);
|
|
outb(addr_6845, 11);
|
|
outb(addr_6845+1, 18);
|
|
#endif FAT_CURSOR
|
|
if (a == 0)
|
|
timeout((timeout_t)cursor, (caddr_t)0, hz/10);
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
}
|
|
#endif /* XSERVER */
|
|
}
|
|
|
|
static u_char shift_down, ctrl_down, alt_down, caps, num, scroll;
|
|
|
|
#define wrtchar(c, at) \
|
|
{ char *cp = (char *)crtat; *cp++ = (c); *cp = (at); crtat++; vs.col++; }
|
|
|
|
|
|
/* translate ANSI color codes to standard pc ones */
|
|
static char fgansitopc[] =
|
|
{ FG_BLACK, FG_RED, FG_GREEN, FG_BROWN, FG_BLUE,
|
|
FG_MAGENTA, FG_CYAN, FG_LIGHTGREY};
|
|
|
|
static char bgansitopc[] =
|
|
{ BG_BLACK, BG_RED, BG_GREEN, BG_BROWN, BG_BLUE,
|
|
BG_MAGENTA, BG_CYAN, BG_LIGHTGREY};
|
|
|
|
/*
|
|
* sputc has support for emulation of the 'pc3' termcap entry.
|
|
* if ka, use kernel attributes.
|
|
*/
|
|
#ifdef __STDC__
|
|
static sputc(u_char c, u_char ka)
|
|
#else
|
|
static sputc(c, ka)
|
|
u_char c, ka;
|
|
#endif
|
|
{
|
|
|
|
int sc = 1; /* do scroll check */
|
|
char fg_at, bg_at, at;
|
|
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
if (pc_xmode > 0)
|
|
return;
|
|
#endif /* XSERVER */
|
|
|
|
if (crtat == 0)
|
|
{
|
|
u_short volatile *cp = Crtat + (CGA_BUF-MONO_BUF)/CHR;
|
|
u_short was;
|
|
unsigned cursorat;
|
|
|
|
/*
|
|
* Crtat initialized to point to MONO buffer if not present
|
|
* change to CGA_BUF offset ONLY ADD the difference since
|
|
* locore.s adds in the remapped offset at the right time
|
|
*/
|
|
|
|
was = *cp;
|
|
*cp = (u_short) 0xA55A;
|
|
if (*cp != 0xA55A) {
|
|
addr_6845 = MONO_BASE;
|
|
vs.color=0;
|
|
} else {
|
|
*cp = was;
|
|
addr_6845 = CGA_BASE;
|
|
Crtat = Crtat + (CGA_BUF-MONO_BUF)/CHR;
|
|
vs.color=1;
|
|
}
|
|
/* Extract cursor location */
|
|
outb(addr_6845,14);
|
|
cursorat = inb(addr_6845+1)<<8 ;
|
|
outb(addr_6845,15);
|
|
cursorat |= inb(addr_6845+1);
|
|
|
|
crtat = Crtat + cursorat;
|
|
vs.ncol = COL;
|
|
vs.nrow = ROW;
|
|
vs.fg_at = FG_LIGHTGREY;
|
|
vs.bg_at = BG_BLACK;
|
|
|
|
if (vs.color == 0) {
|
|
vs.kern_fg_at = FG_UNDERLINE;
|
|
vs.so_at = FG_BLACK | BG_LIGHTGREY;
|
|
} else {
|
|
vs.kern_fg_at = FG_LIGHTGREY;
|
|
vs.so_at = FG_YELLOW | BG_BLACK;
|
|
}
|
|
vs.kern_bg_at = BG_BLACK;
|
|
|
|
fillw(((vs.bg_at|vs.fg_at)<<8)|' ', crtat, COL*ROW-cursorat);
|
|
}
|
|
|
|
/* which attributes do we use? */
|
|
if (ka) {
|
|
fg_at = vs.kern_fg_at;
|
|
bg_at = vs.kern_bg_at;
|
|
} else {
|
|
fg_at = vs.fg_at;
|
|
bg_at = vs.bg_at;
|
|
}
|
|
at = fg_at|bg_at;
|
|
|
|
switch(c) {
|
|
int inccol;
|
|
|
|
case 0x1B:
|
|
if(vs.esc)
|
|
wrtchar(c, vs.so_at);
|
|
vs.esc = 1; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
|
|
case '\t':
|
|
inccol = (8 - vs.col % 8); /* non-destructive tab */
|
|
crtat += inccol;
|
|
vs.col += inccol;
|
|
break;
|
|
|
|
case '\010':
|
|
if (crtat <= Crtat)
|
|
break;
|
|
crtat--; vs.col--;
|
|
if (vs.col < 0) vs.col += vs.ncol; /* non-destructive backspace */
|
|
break;
|
|
|
|
case '\r':
|
|
crtat -= (crtat - Crtat) % vs.ncol; vs.col = 0;
|
|
break;
|
|
|
|
case '\n':
|
|
crtat += vs.ncol ;
|
|
break;
|
|
|
|
default:
|
|
bypass:
|
|
if (vs.esc) {
|
|
if (vs.ebrac) {
|
|
switch(c) {
|
|
int pos;
|
|
case 'm':
|
|
if (!vs.cx) vs.so = 0;
|
|
else vs.so = 1;
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
case 'A': /* back cx rows */
|
|
if (vs.cx <= 0) vs.cx = 1;
|
|
vs.cx %= vs.nrow;
|
|
pos = crtat - Crtat;
|
|
pos -= vs.ncol * vs.cx;
|
|
if (pos < 0)
|
|
pos += vs.nrow * vs.ncol;
|
|
crtat = Crtat + pos;
|
|
sc = vs.esc = vs.ebrac = vs.eparm = 0;
|
|
break;
|
|
case 'B': /* down cx rows */
|
|
if (vs.cx <= 0) vs.cx = 1;
|
|
vs.cx %= vs.nrow;
|
|
pos = crtat - Crtat;
|
|
pos += vs.ncol * vs.cx;
|
|
if (pos >= vs.nrow * vs.ncol)
|
|
pos -= vs.nrow * vs.ncol;
|
|
crtat = Crtat + pos;
|
|
sc = vs.esc = vs.ebrac = vs.eparm = 0;
|
|
break;
|
|
case 'C': /* right cursor */
|
|
if (vs.cx <= 0)
|
|
vs.cx = 1;
|
|
vs.cx %= vs.ncol;
|
|
pos = crtat - Crtat;
|
|
pos += vs.cx; vs.col += vs.cx;
|
|
if (vs.col >= vs.ncol) {
|
|
vs.col -= vs.ncol;
|
|
pos -= vs.ncol; /* cursor stays on same line */
|
|
}
|
|
crtat = Crtat + pos;
|
|
sc = vs.esc = vs.ebrac = vs.eparm = 0;
|
|
break;
|
|
case 'D': /* left cursor */
|
|
if (vs.cx <= 0)
|
|
vs.cx = 1;
|
|
vs.cx %= vs.ncol;
|
|
pos = crtat - Crtat;
|
|
pos -= vs.cx; vs.col -= vs.cx;
|
|
if (vs.col < 0) {
|
|
vs.col += vs.ncol;
|
|
pos += vs.ncol; /* cursor stays on same line */
|
|
}
|
|
crtat = Crtat + pos;
|
|
sc = vs.esc = vs.ebrac = vs.eparm = 0;
|
|
break;
|
|
case 'J': /* Clear ... */
|
|
if (vs.cx == 0)
|
|
/* ... to end of display */
|
|
fillw((at << 8) + ' ',
|
|
crtat,
|
|
Crtat + vs.ncol * vs.nrow - crtat);
|
|
else if (vs.cx == 1)
|
|
/* ... to next location */
|
|
fillw((at << 8) + ' ',
|
|
Crtat,
|
|
crtat - Crtat + 1);
|
|
else if (vs.cx == 2)
|
|
/* ... whole display */
|
|
fillw((at << 8) + ' ',
|
|
Crtat,
|
|
vs.ncol * vs.nrow);
|
|
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
case 'K': /* Clear line ... */
|
|
if (vs.cx == 0)
|
|
/* ... current to EOL */
|
|
fillw((at << 8) + ' ',
|
|
crtat,
|
|
vs.ncol - (crtat - Crtat) % vs.ncol);
|
|
else if (vs.cx == 1)
|
|
/* ... beginning to next */
|
|
fillw((at << 8) + ' ',
|
|
crtat - (crtat - Crtat) % vs.ncol,
|
|
((crtat - Crtat) % vs.ncol) + 1);
|
|
else if (vs.cx == 2)
|
|
/* ... entire line */
|
|
fillw((at << 8) + ' ',
|
|
crtat - (crtat - Crtat) % vs.ncol,
|
|
vs.ncol);
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
case 'f': /* in system V consoles */
|
|
case 'H': /* Cursor move */
|
|
if ((!vs.cx)||(!vs.cy)) {
|
|
crtat = Crtat;
|
|
vs.col = 0;
|
|
} else {
|
|
if (vs.cx > vs.nrow)
|
|
vs.cx = vs.nrow;
|
|
if (vs.cy > vs.ncol)
|
|
vs.cy = vs.ncol;
|
|
crtat = Crtat + (vs.cx - 1) * vs.ncol + vs.cy - 1;
|
|
vs.col = vs.cy - 1;
|
|
}
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
case 'S': /* scroll up cx lines */
|
|
if (vs.cx <= 0)
|
|
vs.cx = 1;
|
|
if (vs.cx > vs.nrow)
|
|
vs.cx = vs.nrow;
|
|
if (vs.cx < vs.nrow)
|
|
bcopy(Crtat+vs.ncol*vs.cx, Crtat, vs.ncol*(vs.nrow-vs.cx)*CHR);
|
|
fillw((at <<8)+' ', Crtat+vs.ncol*(vs.nrow-vs.cx), vs.ncol*vs.cx);
|
|
/* crtat -= vs.ncol*vs.cx; /* XXX */
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
case 'T': /* scroll down cx lines */
|
|
if (vs.cx <= 0)
|
|
vs.cx = 1;
|
|
if (vs.cx > vs.nrow)
|
|
vs.cx = vs.nrow;
|
|
if (vs.cx < vs.nrow)
|
|
bcopy(Crtat, Crtat+vs.ncol*vs.cx, vs.ncol*(vs.nrow-vs.cx)*CHR);
|
|
fillw((at <<8)+' ', Crtat, vs.ncol*vs.cx);
|
|
/* crtat += vs.ncol*vs.cx; /* XXX */
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
case ';': /* Switch params in cursor def */
|
|
vs.eparm = 1;
|
|
break;
|
|
case 'r':
|
|
vs.so_at = (vs.cx & 0x0f) | ((vs.cy & 0x0f) << 4);
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
case 'x': /* set attributes */
|
|
switch (vs.cx) {
|
|
case 0:
|
|
/* reset to normal attributes */
|
|
bg_at = BG_BLACK;
|
|
if (ka)
|
|
fg_at = vs.color? FG_LIGHTGREY: FG_UNDERLINE;
|
|
else
|
|
fg_at = FG_LIGHTGREY;
|
|
break;
|
|
case 1:
|
|
/* ansi background */
|
|
if (vs.color)
|
|
bg_at = bgansitopc[vs.cy & 7];
|
|
break;
|
|
case 2:
|
|
/* ansi foreground */
|
|
if (vs.color)
|
|
fg_at = fgansitopc[vs.cy & 7];
|
|
break;
|
|
case 3:
|
|
/* pc text attribute */
|
|
if (vs.eparm) {
|
|
fg_at = vs.cy & 0x8f;
|
|
bg_at = vs.cy & 0x70;
|
|
}
|
|
break;
|
|
}
|
|
if (ka) {
|
|
vs.kern_fg_at = fg_at;
|
|
vs.kern_bg_at = bg_at;
|
|
} else {
|
|
vs.fg_at = fg_at;
|
|
vs.bg_at = bg_at;
|
|
}
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
break;
|
|
|
|
default: /* Only numbers valid here */
|
|
if ((c >= '0')&&(c <= '9')) {
|
|
if (vs.eparm) {
|
|
vs.cy *= 10;
|
|
vs.cy += c - '0';
|
|
} else {
|
|
vs.cx *= 10;
|
|
vs.cx += c - '0';
|
|
}
|
|
} else {
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
}
|
|
break;
|
|
}
|
|
break;
|
|
} else if (c == 'c') { /* Clear screen & home */
|
|
fillw((at << 8) + ' ', Crtat, vs.ncol*vs.nrow);
|
|
crtat = Crtat; vs.col = 0;
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
} else if (c == '[') { /* Start ESC [ sequence */
|
|
vs.ebrac = 1; vs.cx = 0; vs.cy = 0; vs.eparm = 0;
|
|
} else { /* Invalid, clear state */
|
|
vs.esc = 0; vs.ebrac = 0; vs.eparm = 0;
|
|
wrtchar(c, vs.so_at);
|
|
}
|
|
} else {
|
|
if (c == 7)
|
|
sysbeep(BEEP_FREQ, BEEP_TIME);
|
|
else {
|
|
if (vs.so) {
|
|
wrtchar(c, vs.so_at);
|
|
} else
|
|
wrtchar(c, at);
|
|
if (vs.col >= vs.ncol) vs.col = 0;
|
|
break ;
|
|
}
|
|
}
|
|
}
|
|
if (sc && crtat >= Crtat+vs.ncol*vs.nrow) { /* scroll check */
|
|
if (openf) {
|
|
(void)sgetc(1);
|
|
if (scroll)
|
|
sleep((caddr_t)&scroll, PUSER);
|
|
}
|
|
bcopy(Crtat+vs.ncol, Crtat, vs.ncol*(vs.nrow-1)*CHR);
|
|
fillw ((at << 8) + ' ', Crtat + vs.ncol*(vs.nrow-1),
|
|
vs.ncol);
|
|
crtat -= vs.ncol;
|
|
}
|
|
if (ka)
|
|
cursor(1);
|
|
}
|
|
|
|
|
|
unsigned __debug = 0; /*0xffe */
|
|
static char scantokey[] = {
|
|
0,
|
|
120, /* F9 */
|
|
0,
|
|
116, /* F5 */
|
|
114, /* F3 */
|
|
112, /* F1 */
|
|
113, /* F2 */
|
|
123, /* F12 */
|
|
0,
|
|
121, /* F10 */
|
|
119, /* F8 */
|
|
117, /* F6 */
|
|
115, /* F4 */
|
|
16, /* TAB */
|
|
1, /* ` */
|
|
0,
|
|
0,
|
|
60, /* ALT (left) */
|
|
44, /* SHIFT (left) */
|
|
0,
|
|
58, /* CTRL (left) */
|
|
17, /* Q */
|
|
2, /* 1 */
|
|
0,
|
|
0,
|
|
0,
|
|
46, /* Z */
|
|
32, /* S */
|
|
31, /* A */
|
|
18, /* W */
|
|
3, /* 2 */
|
|
0,
|
|
0,
|
|
48, /* C */
|
|
47, /* X */
|
|
33, /* D */
|
|
19, /* E */
|
|
5, /* 4 */
|
|
4, /* 3 */
|
|
0,
|
|
0,
|
|
61, /* SPACE */
|
|
49, /* V */
|
|
34, /* F */
|
|
21, /* T */
|
|
20, /* R */
|
|
6, /* 5 */
|
|
0,
|
|
0,
|
|
51, /* N */
|
|
50, /* B */
|
|
36, /* H */
|
|
35, /* G */
|
|
22, /* Y */
|
|
7, /* 6 */
|
|
0,
|
|
0,
|
|
0,
|
|
52, /* M */
|
|
37, /* J */
|
|
23, /* U */
|
|
8, /* 7 */
|
|
9, /* 8 */
|
|
0,
|
|
0,
|
|
53, /* , */
|
|
38, /* K */
|
|
24, /* I */
|
|
25, /* O */
|
|
11, /* 0 */
|
|
10, /* 9 */
|
|
0,
|
|
0,
|
|
54, /* . */
|
|
55, /* / */
|
|
39, /* L */
|
|
40, /* ; */
|
|
26, /* P */
|
|
12, /* - */
|
|
0,
|
|
0,
|
|
0,
|
|
41, /* " */
|
|
0,
|
|
27, /* [ */
|
|
13, /* + */
|
|
0,
|
|
0,
|
|
0,
|
|
57, /* SHIFT (right) */
|
|
43, /* ENTER */
|
|
28, /* ] */
|
|
0,
|
|
29, /* \ */
|
|
0,
|
|
0,
|
|
0,
|
|
45, /* na*/
|
|
0,
|
|
0,
|
|
0,
|
|
0,
|
|
15, /* backspace */
|
|
0,
|
|
0, /* keypad */
|
|
93, /* 1 */
|
|
0,
|
|
92, /* 4 */
|
|
91, /* 7 */
|
|
0,
|
|
0,
|
|
0,
|
|
99, /* 0 */
|
|
104, /* . */
|
|
98, /* 2 */
|
|
97, /* 5 */
|
|
102, /* 6 */
|
|
96, /* 8 */
|
|
110, /* ESC */
|
|
90, /* Num Lock */
|
|
122, /* F11 */
|
|
106, /* + */
|
|
103, /* 3 */
|
|
105, /* - */
|
|
100, /* * */
|
|
101, /* 9 */
|
|
0,
|
|
0,
|
|
0,
|
|
0,
|
|
0,
|
|
118, /* F7 */
|
|
};
|
|
static char extscantokey[] = {
|
|
0,
|
|
120, /* F9 */
|
|
0,
|
|
116, /* F5 */
|
|
114, /* F3 */
|
|
112, /* F1 */
|
|
113, /* F2 */
|
|
123, /* F12 */
|
|
0,
|
|
121, /* F10 */
|
|
119, /* F8 */
|
|
117, /* F6 */
|
|
115, /* F4 */
|
|
16, /* TAB */
|
|
1, /* ` */
|
|
0,
|
|
0,
|
|
62, /* ALT (right) */
|
|
124, /* Print Screen */
|
|
0,
|
|
64, /* CTRL (right) */
|
|
17, /* Q */
|
|
2, /* 1 */
|
|
0,
|
|
0,
|
|
0,
|
|
46, /* Z */
|
|
32, /* S */
|
|
31, /* A */
|
|
18, /* W */
|
|
3, /* 2 */
|
|
0,
|
|
0,
|
|
48, /* C */
|
|
47, /* X */
|
|
33, /* D */
|
|
19, /* E */
|
|
5, /* 4 */
|
|
4, /* 3 */
|
|
0,
|
|
0,
|
|
61, /* SPACE */
|
|
49, /* V */
|
|
34, /* F */
|
|
21, /* T */
|
|
20, /* R */
|
|
6, /* 5 */
|
|
0,
|
|
0,
|
|
51, /* N */
|
|
50, /* B */
|
|
36, /* H */
|
|
35, /* G */
|
|
22, /* Y */
|
|
7, /* 6 */
|
|
0,
|
|
0,
|
|
0,
|
|
52, /* M */
|
|
37, /* J */
|
|
23, /* U */
|
|
8, /* 7 */
|
|
9, /* 8 */
|
|
0,
|
|
0,
|
|
53, /* , */
|
|
38, /* K */
|
|
24, /* I */
|
|
25, /* O */
|
|
11, /* 0 */
|
|
10, /* 9 */
|
|
0,
|
|
0,
|
|
54, /* . */
|
|
95, /* / */
|
|
39, /* L */
|
|
40, /* ; */
|
|
26, /* P */
|
|
12, /* - */
|
|
0,
|
|
0,
|
|
0,
|
|
41, /* " */
|
|
0,
|
|
27, /* [ */
|
|
13, /* + */
|
|
0,
|
|
0,
|
|
0,
|
|
57, /* SHIFT (right) */
|
|
108, /* ENTER */
|
|
28, /* ] */
|
|
0,
|
|
29, /* \ */
|
|
0,
|
|
0,
|
|
0,
|
|
45, /* na*/
|
|
0,
|
|
0,
|
|
0,
|
|
0,
|
|
15, /* backspace */
|
|
0,
|
|
0, /* keypad */
|
|
81, /* end */
|
|
0,
|
|
79, /* left arrow */
|
|
80, /* home */
|
|
0,
|
|
0,
|
|
0,
|
|
75, /* ins */
|
|
76, /* del */
|
|
84, /* down arrow */
|
|
97, /* 5 */
|
|
89, /* right arrow */
|
|
83, /* up arrow */
|
|
110, /* ESC */
|
|
90, /* Num Lock */
|
|
122, /* F11 */
|
|
106, /* + */
|
|
86, /* page down */
|
|
105, /* - */
|
|
124, /* print screen */
|
|
85, /* page up */
|
|
0,
|
|
0,
|
|
0,
|
|
0,
|
|
0,
|
|
118, /* F7 */
|
|
};
|
|
#define CODE_SIZE 4 /* Use a max of 4 for now... */
|
|
typedef struct
|
|
{
|
|
u_short type;
|
|
char unshift[CODE_SIZE];
|
|
char shift[CODE_SIZE];
|
|
char ctrl[CODE_SIZE];
|
|
} Scan_def;
|
|
|
|
#define SHIFT 0x0002 /* keyboard shift */
|
|
#define ALT 0x0004 /* alternate shift -- alternate chars */
|
|
#define NUM 0x0008 /* numeric shift cursors vs. numeric */
|
|
#define CTL 0x0010 /* control shift -- allows ctl function */
|
|
#define CAPS 0x0020 /* caps shift -- swaps case of letter */
|
|
#define ASCII 0x0040 /* ascii code for this key */
|
|
#define SCROLL 0x0080 /* stop output */
|
|
#define FUNC 0x0100 /* function key */
|
|
#define KP 0x0200 /* Keypad keys */
|
|
#define NONE 0x0400 /* no function */
|
|
|
|
static Scan_def scan_codes[] =
|
|
{
|
|
NONE, "", "", "", /* 0 unused */
|
|
ASCII, "\033", "\033", "\033", /* 1 ESCape */
|
|
ASCII, "1", "!", "!", /* 2 1 */
|
|
ASCII, "2", "@", "\000", /* 3 2 */
|
|
ASCII, "3", "#", "#", /* 4 3 */
|
|
ASCII, "4", "$", "$", /* 5 4 */
|
|
ASCII, "5", "%", "%", /* 6 5 */
|
|
ASCII, "6", "^", "\036", /* 7 6 */
|
|
ASCII, "7", "&", "&", /* 8 7 */
|
|
ASCII, "8", "*", "\010", /* 9 8 */
|
|
ASCII, "9", "(", "(", /* 10 9 */
|
|
ASCII, "0", ")", ")", /* 11 0 */
|
|
ASCII, "-", "_", "\037", /* 12 - */
|
|
ASCII, "=", "+", "+", /* 13 = */
|
|
ASCII, "\177", "\177", "\010", /* 14 backspace */
|
|
ASCII, "\t", "\177\t", "\t", /* 15 tab */
|
|
ASCII, "q", "Q", "\021", /* 16 q */
|
|
ASCII, "w", "W", "\027", /* 17 w */
|
|
ASCII, "e", "E", "\005", /* 18 e */
|
|
ASCII, "r", "R", "\022", /* 19 r */
|
|
ASCII, "t", "T", "\024", /* 20 t */
|
|
ASCII, "y", "Y", "\031", /* 21 y */
|
|
ASCII, "u", "U", "\025", /* 22 u */
|
|
ASCII, "i", "I", "\011", /* 23 i */
|
|
ASCII, "o", "O", "\017", /* 24 o */
|
|
ASCII, "p", "P", "\020", /* 25 p */
|
|
ASCII, "[", "{", "\033", /* 26 [ */
|
|
ASCII, "]", "}", "\035", /* 27 ] */
|
|
ASCII, "\r", "\r", "\n", /* 28 return */
|
|
CTL, "", "", "", /* 29 control */
|
|
ASCII, "a", "A", "\001", /* 30 a */
|
|
ASCII, "s", "S", "\023", /* 31 s */
|
|
ASCII, "d", "D", "\004", /* 32 d */
|
|
ASCII, "f", "F", "\006", /* 33 f */
|
|
ASCII, "g", "G", "\007", /* 34 g */
|
|
ASCII, "h", "H", "\010", /* 35 h */
|
|
ASCII, "j", "J", "\n", /* 36 j */
|
|
ASCII, "k", "K", "\013", /* 37 k */
|
|
ASCII, "l", "L", "\014", /* 38 l */
|
|
ASCII, ";", ":", ";", /* 39 ; */
|
|
ASCII, "'", "\"", "'", /* 40 ' */
|
|
ASCII, "`", "~", "`", /* 41 ` */
|
|
SHIFT, "", "", "", /* 42 shift */
|
|
ASCII, "\\", "|", "\034", /* 43 \ */
|
|
ASCII, "z", "Z", "\032", /* 44 z */
|
|
ASCII, "x", "X", "\030", /* 45 x */
|
|
ASCII, "c", "C", "\003", /* 46 c */
|
|
ASCII, "v", "V", "\026", /* 47 v */
|
|
ASCII, "b", "B", "\002", /* 48 b */
|
|
ASCII, "n", "N", "\016", /* 49 n */
|
|
ASCII, "m", "M", "\r", /* 50 m */
|
|
ASCII, ",", "<", "<", /* 51 , */
|
|
ASCII, ".", ">", ">", /* 52 . */
|
|
ASCII, "/", "?", "\037", /* 53 / */
|
|
SHIFT, "", "", "", /* 54 shift */
|
|
KP, "*", "*", "*", /* 55 kp * */
|
|
ALT, "", "", "", /* 56 alt */
|
|
ASCII, " ", " ", "\000", /* 57 space */
|
|
CAPS, "", "", "", /* 58 caps */
|
|
FUNC, "\033[M", "\033[Y", "\033[k", /* 59 f1 */
|
|
FUNC, "\033[N", "\033[Z", "\033[l", /* 60 f2 */
|
|
FUNC, "\033[O", "\033[a", "\033[m", /* 61 f3 */
|
|
FUNC, "\033[P", "\033[b", "\033[n", /* 62 f4 */
|
|
FUNC, "\033[Q", "\033[c", "\033[o", /* 63 f5 */
|
|
FUNC, "\033[R", "\033[d", "\033[p", /* 64 f6 */
|
|
FUNC, "\033[S", "\033[e", "\033[q", /* 65 f7 */
|
|
FUNC, "\033[T", "\033[f", "\033[r", /* 66 f8 */
|
|
FUNC, "\033[U", "\033[g", "\033[s", /* 67 f9 */
|
|
FUNC, "\033[V", "\033[h", "\033[t", /* 68 f10 */
|
|
NUM, "", "", "", /* 69 num lock */
|
|
SCROLL, "", "", "", /* 70 scroll lock */
|
|
KP, "7", "\033[H", "7", /* 71 kp 7 */
|
|
KP, "8", "\033[A", "8", /* 72 kp 8 */
|
|
KP, "9", "\033[I", "9", /* 73 kp 9 */
|
|
KP, "-", "-", "-", /* 74 kp - */
|
|
KP, "4", "\033[D", "4", /* 75 kp 4 */
|
|
KP, "5", "\033[E", "5", /* 76 kp 5 */
|
|
KP, "6", "\033[C", "6", /* 77 kp 6 */
|
|
KP, "+", "+", "+", /* 78 kp + */
|
|
KP, "1", "\033[F", "1", /* 79 kp 1 */
|
|
KP, "2", "\033[B", "2", /* 80 kp 2 */
|
|
KP, "3", "\033[G", "3", /* 81 kp 3 */
|
|
KP, "0", "\033[L", "0", /* 82 kp 0 */
|
|
KP, ".", "\177", ".", /* 83 kp . */
|
|
NONE, "", "", "", /* 84 0 */
|
|
NONE, "100", "", "", /* 85 0 */
|
|
NONE, "101", "", "", /* 86 0 */
|
|
FUNC, "\033[W", "\033[i", "\033[u", /* 87 f11 */
|
|
FUNC, "\033[X", "\033[j", "\033[v", /* 88 f12 */
|
|
NONE, "102", "", "", /* 89 0 */
|
|
NONE, "103", "", "", /* 90 0 */
|
|
NONE, "", "", "", /* 91 0 */
|
|
NONE, "", "", "", /* 92 0 */
|
|
NONE, "", "", "", /* 93 0 */
|
|
NONE, "", "", "", /* 94 0 */
|
|
NONE, "", "", "", /* 95 0 */
|
|
NONE, "", "", "", /* 96 0 */
|
|
NONE, "", "", "", /* 97 0 */
|
|
NONE, "", "", "", /* 98 0 */
|
|
NONE, "", "", "", /* 99 0 */
|
|
NONE, "", "", "", /* 100 */
|
|
NONE, "", "", "", /* 101 */
|
|
NONE, "", "", "", /* 102 */
|
|
NONE, "", "", "", /* 103 */
|
|
NONE, "", "", "", /* 104 */
|
|
NONE, "", "", "", /* 105 */
|
|
NONE, "", "", "", /* 106 */
|
|
NONE, "", "", "", /* 107 */
|
|
NONE, "", "", "", /* 108 */
|
|
NONE, "", "", "", /* 109 */
|
|
NONE, "", "", "", /* 110 */
|
|
NONE, "", "", "", /* 111 */
|
|
NONE, "", "", "", /* 112 */
|
|
NONE, "", "", "", /* 113 */
|
|
NONE, "", "", "", /* 114 */
|
|
NONE, "", "", "", /* 115 */
|
|
NONE, "", "", "", /* 116 */
|
|
NONE, "", "", "", /* 117 */
|
|
NONE, "", "", "", /* 118 */
|
|
NONE, "", "", "", /* 119 */
|
|
NONE, "", "", "", /* 120 */
|
|
NONE, "", "", "", /* 121 */
|
|
NONE, "", "", "", /* 122 */
|
|
NONE, "", "", "", /* 123 */
|
|
NONE, "", "", "", /* 124 */
|
|
NONE, "", "", "", /* 125 */
|
|
NONE, "", "", "", /* 126 */
|
|
NONE, "", "", "", /* 127 */
|
|
};
|
|
|
|
|
|
|
|
void
|
|
update_led(void)
|
|
{
|
|
#if 0
|
|
int response;
|
|
#endif
|
|
|
|
if (kbd_cmd(KBC_MODEIND) != 0)
|
|
printf("Timeout for keyboard LED command\n");
|
|
else if (kbd_cmd(scroll | (num << 1) | (caps << 2)) != 0)
|
|
printf("Timeout for keyboard LED data\n");
|
|
#if 0
|
|
else if ((response = kbd_response()) < 0)
|
|
printf("Timeout for keyboard LED ack\n");
|
|
else if (response != KBR_ACK)
|
|
printf("Unexpected keyboard LED ack %d\n", response);
|
|
#else
|
|
/*
|
|
* Skip waiting for and checking the response. The waiting
|
|
* would be too long (about 3 msec) and the checking might eat
|
|
* fresh keystrokes. The waiting should be done using timeout()
|
|
* and the checking should be done in the interrupt handler.
|
|
*/
|
|
#endif
|
|
}
|
|
|
|
|
|
static void
|
|
set_typematic(u_char data)
|
|
{
|
|
if (kbd_cmd(KBC_TYPEMATIC) != 0)
|
|
printf("Timeout for keyboard typematic command\n");
|
|
else if (kbd_cmd(data) != 0)
|
|
printf("Timeout for keyboard typematic data\n");
|
|
#if 0
|
|
else if ((response = kbd_response()) < 0)
|
|
printf("Timeout for keyboard typematic ack\n");
|
|
else if (response != KBR_ACK)
|
|
printf("Unexpected keyboard typematic ack %d\n", response);
|
|
#else
|
|
/*
|
|
* Skip waiting for and checking the response. The waiting
|
|
* would be too long (about 3 msec) and the checking might eat
|
|
* fresh keystrokes. The waiting should be done using timeout()
|
|
* and the checking should be done in the interrupt handler.
|
|
*/
|
|
#endif
|
|
}
|
|
|
|
|
|
/*
|
|
* sgetc(noblock): get characters from the keyboard. If
|
|
* noblock == 0 wait until a key is gotten. Otherwise return a
|
|
* if no characters are present 0.
|
|
*/
|
|
char *sgetc(noblock)
|
|
{
|
|
u_char dt;
|
|
unsigned key;
|
|
static u_char extended = 0, lock_down = 0;
|
|
static char capchar[2];
|
|
|
|
/*
|
|
* First see if there is something in the keyboard port
|
|
*/
|
|
loop:
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
if (inb(KBSTATP) & KBS_DIB) {
|
|
dt = inb(KBDATAP);
|
|
if (pc_xmode > 0) {
|
|
#if defined(DDB) && defined(XSERVER_DDB)
|
|
/* F12 enters the debugger while in X mode */
|
|
if (dt == 88)
|
|
Debugger();
|
|
#endif
|
|
capchar[0] = dt;
|
|
/*
|
|
* Check for locking keys
|
|
*/
|
|
switch (scan_codes[dt & 0x7f].type)
|
|
{
|
|
case NUM:
|
|
if (dt & 0x80) {
|
|
lock_down &= ~NUM;
|
|
break;
|
|
}
|
|
if (lock_down & NUM)
|
|
goto loop;
|
|
lock_down |= NUM;
|
|
num ^= 1;
|
|
update_led();
|
|
break;
|
|
case CAPS:
|
|
if (dt & 0x80) {
|
|
lock_down &= ~CAPS;
|
|
break;
|
|
}
|
|
if (lock_down & CAPS)
|
|
goto loop;
|
|
lock_down |= CAPS;
|
|
caps ^= 1;
|
|
update_led();
|
|
break;
|
|
case SCROLL:
|
|
if (dt & 0x80) {
|
|
lock_down &= ~SCROLL;
|
|
break;
|
|
}
|
|
if (lock_down & SCROLL)
|
|
goto loop;
|
|
lock_down |= SCROLL;
|
|
scroll ^= 1;
|
|
if (!scroll)
|
|
wakeup((caddr_t)&scroll);
|
|
update_led();
|
|
break;
|
|
}
|
|
return (&capchar[0]);
|
|
}
|
|
}
|
|
#else /* !XSERVER*/
|
|
if (inb(KBSTATP) & KBS_DIB)
|
|
dt = inb(KBDATAP);
|
|
#endif /* !XSERVER*/
|
|
else
|
|
{
|
|
if (noblock)
|
|
return 0;
|
|
else
|
|
goto loop;
|
|
}
|
|
|
|
if (dt == 0xe0)
|
|
{
|
|
extended = 1;
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
goto loop;
|
|
#else /* !XSERVER*/
|
|
if (noblock)
|
|
return 0;
|
|
else
|
|
goto loop;
|
|
#endif /* !XSERVER*/
|
|
}
|
|
|
|
#ifdef DDB
|
|
/*
|
|
* Check for cntl-alt-esc
|
|
*/
|
|
if ((dt == 1) && ctrl_down && alt_down) {
|
|
Debugger();
|
|
dt |= 0x80; /* discard esc (ddb discarded ctrl-alt) */
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
* Check for make/break
|
|
*/
|
|
if (dt & 0x80)
|
|
{
|
|
/*
|
|
* break
|
|
*/
|
|
dt = dt & 0x7f;
|
|
switch (scan_codes[dt].type)
|
|
{
|
|
case NUM:
|
|
lock_down &= ~NUM;
|
|
break;
|
|
case CAPS:
|
|
lock_down &= ~CAPS;
|
|
break;
|
|
case SCROLL:
|
|
lock_down &= ~SCROLL;
|
|
break;
|
|
case SHIFT:
|
|
shift_down = 0;
|
|
break;
|
|
case ALT:
|
|
alt_down = 0;
|
|
break;
|
|
case CTL:
|
|
ctrl_down = 0;
|
|
break;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/*
|
|
* Make
|
|
*/
|
|
dt = dt & 0x7f;
|
|
switch (scan_codes[dt].type)
|
|
{
|
|
/*
|
|
* Locking keys
|
|
*/
|
|
case NUM:
|
|
if (lock_down & NUM)
|
|
break;
|
|
lock_down |= NUM;
|
|
num ^= 1;
|
|
update_led();
|
|
break;
|
|
case CAPS:
|
|
if (lock_down & CAPS)
|
|
break;
|
|
lock_down |= CAPS;
|
|
caps ^= 1;
|
|
update_led();
|
|
break;
|
|
case SCROLL:
|
|
if (lock_down & SCROLL)
|
|
break;
|
|
lock_down |= SCROLL;
|
|
scroll ^= 1;
|
|
if (!scroll)
|
|
wakeup((caddr_t)&scroll);
|
|
update_led();
|
|
break;
|
|
|
|
/*
|
|
* Non-locking keys
|
|
*/
|
|
case SHIFT:
|
|
shift_down = 1;
|
|
break;
|
|
case ALT:
|
|
alt_down = 0x80;
|
|
break;
|
|
case CTL:
|
|
ctrl_down = 1;
|
|
break;
|
|
case ASCII:
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
/*
|
|
* 18 Sep 92 Terry Lambert I find that this behaviour is questionable --
|
|
* I believe that this should be conditional on
|
|
* the value of pc_xmode rather than always
|
|
* done. In particular, "case NONE" seems to
|
|
* not cause a scancode return. This may
|
|
* invalidate alt-"=" and alt-"-" as well as the
|
|
* F11 and F12 keys, and some keys on lap-tops,
|
|
* Especially Toshibal T1100 and Epson Equity 1
|
|
* and Equity 1+ when not in pc_xmode.
|
|
*/
|
|
/* control has highest priority */
|
|
if (ctrl_down)
|
|
capchar[0] = scan_codes[dt].ctrl[0];
|
|
else if (shift_down)
|
|
capchar[0] = scan_codes[dt].shift[0];
|
|
else
|
|
capchar[0] = scan_codes[dt].unshift[0];
|
|
|
|
if (caps && (capchar[0] >= 'a'
|
|
&& capchar[0] <= 'z')) {
|
|
capchar[0] = capchar[0] - ('a' - 'A');
|
|
}
|
|
capchar[0] |= alt_down;
|
|
extended = 0;
|
|
return(&capchar[0]);
|
|
#else /* !XSERVER*/
|
|
case NONE:
|
|
#endif /* !XSERVER*/
|
|
case FUNC:
|
|
if (shift_down)
|
|
more_chars = scan_codes[dt].shift;
|
|
else if (ctrl_down)
|
|
more_chars = scan_codes[dt].ctrl;
|
|
else
|
|
more_chars = scan_codes[dt].unshift;
|
|
#ifndef XSERVER /* 15 Aug 92*/
|
|
/* XXX */
|
|
if (caps && more_chars[1] == 0
|
|
&& (more_chars[0] >= 'a'
|
|
&& more_chars[0] <= 'z')) {
|
|
capchar[0] = *more_chars - ('a' - 'A');
|
|
more_chars = capchar;
|
|
}
|
|
#endif /* !XSERVER*/
|
|
extended = 0;
|
|
return(more_chars);
|
|
case KP:
|
|
if (shift_down || ctrl_down || !num || extended)
|
|
more_chars = scan_codes[dt].shift;
|
|
else
|
|
more_chars = scan_codes[dt].unshift;
|
|
extended = 0;
|
|
return(more_chars);
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
case NONE:
|
|
break;
|
|
#endif /* XSERVER*/
|
|
}
|
|
}
|
|
extended = 0;
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
goto loop;
|
|
#else /* !XSERVER*/
|
|
if (noblock)
|
|
return 0;
|
|
else
|
|
goto loop;
|
|
#endif /* !XSERVER*/
|
|
}
|
|
|
|
/* special characters */
|
|
#define bs 8
|
|
#define lf 10
|
|
#define cr 13
|
|
#define cntlc 3
|
|
#define del 0177
|
|
#define cntld 4
|
|
|
|
getchar()
|
|
{
|
|
char thechar;
|
|
register delay;
|
|
int x;
|
|
|
|
pcconsoftc.cs_flags |= CSF_POLLING;
|
|
x = splhigh();
|
|
sputc('>', 1);
|
|
/*while (1) {*/
|
|
thechar = *(sgetc(0));
|
|
pcconsoftc.cs_flags &= ~CSF_POLLING;
|
|
splx(x);
|
|
switch (thechar) {
|
|
default: if (thechar >= ' ')
|
|
sputc(thechar, 1);
|
|
return(thechar);
|
|
case cr:
|
|
case lf: sputc('\r', 1);
|
|
sputc('\n', 1);
|
|
return(lf);
|
|
case bs:
|
|
case del:
|
|
sputc('\b', 1);
|
|
sputc(' ', 1);
|
|
sputc('\b', 1);
|
|
return(thechar);
|
|
case cntlc:
|
|
sputc('^', 1) ; sputc('C', 1) ; sputc('\r', 1) ; sputc('\n', 1) ;
|
|
cpu_reset();
|
|
case cntld:
|
|
sputc('^', 1) ; sputc('D', 1) ; sputc('\r', 1) ; sputc('\n', 1) ;
|
|
return(0);
|
|
}
|
|
/*}*/
|
|
}
|
|
|
|
#include <machine/stdarg.h>
|
|
static nrow;
|
|
|
|
#define DPAUSE 1
|
|
void
|
|
#ifdef __STDC__
|
|
dprintf(unsigned flgs, const char *fmt, ...)
|
|
#else
|
|
dprintf(flgs, fmt /*, va_alist */)
|
|
char *fmt;
|
|
unsigned flgs;
|
|
#endif
|
|
{ extern unsigned __debug;
|
|
va_list ap;
|
|
|
|
if((flgs&__debug) > DPAUSE) {
|
|
__color = ffs(flgs&__debug)+1;
|
|
va_start(ap,fmt);
|
|
kprintf(fmt, 1, (struct tty *)0, ap);
|
|
va_end(ap);
|
|
if (flgs&DPAUSE || nrow%24 == 23) {
|
|
int x;
|
|
x = splhigh();
|
|
if (nrow%24 == 23) nrow = 0;
|
|
(void)sgetc(0);
|
|
splx(x);
|
|
}
|
|
}
|
|
__color = 0;
|
|
}
|
|
|
|
int pcmmap(dev_t dev, int offset, int nprot)
|
|
{
|
|
if (offset > 0x20000)
|
|
return -1;
|
|
return i386_btop((0xa0000 + offset));
|
|
}
|
|
|
|
#ifdef XSERVER /* 15 Aug 92*/
|
|
#include <machine/psl.h>
|
|
#include <machine/frame.h>
|
|
|
|
pc_xmode_on ()
|
|
{
|
|
struct trapframe *fp;
|
|
|
|
if (pc_xmode)
|
|
return;
|
|
pc_xmode = 1;
|
|
|
|
fp = (struct trapframe *)curproc->p_regs;
|
|
fp->tf_eflags |= PSL_IOPL;
|
|
}
|
|
|
|
pc_xmode_off ()
|
|
{
|
|
struct trapframe *fp;
|
|
|
|
if (pc_xmode == 0)
|
|
return;
|
|
pc_xmode = 0;
|
|
|
|
cursor(0);
|
|
|
|
fp = (struct trapframe *)curproc->p_regs;
|
|
fp->tf_eflags &= ~PSL_IOPL;
|
|
}
|
|
#endif /* XSERVER*/
|
|
|
|
#endif /* NPC > 0 */
|