plan 9 kernel history: overview | file list | diff list

1991/0731/pc/kbd.c (diff list | history)

pc/kbd.c on 1991/0702
1991/0702    
#include	"u.h" 
#include	"lib.h"
1991/0706    
#include	"mem.h"
1991/0702    
#include	"dat.h" 
#include	"fns.h"
1991/0703    
#include	"io.h"
1991/0702    
1991/0731    
#include	<libg.h> 
#include	<gnot.h> 
#include	"screen.h"
1991/0702    
enum { 
	Data=		0x60,	/* data port */ 
 
	Status=		0x64,	/* status port */ 
	 Inready=	0x01,	/*  input character ready */ 
	 Outbusy=	0x02,	/*  output busy */
1991/0730    
	 Sysflag=	0x04,	/*  system flag */
1991/0702    
	 Cmddata=	0x08,	/*  cmd==0, data==1 */
1991/0730    
	 Inhibit=	0x10,	/*  keyboard/mouse inhibited */ 
	 Minready=	0x20,	/*  mouse character ready */ 
	 Rtimeout=	0x40,	/*  general timeout */
1991/0731    
	 Parity=	0x80,
1991/0702    
1991/0730    
	Cmd=		0x64,	/* command port (write only) */
1991/0703    
	Spec=	0x80, 
 
	PF=	Spec|0x20,	/* num pad function key */ 
	View=	Spec|0x00,	/* view (shift window up) */
1991/0731    
	KF=	Spec|0x40,	/* function key */
1991/0703    
	Shift=	Spec|0x60, 
	Break=	Spec|0x61, 
	Ctrl=	Spec|0x62, 
	Latin=	Spec|0x63, 
	Caps=	Spec|0x64, 
	Num=	Spec|0x65, 
	No=	Spec|0x7F,	/* no mapping */
1991/0731    
	Home=	KF|13, 
	Up=	KF|14, 
	Pgup=	KF|15, 
	Print=	KF|16,
1991/0703    
	Left=	View, 
	Right=	View, 
	End=	'\r', 
	Down=	View, 
	Pgdown=	View,
1991/0731    
	Ins=	KF|20,
1991/0703    
	Del=	0x7F,
1991/0702    
};
1991/0703    
uchar kbtab[] =
1991/0702    
{
1991/0703    
[0x00]	No,	0x1b,	'1',	'2',	'3',	'4',	'5',	'6',
1991/0702    
[0x08]	'7',	'8',	'9',	'0',	'-',	'=',	'\b',	'\t',
1991/0703    
[0x10]	'q',	'w',	'e',	'r',	't',	'y',	'u',	'i', 
[0x18]	'o',	'p',	'[',	']',	'\n',	Ctrl,	'a',	's', 
[0x20]	'd',	'f',	'g',	'h',	'j',	'k',	'l',	';', 
[0x28]	'\'',	'`',	Shift,	'\\',	'z',	'x',	'c',	'v', 
[0x30]	'b',	'n',	'm',	',',	'.',	'/',	Shift,	No,
1991/0731    
[0x38]	Latin,	' ',	Caps,	KF|1,	KF|2,	KF|3,	KF|4,	KF|5, 
[0x40]	KF|6,	KF|7,	KF|8,	KF|9,	KF|10,	Num,	KF|12,	Home,
1991/0703    
[0x48]	No,	No,	No,	No,	No,	No,	No,	No,
1991/0731    
[0x50]	No,	No,	No,	No,	No,	No,	No,	KF|11, 
[0x58]	KF|12,	No,	No,	No,	No,	No,	No,	No,
1991/0702    
};
1991/0703    
uchar kbtabshift[] = 
{ 
[0x00]	No,	0x1b,	'!',	'@',	'#',	'$',	'%',	'^', 
[0x08]	'&',	'*',	'(',	')',	'_',	'+',	'\b',	'\t', 
[0x10]	'Q',	'W',	'E',	'R',	'T',	'Y',	'U',	'I', 
[0x18]	'O',	'P',	'{',	'}',	'\n',	Ctrl,	'A',	'S', 
[0x20]	'D',	'F',	'G',	'H',	'J',	'K',	'L',	':', 
[0x28]	'"',	'~',	Shift,	'|',	'Z',	'X',	'C',	'V', 
[0x30]	'B',	'N',	'M',	'<',	'>',	'?',	Shift,	No,
1991/0731    
[0x38]	Latin,	' ',	Caps,	KF|1,	KF|2,	KF|3,	KF|4,	KF|5, 
[0x40]	KF|6,	KF|7,	KF|8,	KF|9,	KF|10,	Num,	KF|12,	Home,
1991/0703    
[0x48]	No,	No,	No,	No,	No,	No,	No,	No,
1991/0731    
[0x50]	No,	No,	No,	No,	No,	No,	No,	KF|11, 
[0x58]	KF|12,	No,	No,	No,	No,	No,	No,	No,
1991/0703    
}; 
 
uchar kbtabesc1[] = 
{ 
[0x00]	No,	No,	No,	No,	No,	No,	No,	No, 
[0x08]	No,	No,	No,	No,	No,	No,	No,	No, 
[0x10]	No,	No,	No,	No,	No,	No,	No,	No, 
[0x18]	No,	No,	No,	No,	No,	Ctrl,	No,	No, 
[0x20]	No,	No,	No,	No,	No,	No,	No,	No, 
[0x28]	No,	No,	No,	No,	No,	No,	No,	No, 
[0x30]	No,	No,	No,	No,	No,	No,	No,	Print, 
[0x38]	Latin,	No,	No,	No,	No,	No,	No,	No, 
[0x40]	No,	No,	No,	No,	No,	No,	Break,	Home, 
[0x48]	Up,	Pgup,	No,	Down,	No,	Right,	No,	End, 
[0x50]	Left,	Pgdown,	Ins,	Del,	No,	No,	No,	No, 
[0x58]	No,	No,	No,	No,	No,	No,	No,	No, 
}; 
 
struct latin 
{ 
	uchar	l; 
	char	c[2]; 
}latintab[] = { 
	'€',	"!!",	/* spanish initial ! */ 
	'€',	"c|",	/* cent */ 
	'€',	"c$",	/* cent */ 
	'€',	"l$",	/* pound sterling */ 
	'€',	"g$",	/* general currency */ 
	'€',	"y$",	/* yen */ 
	'€',	"j$",	/* yen */ 
	'€',	"||",	/* broken vertical bar */ 
	'€',	"SS",	/* section symbol */ 
	'€',	"\"\"",	/* dieresis */ 
	'€',	"cr",	/* copyright */ 
	'€',	"cO",	/* copyright */ 
	'€',	"sa",	/* super a, feminine ordinal */ 
	'€',	"<<",	/* left angle quotation */ 
	'€',	"no",	/* not sign, hooked overbar */ 
	'€',	"--",	/* soft hyphen */ 
	'€',	"rg",	/* registered trademark */ 
	'€',	"__",	/* macron */ 
	'€',	"s0",	/* degree (sup o) */ 
	'€',	"+-",	/* plus-minus */ 
	'€',	"s2",	/* sup 2 */ 
	'€',	"s3",	/* sup 3 */ 
	'€',	"''",	/* grave accent */ 
	'€',	"mu",	/* mu */ 
	'€',	"pg",	/* paragraph (pilcrow) */ 
	'€',	"..",	/* centered . */ 
	'€',	",,",	/* cedilla */ 
	'€',	"s1",	/* sup 1 */ 
	'€',	"so",	/* sup o */ 
	'€',	">>",	/* right angle quotation */ 
	'€',	"14",	/* 1/4 */ 
	'€',	"12",	/* 1/2 */ 
	'€',	"34",	/* 3/4 */ 
	'€',	"??",	/* spanish initial ? */ 
	'€',	"A`",	/* A grave */ 
	'€',	"A'",	/* A acute */ 
	'€',	"A^",	/* A circumflex */ 
	'€',	"A~",	/* A tilde */ 
	'€',	"A\"",	/* A dieresis */ 
	'€',	"A:",	/* A dieresis */ 
	'€',	"Ao",	/* A circle */ 
	'€',	"AO",	/* A circle */ 
	'€',	"Ae",	/* AE ligature */ 
	'€',	"AE",	/* AE ligature */ 
	'€',	"C,",	/* C cedilla */ 
	'€',	"E`",	/* E grave */ 
	'€',	"E'",	/* E acute */ 
	'€',	"E^",	/* E circumflex */ 
	'€',	"E\"",	/* E dieresis */ 
	'€',	"E:",	/* E dieresis */ 
	'€',	"I`",	/* I grave */ 
	'€',	"I'",	/* I acute */ 
	'€',	"I^",	/* I circumflex */ 
	'€',	"I\"",	/* I dieresis */ 
	'€',	"I:",	/* I dieresis */ 
	'€',	"D-",	/* Eth */ 
	'€',	"N~",	/* N tilde */ 
	'€',	"O`",	/* O grave */ 
	'€',	"O'",	/* O acute */ 
	'€',	"O^",	/* O circumflex */ 
	'€',	"O~",	/* O tilde */ 
	'€',	"O\"",	/* O dieresis */ 
	'€',	"O:",	/* O dieresis */ 
	'€',	"OE",	/* O dieresis */ 
	'€',	"Oe",	/* O dieresis */ 
	'€',	"xx",	/* times sign */ 
	'€',	"O/",	/* O slash */ 
	'€',	"U`",	/* U grave */ 
	'€',	"U'",	/* U acute */ 
	'€',	"U^",	/* U circumflex */ 
	'€',	"U\"",	/* U dieresis */ 
	'€',	"U:",	/* U dieresis */ 
	'€',	"UE",	/* U dieresis */ 
	'€',	"Ue",	/* U dieresis */ 
	'€',	"Y'",	/* Y acute */ 
	'€',	"P|",	/* Thorn */ 
	'€',	"Th",	/* Thorn */ 
	'€',	"TH",	/* Thorn */ 
	'€',	"ss",	/* sharp s */ 
	'€',	"a`",	/* a grave */ 
	'€',	"a'",	/* a acute */ 
	'€',	"a^",	/* a circumflex */ 
	'€',	"a~",	/* a tilde */ 
	'€',	"a\"",	/* a dieresis */ 
	'€',	"a:",	/* a dieresis */ 
	'€',	"ao",	/* a circle */ 
	'€',	"ae",	/* ae ligature */ 
	'€',	"c,",	/* c cedilla */ 
	'€',	"e`",	/* e grave */ 
	'€',	"e'",	/* e acute */ 
	'€',	"e^",	/* e circumflex */ 
	'€',	"e\"",	/* e dieresis */ 
	'€',	"e:",	/* e dieresis */ 
	'€',	"i`",	/* i grave */ 
	'€',	"i'",	/* i acute */ 
	'€',	"i^",	/* i circumflex */ 
	'€',	"i\"",	/* i dieresis */ 
	'€',	"i:",	/* i dieresis */ 
	'€',	"d-",	/* eth */ 
	'€',	"n~",	/* n tilde */ 
	'€',	"o`",	/* o grave */ 
	'€',	"o'",	/* o acute */ 
	'€',	"o^",	/* o circumflex */ 
	'€',	"o~",	/* o tilde */ 
	'€',	"o\"",	/* o dieresis */ 
	'€',	"o:",	/* o dieresis */ 
	'€',	"oe",	/* o dieresis */ 
	'€',	"-:",	/* divide sign */ 
	'€',	"o/",	/* o slash */ 
	'€',	"u`",	/* u grave */ 
	'€',	"u'",	/* u acute */ 
	'€',	"u^",	/* u circumflex */ 
	'€',	"u\"",	/* u dieresis */ 
	'€',	"u:",	/* u dieresis */ 
	'€',	"ue",	/* u dieresis */ 
	'€',	"y'",	/* y acute */ 
	'€',	"th",	/* thorn */ 
	'€',	"p|",	/* thorn */ 
	'€',	"y\"",	/* y dieresis */ 
	'€',	"y:",	/* y dieresis */ 
	0,	0, 
}; 
 
KIOQ	kbdq; 
 
int 
latin1(int k1, int k2) 
{ 
	int i; 
	struct latin *l; 
 
	for(l=latintab; l->l; l++) 
		if(k1==l->c[0] && k2==l->c[1]) 
			return l->l; 
	return 0; 
}
1991/0731    
static void 
mousecmd(int cmd, int arg) 
{ 
	unsigned int c; 
 
	do { 
		while(inb(Status) & Outbusy) 
			; 
		outb(Cmd, 0xD4); 
		while(inb(Status) & Outbusy) 
			; 
		outb(Data, cmd); 
		if(arg >= 0){ 
			while(inb(Status) & Outbusy) 
				; 
			outb(Data, arg); 
		} 
		while(!(inb(Status) & Inready)) 
			; 
		c = inb(Data); 
	} while(c == 0xFE); 
	if(c != 0xFA) 
		print("mouse command returns bad status %lux", c); 
}
1991/0703    
void 
kbdinit(void) 
{
1991/0731    
	int c, s;
1991/0730    
1991/0703    
	initq(&kbdq);
1991/0716    
	setvec(Kbdvec, kbdintr);
1991/0731    
	initq(&mouseq); 
	setvec(Mousevec, kbdintr);
1991/0730    
 
	/* wait for a quiescent controller */ 
	while((c = inb(Status)) & (Outbusy | Inready)) 
		if(c & Inready) 
			inb(Data);
1991/0731    
	/* enable kbd/mouse xfers and interrupts */
1991/0730    
	outb(Cmd, 0x60); 
	while(inb(Status) & Outbusy) 
		;
1991/0731    
	outb(Data, 0x47); 
	while(inb(Status) & Outbusy) 
		; 
	outb(Cmd, 0xA8); 
 
	/* make mouse streaming (and enabled) */ 
	mousecmd(0xEA, -1); 
	mousecmd(0xF4, -1); 
 
	/* resolution */ 
	mousecmd(0xE8, 0x03); 
print("res set\n");
1991/0730    
delay(5000);
1991/0731    
}
1991/0730    
1991/0731    
/* 
 *  mouse message is three bytes 
 * 
 *	byte 0 -	0 0 SDY SDX 1 M R L 
 *	byte 1 -	DX 
 *	byte 2 -	DY 
 */ 
static void 
mymouseputc(int c) 
{ 
	static short msg[3]; 
	static int nb; 
	static uchar b[] = {0, 4, 1, 5, 2, 6, 3, 7}; 
	static lastdx, lastdy; 
	int diff; 
	extern Mouseinfo mouse; 
 
	/*  
	 *  check byte 0 for consistency 
	 */ 
	if(nb==0 && (c&0xc8)!=0x08) 
		return; 
 
	msg[nb] = c; 
	if(++nb == 3){ 
		nb = 0; 
		if(msg[0] & 0x10) 
			msg[1] |= 0xFF00; 
		if(msg[0] & 0x20) 
			msg[2] |= 0xFF00; 
 
		mouse.newbuttons = b[msg[0]&7]; 
		mouse.dx = msg[1]; 
		mouse.dy = -msg[2]; 
print("%d %d\n", mouse.dx, mouse.dy); 
		mouse.track = 1; 
		mouseclock(); 
	}
1991/0703    
} 
 
/* 
 *  keyboard interrupt 
 */
1991/0731    
int 
kbdintr0(void)
1991/0703    
{
1991/0730    
	int s, c, nc;
1991/0703    
	static int esc1, esc2; 
	static int shift; 
	static int caps; 
	static int ctl; 
	static int num; 
	static int lstate, k1, k2; 
	int keyup;
1991/0702    
1991/0703    
	/*
1991/0731    
	 *  get status
1991/0703    
	 */
1991/0730    
	s = inb(Status);
1991/0731    
	if(!(s&Inready)) 
		return -1; 
 
	/* 
	 *  get the character 
	 */
1991/0703    
	c = inb(Data);
1991/0730    
 
	/* 
	 *  if it's the mouse... 
	 */ 
	if(s & Minready){
1991/0731    
		mymouseputc(c); 
		return 0;
1991/0730    
	}
1991/0703    
 
	keyup = c&0x80; 
	c &= 0x7f; 
	if(c > sizeof kbtab){ 
		print("unknown key %ux\n", c|keyup); 
		kbdputc(&kbdq, k1);
1991/0731    
		return 0;
1991/0703    
	} 
 
	/* 
	 *  e0's is the first of a 2 character sequence 
	 */ 
	if(c == 0xe0){ 
		esc1 = 1;
1991/0731    
		return 0;
1991/0703    
	} else if(c == 0xe1){ 
		esc2 = 2;
1991/0731    
		return 0;
1991/0703    
	} 
 
	if(esc1){ 
		c = kbtabesc1[c]; 
		esc1 = 0; 
	} else if(esc2){ 
		esc2--;
1991/0731    
		return 0;
1991/0703    
	} else if(shift) 
		c = kbtabshift[c]; 
	else 
		c = kbtab[c]; 
 
	if(caps && c<='z' && c>='a') 
		c += 'A' - 'a'; 
 
	/* 
	 *  keyup only important for shifts 
	 */ 
	if(keyup){ 
		switch(c){ 
		case Shift: 
			shift = 0; 
			break; 
		case Ctrl: 
			ctl = 0; 
			break; 
		}
1991/0731    
		return 0;
1991/0703    
	} 
 
	/* 
 	 *  normal character 
	 */ 
	if(!(c & Spec)){ 
		if(ctl) 
			c &= 0x1f; 
		switch(lstate){ 
		case 1: 
			k1 = c; 
			lstate = 2;
1991/0731    
			return 0;
1991/0703    
		case 2: 
			k2 = c; 
			lstate = 0; 
			c = latin1(k1, k2); 
			if(c == 0){ 
				kbdputc(&kbdq, k1); 
				c = k2; 
			} 
			/* fall through */ 
		default: 
			break; 
		} 
	} else { 
		switch(c){ 
		case Caps: 
			caps ^= 1;
1991/0731    
			return 0;
1991/0703    
		case Num: 
			num ^= 1;
1991/0731    
			return 0;
1991/0703    
		case Shift: 
			shift = 1;
1991/0731    
			return 0;
1991/0703    
		case Latin: 
			lstate = 1;
1991/0731    
			return 0;
1991/0703    
		case Ctrl: 
			ctl = 1;
1991/0731    
			return 0;
1991/0703    
		} 
	} 
	kbdputc(&kbdq, c);
1991/0731    
	return 0; 
} 
 
void 
kbdintr(Ureg *ur) 
{ 
	while(kbdintr0() == 0) 
		;
1991/0703    
}


source code copyright © 1990-2005 Lucent Technologies; see license
Plan 9 distribution
comments to russ cox (rsc@swtch.com)