1 /* $NetBSD: if_sn_obio.c,v 1.12 1997/10/09 00:08:00 briggs Exp $ */ 2 3 /* 4 * Copyright (C) 1997 Allen Briggs 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 Allen Briggs 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/param.h> 34 #include <sys/device.h> 35 #include <sys/errno.h> 36 #include <sys/ioctl.h> 37 #include <sys/socket.h> 38 #include <sys/syslog.h> 39 #include <sys/systm.h> 40 41 #include <net/if.h> 42 #include <net/if_ether.h> 43 44 #if 0 /* XXX this shouldn't be necessary... else reinsert */ 45 #ifdef INET 46 #include <netinet/in.h> 47 #include <netinet/if_ether.h> 48 #endif 49 #endif 50 51 #include <machine/bus.h> 52 #include <machine/cpu.h> 53 #include <machine/viareg.h> 54 55 #include <mac68k/dev/obiovar.h> 56 #include <mac68k/dev/if_snreg.h> 57 #include <mac68k/dev/if_snvar.h> 58 59 #define SONIC_REG_BASE 0x50F0A000 60 #define SONIC_PROM_BASE 0x50F08000 61 62 static int sn_obio_match __P((struct device *, struct cfdata *, void *)); 63 static void sn_obio_attach __P((struct device *, struct device *, void *)); 64 static int sn_obio_getaddr __P((struct sn_softc *, u_int8_t *)); 65 static int sn_obio_getaddr_kludge __P((struct sn_softc *, u_int8_t *)); 66 67 struct cfattach sn_obio_ca = { 68 sizeof(struct sn_softc), sn_obio_match, sn_obio_attach 69 }; 70 71 static int 72 sn_obio_match(parent, cf, aux) 73 struct device *parent; 74 struct cfdata *cf; 75 void *aux; 76 { 77 struct obio_attach_args *oa = (struct obio_attach_args *)aux; 78 bus_space_handle_t bsh; 79 int found = 0; 80 81 if (!mac68k_machine.sonic) 82 return 0; 83 84 if (bus_space_map(oa->oa_tag, 85 SONIC_REG_BASE, SN_REGSIZE, 0, &bsh)) 86 return 0; 87 88 if (bus_probe(oa->oa_tag, bsh, 0, 4)) 89 found = 1; 90 91 bus_space_unmap(oa->oa_tag, bsh, SN_REGSIZE); 92 93 return found; 94 } 95 96 /* 97 * Install interface into kernel networking data structures 98 */ 99 static void 100 sn_obio_attach(parent, self, aux) 101 struct device *parent, *self; 102 void *aux; 103 { 104 struct obio_attach_args *oa = (struct obio_attach_args *)aux; 105 struct sn_softc *sc = (void *)self; 106 u_int8_t myaddr[ETHER_ADDR_LEN]; 107 int i; 108 109 sc->snr_dcr = DCR_WAIT0 | DCR_DMABLOCK | DCR_RFT16 | DCR_TFT16; 110 sc->snr_dcr2 = 0; 111 112 switch (current_mac_model->machineid) { 113 case MACH_MACC610: 114 case MACH_MACC650: 115 case MACH_MACQ610: 116 case MACH_MACQ650: 117 case MACH_MACQ700: 118 case MACH_MACQ800: 119 case MACH_MACQ900: 120 case MACH_MACQ950: 121 sc->snr_dcr |= DCR_EXBUS; 122 sc->bitmode = 1; 123 break; 124 125 case MACH_MACPB500: 126 sc->snr_dcr |= DCR_SYNC | DCR_LBR; 127 sc->bitmode = 0; /* 16 bit interface */ 128 break; 129 130 default: 131 printf(": unsupported machine type\n"); 132 return; 133 } 134 135 sc->sc_regt = oa->oa_tag; 136 137 if (bus_space_map(sc->sc_regt, 138 SONIC_REG_BASE, SN_REGSIZE, 0, &sc->sc_regh)) { 139 printf(": failed to map space for SONIC regs.\n"); 140 return; 141 } 142 143 sc->slotno = 9; 144 145 /* regs are addressed as words, big-endian. */ 146 for (i = 0; i < SN_NREGS; i++) { 147 sc->sc_reg_map[i] = (bus_size_t)((i * 4) + 2); 148 } 149 150 if (sn_obio_getaddr(sc, myaddr) && 151 sn_obio_getaddr_kludge(sc, myaddr)) { /* XXX kludge for PB */ 152 printf(": failed to get MAC address.\n"); 153 bus_space_unmap(sc->sc_regt, sc->sc_regh, SN_REGSIZE); 154 return; 155 } 156 157 /* snsetup returns 1 if something fails */ 158 if (snsetup(sc, myaddr)) { 159 bus_space_unmap(sc->sc_regt, sc->sc_regh, SN_REGSIZE); 160 return; 161 } 162 163 add_nubus_intr(sc->slotno, snintr, (void *)sc); 164 } 165 166 static int 167 sn_obio_getaddr(sc, lladdr) 168 struct sn_softc *sc; 169 u_int8_t *lladdr; 170 { 171 bus_space_handle_t bsh; 172 173 if (bus_space_map(sc->sc_regt, SONIC_PROM_BASE, NBPG, 0, &bsh)) { 174 printf(": failed to map space to read SONIC address.\n%s", 175 sc->sc_dev.dv_xname); 176 return (-1); 177 } 178 179 if (!bus_probe(sc->sc_regt, bsh, 0, 1)) { 180 bus_space_unmap(sc->sc_regt, bsh, NBPG); 181 return (-1); 182 } 183 184 sn_get_enaddr(sc->sc_regt, bsh, 0, lladdr); 185 186 bus_space_unmap(sc->sc_regt, bsh, NBPG); 187 188 return 0; 189 } 190 191 /* 192 * Assume that the SONIC was initialized in MacOS. This should go away 193 * when we can properly get the MAC address on the PBs. 194 */ 195 static int 196 sn_obio_getaddr_kludge(sc, lladdr) 197 struct sn_softc *sc; 198 u_int8_t *lladdr; 199 { 200 int i, ors = 0; 201 202 /* Shut down NIC */ 203 NIC_PUT(sc, SNR_CR, CR_RST); 204 wbflush(); 205 206 NIC_PUT(sc, SNR_CEP, 15); /* For some reason, Apple fills top first. */ 207 wbflush(); 208 i = NIC_GET(sc, SNR_CAP2); 209 wbflush(); 210 211 ors |= i; 212 lladdr[5] = i >> 8; 213 lladdr[4] = i; 214 215 i = NIC_GET(sc, SNR_CAP1); 216 wbflush(); 217 218 ors |= i; 219 lladdr[3] = i >> 8; 220 lladdr[2] = i; 221 222 i = NIC_GET(sc, SNR_CAP0); 223 wbflush(); 224 225 ors |= i; 226 lladdr[1] = i >> 8; 227 lladdr[0] = i; 228 229 NIC_PUT(sc, SNR_CR, 0); 230 wbflush(); 231 232 if (ors == 0) 233 return -1; 234 235 return 0; 236 } 237