m38813c.c revision 1.3 1 1.3 takemura /* $NetBSD: m38813c.c,v 1.3 2000/09/21 14:17:29 takemura Exp $ */
2 1.1 uch
3 1.1 uch /*
4 1.2 uch * Copyright (c) 1999, 2000, by UCHIYAMA Yasushi
5 1.1 uch * All rights reserved.
6 1.1 uch *
7 1.1 uch * Redistribution and use in source and binary forms, with or without
8 1.1 uch * modification, are permitted provided that the following conditions
9 1.1 uch * are met:
10 1.1 uch * 1. Redistributions of source code must retain the above copyright
11 1.1 uch * notice, this list of conditions and the following disclaimer.
12 1.1 uch * 2. The name of the developer may NOT be used to endorse or promote products
13 1.1 uch * derived from this software without specific prior written permission.
14 1.1 uch *
15 1.1 uch * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16 1.1 uch * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 1.1 uch * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 1.1 uch * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19 1.1 uch * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 1.1 uch * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21 1.1 uch * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22 1.1 uch * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23 1.1 uch * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24 1.1 uch * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25 1.1 uch * SUCH DAMAGE.
26 1.1 uch *
27 1.1 uch */
28 1.1 uch
29 1.1 uch /*
30 1.1 uch * Device driver for MITUBISHI M38813 controller
31 1.1 uch */
32 1.1 uch
33 1.1 uch #include "opt_tx39_debug.h"
34 1.1 uch #include "opt_use_poll.h"
35 1.1 uch
36 1.1 uch #include <sys/param.h>
37 1.1 uch #include <sys/systm.h>
38 1.1 uch #include <sys/device.h>
39 1.1 uch
40 1.1 uch #include <machine/bus.h>
41 1.1 uch #include <machine/intr.h>
42 1.1 uch
43 1.1 uch #include <hpcmips/tx/tx39var.h>
44 1.1 uch #include <hpcmips/tx/txcsbusvar.h>
45 1.1 uch
46 1.1 uch #include <hpcmips/dev/m38813cvar.h>
47 1.3 takemura #include <hpcmips/dev/hpckbdvar.h>
48 1.1 uch
49 1.1 uch struct m38813c_chip {
50 1.1 uch bus_space_tag_t scc_cst;
51 1.1 uch bus_space_handle_t scc_csh;
52 1.1 uch int scc_enabled;
53 1.1 uch int t_lastchar;
54 1.1 uch int t_extended;
55 1.1 uch int t_extended1;
56 1.1 uch
57 1.3 takemura struct hpckbd_ic_if scc_if;
58 1.3 takemura struct hpckbd_if *scc_hpckbd;
59 1.1 uch };
60 1.1 uch
61 1.1 uch struct m38813c_softc {
62 1.1 uch struct device sc_dev;
63 1.1 uch struct m38813c_chip *sc_chip;
64 1.1 uch tx_chipset_tag_t sc_tc;
65 1.1 uch void *sc_ih;
66 1.1 uch };
67 1.1 uch
68 1.1 uch int m38813c_match __P((struct device*, struct cfdata*, void*));
69 1.1 uch void m38813c_attach __P((struct device*, struct device*, void*));
70 1.1 uch int m38813c_intr __P((void*));
71 1.1 uch int m38813c_poll __P((void*));
72 1.1 uch void m38813c_ifsetup __P((struct m38813c_chip*));
73 1.3 takemura int m38813c_input_establish __P((void*, struct hpckbd_if*));
74 1.1 uch
75 1.1 uch struct m38813c_chip m38813c_chip;
76 1.1 uch
77 1.1 uch struct cfattach m38813c_ca = {
78 1.1 uch sizeof(struct m38813c_softc), m38813c_match, m38813c_attach
79 1.1 uch };
80 1.1 uch
81 1.1 uch int
82 1.1 uch m38813c_match(parent, cf, aux)
83 1.1 uch struct device *parent;
84 1.1 uch struct cfdata *cf;
85 1.1 uch void *aux;
86 1.1 uch {
87 1.1 uch return 1;
88 1.1 uch }
89 1.1 uch
90 1.1 uch void
91 1.1 uch m38813c_attach(parent, self, aux)
92 1.1 uch struct device *parent;
93 1.1 uch struct device *self;
94 1.1 uch void *aux;
95 1.1 uch {
96 1.1 uch struct cs_attach_args *ca = aux;
97 1.1 uch struct m38813c_softc *sc = (void*)self;
98 1.3 takemura struct hpckbd_attach_args haa;
99 1.1 uch
100 1.1 uch sc->sc_tc = ca->ca_tc;
101 1.1 uch sc->sc_chip = &m38813c_chip;
102 1.1 uch sc->sc_chip->scc_cst = ca->ca_csio.cstag;
103 1.1 uch
104 1.1 uch if (bus_space_map(sc->sc_chip->scc_cst, ca->ca_csio.csbase,
105 1.1 uch ca->ca_csio.cssize, 0, &sc->sc_chip->scc_csh)) {
106 1.1 uch printf(": can't map i/o space\n");
107 1.1 uch }
108 1.1 uch
109 1.1 uch #ifndef USE_POLL
110 1.1 uch #error options USE_POLL requied.
111 1.1 uch #endif
112 1.2 uch if (!(sc->sc_ih = tx39_poll_establish(sc->sc_tc, 1,
113 1.1 uch IPL_TTY, m38813c_intr,
114 1.1 uch sc))) {
115 1.1 uch printf(": can't establish interrupt\n");
116 1.1 uch }
117 1.1 uch
118 1.1 uch printf("\n");
119 1.1 uch
120 1.1 uch /* setup upper interface */
121 1.1 uch m38813c_ifsetup(sc->sc_chip);
122 1.1 uch
123 1.3 takemura haa.haa_ic = &sc->sc_chip->scc_if;
124 1.1 uch
125 1.3 takemura config_found(self, &haa, hpckbd_print);
126 1.1 uch }
127 1.1 uch
128 1.1 uch void
129 1.1 uch m38813c_ifsetup(scc)
130 1.1 uch struct m38813c_chip *scc;
131 1.1 uch {
132 1.3 takemura scc->scc_if.hii_ctx = scc;
133 1.1 uch
134 1.3 takemura scc->scc_if.hii_establish = m38813c_input_establish;
135 1.3 takemura scc->scc_if.hii_poll = m38813c_intr;
136 1.1 uch }
137 1.1 uch
138 1.1 uch int
139 1.1 uch m38813c_cnattach(addr)
140 1.1 uch paddr_t addr;
141 1.1 uch {
142 1.1 uch struct m38813c_chip *scc = &m38813c_chip;
143 1.1 uch
144 1.1 uch scc->scc_csh = MIPS_PHYS_TO_KSEG1(addr);
145 1.1 uch
146 1.1 uch m38813c_ifsetup(scc);
147 1.1 uch
148 1.3 takemura hpckbd_cnattach(&scc->scc_if);
149 1.1 uch
150 1.1 uch return 0;
151 1.1 uch }
152 1.1 uch
153 1.1 uch int
154 1.3 takemura m38813c_input_establish(ic, kbdif)
155 1.1 uch void *ic;
156 1.3 takemura struct hpckbd_if *kbdif;
157 1.1 uch {
158 1.1 uch struct m38813c_chip *scc = ic;
159 1.1 uch
160 1.3 takemura /* save lower interface */
161 1.3 takemura scc->scc_hpckbd = kbdif;
162 1.1 uch
163 1.1 uch scc->scc_enabled = 1;
164 1.1 uch
165 1.1 uch return 0;
166 1.1 uch }
167 1.1 uch
168 1.1 uch #define KBR_EXTENDED0 0xE0 /* extended key sequence */
169 1.1 uch #define KBR_EXTENDED1 0xE1 /* extended key sequence */
170 1.1 uch
171 1.1 uch int
172 1.1 uch m38813c_intr(arg)
173 1.1 uch void *arg;
174 1.1 uch {
175 1.1 uch struct m38813c_softc *sc = arg;
176 1.1 uch
177 1.1 uch return m38813c_poll(sc->sc_chip);
178 1.1 uch }
179 1.1 uch
180 1.1 uch int
181 1.1 uch m38813c_poll(arg)
182 1.1 uch void *arg;
183 1.1 uch {
184 1.1 uch struct m38813c_chip *scc = arg;
185 1.1 uch bus_space_tag_t t = scc->scc_cst;
186 1.1 uch bus_space_handle_t h = scc->scc_csh;
187 1.1 uch int datain, type, key;
188 1.1 uch
189 1.1 uch if (!scc->scc_enabled) {
190 1.1 uch return 0;
191 1.1 uch }
192 1.1 uch
193 1.1 uch datain= bus_space_read_1(t, h, 0);
194 1.1 uch
195 1.3 takemura hpckbd_input_hook(scc->scc_hpckbd);
196 1.1 uch
197 1.1 uch if (datain == KBR_EXTENDED0) {
198 1.1 uch scc->t_extended = 1;
199 1.1 uch return 0;
200 1.1 uch } else if (datain == KBR_EXTENDED1) {
201 1.1 uch scc->t_extended1 = 2;
202 1.1 uch return 0;
203 1.1 uch }
204 1.1 uch
205 1.1 uch /* map extended keys to (unused) codes 128-254 */
206 1.1 uch key = (datain & 0x7f) | (scc->t_extended ? 0x80 : 0);
207 1.1 uch scc->t_extended = 0;
208 1.1 uch
209 1.1 uch /*
210 1.1 uch * process BREAK key (EXT1 1D 45 EXT1 9D C5):
211 1.1 uch * map to (unused) code 7F
212 1.1 uch */
213 1.1 uch if (scc->t_extended1 == 2 && (datain == 0x1d || datain == 0x9d)) {
214 1.1 uch scc->t_extended1 = 1;
215 1.1 uch return 0;
216 1.1 uch } else if (scc->t_extended1 == 1 &&
217 1.1 uch (datain == 0x45 || datain == 0xc5)) {
218 1.1 uch scc->t_extended1 = 0;
219 1.1 uch key = 0x7f;
220 1.1 uch } else if (scc->t_extended1 > 0) {
221 1.1 uch scc->t_extended1 = 0;
222 1.1 uch }
223 1.1 uch
224 1.1 uch if (datain & 0x80) {
225 1.1 uch scc->t_lastchar = 0;
226 1.1 uch type = 0;
227 1.1 uch } else {
228 1.1 uch /* Always ignore typematic keys */
229 1.1 uch if (key == scc->t_lastchar)
230 1.1 uch return 0;
231 1.1 uch scc->t_lastchar = key;
232 1.1 uch type = 1;
233 1.1 uch }
234 1.1 uch
235 1.3 takemura hpckbd_input(scc->scc_hpckbd, type, key);
236 1.1 uch
237 1.1 uch return 0;
238 1.1 uch }
239