![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vtkb_d.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / b / kernel / io.386|
Return to vtkb_d.c CVS log | Up to [MW Coherent from dump] / coherent / b / kernel / io.386 |
coherent
/*
* Keyboard/display driver for German keyboard.
* Coherent, IBM PC/XT/AT (286 and 386).
*/
#include <sys/coherent.h>
#ifdef _I386
#include <sys/reg.h>
#else
#include <sys/i8086.h>
#endif
#include <sys/con.h>
#include <sys/devices.h>
#include <errno.h>
#include <sys/stat.h>
#include <sys/tty.h>
#include <signal.h>
#include <sys/sched.h>
#include <sys/silo.h>
#include <sys/kb.h>
#include <sys/vt.h>
#define ISVEC 1 /* Keyboard interrupt vector */
#define DEBUG 0
#define SPC 0376 /* Special encoding */
#define XXX 0377 /* Non-character */
#define KBDATA 0x60 /* Keyboard data */
#define KBCTRL 0x61 /* Keyboard control */
#define KBFLAG 0x80 /* Keyboard reset flag */
#define LEDCMD 0xED /* status indicator command */
#define KBACK 0xFA /* status indicator acknowledge */
#define EXTENDED0 0xE0 /* extended key seq initiator */
#define EXTENDED1 0xE1 /* extended key seq initiator */
#define KEYUP 0x80 /* Key up change */
#define KEYSC 0x7F /* Key scan code mask */
#define LSHIFT 0x2A-1 /* Left shift key */
#define LSHIFTA 0x2B-1 /* Alternate left-shift key */
#define RSHIFT 0x36-1 /* Right shift key */
#define CTRLkb 0x1D-1 /* Control key */
/*-- #define CAPLOCK 0x1D-1 --*/ /* Control key */
#define ALTkb 0x38-1 /* Alt key or ALT GR */
#define CAPLOCK 0x3A-1 /* Caps lock key */
/*-- #define CTRL 0x3A-1 --*/ /* Caps lock key */
#define NUMLOCK 0x45-1 /* Numeric lock key */
#define DELETE 0x53-1 /* Del, as in CTRL-ALT-DEL */
#define BACKSP 0x0E-1 /* Back space */
#define SCRLOCK 0x46-1 /* Scroll lock */
/* Shift flags */
#define SRS 0x01 /* Right shift key on */
#define SLS 0x02 /* Left shift key on */
#define CTS 0x04 /* Ctrl key on */
#define ALS 0x08 /* Alt key on */
#define CPLS 0x10 /* Caps lock on */
#define NMLS 0x20 /* Num lock on */
#define AKPS 0x40 /* Alternate keypad shift */
#define SHFT 0x80 /* Shift key flag */
#define AGS 0x100 /* Alt Graphics on */
/* Function key information */
#define NFKEY 20 /* Number of settable functions */
#define NFCHAR 150 /* Number of characters settable */
#define NFBUF (NFKEY*2+NFCHAR+1) /* Size of buffer */
/*
* Functions.
*/
int isrint();
int istime();
void isbatch();
int mmstart();
int isopen();
int isclose();
int isread();
int mmwrite();
int isioctl();
void mmwatch();
int isload();
int isuload();
int ispoll();
int nulldev();
int nonedev();
/*
* Configuration table.
*/
CON iscon ={
DFCHR|DFPOL, /* Flags */
KB_MAJOR, /* Major index */
isopen, /* Open */
isclose, /* Close */
nulldev, /* Block */
isread, /* Read */
mmwrite, /* Write */
isioctl, /* Ioctl */
nulldev, /* Powerfail */
mmwatch, /* Timeout */
isload, /* Load */
isuload, /* Unload */
ispoll /* Poll */
};
/*
* Flag indicating turbo machine.
*/
int isturbo = 0;
/*
==============================================================================
==============================================================================
*/
/* constants for vtdata[] */
#define VT_VGAPORT 0x3D4
#define VT_MONOPORT 0x3B4
#ifdef _I386
#define VT_MONOBASE SEG_VIDEOa
#define VT_VGABASE SEG_VIDEOb
#else
#define VT_MONOBASE 0xB000
#define VT_VGABASE 0xB800
#endif
/*
Patchable table entrys,
we go indirect in order to produce a label which can be addressed
*/
HWentry VTVGA = { 4, 0, VT_VGAPORT, { 0, VT_VGABASE }, { 25, 80 } };
HWentry VTMONO = { 4, 0, VT_MONOPORT, { 0, VT_MONOBASE }, { 25, 80 } };
HWentry *vtHWtable[] = {
VTVGA, /* VGA followed by MONO is compatible to DOS */
VTMONO,
0 /* MUST STAY AS LAST ELEMENT !!! */
};
extern int mminit();
static VTDATA const_vtdata = {
mminit, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 23, 24, 0, 0, 0, 23, 0, 0, 1
};
/* later this should be dynamic */
VTDATA *vtconsole, **vtdata;
int vtcount, vtmax;
extern int vtactive;
int vt_verbose = { 0 };
int vt_opened = { 0 };
/* Terminal structure. */
TTY **vttty;
/*
==============================================================================
==============================================================================
*/
static silo_t in_silo;
/*
* State variables.
*/
int islock; /* Keyboard locked flag */
int isbusy; /* Raw input conversion busy */
static unsigned shift; /* Overall shift state */
static char scrollkb; /* Scroll lock state */
static char lshiftkb = LSHIFT; /* Left shift alternate state */
static char isfbuf[NFBUF]; /* Function key values */
static char *isfval[NFKEY]; /* Function key string pointers */
static int ledcmd; /* LED update command flag */
static int extended; /* extended key scan count */
static char extmode; /* use extended mode for this key */
static char ext0seen; /* 0xE0 prefix seen */
static char fk_loaded; /* true == funcion keys resident */
/*
* Tables for converting key code to ASCII.
* lmaptab specifies unshifted conversion,
* umaptab specifies shifted conversion,
* smaptab specifies the shift states which are active.
* An entry of XXX says the key is dead.
* An entry of SPC requires further processing.
*
* Key codes:
* ESC .. <- == 1 .. 14
* -> .. \n == 15 .. 28
* CTRL .. ` == 29 .. 41
* ^Shift .. PrtSc == 42 .. 55
* ALT .. CapsLock == 56 .. 58
* F1 .. F10 == 59 .. 68
* NumLock .. Del == 69 .. 83
* ISO, F11, F12 == 86 .. 88
*/
unsigned char agmaptab[] ={ /* Alt Gr */
XXX, XXX,'\375','\374',XXX, XXX, XXX, /* 1 - 7 */
'{', '[', ']', '}', '\\', XXX, XXX, XXX, /* 8 - 15 */
'@', XXX, XXX, XXX, XXX, XXX, XXX, XXX, /* 16 - 23 */
XXX, XXX, XXX, '~', XXX, XXX, XXX, XXX, /* 24 - 31 */
XXX, XXX, XXX, XXX, XXX, XXX, XXX, XXX, /* 32 - 39 */
XXX, XXX, XXX, XXX, XXX, XXX, XXX, XXX, /* 40 - 47 */
XXX, XXX,'\346', XXX, XXX, XXX, XXX, XXX, /* 48 - 55 */
XXX, XXX, XXX, XXX, XXX, XXX, XXX, XXX, /* 56 - 63 */
XXX, XXX, XXX, XXX, XXX, XXX, XXX, XXX, /* 64 - 71 */
XXX, XXX, XXX, XXX, XXX, XXX, XXX, XXX, /* 72 - 79 */
XXX, XXX, XXX, XXX, XXX, XXX, '|', XXX, /* 80 - 87 */
XXX /* 88 */
};
static unsigned char lmaptab[] ={
'\33', '1', '2', '3', '4', '5', '6', /* 1 - 7 */
'7', '8', '9', '0','\341','\'', '\b', '\t', /* 8 - 15 */
'q', 'w', 'e', 'r', 't', 'z', 'u', 'i', /* 16 - 23 */
'o', 'p','\201', '+', '\r', XXX, 'a', 's', /* 24 - 31 */
'd', 'f', 'g', 'h', 'j', 'k', 'l','\224', /* 32 - 39 */
'\204','^', XXX, '#', 'y', 'x', 'c', 'v', /* 40 - 47 */
'b', 'n', 'm', ',', '.', SPC, XXX, SPC, /* 48 - 55 */
XXX, ' ', XXX, SPC, SPC, SPC, SPC, SPC, /* 56 - 63 */
SPC, SPC, SPC, SPC, SPC, SPC, SPC, SPC, /* 64 - 71 */
SPC, SPC, '-', SPC, SPC, SPC, '+', SPC, /* 72 - 79 */
SPC, SPC, SPC, SPC, XXX, XXX, '<', XXX, /* 80 - 87 */
XXX /* 88 */
};
static unsigned char umaptab[] ={
'\33', '!', '"','\025', '$', '%', '&', /* 1 - 7 */
'/', '(', ')', '=', '?', '`', '\b', SPC, /* 8 - 15 */
'Q', 'W', 'E', 'R', 'T', 'Z', 'U', 'I', /* 16 - 23 */
'O', 'P','\232', '*', '\r', XXX, 'A', 'S', /* 24 - 31 */
'D', 'F', 'G', 'H', 'J', 'K', 'L','\231', /* 32 - 39 */
'\216','\370',XXX,'\'', 'Y', 'X', 'C', 'V', /* 40 - 47 */
'B', 'N', 'M', ';', ':', SPC, XXX, SPC, /* 48 - 55 */
XXX, ' ', XXX, SPC, SPC, SPC, SPC, SPC, /* 56 - 63 */
SPC, SPC, SPC, SPC, SPC, SPC, SPC, SPC, /* 64 - 71 */
SPC, SPC, '-', SPC, SPC, SPC, '+', SPC, /* 72 - 79 */
SPC, SPC, SPC, SPC, XXX, XXX, '>', XXX, /* 80 - 87 */
XXX /* 88 */
};
#define SS0 0 /* No shift */
#define SS1 (SLS|SRS|CTS) /* Shift, Ctrl */
#define SES (SLS|SRS) /* Shift */
#define LET (SLS|SRS|CPLS|CTS) /* Shift, Caps, Ctrl */
#define KEY (SLS|SRS|NMLS|AKPS) /* Shift, Num, Alt keypad */
static unsigned char smaptab[] ={
SS0, SES, SS1, SES, SES, SES, SS1, /* 1 - 7 */
SES, SES, SES, SES, SS1, SES, CTS, SES, /* 8 - 15 */
LET, LET, LET, LET, LET, LET, LET, LET, /* 16 - 23 */
LET, LET, SS1, SS1, CTS, SHFT, LET, LET, /* 24 - 31 */
LET, LET, LET, LET, LET, LET, LET, SES, /* 32 - 39 */
SES, SS1, SHFT, SS1, LET, LET, LET, LET, /* 40 - 47 */
LET, LET, LET, SES, SES, SES, SHFT, SES, /* 48 - 55 */
SHFT, SS1, SHFT, SS0, SS0, SS0, SS0, SS0, /* 56 - 63 */
SS0, SS0, SS0, SS0, SS0, SHFT, KEY, KEY, /* 64 - 71 */
KEY, KEY, SS0, KEY, KEY, KEY, SS0, KEY, /* 72 - 79 */
KEY, KEY, KEY, KEY, SS0, SS0, SES, SS0, /* 80 - 87 */
SS0
};
/*
* Load entry point.
* Do reset the keyboard because it gets terribly munged
* if you type during the boot.
*/
isload()
{
register short i; /* was: int i */
register HWentry **hw;
register VTDATA *vp;
/*
* Reset keyboard if NOT an XT turbo.
*/
if ( ! isturbo ) {
outb(KBCTRL, 0x0C); /* Clock low */
for (i = 10582; --i >= 0; ); /* For 20ms */
outb(KBCTRL, 0xCC); /* Clock high */
for (i = 0; --i != 0; )
;
i = inb(KBDATA);
outb(KBCTRL, 0xCC); /* Clear keyboard */
outb(KBCTRL, 0x4D); /* Enable keyboard */
}
PRINTV("vtload:\n");
fk_loaded = 0;
/* figure out what our current max is */
for( vtmax = 0, hw = vtHWtable; *hw; ++hw ) {
vtmax += (*hw)->count;
(*hw)->found = 0; /* assume non-exist */
}
PRINTV( "vtload: %d screens possible\n", vtmax );
vtdata = (VTDATA **) kalloc( vtmax * sizeof( *vtdata ) );
if( vtdata == NULL ) {
printf( "vtload: unable to obtain vtdata[%d]\n", vtmax );
u.u_error = -1;
return;
}
PRINTV( "vtload: obtained vtdata[%d] @%x\n", vtmax, vtdata );
vttty = (TTY **) kalloc( vtmax * sizeof( *vttty ) );
if( vttty == NULL ) {
printf( "vtload: unable to obtain vttty[%d]\n", vtmax );
u.u_error = -1;
return;
}
PRINTV( "vtload: obtained vttty[%d] @%x\n", vtmax, vttty );
/* determine which video adaptors are present */
for( vtcount = 0, hw = vtHWtable; *hw; ++hw ) {
/* remember our logical start */
(*hw)->start = vtcount;
PRINTV( ", start %d\n", vtcount );
/* allocate the necessary memory */
for ( i = 0; i < (*hw)->count; ++i ) {
vp = vtdata[vtcount] = kalloc( sizeof(VTDATA) );
PRINTV( " vtdata[%d] = @%x\n", vtcount, vp );
if( vp == NULL || !VTttyinit(vtcount) ) {
printf("not enough memory for VTDATA\n" );
break;
}
/* fill in appropriately */
*vp = const_vtdata;
vp->vmm_port = (*hw)->port;
vp->vmm_vseg = (*hw)->vidmemory.seg;
vp->vmm_voff = (*hw)->vidmemory.off;
vp->vt_ind = vtcount;
vtdatainit(vp);
if (i == 0 ) {
vp->vmm_visible = VNKB_TRUE;
vp->vmm_seg = vp->vmm_vseg;
vp->vmm_off = vp->vmm_voff;
updscreen(vtcount);
}
(*hw)->found++;
vtcount++;
}
}
/*
* initialize vtconsole
*/
vtconsole = vtdata[vtactive = 0];
vtconsole->vmm_invis = 0; /* vtconsole cursor visible */
/*
* Seize keyboard interrupt.
*/
#ifdef _I386
setivec(ISVEC, isrint);
#else
#if VT_MAJOR == KB_MAJOR
setivec(1, isrint);
#else
/*
* Map table and vector to us
*/
i = sphi();
PRINTV( "VTload: unload old vector\n" );
kcall( Kclrivec, 1 );
setivec(1, isrint);
spl( i );
#endif
#endif /* _I386 */
/*
* Enable mmwatch() invocation every second.
*/
drvl[VT_MAJOR].d_time = 1;
/*
* Initialize video display.
*/
for ( i = 0; i < vtcount; ++i )
mmstart( vttty[i] );
}
/*
* Unload entry point.
*/
isuload()
{
register int i;
register level = sphi();
clrivec(ISVEC);
#ifndef _I386
#if VT_MAJOR != KB_MAJOR
kcall( Ksetivec, ISVEC, &Kisrint );
#endif
#endif
spl( level );
/* Restore pointers to original state. */
vtconsole = vtdata[0];
vtconsole->vmm_invis = 0;
vtconsole->vmm_visible = VNKB_TRUE;
if( vt_opened )
printf( "VTclose with %d open screens\n", vt_opened );
#ifndef _I386
for( i = 0; i < vtcount; ++i ) {
PRINTV( "VTuload: free far %x:%x, tty %x\n",
vttty[i]->t_buffer->s_faddr, vttty[i] );
sfree( vttty[i]->t_buffer );
kfree( vttty[i] );
sfree( vtdata[i].vt_buffer );
}
#endif
}
/*
* Default function key strings (terminated by -1 [\377])
*/
static char *deffuncs[] = {
"\33[1x\377", /* F1 */
"\33[2x\377", /* F2 */
"\33[3x\377", /* F3 */
"\33[4x\377", /* F4 */
"\33[5x\377", /* F5 */
"\33[6x\377", /* F6 */
"\33[7x\377", /* F7 */
"\33[8x\377", /* F8 */
"\33[9x\377", /* F9 */
"\33[0x\377", /* F10 - historical value */
"\33[1y\377", /* F11 */
"\33[2y\377", /* F12 */
"\33[3y\377", /* F13 */
"\33[4y\377", /* F14 */
"\33[5y\377", /* F15 */
"\33[6y\377", /* F16 */
"\33[7y\377", /* F17 */
"\33[8y\377", /* F18 */
"\33[9y\377", /* F19 */
"\33[0y\377" /* F20 */
};
/*
* Open routine.
*/
isopen(dev, mode)
dev_t dev;
unsigned int mode;
{
register int s;
register TTY *tp;
int index = vtindex(dev);
PRINTV("isopen: %x\n", dev);
if (index < 0 || index >= vtcount) {
u.u_error = ENXIO;
return;
}
tp = vttty[index];
if ((tp->t_flags&T_EXCL) != 0 && !super()) {
u.u_error = ENODEV;
return;
}
ttsetgrp(tp, dev, mode);
s = sphi();
if (tp->t_open++ == 0) {
initkeys(); /* init function keys */
tp->t_flags = T_CARR; /* indicate "carrier" */
ttopen(tp);
}
spl(s);
#if 0
updleds(); /* update keyboard status LEDS */
#endif
}
/* Init function keys */
initkeys()
{ register int i;
register char *cp1, *cp2;
for (i=0; i<NFKEY; i++)
isfval[i] = 0; /* clear function key buffer */
cp2 = isfbuf; /* pointer to key buffer */
for (i=0; i<NFKEY; i++)
{ isfval[i] = cp2; /* save pointer to key string */
cp1 = deffuncs[i]; /* get init string pointer */
while ((*cp2++ = *cp1++) != -1) /* copy key data */
if (cp2 >= &isfbuf[NFBUF-3]) /* overflow? */
return;
}
}
void isvtswitch(); /* deferred virtual terminal switch */
/*
* Close a tty.
*/
isclose(dev)
{
register int s;
int index = vtindex(dev);
register TTY *tp = vttty[index];
if (--tp->t_open == 0)
ttclose(tp);
}
/*
* Read routine.
*/
isread(dev, iop)
dev_t dev;
IO *iop;
{
int index = vtindex(dev);
register TTY *tp = vttty[index];
ttread(tp, iop, 0);
if (tp->t_oq.cq_cc)
mmtime(tp);
}
/*
* Ioctl routine.
*/
isioctl(dev, com, vec)
dev_t dev;
struct sgttyb *vec;
{
register int s;
switch(com) {
case TIOCSETF:
case TIOCGETF:
isfunction(com, (char *)vec);
goto ioc_done;;
case TIOCSHIFT: /* switch left-SHIFT and "\" */
lshiftkb = LSHIFTA; /* alternate values */
lmaptab[41] = '\\';
lmaptab[42] = XXX;
umaptab[41] = '|';
umaptab[42] = XXX;
smaptab[41] = SS1;
smaptab[42] = SHFT;
goto ioc_done;;
case TIOCCSHIFT: /* normal (default) left-SHIFT and "\" */
lshiftkb = LSHIFT; /* normal values */
lmaptab[41] = XXX;
lmaptab[42] = '\\';
umaptab[41] = XXX;
umaptab[42] = '|';
smaptab[41] = SHFT;
smaptab[42] = SS1;
goto ioc_done;;
}
s = sphi();
ttioctl(vttty[vtindex(dev)], com, vec);
spl(s);
ioc_done:
return;
}
/*
* Set and receive the function keys.
*/
isfunction(c, v)
int c;
char *v;
{
register char *cp;
register int i;
if (c == TIOCGETF) {
for (cp = isfbuf; cp < &isfbuf[NFBUF]; cp++)
putubd(v++, *cp);
} else {
for (i=0; i<NFKEY; i++) /* zap current settings */
isfval[i] = 0;
cp = isfbuf; /* pointer to key buffer */
for (i=0; i<NFKEY; i++) {
isfval[i] = cp; /* save pointer to key string */
while ((*cp++ = getubd(v++)) != -1) /* copy key data */
if (cp >= &isfbuf[NFBUF-3]) /* overflow? */
return;
}
}
}
/*
* Poll routine.
*/
ispoll( dev, ev, msec )
dev_t dev;
int ev;
int msec;
{
register TTY *tp = vttty[vtindex(dev)];
return ttpoll(tp, ev, msec);
}
/*
* Receive interrupt.
*/
isrint()
{
register int c;
register int s;
register int r;
int savests;
int update_leds = 0;
/*
* Schedule raw input handler if not already active.
*/
if ( isbusy == 0 ) {
isbusy = 1;
defer(isbatch, vttty[vtactive]);
}
/*
* Pull character from the data
* port. Pulse the KBFLAG in the control
* port to reset the data buffer.
*/
r = inb(KBDATA) & 0xFF;
c = inb(KBCTRL);
outb(KBCTRL, c|KBFLAG);
outb(KBCTRL, c);
#if KBDEBUG
printf("kbd: %d\n", r); /* print scan code/direction */
#endif
if (ledcmd) {
ledcmd = 0;
if (r == KBACK) { /* output to status LEDS */
c = scrollkb & 1;
if (shift & NMLS)
c |= 2;
if (shift & CPLS)
c |= 4;
outb(KBDATA, c);
}
return;
}
if (extended > 0) { /* if multi-character seq, */
--extended; /* ... ignore this char */
return;
}
switch (r) {
case EXTENDED0: /* 0xE0 prefix found */
ext0seen = 1;
return;
case EXTENDED1: /* ignore extended sequences */
extended = 5;
return;
case 0xFF: /* Overrun */
return;
}
if (ext0seen) {
ext0seen = 0;
extmode = 1;
} else
extmode = 0;
c = (r & KEYSC) - 1;
/*
* Check for reset.
*/
if ((r&KEYUP) == 0 && c == DELETE && (shift&(CTS|ALS)) == (CTS|ALS))
boot();
/*
* Track "shift" keys.
*/
s = smaptab[c];
if (s&SHFT) {
if (r&KEYUP) { /* "shift" released */
if (c == RSHIFT)
shift &= ~SRS;
else if (c == lshiftkb)
shift &= ~SLS;
else if (c == CTRLkb)
shift &= ~CTS;
else if (c == ALTkb)
shift &= extmode ? ~AGS : ~ALS;
} else { /* "shift" pressed */
if (c == lshiftkb)
shift |= SLS;
else if (c == RSHIFT)
shift |= SRS;
else if (c == CTRLkb)
shift |= CTS;
else if (c == ALTkb)
shift |= extmode ? AGS : ALS;
else if (c == CAPLOCK) {
shift ^= CPLS; /* toggle cap lock */
updleds();
} else if (c == NUMLOCK) {
shift ^= NMLS; /* toggle num lock */
updleds();
}
}
return;
}
/*
* No other key up codes of interest.
*/
if (r&KEYUP)
return;
/*
* Map character, based on the
* current state of the shift, control, alt graphics,
* meta (ALT) and lock flags.
*/
if (shift & AGS) /* Alt Graphics ? */
c = agmaptab[c];
else if (shift & CTS) {
if (s == CTS) /* Map Ctrl (BS | NL) */
c = (c == BACKSP) ? 0x7F : 0x0A;
else if (s==SS1 || s==LET) /* Normal Ctrl map */
c = umaptab[c]&0x1F; /* Clear bits 5-6 */
else { if (s==KEY || s==SS0)
vtnumeric(r);
return; /* Ignore this char */
}
} else if (s &= shift) {
if (shift & SES) { /* if shift on */
if (s & (CPLS|NMLS)) /* if caps/num lock */
c = lmaptab[c]; /* use unshifted */
else
c = umaptab[c]; /* use shifted */
} else { /* if shift not on */
if (s & (CPLS|NMLS)) /* if caps/num lock */
c = umaptab[c]; /* use shifted */
else
c = lmaptab[c]; /* use unshifted */
}
} else
c = lmaptab[c]; /* use unshifted */
/*
* Act on character.
*/
if (c == XXX)
return; /* char to ignore */
if (c != SPC) { /* not special char? */
if (shift & ALS) /* ALT (meta bit)? */
c |= 0x80; /* set meta */
isin(c); /* send the char */
} else
update_leds += isspecial(r); /* special chars */
if (update_leds) {
savests = sphi();
outb(KBDATA, LEDCMD);
ledcmd = 1;
spl(savests);
}
}
/*
* Process numeric keypad for virtual terminals.
*/
vtnumeric(c)
int c;
{
switch (c) {
case 71: case 72: case 73: /* ctrl 7/8/9 (vt7, vt8, vt9) */
defer(isvtswitch, c + 16);
break;
case 74: /* ctrl - */
defer(isvtswitch, vtp);
break;
case 75: case 76: case 77: /* ctrl 4/5/6 (vt5, vt6, vt7) */
defer(isvtswitch, c + 10);
break;
case 78: /* ctrl + */
defer(isvtswitch, vtn);
break;
case 79: case 80: case 81: /* ctrl 1/2/3 */
defer(isvtswitch, c + 2);
break;
case 82: /* ctrl 0 (vt0) */
defer(isvtswitch, vt0);
break;
case 83: /* ctrl del (toggle) */
c = vtt;
defer(isvtswitch, vtt);
break;
}
}
/*
* Handle special input sequences.
* The character passed is the key number.
*
* The keypad is translated by the following table,
* the first entry is the normal sequence, the second the shifted,
* and the third the alternate keypad sequence.
*/
static char *keypad[][3] = {
{ "\33[H", "7", "\33?w" }, /* 71 */
{ "\33[A", "8", "\33?x" }, /* 72 */
{ "\33[V", "9", "\33?y" }, /* 73 */
{ "\33[D", "4", "\33?t" }, /* 75 */
{ "\0337", "5", "\33?u" }, /* 76 */
{ "\33[C", "6", "\33?v" }, /* 77 */
{ "\33[24H","1", "\33?q" }, /* 79 */
{ "\33[B", "2", "\33?r" }, /* 80 */
{ "\33[U", "3", "\33?s" }, /* 81 */
{ "\33[@", "0", "\33?p" }, /* 82 */
{ "\33[P", ".", "\33?n" } /* 83 */
};
isspecial(c)
int c;
{
register char *cp;
register int s;
int update_leds = 0;
cp = 0;
switch (c) {
case 15: /* cursor back tab */
cp = "\033[Z";
break;
case 53:
if (extmode)
cp = "/";
else if (shift & SES)
cp = "_";
else
cp = "-";
break;
case 55: /* ignore PrtScr */
if (!extmode)
cp = "*";
break;
case 59: case 60: case 61: case 62: case 63: /* Function keys */
case 64: case 65: case 66:
/* offset to function string */
/* Magic numbers 21 and 61 to mach vtnkb constants */
if ( shift & ALS )
defer(isvtswitch, c + 21);
else
cp = isfval[c-59];
break;
case 67: case 68:
/* offset to function string */
if ( shift & ALS )
defer(isvtswitch, c + 61);
else
cp = isfval[c-59];
break;
case 70: /* Scroll Lock -- stop/start output */
{
static char cbuf[2];
cp = &cbuf[0]; /* working buffer */
if (!(vttty[vtactive]->t_sgttyb.sg_flags
& RAWIN)) { /* not if in RAW mode */
++update_leds;
if (vttty[vtactive]->t_flags&T_STOP){/* output stopped? */
cbuf[0] = vttty[vtactive]->t_tchars.t_startc;
scrollkb = 0;
} else {
cbuf[0] = vttty[vtactive]->t_tchars.t_stopc;
scrollkb = 1;
}
}
break;
}
case 79: /* 1/End */
case 80: /* 2/DOWN */
case 81: /* 3/PgDn */
case 82: /* 0/Ins */
case 83: /* ./Del */
--c; /* adjust code */
case 75: /* 4/LEFT */
case 76: /* 5 */
case 77: /* 6/RIGHT */
--c; /* adjust code */
case 71: /* 7/Home/Clear */
case 72: /* 8/UP */
case 73: /* 9/PgUp */
s = 0; /* start off with normal keypad */
if (shift & NMLS) /* num lock? */
s = 1; /* set shift pad */
if (shift & SES) /* shift? */
s ^= 1; /* toggle shift pad */
if (shift & AKPS) /* alternate pad? */
s = 2; /* set alternate pad */
if (extmode) /* not from keypad? */
s = 0; /* force normal sequence */
cp = keypad[c-71][s]; /* get keypad value */
break;
}
if (cp) /* send string */
while ((*cp != 0) && (*cp != -1))
isin( *cp++ & 0377 );
return update_leds;
}
/**
*
* void
* ismmfunc( c ) -- process keyboard related output escape sequences
* char c;
*/
void
ismmfunc(c)
register int c;
{
switch (c) {
case 't': /* Enter numlock */
shift |= NMLS;
updleds(); /* update LED status */
break;
case 'u': /* Leave numlock */
shift &= ~NMLS;
updleds(); /* update LED status */
break;
case '=': /* Enter alternate keypad */
shift |= AKPS;
break;
case '>': /* Exit alternate keypad */
shift &= ~AKPS;
break;
case 'c': /* Reset terminal */
islock = 0;
shift = 0;
initkeys();
updleds(); /* update LED status */
break;
}
}
/**
*
* void
* isin( c ) -- append character to raw input silo
* char c;
*/
static
isin( c )
register int c;
{
int cache_it = 1;
TTY * tp = vttty[vtactive];
/*
* If using software incoming flow control, process and
* discard t_stopc and t_startc.
*/
if (ISIXON) {
#if _I386
if (ISSTART || (ISIXANY && ISXSTOP)) {
tp->t_flags &= ~(T_STOP | T_XSTOP);
ttstart(tp);
cache_it = 0;
} else if (ISSTOP) {
if ((tp->t_flags&T_STOP) == 0)
tp->t_flags |= (T_STOP | T_XSTOP);
cache_it = 0;
}
#else
if (ISSTOP) {
if ((tp->t_flags&T_STOP) == 0)
tp->t_flags |= T_STOP;
cache_it = 0;
}
if (ISSTART) {
tp->t_flags &= ~T_STOP;
ttstart(tp);
cache_it = 0;
}
#endif
}
/*
* If the tty is not open the character is
* just tossed away.
*/
if (vttty[vtactive]->t_open == 0)
return;
/*
* Cache received character.
*/
if (cache_it) {
in_silo.si_buf[ in_silo.si_ix ] = c;
if ( ++in_silo.si_ix >= sizeof(in_silo.si_buf) )
in_silo.si_ix = 0;
}
}
/**
*
* void
* isbatch() -- raw input conversion routine
*
* Action: Enable the video display.
* Canonize the raw input silo.
*
* Notes: isbatch() was scheduled as a deferred process by isrint().
*/
static void
isbatch( tp )
register TTY * tp;
{
register int c;
static int lastc;
VTDATA *vp = tp->t_ddp;
/*
* Ensure video display is enabled.
*/
if (vp->vmm_visible)
mm_von(vp);
isbusy = 0;
/*
* Process all cached characters.
*/
while ( in_silo.si_ix != in_silo.si_ox ) {
/*
* Get next cached char.
*/
c = in_silo.si_buf[ in_silo.si_ox ];
if ( in_silo.si_ox >= sizeof(in_silo.si_buf) - 1 )
in_silo.si_ox = 0;
else
in_silo.si_ox++;
if ( (islock == 0) || ISINTR || ISQUIT ) {
ttin( tp, c );
}
else if ( (c == 'b') && (lastc == '\033') ) {
islock = 0;
ttin( tp, lastc );
ttin( tp, c );
}
else if ( (c == 'c') && (lastc == '\033') ) {
ttin( tp, lastc );
ttin( tp, c );
}
else
putchar('\007');
lastc = c;
}
}
/*
* update the keyboard status LEDS
*/
updleds()
{
int s;
s = sphi();
outb(KBDATA, LEDCMD);
ledcmd = 1;
spl(s);
}
/*
* unlock the scroll in case an interrupt character is received
*/
kbunscroll()
{
scrollkb = 0;
updleds();
}
int
VTttyinit(i)
int i;
{
TTY *tp;
/*
* get pointer to TTY structure from kernal memory space
*/
if( (tp = vttty[i] = (TTY *)kalloc(sizeof (TTY))) == NULL )
return(0);
PRINTV( " vttty[%d]: @%x, ", i, tp );
#if FAR_TTY
/*
* get pointers to the buffers pointed to by the TTY structure
* from user memory space
*/
tp->t_buffer = salloc( (fsize_t)NCIB+2*SI_BUFSIZ, SFSYST|SFNSWP );
tp->t_ib = 0;
tp->t_rawin.si_buf = NCIB;
tp->t_rawout.si_buf = NCIB+SI_BUFSIZ;
#endif
tp->t_param = NULL;
tp->t_start = &mmstart;
#ifndef _I386
#if VT_MAJOR == KB_MAJOR
tp->t_cs_sel = 0;
#else
tp->t_cs_sel = cs_sel();
#endif
#endif
tp->t_ddp = vtdata[i];
PRINTV( "data @%lx\n", tp->t_ddp );
return(1);
}
vtdatainit(vp)
VTDATA *vp;
{
#ifndef _I386
VT_FARSEG vt_farseg;
#endif
/*
* vtdata init - vmm part
*/
vp->vmm_invis = -1; /* cursor invisible */
#ifdef _I386
vp->vt_buffer = kalloc( TEXTBLOCK );
vp->vmm_seg = vp->vmm_mseg = ds_sel();
vp->vmm_off = vp->vmm_moff = vp->vt_buffer;
#else
vp->vt_buffer = salloc ( (fsize_t)TEXTBLOCK, SFSYST|SFNSWP|SFHIGH );
vp->vmm_seg = vp->vmm_mseg = FP_SEG( vp->vt_buffer->vt_faddr );
vp->vmm_off = vp->vmm_moff = FP_OFF( vp->vt_buffer->vt_faddr );
#endif
PRINTV( "vt@%x init index %d,%d), seg %x, off %x\n",
vp, vp->vt_ind, vp->vmm_mseg, vp->vmm_moff );
/*
* vtdata init - vnkb part
*/
/* Make the first memory block active, if present */
vp->vnkb_lastc = 0;
vp->vnkb_fnkeys = 0;
vp->vnkb_funkeyp = 0;
vp->vnkb_fk_loaded = 0; /* no Fn keys yet */
}
/*
* Given device number, return index for vtdata[], vttty[], etc.
*
* Major number must be VT_MAJOR for CPU to get here.
*
* Minor Number Index Value
* ----- ------ ----- -----
* 0000 0000 vtactive ... device (2,0) is the active screen
* 0000 0001 0
* 0000 0010 1
* 0000 0011 2
* ....
* 0000 1111 14
*
* 0100 xxxx xxxx ... color devices only
* 0101 xxxx xxxx - (# of color devices found) ... monochrome only
*
* Return value is in range 0 to vtcount-1 for valid minor numbers,
* -1 for invalid minor numbers.
*/
int
vtindex( dev )
dev_t dev;
{
register int ret = -1;
if ( dev & VT_PHYSICAL ) {
int hw = ( dev >> 4 ) & 3;
int hw_index = dev & 0x0F;
if( hw_index < vtHWtable[hw]->found )
ret = vtHWtable[hw]->start + hw_index;
} else {
int lg_index = dev & 0x0F;
if (lg_index == 0)
ret = vtactive;
if (lg_index > 0 && lg_index <= vtcount )
ret = lg_index-1;
}
if (ret >= 0)
ret %= vtcount;
else
PRINTV( "vtindex: (%x) %d. invalid !\n", dev, ret );
return ret;
}
/*
*
* void
* isvtswitch() -- deferred virtual terminal switch
*
* Action: - save current shift key status
* - determine new active virtual terminal
* - deactivate shift key status of the current virtual terminal
* - deactivate current virtual terminal
* - activate shift key status of the new virtual terminal with
* the previously saved shift key status
* - activate new virtual terminal
*
* Notes: isvtswitch() was scheduled as a deferred process by
* process_key() which is a function called by isrint().
*/
void
isvtswitch(key_val)
{
register int new_index, i;
unsigned lockshift, nolockshift;
VTDATA *vp = vtdata[vtactive];
VTDATA *vp_old, *vp_new;
static int vtprevious;
lockshift = shift & (CPLS | NMLS);
nolockshift = shift & ~(CPLS | NMLS);
PRINTV( "F%d: %d", key_val, vtactive );
switch (key_val) {
case VTKEY_HOME:
new_index = 0;
break;
case VTKEY_NEXT:
new_index = vtactive;
for( i = 0; i < vtcount; ++i ) {
new_index = ++new_index % vtcount;
if( vttty[new_index]->t_open )
break;
}
break;
case VTKEY_PREV:
new_index = vtactive;
for( i = 0; i < vtcount; ++i ) {
new_index = (--new_index+vtcount) % vtcount;
if( vttty[new_index]->t_open )
break;
}
break;
case VTKEY_TOGL:
new_index = vtprevious;
break;
default:
new_index = vtindex(vtkey_to_dev(key_val));
if( new_index < 0) {
putchar( '\007' );
return;
}
}
T_CON(8, printf("%d->%d ", vtactive, new_index));
if( new_index == vtactive )
return;
/* Save which locking shift states are in effect. */
vp_old = vtdata[vtactive];
vp_new = vtdata[new_index];
vp_old->vnkb_shift = lockshift;
vtdeactivate(vp_new, vp_old); /* deactivate old virtual terminal */
/* Restore shift lock state, append current momentary shift state. */
shift = vp_new->vnkb_shift | nolockshift;
vtactivate(vp_new); /* activate new virtual terminal */
updterminal(new_index);
vtprevious = vtactive;
vtactive = new_index; /* update vtactive */
}
vtdeactivate(vp_new, vp_old)
register VTDATA *vp_new, *vp_old;
{
register i;
VTDATA *vpi;
/* store old screen contents in memory segment */
FFCOPY( vp_old->vmm_voff, vp_old->vmm_vseg,
vp_old->vmm_moff, vp_old->vmm_mseg, TEXTBLOCK );
/*
* if changing to another screen on same video board
* for all screens on same board as new screen
* deactivate, but don't update
* else - changing to a screen on different board
* for all screens NOT on same board as new screen
* deactivate, but don't update
*/
if ( vp_old->vmm_port == vp_new->vmm_port ) {
T_CON(8, printf("deactivate on %x ", vp_new->vmm_port));
for (i = 0; i < vtcount; ++i) {
vpi = vtdata[i];
if ( vpi->vmm_port == vp_new->vmm_port ) {
/* deactivate, but don't update */
vpi->vmm_invis = ~0;
vpi->vmm_visible = VNKB_FALSE;
vpi->vmm_seg = vpi->vmm_mseg;
vpi->vmm_off = vpi->vmm_moff;
if( vpi->vmm_seg == 0 )
printf( "[1]vpi->vmm_seg = 0\n" );
PRINTV( "vt.back %d. seg %x off %x\n", i,
vpi->vmm_seg, vpi->vmm_off );
}
}
} else {
T_CON(8, printf("deactivate %x->%x ",
vp_old->vmm_port, vp_new->vmm_port));
for (i = 0; i < vtcount; ++i) {
vpi = vtdata[i];
if ( (vpi->vmm_port != vp_new->vmm_port)
&& (vpi->vmm_invis == 0) ) {
/* update, but don't deactivate */
vpi->vmm_invis = ~0;
updscreen(i);
}
}
}
}
vtactivate(vp)
VTDATA *vp;
{
register VTDATA *vpi;
register i;
/*
* copy from screen contents from heap segment to video memory
* only if necessary
*/
if ( vp->vmm_visible == VNKB_FALSE )
FFCOPY( vp->vmm_moff, vp->vmm_mseg,
vp->vmm_voff, vp->vmm_vseg, TEXTBLOCK );
for (i = 0; i < vtcount; ++i) {
vpi = vtdata[i];
if (vpi->vmm_port == vp->vmm_port) {
vpi->vmm_invis = -1;
vpi->vmm_visible = VNKB_FALSE;
vpi->vmm_seg = vpi->vmm_mseg;
vpi->vmm_off = vpi->vmm_moff;
if( vpi->vmm_seg == 0 )
printf( "[2]vpi->vmm_seg = 0\n" );
PRINTV( "vt.back seg %x off %x\n",
vpi->vmm_seg, vpi->vmm_off );
}
}
/*
* Set new active terminal
*/
vp->vmm_invis = 0;
vp->vmm_visible = VNKB_TRUE;
vp->vmm_seg = vp->vmm_vseg;
vp->vmm_off = vp->vmm_voff;
if( vp->vmm_seg == 0 )
printf( "vp->vmm_seg = 0\n" );
}
/*
* update the terminal to match vtactive
*/
updterminal(index)
int index;
{
updscreen(index);
updleds();
}
#undef si
asmdump( cs, ds, es, di, si, bp, sp, bx, dx, cx, i, ip, ax )
int cs, ds, es, di, si, bp, sp, bx, dx, cx, i, ip, ax;
{
if( vt_verbose < 2 )
return;
printf( "asmdump %d: es %x, ds %x, cs:ip %x:%x\n", i, es, ds, cs, ip );
printf( " ax %x, bx %x, cx %x, dx %x\n", ax, bx, cx, dx );
printf( " di %x, si %x, bp %x, sp %d\n", di, si, bp, sp );
#if USING_RS232
if( vt_verbose > 2 )
getchar();
#endif
}
vtdataprint( vp )
register VTDATA *vp;
{
if( vt_verbose < 2 )
return;
printf( "VTDATA: @%x, esc %x, func %x()\n",
vp, vp->vmm_esc, vp->vmm_func );
printf( " hw: port %x, seg %x, off %x\n",
vp->vmm_port, vp->vmm_vseg, vp->vmm_voff );
printf( " memory: size %x, seg %x, off %x\n",
0/*vp->vmm_size*/, vp->vmm_mseg, vp->vmm_moff );
printf( " cursor: seg %x, off %x, visible %d\n",
vp->vmm_seg, vp->vmm_off, !vp->vmm_invis );
printf( " row %d, col %d = offset %d.\n",
vp->vmm_rowl, vp->vmm_col, vp->vmm_pos );
printf( " saved row %d, col %d\n",
vp->vmm_srow, vp->vmm_scol );
printf( " screen: visible %d, attr %x, wrap %d, slow %d\n",
vp->vmm_visible, vp->vmm_attr, vp->vmm_wrap, vp->vmm_slow );
printf( " row base %d, end %d, limit %d\n",
vp->vmm_brow, vp->vmm_erow, vp->vmm_lrow );
printf( " row initial base %d, initial end %d\n",
vp->vmm_ibrow, vp->vmm_ierow );
#if USING_RS232
if( vt_verbose > 2 )
getchar();
#endif
}
FFCOPY( src_off, src_seg, dst_off, dst_seg, count )
{
register i;
#if 0
i = ffcopy( src_off, src_seg, dst_off, dst_seg, count );
#else
for( i = 0; i < count; i += 2 ) {
register word = ffword( src_off, src_seg );
sfword( dst_off, dst_seg, word );
src_off += 2;
dst_off += 2;
}
#endif
return i;
}
/*
* Given a function key number (e.g. vt0),
* return the corresponding minor device number.
*
* Assume valid key number (VTKEY(fnum) is true) by the time we get here.
*/
int
vtkey_to_dev(fnum)
int fnum;
{
if (fnum >=vt0 && fnum <= vt15)
return fnum-vt0+1;
if (fnum >=color0 && fnum <= color15)
return (fnum-color0)|(VT_PHYSICAL|VT_HW_COLOR);
if (fnum >=mono0 && fnum <= mono15)
return (fnum-mono0)|(VT_PHYSICAL|VT_HW_MONO);
printf("vtkey_to_dev(%d)! ", fnum);
return 0;
}
/* End of vtkb_d.c */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.