/* $NetBSD: dec_3max.c,v 1.45 2007/12/03 15:34:09 ad Exp $ */ /* * Copyright (c) 1998 Jonathan Stone. 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 Jonathan Stone for * the NetBSD Project. * 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 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 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. */ /* * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * This code is derived from software contributed to Berkeley by * the Systems Programming Group of the University of Utah Computer * Science Department, The Mach Operating System project at * Carnegie-Mellon University and Ralph Campbell. * * 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. * * @(#)machdep.c 8.3 (Berkeley) 1/12/94 */ /* * Copyright (c) 1988 University of Utah. * * This code is derived from software contributed to Berkeley by * the Systems Programming Group of the University of Utah Computer * Science Department, The Mach Operating System project at * Carnegie-Mellon University and Ralph Campbell. * * 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. * * @(#)machdep.c 8.3 (Berkeley) 1/12/94 */ #include <sys/cdefs.h> /* RCS ID & Copyright macro defns */ __KERNEL_RCSID(0, "$NetBSD: dec_3max.c,v 1.45 2007/12/03 15:34:09 ad Exp $"); #include <sys/param.h> #include <sys/systm.h> #include <sys/device.h> #include <machine/cpu.h> #include <machine/bus.h> #include <machine/intr.h> #include <machine/locore.h> #include <machine/sysconf.h> #include <mips/mips/mips_mcclock.h> /* mcclock CPUspeed estimation */ #include <dev/tc/tcvar.h> /* tc_addr_t */ #include <pmax/pmax/machdep.h> #include <pmax/pmax/kn02.h> #include <pmax/pmax/memc.h> #include <dev/dec/dzreg.h> #include <dev/dec/dzvar.h> #include <dev/dec/dzkbdvar.h> #include <pmax/pmax/cons.h> #include "wsdisplay.h" void dec_3max_init __P((void)); /* XXX */ static void dec_3max_bus_reset __P((void)); static void dec_3max_cons_init __P((void)); static void dec_3max_errintr __P((void)); static void dec_3max_intr __P((unsigned, unsigned, unsigned, unsigned)); static void dec_3max_intr_establish __P((struct device *, void *, int, int (*)(void *), void *)); #define kn02_wbflush() mips1_wbflush() /* XXX to be corrected XXX */ static const int dec_3max_ipl2spl_table[] = { [IPL_NONE] = 0, [IPL_SOFTCLOCK] = _SPL_SOFTCLOCK, [IPL_SOFTNET] = _SPL_SOFTNET, [IPL_VM] = MIPS_SPL0, [IPL_SCHED] = MIPS_SPL_0_1, [IPL_HIGH] = MIPS_SPL_0_1, }; void dec_3max_init() { u_int32_t csr; platform.iobus = "tcbus"; platform.bus_reset = dec_3max_bus_reset; platform.cons_init = dec_3max_cons_init; platform.iointr = dec_3max_intr; platform.intr_establish = dec_3max_intr_establish; platform.memsize = memsize_bitmap; /* no high resolution timer available */ /* clear any memory errors */ *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_ERRADR) = 0; kn02_wbflush(); ipl2spl_table = dec_3max_ipl2spl_table; /* calibrate cpu_mhz value */ mc_cpuspeed(MIPS_PHYS_TO_KSEG1(KN02_SYS_CLOCK), MIPS_INT_MASK_1); /* * Enable ECC memory correction, turn off LEDs, and * disable all TURBOchannel interrupts. */ csr = *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CSR); csr &= ~(KN02_CSR_WRESERVED|KN02_CSR_IOINTEN|KN02_CSR_CORRECT|0xff); *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CSR) = csr; kn02_wbflush(); strcpy(cpu_model, "DECstation 5000/200 (3MAX)"); } /* * Initialize the memory system and I/O buses. */ static void dec_3max_bus_reset() { /* * Reset interrupts, clear any errors from newconf probes */ *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_ERRADR) = 0; kn02_wbflush(); *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CHKSYN) = 0; kn02_wbflush(); } static void dec_3max_cons_init() { int kbd, crt, screen; extern int tcfb_cnattach __P((int)); /* XXX */ kbd = crt = screen = 0; prom_findcons(&kbd, &crt, &screen); if (screen > 0) { #if NWSDISPLAY > 0 if (kbd == 7 && tcfb_cnattach(crt) > 0) { dz_ibus_cnsetup(KN02_SYS_DZ); dzkbd_cnattach(NULL); return; } #endif printf("No framebuffer device configured for slot %d: ", crt); printf("using serial console\n"); } /* * Delay to allow PROM putchars to complete. * FIFO depth * character time, * character time = (1000000 / (defaultrate / 10)) */ DELAY(160000000 / 9600); /* XXX */ dz_ibus_cnsetup(KN02_SYS_DZ); dz_ibus_cnattach(kbd); } static const struct { int cookie; int intrbit; } kn02intrs[] = { { SYS_DEV_OPT0, KN02_IP_SLOT0 }, { SYS_DEV_OPT1, KN02_IP_SLOT1 }, { SYS_DEV_OPT2, KN02_IP_SLOT2 }, { SYS_DEV_SCSI, KN02_IP_SCSI }, { SYS_DEV_LANCE, KN02_IP_LANCE }, { SYS_DEV_SCC0, KN02_IP_DZ }, }; static void dec_3max_intr_establish(dev, cookie, level, handler, arg) struct device *dev; void *cookie; int level; int (*handler) __P((void *)); void *arg; { int i; u_int32_t csr; for (i = 0; i < sizeof(kn02intrs)/sizeof(kn02intrs[0]); i++) { if (kn02intrs[i].cookie == (int)cookie) goto found; } panic("intr_establish: invalid cookie %d", (int)cookie); found: intrtab[(int)cookie].ih_func = handler; intrtab[(int)cookie].ih_arg = arg; csr = *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CSR) & 0x00ffff00; csr |= (kn02intrs[i].intrbit << 16); *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CSR) = csr; kn02_wbflush(); } #define CALLINTR(vvv) \ do { \ intrtab[vvv].ih_count.ev_count++; \ (*intrtab[vvv].ih_func)(intrtab[vvv].ih_arg); \ } while (0) static void dec_3max_intr(status, cause, pc, ipending) unsigned status; unsigned cause; unsigned pc; unsigned ipending; { static int warned = 0; u_int32_t csr; /* handle clock interrupts ASAP */ if (ipending & MIPS_INT_MASK_1) { struct clockframe cf; csr = *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CSR); if ((csr & KN02_CSR_PSWARN) && !warned) { warned = 1; printf("WARNING: power supply is overheating!\n"); } else if (warned && !(csr & KN02_CSR_PSWARN)) { warned = 0; printf("WARNING: power supply is OK again\n"); } __asm volatile("lbu $0,48(%0)" :: "r"(MIPS_PHYS_TO_KSEG1(KN02_SYS_CLOCK))); cf.pc = pc; cf.sr = status; hardclock(&cf); pmax_clock_evcnt.ev_count++; /* keep clock interrupts enabled when we return */ cause &= ~MIPS_INT_MASK_1; } /* If clock interrupts were enabled, re-enable them ASAP. */ _splset(MIPS_SR_INT_IE | (status & MIPS_INT_MASK_1)); if (ipending & MIPS_INT_MASK_0) { csr = *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CSR); csr &= (csr >> KN02_CSR_IOINTEN_SHIFT); if (csr & (KN02_IP_DZ | KN02_IP_LANCE | KN02_IP_SCSI)) { if (csr & KN02_IP_DZ) CALLINTR(SYS_DEV_SCC0); if (csr & KN02_IP_LANCE) CALLINTR(SYS_DEV_LANCE); if (csr & KN02_IP_SCSI) CALLINTR(SYS_DEV_SCSI); } if (csr & (KN02_IP_SLOT2 | KN02_IP_SLOT1 | KN02_IP_SLOT0)) { if (csr & KN02_IP_SLOT2) CALLINTR(SYS_DEV_OPT2); if (csr & KN02_IP_SLOT1) CALLINTR(SYS_DEV_OPT1); if (csr & KN02_IP_SLOT0) CALLINTR(SYS_DEV_OPT0); } } if (ipending & MIPS_INT_MASK_3) { dec_3max_errintr(); pmax_memerr_evcnt.ev_count++; } _splset(MIPS_SR_INT_IE | (status & ~cause & MIPS_HARD_INT_MASK)); } /* * Handle Memory error. 3max, 3maxplus has ECC. * Correct single-bit error, panic on double-bit error. * XXX on double-error on clean user page, mark bad and reload frame? */ static void dec_3max_errintr() { u_int32_t erradr, errsyn, csr; /* Fetch error address, ECC chk/syn bits, clear interrupt */ erradr = *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_ERRADR); errsyn = MIPS_PHYS_TO_KSEG1(KN02_SYS_CHKSYN); *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_ERRADR) = 0; kn02_wbflush(); csr = *(u_int32_t *)MIPS_PHYS_TO_KSEG1(KN02_SYS_CSR); /* Send to kn02/kn03 memory subsystem handler */ dec_mtasic_err(erradr, errsyn, csr & KN02_CSR_BNK32M); }