source: rtems/c/src/lib/libbsp/i386/pc386/console/inch.c @ 8d62ece8

4.104.114.84.95
Last change on this file since 8d62ece8 was 8d62ece8, checked in by Joel Sherrill <joel.sherrill@…>, on May 27, 1998 at 7:19:31 PM

Moved rtemsReboot() to here from exit.c. This appears to have been
necessary because a patch did not apply cleanly.

  • Property mode set to 100644
File size: 8.5 KB
Line 
1/*-------------------------------------------------------------------------+
2| inch.c v1.1 - PC386 BSP - 1997/08/07
3+--------------------------------------------------------------------------+
4| (C) Copyright 1997 -
5| - NavIST Group - Real-Time Distributed Systems and Industrial Automation
6|
7| http://pandora.ist.utl.pt
8|
9| Instituto Superior Tecnico * Lisboa * PORTUGAL
10+--------------------------------------------------------------------------+
11| Disclaimer:
12|
13| This file is provided "AS IS" without warranty of any kind, either
14| expressed or implied.
15+--------------------------------------------------------------------------+
16| This code is based on:
17|   inch.c,v 1.3 1995/12/19 20:07:25 joel Exp - go32 BSP
18| With the following copyright notice:
19| With the following copyright notice:
20| **************************************************************************
21| *  COPYRIGHT (c) 1989-1998.
22| *  On-Line Applications Research Corporation (OAR).
23| *  Copyright assigned to U.S. Government, 1994.
24| *
25| *  The license and distribution terms for this file may be
26| *  found in found in the file LICENSE in this distribution or at
27| *  http://www.OARcorp.com/rtems/license.html.
28| **************************************************************************
29|
30|  $Id$
31+--------------------------------------------------------------------------*/
32
33#include <bsp.h>
34#include <irq.h>
35
36/*-------------------------------------------------------------------------+
37| Constants
38+--------------------------------------------------------------------------*/
39#define KBD_CTL      0x61  /* -------------------------------- */
40#define KBD_DATA     0x60  /* Ports for PC keyboard controller */
41#define KBD_STATUS   0x64  /* -------------------------------- */
42
43#define KBD_BUF_SIZE 256
44
45/*-------------------------------------------------------------------------+
46| Global Variables
47+--------------------------------------------------------------------------*/
48static char key_map[] =
49{
50  0,033,'1','2','3','4','5','6','7','8','9','0','-','=','\b','\t',
51  'q','w','e','r','t','y','u','i','o','p','[',']',015,0x80,
52  'a','s','d','f','g','h','j','k','l',';',047,0140,0x80,
53  0134,'z','x','c','v','b','n','m',',','.','/',0x80,
54  '*',0x80,' ',0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,
55  0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,
56  0x80,0x80,0x80,'0',0177
57}; /* Keyboard scancode -> character map with no modifiers.       */
58
59static char shift_map[] =
60{
61  0,033,'!','@','#','$','%','^','&','*','(',')','_','+','\b','\t',
62  'Q','W','E','R','T','Y','U','I','O','P','{','}',015,0x80,
63  'A','S','D','F','G','H','J','K','L',':',042,'~',0x80,
64  '|','Z','X','C','V','B','N','M','<','>','?',0x80,
65  '*',0x80,' ',0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,0x80,
66  0x80,0x80,0x80,0x80,'7','8','9',0x80,'4','5','6',0x80,
67  '1','2','3','0',177
68}; /* Keyboard scancode -> character map with SHIFT key modifier. */ 
69
70static char             kbd_buffer[KBD_BUF_SIZE];
71static rtems_unsigned16 kbd_first = 0;
72static rtems_unsigned16 kbd_last  = 0;
73
74/*-------------------------------------------------------------------------+
75|         Function: rtemsReboot
76|      Description: Reboot the PC.
77| Global Variables: None.
78|        Arguments: None.
79|          Returns: Nothing.
80+--------------------------------------------------------------------------*/
81void rtemsReboot(void)
82{
83  /* shutdown and reboot */
84  outport_byte(0x64, 0xFE);        /* use keyboard controler to do the job... */
85} /* rtemsReboot */
86
87/*-------------------------------------------------------------------------+
88|         Function: _IBMPC_scankey
89|      Description: This function can be called during a poll for input, or by
90|                   an ISR. Basically any time you want to process a keypress.
91| Global Variables: key_map, shift_map.
92|        Arguments: outChar - character read in case of a valid reading,
93|                   otherwise unchanged.
94|          Returns: TRUE in case a valid character has been read,
95|                   FALSE otherwise.
96+--------------------------------------------------------------------------*/
97rtems_boolean
98_IBMPC_scankey(char *outChar)
99{
100  unsigned char inChar;
101  static int alt_pressed   = 0;
102  static int ctrl_pressed  = 0;
103  static int shift_pressed = 0;
104  static int caps_pressed  = 0;
105  static int extended      = 0;
106
107  *outChar = NULL; /* default value if we return FALSE */
108
109  /* Read keyboard controller, toggle enable */
110  inport_byte(KBD_CTL, inChar);
111  outport_byte(KBD_CTL, inChar & ~0x80);
112  outport_byte(KBD_CTL, inChar | 0x80);
113  outport_byte(KBD_CTL, inChar & ~0x80);
114
115  /* See if it has data */
116  inport_byte(KBD_STATUS, inChar);
117  if ((inChar & 0x01) == 0)
118    return FALSE;
119
120  /* Read the data.  Handle nonsense with shift, control, etc. */
121  inport_byte(KBD_DATA, inChar);
122
123  if (extended)
124    extended--;
125
126  switch (inChar)
127  {
128    case 0xe0:
129      extended = 2;
130      return FALSE;
131      break;
132
133    case 0x38:
134      alt_pressed = 1;
135      return FALSE;
136      break;
137    case 0xb8:
138      alt_pressed = 0;
139      return FALSE;
140      break;
141
142    case 0x1d:
143      ctrl_pressed = 1;
144      return FALSE;
145      break;
146    case 0x9d:
147      ctrl_pressed = 0;
148      return FALSE;
149      break;
150
151    case 0x2a:
152      if (extended)
153        return FALSE;
154    case 0x36:
155      shift_pressed = 1;
156      return FALSE;
157      break;
158    case 0xaa:
159      if (extended)
160        return FALSE;
161    case 0xb6:
162      shift_pressed = 0;
163      return FALSE;
164      break;
165
166    case 0x3a:
167      caps_pressed = 1;
168      return FALSE;
169      break;
170    case 0xba:
171      caps_pressed = 0;
172      return FALSE;
173      break;
174
175    case 0x53:
176      if (ctrl_pressed && alt_pressed) 
177        rtemsReboot(); /* ctrl+alt+del -> reboot */
178      break;
179
180    /*
181     * Ignore unrecognized keys--usually arrow and such
182     */
183    default:
184      if ((inChar & 0x80) || (inChar > 0x39))
185      /* High-bit on means key is being released, not pressed */
186        return FALSE;
187      break;
188  } /* switch */
189
190  /* Strip high bit, look up in our map */
191  inChar &= 0x7f;
192  if (ctrl_pressed)
193  {
194    *outChar = key_map[inChar];
195    *outChar &= 037;
196  }
197  else
198  {
199    *outChar = shift_pressed ? shift_map[inChar] : key_map[inChar];
200    if (caps_pressed)
201    {
202      if (*outChar >= 'A' && *outChar <= 'Z')
203        *outChar += 'a' - 'A';
204      else if (*outChar >= 'a' && *outChar <= 'z')
205        *outChar -= 'a' - 'A';
206    }
207  }
208
209  return TRUE;
210} /* _IBMPC_scankey */
211
212
213/*-------------------------------------------------------------------------+
214|         Function: _IBMPC_keyboard_isr
215|      Description: Interrupt Service Routine for keyboard (0x01) IRQ.
216| Global Variables: kbd_buffer, kbd_first, kbd_last.
217|        Arguments: vector - standard RTEMS argument - see documentation.
218|          Returns: standard return value - see documentation.
219+--------------------------------------------------------------------------*/
220rtems_isr
221_IBMPC_keyboard_isr(rtems_vector_number vector)
222{
223  if (_IBMPC_scankey(&kbd_buffer[kbd_last]))
224  {
225    /* Got one; save it if there is enough room in buffer. */
226    unsigned int next = (kbd_last + 1) % KBD_BUF_SIZE;
227
228    if (next != kbd_first)
229      kbd_last = next;
230  }
231
232  PC386_ackIrq(vector - PC386_IRQ_VECTOR_BASE); /* Mark interrupt as handled. */
233} /* _IBMPC_keyboard_isr */
234
235
236/*-------------------------------------------------------------------------+
237|         Function: _IBMPC_chrdy
238|      Description: Check keyboard ISR buffer and return character if not empty.
239| Global Variables: kbd_buffer, kbd_first, kbd_last.
240|        Arguments: c - character read if keyboard buffer not empty, otherwise
241|                   unchanged.
242|          Returns: TRUE if keyboard buffer not empty, FALSE otherwise.
243+--------------------------------------------------------------------------*/
244rtems_boolean
245_IBMPC_chrdy(char *c)
246{
247  /* FIX ME!!! It doesn't work without something like the following line.
248     Find out why! */
249  printk("");
250
251  /* Check buffer our ISR builds */
252  if (kbd_first != kbd_last)
253  {
254    *c = kbd_buffer[kbd_first];
255
256    kbd_first = (kbd_first + 1) % KBD_BUF_SIZE;
257    return TRUE;
258  }
259  else
260    return FALSE;
261} /* _IBMPC_chrdy */
262
263
264/*-------------------------------------------------------------------------+
265|         Function: _IBMPC_inch
266|      Description: Poll keyboard until a character is ready and return it.
267| Global Variables: None.
268|        Arguments: None.
269|          Returns: character read from keyboard.
270+--------------------------------------------------------------------------*/
271char
272_IBMPC_inch(void)
273{
274    char c;
275    while (!_IBMPC_chrdy(&c))
276      continue;
277
278    return c;
279} /* _IBMPC_inch */
Note: See TracBrowser for help on using the repository browser.