2 Copyright 2019,2020 Jun Wako <wakojun@gmail.com>
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 2 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>.
29 #include "ibmpc_usb.h"
33 static void matrix_make(uint8_t code);
34 static void matrix_break(uint8_t code);
36 static int8_t process_cs1(uint8_t code);
37 static int8_t process_cs2(uint8_t code);
38 static int8_t process_cs3(uint8_t code);
41 static uint8_t matrix[MATRIX_ROWS];
42 #define ROW(code) ((code>>3)&0x0F)
43 #define COL(code) (code&0x07)
45 static int16_t read_wait(uint16_t wait_ms)
47 uint16_t start = timer_read();
49 while ((code = ibmpc_host_recv()) == -1 && timer_elapsed(start) < wait_ms);
53 static uint16_t read_keyboard_id(void)
59 //code = ibmpc_host_send(0xF5);
62 code = ibmpc_host_send(0xF2);
63 if (code == -1) { id = 0xFFFF; goto DONE; } // XT or No keyboard
64 if (code != 0xFA) { id = 0xFFFE; goto DONE; } // Broken PS/2?
66 // ID takes 500ms max TechRef [8] 4-41
67 code = read_wait(500);
68 if (code == -1) { id = 0x0000; goto DONE; } // AT
69 id = (code & 0xFF)<<8;
71 // Mouse responds with one-byte 00, this returns 00FF [y] p.14
72 code = read_wait(500);
77 //code = ibmpc_host_send(0xF4);
82 void hook_early_init(void)
88 void matrix_init(void)
92 // initialize matrix state: all keys off
93 for (uint8_t i=0; i < MATRIX_ROWS; i++) matrix[i] = 0x00;
99 * keyboard recognition
101 * 1. Send F2 to get keyboard ID
102 * a. no ACK(FA): XT keyobard
103 * b. ACK but no ID: 84-key AT keyboard CodeSet2
104 * c. ID is AB 83: PS/2 keyboard CodeSet2
105 * d. ID is BF BF: Terminal keyboard CodeSet3
106 * e. error on recv: maybe broken PS/2
108 uint8_t current_protocol = 0;
109 uint16_t keyboard_id = 0x0000;
110 keyboard_kind_t keyboard_kind = NONE;
111 uint8_t matrix_scan(void)
113 // scan code reading states
128 static uint16_t init_time;
132 xprintf("\nERR:%02X ISR:%04X ", ibmpc_error, ibmpc_isr_debug);
134 // when recv error, neither send error nor buffer full
135 if (!(ibmpc_error & (IBMPC_ERR_SEND | IBMPC_ERR_FULL))) {
136 // keyboard init again
143 // clear or process error
144 ibmpc_error = IBMPC_ERR_NONE;
148 // check protocol change AT/XT
149 if (ibmpc_protocol && ibmpc_protocol != current_protocol) {
150 xprintf("\nPRT:%02X ISR:%04X ", ibmpc_protocol, ibmpc_isr_debug);
152 // protocol change between AT and XT indicates that
153 // keyboard is hotswapped or something goes wrong.
154 // This requires initializing keyboard again probably.
155 if (((current_protocol&IBMPC_PROTOCOL_XT) && (ibmpc_protocol&IBMPC_PROTOCOL_AT)) ||
156 ((current_protocol&IBMPC_PROTOCOL_AT) && (ibmpc_protocol&IBMPC_PROTOCOL_XT))) {
163 current_protocol = ibmpc_protocol;
169 ibmpc_host_disable();
171 xprintf("I%u ", timer_read());
172 keyboard_kind = NONE;
173 keyboard_id = 0x0000;
178 init_time = timer_read();
182 // wait for keyboard to settle after plugin
183 if (timer_elapsed(init_time) > 1000) {
188 ibmpc_host_isr_clear();
190 wait_ms(1); // keyboard can't respond to command without this
192 // SKIDATA-2-DE(and some other keyboards?) stores 'Code Set' setting in nonvlatile memory
193 // and keeps it until receiving reset. Sending reset here may be useful to clear it, perhaps.
194 // https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-AT-Keyboard-Protocol#select-alternate-scan-codesf0
197 if (0xFA == ibmpc_host_send(0xFF)) {
202 xprintf("A%u ", timer_read());
205 // Reset XT-initialize keyboard
206 // XT: hard reset 500ms for IBM XT Type-1 keyboard and clones
207 // XT: soft reset 20ms min
208 // https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-XT-Keyboard-Protocol#keyboard-soft-reset
209 ibmpc_host_disable(); // soft reset: Clock Lo/Data Hi
210 IBMPC_RST_LO(); // hard reset: Reset pin Lo
212 init_time = timer_read();
213 state = XT_RESET_WAIT;
216 if (timer_elapsed(init_time) > 500) {
217 state = XT_RESET_DONE;
221 IBMPC_RST_HIZ(); // hard reset: Reset pin HiZ
222 ibmpc_host_isr_clear();
223 ibmpc_host_enable(); // soft reset: idle(Clock Hi/Data Hi)
225 xprintf("X%u ", timer_read());
226 init_time = timer_read();
230 // 1) Read BAT code and ID on keybaord power-up
231 // For example, XT/AT sends 'AA' and Terminal sends 'AA BF BF' after BAT
232 // AT 84-key: POR and BAT can take 900-9900ms according to AT TechRef [8] 4-7
233 // AT 101/102-key: POR and BAT can take 450-2500ms according to AT TechRef [8] 4-39
234 // 2) Read key typed by user or anything after error on protocol or scan code
235 // This can happen in case of keyboard hotswap, unstable hardware, signal integrity problem or bug
237 /* wait until keyboard sends any code without 10000ms timeout
238 if (timer_elapsed(init_time) > 10000) {
242 if (ibmpc_host_recv() != -1) { // wait for AA
243 xprintf("W%u ", timer_read());
244 init_time = timer_read();
249 // NOTE: we can omit to wait BF BF
250 // ID takes 500ms max? TechRef [8] 4-41, though 1ms is enough for 122-key Terminal 6110345
251 if (timer_elapsed(init_time) > 500) {
254 if (ibmpc_host_recv() != -1) { // wait for BF
255 xprintf("W%u ", timer_read());
256 init_time = timer_read();
261 if (timer_elapsed(init_time) > 500) {
264 if (ibmpc_host_recv() != -1) { // wait for BF
265 xprintf("W%u ", timer_read());
270 keyboard_id = read_keyboard_id();
271 xprintf("R%u ", timer_read());
273 if (0x0000 == keyboard_id) { // CodeSet2 AT(IBM PC AT 84-key)
274 keyboard_kind = PC_AT;
275 } else if (0xFFFF == keyboard_id) { // CodeSet1 XT
276 keyboard_kind = PC_XT;
277 } else if (0xFFFE == keyboard_id) { // CodeSet2 PS/2 fails to response?
278 keyboard_kind = PC_AT;
279 } else if (0x00FF == keyboard_id) { // Mouse is not supported
280 xprintf("Mouse: not supported\n");
281 keyboard_kind = NONE;
282 #ifdef G80_2551_SUPPORT
283 } else if (0xAB86 == keyboard_id ||
284 0xAB85 == keyboard_id) { // For G80-2551 and other 122-key terminal
285 // https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-AT-Keyboard-Protocol#ab86
286 // https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-AT-Keyboard-Protocol#ab85
288 if ((0xFA == ibmpc_host_send(0xF0)) &&
289 (0xFA == ibmpc_host_send(0x03))) {
290 // switch to code set 3
291 keyboard_kind = PC_TERMINAL;
293 keyboard_kind = PC_AT;
296 } else if (0xBFB0 == keyboard_id) { // IBM RT Keyboard
297 // https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-AT-Keyboard-Protocol#bfb0
298 // TODO: LED indicator fix
299 //keyboard_kind = PC_TERMINAL_IBM_RT;
300 keyboard_kind = PC_TERMINAL;
301 } else if (0xAB00 == (keyboard_id & 0xFF00)) { // CodeSet2 PS/2
302 keyboard_kind = PC_AT;
303 } else if (0xBF00 == (keyboard_id & 0xFF00)) { // CodeSet3 Terminal
304 keyboard_kind = PC_TERMINAL;
306 keyboard_kind = PC_AT;
309 xprintf("\nID:%04X(%d) ", keyboard_id, keyboard_kind);
314 xprintf("S%u ", timer_read());
315 switch (keyboard_kind) {
319 led_set(host_keyboard_leds());
322 // Set all keys to make/break type
323 ibmpc_host_send(0xF8);
324 // This should not be harmful
325 led_set(host_keyboard_leds());
331 xprintf("L%u ", timer_read());
334 uint16_t code = ibmpc_host_recv();
340 // Keyboard Error/Overrun([3]p.26) or Buffer full
341 // Scan Code Set 1: 0xFF
342 // Scan Code Set 2 and 3: 0x00
343 // Buffer full(IBMPC_ERR_FULL): 0xFF
344 if (code == 0x00 || code == 0xFF) {
353 switch (keyboard_kind) {
355 if (process_cs1(code) == -1) state = INIT;
358 if (process_cs2(code) == -1) state = INIT;
361 if (process_cs3(code) == -1) state = INIT;
375 bool matrix_is_on(uint8_t row, uint8_t col)
377 return (matrix[row] & (1<<col));
381 uint8_t matrix_get_row(uint8_t row)
386 uint8_t matrix_key_count(void)
389 for (uint8_t i = 0; i < MATRIX_ROWS; i++) {
390 count += bitpop(matrix[i]);
397 static void matrix_make(uint8_t code)
399 if (!matrix_is_on(ROW(code), COL(code))) {
400 matrix[ROW(code)] |= 1<<COL(code);
405 static void matrix_break(uint8_t code)
407 if (matrix_is_on(ROW(code), COL(code))) {
408 matrix[ROW(code)] &= ~(1<<COL(code));
412 void matrix_clear(void)
414 for (uint8_t i=0; i < MATRIX_ROWS; i++) matrix[i] = 0x00;
417 void led_set(uint8_t usb_led)
419 // Sending before keyboard recognition may be harmful for XT keyboard
420 if (keyboard_kind == NONE) return;
422 // XT keyobard doesn't support any command and it is harmful perhaps
423 // https://github.com/tmk/tmk_keyboard/issues/635#issuecomment-626993437
424 if (keyboard_kind == PC_XT) return;
426 // It should be safe to send the command to keyboards with AT protocol
427 // - IBM Terminal doesn't support the command and response with 0xFE but it is not harmful.
428 // - Some other Terminals like G80-2551 supports the command.
429 // https://geekhack.org/index.php?topic=103648.msg2894921#msg2894921
431 // TODO: PC_TERMINAL_IBM_RT support
432 uint8_t ibmpc_led = 0;
433 if (usb_led & (1<<USB_LED_SCROLL_LOCK))
434 ibmpc_led |= (1<<IBMPC_LED_SCROLL_LOCK);
435 if (usb_led & (1<<USB_LED_NUM_LOCK))
436 ibmpc_led |= (1<<IBMPC_LED_NUM_LOCK);
437 if (usb_led & (1<<USB_LED_CAPS_LOCK))
438 ibmpc_led |= (1<<IBMPC_LED_CAPS_LOCK);
439 ibmpc_host_set_led(ibmpc_led);
443 /*******************************************************************************
444 * XT: Scan Code Set 1
448 * E0-escaped scan codes are translated into unused range of the matrix.(54-7F)
450 * 01-53: Normal codes used in original XT keyboard
451 * 54-7F: Not used in original XT keyboard
453 * 0 1 2 3 4 5 6 7 8 9 A B C D E F
454 * 50 - - - - * * x x x x * * * * * *
455 * 60 * * * * x x x x x x x x x x x *
456 * 70 x * * x * * x * * x * x * x x *
458 * -: codes existed in original XT keyboard
459 * *: E0-escaped codes translated
460 * x: Non-espcaped codes(Some are not used in real keyboards probably)
462 * Codes assigned in range 54-7F:
464 * 50 - 60 Up* 70 KANAx
465 * 51 - 61 Left* 71 Insert*
466 * 52 - 62 Down* 72 Delete*
467 * 53 - 63 Right* 73 ROx
468 * 54 PrintScr* 64 F13x 74 Home*
469 * 55 Pause* 65 F14x 75 End*
470 * 56 Euro2x 66 F15x 76 F24x
471 * 57 F11x 67 F16x 77 PageUp*
472 * 58 F12x 68 F17x 78 PageDown*
473 * 59 Keypad=x 69 F18x 79 HENKANx
474 * 5A LGUI* 6A F19x 7A RCTL*
475 * 5B RGUI* 6B F20x 7B MUHENKANx
476 * 5C APP* 6C F21x 7C RALT*
477 * 5D Mute* 6D F22x 7D JPYx
478 * 5E Volume Down* 6E F23x 7E Keypad,x
479 * 5F Volume Up* 6F Keypad Enter* 7F Keypad/ *
481 static uint8_t cs1_e0code(uint8_t code) {
483 // Original IBM XT keyboard doesn't use E0-codes probably
484 // Some XT compatilble keyobards need these keys?
485 case 0x37: return 0x54; // Print Screen
486 case 0x46: return 0x55; // Ctrl + Pause
487 case 0x5B: return 0x5A; // Left GUI
488 case 0x5C: return 0x5B; // Right GUI
489 case 0x5D: return 0x5C; // Application
490 case 0x20: return 0x5D; // Mute
491 case 0x2E: return 0x5E; // Volume Down
492 case 0x30: return 0x5F; // Volume Up
493 case 0x48: return 0x60; // Up
494 case 0x4B: return 0x61; // Left
495 case 0x50: return 0x62; // Down
496 case 0x4D: return 0x63; // Right
497 case 0x1C: return 0x6F; // Keypad Enter
498 case 0x52: return 0x71; // Insert
499 case 0x53: return 0x72; // Delete
500 case 0x47: return 0x74; // Home
501 case 0x4F: return 0x75; // End
502 case 0x49: return 0x77; // Page Up
503 case 0x51: return 0x78; // Page Down
504 case 0x1D: return 0x7A; // Right Ctrl
505 case 0x38: return 0x7C; // Right Alt
506 case 0x35: return 0x7F; // Keypad /
508 // Shared matrix cell with other keys
509 case 0x5E: return 0x70; // Power (KANA)
510 case 0x5F: return 0x79; // Sleep (HENKAN)
511 case 0x63: return 0x7B; // Wake (MUHENKAN)
514 xprintf("!CS1_E0_%02X!\n", code);
520 static int8_t process_cs1(uint8_t code)
525 // Pause: E1 1D 45, E1 9D C5 [a]
544 matrix_break(code & 0x7F);
559 matrix_make(cs1_e0code(code));
561 matrix_break(cs1_e0code(code & 0x7F));
582 matrix_make(0x55); // Pause
593 matrix_break(0x55); // Pause
608 /*******************************************************************************
609 * AT, PS/2: Scan Code Set 2
611 * Exceptional Handling
612 * --------------------
613 * Some keys should be handled exceptionally. See [b].
615 * Scan codes are varied or prefix/postfix'd depending on modifier key state.
617 * 1) Insert, Delete, Home, End, PageUp, PageDown, Up, Down, Right, Left
618 * a) when Num Lock is off
619 * modifiers | make | break
620 * ----------+---------------------------+----------------------
621 * Ohter | <make> | <break>
622 * LShift | E0 F0 12 <make> | <break> E0 12
623 * RShift | E0 F0 59 <make> | <break> E0 59
624 * L+RShift | E0 F0 12 E0 F0 59 <make> | <break> E0 59 E0 12
626 * b) when Num Lock is on
627 * modifiers | make | break
628 * ----------+---------------------------+----------------------
629 * Other | E0 12 <make> | <break> E0 F0 12
630 * Shift'd | <make> | <break>
632 * Handling: These prefix/postfix codes are ignored.
636 * modifiers | make | break
637 * ----------+---------------------------+----------------------
638 * Ohter | <make> | <break>
639 * LShift | E0 F0 12 <make> | <break> E0 12
640 * RShift | E0 F0 59 <make> | <break> E0 59
641 * L+RShift | E0 F0 12 E0 F0 59 <make> | <break> E0 59 E0 12
643 * Handling: These prefix/postfix codes are ignored.
647 * modifiers | make | break
648 * ----------+--------------+-----------------------------------
649 * Other | E0 12 E0 7C | E0 F0 7C E0 F0 12
650 * Shift'd | E0 7C | E0 F0 7C
651 * Control'd | E0 7C | E0 F0 7C
654 * Handling: These prefix/postfix codes are ignored, and both scan codes
655 * 'E0 7C' and 84 are seen as PrintScreen.
658 * modifiers | make(no break code)
659 * ----------+--------------------------------------------------
660 * Other | E1 14 77 E1 F0 14 F0 77
661 * Control'd | E0 7E E0 F0 7E
663 * Handling: Both code sequences are treated as a whole.
664 * And we need a ad hoc 'pseudo break code' hack to get the key off
665 * because it has no break code.
668 * 'Hanguel/English'(F1) and 'Hanja'(F2) have no break code. See [a].
669 * These two Korean keys need exceptional handling and are not supported for now.
672 static uint8_t cs2_e0code(uint8_t code) {
674 // E0 prefixed codes translation See [a].
675 case 0x11: return 0x0F; // right alt
676 case 0x14: return 0x17; // right control
677 case 0x1F: return 0x19; // left GUI
678 case 0x27: return 0x1F; // right GUI
679 case 0x2F: return 0x5C; // apps
680 case 0x4A: return 0x60; // keypad /
681 case 0x5A: return 0x62; // keypad enter
682 case 0x69: return 0x27; // end
683 case 0x6B: return 0x53; // cursor left
684 case 0x6C: return 0x2F; // home
685 case 0x70: return 0x39; // insert
686 case 0x71: return 0x37; // delete
687 case 0x72: return 0x3F; // cursor down
688 case 0x74: return 0x47; // cursor right
689 case 0x75: return 0x4F; // cursor up
690 case 0x7A: return 0x56; // page down
691 case 0x7D: return 0x5E; // page up
692 case 0x7C: return 0x7F; // Print Screen
693 case 0x7E: return 0x00; // Control'd Pause
695 case 0x21: return 0x65; // volume down
696 case 0x32: return 0x6E; // volume up
697 case 0x23: return 0x6F; // mute
698 case 0x10: return 0x08; // (WWW search) -> F13
699 case 0x18: return 0x10; // (WWW favourites) -> F14
700 case 0x20: return 0x18; // (WWW refresh) -> F15
701 case 0x28: return 0x20; // (WWW stop) -> F16
702 case 0x30: return 0x28; // (WWW forward) -> F17
703 case 0x38: return 0x30; // (WWW back) -> F18
704 case 0x3A: return 0x38; // (WWW home) -> F19
705 case 0x40: return 0x40; // (my computer) -> F20
706 case 0x48: return 0x48; // (email) -> F21
707 case 0x2B: return 0x50; // (calculator) -> F22
708 case 0x34: return 0x08; // (play/pause) -> F13
709 case 0x3B: return 0x10; // (stop) -> F14
710 case 0x15: return 0x18; // (previous track) -> F15
711 case 0x4D: return 0x20; // (next track) -> F16
712 case 0x50: return 0x28; // (media select) -> F17
713 case 0x5E: return 0x50; // (ACPI wake) -> F22
714 case 0x3F: return 0x57; // (ACPI sleep) -> F23
715 case 0x37: return 0x5F; // (ACPI power) -> F24
717 // https://github.com/tmk/tmk_keyboard/pull/636
718 case 0x03: return 0x18; // Help DEC LK411 -> F15
719 case 0x04: return 0x08; // F13 DEC LK411
720 case 0x0B: return 0x20; // Do DEC LK411 -> F16
721 case 0x0C: return 0x10; // F14 DEC LK411
722 case 0x0D: return 0x19; // LCompose DEC LK411 -> LGUI
723 case 0x79: return 0x6D; // KP- DEC LK411 -> PCMM
724 case 0x83: return 0x28; // F17 DEC LK411
725 default: return (code & 0x7F);
729 static int8_t process_cs2(uint8_t code)
731 // scan code reading states
761 case 0x84: // Alt'd PrintScreen
765 case 0xAA: // Self-test passed
766 case 0xFC: // Self-test failed
767 // replug or unstable connection probably
768 default: // normal key make
774 xprintf("!CS2_INIT!\n");
779 case E0: // E0-Prefixed
781 case 0x12: // to be ignored
782 case 0x59: // to be ignored
791 matrix_make(cs2_e0code(code));
794 xprintf("!CS2_E0!\n");
799 case F0: // Break code
805 case 0x84: // Alt'd PrintScreen
815 xprintf("!CS2_F0!\n");
820 case E0_F0: // Break code of E0-prefixed
822 case 0x12: // to be ignored
823 case 0x59: // to be ignored
829 matrix_break(cs2_e0code(code));
832 xprintf("!CS2_E0_F0!\n");
837 // Pause make: E1 14 77
860 // Pause break: E1 F0 14 F0 77
896 * Terminal: Scan Code Set 3
899 * https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-AT-Keyboard-Protocol#scan-code-set-3
901 static int8_t process_cs3(uint8_t code)
906 #ifdef G80_2551_SUPPORT
907 // G80-2551 four extra keys around cursor keys
919 case 0x83: // PrintScreen
922 case 0x84: // Keypad *
925 case 0x85: // Muhenkan
931 case 0x87: // Hiragana
934 case 0x8B: // Left GUI
937 case 0x8C: // Right GUI
940 case 0x8D: // Application
943 #ifdef G80_2551_SUPPORT
944 case 0x80: // G80-2551 four extra keys around cursor keys
948 default: // normal key make
952 xprintf("!CS3_READY!\n");
957 case F0: // Break code
959 case 0x83: // PrintScreen
963 case 0x84: // Keypad *
967 case 0x85: // Muhenkan
975 case 0x87: // Hiragana
979 case 0x8B: // Left GUI
983 case 0x8C: // Right GUI
987 case 0x8D: // Application
996 xprintf("!CS3_F0!\n");
1001 #ifdef G80_2551_SUPPORT
1003 * G80-2551 terminal keyboard support
1004 * https://deskthority.net/wiki/Cherry_G80-2551
1005 * https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-AT-Keyboard-Protocol#g80-2551-in-code-set-3
1007 case G80: // G80-2551 four extra keys around cursor keys
1009 case (0x26): // TD= -> JYEN
1012 case (0x25): // page with edge -> NUHS
1015 case (0x16): // two pages -> RO
1018 case (0x1E): // calc -> KANA
1033 case (0x26): // TD= -> JYEN
1036 case (0x25): // page with edge -> NUHS
1039 case (0x16): // two pages -> RO
1042 case (0x1E): // calc -> KANA
1058 * IBM PC Keyboard Protocol Resources:
1060 * [a] Microsoft USB HID to PS/2 Translation Table - Scan Code Set 1 and 2
1061 * http://download.microsoft.com/download/1/6/1/161ba512-40e2-4cc9-843a-923143f3456c/translate.pdf
1063 * [b] Microsoft Keyboard Scan Code Specification - Special rules of Scan Code Set 1 and 2
1064 * http://download.microsoft.com/download/1/6/1/161ba512-40e2-4cc9-843a-923143f3456c/scancode.doc
1066 * [1] PS/2 Reference Manuals - Collection of IBM Personal System/2 documents.
1067 * http://www.mcamafia.de/pdf/pdfref.htm
1069 * [2] Keyboard and Auxiliary Device Controller - Signal Timing and Format
1070 * http://www.mcamafia.de/pdf/ibm_hitrc07.pdf
1072 * [3] Keyboards(101- and 102-key) - Keyboard Layout, Scan Code Set, POR, and Commands.
1073 * http://www.mcamafia.de/pdf/ibm_hitrc11.pdf
1075 * [4] IBM PC XT Keyboard Protocol
1076 * https://github.com/tmk/tmk_keyboard/wiki/IBM-PC-XT-Keyboard-Protocol
1078 * [5] IBM Keyboard Scan Code by John Elliott - 83-key, 84-key, 102-key and 122-key
1079 * https://www.seasip.info/VintagePC/index.html
1081 * [6] IBM 1391406 Keyboard - Scan Code Set 2 of 102-key PS/2 keyboard
1082 * https://www.seasip.info/VintagePC/ibm_1391406.html
1084 * [7] The IBM 6110344 Keyboard - Scan Code Set 3 of 122-key terminal keyboard
1085 * https://www.seasip.info/VintagePC/ibm_6110344.html
1087 * [8] IBM PC AT Technical Reference 1986
1088 * http://bitsavers.org/pdf/ibm/pc/at/6183355_PC_AT_Technical_Reference_Mar86.pdf
1090 * [y] TrackPoint Engineering Specifications for version 3E
1091 * https://web.archive.org/web/20100526161812/http://wwwcssrv.almaden.ibm.com/trackpoint/download.html
1093 * [z] [Soarer's XT/AT/PS2/Terminal to USB converter]
1094 * https://geekhack.org/index.php?topic=17458.0