From cc6559a2d1a0d1ecc76cb7582ba67b90c4fb2ceb Mon Sep 17 00:00:00 2001 From: Angelo Salese Date: Thu, 29 Jan 2015 00:46:51 +0100 Subject: Re-added old version drivers for reference. Added debug for vram attribute & 0xf0, which eventually hides blinking .... --- src/mess/drivers/c65.c | 8 +- src/mess/drivers/c65_old.c | 648 +++++++++++++++++++++ src/mess/machine/c65_old.c | 1338 ++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 1992 insertions(+), 2 deletions(-) create mode 100644 src/mess/drivers/c65_old.c create mode 100644 src/mess/machine/c65_old.c diff --git a/src/mess/drivers/c65.c b/src/mess/drivers/c65.c index 88c500c8375..157b5792632 100644 --- a/src/mess/drivers/c65.c +++ b/src/mess/drivers/c65.c @@ -125,11 +125,13 @@ UINT32 c65_state::screen_update( screen_device &screen, bitmap_ind16 &bitmap, co int ym = (y & 7); UINT8 tile = m_workram[xi+yi*80+0x800]; UINT8 attr = m_cram[xi+yi*80]; + if(attr & 0xf0) + attr = machine().rand() & 0xf; + int enable_dot = ((m_iplrom[(tile<<3)+ym+0xd000] >> xm) & 1); //if(cliprect.contains(x, y)) - - bitmap.pix16(y, x) = m_palette->pen((enable_dot) ? attr & 0xf : border_color); + bitmap.pix16(y, x) = m_palette->pen((enable_dot) ? attr & 0xf : border_color); //gfx->opaque(bitmap,cliprect,tile,0,0,0,x*8,y*8); @@ -247,6 +249,8 @@ void c65_state::DMAgicExecute(address_space &space,UINT32 address) dst|=(space.read_byte(address++)<<8); dst|=(space.read_byte(address++)<<16); + if(cmd & 0xfc) + printf("%02x\n",cmd & 0xfc); switch(cmd & 3) { case 0: // copy - TODO: untested diff --git a/src/mess/drivers/c65_old.c b/src/mess/drivers/c65_old.c new file mode 100644 index 00000000000..466d32aa269 --- /dev/null +++ b/src/mess/drivers/c65_old.c @@ -0,0 +1,648 @@ +/*************************************************************************** + + commodore c65 home computer + PeT mess@utanet.at + + documention + www.funet.fi + +***************************************************************************/ + +/* + +2008 - Driver Updates +--------------------- + +(most of the informations are taken from http://www.zimmers.net/cbmpics/ ) + + +[CBM systems which belong to this driver] + +* Commodore 65 (1989) + +Also known as C64 DX at early stages of the project. It was cancelled +around 1990-1991. Only few units survive (they were sold after Commodore +liquidation in 1994). + +CPU: CSG 4510 (3.54 MHz) +RAM: 128 kilobytes, expandable to 8 megabytes +ROM: 128 kilobytes +Video: CSG 4569 "VIC-III" (6 Video modes; Resolutions from 320x200 to + 1280x400; 80 columns text; Palette of 4096 colors) +Sound: CSG 8580 "SID" x2 (6 voice stereo synthesizer/digital sound + capabilities) +Ports: CSG 4510 (2 Joystick/Mouse ports; CBM Serial port; CBM 'USER' + port; CBM Monitor port; Power and reset switches; C65 bus drive + port; RGBI video port; 2 RCA audio ports; RAM expansion port; C65 + expansion port) +Keyboard: Full-sized 77 key QWERTY (12 programmable function keys; + 4 direction cursor-pad) +Additional Hardware: Built in 3.5" DD disk drive (1581 compatible) +Miscellaneous: Partially implemented Commodore 64 emulation + +[Notes] + +The datasette port was removed here. C65 supports an additional "dumb" +drive externally. It also features, in addition to the standard CBM +bus serial (available in all modes), a Fast and a Burst serial bus +(both available in C65 mode only) + +*/ + + +#include "emu.h" +#include "cpu/m6502/m4510.h" +#include "machine/mos6526.h" +#include "machine/cbm_snqk.h" +#include "includes/c65.h" +#include "bus/cbmiec/cbmiec.h" +#include "machine/ram.h" + +static void cbm_c65_quick_sethiaddress( address_space &space, UINT16 hiaddress ) +{ + space.write_byte(0x82, hiaddress & 0xff); + space.write_byte(0x83, hiaddress >> 8); +} + +QUICKLOAD_LOAD_MEMBER( c65_state, cbm_c65 ) +{ + return general_cbm_loadsnap(image, file_type, quickload_size, m_maincpu->space(AS_PROGRAM), 0, cbm_c65_quick_sethiaddress); +} + +/************************************* + * + * Main CPU memory handlers + * + *************************************/ + +static ADDRESS_MAP_START( c65_mem , AS_PROGRAM, 8, c65_state ) + AM_RANGE(0x00000, 0x07fff) AM_RAMBANK("bank11") + AM_RANGE(0x08000, 0x09fff) AM_READ_BANK("bank1") AM_WRITE_BANK("bank12") + AM_RANGE(0x0a000, 0x0bfff) AM_READ_BANK("bank2") AM_WRITE_BANK("bank13") + AM_RANGE(0x0c000, 0x0cfff) AM_READ_BANK("bank3") AM_WRITE_BANK("bank14") + AM_RANGE(0x0d000, 0x0d7ff) AM_READ_BANK("bank4") AM_WRITE_BANK("bank5") + AM_RANGE(0x0d800, 0x0dbff) AM_READ_BANK("bank6") AM_WRITE_BANK("bank7") + AM_RANGE(0x0dc00, 0x0dfff) AM_READ_BANK("bank8") AM_WRITE_BANK("bank9") + AM_RANGE(0x0e000, 0x0ffff) AM_READ_BANK("bank10") AM_WRITE_BANK("bank15") + AM_RANGE(0x10000, 0x1f7ff) AM_RAM + AM_RANGE(0x1f800, 0x1ffff) AM_RAM AM_SHARE("colorram") + + AM_RANGE(0x20000, 0x23fff) AM_ROM /* &c65_dos, maps to 0x8000 */ + AM_RANGE(0x24000, 0x28fff) AM_ROM /* reserved */ + AM_RANGE(0x29000, 0x29fff) AM_ROM AM_SHARE("c65_chargen") + AM_RANGE(0x2a000, 0x2bfff) AM_ROM AM_SHARE("basic") + AM_RANGE(0x2c000, 0x2cfff) AM_ROM AM_SHARE("interface") + AM_RANGE(0x2d000, 0x2dfff) AM_ROM AM_SHARE("chargen") + AM_RANGE(0x2e000, 0x2ffff) AM_ROM AM_SHARE("kernal") + + AM_RANGE(0x30000, 0x31fff) AM_ROM /*&c65_monitor, monitor maps to 0x6000 */ + AM_RANGE(0x32000, 0x37fff) AM_ROM /*&c65_basic, */ + AM_RANGE(0x38000, 0x3bfff) AM_ROM /*&c65_graphics, */ + AM_RANGE(0x3c000, 0x3dfff) AM_ROM /* reserved */ + AM_RANGE(0x3e000, 0x3ffff) AM_ROM /* &c65_kernal, */ + + AM_RANGE(0x40000, 0x7ffff) AM_NOP + /* 8 megabyte full address space! */ +ADDRESS_MAP_END + + +/************************************* + * + * Input Ports + * + *************************************/ + +static INPUT_PORTS_START( c65 ) + PORT_START( "ROW0" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Crsr Down Up") PORT_CODE(KEYCODE_RALT) PORT_CHAR(UCHAR_MAMEKEY(DOWN)) PORT_CHAR(UCHAR_MAMEKEY(UP)) + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F3) PORT_CHAR(UCHAR_MAMEKEY(F5)) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F2) PORT_CHAR(UCHAR_MAMEKEY(F3)) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F1) PORT_CHAR(UCHAR_MAMEKEY(F1)) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F4) PORT_CHAR(UCHAR_MAMEKEY(F7)) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Crsr Right Left") PORT_CODE(KEYCODE_RCONTROL) PORT_CHAR(UCHAR_MAMEKEY(RIGHT)) PORT_CHAR(UCHAR_MAMEKEY(LEFT)) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Return") PORT_CODE(KEYCODE_ENTER) PORT_CHAR(13) + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("INST DEL") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8) PORT_CHAR(UCHAR_MAMEKEY(INSERT)) + + PORT_START( "ROW1" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Shift (Left)") PORT_CODE(KEYCODE_LSHIFT) PORT_CHAR(UCHAR_SHIFT_1) + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_E) PORT_CHAR('E') + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_S) PORT_CHAR('S') + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Z) PORT_CHAR('Z') + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$') + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_A) PORT_CHAR('A') + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_W) PORT_CHAR('W') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#') + + PORT_START( "ROW2" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_X) PORT_CHAR('X') + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_T) PORT_CHAR('T') + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_F) PORT_CHAR('F') + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_C) PORT_CHAR('C') + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('&') + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_D) PORT_CHAR('D') + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_R) PORT_CHAR('R') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%') + + PORT_START( "ROW3" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_V) PORT_CHAR('V') + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_U) PORT_CHAR('U') + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_H) PORT_CHAR('H') + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_B) PORT_CHAR('B') + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('(') + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_G) PORT_CHAR('G') + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('\'') + + PORT_START( "ROW4" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_N) PORT_CHAR('N') + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_O) PORT_CHAR('O') + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_K) PORT_CHAR('K') + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_M) PORT_CHAR('M') + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_0) PORT_CHAR('0') + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_J) PORT_CHAR('J') + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_I) PORT_CHAR('I') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR(')') + + PORT_START( "ROW5" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<') + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('@') + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_COLON) PORT_CHAR(':') PORT_CHAR('[') + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>') + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('-') + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_L) PORT_CHAR('L') + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_P) PORT_CHAR('P') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_MINUS) PORT_CHAR('+') + + PORT_START( "ROW6" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?') + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xE2\x86\x91 Pi") PORT_CODE(KEYCODE_DEL) PORT_CHAR(0x2191) PORT_CHAR(0x03C0) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('=') + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Shift (Right)") PORT_CODE(KEYCODE_RSHIFT) PORT_CHAR(UCHAR_SHIFT_1) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("CLR HOME") PORT_CODE(KEYCODE_INSERT) PORT_CHAR(UCHAR_MAMEKEY(HOME)) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(';') PORT_CHAR(']') + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR('*') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR('\xA3') + + PORT_START( "ROW7" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("RUN STOP") PORT_CODE(KEYCODE_HOME) + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_Q) PORT_CHAR('Q') + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("CBM") PORT_CODE(KEYCODE_LALT) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_SPACE) PORT_CHAR(' ') + PORT_BIT( 0x08, 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_TAB) PORT_CHAR(UCHAR_SHIFT_2) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\xE2\x86\x90") PORT_CODE(KEYCODE_TILDE) PORT_CHAR(0x2190) + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_CODE(KEYCODE_1) PORT_CHAR('1') PORT_CHAR('!') + PORT_START("FUNCT") + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("ESC") PORT_CODE(KEYCODE_F1) + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("F13 F14") PORT_CODE(KEYCODE_F11) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("F11 F12") PORT_CODE(KEYCODE_F10) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("F9 F10") PORT_CODE(KEYCODE_F9) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("HELP") PORT_CODE(KEYCODE_F12) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("ALT") PORT_CODE(KEYCODE_F2) /* non blocking */ + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("TAB") PORT_CODE(KEYCODE_TAB) + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("NO SCRL") PORT_CODE(KEYCODE_F4) + + PORT_START( "SPECIAL" ) /* special keys */ + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Restore") PORT_CODE(KEYCODE_PRTSCR) + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Shift Lock (switch)") PORT_CODE(KEYCODE_CAPSLOCK) PORT_TOGGLE PORT_CHAR(UCHAR_MAMEKEY(CAPSLOCK)) + PORT_CONFNAME( 0x20, 0x00, "(C65) Caps Lock (switch)") PORT_CODE(KEYCODE_F3) + PORT_CONFSETTING( 0x00, DEF_STR( Off ) ) + PORT_CONFSETTING( 0x20, DEF_STR( On ) ) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_UNUSED ) + + PORT_START("CTRLSEL") /* Controller selection */ + PORT_CONFNAME( 0x07, 0x00, "Gameport A" ) + PORT_CONFSETTING( 0x00, DEF_STR( Joystick ) ) + PORT_CONFSETTING( 0x01, "Paddles 1 & 2" ) + PORT_CONFSETTING( 0x02, "Mouse 1351" ) + PORT_CONFSETTING( 0x03, "Mouse (Non Proportional) 1350" ) + PORT_CONFSETTING( 0x04, "Lightpen" ) +// PORT_CONFSETTING( 0x05, "Koala Pad" ) + PORT_CONFSETTING( 0x06, "Lightgun" ) + PORT_CONFSETTING( 0x07, "No Device Connected" ) + PORT_CONFNAME( 0x70, 0x00, "Gameport B" ) + PORT_CONFSETTING( 0x00, DEF_STR( Joystick ) ) + PORT_CONFSETTING( 0x10, "Paddles 3 & 4" ) +// PORT_CONFSETTING( 0x20, "Mouse 1351" ) +// PORT_CONFSETTING( 0x30, "Mouse (Non Proportional) 1350" ) + PORT_CONFSETTING( 0x70, "No Device Connected" ) + PORT_CONFNAME( 0x80, 0x00, "Swap Gameport A and B") PORT_CODE(KEYCODE_F1) PORT_TOGGLE + PORT_CONFSETTING( 0x00, DEF_STR( No ) ) + PORT_CONFSETTING( 0x80, DEF_STR( Yes ) ) + + PORT_START("JOY1_1B") + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x00) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x00) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x00) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x00) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x00) + PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED ) + + PORT_START("JOY2_1B") + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_HOME) PORT_CODE(JOYCODE_Y_UP_SWITCH) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x00) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_END) PORT_CODE(JOYCODE_Y_DOWN_SWITCH) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x00) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_DEL) PORT_CODE(JOYCODE_X_LEFT_SWITCH) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x00) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_PGDN) PORT_CODE(JOYCODE_X_RIGHT_SWITCH) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x00) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_CODE(KEYCODE_INSERT) PORT_CODE(JOYCODE_BUTTON1) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x00) + PORT_BIT( 0xe0, IP_ACTIVE_HIGH, IPT_UNUSED ) + + /* Mouse Commodore 1350 was basically working as a Joystick */ + PORT_START("JOY1_2B") + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(1) PORT_NAME("Mouse 1350 Up") PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x03) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(1) PORT_NAME("Mouse 1350 Down") PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x03) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(1) PORT_NAME("Mouse 1350 Left") PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x03) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(1) PORT_NAME("Mouse 1350 Right") PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x03) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(1) PORT_NAME("Mouse 1350 Button 1") PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x03) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_PLAYER(1) PORT_NAME("Mouse 1350 Button 2") PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x03) + PORT_BIT( 0xc0, IP_ACTIVE_HIGH, IPT_UNUSED ) + + /* Still to verify how many mices you were able to plug into a c64 */ + /* Only one, for now */ + PORT_START("JOY2_2B") + PORT_BIT( 0xff, IP_ACTIVE_HIGH, IPT_UNUSED ) +/* PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_JOYSTICK_UP ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_HOME) PORT_CODE(JOYCODE_Y_UP_SWITCH) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_JOYSTICK_DOWN ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_END) PORT_CODE(JOYCODE_Y_DOWN_SWITCH) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x30) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_JOYSTICK_LEFT ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_DEL) PORT_CODE(JOYCODE_X_LEFT_SWITCH) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x30) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_JOYSTICK_RIGHT ) PORT_8WAY PORT_PLAYER(2) PORT_CODE(KEYCODE_PGDN) PORT_CODE(JOYCODE_X_RIGHT_SWITCH) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x30) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON1 ) PORT_PLAYER(2) PORT_CODE(KEYCODE_INSERT) PORT_CODE(JOYCODE_BUTTON1) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x30) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON2 ) PORT_PLAYER(2) PORT_CODE(KEYCODE_PGUP) PORT_CODE(JOYCODE_BUTTON2) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x30) + PORT_BIT( 0xc0, IP_ACTIVE_HIGH, IPT_UNUSED ) +*/ + PORT_START("PADDLE1") + PORT_BIT( 0xff, 128, IPT_PADDLE) PORT_SENSITIVITY(30) PORT_KEYDELTA(20) PORT_MINMAX(0,255) PORT_CENTERDELTA(0) PORT_CODE_DEC(KEYCODE_LEFT) PORT_CODE_INC(KEYCODE_RIGHT) PORT_CODE_DEC(JOYCODE_X_LEFT_SWITCH) PORT_CODE_INC(JOYCODE_X_RIGHT_SWITCH) PORT_PLAYER(1) PORT_REVERSE PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x01) + + PORT_START("PADDLE2") + PORT_BIT( 0xff, 128, IPT_PADDLE) PORT_SENSITIVITY(30) PORT_KEYDELTA(20) PORT_MINMAX(0,255) PORT_CENTERDELTA(0) PORT_CODE_DEC(KEYCODE_DOWN) PORT_CODE_INC(KEYCODE_UP) PORT_CODE_DEC(JOYCODE_Y_UP_SWITCH) PORT_CODE_INC(JOYCODE_Y_DOWN_SWITCH) PORT_PLAYER(2) PORT_REVERSE PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x01) + + PORT_START("PADDLE3") + PORT_BIT( 0xff, 128, IPT_PADDLE) PORT_SENSITIVITY(30) PORT_KEYDELTA(20) PORT_MINMAX(0,255) PORT_CENTERDELTA(0) PORT_CODE_DEC(KEYCODE_HOME) PORT_CODE_INC(KEYCODE_PGUP) PORT_PLAYER(3) PORT_REVERSE PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x10) + + PORT_START("PADDLE4") + PORT_BIT( 0xff, 128, IPT_PADDLE) PORT_SENSITIVITY(30) PORT_KEYDELTA(20) PORT_MINMAX(0,255) PORT_CENTERDELTA(0) PORT_CODE_DEC(KEYCODE_END) PORT_CODE_INC(KEYCODE_PGDN) PORT_PLAYER(4) PORT_REVERSE PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x10) + + PORT_START("TRACKX") + PORT_BIT( 0x7e, 0x00, IPT_TRACKBALL_X) PORT_SENSITIVITY(100) PORT_KEYDELTA(0) PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x02) + + PORT_START("TRACKY") + PORT_BIT( 0x7e, 0x00, IPT_TRACKBALL_Y) PORT_SENSITIVITY(100) PORT_KEYDELTA(0) PORT_PLAYER(1) PORT_REVERSE PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x02) + + PORT_START("LIGHTX") + PORT_BIT( 0xff, 0x00, IPT_TRACKBALL_X) PORT_NAME("Lightpen X Axis") PORT_CROSSHAIR(X, 1.0, 0.0, 0) PORT_SENSITIVITY(30) PORT_KEYDELTA(20) PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x04) + + PORT_START("LIGHTY") + PORT_BIT( 0xff, 0x00, IPT_TRACKBALL_Y) PORT_NAME("Lightpen Y Axis") PORT_CROSSHAIR(Y, 1.0, 0.0, 0) PORT_SENSITIVITY(30) PORT_KEYDELTA(20) PORT_PLAYER(1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x04) + + PORT_START("OTHER") + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_BUTTON1) PORT_NAME("Paddle 1 Button") PORT_CODE(KEYCODE_LCONTROL) PORT_CODE(JOYCODE_BUTTON1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x01) + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_BUTTON2) PORT_NAME("Paddle 2 Button") PORT_CODE(KEYCODE_LALT) PORT_CODE(JOYCODE_BUTTON2) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x01) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_BUTTON3) PORT_NAME("Paddle 3 Button") PORT_CODE(KEYCODE_INSERT) PORT_CODE(JOYCODE_BUTTON1) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x10) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_BUTTON4) PORT_NAME("Paddle 4 Button") PORT_CODE(KEYCODE_DEL) PORT_CODE(JOYCODE_BUTTON2) PORT_CONDITION("CTRLSEL", 0xf0, EQUALS, 0x10) + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_BUTTON1) PORT_NAME("Lightpen Signal") PORT_CODE(KEYCODE_LCONTROL) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x04) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_BUTTON1) PORT_NAME("Mouse Button Left") PORT_CODE(KEYCODE_LCONTROL) PORT_CODE(JOYCODE_BUTTON1) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x02) + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_BUTTON2) PORT_NAME("Mouse Button Right") PORT_CODE(KEYCODE_LALT) PORT_CODE(JOYCODE_BUTTON2) PORT_CONDITION("CTRLSEL", 0x0f, EQUALS, 0x02)INPUT_PORTS_END + + +static INPUT_PORTS_START( c65ger ) + PORT_INCLUDE( c65 ) + + PORT_MODIFY( "ROW1" ) + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Z { Y }") PORT_CODE(KEYCODE_Z) PORT_CHAR('Z') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("3 # { 3 Paragraph }") PORT_CODE(KEYCODE_3) PORT_CHAR('3') PORT_CHAR('#') + + PORT_MODIFY( "ROW3" ) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Y { Z }") PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("7 ' { 7 / }") PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('\'') + + PORT_MODIFY( "ROW4" ) + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("0 { = }") PORT_CODE(KEYCODE_0) PORT_CHAR('0') + + PORT_MODIFY( "ROW5" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(", < { ; }") PORT_CODE(KEYCODE_COMMA) PORT_CHAR(',') PORT_CHAR('<') + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Paragraph \xE2\x86\x91 { \xc3\xbc }") PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR(0x00A7) PORT_CHAR(0x2191) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(": [ { \xc3\xa4 }") PORT_CODE(KEYCODE_COLON) PORT_CHAR(':') PORT_CHAR('[') + PORT_BIT( 0x10, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME(". > { : }") PORT_CODE(KEYCODE_STOP) PORT_CHAR('.') PORT_CHAR('>') + PORT_BIT( 0x08, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("- { ' ` }") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('-') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("+ { \xc3\x9f ? }") PORT_CODE(KEYCODE_MINUS) PORT_CHAR('+') + + PORT_MODIFY( "ROW6" ) + PORT_BIT( 0x80, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("/ ? { - _ }") PORT_CODE(KEYCODE_SLASH) PORT_CHAR('/') PORT_CHAR('?') + PORT_BIT( 0x40, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("Sum Pi { ] \\ }") PORT_CODE(KEYCODE_DEL) PORT_CHAR(0x03A3) PORT_CHAR(0x03C0) + PORT_BIT( 0x20, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("= { # ' }") PORT_CODE(KEYCODE_BACKSLASH) PORT_CHAR('=') + PORT_BIT( 0x04, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("; ] { \xc3\xb6 }") PORT_CODE(KEYCODE_QUOTE) PORT_CHAR(';') PORT_CHAR(']') + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("* ` { + * }") PORT_CODE(KEYCODE_CLOSEBRACE) PORT_CHAR('*') PORT_CHAR('`') + PORT_BIT( 0x01, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("\\ { [ \xE2\x86\x91 }") PORT_CODE(KEYCODE_BACKSLASH2) PORT_CHAR('\xa3') + + PORT_MODIFY( "ROW7" ) + PORT_BIT( 0x02, IP_ACTIVE_HIGH, IPT_KEYBOARD ) PORT_NAME("_ { < > }") PORT_CODE(KEYCODE_TILDE) PORT_CHAR('_') + + PORT_MODIFY("SPECIAL") /* special keys */ + PORT_DIPNAME( 0x20, 0x00, "(C65) DIN ASC (switch)") PORT_CODE(KEYCODE_F3) + PORT_DIPSETTING( 0x00, "ASC" ) + PORT_DIPSETTING( 0x20, "DIN" ) +INPUT_PORTS_END + + + +/************************************* + * + * Sound definitions + * + *************************************/ + +int c65_state::c64_paddle_read( device_t *device, address_space &space, int which ) +{ + int pot1 = 0xff, pot2 = 0xff, pot3 = 0xff, pot4 = 0xff, temp; + UINT8 cia0porta = machine().device("cia_0")->pa_r(space, 0); + int controller1 = ioport("CTRLSEL")->read() & 0x07; + int controller2 = ioport("CTRLSEL")->read() & 0x70; + /* Notice that only a single input is defined for Mouse & Lightpen in both ports */ + switch (controller1) + { + case 0x01: + if (which) + pot2 = ioport("PADDLE2")->read(); + else + pot1 = ioport("PADDLE1")->read(); + break; + + case 0x02: + if (which) + pot2 = ioport("TRACKY")->read(); + else + pot1 = ioport("TRACKX")->read(); + break; + + case 0x03: + if (which && (ioport("JOY1_2B")->read() & 0x20)) /* Joy1 Button 2 */ + pot1 = 0x00; + break; + + case 0x04: + if (which) + pot2 = ioport("LIGHTY")->read(); + else + pot1 = ioport("LIGHTX")->read(); + break; + + case 0x06: + if (which && (ioport("OTHER")->read() & 0x04)) /* Lightpen Signal */ + pot2 = 0x00; + break; + + case 0x00: + case 0x07: + break; + + default: + logerror("Invalid Controller Setting %d\n", controller1); + break; + } + + switch (controller2) + { + case 0x10: + if (which) + pot4 = ioport("PADDLE4")->read(); + else + pot3 = ioport("PADDLE3")->read(); + break; + + case 0x20: + if (which) + pot4 = ioport("TRACKY")->read(); + else + pot3 = ioport("TRACKX")->read(); + break; + + case 0x30: + if (which && (ioport("JOY2_2B")->read() & 0x20)) /* Joy2 Button 2 */ + pot4 = 0x00; + break; + + case 0x40: + if (which) + pot4 = ioport("LIGHTY")->read(); + else + pot3 = ioport("LIGHTX")->read(); + break; + + case 0x60: + if (which && (ioport("OTHER")->read() & 0x04)) /* Lightpen Signal */ + pot4 = 0x00; + break; + + case 0x00: + case 0x70: + break; + + default: + logerror("Invalid Controller Setting %d\n", controller1); + break; + } + + if (ioport("CTRLSEL")->read() & 0x80) /* Swap */ + { + temp = pot1; pot1 = pot3; pot3 = temp; + temp = pot2; pot2 = pot4; pot4 = temp; + } + + switch (cia0porta & 0xc0) + { + case 0x40: + return which ? pot2 : pot1; + + case 0x80: + return which ? pot4 : pot3; + + case 0xc0: + return which ? pot2 : pot1; + + default: + return 0; + } +} + +READ8_MEMBER( c65_state::sid_potx_r ) +{ + return c64_paddle_read(m_sid_r, space, 0); +} + +READ8_MEMBER( c65_state::sid_poty_r ) +{ + return c64_paddle_read(m_sid_r, space, 1); +} + + +/************************************* + * + * VIC III interfaces + * + *************************************/ + +UINT32 c65_state::screen_update_c65(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect) +{ + m_vic->video_update(bitmap, cliprect); + return 0; +} + +READ8_MEMBER(c65_state::c65_lightpen_x_cb) +{ + return ioport("LIGHTX")->read() & ~0x01; +} + +READ8_MEMBER(c65_state::c65_lightpen_y_cb) +{ + return ioport("LIGHTY")->read() & ~0x01; +} + +READ8_MEMBER(c65_state::c65_lightpen_button_cb) +{ + return ioport("OTHER")->read() & 0x04; +} + +READ8_MEMBER(c65_state::c65_c64_mem_r) +{ + return m_memory[offset]; +} + +INTERRUPT_GEN_MEMBER(c65_state::vic3_raster_irq) +{ + m_vic->raster_interrupt_gen(); +} + +/************************************* + * + * Machine driver + * + *************************************/ + +static MACHINE_CONFIG_START( c65, c65_state ) + /* basic machine hardware */ + MCFG_CPU_ADD("maincpu", M4510, 3500000) /* or VIC6567_CLOCK, */ + MCFG_CPU_PROGRAM_MAP(c65_mem) + MCFG_CPU_VBLANK_INT_DRIVER("screen", c65_state, c65_frame_interrupt) + MCFG_CPU_PERIODIC_INT_DRIVER(c65_state, vic3_raster_irq, VIC6567_HRETRACERATE) + + MCFG_MACHINE_START_OVERRIDE(c65_state, c65 ) + + /* video hardware */ + MCFG_SCREEN_ADD("screen", RASTER) + MCFG_SCREEN_REFRESH_RATE(VIC6567_VRETRACERATE) + MCFG_SCREEN_VBLANK_TIME(ATTOSECONDS_IN_USEC(2500)) /* not accurate */ + MCFG_SCREEN_SIZE(525 * 2, 520 * 2) + MCFG_SCREEN_VISIBLE_AREA(VIC6567_STARTVISIBLECOLUMNS ,(VIC6567_STARTVISIBLECOLUMNS + VIC6567_VISIBLECOLUMNS - 1) * 2, VIC6567_STARTVISIBLELINES, VIC6567_STARTVISIBLELINES + VIC6567_VISIBLELINES - 1) + MCFG_SCREEN_UPDATE_DRIVER(c65_state, screen_update_c65) + MCFG_SCREEN_PALETTE("vic3:palette") + + MCFG_DEVICE_ADD("vic3", VIC3, 0) + MCFG_VIC3_CPU("maincpu") + MCFG_VIC3_TYPE(VIC4567_NTSC) + MCFG_VIC3_LIGHTPEN_X_CB(READ8(c65_state, c65_lightpen_x_cb)) + MCFG_VIC3_LIGHTPEN_Y_CB(READ8(c65_state, c65_lightpen_y_cb)) + MCFG_VIC3_LIGHTPEN_BUTTON_CB(READ8(c65_state, c65_lightpen_button_cb)) + MCFG_VIC3_DMA_READ_CB(READ8(c65_state, c65_dma_read)) + MCFG_VIC3_DMA_READ_COLOR_CB(READ8(c65_state, c65_dma_read_color)) + MCFG_VIC3_INTERRUPT_CB(WRITELINE(c65_state, c65_vic_interrupt)) + MCFG_VIC3_PORT_CHANGED_CB(WRITE8(c65_state, c65_bankswitch_interface)) + MCFG_VIC3_C64_MEM_R_CB(READ8(c65_state, c65_c64_mem_r)) + + /* sound hardware */ + MCFG_SPEAKER_STANDARD_STEREO("lspeaker", "rspeaker") + MCFG_SOUND_ADD("sid_r", MOS8580, 985248) + MCFG_MOS6581_POTX_CALLBACK(READ8(c65_state, sid_potx_r)) + MCFG_MOS6581_POTY_CALLBACK(READ8(c65_state, sid_poty_r)) + MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 0.50) + MCFG_SOUND_ADD("sid_l", MOS8580, 985248) + MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 0.50) + + /* quickload */ + MCFG_QUICKLOAD_ADD("quickload", c65_state, cbm_c65, "p00,prg", CBM_QUICKLOAD_DELAY_SECONDS) + + /* cia */ + MCFG_DEVICE_ADD("cia_0", MOS6526, 3500000) + MCFG_MOS6526_TOD(60) + MCFG_MOS6526_IRQ_CALLBACK(WRITELINE(c65_state, c65_cia0_interrupt)) + MCFG_MOS6526_PA_INPUT_CALLBACK(READ8(c65_state, c65_cia0_port_a_r)) + MCFG_MOS6526_PB_INPUT_CALLBACK(READ8(c65_state, c65_cia0_port_b_r)) + MCFG_MOS6526_PB_OUTPUT_CALLBACK(WRITE8(c65_state, c65_cia0_port_b_w)) + + MCFG_DEVICE_ADD("cia_1", MOS6526, 3500000) + MCFG_MOS6526_TOD(60) + MCFG_MOS6526_IRQ_CALLBACK(WRITELINE(c65_state, c65_cia1_interrupt)) + MCFG_MOS6526_PA_INPUT_CALLBACK(READ8(c65_state, c65_cia1_port_a_r)) + MCFG_MOS6526_PA_OUTPUT_CALLBACK(WRITE8(c65_state, c65_cia1_port_a_w)) + + /* floppy from serial bus */ + MCFG_CBM_IEC_ADD(NULL) + + /* internal ram */ + MCFG_RAM_ADD(RAM_TAG) + MCFG_RAM_DEFAULT_SIZE("128K") + MCFG_RAM_EXTRA_OPTIONS("640K,4224K") +MACHINE_CONFIG_END + +static MACHINE_CONFIG_DERIVED( c65pal, c65 ) + MCFG_SCREEN_MODIFY("screen") + MCFG_SCREEN_REFRESH_RATE(VIC6569_VRETRACERATE) + MCFG_SCREEN_SIZE(625 * 2, 520 * 2) + MCFG_SCREEN_VISIBLE_AREA(VIC6569_STARTVISIBLECOLUMNS, (VIC6569_STARTVISIBLECOLUMNS + VIC6569_VISIBLECOLUMNS - 1) * 2, VIC6569_STARTVISIBLELINES, VIC6569_STARTVISIBLELINES + VIC6569_VISIBLELINES - 1) + MCFG_SCREEN_PALETTE("vic3:palette") + + MCFG_DEVICE_MODIFY("vic3") + MCFG_VIC3_TYPE(VIC4567_PAL) + + /* sound hardware */ + MCFG_SOUND_REPLACE("sid_r", MOS8580, 1022727) + MCFG_MOS6581_POTX_CALLBACK(READ8(c65_state, sid_potx_r)) + MCFG_MOS6581_POTY_CALLBACK(READ8(c65_state, sid_poty_r)) + MCFG_SOUND_ROUTE(ALL_OUTPUTS, "rspeaker", 0.50) + MCFG_SOUND_REPLACE("sid_l", MOS8580, 1022727) + MCFG_SOUND_ROUTE(ALL_OUTPUTS, "lspeaker", 0.50) + + /* cia */ + MCFG_DEVICE_MODIFY("cia_0") + MCFG_MOS6526_TOD(50) + + MCFG_DEVICE_MODIFY("cia_1") + MCFG_MOS6526_TOD(50) +MACHINE_CONFIG_END + + +/************************************* + * + * ROM definition(s) + * + *************************************/ + + +ROM_START( c65 ) + ROM_REGION( 0x400000, "maincpu", 0 ) + ROM_SYSTEM_BIOS( 0, "910111", "V0.9.910111" ) + ROMX_LOAD( "910111.bin", 0x20000, 0x20000, CRC(c5d8d32e) SHA1(71c05f098eff29d306b0170e2c1cdeadb1a5f206), ROM_BIOS(1) ) + ROM_SYSTEM_BIOS( 1, "910523", "V0.9.910523" ) + ROMX_LOAD( "910523.bin", 0x20000, 0x20000, CRC(e8235dd4) SHA1(e453a8e7e5b95de65a70952e9d48012191e1b3e7), ROM_BIOS(2) ) + ROM_SYSTEM_BIOS( 2, "910626", "V0.9.910626" ) + ROMX_LOAD( "910626.bin", 0x20000, 0x20000, CRC(12527742) SHA1(07c185b3bc58410183422f7ac13a37ddd330881b), ROM_BIOS(3) ) + ROM_SYSTEM_BIOS( 3, "910828", "V0.9.910828" ) + ROMX_LOAD( "910828.bin", 0x20000, 0x20000, CRC(3ee40b06) SHA1(b63d970727a2b8da72a0a8e234f3c30a20cbcb26), ROM_BIOS(4) ) + ROM_SYSTEM_BIOS( 4, "911001", "V0.9.911001" ) + ROMX_LOAD( "911001.bin", 0x20000, 0x20000, CRC(0888b50f) SHA1(129b9a2611edaebaa028ac3e3f444927c8b1fc5d), ROM_BIOS(5) ) +ROM_END + +ROM_START( c64dx ) + ROM_REGION( 0x400000, "maincpu", 0 ) + ROM_LOAD( "910429.bin", 0x20000, 0x20000, CRC(b025805c) SHA1(c3b05665684f74adbe33052a2d10170a1063ee7d) ) +ROM_END + +/*************************************************************************** + + Game driver(s) + +***************************************************************************/ + +/* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */ + +COMP( 1991, c65, 0, 0, c65, c65, c65_state, c65, "Commodore Business Machines", "Commodore 65 Development System (Prototype, NTSC)", GAME_NOT_WORKING ) +COMP( 1991, c64dx, c65, 0, c65pal, c65ger, c65_state, c65pal, "Commodore Business Machines", "Commodore 64DX Development System (Prototype, PAL, German)", GAME_NOT_WORKING ) + + diff --git a/src/mess/machine/c65_old.c b/src/mess/machine/c65_old.c new file mode 100644 index 00000000000..caa68c22fd3 --- /dev/null +++ b/src/mess/machine/c65_old.c @@ -0,0 +1,1338 @@ +/*************************************************************************** + commodore c65 home computer + peter.trauner@jk.uni-linz.ac.at + documention + www.funet.fi + ***************************************************************************/ + +#include "emu.h" + +#include "includes/c65.h" +#include "cpu/m6502/m4510.h" +#include "sound/mos6581.h" +#include "machine/mos6526.h" +#include "bus/cbmiec/cbmiec.h" +#include "machine/ram.h" +#include "video/vic4567.h" +#include "imagedev/cassette.h" +#include "crsshair.h" +#include "formats/cbm_tap.h" + +#define VERBOSE_LEVEL 0 +#define DBG_LOG( MACHINE, N, M, A ) \ + do { \ + if(VERBOSE_LEVEL >= N) \ + { \ + if( M ) \ + logerror("%11.6f: %-24s", MACHINE.time().as_double(), (char*) M ); \ + logerror A; \ + } \ + } while (0) + + + +/*********************************************** + + Input Reading - Common Components + +***********************************************/ + +/* These are needed by c64, c65 and c128, each machine has also additional specific +components in its INTERRUPT_GEN */ + +/* keyboard lines */ +UINT8 c64_keyline[10]; + +void cbm_common_init(void) +{ + int i; + + for (i = 0; i < ARRAY_LENGTH(c64_keyline); i++) + c64_keyline[i] = 0xff; +} + +static TIMER_CALLBACK( lightpen_tick ) +{ + if (((machine.root_device().ioport("CTRLSEL")->read() & 0x07) == 0x04) || ((machine.root_device().ioport("CTRLSEL")->read() & 0x07) == 0x06)) + { + /* enable lightpen crosshair */ + crosshair_set_screen(machine, 0, CROSSHAIR_SCREEN_ALL); + } + else + { + /* disable lightpen crosshair */ + crosshair_set_screen(machine, 0, CROSSHAIR_SCREEN_NONE); + } +} + +void cbm_common_interrupt( device_t *device ) +{ + int value, i; + int controller1 = device->machine().root_device().ioport("CTRLSEL")->read() & 0x07; + int controller2 = device->machine().root_device().ioport("CTRLSEL")->read() & 0x70; + static const char *const c64ports[] = { "ROW0", "ROW1", "ROW2", "ROW3", "ROW4", "ROW5", "ROW6", "ROW7" }; + + /* Lines 0-7 : common keyboard */ + for (i = 0; i < 8; i++) + { + value = 0xff; + value &= ~device->machine().root_device().ioport(c64ports[i])->read(); + + /* Shift Lock is mapped on Left Shift */ + if ((i == 1) && (device->machine().root_device().ioport("SPECIAL")->read() & 0x40)) + value &= ~0x80; + + c64_keyline[i] = value; + } + + + value = 0xff; + switch(controller1) + { + case 0x00: + value &= ~device->machine().root_device().ioport("JOY1_1B")->read(); /* Joy1 Directions + Button 1 */ + break; + + case 0x01: + if (device->machine().root_device().ioport("OTHER")->read() & 0x40) /* Paddle2 Button */ + value &= ~0x08; + if (device->machine().root_device().ioport("OTHER")->read() & 0x80) /* Paddle1 Button */ + value &= ~0x04; + break; + + case 0x02: + if (device->machine().root_device().ioport("OTHER")->read() & 0x02) /* Mouse Button Left */ + value &= ~0x10; + if (device->machine().root_device().ioport("OTHER")->read() & 0x01) /* Mouse Button Right */ + value &= ~0x01; + break; + + case 0x03: + value &= ~(device->machine().root_device().ioport("JOY1_2B")->read() & 0x1f); /* Joy1 Directions + Button 1 */ + break; + + case 0x04: +/* was there any input on the lightpen? where is it mapped? */ +// if (device->machine().root_device().ioport("OTHER")->read() & 0x04) /* Lightpen Signal */ +// value &= ?? ; + break; + + case 0x07: + break; + + default: + logerror("Invalid Controller 1 Setting %d\n", controller1); + break; + } + + c64_keyline[8] = value; + + + value = 0xff; + switch(controller2) + { + case 0x00: + value &= ~device->machine().root_device().ioport("JOY2_1B")->read(); /* Joy2 Directions + Button 1 */ + break; + + case 0x10: + if (device->machine().root_device().ioport("OTHER")->read() & 0x10) /* Paddle4 Button */ + value &= ~0x08; + if (device->machine().root_device().ioport("OTHER")->read() & 0x20) /* Paddle3 Button */ + value &= ~0x04; + break; + + case 0x20: + if (device->machine().root_device().ioport("OTHER")->read() & 0x02) /* Mouse Button Left */ + value &= ~0x10; + if (device->machine().root_device().ioport("OTHER")->read() & 0x01) /* Mouse Button Right */ + value &= ~0x01; + break; + + case 0x30: + value &= ~(device->machine().root_device().ioport("JOY2_2B")->read() & 0x1f); /* Joy2 Directions + Button 1 */ + break; + + case 0x40: +/* was there any input on the lightpen? where is it mapped? */ +// if (device->machine().root_device().ioport("OTHER")->read() & 0x04) /* Lightpen Signal */ +// value &= ?? ; + break; + + case 0x70: + break; + + default: + logerror("Invalid Controller 2 Setting %d\n", controller2); + break; + } + + c64_keyline[9] = value; + +// vic2_frame_interrupt does nothing so this is not necessary +// vic2_frame_interrupt (device); + + /* check if lightpen has been chosen as input: if so, enable crosshair */ + device->machine().scheduler().timer_set(attotime::zero, FUNC(lightpen_tick)); + + set_led_status (device->machine(), 1, device->machine().root_device().ioport("SPECIAL")->read() & 0x40 ? 1 : 0); /* Shift Lock */ + set_led_status (device->machine(), 0, device->machine().root_device().ioport("CTRLSEL")->read() & 0x80 ? 1 : 0); /* Joystick Swap */ +} + + +/*********************************************** + + CIA Common Handlers + +***********************************************/ + +/* These are shared by c64, c65 and c128. c65 and c128 also have additional specific +components (to select/read additional keyboard lines) */ + +/* + * CIA 0 - Port A + * bits 7-0 keyboard line select + * bits 7,6: paddle select( 01 port a, 10 port b) + * bit 4: joystick a fire button + * bits 3,2: Paddles port a fire button + * bits 3-0: joystick a direction + * + * CIA 0 - Port B + * bits 7-0: keyboard raw values + * bit 4: joystick b fire button, lightpen select + * bits 3,2: paddle b fire buttons (left,right) + * bits 3-0: joystick b direction + * + * flag cassette read input, serial request in + * irq to irq connected + */ + +UINT8 cbm_common_cia0_port_a_r( device_t *device, UINT8 output_b ) +{ + UINT8 value = 0xff; + + if (!(output_b & 0x80)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x80)) t &= ~0x80; + if (!(c64_keyline[6] & 0x80)) t &= ~0x40; + if (!(c64_keyline[5] & 0x80)) t &= ~0x20; + if (!(c64_keyline[4] & 0x80)) t &= ~0x10; + if (!(c64_keyline[3] & 0x80)) t &= ~0x08; + if (!(c64_keyline[2] & 0x80)) t &= ~0x04; + if (!(c64_keyline[1] & 0x80)) t &= ~0x02; + if (!(c64_keyline[0] & 0x80)) t &= ~0x01; + value &= t; + } + + if (!(output_b & 0x40)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x40)) t &= ~0x80; + if (!(c64_keyline[6] & 0x40)) t &= ~0x40; + if (!(c64_keyline[5] & 0x40)) t &= ~0x20; + if (!(c64_keyline[4] & 0x40)) t &= ~0x10; + if (!(c64_keyline[3] & 0x40)) t &= ~0x08; + if (!(c64_keyline[2] & 0x40)) t &= ~0x04; + if (!(c64_keyline[1] & 0x40)) t &= ~0x02; + if (!(c64_keyline[0] & 0x40)) t &= ~0x01; + value &= t; + } + + if (!(output_b & 0x20)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x20)) t &= ~0x80; + if (!(c64_keyline[6] & 0x20)) t &= ~0x40; + if (!(c64_keyline[5] & 0x20)) t &= ~0x20; + if (!(c64_keyline[4] & 0x20)) t &= ~0x10; + if (!(c64_keyline[3] & 0x20)) t &= ~0x08; + if (!(c64_keyline[2] & 0x20)) t &= ~0x04; + if (!(c64_keyline[1] & 0x20)) t &= ~0x02; + if (!(c64_keyline[0] & 0x20)) t &= ~0x01; + value &= t; + } + + if (!(output_b & 0x10)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x10)) t &= ~0x80; + if (!(c64_keyline[6] & 0x10)) t &= ~0x40; + if (!(c64_keyline[5] & 0x10)) t &= ~0x20; + if (!(c64_keyline[4] & 0x10)) t &= ~0x10; + if (!(c64_keyline[3] & 0x10)) t &= ~0x08; + if (!(c64_keyline[2] & 0x10)) t &= ~0x04; + if (!(c64_keyline[1] & 0x10)) t &= ~0x02; + if (!(c64_keyline[0] & 0x10)) t &= ~0x01; + value &= t; + } + + if (!(output_b & 0x08)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x08)) t &= ~0x80; + if (!(c64_keyline[6] & 0x08)) t &= ~0x40; + if (!(c64_keyline[5] & 0x08)) t &= ~0x20; + if (!(c64_keyline[4] & 0x08)) t &= ~0x10; + if (!(c64_keyline[3] & 0x08)) t &= ~0x08; + if (!(c64_keyline[2] & 0x08)) t &= ~0x04; + if (!(c64_keyline[1] & 0x08)) t &= ~0x02; + if (!(c64_keyline[0] & 0x08)) t &= ~0x01; + value &= t; + } + + if (!(output_b & 0x04)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x04)) t &= ~0x80; + if (!(c64_keyline[6] & 0x04)) t &= ~0x40; + if (!(c64_keyline[5] & 0x04)) t &= ~0x20; + if (!(c64_keyline[4] & 0x04)) t &= ~0x10; + if (!(c64_keyline[3] & 0x04)) t &= ~0x08; + if (!(c64_keyline[2] & 0x04)) t &= ~0x04; + if (!(c64_keyline[1] & 0x04)) t &= ~0x02; + if (!(c64_keyline[0] & 0x04)) t &= ~0x01; + value &= t; + } + + if (!(output_b & 0x02)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x02)) t &= ~0x80; + if (!(c64_keyline[6] & 0x02)) t &= ~0x40; + if (!(c64_keyline[5] & 0x02)) t &= ~0x20; + if (!(c64_keyline[4] & 0x02)) t &= ~0x10; + if (!(c64_keyline[3] & 0x02)) t &= ~0x08; + if (!(c64_keyline[2] & 0x02)) t &= ~0x04; + if (!(c64_keyline[1] & 0x02)) t &= ~0x02; + if (!(c64_keyline[0] & 0x02)) t &= ~0x01; + value &= t; + } + + if (!(output_b & 0x01)) + { + UINT8 t = 0xff; + if (!(c64_keyline[7] & 0x01)) t &= ~0x80; + if (!(c64_keyline[6] & 0x01)) t &= ~0x40; + if (!(c64_keyline[5] & 0x01)) t &= ~0x20; + if (!(c64_keyline[4] & 0x01)) t &= ~0x10; + if (!(c64_keyline[3] & 0x01)) t &= ~0x08; + if (!(c64_keyline[2] & 0x01)) t &= ~0x04; + if (!(c64_keyline[1] & 0x01)) t &= ~0x02; + if (!(c64_keyline[0] & 0x01)) t &= ~0x01; + value &= t; + } + + if ( device->machine().root_device().ioport("CTRLSEL")->read() & 0x80 ) + value &= c64_keyline[8]; + else + value &= c64_keyline[9]; + + return value; +} + +UINT8 cbm_common_cia0_port_b_r( device_t *device, UINT8 output_a ) +{ + UINT8 value = 0xff; + + if (!(output_a & 0x80)) value &= c64_keyline[7]; + if (!(output_a & 0x40)) value &= c64_keyline[6]; + if (!(output_a & 0x20)) value &= c64_keyline[5]; + if (!(output_a & 0x10)) value &= c64_keyline[4]; + if (!(output_a & 0x08)) value &= c64_keyline[3]; + if (!(output_a & 0x04)) value &= c64_keyline[2]; + if (!(output_a & 0x02)) value &= c64_keyline[1]; + if (!(output_a & 0x01)) value &= c64_keyline[0]; + + if ( device->machine().root_device().ioport("CTRLSEL")->read() & 0x80 ) + value &= c64_keyline[9]; + else + value &= c64_keyline[8]; + + return value; +} + + +/*********************************************** + + CBM Cartridges + +***********************************************/ + + +/* All the cartridge specific code has been moved + to machine/ drivers. Once more informations + surface about the cart expansions for systems + in c65.c, c128.c, cbmb.c and pet.c, the shared + code could be refactored to have here the + common functions */ + + + +/*********************************************** + + CBM Datasette Tapes + +***********************************************/ + +#if 0 +const cassette_interface cbm_cassette_interface = +{ + cbm_cassette_formats, + NULL, + (cassette_state) (CASSETTE_STOPPED | CASSETTE_MOTOR_DISABLED | CASSETTE_SPEAKER_ENABLED), + NULL +}; +#endif + + +/*UINT8 *c65_basic; */ +/*UINT8 *c65_kernal; */ +/*UINT8 *c65_dos; */ +/*UINT8 *c65_monitor; */ +/*UINT8 *c65_graphics; */ + + +void c65_state::c65_nmi( ) +{ + if (m_nmilevel != (ioport("SPECIAL")->read() & 0x80) || m_cia1_irq) /* KEY_RESTORE */ + { + m_maincpu->set_input_line(INPUT_LINE_NMI, (ioport("SPECIAL")->read() & 0x80) || m_cia1_irq); + + m_nmilevel = (ioport("SPECIAL")->read() & 0x80) || m_cia1_irq; + } +} + + +/*********************************************** + + CIA Interfaces + +***********************************************/ + +/* + * CIA 0 - Port A keyboard line select + * CIA 0 - Port B keyboard line read + * + * flag cassette read input, serial request in + * irq to irq connected + * + * see machine/cbm.c + */ + +READ8_MEMBER(c65_state::c65_cia0_port_a_r) +{ + UINT8 cia0portb = m_cia0->pb_r(space, 0); + + return cbm_common_cia0_port_a_r(m_cia0, cia0portb); +} + +READ8_MEMBER(c65_state::c65_cia0_port_b_r) +{ + UINT8 value = 0xff; + UINT8 cia0porta = m_cia0->pa_r(space, 0); + + value &= cbm_common_cia0_port_b_r(m_cia0, cia0porta); + + if (!(m_6511_port & 0x02)) + value &= m_keyline; + + return value; +} + +WRITE8_MEMBER(c65_state::c65_cia0_port_b_w) +{ +// was there lightpen support in c65 video chip? +// vic3_device *vic3 = machine().device("vic3"); +// vic3->lightpen_write(data & 0x10); +} + +void c65_state::c65_irq( int level ) +{ + if (level != m_old_level) + { + DBG_LOG(machine(), 3, "mos4510", ("irq %s\n", level ? "start" : "end")); + m_maincpu->set_input_line(M4510_IRQ_LINE, level); + m_old_level = level; + } +} + +/* is this correct for c65 as well as c64? */ +WRITE_LINE_MEMBER(c65_state::c65_cia0_interrupt) +{ + m_cia0_irq = state; + c65_irq(state || m_vicirq); +} + +/* is this correct for c65 as well as c64? */ +WRITE_LINE_MEMBER(c65_state::c65_vic_interrupt) +{ +#if 1 + if (state != m_vicirq) + { + c65_irq (state || m_cia0_irq); + m_vicirq = state; + } +#endif +} + +/* + * CIA 1 - Port A + * bit 7 serial bus data input + * bit 6 serial bus clock input + * bit 5 serial bus data output + * bit 4 serial bus clock output + * bit 3 serial bus atn output + * bit 2 rs232 data output + * bits 1-0 vic-chip system memory bank select + * + * CIA 1 - Port B + * bit 7 user rs232 data set ready + * bit 6 user rs232 clear to send + * bit 5 user + * bit 4 user rs232 carrier detect + * bit 3 user rs232 ring indicator + * bit 2 user rs232 data terminal ready + * bit 1 user rs232 request to send + * bit 0 user rs232 received data + * + * flag restore key or rs232 received data input + * irq to nmi connected ? + */ +READ8_MEMBER(c65_state::c65_cia1_port_a_r) +{ + UINT8 value = 0xff; + + if (!m_iec->clk_r()) + value &= ~0x40; + + if (!m_iec->data_r()) + value &= ~0x80; + + return value; +} + +WRITE8_MEMBER(c65_state::c65_cia1_port_a_w) +{ + static const int helper[4] = {0xc000, 0x8000, 0x4000, 0x0000}; + + m_iec->atn_w(!BIT(data, 3)); + m_iec->clk_w(!BIT(data, 4)); + m_iec->data_w(!BIT(data, 5)); + + m_vicaddr = m_memory + helper[data & 0x03]; +} + +WRITE_LINE_MEMBER(c65_state::c65_cia1_interrupt) +{ + m_cia1_irq = state; + c65_nmi(); +} + +/*********************************************** + + Memory Handlers + +***********************************************/ + +/* processor has only 1 mega address space !? */ +/* and system 8 megabyte */ +/* dma controller and bankswitch hardware ?*/ +READ8_MEMBER( c65_state::c65_read_mem ) +{ + UINT8 result; + if (offset <= 0x0ffff) + result = m_memory[offset]; + else + result = space.read_byte(offset); + return result; +} + +WRITE8_MEMBER( c65_state::c65_write_mem ) +{ + if (offset <= 0x0ffff) + m_memory[offset] = data; + else + space.write_byte(offset, data); +} + +/* dma chip at 0xd700 + used: + writing banknumber to offset 2 + writing hibyte to offset 1 + writing lobyte to offset 0 + cpu holded, dma transfer(data at address) executed, cpu activated + + command data: + 0 command (0 copy, 3 fill) + 1,2 length + 3,4,5 source + 6,7,8 dest + 9 subcommand + 10 mod + + version 1: + seldom copy (overlapping) from 0x402002 to 0x402008 + (making place for new line in basic area) + for whats this bit 0x400000, or is this really the address? + maybe means add counter to address for access, + so allowing up or down copies, and reordering copies + + version 2: + cmd 0x30 used for this +*/ +void c65_state::c65_dma_port_w( int offset, int value ) +{ + PAIR pair, src, dst, len; + UINT8 cmd, fill; + int i; + address_space &space = m_maincpu->space(AS_PROGRAM); + + switch (offset & 3) + { + case 2: + case 1: + m_dma.data[offset & 3] = value; + break; + case 0: + pair.b.h3 = 0; + pair.b.h2 = m_dma.data[2]; + pair.b.h = m_dma.data[1]; + pair.b.l = m_dma.data[0]=value; + cmd = c65_read_mem(space, pair.d++); + len.w.h = 0; + len.b.l = c65_read_mem(space, pair.d++); + len.b.h = c65_read_mem(space, pair.d++); + src.b.h3 = 0; + fill = src.b.l = c65_read_mem(space, pair.d++); + src.b.h = c65_read_mem(space, pair.d++); + src.b.h2 = c65_read_mem(space, pair.d++); + dst.b.h3 = 0; + dst.b.l = c65_read_mem(space, pair.d++); + dst.b.h = c65_read_mem(space, pair.d++); + dst.b.h2 = c65_read_mem(space, pair.d++); + + switch (cmd) + { + case 0: + if (src.d == 0x3ffff) m_dump_dma = 1; + if (m_dump_dma) + DBG_LOG(space.machine(), 1,"dma copy job", + ("len:%.4x src:%.6x dst:%.6x sub:%.2x modrm:%.2x\n", + len.w.l, src.d, dst.d, c65_read_mem(space, pair.d), + c65_read_mem(space, pair.d + 1) ) ); + if ((m_dma.version == 1) + && ( (src.d&0x400000) || (dst.d & 0x400000))) + { + if (!(src.d & 0x400000)) + { + dst.d &= ~0x400000; + for (i = 0; i < len.w.l; i++) + c65_write_mem(space, dst.d--, c65_read_mem(space, src.d++)); + } + else if (!(dst.d & 0x400000)) + { + src.d &= ~0x400000; + for (i = 0; i < len.w.l; i++) + c65_write_mem(space, dst.d++, c65_read_mem(space, src.d--)); + } + else + { + src.d &= ~0x400000; + dst.d &= ~0x400000; + for (i = 0; i < len.w.l; i++) + c65_write_mem(space, --dst.d, c65_read_mem(space, --src.d)); + } + } + else + { + for (i = 0; i < len.w.l; i++) + c65_write_mem(space, dst.d++, c65_read_mem(space, src.d++)); + } + break; + case 3: + DBG_LOG(space.machine(), 3,"dma fill job", + ("len:%.4x value:%.2x dst:%.6x sub:%.2x modrm:%.2x\n", + len.w.l, fill, dst.d, c65_read_mem(space, pair.d), + c65_read_mem(space, pair.d + 1))); + for (i = 0; i < len.w.l; i++) + c65_write_mem(space, dst.d++, fill); + break; + case 0x30: + DBG_LOG(space.machine(), 1,"dma copy down", + ("len:%.4x src:%.6x dst:%.6x sub:%.2x modrm:%.2x\n", + len.w.l, src.d, dst.d, c65_read_mem(space, pair.d), + c65_read_mem(space, pair.d + 1) ) ); + for (i = 0; i < len.w.l; i++) + c65_write_mem(space, dst.d--,c65_read_mem(space, src.d--)); + break; + default: + DBG_LOG(space.machine(), 1,"dma job", + ("cmd:%.2x len:%.4x src:%.6x dst:%.6x sub:%.2x modrm:%.2x\n", + cmd,len.w.l, src.d, dst.d, c65_read_mem(space, pair.d), + c65_read_mem(space, pair.d + 1))); + } + break; + default: + DBG_LOG(space.machine(), 1, "dma chip write", ("%.3x %.2x\n", offset, value)); + break; + } +} + +int c65_state::c65_dma_port_r( int offset ) +{ + /* offset 3 bit 7 in progress ? */ + DBG_LOG(machine(), 2, "dma chip read", ("%.3x\n", offset)); + return 0x7f; +} + +void c65_state::c65_6511_port_w( int offset, int value ) +{ + if (offset == 7) + { + m_6511_port = value; + } + DBG_LOG(machine(), 2, "r6511 write", ("%.2x %.2x\n", offset, value)); +} + +int c65_state::c65_6511_port_r( int offset ) +{ + int data = 0xff; + + if (offset == 7) + { + if (ioport("SPECIAL")->read() & 0x20) + data &= ~1; + } + DBG_LOG(machine(), 2, "r6511 read", ("%.2x\n", offset)); + + return data; +} + +/* one docu states custom 4191 disk controller + (for 2 1MB MFM disk drives, 1 internal, the other extern (optional) 1565 + with integrated 512 byte buffer + + 0->0 reset ? + + 0->1, 0->0, wait until 2 positiv, 1->0 ??? + + 0->0, 0 not 0 means no drive ???, other system entries + + + reg 0 write/read + 0,1 written + bit 1 set + bit 2 set + bit 3 set + bit 4 set + + + reg 0 read + bit 0 + bit 1 + bit 2 + 0..2 ->$1d4 + + reg 1 write + $01 written + $18 written + $46 written + $80 written + $a1 written + $01 written, dec + $10 written + + reg 2 read/write?(lsr) + bit 2 + bit 4 + bit 5 busy waiting until zero, then reading reg 7 + bit 6 operation not activ flag!? or set overflow pin used + bit 7 busy flag? + + reg 3 read/write?(rcr) + bit 1 + bit 3 + bit 7 busy flag? + + reg 4 + track?? + 0 written + read -> $1d2 + cmp #$50 + bcs + + + reg 5 + sector ?? + 1 written + read -> $1d3 + cmp #$b bcc + + + reg 6 + head ?? + 0 written + read -> $1d1 + cmp #2 bcc + + reg 7 read + #4e written + 12 times 0, a1 a1 a1 fe written + + reg 8 read + #ff written + 16 times #ff written + + reg 9 + #60 written + +might use the set overflow input + +$21a6c 9a6c format +$21c97 9c97 write operation +$21ca0 9ca0 get byte? +$21cab 9cab read reg 7 +$21caf 9caf write reg 7 +$21cb3 +*/ + +#define FDC_LOST 4 +#define FDC_CRC 8 +#define FDC_RNF 0x10 +#define FDC_BUSY 0x80 +#define FDC_IRQ 0x200 + +#define FDC_CMD_MOTOR_SPIN_UP 0x10 + +#if 0 +void c65_state::c65_fdc_state(void) +{ + switch (m_fdc.state) + { + case FDC_CMD_MOTOR_SPIN_UP: + if (machine().time() - m_fdc.time) + { + m_fdc.state = 0; + m_fdc.status &= ~FDC_BUSY; + } + break; + } +} +#endif + +void c65_state::c65_fdc_w( int offset, int data ) +{ + DBG_LOG(machine(), 1, "fdc write", ("%.5x %.2x %.2x\n", machine().device("maincpu")->safe_pc(), offset, data)); + switch (offset & 0xf) + { + case 0: + m_fdc.reg[0] = data; + break; + case 1: + m_fdc.reg[1] = data; + switch (data & 0xf9) + { + case 0x20: // wait for motor spin up + m_fdc.status &= ~(FDC_IRQ|FDC_LOST|FDC_CRC|FDC_RNF); + m_fdc.status |= FDC_BUSY; + m_fdc.time = machine().time(); + m_fdc.state = FDC_CMD_MOTOR_SPIN_UP; + break; + case 0: // cancel + m_fdc.status &= ~(FDC_BUSY); + m_fdc.state = 0; + break; + case 0x80: // buffered write + case 0x40: // buffered read + case 0x81: // unbuffered write + case 0x41: // unbuffered read + case 0x30:case 0x31: // step + break; + } + break; + case 2: case 3: // read only + break; + case 4: + m_fdc.reg[offset & 0xf] = data; + m_fdc.track = data; + break; + case 5: + m_fdc.reg[offset & 0xf] = data; + m_fdc.sector = data; + break; + case 6: + m_fdc.reg[offset & 0xf] = data; + m_fdc.head = data; + break; + case 7: + m_fdc.buffer[m_fdc.cpu_pos++] = data; + break; + default: + m_fdc.reg[offset & 0xf] = data; + break; + } +} + +int c65_state::c65_fdc_r( int offset ) +{ + UINT8 data = 0; + switch (offset & 0xf) + { + case 0: + data = m_fdc.reg[0]; + break; + case 1: + data = m_fdc.reg[1]; + break; + case 2: + data = m_fdc.status; + break; + case 3: + data = m_fdc.status >> 8; + break; + case 4: + data = m_fdc.track; + break; + case 5: + data = m_fdc.sector; + break; + case 6: + data = m_fdc.head; + break; + case 7: + data = m_fdc.buffer[m_fdc.cpu_pos++]; + break; + default: + data = m_fdc.reg[offset & 0xf]; + break; + } + DBG_LOG(machine(), 1, "fdc read", ("%.5x %.2x %.2x\n", machine().device("maincpu")->safe_pc(), offset, data)); + return data; +} + +/* version 1 ramcheck + write 0:0 + read write read write 80000,90000,f0000 + write 0:8 + read write read write 80000,90000,f0000 + + version 2 ramcheck??? + read 0: + write 0:0 + read 0: + first read and second read bit 0x80 set --> nothing + write 0:0 + read 0 + write 0:ff +*/ + +READ8_MEMBER( c65_state::c65_ram_expansion_r ) +{ + UINT8 data = 0xff; + if (m_ram->size() > (128 * 1024)) + data = m_expansion_ram.reg; + return data; +} + +WRITE8_MEMBER( c65_state::c65_ram_expansion_w ) +{ + offs_t expansion_ram_begin; + offs_t expansion_ram_end; + + if (m_ram->size() > (128 * 1024)) + { + m_expansion_ram.reg = data; + + expansion_ram_begin = 0x80000; + expansion_ram_end = 0x80000 + (m_ram->size() - 128*1024) - 1; + + if (data == 0x00) { + space.install_readwrite_bank(expansion_ram_begin, expansion_ram_end,"bank16"); + membank("bank16")->set_base(m_ram->pointer() + 128*1024); + } else { + space.nop_readwrite(expansion_ram_begin, expansion_ram_end); + } + } +} + +WRITE8_MEMBER( c65_state::c65_write_io ) +{ + mos6581_device *sid_0 = machine().device("sid_r"); + mos6581_device *sid_1 = machine().device("sid_l"); + vic3_device *vic3 = machine().device("vic3"); + + switch (offset & 0xf00) + { + case 0x000: + if (offset < 0x80) + vic3->port_w(space, offset & 0x7f, data); + else if (offset < 0xa0) + c65_fdc_w(offset & 0x1f, data); + else + { + c65_ram_expansion_w(space, offset & 0x1f, data, mem_mask); + /*ram expansion crtl optional */ + } + break; + case 0x100: + case 0x200: + case 0x300: + vic3->palette_w(space, offset - 0x100, data); + break; + case 0x400: + if (offset<0x420) /* maybe 0x20 */ + sid_0->write(space, offset & 0x3f, data); + else if (offset<0x440) + sid_1->write(space, offset & 0x3f, data); + else + DBG_LOG(machine(), 1, "io write", ("%.3x %.2x\n", offset, data)); + break; + case 0x500: + DBG_LOG(machine(), 1, "io write", ("%.3x %.2x\n", offset, data)); + break; + case 0x600: + c65_6511_port_w(offset & 0xff,data); + break; + case 0x700: + c65_dma_port_w(offset & 0xff, data); + break; + } +} + +WRITE8_MEMBER( c65_state::c65_write_io_dc00 ) +{ + switch (offset & 0xf00) + { + case 0x000: + m_cia0->write(space, offset, data); + break; + case 0x100: + m_cia1->write(space, offset, data); + break; + case 0x200: + case 0x300: + DBG_LOG(machine(), 1, "io write", ("%.3x %.2x\n", offset+0xc00, data)); + break; + } +} + +READ8_MEMBER( c65_state::c65_read_io ) +{ + mos6581_device *sid_0 = machine().device("sid_r"); + mos6581_device *sid_1 = machine().device("sid_l"); + vic3_device *vic3 = machine().device("vic3"); + + switch (offset & 0xf00) + { + case 0x000: + if (offset < 0x80) + return vic3->port_r(space, offset & 0x7f); + if (offset < 0xa0) + return c65_fdc_r(offset & 0x1f); + else + { + return c65_ram_expansion_r(space, offset & 0x1f, mem_mask); + /*return; ram expansion crtl optional */ + } + case 0x100: + case 0x200: + case 0x300: + /* read only !? */ + DBG_LOG(machine(), 1, "io read", ("%.3x\n", offset)); + break; + case 0x400: + if (offset < 0x420) + return sid_0->read(space, offset & 0x3f); + if (offset < 0x440) + return sid_1->read(space, offset & 0x3f); + DBG_LOG(machine(), 1, "io read", ("%.3x\n", offset)); + break; + case 0x500: + DBG_LOG(machine(), 1, "io read", ("%.3x\n", offset)); + break; + case 0x600: + return c65_6511_port_r(offset&0xff); + case 0x700: + return c65_dma_port_r(offset&0xff); + } + return 0xff; +} + +READ8_MEMBER( c65_state::c65_read_io_dc00 ) +{ + switch (offset & 0x300) + { + case 0x000: + return m_cia0->read(space, offset); + case 0x100: + return m_cia1->read(space, offset); + case 0x200: + case 0x300: + DBG_LOG(machine(), 1, "io read", ("%.3x\n", offset+0xc00)); + break; + } + return 0xff; +} + + +/* +d02f: + init a5 96 written (seems to be switch to c65 or vic3 mode) + go64 0 written +*/ + +/* bit 1 external sync enable (genlock) + bit 2 palette enable + bit 6 vic3 c65 character set */ +WRITE8_MEMBER(c65_state::c65_bankswitch_interface) +{ + DBG_LOG(machine(), 2, "c65 bankswitch", ("%.2x\n",data)); + + if (m_io_on) + { + if (data & 1) + { + membank("bank8")->set_base(m_colorram + 0x400); + membank("bank9")->set_base(m_colorram + 0x400); + m_maincpu->space(AS_PROGRAM).install_read_bank(0x0dc00, 0x0dfff, "bank8"); + m_maincpu->space(AS_PROGRAM).install_write_bank(0x0dc00, 0x0dfff, "bank9"); + } + else + { + m_maincpu->space(AS_PROGRAM).install_read_handler(0x0dc00, 0x0dfff, read8_delegate(FUNC(c65_state::c65_read_io_dc00),this)); + m_maincpu->space(AS_PROGRAM).install_write_handler(0x0dc00, 0x0dfff, write8_delegate(FUNC(c65_state::c65_write_io_dc00),this)); + } + } + + m_io_dc00_on = !(data & 1); +#if 0 + /* cartridge roms !?*/ + if (data & 0x08) + membank("bank1")->set_base(m_roml); + else + membank("bank1")->set_base(m_memory + 0x8000); + + if (data & 0x10) + membank("bank2")->set_base(m_basic); + else + membank("bank2")->set_base(m_memory + 0xa000); +#endif + if ((m_old_value^data) & 0x20) + { + /* bankswitching faulty when doing actual page */ + if (data & 0x20) + membank("bank3")->set_base(m_basic); + else + membank("bank3")->set_base(m_memory + 0xc000); + } + m_charset_select = data & 0x40; +#if 0 + /* cartridge roms !?*/ + if (data & 0x80) + membank("bank8")->set_base(m_kernal); + else + membank("bank6")->set_base(m_memory + 0xe000); +#endif + m_old_value = data; +} + +void c65_state::c65_bankswitch( ) +{ + int data, loram, hiram, charen; + + data = 0x00; // machine().device("maincpu")->get_port(); + if (data == m_old_data) + return; + + DBG_LOG(machine(), 1, "bankswitch", ("%d\n", data & 7)); + loram = (data & 1) ? 1 : 0; + hiram = (data & 2) ? 1 : 0; + charen = (data & 4) ? 1 : 0; + + if ((!m_game && m_exrom) || (loram && hiram && !m_exrom)) + membank("bank1")->set_base(m_roml); + else + membank("bank1")->set_base(m_memory + 0x8000); + + if ((!m_game && m_exrom && hiram) || (!m_exrom)) + membank("bank2")->set_base(m_romh); + else if (loram && hiram) + membank("bank2")->set_base(m_basic); + else + membank("bank2")->set_base(m_memory + 0xa000); + + if ((!m_game && m_exrom) || (charen && (loram || hiram))) + { + m_io_on = 1; + membank("bank6")->set_base(m_colorram); + membank("bank7")->set_base(m_colorram); + + if (m_io_dc00_on) + { + m_maincpu->space(AS_PROGRAM).install_read_handler(0x0dc00, 0x0dfff, read8_delegate(FUNC(c65_state::c65_read_io_dc00),this)); + m_maincpu->space(AS_PROGRAM).install_write_handler(0x0dc00, 0x0dfff, write8_delegate(FUNC(c65_state::c65_write_io_dc00),this)); + } + else + { + m_maincpu->space(AS_PROGRAM).install_read_bank(0x0dc00, 0x0dfff, "bank8"); + m_maincpu->space(AS_PROGRAM).install_write_bank(0x0dc00, 0x0dfff, "bank9"); + membank("bank8")->set_base(m_colorram + 0x400); + membank("bank9")->set_base(m_colorram + 0x400); + } + m_maincpu->space(AS_PROGRAM).install_read_handler(0x0d000, 0x0d7ff, read8_delegate(FUNC(c65_state::c65_read_io),this)); + m_maincpu->space(AS_PROGRAM).install_write_handler(0x0d000, 0x0d7ff, write8_delegate(FUNC(c65_state::c65_write_io),this)); + } + else + { + m_io_on = 0; + membank("bank5")->set_base(m_memory + 0xd000); + membank("bank7")->set_base(m_memory + 0xd800); + membank("bank9")->set_base(m_memory + 0xdc00); + if (!charen && (loram || hiram)) + { + membank("bank4")->set_base(m_chargen); + membank("bank6")->set_base(m_chargen + 0x800); + membank("bank8")->set_base(m_chargen + 0xc00); + } + else + { + membank("bank4")->set_base(m_memory + 0xd000); + membank("bank6")->set_base(m_memory + 0xd800); + membank("bank8")->set_base(m_memory + 0xdc00); + } + m_maincpu->space(AS_PROGRAM).install_read_bank(0x0d000, 0x0d7ff, "bank4"); + m_maincpu->space(AS_PROGRAM).install_write_bank(0x0d000, 0x0d7ff, "bank5"); + } + + if (!m_game && m_exrom) + { + membank("bank10")->set_base(m_romh); + } + else + { + if (hiram) + { + membank("bank10")->set_base(m_kernal); + } + else + { + membank("bank10")->set_base(m_memory + 0xe000); + } + } + m_old_data = data; +} + +#ifdef UNUSED_FUNCTION +void c65_state::c65_colorram_write( int offset, int value ) +{ + m_colorram[offset & 0x7ff] = value | 0xf0; +} +#endif + +/* + * only 14 address lines + * a15 and a14 portlines + * 0x1000-0x1fff, 0x9000-0x9fff char rom + */ +READ8_MEMBER(c65_state::c65_dma_read) +{ + if (!m_game && m_exrom) + { + if (offset < 0x3000) + return m_memory[offset]; + return m_romh[offset & 0x1fff]; + } + if ((m_vicaddr == m_memory) || (m_vicaddr == m_memory + 0x8000)) + { + if (offset < 0x1000) + return m_vicaddr[offset & 0x3fff]; + if (offset < 0x2000) { + if (m_charset_select) + return m_chargen[offset & 0xfff]; + else + return m_chargen[offset & 0xfff]; + } + return m_vicaddr[offset & 0x3fff]; + } + return m_vicaddr[offset & 0x3fff]; +} + +READ8_MEMBER(c65_state::c65_dma_read_color) +{ + if (m_c64mode) + return m_colorram[offset & 0x3ff] & 0xf; + return m_colorram[offset & 0x7ff]; +} + +void c65_state::c65_common_driver_init( ) +{ + m_memory = auto_alloc_array_clear(machine(), UINT8, 0x10000); + membank("bank11")->set_base(m_memory + 0x00000); + membank("bank12")->set_base(m_memory + 0x08000); + membank("bank13")->set_base(m_memory + 0x0a000); + membank("bank14")->set_base(m_memory + 0x0c000); + membank("bank15")->set_base(m_memory + 0x0e000); + + cbm_common_init(); + m_keyline = 0xff; + + m_pal = 0; + m_charset_select = 0; + m_6511_port = 0xff; + m_vicirq = 0; + m_old_data = -1; + + /* C65 had no datasette port */ + m_tape_on = 0; + m_game = 1; + m_exrom = 1; + + /*memset(m_memory + 0x40000, 0, 0x800000 - 0x40000); */ +} + +DRIVER_INIT_MEMBER(c65_state,c65) +{ + m_dma.version = 2; + c65_common_driver_init(); +} + +DRIVER_INIT_MEMBER(c65_state,c65pal) +{ + m_dma.version = 1; + c65_common_driver_init(); + m_pal = 1; +} + +MACHINE_START_MEMBER(c65_state,c65) +{ + /* clear upper memory */ + memset(m_ram->pointer() + 128*1024, 0xff, m_ram->size() - 128*1024); + +//removed cbm_drive_0_config (SERIAL, 10); +//removed cbm_drive_1_config (SERIAL, 11); + m_vicaddr = m_memory; + + m_c64mode = 0; + + c65_bankswitch_interface(m_maincpu->space(AS_PROGRAM),0,0xff); + c65_bankswitch(); +} + + +INTERRUPT_GEN_MEMBER(c65_state::c65_frame_interrupt) +{ + int value; + + c65_nmi(); + + /* common keys input ports */ + cbm_common_interrupt(&device); + + /* c65 specific: function keys input ports */ + value = 0xff; + + value &= ~ioport("FUNCT")->read(); + m_keyline = value; +} + -- cgit v1.2.3