Subversion Repositories shark

Rev

Rev 2 | Rev 1063 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

/* Project:     HARTIK 3.0 Sound Library                        */
/* Description: Hard Real TIme Kernel for 8086 compatible       */
/* Author:      Luca Abeni                                      */
/* Date:        5/12/1997                                       */

/* File:        Blaster.C                                       */
/* Revision:    3.0                                             */

/* Sound Blaster 16 specific functions and structures */

#include <kernel/kern.h>

#include <drivers/dma.h>
#include "sbio.h"
#include "blaster.h"
#include <drivers/sound.h>
#include <semaphore.h>

struct sb_device sb_dev;
struct sound_buffer buff_des;

void sbmixer_reset(void)
{
    sbmixer_write(sb_dev.BaseAddress, MIXER_RESET, 0);
}

/* Enable or disable specified mixer inputs */
void sbmixer_setinput(BYTE in, BYTE onoff)
{
    BYTE inreg;

    inreg = sbmixer_read(sb_dev.BaseAddress, MIXER_INCTRLEFT);
    if (onoff == ENABLE)
        inreg = inreg | in;
    else inreg = inreg & (!in);
    sbmixer_write(sb_dev.BaseAddress, MIXER_INCTRLEFT, inreg);
    inreg = sbmixer_read(sb_dev.BaseAddress, MIXER_INCTRRIGHT);
    if (onoff == ENABLE)
        inreg = inreg | in;
    else inreg = inreg & (!in);
    sbmixer_write(sb_dev.BaseAddress, MIXER_INCTRRIGHT, inreg);
}

/* Enable or disable specified mixer outputs */
void sbmixer_setoutput(BYTE in, BYTE onoff)
{
    BYTE inreg;

    inreg = sbmixer_read(sb_dev.BaseAddress, MIXER_OUTCTR);
    if (onoff == ENABLE)
        inreg = inreg | in;
    else inreg = inreg & (~in);
    sbmixer_write(sb_dev.BaseAddress, MIXER_OUTCTR, inreg);
}

/* Set the output level */
void sbmixer_setmiclev(BYTE level)
{
    BYTE levreg;

    levreg = sbmixer_read(sb_dev.BaseAddress, MIXER_MICLEV);
    levreg = (levreg & 0x07) | (level << 3);
    sbmixer_write(sb_dev.BaseAddress, MIXER_MICLEV, levreg);
}

/* Set the mixer input level */
void sbmixer_setingainlev(BYTE level)
{
    BYTE gainreg;

    gainreg = sbmixer_read(sb_dev.BaseAddress, MIXER_IGCRIGHT);
    gainreg = (gainreg & 0x3F) | (level << 6);
    sbmixer_write(sb_dev.BaseAddress, MIXER_IGCRIGHT, gainreg);
    gainreg = sbmixer_read(sb_dev.BaseAddress, MIXER_IGCLEFT);
    gainreg = (gainreg & 0x3F) | (level << 6);
    sbmixer_write(sb_dev.BaseAddress, MIXER_IGCLEFT, gainreg);
}

/* Enable or disable the mixer input Automatic Gain Control */
void sbmixer_setAGC(BYTE onoff)
{
    BYTE reg;

    reg = sbmixer_read(sb_dev.BaseAddress, MIXER_AGC);
    if (onoff == ENABLE)
        reg = reg & 0xFE;
    else reg = reg | 0x01;
    sbmixer_write(sb_dev.BaseAddress, MIXER_AGC, reg);
}

int sb_init(void)
{
    BYTE cfgreg;

    /* Is there a SB16 in the system? */
    if((sb_dev.BaseAddress = sb_probe()) == 0)
      return ENODEV;

    /* Yes: get the DSP version and the used interrupt and DMA Channels */
    sbdsp_write(sb_dev.BaseAddress, DSPCMD_GETVER);
    sb_dev.DSPVersionM = sbdsp_read(sb_dev.BaseAddress);
    sb_dev.DSPVersionm = sbdsp_read(sb_dev.BaseAddress);
    cfgreg = sbmixer_read(sb_dev.BaseAddress, MIXER_IRQREG);
    if (cfgreg & 1)
        sb_dev.IntLine = 2;
    if (cfgreg & 2)
        sb_dev.IntLine = 5;
    if (cfgreg & 4)
        sb_dev.IntLine = 7;
    if (cfgreg & 8)
        sb_dev.IntLine = 10;
   
    // force irq line if you use a SB PNP!!!   
    // sb_dev.IntLine = 9;
   
    cfgreg = sbmixer_read(sb_dev.BaseAddress, MIXER_DMAREG);
    if (cfgreg & 1)
        sb_dev.DMA8Channel= 0;
    if (cfgreg & 2)
        sb_dev.DMA8Channel = 1;
    if (cfgreg & 8)
        sb_dev.DMA8Channel = 3;
    if (cfgreg & 0x20)
        sb_dev.DMA16Channel = 5;
    if (cfgreg & 0x40)
        sb_dev.DMA16Channel = 6;
    if (cfgreg & 0x80)
        sb_dev.DMA16Channel = 7;

    return 0;
}

/* Show the card informations */
void sb_show(void)
{
    cprintf("        BaseAddress: %x\n", (unsigned int)sb_dev.BaseAddress);
    cprintf("        Interrupt Line: %d\n", sb_dev.IntLine);
    cprintf("        DSP Version: %d.%d\n", sb_dev.DSPVersionM, sb_dev.DSPVersionm);
    cprintf("        8 bit DMA channel: %d\n", sb_dev.DMA8Channel);
    cprintf("        16 bit DMA channel: %d\n", sb_dev.DMA16Channel);
}

void sb_spkon (void)
{
    sbdsp_write(sb_dev.BaseAddress, DSPCMD_SPKON);
}

void sb_spkoff (void)
{
    sbdsp_write(sb_dev.BaseAddress, DSPCMD_SPKOFF);
}

/* Set the DMA sampling/playing rate */
void sb_setrate (int sps, BYTE i_o)
{
    BYTE cmd;

    if (i_o == IN) cmd = DSPCMD_SETINRATE;
    else cmd = DSPCMD_SETOUTRATE;
    sbdsp_write(sb_dev.BaseAddress, cmd);
    /* MSB...*/
    sbdsp_write(sb_dev.BaseAddress, (sps >> 8) & 0xFF);
    /*...and then LSB */
    sbdsp_write(sb_dev.BaseAddress, sps & 0xFF);
}

/* Start an 8 bit sampling/playing operation */
void sb_dmaop(BYTE i_o)
{
    DWORD len;
    BYTE cmd;
    BYTE *buff;

    buff = buff_des.sound_dma->p;
    len = buff_des.sound_dma->len;
    cmd = DSPCMD_8BITIO;

    /* Stop any previous operation and reset the DMAC */
    dma_stop(sb_dev.DMA8Channel);
    dma_reset();
    /* Prepare the DMAC for the operation */
    if (i_o == OUT) {
        cmd |= SBIO_OUT;
        dma_setmode(sb_dev.DMA8Channel, 0x48);
    } else {
        cmd |= SBIO_IN;
        dma_setmode(sb_dev.DMA8Channel, 0x44);
    }
    dma_setbuff(sb_dev.DMA8Channel, buff, len);
    dma_start(sb_dev.DMA8Channel);
    /*...and start it!!! */
    sbdsp_write(sb_dev.BaseAddress, cmd);
    sbdsp_write(sb_dev.BaseAddress, IOMODE_UNSIGNED | IOMODE_MONO);
    /* LSB...*/
    sbdsp_write(sb_dev.BaseAddress, (BYTE)(len & 0xFF));
    /*...and then MSB */
    sbdsp_write(sb_dev.BaseAddress, (BYTE)((len >> 8) & 0xFF));
}

/* Start a 16 bit sampling/playing operation */
void sb_dma16op(BYTE i_o)
{
    DWORD len;
    BYTE cmd;
    BYTE *buff;

    buff = buff_des.sound_dma->p;
    len = buff_des.sound_dma->len;
    cmd = DSPCMD_16BITIO;

    /* Stop any previous operation and reset the DMAC */
    dma16_stop(sb_dev.DMA16Channel);
    dma16_reset();
    if (i_o == OUT) {
        cmd |= SBIO_OUT;
        dma16_setmode(sb_dev.DMA16Channel, 0x48);
    } else {
        cmd |= SBIO_IN;
        dma16_setmode(sb_dev.DMA16Channel, 0x44);
    }
    dma16_setbuff(sb_dev.DMA16Channel, buff, len);
    dma16_start(sb_dev.DMA16Channel);
    /*...and start it!!! */
    sbdsp_write(sb_dev.BaseAddress, cmd);
    sbdsp_write(sb_dev.BaseAddress, IOMODE_SIGNED | IOMODE_MONO);
    /* LSB...*/
    sbdsp_write(sb_dev.BaseAddress, (BYTE)(len & 0xFF));
    /*...and then MSB */
    sbdsp_write(sb_dev.BaseAddress, (BYTE)((len >> 8) & 0xFF));
}

/* Start an 8 bit sampling/playing operation using double buffer */
void sb_dmabuffop(BYTE i_o)
{
    DWORD len;
    BYTE cmd;
    struct dma_buff *buff;

    buff = buff_des.sound_dma;
    cmd = DSPCMD_8BITIO | SBIO_AUTOINIT;
    len = buff->len;
    if (i_o == OUT) {
        cmd |= SBIO_OUT;
        dma_out(sb_dev.DMA8Channel, buff);
    } else {
        cmd |= SBIO_IN;
        dma_in(sb_dev.DMA8Channel, buff);
    }
    sbdsp_write(sb_dev.BaseAddress, cmd);
    sbdsp_write(sb_dev.BaseAddress, IOMODE_UNSIGNED | IOMODE_MONO);
    sbdsp_write(sb_dev.BaseAddress, (BYTE)(((buff->dma_bufflen >> 1) - 1) & 0xFF));
    sbdsp_write(sb_dev.BaseAddress, (BYTE)((((buff->dma_bufflen >> 1) - 1) >> 8) & 0xFF));
}

/* Start a 16 bit sampling/playing operation using double buffer */
void sb_dma16buffop(BYTE i_o)
{
    DWORD len;
    BYTE cmd;
    struct dma_buff *buff;

    buff = buff_des.sound_dma;
    cmd = DSPCMD_16BITIO | SBIO_AUTOINIT;
    len = buff->len;
    if (i_o == OUT) {
        cmd |= SBIO_OUT;
        dma16_out(sb_dev.DMA16Channel, buff);
    } else {
        cmd |= SBIO_IN;
        dma16_in(sb_dev.DMA16Channel, buff);
    }
    sbdsp_write(sb_dev.BaseAddress, cmd);
    sbdsp_write(sb_dev.BaseAddress, IOMODE_SIGNED | IOMODE_MONO);
    sbdsp_write(sb_dev.BaseAddress, (BYTE)(((buff->dma_bufflen >> 2) - 1) & 0xFF));
    sbdsp_write(sb_dev.BaseAddress, (BYTE)((((buff->dma_bufflen >> 2) - 1) >> 8) & 0xFF));
}

void sb_stopdsp(BYTE bit)
{
    if (bit == 8)
        sbdsp_write(sb_dev.BaseAddress, DSPCMD_EXIT8);
    else if (bit == 16)
        sbdsp_write(sb_dev.BaseAddress, DSPCMD_EXIT16);
    else cprintf("How many bits?\n");
}

/* Sound Blaster 16 interrupt's Fast Handler */
void sb_handler(int n)
{
    switch(sbmixer_read(sb_dev.BaseAddress, MIXER_INTSTATUS) & 3) {
        case 1: ll_in(sb_dev.BaseAddress + ACK8);
                break;
        case 2: ll_in(sb_dev.BaseAddress + ACK16);
                break;
        default: cprintf("Unknown int: %x\n", sbmixer_read(sb_dev.BaseAddress, 0x82));
    }
}

/*
   This process is activated when the sound card generates an interrupt:
   it calls the function to copy data from/to the sound buffer (this function
   can be the double buffering-function or the user's self-buffering function
*/

TASK sb_proc(void)
{
    for(;;) {
        /* call the copy function */
        switch(buff_des.fun(buff_des.sound_dma)) {
            /* the operation will finish with the next interrupt */
            case 1: buff_des.fun = dummyfun1;
                    break;
            /* operation finished */
            case 2: dummyfun2(buff_des.sound_dma);
                    buff_des.fun = dummyfun2;
                    break;
            default: break;
        }
        task_endcycle();
    }
    return 0;
}

/* PIO mode sampling process */
TASK proc_sample()
{
    DWORD i;

    sbdsp_reset(sb_dev.BaseAddress);
    for(i = 0; i < buff_des.sound_dma->len; i++) {
        sbdsp_write(sb_dev.BaseAddress, DSPCMD_DIRECTIN);
        buff_des.sound_dma->p[i] = sbdsp_read(sb_dev.BaseAddress);
        task_endcycle();
    }
    /* Operation finished: if it was blocking signal */
    if (buff_des.synch) sem_post(&buff_des.synchr);
    //task_abort();
    return 0;
}

/* PIO mode playing process */
TASK proc_play()
{
    DWORD i;
   
    sbdsp_reset(sb_dev.BaseAddress);
    for(i = 0; i < buff_des.sound_dma->len; i++) {
        sbdsp_write(sb_dev.BaseAddress, DSPCMD_DIRECTOUT);
        sbdsp_write(sb_dev.BaseAddress, buff_des.sound_dma->p[i]);
        task_endcycle();
    }
    /* Operation finished: if it was blocking signal */
    if (buff_des.synch) sem_post(&buff_des.synchr);
    //task_abort();
    return 0;
}