1 /*********************************************************************** 2 * 3 * (C) Copyright 2004 4 * DENX Software Engineering 5 * Wolfgang Denk, wd@denx.de 6 * All rights reserved. 7 * 8 * Keyboard driver 9 * 10 ***********************************************************************/ 11 12 #include <common.h> 13 14 #ifdef CONFIG_PS2KBD 15 16 #include <devices.h> 17 #include <keyboard.h> 18 19 #undef KBG_DEBUG 20 21 #ifdef KBG_DEBUG 22 #define PRINTF(fmt,args...) printf (fmt ,##args) 23 #else 24 #define PRINTF(fmt,args...) 25 #endif 26 27 28 #define DEVNAME "kbd" 29 30 #define LED_SCR 0x01 /* scroll lock led */ 31 #define LED_CAP 0x04 /* caps lock led */ 32 #define LED_NUM 0x02 /* num lock led */ 33 34 #define KBD_BUFFER_LEN 0x20 /* size of the keyboardbuffer */ 35 36 #if defined(CONFIG_MPC5xxx) || defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555) 37 int ps2ser_check(void); 38 #endif 39 40 static volatile char kbd_buffer[KBD_BUFFER_LEN]; 41 static volatile int in_pointer = 0; 42 static volatile int out_pointer = 0; 43 44 static unsigned char leds = 0; 45 static unsigned char num_lock = 0; 46 static unsigned char caps_lock = 0; 47 static unsigned char scroll_lock = 0; 48 static unsigned char shift = 0; 49 static unsigned char ctrl = 0; 50 static unsigned char alt = 0; 51 static unsigned char e0 = 0; 52 53 /****************************************************************** 54 * Queue handling 55 ******************************************************************/ 56 57 /* puts character in the queue and sets up the in and out pointer */ 58 static void kbd_put_queue(char data) 59 { 60 if((in_pointer+1)==KBD_BUFFER_LEN) { 61 if(out_pointer==0) { 62 return; /* buffer full */ 63 } else{ 64 in_pointer=0; 65 } 66 } else { 67 if((in_pointer+1)==out_pointer) 68 return; /* buffer full */ 69 in_pointer++; 70 } 71 kbd_buffer[in_pointer]=data; 72 return; 73 } 74 75 /* test if a character is in the queue */ 76 static int kbd_testc(void) 77 { 78 #if defined(CONFIG_MPC5xxx) || defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555) 79 /* no ISR is used, so received chars must be polled */ 80 ps2ser_check(); 81 #endif 82 if(in_pointer==out_pointer) 83 return(0); /* no data */ 84 else 85 return(1); 86 } 87 88 /* gets the character from the queue */ 89 static int kbd_getc(void) 90 { 91 char c; 92 while(in_pointer==out_pointer) { 93 #if defined(CONFIG_MPC5xxx) || defined(CONFIG_MPC8540) || defined(CONFIG_MPC8541) || defined(CONFIG_MPC8555) 94 /* no ISR is used, so received chars must be polled */ 95 ps2ser_check(); 96 #endif 97 ;} 98 if((out_pointer+1)==KBD_BUFFER_LEN) 99 out_pointer=0; 100 else 101 out_pointer++; 102 c=kbd_buffer[out_pointer]; 103 return (int)c; 104 105 } 106 107 /* Simple translation table for the keys */ 108 109 static unsigned char kbd_plain_xlate[] = { 110 0xff,0x1b, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=','\b','\t', /* 0x00 - 0x0f */ 111 'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']','\r',0xff, 'a', 's', /* 0x10 - 0x1f */ 112 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';','\'', '`',0xff,'\\', 'z', 'x', 'c', 'v', /* 0x20 - 0x2f */ 113 'b', 'n', 'm', ',', '.', '/',0xff,0xff,0xff, ' ',0xff,0xff,0xff,0xff,0xff,0xff, /* 0x30 - 0x3f */ 114 0xff,0xff,0xff,0xff,0xff,0xff,0xff, '7', '8', '9', '-', '4', '5', '6', '+', '1', /* 0x40 - 0x4f */ 115 '2', '3', '0', '.',0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff, /* 0x50 - 0x5F */ 116 '\r',0xff,0xff 117 }; 118 119 static unsigned char kbd_shift_xlate[] = { 120 0xff,0x1b, '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '_', '+','\b','\t', /* 0x00 - 0x0f */ 121 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', '{', '}','\r',0xff, 'A', 'S', /* 0x10 - 0x1f */ 122 'D', 'F', 'G', 'H', 'J', 'K', 'L', ':', '"', '~',0xff, '|', 'Z', 'X', 'C', 'V', /* 0x20 - 0x2f */ 123 'B', 'N', 'M', '<', '>', '?',0xff,0xff,0xff, ' ',0xff,0xff,0xff,0xff,0xff,0xff, /* 0x30 - 0x3f */ 124 0xff,0xff,0xff,0xff,0xff,0xff,0xff, '7', '8', '9', '-', '4', '5', '6', '+', '1', /* 0x40 - 0x4f */ 125 '2', '3', '0', '.',0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff, /* 0x50 - 0x5F */ 126 '\r',0xff,0xff 127 }; 128 129 static unsigned char kbd_ctrl_xlate[] = { 130 0xff,0x1b, '1',0x00, '3', '4', '5',0x1E, '7', '8', '9', '0',0x1F, '=','\b','\t', /* 0x00 - 0x0f */ 131 0x11,0x17,0x05,0x12,0x14,0x18,0x15,0x09,0x0f,0x10,0x1b,0x1d,'\n',0xff,0x01,0x13, /* 0x10 - 0x1f */ 132 0x04,0x06,0x08,0x09,0x0a,0x0b,0x0c, ';','\'', '~',0x00,0x1c,0x1a,0x18,0x03,0x16, /* 0x20 - 0x2f */ 133 0x02,0x0e,0x0d, '<', '>', '?',0xff,0xff,0xff,0x00,0xff,0xff,0xff,0xff,0xff,0xff, /* 0x30 - 0x3f */ 134 0xff,0xff,0xff,0xff,0xff,0xff,0xff, '7', '8', '9', '-', '4', '5', '6', '+', '1', /* 0x40 - 0x4f */ 135 '2', '3', '0', '.',0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff, /* 0x50 - 0x5F */ 136 '\r',0xff,0xff 137 }; 138 139 140 void handle_scancode(unsigned char scancode) 141 { 142 unsigned char keycode; 143 144 /* Convert scancode to keycode */ 145 PRINTF("scancode %x\n",scancode); 146 if(scancode==0xe0) { 147 e0=1; /* special charakters */ 148 return; 149 } 150 if(e0==1) { 151 e0=0; /* delete flag */ 152 if(!( ((scancode&0x7F)==0x38)|| /* the right ctrl key */ 153 ((scancode&0x7F)==0x1D)|| /* the right alt key */ 154 ((scancode&0x7F)==0x35)|| /* the right '/' key */ 155 ((scancode&0x7F)==0x1C) )) /* the right enter key */ 156 /* we swallow unknown e0 codes */ 157 return; 158 } 159 /* special cntrl keys */ 160 switch(scancode) { 161 case 0x2A: 162 case 0x36: /* shift pressed */ 163 shift=1; 164 return; /* do nothing else */ 165 case 0xAA: 166 case 0xB6: /* shift released */ 167 shift=0; 168 return; /* do nothing else */ 169 case 0x38: /* alt pressed */ 170 alt=1; 171 return; /* do nothing else */ 172 case 0xB8: /* alt released */ 173 alt=0; 174 return; /* do nothing else */ 175 case 0x1d: /* ctrl pressed */ 176 ctrl=1; 177 return; /* do nothing else */ 178 case 0x9d: /* ctrl released */ 179 ctrl=0; 180 return; /* do nothing else */ 181 case 0x46: /* scrollock pressed */ 182 scroll_lock=~scroll_lock; 183 if(scroll_lock==0) 184 leds&=~LED_SCR; /* switch LED off */ 185 else 186 leds|=LED_SCR; /* switch on LED */ 187 pckbd_leds(leds); 188 return; /* do nothing else */ 189 case 0x3A: /* capslock pressed */ 190 caps_lock=~caps_lock; 191 if(caps_lock==0) 192 leds&=~LED_CAP; /* switch caps_lock off */ 193 else 194 leds|=LED_CAP; /* switch on LED */ 195 pckbd_leds(leds); 196 return; 197 case 0x45: /* numlock pressed */ 198 num_lock=~num_lock; 199 if(num_lock==0) 200 leds&=~LED_NUM; /* switch LED off */ 201 else 202 leds|=LED_NUM; /* switch on LED */ 203 pckbd_leds(leds); 204 return; 205 case 0xC6: /* scroll lock released */ 206 case 0xC5: /* num lock released */ 207 case 0xBA: /* caps lock released */ 208 return; /* just swallow */ 209 } 210 #if 1 211 if((scancode&0x80)==0x80) /* key released */ 212 return; 213 #else 214 if((scancode&0x80)==0x00) /* key pressed */ 215 return; 216 scancode &= ~0x80; 217 #endif 218 /* now, decide which table we need */ 219 if(scancode > (sizeof(kbd_plain_xlate)/sizeof(kbd_plain_xlate[0]))) { /* scancode not in list */ 220 PRINTF("unkown scancode %X\n",scancode); 221 return; /* swallow it */ 222 } 223 /* setup plain code first */ 224 keycode=kbd_plain_xlate[scancode]; 225 if(caps_lock==1) { /* caps_lock is pressed, overwrite plain code */ 226 if(scancode > (sizeof(kbd_shift_xlate)/sizeof(kbd_shift_xlate[0]))) { /* scancode not in list */ 227 PRINTF("unkown caps-locked scancode %X\n",scancode); 228 return; /* swallow it */ 229 } 230 keycode=kbd_shift_xlate[scancode]; 231 if(keycode<'A') { /* we only want the alphas capital */ 232 keycode=kbd_plain_xlate[scancode]; 233 } 234 } 235 if(shift==1) { /* shift overwrites caps_lock */ 236 if(scancode > (sizeof(kbd_shift_xlate)/sizeof(kbd_shift_xlate[0]))) { /* scancode not in list */ 237 PRINTF("unkown shifted scancode %X\n",scancode); 238 return; /* swallow it */ 239 } 240 keycode=kbd_shift_xlate[scancode]; 241 } 242 if(ctrl==1) { /* ctrl overwrites caps_lock and shift */ 243 if(scancode > (sizeof(kbd_ctrl_xlate)/sizeof(kbd_ctrl_xlate[0]))) { /* scancode not in list */ 244 PRINTF("unkown ctrl scancode %X\n",scancode); 245 return; /* swallow it */ 246 } 247 keycode=kbd_ctrl_xlate[scancode]; 248 } 249 /* check if valid keycode */ 250 if(keycode==0xff) { 251 PRINTF("unkown scancode %X\n",scancode); 252 return; /* swallow unknown codes */ 253 } 254 255 kbd_put_queue(keycode); 256 PRINTF("%x\n",keycode); 257 } 258 259 /****************************************************************** 260 * Init 261 ******************************************************************/ 262 263 #ifdef CFG_CONSOLE_OVERWRITE_ROUTINE 264 extern int overwrite_console (void); 265 #define OVERWRITE_CONSOLE overwrite_console () 266 #else 267 #define OVERWRITE_CONSOLE 0 268 #endif /* CFG_CONSOLE_OVERWRITE_ROUTINE */ 269 270 int kbd_init (void) 271 { 272 int error; 273 device_t kbddev ; 274 char *stdinname = getenv ("stdin"); 275 276 if(kbd_init_hw()==-1) 277 return -1; 278 memset (&kbddev, 0, sizeof(kbddev)); 279 strcpy(kbddev.name, DEVNAME); 280 kbddev.flags = DEV_FLAGS_INPUT | DEV_FLAGS_SYSTEM; 281 kbddev.putc = NULL ; 282 kbddev.puts = NULL ; 283 kbddev.getc = kbd_getc ; 284 kbddev.tstc = kbd_testc ; 285 286 error = device_register (&kbddev); 287 if(error==0) { 288 /* check if this is the standard input device */ 289 if(strcmp(stdinname,DEVNAME)==0) { 290 /* reassign the console */ 291 if(OVERWRITE_CONSOLE) { 292 return 1; 293 } 294 error=console_assign(stdin,DEVNAME); 295 if(error==0) 296 return 1; 297 else 298 return error; 299 } 300 return 1; 301 } 302 return error; 303 } 304 305 #endif /* CONFIG_PS2KBD */ 306