diff options
Diffstat (limited to 'src/devices/cpu/hmcs40/hmcs40.cpp')
-rw-r--r-- | src/devices/cpu/hmcs40/hmcs40.cpp | 731 |
1 files changed, 362 insertions, 369 deletions
diff --git a/src/devices/cpu/hmcs40/hmcs40.cpp b/src/devices/cpu/hmcs40/hmcs40.cpp index 61b50e73123..0e36b65b11b 100644 --- a/src/devices/cpu/hmcs40/hmcs40.cpp +++ b/src/devices/cpu/hmcs40/hmcs40.cpp @@ -25,74 +25,54 @@ TODO: #define IS_CMOS ~0 -// MCU types +//------------------------------------------------- +// device types +//------------------------------------------------- -// HMCS42/C/CL -//DEFINE_DEVICE_TYPE(HD38702, hd38702_device, "hd38702", "Hitachi HD38702") // PMOS, 28 pins, 22 I/O lines, (512+32)x10 ROM, 32x4 RAM, no B or SPY register -//DEFINE_DEVICE_TYPE(HD44700, hd44700_device, "hd44700", "Hitachi HD44700") // CMOS version -//DEFINE_DEVICE_TYPE(HD44708, hd44708_device, "hd44708", "Hitachi HD44708") // CMOS version, low-power +// HMCS42/C/CL, 28 pins, 22 I/O lines, (512+32)x10 ROM, 32x4 RAM, no B or SPY register +//DEFINE_DEVICE_TYPE(HD38702, hd38702_device, "hd38702", "Hitachi HD38702") // PMOS +//DEFINE_DEVICE_TYPE(HD44700, hd44700_device, "hd44700", "Hitachi HD44700") // CMOS +//DEFINE_DEVICE_TYPE(HD44708, hd44708_device, "hd44708", "Hitachi HD44708") // CMOS, low-power -// HMCS43/C/CL -DEFINE_DEVICE_TYPE(HD38750, hd38750_device, "hd38750", "Hitachi HD38750") // PMOS, 42 pins, 32 I/O lines, (1024+64)x10 ROM, 80x4 RAM +// HMCS43/C/CL, 42 pins, 32 I/O lines, (1024+64)x10 ROM, 80x4 RAM +DEFINE_DEVICE_TYPE(HD38750, hd38750_device, "hd38750", "Hitachi HD38750") // PMOS DEFINE_DEVICE_TYPE(HD38755, hd38755_device, "hd38755", "Hitachi HD38755") // ceramic filter oscillator type -DEFINE_DEVICE_TYPE(HD44750, hd44750_device, "hd44750", "Hitachi HD44750") // CMOS version -DEFINE_DEVICE_TYPE(HD44758, hd44758_device, "hd44758", "Hitachi HD44758") // CMOS version, low-power +DEFINE_DEVICE_TYPE(HD44750, hd44750_device, "hd44750", "Hitachi HD44750") // CMOS +DEFINE_DEVICE_TYPE(HD44758, hd44758_device, "hd44758", "Hitachi HD44758") // CMOS, low-power -// HMCS44A/C/CL -DEFINE_DEVICE_TYPE(HD38800, hd38800_device, "hd38800", "Hitachi HD38800") // PMOS, 42 pins, 32 I/O lines, (2048+128)x10 ROM, 160x4 RAM +// HMCS44A/C/CL, 42 pins, 32 I/O lines, (2048+128)x10 ROM, 160x4 RAM +DEFINE_DEVICE_TYPE(HD38800, hd38800_device, "hd38800", "Hitachi HD38800") // PMOS DEFINE_DEVICE_TYPE(HD38805, hd38805_device, "hd38805", "Hitachi HD38805") // ceramic filter oscillator type -DEFINE_DEVICE_TYPE(HD44801, hd44801_device, "hd44801", "Hitachi HD44801") // CMOS version -DEFINE_DEVICE_TYPE(HD44808, hd44808_device, "hd44808", "Hitachi HD44808") // CMOS version, low-power +DEFINE_DEVICE_TYPE(HD44801, hd44801_device, "hd44801", "Hitachi HD44801") // CMOS +DEFINE_DEVICE_TYPE(HD44808, hd44808_device, "hd44808", "Hitachi HD44808") // CMOS, low-power -// HMCS45A/C/CL -DEFINE_DEVICE_TYPE(HD38820, hd38820_device, "hd38820", "Hitachi HD38820") // PMOS, 54 pins(QFP) or 64 pins(DIP), 44 I/O lines, (2048+128)x10 ROM, 160x4 RAM +// HMCS45A/C/CL, 54 pins(QFP) or 64 pins(DIP), 44 I/O lines, (2048+128)x10 ROM, 160x4 RAM +DEFINE_DEVICE_TYPE(HD38820, hd38820_device, "hd38820", "Hitachi HD38820") // PMOS DEFINE_DEVICE_TYPE(HD38825, hd38825_device, "hd38825", "Hitachi HD38825") // ceramic filter oscillator type -DEFINE_DEVICE_TYPE(HD44820, hd44820_device, "hd44820", "Hitachi HD44820") // CMOS version -DEFINE_DEVICE_TYPE(HD44828, hd44828_device, "hd44828", "Hitachi HD44828") // CMOS version, low-power - -// HMCS46C/CL (no PMOS version exists) -//DEFINE_DEVICE_TYPE(HD44840, hd44840_device, "hd44840", "Hitachi HD44840") // CMOS, 42 pins, 32 I/O lines, 4096x10 ROM, 256x4 RAM -//DEFINE_DEVICE_TYPE(HD44848, hd44848_device, "hd44848", "Hitachi HD44848") // CMOS, low-power - -// HMCS47A/C/CL -//DEFINE_DEVICE_TYPE(HD38870, hd38870_device, "hd38870", "Hitachi HD38870") // PMOS, 54 pins(QFP) or 64 pins(DIP), 44 I/O lines, 4096x10 ROM, 256x4 RAM -//DEFINE_DEVICE_TYPE(HD44860, hd44860_device, "hd44860", "Hitachi HD44860") // CMOS version -//DEFINE_DEVICE_TYPE(HD44868, hd44868_device, "hd44868", "Hitachi HD44868") // CMOS version, low-power +DEFINE_DEVICE_TYPE(HD44820, hd44820_device, "hd44820", "Hitachi HD44820") // CMOS +DEFINE_DEVICE_TYPE(HD44828, hd44828_device, "hd44828", "Hitachi HD44828") // CMOS, low-power +// HMCS46C/CL, 42 pins, 32 I/O lines, 4096x10 ROM, 256x4 RAM (no PMOS version exists) +DEFINE_DEVICE_TYPE(HD44840, hd44840_device, "hd44840", "Hitachi HD44840") // CMOS +DEFINE_DEVICE_TYPE(HD44848, hd44848_device, "hd44848", "Hitachi HD44848") // CMOS, low-power -// internal memory maps - -// On HMCS42/3/4/5, only half of the ROM address range contains user-executable code, -// there is up to 128 bytes of pattern data in the 2nd half. The 2nd half also includes -// a couple of pages with factory test code by Hitachi, only executable when MCU test -// mode is enabled externally. This data can still be accessed with the P opcode. - -void hmcs40_cpu_device::program_1k(address_map &map) -{ - map(0x0000, 0x07ff).rom(); -} - -void hmcs40_cpu_device::program_2k(address_map &map) -{ - map(0x0000, 0x0fff).rom(); -} +// HMCS47A/C/CL, 54 pins(QFP) or 64 pins(DIP), 44 I/O lines, 4096x10 ROM, 256x4 RAM +DEFINE_DEVICE_TYPE(HD38870, hd38870_device, "hd38870", "Hitachi HD38870") // PMOS +DEFINE_DEVICE_TYPE(HD44860, hd44860_device, "hd44860", "Hitachi HD44860") // CMOS +DEFINE_DEVICE_TYPE(HD44868, hd44868_device, "hd44868", "Hitachi HD44868") // CMOS, low-power +// LCD-III, 64 pins, HMCS44C core, LCDC with 4 commons and 32 segments +//DEFINE_DEVICE_TYPE(HD44790, hd44790_device, "hd44790", "Hitachi HD44790") // CMOS +//DEFINE_DEVICE_TYPE(HD44795, hd44795_device, "hd44795", "Hitachi HD44795") // CMOS, low-power -void hmcs40_cpu_device::data_80x4(address_map &map) -{ - map(0x00, 0x3f).ram(); - map(0x40, 0x4f).ram().mirror(0x30); -} +// LCD-IV, 64 pins, HMCS46C core, LCDC with 4 commons and 32 segments +//DEFINE_DEVICE_TYPE(HD613901, hd613901_device, "hd613901", "Hitachi HD613901") // CMOS -void hmcs40_cpu_device::data_160x4(address_map &map) -{ - map(0x00, 0x7f).ram(); - map(0x80, 0x8f).ram().mirror(0x30); - map(0xc0, 0xcf).ram().mirror(0x30); -} +//------------------------------------------------- +// constructor +//------------------------------------------------- -// device definitions hmcs40_cpu_device::hmcs40_cpu_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, int family, u16 polarity, int stack_levels, int pcwidth, int prgwidth, address_map_constructor program, int datawidth, address_map_constructor data) : cpu_device(mconfig, type, tag, owner, clock), m_program_config("program", ENDIANNESS_LITTLE, 16, prgwidth, -1, program), @@ -109,8 +89,11 @@ hmcs40_cpu_device::hmcs40_cpu_device(const machine_config &mconfig, device_type m_write_d(*this) { } +hmcs40_cpu_device::~hmcs40_cpu_device() { } + + hmcs43_cpu_device::hmcs43_cpu_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, u16 polarity) : - hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS40_FAMILY_HMCS43, polarity, 3 /* stack levels */, 10 /* pc width */, 11 /* prg width */, address_map_constructor(FUNC(hmcs43_cpu_device::program_1k), this), 7 /* data width */, address_map_constructor(FUNC(hmcs43_cpu_device::data_80x4), this)) + hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS43_FAMILY, polarity, 3 /* stack levels */, 10 /* pc width */, 11 /* prg width */, address_map_constructor(FUNC(hmcs43_cpu_device::program_1k), this), 7 /* data width */, address_map_constructor(FUNC(hmcs43_cpu_device::data_80x4), this)) { } hd38750_device::hd38750_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : @@ -128,7 +111,7 @@ hd44758_device::hd44758_device(const machine_config &mconfig, const char *tag, d hmcs44_cpu_device::hmcs44_cpu_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, u16 polarity) : - hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS40_FAMILY_HMCS44, polarity, 4, 11, 12, address_map_constructor(FUNC(hmcs44_cpu_device::program_2k), this), 8, address_map_constructor(FUNC(hmcs44_cpu_device::data_160x4), this)) + hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS44_FAMILY, polarity, 4, 11, 12, address_map_constructor(FUNC(hmcs44_cpu_device::program_2k), this), 8, address_map_constructor(FUNC(hmcs44_cpu_device::data_160x4), this)) { } hd38800_device::hd38800_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : @@ -146,7 +129,7 @@ hd44808_device::hd44808_device(const machine_config &mconfig, const char *tag, d hmcs45_cpu_device::hmcs45_cpu_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, u16 polarity) : - hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS40_FAMILY_HMCS45, polarity, 4, 11, 12, address_map_constructor(FUNC(hmcs45_cpu_device::program_2k), this), 8, address_map_constructor(FUNC(hmcs45_cpu_device::data_160x4), this)) + hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS45_FAMILY, polarity, 4, 11, 12, address_map_constructor(FUNC(hmcs45_cpu_device::program_2k), this), 8, address_map_constructor(FUNC(hmcs45_cpu_device::data_160x4), this)) { } hd38820_device::hd38820_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : @@ -162,38 +145,36 @@ hd44828_device::hd44828_device(const machine_config &mconfig, const char *tag, d hmcs45_cpu_device(mconfig, HD44828, tag, owner, clock, IS_CMOS) { } -device_memory_interface::space_config_vector hmcs40_cpu_device::memory_space_config() const -{ - return space_config_vector { - std::make_pair(AS_PROGRAM, &m_program_config), - std::make_pair(AS_DATA, &m_data_config) - }; -} -// disasm -void hmcs40_cpu_device::state_string_export(const device_state_entry &entry, std::string &str) const -{ - switch (entry.index()) - { - case STATE_GENFLAGS: - str = string_format("%c%c", - m_c ? 'C':'c', - m_s ? 'S':'s' - ); - break; +hmcs46_cpu_device::hmcs46_cpu_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, u16 polarity) : + hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS46_FAMILY, polarity, 4, 12, 12, address_map_constructor(FUNC(hmcs46_cpu_device::program_2k), this), 8, address_map_constructor(FUNC(hmcs46_cpu_device::data_256x4), this)) +{ } - default: break; - } -} +hd44840_device::hd44840_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : + hmcs46_cpu_device(mconfig, HD44840, tag, owner, clock, IS_CMOS) +{ } +hd44848_device::hd44848_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : + hmcs46_cpu_device(mconfig, HD44848, tag, owner, clock, IS_CMOS) +{ } -std::unique_ptr<util::disasm_interface> hmcs40_cpu_device::create_disassembler() -{ - return std::make_unique<hmcs40_disassembler>(); -} + +hmcs47_cpu_device::hmcs47_cpu_device(const machine_config &mconfig, device_type type, const char *tag, device_t *owner, u32 clock, u16 polarity) : + hmcs40_cpu_device(mconfig, type, tag, owner, clock, HMCS47_FAMILY, polarity, 4, 12, 12, address_map_constructor(FUNC(hmcs47_cpu_device::program_2k), this), 8, address_map_constructor(FUNC(hmcs47_cpu_device::data_256x4), this)) +{ } + +hd38870_device::hd38870_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : + hmcs47_cpu_device(mconfig, HD38870, tag, owner, clock, IS_PMOS) +{ } +hd44860_device::hd44860_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : + hmcs47_cpu_device(mconfig, HD44860, tag, owner, clock, IS_CMOS) +{ } +hd44868_device::hd44868_device(const machine_config &mconfig, const char *tag, device_t *owner, u32 clock) : + hmcs47_cpu_device(mconfig, HD44868, tag, owner, clock, IS_CMOS) +{ } //------------------------------------------------- -// device_start - device-specific startup +// initialization //------------------------------------------------- void hmcs40_cpu_device::device_start() @@ -212,9 +193,11 @@ void hmcs40_cpu_device::device_start() m_eint_line = 0; m_halt = 0; m_prescaler = 0; + m_block_int = false; + m_pc = 0; m_prev_pc = 0; - m_page = 0; + m_pc_upper = 0; m_a = 0; m_b = 0; m_x = 0; @@ -223,6 +206,7 @@ void hmcs40_cpu_device::device_start() m_spy = 0; m_s = 1; m_c = 0; + m_tc = 0; m_cf = 0; m_ie = 0; @@ -230,7 +214,6 @@ void hmcs40_cpu_device::device_start() memset(m_if, 0, sizeof(m_if)); m_tf = 0; memset(m_int, 0, sizeof(m_int)); - m_block_int = false; memset(m_r, 0, sizeof(m_r)); m_d = 0; @@ -241,9 +224,12 @@ void hmcs40_cpu_device::device_start() save_item(NAME(m_i)); save_item(NAME(m_eint_line)); save_item(NAME(m_halt)); + save_item(NAME(m_prescaler)); + save_item(NAME(m_block_int)); + save_item(NAME(m_pc)); save_item(NAME(m_prev_pc)); - save_item(NAME(m_page)); + save_item(NAME(m_pc_upper)); save_item(NAME(m_a)); save_item(NAME(m_b)); save_item(NAME(m_x)); @@ -252,8 +238,8 @@ void hmcs40_cpu_device::device_start() save_item(NAME(m_spy)); save_item(NAME(m_s)); save_item(NAME(m_c)); + save_item(NAME(m_tc)); - save_item(NAME(m_prescaler)); save_item(NAME(m_cf)); save_item(NAME(m_ie)); save_item(NAME(m_iri)); @@ -261,7 +247,6 @@ void hmcs40_cpu_device::device_start() save_item(NAME(m_if)); save_item(NAME(m_tf)); save_item(NAME(m_int)); - save_item(NAME(m_block_int)); save_item(NAME(m_r)); save_item(NAME(m_d)); @@ -279,15 +264,12 @@ void hmcs40_cpu_device::device_start() state_add(++m_state_count, "Y", m_y).formatstr("%01X"); // 6 state_add(++m_state_count, "SPY", m_spy).formatstr("%01X"); // 7 + state_add(++m_state_count, "S", m_s).formatstr("%01X").noshow(); // 8 + state_add(++m_state_count, "C", m_c).formatstr("%01X").noshow(); // 9 + set_icountptr(m_icount); } - - -//------------------------------------------------- -// device_reset - device-specific reset -//------------------------------------------------- - void hmcs40_cpu_device::device_reset() { m_pc = m_pcmask; @@ -299,25 +281,113 @@ void hmcs40_cpu_device::device_reset() m_iri = m_irt = 0; m_if[0] = m_if[1] = m_tf = 1; - // clear i/o - m_d = m_polarity; - for (int i = 0; i < 16; i++) - hmcs40_cpu_device::write_d(i, m_polarity); + // all I/O ports set to input + reset_io(); - for (int i = 0; i < 8; i++) - hmcs40_cpu_device::write_r(i, m_polarity & 0xf); + // HMCS46/47 R70 set to 1 (already the default on CMOS devices) + if (m_family == HMCS46_FAMILY || m_family == HMCS47_FAMILY) + m_r[7] |= 1; +} + + +//------------------------------------------------- +// disasm +//------------------------------------------------- + +void hmcs40_cpu_device::state_string_export(const device_state_entry &entry, std::string &str) const +{ + switch (entry.index()) + { + case STATE_GENFLAGS: + str = string_format("%c%c", + m_c ? 'C':'c', + m_s ? 'S':'s' + ); + break; + + default: break; + } +} + +std::unique_ptr<util::disasm_interface> hmcs40_cpu_device::create_disassembler() +{ + return std::make_unique<hmcs40_disassembler>(); +} + + +//------------------------------------------------- +// internal memory maps +//------------------------------------------------- + +/* + +On HMCS42/43/44/45, only half of the ROM address range contains user-executable +code, there is up to 128 bytes of pattern data in the 2nd half. The 2nd half +also includes a couple of pages with factory test code by Hitachi, only executable +when MCU test mode is enabled externally (TEST pin). This data can still be accessed +with the P opcode. + +On HMCS46/47, the 2nd half can be jumped to with a bank bit from R70. These MCUs +have 2 more banks with factory test code, but that part of the ROM is only accessible +under MCU test mode. + +*/ + +void hmcs40_cpu_device::program_1k(address_map &map) +{ + map(0x0000, 0x07ff).rom(); } +void hmcs40_cpu_device::program_2k(address_map &map) +{ + map(0x0000, 0x0fff).rom(); +} + + +void hmcs40_cpu_device::data_80x4(address_map &map) +{ + map(0x00, 0x3f).ram(); + map(0x40, 0x4f).ram().mirror(0x30); +} + +void hmcs40_cpu_device::data_160x4(address_map &map) +{ + map(0x00, 0x7f).ram(); + map(0x80, 0x8f).ram().mirror(0x30); + map(0xc0, 0xcf).ram().mirror(0x30); +} + +void hmcs40_cpu_device::data_256x4(address_map &map) +{ + map(0x00, 0xff).ram(); +} + +device_memory_interface::space_config_vector hmcs40_cpu_device::memory_space_config() const +{ + return space_config_vector { + std::make_pair(AS_PROGRAM, &m_program_config), + std::make_pair(AS_DATA, &m_data_config) + }; +} //------------------------------------------------- -// i/o handling +// i/o ports //------------------------------------------------- -u8 hmcs40_cpu_device::read_r(int index) +void hmcs40_cpu_device::reset_io() +{ + m_d = m_polarity; + m_write_d(m_polarity); + + for (int i = 0; i < 8; i++) + hmcs40_cpu_device::write_r(i, m_polarity); +} + +u8 hmcs40_cpu_device::read_r(u8 index) { index &= 7; - u8 inp = m_read_r[index](index, 0xff); + u8 inp = m_read_r[index](index); if (m_polarity) return (inp & m_r[index]) & 0xf; @@ -325,63 +395,64 @@ u8 hmcs40_cpu_device::read_r(int index) return (inp | m_r[index]) & 0xf; } -void hmcs40_cpu_device::write_r(int index, u8 data) +void hmcs40_cpu_device::write_r(u8 index, u8 data) { index &= 7; data &= 0xf; m_r[index] = data; - m_write_r[index](index, data, 0xff); + m_write_r[index](index, data); } -int hmcs40_cpu_device::read_d(int index) +int hmcs40_cpu_device::read_d(u8 index) { - index &= 15; + index &= 0xf; + u16 inp = m_read_d(0, 1 << index); if (m_polarity) - return (m_read_d(index, 0xffff) & m_d) >> index & 1; + return BIT(inp & m_d, index); else - return (m_read_d(index, 0xffff) | m_d) >> index & 1; + return BIT(inp | m_d, index); } -void hmcs40_cpu_device::write_d(int index, int state) +void hmcs40_cpu_device::write_d(u8 index, int state) { - index &= 15; - state = (state) ? 1 : 0; + index &= 0xf; + u16 mask = 1 << index; - m_d = (m_d & ~(1 << index)) | state << index; - m_write_d(index, m_d, 0xffff); + m_d = (m_d & ~mask) | (state ? mask : 0); + m_write_d(0, m_d, mask); } // HMCS43: // R0 is input-only, R1 is i/o, R2,R3 are output-only, no R4-R7 // D0-D3 are i/o, D4-D15 are output-only -u8 hmcs43_cpu_device::read_r(int index) +u8 hmcs43_cpu_device::read_r(u8 index) { index &= 7; if (index >= 2) - logerror("read from %s port R%d at $%04X\n", (index >= 4) ? "unknown" : "output", index, m_prev_pc); + logerror("read from %s port R%d @ $%04X\n", (index >= 4) ? "unknown" : "output", index, m_prev_pc); return hmcs40_cpu_device::read_r(index); } -void hmcs43_cpu_device::write_r(int index, u8 data) +void hmcs43_cpu_device::write_r(u8 index, u8 data) { index &= 7; if (index != 0 && index < 4) hmcs40_cpu_device::write_r(index, data); else - logerror("ineffective write to port R%d = $%X at $%04X\n", index, data & 0xf, m_prev_pc); + logerror("ineffective write to port R%d = $%X @ $%04X\n", index, data & 0xf, m_prev_pc); } -int hmcs43_cpu_device::read_d(int index) +int hmcs43_cpu_device::read_d(u8 index) { index &= 15; if (index >= 4) - logerror("read from output pin D%d at $%04X\n", index, m_prev_pc); + logerror("read from output pin D%d @ $%04X\n", index, m_prev_pc); return hmcs40_cpu_device::read_d(index); } @@ -390,57 +461,94 @@ int hmcs43_cpu_device::read_d(int index) // R0-R3 are i/o, R4,R5 are extra registers, no R6,R7 // D0-D15 are i/o -u8 hmcs44_cpu_device::read_r(int index) +u8 hmcs44_cpu_device::read_r(u8 index) { index &= 7; if (index >= 6) - logerror("read from unknown port R%d at $%04X\n", index, m_prev_pc); + logerror("read from unknown port R%d @ $%04X\n", index, m_prev_pc); return hmcs40_cpu_device::read_r(index); } -void hmcs44_cpu_device::write_r(int index, u8 data) +void hmcs44_cpu_device::write_r(u8 index, u8 data) { index &= 7; if (index < 6) hmcs40_cpu_device::write_r(index, data); else - logerror("ineffective write to port R%d = $%X at $%04X\n", index, data & 0xf, m_prev_pc); + logerror("ineffective write to port R%d = $%X @ $%04X\n", index, data & 0xf, m_prev_pc); } // HMCS45: // R0-R5 are i/o, R6 is output-only, no R7 // D0-D15 are i/o -u8 hmcs45_cpu_device::read_r(int index) +u8 hmcs45_cpu_device::read_r(u8 index) { index &= 7; if (index >= 6) - logerror("read from %s port R%d at $%04X\n", (index == 7) ? "unknown" : "output", index, m_prev_pc); + logerror("read from %s port R%d @ $%04X\n", (index == 7) ? "unknown" : "output", index, m_prev_pc); return hmcs40_cpu_device::read_r(index); } -void hmcs45_cpu_device::write_r(int index, u8 data) +void hmcs45_cpu_device::write_r(u8 index, u8 data) { index &= 7; if (index != 7) hmcs40_cpu_device::write_r(index, data); else - logerror("ineffective write to port R%d = $%X at $%04X\n", index, data & 0xf, m_prev_pc); + logerror("ineffective write to port R%d = $%X @ $%04X\n", index, data & 0xf, m_prev_pc); } +// HMCS46: +// R0-R3 are i/o, R4,R5,R7 are extra registers, no R6 +// D0-D15 are i/o + +u8 hmcs46_cpu_device::read_r(u8 index) +{ + index &= 7; + + if (index == 6) + logerror("read from unknown port R%d @ $%04X\n", index, m_prev_pc); + + return hmcs40_cpu_device::read_r(index); +} + +void hmcs46_cpu_device::write_r(u8 index, u8 data) +{ + index &= 7; + + if (index != 6) + hmcs40_cpu_device::write_r(index, data); + else + logerror("ineffective write to port R%d = $%X @ $%04X\n", index, data & 0xf, m_prev_pc); +} + +// HMCS47: +// R0-R5 are i/o, R6 is output-only, R7 is an extra register +// D0-D15 are i/o + +u8 hmcs47_cpu_device::read_r(u8 index) +{ + index &= 7; + + if (index == 6) + logerror("read from output port R%d @ $%04X\n", index, m_prev_pc); + + return hmcs40_cpu_device::read_r(index); +} //------------------------------------------------- -// interrupt/timer handling +// interrupt/timer //------------------------------------------------- -void hmcs40_cpu_device::do_interrupt() +void hmcs40_cpu_device::take_interrupt() { push_stack(); m_ie = 0; @@ -464,7 +572,7 @@ void hmcs40_cpu_device::do_interrupt() void hmcs40_cpu_device::execute_set_input(int line, int state) { - state = (state) ? 1 : 0; + state = state ? 1 : 0; // halt/unhalt mcu if (line == HMCS40_INPUT_LINE_HLT && state != m_halt) @@ -488,23 +596,13 @@ void hmcs40_cpu_device::execute_set_input(int line, int state) // clock tc if it is in counter mode if (m_cf && line == 1) - increment_tc(); + clock_timer(); } m_int[line] = state; } -void hmcs40_cpu_device::cycle() -{ - m_icount--; - m_prescaler = (m_prescaler + 1) & 0x3f; - - // timer prescaler overflow - if (m_prescaler == 0 && !m_cf) - increment_tc(); -} - -void hmcs40_cpu_device::increment_tc() +void hmcs40_cpu_device::clock_timer() { // increment timer/counter m_tc = (m_tc + 1) & 0xf; @@ -517,6 +615,14 @@ void hmcs40_cpu_device::increment_tc() } } +void hmcs40_cpu_device::clock_prescaler() +{ + m_prescaler = (m_prescaler + 1) & 0x3f; + + // timer prescaler overflow + if (m_prescaler == 0 && !m_cf) + clock_timer(); +} //------------------------------------------------- @@ -538,11 +644,18 @@ inline void hmcs40_cpu_device::increment_pc() m_pc = (m_pc & ~mask) | ((m_pc << 1 | fb) & mask); } +void hmcs40_cpu_device::cycle() +{ + m_icount--; + clock_prescaler(); +} + void hmcs40_cpu_device::execute_run() { // in HLT state, the internal clock is not running if (m_halt) { + debugger_wait_hook(); m_icount = 0; return; } @@ -551,7 +664,7 @@ void hmcs40_cpu_device::execute_run() { // LPU is handled 1 cycle later if ((m_prev_op & 0x7e0) == 0x340) - m_pc = ((m_page << 6) | (m_pc & 0x3f)) & m_pcmask; + m_pc = ((m_pc_upper << 6) | (m_pc & 0x3f)) & m_pcmask; // remember previous state m_prev_op = m_op; @@ -559,7 +672,7 @@ void hmcs40_cpu_device::execute_run() // check/handle interrupt if (m_ie && (m_iri || m_irt) && !m_block_int) - do_interrupt(); + take_interrupt(); m_block_int = false; // fetch next opcode @@ -570,233 +683,113 @@ void hmcs40_cpu_device::execute_run() cycle(); // handle opcode - switch (m_op) + switch (m_op & 0x3f0) { - /* 0x000 */ - - case 0x000: case 0x001: case 0x002: case 0x003: - op_xsp(); break; - case 0x004: case 0x005: case 0x006: case 0x007: - op_sem(); break; - case 0x008: case 0x009: case 0x00a: case 0x00b: - op_lam(); break; - case 0x010: case 0x011: case 0x012: case 0x013: case 0x014: case 0x015: case 0x016: case 0x017: - case 0x018: case 0x019: case 0x01a: case 0x01b: case 0x01c: case 0x01d: case 0x01e: case 0x01f: - op_lmiiy(); break; - case 0x020: case 0x021: case 0x022: case 0x023: - op_lbm(); break; - case 0x024: - op_blem(); break; - case 0x030: - op_amc(); break; - case 0x034: - op_am(); break; - case 0x03c: - op_lta(); break; - - case 0x040: - op_lxa(); break; - case 0x045: - op_das(); break; - case 0x046: - op_daa(); break; - case 0x04c: - op_rec(); break; - case 0x04f: - op_sec(); break; - case 0x050: - op_lya(); break; - case 0x054: - op_iy(); break; - case 0x058: - op_ayy(); break; - case 0x060: - op_lba(); break; - case 0x064: - op_ib(); break; - case 0x070: case 0x071: case 0x072: case 0x073: case 0x074: case 0x075: case 0x076: case 0x077: - case 0x078: case 0x079: case 0x07a: case 0x07b: case 0x07c: case 0x07d: case 0x07e: case 0x07f: - op_lai(); break; - - case 0x080: case 0x081: case 0x082: case 0x083: case 0x084: case 0x085: case 0x086: case 0x087: - case 0x088: case 0x089: case 0x08a: case 0x08b: case 0x08c: case 0x08d: case 0x08e: case 0x08f: - op_ai(); break; - case 0x090: - op_sed(); break; - case 0x094: - op_td(); break; - case 0x0a0: - op_seif1(); break; - case 0x0a1: - op_secf(); break; - case 0x0a2: - op_seif0(); break; - case 0x0a4: - op_seie(); break; - case 0x0a5: - op_setf(); break; - - case 0x0c0: case 0x0c1: case 0x0c2: case 0x0c3: case 0x0c4: case 0x0c5: case 0x0c6: case 0x0c7: - op_lar(); break; - case 0x0d0: case 0x0d1: case 0x0d2: case 0x0d3: - op_sedd(); break; - case 0x0e0: case 0x0e1: case 0x0e2: case 0x0e3: case 0x0e4: case 0x0e5: case 0x0e6: case 0x0e7: - op_lbr(); break; - case 0x0f0: case 0x0f1: case 0x0f2: case 0x0f3: case 0x0f4: case 0x0f5: case 0x0f6: case 0x0f7: - case 0x0f8: case 0x0f9: case 0x0fa: case 0x0fb: case 0x0fc: case 0x0fd: case 0x0fe: case 0x0ff: - op_xamr(); break; - - - /* 0x100 */ - - case 0x110: case 0x111: - op_lmaiy(); break; - case 0x114: case 0x115: - op_lmady(); break; - case 0x118: - op_lay(); break; - case 0x120: - op_or(); break; - case 0x124: - op_anem(); break; - - case 0x140: case 0x141: case 0x142: case 0x143: case 0x144: case 0x145: case 0x146: case 0x147: - case 0x148: case 0x149: case 0x14a: case 0x14b: case 0x14c: case 0x14d: case 0x14e: case 0x14f: - op_lxi(); break; - case 0x150: case 0x151: case 0x152: case 0x153: case 0x154: case 0x155: case 0x156: case 0x157: - case 0x158: case 0x159: case 0x15a: case 0x15b: case 0x15c: case 0x15d: case 0x15e: case 0x15f: - op_lyi(); break; - case 0x160: case 0x161: case 0x162: case 0x163: case 0x164: case 0x165: case 0x166: case 0x167: - case 0x168: case 0x169: case 0x16a: case 0x16b: case 0x16c: case 0x16d: case 0x16e: case 0x16f: - op_lbi(); break; - case 0x170: case 0x171: case 0x172: case 0x173: case 0x174: case 0x175: case 0x176: case 0x177: - case 0x178: case 0x179: case 0x17a: case 0x17b: case 0x17c: case 0x17d: case 0x17e: case 0x17f: - op_lti(); break; - - case 0x1a0: - op_tif1(); break; - case 0x1a1: - op_ti1(); break; - case 0x1a2: - op_tif0(); break; - case 0x1a3: - op_ti0(); break; - case 0x1a5: - op_ttf(); break; - - case 0x1c0: case 0x1c1: case 0x1c2: case 0x1c3: case 0x1c4: case 0x1c5: case 0x1c6: case 0x1c7: - case 0x1c8: case 0x1c9: case 0x1ca: case 0x1cb: case 0x1cc: case 0x1cd: case 0x1ce: case 0x1cf: - case 0x1d0: case 0x1d1: case 0x1d2: case 0x1d3: case 0x1d4: case 0x1d5: case 0x1d6: case 0x1d7: - case 0x1d8: case 0x1d9: case 0x1da: case 0x1db: case 0x1dc: case 0x1dd: case 0x1de: case 0x1df: - case 0x1e0: case 0x1e1: case 0x1e2: case 0x1e3: case 0x1e4: case 0x1e5: case 0x1e6: case 0x1e7: - case 0x1e8: case 0x1e9: case 0x1ea: case 0x1eb: case 0x1ec: case 0x1ed: case 0x1ee: case 0x1ef: - case 0x1f0: case 0x1f1: case 0x1f2: case 0x1f3: case 0x1f4: case 0x1f5: case 0x1f6: case 0x1f7: - case 0x1f8: case 0x1f9: case 0x1fa: case 0x1fb: case 0x1fc: case 0x1fd: case 0x1fe: case 0x1ff: - op_br(); break; - - - /* 0x200 */ - - case 0x200: case 0x201: case 0x202: case 0x203: - op_tm(); break; - case 0x204: case 0x205: case 0x206: case 0x207: - op_rem(); break; - case 0x208: case 0x209: case 0x20a: case 0x20b: - op_xma(); break; - case 0x210: case 0x211: case 0x212: case 0x213: case 0x214: case 0x215: case 0x216: case 0x217: - case 0x218: case 0x219: case 0x21a: case 0x21b: case 0x21c: case 0x21d: case 0x21e: case 0x21f: - op_mnei(); break; - case 0x220: case 0x221: case 0x222: case 0x223: - op_xmb(); break; - case 0x224: - op_rotr(); break; - case 0x225: - op_rotl(); break; - case 0x230: - op_smc(); break; - case 0x234: - op_alem(); break; - case 0x23c: - op_lat(); break; - - case 0x240: - op_laspx(); break; - case 0x244: - op_nega(); break; - case 0x24f: - op_tc(); break; - case 0x250: - op_laspy(); break; - case 0x254: - op_dy(); break; - case 0x258: - op_syy(); break; - case 0x260: - op_lab(); break; - case 0x267: - op_db(); break; - case 0x270: case 0x271: case 0x272: case 0x273: case 0x274: case 0x275: case 0x276: case 0x277: - case 0x278: case 0x279: case 0x27a: case 0x27b: case 0x27c: case 0x27d: case 0x27e: case 0x27f: - op_alei(); break; - - case 0x280: case 0x281: case 0x282: case 0x283: case 0x284: case 0x285: case 0x286: case 0x287: - case 0x288: case 0x289: case 0x28a: case 0x28b: case 0x28c: case 0x28d: case 0x28e: case 0x28f: - op_ynei(); break; - case 0x290: - op_red(); break; - case 0x2a0: - op_reif1(); break; - case 0x2a1: - op_recf(); break; - case 0x2a2: - op_reif0(); break; - case 0x2a4: - op_reie(); break; - case 0x2a5: - op_retf(); break; - - case 0x2c0: case 0x2c1: case 0x2c2: case 0x2c3: case 0x2c4: case 0x2c5: case 0x2c6: case 0x2c7: - op_lra(); break; - case 0x2d0: case 0x2d1: case 0x2d2: case 0x2d3: - op_redd(); break; - case 0x2e0: case 0x2e1: case 0x2e2: case 0x2e3: case 0x2e4: case 0x2e5: case 0x2e6: case 0x2e7: - op_lrb(); break; - - - /* 0x300 */ - case 0x320: - op_comb(); break; - case 0x324: - op_bnem(); break; - - case 0x340: case 0x341: case 0x342: case 0x343: case 0x344: case 0x345: case 0x346: case 0x347: - case 0x348: case 0x349: case 0x34a: case 0x34b: case 0x34c: case 0x34d: case 0x34e: case 0x34f: - case 0x350: case 0x351: case 0x352: case 0x353: case 0x354: case 0x355: case 0x356: case 0x357: - case 0x358: case 0x359: case 0x35a: case 0x35b: case 0x35c: case 0x35d: case 0x35e: case 0x35f: - op_lpu(); break; - case 0x360: case 0x361: case 0x362: case 0x363: case 0x364: case 0x365: case 0x366: case 0x367: - op_tbr(); break; - case 0x368: case 0x369: case 0x36a: case 0x36b: case 0x36c: case 0x36d: case 0x36e: case 0x36f: - op_p(); break; - - case 0x3a4: - op_rtni(); break; - case 0x3a7: - op_rtn(); break; - - case 0x3c0: case 0x3c1: case 0x3c2: case 0x3c3: case 0x3c4: case 0x3c5: case 0x3c6: case 0x3c7: - case 0x3c8: case 0x3c9: case 0x3ca: case 0x3cb: case 0x3cc: case 0x3cd: case 0x3ce: case 0x3cf: - case 0x3d0: case 0x3d1: case 0x3d2: case 0x3d3: case 0x3d4: case 0x3d5: case 0x3d6: case 0x3d7: - case 0x3d8: case 0x3d9: case 0x3da: case 0x3db: case 0x3dc: case 0x3dd: case 0x3de: case 0x3df: - case 0x3e0: case 0x3e1: case 0x3e2: case 0x3e3: case 0x3e4: case 0x3e5: case 0x3e6: case 0x3e7: - case 0x3e8: case 0x3e9: case 0x3ea: case 0x3eb: case 0x3ec: case 0x3ed: case 0x3ee: case 0x3ef: - case 0x3f0: case 0x3f1: case 0x3f2: case 0x3f3: case 0x3f4: case 0x3f5: case 0x3f6: case 0x3f7: - case 0x3f8: case 0x3f9: case 0x3fa: case 0x3fb: case 0x3fc: case 0x3fd: case 0x3fe: case 0x3ff: - op_cal(); break; + case 0x1c0: case 0x1d0: case 0x1e0: case 0x1f0: op_br(); break; + case 0x3c0: case 0x3d0: case 0x3e0: case 0x3f0: op_cal(); break; + case 0x340: case 0x350: op_lpu(); break; + + case 0x010: op_lmiiy(); break; + case 0x070: op_lai(); break; + case 0x080: op_ai(); break; + case 0x0f0: op_xamr(); break; + case 0x140: op_lxi(); break; + case 0x150: op_lyi(); break; + case 0x160: op_lbi(); break; + case 0x170: op_lti(); break; + case 0x210: op_mnei(); break; + case 0x270: op_alei(); break; + case 0x280: op_ynei(); break; + default: + switch (m_op & 0x3fc) + { + case 0x0c0: case 0x0c4: op_lar(); break; + case 0x0e0: case 0x0e4: op_lbr(); break; + case 0x2c0: case 0x2c4: op_lra(); break; + case 0x2e0: case 0x2e4: op_lrb(); break; + case 0x360: case 0x364: op_tbr(); break; + case 0x368: case 0x36c: op_p(); break; + + case 0x000: op_xsp(); break; + case 0x004: op_sem(); break; + case 0x008: op_lam(); break; + case 0x020: op_lbm(); break; + case 0x0d0: op_sedd(); break; + case 0x200: op_tm(); break; + case 0x204: op_rem(); break; + case 0x208: op_xma(); break; + case 0x220: op_xmb(); break; + case 0x2d0: op_redd(); break; default: - op_illegal(); break; - } /* big switch */ + switch (m_op) + { + case 0x024: op_blem(); break; + case 0x030: op_amc(); break; + case 0x034: op_am(); break; + case 0x03c: op_lta(); break; + case 0x040: op_lxa(); break; + case 0x045: op_das(); break; + case 0x046: op_daa(); break; + case 0x04c: op_rec(); break; + case 0x04f: op_sec(); break; + case 0x050: op_lya(); break; + case 0x054: op_iy(); break; + case 0x058: op_ayy(); break; + case 0x060: op_lba(); break; + case 0x064: op_ib(); break; + case 0x090: op_sed(); break; + case 0x094: op_td(); break; + case 0x0a0: op_seif1(); break; + case 0x0a1: op_secf(); break; + case 0x0a2: op_seif0(); break; + case 0x0a4: op_seie(); break; + case 0x0a5: op_setf(); break; + + case 0x110: case 0x111: op_lmaiy(); break; + case 0x114: case 0x115: op_lmady(); break; + case 0x118: op_lay(); break; + case 0x120: op_or(); break; + case 0x124: op_anem(); break; + case 0x1a0: op_tif1(); break; + case 0x1a1: op_ti1(); break; + case 0x1a2: op_tif0(); break; + case 0x1a3: op_ti0(); break; + case 0x1a5: op_ttf(); break; + + case 0x224: op_rotr(); break; + case 0x225: op_rotl(); break; + case 0x230: op_smc(); break; + case 0x234: op_alem(); break; + case 0x23c: op_lat(); break; + case 0x240: op_laspx(); break; + case 0x244: op_nega(); break; + case 0x24f: op_tc(); break; + case 0x250: op_laspy(); break; + case 0x254: op_dy(); break; + case 0x258: op_syy(); break; + case 0x260: op_lab(); break; + case 0x267: op_db(); break; + case 0x290: op_red(); break; + case 0x2a0: op_reif1(); break; + case 0x2a1: op_recf(); break; + case 0x2a2: op_reif0(); break; + case 0x2a4: op_reie(); break; + case 0x2a5: op_retf(); break; + + case 0x320: op_comb(); break; + case 0x324: op_bnem(); break; + case 0x3a4: op_rtni(); break; + case 0x3a7: op_rtn(); break; + + default: op_illegal(); break; + } + break; // 0x3ff + + } + break; // 0x3fc + + } // 0x3f0 } } |