233 lines
11 KiB
C
233 lines
11 KiB
C
/* SOURCE: http://www.netbsd.org/docs/Hardware/Machines/DEC/lk201.html */
|
|
/* SOURCE: https://lkml.org/lkml/2004/3/16/160 */
|
|
/* https://vt100.net/docs/vt100-ug/chapter3.html */
|
|
|
|
/**********************************************************************/
|
|
|
|
/* requires LED number data */
|
|
#define LK_LED_ENABLE 0x13 /* light LED */
|
|
#define LK_LED_DISABLE 0x11 /* turn off LED */
|
|
|
|
#define LED_WAIT 0x81 /* Wait LED */
|
|
#define LED_COMP 0x82 /* Compose LED */
|
|
#define LED_LOCK 0x84 /* Lock LED */
|
|
#define LED_HOLD 0x88 /* Hold Screen LED */
|
|
#define LED_ALL 0x8F /* All LED's */
|
|
|
|
/**********************************************************************/
|
|
|
|
/* Requires volume data byte */
|
|
#define LK_CL_ENABLE 0x1B /* keyclick enable. Requires volume */
|
|
/* byte. This does not affect the */
|
|
/* SHIFT key. The CTRL key requires */
|
|
/* LK_CL_ENABLE and LK_CCL_ENABLE to */
|
|
/* have been sent before it clicks. */
|
|
/* All other keys are only controlled */
|
|
/* by LK_CL_ENABLE. */
|
|
|
|
#define LK_CCL_ENABLE 0xBB /* Enable keyclicks for the CTRL key. */
|
|
/* The CTRL keyclick volume is set to */
|
|
/* be the same as the rest of the keys */
|
|
/* LK_CCL_ENABLE sets a flag in the */
|
|
/* keyboard with is logically AND'ed */
|
|
/* with the LK_CL_ENABLE flag to enable*/
|
|
/* CTRL key keyclicks. */
|
|
|
|
#define LK_CL_DISABLE 0x99 /* keyclick disable */
|
|
#define LK_CCL_DISABLE 0xB9 /* CTRL key keyclick disable */
|
|
|
|
#define LK_SOUND_CLICK 0x9F /* causes the LK201 to sound a keyclick*/
|
|
|
|
/* max volume is 0, lowest is 0x7 */
|
|
#define LK_PARAM_VOLUME(v) (0x80|((v)&0x7))
|
|
|
|
/**********************************************************************/
|
|
|
|
/* requires bell volume data */
|
|
#define LK_BELL_ENABLE 0x23 /* enable the keyboard bell. Requires */
|
|
/* volume data byte. */
|
|
|
|
#define LK_BELL_DISABLE 0xA1 /* disable the keyboard bell. */
|
|
|
|
#define LK_RING_BELL 0xA7 /* ring the keyboard bell */
|
|
|
|
/* max volume is 0, lowest is 0x7 */
|
|
#define LK_PARAM_VOLUME(v) (0x80|((v)&0x7))
|
|
|
|
/**********************************************************************/
|
|
|
|
#define LK_UPDOWN 0x86
|
|
#define LK_AUTODOWN 0x82
|
|
#define LK_DOWN 0x80
|
|
|
|
#define LK_CMD_MODE(m,div) ((m)|((div)<<3))
|
|
|
|
#define LK_MODECHG_ACK 0xBA /* sent by the keyboard to acknowledge a */
|
|
/* successful mode change. */
|
|
|
|
|
|
#define LK_PFX_KEYDOWN 0xB9 /* indicates that the next byte is a key- */
|
|
/* code for a key already down in a */
|
|
/* division that has been changed to */
|
|
/* LK_UPDOWN. I think this means that if */
|
|
/* for example, the 'a' key is in LK_DOWN */
|
|
/* mode and the key is being held down and*/
|
|
/* division 1 is switched to LK_UPDOWN */
|
|
/* mode, the keyboard will produce the */
|
|
/* byte LK_PFX_KEYDOWN followed by 0xC2 */
|
|
/* (KEY_A). */
|
|
|
|
#define LK_CMD_RPT_TO_DOWN 0xD9 /* This command causes all divisions which */
|
|
/* are programmed for LK_AUTODOWN mode to */
|
|
/* be switched to LK_DOWN mode. */
|
|
|
|
|
|
#define LK_CMD_ENB_RPT 0xE3 /* enables auto repeat on the keys */
|
|
/* which are in LK_AUTODOWN mode */
|
|
|
|
#define LK_CMD_DIS_RPT 0xE1 /* disables auto repeat on all keys, but */
|
|
/* does not change the mode that the */
|
|
/* divisions are programmed to. */
|
|
|
|
#define LK_CMD_TMP_NORPT 0xD1 /* temporary auto repeat disable. This */
|
|
/* command disables auto repeat for the key*/
|
|
/* which is currently pressed down. Auto */
|
|
/* repeat is re-enabled when another key is*/
|
|
/* pressed. */
|
|
|
|
|
|
#define LK_OUTPUT_ERROR 0xb5
|
|
#define LK_INPUT_ERROR 0xB6 /* sent by the keyboard if it receives an */
|
|
/* invalid command. */
|
|
|
|
#define LK_NO_ERROR 0x00 /* No Error */
|
|
#define LK_KDOWN_ERROR 0x3D /* Key down on powerup error */
|
|
#define LK_POWER_ERROR 0x3E /* Keyboard failure on pwrup tst */
|
|
|
|
#define LK_ALLUP 0xB3
|
|
|
|
#define LK_ALL_KEYS_UP 0xb3
|
|
#define LK_METRONOME 0xb4
|
|
|
|
/**********************************************************************/
|
|
|
|
bool mod_shift = false;
|
|
bool mod_ctrl = false;
|
|
#define KB_CHAR_SHIFT(key_base, key_shift) ((mod_shift) ? (key_shift) : (key_base))
|
|
#define KB_CHAR_CTRL(key_base, key_ctrl) ((mod_ctrl) ? (key_ctrl) : (key_base))
|
|
#define KB_CHAR(key_base, key_shift) c = KB_CHAR_SHIFT(key_base, key_shift);
|
|
#define KB_CHARC(key_base, key_shift, key_ctrl) c = KB_CHAR_CTRL(KB_CHAR_SHIFT(key_base, key_shift), key_ctrl);
|
|
|
|
void keyboard_handle_key(int key)
|
|
{
|
|
int c = -1;
|
|
switch (key) {
|
|
/* Key Division 191-255 */
|
|
case 191: KB_CHAR('`', '~'); break; // (xbf): KEY_TILDE
|
|
case 192: KB_CHAR('1', '!'); break; // (xc0): KEY_TR_1
|
|
case 193: KB_CHAR('q', 'Q'); break; // (xc1): KEY_Q
|
|
case 194: KB_CHARC('a', 'A', '\x01'); break; // (xc2): KEY_A
|
|
case 195: KB_CHAR('z', 'Z'); break; // (xc3): KEY_Z
|
|
case 197: KB_CHAR('2', '@'); break; // (xc5): KEY_TR_2
|
|
case 198: KB_CHAR('w', 'W'); break; // (xc6): KEY_W
|
|
case 199: KB_CHAR('s', 'S'); break; // (xc7): KEY_S
|
|
case 200: KB_CHAR('x', 'X'); break; // (xc8): KEY_X
|
|
case 201: KB_CHAR('<', '>'); break; // (xc9): KEY_LANGLE_RANGLE
|
|
case 203: KB_CHAR('3', '#'); break; // (xcb): KEY_TR_3
|
|
case 204: KB_CHARC('e', 'E', '\x05'); break; // (xcc): KEY_E
|
|
case 205: KB_CHARC('d', 'D', '\x04'); break; // (xcd): KEY_D
|
|
case 206: KB_CHARC('c', 'C', '\x03'); break; // (xce): KEY_C
|
|
case 208: KB_CHAR('4', '$'); break; // (xd0): KEY_TR_4
|
|
case 209: KB_CHAR('r', 'R'); break; // (xd1): KEY_R
|
|
case 210: KB_CHARC('f', 'F', '\x06'); break; // (xd2): KEY_F
|
|
case 211: KB_CHAR('v', 'V'); break; // (xd3): KEY_V
|
|
case 212: KB_CHAR(' ', ' '); break; // (xd4): KEY_SPACE
|
|
case 214: KB_CHAR('5', '%'); break; // (xd6): KEY_TR_5
|
|
case 215: KB_CHAR('t', 'T'); break; // (xd7): KEY_T
|
|
case 216: KB_CHARC('g', 'G', '\x07'); break; // (xd8): KEY_G
|
|
case 217: KB_CHARC('b', 'B', '\x02'); break; // (xd9): KEY_B
|
|
case 219: KB_CHAR('6', '^'); break; // (xdb): KEY_TR_6
|
|
case 220: KB_CHAR('y', 'Y'); break; // (xdc): KEY_Y
|
|
case 221: KB_CHARC('h', 'H', '\x08'); break; // (xdd): KEY_H
|
|
case 222: KB_CHAR('n', 'N'); break; // (xde): KEY_N
|
|
case 224: KB_CHAR('7', '&'); break; // (xe0): KEY_TR_7
|
|
case 225: KB_CHAR('u', 'U'); break; // (xe1): KEY_U
|
|
case 226: KB_CHARC('j', 'J', '\x0A'); break; // (xe2): KEY_J
|
|
case 227: KB_CHAR('m', 'M'); break; // (xe3): KEY_M
|
|
case 229: KB_CHAR('8', '*'); break; // (xe5): KEY_TR_8
|
|
case 230: KB_CHARC('i', 'I', '\x09'); break; // (xe6): KEY_I
|
|
case 231: KB_CHARC('k', 'K', '\x0B'); break; // (xe7): KEY_K
|
|
case 232: KB_CHAR(',', '<'); break; // (xe8): KEY_COMMA
|
|
case 234: KB_CHAR('9', '('); break; // (xea): KEY_TR_9
|
|
case 235: KB_CHAR('o', 'O'); break; // (xeb): KEY_O
|
|
case 236: KB_CHARC('l', 'L', '\x0C'); break; // (xec): KEY_L
|
|
case 237: KB_CHAR('.', '>'); break; // (xed): KEY_PERIOD
|
|
case 239: KB_CHAR('0', ')'); break; // (xef): KEY_TR_0
|
|
case 240: KB_CHAR('p', 'P'); break; // (xf0): KEY_P
|
|
case 242: KB_CHAR(';', ':'); break; // (xf2): KEY_SEMICOLON
|
|
case 243: KB_CHAR('/', '?'); break; // (xf3): KEY_QMARK
|
|
case 245: KB_CHAR('=', '+'); break; // (xf5): KEY_PLUS
|
|
case 246: KB_CHAR(']', '}'); break; // (xf6): KEY_RBRACE
|
|
case 247: KB_CHAR('\\', '|'); break; // (xf7): KEY_VBAR
|
|
case 249: KB_CHAR('-', '_'); break; // (xf9): KEY_UBAR
|
|
case 250: KB_CHAR('[', '{'); break; // (xfa): KEY_LBRACE
|
|
case 251: KB_CHAR('\'', '"'); break; // (xfb): KEY_QUOTE
|
|
/* Key Division 2: 145 - 165 */
|
|
/*146 (x92): KEY_KP_0
|
|
148 (x94): KEY_KP_PERIOD
|
|
149 (x95): KEY_KP_ENTER
|
|
150 (x96): KEY_KP_1
|
|
151 (x97): KEY_KP_2
|
|
152 (x98): KEY_KP_3
|
|
153 (x99): KEY_KP_4
|
|
154 (x9a): KEY_KP_5
|
|
155 (x9b): KEY_KP_6
|
|
156 (x9c): KEY_KP_COMMA
|
|
157 (x9d): KEY_KP_7
|
|
158 (x9e): KEY_KP_8
|
|
159 (x9f): KEY_KP_9
|
|
160 (xa0): KEY_KP_HYPHEN
|
|
161 (xa1): KEY_KP_PF1
|
|
162 (xa2): KEY_KP_PF2
|
|
163 (xa3): KEY_KP_PF3
|
|
164 (xa4): KEY_KP_PF4*/
|
|
/* Key Division 3: 188 - 188 */
|
|
case 188: c = 0177; Serial.print("<DELETE>"); break; // (xbc): KEY_DELETE
|
|
/* Key Division 4: 189 - 190 */
|
|
case 189: c = '\n'; break; // (xbd): KEY_RETURN
|
|
case 190: c = '\t'; break; // (xbe): KEY_TAB
|
|
/* Key Division 5: (176 - 178) */
|
|
/*176 (xb0): KEY_LOCK
|
|
177 (xb1): KEY_META*/
|
|
/* Key Division 6: (173 - 175) */
|
|
case 174: mod_shift = !mod_shift; Serial.print("<SHIFT "); Serial.print(mod_shift); Serial.print(">"); break; // (xae): KEY_SHIFT
|
|
case 175: mod_ctrl = !mod_ctrl; Serial.print("<CTRL "); Serial.print(mod_ctrl); Serial.print(">"); break; // (xaf): KEY_CTRL*/
|
|
/* Key Division 7: (166 - 168) */
|
|
case 167: SerialTty.print("\033[D"); Serial.print("LEFT "); break; // (xa7): KEY_LEFT
|
|
case 168: SerialTty.print("\033[C"); Serial.print("RIGHT "); break; // (xa8): KEY_RIGHT
|
|
/* Key Division 8: (169 - 172) */
|
|
case 169: SerialTty.print("\033[B"); Serial.print("DOWN "); break; // (xa9): KEY_DOWN
|
|
case 170: SerialTty.print("\033[A"); Serial.print("UP "); break; // (xaa): KEY_UP
|
|
case 171: break; // (xab): KEY_R_SHIFT
|
|
case 100: Serial.print("<BELL ON> "); SerialKbd.print((char)LK_BELL_ENABLE); SerialKbd.print((char)LK_PARAM_VOLUME(0x7)); break;
|
|
case 101: Serial.print("<BELL OFF> "); SerialKbd.print((char)LK_BELL_DISABLE); break;
|
|
case 102: break; // F8
|
|
case 103: Serial.print("<LED ON WAIT> "); SerialKbd.print((char)LK_LED_ENABLE); SerialKbd.print((char)LED_WAIT); break;
|
|
case 104: Serial.print("<LED OFF WAIT> "); SerialKbd.print((char)LK_LED_DISABLE); SerialKbd.print((char)LED_WAIT); break;
|
|
case 86: SerialTty.print("\x1B"); Serial.print("<ESC> "); break;
|
|
|
|
case LK_INPUT_ERROR: Serial.print("<I-ERROR> "); break;
|
|
case LK_ALLUP:
|
|
mod_shift = false;
|
|
mod_ctrl = false;
|
|
Serial.print("<ALLUP>");
|
|
break;
|
|
default:
|
|
Serial.print(key); Serial.print(' ');
|
|
}
|
|
if (c != -1) {
|
|
Serial.print((char) c);
|
|
SerialTty.print((char) c);
|
|
}
|
|
}
|