summaryrefslogtreecommitdiffstatshomepage
path: root/src/emu/cpu/tms32051/32051ops.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/emu/cpu/tms32051/32051ops.c')
-rw-r--r--src/emu/cpu/tms32051/32051ops.c1961
1 files changed, 1961 insertions, 0 deletions
diff --git a/src/emu/cpu/tms32051/32051ops.c b/src/emu/cpu/tms32051/32051ops.c
new file mode 100644
index 00000000000..d81ad4f995d
--- /dev/null
+++ b/src/emu/cpu/tms32051/32051ops.c
@@ -0,0 +1,1961 @@
+INLINE void PUSH_STACK(UINT16 pc)
+{
+ if (tms.pcstack_ptr >= 8)
+ {
+ fatalerror("32051: stack overflow at %04X!\n", tms.pc);
+ }
+
+ tms.pcstack[tms.pcstack_ptr] = pc;
+ tms.pcstack_ptr++;
+}
+
+INLINE UINT16 POP_STACK(void)
+{
+ UINT16 pc;
+ tms.pcstack_ptr--;
+ if (tms.pcstack_ptr < 0)
+ {
+ fatalerror("32051: stack underflow at %04X!\n", tms.pc);
+ }
+
+ pc = tms.pcstack[tms.pcstack_ptr];
+ return pc;
+}
+
+INLINE INT32 SUB(INT32 a, INT32 b, int shift16)
+{
+ INT64 res = a - b;
+ if (tms.st0.ovm) // overflow saturation mode
+ {
+ if ((res & 0x80000000) && ((UINT32)(res >> 32) & 0xffffffff) != 0xffffffff)
+ {
+ res = 0x80000000;
+ }
+ else if (((res & 0x80000000) == 0) && ((UINT32)(res >> 32) & 0xffffffff) != 0)
+ {
+ res = 0x7fffffff;
+ }
+ }
+ else // normal mode, result is not modified
+ {
+ // set OV flag if overflow occured, this is a sticky flag
+ if (((a) ^ (b)) & ((a) ^ ((INT32)res)) & 0x80000000)
+ {
+ tms.st0.ov = 1;
+ }
+ }
+
+ // set carry
+ if (!shift16)
+ {
+ // C is cleared if borrow was generated
+ if (((UINT64)(a) + (UINT64)(~b)) & U64(0x100000000))
+ {
+ tms.st1.c = 0;
+ }
+ else
+ {
+ tms.st1.c = 1;
+ }
+ }
+ else
+ {
+ // if 16-bit shift, C is cleared if borrow was generated, otherwise C is unaffected
+ if (((UINT64)(a) + (UINT64)(~b)) & U64(0x100000000))
+ {
+ tms.st1.c = 0;
+ }
+ }
+
+ return (INT32)(res);
+}
+
+INLINE INT32 ADD(INT32 a, INT32 b, int shift16)
+{
+ INT64 res = a + b;
+ if (tms.st0.ovm) // overflow saturation mode
+ {
+ if ((res & 0x80000000) && ((UINT32)(res >> 32) & 0xffffffff) != 0xffffffff)
+ {
+ res = 0x80000000;
+ }
+ else if (((res & 0x80000000) == 0) && ((UINT32)(res >> 32) & 0xffffffff) != 0)
+ {
+ res = 0x7fffffff;
+ }
+ }
+ else // normal mode, result is not modified
+ {
+ // set OV flag if overflow occured, this is a sticky flag
+ if (((res) ^ (b)) & ((res) ^ (a)) & 0x80000000)
+ {
+ tms.st0.ov = 1;
+ }
+ }
+
+ // set carry
+ if (!shift16)
+ {
+ // C is set if carry was generated
+ if (res & U64(0x100000000))
+ {
+ tms.st1.c = 1;
+ }
+ else
+ {
+ tms.st1.c = 0;
+ }
+ }
+ else
+ {
+ // if 16-bit shift, C is set carry was generated, otherwise C is unaffected
+ if (res & U64(0x100000000))
+ {
+ tms.st1.c = 1;
+ }
+ }
+
+ return (INT32)(res);
+}
+
+
+INLINE void UPDATE_AR(int ar, int step)
+{
+ int cenb1 = (tms.cbcr >> 3) & 0x1;
+ int car1 = tms.cbcr & 0x7;
+ int cenb2 = (tms.cbcr >> 7) & 0x1;
+ int car2 = (tms.cbcr >> 4) & 0x7;
+
+ if (cenb1 && ar == car1)
+ {
+ // update circular buffer 1
+ if (tms.ar[ar] == tms.cber1)
+ {
+ tms.ar[ar] = tms.cbsr1;
+ }
+ else
+ {
+ tms.ar[ar] += step;
+ }
+ }
+ else if (cenb2 && ar == car2)
+ {
+ // update circular buffer 2
+ if (tms.ar[ar] == tms.cber2)
+ {
+ tms.ar[ar] = tms.cbsr2;
+ }
+ else
+ {
+ tms.ar[ar] += step;
+ }
+ }
+ else
+ {
+ tms.ar[ar] += step;
+ }
+}
+
+INLINE void UPDATE_ARP(int nar)
+{
+ tms.st1.arb = tms.st0.arp;
+ tms.st0.arp = nar;
+}
+
+static UINT16 GET_ADDRESS(void)
+{
+ if (tms.op & 0x80) // Indirect Addressing
+ {
+ UINT16 ea;
+ int arp = tms.st0.arp;
+ int nar = tms.op & 0x7;
+
+ ea = tms.ar[arp];
+
+ switch ((tms.op >> 3) & 0xf)
+ {
+ case 0x0: // * (no operation)
+ {
+ break;
+ }
+ case 0x1: // *, ARn (NAR -> ARP)
+ {
+ UPDATE_ARP(nar);
+ break;
+ }
+ case 0x2: // *- ((CurrentAR)-1 -> CurrentAR)
+ {
+ UPDATE_AR(arp, -1);
+ break;
+ }
+ case 0x3: // *-, ARn ((CurrentAR)-1 -> CurrentAR, NAR -> ARP)
+ {
+ UPDATE_AR(arp, -1);
+ UPDATE_ARP(nar);
+ break;
+ }
+ case 0x4: // *+ ((CurrentAR)+1 -> CurrentAR)
+ {
+ UPDATE_AR(arp, 1);
+ break;
+ }
+ case 0x5: // *+, ARn ((CurrentAR)+1 -> CurrentAR, NAR -> ARP)
+ {
+ UPDATE_AR(arp, 1);
+ UPDATE_ARP(nar);
+ break;
+ }
+ case 0xa: // *0- ((CurrentAR) - INDX)
+ {
+ UPDATE_AR(arp, -tms.indx);
+ break;
+ }
+ case 0xb: // *0-, ARn ((CurrentAR) - INDX -> CurrentAR, NAR -> ARP)
+ {
+ UPDATE_AR(arp, -tms.indx);
+ UPDATE_ARP(nar);
+ break;
+ }
+ case 0xc: // *0+ ((CurrentAR) + INDX -> CurrentAR)
+ {
+ UPDATE_AR(arp, tms.indx);
+ break;
+ }
+ case 0xd: // *0+, ARn ((CurrentAR) + INDX -> CurrentAR, NAR -> ARP)
+ {
+ UPDATE_AR(arp, tms.indx);
+ UPDATE_ARP(nar);
+ break;
+ }
+
+ default: fatalerror("32051: GET_ADDRESS: unimplemented indirect addressing mode %d at %04X (%04X)\n", (tms.op >> 3) & 0xf, tms.pc, tms.op);
+ }
+
+ return ea;
+ }
+ else // Direct Addressing
+ {
+ return tms.st0.dp | (tms.op & 0x7f);
+ }
+}
+
+static int GET_ZLVC_CONDITION(int zlvc, int zlvc_mask)
+{
+ int condition = 0;
+
+ if (zlvc_mask & 0x8) // Z-bit
+ {
+ if ((zlvc & 0x8) && (INT32)(tms.acc) == 0) // EQ
+ {
+ condition = 1;
+ }
+ else if ((zlvc & 0x8) == 0 && (INT32)(tms.acc) != 0) // NEQ
+ {
+ condition = 1;
+ }
+ }
+ if (zlvc_mask & 0x4) // L-bit
+ {
+ if ((zlvc & 0x4) && (INT32)(tms.acc) < 0) // LT
+ {
+ condition = 1;
+ }
+ else if ((zlvc & 0x4) == 0 && (INT32)(tms.acc) > 0) // GT
+ {
+ condition = 1;
+ }
+ }
+ if (zlvc_mask & 0x2) // OV-bit
+ {
+ if ((zlvc & 0x2) && tms.st0.ov) // OV
+ {
+ condition = 1;
+ }
+ else if ((zlvc & 0x2) == 0 && tms.st0.ov == 0) // NOV
+ {
+ condition = 1;
+ }
+ }
+ if (zlvc_mask & 0x1) // C-bit
+ {
+ if ((zlvc & 0x1) && tms.st1.c) // C
+ {
+ condition = 1;
+ }
+ else if ((zlvc & 0x1) == 0 && tms.st1.c == 0) // NC
+ {
+ condition = 1;
+ }
+ }
+
+ return condition;
+}
+
+static int GET_TP_CONDITION(int tp)
+{
+ switch (tp)
+ {
+ case 0: // BIO pin low
+ {
+ // TODO
+ return 0;
+ }
+ case 1: // TC = 1
+ {
+ return (tms.st1.tc == 1) ? 1 : 0;
+ }
+ case 2: // TC = 0
+ {
+ return (tms.st1.tc == 0) ? 1 : 0;
+ }
+ case 3: // always false
+ {
+ return 0;
+ }
+ }
+ return 0;
+}
+
+INLINE INT32 PREG_PSCALER(INT32 preg)
+{
+ switch (tms.st1.pm & 3)
+ {
+ case 0: // No shift
+ {
+ return preg;
+ }
+ case 1: // Left-shifted 1 bit, LSB zero-filled
+ {
+ return preg << 1;
+ }
+ case 2: // Left-shifted 4 bits, 4 LSBs zero-filled
+ {
+ return preg << 4;
+ }
+ case 3: // Right-shifted 6 bits, sign-extended, 6 LSBs lost
+ {
+ return (INT32)(preg >> 6);
+ }
+ }
+ return 0;
+}
+
+
+
+static void op_invalid(void)
+{
+ fatalerror("32051: invalid op at %08X", tms.pc-1);
+}
+
+static void op_group_be(void);
+static void op_group_bf(void);
+
+/*****************************************************************************/
+
+static void op_abs(void)
+{
+ fatalerror("32051: unimplemented op abs at %08X", tms.pc-1);
+}
+
+static void op_adcb(void)
+{
+ fatalerror("32051: unimplemented op adcb at %08X", tms.pc-1);
+}
+
+static void op_add_mem(void)
+{
+ INT32 d;
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ int shift = (tms.op >> 8) & 0xf;
+
+ if (tms.st1.sxm)
+ {
+ d = (INT32)(INT16)(data) << shift;
+ }
+ else
+ {
+ d = (UINT32)(UINT16)(data) << shift;
+ }
+
+ tms.acc = ADD(tms.acc, d, 0);
+
+ CYCLES(1);
+}
+
+static void op_add_simm(void)
+{
+ UINT16 imm = tms.op & 0xff;
+
+ tms.acc = ADD(tms.acc, imm, 0);
+
+ CYCLES(1);
+}
+
+static void op_add_limm(void)
+{
+ INT32 d;
+ UINT16 imm = ROPCODE();
+ int shift = tms.op & 0xf;
+
+ if (tms.st1.sxm)
+ {
+ d = (INT32)(INT16)(imm) << shift;
+ }
+ else
+ {
+ d = (UINT32)(UINT16)(imm) << shift;
+ }
+
+ tms.acc = ADD(tms.acc, d, 0);
+
+ CYCLES(2);
+}
+
+static void op_add_s16_mem(void)
+{
+ fatalerror("32051: unimplemented op add s16 mem at %08X", tms.pc-1);
+}
+
+static void op_addb(void)
+{
+ tms.acc = ADD(tms.acc, tms.accb, 0);
+
+ CYCLES(1);
+}
+
+static void op_addc(void)
+{
+ fatalerror("32051: unimplemented op addc at %08X", tms.pc-1);
+}
+
+static void op_adds(void)
+{
+ fatalerror("32051: unimplemented op adds at %08X", tms.pc-1);
+}
+
+static void op_addt(void)
+{
+ fatalerror("32051: unimplemented op addt at %08X", tms.pc-1);
+}
+
+static void op_and_mem(void)
+{
+ fatalerror("32051: unimplemented op and mem at %08X", tms.pc-1);
+}
+
+static void op_and_limm(void)
+{
+ UINT32 imm = ROPCODE();
+ int shift = tms.op & 0xf;
+
+ tms.acc &= imm << shift;
+
+ CYCLES(2);
+}
+
+static void op_and_s16_limm(void)
+{
+ fatalerror("32051: unimplemented op and s16 limm at %08X", tms.pc-1);
+}
+
+static void op_andb(void)
+{
+ fatalerror("32051: unimplemented op andb at %08X", tms.pc-1);
+}
+
+static void op_bsar(void)
+{
+ int shift = (tms.op & 0xf) + 1;
+
+ if (tms.st1.sxm)
+ {
+ tms.acc = (INT32)(tms.acc) >> shift;
+ }
+ else
+ {
+ tms.acc = (UINT32)(tms.acc) >> shift;
+ }
+
+ CYCLES(1);
+}
+
+static void op_cmpl(void)
+{
+ tms.acc = ~tms.acc;
+
+ CYCLES(1);
+}
+
+static void op_crgt(void)
+{
+ if (tms.acc > tms.accb)
+ {
+ tms.accb = tms.acc;
+ tms.st1.c = 1;
+ }
+ else if (tms.acc < tms.accb)
+ {
+ tms.acc = tms.accb;
+ tms.st1.c = 0;
+ }
+ else
+ {
+ tms.st1.c = 1;
+ }
+
+ CYCLES(1);
+}
+
+static void op_crlt(void)
+{
+ if (tms.acc < tms.accb)
+ {
+ tms.accb = tms.acc;
+ tms.st1.c = 1;
+ }
+ else if (tms.acc > tms.accb)
+ {
+ tms.acc = tms.accb;
+ tms.st1.c = 0;
+ }
+ else
+ {
+ tms.st1.c = 0;
+ }
+
+ CYCLES(1);
+}
+
+static void op_exar(void)
+{
+ INT32 tmp = tms.acc;
+ tms.acc = tms.accb;
+ tms.accb = tmp;
+
+ CYCLES(1);
+}
+
+static void op_lacb(void)
+{
+ tms.acc = tms.accb;
+
+ CYCLES(1);
+}
+
+static void op_lacc_mem(void)
+{
+ int shift = (tms.op >> 8) & 0xf;
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+
+ if (tms.st1.sxm)
+ {
+ tms.acc = (INT32)(INT16)(data) << shift;
+ }
+ else
+ {
+ tms.acc = (UINT32)(UINT16)(data) << shift;
+ }
+
+ CYCLES(1);
+}
+
+static void op_lacc_limm(void)
+{
+ UINT16 imm = ROPCODE();
+ int shift = tms.op & 0xf;
+
+ if (tms.st1.sxm)
+ {
+ tms.acc = (INT32)(INT16)(imm) << shift;
+ }
+ else
+ {
+ tms.acc = (UINT32)(UINT16)(imm) << shift;
+ }
+
+ CYCLES(1);
+}
+
+static void op_lacc_s16_mem(void)
+{
+ UINT16 ea = GET_ADDRESS();
+
+ if (tms.st1.sxm)
+ {
+ tms.acc = (INT32)(INT16)(DM_READ16(ea)) << 16;
+ }
+ else
+ {
+ tms.acc = (UINT32)(DM_READ16(ea)) << 16;
+ }
+
+ CYCLES(1);
+}
+
+static void op_lacl_simm(void)
+{
+ tms.acc = tms.op & 0xff;
+
+ CYCLES(1);
+}
+
+static void op_lacl_mem(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ tms.acc = DM_READ16(ea) & 0xffff;
+
+ CYCLES(1);
+}
+
+static void op_lact(void)
+{
+ fatalerror("32051: unimplemented op lact at %08X", tms.pc-1);
+}
+
+static void op_lamm(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ ea &= 0x7f;
+
+ tms.acc = DM_READ16(ea) & 0xffff;
+ CYCLES(1);
+}
+
+static void op_neg(void)
+{
+ if ((UINT32)(tms.acc) == 0x80000000)
+ {
+ tms.st0.ov = 1;
+ if (tms.st0.ovm)
+ {
+ tms.acc = 0x7fffffff;
+ }
+ else
+ {
+ tms.acc = 0x80000000;
+ }
+ }
+ else
+ {
+ tms.acc = 0 - (UINT32)(tms.acc);
+
+ if (tms.acc == 0)
+ {
+ tms.st1.c = 1;
+ }
+ else
+ {
+ tms.st1.c = 0;
+ }
+ }
+
+ CYCLES(1);
+}
+
+static void op_norm(void)
+{
+ fatalerror("32051: unimplemented op norm at %08X", tms.pc-1);
+}
+
+static void op_or_mem(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+
+ tms.acc |= (UINT32)(data);
+
+ CYCLES(1);
+}
+
+static void op_or_limm(void)
+{
+ UINT32 imm = ROPCODE();
+ int shift = tms.op & 0xf;
+
+ tms.acc |= imm << shift;
+
+ CYCLES(1);
+}
+
+static void op_or_s16_limm(void)
+{
+ fatalerror("32051: unimplemented op or s16 limm at %08X", tms.pc-1);
+}
+
+static void op_orb(void)
+{
+ tms.acc |= tms.accb;
+
+ CYCLES(1);
+}
+
+static void op_rol(void)
+{
+ fatalerror("32051: unimplemented op rol at %08X", tms.pc-1);
+}
+
+static void op_rolb(void)
+{
+ UINT32 acc = tms.acc;
+ UINT32 accb = tms.accb;
+ UINT32 c = tms.st1.c & 1;
+
+ tms.acc = (acc << 1) | ((accb >> 31) & 1);
+ tms.accb = (accb << 1) | c;
+ tms.st1.c = (acc >> 31) & 1;
+
+ CYCLES(1);
+}
+
+static void op_ror(void)
+{
+ fatalerror("32051: unimplemented op ror at %08X", tms.pc-1);
+}
+
+static void op_rorb(void)
+{
+ fatalerror("32051: unimplemented op rorb at %08X", tms.pc-1);
+}
+
+static void op_sacb(void)
+{
+ tms.accb = tms.acc;
+
+ CYCLES(1);
+}
+
+static void op_sach(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ int shift = (tms.op >> 8) & 0x7;
+
+ DM_WRITE16(ea, (UINT16)((tms.acc << shift) >> 16));
+ CYCLES(1);
+}
+
+static void op_sacl(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ int shift = (tms.op >> 8) & 0x7;
+
+ DM_WRITE16(ea, (UINT16)(tms.acc << shift));
+ CYCLES(1);
+}
+
+static void op_samm(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ ea &= 0x7f;
+
+ DM_WRITE16(ea, (UINT16)(tms.acc));
+ CYCLES(1);
+}
+
+static void op_sath(void)
+{
+ fatalerror("32051: unimplemented op sath at %08X", tms.pc-1);
+}
+
+static void op_satl(void)
+{
+ fatalerror("32051: unimplemented op satl at %08X", tms.pc-1);
+}
+
+static void op_sbb(void)
+{
+ tms.acc = SUB(tms.acc, tms.accb, 0);
+
+ CYCLES(1);
+}
+
+static void op_sbbb(void)
+{
+ fatalerror("32051: unimplemented op sbbb at %08X", tms.pc-1);
+}
+
+static void op_sfl(void)
+{
+ tms.st1.c = (tms.acc >> 31) & 1;
+ tms.acc = tms.acc << 1;
+
+ CYCLES(1);
+}
+
+static void op_sflb(void)
+{
+ UINT32 acc = tms.acc;
+ UINT32 accb = tms.accb;
+
+ tms.acc = (acc << 1) | ((accb >> 31) & 1);
+ tms.accb = (accb << 1);
+ tms.st1.c = (acc >> 31) & 1;
+
+ CYCLES(1);
+}
+
+static void op_sfr(void)
+{
+ tms.st1.c = tms.acc & 1;
+
+ if (tms.st1.sxm)
+ {
+ tms.acc = (INT32)(tms.acc) >> 1;
+ }
+ else
+ {
+ tms.acc = (UINT32)(tms.acc) >> 1;
+ }
+
+ CYCLES(1);
+}
+
+static void op_sfrb(void)
+{
+ fatalerror("32051: unimplemented op sfrb at %08X", tms.pc-1);
+}
+
+static void op_sub_mem(void)
+{
+ INT32 d;
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ int shift = (tms.op >> 8) & 0xf;
+
+ if (tms.st1.sxm)
+ {
+ d = (INT32)(INT16)(data) << shift;
+ }
+ else
+ {
+ d = (UINT32)(UINT16)(data) << shift;
+ }
+
+ tms.acc = SUB(tms.acc, d, 0);
+
+ CYCLES(1);
+}
+
+static void op_sub_s16_mem(void)
+{
+ fatalerror("32051: unimplemented op sub s16 mem at %08X", tms.pc-1);
+}
+
+static void op_sub_simm(void)
+{
+ UINT16 imm = tms.op & 0xff;
+
+ tms.acc = SUB(tms.acc, imm, 0);
+
+ CYCLES(1);
+}
+
+static void op_sub_limm(void)
+{
+ INT32 d;
+ UINT16 imm = ROPCODE();
+ int shift = tms.op & 0xf;
+
+ if (tms.st1.sxm)
+ {
+ d = (INT32)(INT16)(imm) << shift;
+ }
+ else
+ {
+ d = (UINT32)(UINT16)(imm) << shift;
+ }
+
+ tms.acc = SUB(tms.acc, d, 0);
+
+ CYCLES(2);
+}
+
+static void op_subb(void)
+{
+ fatalerror("32051: unimplemented op subb at %08X", tms.pc-1);
+}
+
+static void op_subc(void)
+{
+ fatalerror("32051: unimplemented op subc at %08X", tms.pc-1);
+}
+
+static void op_subs(void)
+{
+ fatalerror("32051: unimplemented op subs at %08X", tms.pc-1);
+}
+
+static void op_subt(void)
+{
+ fatalerror("32051: unimplemented op subt at %08X", tms.pc-1);
+}
+
+static void op_xor_mem(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+
+ tms.acc ^= (UINT32)(data);
+
+ CYCLES(1);
+}
+
+static void op_xor_limm(void)
+{
+ UINT32 imm = ROPCODE();
+ int shift = tms.op & 0xf;
+
+ tms.acc ^= imm << shift;
+
+ CYCLES(1);
+}
+
+static void op_xor_s16_limm(void)
+{
+ fatalerror("32051: unimplemented op xor s16 limm at %08X", tms.pc-1);
+}
+
+static void op_xorb(void)
+{
+ fatalerror("32051: unimplemented op xorb at %08X", tms.pc-1);
+}
+
+static void op_zalr(void)
+{
+ fatalerror("32051: unimplemented op zalr at %08X", tms.pc-1);
+}
+
+static void op_zap(void)
+{
+ tms.acc = 0;
+ tms.preg = 0;
+
+ CYCLES(1);
+}
+
+/*****************************************************************************/
+
+static void op_adrk(void)
+{
+ UINT16 imm = tms.op & 0xff;
+ UPDATE_AR(tms.st0.arp, imm);
+
+ CYCLES(1);
+}
+
+static void op_cmpr(void)
+{
+ tms.st1.tc = 0;
+
+ switch (tms.op & 0x3)
+ {
+ case 0: // (CurrentAR) == ARCR
+ {
+ if (tms.ar[tms.st0.arp] == tms.arcr)
+ {
+ tms.st1.tc = 1;
+ }
+ break;
+ }
+ case 1: // (CurrentAR) < ARCR
+ {
+ if (tms.ar[tms.st0.arp] < tms.arcr)
+ {
+ tms.st1.tc = 1;
+ }
+ break;
+ }
+ case 2: // (CurrentAR) > ARCR
+ {
+ if (tms.ar[tms.st0.arp] > tms.arcr)
+ {
+ tms.st1.tc = 1;
+ }
+ break;
+ }
+ case 3: // (CurrentAR) != ARCR
+ {
+ if (tms.ar[tms.st0.arp] != tms.arcr)
+ {
+ tms.st1.tc = 1;
+ }
+ break;
+ }
+ }
+
+ CYCLES(1);
+}
+
+static void op_lar_mem(void)
+{
+ int arx = (tms.op >> 8) & 0x7;
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+
+ tms.ar[arx] = data;
+
+ CYCLES(2);
+}
+
+static void op_lar_simm(void)
+{
+ int arx = (tms.op >> 8) & 0x7;
+ tms.ar[arx] = tms.op & 0xff;
+
+ CYCLES(2);
+}
+
+static void op_lar_limm(void)
+{
+ int arx = tms.op & 0x7;
+ UINT16 imm = ROPCODE();
+ tms.ar[arx] = imm;
+
+ CYCLES(2);
+}
+
+static void op_ldp_mem(void)
+{
+ fatalerror("32051: unimplemented op ldp mem at %08X", tms.pc-1);
+}
+
+static void op_ldp_imm(void)
+{
+ tms.st0.dp = (tms.op & 0x1ff) << 7;
+ CYCLES(2);
+}
+
+static void op_mar(void)
+{
+ // direct addressing is NOP
+ if (tms.op & 0x80)
+ {
+ GET_ADDRESS();
+ }
+ CYCLES(1);
+}
+
+static void op_sar(void)
+{
+ int arx = (tms.op >> 8) & 0x7;
+ UINT16 ar = tms.ar[arx];
+ UINT16 ea = GET_ADDRESS();
+ DM_WRITE16(ea, ar);
+
+ CYCLES(1);
+}
+
+static void op_sbrk(void)
+{
+ UINT16 imm = tms.op & 0xff;
+ UPDATE_AR(tms.st0.arp, -imm);
+
+ CYCLES(1);
+}
+
+/*****************************************************************************/
+
+static void op_b(void)
+{
+ UINT16 pma = ROPCODE();
+ GET_ADDRESS(); // update AR/ARP
+
+ CHANGE_PC(pma);
+ CYCLES(4);
+}
+
+static void op_bacc(void)
+{
+ CHANGE_PC((UINT16)(tms.acc));
+
+ CYCLES(4);
+}
+
+static void op_baccd(void)
+{
+ UINT16 pc = (UINT16)(tms.acc);
+
+ delay_slot(tms.pc);
+ CHANGE_PC(pc);
+
+ CYCLES(2);
+}
+
+static void op_banz(void)
+{
+ UINT16 pma = ROPCODE();
+
+ if (tms.ar[tms.st0.arp] != 0)
+ {
+ CHANGE_PC(pma);
+ CYCLES(4);
+ }
+ else
+ {
+ CYCLES(2);
+ }
+
+ GET_ADDRESS(); // modify AR/ARP
+}
+
+static void op_banzd(void)
+{
+ fatalerror("32051: unimplemented op banzd at %08X", tms.pc-1);
+}
+
+static void op_bcnd(void)
+{
+ UINT16 pma = ROPCODE();
+
+ int zlvc_condition = GET_ZLVC_CONDITION((tms.op >> 4) & 0xf, tms.op & 0xf);
+ int tp_condition = GET_TP_CONDITION((tms.op >> 8) & 0x3);
+
+ if (zlvc_condition || tp_condition)
+ {
+ CHANGE_PC(pma);
+ CYCLES(4);
+ }
+ else
+ {
+ CYCLES(2);
+ }
+}
+
+static void op_bcndd(void)
+{
+ UINT16 pma = ROPCODE();
+
+ int zlvc_condition = GET_ZLVC_CONDITION((tms.op >> 4) & 0xf, tms.op & 0xf);
+ int tp_condition = GET_TP_CONDITION((tms.op >> 8) & 0x3);
+
+ if (zlvc_condition || tp_condition)
+ {
+ delay_slot(tms.pc);
+ CHANGE_PC(pma);
+ CYCLES(4);
+ }
+ else
+ {
+ CYCLES(2);
+ }
+}
+
+static void op_bd(void)
+{
+ UINT16 pma = ROPCODE();
+ GET_ADDRESS(); // update AR/ARP
+
+ delay_slot(tms.pc);
+ CHANGE_PC(pma);
+ CYCLES(2);
+}
+
+static void op_cala(void)
+{
+ PUSH_STACK(tms.pc);
+
+ CHANGE_PC(tms.acc);
+
+ CYCLES(4);
+}
+
+static void op_calad(void)
+{
+ UINT16 pma = tms.acc;
+ PUSH_STACK(tms.pc+2);
+
+ delay_slot(tms.pc);
+ CHANGE_PC(pma);
+
+ CYCLES(4);
+}
+
+static void op_call(void)
+{
+ UINT16 pma = ROPCODE();
+ GET_ADDRESS(); // update AR/ARP
+ PUSH_STACK(tms.pc);
+
+ CHANGE_PC(pma);
+
+ CYCLES(4);
+}
+
+static void op_calld(void)
+{
+ UINT16 pma = ROPCODE();
+ GET_ADDRESS(); // update AR/ARP
+ PUSH_STACK(tms.pc+2);
+
+ delay_slot(tms.pc);
+ CHANGE_PC(pma);
+
+ CYCLES(4);
+}
+
+static void op_cc(void)
+{
+ fatalerror("32051: unimplemented op cc at %08X", tms.pc-1);
+}
+
+static void op_ccd(void)
+{
+ UINT16 pma = ROPCODE();
+ int zlvc_condition = GET_ZLVC_CONDITION((tms.op >> 4) & 0xf, tms.op & 0xf);
+ int tp_condition = GET_TP_CONDITION((tms.op >> 8) & 0x3);
+
+ if (zlvc_condition || tp_condition)
+ {
+ PUSH_STACK(tms.pc+2);
+
+ delay_slot(tms.pc);
+ CHANGE_PC(pma);
+ }
+
+ CYCLES(2);
+}
+
+static void op_intr(void)
+{
+ fatalerror("32051: unimplemented op intr at %08X", tms.pc-1);
+}
+
+static void op_nmi(void)
+{
+ fatalerror("32051: unimplemented op nmi at %08X", tms.pc-1);
+}
+
+static void op_retc(void)
+{
+ int condition = 0;
+
+ if ((tms.op & 0x3ff) == 0x300) // RET
+ {
+ condition = 1;
+ }
+ else
+ {
+ int zlvc_condition = GET_ZLVC_CONDITION((tms.op >> 4) & 0xf, tms.op & 0xf);
+ int tp_condition = GET_TP_CONDITION((tms.op >> 8) & 0x3);
+ condition = zlvc_condition || tp_condition;
+ }
+
+ if (condition)
+ {
+ UINT16 pc = POP_STACK();
+ CHANGE_PC(pc);
+ CYCLES(4);
+ }
+ else
+ {
+ CYCLES(2);
+ }
+}
+
+static void op_retcd(void)
+{
+ int condition = 0;
+
+ if ((tms.op & 0x3ff) == 0x300) // RETD
+ {
+ condition = 1;
+ }
+ else
+ {
+ int zlvc_condition = GET_ZLVC_CONDITION((tms.op >> 4) & 0xf, tms.op & 0xf);
+ int tp_condition = GET_TP_CONDITION((tms.op >> 8) & 0x3);
+ condition = zlvc_condition || tp_condition;
+ }
+
+ if (condition)
+ {
+ UINT16 pc = POP_STACK();
+ delay_slot(tms.pc);
+ CHANGE_PC(pc);
+ CYCLES(4);
+ }
+ else
+ {
+ CYCLES(2);
+ }
+}
+
+static void op_rete(void)
+{
+ UINT16 pc = POP_STACK();
+ CHANGE_PC(pc);
+
+ tms.st0.intm = 0;
+
+ restore_interrupt_context();
+
+ CYCLES(4);
+}
+
+static void op_reti(void)
+{
+ fatalerror("32051: unimplemented op reti at %08X", tms.pc-1);
+}
+
+static void op_trap(void)
+{
+ fatalerror("32051: unimplemented op trap at %08X", tms.pc-1);
+}
+
+static void op_xc(void)
+{
+ int n = ((tms.op >> 12) & 0x1) + 1;
+ int zlvc_condition = GET_ZLVC_CONDITION((tms.op >> 4) & 0xf, tms.op & 0xf);
+ int tp_condition = GET_TP_CONDITION((tms.op >> 8) & 0x3);
+
+ if (zlvc_condition || tp_condition)
+ {
+ CYCLES(1);
+ }
+ else
+ {
+ CHANGE_PC(tms.pc + n);
+ CYCLES(1 + n);
+ }
+}
+
+/*****************************************************************************/
+
+static void op_bldd_slimm(void)
+{
+ UINT16 pfc = ROPCODE();
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(pfc);
+ DM_WRITE16(ea, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+static void op_bldd_dlimm(void)
+{
+ UINT16 pfc = ROPCODE();
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ DM_WRITE16(pfc, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+static void op_bldd_sbmar(void)
+{
+ fatalerror("32051: unimplemented op bldd sbmar at %08X", tms.pc-1);
+}
+
+static void op_bldd_dbmar(void)
+{
+ UINT16 pfc = tms.bmar;
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ DM_WRITE16(pfc, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+static void op_bldp(void)
+{
+ UINT16 pfc = tms.bmar;
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ PM_WRITE16(pfc, data);
+ pfc++;
+ CYCLES(1);
+
+ tms.rptc--;
+ };
+}
+
+static void op_blpd_bmar(void)
+{
+ fatalerror("32051: unimplemented op bpld bmar at %08X", tms.pc-1);
+}
+
+static void op_blpd_imm(void)
+{
+ UINT16 pfc = ROPCODE();
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = PM_READ16(pfc);
+ DM_WRITE16(ea, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+/*****************************************************************************/
+
+static void op_dmov(void)
+{
+ fatalerror("32051: unimplemented op dmov at %08X", tms.pc-1);
+}
+
+static void op_in(void)
+{
+ fatalerror("32051: unimplemented op in at %08X", tms.pc-1);
+}
+
+static void op_lmmr(void)
+{
+ UINT16 pfc = ROPCODE();
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(pfc);
+ DM_WRITE16(ea & 0x7f, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+static void op_out(void)
+{
+ fatalerror("32051: unimplemented op out at %08X", tms.pc-1);
+}
+
+static void op_smmr(void)
+{
+ UINT16 pfc = ROPCODE();
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea & 0x7f);
+ DM_WRITE16(pfc, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+static void op_tblr(void)
+{
+ UINT16 pfc = (UINT16)(tms.acc);
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = PM_READ16(pfc);
+ DM_WRITE16(ea, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+static void op_tblw(void)
+{
+ UINT16 pfc = (UINT16)(tms.acc);
+
+ while (tms.rptc > -1)
+ {
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ PM_WRITE16(pfc, data);
+ pfc++;
+ CYCLES(2);
+
+ tms.rptc--;
+ };
+}
+
+/*****************************************************************************/
+
+static void op_apl_dbmr(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ data &= tms.dbmr;
+ DM_WRITE16(ea, data);
+ CYCLES(1);
+}
+
+static void op_apl_imm(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 imm = ROPCODE();
+ UINT16 data = DM_READ16(ea);
+ data &= imm;
+ DM_WRITE16(ea, data);
+ CYCLES(1);
+}
+
+static void op_cpl_dbmr(void)
+{
+ fatalerror("32051: unimplemented op cpl dbmr at %08X", tms.pc-1);
+}
+
+static void op_cpl_imm(void)
+{
+ UINT16 imm = ROPCODE();
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+
+ if (data == imm)
+ {
+ tms.st1.tc = 1;
+ }
+ else
+ {
+ tms.st1.tc = 0;
+ }
+
+ CYCLES(1);
+}
+
+static void op_opl_dbmr(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ data |= tms.dbmr;
+ DM_WRITE16(ea, data);
+ CYCLES(1);
+}
+
+static void op_opl_imm(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 imm = ROPCODE();
+ UINT16 data = DM_READ16(ea);
+ data |= imm;
+ DM_WRITE16(ea, data);
+ CYCLES(1);
+}
+
+static void op_splk(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 imm = ROPCODE();
+
+ DM_WRITE16(ea, imm);
+
+ CYCLES(2);
+}
+
+static void op_xpl_dbmr(void)
+{
+ fatalerror("32051: unimplemented op xpl dbmr at %08X", tms.pc-1);
+}
+
+static void op_xpl_imm(void)
+{
+ fatalerror("32051: unimplemented op xpl imm at %08X", tms.pc-1);
+}
+
+static void op_apac(void)
+{
+ INT32 spreg = PREG_PSCALER(tms.preg);
+ tms.acc = ADD(tms.acc, spreg, 0);
+
+ CYCLES(1);
+}
+
+static void op_lph(void)
+{
+ fatalerror("32051: unimplemented op lph at %08X", tms.pc-1);
+}
+
+static void op_lt(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+
+ tms.treg0 = data;
+
+ CYCLES(1);
+}
+
+static void op_lta(void)
+{
+ INT32 spreg;
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+
+ tms.treg0 = data;
+ spreg = PREG_PSCALER(tms.preg);
+ tms.acc = ADD(tms.acc, spreg, 0);
+
+ CYCLES(1);
+}
+
+static void op_ltd(void)
+{
+ fatalerror("32051: unimplemented op ltd at %08X", tms.pc-1);
+}
+
+static void op_ltp(void)
+{
+ fatalerror("32051: unimplemented op ltp at %08X", tms.pc-1);
+}
+
+static void op_lts(void)
+{
+ fatalerror("32051: unimplemented op lts at %08X", tms.pc-1);
+}
+
+static void op_mac(void)
+{
+ fatalerror("32051: unimplemented op mac at %08X", tms.pc-1);
+}
+
+static void op_macd(void)
+{
+ fatalerror("32051: unimplemented op macd at %08X", tms.pc-1);
+}
+
+static void op_madd(void)
+{
+ fatalerror("32051: unimplemented op madd at %08X", tms.pc-1);
+}
+
+static void op_mads(void)
+{
+ fatalerror("32051: unimplemented op mads at %08X", tms.pc-1);
+}
+
+static void op_mpy_mem(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ INT16 data = DM_READ16(ea);
+
+ tms.preg = (INT32)(data) * (INT32)(INT16)(tms.treg0);
+
+ CYCLES(1);
+}
+
+static void op_mpy_simm(void)
+{
+ fatalerror("32051: unimplemented op mpy simm at %08X", tms.pc-1);
+}
+
+static void op_mpy_limm(void)
+{
+ fatalerror("32051: unimplemented op mpy limm at %08X", tms.pc-1);
+}
+
+static void op_mpya(void)
+{
+ fatalerror("32051: unimplemented op mpya at %08X", tms.pc-1);
+}
+
+static void op_mpys(void)
+{
+ fatalerror("32051: unimplemented op mpys at %08X", tms.pc-1);
+}
+
+static void op_mpyu(void)
+{
+ fatalerror("32051: unimplemented op mpyu at %08X", tms.pc-1);
+}
+
+static void op_pac(void)
+{
+ fatalerror("32051: unimplemented op pac at %08X", tms.pc-1);
+}
+
+static void op_spac(void)
+{
+ fatalerror("32051: unimplemented op spac at %08X", tms.pc-1);
+}
+
+static void op_sph(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 spreg = (UINT16)(PREG_PSCALER(tms.preg) >> 16);
+ DM_WRITE16(ea, spreg);
+
+ CYCLES(1);
+}
+
+static void op_spl(void)
+{
+ fatalerror("32051: unimplemented op spl at %08X", tms.pc-1);
+}
+
+static void op_spm(void)
+{
+ tms.st1.pm = tms.op & 0x3;
+
+ CYCLES(1);
+}
+
+static void op_sqra(void)
+{
+ fatalerror("32051: unimplemented op sqra at %08X", tms.pc-1);
+}
+
+static void op_sqrs(void)
+{
+ fatalerror("32051: unimplemented op sqrs at %08X", tms.pc-1);
+}
+
+static void op_zpr(void)
+{
+ fatalerror("32051: unimplemented op zpr at %08X", tms.pc-1);
+}
+
+static void op_bit(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ int bit = 15 - ((tms.op >> 8) & 0xf);
+
+ if (data & (1 << bit))
+ {
+ tms.st1.tc = 1;
+ }
+ else
+ {
+ tms.st1.tc = 0;
+ }
+
+ CYCLES(1);
+}
+
+static void op_bitt(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ int bit = 15 - (tms.treg2 & 0xf);
+
+ if (data & (1 << bit))
+ {
+ tms.st1.tc = 1;
+ }
+ else
+ {
+ tms.st1.tc = 0;
+ }
+
+ CYCLES(1);
+}
+
+static void op_clrc_ov(void)
+{
+ tms.st0.ovm = 0;
+
+ CYCLES(1);
+}
+
+static void op_clrc_ext(void)
+{
+ tms.st1.sxm = 0;
+
+ CYCLES(1);
+}
+
+static void op_clrc_hold(void)
+{
+ fatalerror("32051: unimplemented op clrc hold at %08X", tms.pc-1);
+}
+
+static void op_clrc_tc(void)
+{
+ fatalerror("32051: unimplemented op clrc tc at %08X", tms.pc-1);
+}
+
+static void op_clrc_carry(void)
+{
+ fatalerror("32051: unimplemented op clrc carry at %08X", tms.pc-1);
+}
+
+static void op_clrc_cnf(void)
+{
+ tms.st1.cnf = 0;
+
+ CYCLES(1);
+}
+
+static void op_clrc_intm(void)
+{
+ tms.st0.intm = 0;
+
+ check_interrupts();
+
+ CYCLES(1);
+}
+
+static void op_clrc_xf(void)
+{
+ fatalerror("32051: unimplemented op clrc xf at %08X", tms.pc-1);
+}
+
+static void op_idle(void)
+{
+ fatalerror("32051: unimplemented op idle at %08X", tms.pc-1);
+}
+
+static void op_idle2(void)
+{
+ fatalerror("32051: unimplemented op idle2 at %08X", tms.pc-1);
+}
+
+static void op_lst_st0(void)
+{
+ fatalerror("32051: unimplemented op lst st0 at %08X", tms.pc-1);
+}
+
+static void op_lst_st1(void)
+{
+ fatalerror("32051: unimplemented op lst st1 at %08X", tms.pc-1);
+}
+
+static void op_pop(void)
+{
+ tms.acc = POP_STACK();
+
+ CYCLES(1);
+}
+
+static void op_popd(void)
+{
+ fatalerror("32051: unimplemented op popd at %08X", tms.pc-1);
+}
+
+static void op_pshd(void)
+{
+ fatalerror("32051: unimplemented op pshd at %08X", tms.pc-1);
+}
+
+static void op_push(void)
+{
+ fatalerror("32051: unimplemented op push at %08X", tms.pc-1);
+}
+
+static void op_rpt_mem(void)
+{
+ UINT16 ea = GET_ADDRESS();
+ UINT16 data = DM_READ16(ea);
+ tms.rptc = data;
+ tms.rpt_start = tms.pc;
+ tms.rpt_end = tms.pc;
+
+ CYCLES(1);
+}
+
+static void op_rpt_limm(void)
+{
+ tms.rptc = (UINT16)ROPCODE();
+ tms.rpt_start = tms.pc;
+ tms.rpt_end = tms.pc;
+
+ CYCLES(2);
+}
+
+static void op_rpt_simm(void)
+{
+ tms.rptc = (tms.op & 0xff);
+ tms.rpt_start = tms.pc;
+ tms.rpt_end = tms.pc;
+
+ CYCLES(1);
+}
+
+static void op_rptb(void)
+{
+ UINT16 pma = ROPCODE();
+ tms.pmst.braf = 1;
+ tms.pasr = tms.pc;
+ tms.paer = pma + 1;
+
+ CYCLES(2);
+}
+
+static void op_rptz(void)
+{
+ fatalerror("32051: unimplemented op rptz at %08X", tms.pc-1);
+}
+
+static void op_setc_ov(void)
+{
+ tms.st0.ovm = 1;
+
+ CYCLES(1);
+}
+
+static void op_setc_ext(void)
+{
+ tms.st1.sxm = 1;
+
+ CYCLES(1);
+}
+
+static void op_setc_hold(void)
+{
+ fatalerror("32051: unimplemented op setc hold at %08X", tms.pc-1);
+}
+
+static void op_setc_tc(void)
+{
+ fatalerror("32051: unimplemented op setc tc at %08X", tms.pc-1);
+}
+
+static void op_setc_carry(void)
+{
+ fatalerror("32051: unimplemented op setc carry at %08X", tms.pc-1);
+}
+
+static void op_setc_xf(void)
+{
+ fatalerror("32051: unimplemented op setc xf at %08X", tms.pc-1);
+}
+
+static void op_setc_cnf(void)
+{
+ tms.st1.cnf = 1;
+
+ CYCLES(1);
+}
+
+static void op_setc_intm(void)
+{
+ tms.st0.intm = 1;
+
+ check_interrupts();
+
+ CYCLES(1);
+}
+
+static void op_sst_st0(void)
+{
+ fatalerror("32051: unimplemented op sst st0 at %08X", tms.pc-1);
+}
+
+static void op_sst_st1(void)
+{
+ fatalerror("32051: unimplemented op sst st1 at %08X", tms.pc-1);
+}