4 static unsigned char OpData[16]={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
\r
6 static unsigned short CPU_CALL OpRead16(unsigned int a)
\r
8 return (unsigned short)( (OpData[a&15]<<8) | OpData[(a+1)&15] );
\r
11 // For opcode 'op' use handler 'use'
\r
12 void OpUse(int op,int use)
\r
17 if (op!=use) return;
\r
19 // Disassemble opcode
\r
25 ot(";@ ---------- [%.4x] %s uses Op%.4x ----------\n",op,text,use);
\r
28 void OpStart(int op, int ea)
\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_PC || MEMHANDLERS_NEED_CYCLES)
\r
35 #if MEMHANDLERS_NEED_PC
\r
36 ot(" sub r0,r4,#2\n");
\r
37 ot(" str r0,[r7,#0x40] ;@ Save PC\n");
\r
39 #if MEMHANDLERS_NEED_CYCLES
\r
40 ot(" str r5,[r7,#0x5c] ;@ Save Cycles\n");
\r
49 ot(" ldrh r8,[r4],#2 ;@ Fetch next opcode\n");
\r
50 ot(" subs r5,r5,#%d ;@ Subtract cycles\n",Cycles);
\r
51 ot(" ldrge pc,[r6,r8,asl #2] ;@ Jump to opcode handler\n");
\r
52 ot(" b CycloneEnd\n");
\r
56 int OpBase(int op,int sepa)
\r
58 int ea=op&0x3f; // Get Effective Address
\r
59 if (ea<0x10) return sepa?(op&~0x7):(op&~0xf); // Use 1 handler for d0-d7 and a0-a7
\r
60 if (ea>=0x18 && ea<0x28 && (ea&7)==7) return op; // Specific handler for (a7)+ and -(a7)
\r
61 if (ea<0x38) return op&~7; // Use 1 handler for (a0)-(a7), etc...
\r
65 // Get flags, trashes r2
\r
66 int OpGetFlags(int subtract,int xbit,int specialz)
\r
68 if (specialz) ot(" orr r2,r9,#0xb0000000 ;@ for old Z\n");
\r
70 ot(" mrs r9,cpsr ;@ r9=flags\n");
\r
72 if (specialz) ot(" andeq r9,r9,r2 ;@ fix Z\n");
\r
74 if (subtract) ot(" eor r9,r9,#0x20000000 ;@ Invert carry\n");
\r
78 ot(" mov r2,r9,lsr #28\n");
\r
79 ot(" strb r2,[r7,#0x45] ;@ Save X bit\n");
\r
84 // -----------------------------------------------------------------
\r
88 memset(OpData,0x33,sizeof(OpData));
\r
89 OpData[0]=(unsigned char)(op>>8);
\r
90 OpData[1]=(unsigned char)op;
\r
92 if ((op&0xf100)==0x0000) OpArith(op);
\r
93 if ((op&0xc000)==0x0000) OpMove(op);
\r
94 if ((op&0xf5bf)==0x003c) OpArithSr(op); // Ori/Andi/Eori $nnnn,sr
\r
95 if ((op&0xf100)==0x0100) OpBtstReg(op);
\r
96 if ((op&0xf138)==0x0108) OpMovep(op);
\r
97 if ((op&0xff00)==0x0800) OpBtstImm(op);
\r
98 if ((op&0xf900)==0x4000) OpNeg(op);
\r
99 if ((op&0xf140)==0x4100) OpChk(op);
\r
100 if ((op&0xf1c0)==0x41c0) OpLea(op);
\r
101 if ((op&0xf9c0)==0x40c0) OpMoveSr(op);
\r
102 if ((op&0xffc0)==0x4800) OpNbcd(op);
\r
103 if ((op&0xfff8)==0x4840) OpSwap(op);
\r
104 if ((op&0xffc0)==0x4840) OpPea(op);
\r
105 if ((op&0xffb8)==0x4880) OpExt(op);
\r
106 if ((op&0xfb80)==0x4880) OpMovem(op);
\r
107 if ((op&0xff00)==0x4a00) OpTst(op);
\r
108 if ((op&0xffc0)==0x4ac0) OpTas(op);
\r
109 if ((op&0xfff0)==0x4e40) OpTrap(op);
\r
110 if ((op&0xfff8)==0x4e50) OpLink(op);
\r
111 if ((op&0xfff8)==0x4e58) OpUnlk(op);
\r
112 if ((op&0xfff0)==0x4e60) OpMoveUsp(op);
\r
113 if ((op&0xfff8)==0x4e70) Op4E70(op); // Reset/Rts etc
\r
114 if ((op&0xfffd)==0x4e70) OpStopReset(op);
\r
115 if ((op&0xff80)==0x4e80) OpJsr(op);
\r
116 if ((op&0xf000)==0x5000) OpAddq(op);
\r
117 if ((op&0xf0c0)==0x50c0) OpSet(op);
\r
118 if ((op&0xf0f8)==0x50c8) OpDbra(op);
\r
119 if ((op&0xf000)==0x6000) OpBranch(op);
\r
120 if ((op&0xf100)==0x7000) OpMoveq(op);
\r
121 if ((op&0xa000)==0x8000) OpArithReg(op); // Or/Sub/And/Add
\r
122 if ((op&0xb1f0)==0x8100) OpAbcd(op);
\r
123 if ((op&0xb0c0)==0x80c0) OpMul(op);
\r
124 if ((op&0x90c0)==0x90c0) OpAritha(op);
\r
125 if ((op&0xb130)==0x9100) OpAddx(op);
\r
126 if ((op&0xf000)==0xb000) OpCmpEor(op);
\r
127 if ((op&0xf138)==0xb108) OpCmpm(op);
\r
128 if ((op&0xf130)==0xc100) OpExg(op);
\r
129 if ((op&0xf000)==0xe000) OpAsr(op); // Asr/l/Ror/l etc
\r
130 if ((op&0xf8c0)==0xe0c0) OpAsrEa(op);
\r