diff options
Diffstat (limited to 'src/mame/drivers/a5105.cpp')
-rw-r--r-- | src/mame/drivers/a5105.cpp | 624 |
1 files changed, 624 insertions, 0 deletions
diff --git a/src/mame/drivers/a5105.cpp b/src/mame/drivers/a5105.cpp new file mode 100644 index 00000000000..03be992da60 --- /dev/null +++ b/src/mame/drivers/a5105.cpp @@ -0,0 +1,624 @@ +// license:BSD-3-Clause +// copyright-holders:Angelo Salese, Robbbert +/*************************************************************************** + + A5105 + + 12/05/2009 Skeleton driver. + + http://www.robotrontechnik.de/index.htm?/html/computer/a5105.htm + http://www.sax.de/~zander/bic/bic_bw.html + + - this looks like "somehow" inspired by the MSX1 machine? + + +ToDo: +- Fix hang when it should scroll +- Cassette Load (bit 7 of port 91) + + +****************************************************************************/ + +#include "emu.h" +#include "cpu/z80/z80.h" +#include "video/upd7220.h" +#include "machine/ram.h" +#include "machine/upd765.h" +#include "formats/a5105_dsk.h" +#include "machine/z80ctc.h" +#include "machine/z80pio.h" +#include "imagedev/cassette.h" +#include "imagedev/flopdrv.h" +#include "sound/wave.h" +#include "sound/beep.h" + + + +class a5105_state : public driver_device +{ +public: + a5105_state(const machine_config &mconfig, device_type type, const char *tag) + : driver_device(mconfig, type, tag), + m_maincpu(*this, "maincpu"), + m_hgdc(*this, "upd7220"), + m_cass(*this, "cassette"), + m_beep(*this, "beeper"), + m_fdc(*this, "upd765a"), + m_floppy0(*this, "upd765a:0"), + m_floppy1(*this, "upd765a:1"), + m_floppy2(*this, "upd765a:2"), + m_floppy3(*this, "upd765a:3"), + m_video_ram(*this, "video_ram"), + m_ram(*this, RAM_TAG), + m_gfxdecode(*this, "gfxdecode"), + m_palette(*this, "palette") + { } + + required_device<cpu_device> m_maincpu; + required_device<upd7220_device> m_hgdc; + required_device<cassette_image_device> m_cass; + required_device<beep_device> m_beep; + required_device<upd765a_device> m_fdc; + required_device<floppy_connector> m_floppy0; + required_device<floppy_connector> m_floppy1; + required_device<floppy_connector> m_floppy2; + required_device<floppy_connector> m_floppy3; + + DECLARE_READ8_MEMBER(a5105_memsel_r); + DECLARE_READ8_MEMBER(key_r); + DECLARE_READ8_MEMBER(key_mux_r); + DECLARE_WRITE8_MEMBER(key_mux_w); + DECLARE_WRITE8_MEMBER(a5105_ab_w); + DECLARE_WRITE8_MEMBER(a5105_memsel_w); + DECLARE_WRITE8_MEMBER( a5105_upd765_w ); + DECLARE_WRITE8_MEMBER(pcg_addr_w); + DECLARE_WRITE8_MEMBER(pcg_val_w); + required_shared_ptr<UINT16> m_video_ram; + UINT8 *m_ram_base; + UINT8 *m_rom_base; + UINT8 *m_char_ram; + UINT16 m_pcg_addr; + UINT16 m_pcg_internal_addr; + UINT8 m_key_mux; + UINT8 m_memsel[4]; + virtual void machine_reset(); + virtual void video_start(); + DECLARE_PALETTE_INIT(a5105); + DECLARE_FLOPPY_FORMATS( floppy_formats ); + required_device<ram_device> m_ram; + required_device<gfxdecode_device> m_gfxdecode; + required_device<palette_device> m_palette; + UPD7220_DISPLAY_PIXELS_MEMBER( hgdc_display_pixels ); + UPD7220_DRAW_TEXT_LINE_MEMBER( hgdc_draw_text ); +}; + +/* TODO */ +UPD7220_DISPLAY_PIXELS_MEMBER( a5105_state::hgdc_display_pixels ) +{ + const rgb_t *palette = m_palette->palette()->entry_list_raw(); + + int xi,gfx; + UINT8 pen; + + gfx = m_video_ram[(address & 0x1ffff) >> 1]; + + for(xi=0;xi<16;xi++) + { + pen = ((gfx >> xi) & 1) ? 7 : 0; + + bitmap.pix32(y, x + xi) = palette[pen]; + } +} + +UPD7220_DRAW_TEXT_LINE_MEMBER( a5105_state::hgdc_draw_text ) +{ + const rgb_t *palette = m_palette->palette()->entry_list_raw(); + int x; + int xi,yi; + int tile,color; + UINT8 tile_data; + + for( x = 0; x < pitch; x++ ) + { + tile = (m_video_ram[(((addr+x)*2) & 0x1ffff) >> 1] & 0xff); + color = ((m_video_ram[(((addr+x)*2) & 0x1ffff) >> 1] >> 8) & 0x0f); + + for( yi = 0; yi < lr; yi++) + { + tile_data = m_char_ram[(tile*8+yi) & 0x7ff]; + + if(cursor_on && cursor_addr == addr+x && machine().first_screen()->frame_number() & 0x10) + tile_data^=0xff; + + for( xi = 0; xi < 8; xi++) + { + int res_x,res_y; + int pen = (tile_data >> xi) & 1 ? color : 0; + + res_x = x * 8 + xi; + res_y = y + yi; + + if(yi >= 8) { pen = 0; } + + if(!machine().first_screen()->visible_area().contains(res_x+0, res_y)) + continue; + + bitmap.pix32(res_y, res_x) = palette[pen]; + } + } + } +} + +static ADDRESS_MAP_START(a5105_mem, AS_PROGRAM, 8, a5105_state) + ADDRESS_MAP_UNMAP_HIGH + AM_RANGE(0x0000, 0x3fff) AM_READ_BANK("bank1") + AM_RANGE(0x4000, 0x7fff) AM_READ_BANK("bank2") + AM_RANGE(0x8000, 0xbfff) AM_READWRITE_BANK("bank3") + AM_RANGE(0xc000, 0xffff) AM_READWRITE_BANK("bank4") +ADDRESS_MAP_END + +WRITE8_MEMBER( a5105_state::pcg_addr_w ) +{ + m_pcg_addr = data << 3; + m_pcg_internal_addr = 0; +} + +WRITE8_MEMBER( a5105_state::pcg_val_w ) +{ + m_char_ram[m_pcg_addr | m_pcg_internal_addr] = data; + + m_gfxdecode->gfx(0)->mark_dirty(m_pcg_addr >> 3); + + m_pcg_internal_addr++; + m_pcg_internal_addr&=7; +} + +READ8_MEMBER( a5105_state::key_r ) +{ + static const char *const keynames[] = { "KEY0", "KEY1", "KEY2", "KEY3", + "KEY4", "KEY5", "KEY6", "KEY7", + "KEY8", "KEY9", "KEYA", "UNUSED", + "UNUSED", "UNUSED", "UNUSED", "UNUSED" }; + + return ioport(keynames[m_key_mux & 0x0f])->read(); +} + +READ8_MEMBER( a5105_state::key_mux_r ) +{ + return m_key_mux; +} + +WRITE8_MEMBER( a5105_state::key_mux_w ) +{ + /* + xxxx ---- unknown + ---- xxxx keyboard mux + */ + + m_key_mux = data; +} + +WRITE8_MEMBER( a5105_state::a5105_ab_w ) +{ +/*port $ab + ---- 100x tape motor, active low + ---- 101x tape data + ---- 110x led (color green) + ---- 111x key click, active high +*/ + switch (data & 6) + { + case 0: + if (BIT(data, 0)) + m_cass->change_state(CASSETTE_MOTOR_DISABLED,CASSETTE_MASK_MOTOR); + else + m_cass->change_state(CASSETTE_MOTOR_ENABLED,CASSETTE_MASK_MOTOR); + break; + + case 2: + m_cass->output( BIT(data, 0) ? -1.0 : +1.0); + break; + + case 4: + //led + break; + + case 6: + m_beep->set_state(BIT(data, 0)); + break; + } +} + +READ8_MEMBER( a5105_state::a5105_memsel_r ) +{ + UINT8 res; + + res = (m_memsel[0] & 3) << 0; + res|= (m_memsel[1] & 3) << 2; + res|= (m_memsel[2] & 3) << 4; + res|= (m_memsel[3] & 3) << 6; + + return res; +} + +WRITE8_MEMBER( a5105_state::a5105_memsel_w ) +{ + address_space &prog = m_maincpu->space( AS_PROGRAM ); + + if (m_memsel[0] != ((data & 0x03) >> 0)) + { + m_memsel[0] = (data & 0x03) >> 0; + + switch (m_memsel[0]) + { + case 0: + membank("bank1")->set_base(m_rom_base); + prog.install_read_bank(0x0000, 0x3fff, "bank1"); + prog.unmap_write(0x0000, 0x3fff); + break; + case 2: + membank("bank1")->set_base(m_ram_base); + prog.install_readwrite_bank(0x0000, 0x3fff, "bank1"); + break; + default: + prog.unmap_readwrite(0x0000, 0x3fff); + break; + } + } + + if (m_memsel[1] != ((data & 0x0c) >> 2)) + { + m_memsel[1] = (data & 0x0c) >> 2; + + switch (m_memsel[1]) + { + case 0: + membank("bank2")->set_base(m_rom_base + 0x4000); + prog.install_read_bank(0x4000, 0x7fff, "bank2"); + prog.unmap_write(0x4000, 0x4000); + break; + case 1: + membank("bank2")->set_base(memregion("k5651")->base()); + prog.install_read_bank(0x4000, 0x7fff, "bank2"); + prog.unmap_write(0x4000, 0x4000); + break; + case 2: + membank("bank2")->set_base(m_ram_base + 0x4000); + prog.install_readwrite_bank(0x4000, 0x7fff, "bank2"); + break; + default: + prog.unmap_readwrite(0x4000, 0x7fff); + break; + } + } + + if (m_memsel[2] != ((data & 0x30) >> 4)) + { + m_memsel[2] = (data & 0x30) >> 4; + + switch (m_memsel[2]) + { + case 0: + membank("bank3")->set_base(m_rom_base + 0x8000); + prog.install_read_bank(0x8000, 0xbfff, "bank3"); + prog.unmap_write(0x8000, 0xbfff); + break; + case 2: + membank("bank3")->set_base(m_ram_base + 0x8000); + prog.install_readwrite_bank(0x8000, 0xbfff, "bank3"); + break; + default: + prog.unmap_readwrite(0x8000, 0xbfff); + break; + } + } + + if (m_memsel[3] != ((data & 0xc0) >> 6)) + { + m_memsel[3] = (data & 0xc0) >> 6; + + switch (m_memsel[3]) + { + case 2: + membank("bank4")->set_base(m_ram_base + 0xc000); + prog.install_readwrite_bank(0xc000, 0xffff, "bank4"); + break; + default: + prog.unmap_readwrite(0xc000, 0xffff); + break; + } + } + + //printf("Memsel change to %02x %02x %02x %02x\n",m_memsel[0],m_memsel[1],m_memsel[2],m_memsel[3]); +} + +WRITE8_MEMBER( a5105_state::a5105_upd765_w ) +{ + m_floppy0->get_device()->mon_w(!BIT(data,0)); + m_floppy1->get_device()->mon_w(!BIT(data,1)); + m_floppy2->get_device()->mon_w(!BIT(data,2)); + m_floppy3->get_device()->mon_w(!BIT(data,3)); + + m_fdc->tc_w(BIT(data, 4)); +} + +static ADDRESS_MAP_START(a5105_io, AS_IO, 8, a5105_state) + ADDRESS_MAP_UNMAP_HIGH + ADDRESS_MAP_GLOBAL_MASK(0xff) + AM_RANGE(0x40, 0x41) AM_DEVICE("upd765a", upd765a_device, map) + AM_RANGE(0x48, 0x4f) AM_WRITE(a5105_upd765_w) + + AM_RANGE(0x80, 0x83) AM_DEVREADWRITE("z80ctc", z80ctc_device, read, write) + AM_RANGE(0x90, 0x93) AM_DEVREADWRITE("z80pio", z80pio_device, read, write) + AM_RANGE(0x98, 0x99) AM_DEVREADWRITE("upd7220", upd7220_device, read, write) + + AM_RANGE(0x9c, 0x9c) AM_WRITE(pcg_val_w) +// AM_RANGE(0x9d, 0x9d) crtc area (ff-based), palette routes here + AM_RANGE(0x9e, 0x9e) AM_WRITE(pcg_addr_w) + +// AM_RANGE(0xa0, 0xa1) ay8910? + AM_RANGE(0xa8, 0xa8) AM_READWRITE(a5105_memsel_r,a5105_memsel_w) + AM_RANGE(0xa9, 0xa9) AM_READ(key_r) + AM_RANGE(0xaa, 0xaa) AM_READWRITE(key_mux_r,key_mux_w) + AM_RANGE(0xab, 0xab) AM_WRITE(a5105_ab_w) //misc output, see above +ADDRESS_MAP_END + +/* Input ports */ +static INPUT_PORTS_START( a5105 ) + PORT_START("KEY0") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("0 =") PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR('=') + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("1 !") PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!') + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("2 \"") PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('\"') + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("3 \\") PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('\\') + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("4 $") PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$') + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("5 %") PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%') + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("6 &") PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&') + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("7 /") PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('/') + + PORT_START("KEY1") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("8 (") PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(') + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("9 )") PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR(')') + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("< >") PORT_CODE(KEYCODE_COLON) PORT_CHAR('<') PORT_CHAR('>') + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("+ *") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('+') PORT_CHAR('*') + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("\xc3\xb6 \xc3\x96") PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR(0x00f6) PORT_CHAR(0x00d6) + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("\xc3\xa4 \xc3\x84") PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR(0x00e4) PORT_CHAR(0x00c4) + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("\xc3\xbc \xc3\x9c") PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(0x00fc) PORT_CHAR(0x00dc) + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("# ^") PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('#') PORT_CHAR('^') + + PORT_START("KEY2") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("' `") PORT_CODE(KEYCODE_TILDE) PORT_CHAR('\'') PORT_CHAR('`') + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("? beta") PORT_CODE(KEYCODE_SLASH) PORT_CHAR('?') + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(", ;") PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR(';') + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(". :") PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR(':') + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("- _") PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_CHAR('_') + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_UNUSED) // appears to do nothing + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A') + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B') + + PORT_START("KEY3") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C') + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D') + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E') + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F') + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("G") PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G') + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("H") PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H') + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("I") PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I') + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("J") PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J') + + PORT_START("KEY4") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("K") PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K') + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("L") PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L') + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("M") PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M') + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("N") PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N') + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("O") PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O') + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("P") PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P') + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Q") PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q') + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("R") PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R') + + PORT_START("KEY5") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("S") PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S') + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("T") PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T') + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("U") PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U') + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("V") PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V') + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("W") PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W') + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("X") PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X') + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Y") PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y') + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Z") PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z') + + PORT_START("KEY6") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1) + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) /* gives keyclick but does nothing */PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_SHIFT_2) + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("GRAPH") PORT_CODE(KEYCODE_PGUP) PORT_CHAR(UCHAR_MAMEKEY(F6)) + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("CAPS") PORT_CODE(KEYCODE_CAPSLOCK) PORT_CHAR(UCHAR_MAMEKEY(CAPSLOCK)) + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("CODE") PORT_CODE(KEYCODE_PGDN) PORT_CHAR(UCHAR_MAMEKEY(F7)) + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F5") PORT_CODE(KEYCODE_F5) PORT_CHAR(UCHAR_MAMEKEY(F5)) + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F4") PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4)) + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F3") PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3)) + + PORT_START("KEY7") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F2") PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2)) + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F1") PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1)) + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_ESC) PORT_CHAR(UCHAR_MAMEKEY(ESC)) + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_TAB) PORT_CHAR(9) + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("STOP") PORT_CODE(KEYCODE_RCONTROL) PORT_CHAR(UCHAR_MAMEKEY(F8)) + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8) + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("SELECT") PORT_CODE(KEYCODE_END) PORT_CHAR(UCHAR_MAMEKEY(F9)) + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) + + PORT_START("KEY8") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_HOME) PORT_CHAR(UCHAR_MAMEKEY(HOME)) + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_INSERT) PORT_CHAR(UCHAR_MAMEKEY(INSERT)) + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("DEL") PORT_CODE(KEYCODE_DEL) PORT_CHAR(UCHAR_MAMEKEY(DEL)) + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) + + PORT_START("KEY9") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_ASTERISK) PORT_CHAR(UCHAR_MAMEKEY(ASTERISK)) + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_PLUS_PAD) PORT_CHAR(UCHAR_MAMEKEY(PLUS_PAD)) + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_SLASH_PAD) PORT_CHAR(UCHAR_MAMEKEY(SLASH_PAD)) + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_0_PAD) PORT_CHAR(UCHAR_MAMEKEY(0_PAD)) + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_1_PAD) PORT_CHAR(UCHAR_MAMEKEY(1_PAD)) + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_2_PAD) PORT_CHAR(UCHAR_MAMEKEY(2_PAD)) + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_3_PAD) PORT_CHAR(UCHAR_MAMEKEY(3_PAD)) + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_4_PAD) PORT_CHAR(UCHAR_MAMEKEY(4_PAD)) + + PORT_START("KEYA") + PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_5_PAD) PORT_CHAR(UCHAR_MAMEKEY(5_PAD)) + PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_6_PAD) PORT_CHAR(UCHAR_MAMEKEY(6_PAD)) + PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_7_PAD) PORT_CHAR(UCHAR_MAMEKEY(7_PAD)) + PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_8_PAD) PORT_CHAR(UCHAR_MAMEKEY(8_PAD)) + PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_9_PAD) PORT_CHAR(UCHAR_MAMEKEY(9_PAD)) + PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_MINUS_PAD) PORT_CHAR(UCHAR_MAMEKEY(MINUS_PAD)) + PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Keypad ,") PORT_CODE(KEYCODE_ENTER_PAD) + PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_CODE(KEYCODE_DEL_PAD) PORT_CHAR(UCHAR_MAMEKEY(DEL_PAD)) + + PORT_START("UNUSED") + PORT_BIT(0xff, IP_ACTIVE_LOW, IPT_UNUSED) +INPUT_PORTS_END + + +void a5105_state::machine_reset() +{ + address_space &space = m_maincpu->space(AS_PROGRAM); + a5105_ab_w(space, 0, 9); // turn motor off + m_beep->set_frequency(500); + + m_ram_base = (UINT8*)m_ram->pointer(); + m_rom_base = (UINT8*)memregion("maincpu")->base(); + + membank("bank1")->set_base(m_rom_base); + membank("bank2")->set_base(m_rom_base + 0x4000); + membank("bank3")->set_base(m_ram_base); + membank("bank4")->set_base(m_ram_base + 0x4000); +} + + +static const gfx_layout a5105_chars_8x8 = +{ + 8,8, + RGN_FRAC(1,1), + 1, + { 0 }, + { 7, 6, 5, 4, 3, 2, 1, 0 }, + { 0*8, 1*8, 2*8, 3*8, 4*8, 5*8, 6*8, 7*8 }, + 8*8 +}; + +static GFXDECODE_START( a5105 ) + GFXDECODE_ENTRY( "pcg", 0x0000, a5105_chars_8x8, 0, 8 ) +GFXDECODE_END + + +PALETTE_INIT_MEMBER(a5105_state, a5105) +{ + int i; + int r,g,b; + + for ( i = 0; i < 16; i++ ) + { + r = i & 4 ? ((i & 8) ? 0xaa : 0xff) : 0x00; + g = i & 2 ? ((i & 8) ? 0xaa : 0xff) : 0x00; + b = i & 1 ? ((i & 8) ? 0xaa : 0xff) : 0x00; + + palette.set_pen_color(i, rgb_t(r,g,b)); + } +} + +void a5105_state::video_start() +{ + // find memory regions + m_char_ram = memregion("pcg")->base(); +} + +static ADDRESS_MAP_START( upd7220_map, AS_0, 16, a5105_state) + ADDRESS_MAP_GLOBAL_MASK(0x1ffff) + AM_RANGE(0x00000, 0x1ffff) AM_RAM AM_SHARE("video_ram") +ADDRESS_MAP_END + +FLOPPY_FORMATS_MEMBER( a5105_state::floppy_formats ) + FLOPPY_A5105_FORMAT +FLOPPY_FORMATS_END + +static SLOT_INTERFACE_START( a5105_floppies ) + SLOT_INTERFACE( "525qd", FLOPPY_525_QD ) +SLOT_INTERFACE_END + +static const z80_daisy_config a5105_daisy_chain[] = +{ + { "z80ctc" }, + { "z80pio" }, + { NULL } +}; + +static MACHINE_CONFIG_START( a5105, a5105_state ) + /* basic machine hardware */ + MCFG_CPU_ADD("maincpu",Z80, XTAL_15MHz / 4) + MCFG_CPU_PROGRAM_MAP(a5105_mem) + MCFG_CPU_IO_MAP(a5105_io) + MCFG_CPU_CONFIG(a5105_daisy_chain) + + /* video hardware */ + MCFG_SCREEN_ADD("screen", RASTER) + MCFG_SCREEN_REFRESH_RATE(50) + MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ + MCFG_SCREEN_UPDATE_DEVICE("upd7220", upd7220_device, screen_update) + MCFG_SCREEN_SIZE(40*8, 32*8) + MCFG_SCREEN_VISIBLE_AREA(0, 40*8-1, 0, 25*8-1) + MCFG_GFXDECODE_ADD("gfxdecode", "palette", a5105) + MCFG_PALETTE_ADD("palette", 16) + MCFG_PALETTE_INIT_OWNER(a5105_state, a5105) + + /* sound hardware */ + MCFG_SPEAKER_STANDARD_MONO("mono") + MCFG_SOUND_WAVE_ADD(WAVE_TAG, "cassette") + MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) + MCFG_SOUND_ADD("beeper", BEEP, 0) + MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.50) + + /* Devices */ + MCFG_DEVICE_ADD("upd7220", UPD7220, XTAL_15MHz / 16) // unk clock + MCFG_DEVICE_ADDRESS_MAP(AS_0, upd7220_map) + MCFG_UPD7220_DISPLAY_PIXELS_CALLBACK_OWNER(a5105_state, hgdc_display_pixels) + MCFG_UPD7220_DRAW_TEXT_CALLBACK_OWNER(a5105_state, hgdc_draw_text) + + MCFG_DEVICE_ADD("z80ctc", Z80CTC, XTAL_15MHz / 4) + MCFG_Z80CTC_INTR_CB(INPUTLINE("maincpu", 0)) + MCFG_Z80CTC_ZC0_CB(DEVWRITELINE("z80ctc", z80ctc_device, trg2)) + MCFG_Z80CTC_ZC2_CB(DEVWRITELINE("z80ctc", z80ctc_device, trg3)) + + MCFG_DEVICE_ADD("z80pio", Z80PIO, XTAL_15MHz / 4) + MCFG_Z80PIO_OUT_INT_CB(INPUTLINE("maincpu", 0)) + + MCFG_CASSETTE_ADD( "cassette" ) + + MCFG_UPD765A_ADD("upd765a", true, true) + MCFG_FLOPPY_DRIVE_ADD("upd765a:0", a5105_floppies, "525qd", a5105_state::floppy_formats) + MCFG_FLOPPY_DRIVE_ADD("upd765a:1", a5105_floppies, "525qd", a5105_state::floppy_formats) + MCFG_FLOPPY_DRIVE_ADD("upd765a:2", a5105_floppies, "525qd", a5105_state::floppy_formats) + MCFG_FLOPPY_DRIVE_ADD("upd765a:3", a5105_floppies, "525qd", a5105_state::floppy_formats) + + /* internal ram */ + MCFG_RAM_ADD(RAM_TAG) + MCFG_RAM_DEFAULT_SIZE("64K") +MACHINE_CONFIG_END + +/* ROM definition */ +ROM_START( a5105 ) + ROM_REGION( 0x10000, "maincpu", ROMREGION_ERASEFF ) + ROM_LOAD( "k1505_00.rom", 0x0000, 0x8000, CRC(0ed5f556) SHA1(5c33139db9f59e50da5c76729752f8e653ae34ae)) + ROM_LOAD( "k1505_80.rom", 0x8000, 0x2000, CRC(350e4958) SHA1(7e5b587c59676e8549561117ea0b70234f439a94)) + + ROM_REGION( 0x800, "pcg", ROMREGION_ERASE00 ) + + ROM_REGION( 0x4000, "k5651", ROMREGION_ERASEFF ) + ROM_LOAD( "k5651_40.rom", 0x0000, 0x2000, CRC(f4ad4739) SHA1(9a7bbe6f0d180dd513c7854f441cee986c8d9765)) + ROM_LOAD( "k5651_60.rom", 0x2000, 0x2000, CRC(c77dde3f) SHA1(7c16226be6c4c71013e8008fba9d2e9c5640b6a7)) +ROM_END + +/* Driver */ + +/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */ +COMP( 1989, a5105, 0, 0, a5105, a5105, driver_device, 0, "VEB Robotron", "BIC A5105", MACHINE_NOT_WORKING | MACHINE_NO_SOUND) |