Home | History | Annotate | Line # | Download | only in boot
      1 /*	$NetBSD: kbd.c,v 1.5 2021/09/03 16:21:15 tsutsui Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1992 OMRON Corporation.
      5  *
      6  * This code is derived from software contributed to Berkeley by
      7  * OMRON Corporation.
      8  *
      9  * Redistribution and use in source and binary forms, with or without
     10  * modification, are permitted provided that the following conditions
     11  * are met:
     12  * 1. Redistributions of source code must retain the above copyright
     13  *    notice, this list of conditions and the following disclaimer.
     14  * 2. Redistributions in binary form must reproduce the above copyright
     15  *    notice, this list of conditions and the following disclaimer in the
     16  *    documentation and/or other materials provided with the distribution.
     17  * 3. All advertising materials mentioning features or use of this software
     18  *    must display the following acknowledgement:
     19  *	This product includes software developed by the University of
     20  *	California, Berkeley and its contributors.
     21  * 4. Neither the name of the University nor the names of its contributors
     22  *    may be used to endorse or promote products derived from this software
     23  *    without specific prior written permission.
     24  *
     25  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     26  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     27  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     28  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     29  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     30  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     31  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     32  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     33  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     34  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     35  * SUCH DAMAGE.
     36  *
     37  *	@(#)kbd.c	8.1 (Berkeley) 6/10/93
     38  */
     39 /*
     40  * Copyright (c) 1992, 1993
     41  *	The Regents of the University of California.  All rights reserved.
     42  *
     43  * This code is derived from software contributed to Berkeley by
     44  * OMRON Corporation.
     45  *
     46  * Redistribution and use in source and binary forms, with or without
     47  * modification, are permitted provided that the following conditions
     48  * are met:
     49  * 1. Redistributions of source code must retain the above copyright
     50  *    notice, this list of conditions and the following disclaimer.
     51  * 2. Redistributions in binary form must reproduce the above copyright
     52  *    notice, this list of conditions and the following disclaimer in the
     53  *    documentation and/or other materials provided with the distribution.
     54  * 3. Neither the name of the University nor the names of its contributors
     55  *    may be used to endorse or promote products derived from this software
     56  *    without specific prior written permission.
     57  *
     58  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     59  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     60  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     61  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     62  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     63  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     64  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     65  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     66  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     67  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     68  * SUCH DAMAGE.
     69  *
     70  *	@(#)kbd.c	8.1 (Berkeley) 6/10/93
     71  */
     72 
     73 /*
     74  * kbd.c -- key-code decoding routine
     75  *   by A.Fujita, Dec-12-1992
     76  */
     77 
     78 #include <sys/param.h>
     79 #include <luna68k/stand/boot/samachdep.h>
     80 #include <luna68k/stand/boot/kbdreg.h>
     81 
     82 static const struct kbd_keymap kbd_keymap[] = {
     83 	{ KC_IGNORE,	{ 0,	    0        } },	/*   0 [0x00]	      */
     84 	{ KC_IGNORE,	{ 0,	    0        } },	/*   1 [0x01]	      */
     85 	{ KC_IGNORE,	{ 0,	    0        } },	/*   2 [0x02]	      */
     86 	{ KC_IGNORE,	{ 0,	    0        } },	/*   3 [0x03]	      */
     87 	{ KC_IGNORE,	{ 0,	    0        } },	/*   4 [0x04]	      */
     88 	{ KC_IGNORE,	{ 0,	    0        } },	/*   5 [0x05]	      */
     89 	{ KC_IGNORE,	{ 0,	    0        } },	/*   6 [0x06]	      */
     90 	{ KC_IGNORE,	{ 0,	    0        } },	/*   7 [0x07]	      */
     91 	{ KC_IGNORE,	{ 0,	    0        } },	/*   8 [0x08]	      */
     92 	{ KC_CODE,	{ 0x09,     0x09     } },	/*   9 [0x09]	TAB   */
     93 	{ KC_SHIFT,	{ KS_CTRL,  KS_CTRL  } },	/*  10 [0x0A]	CTRL  */
     94 	{ KC_IGNORE,	{ 0,        0        } },	/*  11 [0x0B]	      */
     95 	{ KC_SHIFT,	{ KS_SHIFT, KS_SHIFT } },	/*  12 [0x0C]	SHIFT */
     96 	{ KC_SHIFT,	{ KS_SHIFT, KS_SHIFT } },	/*  13 [0x0D]	SHIFT */
     97 	{ KC_IGNORE,	{ 0,        0        } },	/*  14 [0x0E]	      */
     98 	{ KC_SHIFT,	{ KS_META,  KS_META  } },	/*  15 [0x0F]	META  */
     99 	{ KC_CODE,	{ 0x1B,     0x1B     } },	/*  16 [0x10]	ESC   */
    100 	{ KC_CODE,	{ 0x08,	    0x08     } },	/*  17 [0x11]	BS    */
    101 	{ KC_CODE,	{ 0x0D,	    0x0D     } },	/*  18 [0x12]	CR    */
    102 	{ KC_IGNORE,	{ 0,	    0        } },	/*  19 [0x13]	      */
    103 	{ KC_CODE,	{ 0x20,	    0x20     } },	/*  20 [0x14]	SP    */
    104 	{ KC_CODE,	{ 0x7F,	    0x7F     } },	/*  21 [0x15]	DEL   */
    105 	{ KC_IGNORE,	{ 0,	    0        } },	/*  22 [0x16]	      */
    106 	{ KC_IGNORE,	{ 0,	    0        } },	/*  23 [0x17]	      */
    107 	{ KC_IGNORE,	{ 0,	    0        } },	/*  24 [0x18]	      */
    108 	{ KC_IGNORE,	{ 0,	    0        } },	/*  25 [0x19]	      */
    109 	{ KC_IGNORE,	{ 0,	    0        } },	/*  26 [0x1A]	      */
    110 	{ KC_IGNORE,	{ 0,	    0        } },	/*  27 [0x1B]	      */
    111 	{ KC_IGNORE,	{ 0,	    0        } },	/*  28 [0x1C]	      */
    112 	{ KC_IGNORE,	{ 0,	    0        } },	/*  29 [0x1D]	      */
    113 	{ KC_IGNORE,	{ 0,	    0        } },	/*  30 [0x1E]	      */
    114 	{ KC_IGNORE,	{ 0,	    0        } },	/*  31 [0x1F]	      */
    115 	{ KC_IGNORE,	{ 0,	    0        } },	/*  32 [0x20]	      */
    116 	{ KC_IGNORE,	{ 0,	    0        } },	/*  33 [0x21]	      */
    117 	{ KC_CODE,	{ 0x31,	    0x21     } },	/*  34 [0x22]	 1    */
    118 	{ KC_CODE,	{ 0x32,	    0x22     } },	/*  35 [0x23]	 2    */
    119 	{ KC_CODE,	{ 0x33,	    0x23     } },	/*  36 [0x24]	 3    */
    120 	{ KC_CODE,	{ 0x34,	    0x24     } },	/*  37 [0x25]	 4    */
    121 	{ KC_CODE,	{ 0x35,	    0x25     } },	/*  38 [0x26]	 5    */
    122 	{ KC_CODE,	{ 0x36,	    0x26     } },	/*  39 [0x27]	 6    */
    123 	{ KC_CODE,	{ 0x37,	    0x27     } },	/*  40 [0x28]	 7    */
    124 	{ KC_CODE,	{ 0x38,	    0x28     } },	/*  41 [0x29]	 8    */
    125 	{ KC_CODE,	{ 0x39,	    0x29     } },	/*  42 [0x2A]	 9    */
    126 	{ KC_CODE,	{ 0x30,	    0x30     } },	/*  43 [0x2B]	 0    */
    127 	{ KC_CODE,	{ 0x2D,	    0x3D     } },	/*  44 [0x2C]	 -    */
    128 	{ KC_CODE,	{ 0x5E,	    0x7E     } },	/*  45 [0x2D]	 ^    */
    129 	{ KC_CODE,	{ 0x5C,	    0x7C     } },	/*  46 [0x2E]	 \    */
    130 	{ KC_IGNORE,	{ 0,	    0        } },	/*  47 [0x2F]	      */
    131 	{ KC_IGNORE,	{ 0,	    0        } },	/*  48 [0x30]	      */
    132 	{ KC_IGNORE,	{ 0,	    0        } },	/*  49 [0x31]	      */
    133 	{ KC_CODE,	{ 0x71,	    0x51     } },	/*  50 [0x32]	 q    */
    134 	{ KC_CODE,	{ 0x77,	    0x57     } },	/*  51 [0x33]	 w    */
    135 	{ KC_CODE,	{ 0x65,	    0x45     } },	/*  52 [0x34]	 e    */
    136 	{ KC_CODE,	{ 0x72,	    0x52     } },	/*  53 [0x35]	 r    */
    137 	{ KC_CODE,	{ 0x74,	    0x54     } },	/*  54 [0x36]	 t    */
    138 	{ KC_CODE,	{ 0x79,	    0x59     } },	/*  55 [0x37]	 y    */
    139 	{ KC_CODE,	{ 0x75,	    0x55     } },	/*  56 [0x38]	 u    */
    140 	{ KC_CODE,	{ 0x69,	    0x49     } },	/*  57 [0x39]	 i    */
    141 	{ KC_CODE,	{ 0x6F,	    0x4F     } },	/*  58 [0x3A]	 o    */
    142 	{ KC_CODE,	{ 0x70,	    0x50     } },	/*  59 [0x3B]	 p    */
    143 	{ KC_CODE,	{ 0x40,	    0x60     } },	/*  60 [0x3C]	 @    */
    144 	{ KC_CODE,	{ 0x5B,	    0x7B     } },	/*  61 [0x3D]	 [    */
    145 	{ KC_IGNORE,	{ 0,	    0        } },	/*  62 [0x3E]	      */
    146 	{ KC_IGNORE,	{ 0,	    0        } },	/*  63 [0x3F]	      */
    147 	{ KC_IGNORE,	{ 0,	    0        } },	/*  64 [0x40]	      */
    148 	{ KC_IGNORE,	{ 0,	    0        } },	/*  65 [0x41]	      */
    149 	{ KC_CODE,	{ 0x61,	    0x41     } },	/*  66 [0x42]	 a    */
    150 	{ KC_CODE,	{ 0x73,	    0x53     } },	/*  67 [0x43]	 s    */
    151 	{ KC_CODE,	{ 0x64,	    0x44     } },	/*  68 [0x44]	 d    */
    152 	{ KC_CODE,	{ 0x66,	    0x46     } },	/*  69 [0x45]	 f    */
    153 	{ KC_CODE,	{ 0x67,	    0x47     } },	/*  70 [0x46]	 g    */
    154 	{ KC_CODE,	{ 0x68,	    0x48     } },	/*  71 [0x47]	 h    */
    155 	{ KC_CODE,	{ 0x6A,	    0x4A     } },	/*  72 [0x48]	 j    */
    156 	{ KC_CODE,	{ 0x6B,	    0x4B     } },	/*  73 [0x49]	 k    */
    157 	{ KC_CODE,	{ 0x6C,	    0x4C     } },	/*  74 [0x4A]	 l    */
    158 	{ KC_CODE,	{ 0x3B,	    0x2B     } },	/*  75 [0x4B]	 ;    */
    159 	{ KC_CODE,	{ 0x3A,	    0x2A     } },	/*  76 [0x4C]	 :    */
    160 	{ KC_CODE,	{ 0x5D,	    0x7D     } },	/*  77 [0x4D]	 ]    */
    161 	{ KC_IGNORE,	{ 0,	    0        } },	/*  78 [0x4E]	      */
    162 	{ KC_IGNORE,	{ 0,	    0        } },	/*  79 [0x4F]	      */
    163 	{ KC_IGNORE,	{ 0,	    0        } },	/*  80 [0x50]	      */
    164 	{ KC_IGNORE,	{ 0,	    0        } },	/*  81 [0x51]	      */
    165 	{ KC_CODE,	{ 0x7A,	    0x5A     } },	/*  82 [0x52]	 z    */
    166 	{ KC_CODE,	{ 0x78,	    0x58     } },	/*  83 [0x53]	 x    */
    167 	{ KC_CODE,	{ 0x63,	    0x43     } },	/*  84 [0x54]	 c    */
    168 	{ KC_CODE,	{ 0x76,	    0x56     } },	/*  85 [0x55]	 v    */
    169 	{ KC_CODE,	{ 0x62,	    0x42     } },	/*  86 [0x56]	 b    */
    170 	{ KC_CODE,	{ 0x6E,	    0x4E     } },	/*  87 [0x57]	 n    */
    171 	{ KC_CODE,	{ 0x6D,	    0x4D     } },	/*  88 [0x58]	 m    */
    172 	{ KC_CODE,	{ 0x2C,	    0x3C     } },	/*  89 [0x59]	 ,    */
    173 	{ KC_CODE,	{ 0x2E,	    0x3E     } },	/*  90 [0x5A]	 .    */
    174 	{ KC_CODE,	{ 0x2F,	    0x3F     } },	/*  91 [0x5B]	 /    */
    175 	{ KC_CODE,	{ 0x5F,	    0x5F     } },	/*  92 [0x5C]	 _    */
    176 	{ KC_IGNORE,	{ 0,	    0        } },	/*  93 [0x5D]	      */
    177 	{ KC_IGNORE,	{ 0,	    0        } },	/*  94 [0x5E]	      */
    178 	{ KC_IGNORE,	{ 0,	    0        } },	/*  95 [0x5F]	      */
    179 	{ KC_IGNORE,	{ 0,	    0        } },	/*  96 [0x60]	      */
    180 	{ KC_IGNORE,	{ 0,	    0        } },	/*  97 [0x61]	      */
    181 	{ KC_IGNORE,	{ 0,	    0        } },	/*  98 [0x62]	      */
    182 	{ KC_IGNORE,	{ 0,	    0        } },	/*  99 [0x63]	      */
    183 	{ KC_IGNORE,	{ 0,	    0        } },	/* 100 [0x64]	      */
    184 	{ KC_IGNORE,	{ 0,	    0        } },	/* 101 [0x65]	      */
    185 	{ KC_IGNORE,	{ 0,	    0        } },	/* 102 [0x66]	      */
    186 	{ KC_IGNORE,	{ 0,	    0        } },	/* 103 [0x67]	      */
    187 	{ KC_IGNORE,	{ 0,	    0        } },	/* 104 [0x68]	      */
    188 	{ KC_IGNORE,	{ 0,	    0        } },	/* 105 [0x69]	      */
    189 	{ KC_IGNORE,	{ 0,	    0        } },	/* 106 [0x6A]	      */
    190 	{ KC_IGNORE,	{ 0,	    0        } },	/* 107 [0x6B]	      */
    191 	{ KC_IGNORE,	{ 0,	    0        } },	/* 108 [0x6C]	      */
    192 	{ KC_IGNORE,	{ 0,	    0        } },	/* 109 [0x6D]	      */
    193 	{ KC_IGNORE,	{ 0,	    0        } },	/* 110 [0x6E]	      */
    194 	{ KC_IGNORE,	{ 0,	    0        } },	/* 111 [0x6F]	      */
    195 	{ KC_IGNORE,	{ 0,	    0        } },	/* 112 [0x70]	      */
    196 	{ KC_IGNORE,	{ 0,	    0        } },	/* 113 [0x71]	      */
    197 	{ KC_IGNORE,	{ 0,	    0        } },	/* 114 [0x72]	      */
    198 	{ KC_IGNORE,	{ 0,	    0        } },	/* 115 [0x73]	      */
    199 	{ KC_IGNORE,	{ 0,	    0        } },	/* 116 [0x74]	      */
    200 	{ KC_IGNORE,	{ 0,	    0        } },	/* 117 [0x75]	      */
    201 	{ KC_IGNORE,	{ 0,	    0        } },	/* 118 [0x76]	      */
    202 	{ KC_IGNORE,	{ 0,	    0        } },	/* 119 [0x77]	      */
    203 	{ KC_IGNORE,	{ 0,	    0        } },	/* 120 [0x78]	      */
    204 	{ KC_IGNORE,	{ 0,	    0        } },	/* 121 [0x79]	      */
    205 	{ KC_IGNORE,	{ 0,	    0        } },	/* 122 [0x7A]	      */
    206 	{ KC_IGNORE,	{ 0,	    0        } },	/* 123 [0x7B]	      */
    207 	{ KC_IGNORE,	{ 0,	    0        } },	/* 124 [0x7C]	      */
    208 	{ KC_IGNORE,	{ 0,	    0        } },	/* 125 [0x7D]	      */
    209 	{ KC_IGNORE,	{ 0,	    0        } },	/* 126 [0x7E]	      */
    210 	{ KC_IGNORE,	{ 0,	    0        } },	/* 127 [0x7F]	      */
    211 };
    212 
    213 int	shift_flag = 0;
    214 int	ctrl_flag  = 0;
    215 int	meta_flag  = 0;
    216 int	mouse_flag  = 0;
    217 
    218 int
    219 kbd_decode(uint8_t code)
    220 {
    221 	unsigned int c, updown = 0;
    222 
    223 	/* ignore mouse data */
    224 	if (mouse_flag != 0) {
    225 		mouse_flag--;
    226 		return KC_IGNORE;
    227 	}
    228 	if ((code & 0xf8) == 0x80) {
    229 		mouse_flag = 2;
    230 		return KC_IGNORE;
    231 	}
    232 
    233 	if (code & 0x80)
    234 		updown = 1;
    235 
    236 	code &= 0x7F;
    237 
    238 	c = kbd_keymap[code].km_type;
    239 
    240 	if (c == KC_IGNORE)
    241 		return KC_IGNORE;
    242 
    243 	if ((c == KC_CODE) && updown)
    244 		return KC_IGNORE;
    245 
    246 	if (c == KC_SHIFT) {
    247 		switch (kbd_keymap[code].km_code[0]) {
    248 
    249 		case KS_SHIFT:
    250 			shift_flag = 1 - updown;
    251 			break;
    252 
    253 		case KS_CTRL:
    254 			ctrl_flag  = 1 - updown;
    255 			break;
    256 
    257 		case KS_META:
    258 			meta_flag  = 1 - updown;
    259 			break;
    260 		}
    261 
    262 		return KC_IGNORE;
    263 	}
    264 
    265 	if (shift_flag)
    266 		c = kbd_keymap[code].km_code[1];
    267 	else
    268 		c = kbd_keymap[code].km_code[0];
    269 
    270 	if (meta_flag)
    271 		c |= 0x80;
    272 
    273 	if (ctrl_flag)
    274 		c &= 0x1F;
    275 
    276 	return c;
    277 }
    278