/*	$NetBSD: platform_160x.c,v 1.9 2014/03/26 17:44:36 christos Exp $	*/

/*-
 * Copyright (c) 2002 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Steve C. Woodford.
 *
 * 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.
 *
 * 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.
 */

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: platform_160x.c,v 1.9 2014/03/26 17:44:36 christos Exp $");

#include <sys/param.h>
#include <sys/device.h>
#include <sys/kernel.h>
#include <sys/systm.h>

#include <machine/cpu.h>
#include <machine/bootinfo.h>
#include <machine/pio.h>
#include <machine/platform.h>
#include <arch/powerpc/pic/picvar.h>

static int	p160x_match(struct platform *);
static void	p160x_pci_intr_fixup(int, int, int *);
static void	p160x_cpu_setup(device_t);
static void	p160x_reset(void);
static void	p160x_pic_setup(void);

struct platform	platform_160x = {
	NULL,
	p160x_pic_setup,
	p160x_match,
	p160x_pci_intr_fixup,
	p160x_cpu_setup,
	p160x_reset
};

struct ppcbug_brdid {
	char	version[4];
	char	serial[12];
	char	id[16];
	char	pwa[16];
	char	reserved_0[4];
	char	ethernet_adr[6];
	char	reserved_1[2];
	char	lscsiid[2];
	char	speed_mpu[3];
	char	speed_bus[3];
	char	reserved[187];
	char	cksum[1];
};
#define	NVRAM_BRDID_OFF		0x1ef8

static void	p160x_get_brdid(struct ppcbug_brdid *);

static char	p160x_model[64];

static u_int32_t p160x_dram_size[] = {
	0x08000000, 0x02000000, 0x00800000, 0x00000000,
	0x10000000, 0x04000000, 0x01000000, 0x00000000
};

extern struct pic_ops *isa_pic;

static int
p160x_match(struct platform *p)
{
	struct ppcbug_brdid bid;
	char speed[4], *cp;
	u_int8_t dsr;

	if (MVMEPPC_FAMILY(bootinfo.bi_modelnumber) != MVMEPPC_FAMILY_160x)
		return(0);

	p160x_get_brdid(&bid);

	for (cp = &bid.id[sizeof(bid.id) - 1]; *cp == ' '; cp--)
		*cp = '\0';
	for (cp = &bid.serial[sizeof(bid.serial) - 1]; *cp == ' '; cp--)
		*cp = '\0';
	for (cp = &bid.pwa[sizeof(bid.pwa) - 1]; *cp == ' '; cp--)
		*cp = '\0';

	snprintf(p160x_model, sizeof(p160x_model),
	    "%s, Serial: %s, PWA: %s", bid.id, bid.serial, bid.pwa);
	p->model = p160x_model;

	speed[3] = '\0';
	strncpy(speed, bid.speed_mpu, sizeof(bid.speed_mpu));
	bootinfo.bi_mpuspeed = strtoul(speed, NULL, 10) * 1000000;
	strncpy(speed, bid.speed_bus, sizeof(bid.speed_bus));
	bootinfo.bi_busspeed = strtoul(speed, NULL, 10) * 1000000;
	bootinfo.bi_clocktps = bootinfo.bi_busspeed / 4;

	/* Fetch the DRAM size register */
	dsr = inb(0x80000804);
	bootinfo.bi_memsize = p160x_dram_size[dsr & 0x7];
	bootinfo.bi_memsize += p160x_dram_size[(dsr >> 4) & 0x7];

	return(1);
}

static void
p160x_pci_intr_fixup(int bus, int dev, int *line)
{

	aprint_verbose("p160x_pci_intr_fixup: bus=%d, dev=%d, line=%d\n",
	    bus, dev, *line);
}

static void
p160x_cpu_setup(device_t dev)
{
}

static void
p160x_pic_setup(void)
{
	pic_init();
	/* I really wonder if this shouldn't be prepivr instead */
	isa_pic = setup_i8259();
	oea_install_extint(pic_ext_intr);
}


static void
p160x_reset(void)
{
	/*
	 * The mvme160x programmer's manual makes reference to an
	 * "IBC Port 92" register which can be used to reset the board.
	 * Unfortunately, I can't find any documentation for this
	 * register.
	 * Fortunately, it appears that simply setting bit-0 does
	 * the trick...
	 */
	outb(0x80000092, inb(0x80000092) | 1);
}

static void
p160x_get_brdid(struct ppcbug_brdid *bid)
{
	u_int8_t *pbid = (u_int8_t *)bid;
	int off;
	int i;

	for (i = 0, off = NVRAM_BRDID_OFF; i < sizeof(*bid); i++, off++) {
		outb(0x80000074, off & 0xff);
		outb(0x80000075, (off >> 8) & 0xff);
		pbid[i] = inb(0x80000077);
	}
}