// license:BSD-3-Clause
// copyright-holders:R. Belmont
/***************************************************************************
drivers/mirage.c
Ensoniq Mirage Sampler
Preliminary driver by R. Belmont
Map for Mirage:
0000-7fff: 32k window on 128k of sample RAM
8000-bfff: main RAM
c000-dfff: optional expansion RAM
e100-e101: 6850 UART (for MIDI)
e200-e2ff: 6522 VIA
e408-e40f: filter cut-off frequency
e410-e417: filter resonance
e418-e41f: multiplexer address pre-set
e800-e803: WD1770 FDC
ec00-ecef: ES5503 "DOC" sound chip
f000-ffff: boot ROM
NMI: IRQ from WD1772
IRQ: DRQ from WD1772 wire-ORed with IRQ from ES5503 wire-ORed with IRQ from VIA6522
FIRQ: IRQ from 6850 UART
LED / switch matrix:
A B C D E F G DP
ROW 0: LOAD UPPER LOAD LOWER SAMPLE UPPER PLAY SEQ LOAD SEQ SAVE SEQ REC SEQ SAMPLE LOWER
ROW 1: 3 6 9 5 8 0 2 Enter
ROW 2: 1 4 7 up arrow PARAM dn arrow VALUE CANCEL
L. AN: SEG A SEG B SEG C SEG D SEG E SEG F SEG G SEG DP (decimal point)
R. AN: SEG A SEG B SEG C SEG D SEG E SEG F SEG G SEG DP
Column number in VIA port A bits 0-2 is converted to discrete lines by a 74LS145.
Port A bit 3 is right anode, bit 4 is left anode
ROW 0 is read on VIA port A bit 5, ROW 1 in port A bit 6, and ROW 2 in port A bit 7.
Keyboard models talk to the R6500 through the VIA shifter: CA2 is handshake, CB1 is shift clock, CB2 is shift data.
This is unconnected on the rackmount version.
***************************************************************************/
#include "emu.h"
#include "cpu/m6809/m6809.h"
#include "machine/6850acia.h"
#include "machine/6522via.h"
#include "machine/wd_fdc.h"
#include "formats/esq8_dsk.h"
#include "sound/es5503.h"
#include "speaker.h"
#include "mirage.lh"
class enmirage_state : public driver_device
{
public:
enmirage_state(const machine_config &mconfig, device_type type, const char *tag)
: driver_device(mconfig, type, tag),
m_maincpu(*this, "maincpu"),
m_fdc(*this, "wd1772"),
m_via(*this, "via6522"),
m_digits(*this, "digit%u", 0U)
{
}
DECLARE_FLOPPY_FORMATS( floppy_formats );
void init_mirage();
uint32_t screen_update_mirage(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect);
DECLARE_WRITE8_MEMBER(mirage_via_write_porta);
DECLARE_WRITE8_MEMBER(mirage_via_write_portb);
DECLARE_WRITE_LINE_MEMBER(mirage_doc_irq);
DECLARE_READ8_MEMBER(mirage_adc_read);
void mirage(machine_config &config);
void mirage_map(address_map &map);
protected:
virtual void machine_reset() override;
virtual void machine_start() override { m_digits.resolve(); }
virtual void video_start() override;
required_device<mc6809e_device> m_maincpu;
required_device<wd1772_device> m_fdc;
required_device<via6522_device> m_via;
int last_sndram_bank;
uint8_t m_l_segs, m_r_segs;
int m_l_hi, m_r_hi;
output_finder<2> m_digits;
};
FLOPPY_FORMATS_MEMBER( enmirage_state::floppy_formats )
FLOPPY_ESQ8IMG_FORMAT
FLOPPY_FORMATS_END
static void ensoniq_floppies(device_slot_interface &device)
{
device.option_add("35dd", FLOPPY_35_DD);
}
WRITE_LINE_MEMBER(enmirage_state::mirage_doc_irq)
{
// m_maincpu->set_input_line(M6809_IRQ_LINE, state);
}
READ8_MEMBER(enmirage_state::mirage_adc_read)
{
return 0x00;
}
void enmirage_state::video_start()
{
}
uint32_t enmirage_state::screen_update_mirage(screen_device &screen, bitmap_rgb32 &bitmap, const rectangle &cliprect)
{
return 0;
}
void enmirage_state::machine_reset()
{
last_sndram_bank = 0;
membank("sndbank")->set_base(memregion("es5503")->base() );
}
void enmirage_state::mirage_map(address_map &map)
{
map(0x0000, 0x7fff).bankrw("sndbank"); // 32k window on 128k of wave RAM
map(0x8000, 0xbfff).ram(); // main RAM
map(0xc000, 0xdfff).ram(); // expansion RAM
map(0xe100, 0xe101).rw("acia6850", FUNC(acia6850_device::read), FUNC(acia6850_device::write));
map(0xe200, 0xe2ff).rw(m_via, FUNC(via6522_device::read), FUNC(via6522_device::write));
map(0xe400, 0xe4ff).noprw();
map(0xe800, 0xe803).rw(m_fdc, FUNC(wd1772_device::read), FUNC(wd1772_device::write));
map(0xec00, 0xecef).rw("es5503", FUNC(es5503_device::read), FUNC(es5503_device::write));
map(0xf000, 0xffff).rom().region("osrom", 0);
}
// port A: front panel
// bits 0-2: column select from 0-7
// bits 3/4 = right and left LED enable
// bits 5/6/7 keypad rows 0/1/2 return
WRITE8_MEMBER(enmirage_state::mirage_via_write_porta)
{
uint8_t seg = data & 7;
static const int segconv[8] =
{
16, 8, 32, 2, 1, 64, 128, 4
};
// printf("PA: %02x (PC=%x)\n", data, m_maincpu->pc());
// left LED selected?
if ((data & 0x10) == 0x10)
{
// if the segment number is lower than last time, we've
// started a new refresh cycle
if ((seg < m_l_hi) || (seg == 0))
{
m_l_segs = segconv[seg];
}
else
{
m_l_segs |= segconv[seg];
}
m_l_hi = seg;
m_digits[0] = m_l_segs;
// printf("L LED: seg %d (hi %d conv %02x, %02x)\n", seg, m_l_hi, segconv[seg], m_l_segs);
}
// right LED selected?
if ((data & 0x08) == 0x08)
{
// if the segment number is lower than last time, we've
// started a new refresh cycle
if ((seg < m_r_hi) || (seg == 0))
{
m_r_segs = segconv[seg];
}
else
{
m_r_segs |= segconv[seg];
}
m_r_hi = seg;
m_digits[1] = m_r_segs;
// printf("R LED: seg %d (hi %d conv %02x, %02x)\n", seg, m_r_hi, segconv[seg], m_r_segs);
}
}
// port B:
// bit 7: OUT UART clock
// bit 4: OUT disk enable (motor on?)
// bit 3: OUT sample/play
// bit 2: OUT mic line/in
// bit 1: OUT upper/lower bank (64k halves)
// bit 0: OUT bank 0/bank 1 (32k halves)
WRITE8_MEMBER(enmirage_state::mirage_via_write_portb)
{
int bank = 0;
// handle sound RAM bank switching
bank = (data & 2) ? (64*1024) : 0;
bank += (data & 1) ? (32*1024) : 0;
if (bank != last_sndram_bank)
{
last_sndram_bank = bank;
membank("sndbank")->set_base(memregion("es5503")->base() + bank);
}
}
MACHINE_CONFIG_START(enmirage_state::mirage)
MCFG_DEVICE_ADD("maincpu", MC6809E, 2000000)
MCFG_DEVICE_PROGRAM_MAP(mirage_map)
MCFG_DEFAULT_LAYOUT( layout_mirage )
SPEAKER(config, "lspeaker").front_left();
SPEAKER(config, "rspeaker").front_right();
MCFG_ES5503_ADD("es5503", 7000000)
MCFG_ES5503_OUTPUT_CHANNELS(2)
MCFG_ES5503_IRQ_FUNC(WRITELINE(*this, enmirage_state, mirage_doc_irq))
MCFG_ES5503_ADC_FUNC(READ8(*this, enmirage_state, mirage_adc_read))
MCFG_SOUND_ROUTE(0, "lspeaker", 1.0)
MCFG_SOUND_ROUTE(1, "rspeaker", 1.0)
MCFG_DEVICE_ADD("via6522", VIA6522, 1000000)
MCFG_VIA6522_WRITEPA_HANDLER(WRITE8(*this, enmirage_state, mirage_via_write_porta))
MCFG_VIA6522_WRITEPB_HANDLER(WRITE8(*this, enmirage_state, mirage_via_write_portb))
MCFG_VIA6522_IRQ_HANDLER(INPUTLINE("maincpu", M6809_IRQ_LINE))
MCFG_DEVICE_ADD("acia6850", ACIA6850, 0)
MCFG_ACIA6850_IRQ_HANDLER(INPUTLINE("maincpu", M6809_FIRQ_LINE))
MCFG_WD1772_ADD("wd1772", 8000000)
MCFG_WD_FDC_INTRQ_CALLBACK(INPUTLINE("maincpu", INPUT_LINE_NMI))
MCFG_WD_FDC_DRQ_CALLBACK(INPUTLINE("maincpu", M6809_IRQ_LINE))
MCFG_FLOPPY_DRIVE_ADD("wd1772:0", ensoniq_floppies, "35dd", enmirage_state::floppy_formats)
MACHINE_CONFIG_END
static INPUT_PORTS_START( mirage )
INPUT_PORTS_END
ROM_START( enmirage )
ROM_REGION(0x1000, "osrom", 0)
ROM_LOAD( "mirage.bin", 0x0000, 0x1000, CRC(9fc7553c) SHA1(ec6ea5613eeafd21d8f3a7431a35a6ff16eed56d) )
ROM_REGION(0x20000, "es5503", ROMREGION_ERASE)
ROM_END
void enmirage_state::init_mirage()
{
floppy_connector *con = machine().device<floppy_connector>("wd1772:0");
floppy_image_device *floppy = con ? con->get_device() : nullptr;
if (floppy)
{
m_fdc->set_floppy(floppy);
floppy->ss_w(0);
}
m_l_hi = m_r_hi = 9;
m_l_segs = m_r_segs = 0;
// port A: front panel
m_via->write_pa0(0);
m_via->write_pa1(0);
m_via->write_pa2(0);
m_via->write_pa3(0);
m_via->write_pa4(0);
m_via->write_pa5(0);
m_via->write_pa6(0);
m_via->write_pa7(0);
// port B:
// bit 6: IN FDC disk ready
// bit 5: IN 5503 sync (?)
m_via->write_pb0(0);
m_via->write_pb1(0);
m_via->write_pb2(0);
m_via->write_pb3(0);
m_via->write_pb4(0);
m_via->write_pb5(1);
m_via->write_pb6(1);
m_via->write_pb7(0);
}
CONS( 1984, enmirage, 0, 0, mirage, mirage, enmirage_state, init_mirage, "Ensoniq", "Ensoniq Mirage", MACHINE_NOT_WORKING )