sys/arch/mac68k/obio/asc.c

   1 /*      $NetBSD: asc.c,v 1.52 2008/06/13 11:36:11 cegger 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.52 2008/06/13 11:36:11 cegger 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(struct device *, struct cfdata *, void *);
 109 static void     ascattach(struct device *, struct device *, void *);
 110
 111 CFATTACH_DECL(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(struct device *parent, struct cfdata *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(struct device *parent, struct device *self, void *aux)
 160 {
 161         struct asc_softc *sc = (struct asc_softc *)self;
 162         struct obio_attach_args *oa = (struct obio_attach_args *)aux;
 163         bus_addr_t addr;
 164         int i;
 165
 166         sc->sc_tag = oa->oa_tag;
 167         if (oa->oa_addr != (-1))
 168                 addr = (bus_addr_t)oa->oa_addr;
 169         else if (current_mac_model->machineid == MACH_MACIIFX)
 170                 addr = (bus_addr_t)MAC68K_IIFX_ASC_BASE;
 171         else
 172                 addr = (bus_addr_t)MAC68K_ASC_BASE;
 173         if (bus_space_map(sc->sc_tag, addr, MAC68K_ASC_LEN, 0,
 174             &sc->sc_handle)) {
 175                 printf(": can't map memory space\n");
 176                 return;
 177         }
 178         sc->sc_open = 0;
 179         sc->sc_ringing = 0;
 180         callout_init(&sc->sc_bell_ch, 0);
 181
 182         for (i = 0; i < 256; i++) {     /* up part of wave, four voices? */
 183                 asc_wave_tab[i] = i / 4;
 184                 asc_wave_tab[i + 512] = i / 4;
 185                 asc_wave_tab[i + 1024] = i / 4;
 186                 asc_wave_tab[i + 1536] = i / 4;
 187         }
 188         for (i = 0; i < 256; i++) {     /* down part of wave, four voices? */
 189                 asc_wave_tab[i + 256] = 0x3f - (i / 4);
 190                 asc_wave_tab[i + 768] = 0x3f - (i / 4);
 191                 asc_wave_tab[i + 1280] = 0x3f - (i / 4);
 192                 asc_wave_tab[i + 1792] = 0x3f - (i / 4);
 193         }
 194
 195         printf(": Apple Sound Chip");
 196         if (oa->oa_addr != (-1))
 197                 printf(" at %x", oa->oa_addr);
 198         printf("\n");
 199
 200         mac68k_set_bell_callback(asc_ring_bell, sc);
 201 #if __notyet__
 202         if (mac68k_machine.aux_interrupts) {
 203                 intr_establish((int (*)(void *))asc_intr, sc, 5);
 204         } else {
 205                 via2_register_irq(VIA2_ASC, asc_intr, sc);
 206         }
 207         asc_intr_enable();
 208 #endif
 209 }
 210
 211 int
 212 ascopen(dev_t dev, int flag, int mode, struct lwp *l)
 213 {
 214         struct asc_softc *sc;
 215
 216         sc = device_lookup_private(&asc_cd, ASCUNIT(dev));
 217         if (sc == NULL)
 218                 return (ENXIO);
 219         if (sc->sc_open)
 220                 return (EBUSY);
 221         sc->sc_open = 1;
 222
 223         return (0);
 224 }
 225
 226 int
 227 ascclose(dev_t dev, int flag, int mode, struct lwp *l)
 228 {
 229         struct asc_softc *sc;
 230
 231         sc = device_lookup_private(&asc_cd, ASCUNIT(dev));
 232         sc->sc_open = 0;
 233
 234         return (0);
 235 }
 236
 237 int
 238 ascread(dev_t dev, struct uio *uio, int ioflag)
 239 {
 240         return (ENXIO);
 241 }
 242
 243 int
 244 ascwrite(dev_t dev, struct uio *uio, int ioflag)
 245 {
 246         return (ENXIO);
 247 }
 248
 249 int
 250 ascioctl(dev_t dev, u_long cmd, void *data, int flag, struct lwp *l)
 251 {
 252         struct asc_softc *sc;
 253         int error;
 254         int unit = ASCUNIT(dev);
 255
 256         sc = device_lookup_private(&asc_cd, unit);
 257         error = 0;
 258
 259         switch (cmd) {
 260         default:
 261                 error = EINVAL;
 262                 break;
 263         }
 264         return (error);
 265 }
 266
 267 paddr_t
 268 ascmmap(dev_t dev, off_t off, int prot)
 269 {
 270         struct asc_softc *sc;
 271         paddr_t pa;
 272
 273         sc = device_lookup_private(&asc_cd, ASCUNIT(dev));
 274         if ((u_int)off < MAC68K_ASC_LEN) {
 275                 (void) pmap_extract(pmap_kernel(), (vaddr_t)sc->sc_handle.base,
 276                     &pa);
 277                 return m68k_btop(pa + off);
 278         }
 279
 280         return (-1);
 281 }
 282
 283 static int
 284 asc_ring_bell(void *arg, int freq, int length, int volume)
 285 {
 286         struct asc_softc *sc = (struct asc_softc *)arg;
 287         unsigned long cfreq;
 288         int i;
 289
 290         if (!sc)
 291                 return (ENODEV);
 292
 293         if (sc->sc_ringing == 0) {
 294
 295                 bus_space_write_multi_1(sc->sc_tag, sc->sc_handle,
 296                     0, 0, 0x800);
 297                 bus_space_write_region_1(sc->sc_tag, sc->sc_handle,
 298                     0, asc_wave_tab, 0x800);
 299
 300                 /* Fix this.  Need to find exact ASC sampling freq */
 301                 cfreq = 65536 * freq / 466;
 302
 303                 /* printf("beep: from %d, %02x %02x %02x %02x\n",
 304                  * cur_beep.freq, (cfreq >> 24) & 0xff, (cfreq >> 16) & 0xff,
 305                  * (cfreq >> 8) & 0xff, (cfreq) & 0xff); */
 306                 for (i = 0; i < 8; i++) {
 307                         bus_space_write_1(sc->sc_tag, sc->sc_handle,
 308                             0x814 + 8 * i, (cfreq >> 24) & 0xff);
 309                         bus_space_write_1(sc->sc_tag, sc->sc_handle,
 310                             0x815 + 8 * i, (cfreq >> 16) & 0xff);
 311                         bus_space_write_1(sc->sc_tag, sc->sc_handle,
 312                             0x816 + 8 * i, (cfreq >> 8) & 0xff);
 313                         bus_space_write_1(sc->sc_tag, sc->sc_handle,
 314                             0x817 + 8 * i, (cfreq) & 0xff);
 315                 }               /* frequency; should put cur_beep.freq in here
 316                                  * somewhere. */
 317
 318                 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x807, 3); /* 44 ? */
 319                 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x806,
 320                     255 * volume / 100);
 321                 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x805, 0);
 322                 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x80f, 0);
 323                 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x802, 2); /* sampled */
 324                 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x801, 2); /* enable sampled */
 325                 sc->sc_ringing = 1;
 326                 callout_reset(&sc->sc_bell_ch, length, asc_stop_bell, sc);
 327         }
 328
 329         return (0);
 330 }
 331
 332 static void
 333 asc_stop_bell(void *arg)
 334 {
 335         struct asc_softc *sc = (struct asc_softc *)arg;
 336
 337         if (!sc)
 338                 return;
 339
 340         if (sc->sc_ringing > 1000 || sc->sc_ringing < 0)
 341                 panic("bell got out of sync?");
 342
 343         if (--sc->sc_ringing == 0)      /* disable ASC */
 344                 bus_space_write_1(sc->sc_tag, sc->sc_handle, 0x801, 0);
 345 }
 346
 347 #if __notyet__
 348 static void
 349 asc_intr_enable(void)
 350 {
 351         int s;
 352
 353         s = splhigh();
 354         if (VIA2 == VIA2OFF)
 355                 via2_reg(vIER) = 0x80 | V2IF_ASC;
 356         else
 357                 via2_reg(rIER) = 0x80 | V2IF_ASC;
 358         splx(s);
 359 }
 360
 361
 362 /*ARGSUSED*/
 363 static void
 364 asc_intr(void *arg)
 365 {
 366 #ifdef ASC_DEBUG
 367         struct asc_softc *sc = (struct asc_softc *)arg;
 368
 369         if (asc_debug)
 370                 printf("asc_intr(%p)\n", sc);
 371 #endif
 372 }
 373 #endif