summaryrefslogtreecommitdiffstatshomepage
path: root/src/devices/cpu/mcs48/mcs48.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/devices/cpu/mcs48/mcs48.cpp')
-rw-r--r--src/devices/cpu/mcs48/mcs48.cpp1334
1 files changed, 1334 insertions, 0 deletions
diff --git a/src/devices/cpu/mcs48/mcs48.cpp b/src/devices/cpu/mcs48/mcs48.cpp
new file mode 100644
index 00000000000..a24cf72f0d6
--- /dev/null
+++ b/src/devices/cpu/mcs48/mcs48.cpp
@@ -0,0 +1,1334 @@
+// license:BSD-3-Clause
+// copyright-holders:Mirko Buffoni
+/*
+EA pin - defined by architecture, must implement:
+ 1 means external access, bypassing internal ROM
+ reimplement as a push, not a pull
+T0 output clock
+*/
+
+/***************************************************************************
+
+ mcs48.c
+
+ Intel MCS-48/UPI-41 Portable Emulator
+
+ Copyright Mirko Buffoni
+ Based on the original work Copyright Dan Boris, an 8048 emulator
+ You are not allowed to distribute this software commercially
+
+****************************************************************************
+
+ Note that the default internal divisor for this chip is by 3 and
+ then again by 5, or by 15 total.
+
+****************************************************************************
+
+ Chip RAM ROM I/O
+ ---- --- --- ---
+ 8021 64 1k 21 (ROM, reduced instruction set)
+
+ 8035 64 0 27 (external ROM)
+ 8048 64 1k 27 (ROM)
+ 8648 64 1k 27 (OTPROM)
+ 8748 64 1k 27 (EPROM)
+ 8884 64 1k
+ N7751 128 2k
+
+ 8039 128 0 27 (external ROM)
+ 8049 128 2k 27 (ROM)
+ 8749 128 2k 27 (EPROM)
+ M58715 128 0 (external ROM)
+
+****************************************************************************
+
+ UPI-41/42 chips are MCS-48 derived, with some opcode changes:
+
+ MCS-48 opcode UPI-41/42 opcode
+ ------------- ----------------
+ 02: OUTL BUS,A OUT DBB,A
+ 08: INS BUS,A <illegal>
+ 22: <illegal> IN DBB,A
+ 75: ENT0 CLK <illegal>
+ 80: MOVX A,@R0 <illegal>
+ 81: MOVX A,@R1 <illegal>
+ 86: JNI <dest> JOBF <dest>
+ 88: ORL BUS,#n <illegal>
+ 90: MOVX @R0,A MOV STS,A
+ 91: MOVX @R1,A <illegal>
+ 98: ANL BUS,#n <illegal>
+ D6: <illegal> JNIBF <dest>
+ E5: SEL MB0 EN DMA
+ F5: SEL MB1 EN FLAGS
+
+ Chip numbers are similar to the MCS-48 series:
+
+ Chip RAM ROM I/O
+ ---- --- --- ---
+ 8041 128 1k
+ 8741 128 1k (EPROM)
+
+ 8042 256 2k
+ 8242 256 2k
+ 8242 256 2k
+
+***************************************************************************/
+
+#include "emu.h"
+#include "debugger.h"
+#include "mcs48.h"
+
+
+/***************************************************************************
+ CONSTANTS
+***************************************************************************/
+
+/* timer/counter enable bits */
+#define TIMER_ENABLED 0x01
+#define COUNTER_ENABLED 0x02
+
+/* flag bits */
+#define C_FLAG 0x80
+#define A_FLAG 0x40
+#define F_FLAG 0x20
+#define B_FLAG 0x10
+
+/* status bits (UPI-41) */
+#define STS_F1 0x08
+#define STS_F0 0x04
+#define STS_IBF 0x02
+#define STS_OBF 0x01
+
+/* port 2 bits (UPI-41) */
+#define P2_OBF 0x10
+#define P2_NIBF 0x20
+#define P2_DRQ 0x40
+#define P2_NDACK 0x80
+
+/* enable bits (UPI-41) */
+#define ENABLE_FLAGS 0x01
+#define ENABLE_DMA 0x02
+
+/* feature masks */
+#define MCS48_FEATURE 0x01
+#define UPI41_FEATURE 0x02
+
+
+
+/***************************************************************************
+ MACROS
+***************************************************************************/
+
+/* ROM is mapped to AS_PROGRAM */
+#define program_r(a) m_program->read_byte(a)
+
+/* RAM is mapped to AS_DATA */
+#define ram_r(a) m_data->read_byte(a)
+#define ram_w(a,V) m_data->write_byte(a, V)
+
+/* ports are mapped to AS_IO */
+#define ext_r(a) m_io->read_byte(a)
+#define ext_w(a,V) m_io->write_byte(a, V)
+#define port_r(a) m_io->read_byte(MCS48_PORT_P0 + a)
+#define port_w(a,V) m_io->write_byte(MCS48_PORT_P0 + a, V)
+#define test_r(a) m_io->read_byte(MCS48_PORT_T0 + a)
+#define test_w(a,V) m_io->write_byte(MCS48_PORT_T0 + a, V)
+#define bus_r() m_io->read_byte(MCS48_PORT_BUS)
+#define bus_w(V) m_io->write_byte(MCS48_PORT_BUS, V)
+#define ea_r() m_io->read_byte(MCS48_PORT_EA)
+#define prog_w(V) m_io->write_byte(MCS48_PORT_PROG, V)
+
+/* r0-r7 map to memory via the regptr */
+#define R0 m_regptr[0]
+#define R1 m_regptr[1]
+#define R2 m_regptr[2]
+#define R3 m_regptr[3]
+#define R4 m_regptr[4]
+#define R5 m_regptr[5]
+#define R6 m_regptr[6]
+#define R7 m_regptr[7]
+
+
+
+const device_type I8021 = &device_creator<i8021_device>;
+const device_type I8022 = &device_creator<i8022_device>;
+const device_type I8035 = &device_creator<i8035_device>;
+const device_type I8048 = &device_creator<i8048_device>;
+const device_type I8648 = &device_creator<i8648_device>;
+const device_type I8748 = &device_creator<i8748_device>;
+const device_type I8039 = &device_creator<i8039_device>;
+const device_type I8049 = &device_creator<i8049_device>;
+const device_type I8749 = &device_creator<i8749_device>;
+const device_type I8040 = &device_creator<i8040_device>;
+const device_type I8050 = &device_creator<i8050_device>;
+const device_type I8041 = &device_creator<i8041_device>;
+const device_type I8741 = &device_creator<i8741_device>;
+const device_type I8042 = &device_creator<i8042_device>;
+const device_type I8242 = &device_creator<i8242_device>;
+const device_type I8742 = &device_creator<i8742_device>;
+const device_type MB8884 = &device_creator<mb8884_device>;
+const device_type N7751 = &device_creator<n7751_device>;
+const device_type M58715 = &device_creator<m58715_device>;
+
+
+/***************************************************************************
+ ADDRESS MAPS
+***************************************************************************/
+
+/* FIXME: the memory maps should probably support rom banking for EA */
+static ADDRESS_MAP_START(program_10bit, AS_PROGRAM, 8, mcs48_cpu_device)
+ AM_RANGE(0x000, 0x3ff) AM_ROM
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START(program_11bit, AS_PROGRAM, 8, mcs48_cpu_device)
+ AM_RANGE(0x000, 0x7ff) AM_ROM
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START(program_12bit, AS_PROGRAM, 8, mcs48_cpu_device)
+ AM_RANGE(0x000, 0xfff) AM_ROM
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START(data_6bit, AS_DATA, 8, mcs48_cpu_device)
+ AM_RANGE(0x00, 0x3f) AM_RAM
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START(data_7bit, AS_DATA, 8, mcs48_cpu_device)
+ AM_RANGE(0x00, 0x7f) AM_RAM
+ADDRESS_MAP_END
+
+static ADDRESS_MAP_START(data_8bit, AS_DATA, 8, mcs48_cpu_device)
+ AM_RANGE(0x00, 0xff) AM_RAM
+ADDRESS_MAP_END
+
+
+mcs48_cpu_device::mcs48_cpu_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, UINT32 clock, const char *shortname, int rom_size, int ram_size, UINT8 feature_mask)
+ : cpu_device(mconfig, type, name, tag, owner, clock, shortname, __FILE__)
+ , m_program_config("program", ENDIANNESS_LITTLE, 8, 12, 0
+ , ( ( rom_size == 1024 ) ? ADDRESS_MAP_NAME(program_10bit) : ( ( rom_size == 2048 ) ? ADDRESS_MAP_NAME(program_11bit) : ( ( rom_size == 4096 ) ? ADDRESS_MAP_NAME(program_12bit) : NULL ) ) ))
+ , m_data_config("data", ENDIANNESS_LITTLE, 8, ( ( ram_size == 64 ) ? 6 : ( ( ram_size == 128 ) ? 7 : 8 ) ), 0
+ , ( ( ram_size == 64 ) ? ADDRESS_MAP_NAME(data_6bit) : ( ( ram_size == 128 ) ? ADDRESS_MAP_NAME(data_7bit) : ADDRESS_MAP_NAME(data_8bit) ) ))
+ , m_io_config("io", ENDIANNESS_LITTLE, 8, 9, 0)
+ , m_psw(0)
+ , m_feature_mask(feature_mask)
+ , m_int_rom_size(rom_size)
+{
+ // Sanity checks
+ if ( ram_size != 64 && ram_size != 128 && ram_size != 256 )
+ {
+ fatalerror("mcs48: Invalid RAM size\n");
+ }
+
+ if ( rom_size != 0 && rom_size != 1024 && rom_size != 2048 && rom_size != 4096 )
+ {
+ fatalerror("mcs48: Invalid ROM size\n");
+ }
+}
+
+i8021_device::i8021_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8021, "I8021", tag, owner, clock, "i8021", 1024, 64)
+{
+}
+
+i8022_device::i8022_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8022, "I8022", tag, owner, clock, "i8022", 2048, 128)
+{
+}
+
+i8035_device::i8035_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8035, "I8035", tag, owner, clock, "i8035", 0, 64)
+{
+}
+
+i8048_device::i8048_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8048, "I8048", tag, owner, clock, "i8048", 1024, 64)
+{
+}
+
+i8648_device::i8648_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8648, "I8648", tag, owner, clock, "i8648", 1024, 64)
+{
+}
+
+i8748_device::i8748_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8748, "I8748", tag, owner, clock, "i8748", 1024, 64)
+{
+}
+
+i8039_device::i8039_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8039, "I8039", tag, owner, clock, "i8039", 0, 128)
+{
+}
+
+i8049_device::i8049_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8049, "I8049", tag, owner, clock, "i8049", 2048, 128)
+{
+}
+
+i8749_device::i8749_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8749, "I8749", tag, owner, clock, "i8749", 2048, 128)
+{
+}
+
+i8040_device::i8040_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8040, "I8040", tag, owner, clock, "i8040", 0, 256)
+{
+}
+
+i8050_device::i8050_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, I8050, "I8050", tag, owner, clock, "i8050", 4096, 256)
+{
+}
+
+mb8884_device::mb8884_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, MB8884, "MB8884", tag, owner, clock, "mb8884", 0, 64)
+{
+}
+
+n7751_device::n7751_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, N7751, "N7751", tag, owner, clock, "n7751", 1024, 64)
+{
+}
+
+m58715_device::m58715_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : mcs48_cpu_device(mconfig, M58715, "M58715", tag, owner, clock, "m58715", 2048, 128)
+{
+}
+
+upi41_cpu_device::upi41_cpu_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, UINT32 clock, const char *shortname, int rom_size, int ram_size)
+ : mcs48_cpu_device(mconfig, type, name, tag, owner, clock, shortname, rom_size, ram_size, UPI41_FEATURE)
+{
+}
+
+i8041_device::i8041_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : upi41_cpu_device(mconfig, I8041, "I8041", tag, owner, clock, "i8041", 1024, 128)
+{
+}
+
+i8741_device::i8741_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : upi41_cpu_device(mconfig, I8741, "I8741", tag, owner, clock, "i8741", 1024, 128)
+{
+}
+
+i8042_device::i8042_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : upi41_cpu_device(mconfig, I8042, "I8042", tag, owner, clock, "i8042", 2048, 256)
+{
+}
+
+i8242_device::i8242_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : upi41_cpu_device(mconfig, I8242, "I8242", tag, owner, clock, "i8242", 2048, 256)
+{
+}
+
+i8742_device::i8742_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
+ : upi41_cpu_device(mconfig, I8742, "I8742", tag, owner, clock, "i8742", 2048, 256)
+{
+}
+
+
+offs_t mcs48_cpu_device::disasm_disassemble(char *buffer, offs_t pc, const UINT8 *oprom, const UINT8 *opram, UINT32 options)
+{
+ extern CPU_DISASSEMBLE( mcs48 );
+ return CPU_DISASSEMBLE_NAME(mcs48)(this, buffer, pc, oprom, opram, options);
+}
+
+
+offs_t upi41_cpu_device::disasm_disassemble(char *buffer, offs_t pc, const UINT8 *oprom, const UINT8 *opram, UINT32 options)
+{
+ extern CPU_DISASSEMBLE( upi41 );
+ return CPU_DISASSEMBLE_NAME(upi41)(this, buffer, pc, oprom, opram, options);
+}
+
+/***************************************************************************
+ INLINE FUNCTIONS
+***************************************************************************/
+
+/*-------------------------------------------------
+ opcode_fetch - fetch an opcode byte
+-------------------------------------------------*/
+
+UINT8 mcs48_cpu_device::opcode_fetch()
+{
+ return m_direct->read_byte(m_pc++);
+}
+
+
+/*-------------------------------------------------
+ argument_fetch - fetch an opcode argument
+ byte
+-------------------------------------------------*/
+
+UINT8 mcs48_cpu_device::argument_fetch()
+{
+ return m_direct->read_byte(m_pc++);
+}
+
+
+/*-------------------------------------------------
+ update_regptr - update the regptr member to
+ point to the appropriate register bank
+-------------------------------------------------*/
+
+void mcs48_cpu_device::update_regptr()
+{
+ m_regptr = (UINT8 *)m_data->get_write_ptr((m_psw & B_FLAG) ? 24 : 0);
+}
+
+
+/*-------------------------------------------------
+ push_pc_psw - push the m_pc and m_psw values onto
+ the stack
+-------------------------------------------------*/
+
+void mcs48_cpu_device::push_pc_psw()
+{
+ UINT8 sp = m_psw & 0x07;
+ ram_w(8 + 2*sp, m_pc);
+ ram_w(9 + 2*sp, ((m_pc >> 8) & 0x0f) | (m_psw & 0xf0));
+ m_psw = (m_psw & 0xf8) | ((sp + 1) & 0x07);
+}
+
+
+/*-------------------------------------------------
+ pull_pc_psw - pull the PC and PSW values from
+ the stack
+-------------------------------------------------*/
+
+void mcs48_cpu_device::pull_pc_psw()
+{
+ UINT8 sp = (m_psw - 1) & 0x07;
+ m_pc = ram_r(8 + 2*sp);
+ m_pc |= ram_r(9 + 2*sp) << 8;
+ m_psw = ((m_pc >> 8) & 0xf0) | 0x08 | sp;
+ m_pc &= 0xfff;
+ update_regptr();
+}
+
+
+/*-------------------------------------------------
+ pull_pc - pull the PC value from the stack,
+ leaving the upper part of PSW intact
+-------------------------------------------------*/
+
+void mcs48_cpu_device::pull_pc()
+{
+ UINT8 sp = (m_psw - 1) & 0x07;
+ m_pc = ram_r(8 + 2*sp);
+ m_pc |= ram_r(9 + 2*sp) << 8;
+ m_pc &= 0xfff;
+ m_psw = (m_psw & 0xf0) | 0x08 | sp;
+}
+
+
+/*-------------------------------------------------
+ execute_add - perform the logic of an ADD
+ instruction
+-------------------------------------------------*/
+
+void mcs48_cpu_device::execute_add(UINT8 dat)
+{
+ UINT16 temp = m_a + dat;
+ UINT16 temp4 = (m_a & 0x0f) + (dat & 0x0f);
+
+ m_psw &= ~(C_FLAG | A_FLAG);
+ m_psw |= (temp4 << 2) & A_FLAG;
+ m_psw |= (temp >> 1) & C_FLAG;
+ m_a = temp;
+}
+
+
+/*-------------------------------------------------
+ execute_addc - perform the logic of an ADDC
+ instruction
+-------------------------------------------------*/
+
+void mcs48_cpu_device::execute_addc(UINT8 dat)
+{
+ UINT8 carryin = (m_psw & C_FLAG) >> 7;
+ UINT16 temp = m_a + dat + carryin;
+ UINT16 temp4 = (m_a & 0x0f) + (dat & 0x0f) + carryin;
+
+ m_psw &= ~(C_FLAG | A_FLAG);
+ m_psw |= (temp4 << 2) & A_FLAG;
+ m_psw |= (temp >> 1) & C_FLAG;
+ m_a = temp;
+}
+
+
+/*-------------------------------------------------
+ execute_jmp - perform the logic of a JMP
+ instruction
+-------------------------------------------------*/
+
+void mcs48_cpu_device::execute_jmp(UINT16 address)
+{
+ UINT16 a11 = (m_irq_in_progress) ? 0 : m_a11;
+ m_pc = address | a11;
+}
+
+
+/*-------------------------------------------------
+ execute_call - perform the logic of a CALL
+ instruction
+-------------------------------------------------*/
+
+void mcs48_cpu_device::execute_call(UINT16 address)
+{
+ push_pc_psw();
+ execute_jmp(address);
+}
+
+
+/*-------------------------------------------------
+ execute_jcc - perform the logic of a
+ conditional jump instruction
+-------------------------------------------------*/
+
+void mcs48_cpu_device::execute_jcc(UINT8 result)
+{
+ UINT8 offset = argument_fetch();
+ if (result != 0)
+ m_pc = ((m_pc - 1) & 0xf00) | offset;
+}
+
+
+/*-------------------------------------------------
+ p2_mask - return the mask of bits that the
+ code can directly affect
+-------------------------------------------------*/
+
+UINT8 mcs48_cpu_device::p2_mask()
+{
+ UINT8 result = 0xff;
+ if ((m_feature_mask & UPI41_FEATURE) == 0)
+ return result;
+ if (m_flags_enabled)
+ result &= ~(P2_OBF | P2_NIBF);
+ if (m_dma_enabled)
+ result &= ~(P2_DRQ | P2_NDACK);
+ return result;
+}
+
+
+/*-------------------------------------------------
+ expander_operation - perform an operation via
+ the 8243 expander chip
+-------------------------------------------------*/
+
+void mcs48_cpu_device::expander_operation(UINT8 operation, UINT8 port)
+{
+ /* put opcode/data on low 4 bits of P2 */
+ port_w(2, m_p2 = (m_p2 & 0xf0) | (operation << 2) | (port & 3));
+
+ /* generate high-to-low transition on PROG line */
+ prog_w(0);
+
+ /* put data on low 4 bits of P2 */
+ if (operation != 0)
+ port_w(2, m_p2 = (m_p2 & 0xf0) | (m_a & 0x0f));
+ else
+ m_a = port_r(2) | 0x0f;
+
+ /* generate low-to-high transition on PROG line */
+ prog_w(1);
+}
+
+
+
+/***************************************************************************
+ OPCODE HANDLERS
+***************************************************************************/
+
+#define OPHANDLER(_name) int mcs48_cpu_device::_name()
+
+#define SPLIT_OPHANDLER(_name, _mcs48name, _upi41name) \
+OPHANDLER(_name) { return (!(m_feature_mask & UPI41_FEATURE)) ? _mcs48name() : _upi41name(); }
+
+
+OPHANDLER( illegal )
+{
+ logerror("MCS-48 PC:%04X - Illegal opcode = %02x\n", m_pc - 1, program_r(m_pc - 1));
+ return 1;
+}
+
+OPHANDLER( add_a_r0 ) { execute_add(R0); return 1; }
+OPHANDLER( add_a_r1 ) { execute_add(R1); return 1; }
+OPHANDLER( add_a_r2 ) { execute_add(R2); return 1; }
+OPHANDLER( add_a_r3 ) { execute_add(R3); return 1; }
+OPHANDLER( add_a_r4 ) { execute_add(R4); return 1; }
+OPHANDLER( add_a_r5 ) { execute_add(R5); return 1; }
+OPHANDLER( add_a_r6 ) { execute_add(R6); return 1; }
+OPHANDLER( add_a_r7 ) { execute_add(R7); return 1; }
+OPHANDLER( add_a_xr0 ) { execute_add(ram_r(R0)); return 1; }
+OPHANDLER( add_a_xr1 ) { execute_add(ram_r(R1)); return 1; }
+OPHANDLER( add_a_n ) { execute_add(argument_fetch()); return 2; }
+
+OPHANDLER( adc_a_r0 ) { execute_addc(R0); return 1; }
+OPHANDLER( adc_a_r1 ) { execute_addc(R1); return 1; }
+OPHANDLER( adc_a_r2 ) { execute_addc(R2); return 1; }
+OPHANDLER( adc_a_r3 ) { execute_addc(R3); return 1; }
+OPHANDLER( adc_a_r4 ) { execute_addc(R4); return 1; }
+OPHANDLER( adc_a_r5 ) { execute_addc(R5); return 1; }
+OPHANDLER( adc_a_r6 ) { execute_addc(R6); return 1; }
+OPHANDLER( adc_a_r7 ) { execute_addc(R7); return 1; }
+OPHANDLER( adc_a_xr0 ) { execute_addc(ram_r(R0)); return 1; }
+OPHANDLER( adc_a_xr1 ) { execute_addc(ram_r(R1)); return 1; }
+OPHANDLER( adc_a_n ) { execute_addc(argument_fetch()); return 2; }
+
+OPHANDLER( anl_a_r0 ) { m_a &= R0; return 1; }
+OPHANDLER( anl_a_r1 ) { m_a &= R1; return 1; }
+OPHANDLER( anl_a_r2 ) { m_a &= R2; return 1; }
+OPHANDLER( anl_a_r3 ) { m_a &= R3; return 1; }
+OPHANDLER( anl_a_r4 ) { m_a &= R4; return 1; }
+OPHANDLER( anl_a_r5 ) { m_a &= R5; return 1; }
+OPHANDLER( anl_a_r6 ) { m_a &= R6; return 1; }
+OPHANDLER( anl_a_r7 ) { m_a &= R7; return 1; }
+OPHANDLER( anl_a_xr0 ) { m_a &= ram_r(R0); return 1; }
+OPHANDLER( anl_a_xr1 ) { m_a &= ram_r(R1); return 1; }
+OPHANDLER( anl_a_n ) { m_a &= argument_fetch(); return 2; }
+
+OPHANDLER( anl_bus_n ) { bus_w(bus_r() & argument_fetch()); return 2; }
+OPHANDLER( anl_p1_n ) { port_w(1, m_p1 &= argument_fetch()); return 2; }
+OPHANDLER( anl_p2_n ) { port_w(2, m_p2 &= argument_fetch() | ~p2_mask()); return 2; }
+OPHANDLER( anld_p4_a ) { expander_operation(MCS48_EXPANDER_OP_AND, 4); return 2; }
+OPHANDLER( anld_p5_a ) { expander_operation(MCS48_EXPANDER_OP_AND, 5); return 2; }
+OPHANDLER( anld_p6_a ) { expander_operation(MCS48_EXPANDER_OP_AND, 6); return 2; }
+OPHANDLER( anld_p7_a ) { expander_operation(MCS48_EXPANDER_OP_AND, 7); return 2; }
+
+OPHANDLER( call_0 ) { execute_call(argument_fetch() | 0x000); return 2; }
+OPHANDLER( call_1 ) { execute_call(argument_fetch() | 0x100); return 2; }
+OPHANDLER( call_2 ) { execute_call(argument_fetch() | 0x200); return 2; }
+OPHANDLER( call_3 ) { execute_call(argument_fetch() | 0x300); return 2; }
+OPHANDLER( call_4 ) { execute_call(argument_fetch() | 0x400); return 2; }
+OPHANDLER( call_5 ) { execute_call(argument_fetch() | 0x500); return 2; }
+OPHANDLER( call_6 ) { execute_call(argument_fetch() | 0x600); return 2; }
+OPHANDLER( call_7 ) { execute_call(argument_fetch() | 0x700); return 2; }
+
+OPHANDLER( clr_a ) { m_a = 0; return 1; }
+OPHANDLER( clr_c ) { m_psw &= ~C_FLAG; return 1; }
+OPHANDLER( clr_f0 ) { m_psw &= ~F_FLAG; m_sts &= ~STS_F0; return 1; }
+OPHANDLER( clr_f1 ) { m_sts &= ~STS_F1; return 1; }
+
+OPHANDLER( cpl_a ) { m_a ^= 0xff; return 1; }
+OPHANDLER( cpl_c ) { m_psw ^= C_FLAG; return 1; }
+OPHANDLER( cpl_f0 ) { m_psw ^= F_FLAG; m_sts ^= STS_F0; return 1; }
+OPHANDLER( cpl_f1 ) { m_sts ^= STS_F1; return 1; }
+
+OPHANDLER( da_a )
+{
+ if ((m_a & 0x0f) > 0x09 || (m_psw & A_FLAG))
+ {
+ m_a += 0x06;
+ if ((m_a & 0xf0) == 0x00)
+ m_psw |= C_FLAG;
+ }
+ if ((m_a & 0xf0) > 0x90 || (m_psw & C_FLAG))
+ {
+ m_a += 0x60;
+ m_psw |= C_FLAG;
+ }
+ else
+ m_psw &= ~C_FLAG;
+ return 1;
+}
+
+OPHANDLER( dec_a ) { m_a--; return 1; }
+OPHANDLER( dec_r0 ) { R0--; return 1; }
+OPHANDLER( dec_r1 ) { R1--; return 1; }
+OPHANDLER( dec_r2 ) { R2--; return 1; }
+OPHANDLER( dec_r3 ) { R3--; return 1; }
+OPHANDLER( dec_r4 ) { R4--; return 1; }
+OPHANDLER( dec_r5 ) { R5--; return 1; }
+OPHANDLER( dec_r6 ) { R6--; return 1; }
+OPHANDLER( dec_r7 ) { R7--; return 1; }
+
+OPHANDLER( dis_i ) { m_xirq_enabled = FALSE; return 1; }
+OPHANDLER( dis_tcnti ) { m_tirq_enabled = FALSE; m_timer_overflow = FALSE; return 1; }
+
+OPHANDLER( djnz_r0 ) { execute_jcc(--R0 != 0); return 2; }
+OPHANDLER( djnz_r1 ) { execute_jcc(--R1 != 0); return 2; }
+OPHANDLER( djnz_r2 ) { execute_jcc(--R2 != 0); return 2; }
+OPHANDLER( djnz_r3 ) { execute_jcc(--R3 != 0); return 2; }
+OPHANDLER( djnz_r4 ) { execute_jcc(--R4 != 0); return 2; }
+OPHANDLER( djnz_r5 ) { execute_jcc(--R5 != 0); return 2; }
+OPHANDLER( djnz_r6 ) { execute_jcc(--R6 != 0); return 2; }
+OPHANDLER( djnz_r7 ) { execute_jcc(--R7 != 0); return 2; }
+
+OPHANDLER( en_i ) { m_xirq_enabled = TRUE; return 1 + check_irqs(); }
+OPHANDLER( en_tcnti ) { m_tirq_enabled = TRUE; return 1 + check_irqs(); }
+OPHANDLER( en_dma ) { m_dma_enabled = TRUE; port_w(2, m_p2); return 1; }
+OPHANDLER( en_flags ) { m_flags_enabled = TRUE; port_w(2, m_p2); return 1; }
+OPHANDLER( ent0_clk )
+{
+ logerror("MCS-48 PC:%04X - Unimplemented opcode = %02x\n", m_pc - 1, program_r(m_pc - 1));
+ return 1;
+}
+
+OPHANDLER( in_a_p1 ) { m_a = port_r(1) & m_p1; return 2; }
+OPHANDLER( in_a_p2 ) { m_a = port_r(2) & m_p2; return 2; }
+OPHANDLER( ins_a_bus ) { m_a = bus_r(); return 2; }
+OPHANDLER( in_a_dbb )
+{
+ /* acknowledge the IBF IRQ and clear the bit in STS */
+ if ((m_sts & STS_IBF) != 0)
+ standard_irq_callback(UPI41_INPUT_IBF);
+ m_sts &= ~STS_IBF;
+
+ /* if P2 flags are enabled, update the state of P2 */
+ if (m_flags_enabled && (m_p2 & P2_NIBF) == 0)
+ port_w(2, m_p2 |= P2_NIBF);
+ m_a = m_dbbi;
+ return 2;
+}
+
+OPHANDLER( inc_a ) { m_a++; return 1; }
+OPHANDLER( inc_r0 ) { R0++; return 1; }
+OPHANDLER( inc_r1 ) { R1++; return 1; }
+OPHANDLER( inc_r2 ) { R2++; return 1; }
+OPHANDLER( inc_r3 ) { R3++; return 1; }
+OPHANDLER( inc_r4 ) { R4++; return 1; }
+OPHANDLER( inc_r5 ) { R5++; return 1; }
+OPHANDLER( inc_r6 ) { R6++; return 1; }
+OPHANDLER( inc_r7 ) { R7++; return 1; }
+OPHANDLER( inc_xr0 ) { ram_w(R0, ram_r(R0) + 1); return 1; }
+OPHANDLER( inc_xr1 ) { ram_w(R1, ram_r(R1) + 1); return 1; }
+
+OPHANDLER( jb_0 ) { execute_jcc((m_a & 0x01) != 0); return 2; }
+OPHANDLER( jb_1 ) { execute_jcc((m_a & 0x02) != 0); return 2; }
+OPHANDLER( jb_2 ) { execute_jcc((m_a & 0x04) != 0); return 2; }
+OPHANDLER( jb_3 ) { execute_jcc((m_a & 0x08) != 0); return 2; }
+OPHANDLER( jb_4 ) { execute_jcc((m_a & 0x10) != 0); return 2; }
+OPHANDLER( jb_5 ) { execute_jcc((m_a & 0x20) != 0); return 2; }
+OPHANDLER( jb_6 ) { execute_jcc((m_a & 0x40) != 0); return 2; }
+OPHANDLER( jb_7 ) { execute_jcc((m_a & 0x80) != 0); return 2; }
+OPHANDLER( jc ) { execute_jcc((m_psw & C_FLAG) != 0); return 2; }
+OPHANDLER( jf0 ) { execute_jcc((m_psw & F_FLAG) != 0); return 2; }
+OPHANDLER( jf1 ) { execute_jcc((m_sts & STS_F1) != 0); return 2; }
+OPHANDLER( jnc ) { execute_jcc((m_psw & C_FLAG) == 0); return 2; }
+OPHANDLER( jni ) { execute_jcc(m_irq_state != 0); return 2; }
+OPHANDLER( jnibf ) { execute_jcc((m_sts & STS_IBF) == 0); return 2; }
+OPHANDLER( jnt_0 ) { execute_jcc(test_r(0) == 0); return 2; }
+OPHANDLER( jnt_1 ) { execute_jcc(test_r(1) == 0); return 2; }
+OPHANDLER( jnz ) { execute_jcc(m_a != 0); return 2; }
+OPHANDLER( jobf ) { execute_jcc((m_sts & STS_OBF) != 0); return 2; }
+OPHANDLER( jtf ) { execute_jcc(m_timer_flag); m_timer_flag = FALSE; return 2; }
+OPHANDLER( jt_0 ) { execute_jcc(test_r(0) != 0); return 2; }
+OPHANDLER( jt_1 ) { execute_jcc(test_r(1) != 0); return 2; }
+OPHANDLER( jz ) { execute_jcc(m_a == 0); return 2; }
+
+OPHANDLER( jmp_0 ) { execute_jmp(argument_fetch() | 0x000); return 2; }
+OPHANDLER( jmp_1 ) { execute_jmp(argument_fetch() | 0x100); return 2; }
+OPHANDLER( jmp_2 ) { execute_jmp(argument_fetch() | 0x200); return 2; }
+OPHANDLER( jmp_3 ) { execute_jmp(argument_fetch() | 0x300); return 2; }
+OPHANDLER( jmp_4 ) { execute_jmp(argument_fetch() | 0x400); return 2; }
+OPHANDLER( jmp_5 ) { execute_jmp(argument_fetch() | 0x500); return 2; }
+OPHANDLER( jmp_6 ) { execute_jmp(argument_fetch() | 0x600); return 2; }
+OPHANDLER( jmp_7 ) { execute_jmp(argument_fetch() | 0x700); return 2; }
+OPHANDLER( jmpp_xa ) { m_pc &= 0xf00; m_pc |= program_r(m_pc | m_a); return 2; }
+
+OPHANDLER( mov_a_n ) { m_a = argument_fetch(); return 2; }
+OPHANDLER( mov_a_psw ) { m_a = m_psw; return 1; }
+OPHANDLER( mov_a_r0 ) { m_a = R0; return 1; }
+OPHANDLER( mov_a_r1 ) { m_a = R1; return 1; }
+OPHANDLER( mov_a_r2 ) { m_a = R2; return 1; }
+OPHANDLER( mov_a_r3 ) { m_a = R3; return 1; }
+OPHANDLER( mov_a_r4 ) { m_a = R4; return 1; }
+OPHANDLER( mov_a_r5 ) { m_a = R5; return 1; }
+OPHANDLER( mov_a_r6 ) { m_a = R6; return 1; }
+OPHANDLER( mov_a_r7 ) { m_a = R7; return 1; }
+OPHANDLER( mov_a_xr0 ) { m_a = ram_r(R0); return 1; }
+OPHANDLER( mov_a_xr1 ) { m_a = ram_r(R1); return 1; }
+OPHANDLER( mov_a_t ) { m_a = m_timer; return 1; }
+
+OPHANDLER( mov_psw_a ) { m_psw = m_a; update_regptr(); return 1; }
+OPHANDLER( mov_sts_a ) { m_sts = (m_sts & 0x0f) | (m_a & 0xf0); return 1; }
+OPHANDLER( mov_r0_a ) { R0 = m_a; return 1; }
+OPHANDLER( mov_r1_a ) { R1 = m_a; return 1; }
+OPHANDLER( mov_r2_a ) { R2 = m_a; return 1; }
+OPHANDLER( mov_r3_a ) { R3 = m_a; return 1; }
+OPHANDLER( mov_r4_a ) { R4 = m_a; return 1; }
+OPHANDLER( mov_r5_a ) { R5 = m_a; return 1; }
+OPHANDLER( mov_r6_a ) { R6 = m_a; return 1; }
+OPHANDLER( mov_r7_a ) { R7 = m_a; return 1; }
+OPHANDLER( mov_r0_n ) { R0 = argument_fetch(); return 2; }
+OPHANDLER( mov_r1_n ) { R1 = argument_fetch(); return 2; }
+OPHANDLER( mov_r2_n ) { R2 = argument_fetch(); return 2; }
+OPHANDLER( mov_r3_n ) { R3 = argument_fetch(); return 2; }
+OPHANDLER( mov_r4_n ) { R4 = argument_fetch(); return 2; }
+OPHANDLER( mov_r5_n ) { R5 = argument_fetch(); return 2; }
+OPHANDLER( mov_r6_n ) { R6 = argument_fetch(); return 2; }
+OPHANDLER( mov_r7_n ) { R7 = argument_fetch(); return 2; }
+OPHANDLER( mov_t_a ) { m_timer = m_a; return 1; }
+OPHANDLER( mov_xr0_a ) { ram_w(R0, m_a); return 1; }
+OPHANDLER( mov_xr1_a ) { ram_w(R1, m_a); return 1; }
+OPHANDLER( mov_xr0_n ) { ram_w(R0, argument_fetch()); return 2; }
+OPHANDLER( mov_xr1_n ) { ram_w(R1, argument_fetch()); return 2; }
+
+OPHANDLER( movd_a_p4 ) { expander_operation(MCS48_EXPANDER_OP_READ, 4); return 2; }
+OPHANDLER( movd_a_p5 ) { expander_operation(MCS48_EXPANDER_OP_READ, 5); return 2; }
+OPHANDLER( movd_a_p6 ) { expander_operation(MCS48_EXPANDER_OP_READ, 6); return 2; }
+OPHANDLER( movd_a_p7 ) { expander_operation(MCS48_EXPANDER_OP_READ, 7); return 2; }
+OPHANDLER( movd_p4_a ) { expander_operation(MCS48_EXPANDER_OP_WRITE, 4); return 2; }
+OPHANDLER( movd_p5_a ) { expander_operation(MCS48_EXPANDER_OP_WRITE, 5); return 2; }
+OPHANDLER( movd_p6_a ) { expander_operation(MCS48_EXPANDER_OP_WRITE, 6); return 2; }
+OPHANDLER( movd_p7_a ) { expander_operation(MCS48_EXPANDER_OP_WRITE, 7); return 2; }
+
+OPHANDLER( movp_a_xa ) { m_a = program_r((m_pc & 0xf00) | m_a); return 2; }
+OPHANDLER( movp3_a_xa ) { m_a = program_r(0x300 | m_a); return 2; }
+
+OPHANDLER( movx_a_xr0 ) { m_a = ext_r(R0); return 2; }
+OPHANDLER( movx_a_xr1 ) { m_a = ext_r(R1); return 2; }
+OPHANDLER( movx_xr0_a ) { ext_w(R0, m_a); return 2; }
+OPHANDLER( movx_xr1_a ) { ext_w(R1, m_a); return 2; }
+
+OPHANDLER( nop ) { return 1; }
+
+OPHANDLER( orl_a_r0 ) { m_a |= R0; return 1; }
+OPHANDLER( orl_a_r1 ) { m_a |= R1; return 1; }
+OPHANDLER( orl_a_r2 ) { m_a |= R2; return 1; }
+OPHANDLER( orl_a_r3 ) { m_a |= R3; return 1; }
+OPHANDLER( orl_a_r4 ) { m_a |= R4; return 1; }
+OPHANDLER( orl_a_r5 ) { m_a |= R5; return 1; }
+OPHANDLER( orl_a_r6 ) { m_a |= R6; return 1; }
+OPHANDLER( orl_a_r7 ) { m_a |= R7; return 1; }
+OPHANDLER( orl_a_xr0 ) { m_a |= ram_r(R0); return 1; }
+OPHANDLER( orl_a_xr1 ) { m_a |= ram_r(R1); return 1; }
+OPHANDLER( orl_a_n ) { m_a |= argument_fetch(); return 2; }
+
+OPHANDLER( orl_bus_n ) { bus_w(bus_r() | argument_fetch()); return 2; }
+OPHANDLER( orl_p1_n ) { port_w(1, m_p1 |= argument_fetch()); return 2; }
+OPHANDLER( orl_p2_n ) { port_w(2, m_p2 |= argument_fetch() & p2_mask()); return 2; }
+OPHANDLER( orld_p4_a ) { expander_operation(MCS48_EXPANDER_OP_OR, 4); return 2; }
+OPHANDLER( orld_p5_a ) { expander_operation(MCS48_EXPANDER_OP_OR, 5); return 2; }
+OPHANDLER( orld_p6_a ) { expander_operation(MCS48_EXPANDER_OP_OR, 6); return 2; }
+OPHANDLER( orld_p7_a ) { expander_operation(MCS48_EXPANDER_OP_OR, 7); return 2; }
+
+OPHANDLER( outl_bus_a ) { bus_w(m_a); return 2; }
+OPHANDLER( outl_p1_a ) { port_w(1, m_p1 = m_a); return 2; }
+OPHANDLER( outl_p2_a ) { UINT8 mask = p2_mask(); port_w(2, m_p2 = (m_p2 & ~mask) | (m_a & mask)); return 2; }
+OPHANDLER( out_dbb_a )
+{
+ /* copy to the DBBO and update the bit in STS */
+ m_dbbo = m_a;
+ m_sts |= STS_OBF;
+
+ /* if P2 flags are enabled, update the state of P2 */
+ if (m_flags_enabled && (m_p2 & P2_OBF) == 0)
+ port_w(2, m_p2 |= P2_OBF);
+ return 2;
+}
+
+
+OPHANDLER( ret ) { pull_pc(); return 2; }
+OPHANDLER( retr )
+{
+ pull_pc_psw();
+
+ /* implicitly clear the IRQ in progress flip flop and re-check interrupts */
+ m_irq_in_progress = FALSE;
+ return 2 + check_irqs();
+}
+
+OPHANDLER( rl_a ) { m_a = (m_a << 1) | (m_a >> 7); return 1; }
+OPHANDLER( rlc_a ) { UINT8 newc = m_a & C_FLAG; m_a = (m_a << 1) | (m_psw >> 7); m_psw = (m_psw & ~C_FLAG) | newc; return 1; }
+
+OPHANDLER( rr_a ) { m_a = (m_a >> 1) | (m_a << 7); return 1; }
+OPHANDLER( rrc_a ) { UINT8 newc = (m_a << 7) & C_FLAG; m_a = (m_a >> 1) | (m_psw & C_FLAG); m_psw = (m_psw & ~C_FLAG) | newc; return 1; }
+
+OPHANDLER( sel_mb0 ) { m_a11 = 0x000; return 1; }
+OPHANDLER( sel_mb1 ) { m_a11 = 0x800; return 1; }
+
+OPHANDLER( sel_rb0 ) { m_psw &= ~B_FLAG; update_regptr(); return 1; }
+OPHANDLER( sel_rb1 ) { m_psw |= B_FLAG; update_regptr(); return 1; }
+
+OPHANDLER( stop_tcnt ) { m_timecount_enabled = 0; return 1; }
+
+OPHANDLER( strt_cnt ) { m_timecount_enabled = COUNTER_ENABLED; m_t1_history = test_r(1); return 1; }
+OPHANDLER( strt_t ) { m_timecount_enabled = TIMER_ENABLED; m_prescaler = 0; return 1; }
+
+OPHANDLER( swap_a ) { m_a = (m_a << 4) | (m_a >> 4); return 1; }
+
+OPHANDLER( xch_a_r0 ) { UINT8 tmp = m_a; m_a = R0; R0 = tmp; return 1; }
+OPHANDLER( xch_a_r1 ) { UINT8 tmp = m_a; m_a = R1; R1 = tmp; return 1; }
+OPHANDLER( xch_a_r2 ) { UINT8 tmp = m_a; m_a = R2; R2 = tmp; return 1; }
+OPHANDLER( xch_a_r3 ) { UINT8 tmp = m_a; m_a = R3; R3 = tmp; return 1; }
+OPHANDLER( xch_a_r4 ) { UINT8 tmp = m_a; m_a = R4; R4 = tmp; return 1; }
+OPHANDLER( xch_a_r5 ) { UINT8 tmp = m_a; m_a = R5; R5 = tmp; return 1; }
+OPHANDLER( xch_a_r6 ) { UINT8 tmp = m_a; m_a = R6; R6 = tmp; return 1; }
+OPHANDLER( xch_a_r7 ) { UINT8 tmp = m_a; m_a = R7; R7 = tmp; return 1; }
+OPHANDLER( xch_a_xr0 ) { UINT8 tmp = m_a; m_a = ram_r(R0); ram_w(R0, tmp); return 1; }
+OPHANDLER( xch_a_xr1 ) { UINT8 tmp = m_a; m_a = ram_r(R1); ram_w(R1, tmp); return 1; }
+
+OPHANDLER( xchd_a_xr0 ) { UINT8 oldram = ram_r(R0); ram_w(R0, (oldram & 0xf0) | (m_a & 0x0f)); m_a = (m_a & 0xf0) | (oldram & 0x0f); return 1; }
+OPHANDLER( xchd_a_xr1 ) { UINT8 oldram = ram_r(R1); ram_w(R1, (oldram & 0xf0) | (m_a & 0x0f)); m_a = (m_a & 0xf0) | (oldram & 0x0f); return 1; }
+
+OPHANDLER( xrl_a_r0 ) { m_a ^= R0; return 1; }
+OPHANDLER( xrl_a_r1 ) { m_a ^= R1; return 1; }
+OPHANDLER( xrl_a_r2 ) { m_a ^= R2; return 1; }
+OPHANDLER( xrl_a_r3 ) { m_a ^= R3; return 1; }
+OPHANDLER( xrl_a_r4 ) { m_a ^= R4; return 1; }
+OPHANDLER( xrl_a_r5 ) { m_a ^= R5; return 1; }
+OPHANDLER( xrl_a_r6 ) { m_a ^= R6; return 1; }
+OPHANDLER( xrl_a_r7 ) { m_a ^= R7; return 1; }
+OPHANDLER( xrl_a_xr0 ) { m_a ^= ram_r(R0); return 1; }
+OPHANDLER( xrl_a_xr1 ) { m_a ^= ram_r(R1); return 1; }
+OPHANDLER( xrl_a_n ) { m_a ^= argument_fetch(); return 2; }
+
+SPLIT_OPHANDLER( split_02, outl_bus_a, out_dbb_a )
+SPLIT_OPHANDLER( split_08, ins_a_bus, illegal )
+SPLIT_OPHANDLER( split_22, illegal, in_a_dbb )
+SPLIT_OPHANDLER( split_75, ent0_clk, illegal )
+SPLIT_OPHANDLER( split_80, movx_a_xr0, illegal )
+SPLIT_OPHANDLER( split_81, movx_a_xr1, illegal )
+SPLIT_OPHANDLER( split_86, jni, jobf )
+SPLIT_OPHANDLER( split_88, orl_bus_n, illegal )
+SPLIT_OPHANDLER( split_90, movx_xr0_a, mov_sts_a )
+SPLIT_OPHANDLER( split_91, movx_xr1_a, illegal )
+SPLIT_OPHANDLER( split_98, anl_bus_n, illegal )
+SPLIT_OPHANDLER( split_d6, illegal, jnibf )
+SPLIT_OPHANDLER( split_e5, sel_mb0, en_dma )
+SPLIT_OPHANDLER( split_f5, sel_mb1, en_flags )
+
+
+
+/***************************************************************************
+ OPCODE TABLES
+***************************************************************************/
+
+#define OP(_a) &mcs48_cpu_device::_a
+
+const mcs48_cpu_device::mcs48_ophandler mcs48_cpu_device::s_opcode_table[256]=
+{
+ OP(nop), OP(illegal), OP(split_02), OP(add_a_n), OP(jmp_0), OP(en_i), OP(illegal), OP(dec_a), /* 00 */
+ OP(split_08), OP(in_a_p1), OP(in_a_p2), OP(illegal), OP(movd_a_p4), OP(movd_a_p5), OP(movd_a_p6), OP(movd_a_p7),
+ OP(inc_xr0), OP(inc_xr1), OP(jb_0), OP(adc_a_n), OP(call_0), OP(dis_i), OP(jtf), OP(inc_a), /* 10 */
+ OP(inc_r0), OP(inc_r1), OP(inc_r2), OP(inc_r3), OP(inc_r4), OP(inc_r5), OP(inc_r6), OP(inc_r7),
+ OP(xch_a_xr0), OP(xch_a_xr1), OP(split_22), OP(mov_a_n), OP(jmp_1), OP(en_tcnti), OP(jnt_0), OP(clr_a), /* 20 */
+ OP(xch_a_r0), OP(xch_a_r1), OP(xch_a_r2), OP(xch_a_r3), OP(xch_a_r4), OP(xch_a_r5), OP(xch_a_r6), OP(xch_a_r7),
+ OP(xchd_a_xr0), OP(xchd_a_xr1), OP(jb_1), OP(illegal), OP(call_1), OP(dis_tcnti), OP(jt_0), OP(cpl_a), /* 30 */
+ OP(illegal), OP(outl_p1_a), OP(outl_p2_a), OP(illegal), OP(movd_p4_a), OP(movd_p5_a), OP(movd_p6_a), OP(movd_p7_a),
+ OP(orl_a_xr0), OP(orl_a_xr1), OP(mov_a_t), OP(orl_a_n), OP(jmp_2), OP(strt_cnt), OP(jnt_1), OP(swap_a), /* 40 */
+ OP(orl_a_r0), OP(orl_a_r1), OP(orl_a_r2), OP(orl_a_r3), OP(orl_a_r4), OP(orl_a_r5), OP(orl_a_r6), OP(orl_a_r7),
+ OP(anl_a_xr0), OP(anl_a_xr1), OP(jb_2), OP(anl_a_n), OP(call_2), OP(strt_t), OP(jt_1), OP(da_a), /* 50 */
+ OP(anl_a_r0), OP(anl_a_r1), OP(anl_a_r2), OP(anl_a_r3), OP(anl_a_r4), OP(anl_a_r5), OP(anl_a_r6), OP(anl_a_r7),
+ OP(add_a_xr0), OP(add_a_xr1), OP(mov_t_a), OP(illegal), OP(jmp_3), OP(stop_tcnt), OP(illegal), OP(rrc_a), /* 60 */
+ OP(add_a_r0), OP(add_a_r1), OP(add_a_r2), OP(add_a_r3), OP(add_a_r4), OP(add_a_r5), OP(add_a_r6), OP(add_a_r7),
+ OP(adc_a_xr0), OP(adc_a_xr1), OP(jb_3), OP(illegal), OP(call_3), OP(split_75), OP(jf1), OP(rr_a), /* 70 */
+ OP(adc_a_r0), OP(adc_a_r1), OP(adc_a_r2), OP(adc_a_r3), OP(adc_a_r4), OP(adc_a_r5), OP(adc_a_r6), OP(adc_a_r7),
+ OP(split_80), OP(split_81), OP(illegal), OP(ret), OP(jmp_4), OP(clr_f0), OP(split_86), OP(illegal), /* 80 */
+ OP(split_88), OP(orl_p1_n), OP(orl_p2_n), OP(illegal), OP(orld_p4_a), OP(orld_p5_a), OP(orld_p6_a), OP(orld_p7_a),
+ OP(split_90), OP(split_91), OP(jb_4), OP(retr), OP(call_4), OP(cpl_f0), OP(jnz), OP(clr_c), /* 90 */
+ OP(split_98), OP(anl_p1_n), OP(anl_p2_n), OP(illegal), OP(anld_p4_a), OP(anld_p5_a), OP(anld_p6_a), OP(anld_p7_a),
+ OP(mov_xr0_a), OP(mov_xr1_a), OP(illegal), OP(movp_a_xa), OP(jmp_5), OP(clr_f1), OP(illegal), OP(cpl_c), /* A0 */
+ OP(mov_r0_a), OP(mov_r1_a), OP(mov_r2_a), OP(mov_r3_a), OP(mov_r4_a), OP(mov_r5_a), OP(mov_r6_a), OP(mov_r7_a),
+ OP(mov_xr0_n), OP(mov_xr1_n), OP(jb_5), OP(jmpp_xa), OP(call_5), OP(cpl_f1), OP(jf0), OP(illegal), /* B0 */
+ OP(mov_r0_n), OP(mov_r1_n), OP(mov_r2_n), OP(mov_r3_n), OP(mov_r4_n), OP(mov_r5_n), OP(mov_r6_n), OP(mov_r7_n),
+ OP(illegal), OP(illegal), OP(illegal), OP(illegal), OP(jmp_6), OP(sel_rb0), OP(jz), OP(mov_a_psw), /* C0 */
+ OP(dec_r0), OP(dec_r1), OP(dec_r2), OP(dec_r3), OP(dec_r4), OP(dec_r5), OP(dec_r6), OP(dec_r7),
+ OP(xrl_a_xr0), OP(xrl_a_xr1), OP(jb_6), OP(xrl_a_n), OP(call_6), OP(sel_rb1), OP(split_d6), OP(mov_psw_a), /* D0 */
+ OP(xrl_a_r0), OP(xrl_a_r1), OP(xrl_a_r2), OP(xrl_a_r3), OP(xrl_a_r4), OP(xrl_a_r5), OP(xrl_a_r6), OP(xrl_a_r7),
+ OP(illegal), OP(illegal), OP(illegal), OP(movp3_a_xa),OP(jmp_7), OP(split_e5), OP(jnc), OP(rl_a), /* E0 */
+ OP(djnz_r0), OP(djnz_r1), OP(djnz_r2), OP(djnz_r3), OP(djnz_r4), OP(djnz_r5), OP(djnz_r6), OP(djnz_r7),
+ OP(mov_a_xr0), OP(mov_a_xr1), OP(jb_7), OP(illegal), OP(call_7), OP(split_f5), OP(jc), OP(rlc_a), /* F0 */
+ OP(mov_a_r0), OP(mov_a_r1), OP(mov_a_r2), OP(mov_a_r3), OP(mov_a_r4), OP(mov_a_r5), OP(mov_a_r6), OP(mov_a_r7)
+};
+
+
+
+/***************************************************************************
+ INITIALIZATION/RESET
+***************************************************************************/
+
+/*-------------------------------------------------
+ mcs48_init - generic MCS-48 initialization
+-------------------------------------------------*/
+
+void mcs48_cpu_device::device_start()
+{
+ /* External access line
+ * EA=1 : read from external rom
+ * EA=0 : read from internal rom
+ */
+
+ m_a = 0;
+ m_timer = 0;
+ m_prescaler = 0;
+ m_t1_history = 0;
+ m_dbbi = 0;
+ m_dbbo = 0;
+ m_irq_state = 0;
+
+ /* FIXME: Current implementation suboptimal */
+ m_ea = (m_int_rom_size ? 0 : 1);
+
+ m_program = &space(AS_PROGRAM);
+ m_direct = &m_program->direct();
+ m_data = &space(AS_DATA);
+ m_io = &space(AS_IO);
+
+ /* set up the state table */
+ {
+ state_add(MCS48_PC, "PC", m_pc).mask(0xfff);
+ state_add(STATE_GENPC, "GENPC", m_pc).mask(0xfff).noshow();
+ state_add(STATE_GENPCBASE, "GENPCBASE", m_prevpc).mask(0xfff).noshow();
+ state_add(STATE_GENSP, "GENSP", m_psw).mask(0x7).noshow();
+ state_add(STATE_GENFLAGS, "GENFLAGS", m_psw).noshow().formatstr("%10s");
+ state_add(MCS48_A, "A", m_a);
+ state_add(MCS48_TC, "TC", m_timer);
+ state_add(MCS48_TPRE, "TPRE", m_prescaler).mask(0x1f);
+ state_add(MCS48_P1, "P1", m_p1);
+ state_add(MCS48_P2, "P2", m_p2);
+
+ std::string tempstr;
+ for (int regnum = 0; regnum < 8; regnum++) {
+ strprintf(tempstr, "R%d", regnum);
+ state_add(MCS48_R0 + regnum, tempstr.c_str(), m_rtemp).callimport().callexport();
+ }
+ state_add(MCS48_EA, "EA", m_ea).mask(0x1);
+
+ if (m_feature_mask & UPI41_FEATURE)
+ {
+ state_add(MCS48_STS, "STS", m_sts);
+ state_add(MCS48_DBBI, "DBBI", m_dbbi);
+ state_add(MCS48_DBBO, "DBBO", m_dbbo);
+ }
+
+ }
+
+ /* ensure that regptr is valid before get_info gets called */
+ update_regptr();
+
+ save_item(NAME(m_prevpc));
+ save_item(NAME(m_pc));
+
+ save_item(NAME(m_a));
+ save_item(NAME(m_psw));
+ save_item(NAME(m_p1));
+ save_item(NAME(m_p2));
+ save_item(NAME(m_ea));
+ save_item(NAME(m_timer));
+ save_item(NAME(m_prescaler));
+ save_item(NAME(m_t1_history));
+ save_item(NAME(m_sts));
+ save_item(NAME(m_dbbi));
+ save_item(NAME(m_dbbo));
+
+ save_item(NAME(m_irq_state));
+ save_item(NAME(m_irq_in_progress));
+ save_item(NAME(m_timer_overflow));
+ save_item(NAME(m_timer_flag));
+ save_item(NAME(m_tirq_enabled));
+ save_item(NAME(m_xirq_enabled));
+ save_item(NAME(m_timecount_enabled));
+ save_item(NAME(m_flags_enabled));
+ save_item(NAME(m_dma_enabled));
+
+ save_item(NAME(m_a11));
+
+ m_icountptr = &m_icount;
+}
+
+
+void mcs48_cpu_device::device_reset()
+{
+ /* confirmed from reset description */
+ m_pc = 0;
+ m_psw = (m_psw & (C_FLAG | A_FLAG)) | 0x08;
+ m_a11 = 0x000;
+ bus_w(0xff);
+ m_p1 = 0xff;
+ m_p2 = 0xff;
+ port_w(1, m_p1);
+ port_w(2, m_p2);
+ m_tirq_enabled = FALSE;
+ m_xirq_enabled = FALSE;
+ m_timecount_enabled = 0;
+ m_timer_flag = FALSE;
+ m_sts = 0;
+ m_flags_enabled = FALSE;
+ m_dma_enabled = FALSE;
+
+ /* confirmed from interrupt logic description */
+ m_irq_in_progress = FALSE;
+ m_timer_overflow = FALSE;
+}
+
+
+
+/***************************************************************************
+ EXECUTION
+***************************************************************************/
+
+/*-------------------------------------------------
+ check_irqs - check for and process IRQs
+-------------------------------------------------*/
+
+int mcs48_cpu_device::check_irqs()
+{
+ /* if something is in progress, we do nothing */
+ if (m_irq_in_progress)
+ return 0;
+
+ /* external interrupts take priority */
+ if ((m_irq_state || (m_sts & STS_IBF) != 0) && m_xirq_enabled)
+ {
+ m_irq_in_progress = TRUE;
+
+ /* transfer to location 0x03 */
+ push_pc_psw();
+ m_pc = 0x03;
+
+ /* indicate we took the external IRQ */
+ standard_irq_callback(0);
+ return 2;
+ }
+
+ /* timer overflow interrupts follow */
+ if (m_timer_overflow && m_tirq_enabled)
+ {
+ m_irq_in_progress = TRUE;
+
+ /* transfer to location 0x07 */
+ push_pc_psw();
+ m_pc = 0x07;
+
+ /* timer overflow flip-flop is reset once taken */
+ m_timer_overflow = FALSE;
+ return 2;
+ }
+ return 0;
+}
+
+
+/*-------------------------------------------------
+ burn_cycles - burn cycles, processing timers
+ and counters
+-------------------------------------------------*/
+
+void mcs48_cpu_device::burn_cycles(int count)
+{
+ int timerover = FALSE;
+
+ /* if the timer is enabled, accumulate prescaler cycles */
+ if (m_timecount_enabled & TIMER_ENABLED)
+ {
+ UINT8 oldtimer = m_timer;
+ m_prescaler += count;
+ m_timer += m_prescaler >> 5;
+ m_prescaler &= 0x1f;
+ timerover = (oldtimer != 0 && m_timer == 0);
+ }
+
+ /* if the counter is enabled, poll the T1 test input once for each cycle */
+ else if (m_timecount_enabled & COUNTER_ENABLED)
+ for ( ; count > 0; count--)
+ {
+ m_t1_history = (m_t1_history << 1) | (test_r(1) & 1);
+ if ((m_t1_history & 3) == 2)
+ timerover = (++m_timer == 0);
+ }
+
+ /* if either source caused a timer overflow, set the flags and check IRQs */
+ if (timerover)
+ {
+ m_timer_flag = TRUE;
+
+ /* according to the docs, if an overflow occurs with interrupts disabled, the overflow is not stored */
+ if (m_tirq_enabled)
+ {
+ m_timer_overflow = TRUE;
+ check_irqs();
+ }
+ }
+}
+
+
+/*-------------------------------------------------
+ mcs48_execute - execute until we run out
+ of cycles
+-------------------------------------------------*/
+
+void mcs48_cpu_device::execute_run()
+{
+ int curcycles;
+
+ update_regptr();
+
+ /* external interrupts may have been set since we last checked */
+ curcycles = check_irqs();
+ m_icount -= curcycles;
+ if (m_timecount_enabled != 0)
+ burn_cycles(curcycles);
+
+ /* iterate over remaining cycles, guaranteeing at least one instruction */
+ do
+ {
+ unsigned opcode;
+
+ /* fetch next opcode */
+ m_prevpc = m_pc;
+ debugger_instruction_hook(this, m_pc);
+ opcode = opcode_fetch();
+
+ /* process opcode and count cycles */
+ curcycles = (this->*s_opcode_table[opcode])();
+
+ /* burn the cycles */
+ m_icount -= curcycles;
+ if (m_timecount_enabled != 0)
+ burn_cycles(curcycles);
+
+ } while (m_icount > 0);
+}
+
+
+
+/***************************************************************************
+ DATA ACCESS HELPERS
+***************************************************************************/
+
+/*-------------------------------------------------
+ upi41_master_r - master CPU data/status
+ read
+-------------------------------------------------*/
+
+READ8_MEMBER( upi41_cpu_device::upi41_master_r )
+{
+ /* if just reading the status, return it */
+ if ((offset & 1) != 0)
+ return m_sts;
+
+ /* if the output buffer was full, it gets cleared now */
+ if (m_sts & STS_OBF)
+ {
+ m_sts &= ~STS_OBF;
+ if (m_flags_enabled)
+ port_w(2, m_p2 &= ~P2_OBF);
+ }
+ return m_dbbo;
+}
+
+
+/*-------------------------------------------------
+ upi41_master_w - master CPU command/data
+ write
+-------------------------------------------------*/
+
+TIMER_CALLBACK_MEMBER( upi41_cpu_device::master_callback )
+{
+ UINT8 a0 = (param >> 8) & 1;
+ UINT8 data = param;
+
+ /* data always goes to the input buffer */
+ m_dbbi = data;
+
+ /* set the appropriate flags */
+ if ((m_sts & STS_IBF) == 0)
+ {
+ m_sts |= STS_IBF;
+ if (m_flags_enabled)
+ port_w(2, m_p2 &= ~P2_NIBF);
+ }
+
+ /* set F1 accordingly */
+ if (a0 == 0)
+ m_sts &= ~STS_F1;
+ else
+ m_sts |= STS_F1;
+}
+
+WRITE8_MEMBER( upi41_cpu_device::upi41_master_w )
+{
+ machine().scheduler().synchronize(timer_expired_delegate(FUNC(upi41_cpu_device::master_callback), this), (offset << 8) | data);
+}
+
+
+
+/***************************************************************************
+ GENERAL CONTEXT ACCESS
+***************************************************************************/
+
+/*-------------------------------------------------
+ mcs48_import_state - import state from the
+ debugger into our internal format
+-------------------------------------------------*/
+
+void mcs48_cpu_device::state_import(const device_state_entry &entry)
+{
+ switch (entry.index())
+ {
+ case MCS48_R0:
+ case MCS48_R1:
+ case MCS48_R2:
+ case MCS48_R3:
+ case MCS48_R4:
+ case MCS48_R5:
+ case MCS48_R6:
+ case MCS48_R7:
+ m_regptr[entry.index() - MCS48_R0] = m_rtemp;
+ break;
+
+ default:
+ fatalerror("CPU_IMPORT_STATE(mcs48) called for unexpected value\n");
+ }
+}
+
+
+/*-------------------------------------------------
+ mcs48_export_state - prepare state for
+ exporting to the debugger
+-------------------------------------------------*/
+
+void mcs48_cpu_device::state_export(const device_state_entry &entry)
+{
+ switch (entry.index())
+ {
+ case MCS48_R0:
+ case MCS48_R1:
+ case MCS48_R2:
+ case MCS48_R3:
+ case MCS48_R4:
+ case MCS48_R5:
+ case MCS48_R6:
+ case MCS48_R7:
+ m_rtemp = m_regptr[entry.index() - MCS48_R0];
+ break;
+
+ default:
+ fatalerror("CPU_EXPORT_STATE(mcs48) called for unexpected value\n");
+ }
+}
+
+void mcs48_cpu_device::state_string_export(const device_state_entry &entry, std::string &str)
+{
+ switch (entry.index())
+ {
+ case STATE_GENFLAGS:
+ strprintf(str, "%c%c %c%c%c%c%c%c%c%c",
+ m_irq_state ? 'I':'.',
+ m_a11 ? 'M':'.',
+ m_psw & 0x80 ? 'C':'.',
+ m_psw & 0x40 ? 'A':'.',
+ m_psw & 0x20 ? 'F':'.',
+ m_psw & 0x10 ? 'B':'.',
+ m_psw & 0x08 ? '?':'.',
+ m_psw & 0x04 ? '4':'.',
+ m_psw & 0x02 ? '2':'.',
+ m_psw & 0x01 ? '1':'.');
+ break;
+ }
+}
+
+
+void mcs48_cpu_device::execute_set_input(int inputnum, int state)
+{
+ switch( inputnum )
+ {
+ case MCS48_INPUT_IRQ:
+ m_irq_state = (state != CLEAR_LINE);
+ break;
+
+ case MCS48_INPUT_EA:
+ m_ea = (state != CLEAR_LINE);
+ break;
+ }
+}