![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to kbd.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Net/2] / Net2 / arch / i386 / stand|
Return to kbd.c CVS log | Up to [Net/2] / Net2 / arch / i386 / stand |
1.1 root 1: /*-
2: * Copyright (c) 1990 The Regents of the University of California.
3: * All rights reserved.
4: *
5: * This code is derived from software contributed to Berkeley by
6: * William Jolitz.
7: *
8: * Redistribution and use in source and binary forms, with or without
9: * modification, are permitted provided that the following conditions
10: * are met:
11: * 1. Redistributions of source code must retain the above copyright
12: * notice, this list of conditions and the following disclaimer.
13: * 2. Redistributions in binary form must reproduce the above copyright
14: * notice, this list of conditions and the following disclaimer in the
15: * documentation and/or other materials provided with the distribution.
16: * 3. All advertising materials mentioning features or use of this software
17: * must display the following acknowledgement:
18: * This product includes software developed by the University of
19: * California, Berkeley and its contributors.
20: * 4. Neither the name of the University nor the names of its contributors
21: * may be used to endorse or promote products derived from this software
22: * without specific prior written permission.
23: *
24: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34: * SUCH DAMAGE.
35: *
36: * @(#)kbd.c 7.4 (Berkeley) 5/4/91
37: */
38:
39: #define L 0x01 /* locking function */
40: #define SHF 0x02 /* keyboard shift */
41: #define ALT 0x04 /* alternate shift -- alternate chars */
42: #define NUM 0x08 /* numeric shift cursors vs. numeric */
43: #define CTL 0x10 /* control shift -- allows ctl function */
44: #define CPS 0x20 /* caps shift -- swaps case of letter */
45: #define ASCII 0x40 /* ascii code for this key */
46: #define STP 0x80 /* stop output */
47:
48: typedef unsigned char u_char;
49:
50: u_char inb();
51:
52: u_char action[] = {
53: 0, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, /* scan 0- 7 */
54: ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, /* scan 8-15 */
55: ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, /* scan 16-23 */
56: ASCII, ASCII, ASCII, ASCII, ASCII, CTL, ASCII, ASCII, /* scan 24-31 */
57: ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, /* scan 32-39 */
58: ASCII, ASCII, SHF , ASCII, ASCII, ASCII, ASCII, ASCII, /* scan 40-47 */
59: ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, SHF, ASCII, /* scan 48-55 */
60: ALT, ASCII, CPS|L, 0, 0, ASCII, 0, 0, /* scan 56-63 */
61: 0, 0, 0, 0, 0, NUM|L, STP|L, ASCII, /* scan 64-71 */
62: ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, ASCII, /* scan 72-79 */
63: ASCII, ASCII, ASCII, ASCII, 0, 0, 0, 0, /* scan 80-87 */
64: 0,0,0,0,0,0,0,0,
65: 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
66: 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, } ;
67:
68: u_char unshift[] = { /* no shift */
69: 0, 033 , '1' , '2' , '3' , '4' , '5' , '6' , /* scan 0- 7 */
70: '7' , '8' , '9' , '0' , '-' , '=' , 0177 ,'\t' , /* scan 8-15 */
71:
72: 'q' , 'w' , 'e' , 'r' , 't' , 'y' , 'u' , 'i' , /* scan 16-23 */
73: 'o' , 'p' , '[' , ']' , '\r' , CTL , 'a' , 's' , /* scan 24-31 */
74:
75: 'd' , 'f' , 'g' , 'h' , 'j' , 'k' , 'l' , ';' , /* scan 32-39 */
76: '\'' , '`' , SHF , '\\' , 'z' , 'x' , 'c' , 'v' , /* scan 40-47 */
77:
78: 'b' , 'n' , 'm' , ',' , '.' , '/' , SHF , '*', /* scan 48-55 */
79: ALT , ' ' , CPS|L, 0, 0, ' ' , 0, 0, /* scan 56-63 */
80:
81: 0, 0, 0, 0, 0, NUM|L, STP|L, '7', /* scan 64-71 */
82: '8', '9', '-', '4', '5', '6', '+', '1', /* scan 72-79 */
83:
84: '2', '3', '0', '.', 0, 0, 0, 0, /* scan 80-87 */
85: 0,0,0,0,0,0,0,0,
86: 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
87: 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, } ;
88:
89: u_char shift[] = { /* shift shift */
90: 0, 033 , '!' , '@' , '#' , '$' , '%' , '^' , /* scan 0- 7 */
91: '&' , '*' , '(' , ')' , '_' , '+' , 0177 ,'\t' , /* scan 8-15 */
92: 'Q' , 'W' , 'E' , 'R' , 'T' , 'Y' , 'U' , 'I' , /* scan 16-23 */
93: 'O' , 'P' , '[' , ']' , '\r' , CTL , 'A' , 'S' , /* scan 24-31 */
94: 'D' , 'F' , 'G' , 'H' , 'J' , 'K' , 'L' , ':' , /* scan 32-39 */
95: '"' , '~' , SHF , '|' , 'Z' , 'X' , 'C' , 'V' , /* scan 40-47 */
96: 'B' , 'N' , 'M' , '<' , '>' , '?' , SHF , '*', /* scan 48-55 */
97: ALT , ' ' , CPS|L, 0, 0, ' ' , 0, 0, /* scan 56-63 */
98: 0, 0, 0, 0, 0, NUM|L, STP|L, '7', /* scan 64-71 */
99: '8', '9', '-', '4', '5', '6', '+', '1', /* scan 72-79 */
100: '2', '3', '0', '.', 0, 0, 0, 0, /* scan 80-87 */
101: 0,0,0,0,0,0,0,0,
102: 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
103: 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, } ;
104:
105: u_char ctl[] = { /* CTL shift */
106: 0, 033 , '!' , 000 , '#' , '$' , '%' , 036 , /* scan 0- 7 */
107: '&' , '*' , '(' , ')' , 037 , '+' , 034 ,'\177', /* scan 8-15 */
108: 021 , 027 , 005 , 022 , 024 , 031 , 025 , 011 , /* scan 16-23 */
109: 017 , 020 , 033 , 035 , '\r' , CTL , 001 , 013 , /* scan 24-31 */
110: 004 , 006 , 007 , 010 , 012 , 013 , 014 , ';' , /* scan 32-39 */
111: '\'' , '`' , SHF , 034 , 032 , 030 , 003 , 026 , /* scan 40-47 */
112: 002 , 016 , 015 , '<' , '>' , '?' , SHF , '*', /* scan 48-55 */
113: ALT , ' ' , CPS|L, 0, 0, ' ' , 0, 0, /* scan 56-63 */
114: CPS|L, 0, 0, 0, 0, 0, 0, 0, /* scan 64-71 */
115: 0, 0, 0, 0, 0, 0, 0, 0, /* scan 72-79 */
116: 0, 0, 0, 0, 0, 0, 0, 0, /* scan 80-87 */
117: 0, 0, 033, '7' , '4' , '1' , 0, NUM|L, /* scan 88-95 */
118: '8' , '5' , '2' , 0, STP|L, '9' , '6' , '3' , /*scan 96-103*/
119: '.' , 0, '*' , '-' , '+' , 0, 0, 0, /*scan 104-111*/
120: 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, } ;
121:
122: #ifdef notdef
123: struct key {
124: u_short action; /* how this key functions */
125: char ascii[8]; /* ascii result character indexed by shifts */
126: };
127: #endif
128:
129: u_char shfts, ctls, alts, caps, num, stp;
130:
131: #define KBSTATP 0x64 /* kbd status port */
132: #define KBS_INP_BUF_FUL 0x02 /* kbd char ready */
133: #define KBDATAP 0x60 /* kbd data port */
134: #define KBSTATUSPORT 0x61 /* kbd status */
135:
136: u_char odt;
137:
138: u_char kbd() {
139: u_char dt, brk, act;
140:
141: loop:
142: while(inb(0x64)&1 == 0);
143: dt = inb(0x60);
144: do {
145: while(inb(0x64)&1 == 0);
146: } while(dt == inb(0x60));
147: odt = dt;
148:
149: brk = dt & 0x80 ; dt = dt & 0x7f ;
150:
151: act = action[dt];
152: if (act&SHF) {
153: if(brk) shfts = 0; else shfts = 1;
154: }
155: if (act&ALT) {
156: if(brk) alts = 0; else alts = 1;
157: }
158: if (act&NUM) {
159: if (act&L) {
160: if(!brk) num ^= 1;
161: } else if(brk) num = 0; else num = 1;
162: }
163: if (act&CTL) {
164: if(brk) ctls = 0; else ctls = 1;
165: }
166: if (act&CPS) {
167: if (act&L) {
168: if(!brk) caps ^= 1;
169: } else if(brk) caps = 0; else caps = 1;
170: }
171: if (act&STP) {
172: if (act&L) {
173: if(!brk) stp ^= 1;
174: } else if(brk) stp = 0; else stp = 1;
175: }
176: if(ctl && alts && dt == 83) exit();
177: if ((act&ASCII) && !brk) {
178: u_char chr;
179:
180: if (shfts){
181: chr = shift[dt] ; } else {
182: if (ctls) {
183: chr = ctl[dt] ; } else {
184: chr = unshift[dt] ; } }
185: if (caps && (chr >= 'a' && chr <= 'z')) {
186: chr -= 'a' - 'A' ;
187: }
188: /*do
189: while(inb(0x64)&1 == 0) ;
190: while (inb(0x60) == (chr | 0x80));
191: while(inb(0x64)&1 == 1) inb(0x60);A*/
192: return(chr);
193: }
194: goto loop;
195: }
196:
197: scankbd() {
198: u_char c;
199:
200: c = inb(0x60);
201: if (c == 0xaa) { odt = 0x2a; return (0); }
202: if (c == 0xfa) { odt = 0x7a; return (0); }
203: c &= 0x7f;
204:
205: if ( (odt&0x7f) == c )return(0);
206: if(odt == 0) { odt = c; return(0); }
207: return(kbd());
208: }
209:
210: kbdreset()
211: {
212: u_char c;
213:
214: /* Enable interrupts and keyboard controller */
215: while (inb(0x64)&2); outb(0x64,0x60);
216: while (inb(0x64)&2); outb(0x60,0x4D);
217:
218: /* Start keyboard stuff RESET */
219: while (inb(0x64)&2); /* wait input ready */
220: outb(0x60,0xFF); /* RESET */
221:
222: while((c=inb(0x60))!=0xFA) ;
223:
224: /* While we are here, defeat gatea20 */
225: while (inb(0x64)&2); /* wait input ready */
226: outb(0x64,0xd1);
227: while (inb(0x64)&2); /* wait input ready */
228: outb(0x60,0xdf);
229: }
230:
231: u_char getchar() {
232: u_char c;
233:
234: c = kbd();
235: if (c == '\b' || c == '\177') return(c);
236: if (c == '\r') c = '\n';
237: putchar(c);
238: return(c);
239: }
240:
241: reset_cpu() {
242:
243: while (inb(0x64)&2); /* wait input ready */
244: outb(0x64,0xFE); /* Reset Command */
245: wait(4000000);
246: /* NOTREACHED */
247: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.