1 /* $NetBSD: asc.c,v 1.55 2013/10/25 21:24:14 martin Exp $ */ 2 3 /* 4 * Copyright (C) 1997 Scott Reynolds 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. The name of the author may not be used to endorse or promote products 16 * derived from this software without specific prior written permission. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 23 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 28 */ 29 /*- 30 * Copyright (C) 1993 Allen K. Briggs, Chris P. Caputo, 31 * Michael L. Finch, Bradley A. Grantham, and 32 * Lawrence A. Kesteloot 33 * All rights reserved. 34 * 35 * Redistribution and use in source and binary forms, with or without 36 * modification, are permitted provided that the following conditions 37 * are met: 38 * 1. Redistributions of source code must retain the above copyright 39 * notice, this list of conditions and the following disclaimer. 40 * 2. Redistributions in binary form must reproduce the above copyright 41 * notice, this list of conditions and the following disclaimer in the 42 * documentation and/or other materials provided with the distribution. 43 * 3. All advertising materials mentioning features or use of this software 44 * must display the following acknowledgement: 45 * This product includes software developed by the Alice Group. 46 * 4. The names of the Alice Group or any of its members may not be used 47 * to endorse or promote products derived from this software without 48 * specific prior written permission. 49 * 50 * THIS SOFTWARE IS PROVIDED BY THE ALICE GROUP ``AS IS'' AND ANY EXPRESS OR 51 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 52 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 53 * IN NO EVENT SHALL THE ALICE GROUP BE LIABLE FOR ANY DIRECT, INDIRECT, 54 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 55 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 56 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 57 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 58 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 59 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 60 */ 61 62 /* 63 * ASC driver code and console bell support 64 */ 65 66 #include <sys/cdefs.h> 67 __KERNEL_RCSID(0, "$NetBSD: asc.c,v 1.55 2013/10/25 21:24:14 martin Exp $"); 68 69 #include <sys/types.h> 70 #include <sys/errno.h> 71 #include <sys/time.h> 72 #include <sys/systm.h> 73 #include <sys/param.h> 74 #include <sys/device.h> 75 #include <sys/conf.h> 76 77 #include <uvm/uvm_extern.h> 78 79 #include <machine/autoconf.h> 80 #include <machine/cpu.h> 81 #include <machine/bus.h> 82 #include <machine/viareg.h> 83 84 #include <mac68k/obio/ascvar.h> 85 #include <mac68k/obio/obiovar.h> 86 87 #define MAC68K_ASC_BASE 0x50f14000 88 #define MAC68K_IIFX_ASC_BASE 0x50f10000 89 #define MAC68K_ASC_LEN 0x01000 90 91 #ifdef DEBUG 92 #define ASC_DEBUG 93 #endif 94 95 #ifdef ASC_DEBUG 96 int asc_debug = 0; /* non-zero enables debugging output */ 97 #endif 98 99 static u_int8_t asc_wave_tab[0x800]; 100 101 static int asc_ring_bell(void *, int, int, int); 102 static void asc_stop_bell(void *); 103 #if __notyet__ 104 static void asc_intr_enable(void); 105 static void asc_intr(void *); 106 #endif 107 108 static int ascmatch(device_t, cfdata_t, void *); 109 static void ascattach(device_t, device_t, void *); 110 111 CFATTACH_DECL_NEW(asc, sizeof(struct asc_softc), 112 ascmatch, ascattach, NULL, NULL); 113 114 extern struct cfdriver asc_cd; 115 116 dev_type_open(ascopen); 117 dev_type_close(ascclose); 118 dev_type_read(ascread); 119 dev_type_write(ascwrite); 120 dev_type_ioctl(ascioctl); 121 dev_type_mmap(ascmmap); 122 123 const struct cdevsw asc_cdevsw = { 124 ascopen, ascclose, ascread, ascwrite, ascioctl, 125 nostop, notty, nopoll, ascmmap, nokqfilter, 126 }; 127 128 static int 129 ascmatch(device_t parent, cfdata_t cf, void *aux) 130 { 131 struct obio_attach_args *oa = (struct obio_attach_args *)aux; 132 bus_addr_t addr; 133 bus_space_handle_t bsh; 134 int rval = 0; 135 136 if (oa->oa_addr != (-1)) 137 addr = (bus_addr_t)oa->oa_addr; 138 else if (current_mac_model->machineid == MACH_MACTV) 139 return 0; 140 else if (current_mac_model->machineid == MACH_MACIIFX) 141 addr = (bus_addr_t)MAC68K_IIFX_ASC_BASE; 142 else 143 addr = (bus_addr_t)MAC68K_ASC_BASE; 144 145 if (bus_space_map(oa->oa_tag, addr, MAC68K_ASC_LEN, 0, &bsh)) 146 return (0); 147 148 if (mac68k_bus_space_probe(oa->oa_tag, bsh, 0, 1)) 149 rval = 1; 150 else 151 rval = 0; 152 153 bus_space_unmap(oa->oa_tag, bsh, MAC68K_ASC_LEN); 154 155 return rval; 156 } 157 158 static void 159 ascattach(device_t parent, device_t self, void *aux) 160 { 161 struct asc_softc *sc = device_private(self); 162 struct obio_attach_args *oa = (struct obio_attach_args *)aux; 163 bus_addr_t addr; 164 int i; 165 166 sc->sc_dev = self; 167 sc->sc_tag = oa->oa_tag; 168 if (oa->oa_addr != (-1)) 169 addr = (bus_addr_t)oa->oa_addr; 170 else if (current_mac_model->machineid == MACH_MACIIFX) 171 addr = (bus_addr_t)MAC68K_IIFX_ASC_BASE; 172 else 173 addr = (bus_addr_t)MAC68K_ASC_BASE; 174 if (bus_space_map(sc->sc_tag, addr, MAC68K_ASC_LEN, 0, 175 &sc->sc_handle)) { 176 printf(": can't map memory space\n"); 177 return; 178 } 179 sc->sc_open = 0; 180 sc->sc_ringing = 0; 181 callout_init(&sc->sc_bell_ch, 0); 182 183 for (i = 0; i < 256; i++) { /* up part of wave, four voices? */ 184 asc_wave_tab[i] = i / 4; 185 asc_wave_tab[i + 512] = i / 4; 186 asc_wave_tab[i + 1024] = i / 4; 187 asc_wave_tab[i + 1536] = i / 4; 188 } 189 for (i = 0; i < 256; i++) { /* down part of wave, four voices? */ 190 asc_wave_tab[i + 256] = 0x3f - (i / 4); 191 asc_wave_tab[i + 768] = 0x3f - (i / 4); 192 asc_wave_tab[i + 1280] = 0x3f - (i / 4); 193 asc_wave_tab[i + 1792] = 0x3f - (i / 4); 194 } 195 196 printf(": Apple Sound Chip"); 197 if (oa->oa_addr != (-1)) 198 printf(" at %x", oa->oa_addr); 199 printf("\n"); 200 201 mac68k_set_bell_callback(asc_ring_bell, sc); 202 #if __notyet__ 203 if (mac68k_machine.aux_interrupts) { 204 intr_establish((int (*)(void *))asc_intr, sc, 5); 205 } else { 206 via2_register_irq(VIA2_ASC, asc_intr, sc); 207 } 208 asc_intr_enable(); 209 #endif 210 } 211 212 int 213 ascopen(dev_t dev, int flag, int mode, struct lwp *l) 214 { 215 struct asc_softc *sc; 216 217 sc = device_lookup_private(&asc_cd, ASCUNIT(dev)); 218 if (sc == NULL) 219 return (ENXIO); 220 if (sc->sc_open) 221 return (EBUSY); 222 sc->sc_open = 1; 223 224 return (0); 225 } 226 227 int 228 ascclose(dev_t dev, int flag, int mode, struct lwp *l) 229 { 230 struct asc_softc *sc; 231 232 sc = device_lookup_private(&asc_cd, ASCUNIT(dev)); 233 sc->sc_open = 0; 234 235 return (0); 236 } 237 238 int 239 ascread(dev_t dev, struct uio *uio, int ioflag) 240 { 241 return (ENXIO); 242 } 243 244 int 245 ascwrite(dev_t dev, struct uio *uio, int ioflag) 246 { 247 return (ENXIO); 248 } 249 250 int 251 ascioctl(dev_t dev, u_long cmd, void *data, int flag, struct lwp *l) 252 { 253 int error; 254 #ifdef not_yet 255 struct asc_softc *sc; 256 int unit = ASCUNIT(dev); 257 258 sc = device_lookup_private(&asc_cd, unit); 259 #endif 260 error = 0; 261 262 switch (cmd) { 263 default: 264 error = EINVAL; 265 break; 266 } 267 return (error); 268 } 269 270 paddr_t 271 ascmmap(dev_t dev, off_t off, int prot) 272 { 273 struct asc_softc *sc; 274 paddr_t pa; 275 276 sc = device_lookup_private(&asc_cd, ASCUNIT(dev)); 277 if ((u_int)off < MAC68K_ASC_LEN) { 278 (void) pmap_extract(pmap_kernel(), (vaddr_t)sc->sc_handle.base, 279 &pa); 280 return m68k_btop(pa + off); 281 } 282 283 return (-1); 284 } 285 286 static int 287 asc_ring_bell(void *arg, int freq, int length, int volume) 288 { 289 struct asc_softc *sc = (struct asc_softc *)arg; 290 unsigned long cfreq; 291 int i; 292 293 if (!sc) 294 return (ENODEV); 295 296 if (sc->sc_ringing == 0) { 297 298 bus_space_write_multi_1(sc->sc_tag, sc->sc_handle, 299 0, 0, 0x800); 300 bus_space_write_region_1(sc->sc_tag, sc->sc_handle, 301 0, asc_wave_tab, 0x800); 302 303 /* Fix this. Need to find exact ASC sampling freq */ 304 cfreq = 65536 * freq / 466; 305 306 /* printf("beep: from %d, %02x %02x %02x %02x\n", 307 * cur_beep.freq, (cfreq >> 24) & 0xff, (cfreq >> 16) & 0xff, 308 * (cfreq >> 8) & 0xff, (cfreq) & 0xff); */ 309 for (i = 0; i < 8; i++) { 310 bus_space_write_1(sc->sc_tag, sc->sc_handle, 311 0x814 + 8 * i, (cfreq >> 24) & 0xff); 312 bus_space_write_1(sc->sc_tag, sc->sc_handle, 313 0x815 + 8 * i, (cfreq >> 16) & 0xff); 314 bus_space_write_1(sc->sc_tag, sc->sc_handle, 315 0x816 + 8 * i, (cfreq >> 8) & 0xff); 316 bus_space_write_1(sc->sc_tag, sc->sc_handle, 317 0x817 + 8 * i, (cfreq) & 0xff); 318 } /* frequency; should put cur_beep.freq in here 319 * somewhere. */ 320 321 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x807, 3); /* 44 ? */ 322 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x806, 323 255 * volume / 100); 324 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x805, 0); 325 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x80f, 0); 326 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x802, 2); /* sampled */ 327 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x801, 2); /* enable sampled */ 328 sc->sc_ringing = 1; 329 callout_reset(&sc->sc_bell_ch, length, asc_stop_bell, sc); 330 } 331 332 return (0); 333 } 334 335 static void 336 asc_stop_bell(void *arg) 337 { 338 struct asc_softc *sc = (struct asc_softc *)arg; 339 340 if (!sc) 341 return; 342 343 if (sc->sc_ringing > 1000 || sc->sc_ringing < 0) 344 panic("bell got out of sync?"); 345 346 if (--sc->sc_ringing == 0) /* disable ASC */ 347 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x801, 0); 348 } 349 350 #if __notyet__ 351 static void 352 asc_intr_enable(void) 353 { 354 int s; 355 356 s = splhigh(); 357 if (VIA2 == VIA2OFF) 358 via2_reg(vIER) = 0x80 | V2IF_ASC; 359 else 360 via2_reg(rIER) = 0x80 | V2IF_ASC; 361 splx(s); 362 } 363 364 365 /*ARGSUSED*/ 366 static void 367 asc_intr(void *arg) 368 { 369 #ifdef ASC_DEBUG 370 struct asc_softc *sc = (struct asc_softc *)arg; 371 372 if (asc_debug) 373 printf("asc_intr(%p)\n", sc); 374 #endif 375 } 376 #endif 377