1 /* $NetBSD: zbus.c,v 1.78 2023/05/03 13:49:30 phx Exp $ */ 2 3 /* 4 * Copyright (c) 1994 Christian E. Hopps 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. All advertising materials mentioning features or use of this software 16 * must display the following acknowledgement: 17 * This product includes software developed by Christian E. Hopps. 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 #include <sys/cdefs.h> 34 __KERNEL_RCSID(0, "$NetBSD: zbus.c,v 1.78 2023/05/03 13:49:30 phx Exp $"); 35 36 #include <sys/param.h> 37 #include <sys/device.h> 38 #include <sys/systm.h> 39 #include <sys/bus.h> 40 41 #include <machine/cpu.h> 42 #include <machine/pte.h> 43 #include <amiga/amiga/cfdev.h> 44 #include <amiga/amiga/device.h> 45 #include <amiga/dev/zbusvar.h> 46 #include <amiga/dev/z3rambdvar.h> 47 48 #include "z3rambd.h" 49 50 struct aconfdata { 51 const char *name; 52 int manid; 53 int prodid; 54 }; 55 56 struct preconfdata { 57 int manid; 58 int prodid; 59 void *vaddr; 60 }; 61 62 struct quirksdata { 63 int manid; 64 int prodid; 65 uint8_t quirks; 66 }; 67 68 vaddr_t ZTWOROMADDR; 69 vaddr_t ZTWOMEMADDR; 70 u_int NZTWOMEMPG; 71 vaddr_t ZBUSADDR; /* kva of Zorro bus I/O pages */ 72 u_int ZBUSAVAIL; /* bytes of Zorro bus I/O space left */ 73 74 /* 75 * explain the names.. 0123456789 => zothfisven 76 */ 77 static const struct aconfdata aconftab[] = { 78 /* Commodore Amiga */ 79 { "atzee", 513, 1 }, 80 { "atzsc", 514, 2 }, 81 { "atzsc", 514, 3 }, 82 { "bah", 514, 9 }, /* A2060 */ 83 { "ql", 514, 69 }, 84 { "ql", 514, 70 }, 85 { "atfsc", 514, 84 }, 86 { "le", 514, 112 }, 87 /* Ameristar */ 88 { "le", 1053, 1 }, 89 { "bah", 1053, 9 }, /* A2060 */ 90 { "es", 1053, 10 }, 91 /* University of Lowell */ 92 { "grful", 1030, 0 }, 93 /* DMI */ 94 { "grfrs", 2129, 1 }, /* Resolver graphics board */ 95 /* Macrosystems */ 96 { "grfrt", 18260, 6 }, 97 { "grfrh", 18260, 16}, /* Retina BLT Z3 */ 98 { "grfrh", 18260, 19}, /* Altais */ 99 /* Greater valley products */ 100 { "gvpbus", 2017, 2 }, 101 { "gvpbus", 2017, 11 }, 102 { "giv", 2017, 32 }, 103 { "gio", 2017, 255 }, 104 /* progressive perhiperals */ 105 { "zssc", 2026, 150 }, 106 { "ppia", 2026, 187 }, 107 { "ppta", 2026, 105 }, 108 { "ppha", 2026, 1 }, 109 { "mrsc", 2026, 0 }, 110 /* CSA */ 111 { "mgnsc", 1058, 17 }, 112 { "otgsc", 1058, 21 }, 113 /* Microbotics */ 114 { "vhzsc", 1010, 69 }, 115 /* Supra */ 116 { "wstsc", 1056, 12 }, 117 { "wstsc", 1056, 13 }, 118 /* IVS */ 119 { "itrmp", 2112, 48 }, 120 { "itrmp", 2112, 52 }, 121 { "ivasc", 2112, 242 }, 122 { "ivsc", 2112, 243 }, 123 /* Hydra */ 124 { "ed", 2121, 1 }, 125 /* ASDG */ 126 { "ed", 1023, 254 }, 127 /* Village Tronic Ariadne */ 128 { "le", 2167, 201}, 129 /* Village Tronic Ariadne II */ 130 { "ne", 2167, 202}, 131 /* bsc/Alf Data */ 132 { "Tandem", 2092, 6 }, /* Tandem AT disk controller */ 133 { "mfc", 2092, 16 }, 134 { "mfc", 2092, 17 }, 135 { "mfc", 2092, 18 }, 136 /* Cirrus CL GD 5426 -> Picasso, Piccolo, EGS Spectrum */ 137 { "grfcl", 2167, 11}, /* PicassoII mem */ 138 { "grfcl", 2167, 12}, /* PicassoII regs */ 139 { "grfcl", 2167, 21}, /* PicassoIV Z2 mem1 */ 140 { "grfcl", 2167, 22}, /* PicassoIV Z2 mem2 */ 141 { "grfcl", 2167, 23}, /* PicassoIV Z2 regs */ 142 { "grfcl", 2167, 24}, /* PicassoIV Z3 */ 143 { "grfcl", 2193, 2}, /* Spectrum mem */ 144 { "grfcl", 2193, 1}, /* Spectrum regs */ 145 { "grfcl", 2195, 5}, /* Piccolo mem */ 146 { "grfcl", 2195, 6}, /* Piccolo regs */ 147 { "grfcl", 2195, 10}, /* Piccolo SD64 mem */ 148 { "grfcl", 2195, 11}, /* Piccolo SD64 regs */ 149 /* MacroSystemsUS */ 150 { "wesc", 2203, 19}, /* Warp engine */ 151 /* phase 5 digital products */ 152 { "flmem", 8512, 10}, /* FastlaneZ3 memory */ 153 { "flsc", 8512, 11}, /* FastlaneZ3 */ 154 { "cbsc", 8512, 12}, /* Cyberstorm Mk I SCSI */ 155 { "bzivsc", 8512, 17}, /* Blizzard IV SCSI */ 156 { "bztzsc", 8512, 24}, /* Blizzard 2060 SCSI */ 157 { "cbiisc", 8512, 25}, /* Cyberstorm Mk II SCSI */ 158 { "grfcv", 8512, 34}, /* CyberVison 64 */ 159 { "grfcv3d", 8512, 67}, /* CyberVison 64/3D */ 160 { "cbiiisc", 8512, 100}, /* Cyberstorm Mk III SCSI */ 161 { "p5pb", 8512, 101}, /* CyberVisionPPC / BlizzardVisionPPC */ 162 { "bppcsc", 8512, 110}, /* Blizzard 603e+ SCSI */ 163 /* Hacker Inc. */ 164 { "mlhsc", 2011, 1 }, 165 /* Resource Management Force */ 166 { "qn", 2011, 2 }, /* QuickNet Ethernet */ 167 /* ??? */ 168 { "empsc", 2171, 21 }, /* Emplant SCSI */ 169 { "empsc", 2171, 32 }, /* Emplant SCSI */ 170 /* Tseng ET4000 boards */ 171 { "grfet", 2117, 3 }, /* Merlin mem */ 172 { "grfet", 2117, 4 }, /* Merlin regs */ 173 { "grfet", 2167, 1 }, /* Domino mem */ 174 { "grfet", 2167, 2 }, /* Domino regs */ 175 { "grfet", 2167, 3 }, /* Domino regs (proto 16M) */ 176 { "grfet", 2181, 0 }, /* oMniBus */ 177 /* Advanced Systems */ 178 { "nxsc", 2102, 1 }, /* Nexus SCSI board */ 179 /* Masoboshi */ 180 { "mcsc", 8535, 4 }, /* Masoboshi Mastercard 702 */ 181 /* Apollo */ 182 { "apssc", 8738, 35 }, /* Apollo '060 scsi */ 183 /* KATO development */ 184 { "aumld", 2145, 128 }, /* Melody MPEG layer 2 audio board */ 185 /* Individual Computers Jens Schoenfeld */ 186 { "buddha", 4626, 0 }, 187 { "xsurf", 4626, 23 }, /* X-Surf Ethernet */ 188 /* VMC Harald Frank */ 189 { "blst", 5001, 1}, /* ISDN Blaster */ 190 { "hyper4", 5001, 2}, /* Hypercom4-Zbus */ 191 { "hyper3Z", 5001, 3}, /* Hypercom3-Zbus */ 192 { "hyper4+", 5001, 6}, /* Hypercom4+ */ 193 { "hyper3+", 5001, 7}, /* Hypercom3+ */ 194 /* Matay Grzegorz Kraszewski */ 195 { "mppb", 44359, 1}, /* Prometheus PCI bridge */ 196 /* MNT */ 197 { "mntva", 28014, 1}, /* MNT VA2000 */ 198 { "zz9k", 28014, 3}, /* MNT ZZ9000 Z2 */ 199 { "zz9k", 28014, 4}, /* MNT ZZ9000 Z3 */ 200 { "zz9k", 28014, 5} /* MNT ZZ9000 Z3 256MB */ 201 }; 202 static int naconfent = sizeof(aconftab) / sizeof(struct aconfdata); 203 204 /* 205 * Anything listed in this table is subject to pre-configuration, 206 * if autoconf.c:config_console() calls amiga_config_found() on 207 * the Zorro III device. 208 */ 209 static struct preconfdata preconftab[] = { 210 {18260, 6, 0 }, /* Retina Z2 */ /* grf1 */ 211 {18260, 16, 0}, /* Retina BLT Z3 */ /* grf2 */ 212 {18260, 19, 0}, /* Altais */ 213 {2167, 11, 0}, /* PicassoII mem */ /* grf3 */ 214 {2167, 12, 0}, /* PicassoII regs */ 215 {2167, 21, 0}, /* PicassoIV Z2 mem1 */ 216 {2167, 22, 0}, /* PicassoIV Z2 mem2 */ 217 {2167, 23, 0}, /* PicassoIV Z2 regs */ 218 {2167, 24, 0}, /* PicassoIV Z3 */ 219 {2193, 2, 0}, /* Spectrum mem */ 220 {2193, 1, 0}, /* Spectrum regs */ 221 {2195, 5, 0}, /* Piccolo mem */ 222 {2195, 6, 0}, /* Piccolo regs */ 223 {2195, 10, 0}, /* Piccolo SD64 mem */ 224 {2195, 11, 0}, /* Piccolo SD64 regs */ 225 {1030, 0, 0}, /* Ulwl board */ /* grf4 */ 226 {8512, 34, 0}, /* Cybervison 64 */ /* grf5 */ 227 {2117, 3, 0}, /* Merlin mem */ /* grf6 */ 228 {2117, 4, 0}, /* Merlin regs */ 229 {2167, 1, 0}, /* Domino mem */ 230 {2167, 2, 0}, /* Domino regs */ 231 {2167, 3, 0}, /* Domino regs (proto 16M) */ 232 {2181, 0, 0}, /* oMniBus mem or regs */ 233 {8512, 67, 0}, /* Cybervison 64/3D */ /* grf7 */ 234 /* {28014, 1, 0}, // MNTMN VA2000 */ 235 {28014, 3, 0}, /* MNT ZZ9000 Z2 */ 236 {28014, 4, 0} /* MNT ZZ9000 Z3 */ 237 }; 238 static int npreconfent = sizeof(preconftab) / sizeof(struct preconfdata); 239 240 /* 241 * Quirks table. 242 */ 243 #define ZORRO_QUIRK_NO_ZBUSMAP 1 /* Don't map VA=PA in zbusattach. */ 244 static struct quirksdata quirkstab[] = { 245 {8512, 101, ZORRO_QUIRK_NO_ZBUSMAP} 246 }; 247 static int nquirksent = sizeof(quirkstab) / sizeof(struct quirksdata); 248 249 void zbusattach(device_t, device_t, void *); 250 int zbusprint(void *, const char *); 251 int zbusmatch(device_t, cfdata_t, void *); 252 static const char *aconflookup(int, int); 253 254 /* 255 * given a manufacturer id and product id, find quirks 256 * for this board. 257 */ 258 259 static uint8_t 260 quirkslookup(int mid, int pid) 261 { 262 const struct quirksdata *qdp, *eqdp; 263 264 eqdp = &quirkstab[nquirksent]; 265 for (qdp = quirkstab; qdp < eqdp; qdp++) 266 if (qdp->manid == mid && qdp->prodid == pid) 267 return(qdp->quirks); 268 return(0); 269 } 270 271 /* 272 * given a manufacturer id and product id, find the name 273 * that describes this board. 274 */ 275 static const char * 276 aconflookup(int mid, int pid) 277 { 278 const struct aconfdata *adp, *eadp; 279 280 eadp = &aconftab[naconfent]; 281 for (adp = aconftab; adp < eadp; adp++) 282 if (adp->manid == mid && adp->prodid == pid) 283 return(adp->name); 284 return("board"); 285 } 286 287 /* 288 * mainbus driver 289 */ 290 291 CFATTACH_DECL_NEW(zbus, 0, 292 zbusmatch, zbusattach, NULL, NULL); 293 294 static cfdata_t early_cfdata; 295 296 /*ARGSUSED*/ 297 int 298 zbusmatch(device_t parent, cfdata_t cf, void *aux) 299 { 300 301 if (matchname(aux, "zbus") == 0) 302 return(0); 303 if (amiga_realconfig == 0) 304 early_cfdata = cf; 305 return(1); 306 } 307 308 /* 309 * called to attach bus, we probe, i.e., scan configdev structs passed 310 * in, for each found name call config_found() which will do this again 311 * with that driver if matched else print a diag. 312 */ 313 void 314 zbusattach(device_t parent, device_t self, void *aux) 315 { 316 struct zbus_args za; 317 struct preconfdata *pcp, *epcp; 318 struct cfdev *cdp, *ecdp; 319 320 epcp = &preconftab[npreconfent]; 321 ecdp = &cfdev[ncfdev]; 322 if (amiga_realconfig) { 323 if (ZTWOMEMADDR) 324 printf(": mem 0x%08lx-0x%08lx", 325 ZTWOMEMADDR, 326 ZTWOMEMADDR + PAGE_SIZE * NZTWOMEMPG - 1); 327 if (ZBUSAVAIL) 328 printf (": i/o size 0x%08x", ZBUSAVAIL); 329 printf("\n"); 330 } 331 for (cdp = cfdev; cdp < ecdp; cdp++) { 332 for (pcp = preconftab; pcp < epcp; pcp++) { 333 if (pcp->manid == cdp->rom.manid && 334 pcp->prodid == cdp->rom.prodid) 335 break; 336 } 337 if (amiga_realconfig == 0 && pcp >= epcp) 338 continue; 339 340 #if NZ3RAMBD > 0 341 if (z3rambd_match_id(cdp->rom.manid, cdp->rom.prodid) > 0) 342 { } 343 else 344 #endif /* NZ3RAMBD */ 345 /* 346 * check if it's a Zorro II or III board and not linked into 347 * MemList (i.e. not a memory board) 348 */ 349 switch (cdp->rom.type & (ERT_TYPEMASK | ERTF_MEMLIST)) { 350 case ERT_ZORROII: 351 case ERT_ZORROIII: 352 break; 353 default: 354 continue; 355 } 356 357 za.pa = cdp->addr; 358 za.size = cdp->size; 359 za.manid = cdp->rom.manid; 360 za.prodid = cdp->rom.prodid; 361 za.serno = cdp->rom.serno; 362 za.slot = (((u_long)za.pa >> 16) & 0xF) - 0x9; 363 364 if (amiga_realconfig && pcp < epcp && pcp->vaddr) 365 za.va = pcp->vaddr; 366 else { 367 if(quirkslookup(za.manid, za.prodid) != 368 ZORRO_QUIRK_NO_ZBUSMAP) 369 za.va = (void *) (isztwopa(za.pa) ? 370 __UNVOLATILE(ztwomap(za.pa)) : 371 zbusmap(za.pa, za.size)); 372 /* 373 * save value if early console init 374 */ 375 if (amiga_realconfig == 0) 376 pcp->vaddr = za.va; 377 } 378 amiga_config_found(early_cfdata, self, &za, zbusprint, 379 CFARGS_NONE); 380 } 381 } 382 383 /* 384 * print configuration info. 385 */ 386 int 387 zbusprint(void *aux, const char *pnp) 388 { 389 struct zbus_args *zap; 390 int rv; 391 392 rv = UNCONF; 393 zap = aux; 394 395 if (pnp) { 396 aprint_normal("%s at %s:", 397 aconflookup(zap->manid, zap->prodid), pnp); 398 if (zap->manid == -1) 399 rv = UNSUPP; 400 } 401 aprint_normal(" pa %8p man/pro %d/%d", zap->pa, zap->manid, 402 zap->prodid); 403 return(rv); 404 } 405 406 /* 407 * this function is used to map Zorro physical I/O addresses into kernel 408 * virtual addresses. We don't keep track which address we map where, we don't 409 * NEED to know this. We made sure in amiga_init.c (by scanning all available 410 * Zorro devices) to have enough kva-space available, so there is no extra 411 * range check done here. 412 */ 413 void * 414 zbusmap(void *pa, u_int size) 415 { 416 #if defined(__m68k__) 417 static vaddr_t nextkva = 0; 418 vaddr_t kva; 419 420 if (nextkva == 0) 421 nextkva = ZBUSADDR; 422 423 if (nextkva > ZBUSADDR + ZBUSAVAIL) 424 return 0; 425 426 /* size better be an integral multiple of the page size... */ 427 kva = nextkva; 428 nextkva += size; 429 if (nextkva > ZBUSADDR + ZBUSAVAIL) 430 panic("allocating too much Zorro I/O address space"); 431 physaccess((void *)kva, (void *)pa, size, PG_RW|PG_CI); 432 return((void *)kva); 433 #else 434 /* 435 * XXX we use direct constant mapping 436 */ 437 return(pa); 438 #endif 439 } 440