1 /* $NetBSD: lk201_ws.c,v 1.9 2015/01/02 21:32:26 jklos Exp $ */ 2 3 /* 4 * Copyright (c) 1998 5 * Matthias Drochner. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 17 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 18 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 19 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 20 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 21 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 22 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 23 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 24 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 25 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 * 27 */ 28 29 #include <sys/cdefs.h> 30 __KERNEL_RCSID(0, "$NetBSD: lk201_ws.c,v 1.9 2015/01/02 21:32:26 jklos Exp $"); 31 32 #include <sys/param.h> 33 #include <sys/systm.h> 34 #include <sys/callout.h> 35 36 #include <dev/wscons/wsconsio.h> 37 38 #include <dev/dec/lk201reg.h> 39 #include <dev/dec/lk201var.h> 40 #include <dev/dec/wskbdmap_lk201.h> /* for {MIN,MAX}_LK201_KEY */ 41 42 #define send(lks, c) ((*((lks)->attmt.sendchar))((lks)->attmt.cookie, c)) 43 44 void lk201_identify(void *); 45 46 static callout_t lkkbd_id; 47 48 static const char *lkkbd_descr[] = { 49 "no keyboard", 50 "LK-201 keyboard", 51 "LK-401 keyboard", 52 }; 53 54 int 55 lk201_init(struct lk201_state *lks) 56 { 57 int i; 58 59 lks->waitack = 0; 60 61 send(lks, LK_LED_ENABLE); 62 send(lks, LK_LED_ALL); 63 64 /* 65 * set all keys to updown mode; autorepeat is 66 * done by wskbd software 67 */ 68 for (i = 1; i <= 14; i++) 69 send(lks, LK_CMD_MODE(LK_UPDOWN, i)); 70 71 send(lks, LK_CL_ENABLE); 72 send(lks, LK_PARAM_VOLUME(3)); 73 lks->kcvol = (8 - 3) * 100 / 8; 74 75 lks->bellvol = -1; /* not yet set */ 76 77 for (i = 0; i < LK_KLL; i++) 78 lks->down_keys_list[i] = -1; 79 send(lks, LK_KBD_ENABLE); 80 81 send(lks, LK_LED_DISABLE); 82 send(lks, LK_LED_ALL); 83 lks->leds_state = 0; 84 85 callout_init(&lkkbd_id, 0); 86 callout_setfunc(&lkkbd_id, lk201_identify, lks); 87 callout_schedule(&lkkbd_id, 0); 88 89 return (0); 90 } 91 92 void 93 lk201_identify(void *v) 94 { 95 struct lk201_state *lks = v; 96 int i; 97 98 callout_destroy(&lkkbd_id); 99 /* 100 * Swallow all the keyboard acknowledges from lk201_init(). 101 * There should be 14 of them - one per LK_CMD_MODE command. 102 */ 103 for(;;) { 104 lks->waitack = 1; 105 for (i = 100; i != 0; i--) { 106 DELAY(1000); 107 if (lks->waitack == 0) 108 break; 109 } 110 if (i == 0) 111 break; 112 } 113 114 /* 115 * Try to set the keyboard in LK-401 mode. 116 * If we receive an error, this is an LK-201 keyboard. 117 */ 118 lks->waitack = 1; 119 send(lks, LK_ENABLE_401); 120 for (i = 100; i != 0; i--) { 121 DELAY(1000); 122 if (lks->waitack == 0) 123 break; 124 } 125 if (lks->waitack != 0) 126 lks->kbdtype = KBD_NONE; 127 else { 128 if (lks->ackdata == LK_INPUT_ERROR) 129 lks->kbdtype = KBD_LK201; 130 else 131 lks->kbdtype = KBD_LK401; 132 } 133 lks->waitack = 0; 134 135 printf("lkkbd0: %s\n", lkkbd_descr[lks->kbdtype]); 136 } 137 138 int 139 lk201_decode(struct lk201_state *lks, int wantmulti, int datain, u_int *type, int *dataout) 140 { 141 int i, freeslot; 142 143 if (lks->waitack != 0) { 144 lks->ackdata = datain; 145 lks->waitack = 0; 146 return LKD_NODATA; 147 } 148 149 switch (datain) { 150 #if 0 151 case LK_KEY_UP: 152 for (i = 0; i < LK_KLL; i++) 153 lks->down_keys_list[i] = -1; 154 *type = WSCONS_EVENT_ALL_KEYS_UP; 155 return (1); 156 #endif 157 case LK_POWER_UP: 158 printf("lk201_decode: powerup detected\n"); 159 lk201_init(lks); 160 return (0); 161 case LK_KDOWN_ERROR: 162 case LK_POWER_ERROR: 163 case LK_OUTPUT_ERROR: 164 case LK_INPUT_ERROR: 165 printf("lk201_decode: error %x\n", datain); 166 /* FALLTHRU */ 167 case LK_KEY_REPEAT: /* autorepeat handled by wskbd */ 168 case LK_MODE_CHANGE: /* ignore silently */ 169 return (0); 170 } 171 172 173 if (datain == LK_KEY_UP) { 174 if (wantmulti) { 175 for (i = 0; i < LK_KLL; i++) 176 if (lks->down_keys_list[i] != -1) { 177 *type = WSCONS_EVENT_KEY_UP; 178 *dataout = lks->down_keys_list[i] - 179 MIN_LK201_KEY; 180 lks->down_keys_list[i] = -1; 181 return (LKD_MORE); 182 } 183 return (LKD_NODATA); 184 } else { 185 for (i = 0; i < LK_KLL; i++) 186 lks->down_keys_list[i] = -1; 187 *type = WSCONS_EVENT_ALL_KEYS_UP; 188 return (LKD_COMPLETE); 189 } 190 } else if (datain < MIN_LK201_KEY || datain > MAX_LK201_KEY) { 191 printf("lk201_decode: %x\n", datain); 192 return (0); 193 } 194 195 *dataout = datain - MIN_LK201_KEY; 196 197 freeslot = -1; 198 for (i = 0; i < LK_KLL; i++) { 199 if (lks->down_keys_list[i] == datain) { 200 *type = WSCONS_EVENT_KEY_UP; 201 lks->down_keys_list[i] = -1; 202 return (1); 203 } 204 if (lks->down_keys_list[i] == -1 && freeslot == -1) 205 freeslot = i; 206 } 207 208 if (freeslot == -1) { 209 printf("lk201_decode: down(%d) no free slot\n", datain); 210 return (0); 211 } 212 213 *type = WSCONS_EVENT_KEY_DOWN; 214 lks->down_keys_list[freeslot] = datain; 215 return (1); 216 } 217 218 void 219 lk201_bell(struct lk201_state *lks, struct wskbd_bell_data *bell) 220 { 221 unsigned int vol; 222 223 if (bell->which & WSKBD_BELL_DOVOLUME) { 224 vol = 8 - bell->volume * 8 / 100; 225 if (vol > 7) 226 vol = 7; 227 } else 228 vol = 3; 229 230 if (vol != lks->bellvol) { 231 send(lks, LK_BELL_ENABLE); 232 send(lks, LK_PARAM_VOLUME(vol)); 233 lks->bellvol = vol; 234 } 235 send(lks, LK_RING_BELL); 236 } 237 238 void 239 lk201_set_leds(struct lk201_state *lks, int leds) 240 { 241 int newleds; 242 243 newleds = 0; 244 if (leds & WSKBD_LED_SCROLL) 245 newleds |= LK_LED_WAIT; 246 if (leds & WSKBD_LED_CAPS) 247 newleds |= LK_LED_LOCK; 248 249 send(lks, LK_LED_DISABLE); 250 send(lks, (0x80 | (~newleds & 0x0f))); 251 252 send(lks, LK_LED_ENABLE); 253 send(lks, (0x80 | (newleds & 0x0f))); 254 255 lks->leds_state = leds; 256 } 257 258 void 259 lk201_set_keyclick(struct lk201_state *lks, int vol) 260 { 261 unsigned int newvol; 262 263 if (vol == 0) 264 send(lks, LK_CL_DISABLE); 265 else { 266 newvol = 8 - vol * 8 / 100; 267 if (newvol > 7) 268 newvol = 7; 269 270 send(lks, LK_CL_ENABLE); 271 send(lks, LK_PARAM_VOLUME(newvol)); 272 } 273 274 lks->kcvol = vol; 275 } 276