si_isa.c revision 100744
1/* 2 * Device driver for Specialix range (SI/XIO) of serial line multiplexors. 3 * 4 * Copyright (C) 2000, Peter Wemm <peter@netplex.com.au> 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 * notices, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notices, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 15 * THIS SOFTWARE IS PROVIDED BY ``AS IS'' AND ANY EXPRESS OR IMPLIED 16 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 17 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN 18 * NO EVENT SHALL THE AUTHORS BE LIABLE. 19 * 20 * $FreeBSD: head/sys/dev/si/si_isa.c 100744 2002-07-27 08:46:28Z peter $ 21 */ 22 23#include "opt_debug_si.h" 24 25#include <sys/param.h> 26#include <sys/systm.h> 27#include <sys/kernel.h> 28#include <sys/bus.h> 29#include <machine/bus.h> 30#include <sys/rman.h> 31#include <machine/resource.h> 32 33#include <dev/si/sireg.h> 34#include <dev/si/sivar.h> 35 36#include <isa/isavar.h> 37 38/* Look for a valid board at the given mem addr */ 39static int 40si_isa_probe(device_t dev) 41{ 42 struct si_softc *sc; 43 int type; 44 u_int i, ramsize; 45 volatile unsigned char was, *ux; 46 volatile unsigned char *maddr; 47 unsigned char *paddr; 48 int unit; 49 50 /* No pnp support */ 51 if (isa_get_vendorid(dev)) 52 return (ENXIO); 53 54 sc = device_get_softc(dev); 55 unit = device_get_unit(dev); 56 57 sc->sc_mem_rid = 0; 58 sc->sc_mem_res = bus_alloc_resource(dev, SYS_RES_MEMORY, 59 &sc->sc_mem_rid, 60 0, ~0, SIPROBEALLOC, RF_ACTIVE); 61 if (!sc->sc_mem_res) { 62 device_printf(dev, "cannot allocate memory resource\n"); 63 return ENXIO; 64 } 65 paddr = (caddr_t)rman_get_start(sc->sc_mem_res);/* physical */ 66 maddr = rman_get_virtual(sc->sc_mem_res); /* in kvm */ 67 68 DPRINT((0, DBG_AUTOBOOT, "si%d: probe at virtual=0x%x physical=0x%x\n", 69 unit, maddr, paddr)); 70 71 /* 72 * this is a lie, but it's easier than trying to handle caching 73 * and ram conflicts in the >1M and <16M region. 74 */ 75 if ((caddr_t)paddr < (caddr_t)0xA0000 || 76 (caddr_t)paddr >= (caddr_t)0x100000) { 77 device_printf(dev, "maddr (%p) out of range\n", paddr); 78 goto fail; 79 } 80 81 if (((u_int)paddr & 0x7fff) != 0) { 82 device_printf(dev, "maddr (%p) not on 32k boundary\n", paddr); 83 goto fail; 84 } 85 86 /* Is there anything out there? (0x17 is just an arbitrary number) */ 87 *maddr = 0x17; 88 if (*maddr != 0x17) { 89 device_printf(dev, "0x17 check fail at phys %p\n", paddr); 90 goto fail; 91 } 92 /* 93 * Let's look first for a JET ISA card, since that's pretty easy 94 * 95 * All jet hosts are supposed to have this string in the IDROM, 96 * but it's not worth checking on self-IDing busses like PCI. 97 */ 98 { 99 unsigned char *jet_chk_str = "JET HOST BY KEV#"; 100 101 for (i = 0; i < strlen(jet_chk_str); i++) 102 if (jet_chk_str[i] != *(maddr + SIJETIDSTR + 2 * i)) 103 goto try_mk2; 104 } 105 DPRINT((0, DBG_AUTOBOOT|DBG_FAIL, "si%d: JET first check - 0x%x\n", 106 unit, (*(maddr+SIJETIDBASE)))); 107 if (*(maddr+SIJETIDBASE) != (SISPLXID&0xff)) 108 goto try_mk2; 109 DPRINT((0, DBG_AUTOBOOT|DBG_FAIL, "si%d: JET second check - 0x%x\n", 110 unit, (*(maddr+SIJETIDBASE+2)))); 111 if (*(maddr+SIJETIDBASE+2) != ((SISPLXID&0xff00)>>8)) 112 goto try_mk2; 113 /* It must be a Jet ISA or RIO card */ 114 DPRINT((0, DBG_AUTOBOOT|DBG_FAIL, "si%d: JET id check - 0x%x\n", 115 unit, (*(maddr+SIUNIQID)))); 116 if ((*(maddr+SIUNIQID) & 0xf0) != 0x20) 117 goto try_mk2; 118 /* It must be a Jet ISA SI/XIO card */ 119 *(maddr + SIJETCONFIG) = 0; 120 type = SIJETISA; 121 ramsize = SIJET_RAMSIZE; 122 goto got_card; 123 124try_mk2: 125 /* 126 * OK, now to see if whatever responded is really an SI card. 127 * Try for a MK II next (SIHOST2) 128 */ 129 for (i = SIPLSIG; i < SIPLSIG + 8; i++) 130 if ((*(maddr+i) & 7) != (~(unsigned char)i & 7)) 131 goto try_mk1; 132 133 /* It must be an SIHOST2 */ 134 *(maddr + SIPLRESET) = 0; 135 *(maddr + SIPLIRQCLR) = 0; 136 *(maddr + SIPLIRQSET) = 0x10; 137 type = SIHOST2; 138 ramsize = SIHOST2_RAMSIZE; 139 goto got_card; 140 141try_mk1: 142 /* 143 * Its not a MK II, so try for a MK I (SIHOST) 144 */ 145 *(maddr+SIRESET) = 0x0; /* reset the card */ 146 *(maddr+SIINTCL) = 0x0; /* clear int */ 147 *(maddr+SIRAM) = 0x17; 148 if (*(maddr+SIRAM) != (unsigned char)0x17) 149 goto fail; 150 *(maddr+0x7ff8) = 0x17; 151 if (*(maddr+0x7ff8) != (unsigned char)0x17) { 152 device_printf(dev, "0x17 check fail at phys %p = 0x%x\n", 153 paddr+0x77f8, *(maddr+0x77f8)); 154 goto fail; 155 } 156 157 /* It must be an SIHOST (maybe?) - there must be a better way XXX */ 158 type = SIHOST; 159 ramsize = SIHOST_RAMSIZE; 160 161got_card: 162 DPRINT((0, DBG_AUTOBOOT, "si%d: found type %d card, try memory test\n", 163 unit, type)); 164 /* Try the acid test */ 165 ux = maddr + SIRAM; 166 for (i = 0; i < ramsize; i++, ux++) 167 *ux = (unsigned char)(i&0xff); 168 ux = maddr + SIRAM; 169 for (i = 0; i < ramsize; i++, ux++) { 170 if ((was = *ux) != (unsigned char)(i&0xff)) { 171 device_printf(dev, 172 "memtest fail at phys %p, was %x should be %x\n", 173 paddr + i, was, i & 0xff); 174 goto fail; 175 } 176 } 177 178 /* clear out the RAM */ 179 ux = maddr + SIRAM; 180 for (i = 0; i < ramsize; i++) 181 *ux++ = 0; 182 ux = maddr + SIRAM; 183 for (i = 0; i < ramsize; i++) { 184 if ((was = *ux++) != 0) { 185 device_printf(dev, "clear fail at phys %p, was %x\n", 186 paddr + i, was); 187 goto fail; 188 } 189 } 190 191 /* 192 * Success, we've found a valid board, now fill in 193 * the adapter structure. 194 */ 195 switch (type) { 196 case SIHOST2: 197 switch (isa_get_irq(dev)) { 198 case 11: 199 case 12: 200 case 15: 201 break; 202 default: 203 device_printf(dev, 204 "bad IRQ value - %d (11, 12, 15 allowed)\n", 205 isa_get_irq(dev)); 206 goto fail; 207 } 208 sc->sc_memsize = SIHOST2_MEMSIZE; 209 break; 210 case SIHOST: 211 switch (isa_get_irq(dev)) { 212 case 11: 213 case 12: 214 case 15: 215 break; 216 default: 217 device_printf(dev, 218 "bad IRQ value - %d (11, 12, 15 allowed)\n", 219 isa_get_irq(dev)); 220 goto fail; 221 } 222 sc->sc_memsize = SIHOST_MEMSIZE; 223 break; 224 case SIJETISA: 225 switch (isa_get_irq(dev)) { 226 case 9: 227 case 10: 228 case 11: 229 case 12: 230 case 15: 231 break; 232 default: 233 device_printf(dev, 234 "bad IRQ value - %d (9, 10, 11, 12, 15 allowed)\n", 235 isa_get_irq(dev)); 236 goto fail; 237 } 238 sc->sc_memsize = SIJETISA_MEMSIZE; 239 break; 240 case SIMCA: /* MCA */ 241 default: 242 device_printf(dev, "card type %d not supported\n", type); 243 goto fail; 244 } 245 sc->sc_type = type; 246 bus_release_resource(dev, SYS_RES_MEMORY, 247 sc->sc_mem_rid, sc->sc_mem_res); 248 sc->sc_mem_res = 0; 249 return (0); /* success! */ 250 251fail: 252 if (sc->sc_mem_res) { 253 bus_release_resource(dev, SYS_RES_MEMORY, 254 sc->sc_mem_rid, sc->sc_mem_res); 255 sc->sc_mem_res = 0; 256 } 257 return(EINVAL); 258} 259 260static int 261si_isa_attach(device_t dev) 262{ 263 int error; 264 void *ih; 265 struct si_softc *sc; 266 267 error = 0; 268 ih = NULL; 269 sc = device_get_softc(dev); 270 271 sc->sc_mem_rid = 0; 272 sc->sc_mem_res = bus_alloc_resource(dev, SYS_RES_MEMORY, 273 &sc->sc_mem_rid, 274 0, ~0, 1, RF_ACTIVE); 275 if (!sc->sc_mem_res) { 276 device_printf(dev, "couldn't map memory\n"); 277 goto fail; 278 } 279 sc->sc_paddr = (caddr_t)rman_get_start(sc->sc_mem_res); 280 sc->sc_maddr = rman_get_virtual(sc->sc_mem_res); 281 282 sc->sc_irq_rid = 0; 283 sc->sc_irq_res = bus_alloc_resource(dev, SYS_RES_IRQ, &sc->sc_irq_rid, 284 0, ~0, 1, RF_ACTIVE | RF_SHAREABLE); 285 if (!sc->sc_irq_res) { 286 device_printf(dev, "couldn't allocate interrupt\n"); 287 goto fail; 288 } 289 sc->sc_irq = rman_get_start(sc->sc_irq_res); 290 error = bus_setup_intr(dev, sc->sc_irq_res, INTR_TYPE_TTY, 291 si_intr, sc,&ih); 292 if (error) { 293 device_printf(dev, "couldn't activate interrupt\n"); 294 goto fail; 295 } 296 297 error = siattach(dev); 298 if (error) 299 goto fail; 300 return (0); /* success */ 301 302fail: 303 if (error == 0) 304 error = ENXIO; 305 if (sc->sc_irq_res) { 306 if (ih) 307 bus_teardown_intr(dev, sc->sc_irq_res, ih); 308 bus_release_resource(dev, SYS_RES_IRQ, 309 sc->sc_irq_rid, sc->sc_irq_res); 310 sc->sc_irq_res = 0; 311 } 312 if (sc->sc_mem_res) { 313 bus_release_resource(dev, SYS_RES_MEMORY, 314 sc->sc_mem_rid, sc->sc_mem_res); 315 sc->sc_mem_res = 0; 316 } 317 return (error); 318} 319 320static device_method_t si_isa_methods[] = { 321 /* Device interface */ 322 DEVMETHOD(device_probe, si_isa_probe), 323 DEVMETHOD(device_attach, si_isa_attach), 324 325 { 0, 0 } 326}; 327 328static driver_t si_isa_driver = { 329 "si", 330 si_isa_methods, 331 sizeof(struct si_softc), 332}; 333 334DRIVER_MODULE(si, isa, si_isa_driver, si_devclass, 0, 0); 335