NetBSD/sys/arch/acorn32/mainbus/pioc.c

512 lines
13 KiB
C

/* $NetBSD: pioc.c,v 1.1 2001/10/05 22:27:53 reinoud Exp $ */
/*
* Copyright (c) 1997 Mark Brinicombe.
* Copyright (c) 1997 Causality Limited.
* All rights reserved.
*
* 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 Mark Brinicombe.
* 4. The name of the company nor the name of the author may be used to
* endorse or promote products derived from this software without specific
* prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
*
* Peripheral I/O controller - wd, fd, com, lpt Combo chip
*
* Parent device for combo chip I/O drivers
* Currently supports the SMC FDC37GT66[56] controllers.
*/
/*#define PIOC_DEBUG*/
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/device.h>
#include <machine/bus.h>
#include <arm/mainbus/mainbus.h>
#include <acorn32/mainbus/piocreg.h>
#include <acorn32/mainbus/piocvar.h>
#include "locators.h"
/*
* PIOC device.
*
* This probes and attaches the top level pioc device.
* It then configures any children of the pioc device.
*/
/*
* pioc softc structure.
*
* Contains the device node, bus space tag, handle and address along with
* other global information such as id and config registers.
*/
struct pioc_softc {
struct device sc_dev; /* device node */
bus_space_tag_t sc_iot; /* bus tag */
bus_space_handle_t sc_ioh; /* bus handle */
bus_addr_t sc_iobase; /* IO base address */
int sc_id; /* chip ID */
int sc_config[PIOC_CM_REGS];/* config regs */
};
/*
* The pioc device is a parent to the com device.
* This means that it needs to provide a bus space tag for
* a serial console.
*
* XXX - This is not fully tested yet.
*/
extern struct bus_space mainbus_bs_tag;
bus_space_tag_t comconstag = &mainbus_bs_tag;
/* Prototypes for functions */
static int piocmatch __P((struct device *, struct cfdata *, void *));
static void piocattach __P((struct device *, struct device *, void *));
static int piocprint __P((void *aux, const char *name));
#if 0
static int piocsearch __P((struct device *, struct cfdata *, void *));
#endif
static int piocsubmatch __P((struct device *, struct cfdata *, void *));
static void piocgetid __P((bus_space_tag_t iot, bus_space_handle_t ioh,
int config_entry, int *id, int *revision));
/* device attach and driver structure */
struct cfattach pioc_ca = {
sizeof(struct pioc_softc), piocmatch, piocattach
};
/*
* void piocgetid(bus_space_tag_t iot, bus_space_handle_t ioh,
* int config_entry, int *id, int *revision)
*
* Enter config mode and return the id and revision
*/
static void
piocgetid(iot, ioh, config_entry, id, revision)
bus_space_tag_t iot;
bus_space_handle_t ioh;
int config_entry;
int *id;
int *revision;
{
/*
* Put the chip info configuration mode and read the ID and revision
*/
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, config_entry);
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, config_entry);
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_CRD);
*id = bus_space_read_1(iot, ioh, PIOC_CM_DATA_REG);
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_CRE);
*revision = bus_space_read_1(iot, ioh, PIOC_CM_DATA_REG);
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_EXIT);
}
/*
* int piocmatch(struct device *parent, struct cfdata *cf, void *aux)
*
* Put the controller into config mode and probe the ID to see if
* we recognise it.
*
* XXX - INTRUSIVE PROBE
*/
static int
piocmatch(parent, cf, aux)
struct device *parent;
struct cfdata *cf;
void *aux;
{
struct mainbus_attach_args *mb = aux;
bus_space_tag_t iot;
bus_space_handle_t ioh;
int id, rev;
int rv = 1;
/* We need a base address */
if (mb->mb_iobase == MAINBUSCF_BASE_DEFAULT)
return(0);
iot = mb->mb_iot;
if (bus_space_map(iot, mb->mb_iobase, PIOC_SIZE, 0, &ioh))
return(0);
mb->mb_iosize = PIOC_SIZE;
piocgetid(iot, ioh, PIOC_CM_ENTER_665, &id, &rev);
if (id == PIOC_CM_ID_665)
goto out;
piocgetid(iot, ioh, PIOC_CM_ENTER_666, &id, &rev);
if (id == PIOC_CM_ID_666)
goto out;
rv = 0;
out:
bus_space_unmap(iot, ioh, PIOC_SIZE);
return(rv);
}
/*
* int piocprint(void *aux, const char *name)
*
* print routine used during child configuration
*/
static int
piocprint(aux, name)
void *aux;
const char *name;
{
struct pioc_attach_args *pa = aux;
if (!name) {
if (pa->pa_offset)
printf(" offset 0x%x", pa->pa_offset >> 2);
if (pa->pa_iosize > 1)
printf("-0x%x", ((pa->pa_offset >> 2) + pa->pa_iosize) - 1);
if (pa->pa_irq != -1)
printf(" irq %d", pa->pa_irq);
if (pa->pa_drq != -1)
printf(" drq 0x%08x", pa->pa_drq);
}
/* XXX print flags */
return (QUIET);
}
#if 0
/*
* int piocsearch(struct device *parent, struct cfdata *cf, void *aux)
*
* search function used to probe and attach the child devices.
*
* Note: since the offsets of the devices need to be specified in the
* config file we ignore the FSTAT_STAR.
*/
static int
piocsearch(parent, cf, aux)
struct device *parent;
struct cfdata *cf;
void *aux;
{
struct pioc_softc *sc = (struct pioc_softc *)parent;
struct pioc_attach_args pa;
int tryagain;
do {
pa.pa_name = NULL;
pa.pa_iobase = sc->sc_iobase;
pa.pa_iosize = 0;
pa.pa_iot = sc->sc_iot;
if (cf->cf_loc[PIOCCF_OFFSET] == PIOCCF_OFFSET_DEFAULT) {
pa.pa_offset = PIOCCF_OFFSET_DEFAULT;
pa.pa_drq = PIOCCF_DACK_DEFAULT;
pa.pa_irq = PIOCCF_IRQ_DEFAULT;
} else {
pa.pa_offset = (cf->cf_loc[PIOCCF_OFFSET] << 2);
pa.pa_drq = cf->cf_loc[PIOCCF_DACK];
pa.pa_irq = cf->cf_loc[PIOCCF_IRQ];
}
tryagain = 0;
if ((*cf->cf_attach->ca_match)(parent, cf, &pa) > 0) {
config_attach(parent, cf, &pa, piocprint);
/* tryagain = (cf->cf_fstate == FSTATE_STAR);*/
}
} while (tryagain);
return (0);
}
#endif
/*
* int piocsubmatch(struct device *parent, struct cfdata *cf, void *aux)
*
* search function used to probe and attach the child devices.
*
* Note: since the offsets of the devices need to be specified in the
* config file we ignore the FSTAT_STAR.
*/
static int
piocsubmatch(parent, cf, aux)
struct device *parent;
struct cfdata *cf;
void *aux;
{
struct pioc_attach_args *pa = aux;
int tryagain;
if ((pa->pa_offset >> 2) != cf->cf_loc[0])
return(0);
do {
if (pa->pa_drq == -1)
pa->pa_drq = cf->cf_loc[1];
if (pa->pa_irq == -1)
pa->pa_irq = cf->cf_loc[2];
tryagain = 0;
if ((*cf->cf_attach->ca_match)(parent, cf, pa) > 0) {
config_attach(parent, cf, pa, piocprint);
/* tryagain = (cf->cf_fstate == FSTATE_STAR);*/
}
} while (tryagain);
return (0);
}
/*
* void piocattach(struct device *parent, struct device *dev, void *aux)
*
* Identify the PIOC and read the config registers into the softc.
* Search and configure all children
*/
static void
piocattach(parent, self, aux)
struct device *parent;
struct device *self;
void *aux;
{
struct mainbus_attach_args *mb = aux;
struct pioc_softc *sc = (struct pioc_softc *)self;
bus_space_tag_t iot;
bus_space_handle_t ioh;
int id, rev;
int loop;
struct pioc_attach_args pa;
sc->sc_iobase = mb->mb_iobase;
iot = sc->sc_iot = mb->mb_iot;
if (bus_space_map(iot, sc->sc_iobase, PIOC_SIZE, 0, &ioh))
panic("%s: couldn't map I/O space", self->dv_xname);
sc->sc_ioh = ioh;
piocgetid(iot, ioh, PIOC_CM_ENTER_665, &id, &rev);
if (id != PIOC_CM_ID_665)
piocgetid(iot, ioh, PIOC_CM_ENTER_666, &id, &rev);
printf("\n%s: ", self->dv_xname);
/* Do we recognise it ? */
switch (id) {
case PIOC_CM_ID_665:
case PIOC_CM_ID_666:
printf("SMC FDC37C6%xGT peripheral controller rev %d\n", id, rev);
break;
default:
printf("Unrecognised peripheral controller id=%2x rev=%2x\n", id, rev);
return;
}
sc->sc_id = id;
/*
* Put the chip info configuration mode and save all the registers
*/
switch (id) {
case PIOC_CM_ID_665:
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_ENTER_665);
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_ENTER_665);
break;
case PIOC_CM_ID_666:
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_ENTER_666);
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_ENTER_666);
break;
}
for (loop = 0; loop < PIOC_CM_REGS; ++loop) {
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, loop);
sc->sc_config[loop] = bus_space_read_1(iot, ioh, PIOC_CM_DATA_REG);
}
bus_space_write_1(iot, ioh, PIOC_CM_SELECT_REG, PIOC_CM_EXIT);
#ifdef PIOC_DEBUG
printf("%s: ", self->dv_xname);
for (loop = 0; loop < PIOC_CM_REGS; ++loop)
printf("%02x ", sc->sc_config[loop]);
printf("\n");
#endif
/*
* Ok as yet we cannot do specific config_found() calls
* for the children yet. This is because the pioc device does
* not know the interrupt numbers to use.
* Eventually this information will have to be provided by the
* riscpc specific code.
* Until then just do a config_search() and pick the info up
* from the cfdata.
* Note the child devices require some modifications as well.
*/
/*
* Ok Now configure the child devices of the pioc device
* Use the pioc config registers to determine the addressing
* of the children
*/
/*
* Start by configuring the IDE controller
*/
if (sc->sc_config[PIOC_CM_CR0] & PIOC_WDC_ENABLE) {
pa.pa_name = "wdc";
pa.pa_iobase = sc->sc_iobase;
pa.pa_iosize = 0;
pa.pa_iot = iot;
if (sc->sc_config[PIOC_CM_CR5] & PIOC_WDC_SECONDARY)
pa.pa_offset = (PIOC_WDC_SECONDARY_OFFSET << 2);
else
pa.pa_offset = (PIOC_WDC_PRIMARY_OFFSET << 2);
pa.pa_drq = -1;
pa.pa_irq = -1;
config_found_sm(self, &pa, piocprint, piocsubmatch);
}
/*
* Next configure the floppy controller
*/
if (sc->sc_config[PIOC_CM_CR0] & PIOC_FDC_ENABLE) {
pa.pa_name = "fdc";
pa.pa_iobase = sc->sc_iobase;
pa.pa_iosize = 0;
pa.pa_iot = iot;
if (sc->sc_config[PIOC_CM_CR5] & PIOC_FDC_SECONDARY)
pa.pa_offset = (PIOC_FDC_SECONDARY_OFFSET << 2);
else
pa.pa_offset = (PIOC_FDC_PRIMARY_OFFSET << 2);
pa.pa_drq = -1;
pa.pa_irq = -1;
config_found_sm(self, &pa, piocprint, piocsubmatch);
}
/*
* Next configure the serial ports
*/
/*
* XXX - There is a deficiency in the serial configuration
* If the PIOC has the serial ports configured for COM3 and COM4
* the standard COM3 and COM4 addresses are assumed rather than
* examining CR1 to determine the COM3 and COM4 addresses.
*/
if (sc->sc_config[PIOC_CM_CR2] & PIOC_UART1_ENABLE) {
pa.pa_name = "com";
pa.pa_iobase = sc->sc_iobase;
pa.pa_iosize = 0;
pa.pa_iot = iot;
switch (sc->sc_config[PIOC_CM_CR2] & PIOC_UART1_ADDR_MASK) {
case PIOC_UART1_ADDR_COM1:
pa.pa_offset = (PIOC_COM1_OFFSET << 2);
break;
case PIOC_UART1_ADDR_COM2:
pa.pa_offset = (PIOC_COM2_OFFSET << 2);
break;
case PIOC_UART1_ADDR_COM3:
pa.pa_offset = (PIOC_COM3_OFFSET << 2);
break;
case PIOC_UART1_ADDR_COM4:
pa.pa_offset = (PIOC_COM4_OFFSET << 2);
break;
}
pa.pa_drq = -1;
pa.pa_irq = -1;
config_found_sm(self, &pa, piocprint, piocsubmatch);
}
if (sc->sc_config[PIOC_CM_CR2] & PIOC_UART2_ENABLE) {
pa.pa_name = "com";
pa.pa_iobase = sc->sc_iobase;
pa.pa_iosize = 0;
pa.pa_iot = iot;
switch (sc->sc_config[PIOC_CM_CR2] & PIOC_UART2_ADDR_MASK) {
case PIOC_UART2_ADDR_COM1:
pa.pa_offset = (PIOC_COM1_OFFSET << 2);
break;
case PIOC_UART2_ADDR_COM2:
pa.pa_offset = (PIOC_COM2_OFFSET << 2);
break;
case PIOC_UART2_ADDR_COM3:
pa.pa_offset = (PIOC_COM3_OFFSET << 2);
break;
case PIOC_UART2_ADDR_COM4:
pa.pa_offset = (PIOC_COM4_OFFSET << 2);
break;
}
pa.pa_drq = -1;
pa.pa_irq = -1;
config_found_sm(self, &pa, piocprint, piocsubmatch);
}
/*
* Next configure the printer port
*/
if ((sc->sc_config[PIOC_CM_CR1] & PIOC_LPT_ADDR_MASK) != PIOC_LPT_ADDR_DISABLE) {
pa.pa_name = "lpt";
pa.pa_iobase = sc->sc_iobase;
pa.pa_iosize = 0;
pa.pa_iot = iot;
switch (sc->sc_config[PIOC_CM_CR1] & PIOC_LPT_ADDR_MASK) {
case PIOC_LPT_ADDR_1:
pa.pa_offset = (PIOC_LPT1_OFFSET << 2);
break;
case PIOC_LPT_ADDR_2:
pa.pa_offset = (PIOC_LPT2_OFFSET << 2);
break;
case PIOC_LPT_ADDR_3:
pa.pa_offset = (PIOC_LPT3_OFFSET << 2);
break;
}
pa.pa_drq = -1;
pa.pa_irq = -1;
config_found_sm(self, &pa, piocprint, piocsubmatch);
}
#if 0
config_search(piocsearch, self, NULL);
#endif
}
/* End of pioc.c */