summaryrefslogtreecommitdiffstatshomepage
path: root/trunk/src/emu/sound/msm5232.c
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/src/emu/sound/msm5232.c')
-rw-r--r--trunk/src/emu/sound/msm5232.c881
1 files changed, 881 insertions, 0 deletions
diff --git a/trunk/src/emu/sound/msm5232.c b/trunk/src/emu/sound/msm5232.c
new file mode 100644
index 00000000000..6bd50975c71
--- /dev/null
+++ b/trunk/src/emu/sound/msm5232.c
@@ -0,0 +1,881 @@
+#include "emu.h"
+
+#include "msm5232.h"
+
+#define CLOCK_RATE_DIVIDER 16
+
+/*
+ OKI MSM5232RS
+ 8 channel tone generator
+*/
+
+typedef struct {
+ UINT8 mode;
+
+ int TG_count_period;
+ int TG_count;
+
+ UINT8 TG_cnt; /* 7 bits binary counter (frequency output) */
+ UINT8 TG_out16; /* bit number (of TG_cnt) for 16' output */
+ UINT8 TG_out8; /* bit number (of TG_cnt) for 8' output */
+ UINT8 TG_out4; /* bit number (of TG_cnt) for 4' output */
+ UINT8 TG_out2; /* bit number (of TG_cnt) for 2' output */
+
+ int egvol;
+ int eg_sect;
+ int counter;
+ int eg;
+
+ UINT8 eg_arm; /* attack/release mode */
+
+ double ar_rate;
+ double dr_rate;
+ double rr_rate;
+
+ int pitch; /* current pitch data */
+
+ int GF;
+} VOICE;
+
+
+typedef struct {
+ sound_stream *stream;
+
+ VOICE voi[8];
+
+ UINT32 EN_out16[2]; /* enable 16' output masks for both groups (0-disabled ; ~0 -enabled) */
+ UINT32 EN_out8[2]; /* enable 8' output masks */
+ UINT32 EN_out4[2]; /* enable 4' output masks */
+ UINT32 EN_out2[2]; /* enable 2' output masks */
+
+ int noise_cnt;
+ int noise_step;
+ int noise_rng;
+ int noise_clocks; /* number of the noise_rng (output) level changes */
+
+ unsigned int UpdateStep;
+
+ /* rate tables */
+ double ar_tbl[8];
+ double dr_tbl[16];
+
+ UINT8 control1;
+ UINT8 control2;
+
+ int gate; /* current state of the GATE output */
+
+ int clock; /* chip clock in Hz */
+ int rate; /* sample rate in Hz */
+
+ double external_capacity[8]; /* in Farads, eg 0.39e-6 = 0.36 uF (microFarads) */
+ device_t *device;
+ void (*gate_handler)(device_t *device, int state); /* callback called when the GATE output pin changes state */
+
+} msm5232_state;
+
+
+INLINE msm5232_state *get_safe_token(device_t *device)
+{
+ assert(device != NULL);
+ assert(device->type() == MSM5232);
+ return (msm5232_state *)downcast<legacy_device_base *>(device)->token();
+}
+
+
+/* Default chip clock is 2119040 Hz */
+/* At this clock chip generates exactly 440.0 Hz signal on 8' output when pitch data=0x21 */
+
+
+/* ROM table to convert from pitch data into data for programmable counter and binary counter */
+/* Chip has 88x12bits ROM (addressing (in hex) from 0x00 to 0x57) */
+#define ROM(counter,bindiv) (counter|(bindiv<<9))
+
+static const UINT16 MSM5232_ROM[88]={
+/* higher values are Programmable Counter data (9 bits) */
+/* lesser values are Binary Counter shift data (3 bits) */
+
+/* 0 */ ROM (506, 7),
+
+/* 1 */ ROM (478, 7),/* 2 */ ROM (451, 7),/* 3 */ ROM (426, 7),/* 4 */ ROM (402, 7),
+/* 5 */ ROM (379, 7),/* 6 */ ROM (358, 7),/* 7 */ ROM (338, 7),/* 8 */ ROM (319, 7),
+/* 9 */ ROM (301, 7),/* A */ ROM (284, 7),/* B */ ROM (268, 7),/* C */ ROM (253, 7),
+
+/* D */ ROM (478, 6),/* E */ ROM (451, 6),/* F */ ROM (426, 6),/*10 */ ROM (402, 6),
+/*11 */ ROM (379, 6),/*12 */ ROM (358, 6),/*13 */ ROM (338, 6),/*14 */ ROM (319, 6),
+/*15 */ ROM (301, 6),/*16 */ ROM (284, 6),/*17 */ ROM (268, 6),/*18 */ ROM (253, 6),
+
+/*19 */ ROM (478, 5),/*1A */ ROM (451, 5),/*1B */ ROM (426, 5),/*1C */ ROM (402, 5),
+/*1D */ ROM (379, 5),/*1E */ ROM (358, 5),/*1F */ ROM (338, 5),/*20 */ ROM (319, 5),
+/*21 */ ROM (301, 5),/*22 */ ROM (284, 5),/*23 */ ROM (268, 5),/*24 */ ROM (253, 5),
+
+/*25 */ ROM (478, 4),/*26 */ ROM (451, 4),/*27 */ ROM (426, 4),/*28 */ ROM (402, 4),
+/*29 */ ROM (379, 4),/*2A */ ROM (358, 4),/*2B */ ROM (338, 4),/*2C */ ROM (319, 4),
+/*2D */ ROM (301, 4),/*2E */ ROM (284, 4),/*2F */ ROM (268, 4),/*30 */ ROM (253, 4),
+
+/*31 */ ROM (478, 3),/*32 */ ROM (451, 3),/*33 */ ROM (426, 3),/*34 */ ROM (402, 3),
+/*35 */ ROM (379, 3),/*36 */ ROM (358, 3),/*37 */ ROM (338, 3),/*38 */ ROM (319, 3),
+/*39 */ ROM (301, 3),/*3A */ ROM (284, 3),/*3B */ ROM (268, 3),/*3C */ ROM (253, 3),
+
+/*3D */ ROM (478, 2),/*3E */ ROM (451, 2),/*3F */ ROM (426, 2),/*40 */ ROM (402, 2),
+/*41 */ ROM (379, 2),/*42 */ ROM (358, 2),/*43 */ ROM (338, 2),/*44 */ ROM (319, 2),
+/*45 */ ROM (301, 2),/*46 */ ROM (284, 2),/*47 */ ROM (268, 2),/*48 */ ROM (253, 2),
+
+/*49 */ ROM (478, 1),/*4A */ ROM (451, 1),/*4B */ ROM (426, 1),/*4C */ ROM (402, 1),
+/*4D */ ROM (379, 1),/*4E */ ROM (358, 1),/*4F */ ROM (338, 1),/*50 */ ROM (319, 1),
+/*51 */ ROM (301, 1),/*52 */ ROM (284, 1),/*53 */ ROM (268, 1),/*54 */ ROM (253, 1),
+
+/*55 */ ROM (253, 1),/*56 */ ROM (253, 1),
+
+/*57 */ ROM (13, 7)
+};
+#undef ROM
+
+
+#define STEP_SH (16) /* step calculations accuracy */
+
+
+/* save output as raw 16-bit sample */
+/* #define SAVE_SAMPLE */
+/* #define SAVE_SEPARATE_CHANNELS */
+#if defined SAVE_SAMPLE || defined SAVE_SEPARATE_CHANNELS
+static FILE *sample[9];
+#endif
+
+
+
+/*
+ * resistance values are guesswork, default capacity is mentioned in the datasheets
+ *
+ * charges external capacitor (default is 0.39uF) via R51
+ * in approx. 5*1400 * 0.39e-6
+ *
+ * external capacitor is discharged through R52
+ * in approx. 5*28750 * 0.39e-6
+ */
+
+
+#define R51 1400 /* charge resistance */
+#define R52 28750 /* discharge resistance */
+
+#if 0
+/*
+ C24 = external capacity
+
+ mame_printf_debug("Time constant T=R*C =%f sec.\n",R51*C24);
+ mame_printf_debug("Cap fully charged after 5T=%f sec (sample=%f). Level=%f\n",(R51*C24)*5,(R51*C24)*5*sample_rate , VMAX*0.99326 );
+ mame_printf_debug("Cap charged after 5T=%f sec (sample=%f). Level=%20.16f\n",(R51*C24)*5,(R51*C24)*5*sample_rate ,
+ VMAX*(1.0-pow(2.718,-0.0748/(R51*C24))) );
+*/
+#endif
+
+
+
+
+static void msm5232_init_tables( msm5232_state *chip )
+{
+ int i;
+ double scale;
+
+ /* sample rate = chip clock !!! But : */
+ /* highest possible frequency is chipclock/13/16 (pitch data=0x57) */
+ /* at 2MHz : 2000000/13/16 = 9615 Hz */
+
+ i = ((double)(1<<STEP_SH) * (double)chip->rate) / (double)chip->clock;
+ chip->UpdateStep = i;
+ /* logerror("clock=%i Hz rate=%i Hz, UpdateStep=%i\n",
+ chip->clock, chip->rate, chip->UpdateStep); */
+
+ scale = ((double)chip->clock) / (double)chip->rate;
+ chip->noise_step = ((1<<STEP_SH)/128.0) * scale; /* step of the rng reg in 16.16 format */
+ /* logerror("noise step=%8x\n", chip->noise_step); */
+
+#if 0
+{
+ /* rate tables (in miliseconds) */
+ static const int ATBL[8] = { 2,4,8,16, 32,64, 32,64};
+ static const int DTBL[16]= { 40,80,160,320, 640,1280, 640,1280,
+ 333,500,1000,2000, 4000,8000, 4000,8000};
+ for (i=0; i<8; i++)
+ {
+ double clockscale = (double)chip->clock / 2119040.0;
+ double time = (ATBL[i] / 1000.0) / clockscale; /* attack time in seconds */
+ chip->ar_tbl[i] = 0.50 * ( (1.0/time) / (double)chip->rate );
+ /* logerror("ATBL[%i] = %20.16f time = %f s\n",i, chip->ar_tbl[i], time); */
+ }
+
+ for (i=0; i<16; i++)
+ {
+ double clockscale = (double)chip->clock / 2119040.0;
+ double time = (DTBL[i] / 1000.0) / clockscale; /* decay time in seconds */
+ chip->dr_tbl[i] = 0.50 * ( (1.0/time) / (double)chip->rate );
+ /* logerror("DTBL[%i] = %20.16f time = %f s\n",i, chip->dr_tbl[i], time); */
+ }
+}
+#endif
+
+
+ for (i=0; i<8; i++)
+ {
+ double clockscale = (double)chip->clock / 2119040.0;
+ chip->ar_tbl[i] = ((1<<i) / clockscale) * (double)R51;
+ }
+
+ for (i=0; i<8; i++)
+ {
+ double clockscale = (double)chip->clock / 2119040.0;
+ chip->dr_tbl[i] = ( (1<<i) / clockscale) * (double)R52;
+ chip->dr_tbl[i+8] = (6.25*(1<<i) / clockscale) * (double)R52;
+ }
+
+
+#ifdef SAVE_SAMPLE
+ sample[8]=fopen("sampsum.pcm","wb");
+#endif
+#ifdef SAVE_SEPARATE_CHANNELS
+ sample[0]=fopen("samp0.pcm","wb");
+ sample[1]=fopen("samp1.pcm","wb");
+ sample[2]=fopen("samp2.pcm","wb");
+ sample[3]=fopen("samp3.pcm","wb");
+ sample[4]=fopen("samp4.pcm","wb");
+ sample[5]=fopen("samp5.pcm","wb");
+ sample[6]=fopen("samp6.pcm","wb");
+ sample[7]=fopen("samp7.pcm","wb");
+#endif
+}
+
+
+static void msm5232_init_voice(msm5232_state *chip, int i)
+{
+ chip->voi[i].ar_rate= chip->ar_tbl[0] * chip->external_capacity[i];
+ chip->voi[i].dr_rate= chip->dr_tbl[0] * chip->external_capacity[i];
+ chip->voi[i].rr_rate= chip->dr_tbl[0] * chip->external_capacity[i]; /* this is constant value */
+ chip->voi[i].eg_sect= -1;
+ chip->voi[i].eg = 0.0;
+ chip->voi[i].eg_arm = 0;
+ chip->voi[i].pitch = -1.0;
+}
+
+
+static void msm5232_gate_update(msm5232_state *chip)
+{
+ int new_state = (chip->control2 & 0x20) ? chip->voi[7].GF : 0;
+
+ if (chip->gate != new_state && chip->gate_handler)
+ {
+ chip->gate = new_state;
+ (*chip->gate_handler)(chip->device, new_state);
+ }
+}
+
+
+static DEVICE_RESET( msm5232 )
+{
+ msm5232_state *chip = get_safe_token(device);
+ int i;
+
+ for (i=0; i<8; i++)
+ {
+ msm5232_w(device,i,0x80);
+ msm5232_w(device,i,0x00);
+ }
+ chip->noise_cnt = 0;
+ chip->noise_rng = 1;
+ chip->noise_clocks = 0;
+
+ chip->control1 = 0;
+ chip->EN_out16[0] = 0;
+ chip->EN_out8[0] = 0;
+ chip->EN_out4[0] = 0;
+ chip->EN_out2[0] = 0;
+
+ chip->control2 = 0;
+ chip->EN_out16[1] = 0;
+ chip->EN_out8[1] = 0;
+ chip->EN_out4[1] = 0;
+ chip->EN_out2[1] = 0;
+
+ msm5232_gate_update(chip);
+}
+
+static void msm5232_init(msm5232_state *chip, const msm5232_interface *intf, int clock, int rate)
+{
+ int j;
+
+ chip->clock = clock;
+ chip->rate = rate ? rate : 44100; /* avoid division by 0 */
+
+ for (j=0; j<8; j++)
+ {
+ chip->external_capacity[j] = intf->capacity[j];
+ }
+
+ chip->gate_handler = intf->gate_handler;
+
+ msm5232_init_tables( chip );
+
+ for (j=0; j<8; j++)
+ {
+ memset(&chip->voi[j],0,sizeof(VOICE));
+ msm5232_init_voice(chip,j);
+ }
+}
+
+static DEVICE_STOP( msm5232 )
+{
+#ifdef SAVE_SAMPLE
+ fclose(sample[8]);
+#endif
+#ifdef SAVE_SEPARATE_CHANNELS
+ fclose(sample[0]);
+ fclose(sample[1]);
+ fclose(sample[2]);
+ fclose(sample[3]);
+ fclose(sample[4]);
+ fclose(sample[5]);
+ fclose(sample[6]);
+ fclose(sample[7]);
+#endif
+}
+
+WRITE8_DEVICE_HANDLER( msm5232_w )
+{
+ msm5232_state *chip = get_safe_token(device);
+
+ if (offset > 0x0d)
+ return;
+
+ chip->stream->update ();
+
+ if (offset < 0x08) /* pitch */
+ {
+ int ch = offset&7;
+
+ chip->voi[ch].GF = ((data&0x80)>>7);
+ if (ch == 7)
+ msm5232_gate_update(chip);
+
+ if(data&0x80)
+ {
+ if(data >= 0xd8)
+ {
+ /*if ((data&0x7f) != 0x5f) logerror("MSM5232: WRONG PITCH CODE = %2x\n",data&0x7f);*/
+ chip->voi[ch].mode = 1; /* noise mode */
+ chip->voi[ch].eg_sect = 0; /* Key On */
+ }
+ else
+ {
+ if ( chip->voi[ch].pitch != (data&0x7f) )
+ {
+ int n;
+ UINT16 pg;
+
+ chip->voi[ch].pitch = data&0x7f;
+
+ pg = MSM5232_ROM[ data&0x7f ];
+
+ chip->voi[ch].TG_count_period = (pg & 0x1ff) * chip->UpdateStep / 2;
+
+ n = (pg>>9) & 7; /* n = bit number for 16' output */
+ chip->voi[ch].TG_out16 = 1<<n;
+ /* for 8' it is bit n-1 (bit 0 if n-1<0) */
+ /* for 4' it is bit n-2 (bit 0 if n-2<0) */
+ /* for 2' it is bit n-3 (bit 0 if n-3<0) */
+ n = (n>0)? n-1: 0;
+ chip->voi[ch].TG_out8 = 1<<n;
+
+ n = (n>0)? n-1: 0;
+ chip->voi[ch].TG_out4 = 1<<n;
+
+ n = (n>0)? n-1: 0;
+ chip->voi[ch].TG_out2 = 1<<n;
+ }
+ chip->voi[ch].mode = 0; /* tone mode */
+ chip->voi[ch].eg_sect = 0; /* Key On */
+ }
+ }
+ else
+ {
+ if ( !chip->voi[ch].eg_arm ) /* arm = 0 */
+ chip->voi[ch].eg_sect = 2; /* Key Off -> go to release */
+ else /* arm = 1 */
+ chip->voi[ch].eg_sect = 1; /* Key Off -> go to decay */
+ }
+ }
+ else
+ {
+ int i;
+ switch(offset)
+ {
+ case 0x08: /* group1 attack */
+ for (i=0; i<4; i++)
+ chip->voi[i].ar_rate = chip->ar_tbl[data&0x7] * chip->external_capacity[i];
+ break;
+
+ case 0x09: /* group2 attack */
+ for (i=0; i<4; i++)
+ chip->voi[i+4].ar_rate = chip->ar_tbl[data&0x7] * chip->external_capacity[i+4];
+ break;
+
+ case 0x0a: /* group1 decay */
+ for (i=0; i<4; i++)
+ chip->voi[i].dr_rate = chip->dr_tbl[data&0xf] * chip->external_capacity[i];
+ break;
+
+ case 0x0b: /* group2 decay */
+ for (i=0; i<4; i++)
+ chip->voi[i+4].dr_rate = chip->dr_tbl[data&0xf] * chip->external_capacity[i+4];
+ break;
+
+ case 0x0c: /* group1 control */
+
+ /*if (chip->control1 != data)
+ logerror("msm5232: control1 ctrl=%x OE=%x\n", data&0xf0, data&0x0f);*/
+
+ /*if (data & 0x10)
+ popmessage("msm5232: control1 ctrl=%2x\n", data);*/
+
+ chip->control1 = data;
+
+ for (i=0; i<4; i++)
+ chip->voi[i].eg_arm = data&0x10;
+
+ chip->EN_out16[0] = (data&1) ? ~0:0;
+ chip->EN_out8[0] = (data&2) ? ~0:0;
+ chip->EN_out4[0] = (data&4) ? ~0:0;
+ chip->EN_out2[0] = (data&8) ? ~0:0;
+
+ break;
+
+ case 0x0d: /* group2 control */
+
+ /*if (chip->control2 != data)
+ logerror("msm5232: control2 ctrl=%x OE=%x\n", data&0xf0, data&0x0f);*/
+
+ /*if (data & 0x10)
+ popmessage("msm5232: control2 ctrl=%2x\n", data);*/
+
+ chip->control2 = data;
+ msm5232_gate_update(chip);
+
+ for (i=0; i<4; i++)
+ chip->voi[i+4].eg_arm = data&0x10;
+
+ chip->EN_out16[1] = (data&1) ? ~0:0;
+ chip->EN_out8[1] = (data&2) ? ~0:0;
+ chip->EN_out4[1] = (data&4) ? ~0:0;
+ chip->EN_out2[1] = (data&8) ? ~0:0;
+
+ break;
+ }
+ }
+}
+
+
+
+#define VMIN 0
+#define VMAX 32768
+
+
+INLINE void EG_voices_advance(msm5232_state *chip)
+{
+ VOICE *voi = &chip->voi[0];
+ int samplerate = chip->rate;
+ int i;
+
+ i = 8;
+ do
+ {
+ switch(voi->eg_sect)
+ {
+ case 0: /* attack */
+
+ /* capacitor charge */
+ if (voi->eg < VMAX)
+ {
+ voi->counter -= (int)((VMAX - voi->eg) / voi->ar_rate);
+ if ( voi->counter <= 0 )
+ {
+ int n = -voi->counter / samplerate + 1;
+ voi->counter += n * samplerate;
+ if ( (voi->eg += n) > VMAX )
+ voi->eg = VMAX;
+ }
+ }
+
+ /* when ARM=0, EG switches to decay as soon as cap is charged to VT (EG inversion voltage; about 80% of MAX) */
+ if (!voi->eg_arm)
+ {
+ if(voi->eg >= VMAX * 80/100 )
+ {
+ voi->eg_sect = 1;
+ }
+ }
+ else
+ /* ARM=1 */
+ {
+ /* when ARM=1, EG stays at maximum until key off */
+ }
+
+ voi->egvol = voi->eg / 16; /*32768/16 = 2048 max*/
+
+ break;
+
+ case 1: /* decay */
+
+ /* capacitor discharge */
+ if (voi->eg > VMIN)
+ {
+ voi->counter -= (int)((voi->eg - VMIN) / voi->dr_rate);
+ if ( voi->counter <= 0 )
+ {
+ int n = -voi->counter / samplerate + 1;
+ voi->counter += n * samplerate;
+ if ( (voi->eg -= n) < VMIN )
+ voi->eg = VMIN;
+ }
+ }
+ else /* voi->eg <= VMIN */
+ {
+ voi->eg_sect =-1;
+ }
+
+ voi->egvol = voi->eg / 16; /*32768/16 = 2048 max*/
+
+ break;
+
+ case 2: /* release */
+
+ /* capacitor discharge */
+ if (voi->eg > VMIN)
+ {
+ voi->counter -= (int)((voi->eg - VMIN) / voi->rr_rate);
+ if ( voi->counter <= 0 )
+ {
+ int n = -voi->counter / samplerate + 1;
+ voi->counter += n * samplerate;
+ if ( (voi->eg -= n) < VMIN )
+ voi->eg = VMIN;
+ }
+ }
+ else /* voi->eg <= VMIN */
+ {
+ voi->eg_sect =-1;
+ }
+
+ voi->egvol = voi->eg / 16; /*32768/16 = 2048 max*/
+
+ break;
+
+ default:
+ break;
+ }
+
+ voi++;
+ i--;
+ } while (i>0);
+
+}
+
+static int o2,o4,o8,o16,solo8,solo16;
+
+INLINE void TG_group_advance(msm5232_state *chip, int groupidx)
+{
+ VOICE *voi = &chip->voi[groupidx*4];
+ int i;
+
+ o2 = o4 = o8 = o16 = solo8 = solo16 = 0;
+
+ i=4;
+ do
+ {
+ int out2, out4, out8, out16;
+
+ out2 = out4 = out8 = out16 = 0;
+
+ if (voi->mode==0) /* generate square tone */
+ {
+ int left = 1<<STEP_SH;
+ do
+ {
+ int nextevent = left;
+
+ if (voi->TG_cnt&voi->TG_out16) out16+=voi->TG_count;
+ if (voi->TG_cnt&voi->TG_out8) out8 +=voi->TG_count;
+ if (voi->TG_cnt&voi->TG_out4) out4 +=voi->TG_count;
+ if (voi->TG_cnt&voi->TG_out2) out2 +=voi->TG_count;
+
+ voi->TG_count -= nextevent;
+
+ while (voi->TG_count <= 0)
+ {
+ voi->TG_count += voi->TG_count_period;
+ voi->TG_cnt++;
+ if (voi->TG_cnt&voi->TG_out16) out16+=voi->TG_count_period;
+ if (voi->TG_cnt&voi->TG_out8 ) out8 +=voi->TG_count_period;
+ if (voi->TG_cnt&voi->TG_out4 ) out4 +=voi->TG_count_period;
+ if (voi->TG_cnt&voi->TG_out2 ) out2 +=voi->TG_count_period;
+
+ if (voi->TG_count > 0)
+ break;
+
+ voi->TG_count += voi->TG_count_period;
+ voi->TG_cnt++;
+ if (voi->TG_cnt&voi->TG_out16) out16+=voi->TG_count_period;
+ if (voi->TG_cnt&voi->TG_out8 ) out8 +=voi->TG_count_period;
+ if (voi->TG_cnt&voi->TG_out4 ) out4 +=voi->TG_count_period;
+ if (voi->TG_cnt&voi->TG_out2 ) out2 +=voi->TG_count_period;
+ }
+ if (voi->TG_cnt&voi->TG_out16) out16-=voi->TG_count;
+ if (voi->TG_cnt&voi->TG_out8 ) out8 -=voi->TG_count;
+ if (voi->TG_cnt&voi->TG_out4 ) out4 -=voi->TG_count;
+ if (voi->TG_cnt&voi->TG_out2 ) out2 -=voi->TG_count;
+
+ left -=nextevent;
+
+ }while (left>0);
+ }
+ else /* generate noise */
+ {
+ if (chip->noise_clocks&8) out16+=(1<<STEP_SH);
+ if (chip->noise_clocks&4) out8 +=(1<<STEP_SH);
+ if (chip->noise_clocks&2) out4 +=(1<<STEP_SH);
+ if (chip->noise_clocks&1) out2 +=(1<<STEP_SH);
+ }
+
+ /* calculate signed output */
+ o16 += ( (out16-(1<<(STEP_SH-1))) * voi->egvol) >> STEP_SH;
+ o8 += ( (out8 -(1<<(STEP_SH-1))) * voi->egvol) >> STEP_SH;
+ o4 += ( (out4 -(1<<(STEP_SH-1))) * voi->egvol) >> STEP_SH;
+ o2 += ( (out2 -(1<<(STEP_SH-1))) * voi->egvol) >> STEP_SH;
+
+ if (i == 1 && groupidx == 1)
+ {
+ solo16 += ( (out16-(1<<(STEP_SH-1))) << 11) >> STEP_SH;
+ solo8 += ( (out8 -(1<<(STEP_SH-1))) << 11) >> STEP_SH;
+ }
+
+ voi++;
+ i--;
+ }while (i>0);
+
+ /* cut off disabled output lines */
+ o16 &= chip->EN_out16[groupidx];
+ o8 &= chip->EN_out8 [groupidx];
+ o4 &= chip->EN_out4 [groupidx];
+ o2 &= chip->EN_out2 [groupidx];
+}
+
+
+/* macro saves feet data to mono file */
+#ifdef SAVE_SEPARATE_CHANNELS
+ #define SAVE_SINGLE_CHANNEL(j,val) \
+ { signed int pom= val; \
+ if (pom > 32767) pom = 32767; else if (pom < -32768) pom = -32768; \
+ fputc((unsigned short)pom&0xff,sample[j]); \
+ fputc(((unsigned short)pom>>8)&0xff,sample[j]); }
+#else
+ #define SAVE_SINGLE_CHANNEL(j,val)
+#endif
+
+/* first macro saves all 8 feet outputs to mixed (mono) file */
+/* second macro saves one group into left and the other in right channel */
+#if 1 /*MONO*/
+ #ifdef SAVE_SAMPLE
+ #define SAVE_ALL_CHANNELS \
+ { signed int pom = buf1[i] + buf2[i]; \
+ fputc((unsigned short)pom&0xff,sample[8]); \
+ fputc(((unsigned short)pom>>8)&0xff,sample[8]); \
+ }
+ #else
+ #define SAVE_ALL_CHANNELS
+ #endif
+#else /*STEREO*/
+ #ifdef SAVE_SAMPLE
+ #define SAVE_ALL_CHANNELS \
+ { signed int pom = buf1[i]; \
+ fputc((unsigned short)pom&0xff,sample[8]); \
+ fputc(((unsigned short)pom>>8)&0xff,sample[8]); \
+ pom = buf2[i]; \
+ fputc((unsigned short)pom&0xff,sample[8]); \
+ fputc(((unsigned short)pom>>8)&0xff,sample[8]); \
+ }
+ #else
+ #define SAVE_ALL_CHANNELS
+ #endif
+#endif
+
+
+static STREAM_UPDATE( MSM5232_update_one )
+{
+ msm5232_state * chip = (msm5232_state *)param;
+ stream_sample_t *buf1 = outputs[0];
+ stream_sample_t *buf2 = outputs[1];
+ stream_sample_t *buf3 = outputs[2];
+ stream_sample_t *buf4 = outputs[3];
+ stream_sample_t *buf5 = outputs[4];
+ stream_sample_t *buf6 = outputs[5];
+ stream_sample_t *buf7 = outputs[6];
+ stream_sample_t *buf8 = outputs[7];
+ stream_sample_t *bufsolo1 = outputs[8];
+ stream_sample_t *bufsolo2 = outputs[9];
+ stream_sample_t *bufnoise = outputs[10];
+ int i;
+
+ for (i=0; i<samples; i++)
+ {
+ /* calculate all voices' envelopes */
+ EG_voices_advance(chip);
+
+ TG_group_advance(chip,0); /* calculate tones group 1 */
+ buf1[i] = o2;
+ buf2[i] = o4;
+ buf3[i] = o8;
+ buf4[i] = o16;
+
+ SAVE_SINGLE_CHANNEL(0,o2)
+ SAVE_SINGLE_CHANNEL(1,o4)
+ SAVE_SINGLE_CHANNEL(2,o8)
+ SAVE_SINGLE_CHANNEL(3,o16)
+
+ TG_group_advance(chip,1); /* calculate tones group 2 */
+ buf5[i] = o2;
+ buf6[i] = o4;
+ buf7[i] = o8;
+ buf8[i] = o16;
+
+ bufsolo1[i] = solo8;
+ bufsolo2[i] = solo16;
+
+ SAVE_SINGLE_CHANNEL(4,o2)
+ SAVE_SINGLE_CHANNEL(5,o4)
+ SAVE_SINGLE_CHANNEL(6,o8)
+ SAVE_SINGLE_CHANNEL(7,o16)
+
+ SAVE_ALL_CHANNELS
+
+ /* update noise generator */
+ {
+ int cnt = (chip->noise_cnt+=chip->noise_step) >> STEP_SH;
+ chip->noise_cnt &= ((1<<STEP_SH)-1);
+ while (cnt > 0)
+ {
+ int tmp = chip->noise_rng & (1<<16); /* store current level */
+
+ if (chip->noise_rng&1)
+ chip->noise_rng ^= 0x24000;
+ chip->noise_rng>>=1;
+
+ if ( (chip->noise_rng & (1<<16)) != tmp ) /* level change detect */
+ chip->noise_clocks++;
+
+ cnt--;
+ }
+ }
+
+ bufnoise[i] = (chip->noise_rng & (1<<16)) ? 32767 : 0;
+ }
+}
+
+
+
+/* MAME Interface */
+static void msm5232_postload(msm5232_state *chip)
+{
+ msm5232_init_tables(chip);
+}
+
+static DEVICE_START( msm5232 )
+{
+ const msm5232_interface *intf = (const msm5232_interface *)device->static_config();
+ int rate = device->clock()/CLOCK_RATE_DIVIDER;
+ msm5232_state *chip = get_safe_token(device);
+ int voicenum;
+
+ chip->device = device;
+
+ msm5232_init(chip, intf, device->clock(), rate);
+
+ chip->stream = device->machine().sound().stream_alloc(*device, 0, 11, rate, chip, MSM5232_update_one);
+
+ /* register with the save state system */
+ device->machine().save().register_postload(save_prepost_delegate(FUNC(msm5232_postload), chip));
+ device->save_item(NAME(chip->EN_out16));
+ device->save_item(NAME(chip->EN_out8));
+ device->save_item(NAME(chip->EN_out4));
+ device->save_item(NAME(chip->EN_out2));
+ device->save_item(NAME(chip->noise_cnt));
+ device->save_item(NAME(chip->noise_rng));
+ device->save_item(NAME(chip->noise_clocks));
+ device->save_item(NAME(chip->control1));
+ device->save_item(NAME(chip->control2));
+ device->save_item(NAME(chip->gate));
+ device->save_item(NAME(chip->clock));
+ device->save_item(NAME(chip->rate));
+
+ /* register voice-specific data for save states */
+ for (voicenum = 0; voicenum < 8; voicenum++)
+ {
+ VOICE *voice = &chip->voi[voicenum];
+
+ device->save_item(NAME(voice->mode), voicenum);
+ device->save_item(NAME(voice->TG_count_period), voicenum);
+ device->save_item(NAME(voice->TG_cnt), voicenum);
+ device->save_item(NAME(voice->TG_out16), voicenum);
+ device->save_item(NAME(voice->TG_out8), voicenum);
+ device->save_item(NAME(voice->TG_out4), voicenum);
+ device->save_item(NAME(voice->TG_out2), voicenum);
+ device->save_item(NAME(voice->egvol), voicenum);
+ device->save_item(NAME(voice->eg_sect), voicenum);
+ device->save_item(NAME(voice->counter), voicenum);
+ device->save_item(NAME(voice->eg), voicenum);
+ device->save_item(NAME(voice->eg_arm), voicenum);
+ device->save_item(NAME(voice->ar_rate), voicenum);
+ device->save_item(NAME(voice->dr_rate), voicenum);
+ device->save_item(NAME(voice->pitch), voicenum);
+ device->save_item(NAME(voice->GF), voicenum);
+ }
+}
+
+void msm5232_set_clock(device_t *device, int clock)
+{
+ msm5232_state *chip = get_safe_token(device);
+
+ if (chip->clock != clock)
+ {
+ chip->stream->update ();
+ chip->clock = clock;
+ chip->rate = clock/CLOCK_RATE_DIVIDER;
+ msm5232_init_tables( chip );
+ chip->stream->set_sample_rate(chip->rate);
+ }
+}
+
+
+
+/**************************************************************************
+ * Generic get_info
+ **************************************************************************/
+
+DEVICE_GET_INFO( msm5232 )
+{
+ switch (state)
+ {
+ /* --- the following bits of info are returned as 64-bit signed integers --- */
+ case DEVINFO_INT_TOKEN_BYTES: info->i = sizeof(msm5232_state); break;
+
+ /* --- the following bits of info are returned as pointers to data or functions --- */
+ case DEVINFO_FCT_START: info->start = DEVICE_START_NAME( msm5232 ); break;
+ case DEVINFO_FCT_STOP: info->stop = DEVICE_STOP_NAME( msm5232 ); break;
+ case DEVINFO_FCT_RESET: info->reset = DEVICE_RESET_NAME( msm5232 ); break;
+
+ /* --- the following bits of info are returned as NULL-terminated strings --- */
+ case DEVINFO_STR_NAME: strcpy(info->s, "MSM5232"); break;
+ case DEVINFO_STR_FAMILY: strcpy(info->s, "Oki Tone"); break;
+ case DEVINFO_STR_VERSION: strcpy(info->s, "1.1"); 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;
+ }
+}
+
+
+DEFINE_LEGACY_SOUND_DEVICE(MSM5232, msm5232);