1 // SPDX-License-Identifier: GPL-2.0-only
2 /*
3  *  linux/drivers/hil/hilkbd.c
4  *
5  *  Copyright (C) 1998 Philip Blundell <philb@gnu.org>
6  *  Copyright (C) 1999 Matthew Wilcox <willy@infradead.org>
7  *  Copyright (C) 1999-2007 Helge Deller <deller@gmx.de>
8  *
9  *  Very basic HP Human Interface Loop (HIL) driver.
10  *  This driver handles the keyboard on HP300 (m68k) and on some
11  *  HP700 (parisc) series machines.
12  */
13 
14 #include <linux/pci_ids.h>
15 #include <linux/ioport.h>
16 #include <linux/module.h>
17 #include <linux/errno.h>
18 #include <linux/input.h>
19 #include <linux/init.h>
20 #include <linux/interrupt.h>
21 #include <linux/hil.h>
22 #include <linux/io.h>
23 #include <linux/sched.h>
24 #include <linux/spinlock.h>
25 #include <asm/irq.h>
26 #ifdef CONFIG_HP300
27 #include <asm/hwtest.h>
28 #endif
29 
30 
31 MODULE_AUTHOR("Philip Blundell, Matthew Wilcox, Helge Deller");
32 MODULE_DESCRIPTION("HIL keyboard driver (basic functionality)");
33 MODULE_LICENSE("GPL v2");
34 
35 
36 #if defined(CONFIG_PARISC)
37 
38  #include <asm/io.h>
39  #include <asm/hardware.h>
40  #include <asm/parisc-device.h>
41  static unsigned long hil_base;	/* HPA for the HIL device */
42  static unsigned int hil_irq;
43  #define HILBASE		hil_base /* HPPA (parisc) port address */
44  #define HIL_DATA		0x800
45  #define HIL_CMD		0x801
46  #define HIL_IRQ		hil_irq
47  #define hil_readb(p)		gsc_readb(p)
48  #define hil_writeb(v,p)	gsc_writeb((v),(p))
49 
50 #elif defined(CONFIG_HP300)
51 
52  #define HILBASE		0xf0428000UL /* HP300 (m68k) port address */
53  #define HIL_DATA		0x1
54  #define HIL_CMD		0x3
55  #define HIL_IRQ		2
56  #define hil_readb(p)		readb((const volatile void __iomem *)(p))
57  #define hil_writeb(v, p)	writeb((v), (volatile void __iomem *)(p))
58 
59 #else
60 #error "HIL is not supported on this platform"
61 #endif
62 
63 
64 
65 /* HIL helper functions */
66 
67 #define hil_busy()              (hil_readb(HILBASE + HIL_CMD) & HIL_BUSY)
68 #define hil_data_available()    (hil_readb(HILBASE + HIL_CMD) & HIL_DATA_RDY)
69 #define hil_status()            (hil_readb(HILBASE + HIL_CMD))
70 #define hil_command(x)          do { hil_writeb((x), HILBASE + HIL_CMD); } while (0)
71 #define hil_read_data()         (hil_readb(HILBASE + HIL_DATA))
72 #define hil_write_data(x)       do { hil_writeb((x), HILBASE + HIL_DATA); } while (0)
73 
74 /* HIL constants */
75 
76 #define	HIL_BUSY		0x02
77 #define	HIL_DATA_RDY		0x01
78 
79 #define	HIL_SETARD		0xA0		/* set auto-repeat delay */
80 #define	HIL_SETARR		0xA2		/* set auto-repeat rate */
81 #define	HIL_SETTONE		0xA3		/* set tone generator */
82 #define	HIL_CNMT		0xB2		/* clear nmi */
83 #define	HIL_INTON		0x5C		/* Turn on interrupts. */
84 #define	HIL_INTOFF		0x5D		/* Turn off interrupts. */
85 
86 #define	HIL_READKBDSADR		0xF9
87 #define	HIL_WRITEKBDSADR	0xE9
88 
89 static unsigned int hphilkeyb_keycode[HIL_KEYCODES_SET1_TBLSIZE] __read_mostly =
90 	{ HIL_KEYCODES_SET1 };
91 
92 /* HIL structure */
93 static struct {
94 	struct input_dev *dev;
95 
96 	unsigned int curdev;
97 
98 	unsigned char s;
99 	unsigned char c;
100 	int valid;
101 
102 	unsigned char data[16];
103 	unsigned int ptr;
104 	spinlock_t lock;
105 
106 	void *dev_id;	/* native bus device */
107 } hil_dev;
108 
109 
poll_finished(void)110 static void poll_finished(void)
111 {
112 	int down;
113 	int key;
114 	unsigned char scode;
115 
116 	switch (hil_dev.data[0]) {
117 	case 0x40:
118 		down = (hil_dev.data[1] & 1) == 0;
119 		scode = hil_dev.data[1] >> 1;
120 		key = hphilkeyb_keycode[scode];
121 		input_report_key(hil_dev.dev, key, down);
122 		break;
123 	}
124 	hil_dev.curdev = 0;
125 }
126 
127 
handle_status(unsigned char s,unsigned char c)128 static inline void handle_status(unsigned char s, unsigned char c)
129 {
130 	if (c & 0x8) {
131 		/* End of block */
132 		if (c & 0x10)
133 			poll_finished();
134 	} else {
135 		if (c & 0x10) {
136 			if (hil_dev.curdev)
137 				poll_finished();  /* just in case */
138 			hil_dev.curdev = c & 7;
139 			hil_dev.ptr = 0;
140 		}
141 	}
142 }
143 
144 
handle_data(unsigned char s,unsigned char c)145 static inline void handle_data(unsigned char s, unsigned char c)
146 {
147 	if (hil_dev.curdev) {
148 		hil_dev.data[hil_dev.ptr++] = c;
149 		hil_dev.ptr &= 15;
150 	}
151 }
152 
153 
154 /* handle HIL interrupts */
hil_interrupt(int irq,void * handle)155 static irqreturn_t hil_interrupt(int irq, void *handle)
156 {
157 	unsigned char s, c;
158 
159 	s = hil_status();
160 	c = hil_read_data();
161 
162 	switch (s >> 4) {
163 	case 0x5:
164 		handle_status(s, c);
165 		break;
166 	case 0x6:
167 		handle_data(s, c);
168 		break;
169 	case 0x4:
170 		hil_dev.s = s;
171 		hil_dev.c = c;
172 		mb();
173 		hil_dev.valid = 1;
174 		break;
175 	}
176 	return IRQ_HANDLED;
177 }
178 
179 
180 /* send a command to the HIL */
hil_do(unsigned char cmd,unsigned char * data,unsigned int len)181 static void hil_do(unsigned char cmd, unsigned char *data, unsigned int len)
182 {
183 	unsigned long flags;
184 
185 	spin_lock_irqsave(&hil_dev.lock, flags);
186 	while (hil_busy())
187 		/* wait */;
188 	hil_command(cmd);
189 	while (len--) {
190 		while (hil_busy())
191 			/* wait */;
192 		hil_write_data(*(data++));
193 	}
194 	spin_unlock_irqrestore(&hil_dev.lock, flags);
195 }
196 
197 
198 /* initialize HIL */
hil_keyb_init(void)199 static int hil_keyb_init(void)
200 {
201 	unsigned char c;
202 	unsigned int i, kbid;
203 	wait_queue_head_t hil_wait;
204 	int err;
205 
206 	if (hil_dev.dev)
207 		return -ENODEV; /* already initialized */
208 
209 	init_waitqueue_head(&hil_wait);
210 	spin_lock_init(&hil_dev.lock);
211 
212 	hil_dev.dev = input_allocate_device();
213 	if (!hil_dev.dev)
214 		return -ENOMEM;
215 
216 	err = request_irq(HIL_IRQ, hil_interrupt, 0, "hil", hil_dev.dev_id);
217 	if (err) {
218 		printk(KERN_ERR "HIL: Can't get IRQ\n");
219 		goto err1;
220 	}
221 
222 	/* Turn on interrupts */
223 	hil_do(HIL_INTON, NULL, 0);
224 
225 	/* Look for keyboards */
226 	hil_dev.valid = 0;	/* clear any pending data */
227 	hil_do(HIL_READKBDSADR, NULL, 0);
228 
229 	wait_event_interruptible_timeout(hil_wait, hil_dev.valid, 3 * HZ);
230 	if (!hil_dev.valid)
231 		printk(KERN_WARNING "HIL: timed out, assuming no keyboard present\n");
232 
233 	c = hil_dev.c;
234 	hil_dev.valid = 0;
235 	if (c == 0) {
236 		kbid = -1;
237 		printk(KERN_WARNING "HIL: no keyboard present\n");
238 	} else {
239 		kbid = ffz(~c);
240 		printk(KERN_INFO "HIL: keyboard found at id %d\n", kbid);
241 	}
242 
243 	/* set it to raw mode */
244 	c = 0;
245 	hil_do(HIL_WRITEKBDSADR, &c, 1);
246 
247 	for (i = 0; i < HIL_KEYCODES_SET1_TBLSIZE; i++)
248 		if (hphilkeyb_keycode[i] != KEY_RESERVED)
249 			__set_bit(hphilkeyb_keycode[i], hil_dev.dev->keybit);
250 
251 	hil_dev.dev->evbit[0]	= BIT_MASK(EV_KEY) | BIT_MASK(EV_REP);
252 	hil_dev.dev->ledbit[0]	= BIT_MASK(LED_NUML) | BIT_MASK(LED_CAPSL) |
253 		BIT_MASK(LED_SCROLLL);
254 	hil_dev.dev->keycodemax	= HIL_KEYCODES_SET1_TBLSIZE;
255 	hil_dev.dev->keycodesize= sizeof(hphilkeyb_keycode[0]);
256 	hil_dev.dev->keycode	= hphilkeyb_keycode;
257 	hil_dev.dev->name	= "HIL keyboard";
258 	hil_dev.dev->phys	= "hpkbd/input0";
259 
260 	hil_dev.dev->id.bustype	= BUS_HIL;
261 	hil_dev.dev->id.vendor	= PCI_VENDOR_ID_HP;
262 	hil_dev.dev->id.product	= 0x0001;
263 	hil_dev.dev->id.version	= 0x0010;
264 
265 	err = input_register_device(hil_dev.dev);
266 	if (err) {
267 		printk(KERN_ERR "HIL: Can't register device\n");
268 		goto err2;
269 	}
270 
271 	printk(KERN_INFO "input: %s, ID %d at 0x%08lx (irq %d) found and attached\n",
272 	       hil_dev.dev->name, kbid, HILBASE, HIL_IRQ);
273 
274 	return 0;
275 
276 err2:
277 	hil_do(HIL_INTOFF, NULL, 0);
278 	free_irq(HIL_IRQ, hil_dev.dev_id);
279 err1:
280 	input_free_device(hil_dev.dev);
281 	hil_dev.dev = NULL;
282 	return err;
283 }
284 
hil_keyb_exit(void)285 static void hil_keyb_exit(void)
286 {
287 	if (HIL_IRQ)
288 		free_irq(HIL_IRQ, hil_dev.dev_id);
289 
290 	/* Turn off interrupts */
291 	hil_do(HIL_INTOFF, NULL, 0);
292 
293 	input_unregister_device(hil_dev.dev);
294 	hil_dev.dev = NULL;
295 }
296 
297 #if defined(CONFIG_PARISC)
hil_probe_chip(struct parisc_device * dev)298 static int __init hil_probe_chip(struct parisc_device *dev)
299 {
300 	/* Only allow one HIL keyboard */
301 	if (hil_dev.dev)
302 		return -ENODEV;
303 
304 	if (!dev->irq) {
305 		printk(KERN_WARNING "HIL: IRQ not found for HIL bus at 0x%p\n",
306 			(void *)dev->hpa.start);
307 		return -ENODEV;
308 	}
309 
310 	hil_base = dev->hpa.start;
311 	hil_irq  = dev->irq;
312 	hil_dev.dev_id = dev;
313 
314 	printk(KERN_INFO "Found HIL bus at 0x%08lx, IRQ %d\n", hil_base, hil_irq);
315 
316 	return hil_keyb_init();
317 }
318 
hil_remove_chip(struct parisc_device * dev)319 static void __exit hil_remove_chip(struct parisc_device *dev)
320 {
321 	hil_keyb_exit();
322 }
323 
324 static const struct parisc_device_id hil_tbl[] __initconst = {
325 	{ HPHW_FIO, HVERSION_REV_ANY_ID, HVERSION_ANY_ID, 0x00073 },
326 	{ 0, }
327 };
328 
329 #if 0
330 /* Disabled to avoid conflicts with the HP SDC HIL drivers */
331 MODULE_DEVICE_TABLE(parisc, hil_tbl);
332 #endif
333 
334 static struct parisc_driver hil_driver __refdata = {
335 	.name		= "hil",
336 	.id_table	= hil_tbl,
337 	.probe		= hil_probe_chip,
338 	.remove		= __exit_p(hil_remove_chip),
339 };
340 
hil_init(void)341 static int __init hil_init(void)
342 {
343 	return register_parisc_driver(&hil_driver);
344 }
345 
hil_exit(void)346 static void __exit hil_exit(void)
347 {
348 	unregister_parisc_driver(&hil_driver);
349 }
350 
351 #else /* !CONFIG_PARISC */
352 
hil_init(void)353 static int __init hil_init(void)
354 {
355 	int error;
356 
357 	/* Only allow one HIL keyboard */
358 	if (hil_dev.dev)
359 		return -EBUSY;
360 
361 	if (!MACH_IS_HP300)
362 		return -ENODEV;
363 
364 	if (!hwreg_present((void *)(HILBASE + HIL_DATA))) {
365 		printk(KERN_ERR "HIL: hardware register was not found\n");
366 		return -ENODEV;
367 	}
368 
369 	if (!request_region(HILBASE + HIL_DATA, 2, "hil")) {
370 		printk(KERN_ERR "HIL: IOPORT region already used\n");
371 		return -EIO;
372 	}
373 
374 	error = hil_keyb_init();
375 	if (error) {
376 		release_region(HILBASE + HIL_DATA, 2);
377 		return error;
378 	}
379 
380 	return 0;
381 }
382 
hil_exit(void)383 static void __exit hil_exit(void)
384 {
385 	hil_keyb_exit();
386 	release_region(HILBASE + HIL_DATA, 2);
387 }
388 
389 #endif /* CONFIG_PARISC */
390 
391 module_init(hil_init);
392 module_exit(hil_exit);
393