* Copyright (c) 1992 OMRON Corporation.

/* $NetBSD: sio.c,v 1.5 2019/06/30 05:04:49 tsutsui Exp $ */

/*
* Copyright (c) 1992 OMRON Corporation.
*
* This code is derived from software contributed to Berkeley by
* OMRON Corporation.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* @(#)sio.c 8.1 (Berkeley) 6/10/93
*/
/*
* Copyright (c) 1992, 1993
* The Regents of the University of California. All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* OMRON Corporation.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* @(#)sio.c 8.1 (Berkeley) 6/10/93
*/

/* sio.c NOV-25-1991 */

#define NSIO 2

#include <sys/param.h>
#include <machine/board.h>
#include <luna68k/stand/boot/samachdep.h>
#include <luna68k/stand/boot/sioreg.h>
#include <luna68k/stand/boot/rcvbuf.h>
#include <luna68k/stand/boot/kbdreg.h>

static void siointr(int);
static int sioreg(int, int);

struct rcvbuf rcvbuf[NSIO];

int sioconsole = -1;
struct siodevice *sio_addr[2];

void
_siointr(void)
{
int unit;

for (unit = 0; unit < NSIO; unit++)
siointr(unit);
}

void
siointr(int unit)
{
#if 0
struct siodevice *sio = sio_addr[unit];
#endif
int rr0 = sioreg(REG(unit, RR0), 0);
int rr1 = sioreg(REG(unit, RR1), 0);

if (rr0 & RR0_RXAVAIL) {
if (rr1 & RR1_FRAMING)
return;

if (rr1 & (RR1_PARITY | RR1_OVERRUN)) {
/* Channel-A Error Reset */
sioreg(REG(unit, WR0), WR0_ERRRST);
}

if (unit == 1) {
int c = kbd_decode(sio_addr[unit]->sio_data);

if ((c & KC_TYPE) == KC_CODE)
PUSH_RBUF(unit, c);
} else {
PUSH_RBUF(unit, sio_addr[unit]->sio_data);
}
}
}

/*
* Following are all routines needed for SIO to act as console
*/
#include <dev/cons.h>
#include <luna68k/stand/boot/romvec.h>

void
siocnprobe(struct consdev *cp)
{
sio_addr[0] = (struct siodevice *)(OBIO_SIO + 0);
sio_addr[1] = (struct siodevice *)(OBIO_SIO + 4);

/* make sure hardware exists */
if (badaddr((short *)sio_addr[0])) {
cp->cn_pri = CN_DEAD;
return;
}

/* locate the major number */

/* initialize required fields */
cp->cn_dev = 0;
cp->cn_pri = CN_NORMAL;
}

void
siocninit(struct consdev *cp)
{
int unit = cp->cn_dev;

sioinit();
sioconsole = unit;
}

int
siocngetc(dev_t dev)
{
int c, unit = dev;

if (RBUF_EMPTY(unit))
return 0;

POP_RBUF(unit, c);

return c;
}

void
siocnputc(dev_t dev, int c)
{
int unit = dev;
int s;

if (sioconsole == -1) {
(void)sioinit();
sioconsole = unit;
}

s = splsio();

/* wait for any pending transmission to finish */
while ((sioreg(REG(unit, RR0), 0) & RR0_TXEMPTY) == 0)
continue;

sio_addr[unit]->sio_data = (c & 0xFF);

/* wait for any pending transmission to finish */
while ((sioreg(REG(unit, RR0), 0) & RR0_TXEMPTY) == 0)
continue;

splx(s);
}

/* SIO misc routines */

void
sioinit(void)
{
int s;

RBUF_INIT(0);
RBUF_INIT(1);

s = splsio();

/* Channel-A Reset */
sioreg(REG(0, WR0), WR0_CHANRST);

/* Set CPU BUS Interface Mode */
sioreg(WR2A, WR2_VEC86 | WR2_INTR_1);
/* Set Interrupt Vector */
sioreg(WR2B, 0);

/* Reset E/S Interrupt */
sioreg(REG(0, WR0), WR0_RSTINT);
/* Tx/Rx */
sioreg(REG(0, WR4), WR4_BAUD96 | WR4_STOP1 | WR4_NPARITY);
/* Rx */
sioreg(REG(0, WR3), WR3_RX8BIT | WR3_RXENBL);
/* Tx */
sioreg(REG(0, WR5), WR5_TX8BIT | WR5_TXENBL | WR5_DTR | WR5_RTS);
/* Reset E/S Interrupt */
sioreg(REG(0, WR0), WR0_RSTINT);
/* Interrupted All Char. */
sioreg(REG(0, WR1), WR1_RXALLS);

/* Channel-A Reset */
sioreg(REG(1, WR0), WR0_CHANRST);

/* Reset E/S Interrupt */
sioreg(REG(1, WR0), WR0_RSTINT);
/* Tx/Rx */
sioreg(REG(1, WR4), WR4_BAUD96 | WR4_STOP1 | WR4_NPARITY);
/* Rx */
sioreg(REG(1, WR3), WR3_RX8BIT | WR3_RXENBL);
/* Tx */
sioreg(REG(1, WR5), WR5_TX8BIT | WR5_TXENBL);
/* Reset E/S Interrupt */
sioreg(REG(1, WR0), WR0_RSTINT);
/* Interrupted All Char. */
sioreg(REG(1, WR1), WR1_RXALLS);

splx(s);
}

int
sioreg(int reg, int val)
{
int chan;

chan = CHANNEL(reg);

if (isStatusReg(reg)) {
if (REGNO(reg) != 0)
sio_addr[chan]->sio_cmd = REGNO(reg);
return sio_addr[chan]->sio_stat;
} else {
if (REGNO(reg) != 0)
sio_addr[chan]->sio_cmd = REGNO(reg);
sio_addr[chan]->sio_cmd = val;
return val;
}
}