/* *  linux/drivers/hil/hilkbd.c * *  Copyright (C) 1998 Philip Blundell <philb@gnu.org> *  Copyright (C) 1999 Matthew Wilcox <willy@bofh.ai> *  Copyright (C) 1999-2003 Helge Deller <deller@gmx.de> * *  Very basic HP Human Interface Loop (HIL) driver. *  This driver handles the keyboard on HP300 (m68k) and on some  *  HP700 (parisc) series machines. * *  * This file is subject to the terms and conditions of the GNU General Public * License version 2.  See the file COPYING in the main directory of this * archive for more details. */#include <linux/pci_ids.h>#include <linux/ioport.h>#include <linux/module.h>#include <linux/config.h>#include <linux/errno.h>#include <linux/input.h>#include <linux/init.h>#include <linux/irq.h>#include <linux/hil.h>#include <linux/spinlock.h>MODULE_AUTHOR("Philip Blundell, Matthew Wilcox, Helge Deller");MODULE_DESCRIPTION("HIL keyboard driver (basic functionality)");MODULE_LICENSE("GPL v2");#if defined(CONFIG_PARISC) #include <asm/io.h> #include <asm/hardware.h> #include <asm/parisc-device.h> static unsigned long hil_base;	/* HPA for the HIL device */ static unsigned int hil_irq; #define HILBASE		hil_base /* HPPA (parisc) port address */ #define HIL_DATA		0x800 #define HIL_CMD		0x801 #define HIL_IRQ		hil_irq #define hil_readb(p)		gsc_readb(p) #define hil_writeb(v,p)	gsc_writeb((v),(p))#elif defined(CONFIG_HP300) #define HILBASE		0xf0428000 /* HP300 (m86k) port address */ #define HIL_DATA		0x1 #define HIL_CMD		0x3 #define HIL_IRQ		2 #define hil_readb(p)		readb(p) #define hil_writeb(v,p)	writeb((v),(p))#else#error "HIL is not supported on this platform"#endif /* HIL helper functions */ #define hil_busy()              (hil_readb(HILBASE + HIL_CMD) & HIL_BUSY)#define hil_data_available()    (hil_readb(HILBASE + HIL_CMD) & HIL_DATA_RDY)#define hil_status()            (hil_readb(HILBASE + HIL_CMD))#define hil_command(x)          do { hil_writeb((x), HILBASE + HIL_CMD); } while (0)#define hil_read_data()         (hil_readb(HILBASE + HIL_DATA))#define hil_write_data(x)       do { hil_writeb((x), HILBASE + HIL_DATA); } while (0)/* HIL constants */ #define	HIL_BUSY		0x02#define	HIL_DATA_RDY		0x01#define	HIL_SETARD		0xA0		/* set auto-repeat delay */#define	HIL_SETARR		0xA2		/* set auto-repeat rate */#define	HIL_SETTONE		0xA3		/* set tone generator */#define	HIL_CNMT		0xB2		/* clear nmi */#define	HIL_INTON		0x5C		/* Turn on interrupts. */#define	HIL_INTOFF		0x5D		/* Turn off interrupts. */#define	HIL_READKBDSADR	 	0xF9#define	HIL_WRITEKBDSADR 	0xE9static unsigned int hphilkeyb_keycode[HIL_KEYCODES_SET1_TBLSIZE] = 	{ HIL_KEYCODES_SET1 };/* HIL structure */static struct {	struct input_dev dev;	unsigned int curdev;		unsigned char s;	unsigned char c;	int valid;		unsigned char data[16];	unsigned int ptr;	spinlock_t lock;	void *dev_id;	/* native bus device */} hil_dev;static void poll_finished(void){	int down;	int key;	unsigned char scode;		switch (hil_dev.data[0]) {	case 0x40:		down = (hil_dev.data[1] & 1) == 0;		scode = hil_dev.data[1] >> 1;		key = hphilkeyb_keycode[scode];		input_report_key(&hil_dev.dev, key, down);		break;	}	hil_dev.curdev = 0;}static inline void handle_status(unsigned char s, unsigned char c){	if (c & 0x8) {		/* End of block */		if (c & 0x10)			poll_finished();	} else {		if (c & 0x10) {			if (hil_dev.curdev)				poll_finished();  /* just in case */			hil_dev.curdev = c & 7;			hil_dev.ptr = 0;		}	}}static inline void handle_data(unsigned char s, unsigned char c){	if (hil_dev.curdev) {		hil_dev.data[hil_dev.ptr++] = c;		hil_dev.ptr &= 15;	}}/*  * Handle HIL interrupts. */static irqreturn_t hil_interrupt(int irq, void *handle, struct pt_regs *regs){	unsigned char s, c;		s = hil_status();	c = hil_read_data();	switch (s >> 4) {	case 0x5:		handle_status(s, c);		break;	case 0x6:		handle_data(s, c);		break;	case 0x4:		hil_dev.s = s;		hil_dev.c = c;		mb();		hil_dev.valid = 1;		break;	}	return IRQ_HANDLED;}/* * Send a command to the HIL */static void hil_do(unsigned char cmd, unsigned char *data, unsigned int len){	unsigned long flags;	spin_lock_irqsave(&hil_dev.lock, flags);	while (hil_busy())		/* wait */;	hil_command(cmd);	while (len--) {		while (hil_busy())			/* wait */;		hil_write_data(*(data++));	}	spin_unlock_irqrestore(&hil_dev.lock, flags);}/* * Initialise HIL.  */static int __inithil_keyb_init(void){	unsigned char c;	unsigned int i, kbid;	wait_queue_head_t hil_wait;	if (hil_dev.dev.id.bustype) {		return -ENODEV; /* already initialized */	}	#if defined(CONFIG_HP300)	if (!hwreg_present((void *)(HILBASE + HIL_DATA)))		return -ENODEV;		request_region(HILBASE+HIL_DATA, 2, "hil");#endif		request_irq(HIL_IRQ, hil_interrupt, 0, "hil", hil_dev.dev_id);	/* Turn on interrupts */	hil_do(HIL_INTON, NULL, 0);	/* Look for keyboards */	hil_dev.valid = 0;	/* clear any pending data */	hil_do(HIL_READKBDSADR, NULL, 0);	init_waitqueue_head(&hil_wait);	wait_event_interruptible_timeout(hil_wait, hil_dev.valid, 3*HZ);	if (!hil_dev.valid) {		printk(KERN_WARNING "HIL: timed out, assuming no keyboard present.\n");	}	c = hil_dev.c; 	hil_dev.valid = 0;	if (c == 0) {		kbid = -1;		printk(KERN_WARNING "HIL: no keyboard present.\n");	} else {		kbid = ffz(~c);		/* printk(KERN_INFO "HIL: keyboard found at id %d\n", kbid); */	}	/* set it to raw mode */	c = 0;	hil_do(HIL_WRITEKBDSADR, &c, 1);		init_input_dev(&hil_dev.dev);	for (i = 0; i < HIL_KEYCODES_SET1_TBLSIZE; i++)		if (hphilkeyb_keycode[i] != KEY_RESERVED)			set_bit(hphilkeyb_keycode[i], hil_dev.dev.keybit);	hil_dev.dev.evbit[0]    = BIT(EV_KEY) | BIT(EV_REP);	hil_dev.dev.ledbit[0]   = BIT(LED_NUML) | BIT(LED_CAPSL) | BIT(LED_SCROLLL);	hil_dev.dev.keycodemax  = HIL_KEYCODES_SET1_TBLSIZE;        hil_dev.dev.keycodesize = sizeof(hphilkeyb_keycode[0]);	hil_dev.dev.keycode     = hphilkeyb_keycode;	hil_dev.dev.name 	= "HIL keyboard";	hil_dev.dev.phys 	= "hpkbd/input0";	hil_dev.dev.id.bustype	= BUS_HIL;	hil_dev.dev.id.vendor	= PCI_VENDOR_ID_HP;	hil_dev.dev.id.product	= 0x0001;	hil_dev.dev.id.version	= 0x0010;	input_register_device(&hil_dev.dev);	printk(KERN_INFO "input: %s, ID %d at 0x%08lx (irq %d) found and attached\n",		hil_dev.dev.name, kbid, HILBASE, HIL_IRQ);	return 0;}#if defined(CONFIG_PARISC)static int __inithil_init_chip(struct parisc_device *dev){	if (!dev->irq) {		printk(KERN_WARNING "HIL: IRQ not found for HIL bus at 0x%08lx\n", dev->hpa);		return -ENODEV;	}	hil_base = dev->hpa;	hil_irq  = dev->irq;	hil_dev.dev_id = dev;		printk(KERN_INFO "Found HIL bus at 0x%08lx, IRQ %d\n", hil_base, hil_irq);	return hil_keyb_init();}static struct parisc_device_id hil_tbl[] = {	{ HPHW_FIO, HVERSION_REV_ANY_ID, HVERSION_ANY_ID, 0x00073 },	{ 0, }};MODULE_DEVICE_TABLE(parisc, hil_tbl);static struct parisc_driver hil_driver = {	.name =		"HIL",	.id_table =	hil_tbl,	.probe =	hil_init_chip,};#endif /* CONFIG_PARISC */static int __init hil_init(void){#if defined(CONFIG_PARISC)	return register_parisc_driver(&hil_driver);#else	return hil_keyb_init();#endif}static void __exit hil_exit(void){	if (HIL_IRQ) {		disable_irq(HIL_IRQ);		free_irq(HIL_IRQ, hil_dev.dev_id);	}	/* Turn off interrupts */	hil_do(HIL_INTOFF, NULL, 0);	input_unregister_device(&hil_dev.dev);#if defined(CONFIG_PARISC)	unregister_parisc_driver(&hil_driver);#else	release_region(HILBASE+HIL_DATA, 2);#endif}module_init(hil_init);module_exit(hil_exit);