cog/Frameworks/GME/vgmplay/chips/qsound.c

484 lines
12 KiB
C
Raw Normal View History

/***************************************************************************
Capcom System QSound(tm)
========================
Driver by Paul Leaman (paul@vortexcomputing.demon.co.uk)
and Miguel Angel Horna (mahorna@teleline.es)
A 16 channel stereo sample player.
QSpace position is simulated by panning the sound in the stereo space.
Register
0 xxbb xx = unknown bb = start high address
1 ssss ssss = sample start address
2 pitch
3 unknown (always 0x8000)
4 loop offset from end address
5 end
6 master channel volume
7 not used
8 Balance (left=0x0110 centre=0x0120 right=0x0130)
9 unknown (most fixed samples use 0 for this register)
Many thanks to CAB (the author of Amuse), without whom this probably would
never have been finished.
If anybody has some information about this hardware, please send it to me
to mahorna@teleline.es or 432937@cepsz.unizar.es.
http://teleline.terra.es/personal/mahorna
***************************************************************************/
//#include "emu.h"
#include "mamedef.h"
#ifdef _DEBUG
#include <stdio.h>
#endif
#include <memory.h>
#include <stdlib.h>
#include <math.h>
#include "qsound.h"
#define NULL ((void *)0)
/*
Debug defines
*/
#define LOG_WAVE 0
#define VERBOSE 0
#define LOG(x) do { if (VERBOSE) logerror x; } while (0)
/* 8 bit source ROM samples */
typedef INT8 QSOUND_SRC_SAMPLE;
#define QSOUND_CLOCKDIV 166 /* Clock divider */
#define QSOUND_CHANNELS 16
typedef stream_sample_t QSOUND_SAMPLE;
struct QSOUND_CHANNEL
{
UINT32 bank; // bank
UINT32 address; // start/cur address
UINT16 loop; // loop address
UINT16 end; // end address
UINT32 freq; // frequency
UINT16 vol; // master volume
// work variables
UINT8 enabled; // key on / key off
int lvol; // left volume
int rvol; // right volume
UINT32 step_ptr; // current offset counter
UINT8 Muted;
};
typedef struct _qsound_state qsound_state;
struct _qsound_state
{
/* Private variables */
//sound_stream * stream; /* Audio stream */
struct QSOUND_CHANNEL channel[QSOUND_CHANNELS];
UINT16 data; /* register latch data */
QSOUND_SRC_SAMPLE *sample_rom; /* Q sound sample ROM */
UINT32 sample_rom_length;
int pan_table[33]; /* Pan volume table */
//FILE *fpRawDataL;
//FILE *fpRawDataR;
};
/*INLINE qsound_state *get_safe_token(device_t *device)
{
assert(device != NULL);
assert(device->type() == QSOUND);
return (qsound_state *)downcast<legacy_device_base *>(device)->token();
}*/
/* Function prototypes */
//static STREAM_UPDATE( qsound_update );
static void qsound_set_command(qsound_state *chip, UINT8 address, UINT16 data);
//static DEVICE_START( qsound )
int device_start_qsound(void **_info, int clock)
{
//qsound_state *chip = get_safe_token(device);
qsound_state *chip;
int i;
chip = (qsound_state *) calloc(1, sizeof(qsound_state));
*_info = (void *) chip;
//chip->sample_rom = (QSOUND_SRC_SAMPLE *)*device->region();
//chip->sample_rom_length = device->region()->bytes();
chip->sample_rom = NULL;
chip->sample_rom_length = 0x00;
/* Create pan table */
for (i=0; i<33; i++)
chip->pan_table[i]=(int)((256/sqrt(32.0)) * sqrt((double)i));
// init sound regs
memset(chip->channel, 0, sizeof(chip->channel));
// LOG(("Pan table\n"));
// for (i=0; i<33; i++)
// LOG(("%02x ", chip->pan_table[i]));
/* Allocate stream */
/*chip->stream = device->machine().sound().stream_alloc(
*device, 0, 2,
device->clock() / QSOUND_CLOCKDIV,
chip,
qsound_update );*/
/*if (LOG_WAVE)
{
chip->fpRawDataR=fopen("qsoundr.raw", "w+b");
chip->fpRawDataL=fopen("qsoundl.raw", "w+b");
}*/
/* state save */
/*for (i=0; i<QSOUND_CHANNELS; i++)
{
device->save_item(NAME(chip->channel[i].bank), i);
device->save_item(NAME(chip->channel[i].address), i);
device->save_item(NAME(chip->channel[i].pitch), i);
device->save_item(NAME(chip->channel[i].loop), i);
device->save_item(NAME(chip->channel[i].end), i);
device->save_item(NAME(chip->channel[i].vol), i);
device->save_item(NAME(chip->channel[i].pan), i);
device->save_item(NAME(chip->channel[i].key), i);
device->save_item(NAME(chip->channel[i].lvol), i);
device->save_item(NAME(chip->channel[i].rvol), i);
device->save_item(NAME(chip->channel[i].lastdt), i);
device->save_item(NAME(chip->channel[i].offset), i);
}*/
for (i = 0; i < QSOUND_CHANNELS; i ++)
chip->channel[i].Muted = 0x00;
return clock / QSOUND_CLOCKDIV;
}
//static DEVICE_STOP( qsound )
void device_stop_qsound(void *_info)
{
//qsound_state *chip = get_safe_token(device);
qsound_state *chip = (qsound_state *)_info;
/*if (chip->fpRawDataR)
{
fclose(chip->fpRawDataR);
}
chip->fpRawDataR = NULL;
if (chip->fpRawDataL)
{
fclose(chip->fpRawDataL);
}
chip->fpRawDataL = NULL;*/
free(chip->sample_rom); chip->sample_rom = NULL;
free(chip);
}
void device_reset_qsound(void *_info)
{
qsound_state *chip = (qsound_state *)_info;
int adr;
// init sound regs
memset(chip->channel, 0, sizeof(chip->channel));
for (adr = 0x7f; adr >= 0; adr--)
qsound_set_command(chip, adr, 0);
for (adr = 0x80; adr < 0x90; adr++)
qsound_set_command(chip, adr, 0x120);
return;
}
//WRITE8_DEVICE_HANDLER( qsound_w )
void qsound_w(void *_info, offs_t offset, UINT8 data)
{
//qsound_state *chip = get_safe_token(device);
qsound_state *chip = (qsound_state *)_info;
switch (offset)
{
case 0:
chip->data=(chip->data&0xff)|(data<<8);
break;
case 1:
chip->data=(chip->data&0xff00)|data;
break;
case 2:
qsound_set_command(chip, data, chip->data);
break;
default:
//logerror("%s: unexpected qsound write to offset %d == %02X\n", device->machine().describe_context(), offset, data);
logerror("QSound: unexpected qsound write to offset %d == %02X\n", offset, data);
break;
}
}
//READ8_DEVICE_HANDLER( qsound_r )
UINT8 qsound_r(void *chip, offs_t offset)
{
/* Port ready bit (0x80 if ready) */
return 0x80;
}
static void qsound_set_command(qsound_state *chip, UINT8 address, UINT16 data)
{
int ch = 0, reg = 0;
// direct sound reg
if (address < 0x80)
{
ch = address >> 3;
reg = address & 0x07;
}
// >= 0x80 is probably for the dsp?
else if (address < 0x90)
{
ch = address & 0x0F;
reg = 8;
}
else if (address >= 0xba && address < 0xca)
{
ch = address - 0xba;
reg=9;
}
else
{
/* Unknown registers */
ch = 99;
reg = 99;
}
switch (reg)
{
case 0:
// bank, high bits unknown
ch = (ch + 1) & 0x0f; /* strange ... */
chip->channel[ch].bank = (data & 0x7f) << 16; // Note: The most recent MAME doesn't do "& 0x7F"
//#ifdef _DEBUG
if (data && !(data & 0x8000))
printf("QSound Ch %u: Bank = %04x\n",ch,data);
//#endif
break;
case 1:
// start/cur address
chip->channel[ch].address = data;
break;
case 2:
// frequency
chip->channel[ch].freq = data;
// This was working with the old code, but breaks the songs with the new one.
// And I'm pretty sure the hardware won't do this. -Valley Bell
/*if (!data)
{
// key off
chip->channel[ch].enabled = 0;
}*/
break;
case 3:
//#ifdef _DEBUG
if (chip->channel[ch].enabled && data != 0x8000)
printf("QSound Ch %u: KeyOn = %04x\n",ch,data);
//#endif
// key on (does the value matter? it always writes 0x8000)
//chip->channel[ch].enabled = 1;
chip->channel[ch].enabled = (data & 0x8000) >> 15;
chip->channel[ch].step_ptr = 0;
break;
case 4:
// loop address
chip->channel[ch].loop = data;
break;
case 5:
// end address
chip->channel[ch].end = data;
break;
case 6:
// master volume
if (! chip->channel[ch].enabled && data)
printf("QSound update warning - please report!\n");
chip->channel[ch].vol = data;
break;
case 7:
// unused?
#ifdef MAME_DEBUG
popmessage("UNUSED QSOUND REG 7=%04x",data);
#endif
break;
case 8:
{
// panning (left=0x0110, centre=0x0120, right=0x0130)
// looks like it doesn't write other values than that
int pan = (data & 0x3f) - 0x10;
if (pan > 0x20)
pan = 0x20;
if (pan < 0)
pan = 0;
chip->channel[ch].rvol=chip->pan_table[pan];
chip->channel[ch].lvol=chip->pan_table[0x20 - pan];
}
break;
case 9:
// unknown
/*
#ifdef MAME_DEBUG
popmessage("QSOUND REG 9=%04x",data);
#endif
*/
break;
default:
//logerror("%s: write_data %02x = %04x\n", machine().describe_context(), address, data);
break;
}
//LOG(("QSOUND WRITE %02x CH%02d-R%02d =%04x\n", address, ch, reg, data));
}
//static STREAM_UPDATE( qsound_update )
void qsound_update(void *param, stream_sample_t **outputs, int samples)
{
qsound_state *chip = (qsound_state *)param;
int i,j;
UINT32 offset;
UINT32 advance;
INT8 sample;
struct QSOUND_CHANNEL *pC=&chip->channel[0];
memset( outputs[0], 0x00, samples * sizeof(*outputs[0]) );
memset( outputs[1], 0x00, samples * sizeof(*outputs[1]) );
if (! chip->sample_rom_length)
return;
for (i=0; i<QSOUND_CHANNELS; i++, pC++)
{
if (pC->enabled && ! pC->Muted)
{
QSOUND_SAMPLE *pOutL=outputs[0];
QSOUND_SAMPLE *pOutR=outputs[1];
for (j=samples-1; j>=0; j--)
{
advance = (pC->step_ptr >> 12);
pC->step_ptr &= 0xfff;
pC->step_ptr += pC->freq;
if (advance)
{
pC->address += advance;
if (pC->freq && pC->address >= pC->end)
{
if (pC->loop)
{
// Reached the end, restart the loop
pC->address -= pC->loop;
// Make sure we don't overflow (what does the real chip do in this case?)
if (pC->address >= pC->end)
pC->address = pC->end - pC->loop;
pC->address &= 0xffff;
}
else
{
// Reached the end of a non-looped sample
//pC->enabled = 0;
pC->address --; // ensure that old ripped VGMs still work
pC->step_ptr += 0x1000;
break;
}
}
}
offset = (pC->bank | pC->address) % chip->sample_rom_length;
sample = chip->sample_rom[offset];
*pOutL++ += ((sample * pC->lvol * pC->vol) >> 14);
*pOutR++ += ((sample * pC->rvol * pC->vol) >> 14);
}
}
}
/*if (chip->fpRawDataL)
fwrite(outputs[0], samples*sizeof(QSOUND_SAMPLE), 1, chip->fpRawDataL);
if (chip->fpRawDataR)
fwrite(outputs[1], samples*sizeof(QSOUND_SAMPLE), 1, chip->fpRawDataR);*/
}
void qsound_write_rom(void *_info, offs_t ROMSize, offs_t DataStart, offs_t DataLength,
const UINT8* ROMData)
{
qsound_state* info = (qsound_state *)_info;
if (info->sample_rom_length != ROMSize)
{
info->sample_rom = (QSOUND_SRC_SAMPLE*)realloc(info->sample_rom, ROMSize);
info->sample_rom_length = ROMSize;
memset(info->sample_rom, 0xFF, ROMSize);
}
if (DataStart > ROMSize)
return;
if (DataStart + DataLength > ROMSize)
DataLength = ROMSize - DataStart;
memcpy(info->sample_rom + DataStart, ROMData, DataLength);
return;
}
void qsound_set_mute_mask(void *_info, UINT32 MuteMask)
{
qsound_state* info = (qsound_state *)_info;
UINT8 CurChn;
for (CurChn = 0; CurChn < QSOUND_CHANNELS; CurChn ++)
info->channel[CurChn].Muted = (MuteMask >> CurChn) & 0x01;
return;
}
/**************************************************************************
* Generic get_info
**************************************************************************/
/*DEVICE_GET_INFO( qsound )
{
switch (state)
{
// --- the following bits of info are returned as 64-bit signed integers --- //
case DEVINFO_INT_TOKEN_BYTES: info->i = sizeof(qsound_state); break;
// --- the following bits of info are returned as pointers to data or functions --- //
case DEVINFO_FCT_START: info->start = DEVICE_START_NAME( qsound ); break;
case DEVINFO_FCT_STOP: info->stop = DEVICE_STOP_NAME( qsound ); break;
case DEVINFO_FCT_RESET: // Nothing // break;
// --- the following bits of info are returned as NULL-terminated strings --- //
case DEVINFO_STR_NAME: strcpy(info->s, "Q-Sound"); break;
case DEVINFO_STR_FAMILY: strcpy(info->s, "Capcom custom"); break;
case DEVINFO_STR_VERSION: strcpy(info->s, "1.0"); break;
case DEVINFO_STR_SOURCE_FILE: strcpy(info->s, __FILE__); break;
case DEVINFO_STR_CREDITS: strcpy(info->s, "Copyright Nicola Salmoria and the MAME Team"); break;
}
}//
/**************** end of file ****************/
//DEFINE_LEGACY_SOUND_DEVICE(QSOUND, qsound);