Sprinter/mame
2
0
Fork 0
mirror of https://github.com/holub/mame synced 2025-05-07 23:02:33 +03:00
Code Issues Actions 4 Packages Projects Releases Wiki Activity

added tms1400 callstack

Browse Source
This commit is contained in:
hap 2015-01-18 02:36:18 +01:00
parent d19cec2f72
commit 2044302b96
2 changed files with 73 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
src/emu/cpu/tms0980/tms0980.c
View File

@ -429,6 +429,7 @@ void tms1xxx_cpu_device::device_start()
m_sr = 0;
m_pa = 0;
m_pb = 0;
m_ps = 0;
m_a = 0;
m_x = 0;
m_y = 0;
@ -466,6 +467,7 @@ void tms1xxx_cpu_device::device_start()
save_item(NAME(m_sr));
save_item(NAME(m_pa));
save_item(NAME(m_pb));
save_item(NAME(m_ps));
save_item(NAME(m_a));
save_item(NAME(m_x));
save_item(NAME(m_y));
@ -636,7 +638,7 @@ void tms1400_cpu_device::device_reset()
tms1100_cpu_device::device_reset();
// small differences in 00-3f area
m_fixed_decode[0x09] = F_COMX; // !
m_fixed_decode[0x09] = F_COMX;
m_fixed_decode[0x0b] = F_TPC;
}
@ -958,49 +960,50 @@ void tms0980_cpu_device::set_cki_bus()
//-------------------------------------------------
// handle branches:
// TMS1000/common
// note: add(latch) and bl(branch latch) are specific to 0980 series,
// c(chapter) bits are specific to 1100(and 1400) series
// TMS1000/common:
void tms1xxx_cpu_device::op_br()
{
// BR/BL: conditional branch
if (!m_status)
return;
if (!m_clatch)
m_pa = m_pb;
m_ca = m_cb;
m_pc = m_opcode & m_pc_mask;
if (m_status)
{
if (m_clatch == 0)
m_pa = m_pb;
m_ca = m_cb;
m_pc = m_opcode & m_pc_mask;
}
}
void tms1xxx_cpu_device::op_call()
{
// CALL/CALLL: conditional call
if (!m_status)
return;
UINT8 prev_pa = m_pa;
if (!m_clatch)
if (m_status)
{
m_sr = m_pc;
m_clatch = 1;
m_pa = m_pb;
m_cs = m_ca;
UINT8 prev_pa = m_pa;
if (m_clatch == 0)
{
m_clatch = 1;
m_sr = m_pc;
m_pa = m_pb;
m_cs = m_ca;
}
m_ca = m_cb;
m_pb = prev_pa;
m_pc = m_opcode & m_pc_mask;
}
m_ca = m_cb;
m_pb = prev_pa;
m_pc = m_opcode & m_pc_mask;
}
void tms1xxx_cpu_device::op_retn()
{
// RETN: return from subroutine
if (m_clatch)
if (m_clatch == 1)
{
m_pc = m_sr;
m_clatch = 0;
m_pc = m_sr;
m_ca = m_cs;
}
m_add = 0;
@ -1014,31 +1017,60 @@ void tms1xxx_cpu_device::op_retn()
void tms1400_cpu_device::op_br()
{
// BR/BL: conditional branch
if (!m_status)
return;
//..
if (m_status)
{
m_pa = m_pb; // don't care about clatch
m_ca = m_cb;
m_pc = m_opcode & m_pc_mask;
}
}
void tms1400_cpu_device::op_call()
{
// CALL/CALLL: conditional call
if (!m_status)
return;
if (m_status)
{
// 3-level stack, mask clatch 3 bits (no need to mask others)
m_clatch = (m_clatch << 1 | 1) & 7;
//..
m_sr = m_sr << m_pc_bits | m_pc;
m_pc = m_opcode & m_pc_mask;
m_ps = m_ps << 4 | m_pa;
m_pa = m_pb;
m_cs = m_cs << 2 | m_ca;
m_ca = m_cb;
}
else
{
m_pb = m_pa;
m_cb = m_ca;
}
}
void tms1400_cpu_device::op_retn()
{
// RETN: return from subroutine
//..
if (m_clatch & 1)
{
m_clatch >>= 1;
m_pc = m_sr & m_pc_mask;
m_sr >>= m_pc_bits;
m_pa = m_pb = m_ps & 0xf;
m_ps >>= 4;
m_ca = m_cb = m_cs & 3;
m_cs >>= 2;
}
}
// handle other:
// TMS1000/common:
// TMS1000/common
void tms1xxx_cpu_device::op_sbit()
{
@ -1158,6 +1190,7 @@ void tms0970_cpu_device::op_tdo()
// TMS0980-specific (and possibly child classes)
void tms0980_cpu_device::op_comx()
{
// COMX: complement X register, but not the MSB
@ -1203,6 +1236,7 @@ void tms1xxx_cpu_device::op_sbl()
// TMS0270-specific
void tms0270_cpu_device::op_setr()
{
// same as default, but handle write to output in dynamic_output

11
src/emu/cpu/tms0980/tms0980.h
View File

@ -139,15 +139,16 @@ protected:
optional_device<pla_device> m_spla;
UINT8 m_pc; // 6 or 7-bit program counter
UINT8 m_sr; // 6 or 7-bit subroutine return register
UINT32 m_sr; // 6 or 7-bit subroutine return register(s)
UINT8 m_pa; // 4-bit page address register
UINT8 m_pb; // 4-bit page buffer register
UINT16 m_ps; // 4-bit page subroutine register(s)
UINT8 m_a; // 4-bit accumulator
UINT8 m_x; // 2,3,or 4-bit RAM X register
UINT8 m_y; // 4-bit RAM Y register
UINT8 m_ca; // chapter address bit
UINT8 m_cb; // chapter buffer bit
UINT8 m_cs; // chapter subroutine bit
UINT8 m_ca; // chapter address register
UINT8 m_cb; // chapter buffer register
UINT16 m_cs; // chapter subroutine register(s)
UINT16 m_r;
UINT16 m_o;
UINT8 m_cki_bus;
@ -160,7 +161,7 @@ protected:
UINT8 m_status;
UINT8 m_status_latch;
UINT8 m_eac; // end around carry bit
UINT8 m_clatch; // call latch bit
UINT8 m_clatch; // call latch bit(s)
UINT8 m_add; // add latch bit
UINT8 m_bl; // branch latch bit