mirror of
https://github.com/holub/mame
synced 2025-05-12 00:58:53 +03:00
435 lines
18 KiB
C
435 lines
18 KiB
C
/******************************************************************************
|
|
PeT mess@utanet.at Nov 2000pia6821_device
|
|
Updated by Dan Boris, 3/4/2007
|
|
Rewrite in progress, Dirk Best, 2007-07-31
|
|
|
|
ToDo:
|
|
- Printer. Tried to implement this but it was not working, currently disabled.
|
|
- Dual tape interface (done, but see bugs below)
|
|
- Implement punchtape reader/writer and TTY keyboard
|
|
- Front panel Reset switch (switch S1)
|
|
- Front panel Run/Step switch (switch S2)
|
|
|
|
Bugs
|
|
- Cassette should output data on PB7, but the bit stays High.
|
|
- At the end of saving, both motors sometimes get turned on!
|
|
- CA2 should switch the cassette circuits between input and output.
|
|
It goes High on Read (correct) but doesn't go Low for Write.
|
|
- Read of CA1 is to check the printer, but it never happens.
|
|
- Write to CB1 should occur to activate printer's Start line, but it
|
|
also never happens.
|
|
- The common factor is the 6522, maybe it has problems..
|
|
|
|
******************************************************************************/
|
|
|
|
#include "includes/aim65.h"
|
|
#include "aim65.lh"
|
|
|
|
|
|
/***************************************************************************
|
|
ADDRESS MAPS
|
|
***************************************************************************/
|
|
|
|
/* Note: RAM is mapped dynamically in machine/aim65.c */
|
|
static ADDRESS_MAP_START( aim65_mem, AS_PROGRAM, 8, aim65_state )
|
|
AM_RANGE( 0x1000, 0x9fff ) AM_NOP /* User available expansions */
|
|
AM_RANGE( 0xa000, 0xa00f ) AM_MIRROR(0x3f0) AM_DEVREADWRITE("via6522_1", via6522_device, read, write) // user via
|
|
AM_RANGE( 0xa400, 0xa47f ) AM_RAM /* RIOT RAM */
|
|
AM_RANGE( 0xa480, 0xa497 ) AM_DEVREADWRITE("riot", riot6532_device, read, write)
|
|
AM_RANGE( 0xa498, 0xa7ff ) AM_NOP /* Not available */
|
|
AM_RANGE( 0xa800, 0xa80f ) AM_MIRROR(0x3f0) AM_DEVREADWRITE("via6522_0", via6522_device, read, write) // system via
|
|
AM_RANGE( 0xac00, 0xac03 ) AM_DEVREADWRITE("pia6821", pia6821_device, read, write)
|
|
AM_RANGE( 0xac04, 0xac43 ) AM_RAM /* PIA RAM */
|
|
AM_RANGE( 0xac44, 0xafff ) AM_NOP /* Not available */
|
|
AM_RANGE( 0xb000, 0xffff ) AM_ROM /* 5 ROM sockets */
|
|
ADDRESS_MAP_END
|
|
|
|
|
|
/***************************************************************************
|
|
INPUT PORTS
|
|
***************************************************************************/
|
|
|
|
static INPUT_PORTS_START( aim65 )
|
|
PORT_START("keyboard_0")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Space") PORT_CODE(KEYCODE_SPACE) PORT_CHAR(32)
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(". >") PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("M") PORT_CODE(KEYCODE_M) PORT_CHAR('m')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('b')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('c')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Z") PORT_CODE(KEYCODE_Z) PORT_CHAR('z')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
|
|
PORT_START("keyboard_1")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("LF @") PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(10) PORT_CHAR('@')
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("L") PORT_CODE(KEYCODE_L) PORT_CHAR('l')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("J") PORT_CODE(KEYCODE_J) PORT_CHAR('j')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("G") PORT_CODE(KEYCODE_G) PORT_CHAR('g')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('d')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('a')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
|
|
PORT_START("keyboard_2")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Print") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(UCHAR_MAMEKEY(PRTSCR))
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("P") PORT_CODE(KEYCODE_P) PORT_CHAR('p')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("I") PORT_CODE(KEYCODE_I) PORT_CHAR('i')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Y") PORT_CODE(KEYCODE_Y) PORT_CHAR('y')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("R") PORT_CODE(KEYCODE_R) PORT_CHAR('r')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("W") PORT_CODE(KEYCODE_W) PORT_CHAR('w')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Esc") PORT_CODE(KEYCODE_TAB) PORT_CHAR(UCHAR_MAMEKEY(ESC))
|
|
|
|
PORT_START("keyboard_3")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Return") PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13)
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("- =") PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('-') PORT_CHAR('=')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("O") PORT_CODE(KEYCODE_O) PORT_CHAR('o')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("U") PORT_CODE(KEYCODE_U) PORT_CHAR('u')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("T") PORT_CODE(KEYCODE_T) PORT_CHAR('t')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('e')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Q") PORT_CODE(KEYCODE_Q) PORT_CHAR('q')
|
|
|
|
PORT_START("keyboard_4")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Ctrl") PORT_CODE(KEYCODE_CAPSLOCK) PORT_CHAR(UCHAR_SHIFT_2)
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(": *") PORT_CODE(KEYCODE_MINUS) PORT_CHAR(':') PORT_CHAR('*')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("9 )") PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR(')')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("7 '") PORT_CODE(KEYCODE_7) PORT_CHAR('7') 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("3 #") PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("1 !") PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!')
|
|
|
|
PORT_START("keyboard_5")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Left Shift") PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_UNUSED)
|
|
PORT_BIT(0x04, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("0") PORT_CODE(KEYCODE_0) PORT_CHAR('0')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("8 (") PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("6 &") PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("4 $") PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("2 \"") PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('\"')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F3") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR(UCHAR_MAMEKEY(F3))
|
|
|
|
PORT_START("keyboard_6")
|
|
PORT_BIT(0x01, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Right Shift") PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1)
|
|
PORT_BIT(0x02, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("Del") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8)
|
|
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("K") PORT_CODE(KEYCODE_K) PORT_CHAR('k')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("H") PORT_CODE(KEYCODE_H) PORT_CHAR('h')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('f')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("S") PORT_CODE(KEYCODE_S) PORT_CHAR('s')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F2") PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR(UCHAR_MAMEKEY(F2))
|
|
|
|
PORT_START("keyboard_7")
|
|
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_NAME("/ ?") PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?')
|
|
PORT_BIT(0x08, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME(", <") PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<')
|
|
PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("N") PORT_CODE(KEYCODE_N) PORT_CHAR('n')
|
|
PORT_BIT(0x20, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("V") PORT_CODE(KEYCODE_V) PORT_CHAR('v')
|
|
PORT_BIT(0x40, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("X") PORT_CODE(KEYCODE_X) PORT_CHAR('x')
|
|
PORT_BIT(0x80, IP_ACTIVE_LOW, IPT_KEYBOARD) PORT_NAME("F1") PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR(UCHAR_MAMEKEY(F1))
|
|
|
|
PORT_START("switches")
|
|
PORT_DIPNAME(0x08, 0x08, "KB/TTY")
|
|
PORT_DIPLOCATION("S3:1")
|
|
PORT_DIPSETTING( 0x00, "TTY")
|
|
PORT_DIPSETTING( 0x08, "KB")
|
|
INPUT_PORTS_END
|
|
|
|
|
|
/***************************************************************************
|
|
DEVICE INTERFACES
|
|
***************************************************************************/
|
|
|
|
|
|
/* Riot interface Z33 */
|
|
static const riot6532_interface aim65_riot_interface =
|
|
{
|
|
DEVCB_NULL,
|
|
DEVCB_DRIVER_MEMBER(aim65_state, aim65_riot_b_r),
|
|
DEVCB_DRIVER_MEMBER(aim65_state, aim65_riot_a_w),
|
|
DEVCB_NULL,
|
|
DEVCB_CPU_INPUT_LINE("maincpu", M6502_IRQ_LINE)
|
|
};
|
|
|
|
/* system via interface Z32 */
|
|
static const via6522_interface aim65_system_via =
|
|
{
|
|
DEVCB_NULL, // in port A
|
|
DEVCB_DRIVER_MEMBER(aim65_state, aim65_pb_r), // in port B
|
|
DEVCB_NULL, // in CA1 printer ready?
|
|
DEVCB_NULL, // in CB1
|
|
DEVCB_NULL, // in CA2
|
|
DEVCB_NULL, // in CB2
|
|
DEVCB_NULL, // out Port A
|
|
DEVCB_DRIVER_MEMBER(aim65_state, aim65_pb_w), // out port B
|
|
DEVCB_NULL, // out CA1
|
|
DEVCB_NULL, // out CB1 printer start
|
|
DEVCB_NULL, // out CA2 cass control (H=in)
|
|
DEVCB_NULL, // out CB2 turn printer on
|
|
DEVCB_CPU_INPUT_LINE("maincpu", M6502_IRQ_LINE) //IRQ
|
|
};
|
|
|
|
/* user via interface Z1 */
|
|
static const via6522_interface aim65_user_via =
|
|
{
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_CPU_INPUT_LINE("maincpu", M6502_IRQ_LINE)
|
|
};
|
|
|
|
/* R6520 interface U1 */
|
|
static const pia6821_interface aim65_pia_config =
|
|
{
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_DRIVER_MEMBER(aim65_state, aim65_pia_a_w),
|
|
DEVCB_DRIVER_MEMBER(aim65_state, aim65_pia_b_w),
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL,
|
|
DEVCB_NULL
|
|
};
|
|
|
|
// Deck 1 can play and record
|
|
static const cassette_interface aim65_1_cassette_interface =
|
|
{
|
|
cassette_default_formats,
|
|
NULL,
|
|
(cassette_state)(CASSETTE_PLAY | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_ENABLED),
|
|
NULL,
|
|
NULL
|
|
};
|
|
|
|
// Deck 2 can only record
|
|
static const cassette_interface aim65_2_cassette_interface =
|
|
{
|
|
cassette_default_formats,
|
|
NULL,
|
|
(cassette_state)(CASSETTE_RECORD | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_MUTED),
|
|
NULL,
|
|
NULL
|
|
};
|
|
|
|
const dl1416_interface aim65_ds1_intf =
|
|
{
|
|
DEVCB_DRIVER_MEMBER16(aim65_state, aim65_update_ds1)
|
|
};
|
|
|
|
const dl1416_interface aim65_ds2_intf =
|
|
{
|
|
DEVCB_DRIVER_MEMBER16(aim65_state, aim65_update_ds2)
|
|
};
|
|
|
|
const dl1416_interface aim65_ds3_intf =
|
|
{
|
|
DEVCB_DRIVER_MEMBER16(aim65_state, aim65_update_ds3)
|
|
};
|
|
|
|
const dl1416_interface aim65_ds4_intf =
|
|
{
|
|
DEVCB_DRIVER_MEMBER16(aim65_state, aim65_update_ds4)
|
|
};
|
|
|
|
const dl1416_interface aim65_ds5_intf =
|
|
{
|
|
DEVCB_DRIVER_MEMBER16(aim65_state, aim65_update_ds5)
|
|
};
|
|
|
|
/***************************************************************************
|
|
MACHINE DRIVERS
|
|
***************************************************************************/
|
|
|
|
struct aim_cart_range
|
|
{
|
|
const char *tag;
|
|
int offset;
|
|
};
|
|
|
|
static const struct aim_cart_range aim_cart_table[] =
|
|
{
|
|
{ ":z24", 0xd000 },
|
|
{ ":z25", 0xc000 },
|
|
{ ":z26", 0xb000 },
|
|
{ 0 }
|
|
};
|
|
|
|
DEVICE_IMAGE_LOAD_MEMBER( aim65_state, aim65_cart )
|
|
{
|
|
UINT32 size;
|
|
UINT8 *temp_copy;
|
|
const struct aim_cart_range *aim_cart = &aim_cart_table[0], *this_cart;
|
|
|
|
/* First, determine where this cart has to be loaded */
|
|
while (aim_cart->tag)
|
|
{
|
|
if (strcmp(aim_cart->tag, image.device().tag()) == 0)
|
|
break;
|
|
|
|
aim_cart++;
|
|
}
|
|
|
|
this_cart = aim_cart;
|
|
|
|
if (!this_cart->tag)
|
|
{
|
|
astring errmsg;
|
|
errmsg.printf("Tag '%s' could not be found", image.device().tag());
|
|
image.seterror(IMAGE_ERROR_UNSPECIFIED, errmsg.cstr());
|
|
return IMAGE_INIT_FAIL;
|
|
}
|
|
|
|
if (image.software_entry() == NULL)
|
|
{
|
|
size = image.length();
|
|
temp_copy = auto_alloc_array(machine(), UINT8, size);
|
|
|
|
if (size > 0x1000)
|
|
{
|
|
image.seterror(IMAGE_ERROR_UNSPECIFIED, "Unsupported cartridge size");
|
|
auto_free(machine(), temp_copy);
|
|
return IMAGE_INIT_FAIL;
|
|
}
|
|
|
|
if (image.fread(temp_copy, size) != size)
|
|
{
|
|
image.seterror(IMAGE_ERROR_UNSPECIFIED, "Unable to fully read from file");
|
|
auto_free(machine(), temp_copy);
|
|
return IMAGE_INIT_FAIL;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (image.get_software_region(this_cart->tag + 1) == NULL)
|
|
{
|
|
astring errmsg;
|
|
errmsg.printf("Attempted to load file with wrong extension\nCartslot '%s' only accepts files with '.%s' extension",
|
|
this_cart->tag, this_cart->tag + 1);
|
|
image.seterror(IMAGE_ERROR_UNSPECIFIED, errmsg.cstr());
|
|
return IMAGE_INIT_FAIL;
|
|
}
|
|
|
|
size = image.get_software_region_length(this_cart->tag + 1);
|
|
temp_copy = auto_alloc_array(machine(), UINT8, size);
|
|
memcpy(temp_copy, image.get_software_region(this_cart->tag + 1), size);
|
|
}
|
|
|
|
memcpy(memregion("maincpu")->base() + this_cart->offset, temp_copy, size);
|
|
|
|
auto_free(machine(), temp_copy);
|
|
|
|
return IMAGE_INIT_PASS;
|
|
}
|
|
|
|
static MACHINE_CONFIG_START( aim65, aim65_state )
|
|
/* basic machine hardware */
|
|
MCFG_CPU_ADD("maincpu", M6502, AIM65_CLOCK) /* 1 MHz */
|
|
MCFG_CPU_PROGRAM_MAP(aim65_mem)
|
|
|
|
|
|
MCFG_DEFAULT_LAYOUT(layout_aim65)
|
|
|
|
/* alpha-numeric display */
|
|
MCFG_DL1416T_ADD("ds1", aim65_ds1_intf)
|
|
MCFG_DL1416T_ADD("ds2", aim65_ds2_intf)
|
|
MCFG_DL1416T_ADD("ds3", aim65_ds3_intf)
|
|
MCFG_DL1416T_ADD("ds4", aim65_ds4_intf)
|
|
MCFG_DL1416T_ADD("ds5", aim65_ds5_intf)
|
|
|
|
/* Sound - wave sound only */
|
|
MCFG_SPEAKER_STANDARD_MONO("mono")
|
|
MCFG_SOUND_WAVE_ADD(WAVE_TAG, "cassette")
|
|
MCFG_SOUND_ROUTE(ALL_OUTPUTS, "mono", 0.25)
|
|
|
|
/* other devices */
|
|
MCFG_RIOT6532_ADD("riot", AIM65_CLOCK, aim65_riot_interface)
|
|
MCFG_VIA6522_ADD("via6522_0", 0, aim65_system_via)
|
|
MCFG_VIA6522_ADD("via6522_1", 0, aim65_user_via)
|
|
MCFG_PIA6821_ADD("pia6821", aim65_pia_config)
|
|
|
|
MCFG_CASSETTE_ADD( "cassette", aim65_1_cassette_interface )
|
|
MCFG_CASSETTE_ADD( "cassette2", aim65_2_cassette_interface )
|
|
|
|
MCFG_CARTSLOT_ADD("z26")
|
|
MCFG_CARTSLOT_EXTENSION_LIST("z26")
|
|
MCFG_CARTSLOT_INTERFACE("aim65_cart")
|
|
MCFG_CARTSLOT_LOAD(aim65_state, aim65_cart)
|
|
MCFG_CARTSLOT_NOT_MANDATORY
|
|
|
|
MCFG_CARTSLOT_ADD("z25")
|
|
MCFG_CARTSLOT_EXTENSION_LIST("z25")
|
|
MCFG_CARTSLOT_INTERFACE("aim65_cart")
|
|
MCFG_CARTSLOT_LOAD(aim65_state, aim65_cart)
|
|
MCFG_CARTSLOT_NOT_MANDATORY
|
|
|
|
MCFG_CARTSLOT_ADD("z24")
|
|
MCFG_CARTSLOT_EXTENSION_LIST("z24")
|
|
MCFG_CARTSLOT_INTERFACE("aim65_cart")
|
|
MCFG_CARTSLOT_NOT_MANDATORY
|
|
MCFG_CARTSLOT_LOAD(aim65_state, aim65_cart)
|
|
|
|
/* internal ram */
|
|
MCFG_RAM_ADD(RAM_TAG)
|
|
MCFG_RAM_DEFAULT_SIZE("4K")
|
|
MCFG_RAM_EXTRA_OPTIONS("1K,2K,3K")
|
|
|
|
/* Software lists */
|
|
MCFG_SOFTWARE_LIST_ADD("cart_list","aim65_cart")
|
|
MACHINE_CONFIG_END
|
|
|
|
|
|
/***************************************************************************
|
|
ROM DEFINITIONS
|
|
***************************************************************************/
|
|
|
|
ROM_START( aim65 )
|
|
ROM_REGION(0x10000, "maincpu", 0)
|
|
ROM_SYSTEM_BIOS(0, "aim65", "Rockwell AIM-65")
|
|
ROMX_LOAD("aim65mon.z23", 0xe000, 0x1000, CRC(90e44afe) SHA1(78e38601edf6bfc787b58750555a636b0cf74c5c), ROM_BIOS(1))
|
|
ROMX_LOAD("aim65mon.z22", 0xf000, 0x1000, CRC(d01914b0) SHA1(e5b5ddd4cd43cce073a718ee4ba5221f2bc84eaf), ROM_BIOS(1))
|
|
ROM_SYSTEM_BIOS(1, "dynatem", "Dynatem AIM-65")
|
|
ROMX_LOAD("dynaim65.z23", 0xe000, 0x1000, CRC(90e44afe) SHA1(78e38601edf6bfc787b58750555a636b0cf74c5c), ROM_BIOS(2))
|
|
ROMX_LOAD("dynaim65.z22", 0xf000, 0x1000, CRC(83e1c6e7) SHA1(444134043edd83385bd70434cb100269901c4417), ROM_BIOS(2))
|
|
ROM_END
|
|
|
|
/* Currently dumped and available software:
|
|
*
|
|
* Name Loc CRC32 SHA1
|
|
* ------------------------------------------------------------------------
|
|
* Assembler Z24 0878b399 483e92b57d64be51643a9f6490521a8572aa2f68
|
|
* Basic V1.1 Z25 d7b42d2a 4bbdb28d332429825adea0266ed9192786d9e392
|
|
* Basic V1.1 Z26 36a61f39 f5ce0126cb594a565e730973fd140d03c298cefa
|
|
* Forth V1.3 Z25 0671d019 dd2a1613e435c833634100cf4a22c6cff70c7a26
|
|
* Forth V1.3 Z26 a80ad472 42a2e8c86829a2fe48090e6665ff9fe25b12b070
|
|
* Mathpack Z24 4889af55 5e9541ddfc06e3802d09b30d1bd89c5da914c76e
|
|
* Monitor Z22 d01914b0 e5b5ddd4cd43cce073a718ee4ba5221f2bc84eaf
|
|
* Monitor Z23 90e44afe 78e38601edf6bfc787b58750555a636b0cf74c5c
|
|
* Monitor Dynatem Z22 83e1c6e7 444134043edd83385bd70434cb100269901c4417
|
|
* PL/65 V1.0 Z25 76dcf864 e937c54ed109401f796640cd45b27dfefb76667e
|
|
* PL/65 V1.0 Z26 2ac71abd 6df5e3125bebefac80d51d9337555f54bdf0d8ea
|
|
*
|
|
*/
|
|
|
|
|
|
/***************************************************************************
|
|
GAME DRIVERS
|
|
***************************************************************************/
|
|
|
|
/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */
|
|
COMP(1977, aim65, 0, 0, aim65, aim65, driver_device, 0, "Rockwell", "AIM 65", GAME_NO_SOUND_HW )
|