![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to kbd.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Plan 9 NeXT] / lucent / sys / src / 9 / pc|
Return to kbd.c CVS log | Up to [Plan 9 NeXT] / lucent / sys / src / 9 / pc |
1.1 root 1: #include "u.h"
2: #include "../port/lib.h"
3: #include "mem.h"
4: #include "dat.h"
5: #include "fns.h"
6: #include "io.h"
7: #include "../port/error.h"
8:
9: #include <libg.h>
10: #include <gnot.h>
11: #include "screen.h"
12:
13: enum {
14: Data= 0x60, /* data port */
15:
16: Status= 0x64, /* status port */
17: Inready= 0x01, /* input character ready */
18: Outbusy= 0x02, /* output busy */
19: Sysflag= 0x04, /* system flag */
20: Cmddata= 0x08, /* cmd==0, data==1 */
21: Inhibit= 0x10, /* keyboard/mouse inhibited */
22: Minready= 0x20, /* mouse character ready */
23: Rtimeout= 0x40, /* general timeout */
24: Parity= 0x80,
25:
26: Cmd= 0x64, /* command port (write only) */
27:
28: CTdata= 0x0, /* chips & Technologies ps2 data port */
29: CTstatus= 0x1, /* chips & Technologies ps2 status port */
30: Enable= 1<<7,
31: Clear= 1<<6,
32: Error= 1<<5,
33: Intenable= 1<<4,
34: Reset= 1<<3,
35: Tready= 1<<2,
36: Rready= 1<<1,
37: Idle= 1<<0,
38:
39: Spec= 0x80,
40:
41: PF= Spec|0x20, /* num pad function key */
42: View= Spec|0x00, /* view (shift window up) */
43: KF= Spec|0x40, /* function key */
44: Shift= Spec|0x60,
45: Break= Spec|0x61,
46: Ctrl= Spec|0x62,
47: Latin= Spec|0x63,
48: Caps= Spec|0x64,
49: Num= Spec|0x65,
50: Middle= Spec|0x66,
51: No= 0x00, /* peter */
52:
53: Home= KF|13,
54: Up= KF|14,
55: Pgup= KF|15,
56: Print= KF|16,
57: Left= View,
58: Right= View,
59: End= '\r',
60: Down= View,
61: Pgdown= View,
62: Ins= KF|20,
63: Del= 0x7F,
64:
65: Rbutton=4,
66: Mbutton=2,
67: Lbutton=1,
68: };
69:
70: uchar kbtab[] =
71: {
72: [0x00] No, 0x1b, '1', '2', '3', '4', '5', '6',
73: [0x08] '7', '8', '9', '0', '-', '=', '\b', '\t',
74: [0x10] 'q', 'w', 'e', 'r', 't', 'y', 'u', 'i',
75: [0x18] 'o', 'p', '[', ']', '\n', Ctrl, 'a', 's',
76: [0x20] 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';',
77: [0x28] '\'', '`', Shift, '\\', 'z', 'x', 'c', 'v',
78: [0x30] 'b', 'n', 'm', ',', '.', '/', Shift, '*',
79: [0x38] Latin, ' ', Ctrl, KF|1, KF|2, KF|3, KF|4, KF|5,
80: [0x40] KF|6, KF|7, KF|8, KF|9, KF|10, Num, KF|12, '7',
81: [0x48] '8', '9', '-', '4', '5', '6', '+', '1',
82: [0x50] '2', '3', '0', '.', Del, No, No, KF|11,
83: [0x58] KF|12, No, No, No, No, No, No, No,
84: };
85:
86: uchar kbtabshift[] =
87: {
88: [0x00] No, 0x1b, '!', '@', '#', '$', '%', '^',
89: [0x08] '&', '*', '(', ')', '_', '+', '\b', '\t',
90: [0x10] 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I',
91: [0x18] 'O', 'P', '{', '}', '\n', Ctrl, 'A', 'S',
92: [0x20] 'D', 'F', 'G', 'H', 'J', 'K', 'L', ':',
93: [0x28] '"', '~', Shift, '|', 'Z', 'X', 'C', 'V',
94: [0x30] 'B', 'N', 'M', '<', '>', '?', Shift, '*',
95: [0x38] Latin, ' ', Ctrl, KF|1, KF|2, KF|3, KF|4, KF|5,
96: [0x40] KF|6, KF|7, KF|8, KF|9, KF|10, Num, KF|12, '7',
97: [0x48] '8', '9', '-', '4', '5', '6', '+', '1',
98: [0x50] '2', '3', '0', '.', No, No, No, KF|11,
99: [0x58] KF|12, No, No, No, No, No, No, No,
100: };
101:
102: uchar kbtabesc1[] =
103: {
104: [0x00] No, No, No, No, No, No, No, No,
105: [0x08] No, No, No, No, No, No, No, No,
106: [0x10] No, No, No, No, No, No, No, No,
107: [0x18] No, No, No, No, '\n', Ctrl, No, No,
108: [0x20] No, No, No, No, No, No, No, No,
109: [0x28] No, No, Shift, No, No, No, No, No,
110: [0x30] No, No, No, No, No, '/', No, Print,
111: [0x38] Latin, No, No, No, No, No, No, No,
112: [0x40] No, No, No, No, No, No, Break, Home,
113: [0x48] Up, Pgup, No, Left, No, Right, No, End,
114: [0x50] Down, Pgdown, Ins, Del, No, No, No, No,
115: [0x58] No, No, No, No, No, No, No, No,
116: };
117:
118: /*
119: * keyboard input q
120: */
121: KIOQ kbdq;
122:
123: static int keybuttons;
124: static uchar ccc;
125: static int shift;
126: ulong ctport;
127:
128: enum
129: {
130: /* controller command byte */
131: Cscs1= (1<<6), /* scan code set 1 */
132: Cmousedis= (1<<5), /* mouse disable */
133: Ckbddis= (1<<4), /* kbd disable */
134: Csf= (1<<2), /* system flag */
135: Cmouseint= (1<<1), /* mouse interrupt enable */
136: Ckbdint= (1<<0), /* kbd interrupt enable */
137: };
138:
139: static void kbdintr(Ureg*, void*);
140: static void ctps2intr(Ureg*, void*);
141: static int ps2mouseputc(IOQ*, int);
142:
143: /*
144: * wait for output no longer busy
145: */
146: static int
147: outready(void)
148: {
149: int tries;
150:
151: for(tries = 0; (inb(Status) & Outbusy); tries++){
152: if(tries > 500)
153: return -1;
154: delay(2);
155: }
156: return 0;
157: }
158:
159: /*
160: * wait for input
161: */
162: static int
163: inready(void)
164: {
165: int tries;
166:
167: for(tries = 0; !(inb(Status) & Inready); tries++){
168: if(tries > 500)
169: return -1;
170: delay(2);
171: }
172: return 0;
173: }
174:
175: /*
176: * send a command to the mouse
177: */
178: static int
179: mousecmd(int cmd)
180: {
181: unsigned int c;
182: int tries;
183:
184: c = 0;
185: tries = 0;
186: do{
187: if(tries++ > 2)
188: break;
189: if(outready() < 0)
190: break;
191: outb(Cmd, 0xD4);
192: if(outready() < 0)
193: break;
194: outb(Data, cmd);
195: if(outready() < 0)
196: break;
197: if(inready() < 0)
198: break;
199: c = inb(Data);
200: } while(c == 0xFE || c == 0);
201: if(c != 0xFA){
202: kprint("mouse returns %2.2ux to the %2.2ux command\n", c, cmd);
203: return -1;
204: }
205: return 0;
206: }
207:
208: /*
209: * ask 8042 to enable the use of address bit 20
210: */
211: void
212: i8042a20(void)
213: {
214: outready();
215: outb(Cmd, 0xD1);
216: outready();
217: outb(Data, 0xDF);
218: outready();
219: }
220:
221: /*
222: * ask 8042 to reset the machine
223: */
224: void
225: i8042reset(void)
226: {
227: ushort *s = (ushort*)(KZERO|0x472);
228: int i, x;
229:
230: *s = 0x1234; /* BIOS warm-boot flag */
231:
232: /*
233: * this works for dhog
234: */
235: outready();
236: outb(Cmd, 0xFE); /* pulse reset line (means resend on AT&T machines) */
237: outready();
238:
239: /*
240: * Pulse it by hand (old somewhat reliable)
241: */
242: x = 0xDF;
243: for(i = 0; i < 5; i++){
244: x ^= 1;
245: outready();
246: outb(Cmd, 0xD1);
247: outready();
248: outb(Data, x); /* toggle reset */
249: delay(100);
250: }
251: }
252:
253:
254: void
255: kbdinit(void)
256: {
257: int c;
258:
259: setvec(Kbdvec, kbdintr, 0);
260:
261: /* wait for a quiescent controller */
262: while((c = inb(Status)) & (Outbusy | Inready))
263: if(c & Inready)
264: inb(Data);
265:
266: /* get current controller command byte */
267: outb(Cmd, 0x20);
268: if(inready() < 0){
269: print("kbdinit: can't read ccc\n");
270: ccc = 0;
271: } else
272: ccc = inb(Data);
273:
274: /* enable kbd xfers and interrupts */
275: ccc &= ~Ckbddis;
276: ccc |= Csf | Ckbdint | Cscs1;
277: if(outready() < 0)
278: print("kbd init failed\n");
279: outb(Cmd, 0x60);
280: if(outready() < 0)
281: print("kbd init failed\n");
282: outb(Data, ccc);
283: outready();
284: }
285:
286: /*
287: * setup a serial mouse
288: */
289: static void
290: serialmouse(int port, char *type, int setspeed)
291: {
292: if(mousetype)
293: error(Emouseset);
294:
295: if(port >= 2 || port < 0)
296: error(Ebadarg);
297:
298: /* set up /dev/eia0 as the mouse */
299: uartspecial(port, 0, &mouseq, setspeed ? 1200 : 0);
300: if(type && *type == 'M')
301: mouseq.putc = m3mouseputc;
302: mousetype = Mouseserial;
303: }
304:
305: static void nop(void){};
306:
307: /*
308: * look for a chips & technologies 82c710 ps2 mouse on a TI travelmate
309: */
310: static int
311: ct82c710(void)
312: {
313: int c;
314:
315: /* on non-C&T 2fa and 3fa are input only ports */
316: /* get chips attention */
317: outb(0x2fa, 0x55); nop(); nop();
318: outb(0x3fa, ~0x55); nop(); nop();
319: outb(0x3fa, 0x36); nop(); nop();
320:
321: /* tell it where its config register should be */
322: outb(0x3fa, 0x390>>2); nop(); nop();
323: outb(0x2fa, ~(0x390>>2)); nop(); nop();
324:
325: /* see if this is really a 710 */
326: outb(0x390, 0xf); nop(); nop();
327: if(inb(0x391) != (0x390>>2))
328: return -1;
329:
330: /* get data port address */
331: outb(0x390, 0xd); nop(); nop();
332: c = inb(0x391);
333: if(c == 0 || c == 0xff)
334: return -1;
335: ctport = c<<2;
336:
337: /* turn off config mode */
338: outb(0x390, 0xf); nop(); nop();
339: outb(0x391, 0xf);
340:
341: setvec(Mousevec, ctps2intr, 0);
342:
343: /* enable for interrupts */
344: c = inb(ctport + CTstatus);
345: c &= ~(Clear|Reset);
346: c |= Enable|Intenable;
347: outb(ctport + CTstatus, c);
348:
349: mousetype = MousePS2;
350: return 0;
351: }
352:
353: /*
354: * set up a ps2 mouse
355: */
356: static void
357: ps2mouse(void)
358: {
359: int x;
360:
361: if(mousetype)
362: error(Emouseset);
363:
364: if(ct82c710() == 0)
365: return;
366:
367: /* enable kbd/mouse xfers and interrupts */
368: setvec(Mousevec, kbdintr, 0);
369: x = splhi();
370: ccc &= ~Cmousedis;
371: ccc |= Cmouseint;
372: if(outready() < 0)
373: print("mouse init failed\n");
374: outb(Cmd, 0x60);
375: if(outready() < 0)
376: print("mouse init failed\n");
377: outb(Data, ccc);
378: if(outready() < 0)
379: print("mouse init failed\n");
380: outb(Cmd, 0xA8);
381: if(outready() < 0)
382: print("mouse init failed\n");
383:
384: /* make mouse streaming, enabled */
385: mousecmd(0xEA);
386: mousecmd(0xF4);
387:
388: /* set high resolution */
389: mousecmd(0xE8);
390: mousecmd(0x03);
391:
392: /* set high resolution finger point mouse */
393: mousecmd(0x5A);
394: mousecmd(0x37);
395: mousecmd(0x5A);
396: mousecmd(0x24);
397: splx(x);
398:
399: mousetype = MousePS2;
400: }
401:
402: /*
403: * ps/2 mouse message is three bytes
404: *
405: * byte 0 - 0 0 SDY SDX 1 M R L
406: * byte 1 - DX
407: * byte 2 - DY
408: *
409: * shift & left button is the same as middle button
410: */
411: static int
412: ps2mouseputc(IOQ *q, int c)
413: {
414: static short msg[3];
415: static int nb;
416: static uchar b[] = {0, 1, 4, 5, 2, 3, 6, 7, 0, 1, 2, 5, 2, 3, 6, 7 };
417: int buttons, dx, dy;
418:
419: USED(q); /* not */
420: /*
421: * check byte 0 for consistency
422: */
423: if(nb==0 && (c&0xc8)!=0x08)
424: return 0;
425:
426: msg[nb] = c;
427: if(++nb == 3){
428: nb = 0;
429: if(msg[0] & 0x10)
430: msg[1] |= 0xFF00;
431: if(msg[0] & 0x20)
432: msg[2] |= 0xFF00;
433:
434: buttons = b[(msg[0]&7) | (shift ? 8 : 0)] | keybuttons;
435: dx = msg[1];
436: dy = -msg[2];
437: mousetrack(buttons, dx, dy);
438: }
439: return 0;
440: }
441:
442: /*
443: * set/change mouse configuration
444: */
445: void
446: mousectl(char *arg)
447: {
448: int m, n, x;
449: char *field[10];
450:
451: n = getfields(arg, field, 10, " \t\n");
452: if(strncmp(field[0], "serial", 6) == 0){
453: switch(n){
454: case 1:
455: serialmouse(atoi(field[0]+6), 0, 1);
456: break;
457: case 2:
458: serialmouse(atoi(field[1]), 0, 0);
459: break;
460: case 3:
461: default:
462: serialmouse(atoi(field[1]), field[2], 0);
463: break;
464: }
465: } else if(strcmp(field[0], "ps2") == 0){
466: ps2mouse();
467: } else if(strcmp(field[0], "accelerated") == 0){
468: switch(mousetype){
469: case MousePS2:
470: x = splhi();
471: mousecmd(0xE7);
472: splx(x);
473: break;
474: }
475: } else if(strcmp(field[0], "linear") == 0){
476: switch(mousetype){
477: case MousePS2:
478: x = splhi();
479: mousecmd(0xE6);
480: splx(x);
481: break;
482: }
483: } else if(strcmp(field[0], "res") == 0){
484: switch(n){
485: default:
486: n = 0x02;
487: m = 0x23;
488: break;
489: case 2:
490: n = atoi(field[1])&0x3;
491: m = 0x7;
492: break;
493: case 3:
494: n = atoi(field[1])&0x3;
495: m = atoi(field[2])&0x7;
496: break;
497: }
498:
499: switch(mousetype){
500: case MousePS2:
501: x = splhi();
502: mousecmd(0xE8);
503: mousecmd(n);
504: mousecmd(0x5A);
505: mousecmd(0x30|m);
506: mousecmd(0x5A);
507: mousecmd(0x20|(m>>1));
508: splx(x);
509: break;
510: }
511: } else if(strcmp(field[0], "swap") == 0)
512: mouseswap ^= 1;
513: }
514:
515: /*
516: * keyboard interrupt
517: */
518: void
519: kbdintr(Ureg *ur, void *a)
520: {
521: int s, c, i;
522: static int esc1, esc2;
523: static int caps;
524: static int ctl;
525: static int num;
526: static int collecting, nk;
527: static int alt;
528: static uchar kc[5];
529: int keyup;
530:
531: USED(ur, a);
532:
533: /*
534: * get status
535: */
536: s = inb(Status);
537: if(!(s&Inready))
538: return;
539:
540: /*
541: * get the character
542: */
543: c = inb(Data);
544:
545: /*
546: * if it's the mouse...
547: */
548: if(s & Minready){
549: ps2mouseputc(&mouseq, c);
550: return;
551: }
552:
553: /*
554: * e0's is the first of a 2 character sequence
555: */
556: if(c == 0xe0){
557: esc1 = 1;
558: return;
559: } else if(c == 0xe1){
560: esc2 = 2;
561: return;
562: }
563:
564: keyup = c&0x80;
565: c &= 0x7f;
566: if(c > sizeof kbtab){
567: print("unknown key %ux\n", c|keyup);
568: return;
569: }
570:
571: if(esc1){
572: c = kbtabesc1[c];
573: esc1 = 0;
574: } else if(esc2){
575: esc2--;
576: return;
577: } else if(shift)
578: c = kbtabshift[c];
579: else
580: c = kbtab[c];
581:
582: if(caps && c<='z' && c>='a')
583: c += 'A' - 'a';
584:
585: /*
586: * keyup only important for shifts
587: */
588: if(keyup){
589: switch(c){
590: case Latin:
591: alt = 0;
592: break;
593: case Shift:
594: mouseshifted = shift = 0;
595: break;
596: case Ctrl:
597: ctl = 0;
598: break;
599: }
600: return;
601: }
602:
603: /*
604: * normal character
605: */
606: if(!(c & Spec)){
607: if(ctl){
608: if(alt && c == Del)
609: exit(0);
610: c &= 0x1f;
611: }
612: if(!collecting){
613: kbdputc(&kbdq, c);
614: return;
615: }
616: kc[nk++] = c;
617: c = latin1(kc, nk);
618: if(c < -1) /* need more keystrokes */
619: return;
620: if(c != -1) /* valid sequence */
621: kbdputc(&kbdq, c);
622: else /* dump characters */
623: for(i=0; i<nk; i++)
624: kbdputc(&kbdq, kc[i]);
625: nk = 0;
626: collecting = 0;
627: return;
628: } else {
629: switch(c){
630: case Caps:
631: caps ^= 1;
632: return;
633: case Num:
634: num ^= 1;
635: return;
636: case Shift:
637: mouseshifted = shift = 1;
638: return;
639: case Latin:
640: alt = 1;
641: collecting = 1;
642: nk = 0;
643: return;
644: case Ctrl:
645: ctl = 1;
646: return;
647: }
648: }
649: kbdputc(&kbdq, c);
650: }
651:
652: void
653: ctps2intr(Ureg *ur, void *a)
654: {
655: uchar c;
656:
657: USED(ur, a);
658: c = inb(ctport + CTstatus);
659: if(c & Error)
660: return;
661: if((c & Rready) == 0)
662: return;
663: c = inb(ctport + CTdata);
664: ps2mouseputc(&mouseq, c);
665: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.