![[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 / boot / pc|
Return to kbd.c CVS log | Up to [Plan 9 NeXT] / lucent / sys / src / boot / pc |
1.1 ! root 1: #include "u.h" ! 2: #include "lib.h" ! 3: #include "mem.h" ! 4: #include "dat.h" ! 5: #include "fns.h" ! 6: #include "io.h" ! 7: ! 8: #include <libg.h> ! 9: ! 10: enum { ! 11: Data= 0x60, /* data port */ ! 12: ! 13: Status= 0x64, /* status port */ ! 14: Inready= 0x01, /* input character ready */ ! 15: Outbusy= 0x02, /* output busy */ ! 16: Sysflag= 0x04, /* system flag */ ! 17: Cmddata= 0x08, /* cmd==0, data==1 */ ! 18: Inhibit= 0x10, /* keyboard/mouse inhibited */ ! 19: Minready= 0x20, /* mouse character ready */ ! 20: Rtimeout= 0x40, /* general timeout */ ! 21: Parity= 0x80, ! 22: ! 23: Cmd= 0x64, /* command port (write only) */ ! 24: ! 25: Spec= 0x80, ! 26: ! 27: PF= Spec|0x20, /* num pad function key */ ! 28: View= Spec|0x00, /* view (shift window up) */ ! 29: KF= Spec|0x40, /* function key */ ! 30: Shift= Spec|0x60, ! 31: Break= Spec|0x61, ! 32: Ctrl= Spec|0x62, ! 33: Latin= Spec|0x63, ! 34: Caps= Spec|0x64, ! 35: Num= Spec|0x65, ! 36: No= Spec|0x7F, /* no mapping */ ! 37: ! 38: Home= KF|13, ! 39: Up= KF|14, ! 40: Pgup= KF|15, ! 41: Print= KF|16, ! 42: Left= View, ! 43: Right= View, ! 44: End= '\r', ! 45: Down= View, ! 46: Pgdown= View, ! 47: Ins= KF|20, ! 48: Del= 0x7F, ! 49: }; ! 50: ! 51: uchar kbtab[] = ! 52: { ! 53: [0x00] No, 0x1b, '1', '2', '3', '4', '5', '6', ! 54: [0x08] '7', '8', '9', '0', '-', '=', '\b', '\t', ! 55: [0x10] 'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', ! 56: [0x18] 'o', 'p', '[', ']', '\n', Ctrl, 'a', 's', ! 57: [0x20] 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', ! 58: [0x28] '\'', '`', Shift, '\\', 'z', 'x', 'c', 'v', ! 59: [0x30] 'b', 'n', 'm', ',', '.', '/', Shift, No, ! 60: [0x38] Latin, ' ', Caps, KF|1, KF|2, KF|3, KF|4, KF|5, ! 61: [0x40] KF|6, KF|7, KF|8, KF|9, KF|10, Num, KF|12, Home, ! 62: [0x48] No, No, No, No, No, No, No, No, ! 63: [0x50] No, No, No, No, No, No, No, KF|11, ! 64: [0x58] KF|12, No, No, No, No, No, No, No, ! 65: }; ! 66: ! 67: uchar kbtabshift[] = ! 68: { ! 69: [0x00] No, 0x1b, '!', '@', '#', '$', '%', '^', ! 70: [0x08] '&', '*', '(', ')', '_', '+', '\b', '\t', ! 71: [0x10] 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', ! 72: [0x18] 'O', 'P', '{', '}', '\n', Ctrl, 'A', 'S', ! 73: [0x20] 'D', 'F', 'G', 'H', 'J', 'K', 'L', ':', ! 74: [0x28] '"', '~', Shift, '|', 'Z', 'X', 'C', 'V', ! 75: [0x30] 'B', 'N', 'M', '<', '>', '?', Shift, No, ! 76: [0x38] Latin, ' ', Caps, KF|1, KF|2, KF|3, KF|4, KF|5, ! 77: [0x40] KF|6, KF|7, KF|8, KF|9, KF|10, Num, KF|12, Home, ! 78: [0x48] No, No, No, No, No, No, No, No, ! 79: [0x50] No, No, No, No, No, No, No, KF|11, ! 80: [0x58] KF|12, No, No, No, No, No, No, No, ! 81: }; ! 82: ! 83: uchar kbtabesc1[] = ! 84: { ! 85: [0x00] No, No, No, No, No, No, No, No, ! 86: [0x08] No, No, No, No, No, No, No, No, ! 87: [0x10] No, No, No, No, No, No, No, No, ! 88: [0x18] No, No, No, No, No, Ctrl, No, No, ! 89: [0x20] No, No, No, No, No, No, No, No, ! 90: [0x28] No, No, No, No, No, No, No, No, ! 91: [0x30] No, No, No, No, No, No, No, Print, ! 92: [0x38] Latin, No, No, No, No, No, No, No, ! 93: [0x40] No, No, No, No, No, No, Break, Home, ! 94: [0x48] Up, Pgup, No, Down, No, Right, No, End, ! 95: [0x50] Left, Pgdown, Ins, Del, No, No, No, No, ! 96: [0x58] No, No, No, No, No, No, No, No, ! 97: }; ! 98: ! 99: struct latin ! 100: { ! 101: uchar l; ! 102: char c[2]; ! 103: }latintab[] = { ! 104: '¡', "!!", /* spanish initial ! */ ! 105: '¢', "c|", /* cent */ ! 106: '¢', "c$", /* cent */ ! 107: '£', "l$", /* pound sterling */ ! 108: '¤', "g$", /* general currency */ ! 109: '¥', "y$", /* yen */ ! 110: '¥', "j$", /* yen */ ! 111: '¦', "||", /* broken vertical bar */ ! 112: '§', "SS", /* section symbol */ ! 113: '¨', "\"\"", /* dieresis */ ! 114: '©', "cr", /* copyright */ ! 115: '©', "cO", /* copyright */ ! 116: 'ª', "sa", /* super a, feminine ordinal */ ! 117: '«', "<<", /* left angle quotation */ ! 118: '¬', "no", /* not sign, hooked overbar */ ! 119: '', "--", /* soft hyphen */ ! 120: '®', "rg", /* registered trademark */ ! 121: '¯', "__", /* macron */ ! 122: '°', "s0", /* degree (sup o) */ ! 123: '±', "+-", /* plus-minus */ ! 124: '²', "s2", /* sup 2 */ ! 125: '³', "s3", /* sup 3 */ ! 126: '´', "''", /* grave accent */ ! 127: 'µ', "mu", /* mu */ ! 128: '¶', "pg", /* paragraph (pilcrow) */ ! 129: '·', "..", /* centered . */ ! 130: '¸', ",,", /* cedilla */ ! 131: '¹', "s1", /* sup 1 */ ! 132: 'º', "so", /* sup o */ ! 133: '»', ">>", /* right angle quotation */ ! 134: '¼', "14", /* 1/4 */ ! 135: '½', "12", /* 1/2 */ ! 136: '¾', "34", /* 3/4 */ ! 137: '¿', "??", /* spanish initial ? */ ! 138: 'À', "A`", /* A grave */ ! 139: 'Á', "A'", /* A acute */ ! 140: 'Â', "A^", /* A circumflex */ ! 141: 'Ã', "A~", /* A tilde */ ! 142: 'Ä', "A\"", /* A dieresis */ ! 143: 'Ä', "A:", /* A dieresis */ ! 144: 'Å', "Ao", /* A circle */ ! 145: 'Å', "AO", /* A circle */ ! 146: 'Æ', "Ae", /* AE ligature */ ! 147: 'Æ', "AE", /* AE ligature */ ! 148: 'Ç', "C,", /* C cedilla */ ! 149: 'È', "E`", /* E grave */ ! 150: 'É', "E'", /* E acute */ ! 151: 'Ê', "E^", /* E circumflex */ ! 152: 'Ë', "E\"", /* E dieresis */ ! 153: 'Ë', "E:", /* E dieresis */ ! 154: 'Ì', "I`", /* I grave */ ! 155: 'Í', "I'", /* I acute */ ! 156: 'Î', "I^", /* I circumflex */ ! 157: 'Ï', "I\"", /* I dieresis */ ! 158: 'Ï', "I:", /* I dieresis */ ! 159: 'Ð', "D-", /* Eth */ ! 160: 'Ñ', "N~", /* N tilde */ ! 161: 'Ò', "O`", /* O grave */ ! 162: 'Ó', "O'", /* O acute */ ! 163: 'Ô', "O^", /* O circumflex */ ! 164: 'Õ', "O~", /* O tilde */ ! 165: 'Ö', "O\"", /* O dieresis */ ! 166: 'Ö', "O:", /* O dieresis */ ! 167: 'Ö', "OE", /* O dieresis */ ! 168: 'Ö', "Oe", /* O dieresis */ ! 169: '×', "xx", /* times sign */ ! 170: 'Ø', "O/", /* O slash */ ! 171: 'Ù', "U`", /* U grave */ ! 172: 'Ú', "U'", /* U acute */ ! 173: 'Û', "U^", /* U circumflex */ ! 174: 'Ü', "U\"", /* U dieresis */ ! 175: 'Ü', "U:", /* U dieresis */ ! 176: 'Ü', "UE", /* U dieresis */ ! 177: 'Ü', "Ue", /* U dieresis */ ! 178: 'Ý', "Y'", /* Y acute */ ! 179: 'Þ', "P|", /* Thorn */ ! 180: 'Þ', "Th", /* Thorn */ ! 181: 'Þ', "TH", /* Thorn */ ! 182: 'ß', "ss", /* sharp s */ ! 183: 'à', "a`", /* a grave */ ! 184: 'á', "a'", /* a acute */ ! 185: 'â', "a^", /* a circumflex */ ! 186: 'ã', "a~", /* a tilde */ ! 187: 'ä', "a\"", /* a dieresis */ ! 188: 'ä', "a:", /* a dieresis */ ! 189: 'å', "ao", /* a circle */ ! 190: 'æ', "ae", /* ae ligature */ ! 191: 'ç', "c,", /* c cedilla */ ! 192: 'è', "e`", /* e grave */ ! 193: 'é', "e'", /* e acute */ ! 194: 'ê', "e^", /* e circumflex */ ! 195: 'ë', "e\"", /* e dieresis */ ! 196: 'ë', "e:", /* e dieresis */ ! 197: 'ì', "i`", /* i grave */ ! 198: 'í', "i'", /* i acute */ ! 199: 'î', "i^", /* i circumflex */ ! 200: 'ï', "i\"", /* i dieresis */ ! 201: 'ï', "i:", /* i dieresis */ ! 202: 'ð', "d-", /* eth */ ! 203: 'ñ', "n~", /* n tilde */ ! 204: 'ò', "o`", /* o grave */ ! 205: 'ó', "o'", /* o acute */ ! 206: 'ô', "o^", /* o circumflex */ ! 207: 'õ', "o~", /* o tilde */ ! 208: 'ö', "o\"", /* o dieresis */ ! 209: 'ö', "o:", /* o dieresis */ ! 210: 'ö', "oe", /* o dieresis */ ! 211: '÷', "-:", /* divide sign */ ! 212: 'ø', "o/", /* o slash */ ! 213: 'ù', "u`", /* u grave */ ! 214: 'ú', "u'", /* u acute */ ! 215: 'û', "u^", /* u circumflex */ ! 216: 'ü', "u\"", /* u dieresis */ ! 217: 'ü', "u:", /* u dieresis */ ! 218: 'ü', "ue", /* u dieresis */ ! 219: 'ý', "y'", /* y acute */ ! 220: 'þ', "th", /* thorn */ ! 221: 'þ', "p|", /* thorn */ ! 222: 'ÿ', "y\"", /* y dieresis */ ! 223: 'ÿ', "y:", /* y dieresis */ ! 224: 0, 0, ! 225: }; ! 226: ! 227: enum ! 228: { ! 229: /* controller command byte */ ! 230: Cscs1= (1<<6), /* scan code set 1 */ ! 231: Cmousedis= (1<<5), /* mouse disable */ ! 232: Ckbddis= (1<<4), /* kbd disable */ ! 233: Csf= (1<<2), /* system flag */ ! 234: Cmouseint= (1<<1), /* mouse interrupt enable */ ! 235: Ckbdint= (1<<0), /* kbd interrupt enable */ ! 236: }; ! 237: ! 238: static uchar ccc; ! 239: ! 240: int ! 241: latin1(int k1, int k2) ! 242: { ! 243: struct latin *l; ! 244: ! 245: for(l=latintab; l->l; l++) ! 246: if(k1==l->c[0] && k2==l->c[1]) ! 247: return l->l; ! 248: return 0; ! 249: } ! 250: ! 251: /* ! 252: * wait for output no longer busy ! 253: */ ! 254: static int ! 255: outready(void) ! 256: { ! 257: int tries; ! 258: ! 259: for(tries = 0; (inb(Status) & Outbusy); tries++){ ! 260: if(tries > 500) ! 261: return -1; ! 262: delay(2); ! 263: } ! 264: return 0; ! 265: } ! 266: ! 267: /* ! 268: * wait for input ! 269: */ ! 270: static int ! 271: inready(void) ! 272: { ! 273: int tries; ! 274: ! 275: for(tries = 0; !(inb(Status) & Inready); tries++){ ! 276: if(tries > 500) ! 277: return -1; ! 278: delay(2); ! 279: } ! 280: return 0; ! 281: } ! 282: ! 283: /* ! 284: * ask 8042 to enable the use of address bit 20 ! 285: */ ! 286: void ! 287: i8042a20(void) ! 288: { ! 289: outready(); ! 290: outb(Cmd, 0xD1); ! 291: outready(); ! 292: outb(Data, 0xDF); ! 293: outready(); ! 294: } ! 295: ! 296: /* ! 297: * ask 8042 to reset the machine ! 298: */ ! 299: void ! 300: i8042reset(void) ! 301: { ! 302: ushort *s = (ushort*)(KZERO|0x472); ! 303: int i, x; ! 304: ! 305: *s = 0x1234; /* BIOS warm-boot flag */ ! 306: ! 307: outready(); ! 308: outb(Cmd, 0xFE); /* pulse reset line (means resend on AT&T machines) */ ! 309: outready(); ! 310: ! 311: /* ! 312: * Pulse it by hand (old somewhat reliable) ! 313: */ ! 314: x = 0xDF; ! 315: for(i = 0; i < 5; i++){ ! 316: x ^= 1; ! 317: outready(); ! 318: outb(Cmd, 0xD1); ! 319: outready(); ! 320: outb(Data, x); /* toggle reset */ ! 321: delay(100); ! 322: } ! 323: } ! 324: ! 325: /* ! 326: * keyboard interrupt ! 327: */ ! 328: int ! 329: kbdintr0(void) ! 330: { ! 331: int s, c; ! 332: static int esc1, esc2; ! 333: static int shift; ! 334: static int caps; ! 335: static int ctl; ! 336: static int num; ! 337: static int lstate, k1, k2; ! 338: int keyup; ! 339: ! 340: /* ! 341: * get status ! 342: */ ! 343: s = inb(Status); ! 344: if(!(s&Inready)) ! 345: return -1; ! 346: ! 347: /* ! 348: * get the character ! 349: */ ! 350: c = inb(Data); ! 351: ! 352: /* ! 353: * e0's is the first of a 2 character sequence ! 354: */ ! 355: if(c == 0xe0){ ! 356: esc1 = 1; ! 357: return 0; ! 358: } else if(c == 0xe1){ ! 359: esc2 = 2; ! 360: return 0; ! 361: } ! 362: ! 363: keyup = c&0x80; ! 364: c &= 0x7f; ! 365: if(c > sizeof kbtab){ ! 366: print("unknown key %ux\n", c|keyup); ! 367: kbdchar(k1); ! 368: return 0; ! 369: } ! 370: ! 371: if(esc1){ ! 372: c = kbtabesc1[c]; ! 373: esc1 = 0; ! 374: kbdchar(c); ! 375: return 0; ! 376: } else if(esc2){ ! 377: esc2--; ! 378: return 0; ! 379: } else if(shift) ! 380: c = kbtabshift[c]; ! 381: else ! 382: c = kbtab[c]; ! 383: ! 384: if(caps && c<='z' && c>='a') ! 385: c += 'A' - 'a'; ! 386: ! 387: /* ! 388: * keyup only important for shifts ! 389: */ ! 390: if(keyup){ ! 391: switch(c){ ! 392: case Shift: ! 393: shift = 0; ! 394: break; ! 395: case Ctrl: ! 396: ctl = 0; ! 397: break; ! 398: } ! 399: return 0; ! 400: } ! 401: ! 402: /* ! 403: * normal character ! 404: */ ! 405: if(!(c & Spec)){ ! 406: if(ctl) ! 407: c &= 0x1f; ! 408: switch(lstate){ ! 409: case 1: ! 410: k1 = c; ! 411: lstate = 2; ! 412: return 0; ! 413: case 2: ! 414: k2 = c; ! 415: lstate = 0; ! 416: c = latin1(k1, k2); ! 417: if(c == 0){ ! 418: kbdchar(k1); ! 419: c = k2; ! 420: } ! 421: /* fall through */ ! 422: default: ! 423: break; ! 424: } ! 425: } else { ! 426: switch(c){ ! 427: case Caps: ! 428: caps ^= 1; ! 429: return 0; ! 430: case Num: ! 431: num ^= 1; ! 432: return 0; ! 433: case Shift: ! 434: shift = 1; ! 435: return 0; ! 436: case Latin: ! 437: lstate = 1; ! 438: return 0; ! 439: case Ctrl: ! 440: ctl = 1; ! 441: return 0; ! 442: } ! 443: } ! 444: kbdchar(c); ! 445: return 0; ! 446: } ! 447: ! 448: static void ! 449: kbdintr(Ureg*, void*) ! 450: { ! 451: while(kbdintr0() == 0) ! 452: ; ! 453: } ! 454: ! 455: void ! 456: kbdinit(void) ! 457: { ! 458: int c; ! 459: ! 460: /* wait for a quiescent controller */ ! 461: while((c = inb(Status)) & (Outbusy | Inready)) ! 462: if(c & Inready) ! 463: inb(Data); ! 464: ! 465: /* get current controller command byte */ ! 466: outb(Cmd, 0x20); ! 467: if(inready() < 0){ ! 468: print("kbdinit: can't read ccc\n"); ! 469: ccc = 0; ! 470: } else ! 471: ccc = inb(Data); ! 472: ! 473: /* enable kbd xfers and interrupts */ ! 474: ccc &= ~Ckbddis; ! 475: ccc |= Csf | Ckbdint | Cscs1; ! 476: if(outready() < 0) ! 477: print("kbd init failed\n"); ! 478: outb(Cmd, 0x60); ! 479: if(outready() < 0) ! 480: print("kbd init failed\n"); ! 481: outb(Data, ccc); ! 482: if(outready() < 0) ! 483: print("kbd init failed\n"); ! 484: ! 485: setvec(Kbdvec, kbdintr, 0); ! 486: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.