cpu/Cyclone/OpAny.cpp

   1 \r
   2 #include "app.h"\r
   3 \r
   4 static unsigned char OpData[16]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};\r
   5 \r
   6 static unsigned short CPU_CALL OpRead16(unsigned int a)\r
   7 {\r
   8   return (unsigned short)( (OpData[a&15]<<8) | OpData[(a+1)&15] );\r
   9 }\r
  10 \r
  11 // For opcode 'op' use handler 'use'\r
  12 void OpUse(int op,int use)\r
  13 {\r
  14   char text[64]="";\r
  15   CyJump[op]=use;\r
  16 \r
  17   if (op!=use) return;\r
  18 \r
  19   // Disassemble opcode\r
  20   DisaPc=0;\r
  21   DisaText=text;\r
  22   DisaWord=OpRead16;\r
  23 \r
  24   DisaGet();\r
  25   ot(";@ ---------- [%.4x] %s uses Op%.4x ----------\n",op,text,use);\r
  26 }\r
  27 \r
  28 void OpStart(int op, int sea, int tea)\r
  29 {\r
  30   Cycles=0;\r
  31   OpUse(op,op); // This opcode obviously uses this handler\r
  32   ot("Op%.4x%s\n", op, ms?"":":");\r
  33 #if (MEMHANDLERS_NEED_PREV_PC || MEMHANDLERS_NEED_CYCLES)\r
  34   if ((sea >= 0x10 && sea != 0x3c) || (tea >= 0x10 && tea != 0x3c)) {\r
  35 #if MEMHANDLERS_NEED_PREV_PC\r
  36     ot("  sub r0,r4,#2\n");\r
  37     ot("  str r0,[r7,#0x50] ;@ Save prev PC\n");\r
  38 #endif\r
  39 #if MEMHANDLERS_NEED_CYCLES\r
  40     ot("  str r5,[r7,#0x5c] ;@ Save Cycles\n");\r
  41 #endif\r
  42     ot("\n");\r
  43   }\r
  44 #endif\r
  45   pc_dirty = 1;\r
  46 }\r
  47 \r
  48 void OpEnd(int sea, int tea)\r
  49 {\r
  50 #if MEMHANDLERS_CHANGE_CYCLES\r
  51   if ((sea >= 0x10 && sea != 0x3c) || (tea >= 0x10 && tea != 0x3c))\r
  52     ot("  ldr r5,[r7,#0x5c] ;@ Load Cycles\n");\r
  53 #endif\r
  54   ot("  ldrh r8,[r4],#2 ;@ Fetch next opcode\n");\r
  55   ot("  subs r5,r5,#%d ;@ Subtract cycles\n",Cycles);\r
  56   ot("  ldrge pc,[r6,r8,asl #2] ;@ Jump to opcode handler\n");\r
  57   ot("  b CycloneEnd\n");\r
  58   ot("\n");\r
  59 }\r
  60 \r
  61 int OpBase(int op,int sepa)\r
  62 {\r
  63   int ea=op&0x3f; // Get Effective Address\r
  64   if (ea<0x10) return sepa?(op&~0x7):(op&~0xf); // Use 1 handler for d0-d7 and a0-a7\r
  65   if (ea>=0x18 && ea<0x28 && (ea&7)==7) return op; // Specific handler for (a7)+ and -(a7)\r
  66   if (ea<0x38) return op&~7;   // Use 1 handler for (a0)-(a7), etc...\r
  67   return op;\r
  68 }\r
  69 \r
  70 // Get flags, trashes r2\r
  71 int OpGetFlags(int subtract,int xbit,int specialz)\r
  72 {\r
  73   if (specialz) ot("  orr r2,r9,#0xb0000000 ;@ for old Z\n");\r
  74 \r
  75   ot("  mrs r9,cpsr ;@ r9=flags\n");\r
  76 \r
  77   if (specialz) ot("  andeq r9,r9,r2 ;@ fix Z\n");\r
  78 \r
  79   if (subtract) ot("  eor r9,r9,#0x20000000 ;@ Invert carry\n");\r
  80 \r
  81   if (xbit)\r
  82   {\r
  83     ot("  mov r2,r9,lsr #28\n");\r
  84     ot("  strb r2,[r7,#0x45] ;@ Save X bit\n");\r
  85   }\r
  86   return 0;\r
  87 }\r
  88 \r
  89 // -----------------------------------------------------------------\r
  90 \r
  91 void OpAny(int op)\r
  92 {\r
  93   memset(OpData,0x33,sizeof(OpData));\r
  94   OpData[0]=(unsigned char)(op>>8);\r
  95   OpData[1]=(unsigned char)op;\r
  96 \r
  97   if ((op&0xf100)==0x0000) OpArith(op);\r
  98   if ((op&0xc000)==0x0000) OpMove(op);\r
  99   if ((op&0xf5bf)==0x003c) OpArithSr(op); // Ori/Andi/Eori $nnnn,sr\r
 100   if ((op&0xf100)==0x0100) OpBtstReg(op);\r
 101   if ((op&0xf138)==0x0108) OpMovep(op);\r
 102   if ((op&0xff00)==0x0800) OpBtstImm(op);\r
 103   if ((op&0xf900)==0x4000) OpNeg(op);\r
 104   if ((op&0xf140)==0x4100) OpChk(op);\r
 105   if ((op&0xf1c0)==0x41c0) OpLea(op);\r
 106   if ((op&0xf9c0)==0x40c0) OpMoveSr(op);\r
 107   if ((op&0xffc0)==0x4800) OpNbcd(op);\r
 108   if ((op&0xfff8)==0x4840) OpSwap(op);\r
 109   if ((op&0xffc0)==0x4840) OpPea(op);\r
 110   if ((op&0xffb8)==0x4880) OpExt(op);\r
 111   if ((op&0xfb80)==0x4880) OpMovem(op);\r
 112   if ((op&0xff00)==0x4a00) OpTst(op);\r
 113   if ((op&0xffc0)==0x4ac0) OpTas(op);\r
 114   if ((op&0xfff0)==0x4e40) OpTrap(op);\r
 115   if ((op&0xfff8)==0x4e50) OpLink(op);\r
 116   if ((op&0xfff8)==0x4e58) OpUnlk(op);\r
 117   if ((op&0xfff0)==0x4e60) OpMoveUsp(op);\r
 118   if ((op&0xfff8)==0x4e70) Op4E70(op); // Reset/Rts etc\r
 119   if ((op&0xfffd)==0x4e70) OpStopReset(op);\r
 120   if ((op&0xff80)==0x4e80) OpJsr(op);\r
 121   if ((op&0xf000)==0x5000) OpAddq(op);\r
 122   if ((op&0xf0c0)==0x50c0) OpSet(op);\r
 123   if ((op&0xf0f8)==0x50c8) OpDbra(op);\r
 124   if ((op&0xf000)==0x6000) OpBranch(op);\r
 125   if ((op&0xf100)==0x7000) OpMoveq(op);\r
 126   if ((op&0xa000)==0x8000) OpArithReg(op); // Or/Sub/And/Add\r
 127   if ((op&0xb1f0)==0x8100) OpAbcd(op);\r
 128   if ((op&0xb0c0)==0x80c0) OpMul(op);\r
 129   if ((op&0x90c0)==0x90c0) OpAritha(op);\r
 130   if ((op&0xb130)==0x9100) OpAddx(op);\r
 131   if ((op&0xf000)==0xb000) OpCmpEor(op);\r
 132   if ((op&0xf138)==0xb108) OpCmpm(op);\r
 133   if ((op&0xf130)==0xc100) OpExg(op);\r
 134   if ((op&0xf000)==0xe000) OpAsr(op); // Asr/l/Ror/l etc\r
 135   if ((op&0xf8c0)==0xe0c0) OpAsrEa(op);\r
 136 }\r