updated Musashi to MAME 0.117

[picodrive.git] / cpu / Cyclone / OpAny.cpp

\r
#include "app.h"\r
\r
static unsigned char OpData[16]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};\r
\r
static unsigned short CPU_CALL OpRead16(unsigned int a)\r
{\r
  return (unsigned short)( (OpData[a&15]<<8) | OpData[(a+1)&15] );\r
}\r
\r
// For opcode 'op' use handler 'use'\r
void OpUse(int op,int use)\r
{\r
  char text[64]="";\r
  CyJump[op]=use;\r
\r
  if (op!=use) return;\r
\r
  // Disassemble opcode\r
  DisaPc=0;\r
  DisaText=text;\r
  DisaWord=OpRead16;\r
\r
  DisaGet();\r
  ot(";@ ---------- [%.4x] %s uses Op%.4x ----------\n",op,text,use);\r
}\r
\r
void OpStart(int op, int sea, int tea)\r
{\r
  Cycles=0;\r
  OpUse(op,op); // This opcode obviously uses this handler\r
  ot("Op%.4x%s\n", op, ms?"":":");\r
#if (MEMHANDLERS_NEED_PREV_PC || MEMHANDLERS_NEED_CYCLES)\r
  if ((sea >= 0x10 && sea != 0x3c) || (tea >= 0x10 && tea != 0x3c)) {\r
#if MEMHANDLERS_NEED_PREV_PC\r
    ot("  str r4,[r7,#0x50] ;@ Save prev PC + 2\n");\r
#endif\r
#if MEMHANDLERS_NEED_CYCLES\r
    ot("  str r5,[r7,#0x5c] ;@ Save Cycles\n");\r
#endif\r
    ot("\n");\r
  }\r
#endif\r
  pc_dirty = 1;\r
}\r
\r
void OpEnd(int sea, int tea)\r
{\r
#if MEMHANDLERS_CHANGE_CYCLES\r
  if ((sea >= 0x10 && sea != 0x3c) || (tea >= 0x10 && tea != 0x3c))\r
    ot("  ldr r5,[r7,#0x5c] ;@ Load Cycles\n");\r
#endif\r
  ot("  ldrh r8,[r4],#2 ;@ Fetch next opcode\n");\r
  ot("  subs r5,r5,#%d ;@ Subtract cycles\n",Cycles);\r
  ot("  ldrge pc,[r6,r8,asl #2] ;@ Jump to opcode handler\n");\r
  ot("  b CycloneEnd\n");\r
  ot("\n");\r
}\r
\r
int OpBase(int op,int size,int sepa)\r
{\r
  int ea=op&0x3f; // Get Effective Address\r
  if (ea<0x10) return sepa?(op&~0x7):(op&~0xf); // Use 1 handler for d0-d7 and a0-a7\r
  if (size==0&&(ea==0x1f || ea==0x27)) return op; // Specific handler for (a7)+ and -(a7)\r
  if (ea<0x38) return op&~7;   // Use 1 handler for (a0)-(a7), etc...\r
  return op;\r
}\r
\r
// Get flags, trashes r2\r
int OpGetFlags(int subtract,int xbit,int specialz)\r
{\r
  if (specialz) ot("  orr r2,r9,#0xb0000000 ;@ for old Z\n");\r
\r
  ot("  mrs r9,cpsr ;@ r9=flags\n");\r
\r
  if (specialz) ot("  andeq r9,r9,r2 ;@ fix Z\n");\r
\r
  if (subtract) ot("  eor r9,r9,#0x20000000 ;@ Invert carry\n");\r
\r
  if (xbit)\r
  {\r
    ot("  str r9,[r7,#0x4c] ;@ Save X bit\n");\r
  }\r
  return 0;\r
}\r
\r
// -----------------------------------------------------------------\r
\r
int g_op;\r
\r
void OpAny(int op)\r
{\r
  memset(OpData,0x33,sizeof(OpData));\r
  OpData[0]=(unsigned char)(op>>8);\r
  OpData[1]=(unsigned char)op;\r
  g_op=op;\r
\r
  if ((op&0xf100)==0x0000) OpArith(op);    // +\r
  if ((op&0xc000)==0x0000) OpMove(op);     // +\r
  if ((op&0xf5bf)==0x003c) OpArithSr(op);  // + Ori/Andi/Eori $nnnn,sr\r
  if ((op&0xf100)==0x0100) OpBtstReg(op);  // +\r
  if ((op&0xf138)==0x0108) OpMovep(op);    // +\r
  if ((op&0xff00)==0x0800) OpBtstImm(op);  // +\r
  if ((op&0xf900)==0x4000) OpNeg(op);      // +\r
  if ((op&0xf140)==0x4100) OpChk(op);      // +\r
  if ((op&0xf1c0)==0x41c0) OpLea(op);      // +\r
  if ((op&0xf9c0)==0x40c0) OpMoveSr(op);   // +\r
  if ((op&0xffc0)==0x4800) OpNbcd(op);     // +\r
  if ((op&0xfff8)==0x4840) OpSwap(op);     // +\r
  if ((op&0xffc0)==0x4840) OpPea(op);      // +\r
  if ((op&0xffb8)==0x4880) OpExt(op);      // +\r
  if ((op&0xfb80)==0x4880) OpMovem(op);    // +\r
  if ((op&0xff00)==0x4a00) OpTst(op);      // +\r
  if ((op&0xffc0)==0x4ac0) OpTas(op);      // +\r
  if ((op&0xfff0)==0x4e40) OpTrap(op);     // +\r
  if ((op&0xfff8)==0x4e50) OpLink(op);     // +\r
  if ((op&0xfff8)==0x4e58) OpUnlk(op);     // +\r
  if ((op&0xfff0)==0x4e60) OpMoveUsp(op);  // +\r
  if ((op&0xfff8)==0x4e70) Op4E70(op);     // + Reset/Rts etc\r
  if ((op&0xfffd)==0x4e70) OpStopReset(op);// +\r
  if ((op&0xff80)==0x4e80) OpJsr(op);      // +\r
  if ((op&0xf000)==0x5000) OpAddq(op);     // +\r
  if ((op&0xf0c0)==0x50c0) OpSet(op);      // +\r
  if ((op&0xf0f8)==0x50c8) OpDbra(op);     // +\r
  if ((op&0xf000)==0x6000) OpBranch(op);   // +\r
  if ((op&0xf100)==0x7000) OpMoveq(op);    // +\r
  if ((op&0xa000)==0x8000) OpArithReg(op); // + Or/Sub/And/Add\r
  if ((op&0xb1f0)==0x8100) OpAbcd(op);     // +\r
  if ((op&0xb0c0)==0x80c0) OpMul(op);      // +\r
  if ((op&0x90c0)==0x90c0) OpAritha(op);   // +\r
  if ((op&0xb130)==0x9100) OpAddx(op);     // +\r
  if ((op&0xf000)==0xb000) OpCmpEor(op);   // +\r
  if ((op&0xf138)==0xb108) OpCmpm(op);     // +\r
  if ((op&0xf130)==0xc100) OpExg(op);      // +\r
  if ((op&0xf000)==0xe000) OpAsr(op);      // + Asr/l/Ror/l etc\r
  if ((op&0xf8c0)==0xe0c0) OpAsrEa(op);    // +\r
\r
  if (op==0xffff)\r
  {\r
    SuperEnd();\r
  }\r
}\r
\r