NetBSD/sys/arch/arc/pica/picabus.c

/*	$NetBSD: picabus.c,v 1.13 2000/06/17 07:23:06 soda Exp $	*/
/*	$OpenBSD: picabus.c,v 1.11 1999/01/11 05:11:10 millert Exp $	*/
/*	NetBSD: tc.c,v 1.2 1995/03/08 00:39:05 cgd Exp 	*/

/*
 * Copyright (c) 1994, 1995 Carnegie-Mellon University.
 * All rights reserved.
 *
 * Author: Chris G. Demetriou
 * Author: Per Fogelstrom. (Mips R4x00)
 * 
 * Permission to use, copy, modify and distribute this software and
 * its documentation is hereby granted, provided that both the copyright
 * notice and this permission notice appear in all copies of the
 * software, derivative works or modified versions, and any portions
 * thereof, and that both notices appear in supporting documentation.
 * 
 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS" 
 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND 
 * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
 * 
 * Carnegie Mellon requests users of this software to return to
 *
 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
 *  School of Computer Science
 *  Carnegie Mellon University
 *  Pittsburgh PA 15213-3890
 *
 * any improvements or extensions that they make and grant Carnegie the
 * rights to redistribute these changes.
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/proc.h>
#include <sys/user.h>
#include <sys/device.h>
#include <vm/vm.h>

#include <machine/bus.h>
#include <machine/intr.h>
#include <machine/cpu.h>
#include <machine/pio.h>
#include <machine/autoconf.h>

#include <arc/pica/pica.h>
#include <arc/pica/rd94.h>
#include <arc/arc/arctype.h>
#include <arc/jazz/jazzdmatlbreg.h>
#include <arc/dev/dma.h>

struct pica_softc {
	struct	device sc_dv;
	struct	abus sc_bus;
	struct	pica_dev *sc_devs;
};

/* Definition of the driver for autoconfig. */
int	picamatch(struct device *, struct cfdata *, void *);
void	picaattach(struct device *, struct device *, void *);
int	picaprint(void *, const char *);

struct cfattach pica_ca = {
	sizeof(struct pica_softc), picamatch, picaattach
};
extern struct cfdriver pica_cd;

void	pica_intr_establish __P((struct confargs *, int (*)(void *), void *));
void	pica_intr_disestablish __P((struct confargs *));
caddr_t	pica_cvtaddr __P((struct confargs *));
int	pica_matchname __P((struct confargs *, char *));
int	pica_iointr __P((unsigned int, struct clockframe *));
int	pica_clkintr __P((unsigned int, struct clockframe *));
int	rd94_iointr __P((unsigned int, struct clockframe *));
int	rd94_clkintr __P((unsigned int, struct clockframe *));

intr_handler_t pica_clock_handler;

/*
 *  Interrupt dispatch table.
 */
struct pica_int_desc int_table[] = {
	{0, pica_intrnull, (void *)NULL, 0 },  /*  0 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  1 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  2 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  3 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  4 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  5 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  6 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  7 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  8 */
	{0, pica_intrnull, (void *)NULL, 0 },  /*  9 */
	{0, pica_intrnull, (void *)NULL, 0 },  /* 10 */
	{0, pica_intrnull, (void *)NULL, 0 },  /* 11 */
	{0, pica_intrnull, (void *)NULL, 0 },  /* 12 */
	{0, pica_intrnull, (void *)NULL, 0 },  /* 13 */
	{0, pica_intrnull, (void *)NULL, 0 },  /* 14 */
	{0, pica_intrnull, (void *)NULL, 0 },  /* 15 */
};

struct pica_dev {
	struct confargs	ps_ca;
	u_int		ps_mask;
	intr_handler_t	ps_handler;
	caddr_t		ps_base;
};

struct pica_dev acer_pica_61_cpu[] = {
	{{ "dallas_rtc",0, 0, },
	   0,			 pica_intrnull, (void *)PICA_SYS_CLOCK, },
	{{ "lpt",	1, 0, },
	   PICA_SYS_LB_IE_PAR1,	 pica_intrnull, (void *)PICA_SYS_PAR1, },
	{{ "fdc",	2, 0, },
	   PICA_SYS_LB_IE_FLOPPY,pica_intrnull, (void *)PICA_SYS_FLOPPY, },
	{{ NULL,	3, NULL, },
	   0, pica_intrnull, (void *)NULL, },
	{{ "vga",	4, NULL, },
	   0, pica_intrnull, (void *)PICA_V_LOCAL_VIDEO, },
	{{ "sonic",	5, 0, },
	   PICA_SYS_LB_IE_SONIC, pica_intrnull, (void *)PICA_SYS_SONIC, },
	{{ "asc",	6, 0, },
	   PICA_SYS_LB_IE_SCSI,  pica_intrnull, (void *)PICA_SYS_SCSI, },
	{{ "pckbd",	7, 0, },
	   PICA_SYS_LB_IE_KBD,	 pica_intrnull, (void *)PICA_SYS_KBD, },
	{{ "pms",	8, NULL, },
	   PICA_SYS_LB_IE_MOUSE, pica_intrnull, (void *)PICA_SYS_KBD, },
	{{ "com",	9, 0, },
	   PICA_SYS_LB_IE_COM1,	 pica_intrnull, (void *)PICA_SYS_COM1, },
	{{ "com",      10, 0, },
	   PICA_SYS_LB_IE_COM2,	 pica_intrnull, (void *)PICA_SYS_COM2, },
	{{ NULL,       -1, NULL, },
	   0, NULL, (void *)NULL, },
};

struct pica_dev mips_magnum_r4000_cpu[] = {
	{{ "dallas_rtc",0, 0, },
	   0,			 pica_intrnull, (void *)PICA_SYS_CLOCK, },
	{{ "lpt",	1, 0, },
	   PICA_SYS_LB_IE_PAR1,	 pica_intrnull, (void *)PICA_SYS_PAR1, },
	{{ "fdc",	2, 0, },
	   PICA_SYS_LB_IE_FLOPPY,pica_intrnull, (void *)PICA_SYS_FLOPPY, },
	{{ NULL,	3, NULL, },
	   0, pica_intrnull, (void *)NULL, },
	{{ "vxl",       4, 0, },
	   PICA_SYS_LB_IE_VIDEO, pica_intrnull, (void *)PICA_V_LOCAL_VIDEO, },
	{{ "sonic",	5, 0, },
	   PICA_SYS_LB_IE_SONIC, pica_intrnull, (void *)PICA_SYS_SONIC, },
	{{ "asc",	6, 0, },
	   PICA_SYS_LB_IE_SCSI,  pica_intrnull, (void *)PICA_SYS_SCSI, },
	{{ "pckbd",	7, 0, },
	   PICA_SYS_LB_IE_KBD,	 pica_intrnull, (void *)PICA_SYS_KBD, },
	{{ "pms",	8, NULL, },
	   PICA_SYS_LB_IE_MOUSE, pica_intrnull, (void *)PICA_SYS_KBD, },
	{{ "com",	9, 0, },
	   PICA_SYS_LB_IE_COM1,	 pica_intrnull, (void *)PICA_SYS_COM1, },
	{{ "com",      10, 0, },
	   PICA_SYS_LB_IE_COM2,	 pica_intrnull, (void *)PICA_SYS_COM2, },
	{{ NULL,       -1, NULL, },
	   0, NULL, (void *)NULL, },
};

struct pica_dev nec_rd94_cpu[] = {
	{{ "dallas_rtc",0, 0, },
	   0,			 pica_intrnull,	(void *)RD94_SYS_CLOCK, },
	{{ "lpt",	1, 0, },
	   RD94_SYS_LB_IE_PAR1,  pica_intrnull,	(void *)RD94_SYS_PAR1, },
	{{ "fdc",	2, 0, },
	   RD94_SYS_LB_IE_FLOPPY,pica_intrnull,	(void *)RD94_SYS_FLOPPY, },
	{{ NULL,	3, NULL, },
	   0, pica_intrnull, (void *)NULL, },
	{{ "sonic",	4, 0, },
	   RD94_SYS_LB_IE_SONIC, pica_intrnull,	(void *)RD94_SYS_SONIC, },
	{{ NULL,	5, NULL, },
	   0, pica_intrnull, (void *)NULL, },
	{{ NULL,	6, NULL, },
	   0, pica_intrnull, (void *)NULL, },
	{{ "pckbd",	7, 0, },
	   RD94_SYS_LB_IE_KBD,	 pica_intrnull,	(void *)RD94_SYS_KBD, },
	{{ "pms",	8, NULL, },
	   RD94_SYS_LB_IE_MOUSE, pica_intrnull,	(void *)RD94_SYS_KBD, },
	{{ "com",	9, 0, },
	   RD94_SYS_LB_IE_COM1,	 pica_intrnull,	(void *)RD94_SYS_COM1, },
	{{ "com",      10, 0, },
	   RD94_SYS_LB_IE_COM2,	 pica_intrnull,	(void *)RD94_SYS_COM2, },
	{{ NULL,       -1, NULL, },
	   0, NULL, (void *)NULL, },
};

struct pica_dev *pica_cpu_devs[] = {
        NULL,                   /* Unused */
        acer_pica_61_cpu,       /* Acer PICA */
	mips_magnum_r4000_cpu,	/* Mips MAGNUM R4000 */
	nec_rd94_cpu,		/* NEC-R94 */
	nec_rd94_cpu,		/* NEC-RA'94 */
	nec_rd94_cpu,		/* NEC-RD94 */
	nec_rd94_cpu,		/* NEC-R96 */
};
int npica_cpu_devs = sizeof pica_cpu_devs / sizeof pica_cpu_devs[0];

int local_int_mask = 0;	/* Local interrupt enable mask */

int
picamatch(parent, match, aux)
	struct device *parent;
	struct cfdata *match;
	void *aux;
{
	struct confargs *ca = aux;

        /* Make sure that we're looking for a PICA. */
        if (strcmp(ca->ca_name, pica_cd.cd_name) != 0)
                return (0);

        /* Make sure that unit exists. */
	if (match->cf_unit != 0 ||
	    cputype > npica_cpu_devs || pica_cpu_devs[cputype] == NULL)
		return (0);

	return (1);
}

void
picaattach(parent, self, aux)
	struct device *parent;
	struct device *self;
	void *aux;
{
	struct pica_softc *sc = (struct pica_softc *)self;
	struct confargs *nca;
	int i;

	printf("\n");

	/* keep our CPU device description handy */
	sc->sc_devs = pica_cpu_devs[cputype];

	/* set up interrupt handlers */
	switch (cputype) {
	case ACER_PICA_61:
	case MAGNUM:
		set_intr(MIPS_INT_MASK_1, pica_iointr, 2);
		break;
	case NEC_R94:
	case NEC_RAx94:
	case NEC_RD94:
	case NEC_R96:
		set_intr(MIPS_INT_MASK_1, rd94_iointr, 2);
		break;
	}

	sc->sc_bus.ab_dv = (struct device *)sc;
	sc->sc_bus.ab_type = BUS_PICA;
	sc->sc_bus.ab_intr_establish = pica_intr_establish;
	sc->sc_bus.ab_intr_disestablish = pica_intr_disestablish;
	sc->sc_bus.ab_cvtaddr = pica_cvtaddr;
	sc->sc_bus.ab_matchname = pica_matchname;

	/* Initialize PICA Dma */
	picaDmaInit();

	/* Try to configure each PICA attached device */
	for (i = 0; sc->sc_devs[i].ps_ca.ca_slot >= 0; i++) {

		if(sc->sc_devs[i].ps_ca.ca_name == NULL)
			continue; /* Empty slot */

		nca = &sc->sc_devs[i].ps_ca;
		nca->ca_bus = &sc->sc_bus;

		/* Tell the autoconfig machinery we've found the hardware. */
		config_found(self, nca, picaprint);
	}
}

int
picaprint(aux, pnp)
	void *aux;
	const char *pnp;
{
	struct confargs *ca = aux;

        if (pnp)
                printf("%s at %s", ca->ca_name, pnp);
        printf(" slot %d offset 0x%x", ca->ca_slot, ca->ca_offset);
        return (UNCONF);
}

caddr_t
pica_cvtaddr(ca)
	struct confargs *ca;
{
	struct pica_softc *sc = pica_cd.cd_devs[0];

	return(sc->sc_devs[ca->ca_slot].ps_base + ca->ca_offset);

}

void
pica_intr_establish(ca, handler, val)
	struct confargs *ca;
	intr_handler_t handler;
	void *val;
{
	struct pica_softc *sc = pica_cd.cd_devs[0];

	int slot;

	slot = ca->ca_slot;
	if(slot == 0) {		/* Slot 0 is special, clock */
		pica_clock_handler = handler;
		switch (cputype) {
		case ACER_PICA_61:
		case MAGNUM:
			set_intr(MIPS_INT_MASK_4, pica_clkintr, 1);
			break;
		case NEC_R94:
		case NEC_RAx94:
		case NEC_RD94:
		case NEC_R96:
			set_intr(MIPS_INT_MASK_3, rd94_clkintr, 1);
			break;
		}
	}

	if(int_table[slot].int_mask != 0) {
		panic("pica intr already set");
	}
	else {
		int_table[slot].int_mask = sc->sc_devs[slot].ps_mask;;
		local_int_mask |= int_table[slot].int_mask;
		int_table[slot].int_hand = handler;
		int_table[slot].param = val;
	}

	switch (cputype) {
	case ACER_PICA_61:
	case MAGNUM:
		out16(PICA_SYS_LB_IE, local_int_mask);
		break;

	case NEC_R94:
	case NEC_RAx94:
	case NEC_RD94:
	case NEC_R96:
		/* XXX: I don't know why, but firmware does. */
		if (in32(0xe0000560) != 0)
			out16(RD94_SYS_LB_IE+2, local_int_mask);
		else
			out16(RD94_SYS_LB_IE, local_int_mask);
		break;
	}
}

void
pica_intr_disestablish(ca)
	struct confargs *ca;
{
	int slot;

	slot = ca->ca_slot;
	if(slot != 0)		 {	/* Slot 0 is special, clock */
		local_int_mask &= ~int_table[slot].int_mask;
		int_table[slot].int_mask = 0;
		int_table[slot].int_hand = pica_intrnull;
		int_table[slot].param = (void *)NULL;
	}
}

int
pica_matchname(ca, name)
	struct confargs *ca;
	char *name;
{
	return (strcmp(name, ca->ca_name) == 0);
}

int
pica_intrnull(val)
	void *val;
{
	panic("uncaught PICA intr for slot %p", val);
}

/*
 *   Handle pica i/o interrupt.
 */
int
pica_iointr(mask, cf)
	unsigned mask;
	struct clockframe *cf;
{
	int vector;

	while((vector = inb(PVIS) >> 2) != 0) {
		(*int_table[vector].int_hand)(int_table[vector].param);
	}
	return(~0);  /* Dont reenable */
}

/*
 * Handle pica interval clock interrupt.
 */
int
pica_clkintr(mask, cf)
	unsigned mask;
	struct clockframe *cf;
{
	int temp;

	temp = inw(R4030_SYS_IT_STAT);
	(*pica_clock_handler)(cf);

	/* Re-enable clock interrupts */
	splx(MIPS_INT_MASK_4 | MIPS_SR_INT_IE);

	return(~MIPS_INT_MASK_4); /* Keep clock interrupts enabled */
}

/*
 *   Handle NEC-RD94 i/o interrupt.
 */
int
rd94_iointr(mask, cf)
	unsigned mask;
	struct clockframe *cf;
{
	int vector;

	while((vector = inb(RD94_SYS_INTSTAT1) >> 2) != 0) {
		(*int_table[vector].int_hand)(int_table[vector].param);
	}
	return(~0);  /* Dont reenable */
}

/*
 * Handle NEC-RD94 interval clock interrupt.
 */
int
rd94_clkintr(mask, cf)
	unsigned mask;
	struct clockframe *cf;
{
	int temp;

	temp = in32(RD94_SYS_INTSTAT3);
	(*pica_clock_handler)(cf);

	/* Re-enable clock interrupts */
	splx(MIPS_INT_MASK_3 | MIPS_SR_INT_IE);

	return(~MIPS_INT_MASK_3); /* Keep clock interrupts enabled */
}