diff options
author | 2015-09-30 17:21:14 +0200 | |
---|---|---|
committer | 2015-09-30 17:21:14 +0200 | |
commit | 1fc48ce120a376c288daeeed98daccecf1b60d7b (patch) | |
tree | 72cefcede17f3a27fa8256b43bfac9756db82312 /src/mess/drivers/ql.c | |
parent | 87a576c55501bd7125b51ca786a010229669df0e (diff) |
move mess into mame (nw)
Diffstat (limited to 'src/mess/drivers/ql.c')
-rw-r--r-- | src/mess/drivers/ql.c | 1152 |
1 files changed, 0 insertions, 1152 deletions
diff --git a/src/mess/drivers/ql.c b/src/mess/drivers/ql.c deleted file mode 100644 index e8749cb6695..00000000000 --- a/src/mess/drivers/ql.c +++ /dev/null @@ -1,1152 +0,0 @@ -// license:BSD-3-Clause -// copyright-holders:Curt Coder, Phill Harvey-Smith -/* - - Sinclair QL - - MESS Driver by Curt Coder - -*/ - -/* - - TODO: - - - microdrive - - ZX8301 memory access slowdown - - use resnet.h to create palette - - Tyche bios is broken - - several disk interfaces (720K/1.44MB/3.2MB) - - Gold Card (68000 @ 16MHz, 2MB RAM) - - Super Gold Card (68020 @ 24MHz, 4MB RAM) - - QLToolkit II ROM - - GST 68kOS ROM - - natural keyboard SHIFT does not work, it causes characters to be skipped altogether - - get modified Danish version to boot (e.g. MD_DESEL was patched to jump to 0x1cd5e) - - ICL One Per Desk / British Telecom Merlin Tonto / Telecom Australia Computerphone / Mega OPD (US) - - OPD: 68008P8 @ 7.5MHz, ZX8301 @ 12MHz, CDP65C51E1 @ 1.8432MHz, 128K RAM, 2K NVRAM, 128K ROM (4x32), 16K speech ROM, ADM7910 modem, TMS5220 speech, 2x100K microdrives, RTC 1/1/1970, 1xRS-423 - - Sandy Q-XT 640 (original motherboard, Super QBoard 512KB, Centronics, Super Toolkit II, FDC, 1 or 2 3.5" 1MB drives, 3 expansion slots) - - CST Thor PC 1F (720K 3.5") - - CST Thor PC 2F (2x 720k 3.5") - - CST Thor PC 2FW (20MB Winchester + 720K 3.5") - - CST Thor 20 (68020) - - CST Thor 21 (68020+68881) - - CST Thor XVI CF (Workstation, 68000 @ 8 MHz, M6802, 68682 DUART) - - CST Thor XVI IF (Single Floppy) - - CST Thor XVI FF (Dual Floppy) - - CST Thor XVI W20F (20MB Winchester, 1 Floppy) - - CST Thor XVI W20FF (20MB Winchester, 2 Floppies) - - CST Thor XVI W40F (40MB Winchester, 1 Floppy) - - CST Thor XVI W40FF (40MB Winchester, 2 Floppies) - - - 2011-02-22, P.Harvey-Smith, - Implemented Miracle Trump Card disk and ram interface. - - The trump card has some interesting memory mapping and re-mapping during initialisation which goes like this - - On reset the card ram is mapped into the entire $40000-$fffff area, this is the official 512K expansion ram area - plus the area set aside for addon card roms. The trump card onboard rom is also mapped in at $10000-$17fff. - - The main bios then performs a series of loops that initialise and size the ram, this will find either - 0K, 256K, 512K or 768K of expansion ram depending on how many banks of ram are populated. - - After the ram test, the main bios looks for the signature longword of a cartridge rom at $0c000, this read - triggers the Trump Card to also map it's rom in at $c0000-$c7fff, the first addon rom area. If a cartridge - rom is found it is first initialised. - - The main bios goes on to search the addon card rom area from $c0000 by searching for the signature word for - an addon rom at $c0000 and upwards in 16K steps (there is a bug in JM and before that means they only find - the first addon, but this does not matter). - - The main bios finds the trump card addon rom at $c0000, and calls it's initialisation routine at $c011e, this - contains a jump instruction to jump to $10124 (in the lower mapped copy of the trumpcard rom). - - The first memory access in the $10000-$17fff range triggers the trumcard to page out the rom at $c0000, and - page the ram back in. Once it arrives at this state the ram will remain paged in until the next reset. - - I have implemented this with a pair of read handlers at $0c000-$0cfff and $10000-$17fff which do the apropreate - re-map of the upper area and then remove themselves from the address map and return it to simple rom handlers. - - On the Trump card the above is implemented with a pair of 16L8 PAL chips, the logic of these was decoded with - the assistance of Malcolm Lear, without who's help working all this out would have been a much harder process. - -*/ - -#include "includes/ql.h" - - - -//************************************************************************** -// ADDRESS DECODING -//************************************************************************** - -//------------------------------------------------- -// read - -//------------------------------------------------- - -READ8_MEMBER( ql_state::read ) -{ - UINT8 data = 0; - int cart_romoeh = 0; - int exp_romoeh = 0; - - if (offset < 0xc000) - { - data = m_rom->base()[offset]; - } - if (offset >= 0xc000 && offset < 0x10000) - { - cart_romoeh = 1; - } - if (offset >= 0x18000 && offset <= 0x18003) - { - data = m_zx8302->rtc_r(space, offset & 0x03); - } - if (offset == 0x18020) - { - data = m_zx8302->status_r(space, 0); - } - if (offset == 0x18021) - { - data = m_zx8302->irq_status_r(space, 0); - } - if (offset >= 0x18022 && offset <= 0x18023) - { - data = m_zx8302->mdv_track_r(space, offset & 0x01); - } - if (offset >= 0x20000 && offset < 0x40000) - { - data = m_zx8301->data_r(space, offset & 0x1ffff); - } - if (offset >= 0xc0000) - { - exp_romoeh = 1; - } - if (m_qimi_enabled) - { - data = m_qimi->read(space, offset, data); - } - - m_cart->romoeh_w(cart_romoeh); - data = m_cart->read(space, offset & 0x7fff, data); - m_cart->romoeh_w(0); - - m_exp->romoeh_w(exp_romoeh); - data = m_exp->read(space, offset, data); - m_exp->romoeh_w(0); - - return data; -} - - -//------------------------------------------------- -// write - -//------------------------------------------------- - -WRITE8_MEMBER( ql_state::write ) -{ - if (offset >= 0x18000 && offset <= 0x18001) - { - m_zx8302->rtc_w(space, offset & 0x01, data); - } - if (offset == 0x18002) - { - m_zx8302->control_w(space, 0, data); - } - if (offset == 0x18003) - { - m_zx8302->ipc_command_w(space, 0, data); - } - if (offset == 0x18020) - { - m_zx8302->mdv_control_w(space, 0, data); - } - if (offset == 0x18021) - { - m_zx8302->irq_acknowledge_w(space, 0, data); - } - if (offset == 0x18022) - { - m_zx8302->data_w(space, 0, data); - } - if (offset == 0x18063) - { - m_zx8301->control_w(space, 0, data); - } - if (offset >= 0x20000 && offset < 0x40000) - { - m_zx8301->data_w(space, offset & 0x1ffff, data); - } - if (m_qimi_enabled) - { - m_qimi->write(space, offset, data); - } - - m_cart->romoeh_w(0); - m_cart->write(space, offset & 0x7fff, data); - - m_exp->romoeh_w(0); - m_exp->write(space, offset, data); -} - - - -//************************************************************************** -// INTELLIGENT PERIPHERAL CONTROLLER -//************************************************************************** - -//------------------------------------------------- -// ipc_w - -//------------------------------------------------- - -WRITE8_MEMBER( ql_state::ipc_w ) -{ - m_zx8302->comctl_w(0); - m_zx8302->comctl_w(1); -} - - -//------------------------------------------------- -// ipc_port1_w - -//------------------------------------------------- - -WRITE8_MEMBER( ql_state::ipc_port1_w ) -{ - /* - - bit description - - 0 Keyboard column output (KBO0) - 1 Keyboard column output (KBO1) - 2 Keyboard column output (KBO2) - 3 Keyboard column output (KBO3) - 4 Keyboard column output (KBO4) - 5 Keyboard column output (KBO5) - 6 Keyboard column output (KBO6) - 7 Keyboard column output (KBO7) - - */ - - m_keylatch = data; -} - - -//------------------------------------------------- -// ipc_port2_r - -//------------------------------------------------- - -READ8_MEMBER( ql_state::ipc_port2_r ) -{ - /* - - bit description - - 0 Serial data input (SER2 RxD, SER1 TxD) - 1 - 2 - 3 - 4 - 5 - 6 - 7 ZX8302 serial link input/output (COMDATA) - - */ - - UINT8 data = 0; - - // SER2 serial data input - data |= m_ser2->rxd_r(); - - // COMDATA - data |= m_comdata_to_ipc << 7; - - return data; -} - - -//------------------------------------------------- -// ipc_port2_w - -//------------------------------------------------- - -WRITE8_MEMBER( ql_state::ipc_port2_w ) -{ - /* - - bit description - - 0 - 1 Speaker output - 2 Interrupt output (IPL0-2) - 3 Interrupt output (IPL1) - 4 Serial Clear-to-Send output (SER1 CTS) - 5 Serial Data Terminal Ready output (SER2 DTR) - 6 - 7 ZX8302 serial link input/output (COMDATA) - - */ - - // speaker - m_speaker->level_w(BIT(data, 1)); - - // interrupts - int ipl = (BIT(data, 2) << 1) | BIT(data, 3); - - if (ipl != m_ipl) - { - switch (ipl) - { - case 0: m_maincpu->set_input_line(M68K_IRQ_7, ASSERT_LINE); break; - case 1: m_maincpu->set_input_line(M68K_IRQ_5, ASSERT_LINE); break; // CTRL-ALT-7 pressed - case 2: m_maincpu->set_input_line(M68K_IRQ_2, ASSERT_LINE); break; - case 3: m_maincpu->set_input_line(M68K_IRQ_7, CLEAR_LINE); break; - } - - m_ipl = ipl; - } - - // TODO SER1 clear to send - - // SER2 data terminal ready - m_ser2->write_dtr(!BIT(data, 5)); - - // COMDATA - m_zx8302->comdata_w(BIT(data, 7)); -} - - -//------------------------------------------------- -// ipc_t1_r - -//------------------------------------------------- - -READ8_MEMBER( ql_state::ipc_t1_r ) -{ - return m_baudx4; -} - - -//------------------------------------------------- -// ipc_bus_r - -//------------------------------------------------- - -READ8_MEMBER( ql_state::ipc_bus_r ) -{ - /* - - bit description - - 0 Keyboard row input (KBI0) - 1 Keyboard row input (KBI1) - 2 Keyboard row input (KBI2) - 3 Keyboard row input (KBI3) - 4 Keyboard row input (KBI4) - 5 Keyboard row input (KBI5) - 6 Keyboard row input (KBI6) - 7 Keyboard row input (KBI7) - - */ - - UINT8 data = 0; - - if (BIT(m_keylatch, 0)) data |= m_y0->read() | m_joy0->read(); - if (BIT(m_keylatch, 1)) data |= m_y1->read() | m_joy1->read(); - if (BIT(m_keylatch, 2)) data |= m_y2->read(); - if (BIT(m_keylatch, 3)) data |= m_y3->read(); - if (BIT(m_keylatch, 4)) data |= m_y4->read(); - if (BIT(m_keylatch, 5)) data |= m_y5->read(); - if (BIT(m_keylatch, 6)) data |= m_y6->read(); - if (BIT(m_keylatch, 7)) data |= m_y7->read(); - - return data; -} - - - - -//************************************************************************** -// ADDRESS MAPS -//************************************************************************** - -//------------------------------------------------- -// ADDRESS_MAP( ql_mem ) -//------------------------------------------------- - -static ADDRESS_MAP_START( ql_mem, AS_PROGRAM, 8, ql_state ) - AM_RANGE(0x000000, 0x0fffff) AM_READWRITE(read, write) -ADDRESS_MAP_END - - -//------------------------------------------------- -// ADDRESS_MAP( ipc_io ) -//------------------------------------------------- - -static ADDRESS_MAP_START( ipc_io, AS_IO, 8, ql_state ) - AM_RANGE(0x00, 0x7f) AM_WRITE(ipc_w) - AM_RANGE(0x27, 0x28) AM_READNOP // IPC reads these to set P0 (bus) to Hi-Z mode - AM_RANGE(MCS48_PORT_P1, MCS48_PORT_P1) AM_WRITE(ipc_port1_w) - AM_RANGE(MCS48_PORT_P2, MCS48_PORT_P2) AM_READWRITE(ipc_port2_r, ipc_port2_w) - AM_RANGE(MCS48_PORT_T1, MCS48_PORT_T1) AM_READ(ipc_t1_r) - AM_RANGE(MCS48_PORT_BUS, MCS48_PORT_BUS) AM_READ(ipc_bus_r) AM_WRITENOP -ADDRESS_MAP_END - - - -//************************************************************************** -// INPUT PORTS -//************************************************************************** - -//------------------------------------------------- -// INPUT_PORTS( ql ) -//------------------------------------------------- - -static INPUT_PORTS_START( ql ) - PORT_START("Y0") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F4)) PORT_NAME("F4") - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1)) PORT_NAME("F1") - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%') - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F2)) PORT_NAME("F2") - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F3)) PORT_NAME("F3") - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F5) PORT_CHAR(UCHAR_MAMEKEY(F5)) PORT_NAME("F5") - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('&') - - PORT_START("Y1") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("ENTER") PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_LEFT) PORT_CODE(KEYCODE_LEFT) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_UP) PORT_CODE(KEYCODE_UP) PORT_CHAR(UCHAR_MAMEKEY(UP)) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("ESC @") PORT_CODE(KEYCODE_ESC) PORT_CHAR(UCHAR_MAMEKEY(ESC)) PORT_CHAR('\x1b') PORT_CHAR('@') - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_RIGHT) PORT_CODE(KEYCODE_RIGHT) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('\\') PORT_CHAR('|') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("SPACE") PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(UTF8_DOWN) PORT_CODE(KEYCODE_DOWN) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) - - PORT_START("Y2") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR(']') PORT_CHAR('}') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>') - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_C) PORT_CHAR('c') PORT_CHAR('C') - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_B) PORT_CHAR('b') PORT_CHAR('B') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_TILDE) PORT_NAME("\xc2\xa3 ~") PORT_CHAR(0xa3) PORT_CHAR('~') // ? ~ - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR('\'') PORT_CHAR('\"') - - PORT_START("Y3") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('[') PORT_CHAR('{') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("CAPS LOCK") PORT_CODE(KEYCODE_CAPSLOCK) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_K) PORT_CHAR('k') PORT_CHAR('K') - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_S) PORT_CHAR('s') PORT_CHAR('S') - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F) PORT_CHAR('f') PORT_CHAR('F') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('=') PORT_CHAR('+') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_G) PORT_CHAR('g') PORT_CHAR('G') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR(':') - - PORT_START("Y4") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_L) PORT_CHAR('l') PORT_CHAR('L') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_H) PORT_CHAR('h') PORT_CHAR('H') - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!') - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_A) PORT_CHAR('a') PORT_CHAR('A') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_P) PORT_CHAR('p') PORT_CHAR('P') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_D) PORT_CHAR('d') PORT_CHAR('D') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_J) PORT_CHAR('j') PORT_CHAR('J') - - PORT_START("Y5") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR('(') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_I) PORT_CHAR('i') PORT_CHAR('I') - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("TABULATE") PORT_CODE(KEYCODE_TAB) PORT_CHAR('\t') - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_R) PORT_CHAR('r') PORT_CHAR('R') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_CHAR('_') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_O) PORT_CHAR('o') PORT_CHAR('O') - - PORT_START("Y6") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('*') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('@') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('^') - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Q) PORT_CHAR('q') PORT_CHAR('Q') - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_E) PORT_CHAR('e') PORT_CHAR('E') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(')') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_T) PORT_CHAR('t') PORT_CHAR('T') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_U) PORT_CHAR('u') PORT_CHAR('U') - - PORT_START("Y7") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("SHIFT") PORT_CODE(KEYCODE_LSHIFT) PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("CTRL") PORT_CODE(KEYCODE_LCONTROL) PORT_CHAR(UCHAR_MAMEKEY(LCONTROL)) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("ALT") PORT_CODE(KEYCODE_LALT) PORT_CHAR(UCHAR_MAMEKEY(LALT)) PORT_CODE(KEYCODE_RALT) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_X) PORT_CHAR('x') PORT_CHAR('X') - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_V) PORT_CHAR('v') PORT_CHAR('V') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_N) PORT_CHAR('n') PORT_CHAR('N') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<') - - PORT_START("JOY0") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_PLAYER(1) PORT_8WAY PORT_CODE(KEYCODE_F4) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_PLAYER(1) PORT_8WAY PORT_CODE(KEYCODE_F1) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_UNUSED ) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_PLAYER(1) PORT_8WAY PORT_CODE(KEYCODE_F2) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT )PORT_PLAYER(1) PORT_8WAY PORT_CODE(KEYCODE_F3) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_CODE(KEYCODE_F5) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_UNUSED ) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_UNUSED ) - - PORT_START("JOY1") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_UNUSED ) - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_PLAYER(2) PORT_8WAY PORT_CODE(KEYCODE_LEFT) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_PLAYER(2) PORT_8WAY PORT_CODE(KEYCODE_UP) - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_UNUSED ) - PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT )PORT_PLAYER(2) PORT_8WAY PORT_CODE(KEYCODE_RIGHT) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_UNUSED ) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_CODE(KEYCODE_SPACE) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_PLAYER(2) PORT_8WAY PORT_CODE(KEYCODE_DOWN) - - PORT_START("config") - PORT_CONFNAME( 0x01, 0x00, "QL Internal Mouse Interface (QIMI)") - PORT_CONFSETTING( 0x00, DEF_STR( Off ) ) - PORT_CONFSETTING( 0x01, DEF_STR( On ) ) -INPUT_PORTS_END - - -//------------------------------------------------- -// INPUT_PORTS( ql_es ) -//------------------------------------------------- - -static INPUT_PORTS_START( ql_es ) - PORT_INCLUDE(ql) - - PORT_MODIFY("Y1") - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH) PORT_NAME("] \xc3\x9c") PORT_CHAR(']') PORT_CHAR(0xfc) PORT_CHAR(0xdc) - - PORT_MODIFY("Y2") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR('`') PORT_CHAR('^') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('!') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("[ \xc3\x87") PORT_CODE(KEYCODE_TILDE) PORT_CHAR('[') PORT_CHAR(0xe7) PORT_CHAR(0xc7) - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(';') PORT_CHAR(':') - - PORT_MODIFY("Y3") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('\'') PORT_CHAR('"') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\x91") PORT_CODE(KEYCODE_COLON) PORT_CHAR(0xf1) PORT_CHAR(0xd1) - - PORT_MODIFY("Y4") - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("1 \xc2\xa1") PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR(0xa1) - - PORT_MODIFY("Y6") - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("2 \xc2\xbf") PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR(0xbf) - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('/') - - PORT_MODIFY("Y7") - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('<') PORT_CHAR('>') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('?') -INPUT_PORTS_END - - -//------------------------------------------------- -// INPUT_PORTS( ql_de ) -//------------------------------------------------- - -static INPUT_PORTS_START( ql_de ) - PORT_INCLUDE(ql) - - PORT_MODIFY("Y0") - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('/') - - PORT_MODIFY("Y1") - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('<') PORT_CHAR('>') - - PORT_MODIFY("Y2") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR('+') PORT_CHAR('*') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Y) PORT_CHAR('y') PORT_CHAR('Y') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR(':') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_TILDE) PORT_CHAR('\\') PORT_CHAR('^') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\x84") PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(0xe4) PORT_CHAR(0xc4) - - PORT_MODIFY("Y3") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\x9c") PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR(0xfc) PORT_CHAR(0xdc) - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('#') PORT_CHAR('\'') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\x96") PORT_CODE(KEYCODE_COLON) PORT_CHAR(0xf6) PORT_CHAR(0xd6) - - PORT_MODIFY("Y4") - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("3 \xc2\xa3") PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR(0xa7) - - PORT_MODIFY("Y5") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR('(') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\x9f ?") PORT_CODE(KEYCODE_MINUS) PORT_CHAR(0xdf) PORT_CHAR('?') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z') - - PORT_MODIFY("Y6") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('"') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR('=') - - PORT_MODIFY("Y7") - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('-') PORT_CHAR('_') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR(';') -INPUT_PORTS_END - - -//------------------------------------------------- -// INPUT_PORTS( ql_it ) -//------------------------------------------------- - -static INPUT_PORTS_START( ql_it ) - PORT_INCLUDE(ql) - - PORT_MODIFY("Y0") - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_5) PORT_CHAR('(') PORT_CHAR('5') - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_4) PORT_CHAR('\'') PORT_CHAR('4') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("7 \xc3\xa8") PORT_CODE(KEYCODE_7) PORT_CHAR('?') PORT_CHAR('7') - - PORT_MODIFY("Y1") - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('<') PORT_CHAR('>') - - PORT_MODIFY("Y2") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR('$') PORT_CHAR('&') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_W) PORT_CHAR('w') PORT_CHAR('W') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_STOP) PORT_CHAR(':') PORT_CHAR('/') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("* \xc2\xa7") PORT_CODE(KEYCODE_TILDE) PORT_CHAR('*') PORT_CHAR(0xa7) - PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('?') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\xb9 %") PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(0xf9) PORT_CHAR('%') - - PORT_MODIFY("Y3") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\xac =") PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR(0xec) PORT_CHAR('=') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('-') PORT_CHAR('+') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_M) PORT_CHAR('m') PORT_CHAR('M') - - PORT_MODIFY("Y4") - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_3) PORT_CHAR('"') PORT_CHAR('3') - PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_1) PORT_CHAR('#') PORT_CHAR('1') - - PORT_MODIFY("Y5") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\xa7 9") PORT_CODE(KEYCODE_9) PORT_CHAR(0xe7) PORT_CHAR('9') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Z) PORT_CHAR('z') PORT_CHAR('Z') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_MINUS) PORT_CHAR(')') PORT_CHAR('\\') - - PORT_MODIFY("Y6") - PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_8) PORT_CHAR('^') PORT_CHAR('8') - PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\xa9 2") PORT_CODE(KEYCODE_2) PORT_CHAR(0xe9) PORT_CHAR('2') - PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_6) PORT_CHAR('_') PORT_CHAR('6') - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\xa0 0") PORT_CODE(KEYCODE_0) PORT_CHAR(0xe0) PORT_CHAR('0') - - PORT_MODIFY("Y7") - PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xc3\xb2 !") PORT_CODE(KEYCODE_SLASH) PORT_CHAR(0xf2) PORT_CHAR('!') - PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COLON) PORT_CHAR(';') PORT_CHAR('.') -INPUT_PORTS_END - - -//------------------------------------------------- -// INPUT_PORTS( ql_fr ) -//------------------------------------------------- - -static INPUT_PORTS_START( ql_fr ) - PORT_INCLUDE(ql) -INPUT_PORTS_END - - -//------------------------------------------------- -// INPUT_PORTS( ql_se ) -//------------------------------------------------- - -static INPUT_PORTS_START( ql_se ) - PORT_INCLUDE(ql) -INPUT_PORTS_END - - -//------------------------------------------------- -// INPUT_PORTS( ql_dk ) -//------------------------------------------------- - -static INPUT_PORTS_START( ql_dk ) - PORT_INCLUDE(ql) -INPUT_PORTS_END - - - -//************************************************************************** -// DEVICE CONFIGURATION -//************************************************************************** - -//------------------------------------------------- -// ZX8302_INTERFACE( ql_zx8302_intf ) -//------------------------------------------------- - -WRITE_LINE_MEMBER( ql_state::ql_baudx4_w ) -{ - m_baudx4 = state; -} - -// CPU to IPC -WRITE_LINE_MEMBER( ql_state::ql_comdata_w ) -{ - m_comdata_to_ipc = state; -} - -WRITE_LINE_MEMBER( ql_state::zx8302_mdselck_w ) -{ - m_mdv2->clk_w(state); - m_mdv1->clk_w(state); -} - -WRITE_LINE_MEMBER( ql_state::zx8302_mdrdw_w ) -{ - m_mdv1->read_write_w(state); - m_mdv2->read_write_w(state); -} - -WRITE_LINE_MEMBER( ql_state::zx8302_erase_w ) -{ - m_mdv1->erase_w(state); - m_mdv2->erase_w(state); -} - -WRITE_LINE_MEMBER( ql_state::zx8302_raw1_w ) -{ - m_mdv1->data1_w(state); - m_mdv2->data1_w(state); -} - -READ_LINE_MEMBER( ql_state::zx8302_raw1_r ) -{ - return m_mdv1->data1_r() | m_mdv2->data1_r(); -} - -WRITE_LINE_MEMBER( ql_state::zx8302_raw2_w ) -{ - m_mdv1->data2_w(state); - m_mdv2->data2_w(state); -} - -READ_LINE_MEMBER( ql_state::zx8302_raw2_r ) -{ - return m_mdv1->data2_r() | m_mdv2->data2_r(); -} - -void ql_state::update_interrupt() -{ - m_zx8302->extint_w(m_extintl || m_qimi_extint); -} - -WRITE_LINE_MEMBER( ql_state::exp_extintl_w ) -{ - m_extintl = state; - update_interrupt(); -} - -WRITE_LINE_MEMBER( ql_state::qimi_extintl_w ) -{ - if (m_qimi_enabled) - { - m_qimi_extint = state; - update_interrupt(); - } -} - - - -//************************************************************************** -// MACHINE INITIALIZATION -//************************************************************************** - -void ql_state::machine_start() -{ - // register for state saving - save_item(NAME(m_keylatch)); - save_item(NAME(m_ipl)); - save_item(NAME(m_comdata_to_ipc)); - save_item(NAME(m_baudx4)); -} - -void ql_state::machine_reset() -{ - // QIMI - m_qimi_enabled = (m_config->read() & 0x01) ? true : false; -} - - - -//************************************************************************** -// MACHINE CONFIGURATION -//************************************************************************** - -//------------------------------------------------- -// MACHINE_CONFIG( ql ) -//------------------------------------------------- - -static MACHINE_CONFIG_START( ql, ql_state ) - // basic machine hardware - MCFG_CPU_ADD(M68008_TAG, M68008, X1/2) - MCFG_CPU_PROGRAM_MAP(ql_mem) - - MCFG_CPU_ADD(I8749_TAG, I8749, X4) - MCFG_CPU_IO_MAP(ipc_io) - - // video hardware - MCFG_SCREEN_ADD(SCREEN_TAG, RASTER) - MCFG_SCREEN_REFRESH_RATE(50.08) - MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) // not accurate - MCFG_SCREEN_UPDATE_DEVICE(ZX8301_TAG, zx8301_device, screen_update) - MCFG_SCREEN_SIZE(960, 312) - MCFG_SCREEN_VISIBLE_AREA(0, 512-1, 0, 256-1) - - // sound hardware - MCFG_SPEAKER_STANDARD_MONO("mono") - MCFG_SOUND_ADD("speaker", SPEAKER_SOUND, 0) - MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25) - - // devices - MCFG_DEVICE_ADD(ZX8301_TAG, ZX8301, X1) - MCFG_ZX8301_CPU(M68008_TAG) - MCFG_ZX8301_VSYNC_CALLBACK(DEVWRITELINE(ZX8302_TAG, zx8302_device, vsync_w)) - - MCFG_VIDEO_SET_SCREEN(SCREEN_TAG) - - MCFG_DEVICE_ADD(ZX8302_TAG, ZX8302, X1) - MCFG_ZX8302_RTC_CLOCK(X2) - MCFG_ZX8302_OUT_IPL1L_CB(INPUTLINE(M68008_TAG, M68K_IRQ_2)) - MCFG_ZX8302_OUT_BAUDX4_CB(WRITELINE(ql_state, ql_baudx4_w)) - MCFG_ZX8302_OUT_COMDATA_CB(WRITELINE(ql_state, ql_comdata_w)) - // TXD1 - MCFG_ZX8302_OUT_TXD2_CB(DEVWRITELINE(RS232_B_TAG, rs232_port_device, write_txd)) - // NETOUT - MCFG_ZX8302_OUT_MDSELCK_CB(WRITELINE(ql_state, zx8302_mdselck_w)) - MCFG_ZX8302_OUT_MDSELD_CB(DEVWRITELINE(MDV_1, microdrive_image_device, comms_in_w)) - MCFG_ZX8302_OUT_MDRDW_CB(WRITELINE(ql_state, zx8302_mdrdw_w)) - MCFG_ZX8302_OUT_ERASE_CB(WRITELINE(ql_state, zx8302_erase_w)) - MCFG_ZX8302_OUT_RAW1_CB(WRITELINE(ql_state, zx8302_raw1_w)) - MCFG_ZX8302_IN_RAW1_CB(READLINE(ql_state, zx8302_raw1_r)) - MCFG_ZX8302_OUT_RAW2_CB(WRITELINE(ql_state, zx8302_raw2_w)) - MCFG_ZX8302_IN_RAW2_CB(READLINE(ql_state, zx8302_raw2_r)) - - MCFG_MICRODRIVE_ADD(MDV_1) - MCFG_MICRODRIVE_COMMS_OUT_CALLBACK(DEVWRITELINE(MDV_2, microdrive_image_device, comms_in_w)) - MCFG_MICRODRIVE_ADD(MDV_2) - - MCFG_RS232_PORT_ADD(RS232_A_TAG, default_rs232_devices, NULL) // wired as DCE - MCFG_RS232_PORT_ADD(RS232_B_TAG, default_rs232_devices, NULL) // wired as DTE - MCFG_RS232_CTS_HANDLER(DEVWRITELINE(ZX8302_TAG, zx8302_device, write_cts2)) - - MCFG_QL_EXPANSION_SLOT_ADD("exp", ql_expansion_cards, NULL) - //MCFG_QL_EXPANSION_SLOT_IPL0L_CALLBACK() - //MCFG_QL_EXPANSION_SLOT_IPL1L_CALLBACK() - //MCFG_QL_EXPANSION_SLOT_BERRL_CALLBACK() - MCFG_QL_EXPANSION_SLOT_EXTINTL_CALLBACK(WRITELINE(ql_state, exp_extintl_w)) - - MCFG_QL_ROM_CARTRIDGE_SLOT_ADD("rom", ql_rom_cartridge_cards, NULL) - - MCFG_DEVICE_ADD(QIMI_TAG, QIMI, 0) - MCFG_QIMI_EXTINT_CALLBACK(WRITELINE(ql_state, qimi_extintl_w)) - - // software lists - MCFG_SOFTWARE_LIST_ADD("cart_list", "ql_cart") - MCFG_SOFTWARE_LIST_ADD("cass_list", "ql_cass") - MCFG_SOFTWARE_LIST_ADD("flop_list", "ql_flop") - - // internal ram - MCFG_RAM_ADD(RAM_TAG) - MCFG_RAM_DEFAULT_SIZE("128K") -MACHINE_CONFIG_END - - -//------------------------------------------------- -// MACHINE_CONFIG( ql_ntsc ) -//------------------------------------------------- - -static MACHINE_CONFIG_DERIVED( ql_ntsc, ql ) - // video hardware - MCFG_SCREEN_MODIFY(SCREEN_TAG) - MCFG_SCREEN_REFRESH_RATE(60) - MCFG_SCREEN_SIZE(960, 262) - MCFG_SCREEN_VISIBLE_AREA(0, 512-1, 0, 256-1) -MACHINE_CONFIG_END - - -//------------------------------------------------- -// MACHINE_CONFIG( opd ) -//------------------------------------------------- - -static MACHINE_CONFIG_DERIVED( opd, ql ) - // internal ram - MCFG_RAM_MODIFY(RAM_TAG) - MCFG_RAM_DEFAULT_SIZE("128K") - MCFG_RAM_EXTRA_OPTIONS("256K") -MACHINE_CONFIG_END - - -/* -//------------------------------------------------- -// MACHINE_CONFIG( megaopd ) -//------------------------------------------------- - -static MACHINE_CONFIG_DERIVED( megaopd, ql ) - // internal ram - MCFG_RAM_MODIFY(RAM_TAG) - MCFG_RAM_DEFAULT_SIZE("256K") -MACHINE_CONFIG_END -*/ - - -//************************************************************************** -// ROMS -//************************************************************************** - -//------------------------------------------------- -// ROM( ql ) -//------------------------------------------------- - -ROM_START( ql ) - ROM_REGION( 0x10000, M68008_TAG, 0 ) - ROM_DEFAULT_BIOS("js") - ROM_SYSTEM_BIOS( 0, "fb", "v1.00 (FB)" ) - ROMX_LOAD( "fb.ic33", 0x0000, 0x8000, NO_DUMP, ROM_BIOS(1) ) - ROMX_LOAD( "fb.ic34", 0x8000, 0x4000, NO_DUMP, ROM_BIOS(1) ) - ROM_SYSTEM_BIOS( 1, "pm", "v1.01 (PM)" ) - ROMX_LOAD( "pm.ic33", 0x0000, 0x8000, NO_DUMP, ROM_BIOS(2) ) - ROMX_LOAD( "pm.ic34", 0x8000, 0x4000, NO_DUMP, ROM_BIOS(2) ) - ROM_SYSTEM_BIOS( 2, "ah", "v1.02 (AH)" ) - ROMX_LOAD( "ah.ic33.1", 0x0000, 0x4000, BAD_DUMP CRC(a9b4d2df) SHA1(142d6f01a9621aff5e0ad678bd3cbf5cde0db801), ROM_BIOS(3) ) - ROMX_LOAD( "ah.ic33.2", 0x4000, 0x4000, BAD_DUMP CRC(36488e4e) SHA1(ff6f597b30ea03ce480a3d6728fd1d858da34d6a), ROM_BIOS(3) ) - ROMX_LOAD( "ah.ic34", 0x8000, 0x4000, BAD_DUMP CRC(61259d4c) SHA1(bdd10d111e7ba488551a27c8d3b2743917ff1307), ROM_BIOS(3) ) - ROM_SYSTEM_BIOS( 3, "jm", "v1.03 (JM)" ) - ROMX_LOAD( "ql.jm 0000.ic33", 0x0000, 0x8000, CRC(1f8e840a) SHA1(7929e716dfe88318bbe99e34f47d039957fe3cc0), ROM_BIOS(4) ) - ROMX_LOAD( "ql.jm 8000.ic34", 0x8000, 0x4000, CRC(9168a2e9) SHA1(1e7c47a59fc40bd96dfefc2f4d86827c15f0199e), ROM_BIOS(4) ) - ROM_SYSTEM_BIOS( 4, "tb", "v1.0? (TB)" ) - ROMX_LOAD( "tb.ic33", 0x0000, 0x8000, BAD_DUMP CRC(1c86d688) SHA1(7df8028e6671afc4ebd5f65bf6c2d6019181f239), ROM_BIOS(5) ) - ROMX_LOAD( "tb.ic34", 0x8000, 0x4000, BAD_DUMP CRC(de7f9669) SHA1(9d6bc0b794541a4cec2203256ae92c7e68d1011d), ROM_BIOS(5) ) - ROM_SYSTEM_BIOS( 5, "js", "v1.10 (JS)" ) - ROMX_LOAD( "ql.js 0000.ic33", 0x0000, 0x8000, CRC(1bbad3b8) SHA1(59fd4372771a630967ee102760f4652904d7d5fa), ROM_BIOS(6) ) - ROMX_LOAD( "ql.js 8000.ic34", 0x8000, 0x4000, CRC(c970800e) SHA1(b8c9203026a7de6a44bd0942ec9343e8b222cb41), ROM_BIOS(6) ) - ROM_SYSTEM_BIOS( 6, "tyche", "v2.05 (Tyche)" ) - ROMX_LOAD( "tyche.rom", 0x0000, 0x010000, CRC(8724b495) SHA1(5f33a1bc3f23fd09c31844b65bc3aca7616f180a), ROM_BIOS(7) ) - ROM_SYSTEM_BIOS( 7, "min189", "Minerva v1.89" ) - ROMX_LOAD( "minerva.rom", 0x0000, 0x00c000, BAD_DUMP CRC(930befe3) SHA1(84a99c4df13b97f90baf1ec8cb6c2e52e3e1bb4d), ROM_BIOS(8) ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) - - ROM_REGION( 0x4000, "printer", 0 ) // original Sinclair QL printer (based on Seikosha SP-1000 / SP-800QL, with custom QL font) - ROM_LOAD( "bql010-sqpp", 0x0000, 0x4000, CRC(07834797) SHA1(ba94bdad2303a263008b6ea744669a19938d9998) ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_us ) -//------------------------------------------------- - -ROM_START( ql_us ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_LOAD( "jsu.ic33", 0x0000, 0x8000, BAD_DUMP CRC(e397f49f) SHA1(c06f92eabaf3e6dd298c51cb7f7535d8ef0ef9c5) ) - ROM_LOAD( "jsu.ic34", 0x8000, 0x4000, BAD_DUMP CRC(3debbacc) SHA1(9fbc3e42ec463fa42f9c535d63780ff53a9313ec) ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_es ) -//------------------------------------------------- - -ROM_START( ql_es ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_LOAD( "mge.ic33", 0x0000, 0x8000, BAD_DUMP CRC(d5293bde) SHA1(bf5af7e53a472d4e9871f182210787d601db0634) ) - ROM_LOAD( "mge.ic34", 0x8000, 0x4000, BAD_DUMP CRC(a694f8d7) SHA1(bd2868656008de85d7c191598588017ae8aa3339) ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_fr ) -//------------------------------------------------- - -ROM_START( ql_fr ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_LOAD( "mgf.ic33", 0x0000, 0x8000, NO_DUMP ) - ROM_LOAD( "mgf.ic34", 0x8000, 0x4000, NO_DUMP ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_de ) -//------------------------------------------------- - -ROM_START( ql_de ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_SYSTEM_BIOS( 0, "mg", "v1.10 (MG)" ) - ROMX_LOAD( "mgg.ic33", 0x0000, 0x8000, BAD_DUMP CRC(b4e468fd) SHA1(cd02a3cd79af90d48b65077d0571efc2f12f146e), ROM_BIOS(1) ) - ROMX_LOAD( "mgg.ic34", 0x8000, 0x4000, BAD_DUMP CRC(54959d40) SHA1(ffc0be9649f26019d7be82925c18dc699259877f), ROM_BIOS(1) ) - ROM_SYSTEM_BIOS( 1, "mf", "v1.14 (MF)" ) - ROMX_LOAD( "mf.ic33", 0x0000, 0x8000, BAD_DUMP CRC(49c40563) SHA1(d3bcd0614cf9b52e9d7fc2832e11463e5030476b), ROM_BIOS(2) ) - ROMX_LOAD( "mf.ic34", 0x8000, 0x4000, BAD_DUMP CRC(5974616b) SHA1(c3603768c08535c25f077eed02fb80128aff13d9), ROM_BIOS(2) ) - ROM_SYSTEM_BIOS( 2, "ultramg", "Ultrasoft" ) - ROMX_LOAD( "ultramg.rom", 0x0000, 0x00c000, BAD_DUMP CRC(ad12463b) SHA1(0561b3bc7ce090f3101b2142ee957c18c250eefa), ROM_BIOS(3) ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_it ) -//------------------------------------------------- - -ROM_START( ql_it ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_LOAD( "mgi.ic33", 0x0000, 0x8000, BAD_DUMP CRC(d5293bde) SHA1(bf5af7e53a472d4e9871f182210787d601db0634) ) - ROM_LOAD( "mgi.ic34", 0x8000, 0x4000, BAD_DUMP CRC(a2fdfb83) SHA1(162b1052737500f3c13497cdf0f813ba006bdae9) ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_se ) -//------------------------------------------------- - -ROM_START( ql_se ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_LOAD( "mgs.ic33", 0x0000, 0x8000, NO_DUMP ) - ROM_LOAD( "mgs.ic34", 0x8000, 0x4000, NO_DUMP ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_gr ) -//------------------------------------------------- - -ROM_START( ql_gr ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_LOAD( "efp.ic33", 0x0000, 0x8000, BAD_DUMP CRC(eb181641) SHA1(43c1e0215cf540cbbda240b1048910ff55681059) ) - ROM_LOAD( "efp.ic34", 0x8000, 0x4000, BAD_DUMP CRC(4c3b34b7) SHA1(f9dc571d2d4f68520b306ecc7516acaeea69ec0d) ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( ql_dk ) -//------------------------------------------------- - -ROM_START( ql_dk ) - ROM_REGION( 0xc000, M68008_TAG, 0 ) - ROM_LOAD( "mgd.ic33", 0x0000, 0x8000, BAD_DUMP CRC(f57755eb) SHA1(dc57939ffb8741e17967a1d2479c339750ec7ff6) ) - ROM_LOAD( "mgd.ic34", 0x8000, 0x4000, BAD_DUMP CRC(1892465a) SHA1(0ff3046b5276da6639d3fe79b22ae25cc265d540) ) - - ROM_REGION( 0x4000, "extra", 0 ) - ROM_LOAD( "extra.rom", 0x0000, 0x4000, NO_DUMP ) // located at 0x1c000 in M68008 memory map - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x400, "plds", 0 ) - ROM_LOAD( "hal16l8.ic38", 0x0000, 0x0400, NO_DUMP ) -ROM_END - - -//------------------------------------------------- -// ROM( tonto ) -//------------------------------------------------- - -ROM_START( tonto ) - ROM_REGION( 0x20000, M68008_TAG, 0 ) - ROM_LOAD( "xbaa02.ic4", 0x000000, 0x008000, CRC(86e7915b) SHA1(a4d8369052eaea93d2174cfd3b14e6cf777f54b4) ) - ROM_LOAD( "xbab03.ic5", 0x008000, 0x008000, CRC(97ef393c) SHA1(450c708e8dfbd42d939a9af6a72ef2a33a3dd3b5) ) - ROM_LOAD( "xbac02.ic6", 0x010000, 0x008000, CRC(a7950897) SHA1(7cd4d6e33a350420a9ebd5c1b32708c29cb20799) ) - ROM_LOAD( "xbad02.ic7", 0x018000, 0x008000, CRC(69d59443) SHA1(cdf28b1b4fca00e8cb79930a1963955af2925618) ) - - ROM_REGION( 0x800, I8749_TAG, 0 ) - ROM_LOAD( "ipc8049.ic24", 0x000, 0x800, CRC(6a0d1f20) SHA1(fcb1c97ee7c66e5b6d8fbb57c06fd2f6509f2e1b) ) - - ROM_REGION( 0x10000, I8051_TAG, 0 ) - ROM_LOAD( "8051-1.rom", 0x000000, 0x010000, NO_DUMP ) - - ROM_REGION( 0x10000, "tms5220", 0 ) - ROM_LOAD( "tms5220.rom", 0x000000, 0x004000, NO_DUMP ) - - ROM_REGION( 0x400000, "rompack", 0 ) - ROM_LOAD( "xbak02.ic6", 0x000000, 0x008000, CRC(3d61e84e) SHA1(7d0a473b0ed3e3ae3cd6d3fb43cb7a70a550d1d9) ) - ROM_LOAD( "xbaf01.ic7", 0x008000, 0x008000, CRC(c5724357) SHA1(6e765f8e85d2312c31e4b09c9a6645ab3d166e65) ) - ROM_LOAD( "xbag01.ic8", 0x010000, 0x008000, CRC(9af3bcbf) SHA1(9a848926f2bf6f632ab198a8bb03a8ee83ea0e5d) ) - ROM_LOAD( "qcaw02.ic9", 0x018000, 0x008000, CRC(1091a789) SHA1(33881b2a818cbaf610a0746fde4acfef5c91338f) ) - ROM_LOAD( "qcax02.ic10", 0x020000, 0x008000, CRC(396f13d9) SHA1(b2deb5db4565ff7224730c2f3245fbf9df84d728) ) -ROM_END - - -#if 0 -//------------------------------------------------- -// ROM( megaopd ) -//------------------------------------------------- - -ROM_START( megaopd ) - ROM_REGION( 0x20000, M68008_TAG, 0 ) - ROM_LOAD( "bios-1.rom", 0x000000, 0x008000, NO_DUMP ) - ROM_LOAD( "bios-2.rom", 0x008000, 0x008000, NO_DUMP ) - ROM_LOAD( "bios-3.rom", 0x010000, 0x008000, NO_DUMP ) - ROM_LOAD( "bios-4.rom", 0x018000, 0x008000, NO_DUMP ) - - ROM_REGION( 0x10000, I8051_TAG, 0 ) - ROM_LOAD( "8051-1.rom", 0x000000, 0x010000, NO_DUMP ) - - ROM_REGION( 0x10000, "tms5220", 0 ) - ROM_LOAD( "tms5220.rom", 0x000000, 0x004000, NO_DUMP ) - - ROM_REGION( 0x400000, "rompack", 0 ) - ROM_LOAD( "rompack-1.rom", 0x000000, 0x008000, NO_DUMP ) - ROM_LOAD( "rompack-2.rom", 0x008000, 0x008000, NO_DUMP ) - ROM_LOAD( "rompack-3.rom", 0x010000, 0x008000, NO_DUMP ) - ROM_LOAD( "rompack-4.rom", 0x018000, 0x008000, NO_DUMP ) - ROM_LOAD( "rompack-5.rom", 0x020000, 0x008000, NO_DUMP ) -ROM_END -#endif - - - -//************************************************************************** -// SYSTEM DRIVERS -//************************************************************************** - -// YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS -COMP( 1984, ql, 0, 0, ql, ql, driver_device, 0, "Sinclair Research Ltd", "QL (UK)", MACHINE_SUPPORTS_SAVE ) -COMP( 1985, ql_us, ql, 0, ql_ntsc, ql, driver_device, 0, "Sinclair Research Ltd", "QL (USA)", MACHINE_SUPPORTS_SAVE ) -COMP( 1985, ql_es, ql, 0, ql, ql_es, driver_device, 0, "Sinclair Research Ltd", "QL (Spain)", MACHINE_SUPPORTS_SAVE ) -COMP( 1985, ql_fr, ql, 0, ql, ql_fr, driver_device, 0, "Sinclair Research Ltd", "QL (France)", MACHINE_NOT_WORKING ) -COMP( 1985, ql_de, ql, 0, ql, ql_de, driver_device, 0, "Sinclair Research Ltd", "QL (Germany)", MACHINE_SUPPORTS_SAVE ) -COMP( 1985, ql_it, ql, 0, ql, ql_it, driver_device, 0, "Sinclair Research Ltd", "QL (Italy)", MACHINE_SUPPORTS_SAVE ) -COMP( 1985, ql_se, ql, 0, ql, ql_se, driver_device, 0, "Sinclair Research Ltd", "QL (Sweden)", MACHINE_NOT_WORKING ) -COMP( 1985, ql_dk, ql, 0, ql, ql_dk, driver_device, 0, "Sinclair Research Ltd", "QL (Denmark)", MACHINE_NOT_WORKING ) -COMP( 1985, ql_gr, ql, 0, ql, ql, driver_device, 0, "Sinclair Research Ltd", "QL (Greece)", MACHINE_SUPPORTS_SAVE ) -COMP( 1984, tonto, 0, 0, opd, ql, driver_device, 0, "British Telecom Business Systems", "Merlin M1800 Tonto", MACHINE_NOT_WORKING ) -//COMP( 1986, megaopd,tonto, 0, megaopd, ql, driver_device, 0, "International Computer Limited", "MegaOPD (USA)", MACHINE_NOT_WORKING ) |