// license:BSD-3-Clause
// copyright-holders:ElSemi, R. Belmont
/*
SCSP (YMF292-F) header
*/
#ifndef MAME_SOUND_SCSP_H
#define MAME_SOUND_SCSP_H
#pragma once
#include "scspdsp.h"
#define SCSP_FM_DELAY 0 // delay in number of slots processed before samples are written to the FM ring buffer
// driver code indicates should be 4, but sounds distorted then
class scsp_device : public device_t,
public device_sound_interface,
public device_rom_interface
{
public:
static constexpr feature_type imperfect_features() { return feature::SOUND; } // DSP / EG incorrections, etc
scsp_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock = 22'579'200);
auto irq_cb() { return m_irq_cb.bind(); }
auto main_irq_cb() { return m_main_irq_cb.bind(); }
// SCSP register access
DECLARE_READ16_MEMBER(read);
DECLARE_WRITE16_MEMBER(write);
// MIDI I/O access (used for comms on Model 2/3)
void midi_in(u8 data);
DECLARE_READ16_MEMBER(midi_out_r);
protected:
// device-level overrides
virtual void device_start() override;
virtual void device_post_load() override;
virtual void device_clock_changed() override;
virtual void rom_bank_updated() override;
// sound stream update overrides
virtual void sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples) override;
private:
enum SCSP_STATE { SCSP_ATTACK, SCSP_DECAY1, SCSP_DECAY2, SCSP_RELEASE };
struct SCSP_EG_t
{
int volume; //
SCSP_STATE state;
int step;
//step vals
int AR; //Attack
int D1R; //Decay1
int D2R; //Decay2
int RR; //Release
int DL; //Decay level
u8 EGHOLD;
u8 LPLINK;
};
struct SCSP_LFO_t
{
u16 phase;
u32 phase_step;
int *table;
int *scale;
};
struct SCSP_SLOT
{
union
{
u16 data[0x10]; //only 0x1a bytes used
u8 datab[0x20];
} udata;
u8 Backwards; //the wave is playing backwards
u8 active; //this slot is currently playing
u32 cur_addr; //current play address (24.8)
u32 nxt_addr; //next play address
u32 step; //pitch step (24.8)
SCSP_EG_t EG; //Envelope
SCSP_LFO_t PLFO; //Phase LFO
SCSP_LFO_t ALFO; //Amplitude LFO
int slot;
s16 Prev; //Previous sample (for interpolation)
};
devcb_write8 m_irq_cb; /* irq callback */
devcb_write_line m_main_irq_cb;
union
{
u16 data[0x30/2];
u8 datab[0x30];
} m_udata;
SCSP_SLOT m_Slots[32];
s16 m_RINGBUF[128];
u8 m_BUFPTR;
#if SCSP_FM_DELAY
s16 m_DELAYBUF[SCSP_FM_DELAY];
u8 m_DELAYPTR;
#endif
sound_stream * m_stream;
u32 m_IrqTimA;
u32 m_IrqTimBC;
u32 m_IrqMidi;
u8 m_MidiOutW, m_MidiOutR;
u8 m_MidiStack[32];
u8 m_MidiW, m_MidiR;
s32 m_EG_TABLE[0x400];
int m_LPANTABLE[0x10000];
int m_RPANTABLE[0x10000];
int m_TimPris[3];
int m_TimCnt[3];
// timers
emu_timer *m_timerA, *m_timerB, *m_timerC;
// DMA stuff
struct
{
u32 dmea;
u16 drga;
u16 dtlg;
u8 dgate;
u8 ddir;
} m_dma;
u16 m_mcieb;
u16 m_mcipd;
int m_ARTABLE[64], m_DRTABLE[64];
SCSPDSP m_DSP;
stream_sample_t *m_bufferl;
stream_sample_t *m_bufferr;
stream_sample_t *m_exts0;
stream_sample_t *m_exts1;
int m_length;
s16 *m_RBUFDST; //this points to where the sample will be stored in the RingBuf
//LFO
int m_PLFO_TRI[256], m_PLFO_SQR[256], m_PLFO_SAW[256], m_PLFO_NOI[256];
int m_ALFO_TRI[256], m_ALFO_SQR[256], m_ALFO_SAW[256], m_ALFO_NOI[256];
int m_PSCALES[8][256];
int m_ASCALES[8][256];
void exec_dma(); /*state DMA transfer function*/
u8 DecodeSCI(u8 irq);
void CheckPendingIRQ();
void MainCheckPendingIRQ(u16 irq_type);
void ResetInterrupts();
TIMER_CALLBACK_MEMBER(timerA_cb);
TIMER_CALLBACK_MEMBER(timerB_cb);
TIMER_CALLBACK_MEMBER(timerC_cb);
int Get_AR(int base, int R);
int Get_DR(int base, int R);
void Compute_EG(SCSP_SLOT *slot);
int EG_Update(SCSP_SLOT *slot);
u32 Step(SCSP_SLOT *slot);
void Compute_LFO(SCSP_SLOT *slot);
void StartSlot(SCSP_SLOT *slot);
void StopSlot(SCSP_SLOT *slot, int keyoff);
void init();
void UpdateSlotReg(int s, int r);
void UpdateReg(int reg);
void UpdateSlotRegR(int slot, int reg);
void UpdateRegR(int reg);
void w16(u32 addr, u16 val);
u16 r16(u32 addr);
inline s32 UpdateSlot(SCSP_SLOT *slot);
void DoMasterSamples(int nsamples);
//LFO
void LFO_Init();
s32 PLFO_Step(SCSP_LFO_t *LFO);
s32 ALFO_Step(SCSP_LFO_t *LFO);
void LFO_ComputeStep(SCSP_LFO_t *LFO, u32 LFOF, u32 LFOWS, u32 LFOS, int ALFO);
};
DECLARE_DEVICE_TYPE(SCSP, scsp_device)
#endif // MAME_SOUND_SCSP_H