Subversion Repositories or1k

/*
 * linux/drivers/char/ec3104_keyb.c
 * 
 * Copyright (C) 2000 Philipp Rumpf <prumpf@tux.org>
 *
 * based on linux/drivers/char/pc_keyb.c, which had the following comments:
 *
 * Separation of the PC low-level part by Geert Uytterhoeven, May 1997
 * See keyboard.c for the whole history.
 *
 * Major cleanup by Martin Mares, May 1997
 *
 * Combined the keyboard and PS/2 mouse handling into one file,
 * because they share the same hardware.
 * Johan Myreen <jem@iki.fi> 1998-10-08.
 *
 * Code fixes to handle mouse ACKs properly.
 * C. Scott Ananian <cananian@alumni.princeton.edu> 1999-01-29.
 */
/* EC3104 note:
 * This code was written without any documentation about the EC3104 chip.  While
 * I hope I got most of the basic functionality right, the register names I use
 * are most likely completely different from those in the chip documentation.
 *
 * If you have any further information about the EC3104, please tell me
 * (prumpf@tux.org).
 */
 
#include <linux/config.h>
 
#include <linux/spinlock.h>
#include <linux/sched.h>
#include <linux/interrupt.h>
#include <linux/tty.h>
#include <linux/mm.h>
#include <linux/signal.h>
#include <linux/init.h>
#include <linux/kbd_ll.h>
#include <linux/delay.h>
#include <linux/random.h>
#include <linux/poll.h>
#include <linux/miscdevice.h>
#include <linux/slab.h>
#include <linux/kbd_kern.h>
#include <linux/smp_lock.h>
 
#include <asm/keyboard.h>
#include <asm/bitops.h>
#include <asm/uaccess.h>
#include <asm/irq.h>
#include <asm/system.h>
#include <asm/ec3104.h>
 
#include <asm/io.h>
 
/* Some configuration switches are present in the include file... */
 
#include <linux/pc_keyb.h>
 
#define MSR_CTS 0x10
#define MCR_RTS 0x02
#define LSR_DR 0x01
#define LSR_BOTH_EMPTY 0x60
 
static struct e5_struct {
	u8 packet[8];
	int pos;
	int length;
 
	u8 cached_mcr;
	u8 last_msr;
} ec3104_keyb;
 
/* Simple translation table for the SysRq keys */
 
 
#ifdef CONFIG_MAGIC_SYSRQ
unsigned char ec3104_kbd_sysrq_xlate[128] =
	"\000\0331234567890-=\177\t"			/* 0x00 - 0x0f */
	"qwertyuiop[]\r\000as"				/* 0x10 - 0x1f */
	"dfghjkl;'`\000\\zxcv"				/* 0x20 - 0x2f */
	"bnm,./\000*\000 \000\201\202\203\204\205"	/* 0x30 - 0x3f */
	"\206\207\210\211\212\000\000789-456+1"		/* 0x40 - 0x4f */
	"230\177\000\000\213\214\000\000\000\000\000\000\000\000\000\000" /* 0x50 - 0x5f */
	"\r\000/";					/* 0x60 - 0x6f */
#endif
 
static void kbd_write_command_w(int data);
static void kbd_write_output_w(int data);
#ifdef CONFIG_PSMOUSE
static void aux_write_ack(int val);
static void __aux_write_ack(int val);
#endif
 
static spinlock_t kbd_controller_lock = SPIN_LOCK_UNLOCKED;
static unsigned char handle_kbd_event(void);
 
/* used only by send_data - set by keyboard_interrupt */
static volatile unsigned char reply_expected;
static volatile unsigned char acknowledge;
static volatile unsigned char resend;
 
 
int ec3104_kbd_setkeycode(unsigned int scancode, unsigned int keycode)
{
	return 0;
}
 
int ec3104_kbd_getkeycode(unsigned int scancode)
{
	return 0;
}
 
 
/* yes, it probably would be faster to use an array.  I don't care. */
 
static inline unsigned char ec3104_scan2key(unsigned char scancode)
{
	switch (scancode) {
	case  1: /* '`' */
		return 41;
 
	case  2 ... 27:
		return scancode;
 
	case 28: /* '\\' */
		return 43;
 
	case 29 ... 39:
		return scancode + 1;
 
	case 40: /* '\r' */
		return 28;
 
	case 41 ... 50:
		return scancode + 3;
 
	case 51: /* ' ' */
		return 57;
 
	case 52: /* escape */
		return 1;
 
	case 54: /* insert/delete (labelled delete) */
		/* this should arguably be 110, but I'd like to have ctrl-alt-del
		 * working with a standard keymap */
		return 111;
 
	case 55: /* left */
		return 105;
	case 56: /* home */
		return 102;
	case 57: /* end */
		return 107;
	case 58: /* up */
		return 103;
	case 59: /* down */
		return 108;
	case 60: /* pgup */
		return 104;
	case 61: /* pgdown */
		return 109;
	case 62: /* right */
		return 106;
 
	case 79 ... 88: /* f1 - f10 */
		return scancode - 20;
 
	case 89 ... 90: /* f11 - f12 */
		return scancode - 2;
 
	case 91: /* left shift */
		return 42;
 
	case 92: /* right shift */
		return 54;
 
	case 93: /* left alt */
		return 56;
	case 94: /* right alt */
		return 100;
	case 95: /* left ctrl */
		return 29;
	case 96: /* right ctrl */
		return 97;
 
	case 97: /* caps lock */
		return 58;
	case 102: /* left windows */
		return 125;
	case 103: /* right windows */
		return 126;
 
	case 106: /* Fn */
		/* this is wrong. */
		return 84;
 
	default:
		return 0;
	}
}
 
int ec3104_kbd_translate(unsigned char scancode, unsigned char *keycode,
		    char raw_mode)
{
	scancode &= 0x7f;
 
	*keycode = ec3104_scan2key(scancode);
 
 	return 1;
}
 
char ec3104_kbd_unexpected_up(unsigned char keycode)
{
	return 0200;
}
 
static inline void handle_keyboard_event(unsigned char scancode)
{
#ifdef CONFIG_VT
	handle_scancode(scancode, !(scancode & 0x80));
#endif				
	tasklet_schedule(&keyboard_tasklet);
}	
 
void ec3104_kbd_leds(unsigned char leds)
{
}
 
static u8 e5_checksum(u8 *packet, int count)
{
	int i;
	u8 sum = 0;
 
	for (i=0; i<count; i++)
		sum ^= packet[i];
 
	if (sum & 0x80)
		sum ^= 0xc0;
 
	return sum;
}
 
static void e5_wait_for_cts(struct e5_struct *k)
{
	u8 msr;
 
	do {
		msr = ctrl_inb(EC3104_SER4_MSR);
	} while (!(msr & MSR_CTS));
}
 
 
static void e5_send_byte(u8 byte, struct e5_struct *k)
{
	u8 status;
 
	do {
		status = ctrl_inb(EC3104_SER4_LSR);
	} while ((status & LSR_BOTH_EMPTY) != LSR_BOTH_EMPTY);
 
	printk("<%02x>", byte);
 
	ctrl_outb(byte, EC3104_SER4_DATA);
 
	do {
		status = ctrl_inb(EC3104_SER4_LSR);
	} while ((status & LSR_BOTH_EMPTY) != LSR_BOTH_EMPTY);
 
}
 
static int e5_send_packet(u8 *packet, int count, struct e5_struct *k)
{
	int i;
 
	disable_irq(EC3104_IRQ_SER4);
 
	if (k->cached_mcr & MCR_RTS) {
		printk("e5_send_packet: too slow\n");
		enable_irq(EC3104_IRQ_SER4);
		return -EAGAIN;
	}
 
	k->cached_mcr |= MCR_RTS;
	ctrl_outb(k->cached_mcr, EC3104_SER4_MCR);
 
	e5_wait_for_cts(k);
 
	printk("p: ");
 
	for(i=0; i<count; i++)
		e5_send_byte(packet[i], k);
 
	e5_send_byte(e5_checksum(packet, count), k);
 
	printk("\n");
 
	udelay(1500);
 
	k->cached_mcr &= ~MCR_RTS;
	ctrl_outb(k->cached_mcr, EC3104_SER4_MCR);
 
	set_current_state(TASK_UNINTERRUPTIBLE);
 
 
 
	enable_irq(EC3104_IRQ_SER4);
 
 
 
	return 0;
}
 
/*
 * E5 packets we know about:
 * E5->host 0x80 0x05 <checksum> - resend packet
 * host->E5 0x83 0x43 <contrast> - set LCD contrast
 * host->E5 0x85 0x41 0x02 <brightness> 0x02 - set LCD backlight
 * E5->host 0x87 <ps2 packet> 0x00 <checksum> - external PS2 
 * E5->host 0x88 <scancode> <checksum> - key press
 */
 
static void e5_receive(struct e5_struct *k)
{
	k->packet[k->pos++] = ctrl_inb(EC3104_SER4_DATA);
 
	if (k->pos == 1) {
		switch(k->packet[0]) {
		case 0x80:
			k->length = 3;
			break;
 
		case 0x87: /* PS2 ext */
			k->length = 6;
			break;
 
		case 0x88: /* keyboard */
			k->length = 3;
			break;
 
		default:
			k->length = 1;
			printk(KERN_WARNING "unknown E5 packet %02x\n",
			       k->packet[0]);
		}
	}
 
	if (k->pos == k->length) {
		int i;
 
		if (e5_checksum(k->packet, k->length) != 0)
			printk(KERN_WARNING "E5: wrong checksum\n");
 
#if 0
		printk("E5 packet [");
		for(i=0; i<k->length; i++) {
			printk("%02x ", k->packet[i]);
		}
 
		printk("(%02x)]\n", e5_checksum(k->packet, k->length-1));
#endif
 
		switch(k->packet[0]) {
		case 0x80:
		case 0x88:
			handle_keyboard_event(k->packet[1]);
			break;
		}
 
		k->pos = k->length = 0;
	}
}
 
static void ec3104_keyb_interrupt(int irq, void *data, struct pt_regs *regs)
{
	struct e5_struct *k = &ec3104_keyb;
	u8 msr, lsr;
 
	kbd_pt_regs = regs;
 
	msr = ctrl_inb(EC3104_SER4_MSR);
 
	if ((msr & MSR_CTS) && !(k->last_msr & MSR_CTS)) {
		if (k->cached_mcr & MCR_RTS)
			printk("confused: RTS already high\n");
		/* CTS went high.  Send RTS. */
		k->cached_mcr |= MCR_RTS;
 
		ctrl_outb(k->cached_mcr, EC3104_SER4_MCR);
	} else if ((!(msr & MSR_CTS)) && (k->last_msr & MSR_CTS)) {
		/* CTS went low. */
		if (!(k->cached_mcr & MCR_RTS))
			printk("confused: RTS already low\n");
 
		k->cached_mcr &= ~MCR_RTS;
 
		ctrl_outb(k->cached_mcr, EC3104_SER4_MCR);
	}
 
	k->last_msr = msr;
 
	lsr = ctrl_inb(EC3104_SER4_LSR);
 
	if (lsr & LSR_DR)
		e5_receive(k);
}
 
static void ec3104_keyb_clear_state(void)
{
	struct e5_struct *k = &ec3104_keyb;
	u8 msr, lsr;
 
	/* we want CTS to be low */
	k->last_msr = 0;
 
	for (;;) {
		schedule_timeout(HZ/10);
 
		msr = ctrl_inb(EC3104_SER4_MSR);
 
		lsr = ctrl_inb(EC3104_SER4_LSR);
 
		if (lsr & LSR_DR) {
			e5_receive(k);
			continue;
		}
 
		if ((msr & MSR_CTS) && !(k->last_msr & MSR_CTS)) {
			if (k->cached_mcr & MCR_RTS)
				printk("confused: RTS already high\n");
			/* CTS went high.  Send RTS. */
			k->cached_mcr |= MCR_RTS;
 
			ctrl_outb(k->cached_mcr, EC3104_SER4_MCR);
		} else if ((!(msr & MSR_CTS)) && (k->last_msr & MSR_CTS)) {
			/* CTS went low. */
			if (!(k->cached_mcr & MCR_RTS))
				printk("confused: RTS already low\n");
 
			k->cached_mcr &= ~MCR_RTS;
 
			ctrl_outb(k->cached_mcr, EC3104_SER4_MCR);
		} else
			break;
 
		k->last_msr = msr;
 
		continue;
	}
}
 
void __init ec3104_kbd_init_hw(void)
{
	ec3104_keyb.last_msr = ctrl_inb(EC3104_SER4_MSR);
	ec3104_keyb.cached_mcr = ctrl_inb(EC3104_SER4_MCR);
 
	ec3104_keyb_clear_state();
 
	/* Ok, finally allocate the IRQ, and off we go.. */
	request_irq(EC3104_IRQ_SER4, ec3104_keyb_interrupt, 0, "keyboard", NULL);
}