// license:BSD-3-Clause // copyright-holders:R. Belmont /********************************************************************* a2mcms.c Implementation of the Mountain Computer Music System. This was sold standalone and also used as part of the alphaSyntauri and SoundChaser systems. *********************************************************************/ #include "a2mcms.h" #include "includes/apple2.h" // the actual sound device (a slot device can't currently also be a sound device so we keep this private here) enum { CTRL_IRQS = 0, CTRL_DMA, CTRL_MASTERVOL }; const device_type MCMS = &device_creator; /*************************************************************************** PARAMETERS ***************************************************************************/ //************************************************************************** // GLOBAL VARIABLES //************************************************************************** const device_type A2BUS_MCMS1 = &device_creator; const device_type A2BUS_MCMS2 = &device_creator; #define ENGINE_TAG "engine" #define MCFG_MCMS_IRQ_CALLBACK(_cb) \ devcb = &mcms_device::set_irq_cb(*device, DEVCB_##_cb); MACHINE_CONFIG_FRAGMENT( a2mcms ) MCFG_SPEAKER_STANDARD_STEREO("mcms_l", "mcms_r") MCFG_DEVICE_ADD(ENGINE_TAG, MCMS, 1000000) MCFG_MCMS_IRQ_CALLBACK(WRITELINE(a2bus_mcms1_device, irq_w)) MCFG_SOUND_ROUTE(0, "mcms_l", 1.0) MCFG_SOUND_ROUTE(1, "mcms_r", 1.0) MACHINE_CONFIG_END /*************************************************************************** FUNCTION PROTOTYPES ***************************************************************************/ //------------------------------------------------- // machine_config_additions - device-specific // machine configurations //------------------------------------------------- machine_config_constructor a2bus_mcms1_device::device_mconfig_additions() const { return MACHINE_CONFIG_NAME( a2mcms ); } //************************************************************************** // LIVE DEVICE - Card 1 //************************************************************************** a2bus_mcms1_device::a2bus_mcms1_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, UINT32 clock, const char *shortname, const char *source) : device_t(mconfig, type, name, tag, owner, clock, shortname, source), device_a2bus_card_interface(mconfig, *this), m_mcms(*this, ENGINE_TAG) { } a2bus_mcms1_device::a2bus_mcms1_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) : device_t(mconfig, A2BUS_MCMS1, "Mountain Computer Music System (card 1)", tag, owner, clock, "a2mcms1", __FILE__), device_a2bus_card_interface(mconfig, *this), m_mcms(*this, ENGINE_TAG) { } //------------------------------------------------- // device_start - device-specific startup //------------------------------------------------- void a2bus_mcms1_device::device_start() { // set_a2bus_device makes m_slot valid set_a2bus_device(); } void a2bus_mcms1_device::device_reset() { } // read once at c0n0 to disable 125 Hz IRQs // read once at c0n1 to enable 125 Hz IRQs UINT8 a2bus_mcms1_device::read_c0nx(address_space &space, UINT8 offset) { if (offset == 0) { m_mcms->control_w(space, CTRL_IRQS, 0); } else if (offset == 1) { m_mcms->control_w(space, CTRL_IRQS, 1); } return 0xff; } // read at Cn00: light gun in bit 7, bits 0-5 = 'random' number UINT8 a2bus_mcms1_device::read_cnxx(address_space &space, UINT8 offset) { return m_mcms->get_pen_rand(); } // write 0-255 to Cn00 to set the master volume void a2bus_mcms1_device::write_cnxx(address_space &space, UINT8 offset, UINT8 data) { if (offset == 0) { m_mcms->control_w(space, CTRL_MASTERVOL, data); } } mcms_device *a2bus_mcms1_device::get_engine(void) { return m_mcms; } WRITE_LINE_MEMBER(a2bus_mcms1_device::irq_w) { if (state == ASSERT_LINE) { raise_slot_irq(); } else { lower_slot_irq(); } } //************************************************************************** // LIVE DEVICE - Card 2 //************************************************************************** a2bus_mcms2_device::a2bus_mcms2_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, UINT32 clock, const char *shortname, const char *source) : device_t(mconfig, type, name, tag, owner, clock, shortname, source), device_a2bus_card_interface(mconfig, *this) { } a2bus_mcms2_device::a2bus_mcms2_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) : device_t(mconfig, A2BUS_MCMS2, "Mountain Computer Music System (card 2)", tag, owner, clock, "a2mcms2", __FILE__), device_a2bus_card_interface(mconfig, *this) { } //------------------------------------------------- // device_start - device-specific startup //------------------------------------------------- void a2bus_mcms2_device::device_start() { // set_a2bus_device makes m_slot valid set_a2bus_device(); if (m_slot < 2) { fatalerror("MCMS: Card 2 must be in slot 2 or greater\n"); } } void a2bus_mcms2_device::device_reset() { m_card1 = static_cast(m_a2bus->m_device_list[m_slot-1]); m_engine = m_card1->get_engine(); } // here to soak up false reads from indexed accesses UINT8 a2bus_mcms2_device::read_c0nx(address_space &space, UINT8 offset) { return 0xff; } // write once to c0n0 to disable the card (reset also disables) // write twice to c0n1 to enable the card (value doesn't matter) void a2bus_mcms2_device::write_c0nx(address_space &space, UINT8 offset, UINT8 data) { if (offset == 0) { m_engine->control_w(space, CTRL_DMA, 0); } else if (offset == 1) { m_engine->control_w(space, CTRL_DMA, 1); } } void a2bus_mcms2_device::write_cnxx(address_space &space, UINT8 offset, UINT8 data) { m_engine->voiceregs_w(space, offset, data); } /* Sound device implementation */ mcms_device::mcms_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) : device_t(mconfig, MCMS, "Mountain Computer Music System engine", tag, owner, clock, "msmseng", __FILE__), device_sound_interface(mconfig, *this), m_write_irq(*this) { } void mcms_device::device_start() { m_write_irq.resolve(); m_stream = machine().sound().stream_alloc(*this, 0, 2, 31250); m_timer = timer_alloc(0, NULL); m_clrtimer = timer_alloc(1, NULL); m_enabled = false; memset(m_vols, 0, sizeof(m_vols)); memset(m_table, 0, sizeof(m_table)); memset(m_freq, 0, sizeof(m_freq)); memset(m_acc, 0, sizeof(m_acc)); // the card detect programs volumes and wavetable page but not freq and expects the accumulator to increment for (int i = 0; i < 16; i++) { m_freq[i] = 0x0040; } save_item(NAME(m_enabled)); save_item(NAME(m_vols)); save_item(NAME(m_table)); save_item(NAME(m_freq)); save_item(NAME(m_acc)); save_item(NAME(m_mastervol)); save_item(NAME(m_rand)); } void mcms_device::device_reset() { m_write_irq(CLEAR_LINE); m_timer->adjust(attotime::never); m_clrtimer->adjust(attotime::never); m_enabled = false; } void mcms_device::device_timer(emu_timer &timer, device_timer_id tid, int param, void *ptr) { if (tid == 0) { m_write_irq(ASSERT_LINE); // clear this IRQ in 10 cycles (?) m_clrtimer->adjust(attotime::from_usec(10), 0); } else if (tid == 1) { m_write_irq(CLEAR_LINE); } } void mcms_device::sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples) { stream_sample_t *outL, *outR; int i, v; UINT16 wptr; INT8 sample; INT32 mixL, mixR; outL = outputs[1]; outR = outputs[0]; if (m_enabled) { for (i = 0; i < samples; i++) { mixL = mixR = 0; for (v = 0; v < 16; v++) { m_acc[v] += m_freq[v]; wptr = (m_table[v]<<8) | (m_acc[v]>>8); m_rand = (m_acc[v]>>8) & 0x1f; sample = (m_6502space->read_byte(wptr) ^ 0x80); if (v & 1) { mixL += sample * m_vols[v]; } else { mixR += sample * m_vols[v]; } } outL[i] = (mixL * m_mastervol)>>9; outR[i] = (mixR * m_mastervol)>>9; } } else { for (i = 0; i < samples; i++) { outL[i] = outR[i] = 0; } } } WRITE8_MEMBER(mcms_device::voiceregs_w) { m_stream->update(); if (offset >= 0x20) { if (offset & 1) // amp { m_vols[(offset-0x21)/2] = data; } else // wavetable page { m_table[(offset-0x20)/2] = data; } } else { if (offset & 1) // freq L { if (offset == 0x1f) { m_freq[0] &= 0xff00; m_freq[0] |= data; } else { int reg = (offset/2)+1; m_freq[reg] &= 0xff00; m_freq[reg] |= data; } } else // freq H { int reg = (offset/2); m_freq[reg] &= 0x00ff; m_freq[reg] |= (data<<8); } } } WRITE8_MEMBER(mcms_device::control_w) { // keep the space (TODO: we need to define a formal DMA mechanism from machine/apple2 out to the slots) m_6502space = &space; m_stream->update(); switch (offset) { case CTRL_IRQS: if (data == 0) { m_timer->adjust(attotime::never); } else { m_timer->adjust(attotime::zero, 0, attotime::from_hz(125)); } break; case CTRL_DMA: m_enabled = (data == 0) ? false : true; break; case CTRL_MASTERVOL: m_mastervol = data; break; } }