// SPDX-License-Identifier: GPL-2.0-only /* * linux/sound/oss/dmasound/dmasound_atari.c * * Atari TT and Falcon DMA Sound Driver * * See linux/sound/oss/dmasound/dmasound_core.c for copyright and credits * prior to 28/01/2001 * * 28/01/2001 [0.1] Iain Sandoe * - added versioning * - put in and populated the hardware_afmts field. * [0.2] - put in SNDCTL_DSP_GETCAPS value. * 01/02/2001 [0.3] - put in default hard/soft settings. */ #include <linux/module.h> #include <linux/kernel.h> #include <linux/init.h> #include <linux/soundcard.h> #include <linux/mm.h> #include <linux/spinlock.h> #include <linux/interrupt.h> #include <linux/uaccess.h> #include <asm/atariints.h> #include <asm/atari_stram.h> #include "dmasound.h" #define DMASOUND_ATARI_REVISION 0 #define DMASOUND_ATARI_EDITION 3 extern void atari_microwire_cmd(int cmd); static int is_falcon; static int write_sq_ignore_int; /* ++TeSche: used for Falcon */ static int expand_bal; /* Balance factor for expanding (not volume!) */ static int expand_data; /* Data for expanding */ /*** Translations ************************************************************/ /* ++TeSche: radically changed for new expanding purposes... * * These two routines now deal with copying/expanding/translating the samples * from user space into our buffer at the right frequency. They take care about * how much data there's actually to read, how much buffer space there is and * to convert samples into the right frequency/encoding. They will only work on * complete samples so it may happen they leave some bytes in the input stream * if the user didn't write a multiple of the current sample size. They both * return the number of bytes they've used from both streams so you may detect * such a situation. Luckily all programs should be able to cope with that. * * I think I've optimized anything as far as one can do in plain C, all * variables should fit in registers and the loops are really short. There's * one loop for every possible situation. Writing a more generalized and thus * parameterized loop would only produce slower code. Feel free to optimize * this in assembler if you like. :) * * I think these routines belong here because they're not yet really hardware * independent, especially the fact that the Falcon can play 16bit samples * only in stereo is hardcoded in both of them! * * ++geert: split in even more functions (one per format) */ static ssize_t ata_ct_law(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ct_s8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ct_u8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ct_s16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ct_u16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ct_s16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ct_u16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ctx_law(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ctx_s8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ctx_u8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ctx_s16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ctx_u16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ctx_s16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); static ssize_t ata_ctx_u16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft); /*** Low level stuff *********************************************************/ static void *AtaAlloc(unsigned int size, gfp_t flags); static void AtaFree(void *, unsigned int size); static int AtaIrqInit(void); #ifdef MODULE static void AtaIrqCleanUp(void); #endif /* MODULE */ static int AtaSetBass(int bass); static int AtaSetTreble(int treble); static void TTSilence(void); static void TTInit(void); static int TTSetFormat(int format); static int TTSetVolume(int volume); static int TTSetGain(int gain); static void FalconSilence(void); static void FalconInit(void); static int FalconSetFormat(int format); static int FalconSetVolume(int volume); static void AtaPlayNextFrame(int index); static void AtaPlay(void); static irqreturn_t AtaInterrupt(int irq, void *dummy); /*** Mid level stuff *********************************************************/ static void TTMixerInit(void); static void FalconMixerInit(void); static int AtaMixerIoctl(u_int cmd, u_long arg); static int TTMixerIoctl(u_int cmd, u_long arg); static int FalconMixerIoctl(u_int cmd, u_long arg); static int AtaWriteSqSetup(void); static int AtaSqOpen(fmode_t mode); static int TTStateInfo(char *buffer, size_t space); static int FalconStateInfo(char *buffer, size_t space); /*** Translations ************************************************************/ static ssize_t ata_ct_law(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { char *table = dmasound.soft.format == AFMT_MU_LAW ? dmasound_ulaw2dma8 : dmasound_alaw2dma8; ssize_t count, used; u_char *p = &frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft); if (dmasound.soft.stereo) count &= ~1; used = count; while (count > 0) { u_char data; if (get_user(data, userPtr++)) return -EFAULT; *p++ = table[data]; count--; } *frameUsed += used; return used; } static ssize_t ata_ct_s8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { ssize_t count, used; void *p = &frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft); if (dmasound.soft.stereo) count &= ~1; used = count; if (copy_from_user(p, userPtr, count)) return -EFAULT; *frameUsed += used; return used; } static ssize_t ata_ct_u8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { ssize_t count, used; if (!dmasound.soft.stereo) { u_char *p = &frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft); used = count; while (count > 0) { u_char data; if (get_user(data, userPtr++)) return -EFAULT; *p++ = data ^ 0x80; count--; } } else { u_short *p = (u_short *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>1; used = count*2; while (count > 0) { u_short data; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; *p++ = data ^ 0x8080; count--; } } *frameUsed += used; return used; } static ssize_t ata_ct_s16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { ssize_t count, used; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>1; used = count*2; while (count > 0) { u_short data; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; *p++ = data; *p++ = data; count--; } *frameUsed += used*2; } else { void *p = (u_short *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft) & ~3; used = count; if (copy_from_user(p, userPtr, count)) return -EFAULT; *frameUsed += used; } return used; } static ssize_t ata_ct_u16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { ssize_t count, used; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>1; used = count*2; while (count > 0) { u_short data; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; data ^= 0x8000; *p++ = data; *p++ = data; count--; } *frameUsed += used*2; } else { u_long *p = (u_long *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>2; used = count*4; while (count > 0) { u_int data; if (get_user(data, (u_int __user *)userPtr)) return -EFAULT; userPtr += 4; *p++ = data ^ 0x80008000; count--; } *frameUsed += used; } return used; } static ssize_t ata_ct_s16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { ssize_t count, used; count = frameLeft; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>1; used = count*2; while (count > 0) { u_short data; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; data = le2be16(data); *p++ = data; *p++ = data; count--; } *frameUsed += used*2; } else { u_long *p = (u_long *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>2; used = count*4; while (count > 0) { u_long data; if (get_user(data, (u_int __user *)userPtr)) return -EFAULT; userPtr += 4; data = le2be16dbl(data); *p++ = data; count--; } *frameUsed += used; } return used; } static ssize_t ata_ct_u16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { ssize_t count, used; count = frameLeft; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>1; used = count*2; while (count > 0) { u_short data; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; data = le2be16(data) ^ 0x8000; *p++ = data; *p++ = data; } *frameUsed += used*2; } else { u_long *p = (u_long *)&frame[*frameUsed]; count = min_t(unsigned long, userCount, frameLeft)>>2; used = count; while (count > 0) { u_long data; if (get_user(data, (u_int __user *)userPtr)) return -EFAULT; userPtr += 4; data = le2be16dbl(data) ^ 0x80008000; *p++ = data; count--; } *frameUsed += used; } return used; } static ssize_t ata_ctx_law(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { char *table = dmasound.soft.format == AFMT_MU_LAW ? dmasound_ulaw2dma8 : dmasound_alaw2dma8; /* this should help gcc to stuff everything into registers */ long bal = expand_bal; long hSpeed = dmasound.hard.speed, sSpeed = dmasound.soft.speed; ssize_t used, usedf; used = userCount; usedf = frameLeft; if (!dmasound.soft.stereo) { u_char *p = &frame[*frameUsed]; u_char data = expand_data; while (frameLeft) { u_char c; if (bal < 0) { if (!userCount) break; if (get_user(c, userPtr++)) return -EFAULT; data = table[c]; userCount--; bal += hSpeed; } *p++ = data; frameLeft--; bal -= sSpeed; } expand_data = data; } else { u_short *p = (u_short *)&frame[*frameUsed]; u_short data = expand_data; while (frameLeft >= 2) { u_char c; if (bal < 0) { if (userCount < 2) break; if (get_user(c, userPtr++)) return -EFAULT; data = table[c] << 8; if (get_user(c, userPtr++)) return -EFAULT; data |= table[c]; userCount -= 2; bal += hSpeed; } *p++ = data; frameLeft -= 2; bal -= sSpeed; } expand_data = data; } expand_bal = bal; used -= userCount; *frameUsed += usedf-frameLeft; return used; } static ssize_t ata_ctx_s8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { /* this should help gcc to stuff everything into registers */ long bal = expand_bal; long hSpeed = dmasound.hard.speed, sSpeed = dmasound.soft.speed; ssize_t used, usedf; used = userCount; usedf = frameLeft; if (!dmasound.soft.stereo) { u_char *p = &frame[*frameUsed]; u_char data = expand_data; while (frameLeft) { if (bal < 0) { if (!userCount) break; if (get_user(data, userPtr++)) return -EFAULT; userCount--; bal += hSpeed; } *p++ = data; frameLeft--; bal -= sSpeed; } expand_data = data; } else { u_short *p = (u_short *)&frame[*frameUsed]; u_short data = expand_data; while (frameLeft >= 2) { if (bal < 0) { if (userCount < 2) break; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; userCount -= 2; bal += hSpeed; } *p++ = data; frameLeft -= 2; bal -= sSpeed; } expand_data = data; } expand_bal = bal; used -= userCount; *frameUsed += usedf-frameLeft; return used; } static ssize_t ata_ctx_u8(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { /* this should help gcc to stuff everything into registers */ long bal = expand_bal; long hSpeed = dmasound.hard.speed, sSpeed = dmasound.soft.speed; ssize_t used, usedf; used = userCount; usedf = frameLeft; if (!dmasound.soft.stereo) { u_char *p = &frame[*frameUsed]; u_char data = expand_data; while (frameLeft) { if (bal < 0) { if (!userCount) break; if (get_user(data, userPtr++)) return -EFAULT; data ^= 0x80; userCount--; bal += hSpeed; } *p++ = data; frameLeft--; bal -= sSpeed; } expand_data = data; } else { u_short *p = (u_short *)&frame[*frameUsed]; u_short data = expand_data; while (frameLeft >= 2) { if (bal < 0) { if (userCount < 2) break; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; data ^= 0x8080; userCount -= 2; bal += hSpeed; } *p++ = data; frameLeft -= 2; bal -= sSpeed; } expand_data = data; } expand_bal = bal; used -= userCount; *frameUsed += usedf-frameLeft; return used; } static ssize_t ata_ctx_s16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { /* this should help gcc to stuff everything into registers */ long bal = expand_bal; long hSpeed = dmasound.hard.speed, sSpeed = dmasound.soft.speed; ssize_t used, usedf; used = userCount; usedf = frameLeft; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; u_short data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 2) break; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; userCount -= 2; bal += hSpeed; } *p++ = data; *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } else { u_long *p = (u_long *)&frame[*frameUsed]; u_long data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 4) break; if (get_user(data, (u_int __user *)userPtr)) return -EFAULT; userPtr += 4; userCount -= 4; bal += hSpeed; } *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } expand_bal = bal; used -= userCount; *frameUsed += usedf-frameLeft; return used; } static ssize_t ata_ctx_u16be(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { /* this should help gcc to stuff everything into registers */ long bal = expand_bal; long hSpeed = dmasound.hard.speed, sSpeed = dmasound.soft.speed; ssize_t used, usedf; used = userCount; usedf = frameLeft; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; u_short data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 2) break; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; data ^= 0x8000; userCount -= 2; bal += hSpeed; } *p++ = data; *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } else { u_long *p = (u_long *)&frame[*frameUsed]; u_long data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 4) break; if (get_user(data, (u_int __user *)userPtr)) return -EFAULT; userPtr += 4; data ^= 0x80008000; userCount -= 4; bal += hSpeed; } *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } expand_bal = bal; used -= userCount; *frameUsed += usedf-frameLeft; return used; } static ssize_t ata_ctx_s16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { /* this should help gcc to stuff everything into registers */ long bal = expand_bal; long hSpeed = dmasound.hard.speed, sSpeed = dmasound.soft.speed; ssize_t used, usedf; used = userCount; usedf = frameLeft; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; u_short data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 2) break; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; data = le2be16(data); userCount -= 2; bal += hSpeed; } *p++ = data; *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } else { u_long *p = (u_long *)&frame[*frameUsed]; u_long data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 4) break; if (get_user(data, (u_int __user *)userPtr)) return -EFAULT; userPtr += 4; data = le2be16dbl(data); userCount -= 4; bal += hSpeed; } *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } expand_bal = bal; used -= userCount; *frameUsed += usedf-frameLeft; return used; } static ssize_t ata_ctx_u16le(const u_char __user *userPtr, size_t userCount, u_char frame[], ssize_t *frameUsed, ssize_t frameLeft) { /* this should help gcc to stuff everything into registers */ long bal = expand_bal; long hSpeed = dmasound.hard.speed, sSpeed = dmasound.soft.speed; ssize_t used, usedf; used = userCount; usedf = frameLeft; if (!dmasound.soft.stereo) { u_short *p = (u_short *)&frame[*frameUsed]; u_short data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 2) break; if (get_user(data, (u_short __user *)userPtr)) return -EFAULT; userPtr += 2; data = le2be16(data) ^ 0x8000; userCount -= 2; bal += hSpeed; } *p++ = data; *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } else { u_long *p = (u_long *)&frame[*frameUsed]; u_long data = expand_data; while (frameLeft >= 4) { if (bal < 0) { if (userCount < 4) break; if (get_user(data, (u_int __user *)userPtr)) return -EFAULT; userPtr += 4; data = le2be16dbl(data) ^ 0x80008000; userCount -= 4; bal += hSpeed; } *p++ = data; frameLeft -= 4; bal -= sSpeed; } expand_data = data; } expand_bal = bal; used -= userCount; *frameUsed += usedf-frameLeft; return used; } static TRANS transTTNormal = { .ct_ulaw = ata_ct_law, .ct_alaw = ata_ct_law, .ct_s8 = ata_ct_s8, .ct_u8 = ata_ct_u8, }; static TRANS transTTExpanding = { .ct_ulaw = ata_ctx_law, .ct_alaw = ata_ctx_law, .ct_s8 = ata_ctx_s8, .ct_u8 = ata_ctx_u8, }; static TRANS transFalconNormal = { .ct_ulaw = ata_ct_law, .ct_alaw = ata_ct_law, .ct_s8 = ata_ct_s8, .ct_u8 = ata_ct_u8, .ct_s16be = ata_ct_s16be, .ct_u16be = ata_ct_u16be, .ct_s16le = ata_ct_s16le, .ct_u16le = ata_ct_u16le }; static TRANS transFalconExpanding = { .ct_ulaw = ata_ctx_law, .ct_alaw = ata_ctx_law, .ct_s8 = ata_ctx_s8, .ct_u8 = ata_ctx_u8, .ct_s16be = ata_ctx_s16be, .ct_u16be = ata_ctx_u16be, .ct_s16le = ata_ctx_s16le, .ct_u16le = ata_ctx_u16le, }; /*** Low level stuff *********************************************************/ /* * Atari (TT/Falcon) */ static void *AtaAlloc(unsigned int size, gfp_t flags) { return atari_stram_alloc(size, "dmasound"); } static void AtaFree(void *obj, unsigned int size) { atari_stram_free( obj ); } static int __init AtaIrqInit(void) { /* Set up timer A. Timer A will receive a signal upon end of playing from the sound hardware. Furthermore Timer A is able to count events and will cause an interrupt after a programmed number of events. So all we need to keep the music playing is to provide the sound hardware with new data upon an interrupt from timer A. */ st_mfp.tim_ct_a = 0; /* ++roman: Stop timer before programming! */ st_mfp.tim_dt_a = 1; /* Cause interrupt after first event. */ st_mfp.tim_ct_a = 8; /* Turn on event counting. */ /* Register interrupt handler. */ if (request_irq(IRQ_MFP_TIMA, AtaInterrupt, 0, "DMA sound", AtaInterrupt)) return 0; st_mfp.int_en_a |= 0x20; /* Turn interrupt on. */ st_mfp.int_mk_a |= 0x20; return 1; } #ifdef MODULE static void AtaIrqCleanUp(void) { st_mfp.tim_ct_a = 0; /* stop timer */ st_mfp.int_en_a &= ~0x20; /* turn interrupt off */ free_irq(IRQ_MFP_TIMA, AtaInterrupt); } #endif /* MODULE */ #define TONE_VOXWARE_TO_DB(v) \ (((v) < 0) ? -12 : ((v) > 100) ? 12 : ((v) - 50) * 6 / 25) #define TONE_DB_TO_VOXWARE(v) (((v) * 25 + ((v) > 0 ? 5 : -5)) / 6 + 50) static int AtaSetBass(int bass) { dmasound.bass = TONE_VOXWARE_TO_DB(bass); atari_microwire_cmd(MW_LM1992_BASS(dmasound.bass)); return TONE_DB_TO_VOXWARE(dmasound.bass); } static int AtaSetTreble(int treble) { dmasound.treble = TONE_VOXWARE_TO_DB(treble); atari_microwire_cmd(MW_LM1992_TREBLE(dmasound.treble)); return TONE_DB_TO_VOXWARE(dmasound.treble); } /* * TT */ static void TTSilence(void) { tt_dmasnd.ctrl = DMASND_CTRL_OFF; atari_microwire_cmd(MW_LM1992_PSG_HIGH); /* mix in PSG signal 1:1 */ } static void TTInit(void) { int mode, i, idx; const int freq[4] = {50066, 25033, 12517, 6258}; /* search a frequency that fits into the allowed error range */ idx = -1; for (i = 0; i < ARRAY_SIZE(freq); i++) /* this isn't as much useful for a TT than for a Falcon, but * then it doesn't hurt very much to implement it for a TT too. */ if ((100 * abs(dmasound.soft.speed - freq[i]) / freq[i]) < catchRadius) idx = i; if (idx > -1) { dmasound.soft.speed = freq[idx]; dmasound.trans_write = &transTTNormal; } else dmasound.trans_write = &transTTExpanding; TTSilence(); dmasound.hard = dmasound.soft; if (dmasound.hard.speed > 50066) { /* we would need to squeeze the sound, but we won't do that */ dmasound.hard.speed = 50066; mode = DMASND_MODE_50KHZ; dmasound.trans_write = &transTTNormal; } else if (dmasound.hard.speed > 25033) { dmasound.hard.speed = 50066; mode = DMASND_MODE_50KHZ; } else if (dmasound.hard.speed > 12517) { dmasound.hard.speed = 25033; mode = DMASND_MODE_25KHZ; } else if (dmasound.hard.speed > 6258) { dmasound.hard.speed = 12517; mode = DMASND_MODE_12KHZ; } else { dmasound.hard.speed = 6258; mode = DMASND_MODE_6KHZ; } tt_dmasnd.mode = (dmasound.hard.stereo ? DMASND_MODE_STEREO : DMASND_MODE_MONO) | DMASND_MODE_8BIT | mode; expand_bal = -dmasound.soft.speed; } static int TTSetFormat(int format) { /* TT sound DMA supports only 8bit modes */ switch (format) { case AFMT_QUERY: return dmasound.soft.format; case AFMT_MU_LAW: case AFMT_A_LAW: case AFMT_S8: case AFMT_U8: break; default: format = AFMT_S8; } dmasound.soft.format = format; dmasound.soft.size = 8; if (dmasound.minDev == SND_DEV_DSP) { dmasound.dsp.format = format; dmasound.dsp.size = 8; } TTInit(); return format; } #define VOLUME_VOXWARE_TO_DB(v) \ (((v) < 0) ? -40 : ((v) > 100) ? 0 : ((v) * 2) / 5 - 40) #define VOLUME_DB_TO_VOXWARE(v) ((((v) + 40) * 5 + 1) / 2) static int TTSetVolume(int volume) { dmasound.volume_left = VOLUME_VOXWARE_TO_DB(volume & 0xff); atari_microwire_cmd(MW_LM1992_BALLEFT(dmasound.volume_left)); dmasound.volume_right = VOLUME_VOXWARE_TO_DB((volume & 0xff00) >> 8); atari_microwire_cmd(MW_LM1992_BALRIGHT(dmasound.volume_right)); return VOLUME_DB_TO_VOXWARE(dmasound.volume_left) | (VOLUME_DB_TO_VOXWARE(dmasound.volume_right) << 8); } #define GAIN_VOXWARE_TO_DB(v) \ (((v) < 0) ? -80 : ((v) > 100) ? 0 : ((v) * 4) / 5 - 80) #define GAIN_DB_TO_VOXWARE(v) ((((v) + 80) * 5 + 1) / 4) static int TTSetGain(int gain) { dmasound.gain = GAIN_VOXWARE_TO_DB(gain); atari_microwire_cmd(MW_LM1992_VOLUME(dmasound.gain)); return GAIN_DB_TO_VOXWARE(dmasound.gain); } /* * Falcon */ static void FalconSilence(void) { /* stop playback, set sample rate 50kHz for PSG sound */ tt_dmasnd.ctrl = DMASND_CTRL_OFF; tt_dmasnd.mode = DMASND_MODE_50KHZ | DMASND_MODE_STEREO | DMASND_MODE_8BIT; tt_dmasnd.int_div = 0; /* STE compatible divider */ tt_dmasnd.int_ctrl = 0x0; tt_dmasnd.cbar_src = 0x0000; /* no matrix inputs */ tt_dmasnd.cbar_dst = 0x0000; /* no matrix outputs */ tt_dmasnd.dac_src = 1; /* connect ADC to DAC, disconnect matrix */ tt_dmasnd.adc_src = 3; /* ADC Input = PSG */ } static void FalconInit(void) { int divider, i, idx; const int freq[8] = {49170, 32780, 24585, 19668, 16390, 12292, 9834, 8195}; /* search a frequency that fits into the allowed error range */ idx = -1; for (i = 0; i < ARRAY_SIZE(freq); i++) /* if we will tolerate 3% error 8000Hz->8195Hz (2.38%) would * be playable without expanding, but that now a kernel runtime * option */ if ((100 * abs(dmasound.soft.speed - freq[i]) / freq[i]) < catchRadius) idx = i; if (idx > -1) { dmasound.soft.speed = freq[idx]; dmasound.trans_write = &transFalconNormal; } else dmasound.trans_write = &transFalconExpanding; FalconSilence(); dmasound.hard = dmasound.soft; if (dmasound.hard.size == 16) { /* the Falcon can play 16bit samples only in stereo */ dmasound.hard.stereo = 1; } if (dmasound.hard.speed > 49170) { /* we would need to squeeze the sound, but we won't do that */ dmasound.hard.speed = 49170; divider = 1; dmasound.trans_write = &transFalconNormal; } else if (dmasound.hard.speed > 32780) { dmasound.hard.speed = 49170; divider = 1; } else if (dmasound.hard.speed > 24585) { dmasound.hard.speed = 32780; divider = 2; } else if (dmasound.hard.speed > 19668) { dmasound.hard.speed = 24585; divider = 3; } else if (dmasound.hard.speed > 16390) { dmasound.hard.speed = 19668; divider = 4; } else if (dmasound.hard.speed > 12292) { dmasound.hard.speed = 16390; divider = 5; } else if (dmasound.hard.speed > 9834) { dmasound.hard.speed = 12292; divider = 7; } else if (dmasound.hard.speed > 8195) { dmasound.hard.speed = 9834; divider = 9; } else { dmasound.hard.speed = 8195; divider = 11; } tt_dmasnd.int_div = divider; /* Setup Falcon sound DMA for playback */ tt_dmasnd.int_ctrl = 0x4; /* Timer A int at play end */ tt_dmasnd.track_select = 0x0; /* play 1 track, track 1 */ tt_dmasnd.cbar_src = 0x0001; /* DMA(25MHz) --> DAC */ tt_dmasnd.cbar_dst = 0x0000; tt_dmasnd.rec_track_select = 0; tt_dmasnd.dac_src = 2; /* connect matrix to DAC */ tt_dmasnd.adc_src = 0; /* ADC Input = Mic */ tt_dmasnd.mode = (dmasound.hard.stereo ? DMASND_MODE_STEREO : DMASND_MODE_MONO) | ((dmasound.hard.size == 8) ? DMASND_MODE_8BIT : DMASND_MODE_16BIT) | DMASND_MODE_6KHZ; expand_bal = -dmasound.soft.speed; } static int FalconSetFormat(int format) { int size; /* Falcon sound DMA supports 8bit and 16bit modes */ switch (format) { case AFMT_QUERY: return dmasound.soft.format; case AFMT_MU_LAW: case AFMT_A_LAW: case AFMT_U8: case AFMT_S8: size = 8; break; case AFMT_S16_BE: case AFMT_U16_BE: case AFMT_S16_LE: case AFMT_U16_LE: size = 16; break; default: /* :-) */ size = 8; format = AFMT_S8; } dmasound.soft.format = format; dmasound.soft.size = size; if (dmasound.minDev == SND_DEV_DSP) { dmasound.dsp.format = format; dmasound.dsp.size = dmasound.soft.size; } FalconInit(); return format; } /* This is for the Falcon output *attenuation* in 1.5dB steps, * i.e. output level from 0 to -22.5dB in -1.5dB steps. */ #define VOLUME_VOXWARE_TO_ATT(v) \ ((v) < 0 ? 15 : (v) > 100 ? 0 : 15 - (v) * 3 / 20) #define VOLUME_ATT_TO_VOXWARE(v) (100 - (v) * 20 / 3) static int FalconSetVolume(int volume) { dmasound.volume_left = VOLUME_VOXWARE_TO_ATT(volume & 0xff); dmasound.volume_right = VOLUME_VOXWARE_TO_ATT((volume & 0xff00) >> 8); tt_dmasnd.output_atten = dmasound.volume_left << 8 | dmasound.volume_right << 4; return VOLUME_ATT_TO_VOXWARE(dmasound.volume_left) | VOLUME_ATT_TO_VOXWARE(dmasound.volume_right) << 8; } static void AtaPlayNextFrame(int index) { char *start, *end; /* used by AtaPlay() if all doubts whether there really is something * to be played are already wiped out. */ start = write_sq.buffers[write_sq.front]; end = start+((write_sq.count == index) ? write_sq.rear_size : write_sq.block_size); /* end might not be a legal virtual address. */ DMASNDSetEnd(virt_to_phys(end - 1) + 1); DMASNDSetBase(virt_to_phys(start)); /* Since only an even number of samples per frame can be played, we might lose one byte here. (TO DO) */ write_sq.front = (write_sq.front+1) % write_sq.max_count; write_sq.active++; tt_dmasnd.ctrl = DMASND_CTRL_ON | DMASND_CTRL_REPEAT; } static void AtaPlay(void) { /* ++TeSche: Note that write_sq.active is no longer just a flag but * holds the number of frames the DMA is currently programmed for * instead, may be 0, 1 (currently being played) or 2 (pre-programmed). * * Changes done to write_sq.count and write_sq.active are a bit more * subtle again so now I must admit I also prefer disabling the irq * here rather than considering all possible situations. But the point * is that disabling the irq doesn't have any bad influence on this * version of the driver as we benefit from having pre-programmed the * DMA wherever possible: There's no need to reload the DMA at the * exact time of an interrupt but only at some time while the * pre-programmed frame is playing! */ atari_disable_irq(IRQ_MFP_TIMA); if (write_sq.active == 2 || /* DMA is 'full' */ write_sq.count <= 0) { /* nothing to do */ atari_enable_irq(IRQ_MFP_TIMA); return; } if (write_sq.active == 0) { /* looks like there's nothing 'in' the DMA yet, so try * to put two frames into it (at least one is available). */ if (write_sq.count == 1 && write_sq.rear_size < write_sq.block_size && !write_sq.syncing) { /* hmmm, the only existing frame is not * yet filled and we're not syncing? */ atari_enable_irq(IRQ_MFP_TIMA); return; } AtaPlayNextFrame(1); if (write_sq.count == 1) { /* no more frames */ atari_enable_irq(IRQ_MFP_TIMA); return; } if (write_sq.count == 2 && write_sq.rear_size < write_sq.block_size && !write_sq.syncing) { /* hmmm, there were two frames, but the second * one is not yet filled and we're not syncing? */ atari_enable_irq(IRQ_MFP_TIMA); return; } AtaPlayNextFrame(2); } else { /* there's already a frame being played so we may only stuff * one new into the DMA, but even if this may be the last * frame existing the previous one is still on write_sq.count. */ if (write_sq.count == 2 && write_sq.rear_size < write_sq.block_size && !write_sq.syncing) { /* hmmm, the only existing frame is not * yet filled and we're not syncing? */ atari_enable_irq(IRQ_MFP_TIMA); return; } AtaPlayNextFrame(2); } atari_enable_irq(IRQ_MFP_TIMA); } static irqreturn_t AtaInterrupt(int irq, void *dummy) { #if 0 /* ++TeSche: if you should want to test this... */ static int cnt; if (write_sq.active == 2) if (++cnt == 10) { /* simulate losing an interrupt */ cnt = 0; return IRQ_HANDLED; } #endif spin_lock(&dmasound.lock); if (write_sq_ignore_int && is_falcon) { /* ++TeSche: Falcon only: ignore first irq because it comes * immediately after starting a frame. after that, irqs come * (almost) like on the TT. */ write_sq_ignore_int = 0; goto out; } if (!write_sq.active) { /* playing was interrupted and sq_reset() has already cleared * the sq variables, so better don't do anything here. */ WAKE_UP(write_sq.sync_queue); goto out; } /* Probably ;) one frame is finished. Well, in fact it may be that a * pre-programmed one is also finished because there has been a long * delay in interrupt delivery and we've completely lost one, but * there's no way to detect such a situation. In such a case the last * frame will be played more than once and the situation will recover * as soon as the irq gets through. */ write_sq.count--; write_sq.active--; if (!write_sq.active) { tt_dmasnd.ctrl = DMASND_CTRL_OFF; write_sq_ignore_int = 1; } WAKE_UP(write_sq.action_queue); /* At least one block of the queue is free now so wake up a writing process blocked because of a full queue. */ if ((write_sq.active != 1) || (write_sq.count != 1)) /* We must be a bit carefully here: write_sq.count indicates the * number of buffers used and not the number of frames to be * played. If write_sq.count==1 and write_sq.active==1 that * means the only remaining frame was already programmed * earlier (and is currently running) so we mustn't call * AtaPlay() here, otherwise we'll play one frame too much. */ AtaPlay(); if (!write_sq.active) WAKE_UP(write_sq.sync_queue); /* We are not playing after AtaPlay(), so there is nothing to play any more. Wake up a process waiting for audio output to drain. */ out: spin_unlock(&dmasound.lock); return IRQ_HANDLED; } /*** Mid level stuff *********************************************************/ /* * /dev/mixer abstraction */ #define RECLEVEL_VOXWARE_TO_GAIN(v) \ ((v) < 0 ? 0 : (v) > 100 ? 15 : (v) * 3 / 20) #define RECLEVEL_GAIN_TO_VOXWARE(v) (((v) * 20 + 2) / 3) static void __init TTMixerInit(void) { atari_microwire_cmd(MW_LM1992_VOLUME(0)); dmasound.volume_left = 0; atari_microwire_cmd(MW_LM1992_BALLEFT(0)); dmasound.volume_right = 0; atari_microwire_cmd(MW_LM1992_BALRIGHT(0)); atari_microwire_cmd(MW_LM1992_TREBLE(0)); atari_microwire_cmd(MW_LM1992_BASS(0)); } static void __init FalconMixerInit(void) { dmasound.volume_left = (tt_dmasnd.output_atten & 0xf00) >> 8; dmasound.volume_right = (tt_dmasnd.output_atten & 0xf0) >> 4; } static int AtaMixerIoctl(u_int cmd, u_long arg) { int data; unsigned long flags; switch (cmd) { case SOUND_MIXER_READ_SPEAKER: if (is_falcon || MACH_IS_TT) { int porta; spin_lock_irqsave(&dmasound.lock, flags); sound_ym.rd_data_reg_sel = 14; porta = sound_ym.rd_data_reg_sel; spin_unlock_irqrestore(&dmasound.lock, flags); return IOCTL_OUT(arg, porta & 0x40 ? 0 : 100); } break; case SOUND_MIXER_WRITE_VOLUME: IOCTL_IN(arg, data); return IOCTL_OUT(arg, dmasound_set_volume(data)); case SOUND_MIXER_WRITE_SPEAKER: if (is_falcon || MACH_IS_TT) { int porta; IOCTL_IN(arg, data); spin_lock_irqsave(&dmasound.lock, flags); sound_ym.rd_data_reg_sel = 14; porta = (sound_ym.rd_data_reg_sel & ~0x40) | (data < 50 ? 0x40 : 0); sound_ym.wd_data = porta; spin_unlock_irqrestore(&dmasound.lock, flags); return IOCTL_OUT(arg, porta & 0x40 ? 0 : 100); } } return -EINVAL; } static int TTMixerIoctl(u_int cmd, u_long arg) { int data; switch (cmd) { case SOUND_MIXER_READ_RECMASK: return IOCTL_OUT(arg, 0); case SOUND_MIXER_READ_DEVMASK: return IOCTL_OUT(arg, SOUND_MASK_VOLUME | SOUND_MASK_TREBLE | SOUND_MASK_BASS | (MACH_IS_TT ? SOUND_MASK_SPEAKER : 0)); case SOUND_MIXER_READ_STEREODEVS: return IOCTL_OUT(arg, SOUND_MASK_VOLUME); case SOUND_MIXER_READ_VOLUME: return IOCTL_OUT(arg, VOLUME_DB_TO_VOXWARE(dmasound.volume_left) | (VOLUME_DB_TO_VOXWARE(dmasound.volume_right) << 8)); case SOUND_MIXER_READ_BASS: return IOCTL_OUT(arg, TONE_DB_TO_VOXWARE(dmasound.bass)); case SOUND_MIXER_READ_TREBLE: return IOCTL_OUT(arg, TONE_DB_TO_VOXWARE(dmasound.treble)); case SOUND_MIXER_READ_OGAIN: return IOCTL_OUT(arg, GAIN_DB_TO_VOXWARE(dmasound.gain)); case SOUND_MIXER_WRITE_BASS: IOCTL_IN(arg, data); return IOCTL_OUT(arg, dmasound_set_bass(data)); case SOUND_MIXER_WRITE_TREBLE: IOCTL_IN(arg, data); return IOCTL_OUT(arg, dmasound_set_treble(data)); case SOUND_MIXER_WRITE_OGAIN: IOCTL_IN(arg, data); return IOCTL_OUT(arg, dmasound_set_gain(data)); } return AtaMixerIoctl(cmd, arg); } static int FalconMixerIoctl(u_int cmd, u_long arg) { int data; switch (cmd) { case SOUND_MIXER_READ_RECMASK: return IOCTL_OUT(arg, SOUND_MASK_MIC); case SOUND_MIXER_READ_DEVMASK: return IOCTL_OUT(arg, SOUND_MASK_VOLUME | SOUND_MASK_MIC | SOUND_MASK_SPEAKER); case SOUND_MIXER_READ_STEREODEVS: return IOCTL_OUT(arg, SOUND_MASK_VOLUME | SOUND_MASK_MIC); case SOUND_MIXER_READ_VOLUME: return IOCTL_OUT(arg, VOLUME_ATT_TO_VOXWARE(dmasound.volume_left) | VOLUME_ATT_TO_VOXWARE(dmasound.volume_right) << 8); case SOUND_MIXER_READ_CAPS: return IOCTL_OUT(arg, SOUND_CAP_EXCL_INPUT); case SOUND_MIXER_WRITE_MIC: IOCTL_IN(arg, data); tt_dmasnd.input_gain = RECLEVEL_VOXWARE_TO_GAIN(data & 0xff) << 4 | RECLEVEL_VOXWARE_TO_GAIN(data >> 8 & 0xff); fallthrough; /* return set value */ case SOUND_MIXER_READ_MIC: return IOCTL_OUT(arg, RECLEVEL_GAIN_TO_VOXWARE(tt_dmasnd.input_gain >> 4 & 0xf) | RECLEVEL_GAIN_TO_VOXWARE(tt_dmasnd.input_gain & 0xf) << 8); } return AtaMixerIoctl(cmd, arg); } static int AtaWriteSqSetup(void) { write_sq_ignore_int = 0; return 0 ; } static int AtaSqOpen(fmode_t mode) { write_sq_ignore_int = 1; return 0 ; } static int TTStateInfo(char *buffer, size_t space) { int len = 0; len += sprintf(buffer+len, "\tvol left %ddB [-40... 0]\n", dmasound.volume_left); len += sprintf(buffer+len, "\tvol right %ddB [-40... 0]\n", dmasound.volume_right); len += sprintf(buffer+len, "\tbass %ddB [-12...+12]\n", dmasound.bass); len += sprintf(buffer+len, "\ttreble %ddB [-12...+12]\n", dmasound.treble); if (len >= space) { printk(KERN_ERR "dmasound_atari: overflowed state buffer alloc.\n") ; len = space ; } return len; } static int FalconStateInfo(char *buffer, size_t space) { int len = 0; len += sprintf(buffer+len, "\tvol left %ddB [-22.5 ... 0]\n", dmasound.volume_left); len += sprintf(buffer+len, "\tvol right %ddB [-22.5 ... 0]\n", dmasound.volume_right); if (len >= space) { printk(KERN_ERR "dmasound_atari: overflowed state buffer alloc.\n") ; len = space ; } return len; } /*** Machine definitions *****************************************************/ static SETTINGS def_hard_falcon = { .format = AFMT_S8, .stereo = 0, .size = 8, .speed = 8195 } ; static SETTINGS def_hard_tt = { .format = AFMT_S8, .stereo = 0, .size = 8, .speed = 12517 } ; static SETTINGS def_soft = { .format = AFMT_U8, .stereo = 0, .size = 8, .speed = 8000 } ; static __initdata MACHINE machTT = { .name = "Atari", .name2 = "TT", .owner = THIS_MODULE, .dma_alloc = AtaAlloc, .dma_free = AtaFree, .irqinit = AtaIrqInit, #ifdef MODULE .irqcleanup = AtaIrqCleanUp, #endif /* MODULE */ .init = TTInit, .silence = TTSilence, .setFormat = TTSetFormat, .setVolume = TTSetVolume, .setBass = AtaSetBass, .setTreble = AtaSetTreble, .setGain = TTSetGain, .play = AtaPlay, .mixer_init = TTMixerInit, .mixer_ioctl = TTMixerIoctl, .write_sq_setup = AtaWriteSqSetup, .sq_open = AtaSqOpen, .state_info = TTStateInfo, .min_dsp_speed = 6258, .version = ((DMASOUND_ATARI_REVISION<<8) | DMASOUND_ATARI_EDITION), .hardware_afmts = AFMT_S8, /* h'ware-supported formats *only* here */ .capabilities = DSP_CAP_BATCH /* As per SNDCTL_DSP_GETCAPS */ }; static __initdata MACHINE machFalcon = { .name = "Atari", .name2 = "FALCON", .dma_alloc = AtaAlloc, .dma_free = AtaFree, .irqinit = AtaIrqInit, #ifdef MODULE .irqcleanup = AtaIrqCleanUp, #endif /* MODULE */ .init = FalconInit, .silence = FalconSilence, .setFormat = FalconSetFormat, .setVolume = FalconSetVolume, .setBass = AtaSetBass, .setTreble = AtaSetTreble, .play = AtaPlay, .mixer_init = FalconMixerInit, .mixer_ioctl = FalconMixerIoctl, .write_sq_setup = AtaWriteSqSetup, .sq_open = AtaSqOpen, .state_info = FalconStateInfo, .min_dsp_speed = 8195, .version = ((DMASOUND_ATARI_REVISION<<8) | DMASOUND_ATARI_EDITION), .hardware_afmts = (AFMT_S8 | AFMT_S16_BE), /* h'ware-supported formats *only* here */ .capabilities = DSP_CAP_BATCH /* As per SNDCTL_DSP_GETCAPS */ }; /*** Config & Setup **********************************************************/ static int __init dmasound_atari_init(void) { if (MACH_IS_ATARI && ATARIHW_PRESENT(PCM_8BIT)) { if (ATARIHW_PRESENT(CODEC)) { dmasound.mach = machFalcon; dmasound.mach.default_soft = def_soft ; dmasound.mach.default_hard = def_hard_falcon ; is_falcon = 1; } else if (ATARIHW_PRESENT(MICROWIRE)) { dmasound.mach = machTT; dmasound.mach.default_soft = def_soft ; dmasound.mach.default_hard = def_hard_tt ; is_falcon = 0; } else return -ENODEV; if ((st_mfp.int_en_a & st_mfp.int_mk_a & 0x20) == 0) return dmasound_init(); else { printk("DMA sound driver: Timer A interrupt already in use\n"); return -EBUSY; } } return -ENODEV; } static void __exit dmasound_atari_cleanup(void) { dmasound_deinit(); } module_init(dmasound_atari_init); module_exit(dmasound_atari_cleanup); MODULE_LICENSE("GPL");