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