uba_sbi.c revision 1.12.16.2
1 /* $NetBSD: uba_sbi.c,v 1.12.16.2 2002/08/31 14:52:48 gehenna Exp $ */ 2 /* 3 * Copyright (c) 1996 Jonathan Stone. 4 * Copyright (c) 1994, 1996 Ludd, University of Lule}, Sweden. 5 * Copyright (c) 1982, 1986 The Regents of the University of California. 6 * All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. All advertising materials mentioning features or use of this software 17 * must display the following acknowledgement: 18 * This product includes software developed by the University of 19 * California, Berkeley and its contributors. 20 * 4. Neither the name of the University nor the names of its contributors 21 * may be used to endorse or promote products derived from this software 22 * without specific prior written permission. 23 * 24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 34 * SUCH DAMAGE. 35 * 36 * @(#)uba.c 7.10 (Berkeley) 12/16/90 37 * @(#)autoconf.c 7.20 (Berkeley) 5/9/91 38 */ 39 40 #include <sys/param.h> 41 #include <sys/device.h> 42 #include <sys/systm.h> 43 #include <sys/kernel.h> 44 45 #define _VAX_BUS_DMA_PRIVATE 46 #include <machine/bus.h> 47 #include <machine/mtpr.h> 48 #include <machine/nexus.h> 49 #include <machine/cpu.h> 50 #include <machine/sgmap.h> 51 #include <machine/scb.h> 52 53 #include <dev/qbus/ubavar.h> 54 55 #include <vax/uba/uba_common.h> 56 57 #include "locators.h" 58 #include "ioconf.h" 59 60 /* Some SBI-specific defines */ 61 #define UBASIZE (UBAPAGES * VAX_NBPG) 62 #define UMEMA8600(i) (0x20100000+(i)*0x40000) 63 #define UMEMB8600(i) (0x22100000+(i)*0x40000) 64 65 /* 66 * Some status registers. 67 */ 68 #define UBACNFGR_UBIC 0x00010000 /* unibus init complete */ 69 #define UBACNFGR_BITS \ 70 "\40\40PARFLT\37WSQFLT\36URDFLT\35ISQFLT\34MXTFLT\33XMTFLT\30ADPDN\27ADPUP\23UBINIT\22UBPDN\21UBIC" 71 72 #define UBACR_IFS 0x00000040 /* interrupt field switch */ 73 #define UBACR_BRIE 0x00000020 /* BR interrupt enable */ 74 #define UBACR_USEFIE 0x00000010 /* UNIBUS to SBI error field IE */ 75 #define UBACR_SUEFIE 0x00000008 /* SBI to UNIBUS error field IE */ 76 #define UBACR_ADINIT 0x00000001 /* adapter init */ 77 78 #define UBADPR_BNE 0x80000000 /* buffer not empty - purge */ 79 80 #define UBABRRVR_DIV 0x0000ffff /* device interrupt vector field */ 81 82 #define UBASR_BITS \ 83 "\20\13RDTO\12RDS\11CRD\10CXTER\7CXTMO\6DPPE\5IVMR\4MRPF\3LEB\2UBSTO\1UBSSYNTO" 84 85 char ubasr_bits[] = UBASR_BITS; 86 87 /* 88 * The DW780 are directly connected to the SBI on 11/780 and 8600. 89 */ 90 static int dw780_match(struct device *, struct cfdata *, void *); 91 static void dw780_attach(struct device *, struct device *, void *); 92 static void dw780_init(struct uba_softc*); 93 static void dw780_beforescan(struct uba_softc *); 94 static void dw780_afterscan(struct uba_softc *); 95 static int dw780_errchk(struct uba_softc *); 96 static void uba_dw780int(void *); 97 static void ubaerror(struct uba_softc *, int *, int *); 98 #ifdef notyet 99 static void dw780_purge(struct uba_softc *, int); 100 #endif 101 102 struct cfattach uba_sbi_ca = { 103 sizeof(struct uba_vsoftc), dw780_match, dw780_attach 104 }; 105 106 static struct evcnt strayint = EVCNT_INITIALIZER(EVCNT_TYPE_INTR, NULL, "uba","stray intr"); 107 static int strayinit = 0; 108 109 extern struct vax_bus_space vax_mem_bus_space; 110 111 int 112 dw780_match(struct device *parent, struct cfdata *cf, void *aux) 113 { 114 struct sbi_attach_args *sa = (struct sbi_attach_args *)aux; 115 116 if (cf->cf_loc[SBICF_TR] != sa->sa_nexnum && 117 cf->cf_loc[SBICF_TR] != SBICF_TR_DEFAULT) 118 return 0; 119 /* 120 * The uba type is actually only telling where the uba 121 * space is in nexus space. 122 */ 123 if ((sa->sa_type & ~3) != NEX_UBA0) 124 return 0; 125 126 return 1; 127 } 128 129 void 130 dw780_attach(struct device *parent, struct device *self, void *aux) 131 { 132 struct uba_vsoftc *sc = (void *)self; 133 struct sbi_attach_args *sa = aux; 134 int ubaddr = sa->sa_type & 3; 135 int i; 136 137 printf(": DW780\n"); 138 /* 139 * Fill in bus specific data. 140 */ 141 sc->uv_sc.uh_ubainit = dw780_init; 142 #ifdef notyet 143 sc->uv_sc.uh_ubapurge = dw780_purge; 144 #endif 145 sc->uv_sc.uh_beforescan = dw780_beforescan; 146 sc->uv_sc.uh_afterscan = dw780_afterscan; 147 sc->uv_sc.uh_errchk = dw780_errchk; 148 sc->uv_sc.uh_iot = &vax_mem_bus_space; 149 sc->uv_sc.uh_dmat = &sc->uv_dmat; 150 sc->uv_sc.uh_nr = ubaddr; 151 sc->uv_uba = (void *)sa->sa_ioh; 152 sc->uh_ibase = VAX_NBPG + ubaddr * VAX_NBPG; 153 sc->uv_sc.uh_type = UBA_UBA; 154 155 if (strayinit++ == 0) evcnt_attach_static(&strayint); /* Setup stray 156 interrupt 157 counter. */ 158 159 /* 160 * Set up dispatch vectors for DW780. 161 */ 162 for (i = 0x14; i < 0x18; i++) 163 scb_vecalloc(vecnum(0, i, sa->sa_nexnum), uba_dw780int, 164 sc, SCB_ISTACK, &sc->uv_sc.uh_intrcnt); 165 evcnt_attach_dynamic(&sc->uv_sc.uh_intrcnt, EVCNT_TYPE_INTR, NULL, 166 sc->uv_sc.uh_dev.dv_xname, "intr"); 167 168 /* 169 * Fill in variables used by the sgmap system. 170 */ 171 sc->uv_size = UBASIZE; /* Size in bytes of Unibus space */ 172 173 uba_dma_init(sc); 174 uba_attach(&sc->uv_sc, (sa->sa_sbinum ? UMEMB8600(ubaddr) : 175 UMEMA8600(ubaddr)) + (UBAPAGES * VAX_NBPG)); 176 } 177 178 void 179 dw780_beforescan(struct uba_softc *sc) 180 { 181 struct uba_vsoftc *vc = (void *)sc; 182 volatile int *hej = &vc->uv_uba->uba_sr; 183 184 *hej = *hej; 185 vc->uv_uba->uba_cr = UBACR_IFS|UBACR_BRIE; 186 } 187 188 void 189 dw780_afterscan(struct uba_softc *sc) 190 { 191 struct uba_vsoftc *vc = (void *)sc; 192 193 vc->uv_uba->uba_cr = UBACR_IFS | UBACR_BRIE | 194 UBACR_USEFIE | UBACR_SUEFIE | 195 (vc->uv_uba->uba_cr & 0x7c000000); 196 } 197 198 199 int 200 dw780_errchk(struct uba_softc *sc) 201 { 202 struct uba_vsoftc *vc = (void *)sc; 203 volatile int *hej = &vc->uv_uba->uba_sr; 204 205 if (*hej) { 206 *hej = *hej; 207 return 1; 208 } 209 return 0; 210 } 211 212 void 213 uba_dw780int(void *arg) 214 { 215 extern void scb_stray(void *); 216 struct uba_vsoftc *vc = arg; 217 struct uba_regs *ur = vc->uv_uba; 218 struct ivec_dsp *ivec; 219 struct evcnt *uvec; 220 int br, vec; 221 222 br = mfpr(PR_IPL); 223 uvec = &vc->uv_sc.uh_intrcnt; 224 vec = ur->uba_brrvr[br - 0x14]; 225 if (vec <= 0) { 226 ubaerror(&vc->uv_sc, &br, &vec); 227 if (vec == 0) 228 return; 229 } 230 231 uvec->ev_count--; /* This interrupt should not be counted against 232 the uba. */ 233 ivec = &scb_vec[(vc->uh_ibase + vec)/4]; 234 if (cold && *ivec->hoppaddr == scb_stray) { 235 scb_fake(vec + vc->uh_ibase, br); 236 } else { 237 if (*ivec->hoppaddr == scb_stray) 238 strayint.ev_count++; /* Count against stray int */ 239 else 240 ivec->ev->ev_count++; /* Count against device */ 241 (*ivec->hoppaddr)(ivec->pushlarg); 242 } 243 } 244 245 void 246 dw780_init(struct uba_softc *sc) 247 { 248 struct uba_vsoftc *vc = (void *)sc; 249 250 vc->uv_uba->uba_cr = UBACR_ADINIT; 251 vc->uv_uba->uba_cr = UBACR_IFS|UBACR_BRIE|UBACR_USEFIE|UBACR_SUEFIE; 252 while ((vc->uv_uba->uba_cnfgr & UBACNFGR_UBIC) == 0) 253 ; 254 } 255 256 #ifdef notyet 257 void 258 dw780_purge(sc, bdp) 259 struct uba_softc *sc; 260 int bdp; 261 { 262 struct uba_vsoftc *vc = (void *)sc; 263 264 vc->uv_uba->uba_dpr[bdp] |= UBADPR_BNE; 265 } 266 #endif 267 268 int ubawedgecnt = 10; 269 int ubacrazy = 500; 270 int zvcnt_max = 5000; /* in 8 sec */ 271 int ubaerrcnt; 272 /* 273 * This routine is called by the locore code to process a UBA 274 * error on an 11/780 or 8600. The arguments are passed 275 * on the stack, and value-result (through some trickery). 276 * In particular, the uvec argument is used for further 277 * uba processing so the result aspect of it is very important. 278 */ 279 /*ARGSUSED*/ 280 void 281 ubaerror(struct uba_softc *uh, int *ipl, int *uvec) 282 { 283 struct uba_vsoftc *vc = (void *)uh; 284 struct uba_regs *uba = vc->uv_uba; 285 int sr, s; 286 char sbuf[256], sbuf2[256]; 287 288 if (*uvec == 0) { 289 /* 290 * Declare dt as unsigned so that negative values 291 * are handled as >8 below, in case time was set back. 292 */ 293 u_long dt = time.tv_sec - vc->uh_zvtime; 294 295 vc->uh_zvtotal++; 296 if (dt > 8) { 297 vc->uh_zvtime = time.tv_sec; 298 vc->uh_zvcnt = 0; 299 } 300 if (++vc->uh_zvcnt > zvcnt_max) { 301 printf("%s: too many zero vectors (%d in <%d sec)\n", 302 vc->uv_sc.uh_dev.dv_xname, vc->uh_zvcnt, (int)dt + 1); 303 304 bitmask_snprintf(uba->uba_cnfgr&(~0xff), UBACNFGR_BITS, 305 sbuf, sizeof(sbuf)); 306 printf("\tIPL 0x%x\n\tcnfgr: %s Adapter Code: 0x%x\n", 307 *ipl, sbuf, uba->uba_cnfgr&0xff); 308 309 bitmask_snprintf(uba->uba_sr, ubasr_bits, sbuf, sizeof(sbuf)); 310 printf("\tsr: %s\n\tdcr: %x (MIC %sOK)\n", 311 sbuf, uba->uba_dcr, 312 (uba->uba_dcr&0x8000000)?"":"NOT "); 313 314 ubareset(&vc->uv_sc); 315 } 316 return; 317 } 318 if (uba->uba_cnfgr & NEX_CFGFLT) { 319 bitmask_snprintf(uba->uba_sr, ubasr_bits, sbuf, sizeof(sbuf)); 320 bitmask_snprintf(uba->uba_cnfgr, NEXFLT_BITS, sbuf2, sizeof(sbuf2)); 321 printf("%s: sbi fault sr=%s cnfgr=%s\n", 322 vc->uv_sc.uh_dev.dv_xname, sbuf, sbuf2); 323 ubareset(&vc->uv_sc); 324 *uvec = 0; 325 return; 326 } 327 sr = uba->uba_sr; 328 s = spluba(); 329 bitmask_snprintf(uba->uba_sr, ubasr_bits, sbuf, sizeof(sbuf)); 330 printf("%s: uba error sr=%s fmer=%x fubar=%o\n", vc->uv_sc.uh_dev.dv_xname, 331 sbuf, uba->uba_fmer, 4*uba->uba_fubar); 332 splx(s); 333 uba->uba_sr = sr; 334 *uvec &= UBABRRVR_DIV; 335 if (++ubaerrcnt % ubawedgecnt == 0) { 336 if (ubaerrcnt > ubacrazy) 337 panic("uba crazy"); 338 printf("ERROR LIMIT "); 339 ubareset(&vc->uv_sc); 340 *uvec = 0; 341 } 342 } 343
Indexes created Wed Oct 22 13:09:56 GMT 2025