diff options
Diffstat (limited to 'src/mess/machine/c65.c')
-rw-r--r-- | src/mess/machine/c65.c | 1336 |
1 files changed, 0 insertions, 1336 deletions
diff --git a/src/mess/machine/c65.c b/src/mess/machine/c65.c index 8060f05c54c..8b137891791 100644 --- a/src/mess/machine/c65.c +++ b/src/mess/machine/c65.c @@ -1,1337 +1 @@ -/*************************************************************************** - 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_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<mos6581_device>("sid_r"); - mos6581_device *sid_1 = machine().device<mos6581_device>("sid_l"); - vic3_device *vic3 = machine().device<vic3_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<mos6581_device>("sid_r"); - mos6581_device *sid_1 = machine().device<mos6581_device>("sid_l"); - vic3_device *vic3 = machine().device<vic3_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<m4510_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; -} |