NetBSD/sys/arch/x68k/dev/neptune.c

217 lines
5.7 KiB
C

/* $NetBSD: neptune.c,v 1.4 2000/01/16 14:20:56 minoura Exp $ */
/*-
* Copyright (c) 1998 NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Minoura Makoto.
*
* 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 NetBSD
* Foundation, Inc. and its contributors.
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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.
*/
/*
* Neptune-X -- X68k-ISA Bus Bridge
*/
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/device.h>
#include <sys/malloc.h>
#include <machine/bus.h>
#include <machine/cpu.h>
#include <machine/frame.h>
#include <arch/x68k/dev/intiovar.h>
#include <arch/x68k/dev/neptunevar.h>
/* bus_space stuff */
static int neptune_bus_space_map __P((bus_space_tag_t, bus_addr_t, bus_size_t,
int, bus_space_handle_t*));
static void neptune_bus_space_unmap __P((bus_space_tag_t,
bus_space_handle_t, bus_size_t));
static int neptune_bus_space_subregion __P((bus_space_tag_t, bus_space_handle_t,
bus_size_t, bus_size_t,
bus_space_handle_t*));
static struct x68k_bus_space neptune_bus = {
#if 0
X68K_NEPUTUNE_BUS,
#endif
neptune_bus_space_map, neptune_bus_space_unmap,
neptune_bus_space_subregion,
x68k_bus_space_alloc, x68k_bus_space_free,
};
static int neptune_match __P((struct device *, struct cfdata *, void *));
static void neptune_attach __P((struct device *, struct device *, void *));
static int neptune_search __P((struct device *, struct cfdata *cf, void *));
static int neptune_print __P((void *, const char *));
struct cfattach neptune_ca = {
sizeof(struct neptune_softc), neptune_match, neptune_attach
};
static int
neptune_match(parent, cf, aux)
struct device *parent;
struct cfdata *cf;
void *aux;
{
struct intio_attach_args *ia = aux;
if (strcmp(ia->ia_name, "neptune") != 0)
return 0;
ia->ia_size = 0x400;
if (intio_map_allocate_region (parent, ia, INTIO_MAP_TESTONLY))
return 0;
/* Neptune is a virtual device. Always there. */
return (1);
}
static void
neptune_attach(parent, self, aux)
struct device *parent, *self;
void *aux;
{
struct neptune_softc *sc = (struct neptune_softc *)self;
struct intio_attach_args *ia = aux;
struct neptune_attach_args na;
int r;
struct cfdata *cf;
ia->ia_size = 0x400;
r = intio_map_allocate_region (parent, ia, INTIO_MAP_ALLOCATE);
#ifdef DIAGNOSTIC
if (r)
panic ("IO map for Neptune corruption??");
#endif
sc->sc_bst = malloc(sizeof(struct x68k_bus_space), M_DEVBUF, M_NOWAIT);
if (sc->sc_bst == NULL)
panic("neptune_attach: can't allocate bus_space structure");
*sc->sc_bst = neptune_bus;
sc->sc_bst->x68k_bus_device = self;
sc->sc_addr = (vaddr_t) (ia->ia_addr - PHYS_INTIODEV + intiobase);
na.na_bst = sc->sc_bst;
na.na_intr = ia->ia_intr;
cf = config_search (neptune_search, self, &na);
if (cf) {
printf (": Neptune-X ISA bridge\n");
config_attach(self, cf, &na, neptune_print);
} else {
printf (": no device found.\n");
intio_map_free_region(parent, ia);
}
}
static int
neptune_search(parent, cf, aux)
struct device *parent;
struct cfdata *cf;
void *aux;
{
struct neptune_attach_args *na = aux;
na->na_addr = cf->neptune_cf_addr;
return (*cf->cf_attach->ca_match)(parent, cf, na);
}
static int
neptune_print(aux, name)
void *aux;
const char *name;
{
struct neptune_attach_args *na = aux;
/* if (na->na_addr > 0) */
printf (" addr 0x%06x", na->na_addr);
return (QUIET);
}
/*
* neptune bus space stuff.
*/
static int
neptune_bus_space_map(t, bpa, size, flags, bshp)
bus_space_tag_t t;
bus_addr_t bpa;
bus_size_t size;
int flags;
bus_space_handle_t *bshp;
{
vaddr_t start = ((struct neptune_softc*) ((struct x68k_bus_space*) t)
->x68k_bus_device)->sc_addr;
/*
* Neptune bus is mapped permanently.
*/
*bshp = (bus_space_handle_t) ((u_int)start + ((u_int)bpa - 0x200) * 2);
if (badaddr((caddr_t)*bshp)) {
return 1;
}
*bshp |= 0x80000000; /* higher byte (= even address) only */
return (0);
}
static void
neptune_bus_space_unmap(t, bsh, size)
bus_space_tag_t t;
bus_space_handle_t bsh;
bus_size_t size;
{
return;
}
static int
neptune_bus_space_subregion(t, bsh, offset, size, nbshp)
bus_space_tag_t t;
bus_space_handle_t bsh;
bus_size_t offset, size;
bus_space_handle_t *nbshp;
{
*nbshp = bsh + offset*2;
return (0);
}