Home | History | Annotate | Line # | Download | only in dev
kbd.c revision 1.40.4.2
      1  1.40.4.2     rmind /*	$NetBSD: kbd.c,v 1.40.4.2 2011/06/12 00:23:54 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.40.4.2     rmind __KERNEL_RCSID(0, "$NetBSD: kbd.c,v 1.40.4.2 2011/06/12 00:23:54 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.40.4.2     rmind static void kbdattach(device_t, device_t, void *);
    121  1.40.4.2     rmind 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.40.4.2     rmind 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.19   gehenna 	kbdopen, kbdclose, kbdread, nowrite, kbdioctl,
    133      1.22  jdolecek 	nostop, notty, kbdpoll, nommap, kbdkqfilter,
    134       1.7   thorpej };
    135       1.9       leo 
    136      1.23    thomas #if NWSKBD>0
    137      1.23    thomas /* accessops */
    138      1.23    thomas static int	kbd_enable(void *, int);
    139      1.23    thomas static void	kbd_set_leds(void *, int);
    140      1.30  christos static int	kbd_ioctl(void *, u_long, void *, int, struct lwp *);
    141      1.23    thomas 
    142      1.23    thomas /* console ops */
    143      1.23    thomas static void	kbd_getc(void *, u_int *, int *);
    144      1.23    thomas static void	kbd_pollc(void *, int);
    145      1.23    thomas static void	kbd_bell(void *, u_int, u_int, u_int);
    146      1.23    thomas 
    147      1.23    thomas static struct wskbd_accessops kbd_accessops = {
    148      1.23    thomas 	kbd_enable,
    149      1.23    thomas 	kbd_set_leds,
    150      1.23    thomas 	kbd_ioctl
    151      1.23    thomas };
    152      1.23    thomas 
    153      1.23    thomas static struct wskbd_consops kbd_consops = {
    154      1.23    thomas         kbd_getc,
    155      1.23    thomas 	kbd_pollc,
    156      1.23    thomas 	kbd_bell
    157      1.23    thomas };
    158      1.23    thomas 
    159      1.23    thomas /* Pointer to keymaps. */
    160      1.23    thomas static struct wskbd_mapdata kbd_mapdata = {
    161      1.23    thomas         atarikbd_keydesctab,
    162      1.23    thomas 	KB_US
    163      1.23    thomas };
    164      1.23    thomas #endif /* WSKBD */
    165      1.23    thomas 
    166       1.1       leo /*ARGSUSED*/
    167       1.1       leo static	int
    168  1.40.4.2     rmind kbdmatch(device_t parent, cfdata_t cf, void *aux)
    169       1.1       leo {
    170      1.37   tsutsui 
    171  1.40.4.2     rmind 	if (!strcmp((char *)aux, "kbd"))
    172      1.37   tsutsui 		return 1;
    173      1.37   tsutsui 	return 0;
    174       1.1       leo }
    175       1.1       leo 
    176       1.1       leo /*ARGSUSED*/
    177       1.1       leo static void
    178  1.40.4.2     rmind kbdattach(device_t parent, device_t self, void *aux)
    179       1.1       leo {
    180      1.37   tsutsui 	int timeout;
    181      1.38   tsutsui 	const uint8_t kbd_rst[]  = { 0x80, 0x01 };
    182      1.38   tsutsui 	const uint8_t kbd_icmd[] = { 0x12, 0x15 };
    183       1.3       leo 
    184       1.3       leo 	/*
    185       1.3       leo 	 * Disable keyboard interrupts from MFP
    186       1.3       leo 	 */
    187       1.3       leo 	MFP->mf_ierb &= ~IB_AINT;
    188       1.3       leo 
    189       1.3       leo 	/*
    190       1.3       leo 	 * Reset ACIA and intialize to:
    191       1.3       leo 	 *    divide by 16, 8 data, 1 stop, no parity, enable RX interrupts
    192       1.3       leo 	 */
    193       1.3       leo 	KBD->ac_cs = A_RESET;
    194       1.3       leo 	delay(100);	/* XXX: enough? */
    195       1.3       leo 	KBD->ac_cs = kbd_softc.k_soft_cs = KBD_INIT | A_RXINT;
    196       1.3       leo 
    197       1.3       leo 	/*
    198       1.3       leo 	 * Clear error conditions
    199       1.3       leo 	 */
    200       1.3       leo 	while (KBD->ac_cs & (A_IRQ|A_RXRDY))
    201       1.3       leo 		timeout = KBD->ac_da;
    202       1.3       leo 
    203       1.3       leo 	/*
    204       1.3       leo 	 * Now send the reset string, and read+ignore it's response
    205       1.3       leo 	 */
    206       1.4       leo 	if (!kbd_write_poll(kbd_rst, 2))
    207      1.12  christos 		printf("kbd: error cannot reset keyboard\n");
    208       1.3       leo 	for (timeout = 1000; timeout > 0; timeout--) {
    209       1.3       leo 		if (KBD->ac_cs & (A_IRQ|A_RXRDY)) {
    210       1.3       leo 			timeout = KBD->ac_da;
    211       1.3       leo 			timeout = 100;
    212       1.3       leo 		}
    213       1.3       leo 		delay(100);
    214       1.3       leo 	}
    215       1.4       leo 	/*
    216       1.4       leo 	 * Send init command: disable mice & joysticks
    217       1.4       leo 	 */
    218       1.4       leo 	kbd_write_poll(kbd_icmd, sizeof(kbd_icmd));
    219       1.3       leo 
    220      1.12  christos 	printf("\n");
    221      1.23    thomas 
    222      1.39   tsutsui 	kbd_softc.k_sicookie = softint_establish(SOFTINT_SERIAL, kbdsoft, NULL);
    223      1.39   tsutsui 
    224      1.23    thomas #if NWSKBD>0
    225  1.40.4.2     rmind 	if (self != NULL) {
    226      1.23    thomas 		/*
    227      1.23    thomas 		 * Try to attach the wskbd.
    228      1.23    thomas 		 */
    229      1.23    thomas 		struct wskbddev_attach_args waa;
    230      1.23    thomas 
    231      1.23    thomas 		/* Maybe should be done before this?... */
    232      1.23    thomas 		wskbd_cnattach(&kbd_consops, NULL, &kbd_mapdata);
    233      1.23    thomas 
    234      1.23    thomas 		waa.console = 1;
    235      1.23    thomas 		waa.keymap = &kbd_mapdata;
    236      1.23    thomas 		waa.accessops = &kbd_accessops;
    237      1.23    thomas 		waa.accesscookie = NULL;
    238  1.40.4.2     rmind 		kbd_softc.k_wskbddev = config_found(self, &waa, wskbddevprint);
    239      1.23    thomas 
    240      1.23    thomas 		kbd_softc.k_pollingmode = 0;
    241      1.23    thomas 
    242      1.23    thomas 		kbdenable();
    243      1.23    thomas 	}
    244      1.23    thomas #endif /* WSKBD */
    245       1.1       leo }
    246       1.1       leo 
    247       1.1       leo void
    248      1.36    cegger kbdenable(void)
    249       1.1       leo {
    250      1.37   tsutsui 	int s, code;
    251       1.1       leo 
    252       1.1       leo 	s = spltty();
    253       1.3       leo 
    254       1.1       leo 	/*
    255       1.3       leo 	 * Clear error conditions...
    256       1.1       leo 	 */
    257       1.3       leo 	while (KBD->ac_cs & (A_IRQ|A_RXRDY))
    258       1.3       leo 		code = KBD->ac_da;
    259       1.1       leo 	/*
    260       1.1       leo 	 * Enable interrupts from MFP
    261       1.1       leo 	 */
    262      1.18       leo 	MFP->mf_iprb  = (u_int8_t)~IB_AINT;
    263       1.1       leo 	MFP->mf_ierb |= IB_AINT;
    264       1.1       leo 	MFP->mf_imrb |= IB_AINT;
    265       1.1       leo 
    266       1.1       leo 	kbd_softc.k_event_mode   = 0;
    267       1.1       leo 	kbd_softc.k_events.ev_io = 0;
    268       1.3       leo 	kbd_softc.k_pkg_size     = 0;
    269       1.1       leo 	splx(s);
    270       1.1       leo }
    271       1.1       leo 
    272      1.29  christos int kbdopen(dev_t dev, int flags, int mode, struct lwp *l)
    273       1.1       leo {
    274      1.37   tsutsui 
    275       1.3       leo 	if (kbd_softc.k_events.ev_io)
    276       1.1       leo 		return EBUSY;
    277       1.1       leo 
    278      1.29  christos 	kbd_softc.k_events.ev_io = l->l_proc;
    279       1.1       leo 	ev_init(&kbd_softc.k_events);
    280      1.37   tsutsui 	return 0;
    281       1.1       leo }
    282       1.1       leo 
    283       1.1       leo int
    284      1.29  christos kbdclose(dev_t dev, int flags, int mode, struct lwp *l)
    285       1.1       leo {
    286      1.37   tsutsui 
    287       1.1       leo 	/* Turn off event mode, dump the queue */
    288       1.1       leo 	kbd_softc.k_event_mode = 0;
    289       1.1       leo 	ev_fini(&kbd_softc.k_events);
    290       1.1       leo 	kbd_softc.k_events.ev_io = NULL;
    291      1.37   tsutsui 	return 0;
    292       1.1       leo }
    293       1.1       leo 
    294       1.1       leo int
    295       1.1       leo kbdread(dev_t dev, struct uio *uio, int flags)
    296       1.1       leo {
    297      1.37   tsutsui 
    298       1.1       leo 	return ev_read(&kbd_softc.k_events, uio, flags);
    299       1.1       leo }
    300       1.1       leo 
    301       1.1       leo int
    302      1.37   tsutsui kbdioctl(dev_t dev, u_long cmd, register void *data, int flag, struct lwp *l)
    303       1.1       leo {
    304       1.1       leo 	register struct kbd_softc *k = &kbd_softc;
    305      1.16       leo 	struct kbdbell	*kb;
    306       1.1       leo 
    307       1.1       leo 	switch (cmd) {
    308       1.1       leo 		case KIOCTRANS:
    309       1.3       leo 			if (*(int *)data == TR_UNTRANS_EVENT)
    310       1.1       leo 				return 0;
    311       1.1       leo 			break;
    312       1.1       leo 
    313       1.1       leo 		case KIOCGTRANS:
    314       1.1       leo 			/*
    315       1.1       leo 			 * Get translation mode
    316       1.1       leo 			 */
    317       1.1       leo 			*(int *)data = TR_UNTRANS_EVENT;
    318       1.1       leo 			return 0;
    319       1.1       leo 
    320       1.1       leo 		case KIOCSDIRECT:
    321       1.1       leo 			k->k_event_mode = *(int *)data;
    322       1.1       leo 			return 0;
    323      1.16       leo 
    324      1.16       leo 		case KIOCRINGBELL:
    325      1.16       leo 			kb = (struct kbdbell *)data;
    326      1.16       leo 			if (kb)
    327      1.16       leo 				kbd_bell_sparms(kb->volume, kb->pitch,
    328      1.37   tsutsui 				    kb->duration);
    329      1.16       leo 			kbdbell();
    330      1.16       leo 			return 0;
    331       1.1       leo 
    332       1.1       leo 		case FIONBIO:	/* we will remove this someday (soon???) */
    333       1.1       leo 			return 0;
    334       1.1       leo 
    335       1.1       leo 		case FIOASYNC:
    336       1.1       leo 			k->k_events.ev_async = *(int *)data != 0;
    337       1.1       leo 				return 0;
    338      1.27  jdolecek 
    339      1.27  jdolecek 		case FIOSETOWN:
    340      1.27  jdolecek 			if (-*(int *)data != k->k_events.ev_io->p_pgid
    341      1.27  jdolecek 			    && *(int *)data != k->k_events.ev_io->p_pid)
    342      1.27  jdolecek 				return EPERM;
    343      1.27  jdolecek 			return 0;
    344       1.1       leo 
    345       1.1       leo 		case TIOCSPGRP:
    346       1.3       leo 			if (*(int *)data != k->k_events.ev_io->p_pgid)
    347       1.1       leo 				return EPERM;
    348       1.1       leo 			return 0;
    349       1.1       leo 
    350       1.1       leo 		default:
    351       1.1       leo 			return ENOTTY;
    352       1.1       leo 	}
    353       1.1       leo 
    354       1.1       leo 	/*
    355       1.1       leo 	 * We identified the ioctl, but we do not handle it.
    356       1.1       leo 	 */
    357       1.1       leo 	return EOPNOTSUPP;		/* misuse, but what the heck */
    358       1.1       leo }
    359       1.1       leo 
    360       1.1       leo int
    361      1.29  christos kbdpoll (dev_t dev, int events, struct lwp *l)
    362       1.1       leo {
    363      1.37   tsutsui 
    364      1.37   tsutsui 	return ev_poll(&kbd_softc.k_events, events, l);
    365      1.22  jdolecek }
    366      1.22  jdolecek 
    367      1.22  jdolecek int
    368      1.22  jdolecek kbdkqfilter(dev_t dev, struct knote *kn)
    369      1.22  jdolecek {
    370      1.22  jdolecek 
    371      1.37   tsutsui 	return ev_kqfilter(&kbd_softc.k_events, kn);
    372       1.1       leo }
    373       1.1       leo 
    374       1.1       leo /*
    375       1.3       leo  * Keyboard interrupt handler called straight from MFP at spl6.
    376       1.1       leo  */
    377       1.6       leo void
    378      1.35       dsl kbdintr(int sr)
    379      1.35       dsl 	/* sr:	 sr at time of interrupt	*/
    380       1.1       leo {
    381       1.1       leo 	int	code;
    382       1.3       leo 	int	got_char = 0;
    383       1.1       leo 
    384       1.1       leo 	/*
    385       1.1       leo 	 * There may be multiple keys available. Read them all.
    386       1.1       leo 	 */
    387       1.3       leo 	while (KBD->ac_cs & (A_RXRDY|A_OE|A_PE)) {
    388       1.3       leo 		got_char = 1;
    389       1.3       leo 		if (KBD->ac_cs & (A_OE|A_PE)) {
    390       1.3       leo 			code = KBD->ac_da;	/* Silently ignore errors */
    391       1.1       leo 			continue;
    392       1.1       leo 		}
    393       1.1       leo 		kbd_ring[kbd_rbput++ & KBD_RING_MASK] = KBD->ac_da;
    394       1.1       leo 	}
    395       1.3       leo 
    396       1.3       leo 	/*
    397       1.3       leo 	 * If characters are waiting for transmit, send them.
    398       1.3       leo 	 */
    399       1.3       leo 	if ((kbd_softc.k_soft_cs & A_TXINT) && (KBD->ac_cs & A_TXRDY)) {
    400       1.3       leo 		if (kbd_softc.k_sendp != NULL)
    401       1.3       leo 			KBD->ac_da = *kbd_softc.k_sendp++;
    402       1.3       leo 		if (--kbd_softc.k_send_cnt <= 0) {
    403       1.3       leo 			/*
    404       1.3       leo 			 * The total package has been transmitted,
    405       1.3       leo 			 * wakeup anyone waiting for it.
    406       1.3       leo 			 */
    407       1.3       leo 			KBD->ac_cs = (kbd_softc.k_soft_cs &= ~A_TXINT);
    408       1.3       leo 			kbd_softc.k_sendp    = NULL;
    409       1.3       leo 			kbd_softc.k_send_cnt = 0;
    410      1.30  christos 			wakeup((void *)&kbd_softc.k_send_cnt);
    411       1.3       leo 		}
    412       1.3       leo 	}
    413       1.3       leo 
    414       1.3       leo 	/*
    415       1.3       leo 	 * Activate software-level to handle possible input.
    416       1.3       leo 	 */
    417      1.39   tsutsui 	if (got_char)
    418      1.39   tsutsui 		softint_schedule(kbd_softc.k_sicookie);
    419       1.1       leo }
    420       1.1       leo 
    421       1.1       leo /*
    422       1.1       leo  * Keyboard soft interrupt handler
    423       1.1       leo  */
    424      1.39   tsutsui static void
    425      1.39   tsutsui kbdsoft(void *junk1)
    426       1.1       leo {
    427      1.37   tsutsui 	int s;
    428      1.37   tsutsui 	uint8_t code;
    429      1.37   tsutsui 	struct kbd_softc *k = &kbd_softc;
    430      1.37   tsutsui 	struct firm_event *fe;
    431      1.37   tsutsui 	int put, get, n;
    432       1.1       leo 
    433       1.1       leo 	get      = kbd_rbget;
    434       1.1       leo 
    435       1.3       leo 	for (;;) {
    436       1.1       leo 		n = kbd_rbput;
    437       1.3       leo 		if (get == n) /* We're done	*/
    438       1.1       leo 			break;
    439       1.1       leo 		n -= get;
    440       1.3       leo 		if (n > KBD_RING_SIZE) { /* Ring buffer overflow	*/
    441       1.1       leo 			get += n - KBD_RING_SIZE;
    442       1.1       leo 			n    = KBD_RING_SIZE;
    443       1.1       leo 		}
    444       1.3       leo 		while (--n >= 0) {
    445       1.1       leo 			code = kbd_ring[get++ & KBD_RING_MASK];
    446       1.1       leo 
    447       1.1       leo 			/*
    448       1.3       leo 			 * If collecting a package, stuff it in and
    449       1.3       leo 			 * continue.
    450       1.3       leo 			 */
    451       1.3       leo 			if (k->k_pkg_size && (k->k_pkg_idx < k->k_pkg_size)) {
    452       1.9       leo 			    k->k_package[k->k_pkg_idx++] = code;
    453       1.9       leo 			    if (k->k_pkg_idx == k->k_pkg_size) {
    454       1.9       leo 				/*
    455       1.9       leo 				 * Package is complete.
    456       1.9       leo 				 */
    457      1.37   tsutsui 				switch (k->k_pkg_type) {
    458       1.5       leo #if NMOUSE > 0
    459       1.9       leo 				    case KBD_AMS_PKG:
    460       1.9       leo 				    case KBD_RMS_PKG:
    461       1.9       leo 				    case KBD_JOY1_PKG:
    462       1.9       leo 			 		mouse_soft((REL_MOUSE *)k->k_package,
    463      1.37   tsutsui 					    k->k_pkg_size, k->k_pkg_type);
    464       1.5       leo #endif /* NMOUSE */
    465       1.3       leo 				}
    466       1.9       leo 				k->k_pkg_size = 0;
    467       1.9       leo 			    }
    468       1.9       leo 			    continue;
    469       1.3       leo 			}
    470       1.3       leo 			/*
    471       1.3       leo 			 * If this is a package header, init pkg. handling.
    472       1.3       leo 			 */
    473      1.15       leo 			if (!KBD_IS_KEY(code)) {
    474       1.3       leo 				kbd_pkg_start(k, code);
    475       1.3       leo 				continue;
    476       1.3       leo 			}
    477      1.23    thomas #if NWSKBD>0
    478      1.23    thomas 			/*
    479      1.37   tsutsui 			 * If we have attached a wskbd and not in polling mode
    480      1.37   tsutsui 			 * and nobody has opened us directly, then send the
    481      1.37   tsutsui 			 * keystroke to the wskbd.
    482      1.23    thomas 			 */
    483      1.23    thomas 
    484      1.23    thomas 			if (kbd_softc.k_pollingmode == 0
    485      1.24       leo 			    && kbd_softc.k_wskbddev != NULL
    486      1.23    thomas 			    && k->k_event_mode == 0) {
    487      1.23    thomas 				wskbd_input(kbd_softc.k_wskbddev,
    488      1.23    thomas 					    KBD_RELEASED(code) ?
    489      1.23    thomas 					    WSCONS_EVENT_KEY_UP :
    490      1.23    thomas 					    WSCONS_EVENT_KEY_DOWN,
    491      1.23    thomas 					    KBD_SCANCODE(code));
    492      1.23    thomas 				continue;
    493      1.23    thomas 			}
    494      1.23    thomas #endif /* NWSKBD */
    495      1.23    thomas #if NITE>0
    496      1.15       leo 			if (kbd_do_modifier(code) && !k->k_event_mode)
    497      1.15       leo 				continue;
    498      1.23    thomas #endif
    499      1.15       leo 
    500       1.3       leo 			/*
    501       1.1       leo 			 * if not in event mode, deliver straight to ite to
    502       1.1       leo 			 * process key stroke
    503       1.1       leo 			 */
    504       1.3       leo 			if (!k->k_event_mode) {
    505       1.1       leo 				/* Gets to spltty() by itself	*/
    506      1.23    thomas #if NITE>0
    507       1.1       leo 				ite_filter(code, ITEFILT_TTY);
    508      1.23    thomas #endif
    509       1.1       leo 				continue;
    510       1.1       leo 			}
    511       1.1       leo 
    512       1.1       leo 			/*
    513       1.1       leo 			 * Keyboard is generating events.  Turn this keystroke
    514       1.1       leo 			 * into an event and put it in the queue.  If the queue
    515       1.1       leo 			 * is full, the keystroke is lost (sorry!).
    516       1.1       leo 			 */
    517       1.1       leo 			s = spltty();
    518       1.1       leo 			put = k->k_events.ev_put;
    519       1.1       leo 			fe  = &k->k_events.ev_q[put];
    520       1.1       leo 			put = (put + 1) % EV_QSIZE;
    521       1.3       leo 			if (put == k->k_events.ev_get) {
    522       1.1       leo 				log(LOG_WARNING,
    523      1.37   tsutsui 				    "keyboard event queue overflow\n");
    524       1.1       leo 				splx(s);
    525       1.1       leo 				continue;
    526       1.1       leo 			}
    527      1.15       leo 			fe->id    = KBD_SCANCODE(code);
    528      1.15       leo 			fe->value = KBD_RELEASED(code) ? VKEY_UP : VKEY_DOWN;
    529      1.32   tsutsui 			firm_gettime(fe);
    530       1.1       leo 			k->k_events.ev_put = put;
    531       1.1       leo 			EV_WAKEUP(&k->k_events);
    532       1.1       leo 			splx(s);
    533       1.1       leo 		}
    534       1.1       leo 		kbd_rbget = get;
    535       1.1       leo 	}
    536       1.1       leo }
    537       1.1       leo 
    538      1.37   tsutsui static	uint8_t sound[] = {
    539      1.37   tsutsui 	0xA8, 0x01, 0xA9, 0x01, 0xAA, 0x01, 0x00,
    540      1.37   tsutsui 	0xF8, 0x10, 0x10, 0x10, 0x00, 0x20, 0x03
    541       1.1       leo };
    542       1.1       leo 
    543       1.6       leo void
    544      1.36    cegger kbdbell(void)
    545       1.1       leo {
    546       1.3       leo 	register int	i, sps;
    547       1.1       leo 
    548       1.9       leo 	sps = splhigh();
    549       1.3       leo 	for (i = 0; i < sizeof(sound); i++) {
    550       1.8       leo 		YM2149->sd_selr = i;
    551       1.8       leo 		YM2149->sd_wdat = sound[i];
    552       1.3       leo 	}
    553       1.3       leo 	splx(sps);
    554      1.16       leo }
    555      1.16       leo 
    556      1.16       leo 
    557      1.16       leo /*
    558      1.16       leo  * Set the parameters of the 'default' beep.
    559      1.16       leo  */
    560      1.16       leo 
    561      1.16       leo #define KBDBELLCLOCK	125000	/* 2MHz / 16 */
    562      1.16       leo #define KBDBELLDURATION	128	/* 256 / 2MHz */
    563      1.16       leo 
    564      1.16       leo void
    565      1.35       dsl kbd_bell_gparms(u_int *volume, u_int *pitch, u_int *duration)
    566      1.16       leo {
    567      1.16       leo 	u_int	tmp;
    568      1.16       leo 
    569      1.16       leo 	tmp = sound[11] | (sound[12] << 8);
    570      1.16       leo 	*duration = (tmp * KBDBELLDURATION) / 1000;
    571      1.16       leo 
    572      1.16       leo 	tmp = sound[0] | (sound[1] << 8);
    573      1.16       leo 	*pitch = KBDBELLCLOCK / tmp;
    574      1.16       leo 
    575      1.16       leo 	*volume = 0;
    576      1.16       leo }
    577      1.16       leo 
    578      1.16       leo void
    579      1.35       dsl kbd_bell_sparms(u_int volume, u_int pitch, u_int duration)
    580      1.16       leo {
    581      1.16       leo 	u_int	f, t;
    582      1.16       leo 
    583      1.16       leo 	f = pitch > 10 ? pitch : 10;	/* minimum pitch */
    584      1.16       leo 	if (f > 20000)
    585      1.16       leo 		f = 20000;		/* maximum pitch */
    586      1.16       leo 
    587      1.16       leo 	f = KBDBELLCLOCK / f;
    588      1.16       leo 
    589      1.16       leo 	t = (duration * 1000) / KBDBELLDURATION;
    590      1.16       leo 
    591      1.16       leo 	sound[ 0] = f & 0xff;
    592      1.16       leo 	sound[ 1] = (f >> 8) & 0xf;
    593      1.16       leo 	f -= 1;
    594      1.16       leo 	sound[ 2] = f & 0xff;
    595      1.16       leo 	sound[ 3] = (f >> 8) & 0xf;
    596      1.16       leo 	f += 2;
    597      1.16       leo 	sound[ 4] = f & 0xff;
    598      1.16       leo 	sound[ 5] = (f >> 8) & 0xf;
    599      1.16       leo 
    600      1.16       leo 	sound[11] = t & 0xff;
    601      1.16       leo 	sound[12] = (t >> 8) & 0xff;
    602      1.16       leo 
    603      1.16       leo 	sound[13] = 0x03;
    604       1.1       leo }
    605       1.1       leo 
    606       1.1       leo int
    607      1.36    cegger kbdgetcn(void)
    608       1.1       leo {
    609      1.37   tsutsui 	uint8_t code;
    610      1.37   tsutsui 	int s = spltty();
    611      1.37   tsutsui 	int ints_active;
    612       1.1       leo 
    613       1.4       leo 	ints_active = 0;
    614       1.4       leo 	if (MFP->mf_imrb & IB_AINT) {
    615       1.4       leo 		ints_active   = 1;
    616       1.4       leo 		MFP->mf_imrb &= ~IB_AINT;
    617       1.4       leo 	}
    618       1.3       leo 	for (;;) {
    619       1.4       leo 		while (!((KBD->ac_cs & (A_IRQ|A_RXRDY)) == (A_IRQ|A_RXRDY)))
    620       1.3       leo 			;	/* Wait for key	*/
    621       1.3       leo 		if (KBD->ac_cs & (A_OE|A_PE)) {
    622       1.3       leo 			code = KBD->ac_da;	/* Silently ignore errors */
    623       1.3       leo 			continue;
    624       1.3       leo 		}
    625      1.15       leo 		code = KBD->ac_da;
    626      1.23    thomas #if NITE>0
    627      1.15       leo 		if (!kbd_do_modifier(code))
    628      1.23    thomas #endif
    629      1.15       leo 			break;
    630       1.3       leo 	}
    631       1.1       leo 
    632       1.4       leo 	if (ints_active) {
    633      1.37   tsutsui 		MFP->mf_iprb  = (uint8_t)~IB_AINT;
    634       1.4       leo 		MFP->mf_imrb |=  IB_AINT;
    635       1.4       leo 	}
    636       1.1       leo 
    637      1.37   tsutsui 	splx(s);
    638       1.1       leo 	return code;
    639       1.3       leo }
    640       1.3       leo 
    641       1.3       leo /*
    642       1.3       leo  * Write a command to the keyboard in 'polled' mode.
    643       1.3       leo  */
    644       1.3       leo static int
    645      1.38   tsutsui kbd_write_poll(const uint8_t *cmd, int len)
    646       1.3       leo {
    647       1.3       leo 	int	timeout;
    648       1.3       leo 
    649       1.3       leo 	while (len-- > 0) {
    650       1.3       leo 		KBD->ac_da = *cmd++;
    651       1.3       leo 		for (timeout = 100; !(KBD->ac_cs & A_TXRDY); timeout--)
    652       1.3       leo 			delay(10);
    653      1.37   tsutsui 		if ((KBD->ac_cs & A_TXRDY) == 0)
    654      1.37   tsutsui 			return 0;
    655       1.3       leo 	}
    656      1.37   tsutsui 	return 1;
    657       1.3       leo }
    658       1.3       leo 
    659       1.3       leo /*
    660       1.3       leo  * Write a command to the keyboard. Return when command is send.
    661       1.3       leo  */
    662       1.4       leo void
    663      1.38   tsutsui kbd_write(const uint8_t *cmd, int len)
    664       1.3       leo {
    665       1.3       leo 	struct kbd_softc	*k = &kbd_softc;
    666       1.3       leo 	int			sps;
    667       1.3       leo 
    668       1.3       leo 	/*
    669       1.3       leo 	 * Get to splhigh, 'real' interrupts arrive at spl6!
    670       1.3       leo 	 */
    671       1.3       leo 	sps = splhigh();
    672       1.3       leo 
    673       1.3       leo 	/*
    674       1.3       leo 	 * Make sure any privious write has ended...
    675       1.3       leo 	 */
    676       1.3       leo 	while (k->k_sendp != NULL)
    677      1.30  christos 		tsleep((void *)&k->k_sendp, TTOPRI, "kbd_write1", 0);
    678       1.3       leo 
    679       1.3       leo 	/*
    680       1.3       leo 	 * If the KBD-acia is not currently busy, send the first
    681       1.3       leo 	 * character now.
    682       1.3       leo 	 */
    683       1.3       leo 	KBD->ac_cs = (k->k_soft_cs |= A_TXINT);
    684       1.3       leo 	if (KBD->ac_cs & A_TXRDY) {
    685       1.3       leo 		KBD->ac_da = *cmd++;
    686       1.3       leo 		len--;
    687       1.3       leo 	}
    688       1.3       leo 
    689       1.3       leo 	/*
    690       1.3       leo 	 * If we're not yet done, wait until all characters are send.
    691       1.3       leo 	 */
    692       1.3       leo 	if (len > 0) {
    693       1.3       leo 		k->k_sendp    = cmd;
    694       1.3       leo 		k->k_send_cnt = len;
    695      1.30  christos 		tsleep((void *)&k->k_send_cnt, TTOPRI, "kbd_write2", 0);
    696       1.3       leo 	}
    697       1.3       leo 	splx(sps);
    698       1.3       leo 
    699       1.3       leo 	/*
    700       1.3       leo 	 * Wakeup all procs waiting for us.
    701       1.3       leo 	 */
    702      1.30  christos 	wakeup((void *)&k->k_sendp);
    703       1.3       leo }
    704       1.3       leo 
    705       1.3       leo /*
    706       1.3       leo  * Setup softc-fields to assemble a keyboard package.
    707       1.3       leo  */
    708       1.3       leo static void
    709      1.37   tsutsui kbd_pkg_start(struct kbd_softc *kp, uint8_t msg_start)
    710       1.3       leo {
    711      1.37   tsutsui 
    712       1.3       leo 	kp->k_pkg_idx    = 1;
    713       1.3       leo 	kp->k_package[0] = msg_start;
    714       1.3       leo 	switch (msg_start) {
    715       1.3       leo 		case 0xf6:
    716       1.9       leo 			kp->k_pkg_type = KBD_MEM_PKG;
    717       1.3       leo 			kp->k_pkg_size = 8;
    718       1.3       leo 			break;
    719       1.3       leo 		case 0xf7:
    720       1.9       leo 			kp->k_pkg_type = KBD_AMS_PKG;
    721       1.3       leo 			kp->k_pkg_size = 6;
    722       1.3       leo 			break;
    723       1.3       leo 		case 0xf8:
    724       1.3       leo 		case 0xf9:
    725       1.3       leo 		case 0xfa:
    726       1.3       leo 		case 0xfb:
    727       1.9       leo 			kp->k_pkg_type = KBD_RMS_PKG;
    728       1.3       leo 			kp->k_pkg_size = 3;
    729       1.3       leo 			break;
    730       1.3       leo 		case 0xfc:
    731       1.9       leo 			kp->k_pkg_type = KBD_CLK_PKG;
    732       1.3       leo 			kp->k_pkg_size = 7;
    733       1.3       leo 			break;
    734       1.3       leo 		case 0xfe:
    735       1.9       leo 			kp->k_pkg_type = KBD_JOY0_PKG;
    736       1.9       leo 			kp->k_pkg_size = 2;
    737       1.9       leo 			break;
    738       1.3       leo 		case 0xff:
    739       1.9       leo 			kp->k_pkg_type = KBD_JOY1_PKG;
    740       1.3       leo 			kp->k_pkg_size = 2;
    741       1.3       leo 			break;
    742       1.3       leo 		default:
    743      1.12  christos 			printf("kbd: Unknown packet 0x%x\n", msg_start);
    744       1.3       leo 			break;
    745       1.3       leo 	}
    746       1.1       leo }
    747      1.15       leo 
    748      1.37   tsutsui #if NITE > 0
    749      1.15       leo /*
    750      1.15       leo  * Modifier processing
    751      1.15       leo  */
    752      1.15       leo static int
    753      1.37   tsutsui kbd_do_modifier(uint8_t code)
    754      1.15       leo {
    755      1.37   tsutsui 	uint8_t up, mask;
    756      1.15       leo 
    757      1.15       leo 	up   = KBD_RELEASED(code);
    758      1.15       leo 	mask = 0;
    759      1.15       leo 
    760      1.37   tsutsui 	switch (KBD_SCANCODE(code)) {
    761      1.15       leo 		case KBD_LEFT_SHIFT:
    762      1.15       leo 			mask = KBD_MOD_LSHIFT;
    763      1.15       leo 			break;
    764      1.15       leo 		case KBD_RIGHT_SHIFT:
    765      1.15       leo 			mask = KBD_MOD_RSHIFT;
    766      1.15       leo 			break;
    767      1.15       leo 		case KBD_CTRL:
    768      1.15       leo 			mask = KBD_MOD_CTRL;
    769      1.15       leo 			break;
    770      1.15       leo 		case KBD_ALT:
    771      1.15       leo 			mask = KBD_MOD_ALT;
    772      1.15       leo 			break;
    773      1.15       leo 		case KBD_CAPS_LOCK:
    774      1.15       leo 			/* CAPSLOCK is a toggle */
    775      1.37   tsutsui 			if (!up)
    776      1.15       leo 				kbd_modifier ^= KBD_MOD_CAPS;
    777      1.15       leo 			return 1;
    778      1.15       leo 	}
    779      1.37   tsutsui 	if (mask) {
    780  1.40.4.1     rmind 		if (up)
    781      1.15       leo 			kbd_modifier &= ~mask;
    782      1.15       leo 		else
    783      1.15       leo 			kbd_modifier |= mask;
    784      1.15       leo 		return 1;
    785      1.15       leo 	}
    786      1.15       leo 	return 0;
    787      1.15       leo }
    788      1.23    thomas #endif
    789      1.23    thomas 
    790      1.23    thomas #if NWSKBD>0
    791      1.23    thomas /*
    792      1.23    thomas  * These are the callback functions that are passed to wscons.
    793      1.23    thomas  * They really don't do anything worth noting, just call the
    794      1.23    thomas  * other functions above.
    795      1.23    thomas  */
    796      1.23    thomas 
    797      1.23    thomas static int
    798      1.23    thomas kbd_enable(void *c, int on)
    799      1.23    thomas {
    800      1.37   tsutsui 
    801      1.23    thomas         /* Wonder what this is supposed to do... */
    802      1.23    thomas 	return 0;
    803      1.23    thomas }
    804      1.23    thomas 
    805      1.23    thomas static void
    806      1.23    thomas kbd_set_leds(void *c, int leds)
    807      1.23    thomas {
    808      1.37   tsutsui 
    809      1.23    thomas         /* we can not set the leds */
    810      1.23    thomas }
    811      1.23    thomas 
    812      1.23    thomas static int
    813      1.40       abs kbd_ioctl(void *c, u_long cmd, void *data, int flag, struct lwp *p)
    814      1.23    thomas {
    815      1.23    thomas 	struct wskbd_bell_data *kd;
    816      1.23    thomas 
    817      1.37   tsutsui 	switch (cmd) {
    818      1.23    thomas 	case WSKBDIO_COMPLEXBELL:
    819      1.23    thomas 		kd = (struct wskbd_bell_data *)data;
    820      1.23    thomas 		kbd_bell(0, kd->pitch, kd->period, kd->volume);
    821      1.23    thomas 		return 0;
    822      1.23    thomas 	case WSKBDIO_SETLEDS:
    823      1.23    thomas 		return 0;
    824      1.23    thomas 	case WSKBDIO_GETLEDS:
    825      1.37   tsutsui 		*(int *)data = 0;
    826      1.23    thomas 		return 0;
    827      1.23    thomas 	case WSKBDIO_GTYPE:
    828      1.37   tsutsui 		*(u_int *)data = WSKBD_TYPE_ATARI;
    829      1.23    thomas 		return 0;
    830      1.23    thomas 	}
    831      1.23    thomas 
    832      1.23    thomas 	/*
    833      1.23    thomas 	 * We are supposed to return EPASSTHROUGH to wscons if we didn't
    834      1.23    thomas 	 * understand.
    835      1.23    thomas 	 */
    836      1.37   tsutsui 	return EPASSTHROUGH;
    837      1.23    thomas }
    838      1.23    thomas 
    839      1.23    thomas static void
    840      1.23    thomas kbd_getc(void *c, u_int *type, int *data)
    841      1.23    thomas {
    842      1.23    thomas 	int key;
    843      1.23    thomas 	key = kbdgetcn();
    844      1.23    thomas 
    845      1.23    thomas 	*data = KBD_SCANCODE(key);
    846      1.23    thomas 	*type = KBD_RELEASED(key) ? WSCONS_EVENT_KEY_UP : WSCONS_EVENT_KEY_DOWN;
    847      1.23    thomas }
    848      1.23    thomas 
    849      1.23    thomas static void
    850      1.23    thomas kbd_pollc(void *c, int on)
    851      1.23    thomas {
    852      1.37   tsutsui 
    853      1.23    thomas         kbd_softc.k_pollingmode = on;
    854      1.23    thomas }
    855      1.23    thomas 
    856      1.23    thomas static void
    857      1.23    thomas kbd_bell(void *v, u_int pitch, u_int duration, u_int volume)
    858      1.23    thomas {
    859      1.37   tsutsui 
    860      1.23    thomas         kbd_bell_sparms(volume, pitch, duration);
    861      1.23    thomas 	kbdbell();
    862      1.23    thomas }
    863      1.23    thomas #endif /* NWSKBD */
    864