diff options
Diffstat (limited to 'src/mame/drivers/goupil.cpp')
-rw-r--r-- | src/mame/drivers/goupil.cpp | 653 |
1 files changed, 0 insertions, 653 deletions
diff --git a/src/mame/drivers/goupil.cpp b/src/mame/drivers/goupil.cpp deleted file mode 100644 index 21564d60cd5..00000000000 --- a/src/mame/drivers/goupil.cpp +++ /dev/null @@ -1,653 +0,0 @@ -// license:BSD-3-Clause -// copyright-holders:Jean-François DEL NERO -/*************************************************************************** - - SMT Goupil G1 & G2 driver - - Current state : - - -> CPU / ROM / RAM working - -> Video output working (G1: ef9364, G2: Visu 24x80 MC6845) - -> Keyboard support working (need to be polished... ) - -> Floppy FDC not fully implemented. - -> Sound support missing. - - Software : - -> The Monitor is working - -> The internal G1 Basic is working (-> 6800 0xC3 illegal opcode emulation needed). - - 02/04/2016 - Jean-François DEL NERO - -****************************************************************************/ - -#include "emu.h" - -#include "cpu/m6800/m6800.h" -#include "imagedev/floppy.h" -#include "machine/ram.h" -#include "machine/6522via.h" -#include "machine/6850acia.h" -#include "machine/i8279.h" -#include "machine/timer.h" -#include "machine/wd_fdc.h" -#include "video/ef9364.h" -#include "video/mc6845.h" - -#include "emupal.h" -#include "screen.h" -#include "softlist.h" - -#include "logmacro.h" - -#define MAIN_CLOCK 4_MHz_XTAL -#define VIDEO_CLOCK MAIN_CLOCK / 8 /* 1.75 Mhz */ -#define CPU_CLOCK MAIN_CLOCK / 4 /* 1 Mhz */ - -class goupil_base_state : public driver_device -{ -public: - goupil_base_state(const machine_config &mconfig, device_type type, const char *tag) - : driver_device(mconfig, type, tag) - , m_maincpu(*this, "maincpu") - , m_acia(*this, "ef6850") - , m_via_video(*this, "m_via_video") - , m_via_keyb(*this, "m_via_keyb") - , m_via_modem(*this, "m_via_modem") - , m_palette(*this, "palette") - , m_screen(*this, "screen") - , m_fdc(*this, "fd1791") - , m_floppy0(*this, "fd1791:0") - , m_floppy1(*this, "fd1791:1") - , m_ctrl(*this, "CTR0") - , m_floppy(nullptr) - { } - - DECLARE_READ8_MEMBER(kbd1_r); - DECLARE_READ8_MEMBER(kbd2_r); - DECLARE_READ8_MEMBER(shift_kb1_r); - DECLARE_READ8_MEMBER(ctrl_kb1_r); - - DECLARE_WRITE8_MEMBER(scanlines_kbd1_w); - DECLARE_WRITE8_MEMBER(scanlines_kbd2_w); - - void base(machine_config &config); -protected: - virtual void machine_reset() override; - - required_device<m6808_cpu_device> m_maincpu; - required_device<acia6850_device> m_acia; - required_device<via6522_device> m_via_video; - required_device<via6522_device> m_via_keyb; - required_device<via6522_device> m_via_modem; - required_device<palette_device> m_palette; - required_device<screen_device> m_screen; - required_device<fd1791_device> m_fdc; - required_device<floppy_connector> m_floppy0; - required_device<floppy_connector> m_floppy1; - required_ioport m_ctrl; - floppy_image_device *m_floppy; - - uint8_t m_row_kbd1; - uint8_t m_row_kbd2; - uint8_t m_cnttim; - uint8_t m_valkeyb; -}; - -class goupil_g1_state : public goupil_base_state -{ -public: - goupil_g1_state(const machine_config &mconfig, device_type type, const char *tag) - : goupil_base_state(mconfig, type, tag) - , m_ef9364(*this, "ef9364") - , m_scanline_timer(nullptr) - , m_old_state_ca2(0) - , m_via_video_pbb_data(0) - { } - - DECLARE_WRITE8_MEMBER(via_video_pba_w); - DECLARE_WRITE8_MEMBER(via_video_pbb_w); - DECLARE_WRITE_LINE_MEMBER(via_video_ca2_w); - - void goupil_g1(machine_config &config); -protected: - virtual void machine_start() override; - virtual void machine_reset() override; - - enum - { - TIMER_SCANLINE - }; - - virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) override; - -private: - void mem(address_map &map); - - required_device<ef9364_device> m_ef9364; - - emu_timer *m_scanline_timer; - int m_old_state_ca2; - uint8_t m_via_video_pbb_data; -}; - -class goupil_g2_state : public goupil_base_state -{ -public: - goupil_g2_state(const machine_config &mconfig, device_type type, const char *tag) - : goupil_base_state(mconfig, type, tag) - , m_visu24x80_ram(*this, RAM_TAG) - , m_visu24x80_rom(*this, "visu_24x80") - { - } - - MC6845_UPDATE_ROW(crtc_update_row); - MC6845_ON_UPDATE_ADDR_CHANGED(crtc_update_addr_changed); - - DECLARE_READ8_MEMBER(visu24x80_ram_r); - DECLARE_WRITE8_MEMBER(visu24x80_ram_w); - - void goupil_g2(machine_config &config); - -private: - void mem(address_map &map); - - required_device<ram_device> m_visu24x80_ram; - required_region_ptr<uint8_t> m_visu24x80_rom; -}; - -/********************************** -* Floppy controller I/O Handlers * -***********************************/ -// TODO - -/********************************** -* Keyboard I/O Handlers * -***********************************/ - -void goupil_g1_state::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr) -{ - switch (id) - { - case TIMER_SCANLINE: - m_ef9364->update_scanline((uint16_t)m_screen->vpos()); - m_scanline_timer->adjust(m_screen->time_until_pos(m_screen->vpos() + 10)); - break; - default: - throw emu_fatalerror("Unknown id in goupil_g1_state::device_timer"); - } -} - -void goupil_g1_state::mem(address_map &map) -{ - map.unmap_value_high(); - map(0x0000, 0x3FFF).ram(); - map(0x4000, 0x7FFF).ram(); - map(0xC000, 0xE3FF).rom().region("maincpu", 0xC000); // Basic ROM (BASIC 1 up to BASIC 9). - - map(0xE400, 0xE7FF).ram(); - map(0xE800, 0xE80F).rw(m_acia, FUNC(acia6850_device::data_r), FUNC(acia6850_device::data_w)); - map(0xE810, 0xE81F).m(m_via_video, FUNC(via6522_device::map)); - - map(0xE820, 0xE820).rw("i8279_kb1", FUNC(i8279_device::data_r), FUNC(i8279_device::data_w)); - map(0xE821, 0xE821).rw("i8279_kb1", FUNC(i8279_device::status_r), FUNC(i8279_device::cmd_w)); - - map(0xE830, 0xE830).rw("i8279_kb2", FUNC(i8279_device::data_r), FUNC(i8279_device::data_w)); - map(0xE831, 0xE831).rw("i8279_kb2", FUNC(i8279_device::status_r), FUNC(i8279_device::cmd_w)); - - map(0xE840, 0xE84F).m(m_via_keyb, FUNC(via6522_device::map)); - - map(0xE860, 0xE86F).m(m_via_modem, FUNC(via6522_device::map)); - - map(0xE8F0, 0xE8FF).rw(m_fdc, FUNC(fd1791_device::read), FUNC(fd1791_device::write)); - - map(0xF000, 0xF3FF).rom().region("maincpu", 0xF000); - map(0xF400, 0xF7FF).rom().region("maincpu", 0xF400); // Modem (MOD 3) - map(0xF800, 0xFFFF).rom().region("maincpu", 0xF800); // Monitor (MON 1 + MON 2) -} - -void goupil_g2_state::mem(address_map &map) -{ - map.unmap_value_high(); - map(0x0000, 0x3FFF).ram(); - map(0x4000, 0x7FFF).ram(); - map(0x8000, 0xE3FF).ram(); - - map(0xE400, 0xE7FF).ram(); - - map(0xE800, 0xE80F).rw(m_acia, FUNC(acia6850_device::data_r), FUNC(acia6850_device::data_w)); - map(0xE810, 0xE81F).m(m_via_video, FUNC(via6522_device::map)); - - map(0xE820, 0xE820).rw("i8279_kb1", FUNC(i8279_device::data_r), FUNC(i8279_device::data_w)); - map(0xE821, 0xE821).rw("i8279_kb1", FUNC(i8279_device::status_r), FUNC(i8279_device::cmd_w)); - - map(0xE830, 0xE830).rw("i8279_kb2", FUNC(i8279_device::data_r), FUNC(i8279_device::data_w)); - map(0xE831, 0xE831).rw("i8279_kb2", FUNC(i8279_device::status_r), FUNC(i8279_device::cmd_w)); - - map(0xE840, 0xE84F).m(m_via_keyb, FUNC(via6522_device::map)); - - map(0xE860, 0xE86F).m(m_via_modem, FUNC(via6522_device::map)); - - map(0xE870, 0xE870).rw("crtc", FUNC(mc6845_device::status_r), FUNC(mc6845_device::address_w)); - map(0xE871, 0xE871).rw("crtc", FUNC(mc6845_device::register_r), FUNC(mc6845_device::register_w)); - - map(0xE8F0, 0xE8FF).rw(m_fdc, FUNC(fd1791_device::read), FUNC(fd1791_device::write)); - map(0xEC00, 0xF3FF).rw(FUNC(goupil_g2_state::visu24x80_ram_r), FUNC(goupil_g2_state::visu24x80_ram_w)); - map(0xF400, 0xF7FF).rom().region("maincpu", 0xF400); // Monitor (MON 1) - map(0xF800, 0xFFFF).rom().region("maincpu", 0xF800); // Monitor (MON 2) -} - -WRITE8_MEMBER( goupil_base_state::scanlines_kbd1_w ) -{ - m_row_kbd1 = data; -} - -READ8_MEMBER( goupil_base_state::ctrl_kb1_r ) -{ - return BIT(m_ctrl->read(), 1); -} - -READ8_MEMBER( goupil_base_state::shift_kb1_r ) -{ - return BIT(m_ctrl->read(), 0); -} - -READ8_MEMBER( goupil_base_state::kbd1_r ) -{ - char kbdrow[6]; - uint8_t data = 0xff; - - kbdrow[0] = 'A'; - kbdrow[1] = 'X'; - kbdrow[2] = '0' + ( m_row_kbd1 & 7 ) ; - kbdrow[3] = 0; - - data = ioport(kbdrow)->read(); - - return data; -} - -WRITE8_MEMBER( goupil_base_state::scanlines_kbd2_w ) -{ - m_row_kbd2 = data & 7; -} - -READ8_MEMBER( goupil_base_state::kbd2_r ) -{ - char kbdrow[6]; - uint8_t data = 0xff; - - kbdrow[0] = 'B'; - kbdrow[1] = 'X'; - kbdrow[2] = '0' + ( m_row_kbd2 & 7 ) ; - kbdrow[3] = 0; - - data = ioport(kbdrow)->read(); - - return data; -} - -/* Input ports */ -static INPUT_PORTS_START( goupil_g1 ) - PORT_START("AX0") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z') - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D') - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C') - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X') - PORT_START("AX1") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R') - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G') - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B') - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V') - PORT_START("AX2") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y') - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J') - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('?') - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N') - PORT_START("AX3") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q') - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W') - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_F2) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_F3) - PORT_START("AX4") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I') - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L') - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_STOP) PORT_CHAR(':') PORT_CHAR('/') - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR('.') - PORT_START("AX5") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("TAB") PORT_CODE(KEYCODE_TAB) PORT_CHAR(UCHAR_MAMEKEY(TAB)) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Return") PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("BS") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_CHAR('_') - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') - PORT_START("AX6") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P') - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(0x00F9) PORT_CHAR('%') - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('=') PORT_CHAR('+') - PORT_START("AX7") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_F1) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED) - - PORT_START("CTR0") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Shift") PORT_CODE(KEYCODE_LSHIFT) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Ctrl") PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_SHIFT_2) - - PORT_START("BX0") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_START("BX1") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_START("BX2") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_START("BX3") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_1) PORT_CHAR('1') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_4) PORT_CHAR('4') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_0) PORT_CHAR('0') - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_7) PORT_CHAR('7') - PORT_START("BX4") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_START("BX5") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_START("BX6") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_3) PORT_CHAR('3') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_6) PORT_CHAR('6') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_9) PORT_CHAR('9') - PORT_START("BX7") - PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_2) PORT_CHAR('2') - PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_5) PORT_CHAR('5') - PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_UNUSED) - PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_8) PORT_CHAR('8') -INPUT_PORTS_END - -static void goupil_floppies(device_slot_interface &device) -{ - device.option_add("525qd", FLOPPY_525_QD); -} - -void goupil_base_state::machine_reset() -{ - m_floppy = nullptr; - m_valkeyb = 0xFF; -} - -void goupil_g1_state::machine_start() -{ - m_scanline_timer = timer_alloc(TIMER_SCANLINE); -} - -void goupil_g1_state::machine_reset() -{ - goupil_base_state::machine_reset(); - m_scanline_timer->adjust(m_screen->time_until_pos(m_screen->vpos() + 10)); - m_old_state_ca2 = 0; - m_via_video_pbb_data = 0; -} - -WRITE8_MEMBER(goupil_g1_state::via_video_pba_w) -{ - LOG("%s: write via_video_pba_w reg : 0x%X\n",machine().describe_context(),data); - m_ef9364->char_latch_w(data); -} - -WRITE8_MEMBER(goupil_g1_state::via_video_pbb_w) -{ - LOG("%s: write via_video_pbb_w reg : 0x%X\n",machine().describe_context(),data); - m_via_video_pbb_data = data; -} - -WRITE_LINE_MEMBER( goupil_g1_state::via_video_ca2_w ) -{ - if (!m_old_state_ca2 && state) - { - m_ef9364->command_w(m_via_video_pbb_data & 0xF); - } - m_old_state_ca2 = state; -} - -// Visu 24x80 video card update row. -MC6845_UPDATE_ROW(goupil_g2_state::crtc_update_row) -{ - rgb_t const *const palette = m_palette->palette()->entry_list_raw(); - uint32_t *p = &bitmap.pix32(y); - for (uint8_t x = 0; x < x_count; ++x) - { - uint16_t const offset = ( 0x400 + ( ma + x ) ) & 0x7FF; - uint8_t const chr = m_visu24x80_ram->pointer()[offset]; - uint8_t const gfx = m_visu24x80_rom[ ( ( chr & 0x7F ) << 4 ) + ra ] ^ ((x == cursor_x) ? 0xff : 0); - - for (unsigned bit = 0; 8 > bit; ++bit) - { - *p++ = palette[BIT(gfx, 7 - bit)]; - } - } -} - -MC6845_ON_UPDATE_ADDR_CHANGED(goupil_g2_state::crtc_update_addr_changed) -{ -} - -WRITE8_MEMBER( goupil_g2_state::visu24x80_ram_w ) -{ - LOG("%s: write visu24x80_ram_w mem : 0x%.4X <- 0x%X\n",machine().describe_context(),offset,data); - - m_visu24x80_ram->pointer()[offset] = data; -} - -READ8_MEMBER( goupil_g2_state::visu24x80_ram_r ) -{ - uint8_t data; - - data = m_visu24x80_ram->pointer()[offset]; - - LOG("%s: read visu24x80_ram_r 0x%.4X = 0x%.2X\n",machine().describe_context(),offset,data); - - return data; -} - -void goupil_base_state::base(machine_config &config) -{ - M6808(config, m_maincpu, CPU_CLOCK); - - SCREEN(config, m_screen, SCREEN_TYPE_RASTER); - m_screen->set_refresh_hz(50); - - // TODO: sound hardware - - ACIA6850(config, m_acia, 0); - - // TODO: Is this specific to the G1? - VIA6522(config, m_via_video, CPU_CLOCK / 4); - - VIA6522(config, m_via_keyb, CPU_CLOCK / 4); - m_via_keyb->irq_handler().set_inputline(m_maincpu, M6808_IRQ_LINE); - - VIA6522(config, m_via_modem, CPU_CLOCK / 4); - m_via_modem->irq_handler().set_inputline(m_maincpu, M6808_IRQ_LINE); - - /* Floppy */ - FD1791(config, m_fdc, 8_MHz_XTAL); - FLOPPY_CONNECTOR(config, m_floppy0, goupil_floppies, "525qd", floppy_image_device::default_floppy_formats); - FLOPPY_CONNECTOR(config, m_floppy1, goupil_floppies, "525qd", floppy_image_device::default_floppy_formats); - - i8279_device &i8279_kb1(I8279(config, "i8279_kb1", CPU_CLOCK)); - i8279_kb1.out_sl_callback().set(FUNC(goupil_g1_state::scanlines_kbd1_w)); // scan SL lines - i8279_kb1.in_rl_callback().set(FUNC(goupil_g1_state::kbd1_r)); // kbd RL lines - i8279_kb1.in_shift_callback().set(FUNC(goupil_g1_state::shift_kb1_r)); - i8279_kb1.in_ctrl_callback().set(FUNC(goupil_g1_state::ctrl_kb1_r)); - i8279_kb1.out_irq_callback().set(m_via_keyb, FUNC(via6522_device::write_ca1)); - - i8279_device &i8279_kb2(I8279(config, "i8279_kb2", CPU_CLOCK)); - i8279_kb2.out_sl_callback().set(FUNC(goupil_g1_state::scanlines_kbd2_w)); // scan SL lines - i8279_kb2.in_rl_callback().set(FUNC(goupil_g1_state::kbd2_r)); // kbd RL lines - i8279_kb2.in_shift_callback().set_constant(1); - i8279_kb2.in_ctrl_callback().set_constant(1); -} - -void goupil_g1_state::goupil_g1(machine_config &config) -{ - base(config); - m_maincpu->set_addrmap(AS_PROGRAM, &goupil_g1_state::mem); - - m_screen->set_screen_update("ef9364", FUNC(ef9364_device::screen_update)); - m_screen->set_size(64*8, 16*(8+4)); - m_screen->set_visarea(0, 64*8-1, 0, 16*(8+4)-1); - - PALETTE(config, m_palette).set_entries(16); - - EF9364(config, m_ef9364, VIDEO_CLOCK); - m_ef9364->set_palette_tag("palette"); - m_ef9364->set_nb_of_pages(1); - - m_via_video->writepa_handler().set(FUNC(goupil_g1_state::via_video_pba_w)); - m_via_video->writepb_handler().set(FUNC(goupil_g1_state::via_video_pbb_w)); - m_via_video->ca2_handler().set(FUNC(goupil_g1_state::via_video_ca2_w)); -} - -void goupil_g2_state::goupil_g2(machine_config &config) -{ - base(config); - m_maincpu->set_addrmap(AS_PROGRAM, &goupil_g2_state::mem); - - // "visu 24x80" board - RAM(config, m_visu24x80_ram); - m_visu24x80_ram->set_default_size("2K"); // visu24x80 2K ram - - m_screen->set_screen_update("crtc", FUNC(mc6845_device::screen_update)); - m_screen->set_size((80*8), (24*(8+4))); - m_screen->set_visarea(0, (80*8)-1, 0, (24*(8+4))-1); - - PALETTE(config, m_palette, palette_device::MONOCHROME_HIGHLIGHT); - - mc6845_device &crtc(MC6845(config, "crtc", 14.318181_MHz_XTAL / 8)); - crtc.set_show_border_area(false); - crtc.set_char_width(8); - crtc.set_update_row_callback(FUNC(goupil_g2_state::crtc_update_row)); - crtc.set_on_update_addr_change_callback(FUNC(goupil_g2_state::crtc_update_addr_changed)); - - m_via_video->writepa_handler().set_nop(); - m_via_video->writepb_handler().set_nop(); - m_via_video->ca2_handler().set_nop(); -} - -/* ROM definition */ -ROM_START( goupilg1 ) - ROM_REGION( 0x10000, "maincpu", 0 ) - ROM_LOAD( "smt_goupil_g1_basic_1.bin", 0xC000, 0x0400, CRC(ad105b12) SHA1(631cd4b997f76b57bf2509e4bff30b1595c8bd13) ) - ROM_LOAD( "smt_goupil_g1_basic_2.bin", 0xC400, 0x0400, CRC(0c5c309c) SHA1(f1cab4b0f9191e53113790a95f1ab7108f9406a1) ) - ROM_LOAD( "smt_goupil_g1_basic_3.bin", 0xC800, 0x0400, CRC(1f1eb127) SHA1(dbbb880c79d515acbfcb2be9a4c96962f3e4edea) ) - ROM_LOAD( "smt_goupil_g1_basic_4.bin", 0xCC00, 0x0400, CRC(09be48e4) SHA1(86cae0d159583c1d572a5754f3bb6b4a2e479359) ) - ROM_LOAD( "smt_goupil_g1_basic_5.bin", 0xD000, 0x0400, CRC(bdeb395c) SHA1(32a50468f1ca772ee45a1f5c61c66f3ecc774074) ) - ROM_LOAD( "smt_goupil_g1_basic_6.bin", 0xD400, 0x0400, CRC(850a4000) SHA1(720f0bb3e45877835219b7e1d943ef4f19b9977d) ) - ROM_LOAD( "smt_goupil_g1_basic_7.bin", 0xD800, 0x0400, CRC(586c7670) SHA1(13e2e96b9f1a53555ce0d55f657cf3c6b96f10a0) ) - ROM_LOAD( "smt_goupil_g1_basic_8.bin", 0xDC00, 0x0400, CRC(33281300) SHA1(ce631fa8157a3f8869c5fefe24b7f40e06696df9) ) - ROM_LOAD( "smt_goupil_g1_basic_9.bin", 0xE000, 0x0400, CRC(a3911201) SHA1(8623a0a2d83eb3a27a795030643c5c05a4350a9f) ) - ROM_LOAD( "smt_goupil_g1_mod_3.bin", 0xF400, 0x0400, CRC(e662f152) SHA1(11b91c5737e7572a2c18472b66bbd16b485132d5) ) - ROM_LOAD( "smt_goupil_g1_mon_1.bin", 0xF800, 0x0400, CRC(98b7be69) SHA1(69e83fe78a43fcf2b08fb0bcefb0d217a57b1ecb) ) - ROM_LOAD( "smt_goupil_g1_mon_2.bin", 0xFC00, 0x0400, CRC(19386b81) SHA1(e52f63fd29d374319781e9677de6d3fd61a3684c) ) - - ROM_REGION( 0x400, "ef9364", 0 ) - ROM_LOAD( "smt_goupil_g1_charset.bin", 0x0000, 0x0400, CRC(8b6da54b) SHA1(ac2204600f45c6dd0df1e759b62ed25928f02a12) ) -ROM_END - -/* ROM definition */ -ROM_START( goupilg2 ) - ROM_REGION( 0x10000, "maincpu", 0 ) - ROM_LOAD( "smt_goupil_g2_mod_1.bin", 0xC000, 0x0400, CRC(4d585e40) SHA1(7558f89db52299c4c305755259d5c908b3f66ac7) ) - ROM_LOAD( "smt_goupil_g2_mod_2.bin", 0xC400, 0x0400, CRC(c5531667) SHA1(24b0a1d3b812b95e68f4dc4323581b1fd14eb4fb) ) - ROM_LOAD( "smt_goupil_g2_mon_1.bin", 0xF000, 0x0800, CRC(91a4f256) SHA1(ece3b47a17e47fc87e2262be806ce8015f5f5db6) ) - ROM_LOAD( "smt_goupil_g2_mon_2.bin", 0xF800, 0x0800, CRC(f7783a32) SHA1(7368fc0bd86b48e6727367bd7d1922f219741015) ) - - ROM_REGION( 0x400, "ef9364", 0 ) - ROM_LOAD( "smt_goupil_g2_charset.bin", 0x0000, 0x0400, CRC(d3930877) SHA1(7b790fb18f8893cfc753bf622c8b795075741d22) ) - - ROM_REGION( 0x800, "visu_24x80", 0 ) - ROM_LOAD( "smt_goupil_g2_charset_24x80.bin", 0x0000, 0x0800, CRC(f0f83b99) SHA1(75a7730aec30280ee4ccf3dcaf587eea4f861196) ) - -ROM_END - -/* Driver */ - -/* YEAR NAME PARENT COMPAT MACHINE INPUT CLASS INIT COMPANY FULLNAME FLAGS */ -COMP( 1979, goupilg1, 0, 0, goupil_g1, goupil_g1, goupil_g1_state, empty_init, "SMT", "Goupil G1", MACHINE_NO_SOUND ) -COMP( 1981, goupilg2, 0, 0, goupil_g2, goupil_g1, goupil_g2_state, empty_init, "SMT", "Goupil G2", MACHINE_NO_SOUND ) |