1 /* $NetBSD: uba_bi.c,v 1.16 2024/02/04 18:52:35 andvar Exp $ */
2 /*
3 * Copyright (c) 1998 Ludd, University of Lule}, Sweden.
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 * 3. All advertising materials mentioning features or use of this software
15 * must display the following acknowledgement:
16 * This product includes software developed at Ludd, University of
17 * Lule}, Sweden and its contributors.
18 * 4. The name of the author may not be used to endorse or promote products
19 * derived from this software without specific prior written permission
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
22 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
23 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
24 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
25 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
26 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
27 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
28 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
29 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
30 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 */
32
33 /*
34 * DWBUA BI-Unibus adapter
35 */
36
37 #include <sys/cdefs.h>
38 __KERNEL_RCSID(0, "$NetBSD: uba_bi.c,v 1.16 2024/02/04 18:52:35 andvar Exp $");
39
40 #include <sys/param.h>
41 #include <sys/kernel.h>
42 #include <sys/buf.h>
43 #include <sys/device.h>
44 #include <sys/proc.h>
45 #include <sys/malloc.h>
46 #include <sys/systm.h>
47
48 #include <machine/sid.h>
49 #include <machine/pte.h>
50 #include <machine/pcb.h>
51 #include <machine/trap.h>
52 #include <machine/scb.h>
53
54 #include <vax/bi/bireg.h>
55 #include <vax/bi/bivar.h>
56
57 #include <vax/uba/ubareg.h>
58 #include <vax/uba/ubavar.h>
59
60 #include "locators.h"
61
62 #define BUA(uba) ((struct dwbua_regs *)(uba))
63
64 static int uba_bi_match(device_t, cfdata_t, void *);
65 static void uba_bi_attach(device_t, device_t, void *);
66 static void bua_init(struct uba_softc *);
67 static void bua_purge(struct uba_softc *, int);
68
69 /* bua_csr */
70 #define BUACSR_ERR 0x80000000 /* composite error */
71 #define BUACSR_BIF 0x10000000 /* BI failure */
72 #define BUACSR_SSYNTO 0x08000000 /* slave sync timeout */
73 #define BUACSR_UIE 0x04000000 /* unibus interlock error */
74 #define BUACSR_IVMR 0x02000000 /* invalid map register */
75 #define BUACSR_BADBDP 0x01000000 /* bad BDP select */
76 #define BUACSR_BUAEIE 0x00100000 /* bua error interrupt enable (?) */
77 #define BUACSR_UPI 0x00020000 /* unibus power init */
78 #define BUACSR_UREGDUMP 0x00010000 /* microdiag register dump */
79 #define BUACSR_IERRNO 0x000000ff /* mask for internal error number */
80
81 /* bua_offset */
82 #define BUAOFFSET_MASK 0x00003e00 /* hence max offset = 15872 */
83
84 /* bua_dpr */
85 #define BUADPR_DPSEL 0x00e00000 /* data path select (?) */
86 #define BUADPR_PURGE 0x00000001 /* purge bdp */
87
88 /* bua_map -- in particular, those bits that are not in DW780s & DW750s */
89 #define BUAMR_IOADR 0x40000000 /* I/O address space */
90 #define BUAMR_LAE 0x04000000 /* longword access enable */
91
92 static int allocvec;
93
94 CFATTACH_DECL_NEW(uba_bi, sizeof(struct uba_softc),
95 uba_bi_match, uba_bi_attach, NULL, NULL);
96
97 struct dwbua_regs {
98 struct biiregs bn_biic; /* interface */
99 int pad1[396];
100 int bn_csr;
101 int bn_vor; /* Vector offset from SCB */
102 int bn_fubar; /* Failed Unibus address register */
103 int bn_bifar; /* BI failed address register */
104 int bn_mdiag[5]; /* microdiag regs for BDP */
105 int pad2[3];
106 int bn_dpcsr[6]; /* Data path control and status register */
107 int pad3[38];
108 struct pte bn_map[UBAPAGES]; /* Unibus map registers */
109 int pad4[UBAIOPAGES];
110 };
111
112 /*
113 * Poke at a supposed DWBUA to see if it is there.
114 */
115 static int
uba_bi_match(device_t parent,cfdata_t cf,void * aux)116 uba_bi_match(device_t parent, cfdata_t cf, void *aux)
117 {
118 struct bi_attach_args *ba = aux;
119
120 if ((ba->ba_node->biic.bi_dtype != BIDT_DWBUA) &&
121 (ba->ba_node->biic.bi_dtype != BIDT_KLESI))
122 return 0;
123
124 if (cf->cf_loc[BICF_NODE] != BICF_NODE_DEFAULT &&
125 cf->cf_loc[BICF_NODE] != ba->ba_nodenr)
126 return 0;
127
128 return 1;
129 }
130
131 void
uba_bi_attach(device_t parent,device_t self,void * aux)132 uba_bi_attach(device_t parent, device_t self, void *aux)
133 {
134 struct uba_softc *sc = device_private(self);
135 struct bi_attach_args *ba = aux;
136 volatile int timo;
137
138 if (ba->ba_node->biic.bi_dtype == BIDT_DWBUA)
139 printf(": DWBUA\n");
140 else
141 printf(": KLESI-B\n");
142
143 /*
144 * Fill in bus specific data.
145 */
146 sc->uh_dev = self;
147 sc->uh_uba = (void *)ba->ba_node;
148 sc->uh_nbdp = NBDPBUA;
149 /* sc->uh_nr is 0; uninteresting here */
150 /* sc->uh_afterscan; not used */
151 /* sc->uh_errchk; not used */
152 /* sc->uh_beforescan */
153 sc->uh_ubapurge = bua_purge;
154 sc->uh_ubainit = bua_init;
155 /* sc->uh_type not used */
156 sc->uh_memsize = UBAPAGES;
157 sc->uh_mr = BUA(sc->uh_uba)->bn_map;
158
159 #ifdef notdef
160 /* Can we get separate interrupts? */
161 scb->scb_nexvec[1][ba->ba_nodenr] = &sc->sc_ivec;
162 #endif
163 BUA(sc->uh_uba)->bn_biic.bi_csr |= BICSR_ARB_NONE;
164 BUA(sc->uh_uba)->bn_biic.bi_csr |= BICSR_STS | BICSR_INIT;
165 DELAY(1000);
166 timo = 1000;
167 while (BUA(sc->uh_uba)->bn_biic.bi_csr & BICSR_BROKE)
168 if (timo == 0) {
169 aprint_error_dev(self, "BROKE bit set\n");
170 return;
171 }
172
173 BUA(sc->uh_uba)->bn_biic.bi_intrdes = ba->ba_intcpu;
174 BUA(sc->uh_uba)->bn_biic.bi_csr =
175 (BUA(sc->uh_uba)->bn_biic.bi_csr&~BICSR_ARB_MASK) | BICSR_ARB_HIGH;
176 BUA(sc->uh_uba)->bn_vor = VAX_NBPG + (VAX_NBPG * allocvec++);
177
178 uba_attach(sc, BUA(sc->uh_uba)->bn_biic.bi_sadr + UBAPAGES * VAX_NBPG);
179 }
180
181
182 void
bua_init(struct uba_softc * sc)183 bua_init(struct uba_softc *sc)
184 {
185 BUA(sc->uh_uba)->bn_csr |= BUACSR_UPI;
186 DELAY(500000);
187 };
188
189 void
bua_purge(struct uba_softc * sc,int bdp)190 bua_purge(struct uba_softc *sc, int bdp)
191 {
192 BUA(sc->uh_uba)->bn_dpcsr[bdp] |= BUADPR_PURGE;
193 }
194