xref: /netbsd-src/sys/arch/amiga/dev/kbdmap.c (revision ae9172d6cd9432a6a1a56760d86b32c57a66c39c) 
1 /*	$NetBSD: kbdmap.c,v 1.7 1994/10/26 02:04:11 cgd Exp $	*/
2 
3 #include <amiga/dev/kbdmap.h>
4 
5 /* define a default keymap. This can be changed by keyboard ioctl's
6    (later at least..) */
7 
8 /* mode shortcuts: */
9 #define	S KBD_MODE_STRING
10 #define DG (KBD_MODE_DEAD | KBD_MODE_GRAVE)
11 #define DA (KBD_MODE_DEAD | KBD_MODE_ACUTE)
12 #define DC (KBD_MODE_DEAD | KBD_MODE_CIRC)
13 #define DT (KBD_MODE_DEAD | KBD_MODE_TILDE)
14 #define DD (KBD_MODE_DEAD | KBD_MODE_DIER)
15 #define C KBD_MODE_CAPS
16 #define K KBD_MODE_KPAD
17 
18 struct kbdmap kbdmap;
19 struct kbdmap ascii_kbdmap = {
20 	/* normal map */
21 	{
22 	   0, '`',	/* 0x00 */
23 	   0, '1',
24 	   0, '2',
25 	   0, '3',
26 	   0, '4',
27 	   0, '5',
28 	   0, '6',
29 	   0, '7',
30 	   0, '8',	/* 0x08 */
31 	   0, '9',
32 	   0, '0',
33 	   0, '-',
34 	   0, '=',
35 	   0, '\\',
36 	   0, 0,
37 	   K, '0',
38 	   C, 'q',	/* 0x10 */
39 	   C, 'w',
40 	   C, 'e',
41 	   C, 'r',
42 	   C, 't',
43 	   C, 'y',
44 	   C, 'u',
45 	   C, 'i',
46 	   C, 'o',	/* 0x18 */
47 	   C, 'p',
48 	   0, '[',
49 	   0, ']',
50 	   0, 0,
51 	   K, '1',
52 	   K, '2',
53 	   K, '3',
54 	   C, 'a',	/* 0x20 */
55 	   C, 's',
56 	   C, 'd',
57 	   C, 'f',
58 	   C, 'g',
59 	   C, 'h',
60 	   C, 'j',
61 	   C, 'k',
62 	   C, 'l',	/* 0x28 */
63 	   0, ';',
64 	   0, '\'',
65 	   0, 0,
66 	   0, 0,
67 	   K, '4',
68 	   K, '5',
69 	   K, '6',
70 	   0, 0,	/* 0x30 */
71 	   C, 'z',
72 	   C, 'x',
73 	   C, 'c',
74 	   C, 'v',
75 	   C, 'b',
76 	   C, 'n',
77 	   C, 'm',
78 	   0, ',',	/* 0x38 */
79 	   0, '.',
80 	   0, '/',
81 	   0, 0,
82 	   K, '.',
83 	   K, '7',
84 	   K, '8',
85 	   K, '9',
86 	   0, ' ',	/* 0x40 */
87 	   0, DEL,	/* really BS, DEL & BS swapped */
88 	   0, '\t',
89 	   K, '\r',	/* enter */
90 	   0, '\r',	/* return */
91 	   0, ESC,
92 	   0, '\b',	/* really DEL, BS & DEL swapped */
93 	   0, 0,
94 	   0, 0,	/* 0x48 */
95 	   0, 0,
96 	   K, '-',
97 	   0, 0,
98 	   S, 0x00,	/* now it gets hairy.. CRSR UP */
99 	   S, 0x04,	/* CRSR DOWN */
100 	   S, 0x08,	/* CRSR RIGHT */
101 	   S, 0x0C,	/* CRSR LEFT */
102 	   S, 0x10,	/* 0x50 F1 */
103 	   S, 0x15,	/* F2 */
104 	   S, 0x1A,	/* F3 */
105 	   S, 0x1F,	/* F4 */
106 	   S, 0x24,	/* F5 */
107 	   S, 0x29,	/* F6 */
108 	   S, 0x2E,	/* F7 */
109 	   S, 0x33,	/* 0x58 F8 */
110 	   S, 0x38,	/* F9 */
111 	   S, 0x3D,	/* F10 */
112 	   K, '(',
113 	   K, ')',
114 	   K, '/',
115 	   K, '*',
116 	   S, 0x42,	/* HELP */
117 	},
118 
119 	/* shifted map */
120 	{
121 	   0, '~',	/* 0x00 */
122 	   0, '!',
123 	   0, '@',
124 	   0, '#',
125 	   0, '$',
126 	   0, '%',
127 	   0, '^',
128 	   0, '&',
129 	   0, '*',	/* 0x08 */
130 	   0, '(',
131 	   0, ')',
132 	   0, '_',
133 	   0, '+',
134 	   0, '|',
135 	   0, 0,
136 	   K, '0',
137 	   C, 'Q',	/* 0x10 */
138 	   C, 'W',
139 	   C, 'E',
140 	   C, 'R',
141 	   C, 'T',
142 	   C, 'Y',
143 	   C, 'U',
144 	   C, 'I',
145 	   C, 'O',	/* 0x18 */
146 	   C, 'P',
147 	   0, '{',
148 	   0, '}',
149 	   0, 0,
150 	   K, '1',
151 	   K, '2',
152 	   K, '3',
153 	   C, 'A',	/* 0x20 */
154 	   C, 'S',
155 	   C, 'D',
156 	   C, 'F',
157 	   C, 'G',
158 	   C, 'H',
159 	   C, 'J',
160 	   C, 'K',
161 	   C, 'L',	/* 0x28 */
162 	   0, ':',
163 	   0, '\"',
164 	   0, 0,
165 	   0, 0,
166 	   K, '4',
167 	   K, '5',
168 	   K, '6',
169 	   0, 0,	/* 0x30 */
170 	   C, 'Z',
171 	   C, 'X',
172 	   C, 'C',
173 	   C, 'V',
174 	   C, 'B',
175 	   C, 'N',
176 	   C, 'M',
177 	   0, '<',	/* 0x38 */
178 	   0, '>',
179 	   0, '?',
180 	   0, 0,
181 	   K, '.',
182 	   K, '7',
183 	   K, '8',
184 	   K, '9',
185 	   0, ' ',	/* 0x40 */
186 	   0, DEL,	/* really BS, DEL & BS swapped */
187 	   S, 0x99,	/* shift TAB */
188 	   K, '\r',	/* enter */
189 	   0, '\r',	/* return */
190 	   0, ESC,
191 	   0, '\b',	/* really DEL, BS & DEL swapped */
192 	   0, 0,
193 	   0, 0,	/* 0x48 */
194 	   0, 0,
195 	   K, '-',
196 	   0, 0,
197 	   S, 0x47,	/* shift CRSR UP */
198 	   S, 0x4C,	/* shift CRSR DOWN */
199 	   S, 0x51,	/* shift CRSR RIGHT */
200 	   S, 0x57,	/* shift CRSR LEFT */
201 	   S, 0x5D,	/* 0x50 shift F1 */
202 	   S, 0x63,	/* shift F2 */
203 	   S, 0x69,	/* shift F3 */
204 	   S, 0x6F,	/* shift F4 */
205 	   S, 0x75,	/* shift F5 */
206 	   S, 0x7B,	/* shift F6 */
207 	   S, 0x81,	/* shift F7 */
208 	   S, 0x87,	/* 0x58 shift F8 */
209 	   S, 0x8D,	/* shift F9 */
210 	   S, 0x93,	/* shift F10 */
211 	   K, '(',
212 	   K, ')',
213 	   K, '/',
214 	   K, '*',
215 	   S, 0x42,	/* HELP (no special shift code) */
216 	},
217 
218 
219 	/* alt map */
220 	{
221 	   0, '`',	/* 0x00 */
222 	   0, '�',
223 	   0, '�',
224 	   0, '�',
225 	   0, '�',
226 	   0, '�',
227 	   0, '�',
228 	   0, '�',
229 	   0, '�',	/* 0x08 */
230 	   0, '�',
231 	   0, '�',
232 	   0, '-',
233 	   0, '=',
234 	   0, '\\',
235 	   0, 0,
236 	   K, '0',
237 	   C, '�',	/* 0x10 */
238 	   0, '�',
239 	   0, '�',
240 	   0, '�',
241 	   C, '�',
242 	   0, '�',
243 	   0, '�',
244 	   0, '�',
245 	   C, '�',	/* 0x18 */
246 	   0, '�',
247 	   0, '[',
248 	   0, ']',
249 	   0, 0,
250 	   K, '1',
251 	   K, '2',
252 	   K, '3',
253 	   C, '�',	/* 0x20 */
254 	   0, '�',
255 	   C, '�',
256 	   DA, '�',
257 	   DG, '`',
258 	   DC, '^',
259 	   DT, '~',
260 	   DD, '�',
261 	   0, '�',	/* 0x28 */
262 	   0, ';',
263 	   0, '\'',
264 	   0, 0,
265 	   0, 0,
266 	   K, '4',
267 	   K, '5',
268 	   K, '6',
269 	   0, 0,	/* 0x30 */
270 	   0, '�',
271 	   0, '�',
272 	   C, '�',
273 	   0, '�',
274 	   0, '�',
275 	   0, '�',
276 	   0, '�',
277 	   0, ',',	/* 0x38 */
278 	   0, '.',
279 	   0, '/',
280 	   0, 0,
281 	   K, '.',
282 	   K, '7',
283 	   K, '8',
284 	   K, '9',
285 	   0, ' ',	/* 0x40 */
286 	   0, DEL,	/* really BS, DEL & BS swapped */
287 	   0, '\t',
288 	   K, '\r',	/* enter */
289 	   0, '\r',	/* return */
290 	   S, 0x9d,	/* CSI */
291 	   0, '\b',	/* really DEL, BS & DEL swapped */
292 	   0, 0,
293 	   0, 0,	/* 0x48 */
294 	   0, 0,
295 	   K, '-',
296 	   0, 0,
297 	   S, 0x00,	/* now it gets hairy.. CRSR UP */
298 	   S, 0x04,	/* CRSR DOWN */
299 	   S, 0x08,	/* CRSR RIGHT */
300 	   S, 0x0C,	/* CRSR LEFT */
301 	   S, 0x10,	/* 0x50 F1 */
302 	   S, 0x15,	/* F2 */
303 	   S, 0x1A,	/* F3 */
304 	   S, 0x1F,	/* F4 */
305 	   S, 0x24,	/* F5 */
306 	   S, 0x29,	/* F6 */
307 	   S, 0x2E,	/* F7 */
308 	   S, 0x33,	/* 0x58 F8 */
309 	   S, 0x38,	/* F9 */
310 	   S, 0x3D,	/* F10 */
311 	   K, '(',
312 	   K, ')',
313 	   K, '/',
314 	   K, '*',
315 	   S, 0x42,	/* HELP */
316 	},
317 
318 	/* shift alt map */
319 	{
320 	   0, '~',	/* 0x00 */
321 	   0, '!',
322 	   0, '@',
323 	   0, '#',
324 	   0, '$',
325 	   0, '%',
326 	   0, '^',
327 	   0, '&',
328 	   0, '*',	/* 0x08 */
329 	   0, '(',
330 	   0, ')',
331 	   0, '_',
332 	   0, '+',
333 	   0, '|',
334 	   0, 0,
335 	   K, '0',
336 	   C, '�',	/* 0x10 */
337 	   0, '�',
338 	   0, '�',
339 	   0, '�',
340 	   C, '�',
341 	   0, '�',
342 	   0, '�',
343 	   0, '�',
344 	   C, '�',	/* 0x18 */
345 	   0, '�',
346 	   0, '[',
347 	   0, ']',
348 	   0, 0,
349 	   K, '1',
350 	   K, '2',
351 	   K, '3',
352 	   C, '�',	/* 0x20 */
353 	   0, '�',
354 	   C, '�',
355 	   DA, '�',
356 	   DG, '`',
357 	   DC, '^',
358 	   DT, '~',
359 	   DD, '�',
360 	   0, '�',	/* 0x28 */
361 	   0, ';',
362 	   0, '\'',
363 	   0, 0,
364 	   0, 0,
365 	   K, '4',
366 	   K, '5',
367 	   K, '6',
368 	   0, 0,	/* 0x30 */
369 	   0, '�',
370 	   0, '�',
371 	   C, '�',
372 	   0, '�',
373 	   0, '�',
374 	   0, '�',
375 	   0, '�',
376 	   0, ',',	/* 0x38 */
377 	   0, '.',
378 	   0, '/',
379 	   0, 0,
380 	   K, '.',
381 	   K, '7',
382 	   K, '8',
383 	   K, '9',
384 	   0, ' ',	/* 0x40 */
385 	   0, DEL,	/* really BS, DEL & BS swapped */
386 	   0, '\t',
387 	   K, '\r',	/* enter */
388 	   0, '\r',	/* return */
389 	   S, 0x9d,	/* CSI */
390 	   0, '\b',	/* really DEL, BS & DEL swapped */
391 	   0, 0,
392 	   0, 0,	/* 0x48 */
393 	   0, 0,
394 	   K, '-',
395 	   0, 0,
396 	   S, 0x00,	/* now it gets hairy.. CRSR UP */
397 	   S, 0x04,	/* CRSR DOWN */
398 	   S, 0x08,	/* CRSR RIGHT */
399 	   S, 0x0C,	/* CRSR LEFT */
400 	   S, 0x10,	/* 0x50 F1 */
401 	   S, 0x15,	/* F2 */
402 	   S, 0x1A,	/* F3 */
403 	   S, 0x1F,	/* F4 */
404 	   S, 0x24,	/* F5 */
405 	   S, 0x29,	/* F6 */
406 	   S, 0x2E,	/* F7 */
407 	   S, 0x33,	/* 0x58 F8 */
408 	   S, 0x38,	/* F9 */
409 	   S, 0x3D,	/* F10 */
410 	   K, '(',
411 	   K, ')',
412 	   K, '/',
413 	   K, '*',
414 	   S, 0x42,	/* HELP */
415 	},
416 
417 	{
418 	  /* string table. If there's a better way to get the offsets into the
419 	     above table, please tell me..
420 
421 	     NOTE: save yourself and others a lot of grief by *not* using
422 	           CSI == 0x9b, using the two-character sequence gives
423 	           much less trouble, especially in GNU-Emacs.. */
424 
425 	  3, ESC, '[', 'A',		/* 0x00: CRSR UP */
426 	  3, ESC, '[', 'B',		/* 0x04: CRSR DOWN */
427 	  3, ESC, '[', 'C',		/* 0x08: CRSR RIGHT */
428 	  3, ESC, '[', 'D',		/* 0x0C: CRSR LEFT */
429 	  4, ESC, '[', '0', '~',	/* 0x10: F1 */
430 	  4, ESC, '[', '1', '~',	/* 0x15: F2 */
431 	  4, ESC, '[', '2', '~',	/* 0x1A: F3 */
432 	  4, ESC, '[', '3', '~',	/* 0x1F: F4 */
433 	  4, ESC, '[', '4', '~',	/* 0x24: F5 */
434 	  4, ESC, '[', '5', '~',	/* 0x29: F6 */
435 	  4, ESC, '[', '6', '~',	/* 0x2E: F7 */
436 	  4, ESC, '[', '7', '~',	/* 0x33: F8 */
437 	  4, ESC, '[', '8', '~',	/* 0x38: F9 */
438 	  4, ESC, '[', '9', '~',	/* 0x3D: F10 */
439 	  4, ESC, '[', '?', '~',	/* 0x42: HELP */
440 
441 	  4, ESC, '[', 'T', '~',	/* 0x47: shift CRSR UP */
442 	  4, ESC, '[', 'S', '~',	/* 0x4C: shift CRSR DOWN */
443 	  5, ESC, '[', ' ', '@', '~',	/* 0x51: shift CRSR RIGHT */
444 	  5, ESC, '[', ' ', 'A', '~',	/* 0x57: shift CRSR LEFT */
445 	  5, ESC, '[', '1', '0', '~',	/* 0x5D: shift F1 */
446 	  5, ESC, '[', '1', '1', '~',	/* 0x63: shift F2 */
447 	  5, ESC, '[', '1', '2', '~',	/* 0x69: shift F3 */
448 	  5, ESC, '[', '1', '3', '~',	/* 0x6F: shift F4 */
449 	  5, ESC, '[', '1', '4', '~',	/* 0x75: shift F5 */
450 	  5, ESC, '[', '1', '5', '~',	/* 0x7B: shift F6 */
451 	  5, ESC, '[', '1', '6', '~',	/* 0x81: shift F7 */
452 	  5, ESC, '[', '1', '7', '~',	/* 0x87: shift F8 */
453 	  5, ESC, '[', '1', '8', '~',	/* 0x8D: shift F9 */
454 	  5, ESC, '[', '1', '9', '~',	/* 0x93: shift F10 */
455 	  3, ESC, '[', 'Z',		/* 0x99: shift TAB */
456 	  2, ESC, '[',			/* 0x9d: alt ESC == CSI */
457 	},
458 };
459 
460 unsigned char acctable[KBD_NUM_ACC][64] = {
461   {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
462 	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_GRAVE */
463 
464   {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
465 	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_ACUTE */
466 
467   {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
468 	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_CIRC */
469 
470   {	"@�BCDEFGHIJKLM��PQRSTUVWXYZ[\\]^_"
471 	"`�bcdefghijklm��pqrstuvwxyz{|}~\177"},	/* KBD_ACC_TILDE */
472 
473   {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
474 	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_DIER */
475 };
476 
477 
478