/************************************************************************** Votrax SC-01 Emulator Mike@Dissfulfils.co.uk ************************************************************************** DEVICE_START(votrax)- Start emulation, load samples from Votrax subdirectory votrax_w - Write data to votrax port votrax_status_r - Return busy status (-1 = busy) If you need to alter the base frequency (i.e. Qbert) then just alter the variable VotraxBaseFrequency, this is defaulted to 8000 **************************************************************************/ #include "emu.h" #include "streams.h" #include "samples.h" #include "votrax.h" typedef struct _votrax_state votrax_state; struct _votrax_state { running_device *device; int stream; int frequency; /* Some games (Qbert) change this */ int volume; sound_stream * channel; loaded_sample *sample; UINT32 pos; UINT32 frac; UINT32 step; loaded_samples *samples; }; INLINE votrax_state *get_safe_token(running_device *device) { assert(device != NULL); assert(device->type() == SOUND_VOTRAX); return (votrax_state *)downcast(device)->token(); } #define FRAC_BITS 24 #define FRAC_ONE (1 << FRAC_BITS) #define FRAC_MASK (FRAC_ONE - 1) /**************************************************************************** * 64 Phonemes - currently 1 sample per phoneme, will be combined sometime! ****************************************************************************/ static const char *const VotraxTable[65] = { "EH3","EH2","EH1","PA0","DT" ,"A1" ,"A2" ,"ZH", "AH2","I3" ,"I2" ,"I1" ,"M" ,"N" ,"B" ,"V", "CH" ,"SH" ,"Z" ,"AW1","NG" ,"AH1","OO1","OO", "L" ,"K" ,"J" ,"H" ,"G" ,"F" ,"D" ,"S", "A" ,"AY" ,"Y1" ,"UH3","AH" ,"P" ,"O" ,"I", "U" ,"Y" ,"T" ,"R" ,"E" ,"W" ,"AE" ,"AE1", "AW2","UH2","UH1","UH" ,"O2" ,"O1" ,"IU" ,"U1", "THV","TH" ,"ER" ,"EH" ,"E1" ,"AW" ,"PA1","STOP", 0 }; static STREAM_UPDATE( votrax_update_sound ) { votrax_state *info = (votrax_state*) param; stream_sample_t *buffer = outputs[0]; if (info->sample) { /* load some info locally */ UINT32 pos = info->pos; UINT32 frac = info->frac; UINT32 step = info->step; UINT32 length = info->sample->length; INT16 *sample = info->sample->data; while (length--) { /* do a linear interp on the sample */ INT32 sample1 = sample[pos]; INT32 sample2 = sample[(pos + 1) % length]; INT32 fracmult = frac >> (FRAC_BITS - 14); *buffer++ = ((0x4000 - fracmult) * sample1 + fracmult * sample2) >> 14; /* advance */ frac += step; pos += frac >> FRAC_BITS; frac = frac & ((1 << FRAC_BITS) - 1); /* handle looping/ending */ if (pos >= length) { info->sample = NULL; break; } } /* push position back out */ info->pos = pos; info->frac = frac; } } static DEVICE_START( votrax ) { votrax_state *votrax = get_safe_token(device); votrax->device = device; votrax->samples = readsamples(device->machine,VotraxTable,"votrax"); votrax->frequency = 8000; votrax->volume = 230; votrax->channel = stream_create(device, 0, 1, device->machine->sample_rate, votrax, votrax_update_sound); votrax->sample = NULL; votrax->step = 0; } WRITE8_DEVICE_HANDLER( votrax_w ) { votrax_state *info = get_safe_token(device); int Phoneme,Intonation; stream_update(info->channel); Phoneme = data & 0x3F; Intonation = data >> 6; logerror("Speech : %s at intonation %d\n",VotraxTable[Phoneme],Intonation); if(Phoneme==63) info->sample = NULL; if(info->samples->sample[Phoneme].data) { info->sample = &info->samples->sample[Phoneme]; info->pos = 0; info->frac = 0; info->step = ((INT64)(info->sample->frequency + (256*Intonation)) << FRAC_BITS) / info->device->machine->sample_rate; stream_set_output_gain(info->channel, 0, (info->volume + (8*Intonation)*100/255) / 100.0); } } int votrax_status_r(running_device *device) { votrax_state *info = get_safe_token(device); stream_update(info->channel); return (info->sample != NULL); } /************************************************************************** * Generic get_info **************************************************************************/ DEVICE_GET_INFO( votrax ) { switch (state) { /* --- the following bits of info are returned as 64-bit signed integers --- */ case DEVINFO_INT_TOKEN_BYTES: info->i = sizeof(votrax_state); break; /* --- the following bits of info are returned as pointers to data or functions --- */ case DEVINFO_FCT_START: info->start = DEVICE_START_NAME( votrax ); break; case DEVINFO_FCT_STOP: /* Nothing */ 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, "Votrax SC-01"); break; case DEVINFO_STR_FAMILY: strcpy(info->s, "Votrax speech"); 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; } }