Home | History | Annotate | Line # | Download | only in dev
kbd.c revision 1.42.16.1
      1  1.42.16.1     rmind /*	$NetBSD: kbd.c,v 1.42.16.1 2014/05/18 17:44:59 rmind Exp $	*/
      2        1.1       leo 
      3        1.1       leo /*
      4       1.28       leo  * Copyright (c) 1995 Leo Weppelman
      5        1.1       leo  * Copyright (c) 1982, 1986, 1990 The Regents of the University of California.
      6        1.1       leo  * All rights reserved.
      7        1.1       leo  *
      8        1.1       leo  * Redistribution and use in source and binary forms, with or without
      9        1.1       leo  * modification, are permitted provided that the following conditions
     10        1.1       leo  * are met:
     11        1.1       leo  * 1. Redistributions of source code must retain the above copyright
     12        1.1       leo  *    notice, this list of conditions and the following disclaimer.
     13        1.1       leo  * 2. Redistributions in binary form must reproduce the above copyright
     14        1.1       leo  *    notice, this list of conditions and the following disclaimer in the
     15        1.1       leo  *    documentation and/or other materials provided with the distribution.
     16       1.26       agc  * 3. Neither the name of the University nor the names of its contributors
     17       1.26       agc  *    may be used to endorse or promote products derived from this software
     18       1.26       agc  *    without specific prior written permission.
     19       1.26       agc  *
     20       1.26       agc  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     21       1.26       agc  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     22       1.26       agc  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     23       1.26       agc  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     24       1.26       agc  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     25       1.26       agc  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     26       1.26       agc  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     27       1.26       agc  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     28       1.26       agc  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     29       1.26       agc  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     30       1.26       agc  * SUCH DAMAGE.
     31       1.26       agc  */
     32       1.26       agc 
     33       1.25     lukem #include <sys/cdefs.h>
     34  1.42.16.1     rmind __KERNEL_RCSID(0, "$NetBSD: kbd.c,v 1.42.16.1 2014/05/18 17:44:59 rmind Exp $");
     35        1.1       leo 
     36       1.23    thomas #include "mouse.h"
     37       1.23    thomas #include "ite.h"
     38       1.23    thomas #include "wskbd.h"
     39       1.23    thomas 
     40        1.1       leo #include <sys/param.h>
     41        1.1       leo #include <sys/systm.h>
     42        1.1       leo #include <sys/device.h>
     43        1.1       leo #include <sys/ioctl.h>
     44        1.1       leo #include <sys/tty.h>
     45        1.1       leo #include <sys/proc.h>
     46        1.1       leo #include <sys/conf.h>
     47        1.1       leo #include <sys/file.h>
     48        1.1       leo #include <sys/kernel.h>
     49        1.9       leo #include <sys/signalvar.h>
     50        1.1       leo #include <sys/syslog.h>
     51        1.1       leo #include <dev/cons.h>
     52        1.1       leo #include <machine/cpu.h>
     53        1.1       leo #include <machine/iomap.h>
     54        1.1       leo #include <machine/mfp.h>
     55        1.1       leo #include <machine/acia.h>
     56        1.1       leo #include <atari/dev/itevar.h>
     57        1.1       leo #include <atari/dev/event_var.h>
     58        1.1       leo #include <atari/dev/vuid_event.h>
     59        1.9       leo #include <atari/dev/ym2149reg.h>
     60        1.9       leo #include <atari/dev/kbdreg.h>
     61        1.9       leo #include <atari/dev/kbdvar.h>
     62       1.15       leo #include <atari/dev/kbdmap.h>
     63        1.9       leo #include <atari/dev/msvar.h>
     64        1.1       leo 
     65       1.23    thomas #if NWSKBD>0
     66       1.23    thomas #include <dev/wscons/wsconsio.h>
     67       1.23    thomas #include <dev/wscons/wskbdvar.h>
     68       1.23    thomas #include <dev/wscons/wsksymdef.h>
     69       1.23    thomas #include <dev/wscons/wsksymvar.h>
     70       1.23    thomas #include <atari/dev/wskbdmap_atari.h>
     71       1.23    thomas #endif
     72       1.23    thomas 
     73       1.23    thomas /* WSKBD */
     74       1.23    thomas /*
     75       1.23    thomas  * If NWSKBD>0 we try to attach an wskbd device to us. What follows
     76       1.23    thomas  * is definitions of callback functions and structures that are passed
     77       1.23    thomas  * to wscons when initializing.
     78       1.23    thomas  */
     79       1.23    thomas 
     80       1.23    thomas /*
     81       1.23    thomas  * Now with wscons this driver exhibits some weird behaviour.
     82       1.23    thomas  * It may act both as a driver of its own and the md part of the
     83       1.23    thomas  * wskbd driver. Therefore it can be accessed through /dev/kbd
     84       1.23    thomas  * and /dev/wskbd0 both.
     85       1.23    thomas  *
     86       1.23    thomas  * The data from they keyboard may end up in at least four different
     87       1.23    thomas  * places:
     88       1.23    thomas  * - If this driver has been opened (/dev/kbd) and the
     89       1.23    thomas  *   direct mode (TIOCDIRECT) has been set, data goes to
     90       1.23    thomas  *   the process who opened the device. Data will transmit itself
     91       1.23    thomas  *   as described by the firm_event structure.
     92       1.23    thomas  * - If wskbd support is compiled in and a wskbd driver has been
     93       1.23    thomas  *   attached then the data is sent to it. Wskbd in turn may
     94       1.23    thomas  *   - Send the data in the wscons_event form to a process that
     95       1.23    thomas  *     has opened /dev/wskbd0
     96       1.23    thomas  *   - Feed the data to a virtual terminal.
     97       1.23    thomas  * - If an ite is present the data may be fed to it.
     98       1.23    thomas  */
     99        1.5       leo 
    100       1.37   tsutsui uint8_t			kbd_modifier;	/* Modifier mask		*/
    101       1.15       leo 
    102       1.37   tsutsui static uint8_t		kbd_ring[KBD_RING_SIZE];
    103        1.1       leo static volatile u_int	kbd_rbput = 0;	/* 'put' index			*/
    104        1.1       leo static u_int		kbd_rbget = 0;	/* 'get' index			*/
    105        1.1       leo 
    106        1.1       leo static struct kbd_softc kbd_softc;
    107        1.1       leo 
    108        1.6       leo /* {b,c}devsw[] function prototypes */
    109        1.6       leo dev_type_open(kbdopen);
    110        1.6       leo dev_type_close(kbdclose);
    111        1.6       leo dev_type_read(kbdread);
    112        1.6       leo dev_type_ioctl(kbdioctl);
    113       1.13       leo dev_type_poll(kbdpoll);
    114       1.22  jdolecek dev_type_kqfilter(kbdkqfilter);
    115        1.6       leo 
    116        1.6       leo /* Interrupt handler */
    117       1.33       dsl void	kbdintr(int);
    118        1.6       leo 
    119       1.39   tsutsui static void kbdsoft(void *);
    120       1.42   tsutsui static void kbdattach(device_t, device_t, void *);
    121       1.42   tsutsui static int  kbdmatch(device_t, cfdata_t, void *);
    122       1.23    thomas #if NITE>0
    123       1.37   tsutsui static int  kbd_do_modifier(uint8_t);
    124       1.23    thomas #endif
    125       1.38   tsutsui static int  kbd_write_poll(const uint8_t *, int);
    126       1.37   tsutsui static void kbd_pkg_start(struct kbd_softc *, uint8_t);
    127        1.1       leo 
    128       1.42   tsutsui CFATTACH_DECL_NEW(kbd, 0,
    129       1.21   thorpej     kbdmatch, kbdattach, NULL, NULL);
    130       1.19   gehenna 
    131       1.19   gehenna const struct cdevsw kbd_cdevsw = {
    132  1.42.16.1     rmind 	.d_open = kbdopen,
    133  1.42.16.1     rmind 	.d_close = kbdclose,
    134  1.42.16.1     rmind 	.d_read = kbdread,
    135  1.42.16.1     rmind 	.d_write = nowrite,
    136  1.42.16.1     rmind 	.d_ioctl = kbdioctl,
    137  1.42.16.1     rmind 	.d_stop = nostop,
    138  1.42.16.1     rmind 	.d_tty = notty,
    139  1.42.16.1     rmind 	.d_poll = kbdpoll,
    140  1.42.16.1     rmind 	.d_mmap = nommap,
    141  1.42.16.1     rmind 	.d_kqfilter = kbdkqfilter,
    142  1.42.16.1     rmind 	.d_flag = 0
    143        1.7   thorpej };
    144        1.9       leo 
    145       1.23    thomas #if NWSKBD>0
    146       1.23    thomas /* accessops */
    147       1.23    thomas static int	kbd_enable(void *, int);
    148       1.23    thomas static void	kbd_set_leds(void *, int);
    149       1.30  christos static int	kbd_ioctl(void *, u_long, void *, int, struct lwp *);
    150       1.23    thomas 
    151       1.23    thomas /* console ops */
    152       1.23    thomas static void	kbd_getc(void *, u_int *, int *);
    153       1.23    thomas static void	kbd_pollc(void *, int);
    154       1.23    thomas static void	kbd_bell(void *, u_int, u_int, u_int);
    155       1.23    thomas 
    156       1.23    thomas static struct wskbd_accessops kbd_accessops = {
    157       1.23    thomas 	kbd_enable,
    158       1.23    thomas 	kbd_set_leds,
    159       1.23    thomas 	kbd_ioctl
    160       1.23    thomas };
    161       1.23    thomas 
    162       1.23    thomas static struct wskbd_consops kbd_consops = {
    163       1.23    thomas         kbd_getc,
    164       1.23    thomas 	kbd_pollc,
    165       1.23    thomas 	kbd_bell
    166       1.23    thomas };
    167       1.23    thomas 
    168       1.23    thomas /* Pointer to keymaps. */
    169       1.23    thomas static struct wskbd_mapdata kbd_mapdata = {
    170       1.23    thomas         atarikbd_keydesctab,
    171       1.23    thomas 	KB_US
    172       1.23    thomas };
    173       1.23    thomas #endif /* WSKBD */
    174       1.23    thomas 
    175        1.1       leo /*ARGSUSED*/
    176        1.1       leo static	int
    177       1.42   tsutsui kbdmatch(device_t parent, cfdata_t cf, void *aux)
    178        1.1       leo {
    179       1.37   tsutsui 
    180       1.42   tsutsui 	if (!strcmp((char *)aux, "kbd"))
    181       1.37   tsutsui 		return 1;
    182       1.37   tsutsui 	return 0;
    183        1.1       leo }
    184        1.1       leo 
    185        1.1       leo /*ARGSUSED*/
    186        1.1       leo static void
    187       1.42   tsutsui kbdattach(device_t parent, device_t self, void *aux)
    188        1.1       leo {
    189       1.37   tsutsui 	int timeout;
    190       1.38   tsutsui 	const uint8_t kbd_rst[]  = { 0x80, 0x01 };
    191       1.38   tsutsui 	const uint8_t kbd_icmd[] = { 0x12, 0x15 };
    192        1.3       leo 
    193        1.3       leo 	/*
    194        1.3       leo 	 * Disable keyboard interrupts from MFP
    195        1.3       leo 	 */
    196        1.3       leo 	MFP->mf_ierb &= ~IB_AINT;
    197        1.3       leo 
    198        1.3       leo 	/*
    199        1.3       leo 	 * Reset ACIA and intialize to:
    200        1.3       leo 	 *    divide by 16, 8 data, 1 stop, no parity, enable RX interrupts
    201        1.3       leo 	 */
    202        1.3       leo 	KBD->ac_cs = A_RESET;
    203        1.3       leo 	delay(100);	/* XXX: enough? */
    204        1.3       leo 	KBD->ac_cs = kbd_softc.k_soft_cs = KBD_INIT | A_RXINT;
    205        1.3       leo 
    206        1.3       leo 	/*
    207        1.3       leo 	 * Clear error conditions
    208        1.3       leo 	 */
    209        1.3       leo 	while (KBD->ac_cs & (A_IRQ|A_RXRDY))
    210        1.3       leo 		timeout = KBD->ac_da;
    211        1.3       leo 
    212        1.3       leo 	/*
    213        1.3       leo 	 * Now send the reset string, and read+ignore it's response
    214        1.3       leo 	 */
    215        1.4       leo 	if (!kbd_write_poll(kbd_rst, 2))
    216       1.12  christos 		printf("kbd: error cannot reset keyboard\n");
    217        1.3       leo 	for (timeout = 1000; timeout > 0; timeout--) {
    218        1.3       leo 		if (KBD->ac_cs & (A_IRQ|A_RXRDY)) {
    219        1.3       leo 			timeout = KBD->ac_da;
    220        1.3       leo 			timeout = 100;
    221        1.3       leo 		}
    222        1.3       leo 		delay(100);
    223        1.3       leo 	}
    224        1.4       leo 	/*
    225        1.4       leo 	 * Send init command: disable mice & joysticks
    226        1.4       leo 	 */
    227        1.4       leo 	kbd_write_poll(kbd_icmd, sizeof(kbd_icmd));
    228        1.3       leo 
    229       1.12  christos 	printf("\n");
    230       1.23    thomas 
    231       1.39   tsutsui 	kbd_softc.k_sicookie = softint_establish(SOFTINT_SERIAL, kbdsoft, NULL);
    232       1.39   tsutsui 
    233       1.23    thomas #if NWSKBD>0
    234       1.42   tsutsui 	if (self != NULL) {
    235       1.23    thomas 		/*
    236       1.23    thomas 		 * Try to attach the wskbd.
    237       1.23    thomas 		 */
    238       1.23    thomas 		struct wskbddev_attach_args waa;
    239       1.23    thomas 
    240       1.23    thomas 		/* Maybe should be done before this?... */
    241       1.23    thomas 		wskbd_cnattach(&kbd_consops, NULL, &kbd_mapdata);
    242       1.23    thomas 
    243       1.23    thomas 		waa.console = 1;
    244       1.23    thomas 		waa.keymap = &kbd_mapdata;
    245       1.23    thomas 		waa.accessops = &kbd_accessops;
    246       1.23    thomas 		waa.accesscookie = NULL;
    247       1.42   tsutsui 		kbd_softc.k_wskbddev = config_found(self, &waa, wskbddevprint);
    248       1.23    thomas 
    249       1.23    thomas 		kbd_softc.k_pollingmode = 0;
    250       1.23    thomas 
    251       1.23    thomas 		kbdenable();
    252       1.23    thomas 	}
    253       1.23    thomas #endif /* WSKBD */
    254        1.1       leo }
    255        1.1       leo 
    256        1.1       leo void
    257       1.36    cegger kbdenable(void)
    258        1.1       leo {
    259       1.37   tsutsui 	int s, code;
    260        1.1       leo 
    261        1.1       leo 	s = spltty();
    262        1.3       leo 
    263        1.1       leo 	/*
    264        1.3       leo 	 * Clear error conditions...
    265        1.1       leo 	 */
    266        1.3       leo 	while (KBD->ac_cs & (A_IRQ|A_RXRDY))
    267        1.3       leo 		code = KBD->ac_da;
    268  1.42.16.1     rmind 	__USE(code);
    269        1.1       leo 	/*
    270        1.1       leo 	 * Enable interrupts from MFP
    271        1.1       leo 	 */
    272       1.18       leo 	MFP->mf_iprb  = (u_int8_t)~IB_AINT;
    273        1.1       leo 	MFP->mf_ierb |= IB_AINT;
    274        1.1       leo 	MFP->mf_imrb |= IB_AINT;
    275        1.1       leo 
    276        1.1       leo 	kbd_softc.k_event_mode   = 0;
    277        1.1       leo 	kbd_softc.k_events.ev_io = 0;
    278        1.3       leo 	kbd_softc.k_pkg_size     = 0;
    279        1.1       leo 	splx(s);
    280        1.1       leo }
    281        1.1       leo 
    282       1.29  christos int kbdopen(dev_t dev, int flags, int mode, struct lwp *l)
    283        1.1       leo {
    284       1.37   tsutsui 
    285        1.3       leo 	if (kbd_softc.k_events.ev_io)
    286        1.1       leo 		return EBUSY;
    287        1.1       leo 
    288       1.29  christos 	kbd_softc.k_events.ev_io = l->l_proc;
    289        1.1       leo 	ev_init(&kbd_softc.k_events);
    290       1.37   tsutsui 	return 0;
    291        1.1       leo }
    292        1.1       leo 
    293        1.1       leo int
    294       1.29  christos kbdclose(dev_t dev, int flags, int mode, struct lwp *l)
    295        1.1       leo {
    296       1.37   tsutsui 
    297        1.1       leo 	/* Turn off event mode, dump the queue */
    298        1.1       leo 	kbd_softc.k_event_mode = 0;
    299        1.1       leo 	ev_fini(&kbd_softc.k_events);
    300        1.1       leo 	kbd_softc.k_events.ev_io = NULL;
    301       1.37   tsutsui 	return 0;
    302        1.1       leo }
    303        1.1       leo 
    304        1.1       leo int
    305        1.1       leo kbdread(dev_t dev, struct uio *uio, int flags)
    306        1.1       leo {
    307       1.37   tsutsui 
    308        1.1       leo 	return ev_read(&kbd_softc.k_events, uio, flags);
    309        1.1       leo }
    310        1.1       leo 
    311        1.1       leo int
    312       1.37   tsutsui kbdioctl(dev_t dev, u_long cmd, register void *data, int flag, struct lwp *l)
    313        1.1       leo {
    314        1.1       leo 	register struct kbd_softc *k = &kbd_softc;
    315       1.16       leo 	struct kbdbell	*kb;
    316        1.1       leo 
    317        1.1       leo 	switch (cmd) {
    318        1.1       leo 		case KIOCTRANS:
    319        1.3       leo 			if (*(int *)data == TR_UNTRANS_EVENT)
    320        1.1       leo 				return 0;
    321        1.1       leo 			break;
    322        1.1       leo 
    323        1.1       leo 		case KIOCGTRANS:
    324        1.1       leo 			/*
    325        1.1       leo 			 * Get translation mode
    326        1.1       leo 			 */
    327        1.1       leo 			*(int *)data = TR_UNTRANS_EVENT;
    328        1.1       leo 			return 0;
    329        1.1       leo 
    330        1.1       leo 		case KIOCSDIRECT:
    331        1.1       leo 			k->k_event_mode = *(int *)data;
    332        1.1       leo 			return 0;
    333       1.16       leo 
    334       1.16       leo 		case KIOCRINGBELL:
    335       1.16       leo 			kb = (struct kbdbell *)data;
    336       1.16       leo 			if (kb)
    337       1.16       leo 				kbd_bell_sparms(kb->volume, kb->pitch,
    338       1.37   tsutsui 				    kb->duration);
    339       1.16       leo 			kbdbell();
    340       1.16       leo 			return 0;
    341        1.1       leo 
    342        1.1       leo 		case FIONBIO:	/* we will remove this someday (soon???) */
    343        1.1       leo 			return 0;
    344        1.1       leo 
    345        1.1       leo 		case FIOASYNC:
    346        1.1       leo 			k->k_events.ev_async = *(int *)data != 0;
    347        1.1       leo 				return 0;
    348       1.27  jdolecek 
    349       1.27  jdolecek 		case FIOSETOWN:
    350       1.27  jdolecek 			if (-*(int *)data != k->k_events.ev_io->p_pgid
    351       1.27  jdolecek 			    && *(int *)data != k->k_events.ev_io->p_pid)
    352       1.27  jdolecek 				return EPERM;
    353       1.27  jdolecek 			return 0;
    354        1.1       leo 
    355        1.1       leo 		case TIOCSPGRP:
    356        1.3       leo 			if (*(int *)data != k->k_events.ev_io->p_pgid)
    357        1.1       leo 				return EPERM;
    358        1.1       leo 			return 0;
    359        1.1       leo 
    360        1.1       leo 		default:
    361        1.1       leo 			return ENOTTY;
    362        1.1       leo 	}
    363        1.1       leo 
    364        1.1       leo 	/*
    365        1.1       leo 	 * We identified the ioctl, but we do not handle it.
    366        1.1       leo 	 */
    367        1.1       leo 	return EOPNOTSUPP;		/* misuse, but what the heck */
    368        1.1       leo }
    369        1.1       leo 
    370        1.1       leo int
    371       1.29  christos kbdpoll (dev_t dev, int events, struct lwp *l)
    372        1.1       leo {
    373       1.37   tsutsui 
    374       1.37   tsutsui 	return ev_poll(&kbd_softc.k_events, events, l);
    375       1.22  jdolecek }
    376       1.22  jdolecek 
    377       1.22  jdolecek int
    378       1.22  jdolecek kbdkqfilter(dev_t dev, struct knote *kn)
    379       1.22  jdolecek {
    380       1.22  jdolecek 
    381       1.37   tsutsui 	return ev_kqfilter(&kbd_softc.k_events, kn);
    382        1.1       leo }
    383        1.1       leo 
    384        1.1       leo /*
    385        1.3       leo  * Keyboard interrupt handler called straight from MFP at spl6.
    386        1.1       leo  */
    387        1.6       leo void
    388       1.35       dsl kbdintr(int sr)
    389       1.35       dsl 	/* sr:	 sr at time of interrupt	*/
    390        1.1       leo {
    391        1.1       leo 	int	code;
    392        1.3       leo 	int	got_char = 0;
    393        1.1       leo 
    394        1.1       leo 	/*
    395        1.1       leo 	 * There may be multiple keys available. Read them all.
    396        1.1       leo 	 */
    397        1.3       leo 	while (KBD->ac_cs & (A_RXRDY|A_OE|A_PE)) {
    398        1.3       leo 		got_char = 1;
    399        1.3       leo 		if (KBD->ac_cs & (A_OE|A_PE)) {
    400        1.3       leo 			code = KBD->ac_da;	/* Silently ignore errors */
    401        1.1       leo 			continue;
    402        1.1       leo 		}
    403        1.1       leo 		kbd_ring[kbd_rbput++ & KBD_RING_MASK] = KBD->ac_da;
    404        1.1       leo 	}
    405  1.42.16.1     rmind 	__USE(code);
    406        1.3       leo 
    407        1.3       leo 	/*
    408        1.3       leo 	 * If characters are waiting for transmit, send them.
    409        1.3       leo 	 */
    410        1.3       leo 	if ((kbd_softc.k_soft_cs & A_TXINT) && (KBD->ac_cs & A_TXRDY)) {
    411        1.3       leo 		if (kbd_softc.k_sendp != NULL)
    412        1.3       leo 			KBD->ac_da = *kbd_softc.k_sendp++;
    413        1.3       leo 		if (--kbd_softc.k_send_cnt <= 0) {
    414        1.3       leo 			/*
    415        1.3       leo 			 * The total package has been transmitted,
    416        1.3       leo 			 * wakeup anyone waiting for it.
    417        1.3       leo 			 */
    418        1.3       leo 			KBD->ac_cs = (kbd_softc.k_soft_cs &= ~A_TXINT);
    419        1.3       leo 			kbd_softc.k_sendp    = NULL;
    420        1.3       leo 			kbd_softc.k_send_cnt = 0;
    421       1.30  christos 			wakeup((void *)&kbd_softc.k_send_cnt);
    422        1.3       leo 		}
    423        1.3       leo 	}
    424        1.3       leo 
    425        1.3       leo 	/*
    426        1.3       leo 	 * Activate software-level to handle possible input.
    427        1.3       leo 	 */
    428       1.39   tsutsui 	if (got_char)
    429       1.39   tsutsui 		softint_schedule(kbd_softc.k_sicookie);
    430        1.1       leo }
    431        1.1       leo 
    432        1.1       leo /*
    433        1.1       leo  * Keyboard soft interrupt handler
    434        1.1       leo  */
    435       1.39   tsutsui static void
    436       1.39   tsutsui kbdsoft(void *junk1)
    437        1.1       leo {
    438       1.37   tsutsui 	int s;
    439       1.37   tsutsui 	uint8_t code;
    440       1.37   tsutsui 	struct kbd_softc *k = &kbd_softc;
    441       1.37   tsutsui 	struct firm_event *fe;
    442       1.37   tsutsui 	int put, get, n;
    443        1.1       leo 
    444        1.1       leo 	get      = kbd_rbget;
    445        1.1       leo 
    446        1.3       leo 	for (;;) {
    447        1.1       leo 		n = kbd_rbput;
    448        1.3       leo 		if (get == n) /* We're done	*/
    449        1.1       leo 			break;
    450        1.1       leo 		n -= get;
    451        1.3       leo 		if (n > KBD_RING_SIZE) { /* Ring buffer overflow	*/
    452        1.1       leo 			get += n - KBD_RING_SIZE;
    453        1.1       leo 			n    = KBD_RING_SIZE;
    454        1.1       leo 		}
    455        1.3       leo 		while (--n >= 0) {
    456        1.1       leo 			code = kbd_ring[get++ & KBD_RING_MASK];
    457        1.1       leo 
    458        1.1       leo 			/*
    459        1.3       leo 			 * If collecting a package, stuff it in and
    460        1.3       leo 			 * continue.
    461        1.3       leo 			 */
    462        1.3       leo 			if (k->k_pkg_size && (k->k_pkg_idx < k->k_pkg_size)) {
    463        1.9       leo 			    k->k_package[k->k_pkg_idx++] = code;
    464        1.9       leo 			    if (k->k_pkg_idx == k->k_pkg_size) {
    465        1.9       leo 				/*
    466        1.9       leo 				 * Package is complete.
    467        1.9       leo 				 */
    468       1.37   tsutsui 				switch (k->k_pkg_type) {
    469        1.5       leo #if NMOUSE > 0
    470        1.9       leo 				    case KBD_AMS_PKG:
    471        1.9       leo 				    case KBD_RMS_PKG:
    472        1.9       leo 				    case KBD_JOY1_PKG:
    473        1.9       leo 			 		mouse_soft((REL_MOUSE *)k->k_package,
    474       1.37   tsutsui 					    k->k_pkg_size, k->k_pkg_type);
    475        1.5       leo #endif /* NMOUSE */
    476        1.3       leo 				}
    477        1.9       leo 				k->k_pkg_size = 0;
    478        1.9       leo 			    }
    479        1.9       leo 			    continue;
    480        1.3       leo 			}
    481        1.3       leo 			/*
    482        1.3       leo 			 * If this is a package header, init pkg. handling.
    483        1.3       leo 			 */
    484       1.15       leo 			if (!KBD_IS_KEY(code)) {
    485        1.3       leo 				kbd_pkg_start(k, code);
    486        1.3       leo 				continue;
    487        1.3       leo 			}
    488       1.23    thomas #if NWSKBD>0
    489       1.23    thomas 			/*
    490       1.37   tsutsui 			 * If we have attached a wskbd and not in polling mode
    491       1.37   tsutsui 			 * and nobody has opened us directly, then send the
    492       1.37   tsutsui 			 * keystroke to the wskbd.
    493       1.23    thomas 			 */
    494       1.23    thomas 
    495       1.23    thomas 			if (kbd_softc.k_pollingmode == 0
    496       1.24       leo 			    && kbd_softc.k_wskbddev != NULL
    497       1.23    thomas 			    && k->k_event_mode == 0) {
    498       1.23    thomas 				wskbd_input(kbd_softc.k_wskbddev,
    499       1.23    thomas 					    KBD_RELEASED(code) ?
    500       1.23    thomas 					    WSCONS_EVENT_KEY_UP :
    501       1.23    thomas 					    WSCONS_EVENT_KEY_DOWN,
    502       1.23    thomas 					    KBD_SCANCODE(code));
    503       1.23    thomas 				continue;
    504       1.23    thomas 			}
    505       1.23    thomas #endif /* NWSKBD */
    506       1.23    thomas #if NITE>0
    507       1.15       leo 			if (kbd_do_modifier(code) && !k->k_event_mode)
    508       1.15       leo 				continue;
    509       1.23    thomas #endif
    510       1.15       leo 
    511        1.3       leo 			/*
    512        1.1       leo 			 * if not in event mode, deliver straight to ite to
    513        1.1       leo 			 * process key stroke
    514        1.1       leo 			 */
    515        1.3       leo 			if (!k->k_event_mode) {
    516        1.1       leo 				/* Gets to spltty() by itself	*/
    517       1.23    thomas #if NITE>0
    518        1.1       leo 				ite_filter(code, ITEFILT_TTY);
    519       1.23    thomas #endif
    520        1.1       leo 				continue;
    521        1.1       leo 			}
    522        1.1       leo 
    523        1.1       leo 			/*
    524        1.1       leo 			 * Keyboard is generating events.  Turn this keystroke
    525        1.1       leo 			 * into an event and put it in the queue.  If the queue
    526        1.1       leo 			 * is full, the keystroke is lost (sorry!).
    527        1.1       leo 			 */
    528        1.1       leo 			s = spltty();
    529        1.1       leo 			put = k->k_events.ev_put;
    530        1.1       leo 			fe  = &k->k_events.ev_q[put];
    531        1.1       leo 			put = (put + 1) % EV_QSIZE;
    532        1.3       leo 			if (put == k->k_events.ev_get) {
    533        1.1       leo 				log(LOG_WARNING,
    534       1.37   tsutsui 				    "keyboard event queue overflow\n");
    535        1.1       leo 				splx(s);
    536        1.1       leo 				continue;
    537        1.1       leo 			}
    538       1.15       leo 			fe->id    = KBD_SCANCODE(code);
    539       1.15       leo 			fe->value = KBD_RELEASED(code) ? VKEY_UP : VKEY_DOWN;
    540       1.32   tsutsui 			firm_gettime(fe);
    541        1.1       leo 			k->k_events.ev_put = put;
    542        1.1       leo 			EV_WAKEUP(&k->k_events);
    543        1.1       leo 			splx(s);
    544        1.1       leo 		}
    545        1.1       leo 		kbd_rbget = get;
    546        1.1       leo 	}
    547        1.1       leo }
    548        1.1       leo 
    549       1.37   tsutsui static	uint8_t sound[] = {
    550       1.37   tsutsui 	0xA8, 0x01, 0xA9, 0x01, 0xAA, 0x01, 0x00,
    551       1.37   tsutsui 	0xF8, 0x10, 0x10, 0x10, 0x00, 0x20, 0x03
    552        1.1       leo };
    553        1.1       leo 
    554        1.6       leo void
    555       1.36    cegger kbdbell(void)
    556        1.1       leo {
    557        1.3       leo 	register int	i, sps;
    558        1.1       leo 
    559        1.9       leo 	sps = splhigh();
    560        1.3       leo 	for (i = 0; i < sizeof(sound); i++) {
    561        1.8       leo 		YM2149->sd_selr = i;
    562        1.8       leo 		YM2149->sd_wdat = sound[i];
    563        1.3       leo 	}
    564        1.3       leo 	splx(sps);
    565       1.16       leo }
    566       1.16       leo 
    567       1.16       leo 
    568       1.16       leo /*
    569       1.16       leo  * Set the parameters of the 'default' beep.
    570       1.16       leo  */
    571       1.16       leo 
    572       1.16       leo #define KBDBELLCLOCK	125000	/* 2MHz / 16 */
    573       1.16       leo #define KBDBELLDURATION	128	/* 256 / 2MHz */
    574       1.16       leo 
    575       1.16       leo void
    576       1.35       dsl kbd_bell_gparms(u_int *volume, u_int *pitch, u_int *duration)
    577       1.16       leo {
    578       1.16       leo 	u_int	tmp;
    579       1.16       leo 
    580       1.16       leo 	tmp = sound[11] | (sound[12] << 8);
    581       1.16       leo 	*duration = (tmp * KBDBELLDURATION) / 1000;
    582       1.16       leo 
    583       1.16       leo 	tmp = sound[0] | (sound[1] << 8);
    584       1.16       leo 	*pitch = KBDBELLCLOCK / tmp;
    585       1.16       leo 
    586       1.16       leo 	*volume = 0;
    587       1.16       leo }
    588       1.16       leo 
    589       1.16       leo void
    590       1.35       dsl kbd_bell_sparms(u_int volume, u_int pitch, u_int duration)
    591       1.16       leo {
    592       1.16       leo 	u_int	f, t;
    593       1.16       leo 
    594       1.16       leo 	f = pitch > 10 ? pitch : 10;	/* minimum pitch */
    595       1.16       leo 	if (f > 20000)
    596       1.16       leo 		f = 20000;		/* maximum pitch */
    597       1.16       leo 
    598       1.16       leo 	f = KBDBELLCLOCK / f;
    599       1.16       leo 
    600       1.16       leo 	t = (duration * 1000) / KBDBELLDURATION;
    601       1.16       leo 
    602       1.16       leo 	sound[ 0] = f & 0xff;
    603       1.16       leo 	sound[ 1] = (f >> 8) & 0xf;
    604       1.16       leo 	f -= 1;
    605       1.16       leo 	sound[ 2] = f & 0xff;
    606       1.16       leo 	sound[ 3] = (f >> 8) & 0xf;
    607       1.16       leo 	f += 2;
    608       1.16       leo 	sound[ 4] = f & 0xff;
    609       1.16       leo 	sound[ 5] = (f >> 8) & 0xf;
    610       1.16       leo 
    611       1.16       leo 	sound[11] = t & 0xff;
    612       1.16       leo 	sound[12] = (t >> 8) & 0xff;
    613       1.16       leo 
    614       1.16       leo 	sound[13] = 0x03;
    615        1.1       leo }
    616        1.1       leo 
    617        1.1       leo int
    618       1.36    cegger kbdgetcn(void)
    619        1.1       leo {
    620       1.37   tsutsui 	uint8_t code;
    621       1.37   tsutsui 	int s = spltty();
    622       1.37   tsutsui 	int ints_active;
    623        1.1       leo 
    624        1.4       leo 	ints_active = 0;
    625        1.4       leo 	if (MFP->mf_imrb & IB_AINT) {
    626        1.4       leo 		ints_active   = 1;
    627        1.4       leo 		MFP->mf_imrb &= ~IB_AINT;
    628        1.4       leo 	}
    629        1.3       leo 	for (;;) {
    630        1.4       leo 		while (!((KBD->ac_cs & (A_IRQ|A_RXRDY)) == (A_IRQ|A_RXRDY)))
    631        1.3       leo 			;	/* Wait for key	*/
    632        1.3       leo 		if (KBD->ac_cs & (A_OE|A_PE)) {
    633        1.3       leo 			code = KBD->ac_da;	/* Silently ignore errors */
    634        1.3       leo 			continue;
    635        1.3       leo 		}
    636       1.15       leo 		code = KBD->ac_da;
    637       1.23    thomas #if NITE>0
    638       1.15       leo 		if (!kbd_do_modifier(code))
    639       1.23    thomas #endif
    640       1.15       leo 			break;
    641        1.3       leo 	}
    642        1.1       leo 
    643        1.4       leo 	if (ints_active) {
    644       1.37   tsutsui 		MFP->mf_iprb  = (uint8_t)~IB_AINT;
    645        1.4       leo 		MFP->mf_imrb |=  IB_AINT;
    646        1.4       leo 	}
    647        1.1       leo 
    648       1.37   tsutsui 	splx(s);
    649        1.1       leo 	return code;
    650        1.3       leo }
    651        1.3       leo 
    652        1.3       leo /*
    653        1.3       leo  * Write a command to the keyboard in 'polled' mode.
    654        1.3       leo  */
    655        1.3       leo static int
    656       1.38   tsutsui kbd_write_poll(const uint8_t *cmd, int len)
    657        1.3       leo {
    658        1.3       leo 	int	timeout;
    659        1.3       leo 
    660        1.3       leo 	while (len-- > 0) {
    661        1.3       leo 		KBD->ac_da = *cmd++;
    662        1.3       leo 		for (timeout = 100; !(KBD->ac_cs & A_TXRDY); timeout--)
    663        1.3       leo 			delay(10);
    664       1.37   tsutsui 		if ((KBD->ac_cs & A_TXRDY) == 0)
    665       1.37   tsutsui 			return 0;
    666        1.3       leo 	}
    667       1.37   tsutsui 	return 1;
    668        1.3       leo }
    669        1.3       leo 
    670        1.3       leo /*
    671        1.3       leo  * Write a command to the keyboard. Return when command is send.
    672        1.3       leo  */
    673        1.4       leo void
    674       1.38   tsutsui kbd_write(const uint8_t *cmd, int len)
    675        1.3       leo {
    676        1.3       leo 	struct kbd_softc	*k = &kbd_softc;
    677        1.3       leo 	int			sps;
    678        1.3       leo 
    679        1.3       leo 	/*
    680        1.3       leo 	 * Get to splhigh, 'real' interrupts arrive at spl6!
    681        1.3       leo 	 */
    682        1.3       leo 	sps = splhigh();
    683        1.3       leo 
    684        1.3       leo 	/*
    685        1.3       leo 	 * Make sure any privious write has ended...
    686        1.3       leo 	 */
    687        1.3       leo 	while (k->k_sendp != NULL)
    688       1.30  christos 		tsleep((void *)&k->k_sendp, TTOPRI, "kbd_write1", 0);
    689        1.3       leo 
    690        1.3       leo 	/*
    691        1.3       leo 	 * If the KBD-acia is not currently busy, send the first
    692        1.3       leo 	 * character now.
    693        1.3       leo 	 */
    694        1.3       leo 	KBD->ac_cs = (k->k_soft_cs |= A_TXINT);
    695        1.3       leo 	if (KBD->ac_cs & A_TXRDY) {
    696        1.3       leo 		KBD->ac_da = *cmd++;
    697        1.3       leo 		len--;
    698        1.3       leo 	}
    699        1.3       leo 
    700        1.3       leo 	/*
    701        1.3       leo 	 * If we're not yet done, wait until all characters are send.
    702        1.3       leo 	 */
    703        1.3       leo 	if (len > 0) {
    704        1.3       leo 		k->k_sendp    = cmd;
    705        1.3       leo 		k->k_send_cnt = len;
    706       1.30  christos 		tsleep((void *)&k->k_send_cnt, TTOPRI, "kbd_write2", 0);
    707        1.3       leo 	}
    708        1.3       leo 	splx(sps);
    709        1.3       leo 
    710        1.3       leo 	/*
    711        1.3       leo 	 * Wakeup all procs waiting for us.
    712        1.3       leo 	 */
    713       1.30  christos 	wakeup((void *)&k->k_sendp);
    714        1.3       leo }
    715        1.3       leo 
    716        1.3       leo /*
    717        1.3       leo  * Setup softc-fields to assemble a keyboard package.
    718        1.3       leo  */
    719        1.3       leo static void
    720       1.37   tsutsui kbd_pkg_start(struct kbd_softc *kp, uint8_t msg_start)
    721        1.3       leo {
    722       1.37   tsutsui 
    723        1.3       leo 	kp->k_pkg_idx    = 1;
    724        1.3       leo 	kp->k_package[0] = msg_start;
    725        1.3       leo 	switch (msg_start) {
    726        1.3       leo 		case 0xf6:
    727        1.9       leo 			kp->k_pkg_type = KBD_MEM_PKG;
    728        1.3       leo 			kp->k_pkg_size = 8;
    729        1.3       leo 			break;
    730        1.3       leo 		case 0xf7:
    731        1.9       leo 			kp->k_pkg_type = KBD_AMS_PKG;
    732        1.3       leo 			kp->k_pkg_size = 6;
    733        1.3       leo 			break;
    734        1.3       leo 		case 0xf8:
    735        1.3       leo 		case 0xf9:
    736        1.3       leo 		case 0xfa:
    737        1.3       leo 		case 0xfb:
    738        1.9       leo 			kp->k_pkg_type = KBD_RMS_PKG;
    739        1.3       leo 			kp->k_pkg_size = 3;
    740        1.3       leo 			break;
    741        1.3       leo 		case 0xfc:
    742        1.9       leo 			kp->k_pkg_type = KBD_CLK_PKG;
    743        1.3       leo 			kp->k_pkg_size = 7;
    744        1.3       leo 			break;
    745        1.3       leo 		case 0xfe:
    746        1.9       leo 			kp->k_pkg_type = KBD_JOY0_PKG;
    747        1.9       leo 			kp->k_pkg_size = 2;
    748        1.9       leo 			break;
    749        1.3       leo 		case 0xff:
    750        1.9       leo 			kp->k_pkg_type = KBD_JOY1_PKG;
    751        1.3       leo 			kp->k_pkg_size = 2;
    752        1.3       leo 			break;
    753        1.3       leo 		default:
    754       1.12  christos 			printf("kbd: Unknown packet 0x%x\n", msg_start);
    755        1.3       leo 			break;
    756        1.3       leo 	}
    757        1.1       leo }
    758       1.15       leo 
    759       1.37   tsutsui #if NITE > 0
    760       1.15       leo /*
    761       1.15       leo  * Modifier processing
    762       1.15       leo  */
    763       1.15       leo static int
    764       1.37   tsutsui kbd_do_modifier(uint8_t code)
    765       1.15       leo {
    766       1.37   tsutsui 	uint8_t up, mask;
    767       1.15       leo 
    768       1.15       leo 	up   = KBD_RELEASED(code);
    769       1.15       leo 	mask = 0;
    770       1.15       leo 
    771       1.37   tsutsui 	switch (KBD_SCANCODE(code)) {
    772       1.15       leo 		case KBD_LEFT_SHIFT:
    773       1.15       leo 			mask = KBD_MOD_LSHIFT;
    774       1.15       leo 			break;
    775       1.15       leo 		case KBD_RIGHT_SHIFT:
    776       1.15       leo 			mask = KBD_MOD_RSHIFT;
    777       1.15       leo 			break;
    778       1.15       leo 		case KBD_CTRL:
    779       1.15       leo 			mask = KBD_MOD_CTRL;
    780       1.15       leo 			break;
    781       1.15       leo 		case KBD_ALT:
    782       1.15       leo 			mask = KBD_MOD_ALT;
    783       1.15       leo 			break;
    784       1.15       leo 		case KBD_CAPS_LOCK:
    785       1.15       leo 			/* CAPSLOCK is a toggle */
    786       1.37   tsutsui 			if (!up)
    787       1.15       leo 				kbd_modifier ^= KBD_MOD_CAPS;
    788       1.15       leo 			return 1;
    789       1.15       leo 	}
    790       1.37   tsutsui 	if (mask) {
    791       1.41   tsutsui 		if (up)
    792       1.15       leo 			kbd_modifier &= ~mask;
    793       1.15       leo 		else
    794       1.15       leo 			kbd_modifier |= mask;
    795       1.15       leo 		return 1;
    796       1.15       leo 	}
    797       1.15       leo 	return 0;
    798       1.15       leo }
    799       1.23    thomas #endif
    800       1.23    thomas 
    801       1.23    thomas #if NWSKBD>0
    802       1.23    thomas /*
    803       1.23    thomas  * These are the callback functions that are passed to wscons.
    804       1.23    thomas  * They really don't do anything worth noting, just call the
    805       1.23    thomas  * other functions above.
    806       1.23    thomas  */
    807       1.23    thomas 
    808       1.23    thomas static int
    809       1.23    thomas kbd_enable(void *c, int on)
    810       1.23    thomas {
    811       1.37   tsutsui 
    812       1.23    thomas         /* Wonder what this is supposed to do... */
    813       1.23    thomas 	return 0;
    814       1.23    thomas }
    815       1.23    thomas 
    816       1.23    thomas static void
    817       1.23    thomas kbd_set_leds(void *c, int leds)
    818       1.23    thomas {
    819       1.37   tsutsui 
    820       1.23    thomas         /* we can not set the leds */
    821       1.23    thomas }
    822       1.23    thomas 
    823       1.23    thomas static int
    824       1.40       abs kbd_ioctl(void *c, u_long cmd, void *data, int flag, struct lwp *p)
    825       1.23    thomas {
    826       1.23    thomas 	struct wskbd_bell_data *kd;
    827       1.23    thomas 
    828       1.37   tsutsui 	switch (cmd) {
    829       1.23    thomas 	case WSKBDIO_COMPLEXBELL:
    830       1.23    thomas 		kd = (struct wskbd_bell_data *)data;
    831       1.23    thomas 		kbd_bell(0, kd->pitch, kd->period, kd->volume);
    832       1.23    thomas 		return 0;
    833       1.23    thomas 	case WSKBDIO_SETLEDS:
    834       1.23    thomas 		return 0;
    835       1.23    thomas 	case WSKBDIO_GETLEDS:
    836       1.37   tsutsui 		*(int *)data = 0;
    837       1.23    thomas 		return 0;
    838       1.23    thomas 	case WSKBDIO_GTYPE:
    839       1.37   tsutsui 		*(u_int *)data = WSKBD_TYPE_ATARI;
    840       1.23    thomas 		return 0;
    841       1.23    thomas 	}
    842       1.23    thomas 
    843       1.23    thomas 	/*
    844       1.23    thomas 	 * We are supposed to return EPASSTHROUGH to wscons if we didn't
    845       1.23    thomas 	 * understand.
    846       1.23    thomas 	 */
    847       1.37   tsutsui 	return EPASSTHROUGH;
    848       1.23    thomas }
    849       1.23    thomas 
    850       1.23    thomas static void
    851       1.23    thomas kbd_getc(void *c, u_int *type, int *data)
    852       1.23    thomas {
    853       1.23    thomas 	int key;
    854       1.23    thomas 	key = kbdgetcn();
    855       1.23    thomas 
    856       1.23    thomas 	*data = KBD_SCANCODE(key);
    857       1.23    thomas 	*type = KBD_RELEASED(key) ? WSCONS_EVENT_KEY_UP : WSCONS_EVENT_KEY_DOWN;
    858       1.23    thomas }
    859       1.23    thomas 
    860       1.23    thomas static void
    861       1.23    thomas kbd_pollc(void *c, int on)
    862       1.23    thomas {
    863       1.37   tsutsui 
    864       1.23    thomas         kbd_softc.k_pollingmode = on;
    865       1.23    thomas }
    866       1.23    thomas 
    867       1.23    thomas static void
    868       1.23    thomas kbd_bell(void *v, u_int pitch, u_int duration, u_int volume)
    869       1.23    thomas {
    870       1.37   tsutsui 
    871       1.23    thomas         kbd_bell_sparms(volume, pitch, duration);
    872       1.23    thomas 	kbdbell();
    873       1.23    thomas }
    874       1.23    thomas #endif /* NWSKBD */
    875