/src/capstonev5/arch/M68K/M68KDisassembler.c
Line | Count | Source (jump to first uncovered line) |
1 | | /* ======================================================================== */ |
2 | | /* ========================= LICENSING & COPYRIGHT ======================== */ |
3 | | /* ======================================================================== */ |
4 | | /* |
5 | | * MUSASHI |
6 | | * Version 3.4 |
7 | | * |
8 | | * A portable Motorola M680x0 processor emulation engine. |
9 | | * Copyright 1998-2001 Karl Stenerud. All rights reserved. |
10 | | * |
11 | | * Permission is hereby granted, free of charge, to any person obtaining a copy |
12 | | * of this software and associated documentation files (the "Software"), to deal |
13 | | * in the Software without restriction, including without limitation the rights |
14 | | * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
15 | | * copies of the Software, and to permit persons to whom the Software is |
16 | | * furnished to do so, subject to the following conditions: |
17 | | * |
18 | | * The above copyright notice and this permission notice shall be included in |
19 | | * all copies or substantial portions of the Software. |
20 | | |
21 | | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
22 | | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
23 | | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
24 | | * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
25 | | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
26 | | * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN |
27 | | * THE SOFTWARE. |
28 | | */ |
29 | | |
30 | | /* The code below is based on MUSASHI but has been heavily modified for Capstone by |
31 | | * Daniel Collin <daniel@collin.com> 2015-2019 */ |
32 | | |
33 | | /* ======================================================================== */ |
34 | | /* ================================ INCLUDES ============================== */ |
35 | | /* ======================================================================== */ |
36 | | |
37 | | #include <stdlib.h> |
38 | | #include <stdio.h> |
39 | | #include <string.h> |
40 | | |
41 | | #include "../../cs_priv.h" |
42 | | #include "../../utils.h" |
43 | | |
44 | | #include "../../MCInst.h" |
45 | | #include "../../MCInstrDesc.h" |
46 | | #include "../../MCRegisterInfo.h" |
47 | | #include "M68KInstPrinter.h" |
48 | | #include "M68KDisassembler.h" |
49 | | |
50 | | /* ======================================================================== */ |
51 | | /* ============================ GENERAL DEFINES =========================== */ |
52 | | /* ======================================================================== */ |
53 | | |
54 | | /* Bit Isolation Functions */ |
55 | 4.22k | #define BIT_0(A) ((A) & 0x00000001) |
56 | | #define BIT_1(A) ((A) & 0x00000002) |
57 | | #define BIT_2(A) ((A) & 0x00000004) |
58 | 0 | #define BIT_3(A) ((A) & 0x00000008) |
59 | | #define BIT_4(A) ((A) & 0x00000010) |
60 | 1.80k | #define BIT_5(A) ((A) & 0x00000020) |
61 | 19.2k | #define BIT_6(A) ((A) & 0x00000040) |
62 | 19.2k | #define BIT_7(A) ((A) & 0x00000080) |
63 | 47.6k | #define BIT_8(A) ((A) & 0x00000100) |
64 | | #define BIT_9(A) ((A) & 0x00000200) |
65 | 926 | #define BIT_A(A) ((A) & 0x00000400) |
66 | 45.2k | #define BIT_B(A) ((A) & 0x00000800) |
67 | | #define BIT_C(A) ((A) & 0x00001000) |
68 | | #define BIT_D(A) ((A) & 0x00002000) |
69 | | #define BIT_E(A) ((A) & 0x00004000) |
70 | 48.3k | #define BIT_F(A) ((A) & 0x00008000) |
71 | | #define BIT_10(A) ((A) & 0x00010000) |
72 | | #define BIT_11(A) ((A) & 0x00020000) |
73 | | #define BIT_12(A) ((A) & 0x00040000) |
74 | | #define BIT_13(A) ((A) & 0x00080000) |
75 | | #define BIT_14(A) ((A) & 0x00100000) |
76 | | #define BIT_15(A) ((A) & 0x00200000) |
77 | | #define BIT_16(A) ((A) & 0x00400000) |
78 | | #define BIT_17(A) ((A) & 0x00800000) |
79 | | #define BIT_18(A) ((A) & 0x01000000) |
80 | | #define BIT_19(A) ((A) & 0x02000000) |
81 | | #define BIT_1A(A) ((A) & 0x04000000) |
82 | | #define BIT_1B(A) ((A) & 0x08000000) |
83 | | #define BIT_1C(A) ((A) & 0x10000000) |
84 | | #define BIT_1D(A) ((A) & 0x20000000) |
85 | | #define BIT_1E(A) ((A) & 0x40000000) |
86 | 1.73k | #define BIT_1F(A) ((A) & 0x80000000) |
87 | | |
88 | | /* These are the CPU types understood by this disassembler */ |
89 | 203k | #define TYPE_68000 1 |
90 | 0 | #define TYPE_68010 2 |
91 | 0 | #define TYPE_68020 4 |
92 | 0 | #define TYPE_68030 8 |
93 | 393k | #define TYPE_68040 16 |
94 | | |
95 | | #define M68000_ONLY TYPE_68000 |
96 | | |
97 | | #define M68010_ONLY TYPE_68010 |
98 | | #define M68010_LESS (TYPE_68000 | TYPE_68010) |
99 | | #define M68010_PLUS (TYPE_68010 | TYPE_68020 | TYPE_68030 | TYPE_68040) |
100 | | |
101 | | #define M68020_ONLY TYPE_68020 |
102 | | #define M68020_LESS (TYPE_68010 | TYPE_68020) |
103 | | #define M68020_PLUS (TYPE_68020 | TYPE_68030 | TYPE_68040) |
104 | | |
105 | | #define M68030_ONLY TYPE_68030 |
106 | | #define M68030_LESS (TYPE_68010 | TYPE_68020 | TYPE_68030) |
107 | | #define M68030_PLUS (TYPE_68030 | TYPE_68040) |
108 | | |
109 | | #define M68040_PLUS TYPE_68040 |
110 | | |
111 | | enum { |
112 | | M68K_CPU_TYPE_INVALID, |
113 | | M68K_CPU_TYPE_68000, |
114 | | M68K_CPU_TYPE_68010, |
115 | | M68K_CPU_TYPE_68EC020, |
116 | | M68K_CPU_TYPE_68020, |
117 | | M68K_CPU_TYPE_68030, /* Supported by disassembler ONLY */ |
118 | | M68K_CPU_TYPE_68040 /* Supported by disassembler ONLY */ |
119 | | }; |
120 | | |
121 | | /* Extension word formats */ |
122 | 28.4k | #define EXT_8BIT_DISPLACEMENT(A) ((A)&0xff) |
123 | 47.6k | #define EXT_FULL(A) BIT_8(A) |
124 | | #define EXT_EFFECTIVE_ZERO(A) (((A)&0xe4) == 0xc4 || ((A)&0xe2) == 0xc0) |
125 | 19.2k | #define EXT_BASE_REGISTER_PRESENT(A) (!BIT_7(A)) |
126 | 19.2k | #define EXT_INDEX_REGISTER_PRESENT(A) (!BIT_6(A)) |
127 | 40.1k | #define EXT_INDEX_REGISTER(A) (((A)>>12)&7) |
128 | | #define EXT_INDEX_PRE_POST(A) (EXT_INDEX_PRESENT(A) && (A)&3) |
129 | | #define EXT_INDEX_PRE(A) (EXT_INDEX_PRESENT(A) && ((A)&7) < 4 && ((A)&7) != 0) |
130 | | #define EXT_INDEX_POST(A) (EXT_INDEX_PRESENT(A) && ((A)&7) > 4) |
131 | 66.3k | #define EXT_INDEX_SCALE(A) (((A)>>9)&3) |
132 | 40.1k | #define EXT_INDEX_LONG(A) BIT_B(A) |
133 | 40.1k | #define EXT_INDEX_AR(A) BIT_F(A) |
134 | 19.2k | #define EXT_BASE_DISPLACEMENT_PRESENT(A) (((A)&0x30) > 0x10) |
135 | | #define EXT_BASE_DISPLACEMENT_WORD(A) (((A)&0x30) == 0x20) |
136 | 13.4k | #define EXT_BASE_DISPLACEMENT_LONG(A) (((A)&0x30) == 0x30) |
137 | 19.2k | #define EXT_OUTER_DISPLACEMENT_PRESENT(A) (((A)&3) > 1 && ((A)&0x47) < 0x44) |
138 | | #define EXT_OUTER_DISPLACEMENT_WORD(A) (((A)&3) == 2 && ((A)&0x47) < 0x44) |
139 | 5.38k | #define EXT_OUTER_DISPLACEMENT_LONG(A) (((A)&3) == 3 && ((A)&0x47) < 0x44) |
140 | | |
141 | | #define IS_BITSET(val,b) ((val) & (1 << (b))) |
142 | 28.7k | #define BITFIELD_MASK(sb,eb) (((1 << ((sb) + 1))-1) & (~((1 << (eb))-1))) |
143 | 28.7k | #define BITFIELD(val,sb,eb) ((BITFIELD_MASK(sb,eb) & (val)) >> (eb)) |
144 | | |
145 | | /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// |
146 | | |
147 | | static unsigned int m68k_read_disassembler_16(const m68k_info *info, const uint64_t addr) |
148 | 1.41M | { |
149 | 1.41M | const uint16_t v0 = info->code[addr + 0]; |
150 | 1.41M | const uint16_t v1 = info->code[addr + 1]; |
151 | 1.41M | return (v0 << 8) | v1; |
152 | 1.41M | } |
153 | | |
154 | | static unsigned int m68k_read_disassembler_32(const m68k_info *info, const uint64_t addr) |
155 | 628k | { |
156 | 628k | const uint32_t v0 = info->code[addr + 0]; |
157 | 628k | const uint32_t v1 = info->code[addr + 1]; |
158 | 628k | const uint32_t v2 = info->code[addr + 2]; |
159 | 628k | const uint32_t v3 = info->code[addr + 3]; |
160 | 628k | return (v0 << 24) | (v1 << 16) | (v2 << 8) | v3; |
161 | 628k | } |
162 | | |
163 | | static uint64_t m68k_read_disassembler_64(const m68k_info *info, const uint64_t addr) |
164 | 471 | { |
165 | 471 | const uint64_t v0 = info->code[addr + 0]; |
166 | 471 | const uint64_t v1 = info->code[addr + 1]; |
167 | 471 | const uint64_t v2 = info->code[addr + 2]; |
168 | 471 | const uint64_t v3 = info->code[addr + 3]; |
169 | 471 | const uint64_t v4 = info->code[addr + 4]; |
170 | 471 | const uint64_t v5 = info->code[addr + 5]; |
171 | 471 | const uint64_t v6 = info->code[addr + 6]; |
172 | 471 | const uint64_t v7 = info->code[addr + 7]; |
173 | 471 | return (v0 << 56) | (v1 << 48) | (v2 << 40) | (v3 << 32) | (v4 << 24) | (v5 << 16) | (v6 << 8) | v7; |
174 | 471 | } |
175 | | |
176 | | static unsigned int m68k_read_safe_16(const m68k_info *info, const uint64_t address) |
177 | 1.41M | { |
178 | 1.41M | const uint64_t addr = (address - info->baseAddress) & info->address_mask; |
179 | 1.41M | if (info->code_len < addr + 2) { |
180 | 1.40k | return 0xaaaa; |
181 | 1.40k | } |
182 | 1.41M | return m68k_read_disassembler_16(info, addr); |
183 | 1.41M | } |
184 | | |
185 | | static unsigned int m68k_read_safe_32(const m68k_info *info, const uint64_t address) |
186 | 632k | { |
187 | 632k | const uint64_t addr = (address - info->baseAddress) & info->address_mask; |
188 | 632k | if (info->code_len < addr + 4) { |
189 | 3.69k | return 0xaaaaaaaa; |
190 | 3.69k | } |
191 | 628k | return m68k_read_disassembler_32(info, addr); |
192 | 632k | } |
193 | | |
194 | | static uint64_t m68k_read_safe_64(const m68k_info *info, const uint64_t address) |
195 | 475 | { |
196 | 475 | const uint64_t addr = (address - info->baseAddress) & info->address_mask; |
197 | 475 | if (info->code_len < addr + 8) { |
198 | 4 | return 0xaaaaaaaaaaaaaaaaLL; |
199 | 4 | } |
200 | 471 | return m68k_read_disassembler_64(info, addr); |
201 | 475 | } |
202 | | |
203 | | /* ======================================================================== */ |
204 | | /* =============================== PROTOTYPES ============================= */ |
205 | | /* ======================================================================== */ |
206 | | |
207 | | /* make signed integers 100% portably */ |
208 | | static int make_int_8(int value); |
209 | | static int make_int_16(int value); |
210 | | |
211 | | /* Stuff to build the opcode handler jump table */ |
212 | | static void d68000_invalid(m68k_info *info); |
213 | | static int instruction_is_valid(m68k_info *info, const unsigned int word_check); |
214 | | |
215 | | typedef struct { |
216 | | void (*instruction)(m68k_info *info); /* handler function */ |
217 | | uint16_t word2_mask; /* mask the 2nd word */ |
218 | | uint16_t word2_match; /* what to match after masking */ |
219 | | } instruction_struct; |
220 | | |
221 | | /* ======================================================================== */ |
222 | | /* ================================= DATA ================================= */ |
223 | | /* ======================================================================== */ |
224 | | |
225 | | static const instruction_struct g_instruction_table[0x10000]; |
226 | | |
227 | | /* used by ops like asr, ror, addq, etc */ |
228 | | static const uint32_t g_3bit_qdata_table[8] = {8, 1, 2, 3, 4, 5, 6, 7}; |
229 | | |
230 | | static const uint32_t g_5bit_data_table[32] = { |
231 | | 32, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, |
232 | | 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31 |
233 | | }; |
234 | | |
235 | | static const m68k_insn s_branch_lut[] = { |
236 | | M68K_INS_INVALID, M68K_INS_INVALID, M68K_INS_BHI, M68K_INS_BLS, |
237 | | M68K_INS_BCC, M68K_INS_BCS, M68K_INS_BNE, M68K_INS_BEQ, |
238 | | M68K_INS_BVC, M68K_INS_BVS, M68K_INS_BPL, M68K_INS_BMI, |
239 | | M68K_INS_BGE, M68K_INS_BLT, M68K_INS_BGT, M68K_INS_BLE, |
240 | | }; |
241 | | |
242 | | static const m68k_insn s_dbcc_lut[] = { |
243 | | M68K_INS_DBT, M68K_INS_DBF, M68K_INS_DBHI, M68K_INS_DBLS, |
244 | | M68K_INS_DBCC, M68K_INS_DBCS, M68K_INS_DBNE, M68K_INS_DBEQ, |
245 | | M68K_INS_DBVC, M68K_INS_DBVS, M68K_INS_DBPL, M68K_INS_DBMI, |
246 | | M68K_INS_DBGE, M68K_INS_DBLT, M68K_INS_DBGT, M68K_INS_DBLE, |
247 | | }; |
248 | | |
249 | | static const m68k_insn s_scc_lut[] = { |
250 | | M68K_INS_ST, M68K_INS_SF, M68K_INS_SHI, M68K_INS_SLS, |
251 | | M68K_INS_SCC, M68K_INS_SCS, M68K_INS_SNE, M68K_INS_SEQ, |
252 | | M68K_INS_SVC, M68K_INS_SVS, M68K_INS_SPL, M68K_INS_SMI, |
253 | | M68K_INS_SGE, M68K_INS_SLT, M68K_INS_SGT, M68K_INS_SLE, |
254 | | }; |
255 | | |
256 | | static const m68k_insn s_trap_lut[] = { |
257 | | M68K_INS_TRAPT, M68K_INS_TRAPF, M68K_INS_TRAPHI, M68K_INS_TRAPLS, |
258 | | M68K_INS_TRAPCC, M68K_INS_TRAPCS, M68K_INS_TRAPNE, M68K_INS_TRAPEQ, |
259 | | M68K_INS_TRAPVC, M68K_INS_TRAPVS, M68K_INS_TRAPPL, M68K_INS_TRAPMI, |
260 | | M68K_INS_TRAPGE, M68K_INS_TRAPLT, M68K_INS_TRAPGT, M68K_INS_TRAPLE, |
261 | | }; |
262 | | |
263 | | /* ======================================================================== */ |
264 | | /* =========================== UTILITY FUNCTIONS ========================== */ |
265 | | /* ======================================================================== */ |
266 | | |
267 | | #define LIMIT_CPU_TYPES(info, ALLOWED_CPU_TYPES) \ |
268 | 103k | do { \ |
269 | 103k | if (!(info->type & ALLOWED_CPU_TYPES)) { \ |
270 | 31.2k | d68000_invalid(info); \ |
271 | 31.2k | return; \ |
272 | 31.2k | } \ |
273 | 103k | } while (0) |
274 | | |
275 | 46.1k | static unsigned int peek_imm_8(const m68k_info *info) { return (m68k_read_safe_16((info), (info)->pc)&0xff); } |
276 | 1.36M | static unsigned int peek_imm_16(const m68k_info *info) { return m68k_read_safe_16((info), (info)->pc); } |
277 | 632k | static unsigned int peek_imm_32(const m68k_info *info) { return m68k_read_safe_32((info), (info)->pc); } |
278 | 475 | static unsigned long long peek_imm_64(const m68k_info *info) { return m68k_read_safe_64((info), (info)->pc); } |
279 | | |
280 | 46.1k | static unsigned int read_imm_8(m68k_info *info) { const unsigned int value = peek_imm_8(info); (info)->pc+=2; return value; } |
281 | 771k | static unsigned int read_imm_16(m68k_info *info) { const unsigned int value = peek_imm_16(info); (info)->pc+=2; return value; } |
282 | 33.1k | static unsigned int read_imm_32(m68k_info *info) { const unsigned int value = peek_imm_32(info); (info)->pc+=4; return value; } |
283 | 475 | static unsigned long long read_imm_64(m68k_info *info) { const unsigned long long value = peek_imm_64(info); (info)->pc+=8; return value; } |
284 | | |
285 | | /* Fake a split interface */ |
286 | | #define get_ea_mode_str_8(instruction) get_ea_mode_str(instruction, 0) |
287 | | #define get_ea_mode_str_16(instruction) get_ea_mode_str(instruction, 1) |
288 | | #define get_ea_mode_str_32(instruction) get_ea_mode_str(instruction, 2) |
289 | | |
290 | | #define get_imm_str_s8() get_imm_str_s(0) |
291 | | #define get_imm_str_s16() get_imm_str_s(1) |
292 | | #define get_imm_str_s32() get_imm_str_s(2) |
293 | | |
294 | | #define get_imm_str_u8() get_imm_str_u(0) |
295 | | #define get_imm_str_u16() get_imm_str_u(1) |
296 | | #define get_imm_str_u32() get_imm_str_u(2) |
297 | | |
298 | | |
299 | | /* 100% portable signed int generators */ |
300 | | static int make_int_8(int value) |
301 | 42.1k | { |
302 | 42.1k | return (value & 0x80) ? value | ~0xff : value & 0xff; |
303 | 42.1k | } |
304 | | |
305 | | static int make_int_16(int value) |
306 | 7.27k | { |
307 | 7.27k | return (value & 0x8000) ? value | ~0xffff : value & 0xffff; |
308 | 7.27k | } |
309 | | |
310 | | static void get_with_index_address_mode(m68k_info *info, cs_m68k_op* op, uint32_t instruction, uint32_t size, bool is_pc) |
311 | 47.6k | { |
312 | 47.6k | uint32_t extension = read_imm_16(info); |
313 | | |
314 | 47.6k | op->address_mode = M68K_AM_AREGI_INDEX_BASE_DISP; |
315 | | |
316 | 47.6k | if (EXT_FULL(extension)) { |
317 | 19.2k | uint32_t preindex; |
318 | 19.2k | uint32_t postindex; |
319 | | |
320 | 19.2k | op->mem.base_reg = M68K_REG_INVALID; |
321 | 19.2k | op->mem.index_reg = M68K_REG_INVALID; |
322 | | |
323 | | /* Not sure how to deal with this? |
324 | | if (EXT_EFFECTIVE_ZERO(extension)) { |
325 | | strcpy(mode, "0"); |
326 | | break; |
327 | | } |
328 | | */ |
329 | | |
330 | 19.2k | op->mem.in_disp = EXT_BASE_DISPLACEMENT_PRESENT(extension) ? (EXT_BASE_DISPLACEMENT_LONG(extension) ? read_imm_32(info) : read_imm_16(info)) : 0; |
331 | 19.2k | op->mem.out_disp = EXT_OUTER_DISPLACEMENT_PRESENT(extension) ? (EXT_OUTER_DISPLACEMENT_LONG(extension) ? read_imm_32(info) : read_imm_16(info)) : 0; |
332 | | |
333 | 19.2k | if (EXT_BASE_REGISTER_PRESENT(extension)) { |
334 | 10.8k | if (is_pc) { |
335 | 1.13k | op->mem.base_reg = M68K_REG_PC; |
336 | 9.75k | } else { |
337 | 9.75k | op->mem.base_reg = M68K_REG_A0 + (instruction & 7); |
338 | 9.75k | } |
339 | 10.8k | } |
340 | | |
341 | 19.2k | if (EXT_INDEX_REGISTER_PRESENT(extension)) { |
342 | 11.7k | if (EXT_INDEX_AR(extension)) { |
343 | 4.72k | op->mem.index_reg = M68K_REG_A0 + EXT_INDEX_REGISTER(extension); |
344 | 7.01k | } else { |
345 | 7.01k | op->mem.index_reg = M68K_REG_D0 + EXT_INDEX_REGISTER(extension); |
346 | 7.01k | } |
347 | | |
348 | 11.7k | op->mem.index_size = EXT_INDEX_LONG(extension) ? 1 : 0; |
349 | | |
350 | 11.7k | if (EXT_INDEX_SCALE(extension)) { |
351 | 8.09k | op->mem.scale = 1 << EXT_INDEX_SCALE(extension); |
352 | 8.09k | } |
353 | 11.7k | } |
354 | | |
355 | 19.2k | preindex = (extension & 7) > 0 && (extension & 7) < 4; |
356 | 19.2k | postindex = (extension & 7) > 4; |
357 | | |
358 | 19.2k | if (preindex) { |
359 | 6.88k | op->address_mode = is_pc ? M68K_AM_PC_MEMI_PRE_INDEX : M68K_AM_MEMI_PRE_INDEX; |
360 | 12.3k | } else if (postindex) { |
361 | 6.52k | op->address_mode = is_pc ? M68K_AM_PC_MEMI_POST_INDEX : M68K_AM_MEMI_POST_INDEX; |
362 | 6.52k | } |
363 | | |
364 | 19.2k | return; |
365 | 19.2k | } |
366 | | |
367 | 28.4k | op->mem.index_reg = (EXT_INDEX_AR(extension) ? M68K_REG_A0 : M68K_REG_D0) + EXT_INDEX_REGISTER(extension); |
368 | 28.4k | op->mem.index_size = EXT_INDEX_LONG(extension) ? 1 : 0; |
369 | | |
370 | 28.4k | if (EXT_8BIT_DISPLACEMENT(extension) == 0) { |
371 | 2.04k | if (is_pc) { |
372 | 153 | op->mem.base_reg = M68K_REG_PC; |
373 | 153 | op->address_mode = M68K_AM_PCI_INDEX_BASE_DISP; |
374 | 1.89k | } else { |
375 | 1.89k | op->mem.base_reg = M68K_REG_A0 + (instruction & 7); |
376 | 1.89k | } |
377 | 26.3k | } else { |
378 | 26.3k | if (is_pc) { |
379 | 1.52k | op->mem.base_reg = M68K_REG_PC; |
380 | 1.52k | op->address_mode = M68K_AM_PCI_INDEX_8_BIT_DISP; |
381 | 24.8k | } else { |
382 | 24.8k | op->mem.base_reg = M68K_REG_A0 + (instruction & 7); |
383 | 24.8k | op->address_mode = M68K_AM_AREGI_INDEX_8_BIT_DISP; |
384 | 24.8k | } |
385 | | |
386 | 26.3k | op->mem.disp = (int8_t)(extension & 0xff); |
387 | 26.3k | } |
388 | | |
389 | 28.4k | if (EXT_INDEX_SCALE(extension)) { |
390 | 18.0k | op->mem.scale = 1 << EXT_INDEX_SCALE(extension); |
391 | 18.0k | } |
392 | 28.4k | } |
393 | | |
394 | | /* Make string of effective address mode */ |
395 | | static void get_ea_mode_op(m68k_info *info, cs_m68k_op* op, uint32_t instruction, uint32_t size) |
396 | 431k | { |
397 | | // default to memory |
398 | | |
399 | 431k | op->type = M68K_OP_MEM; |
400 | | |
401 | 431k | switch (instruction & 0x3f) { |
402 | 131k | case 0x00: case 0x01: case 0x02: case 0x03: case 0x04: case 0x05: case 0x06: case 0x07: |
403 | | /* data register direct */ |
404 | 131k | op->address_mode = M68K_AM_REG_DIRECT_DATA; |
405 | 131k | op->reg = M68K_REG_D0 + (instruction & 7); |
406 | 131k | op->type = M68K_OP_REG; |
407 | 131k | break; |
408 | | |
409 | 17.7k | case 0x08: case 0x09: case 0x0a: case 0x0b: case 0x0c: case 0x0d: case 0x0e: case 0x0f: |
410 | | /* address register direct */ |
411 | 17.7k | op->address_mode = M68K_AM_REG_DIRECT_ADDR; |
412 | 17.7k | op->reg = M68K_REG_A0 + (instruction & 7); |
413 | 17.7k | op->type = M68K_OP_REG; |
414 | 17.7k | break; |
415 | | |
416 | 49.4k | case 0x10: case 0x11: case 0x12: case 0x13: case 0x14: case 0x15: case 0x16: case 0x17: |
417 | | /* address register indirect */ |
418 | 49.4k | op->address_mode = M68K_AM_REGI_ADDR; |
419 | 49.4k | op->reg = M68K_REG_A0 + (instruction & 7); |
420 | 49.4k | break; |
421 | | |
422 | 47.5k | case 0x18: case 0x19: case 0x1a: case 0x1b: case 0x1c: case 0x1d: case 0x1e: case 0x1f: |
423 | | /* address register indirect with postincrement */ |
424 | 47.5k | op->address_mode = M68K_AM_REGI_ADDR_POST_INC; |
425 | 47.5k | op->reg = M68K_REG_A0 + (instruction & 7); |
426 | 47.5k | break; |
427 | | |
428 | 83.7k | case 0x20: case 0x21: case 0x22: case 0x23: case 0x24: case 0x25: case 0x26: case 0x27: |
429 | | /* address register indirect with predecrement */ |
430 | 83.7k | op->address_mode = M68K_AM_REGI_ADDR_PRE_DEC; |
431 | 83.7k | op->reg = M68K_REG_A0 + (instruction & 7); |
432 | 83.7k | break; |
433 | | |
434 | 33.6k | case 0x28: case 0x29: case 0x2a: case 0x2b: case 0x2c: case 0x2d: case 0x2e: case 0x2f: |
435 | | /* address register indirect with displacement*/ |
436 | 33.6k | op->address_mode = M68K_AM_REGI_ADDR_DISP; |
437 | 33.6k | op->mem.base_reg = M68K_REG_A0 + (instruction & 7); |
438 | 33.6k | op->mem.disp = (int16_t)read_imm_16(info); |
439 | 33.6k | break; |
440 | | |
441 | 44.5k | case 0x30: case 0x31: case 0x32: case 0x33: case 0x34: case 0x35: case 0x36: case 0x37: |
442 | | /* address register indirect with index */ |
443 | 44.5k | get_with_index_address_mode(info, op, instruction, size, false); |
444 | 44.5k | break; |
445 | | |
446 | 7.42k | case 0x38: |
447 | | /* absolute short address */ |
448 | 7.42k | op->address_mode = M68K_AM_ABSOLUTE_DATA_SHORT; |
449 | 7.42k | op->imm = read_imm_16(info); |
450 | 7.42k | break; |
451 | | |
452 | 3.15k | case 0x39: |
453 | | /* absolute long address */ |
454 | 3.15k | op->address_mode = M68K_AM_ABSOLUTE_DATA_LONG; |
455 | 3.15k | op->imm = read_imm_32(info); |
456 | 3.15k | break; |
457 | | |
458 | 3.62k | case 0x3a: |
459 | | /* program counter with displacement */ |
460 | 3.62k | op->address_mode = M68K_AM_PCI_DISP; |
461 | 3.62k | op->mem.disp = (int16_t)read_imm_16(info); |
462 | 3.62k | break; |
463 | | |
464 | 3.09k | case 0x3b: |
465 | | /* program counter with index */ |
466 | 3.09k | get_with_index_address_mode(info, op, instruction, size, true); |
467 | 3.09k | break; |
468 | | |
469 | 3.79k | case 0x3c: |
470 | 3.79k | op->address_mode = M68K_AM_IMMEDIATE; |
471 | 3.79k | op->type = M68K_OP_IMM; |
472 | | |
473 | 3.79k | if (size == 1) |
474 | 773 | op->imm = read_imm_8(info) & 0xff; |
475 | 3.01k | else if (size == 2) |
476 | 1.34k | op->imm = read_imm_16(info) & 0xffff; |
477 | 1.67k | else if (size == 4) |
478 | 1.19k | op->imm = read_imm_32(info); |
479 | 475 | else |
480 | 475 | op->imm = read_imm_64(info); |
481 | | |
482 | 3.79k | break; |
483 | | |
484 | 1.72k | default: |
485 | 1.72k | break; |
486 | 431k | } |
487 | 431k | } |
488 | | |
489 | | static void set_insn_group(m68k_info *info, m68k_group_type group) |
490 | 115k | { |
491 | 115k | info->groups[info->groups_count++] = (uint8_t)group; |
492 | 115k | } |
493 | | |
494 | | static cs_m68k* build_init_op(m68k_info *info, int opcode, int count, int size) |
495 | 578k | { |
496 | 578k | cs_m68k* ext; |
497 | | |
498 | 578k | MCInst_setOpcode(info->inst, opcode); |
499 | | |
500 | 578k | ext = &info->extension; |
501 | | |
502 | 578k | ext->op_count = (uint8_t)count; |
503 | 578k | ext->op_size.type = M68K_SIZE_TYPE_CPU; |
504 | 578k | ext->op_size.cpu_size = size; |
505 | | |
506 | 578k | return ext; |
507 | 578k | } |
508 | | |
509 | | static void build_re_gen_1(m68k_info *info, bool isDreg, int opcode, uint8_t size) |
510 | 47.0k | { |
511 | 47.0k | cs_m68k_op* op0; |
512 | 47.0k | cs_m68k_op* op1; |
513 | 47.0k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
514 | | |
515 | 47.0k | op0 = &ext->operands[0]; |
516 | 47.0k | op1 = &ext->operands[1]; |
517 | | |
518 | 47.0k | if (isDreg) { |
519 | 47.0k | op0->address_mode = M68K_AM_REG_DIRECT_DATA; |
520 | 47.0k | op0->reg = M68K_REG_D0 + ((info->ir >> 9 ) & 7); |
521 | 47.0k | } else { |
522 | 0 | op0->address_mode = M68K_AM_REG_DIRECT_ADDR; |
523 | 0 | op0->reg = M68K_REG_A0 + ((info->ir >> 9 ) & 7); |
524 | 0 | } |
525 | | |
526 | 47.0k | get_ea_mode_op(info, op1, info->ir, size); |
527 | 47.0k | } |
528 | | |
529 | | static void build_re_1(m68k_info *info, int opcode, uint8_t size) |
530 | 47.0k | { |
531 | 47.0k | build_re_gen_1(info, true, opcode, size); |
532 | 47.0k | } |
533 | | |
534 | | static void build_er_gen_1(m68k_info *info, bool isDreg, int opcode, uint8_t size) |
535 | 52.7k | { |
536 | 52.7k | cs_m68k_op* op0; |
537 | 52.7k | cs_m68k_op* op1; |
538 | 52.7k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
539 | | |
540 | 52.7k | op0 = &ext->operands[0]; |
541 | 52.7k | op1 = &ext->operands[1]; |
542 | | |
543 | 52.7k | get_ea_mode_op(info, op0, info->ir, size); |
544 | | |
545 | 52.7k | if (isDreg) { |
546 | 52.7k | op1->address_mode = M68K_AM_REG_DIRECT_DATA; |
547 | 52.7k | op1->reg = M68K_REG_D0 + ((info->ir >> 9) & 7); |
548 | 52.7k | } else { |
549 | 0 | op1->address_mode = M68K_AM_REG_DIRECT_ADDR; |
550 | 0 | op1->reg = M68K_REG_A0 + ((info->ir >> 9) & 7); |
551 | 0 | } |
552 | 52.7k | } |
553 | | |
554 | | static void build_rr(m68k_info *info, int opcode, uint8_t size, int imm) |
555 | 10.6k | { |
556 | 10.6k | cs_m68k_op* op0; |
557 | 10.6k | cs_m68k_op* op1; |
558 | 10.6k | cs_m68k_op* op2; |
559 | 10.6k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
560 | | |
561 | 10.6k | op0 = &ext->operands[0]; |
562 | 10.6k | op1 = &ext->operands[1]; |
563 | 10.6k | op2 = &ext->operands[2]; |
564 | | |
565 | 10.6k | op0->address_mode = M68K_AM_REG_DIRECT_DATA; |
566 | 10.6k | op0->reg = M68K_REG_D0 + (info->ir & 7); |
567 | | |
568 | 10.6k | op1->address_mode = M68K_AM_REG_DIRECT_DATA; |
569 | 10.6k | op1->reg = M68K_REG_D0 + ((info->ir >> 9) & 7); |
570 | | |
571 | 10.6k | if (imm > 0) { |
572 | 2.95k | ext->op_count = 3; |
573 | 2.95k | op2->type = M68K_OP_IMM; |
574 | 2.95k | op2->address_mode = M68K_AM_IMMEDIATE; |
575 | 2.95k | op2->imm = imm; |
576 | 2.95k | } |
577 | 10.6k | } |
578 | | |
579 | | static void build_r(m68k_info *info, int opcode, uint8_t size) |
580 | 12.0k | { |
581 | 12.0k | cs_m68k_op* op0; |
582 | 12.0k | cs_m68k_op* op1; |
583 | 12.0k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
584 | | |
585 | 12.0k | op0 = &ext->operands[0]; |
586 | 12.0k | op1 = &ext->operands[1]; |
587 | | |
588 | 12.0k | op0->address_mode = M68K_AM_REG_DIRECT_DATA; |
589 | 12.0k | op0->reg = M68K_REG_D0 + ((info->ir >> 9) & 7); |
590 | | |
591 | 12.0k | op1->address_mode = M68K_AM_REG_DIRECT_DATA; |
592 | 12.0k | op1->reg = M68K_REG_D0 + (info->ir & 7); |
593 | 12.0k | } |
594 | | |
595 | | static void build_imm_ea(m68k_info *info, int opcode, uint8_t size, int imm) |
596 | 58.7k | { |
597 | 58.7k | cs_m68k_op* op0; |
598 | 58.7k | cs_m68k_op* op1; |
599 | 58.7k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
600 | | |
601 | 58.7k | op0 = &ext->operands[0]; |
602 | 58.7k | op1 = &ext->operands[1]; |
603 | | |
604 | 58.7k | op0->type = M68K_OP_IMM; |
605 | 58.7k | op0->address_mode = M68K_AM_IMMEDIATE; |
606 | 58.7k | op0->imm = imm; |
607 | | |
608 | 58.7k | get_ea_mode_op(info, op1, info->ir, size); |
609 | 58.7k | } |
610 | | |
611 | | static void build_3bit_d(m68k_info *info, int opcode, int size) |
612 | 14.1k | { |
613 | 14.1k | cs_m68k_op* op0; |
614 | 14.1k | cs_m68k_op* op1; |
615 | 14.1k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
616 | | |
617 | 14.1k | op0 = &ext->operands[0]; |
618 | 14.1k | op1 = &ext->operands[1]; |
619 | | |
620 | 14.1k | op0->type = M68K_OP_IMM; |
621 | 14.1k | op0->address_mode = M68K_AM_IMMEDIATE; |
622 | 14.1k | op0->imm = g_3bit_qdata_table[(info->ir >> 9) & 7]; |
623 | | |
624 | 14.1k | op1->address_mode = M68K_AM_REG_DIRECT_DATA; |
625 | 14.1k | op1->reg = M68K_REG_D0 + (info->ir & 7); |
626 | 14.1k | } |
627 | | |
628 | | static void build_3bit_ea(m68k_info *info, int opcode, int size) |
629 | 20.9k | { |
630 | 20.9k | cs_m68k_op* op0; |
631 | 20.9k | cs_m68k_op* op1; |
632 | 20.9k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
633 | | |
634 | 20.9k | op0 = &ext->operands[0]; |
635 | 20.9k | op1 = &ext->operands[1]; |
636 | | |
637 | 20.9k | op0->type = M68K_OP_IMM; |
638 | 20.9k | op0->address_mode = M68K_AM_IMMEDIATE; |
639 | 20.9k | op0->imm = g_3bit_qdata_table[(info->ir >> 9) & 7]; |
640 | | |
641 | 20.9k | get_ea_mode_op(info, op1, info->ir, size); |
642 | 20.9k | } |
643 | | |
644 | | static void build_mm(m68k_info *info, int opcode, uint8_t size, int imm) |
645 | 7.40k | { |
646 | 7.40k | cs_m68k_op* op0; |
647 | 7.40k | cs_m68k_op* op1; |
648 | 7.40k | cs_m68k_op* op2; |
649 | 7.40k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
650 | | |
651 | 7.40k | op0 = &ext->operands[0]; |
652 | 7.40k | op1 = &ext->operands[1]; |
653 | 7.40k | op2 = &ext->operands[2]; |
654 | | |
655 | 7.40k | op0->address_mode = M68K_AM_REGI_ADDR_PRE_DEC; |
656 | 7.40k | op0->reg = M68K_REG_A0 + (info->ir & 7); |
657 | | |
658 | 7.40k | op1->address_mode = M68K_AM_REGI_ADDR_PRE_DEC; |
659 | 7.40k | op1->reg = M68K_REG_A0 + ((info->ir >> 9) & 7); |
660 | | |
661 | 7.40k | if (imm > 0) { |
662 | 3.45k | ext->op_count = 3; |
663 | 3.45k | op2->type = M68K_OP_IMM; |
664 | 3.45k | op2->address_mode = M68K_AM_IMMEDIATE; |
665 | 3.45k | op2->imm = imm; |
666 | 3.45k | } |
667 | 7.40k | } |
668 | | |
669 | | static void build_ea(m68k_info *info, int opcode, uint8_t size) |
670 | 34.1k | { |
671 | 34.1k | cs_m68k* ext = build_init_op(info, opcode, 1, size); |
672 | 34.1k | get_ea_mode_op(info, &ext->operands[0], info->ir, size); |
673 | 34.1k | } |
674 | | |
675 | | static void build_ea_a(m68k_info *info, int opcode, uint8_t size) |
676 | 26.6k | { |
677 | 26.6k | cs_m68k_op* op0; |
678 | 26.6k | cs_m68k_op* op1; |
679 | 26.6k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
680 | | |
681 | 26.6k | op0 = &ext->operands[0]; |
682 | 26.6k | op1 = &ext->operands[1]; |
683 | | |
684 | 26.6k | get_ea_mode_op(info, op0, info->ir, size); |
685 | | |
686 | 26.6k | op1->address_mode = M68K_AM_REG_DIRECT_ADDR; |
687 | 26.6k | op1->reg = M68K_REG_A0 + ((info->ir >> 9) & 7); |
688 | 26.6k | } |
689 | | |
690 | | static void build_ea_ea(m68k_info *info, int opcode, int size) |
691 | 76.7k | { |
692 | 76.7k | cs_m68k_op* op0; |
693 | 76.7k | cs_m68k_op* op1; |
694 | 76.7k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
695 | | |
696 | 76.7k | op0 = &ext->operands[0]; |
697 | 76.7k | op1 = &ext->operands[1]; |
698 | | |
699 | 76.7k | get_ea_mode_op(info, op0, info->ir, size); |
700 | 76.7k | get_ea_mode_op(info, op1, (((info->ir>>9) & 7) | ((info->ir>>3) & 0x38)), size); |
701 | 76.7k | } |
702 | | |
703 | | static void build_pi_pi(m68k_info *info, int opcode, int size) |
704 | 2.53k | { |
705 | 2.53k | cs_m68k_op* op0; |
706 | 2.53k | cs_m68k_op* op1; |
707 | 2.53k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
708 | | |
709 | 2.53k | op0 = &ext->operands[0]; |
710 | 2.53k | op1 = &ext->operands[1]; |
711 | | |
712 | 2.53k | op0->address_mode = M68K_AM_REGI_ADDR_POST_INC; |
713 | 2.53k | op0->reg = M68K_REG_A0 + (info->ir & 7); |
714 | | |
715 | 2.53k | op1->address_mode = M68K_AM_REGI_ADDR_POST_INC; |
716 | 2.53k | op1->reg = M68K_REG_A0 + ((info->ir >> 9) & 7); |
717 | 2.53k | } |
718 | | |
719 | | static void build_imm_special_reg(m68k_info *info, int opcode, int imm, int size, m68k_reg reg) |
720 | 2.40k | { |
721 | 2.40k | cs_m68k_op* op0; |
722 | 2.40k | cs_m68k_op* op1; |
723 | 2.40k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
724 | | |
725 | 2.40k | op0 = &ext->operands[0]; |
726 | 2.40k | op1 = &ext->operands[1]; |
727 | | |
728 | 2.40k | op0->type = M68K_OP_IMM; |
729 | 2.40k | op0->address_mode = M68K_AM_IMMEDIATE; |
730 | 2.40k | op0->imm = imm; |
731 | | |
732 | 2.40k | op1->address_mode = M68K_AM_NONE; |
733 | 2.40k | op1->reg = reg; |
734 | 2.40k | } |
735 | | |
736 | | static void build_relative_branch(m68k_info *info, int opcode, int size, int displacement) |
737 | 45.5k | { |
738 | 45.5k | cs_m68k_op* op; |
739 | 45.5k | cs_m68k* ext = build_init_op(info, opcode, 1, size); |
740 | | |
741 | 45.5k | op = &ext->operands[0]; |
742 | | |
743 | 45.5k | op->type = M68K_OP_BR_DISP; |
744 | 45.5k | op->address_mode = M68K_AM_BRANCH_DISPLACEMENT; |
745 | 45.5k | op->br_disp.disp = displacement; |
746 | 45.5k | op->br_disp.disp_size = size; |
747 | | |
748 | 45.5k | set_insn_group(info, M68K_GRP_JUMP); |
749 | 45.5k | set_insn_group(info, M68K_GRP_BRANCH_RELATIVE); |
750 | 45.5k | } |
751 | | |
752 | | static void build_absolute_jump_with_immediate(m68k_info *info, int opcode, int size, int immediate) |
753 | 6.44k | { |
754 | 6.44k | cs_m68k_op* op; |
755 | 6.44k | cs_m68k* ext = build_init_op(info, opcode, 1, size); |
756 | | |
757 | 6.44k | op = &ext->operands[0]; |
758 | | |
759 | 6.44k | op->type = M68K_OP_IMM; |
760 | 6.44k | op->address_mode = M68K_AM_IMMEDIATE; |
761 | 6.44k | op->imm = immediate; |
762 | | |
763 | 6.44k | set_insn_group(info, M68K_GRP_JUMP); |
764 | 6.44k | } |
765 | | |
766 | | static void build_bcc(m68k_info *info, int size, int displacement) |
767 | 32.2k | { |
768 | 32.2k | build_relative_branch(info, s_branch_lut[(info->ir >> 8) & 0xf], size, displacement); |
769 | 32.2k | } |
770 | | |
771 | | static void build_trap(m68k_info *info, int size, int immediate) |
772 | 1.63k | { |
773 | 1.63k | build_absolute_jump_with_immediate(info, s_trap_lut[(info->ir >> 8) & 0xf], size, immediate); |
774 | 1.63k | } |
775 | | |
776 | | static void build_dbxx(m68k_info *info, int opcode, int size, int displacement) |
777 | 1.67k | { |
778 | 1.67k | cs_m68k_op* op0; |
779 | 1.67k | cs_m68k_op* op1; |
780 | 1.67k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
781 | | |
782 | 1.67k | op0 = &ext->operands[0]; |
783 | 1.67k | op1 = &ext->operands[1]; |
784 | | |
785 | 1.67k | op0->address_mode = M68K_AM_REG_DIRECT_DATA; |
786 | 1.67k | op0->reg = M68K_REG_D0 + (info->ir & 7); |
787 | | |
788 | 1.67k | op1->type = M68K_OP_BR_DISP; |
789 | 1.67k | op1->address_mode = M68K_AM_BRANCH_DISPLACEMENT; |
790 | 1.67k | op1->br_disp.disp = displacement; |
791 | 1.67k | op1->br_disp.disp_size = M68K_OP_BR_DISP_SIZE_LONG; |
792 | | |
793 | 1.67k | set_insn_group(info, M68K_GRP_JUMP); |
794 | 1.67k | set_insn_group(info, M68K_GRP_BRANCH_RELATIVE); |
795 | 1.67k | } |
796 | | |
797 | | static void build_dbcc(m68k_info *info, int size, int displacement) |
798 | 711 | { |
799 | 711 | build_dbxx(info, s_dbcc_lut[(info->ir >> 8) & 0xf], size, displacement); |
800 | 711 | } |
801 | | |
802 | | static void build_d_d_ea(m68k_info *info, int opcode, int size) |
803 | 577 | { |
804 | 577 | cs_m68k_op* op0; |
805 | 577 | cs_m68k_op* op1; |
806 | 577 | cs_m68k_op* op2; |
807 | 577 | uint32_t extension = read_imm_16(info); |
808 | 577 | cs_m68k* ext = build_init_op(info, opcode, 3, size); |
809 | | |
810 | 577 | op0 = &ext->operands[0]; |
811 | 577 | op1 = &ext->operands[1]; |
812 | 577 | op2 = &ext->operands[2]; |
813 | | |
814 | 577 | op0->address_mode = M68K_AM_REG_DIRECT_DATA; |
815 | 577 | op0->reg = M68K_REG_D0 + (extension & 7); |
816 | | |
817 | 577 | op1->address_mode = M68K_AM_REG_DIRECT_DATA; |
818 | 577 | op1->reg = M68K_REG_D0 + ((extension >> 6) & 7); |
819 | | |
820 | 577 | get_ea_mode_op(info, op2, info->ir, size); |
821 | 577 | } |
822 | | |
823 | | static void build_bitfield_ins(m68k_info *info, int opcode, int has_d_arg) |
824 | 1.80k | { |
825 | 1.80k | uint8_t offset; |
826 | 1.80k | uint8_t width; |
827 | 1.80k | cs_m68k_op* op_ea; |
828 | 1.80k | cs_m68k_op* op1; |
829 | 1.80k | cs_m68k* ext = build_init_op(info, opcode, 1, 0); |
830 | 1.80k | uint32_t extension = read_imm_16(info); |
831 | | |
832 | 1.80k | op_ea = &ext->operands[0]; |
833 | 1.80k | op1 = &ext->operands[1]; |
834 | | |
835 | 1.80k | if (BIT_B(extension)) |
836 | 1.23k | offset = (extension >> 6) & 7; |
837 | 572 | else |
838 | 572 | offset = (extension >> 6) & 31; |
839 | | |
840 | 1.80k | if (BIT_5(extension)) |
841 | 765 | width = extension & 7; |
842 | 1.04k | else |
843 | 1.04k | width = (uint8_t)g_5bit_data_table[extension & 31]; |
844 | | |
845 | 1.80k | if (has_d_arg) { |
846 | 843 | ext->op_count = 2; |
847 | 843 | op1->address_mode = M68K_AM_REG_DIRECT_DATA; |
848 | 843 | op1->reg = M68K_REG_D0 + ((extension >> 12) & 7); |
849 | 843 | } |
850 | | |
851 | 1.80k | get_ea_mode_op(info, op_ea, info->ir, 1); |
852 | | |
853 | 1.80k | op_ea->mem.bitfield = 1; |
854 | 1.80k | op_ea->mem.width = width; |
855 | 1.80k | op_ea->mem.offset = offset; |
856 | 1.80k | } |
857 | | |
858 | | static void build_d(m68k_info *info, int opcode, int size) |
859 | 1.00k | { |
860 | 1.00k | cs_m68k* ext = build_init_op(info, opcode, 1, size); |
861 | 1.00k | cs_m68k_op* op; |
862 | | |
863 | 1.00k | op = &ext->operands[0]; |
864 | | |
865 | 1.00k | op->address_mode = M68K_AM_REG_DIRECT_DATA; |
866 | 1.00k | op->reg = M68K_REG_D0 + (info->ir & 7); |
867 | 1.00k | } |
868 | | |
869 | | static uint16_t reverse_bits(uint32_t v) |
870 | 2.06k | { |
871 | 2.06k | uint32_t r = v; // r will be reversed bits of v; first get LSB of v |
872 | 2.06k | uint32_t s = 16 - 1; // extra shift needed at end |
873 | | |
874 | 22.8k | for (v >>= 1; v; v >>= 1) { |
875 | 20.7k | r <<= 1; |
876 | 20.7k | r |= v & 1; |
877 | 20.7k | s--; |
878 | 20.7k | } |
879 | | |
880 | 2.06k | return r <<= s; // shift when v's highest bits are zero |
881 | 2.06k | } |
882 | | |
883 | | static uint8_t reverse_bits_8(uint32_t v) |
884 | 1.78k | { |
885 | 1.78k | uint32_t r = v; // r will be reversed bits of v; first get LSB of v |
886 | 1.78k | uint32_t s = 8 - 1; // extra shift needed at end |
887 | | |
888 | 9.32k | for (v >>= 1; v; v >>= 1) { |
889 | 7.53k | r <<= 1; |
890 | 7.53k | r |= v & 1; |
891 | 7.53k | s--; |
892 | 7.53k | } |
893 | | |
894 | 1.78k | return r <<= s; // shift when v's highest bits are zero |
895 | 1.78k | } |
896 | | |
897 | | |
898 | | static void build_movem_re(m68k_info *info, int opcode, int size) |
899 | 4.55k | { |
900 | 4.55k | cs_m68k_op* op0; |
901 | 4.55k | cs_m68k_op* op1; |
902 | 4.55k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
903 | | |
904 | 4.55k | op0 = &ext->operands[0]; |
905 | 4.55k | op1 = &ext->operands[1]; |
906 | | |
907 | 4.55k | op0->type = M68K_OP_REG_BITS; |
908 | 4.55k | op0->register_bits = read_imm_16(info); |
909 | | |
910 | 4.55k | get_ea_mode_op(info, op1, info->ir, size); |
911 | | |
912 | 4.55k | if (op1->address_mode == M68K_AM_REGI_ADDR_PRE_DEC) |
913 | 2.06k | op0->register_bits = reverse_bits(op0->register_bits); |
914 | 4.55k | } |
915 | | |
916 | | static void build_movem_er(m68k_info *info, int opcode, int size) |
917 | 2.58k | { |
918 | 2.58k | cs_m68k_op* op0; |
919 | 2.58k | cs_m68k_op* op1; |
920 | 2.58k | cs_m68k* ext = build_init_op(info, opcode, 2, size); |
921 | | |
922 | 2.58k | op0 = &ext->operands[0]; |
923 | 2.58k | op1 = &ext->operands[1]; |
924 | | |
925 | 2.58k | op1->type = M68K_OP_REG_BITS; |
926 | 2.58k | op1->register_bits = read_imm_16(info); |
927 | | |
928 | 2.58k | get_ea_mode_op(info, op0, info->ir, size); |
929 | 2.58k | } |
930 | | |
931 | | static void build_imm(m68k_info *info, int opcode, int data) |
932 | 80.9k | { |
933 | 80.9k | cs_m68k_op* op; |
934 | 80.9k | cs_m68k* ext = build_init_op(info, opcode, 1, 0); |
935 | | |
936 | 80.9k | MCInst_setOpcode(info->inst, opcode); |
937 | | |
938 | 80.9k | op = &ext->operands[0]; |
939 | | |
940 | 80.9k | op->type = M68K_OP_IMM; |
941 | 80.9k | op->address_mode = M68K_AM_IMMEDIATE; |
942 | 80.9k | op->imm = data; |
943 | 80.9k | } |
944 | | |
945 | | static void build_illegal(m68k_info *info, int data) |
946 | 258 | { |
947 | 258 | build_imm(info, M68K_INS_ILLEGAL, data); |
948 | 258 | } |
949 | | |
950 | | static void build_invalid(m68k_info *info, int data) |
951 | 80.6k | { |
952 | 80.6k | build_imm(info, M68K_INS_INVALID, data); |
953 | 80.6k | } |
954 | | |
955 | | static void build_cas2(m68k_info *info, int size) |
956 | 1.99k | { |
957 | 1.99k | uint32_t word3; |
958 | 1.99k | uint32_t extension; |
959 | 1.99k | cs_m68k_op* op0; |
960 | 1.99k | cs_m68k_op* op1; |
961 | 1.99k | cs_m68k_op* op2; |
962 | 1.99k | cs_m68k* ext = build_init_op(info, M68K_INS_CAS2, 3, size); |
963 | 1.99k | int reg_0, reg_1; |
964 | | |
965 | | /* cas2 is the only 3 words instruction, word2 and word3 have the same motif bits to check */ |
966 | 1.99k | word3 = peek_imm_32(info) & 0xffff; |
967 | 1.99k | if (!instruction_is_valid(info, word3)) |
968 | 261 | return; |
969 | | |
970 | 1.73k | op0 = &ext->operands[0]; |
971 | 1.73k | op1 = &ext->operands[1]; |
972 | 1.73k | op2 = &ext->operands[2]; |
973 | | |
974 | 1.73k | extension = read_imm_32(info); |
975 | | |
976 | 1.73k | op0->address_mode = M68K_AM_NONE; |
977 | 1.73k | op0->type = M68K_OP_REG_PAIR; |
978 | 1.73k | op0->reg_pair.reg_0 = ((extension >> 16) & 7) + M68K_REG_D0; |
979 | 1.73k | op0->reg_pair.reg_1 = (extension & 7) + M68K_REG_D0; |
980 | | |
981 | 1.73k | op1->address_mode = M68K_AM_NONE; |
982 | 1.73k | op1->type = M68K_OP_REG_PAIR; |
983 | 1.73k | op1->reg_pair.reg_0 = ((extension >> 22) & 7) + M68K_REG_D0; |
984 | 1.73k | op1->reg_pair.reg_1 = ((extension >> 6) & 7) + M68K_REG_D0; |
985 | | |
986 | 1.73k | reg_0 = (extension >> 28) & 7; |
987 | 1.73k | reg_1 = (extension >> 12) & 7; |
988 | | |
989 | 1.73k | op2->address_mode = M68K_AM_NONE; |
990 | 1.73k | op2->type = M68K_OP_REG_PAIR; |
991 | 1.73k | op2->reg_pair.reg_0 = reg_0 + (BIT_1F(extension) ? 8 : 0) + M68K_REG_D0; |
992 | 1.73k | op2->reg_pair.reg_1 = reg_1 + (BIT_F(extension) ? 8 : 0) + M68K_REG_D0; |
993 | 1.73k | } |
994 | | |
995 | | static void build_chk2_cmp2(m68k_info *info, int size) |
996 | 549 | { |
997 | 549 | cs_m68k_op* op0; |
998 | 549 | cs_m68k_op* op1; |
999 | 549 | cs_m68k* ext = build_init_op(info, M68K_INS_CHK2, 2, size); |
1000 | | |
1001 | 549 | uint32_t extension = read_imm_16(info); |
1002 | | |
1003 | 549 | if (BIT_B(extension)) |
1004 | 156 | MCInst_setOpcode(info->inst, M68K_INS_CHK2); |
1005 | 393 | else |
1006 | 393 | MCInst_setOpcode(info->inst, M68K_INS_CMP2); |
1007 | | |
1008 | 549 | op0 = &ext->operands[0]; |
1009 | 549 | op1 = &ext->operands[1]; |
1010 | | |
1011 | 549 | get_ea_mode_op(info, op0, info->ir, size); |
1012 | | |
1013 | 549 | op1->address_mode = M68K_AM_NONE; |
1014 | 549 | op1->type = M68K_OP_REG; |
1015 | 549 | op1->reg = (BIT_F(extension) ? M68K_REG_A0 : M68K_REG_D0) + ((extension >> 12) & 7); |
1016 | 549 | } |
1017 | | |
1018 | | static void build_move16(m68k_info *info, int data[2], int modes[2]) |
1019 | 1.34k | { |
1020 | 1.34k | cs_m68k* ext = build_init_op(info, M68K_INS_MOVE16, 2, 0); |
1021 | 1.34k | int i; |
1022 | | |
1023 | 4.04k | for (i = 0; i < 2; ++i) { |
1024 | 2.69k | cs_m68k_op* op = &ext->operands[i]; |
1025 | 2.69k | const int d = data[i]; |
1026 | 2.69k | const int m = modes[i]; |
1027 | | |
1028 | 2.69k | op->type = M68K_OP_MEM; |
1029 | | |
1030 | 2.69k | if (m == M68K_AM_REGI_ADDR_POST_INC || m == M68K_AM_REG_DIRECT_ADDR) { |
1031 | 1.38k | op->address_mode = m; |
1032 | 1.38k | op->reg = M68K_REG_A0 + d; |
1033 | 1.38k | } else { |
1034 | 1.31k | op->address_mode = m; |
1035 | 1.31k | op->imm = d; |
1036 | 1.31k | } |
1037 | 2.69k | } |
1038 | 1.34k | } |
1039 | | |
1040 | | static void build_link(m68k_info *info, int disp, int size) |
1041 | 478 | { |
1042 | 478 | cs_m68k_op* op0; |
1043 | 478 | cs_m68k_op* op1; |
1044 | 478 | cs_m68k* ext = build_init_op(info, M68K_INS_LINK, 2, size); |
1045 | | |
1046 | 478 | op0 = &ext->operands[0]; |
1047 | 478 | op1 = &ext->operands[1]; |
1048 | | |
1049 | 478 | op0->address_mode = M68K_AM_NONE; |
1050 | 478 | op0->reg = M68K_REG_A0 + (info->ir & 7); |
1051 | | |
1052 | 478 | op1->address_mode = M68K_AM_IMMEDIATE; |
1053 | 478 | op1->type = M68K_OP_IMM; |
1054 | 478 | op1->imm = disp; |
1055 | 478 | } |
1056 | | |
1057 | | static void build_cpush_cinv(m68k_info *info, int op_offset) |
1058 | 2.90k | { |
1059 | 2.90k | cs_m68k_op* op0; |
1060 | 2.90k | cs_m68k_op* op1; |
1061 | 2.90k | cs_m68k* ext = build_init_op(info, M68K_INS_INVALID, 2, 0); |
1062 | | |
1063 | 2.90k | switch ((info->ir >> 3) & 3) { // scope |
1064 | | // Invalid |
1065 | 729 | case 0: |
1066 | 729 | d68000_invalid(info); |
1067 | 729 | return; |
1068 | | // Line |
1069 | 246 | case 1: |
1070 | 246 | MCInst_setOpcode(info->inst, op_offset + 0); |
1071 | 246 | break; |
1072 | | // Page |
1073 | 1.66k | case 2: |
1074 | 1.66k | MCInst_setOpcode(info->inst, op_offset + 1); |
1075 | 1.66k | break; |
1076 | | // All |
1077 | 267 | case 3: |
1078 | 267 | ext->op_count = 1; |
1079 | 267 | MCInst_setOpcode(info->inst, op_offset + 2); |
1080 | 267 | break; |
1081 | 2.90k | } |
1082 | | |
1083 | 2.17k | op0 = &ext->operands[0]; |
1084 | 2.17k | op1 = &ext->operands[1]; |
1085 | | |
1086 | 2.17k | op0->address_mode = M68K_AM_IMMEDIATE; |
1087 | 2.17k | op0->type = M68K_OP_IMM; |
1088 | 2.17k | op0->imm = (info->ir >> 6) & 3; |
1089 | | |
1090 | 2.17k | op1->type = M68K_OP_MEM; |
1091 | 2.17k | op1->address_mode = M68K_AM_REG_DIRECT_ADDR; |
1092 | 2.17k | op1->imm = M68K_REG_A0 + (info->ir & 7); |
1093 | 2.17k | } |
1094 | | |
1095 | | static void build_movep_re(m68k_info *info, int size) |
1096 | 1.26k | { |
1097 | 1.26k | cs_m68k_op* op0; |
1098 | 1.26k | cs_m68k_op* op1; |
1099 | 1.26k | cs_m68k* ext = build_init_op(info, M68K_INS_MOVEP, 2, size); |
1100 | | |
1101 | 1.26k | op0 = &ext->operands[0]; |
1102 | 1.26k | op1 = &ext->operands[1]; |
1103 | | |
1104 | 1.26k | op0->reg = M68K_REG_D0 + ((info->ir >> 9) & 7); |
1105 | | |
1106 | 1.26k | op1->address_mode = M68K_AM_REGI_ADDR_DISP; |
1107 | 1.26k | op1->type = M68K_OP_MEM; |
1108 | 1.26k | op1->mem.base_reg = M68K_REG_A0 + (info->ir & 7); |
1109 | 1.26k | op1->mem.disp = (int16_t)read_imm_16(info); |
1110 | 1.26k | } |
1111 | | |
1112 | | static void build_movep_er(m68k_info *info, int size) |
1113 | 2.73k | { |
1114 | 2.73k | cs_m68k_op* op0; |
1115 | 2.73k | cs_m68k_op* op1; |
1116 | 2.73k | cs_m68k* ext = build_init_op(info, M68K_INS_MOVEP, 2, size); |
1117 | | |
1118 | 2.73k | op0 = &ext->operands[0]; |
1119 | 2.73k | op1 = &ext->operands[1]; |
1120 | | |
1121 | 2.73k | op0->address_mode = M68K_AM_REGI_ADDR_DISP; |
1122 | 2.73k | op0->type = M68K_OP_MEM; |
1123 | 2.73k | op0->mem.base_reg = M68K_REG_A0 + (info->ir & 7); |
1124 | 2.73k | op0->mem.disp = (int16_t)read_imm_16(info); |
1125 | | |
1126 | 2.73k | op1->reg = M68K_REG_D0 + ((info->ir >> 9) & 7); |
1127 | 2.73k | } |
1128 | | |
1129 | | static void build_moves(m68k_info *info, int size) |
1130 | 1.67k | { |
1131 | 1.67k | cs_m68k_op* op0; |
1132 | 1.67k | cs_m68k_op* op1; |
1133 | 1.67k | cs_m68k* ext = build_init_op(info, M68K_INS_MOVES, 2, size); |
1134 | 1.67k | uint32_t extension = read_imm_16(info); |
1135 | | |
1136 | 1.67k | op0 = &ext->operands[0]; |
1137 | 1.67k | op1 = &ext->operands[1]; |
1138 | | |
1139 | 1.67k | if (BIT_B(extension)) { |
1140 | 794 | op0->reg = (BIT_F(extension) ? M68K_REG_A0 : M68K_REG_D0) + ((extension >> 12) & 7); |
1141 | 794 | get_ea_mode_op(info, op1, info->ir, size); |
1142 | 882 | } else { |
1143 | 882 | get_ea_mode_op(info, op0, info->ir, size); |
1144 | 882 | op1->reg = (BIT_F(extension) ? M68K_REG_A0 : M68K_REG_D0) + ((extension >> 12) & 7); |
1145 | 882 | } |
1146 | 1.67k | } |
1147 | | |
1148 | | static void build_er_1(m68k_info *info, int opcode, uint8_t size) |
1149 | 52.7k | { |
1150 | 52.7k | build_er_gen_1(info, true, opcode, size); |
1151 | 52.7k | } |
1152 | | |
1153 | | /* ======================================================================== */ |
1154 | | /* ========================= INSTRUCTION HANDLERS ========================= */ |
1155 | | /* ======================================================================== */ |
1156 | | /* Instruction handler function names follow this convention: |
1157 | | * |
1158 | | * d68000_NAME_EXTENSIONS(void) |
1159 | | * where NAME is the name of the opcode it handles and EXTENSIONS are any |
1160 | | * extensions for special instances of that opcode. |
1161 | | * |
1162 | | * Examples: |
1163 | | * d68000_add_er_8(): add opcode, from effective address to register, |
1164 | | * size = byte |
1165 | | * |
1166 | | * d68000_asr_s_8(): arithmetic shift right, static count, size = byte |
1167 | | * |
1168 | | * |
1169 | | * Common extensions: |
1170 | | * 8 : size = byte |
1171 | | * 16 : size = word |
1172 | | * 32 : size = long |
1173 | | * rr : register to register |
1174 | | * mm : memory to memory |
1175 | | * r : register |
1176 | | * s : static |
1177 | | * er : effective address -> register |
1178 | | * re : register -> effective address |
1179 | | * ea : using effective address mode of operation |
1180 | | * d : data register direct |
1181 | | * a : address register direct |
1182 | | * ai : address register indirect |
1183 | | * pi : address register indirect with postincrement |
1184 | | * pd : address register indirect with predecrement |
1185 | | * di : address register indirect with displacement |
1186 | | * ix : address register indirect with index |
1187 | | * aw : absolute word |
1188 | | * al : absolute long |
1189 | | */ |
1190 | | |
1191 | | |
1192 | | static void d68000_invalid(m68k_info *info) |
1193 | 34.1k | { |
1194 | 34.1k | build_invalid(info, info->ir); |
1195 | 34.1k | } |
1196 | | |
1197 | | static void d68000_illegal(m68k_info *info) |
1198 | 258 | { |
1199 | 258 | build_illegal(info, info->ir); |
1200 | 258 | } |
1201 | | |
1202 | | static void d68000_1010(m68k_info *info) |
1203 | 20.2k | { |
1204 | 20.2k | build_invalid(info, info->ir); |
1205 | 20.2k | } |
1206 | | |
1207 | | static void d68000_1111(m68k_info *info) |
1208 | 26.3k | { |
1209 | 26.3k | build_invalid(info, info->ir); |
1210 | 26.3k | } |
1211 | | |
1212 | | static void d68000_abcd_rr(m68k_info *info) |
1213 | 663 | { |
1214 | 663 | build_rr(info, M68K_INS_ABCD, 1, 0); |
1215 | 663 | } |
1216 | | |
1217 | | static void d68000_abcd_mm(m68k_info *info) |
1218 | 308 | { |
1219 | 308 | build_mm(info, M68K_INS_ABCD, 1, 0); |
1220 | 308 | } |
1221 | | |
1222 | | static void d68000_add_er_8(m68k_info *info) |
1223 | 675 | { |
1224 | 675 | build_er_1(info, M68K_INS_ADD, 1); |
1225 | 675 | } |
1226 | | |
1227 | | static void d68000_add_er_16(m68k_info *info) |
1228 | 1.00k | { |
1229 | 1.00k | build_er_1(info, M68K_INS_ADD, 2); |
1230 | 1.00k | } |
1231 | | |
1232 | | static void d68000_add_er_32(m68k_info *info) |
1233 | 807 | { |
1234 | 807 | build_er_1(info, M68K_INS_ADD, 4); |
1235 | 807 | } |
1236 | | |
1237 | | static void d68000_add_re_8(m68k_info *info) |
1238 | 780 | { |
1239 | 780 | build_re_1(info, M68K_INS_ADD, 1); |
1240 | 780 | } |
1241 | | |
1242 | | static void d68000_add_re_16(m68k_info *info) |
1243 | 948 | { |
1244 | 948 | build_re_1(info, M68K_INS_ADD, 2); |
1245 | 948 | } |
1246 | | |
1247 | | static void d68000_add_re_32(m68k_info *info) |
1248 | 757 | { |
1249 | 757 | build_re_1(info, M68K_INS_ADD, 4); |
1250 | 757 | } |
1251 | | |
1252 | | static void d68000_adda_16(m68k_info *info) |
1253 | 3.56k | { |
1254 | 3.56k | build_ea_a(info, M68K_INS_ADDA, 2); |
1255 | 3.56k | } |
1256 | | |
1257 | | static void d68000_adda_32(m68k_info *info) |
1258 | 4.73k | { |
1259 | 4.73k | build_ea_a(info, M68K_INS_ADDA, 4); |
1260 | 4.73k | } |
1261 | | |
1262 | | static void d68000_addi_8(m68k_info *info) |
1263 | 1.36k | { |
1264 | 1.36k | build_imm_ea(info, M68K_INS_ADDI, 1, read_imm_8(info)); |
1265 | 1.36k | } |
1266 | | |
1267 | | static void d68000_addi_16(m68k_info *info) |
1268 | 379 | { |
1269 | 379 | build_imm_ea(info, M68K_INS_ADDI, 2, read_imm_16(info)); |
1270 | 379 | } |
1271 | | |
1272 | | static void d68000_addi_32(m68k_info *info) |
1273 | 999 | { |
1274 | 999 | build_imm_ea(info, M68K_INS_ADDI, 4, read_imm_32(info)); |
1275 | 999 | } |
1276 | | |
1277 | | static void d68000_addq_8(m68k_info *info) |
1278 | 1.64k | { |
1279 | 1.64k | build_3bit_ea(info, M68K_INS_ADDQ, 1); |
1280 | 1.64k | } |
1281 | | |
1282 | | static void d68000_addq_16(m68k_info *info) |
1283 | 8.92k | { |
1284 | 8.92k | build_3bit_ea(info, M68K_INS_ADDQ, 2); |
1285 | 8.92k | } |
1286 | | |
1287 | | static void d68000_addq_32(m68k_info *info) |
1288 | 1.60k | { |
1289 | 1.60k | build_3bit_ea(info, M68K_INS_ADDQ, 4); |
1290 | 1.60k | } |
1291 | | |
1292 | | static void d68000_addx_rr_8(m68k_info *info) |
1293 | 614 | { |
1294 | 614 | build_rr(info, M68K_INS_ADDX, 1, 0); |
1295 | 614 | } |
1296 | | |
1297 | | static void d68000_addx_rr_16(m68k_info *info) |
1298 | 875 | { |
1299 | 875 | build_rr(info, M68K_INS_ADDX, 2, 0); |
1300 | 875 | } |
1301 | | |
1302 | | static void d68000_addx_rr_32(m68k_info *info) |
1303 | 336 | { |
1304 | 336 | build_rr(info, M68K_INS_ADDX, 4, 0); |
1305 | 336 | } |
1306 | | |
1307 | | static void d68000_addx_mm_8(m68k_info *info) |
1308 | 856 | { |
1309 | 856 | build_mm(info, M68K_INS_ADDX, 1, 0); |
1310 | 856 | } |
1311 | | |
1312 | | static void d68000_addx_mm_16(m68k_info *info) |
1313 | 572 | { |
1314 | 572 | build_mm(info, M68K_INS_ADDX, 2, 0); |
1315 | 572 | } |
1316 | | |
1317 | | static void d68000_addx_mm_32(m68k_info *info) |
1318 | 443 | { |
1319 | 443 | build_mm(info, M68K_INS_ADDX, 4, 0); |
1320 | 443 | } |
1321 | | |
1322 | | static void d68000_and_er_8(m68k_info *info) |
1323 | 918 | { |
1324 | 918 | build_er_1(info, M68K_INS_AND, 1); |
1325 | 918 | } |
1326 | | |
1327 | | static void d68000_and_er_16(m68k_info *info) |
1328 | 1.34k | { |
1329 | 1.34k | build_er_1(info, M68K_INS_AND, 2); |
1330 | 1.34k | } |
1331 | | |
1332 | | static void d68000_and_er_32(m68k_info *info) |
1333 | 1.15k | { |
1334 | 1.15k | build_er_1(info, M68K_INS_AND, 4); |
1335 | 1.15k | } |
1336 | | |
1337 | | static void d68000_and_re_8(m68k_info *info) |
1338 | 750 | { |
1339 | 750 | build_re_1(info, M68K_INS_AND, 1); |
1340 | 750 | } |
1341 | | |
1342 | | static void d68000_and_re_16(m68k_info *info) |
1343 | 1.08k | { |
1344 | 1.08k | build_re_1(info, M68K_INS_AND, 2); |
1345 | 1.08k | } |
1346 | | |
1347 | | static void d68000_and_re_32(m68k_info *info) |
1348 | 848 | { |
1349 | 848 | build_re_1(info, M68K_INS_AND, 4); |
1350 | 848 | } |
1351 | | |
1352 | | static void d68000_andi_8(m68k_info *info) |
1353 | 1.00k | { |
1354 | 1.00k | build_imm_ea(info, M68K_INS_ANDI, 1, read_imm_8(info)); |
1355 | 1.00k | } |
1356 | | |
1357 | | static void d68000_andi_16(m68k_info *info) |
1358 | 287 | { |
1359 | 287 | build_imm_ea(info, M68K_INS_ANDI, 2, read_imm_16(info)); |
1360 | 287 | } |
1361 | | |
1362 | | static void d68000_andi_32(m68k_info *info) |
1363 | 537 | { |
1364 | 537 | build_imm_ea(info, M68K_INS_ANDI, 4, read_imm_32(info)); |
1365 | 537 | } |
1366 | | |
1367 | | static void d68000_andi_to_ccr(m68k_info *info) |
1368 | 236 | { |
1369 | 236 | build_imm_special_reg(info, M68K_INS_ANDI, read_imm_8(info), 1, M68K_REG_CCR); |
1370 | 236 | } |
1371 | | |
1372 | | static void d68000_andi_to_sr(m68k_info *info) |
1373 | 306 | { |
1374 | 306 | build_imm_special_reg(info, M68K_INS_ANDI, read_imm_16(info), 2, M68K_REG_SR); |
1375 | 306 | } |
1376 | | |
1377 | | static void d68000_asr_s_8(m68k_info *info) |
1378 | 1.26k | { |
1379 | 1.26k | build_3bit_d(info, M68K_INS_ASR, 1); |
1380 | 1.26k | } |
1381 | | |
1382 | | static void d68000_asr_s_16(m68k_info *info) |
1383 | 618 | { |
1384 | 618 | build_3bit_d(info, M68K_INS_ASR, 2); |
1385 | 618 | } |
1386 | | |
1387 | | static void d68000_asr_s_32(m68k_info *info) |
1388 | 552 | { |
1389 | 552 | build_3bit_d(info, M68K_INS_ASR, 4); |
1390 | 552 | } |
1391 | | |
1392 | | static void d68000_asr_r_8(m68k_info *info) |
1393 | 535 | { |
1394 | 535 | build_r(info, M68K_INS_ASR, 1); |
1395 | 535 | } |
1396 | | |
1397 | | static void d68000_asr_r_16(m68k_info *info) |
1398 | 479 | { |
1399 | 479 | build_r(info, M68K_INS_ASR, 2); |
1400 | 479 | } |
1401 | | |
1402 | | static void d68000_asr_r_32(m68k_info *info) |
1403 | 472 | { |
1404 | 472 | build_r(info, M68K_INS_ASR, 4); |
1405 | 472 | } |
1406 | | |
1407 | | static void d68000_asr_ea(m68k_info *info) |
1408 | 2.46k | { |
1409 | 2.46k | build_ea(info, M68K_INS_ASR, 2); |
1410 | 2.46k | } |
1411 | | |
1412 | | static void d68000_asl_s_8(m68k_info *info) |
1413 | 951 | { |
1414 | 951 | build_3bit_d(info, M68K_INS_ASL, 1); |
1415 | 951 | } |
1416 | | |
1417 | | static void d68000_asl_s_16(m68k_info *info) |
1418 | 287 | { |
1419 | 287 | build_3bit_d(info, M68K_INS_ASL, 2); |
1420 | 287 | } |
1421 | | |
1422 | | static void d68000_asl_s_32(m68k_info *info) |
1423 | 496 | { |
1424 | 496 | build_3bit_d(info, M68K_INS_ASL, 4); |
1425 | 496 | } |
1426 | | |
1427 | | static void d68000_asl_r_8(m68k_info *info) |
1428 | 1.45k | { |
1429 | 1.45k | build_r(info, M68K_INS_ASL, 1); |
1430 | 1.45k | } |
1431 | | |
1432 | | static void d68000_asl_r_16(m68k_info *info) |
1433 | 871 | { |
1434 | 871 | build_r(info, M68K_INS_ASL, 2); |
1435 | 871 | } |
1436 | | |
1437 | | static void d68000_asl_r_32(m68k_info *info) |
1438 | 435 | { |
1439 | 435 | build_r(info, M68K_INS_ASL, 4); |
1440 | 435 | } |
1441 | | |
1442 | | static void d68000_asl_ea(m68k_info *info) |
1443 | 1.09k | { |
1444 | 1.09k | build_ea(info, M68K_INS_ASL, 2); |
1445 | 1.09k | } |
1446 | | |
1447 | | static void d68000_bcc_8(m68k_info *info) |
1448 | 30.4k | { |
1449 | 30.4k | build_bcc(info, 1, make_int_8(info->ir)); |
1450 | 30.4k | } |
1451 | | |
1452 | | static void d68000_bcc_16(m68k_info *info) |
1453 | 1.43k | { |
1454 | 1.43k | build_bcc(info, 2, make_int_16(read_imm_16(info))); |
1455 | 1.43k | } |
1456 | | |
1457 | | static void d68020_bcc_32(m68k_info *info) |
1458 | 790 | { |
1459 | 790 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1460 | 389 | build_bcc(info, 4, read_imm_32(info)); |
1461 | 389 | } |
1462 | | |
1463 | | static void d68000_bchg_r(m68k_info *info) |
1464 | 4.48k | { |
1465 | 4.48k | build_re_1(info, M68K_INS_BCHG, 1); |
1466 | 4.48k | } |
1467 | | |
1468 | | static void d68000_bchg_s(m68k_info *info) |
1469 | 63 | { |
1470 | 63 | build_imm_ea(info, M68K_INS_BCHG, 1, read_imm_8(info)); |
1471 | 63 | } |
1472 | | |
1473 | | static void d68000_bclr_r(m68k_info *info) |
1474 | 2.73k | { |
1475 | 2.73k | build_re_1(info, M68K_INS_BCLR, 1); |
1476 | 2.73k | } |
1477 | | |
1478 | | static void d68000_bclr_s(m68k_info *info) |
1479 | 89 | { |
1480 | 89 | build_imm_ea(info, M68K_INS_BCLR, 1, read_imm_8(info)); |
1481 | 89 | } |
1482 | | |
1483 | | static void d68010_bkpt(m68k_info *info) |
1484 | 3.19k | { |
1485 | 3.19k | LIMIT_CPU_TYPES(info, M68010_PLUS); |
1486 | 1.98k | build_absolute_jump_with_immediate(info, M68K_INS_BKPT, 0, info->ir & 7); |
1487 | 1.98k | } |
1488 | | |
1489 | | static void d68020_bfchg(m68k_info *info) |
1490 | 338 | { |
1491 | 338 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1492 | 211 | build_bitfield_ins(info, M68K_INS_BFCHG, false); |
1493 | 211 | } |
1494 | | |
1495 | | |
1496 | | static void d68020_bfclr(m68k_info *info) |
1497 | 582 | { |
1498 | 582 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1499 | 408 | build_bitfield_ins(info, M68K_INS_BFCLR, false); |
1500 | 408 | } |
1501 | | |
1502 | | static void d68020_bfexts(m68k_info *info) |
1503 | 439 | { |
1504 | 439 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1505 | 147 | build_bitfield_ins(info, M68K_INS_BFEXTS, true); |
1506 | 147 | } |
1507 | | |
1508 | | static void d68020_bfextu(m68k_info *info) |
1509 | 322 | { |
1510 | 322 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1511 | 207 | build_bitfield_ins(info, M68K_INS_BFEXTU, true); |
1512 | 207 | } |
1513 | | |
1514 | | static void d68020_bfffo(m68k_info *info) |
1515 | 432 | { |
1516 | 432 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1517 | 272 | build_bitfield_ins(info, M68K_INS_BFFFO, true); |
1518 | 272 | } |
1519 | | |
1520 | | static void d68020_bfins(m68k_info *info) |
1521 | 381 | { |
1522 | 381 | cs_m68k* ext = &info->extension; |
1523 | 381 | cs_m68k_op temp; |
1524 | | |
1525 | 381 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1526 | 217 | build_bitfield_ins(info, M68K_INS_BFINS, true); |
1527 | | |
1528 | | // a bit hacky but we need to flip the args on only this instruction |
1529 | | |
1530 | 217 | temp = ext->operands[0]; |
1531 | 217 | ext->operands[0] = ext->operands[1]; |
1532 | 217 | ext->operands[1] = temp; |
1533 | 217 | } |
1534 | | |
1535 | | static void d68020_bfset(m68k_info *info) |
1536 | 556 | { |
1537 | 556 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1538 | 257 | build_bitfield_ins(info, M68K_INS_BFSET, false); |
1539 | 257 | } |
1540 | | |
1541 | | static void d68020_bftst(m68k_info *info) |
1542 | 88 | { |
1543 | 88 | build_bitfield_ins(info, M68K_INS_BFTST, false); |
1544 | 88 | } |
1545 | | |
1546 | | static void d68000_bra_8(m68k_info *info) |
1547 | 4.04k | { |
1548 | 4.04k | build_relative_branch(info, M68K_INS_BRA, 1, make_int_8(info->ir)); |
1549 | 4.04k | } |
1550 | | |
1551 | | static void d68000_bra_16(m68k_info *info) |
1552 | 392 | { |
1553 | 392 | build_relative_branch(info, M68K_INS_BRA, 2, make_int_16(read_imm_16(info))); |
1554 | 392 | } |
1555 | | |
1556 | | static void d68020_bra_32(m68k_info *info) |
1557 | 723 | { |
1558 | 723 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1559 | 479 | build_relative_branch(info, M68K_INS_BRA, 4, read_imm_32(info)); |
1560 | 479 | } |
1561 | | |
1562 | | static void d68000_bset_r(m68k_info *info) |
1563 | 5.11k | { |
1564 | 5.11k | build_re_1(info, M68K_INS_BSET, 1); |
1565 | 5.11k | } |
1566 | | |
1567 | | static void d68000_bset_s(m68k_info *info) |
1568 | 144 | { |
1569 | 144 | build_imm_ea(info, M68K_INS_BSET, 1, read_imm_8(info)); |
1570 | 144 | } |
1571 | | |
1572 | | static void d68000_bsr_8(m68k_info *info) |
1573 | 7.60k | { |
1574 | 7.60k | build_relative_branch(info, M68K_INS_BSR, 1, make_int_8(info->ir)); |
1575 | 7.60k | } |
1576 | | |
1577 | | static void d68000_bsr_16(m68k_info *info) |
1578 | 395 | { |
1579 | 395 | build_relative_branch(info, M68K_INS_BSR, 2, make_int_16(read_imm_16(info))); |
1580 | 395 | } |
1581 | | |
1582 | | static void d68020_bsr_32(m68k_info *info) |
1583 | 656 | { |
1584 | 656 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1585 | 337 | build_relative_branch(info, M68K_INS_BSR, 4, read_imm_32(info)); |
1586 | 337 | } |
1587 | | |
1588 | | static void d68000_btst_r(m68k_info *info) |
1589 | 10.2k | { |
1590 | 10.2k | build_re_1(info, M68K_INS_BTST, 4); |
1591 | 10.2k | } |
1592 | | |
1593 | | static void d68000_btst_s(m68k_info *info) |
1594 | 267 | { |
1595 | 267 | build_imm_ea(info, M68K_INS_BTST, 1, read_imm_8(info)); |
1596 | 267 | } |
1597 | | |
1598 | | static void d68020_callm(m68k_info *info) |
1599 | 56 | { |
1600 | 56 | LIMIT_CPU_TYPES(info, M68020_ONLY); |
1601 | 0 | build_imm_ea(info, M68K_INS_CALLM, 0, read_imm_8(info)); |
1602 | 0 | } |
1603 | | |
1604 | | static void d68020_cas_8(m68k_info *info) |
1605 | 226 | { |
1606 | 226 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1607 | 141 | build_d_d_ea(info, M68K_INS_CAS, 1); |
1608 | 141 | } |
1609 | | |
1610 | | static void d68020_cas_16(m68k_info *info) |
1611 | 215 | { |
1612 | 215 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1613 | 163 | build_d_d_ea(info, M68K_INS_CAS, 2); |
1614 | 163 | } |
1615 | | |
1616 | | static void d68020_cas_32(m68k_info *info) |
1617 | 483 | { |
1618 | 483 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1619 | 273 | build_d_d_ea(info, M68K_INS_CAS, 4); |
1620 | 273 | } |
1621 | | |
1622 | | static void d68020_cas2_16(m68k_info *info) |
1623 | 1.85k | { |
1624 | 1.85k | build_cas2(info, 2); |
1625 | 1.85k | } |
1626 | | |
1627 | | static void d68020_cas2_32(m68k_info *info) |
1628 | 140 | { |
1629 | 140 | build_cas2(info, 4); |
1630 | 140 | } |
1631 | | |
1632 | | static void d68000_chk_16(m68k_info *info) |
1633 | 1.19k | { |
1634 | 1.19k | build_er_1(info, M68K_INS_CHK, 2); |
1635 | 1.19k | } |
1636 | | |
1637 | | static void d68020_chk_32(m68k_info *info) |
1638 | 2.16k | { |
1639 | 2.16k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1640 | 1.45k | build_er_1(info, M68K_INS_CHK, 4); |
1641 | 1.45k | } |
1642 | | |
1643 | | static void d68020_chk2_cmp2_8(m68k_info *info) |
1644 | 595 | { |
1645 | 595 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1646 | 266 | build_chk2_cmp2(info, 1); |
1647 | 266 | } |
1648 | | |
1649 | | static void d68020_chk2_cmp2_16(m68k_info *info) |
1650 | 218 | { |
1651 | 218 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1652 | 161 | build_chk2_cmp2(info, 2); |
1653 | 161 | } |
1654 | | |
1655 | | static void d68020_chk2_cmp2_32(m68k_info *info) |
1656 | 201 | { |
1657 | 201 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1658 | 122 | build_chk2_cmp2(info, 4); |
1659 | 122 | } |
1660 | | |
1661 | | static void d68040_cinv(m68k_info *info) |
1662 | 2.23k | { |
1663 | 2.23k | LIMIT_CPU_TYPES(info, M68040_PLUS); |
1664 | 788 | build_cpush_cinv(info, M68K_INS_CINVL); |
1665 | 788 | } |
1666 | | |
1667 | | static void d68000_clr_8(m68k_info *info) |
1668 | 441 | { |
1669 | 441 | build_ea(info, M68K_INS_CLR, 1); |
1670 | 441 | } |
1671 | | |
1672 | | static void d68000_clr_16(m68k_info *info) |
1673 | 1.94k | { |
1674 | 1.94k | build_ea(info, M68K_INS_CLR, 2); |
1675 | 1.94k | } |
1676 | | |
1677 | | static void d68000_clr_32(m68k_info *info) |
1678 | 1.23k | { |
1679 | 1.23k | build_ea(info, M68K_INS_CLR, 4); |
1680 | 1.23k | } |
1681 | | |
1682 | | static void d68000_cmp_8(m68k_info *info) |
1683 | 1.83k | { |
1684 | 1.83k | build_er_1(info, M68K_INS_CMP, 1); |
1685 | 1.83k | } |
1686 | | |
1687 | | static void d68000_cmp_16(m68k_info *info) |
1688 | 2.13k | { |
1689 | 2.13k | build_er_1(info, M68K_INS_CMP, 2); |
1690 | 2.13k | } |
1691 | | |
1692 | | static void d68000_cmp_32(m68k_info *info) |
1693 | 4.46k | { |
1694 | 4.46k | build_er_1(info, M68K_INS_CMP, 4); |
1695 | 4.46k | } |
1696 | | |
1697 | | static void d68000_cmpa_16(m68k_info *info) |
1698 | 1.38k | { |
1699 | 1.38k | build_ea_a(info, M68K_INS_CMPA, 2); |
1700 | 1.38k | } |
1701 | | |
1702 | | static void d68000_cmpa_32(m68k_info *info) |
1703 | 1.65k | { |
1704 | 1.65k | build_ea_a(info, M68K_INS_CMPA, 4); |
1705 | 1.65k | } |
1706 | | |
1707 | | static void d68000_cmpi_8(m68k_info *info) |
1708 | 1.17k | { |
1709 | 1.17k | build_imm_ea(info, M68K_INS_CMPI, 1, read_imm_8(info)); |
1710 | 1.17k | } |
1711 | | |
1712 | | static void d68020_cmpi_pcdi_8(m68k_info *info) |
1713 | 334 | { |
1714 | 334 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
1715 | 176 | build_imm_ea(info, M68K_INS_CMPI, 1, read_imm_8(info)); |
1716 | 176 | } |
1717 | | |
1718 | | static void d68020_cmpi_pcix_8(m68k_info *info) |
1719 | 601 | { |
1720 | 601 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
1721 | 266 | build_imm_ea(info, M68K_INS_CMPI, 1, read_imm_8(info)); |
1722 | 266 | } |
1723 | | |
1724 | | static void d68000_cmpi_16(m68k_info *info) |
1725 | 566 | { |
1726 | 566 | build_imm_ea(info, M68K_INS_CMPI, 2, read_imm_16(info)); |
1727 | 566 | } |
1728 | | |
1729 | | static void d68020_cmpi_pcdi_16(m68k_info *info) |
1730 | 226 | { |
1731 | 226 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
1732 | 117 | build_imm_ea(info, M68K_INS_CMPI, 2, read_imm_16(info)); |
1733 | 117 | } |
1734 | | |
1735 | | static void d68020_cmpi_pcix_16(m68k_info *info) |
1736 | 160 | { |
1737 | 160 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
1738 | 65 | build_imm_ea(info, M68K_INS_CMPI, 2, read_imm_16(info)); |
1739 | 65 | } |
1740 | | |
1741 | | static void d68000_cmpi_32(m68k_info *info) |
1742 | 274 | { |
1743 | 274 | build_imm_ea(info, M68K_INS_CMPI, 4, read_imm_32(info)); |
1744 | 274 | } |
1745 | | |
1746 | | static void d68020_cmpi_pcdi_32(m68k_info *info) |
1747 | 581 | { |
1748 | 581 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
1749 | 444 | build_imm_ea(info, M68K_INS_CMPI, 4, read_imm_32(info)); |
1750 | 444 | } |
1751 | | |
1752 | | static void d68020_cmpi_pcix_32(m68k_info *info) |
1753 | 407 | { |
1754 | 407 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
1755 | 301 | build_imm_ea(info, M68K_INS_CMPI, 4, read_imm_32(info)); |
1756 | 301 | } |
1757 | | |
1758 | | static void d68000_cmpm_8(m68k_info *info) |
1759 | 682 | { |
1760 | 682 | build_pi_pi(info, M68K_INS_CMPM, 1); |
1761 | 682 | } |
1762 | | |
1763 | | static void d68000_cmpm_16(m68k_info *info) |
1764 | 1.50k | { |
1765 | 1.50k | build_pi_pi(info, M68K_INS_CMPM, 2); |
1766 | 1.50k | } |
1767 | | |
1768 | | static void d68000_cmpm_32(m68k_info *info) |
1769 | 352 | { |
1770 | 352 | build_pi_pi(info, M68K_INS_CMPM, 4); |
1771 | 352 | } |
1772 | | |
1773 | | static void make_cpbcc_operand(cs_m68k_op* op, int size, int displacement) |
1774 | 6.65k | { |
1775 | 6.65k | op->address_mode = M68K_AM_BRANCH_DISPLACEMENT; |
1776 | 6.65k | op->type = M68K_OP_BR_DISP; |
1777 | 6.65k | op->br_disp.disp = displacement; |
1778 | 6.65k | op->br_disp.disp_size = size; |
1779 | 6.65k | } |
1780 | | |
1781 | | static void d68020_cpbcc_16(m68k_info *info) |
1782 | 3.38k | { |
1783 | 3.38k | cs_m68k_op* op0; |
1784 | 3.38k | cs_m68k* ext; |
1785 | 3.38k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1786 | | |
1787 | | // FNOP is a special case of FBF |
1788 | 2.62k | if (info->ir == 0xf280 && peek_imm_16(info) == 0) { |
1789 | 90 | MCInst_setOpcode(info->inst, M68K_INS_FNOP); |
1790 | 90 | info->pc += 2; |
1791 | 90 | return; |
1792 | 90 | } |
1793 | | |
1794 | | // these are all in row with the extension so just doing a add here is fine |
1795 | 2.53k | info->inst->Opcode += (info->ir & 0x2f); |
1796 | | |
1797 | 2.53k | ext = build_init_op(info, M68K_INS_FBF, 1, 2); |
1798 | 2.53k | op0 = &ext->operands[0]; |
1799 | | |
1800 | 2.53k | make_cpbcc_operand(op0, M68K_OP_BR_DISP_SIZE_WORD, make_int_16(read_imm_16(info))); |
1801 | | |
1802 | 2.53k | set_insn_group(info, M68K_GRP_JUMP); |
1803 | 2.53k | set_insn_group(info, M68K_GRP_BRANCH_RELATIVE); |
1804 | 2.53k | } |
1805 | | |
1806 | | static void d68020_cpbcc_32(m68k_info *info) |
1807 | 5.68k | { |
1808 | 5.68k | cs_m68k* ext; |
1809 | 5.68k | cs_m68k_op* op0; |
1810 | | |
1811 | 5.68k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1812 | | |
1813 | | // these are all in row with the extension so just doing a add here is fine |
1814 | 3.27k | info->inst->Opcode += (info->ir & 0x2f); |
1815 | | |
1816 | 3.27k | ext = build_init_op(info, M68K_INS_FBF, 1, 4); |
1817 | 3.27k | op0 = &ext->operands[0]; |
1818 | | |
1819 | 3.27k | make_cpbcc_operand(op0, M68K_OP_BR_DISP_SIZE_LONG, read_imm_32(info)); |
1820 | | |
1821 | 3.27k | set_insn_group(info, M68K_GRP_JUMP); |
1822 | 3.27k | set_insn_group(info, M68K_GRP_BRANCH_RELATIVE); |
1823 | 3.27k | } |
1824 | | |
1825 | | static void d68020_cpdbcc(m68k_info *info) |
1826 | 1.51k | { |
1827 | 1.51k | cs_m68k* ext; |
1828 | 1.51k | cs_m68k_op* op0; |
1829 | 1.51k | cs_m68k_op* op1; |
1830 | 1.51k | uint32_t ext1, ext2; |
1831 | | |
1832 | 1.51k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1833 | | |
1834 | 850 | ext1 = read_imm_16(info); |
1835 | 850 | ext2 = read_imm_16(info); |
1836 | | |
1837 | | // these are all in row with the extension so just doing a add here is fine |
1838 | 850 | info->inst->Opcode += (ext1 & 0x2f); |
1839 | | |
1840 | 850 | ext = build_init_op(info, M68K_INS_FDBF, 2, 0); |
1841 | 850 | op0 = &ext->operands[0]; |
1842 | 850 | op1 = &ext->operands[1]; |
1843 | | |
1844 | 850 | op0->reg = M68K_REG_D0 + (info->ir & 7); |
1845 | | |
1846 | 850 | make_cpbcc_operand(op1, M68K_OP_BR_DISP_SIZE_WORD, make_int_16(ext2) + 2); |
1847 | | |
1848 | 850 | set_insn_group(info, M68K_GRP_JUMP); |
1849 | 850 | set_insn_group(info, M68K_GRP_BRANCH_RELATIVE); |
1850 | 850 | } |
1851 | | |
1852 | | static void fmove_fpcr(m68k_info *info, uint32_t extension) |
1853 | 1.89k | { |
1854 | 1.89k | cs_m68k_op* special; |
1855 | 1.89k | cs_m68k_op* op_ea; |
1856 | | |
1857 | 1.89k | int regsel = (extension >> 10) & 0x7; |
1858 | 1.89k | int dir = (extension >> 13) & 0x1; |
1859 | | |
1860 | 1.89k | cs_m68k* ext = build_init_op(info, M68K_INS_FMOVE, 2, 4); |
1861 | | |
1862 | 1.89k | special = &ext->operands[0]; |
1863 | 1.89k | op_ea = &ext->operands[1]; |
1864 | | |
1865 | 1.89k | if (!dir) { |
1866 | 1.52k | cs_m68k_op* t = special; |
1867 | 1.52k | special = op_ea; |
1868 | 1.52k | op_ea = t; |
1869 | 1.52k | } |
1870 | | |
1871 | 1.89k | get_ea_mode_op(info, op_ea, info->ir, 4); |
1872 | | |
1873 | 1.89k | if (regsel & 4) |
1874 | 1.30k | special->reg = M68K_REG_FPCR; |
1875 | 593 | else if (regsel & 2) |
1876 | 188 | special->reg = M68K_REG_FPSR; |
1877 | 405 | else if (regsel & 1) |
1878 | 192 | special->reg = M68K_REG_FPIAR; |
1879 | 1.89k | } |
1880 | | |
1881 | | static void fmovem(m68k_info *info, uint32_t extension) |
1882 | 4.04k | { |
1883 | 4.04k | cs_m68k_op* op_reglist; |
1884 | 4.04k | cs_m68k_op* op_ea; |
1885 | 4.04k | int dir = (extension >> 13) & 0x1; |
1886 | 4.04k | int mode = (extension >> 11) & 0x3; |
1887 | 4.04k | uint32_t reglist = extension & 0xff; |
1888 | 4.04k | cs_m68k* ext = build_init_op(info, M68K_INS_FMOVEM, 2, 0); |
1889 | | |
1890 | 4.04k | op_reglist = &ext->operands[0]; |
1891 | 4.04k | op_ea = &ext->operands[1]; |
1892 | | |
1893 | | // flip args around |
1894 | | |
1895 | 4.04k | if (!dir) { |
1896 | 1.00k | cs_m68k_op* t = op_reglist; |
1897 | 1.00k | op_reglist = op_ea; |
1898 | 1.00k | op_ea = t; |
1899 | 1.00k | } |
1900 | | |
1901 | 4.04k | get_ea_mode_op(info, op_ea, info->ir, 0); |
1902 | | |
1903 | 4.04k | switch (mode) { |
1904 | 311 | case 1 : // Dynamic list in dn register |
1905 | 311 | op_reglist->reg = M68K_REG_D0 + ((reglist >> 4) & 7); |
1906 | 311 | break; |
1907 | | |
1908 | 1.28k | case 0 : |
1909 | 1.28k | op_reglist->address_mode = M68K_AM_NONE; |
1910 | 1.28k | op_reglist->type = M68K_OP_REG_BITS; |
1911 | 1.28k | op_reglist->register_bits = reglist << 16; |
1912 | 1.28k | break; |
1913 | | |
1914 | 1.78k | case 2 : // Static list |
1915 | 1.78k | op_reglist->address_mode = M68K_AM_NONE; |
1916 | 1.78k | op_reglist->type = M68K_OP_REG_BITS; |
1917 | 1.78k | op_reglist->register_bits = ((uint32_t)reverse_bits_8(reglist)) << 16; |
1918 | 1.78k | break; |
1919 | 4.04k | } |
1920 | 4.04k | } |
1921 | | |
1922 | | static void d68020_cpgen(m68k_info *info) |
1923 | 26.8k | { |
1924 | 26.8k | cs_m68k *ext; |
1925 | 26.8k | cs_m68k_op* op0; |
1926 | 26.8k | cs_m68k_op* op1; |
1927 | 26.8k | bool supports_single_op; |
1928 | 26.8k | uint32_t next; |
1929 | 26.8k | int rm, src, dst, opmode; |
1930 | | |
1931 | | |
1932 | 26.8k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
1933 | | |
1934 | 25.4k | supports_single_op = true; |
1935 | | |
1936 | 25.4k | next = read_imm_16(info); |
1937 | | |
1938 | 25.4k | rm = (next >> 14) & 0x1; |
1939 | 25.4k | src = (next >> 10) & 0x7; |
1940 | 25.4k | dst = (next >> 7) & 0x7; |
1941 | 25.4k | opmode = next & 0x3f; |
1942 | | |
1943 | | // special handling for fmovecr |
1944 | | |
1945 | 25.4k | if (BITFIELD(info->ir, 5, 0) == 0 && BITFIELD(next, 15, 10) == 0x17) { |
1946 | 352 | cs_m68k_op* op0; |
1947 | 352 | cs_m68k_op* op1; |
1948 | 352 | cs_m68k* ext = build_init_op(info, M68K_INS_FMOVECR, 2, 0); |
1949 | | |
1950 | 352 | op0 = &ext->operands[0]; |
1951 | 352 | op1 = &ext->operands[1]; |
1952 | | |
1953 | 352 | op0->address_mode = M68K_AM_IMMEDIATE; |
1954 | 352 | op0->type = M68K_OP_IMM; |
1955 | 352 | op0->imm = next & 0x3f; |
1956 | | |
1957 | 352 | op1->reg = M68K_REG_FP0 + ((next >> 7) & 7); |
1958 | | |
1959 | 352 | return; |
1960 | 352 | } |
1961 | | |
1962 | | // deal with extended move stuff |
1963 | | |
1964 | 25.1k | switch ((next >> 13) & 0x7) { |
1965 | | // fmovem fpcr |
1966 | 1.52k | case 0x4: // FMOVEM ea, FPCR |
1967 | 1.89k | case 0x5: // FMOVEM FPCR, ea |
1968 | 1.89k | fmove_fpcr(info, next); |
1969 | 1.89k | return; |
1970 | | |
1971 | | // fmovem list |
1972 | 1.00k | case 0x6: |
1973 | 4.04k | case 0x7: |
1974 | 4.04k | fmovem(info, next); |
1975 | 4.04k | return; |
1976 | 25.1k | } |
1977 | | |
1978 | | // See comment bellow on why this is being done |
1979 | | |
1980 | 19.2k | if ((next >> 6) & 1) |
1981 | 5.89k | opmode &= ~4; |
1982 | | |
1983 | | // special handling of some instructions here |
1984 | | |
1985 | 19.2k | switch (opmode) { |
1986 | 810 | case 0x00: MCInst_setOpcode(info->inst, M68K_INS_FMOVE); supports_single_op = false; break; |
1987 | 561 | case 0x01: MCInst_setOpcode(info->inst, M68K_INS_FINT); break; |
1988 | 244 | case 0x02: MCInst_setOpcode(info->inst, M68K_INS_FSINH); break; |
1989 | 166 | case 0x03: MCInst_setOpcode(info->inst, M68K_INS_FINTRZ); break; |
1990 | 443 | case 0x04: MCInst_setOpcode(info->inst, M68K_INS_FSQRT); break; |
1991 | 160 | case 0x06: MCInst_setOpcode(info->inst, M68K_INS_FLOGNP1); break; |
1992 | 469 | case 0x08: MCInst_setOpcode(info->inst, M68K_INS_FETOXM1); break; |
1993 | 443 | case 0x09: MCInst_setOpcode(info->inst, M68K_INS_FATANH); break; |
1994 | 139 | case 0x0a: MCInst_setOpcode(info->inst, M68K_INS_FATAN); break; |
1995 | 176 | case 0x0c: MCInst_setOpcode(info->inst, M68K_INS_FASIN); break; |
1996 | 270 | case 0x0d: MCInst_setOpcode(info->inst, M68K_INS_FATANH); break; |
1997 | 713 | case 0x0e: MCInst_setOpcode(info->inst, M68K_INS_FSIN); break; |
1998 | 772 | case 0x0f: MCInst_setOpcode(info->inst, M68K_INS_FTAN); break; |
1999 | 1.29k | case 0x10: MCInst_setOpcode(info->inst, M68K_INS_FETOX); break; |
2000 | 1.26k | case 0x11: MCInst_setOpcode(info->inst, M68K_INS_FTWOTOX); break; |
2001 | 723 | case 0x12: MCInst_setOpcode(info->inst, M68K_INS_FTENTOX); break; |
2002 | 1.00k | case 0x14: MCInst_setOpcode(info->inst, M68K_INS_FLOGN); break; |
2003 | 141 | case 0x15: MCInst_setOpcode(info->inst, M68K_INS_FLOG10); break; |
2004 | 145 | case 0x16: MCInst_setOpcode(info->inst, M68K_INS_FLOG2); break; |
2005 | 235 | case 0x18: MCInst_setOpcode(info->inst, M68K_INS_FABS); break; |
2006 | 231 | case 0x19: MCInst_setOpcode(info->inst, M68K_INS_FCOSH); break; |
2007 | 238 | case 0x1a: MCInst_setOpcode(info->inst, M68K_INS_FNEG); break; |
2008 | 350 | case 0x1c: MCInst_setOpcode(info->inst, M68K_INS_FACOS); break; |
2009 | 188 | case 0x1d: MCInst_setOpcode(info->inst, M68K_INS_FCOS); break; |
2010 | 307 | case 0x1e: MCInst_setOpcode(info->inst, M68K_INS_FGETEXP); break; |
2011 | 215 | case 0x1f: MCInst_setOpcode(info->inst, M68K_INS_FGETMAN); break; |
2012 | 1.19k | case 0x20: MCInst_setOpcode(info->inst, M68K_INS_FDIV); supports_single_op = false; break; |
2013 | 227 | case 0x21: MCInst_setOpcode(info->inst, M68K_INS_FMOD); supports_single_op = false; break; |
2014 | 429 | case 0x22: MCInst_setOpcode(info->inst, M68K_INS_FADD); supports_single_op = false; break; |
2015 | 265 | case 0x23: MCInst_setOpcode(info->inst, M68K_INS_FMUL); supports_single_op = false; break; |
2016 | 435 | case 0x24: MCInst_setOpcode(info->inst, M68K_INS_FSGLDIV); supports_single_op = false; break; |
2017 | 350 | case 0x25: MCInst_setOpcode(info->inst, M68K_INS_FREM); break; |
2018 | 336 | case 0x26: MCInst_setOpcode(info->inst, M68K_INS_FSCALE); break; |
2019 | 133 | case 0x27: MCInst_setOpcode(info->inst, M68K_INS_FSGLMUL); break; |
2020 | 146 | case 0x28: MCInst_setOpcode(info->inst, M68K_INS_FSUB); supports_single_op = false; break; |
2021 | 369 | case 0x38: MCInst_setOpcode(info->inst, M68K_INS_FCMP); supports_single_op = false; break; |
2022 | 364 | case 0x3a: MCInst_setOpcode(info->inst, M68K_INS_FTST); break; |
2023 | 3.26k | default: |
2024 | 3.26k | break; |
2025 | 19.2k | } |
2026 | | |
2027 | | // Some trickery here! It's not documented but if bit 6 is set this is a s/d opcode and then |
2028 | | // if bit 2 is set it's a d. As we already have set our opcode in the code above we can just |
2029 | | // offset it as the following 2 op codes (if s/d is supported) will always be directly after it |
2030 | | |
2031 | 19.2k | if ((next >> 6) & 1) { |
2032 | 5.89k | if ((next >> 2) & 1) |
2033 | 1.72k | info->inst->Opcode += 2; |
2034 | 4.17k | else |
2035 | 4.17k | info->inst->Opcode += 1; |
2036 | 5.89k | } |
2037 | | |
2038 | 19.2k | ext = &info->extension; |
2039 | | |
2040 | 19.2k | ext->op_count = 2; |
2041 | 19.2k | ext->op_size.type = M68K_SIZE_TYPE_CPU; |
2042 | 19.2k | ext->op_size.cpu_size = 0; |
2043 | | |
2044 | | // Special case - adjust direction of fmove |
2045 | 19.2k | if ((opmode == 0x00) && ((next >> 13) & 0x1) != 0) { |
2046 | 191 | op0 = &ext->operands[1]; |
2047 | 191 | op1 = &ext->operands[0]; |
2048 | 19.0k | } else { |
2049 | 19.0k | op0 = &ext->operands[0]; |
2050 | 19.0k | op1 = &ext->operands[1]; |
2051 | 19.0k | } |
2052 | | |
2053 | 19.2k | if (rm == 0 && supports_single_op && src == dst) { |
2054 | 1.01k | ext->op_count = 1; |
2055 | 1.01k | op0->reg = M68K_REG_FP0 + dst; |
2056 | 1.01k | return; |
2057 | 1.01k | } |
2058 | | |
2059 | 18.1k | if (rm == 1) { |
2060 | 8.79k | switch (src) { |
2061 | 3.57k | case 0x00 : |
2062 | 3.57k | ext->op_size.cpu_size = M68K_CPU_SIZE_LONG; |
2063 | 3.57k | get_ea_mode_op(info, op0, info->ir, 4); |
2064 | 3.57k | break; |
2065 | | |
2066 | 628 | case 0x06 : |
2067 | 628 | ext->op_size.cpu_size = M68K_CPU_SIZE_BYTE; |
2068 | 628 | get_ea_mode_op(info, op0, info->ir, 1); |
2069 | 628 | break; |
2070 | | |
2071 | 754 | case 0x04 : |
2072 | 754 | ext->op_size.cpu_size = M68K_CPU_SIZE_WORD; |
2073 | 754 | get_ea_mode_op(info, op0, info->ir, 2); |
2074 | 754 | break; |
2075 | | |
2076 | 295 | case 0x01 : |
2077 | 295 | ext->op_size.type = M68K_SIZE_TYPE_FPU; |
2078 | 295 | ext->op_size.fpu_size = M68K_FPU_SIZE_SINGLE; |
2079 | 295 | get_ea_mode_op(info, op0, info->ir, 4); |
2080 | 295 | op0->type = M68K_OP_FP_SINGLE; |
2081 | 295 | break; |
2082 | | |
2083 | 2.25k | case 0x05: |
2084 | 2.25k | ext->op_size.type = M68K_SIZE_TYPE_FPU; |
2085 | 2.25k | ext->op_size.fpu_size = M68K_FPU_SIZE_DOUBLE; |
2086 | 2.25k | get_ea_mode_op(info, op0, info->ir, 8); |
2087 | 2.25k | op0->type = M68K_OP_FP_DOUBLE; |
2088 | 2.25k | break; |
2089 | | |
2090 | 1.28k | default : |
2091 | 1.28k | ext->op_size.type = M68K_SIZE_TYPE_FPU; |
2092 | 1.28k | ext->op_size.fpu_size = M68K_FPU_SIZE_EXTENDED; |
2093 | 1.28k | break; |
2094 | 8.79k | } |
2095 | 9.39k | } else { |
2096 | 9.39k | op0->reg = M68K_REG_FP0 + src; |
2097 | 9.39k | } |
2098 | | |
2099 | 18.1k | op1->reg = M68K_REG_FP0 + dst; |
2100 | 18.1k | } |
2101 | | |
2102 | | static void d68020_cprestore(m68k_info *info) |
2103 | 1.49k | { |
2104 | 1.49k | cs_m68k* ext; |
2105 | 1.49k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2106 | | |
2107 | 967 | ext = build_init_op(info, M68K_INS_FRESTORE, 1, 0); |
2108 | 967 | get_ea_mode_op(info, &ext->operands[0], info->ir, 1); |
2109 | 967 | } |
2110 | | |
2111 | | static void d68020_cpsave(m68k_info *info) |
2112 | 1.56k | { |
2113 | 1.56k | cs_m68k* ext; |
2114 | | |
2115 | 1.56k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2116 | | |
2117 | 1.07k | ext = build_init_op(info, M68K_INS_FSAVE, 1, 0); |
2118 | 1.07k | get_ea_mode_op(info, &ext->operands[0], info->ir, 1); |
2119 | 1.07k | } |
2120 | | |
2121 | | static void d68020_cpscc(m68k_info *info) |
2122 | 2.57k | { |
2123 | 2.57k | cs_m68k* ext; |
2124 | | |
2125 | 2.57k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2126 | 1.83k | ext = build_init_op(info, M68K_INS_FSF, 1, 1); |
2127 | | |
2128 | | // these are all in row with the extension so just doing a add here is fine |
2129 | 1.83k | info->inst->Opcode += (read_imm_16(info) & 0x2f); |
2130 | | |
2131 | 1.83k | get_ea_mode_op(info, &ext->operands[0], info->ir, 1); |
2132 | 1.83k | } |
2133 | | |
2134 | | static void d68020_cptrapcc_0(m68k_info *info) |
2135 | 347 | { |
2136 | 347 | uint32_t extension1; |
2137 | 347 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2138 | | |
2139 | 243 | extension1 = read_imm_16(info); |
2140 | | |
2141 | 243 | build_init_op(info, M68K_INS_FTRAPF, 0, 0); |
2142 | | |
2143 | | // these are all in row with the extension so just doing a add here is fine |
2144 | 243 | info->inst->Opcode += (extension1 & 0x2f); |
2145 | 243 | } |
2146 | | |
2147 | | static void d68020_cptrapcc_16(m68k_info *info) |
2148 | 1.13k | { |
2149 | 1.13k | uint32_t extension1, extension2; |
2150 | 1.13k | cs_m68k_op* op0; |
2151 | 1.13k | cs_m68k* ext; |
2152 | | |
2153 | 1.13k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2154 | | |
2155 | 682 | extension1 = read_imm_16(info); |
2156 | 682 | extension2 = read_imm_16(info); |
2157 | | |
2158 | 682 | ext = build_init_op(info, M68K_INS_FTRAPF, 1, 2); |
2159 | | |
2160 | | // these are all in row with the extension so just doing a add here is fine |
2161 | 682 | info->inst->Opcode += (extension1 & 0x2f); |
2162 | | |
2163 | 682 | op0 = &ext->operands[0]; |
2164 | | |
2165 | 682 | op0->address_mode = M68K_AM_IMMEDIATE; |
2166 | 682 | op0->type = M68K_OP_IMM; |
2167 | 682 | op0->imm = extension2; |
2168 | 682 | } |
2169 | | |
2170 | | static void d68020_cptrapcc_32(m68k_info *info) |
2171 | 227 | { |
2172 | 227 | uint32_t extension1, extension2; |
2173 | 227 | cs_m68k* ext; |
2174 | 227 | cs_m68k_op* op0; |
2175 | | |
2176 | 227 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2177 | | |
2178 | 105 | extension1 = read_imm_16(info); |
2179 | 105 | extension2 = read_imm_32(info); |
2180 | | |
2181 | 105 | ext = build_init_op(info, M68K_INS_FTRAPF, 1, 2); |
2182 | | |
2183 | | // these are all in row with the extension so just doing a add here is fine |
2184 | 105 | info->inst->Opcode += (extension1 & 0x2f); |
2185 | | |
2186 | 105 | op0 = &ext->operands[0]; |
2187 | | |
2188 | 105 | op0->address_mode = M68K_AM_IMMEDIATE; |
2189 | 105 | op0->type = M68K_OP_IMM; |
2190 | 105 | op0->imm = extension2; |
2191 | 105 | } |
2192 | | |
2193 | | static void d68040_cpush(m68k_info *info) |
2194 | 2.89k | { |
2195 | 2.89k | LIMIT_CPU_TYPES(info, M68040_PLUS); |
2196 | 2.11k | build_cpush_cinv(info, M68K_INS_CPUSHL); |
2197 | 2.11k | } |
2198 | | |
2199 | | static void d68000_dbra(m68k_info *info) |
2200 | 965 | { |
2201 | 965 | build_dbxx(info, M68K_INS_DBRA, 0, make_int_16(read_imm_16(info))); |
2202 | 965 | } |
2203 | | |
2204 | | static void d68000_dbcc(m68k_info *info) |
2205 | 711 | { |
2206 | 711 | build_dbcc(info, 0, make_int_16(read_imm_16(info))); |
2207 | 711 | } |
2208 | | |
2209 | | static void d68000_divs(m68k_info *info) |
2210 | 2.50k | { |
2211 | 2.50k | build_er_1(info, M68K_INS_DIVS, 2); |
2212 | 2.50k | } |
2213 | | |
2214 | | static void d68000_divu(m68k_info *info) |
2215 | 2.74k | { |
2216 | 2.74k | build_er_1(info, M68K_INS_DIVU, 2); |
2217 | 2.74k | } |
2218 | | |
2219 | | static void d68020_divl(m68k_info *info) |
2220 | 420 | { |
2221 | 420 | uint32_t extension, insn_signed; |
2222 | 420 | cs_m68k* ext; |
2223 | 420 | cs_m68k_op* op0; |
2224 | 420 | cs_m68k_op* op1; |
2225 | 420 | uint32_t reg_0, reg_1; |
2226 | | |
2227 | 420 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2228 | | |
2229 | 285 | extension = read_imm_16(info); |
2230 | 285 | insn_signed = 0; |
2231 | | |
2232 | 285 | if (BIT_B((extension))) |
2233 | 61 | insn_signed = 1; |
2234 | | |
2235 | 285 | ext = build_init_op(info, insn_signed ? M68K_INS_DIVS : M68K_INS_DIVU, 2, 4); |
2236 | | |
2237 | 285 | op0 = &ext->operands[0]; |
2238 | 285 | op1 = &ext->operands[1]; |
2239 | | |
2240 | 285 | get_ea_mode_op(info, op0, info->ir, 4); |
2241 | | |
2242 | 285 | reg_0 = extension & 7; |
2243 | 285 | reg_1 = (extension >> 12) & 7; |
2244 | | |
2245 | 285 | op1->address_mode = M68K_AM_NONE; |
2246 | 285 | op1->type = M68K_OP_REG_PAIR; |
2247 | 285 | op1->reg_pair.reg_0 = reg_0 + M68K_REG_D0; |
2248 | 285 | op1->reg_pair.reg_1 = reg_1 + M68K_REG_D0; |
2249 | | |
2250 | 285 | if ((reg_0 == reg_1) || !BIT_A(extension)) { |
2251 | 246 | op1->type = M68K_OP_REG; |
2252 | 246 | op1->reg = M68K_REG_D0 + reg_1; |
2253 | 246 | } |
2254 | 285 | } |
2255 | | |
2256 | | static void d68000_eor_8(m68k_info *info) |
2257 | 1.28k | { |
2258 | 1.28k | build_re_1(info, M68K_INS_EOR, 1); |
2259 | 1.28k | } |
2260 | | |
2261 | | static void d68000_eor_16(m68k_info *info) |
2262 | 1.56k | { |
2263 | 1.56k | build_re_1(info, M68K_INS_EOR, 2); |
2264 | 1.56k | } |
2265 | | |
2266 | | static void d68000_eor_32(m68k_info *info) |
2267 | 4.36k | { |
2268 | 4.36k | build_re_1(info, M68K_INS_EOR, 4); |
2269 | 4.36k | } |
2270 | | |
2271 | | static void d68000_eori_8(m68k_info *info) |
2272 | 500 | { |
2273 | 500 | build_imm_ea(info, M68K_INS_EORI, 1, read_imm_8(info)); |
2274 | 500 | } |
2275 | | |
2276 | | static void d68000_eori_16(m68k_info *info) |
2277 | 417 | { |
2278 | 417 | build_imm_ea(info, M68K_INS_EORI, 2, read_imm_16(info)); |
2279 | 417 | } |
2280 | | |
2281 | | static void d68000_eori_32(m68k_info *info) |
2282 | 640 | { |
2283 | 640 | build_imm_ea(info, M68K_INS_EORI, 4, read_imm_32(info)); |
2284 | 640 | } |
2285 | | |
2286 | | static void d68000_eori_to_ccr(m68k_info *info) |
2287 | 124 | { |
2288 | 124 | build_imm_special_reg(info, M68K_INS_EORI, read_imm_8(info), 1, M68K_REG_CCR); |
2289 | 124 | } |
2290 | | |
2291 | | static void d68000_eori_to_sr(m68k_info *info) |
2292 | 1.32k | { |
2293 | 1.32k | build_imm_special_reg(info, M68K_INS_EORI, read_imm_16(info), 2, M68K_REG_SR); |
2294 | 1.32k | } |
2295 | | |
2296 | | static void d68000_exg_dd(m68k_info *info) |
2297 | 190 | { |
2298 | 190 | build_r(info, M68K_INS_EXG, 4); |
2299 | 190 | } |
2300 | | |
2301 | | static void d68000_exg_aa(m68k_info *info) |
2302 | 1.16k | { |
2303 | 1.16k | cs_m68k_op* op0; |
2304 | 1.16k | cs_m68k_op* op1; |
2305 | 1.16k | cs_m68k* ext = build_init_op(info, M68K_INS_EXG, 2, 4); |
2306 | | |
2307 | 1.16k | op0 = &ext->operands[0]; |
2308 | 1.16k | op1 = &ext->operands[1]; |
2309 | | |
2310 | 1.16k | op0->address_mode = M68K_AM_NONE; |
2311 | 1.16k | op0->reg = M68K_REG_A0 + ((info->ir >> 9) & 7); |
2312 | | |
2313 | 1.16k | op1->address_mode = M68K_AM_NONE; |
2314 | 1.16k | op1->reg = M68K_REG_A0 + (info->ir & 7); |
2315 | 1.16k | } |
2316 | | |
2317 | | static void d68000_exg_da(m68k_info *info) |
2318 | 240 | { |
2319 | 240 | cs_m68k_op* op0; |
2320 | 240 | cs_m68k_op* op1; |
2321 | 240 | cs_m68k* ext = build_init_op(info, M68K_INS_EXG, 2, 4); |
2322 | | |
2323 | 240 | op0 = &ext->operands[0]; |
2324 | 240 | op1 = &ext->operands[1]; |
2325 | | |
2326 | 240 | op0->address_mode = M68K_AM_NONE; |
2327 | 240 | op0->reg = M68K_REG_D0 + ((info->ir >> 9) & 7); |
2328 | | |
2329 | 240 | op1->address_mode = M68K_AM_NONE; |
2330 | 240 | op1->reg = M68K_REG_A0 + (info->ir & 7); |
2331 | 240 | } |
2332 | | |
2333 | | static void d68000_ext_16(m68k_info *info) |
2334 | 408 | { |
2335 | 408 | build_d(info, M68K_INS_EXT, 2); |
2336 | 408 | } |
2337 | | |
2338 | | static void d68000_ext_32(m68k_info *info) |
2339 | 119 | { |
2340 | 119 | build_d(info, M68K_INS_EXT, 4); |
2341 | 119 | } |
2342 | | |
2343 | | static void d68020_extb_32(m68k_info *info) |
2344 | 1.18k | { |
2345 | 1.18k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2346 | 327 | build_d(info, M68K_INS_EXTB, 4); |
2347 | 327 | } |
2348 | | |
2349 | | static void d68000_jmp(m68k_info *info) |
2350 | 270 | { |
2351 | 270 | cs_m68k* ext = build_init_op(info, M68K_INS_JMP, 1, 0); |
2352 | 270 | set_insn_group(info, M68K_GRP_JUMP); |
2353 | 270 | get_ea_mode_op(info, &ext->operands[0], info->ir, 4); |
2354 | 270 | } |
2355 | | |
2356 | | static void d68000_jsr(m68k_info *info) |
2357 | 500 | { |
2358 | 500 | cs_m68k* ext = build_init_op(info, M68K_INS_JSR, 1, 0); |
2359 | 500 | set_insn_group(info, M68K_GRP_JUMP); |
2360 | 500 | get_ea_mode_op(info, &ext->operands[0], info->ir, 4); |
2361 | 500 | } |
2362 | | |
2363 | | static void d68000_lea(m68k_info *info) |
2364 | 951 | { |
2365 | 951 | build_ea_a(info, M68K_INS_LEA, 4); |
2366 | 951 | } |
2367 | | |
2368 | | static void d68000_link_16(m68k_info *info) |
2369 | 164 | { |
2370 | 164 | build_link(info, read_imm_16(info), 2); |
2371 | 164 | } |
2372 | | |
2373 | | static void d68020_link_32(m68k_info *info) |
2374 | 1.21k | { |
2375 | 1.21k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2376 | 314 | build_link(info, read_imm_32(info), 4); |
2377 | 314 | } |
2378 | | |
2379 | | static void d68000_lsr_s_8(m68k_info *info) |
2380 | 1.31k | { |
2381 | 1.31k | build_3bit_d(info, M68K_INS_LSR, 1); |
2382 | 1.31k | } |
2383 | | |
2384 | | static void d68000_lsr_s_16(m68k_info *info) |
2385 | 936 | { |
2386 | 936 | build_3bit_d(info, M68K_INS_LSR, 2); |
2387 | 936 | } |
2388 | | |
2389 | | static void d68000_lsr_s_32(m68k_info *info) |
2390 | 437 | { |
2391 | 437 | build_3bit_d(info, M68K_INS_LSR, 4); |
2392 | 437 | } |
2393 | | |
2394 | | static void d68000_lsr_r_8(m68k_info *info) |
2395 | 1.02k | { |
2396 | 1.02k | build_r(info, M68K_INS_LSR, 1); |
2397 | 1.02k | } |
2398 | | |
2399 | | static void d68000_lsr_r_16(m68k_info *info) |
2400 | 393 | { |
2401 | 393 | build_r(info, M68K_INS_LSR, 2); |
2402 | 393 | } |
2403 | | |
2404 | | static void d68000_lsr_r_32(m68k_info *info) |
2405 | 247 | { |
2406 | 247 | build_r(info, M68K_INS_LSR, 4); |
2407 | 247 | } |
2408 | | |
2409 | | static void d68000_lsr_ea(m68k_info *info) |
2410 | 1.77k | { |
2411 | 1.77k | build_ea(info, M68K_INS_LSR, 2); |
2412 | 1.77k | } |
2413 | | |
2414 | | static void d68000_lsl_s_8(m68k_info *info) |
2415 | 457 | { |
2416 | 457 | build_3bit_d(info, M68K_INS_LSL, 1); |
2417 | 457 | } |
2418 | | |
2419 | | static void d68000_lsl_s_16(m68k_info *info) |
2420 | 211 | { |
2421 | 211 | build_3bit_d(info, M68K_INS_LSL, 2); |
2422 | 211 | } |
2423 | | |
2424 | | static void d68000_lsl_s_32(m68k_info *info) |
2425 | 141 | { |
2426 | 141 | build_3bit_d(info, M68K_INS_LSL, 4); |
2427 | 141 | } |
2428 | | |
2429 | | static void d68000_lsl_r_8(m68k_info *info) |
2430 | 188 | { |
2431 | 188 | build_r(info, M68K_INS_LSL, 1); |
2432 | 188 | } |
2433 | | |
2434 | | static void d68000_lsl_r_16(m68k_info *info) |
2435 | 585 | { |
2436 | 585 | build_r(info, M68K_INS_LSL, 2); |
2437 | 585 | } |
2438 | | |
2439 | | static void d68000_lsl_r_32(m68k_info *info) |
2440 | 350 | { |
2441 | 350 | build_r(info, M68K_INS_LSL, 4); |
2442 | 350 | } |
2443 | | |
2444 | | static void d68000_lsl_ea(m68k_info *info) |
2445 | 1.84k | { |
2446 | 1.84k | build_ea(info, M68K_INS_LSL, 2); |
2447 | 1.84k | } |
2448 | | |
2449 | | static void d68000_move_8(m68k_info *info) |
2450 | 21.1k | { |
2451 | 21.1k | build_ea_ea(info, M68K_INS_MOVE, 1); |
2452 | 21.1k | } |
2453 | | |
2454 | | static void d68000_move_16(m68k_info *info) |
2455 | 18.8k | { |
2456 | 18.8k | build_ea_ea(info, M68K_INS_MOVE, 2); |
2457 | 18.8k | } |
2458 | | |
2459 | | static void d68000_move_32(m68k_info *info) |
2460 | 36.7k | { |
2461 | 36.7k | build_ea_ea(info, M68K_INS_MOVE, 4); |
2462 | 36.7k | } |
2463 | | |
2464 | | static void d68000_movea_16(m68k_info *info) |
2465 | 4.10k | { |
2466 | 4.10k | build_ea_a(info, M68K_INS_MOVEA, 2); |
2467 | 4.10k | } |
2468 | | |
2469 | | static void d68000_movea_32(m68k_info *info) |
2470 | 6.29k | { |
2471 | 6.29k | build_ea_a(info, M68K_INS_MOVEA, 4); |
2472 | 6.29k | } |
2473 | | |
2474 | | static void d68000_move_to_ccr(m68k_info *info) |
2475 | 785 | { |
2476 | 785 | cs_m68k_op* op0; |
2477 | 785 | cs_m68k_op* op1; |
2478 | 785 | cs_m68k* ext = build_init_op(info, M68K_INS_MOVE, 2, 2); |
2479 | | |
2480 | 785 | op0 = &ext->operands[0]; |
2481 | 785 | op1 = &ext->operands[1]; |
2482 | | |
2483 | 785 | get_ea_mode_op(info, op0, info->ir, 1); |
2484 | | |
2485 | 785 | op1->address_mode = M68K_AM_NONE; |
2486 | 785 | op1->reg = M68K_REG_CCR; |
2487 | 785 | } |
2488 | | |
2489 | | static void d68010_move_fr_ccr(m68k_info *info) |
2490 | 907 | { |
2491 | 907 | cs_m68k_op* op0; |
2492 | 907 | cs_m68k_op* op1; |
2493 | 907 | cs_m68k* ext; |
2494 | | |
2495 | 907 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
2496 | | |
2497 | 457 | ext = build_init_op(info, M68K_INS_MOVE, 2, 2); |
2498 | | |
2499 | 457 | op0 = &ext->operands[0]; |
2500 | 457 | op1 = &ext->operands[1]; |
2501 | | |
2502 | 457 | op0->address_mode = M68K_AM_NONE; |
2503 | 457 | op0->reg = M68K_REG_CCR; |
2504 | | |
2505 | 457 | get_ea_mode_op(info, op1, info->ir, 1); |
2506 | 457 | } |
2507 | | |
2508 | | static void d68000_move_fr_sr(m68k_info *info) |
2509 | 321 | { |
2510 | 321 | cs_m68k_op* op0; |
2511 | 321 | cs_m68k_op* op1; |
2512 | 321 | cs_m68k* ext = build_init_op(info, M68K_INS_MOVE, 2, 2); |
2513 | | |
2514 | 321 | op0 = &ext->operands[0]; |
2515 | 321 | op1 = &ext->operands[1]; |
2516 | | |
2517 | 321 | op0->address_mode = M68K_AM_NONE; |
2518 | 321 | op0->reg = M68K_REG_SR; |
2519 | | |
2520 | 321 | get_ea_mode_op(info, op1, info->ir, 2); |
2521 | 321 | } |
2522 | | |
2523 | | static void d68000_move_to_sr(m68k_info *info) |
2524 | 1.09k | { |
2525 | 1.09k | cs_m68k_op* op0; |
2526 | 1.09k | cs_m68k_op* op1; |
2527 | 1.09k | cs_m68k* ext = build_init_op(info, M68K_INS_MOVE, 2, 2); |
2528 | | |
2529 | 1.09k | op0 = &ext->operands[0]; |
2530 | 1.09k | op1 = &ext->operands[1]; |
2531 | | |
2532 | 1.09k | get_ea_mode_op(info, op0, info->ir, 2); |
2533 | | |
2534 | 1.09k | op1->address_mode = M68K_AM_NONE; |
2535 | 1.09k | op1->reg = M68K_REG_SR; |
2536 | 1.09k | } |
2537 | | |
2538 | | static void d68000_move_fr_usp(m68k_info *info) |
2539 | 637 | { |
2540 | 637 | cs_m68k_op* op0; |
2541 | 637 | cs_m68k_op* op1; |
2542 | 637 | cs_m68k* ext = build_init_op(info, M68K_INS_MOVE, 2, 0); |
2543 | | |
2544 | 637 | op0 = &ext->operands[0]; |
2545 | 637 | op1 = &ext->operands[1]; |
2546 | | |
2547 | 637 | op0->address_mode = M68K_AM_NONE; |
2548 | 637 | op0->reg = M68K_REG_USP; |
2549 | | |
2550 | 637 | op1->address_mode = M68K_AM_NONE; |
2551 | 637 | op1->reg = M68K_REG_A0 + (info->ir & 7); |
2552 | 637 | } |
2553 | | |
2554 | | static void d68000_move_to_usp(m68k_info *info) |
2555 | 591 | { |
2556 | 591 | cs_m68k_op* op0; |
2557 | 591 | cs_m68k_op* op1; |
2558 | 591 | cs_m68k* ext = build_init_op(info, M68K_INS_MOVE, 2, 0); |
2559 | | |
2560 | 591 | op0 = &ext->operands[0]; |
2561 | 591 | op1 = &ext->operands[1]; |
2562 | | |
2563 | 591 | op0->address_mode = M68K_AM_NONE; |
2564 | 591 | op0->reg = M68K_REG_A0 + (info->ir & 7); |
2565 | | |
2566 | 591 | op1->address_mode = M68K_AM_NONE; |
2567 | 591 | op1->reg = M68K_REG_USP; |
2568 | 591 | } |
2569 | | |
2570 | | static void d68010_movec(m68k_info *info) |
2571 | 4.51k | { |
2572 | 4.51k | uint32_t extension; |
2573 | 4.51k | m68k_reg reg; |
2574 | 4.51k | cs_m68k* ext; |
2575 | 4.51k | cs_m68k_op* op0; |
2576 | 4.51k | cs_m68k_op* op1; |
2577 | | |
2578 | | |
2579 | 4.51k | LIMIT_CPU_TYPES(info, M68010_PLUS); |
2580 | | |
2581 | 4.22k | extension = read_imm_16(info); |
2582 | 4.22k | reg = M68K_REG_INVALID; |
2583 | | |
2584 | 4.22k | ext = build_init_op(info, M68K_INS_MOVEC, 2, 0); |
2585 | | |
2586 | 4.22k | op0 = &ext->operands[0]; |
2587 | 4.22k | op1 = &ext->operands[1]; |
2588 | | |
2589 | 4.22k | switch (extension & 0xfff) { |
2590 | 78 | case 0x000: reg = M68K_REG_SFC; break; |
2591 | 97 | case 0x001: reg = M68K_REG_DFC; break; |
2592 | 116 | case 0x800: reg = M68K_REG_USP; break; |
2593 | 234 | case 0x801: reg = M68K_REG_VBR; break; |
2594 | 306 | case 0x002: reg = M68K_REG_CACR; break; |
2595 | 117 | case 0x802: reg = M68K_REG_CAAR; break; |
2596 | 251 | case 0x803: reg = M68K_REG_MSP; break; |
2597 | 75 | case 0x804: reg = M68K_REG_ISP; break; |
2598 | 166 | case 0x003: reg = M68K_REG_TC; break; |
2599 | 64 | case 0x004: reg = M68K_REG_ITT0; break; |
2600 | 144 | case 0x005: reg = M68K_REG_ITT1; break; |
2601 | 118 | case 0x006: reg = M68K_REG_DTT0; break; |
2602 | 212 | case 0x007: reg = M68K_REG_DTT1; break; |
2603 | 117 | case 0x805: reg = M68K_REG_MMUSR; break; |
2604 | 295 | case 0x806: reg = M68K_REG_URP; break; |
2605 | 556 | case 0x807: reg = M68K_REG_SRP; break; |
2606 | 4.22k | } |
2607 | | |
2608 | 4.22k | if (BIT_0(info->ir)) { |
2609 | 1.51k | op0->reg = (BIT_F(extension) ? M68K_REG_A0 : M68K_REG_D0) + ((extension >> 12) & 7); |
2610 | 1.51k | op1->reg = reg; |
2611 | 2.70k | } else { |
2612 | 2.70k | op0->reg = reg; |
2613 | 2.70k | op1->reg = (BIT_F(extension) ? M68K_REG_A0 : M68K_REG_D0) + ((extension >> 12) & 7); |
2614 | 2.70k | } |
2615 | 4.22k | } |
2616 | | |
2617 | | static void d68000_movem_pd_16(m68k_info *info) |
2618 | 1.31k | { |
2619 | 1.31k | build_movem_re(info, M68K_INS_MOVEM, 2); |
2620 | 1.31k | } |
2621 | | |
2622 | | static void d68000_movem_pd_32(m68k_info *info) |
2623 | 749 | { |
2624 | 749 | build_movem_re(info, M68K_INS_MOVEM, 4); |
2625 | 749 | } |
2626 | | |
2627 | | static void d68000_movem_er_16(m68k_info *info) |
2628 | 1.79k | { |
2629 | 1.79k | build_movem_er(info, M68K_INS_MOVEM, 2); |
2630 | 1.79k | } |
2631 | | |
2632 | | static void d68000_movem_er_32(m68k_info *info) |
2633 | 788 | { |
2634 | 788 | build_movem_er(info, M68K_INS_MOVEM, 4); |
2635 | 788 | } |
2636 | | |
2637 | | static void d68000_movem_re_16(m68k_info *info) |
2638 | 1.47k | { |
2639 | 1.47k | build_movem_re(info, M68K_INS_MOVEM, 2); |
2640 | 1.47k | } |
2641 | | |
2642 | | static void d68000_movem_re_32(m68k_info *info) |
2643 | 1.00k | { |
2644 | 1.00k | build_movem_re(info, M68K_INS_MOVEM, 4); |
2645 | 1.00k | } |
2646 | | |
2647 | | static void d68000_movep_re_16(m68k_info *info) |
2648 | 646 | { |
2649 | 646 | build_movep_re(info, 2); |
2650 | 646 | } |
2651 | | |
2652 | | static void d68000_movep_re_32(m68k_info *info) |
2653 | 616 | { |
2654 | 616 | build_movep_re(info, 4); |
2655 | 616 | } |
2656 | | |
2657 | | static void d68000_movep_er_16(m68k_info *info) |
2658 | 1.70k | { |
2659 | 1.70k | build_movep_er(info, 2); |
2660 | 1.70k | } |
2661 | | |
2662 | | static void d68000_movep_er_32(m68k_info *info) |
2663 | 1.02k | { |
2664 | 1.02k | build_movep_er(info, 4); |
2665 | 1.02k | } |
2666 | | |
2667 | | static void d68010_moves_8(m68k_info *info) |
2668 | 715 | { |
2669 | 715 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
2670 | 530 | build_moves(info, 1); |
2671 | 530 | } |
2672 | | |
2673 | | static void d68010_moves_16(m68k_info *info) |
2674 | 166 | { |
2675 | | //uint32_t extension; |
2676 | 166 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
2677 | 107 | build_moves(info, 2); |
2678 | 107 | } |
2679 | | |
2680 | | static void d68010_moves_32(m68k_info *info) |
2681 | 1.85k | { |
2682 | 1.85k | LIMIT_CPU_TYPES(info, M68010_PLUS); |
2683 | 1.03k | build_moves(info, 4); |
2684 | 1.03k | } |
2685 | | |
2686 | | static void d68000_moveq(m68k_info *info) |
2687 | 20.2k | { |
2688 | 20.2k | cs_m68k_op* op0; |
2689 | 20.2k | cs_m68k_op* op1; |
2690 | | |
2691 | 20.2k | cs_m68k* ext = build_init_op(info, M68K_INS_MOVEQ, 2, 0); |
2692 | | |
2693 | 20.2k | op0 = &ext->operands[0]; |
2694 | 20.2k | op1 = &ext->operands[1]; |
2695 | | |
2696 | 20.2k | op0->type = M68K_OP_IMM; |
2697 | 20.2k | op0->address_mode = M68K_AM_IMMEDIATE; |
2698 | 20.2k | op0->imm = (info->ir & 0xff); |
2699 | | |
2700 | 20.2k | op1->address_mode = M68K_AM_REG_DIRECT_DATA; |
2701 | 20.2k | op1->reg = M68K_REG_D0 + ((info->ir >> 9) & 7); |
2702 | 20.2k | } |
2703 | | |
2704 | | static void d68040_move16_pi_pi(m68k_info *info) |
2705 | 62 | { |
2706 | 62 | int data[] = { info->ir & 7, (read_imm_16(info) >> 12) & 7 }; |
2707 | 62 | int modes[] = { M68K_AM_REGI_ADDR_POST_INC, M68K_AM_REGI_ADDR_POST_INC }; |
2708 | | |
2709 | 62 | LIMIT_CPU_TYPES(info, M68040_PLUS); |
2710 | | |
2711 | 35 | build_move16(info, data, modes); |
2712 | 35 | } |
2713 | | |
2714 | | static void d68040_move16_pi_al(m68k_info *info) |
2715 | 518 | { |
2716 | 518 | int data[] = { info->ir & 7, read_imm_32(info) }; |
2717 | 518 | int modes[] = { M68K_AM_REGI_ADDR_POST_INC, M68K_AM_ABSOLUTE_DATA_LONG }; |
2718 | | |
2719 | 518 | LIMIT_CPU_TYPES(info, M68040_PLUS); |
2720 | | |
2721 | 297 | build_move16(info, data, modes); |
2722 | 297 | } |
2723 | | |
2724 | | static void d68040_move16_al_pi(m68k_info *info) |
2725 | 426 | { |
2726 | 426 | int data[] = { read_imm_32(info), info->ir & 7 }; |
2727 | 426 | int modes[] = { M68K_AM_ABSOLUTE_DATA_LONG, M68K_AM_REGI_ADDR_POST_INC }; |
2728 | | |
2729 | 426 | LIMIT_CPU_TYPES(info, M68040_PLUS); |
2730 | | |
2731 | 211 | build_move16(info, data, modes); |
2732 | 211 | } |
2733 | | |
2734 | | static void d68040_move16_ai_al(m68k_info *info) |
2735 | 365 | { |
2736 | 365 | int data[] = { info->ir & 7, read_imm_32(info) }; |
2737 | 365 | int modes[] = { M68K_AM_REG_DIRECT_ADDR, M68K_AM_ABSOLUTE_DATA_LONG }; |
2738 | | |
2739 | 365 | LIMIT_CPU_TYPES(info, M68040_PLUS); |
2740 | | |
2741 | 230 | build_move16(info, data, modes); |
2742 | 230 | } |
2743 | | |
2744 | | static void d68040_move16_al_ai(m68k_info *info) |
2745 | 863 | { |
2746 | 863 | int data[] = { read_imm_32(info), info->ir & 7 }; |
2747 | 863 | int modes[] = { M68K_AM_ABSOLUTE_DATA_LONG, M68K_AM_REG_DIRECT_ADDR }; |
2748 | | |
2749 | 863 | LIMIT_CPU_TYPES(info, M68040_PLUS); |
2750 | | |
2751 | 574 | build_move16(info, data, modes); |
2752 | 574 | } |
2753 | | |
2754 | | static void d68000_muls(m68k_info *info) |
2755 | 4.26k | { |
2756 | 4.26k | build_er_1(info, M68K_INS_MULS, 2); |
2757 | 4.26k | } |
2758 | | |
2759 | | static void d68000_mulu(m68k_info *info) |
2760 | 2.88k | { |
2761 | 2.88k | build_er_1(info, M68K_INS_MULU, 2); |
2762 | 2.88k | } |
2763 | | |
2764 | | static void d68020_mull(m68k_info *info) |
2765 | 818 | { |
2766 | 818 | uint32_t extension, insn_signed; |
2767 | 818 | cs_m68k* ext; |
2768 | 818 | cs_m68k_op* op0; |
2769 | 818 | cs_m68k_op* op1; |
2770 | 818 | uint32_t reg_0, reg_1; |
2771 | | |
2772 | 818 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2773 | | |
2774 | 768 | extension = read_imm_16(info); |
2775 | 768 | insn_signed = 0; |
2776 | | |
2777 | 768 | if (BIT_B((extension))) |
2778 | 435 | insn_signed = 1; |
2779 | | |
2780 | 768 | ext = build_init_op(info, insn_signed ? M68K_INS_MULS : M68K_INS_MULU, 2, 4); |
2781 | | |
2782 | 768 | op0 = &ext->operands[0]; |
2783 | 768 | op1 = &ext->operands[1]; |
2784 | | |
2785 | 768 | get_ea_mode_op(info, op0, info->ir, 4); |
2786 | | |
2787 | 768 | reg_0 = extension & 7; |
2788 | 768 | reg_1 = (extension >> 12) & 7; |
2789 | | |
2790 | 768 | op1->address_mode = M68K_AM_NONE; |
2791 | 768 | op1->type = M68K_OP_REG_PAIR; |
2792 | 768 | op1->reg_pair.reg_0 = reg_0 + M68K_REG_D0; |
2793 | 768 | op1->reg_pair.reg_1 = reg_1 + M68K_REG_D0; |
2794 | | |
2795 | 768 | if (!BIT_A(extension)) { |
2796 | 409 | op1->type = M68K_OP_REG; |
2797 | 409 | op1->reg = M68K_REG_D0 + reg_1; |
2798 | 409 | } |
2799 | 768 | } |
2800 | | |
2801 | | static void d68000_nbcd(m68k_info *info) |
2802 | 1.27k | { |
2803 | 1.27k | build_ea(info, M68K_INS_NBCD, 1); |
2804 | 1.27k | } |
2805 | | |
2806 | | static void d68000_neg_8(m68k_info *info) |
2807 | 542 | { |
2808 | 542 | build_ea(info, M68K_INS_NEG, 1); |
2809 | 542 | } |
2810 | | |
2811 | | static void d68000_neg_16(m68k_info *info) |
2812 | 1.37k | { |
2813 | 1.37k | build_ea(info, M68K_INS_NEG, 2); |
2814 | 1.37k | } |
2815 | | |
2816 | | static void d68000_neg_32(m68k_info *info) |
2817 | 673 | { |
2818 | 673 | build_ea(info, M68K_INS_NEG, 4); |
2819 | 673 | } |
2820 | | |
2821 | | static void d68000_negx_8(m68k_info *info) |
2822 | 1.44k | { |
2823 | 1.44k | build_ea(info, M68K_INS_NEGX, 1); |
2824 | 1.44k | } |
2825 | | |
2826 | | static void d68000_negx_16(m68k_info *info) |
2827 | 1.12k | { |
2828 | 1.12k | build_ea(info, M68K_INS_NEGX, 2); |
2829 | 1.12k | } |
2830 | | |
2831 | | static void d68000_negx_32(m68k_info *info) |
2832 | 378 | { |
2833 | 378 | build_ea(info, M68K_INS_NEGX, 4); |
2834 | 378 | } |
2835 | | |
2836 | | static void d68000_nop(m68k_info *info) |
2837 | 28 | { |
2838 | 28 | MCInst_setOpcode(info->inst, M68K_INS_NOP); |
2839 | 28 | } |
2840 | | |
2841 | | static void d68000_not_8(m68k_info *info) |
2842 | 1.41k | { |
2843 | 1.41k | build_ea(info, M68K_INS_NOT, 1); |
2844 | 1.41k | } |
2845 | | |
2846 | | static void d68000_not_16(m68k_info *info) |
2847 | 1.50k | { |
2848 | 1.50k | build_ea(info, M68K_INS_NOT, 2); |
2849 | 1.50k | } |
2850 | | |
2851 | | static void d68000_not_32(m68k_info *info) |
2852 | 586 | { |
2853 | 586 | build_ea(info, M68K_INS_NOT, 4); |
2854 | 586 | } |
2855 | | |
2856 | | static void d68000_or_er_8(m68k_info *info) |
2857 | 3.21k | { |
2858 | 3.21k | build_er_1(info, M68K_INS_OR, 1); |
2859 | 3.21k | } |
2860 | | |
2861 | | static void d68000_or_er_16(m68k_info *info) |
2862 | 1.66k | { |
2863 | 1.66k | build_er_1(info, M68K_INS_OR, 2); |
2864 | 1.66k | } |
2865 | | |
2866 | | static void d68000_or_er_32(m68k_info *info) |
2867 | 4.48k | { |
2868 | 4.48k | build_er_1(info, M68K_INS_OR, 4); |
2869 | 4.48k | } |
2870 | | |
2871 | | static void d68000_or_re_8(m68k_info *info) |
2872 | 1.53k | { |
2873 | 1.53k | build_re_1(info, M68K_INS_OR, 1); |
2874 | 1.53k | } |
2875 | | |
2876 | | static void d68000_or_re_16(m68k_info *info) |
2877 | 1.39k | { |
2878 | 1.39k | build_re_1(info, M68K_INS_OR, 2); |
2879 | 1.39k | } |
2880 | | |
2881 | | static void d68000_or_re_32(m68k_info *info) |
2882 | 1.64k | { |
2883 | 1.64k | build_re_1(info, M68K_INS_OR, 4); |
2884 | 1.64k | } |
2885 | | |
2886 | | static void d68000_ori_8(m68k_info *info) |
2887 | 38.4k | { |
2888 | 38.4k | build_imm_ea(info, M68K_INS_ORI, 1, read_imm_8(info)); |
2889 | 38.4k | } |
2890 | | |
2891 | | static void d68000_ori_16(m68k_info *info) |
2892 | 4.04k | { |
2893 | 4.04k | build_imm_ea(info, M68K_INS_ORI, 2, read_imm_16(info)); |
2894 | 4.04k | } |
2895 | | |
2896 | | static void d68000_ori_32(m68k_info *info) |
2897 | 3.17k | { |
2898 | 3.17k | build_imm_ea(info, M68K_INS_ORI, 4, read_imm_32(info)); |
2899 | 3.17k | } |
2900 | | |
2901 | | static void d68000_ori_to_ccr(m68k_info *info) |
2902 | 79 | { |
2903 | 79 | build_imm_special_reg(info, M68K_INS_ORI, read_imm_8(info), 1, M68K_REG_CCR); |
2904 | 79 | } |
2905 | | |
2906 | | static void d68000_ori_to_sr(m68k_info *info) |
2907 | 333 | { |
2908 | 333 | build_imm_special_reg(info, M68K_INS_ORI, read_imm_16(info), 2, M68K_REG_SR); |
2909 | 333 | } |
2910 | | |
2911 | | static void d68020_pack_rr(m68k_info *info) |
2912 | 2.69k | { |
2913 | 2.69k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2914 | 1.69k | build_rr(info, M68K_INS_PACK, 0, read_imm_16(info)); |
2915 | 1.69k | } |
2916 | | |
2917 | | static void d68020_pack_mm(m68k_info *info) |
2918 | 1.49k | { |
2919 | 1.49k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
2920 | 669 | build_mm(info, M68K_INS_PACK, 0, read_imm_16(info)); |
2921 | 669 | } |
2922 | | |
2923 | | static void d68000_pea(m68k_info *info) |
2924 | 283 | { |
2925 | 283 | build_ea(info, M68K_INS_PEA, 4); |
2926 | 283 | } |
2927 | | |
2928 | | static void d68000_reset(m68k_info *info) |
2929 | 84 | { |
2930 | 84 | MCInst_setOpcode(info->inst, M68K_INS_RESET); |
2931 | 84 | } |
2932 | | |
2933 | | static void d68000_ror_s_8(m68k_info *info) |
2934 | 484 | { |
2935 | 484 | build_3bit_d(info, M68K_INS_ROR, 1); |
2936 | 484 | } |
2937 | | |
2938 | | static void d68000_ror_s_16(m68k_info *info) |
2939 | 942 | { |
2940 | 942 | build_3bit_d(info, M68K_INS_ROR, 2); |
2941 | 942 | } |
2942 | | |
2943 | | static void d68000_ror_s_32(m68k_info *info) |
2944 | 490 | { |
2945 | 490 | build_3bit_d(info, M68K_INS_ROR, 4); |
2946 | 490 | } |
2947 | | |
2948 | | static void d68000_ror_r_8(m68k_info *info) |
2949 | 466 | { |
2950 | 466 | build_r(info, M68K_INS_ROR, 1); |
2951 | 466 | } |
2952 | | |
2953 | | static void d68000_ror_r_16(m68k_info *info) |
2954 | 395 | { |
2955 | 395 | build_r(info, M68K_INS_ROR, 2); |
2956 | 395 | } |
2957 | | |
2958 | | static void d68000_ror_r_32(m68k_info *info) |
2959 | 979 | { |
2960 | 979 | build_r(info, M68K_INS_ROR, 4); |
2961 | 979 | } |
2962 | | |
2963 | | static void d68000_ror_ea(m68k_info *info) |
2964 | 1.22k | { |
2965 | 1.22k | build_ea(info, M68K_INS_ROR, 2); |
2966 | 1.22k | } |
2967 | | |
2968 | | static void d68000_rol_s_8(m68k_info *info) |
2969 | 624 | { |
2970 | 624 | build_3bit_d(info, M68K_INS_ROL, 1); |
2971 | 624 | } |
2972 | | |
2973 | | static void d68000_rol_s_16(m68k_info *info) |
2974 | 569 | { |
2975 | 569 | build_3bit_d(info, M68K_INS_ROL, 2); |
2976 | 569 | } |
2977 | | |
2978 | | static void d68000_rol_s_32(m68k_info *info) |
2979 | 509 | { |
2980 | 509 | build_3bit_d(info, M68K_INS_ROL, 4); |
2981 | 509 | } |
2982 | | |
2983 | | static void d68000_rol_r_8(m68k_info *info) |
2984 | 382 | { |
2985 | 382 | build_r(info, M68K_INS_ROL, 1); |
2986 | 382 | } |
2987 | | |
2988 | | static void d68000_rol_r_16(m68k_info *info) |
2989 | 213 | { |
2990 | 213 | build_r(info, M68K_INS_ROL, 2); |
2991 | 213 | } |
2992 | | |
2993 | | static void d68000_rol_r_32(m68k_info *info) |
2994 | 455 | { |
2995 | 455 | build_r(info, M68K_INS_ROL, 4); |
2996 | 455 | } |
2997 | | |
2998 | | static void d68000_rol_ea(m68k_info *info) |
2999 | 1.13k | { |
3000 | 1.13k | build_ea(info, M68K_INS_ROL, 2); |
3001 | 1.13k | } |
3002 | | |
3003 | | static void d68000_roxr_s_8(m68k_info *info) |
3004 | 325 | { |
3005 | 325 | build_3bit_d(info, M68K_INS_ROXR, 1); |
3006 | 325 | } |
3007 | | |
3008 | | static void d68000_roxr_s_16(m68k_info *info) |
3009 | 339 | { |
3010 | 339 | build_3bit_d(info, M68K_INS_ROXR, 2); |
3011 | 339 | } |
3012 | | |
3013 | | static void d68000_roxr_s_32(m68k_info *info) |
3014 | 230 | { |
3015 | 230 | build_3bit_d(info, M68K_INS_ROXR, 4); |
3016 | 230 | } |
3017 | | |
3018 | | static void d68000_roxr_r_8(m68k_info *info) |
3019 | 564 | { |
3020 | 564 | build_3bit_d(info, M68K_INS_ROXR, 4); |
3021 | 564 | } |
3022 | | |
3023 | | static void d68000_roxr_r_16(m68k_info *info) |
3024 | 468 | { |
3025 | 468 | build_r(info, M68K_INS_ROXR, 2); |
3026 | 468 | } |
3027 | | |
3028 | | static void d68000_roxr_r_32(m68k_info *info) |
3029 | 239 | { |
3030 | 239 | build_r(info, M68K_INS_ROXR, 4); |
3031 | 239 | } |
3032 | | |
3033 | | static void d68000_roxr_ea(m68k_info *info) |
3034 | 930 | { |
3035 | 930 | build_ea(info, M68K_INS_ROXR, 2); |
3036 | 930 | } |
3037 | | |
3038 | | static void d68000_roxl_s_8(m68k_info *info) |
3039 | 317 | { |
3040 | 317 | build_3bit_d(info, M68K_INS_ROXL, 1); |
3041 | 317 | } |
3042 | | |
3043 | | static void d68000_roxl_s_16(m68k_info *info) |
3044 | 764 | { |
3045 | 764 | build_3bit_d(info, M68K_INS_ROXL, 2); |
3046 | 764 | } |
3047 | | |
3048 | | static void d68000_roxl_s_32(m68k_info *info) |
3049 | 372 | { |
3050 | 372 | build_3bit_d(info, M68K_INS_ROXL, 4); |
3051 | 372 | } |
3052 | | |
3053 | | static void d68000_roxl_r_8(m68k_info *info) |
3054 | 209 | { |
3055 | 209 | build_r(info, M68K_INS_ROXL, 1); |
3056 | 209 | } |
3057 | | |
3058 | | static void d68000_roxl_r_16(m68k_info *info) |
3059 | 267 | { |
3060 | 267 | build_r(info, M68K_INS_ROXL, 2); |
3061 | 267 | } |
3062 | | |
3063 | | static void d68000_roxl_r_32(m68k_info *info) |
3064 | 779 | { |
3065 | 779 | build_r(info, M68K_INS_ROXL, 4); |
3066 | 779 | } |
3067 | | |
3068 | | static void d68000_roxl_ea(m68k_info *info) |
3069 | 863 | { |
3070 | 863 | build_ea(info, M68K_INS_ROXL, 2); |
3071 | 863 | } |
3072 | | |
3073 | | static void d68010_rtd(m68k_info *info) |
3074 | 517 | { |
3075 | 517 | set_insn_group(info, M68K_GRP_RET); |
3076 | 517 | LIMIT_CPU_TYPES(info, M68010_PLUS); |
3077 | 349 | build_absolute_jump_with_immediate(info, M68K_INS_RTD, 0, read_imm_16(info)); |
3078 | 349 | } |
3079 | | |
3080 | | static void d68000_rte(m68k_info *info) |
3081 | 38 | { |
3082 | 38 | set_insn_group(info, M68K_GRP_IRET); |
3083 | 38 | MCInst_setOpcode(info->inst, M68K_INS_RTE); |
3084 | 38 | } |
3085 | | |
3086 | | static void d68020_rtm(m68k_info *info) |
3087 | 232 | { |
3088 | 232 | cs_m68k* ext; |
3089 | 232 | cs_m68k_op* op; |
3090 | | |
3091 | 232 | set_insn_group(info, M68K_GRP_RET); |
3092 | | |
3093 | 232 | LIMIT_CPU_TYPES(info, M68020_ONLY); |
3094 | | |
3095 | 0 | build_absolute_jump_with_immediate(info, M68K_INS_RTM, 0, 0); |
3096 | |
|
3097 | 0 | ext = &info->extension; |
3098 | 0 | op = &ext->operands[0]; |
3099 | |
|
3100 | 0 | op->address_mode = M68K_AM_NONE; |
3101 | 0 | op->type = M68K_OP_REG; |
3102 | |
|
3103 | 0 | if (BIT_3(info->ir)) { |
3104 | 0 | op->reg = M68K_REG_A0 + (info->ir & 7); |
3105 | 0 | } else { |
3106 | 0 | op->reg = M68K_REG_D0 + (info->ir & 7); |
3107 | 0 | } |
3108 | 0 | } |
3109 | | |
3110 | | static void d68000_rtr(m68k_info *info) |
3111 | 133 | { |
3112 | 133 | set_insn_group(info, M68K_GRP_RET); |
3113 | 133 | MCInst_setOpcode(info->inst, M68K_INS_RTR); |
3114 | 133 | } |
3115 | | |
3116 | | static void d68000_rts(m68k_info *info) |
3117 | 57 | { |
3118 | 57 | set_insn_group(info, M68K_GRP_RET); |
3119 | 57 | MCInst_setOpcode(info->inst, M68K_INS_RTS); |
3120 | 57 | } |
3121 | | |
3122 | | static void d68000_sbcd_rr(m68k_info *info) |
3123 | 1.96k | { |
3124 | 1.96k | build_rr(info, M68K_INS_SBCD, 1, 0); |
3125 | 1.96k | } |
3126 | | |
3127 | | static void d68000_sbcd_mm(m68k_info *info) |
3128 | 1.40k | { |
3129 | 1.40k | build_mm(info, M68K_INS_SBCD, 0, read_imm_16(info)); |
3130 | 1.40k | } |
3131 | | |
3132 | | static void d68000_scc(m68k_info *info) |
3133 | 3.97k | { |
3134 | 3.97k | cs_m68k* ext = build_init_op(info, s_scc_lut[(info->ir >> 8) & 0xf], 1, 1); |
3135 | 3.97k | get_ea_mode_op(info, &ext->operands[0], info->ir, 1); |
3136 | 3.97k | } |
3137 | | |
3138 | | static void d68000_stop(m68k_info *info) |
3139 | 163 | { |
3140 | 163 | build_absolute_jump_with_immediate(info, M68K_INS_STOP, 0, read_imm_16(info)); |
3141 | 163 | } |
3142 | | |
3143 | | static void d68000_sub_er_8(m68k_info *info) |
3144 | 2.15k | { |
3145 | 2.15k | build_er_1(info, M68K_INS_SUB, 1); |
3146 | 2.15k | } |
3147 | | |
3148 | | static void d68000_sub_er_16(m68k_info *info) |
3149 | 2.34k | { |
3150 | 2.34k | build_er_1(info, M68K_INS_SUB, 2); |
3151 | 2.34k | } |
3152 | | |
3153 | | static void d68000_sub_er_32(m68k_info *info) |
3154 | 9.51k | { |
3155 | 9.51k | build_er_1(info, M68K_INS_SUB, 4); |
3156 | 9.51k | } |
3157 | | |
3158 | | static void d68000_sub_re_8(m68k_info *info) |
3159 | 1.05k | { |
3160 | 1.05k | build_re_1(info, M68K_INS_SUB, 1); |
3161 | 1.05k | } |
3162 | | |
3163 | | static void d68000_sub_re_16(m68k_info *info) |
3164 | 1.37k | { |
3165 | 1.37k | build_re_1(info, M68K_INS_SUB, 2); |
3166 | 1.37k | } |
3167 | | |
3168 | | static void d68000_sub_re_32(m68k_info *info) |
3169 | 5.05k | { |
3170 | 5.05k | build_re_1(info, M68K_INS_SUB, 4); |
3171 | 5.05k | } |
3172 | | |
3173 | | static void d68000_suba_16(m68k_info *info) |
3174 | 1.91k | { |
3175 | 1.91k | build_ea_a(info, M68K_INS_SUBA, 2); |
3176 | 1.91k | } |
3177 | | |
3178 | | static void d68000_suba_32(m68k_info *info) |
3179 | 2.04k | { |
3180 | 2.04k | build_ea_a(info, M68K_INS_SUBA, 4); |
3181 | 2.04k | } |
3182 | | |
3183 | | static void d68000_subi_8(m68k_info *info) |
3184 | 1.42k | { |
3185 | 1.42k | build_imm_ea(info, M68K_INS_SUBI, 1, read_imm_8(info)); |
3186 | 1.42k | } |
3187 | | |
3188 | | static void d68000_subi_16(m68k_info *info) |
3189 | 1.06k | { |
3190 | 1.06k | build_imm_ea(info, M68K_INS_SUBI, 2, read_imm_16(info)); |
3191 | 1.06k | } |
3192 | | |
3193 | | static void d68000_subi_32(m68k_info *info) |
3194 | 497 | { |
3195 | 497 | build_imm_ea(info, M68K_INS_SUBI, 4, read_imm_32(info)); |
3196 | 497 | } |
3197 | | |
3198 | | static void d68000_subq_8(m68k_info *info) |
3199 | 2.08k | { |
3200 | 2.08k | build_3bit_ea(info, M68K_INS_SUBQ, 1); |
3201 | 2.08k | } |
3202 | | |
3203 | | static void d68000_subq_16(m68k_info *info) |
3204 | 5.22k | { |
3205 | 5.22k | build_3bit_ea(info, M68K_INS_SUBQ, 2); |
3206 | 5.22k | } |
3207 | | |
3208 | | static void d68000_subq_32(m68k_info *info) |
3209 | 1.43k | { |
3210 | 1.43k | build_3bit_ea(info, M68K_INS_SUBQ, 4); |
3211 | 1.43k | } |
3212 | | |
3213 | | static void d68000_subx_rr_8(m68k_info *info) |
3214 | 981 | { |
3215 | 981 | build_rr(info, M68K_INS_SUBX, 1, 0); |
3216 | 981 | } |
3217 | | |
3218 | | static void d68000_subx_rr_16(m68k_info *info) |
3219 | 400 | { |
3220 | 400 | build_rr(info, M68K_INS_SUBX, 2, 0); |
3221 | 400 | } |
3222 | | |
3223 | | static void d68000_subx_rr_32(m68k_info *info) |
3224 | 597 | { |
3225 | 597 | build_rr(info, M68K_INS_SUBX, 4, 0); |
3226 | 597 | } |
3227 | | |
3228 | | static void d68000_subx_mm_8(m68k_info *info) |
3229 | 474 | { |
3230 | 474 | build_mm(info, M68K_INS_SUBX, 1, 0); |
3231 | 474 | } |
3232 | | |
3233 | | static void d68000_subx_mm_16(m68k_info *info) |
3234 | 674 | { |
3235 | 674 | build_mm(info, M68K_INS_SUBX, 2, 0); |
3236 | 674 | } |
3237 | | |
3238 | | static void d68000_subx_mm_32(m68k_info *info) |
3239 | 406 | { |
3240 | 406 | build_mm(info, M68K_INS_SUBX, 4, 0); |
3241 | 406 | } |
3242 | | |
3243 | | static void d68000_swap(m68k_info *info) |
3244 | 154 | { |
3245 | 154 | build_d(info, M68K_INS_SWAP, 0); |
3246 | 154 | } |
3247 | | |
3248 | | static void d68000_tas(m68k_info *info) |
3249 | 677 | { |
3250 | 677 | build_ea(info, M68K_INS_TAS, 1); |
3251 | 677 | } |
3252 | | |
3253 | | static void d68000_trap(m68k_info *info) |
3254 | 2.32k | { |
3255 | 2.32k | build_absolute_jump_with_immediate(info, M68K_INS_TRAP, 0, info->ir&0xf); |
3256 | 2.32k | } |
3257 | | |
3258 | | static void d68020_trapcc_0(m68k_info *info) |
3259 | 1.21k | { |
3260 | 1.21k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3261 | 689 | build_trap(info, 0, 0); |
3262 | | |
3263 | 689 | info->extension.op_count = 0; |
3264 | 689 | } |
3265 | | |
3266 | | static void d68020_trapcc_16(m68k_info *info) |
3267 | 957 | { |
3268 | 957 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3269 | 674 | build_trap(info, 2, read_imm_16(info)); |
3270 | 674 | } |
3271 | | |
3272 | | static void d68020_trapcc_32(m68k_info *info) |
3273 | 586 | { |
3274 | 586 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3275 | 267 | build_trap(info, 4, read_imm_32(info)); |
3276 | 267 | } |
3277 | | |
3278 | | static void d68000_trapv(m68k_info *info) |
3279 | 218 | { |
3280 | 218 | MCInst_setOpcode(info->inst, M68K_INS_TRAPV); |
3281 | 218 | } |
3282 | | |
3283 | | static void d68000_tst_8(m68k_info *info) |
3284 | 1.41k | { |
3285 | 1.41k | build_ea(info, M68K_INS_TST, 1); |
3286 | 1.41k | } |
3287 | | |
3288 | | static void d68020_tst_pcdi_8(m68k_info *info) |
3289 | 693 | { |
3290 | 693 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3291 | 325 | build_ea(info, M68K_INS_TST, 1); |
3292 | 325 | } |
3293 | | |
3294 | | static void d68020_tst_pcix_8(m68k_info *info) |
3295 | 301 | { |
3296 | 301 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3297 | 178 | build_ea(info, M68K_INS_TST, 1); |
3298 | 178 | } |
3299 | | |
3300 | | static void d68020_tst_i_8(m68k_info *info) |
3301 | 493 | { |
3302 | 493 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3303 | 187 | build_ea(info, M68K_INS_TST, 1); |
3304 | 187 | } |
3305 | | |
3306 | | static void d68000_tst_16(m68k_info *info) |
3307 | 1.11k | { |
3308 | 1.11k | build_ea(info, M68K_INS_TST, 2); |
3309 | 1.11k | } |
3310 | | |
3311 | | static void d68020_tst_a_16(m68k_info *info) |
3312 | 3.96k | { |
3313 | 3.96k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3314 | 2.41k | build_ea(info, M68K_INS_TST, 2); |
3315 | 2.41k | } |
3316 | | |
3317 | | static void d68020_tst_pcdi_16(m68k_info *info) |
3318 | 458 | { |
3319 | 458 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3320 | 302 | build_ea(info, M68K_INS_TST, 2); |
3321 | 302 | } |
3322 | | |
3323 | | static void d68020_tst_pcix_16(m68k_info *info) |
3324 | 211 | { |
3325 | 211 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3326 | 113 | build_ea(info, M68K_INS_TST, 2); |
3327 | 113 | } |
3328 | | |
3329 | | static void d68020_tst_i_16(m68k_info *info) |
3330 | 227 | { |
3331 | 227 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3332 | 128 | build_ea(info, M68K_INS_TST, 2); |
3333 | 128 | } |
3334 | | |
3335 | | static void d68000_tst_32(m68k_info *info) |
3336 | 342 | { |
3337 | 342 | build_ea(info, M68K_INS_TST, 4); |
3338 | 342 | } |
3339 | | |
3340 | | static void d68020_tst_a_32(m68k_info *info) |
3341 | 1.08k | { |
3342 | 1.08k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3343 | 608 | build_ea(info, M68K_INS_TST, 4); |
3344 | 608 | } |
3345 | | |
3346 | | static void d68020_tst_pcdi_32(m68k_info *info) |
3347 | 977 | { |
3348 | 977 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3349 | 363 | build_ea(info, M68K_INS_TST, 4); |
3350 | 363 | } |
3351 | | |
3352 | | static void d68020_tst_pcix_32(m68k_info *info) |
3353 | 901 | { |
3354 | 901 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3355 | 209 | build_ea(info, M68K_INS_TST, 4); |
3356 | 209 | } |
3357 | | |
3358 | | static void d68020_tst_i_32(m68k_info *info) |
3359 | 458 | { |
3360 | 458 | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3361 | 268 | build_ea(info, M68K_INS_TST, 4); |
3362 | 268 | } |
3363 | | |
3364 | | static void d68000_unlk(m68k_info *info) |
3365 | 311 | { |
3366 | 311 | cs_m68k_op* op; |
3367 | 311 | cs_m68k* ext = build_init_op(info, M68K_INS_UNLK, 1, 0); |
3368 | | |
3369 | 311 | op = &ext->operands[0]; |
3370 | | |
3371 | 311 | op->address_mode = M68K_AM_REG_DIRECT_ADDR; |
3372 | 311 | op->reg = M68K_REG_A0 + (info->ir & 7); |
3373 | 311 | } |
3374 | | |
3375 | | static void d68020_unpk_rr(m68k_info *info) |
3376 | 4.06k | { |
3377 | 4.06k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3378 | 2.56k | build_rr(info, M68K_INS_UNPK, 0, read_imm_16(info)); |
3379 | 2.56k | } |
3380 | | |
3381 | | static void d68020_unpk_mm(m68k_info *info) |
3382 | 2.73k | { |
3383 | 2.73k | LIMIT_CPU_TYPES(info, M68020_PLUS); |
3384 | 1.59k | build_mm(info, M68K_INS_UNPK, 0, read_imm_16(info)); |
3385 | 1.59k | } |
3386 | | |
3387 | | /* This table is auto-generated. Look in contrib/m68k_instruction_tbl_gen for more info */ |
3388 | | #include "M68KInstructionTable.inc" |
3389 | | |
3390 | | static int instruction_is_valid(m68k_info *info, const unsigned int word_check) |
3391 | 598k | { |
3392 | 598k | const unsigned int instruction = info->ir; |
3393 | 598k | const instruction_struct *i = &g_instruction_table[instruction]; |
3394 | | |
3395 | 598k | if ( (i->word2_mask && ((word_check & i->word2_mask) != i->word2_match)) || |
3396 | 598k | (i->instruction == d68000_invalid) ) { |
3397 | 2.18k | d68000_invalid(info); |
3398 | 2.18k | return 0; |
3399 | 2.18k | } |
3400 | | |
3401 | 596k | return 1; |
3402 | 598k | } |
3403 | | |
3404 | | static int exists_reg_list(uint16_t *regs, uint8_t count, m68k_reg reg) |
3405 | 762k | { |
3406 | 762k | uint8_t i; |
3407 | | |
3408 | 1.03M | for (i = 0; i < count; ++i) { |
3409 | 281k | if (regs[i] == (uint16_t)reg) |
3410 | 10.8k | return 1; |
3411 | 281k | } |
3412 | | |
3413 | 751k | return 0; |
3414 | 762k | } |
3415 | | |
3416 | | static void add_reg_to_rw_list(m68k_info *info, m68k_reg reg, int write) |
3417 | 819k | { |
3418 | 819k | if (reg == M68K_REG_INVALID) |
3419 | 56.8k | return; |
3420 | | |
3421 | 762k | if (write) |
3422 | 452k | { |
3423 | 452k | if (exists_reg_list(info->regs_write, info->regs_write_count, reg)) |
3424 | 7.00k | return; |
3425 | | |
3426 | 444k | info->regs_write[info->regs_write_count] = (uint16_t)reg; |
3427 | 444k | info->regs_write_count++; |
3428 | 444k | } |
3429 | 310k | else |
3430 | 310k | { |
3431 | 310k | if (exists_reg_list(info->regs_read, info->regs_read_count, reg)) |
3432 | 3.87k | return; |
3433 | | |
3434 | 306k | info->regs_read[info->regs_read_count] = (uint16_t)reg; |
3435 | 306k | info->regs_read_count++; |
3436 | 306k | } |
3437 | 762k | } |
3438 | | |
3439 | | static void update_am_reg_list(m68k_info *info, cs_m68k_op *op, int write) |
3440 | 285k | { |
3441 | 285k | switch (op->address_mode) { |
3442 | 2.71k | case M68K_AM_REG_DIRECT_ADDR: |
3443 | 2.71k | case M68K_AM_REG_DIRECT_DATA: |
3444 | 2.71k | add_reg_to_rw_list(info, op->reg, write); |
3445 | 2.71k | break; |
3446 | | |
3447 | 48.1k | case M68K_AM_REGI_ADDR_POST_INC: |
3448 | 131k | case M68K_AM_REGI_ADDR_PRE_DEC: |
3449 | 131k | add_reg_to_rw_list(info, op->reg, 1); |
3450 | 131k | break; |
3451 | | |
3452 | 49.4k | case M68K_AM_REGI_ADDR: |
3453 | 87.0k | case M68K_AM_REGI_ADDR_DISP: |
3454 | 87.0k | add_reg_to_rw_list(info, op->reg, 0); |
3455 | 87.0k | break; |
3456 | | |
3457 | 24.8k | case M68K_AM_AREGI_INDEX_8_BIT_DISP: |
3458 | 32.5k | case M68K_AM_AREGI_INDEX_BASE_DISP: |
3459 | 38.6k | case M68K_AM_MEMI_POST_INDEX: |
3460 | 44.6k | case M68K_AM_MEMI_PRE_INDEX: |
3461 | 46.2k | case M68K_AM_PCI_INDEX_8_BIT_DISP: |
3462 | 46.3k | case M68K_AM_PCI_INDEX_BASE_DISP: |
3463 | 47.2k | case M68K_AM_PC_MEMI_PRE_INDEX: |
3464 | 47.6k | case M68K_AM_PC_MEMI_POST_INDEX: |
3465 | 47.6k | add_reg_to_rw_list(info, op->mem.index_reg, 0); |
3466 | 47.6k | add_reg_to_rw_list(info, op->mem.base_reg, 0); |
3467 | 47.6k | break; |
3468 | | |
3469 | | // no register(s) in the other addressing modes |
3470 | 16.2k | default: |
3471 | 16.2k | break; |
3472 | 285k | } |
3473 | 285k | } |
3474 | | |
3475 | | static void update_bits_range(m68k_info *info, m68k_reg reg_start, uint8_t bits, int write) |
3476 | 30.6k | { |
3477 | 30.6k | int i; |
3478 | | |
3479 | 275k | for (i = 0; i < 8; ++i) { |
3480 | 244k | if (bits & (1 << i)) { |
3481 | 51.7k | add_reg_to_rw_list(info, reg_start + i, write); |
3482 | 51.7k | } |
3483 | 244k | } |
3484 | 30.6k | } |
3485 | | |
3486 | | static void update_reg_list_regbits(m68k_info *info, cs_m68k_op *op, int write) |
3487 | 10.2k | { |
3488 | 10.2k | uint32_t bits = op->register_bits; |
3489 | 10.2k | update_bits_range(info, M68K_REG_D0, bits & 0xff, write); |
3490 | 10.2k | update_bits_range(info, M68K_REG_A0, (bits >> 8) & 0xff, write); |
3491 | 10.2k | update_bits_range(info, M68K_REG_FP0, (bits >> 16) & 0xff, write); |
3492 | 10.2k | } |
3493 | | |
3494 | | static void update_op_reg_list(m68k_info *info, cs_m68k_op *op, int write) |
3495 | 1.01M | { |
3496 | 1.01M | switch ((int)op->type) { |
3497 | 439k | case M68K_OP_REG: |
3498 | 439k | add_reg_to_rw_list(info, op->reg, write); |
3499 | 439k | break; |
3500 | | |
3501 | 285k | case M68K_OP_MEM: |
3502 | 285k | update_am_reg_list(info, op, write); |
3503 | 285k | break; |
3504 | | |
3505 | 10.2k | case M68K_OP_REG_BITS: |
3506 | 10.2k | update_reg_list_regbits(info, op, write); |
3507 | 10.2k | break; |
3508 | | |
3509 | 5.59k | case M68K_OP_REG_PAIR: |
3510 | 5.59k | add_reg_to_rw_list(info, op->reg_pair.reg_0, write); |
3511 | 5.59k | add_reg_to_rw_list(info, op->reg_pair.reg_1, write); |
3512 | 5.59k | break; |
3513 | 1.01M | } |
3514 | 1.01M | } |
3515 | | |
3516 | | static void build_regs_read_write_counts(m68k_info *info) |
3517 | 595k | { |
3518 | 595k | int i; |
3519 | | |
3520 | 595k | if (!info->extension.op_count) |
3521 | 1.58k | return; |
3522 | | |
3523 | 593k | if (info->extension.op_count == 1) { |
3524 | 183k | update_op_reg_list(info, &info->extension.operands[0], 1); |
3525 | 410k | } else { |
3526 | | // first operand is always read |
3527 | 410k | update_op_reg_list(info, &info->extension.operands[0], 0); |
3528 | | |
3529 | | // remaning write |
3530 | 829k | for (i = 1; i < info->extension.op_count; ++i) |
3531 | 418k | update_op_reg_list(info, &info->extension.operands[i], 1); |
3532 | 410k | } |
3533 | 593k | } |
3534 | | |
3535 | | static void m68k_setup_internals(m68k_info* info, MCInst* inst, unsigned int pc, unsigned int cpu_type) |
3536 | 596k | { |
3537 | 596k | info->inst = inst; |
3538 | 596k | info->pc = pc; |
3539 | 596k | info->ir = 0; |
3540 | 596k | info->type = cpu_type; |
3541 | 596k | info->address_mask = 0xffffffff; |
3542 | | |
3543 | 596k | switch(info->type) { |
3544 | 203k | case M68K_CPU_TYPE_68000: |
3545 | 203k | info->type = TYPE_68000; |
3546 | 203k | info->address_mask = 0x00ffffff; |
3547 | 203k | break; |
3548 | 0 | case M68K_CPU_TYPE_68010: |
3549 | 0 | info->type = TYPE_68010; |
3550 | 0 | info->address_mask = 0x00ffffff; |
3551 | 0 | break; |
3552 | 0 | case M68K_CPU_TYPE_68EC020: |
3553 | 0 | info->type = TYPE_68020; |
3554 | 0 | info->address_mask = 0x00ffffff; |
3555 | 0 | break; |
3556 | 0 | case M68K_CPU_TYPE_68020: |
3557 | 0 | info->type = TYPE_68020; |
3558 | 0 | info->address_mask = 0xffffffff; |
3559 | 0 | break; |
3560 | 0 | case M68K_CPU_TYPE_68030: |
3561 | 0 | info->type = TYPE_68030; |
3562 | 0 | info->address_mask = 0xffffffff; |
3563 | 0 | break; |
3564 | 393k | case M68K_CPU_TYPE_68040: |
3565 | 393k | info->type = TYPE_68040; |
3566 | 393k | info->address_mask = 0xffffffff; |
3567 | 393k | break; |
3568 | 0 | default: |
3569 | 0 | info->address_mask = 0; |
3570 | 0 | return; |
3571 | 596k | } |
3572 | 596k | } |
3573 | | |
3574 | | /* ======================================================================== */ |
3575 | | /* ================================= API ================================== */ |
3576 | | /* ======================================================================== */ |
3577 | | |
3578 | | /* Disasemble one instruction at pc and store in str_buff */ |
3579 | | static unsigned int m68k_disassemble(m68k_info *info, uint64_t pc) |
3580 | 596k | { |
3581 | 596k | MCInst *inst = info->inst; |
3582 | 596k | cs_m68k* ext = &info->extension; |
3583 | 596k | int i; |
3584 | 596k | unsigned int size; |
3585 | | |
3586 | 596k | inst->Opcode = M68K_INS_INVALID; |
3587 | | |
3588 | 596k | memset(ext, 0, sizeof(cs_m68k)); |
3589 | 596k | ext->op_size.type = M68K_SIZE_TYPE_CPU; |
3590 | | |
3591 | 2.98M | for (i = 0; i < M68K_OPERAND_COUNT; ++i) |
3592 | 2.38M | ext->operands[i].type = M68K_OP_REG; |
3593 | | |
3594 | 596k | info->ir = peek_imm_16(info); |
3595 | 596k | if (instruction_is_valid(info, peek_imm_32(info) & 0xffff)) { |
3596 | 595k | info->ir = read_imm_16(info); |
3597 | 595k | g_instruction_table[info->ir].instruction(info); |
3598 | 595k | } |
3599 | | |
3600 | 596k | size = info->pc - (unsigned int)pc; |
3601 | 596k | info->pc = (unsigned int)pc; |
3602 | | |
3603 | 596k | return size; |
3604 | 596k | } |
3605 | | |
3606 | | bool M68K_getInstruction(csh ud, const uint8_t* code, size_t code_len, MCInst* instr, uint16_t* size, uint64_t address, void* inst_info) |
3607 | 598k | { |
3608 | | #ifdef M68K_DEBUG |
3609 | | SStream ss; |
3610 | | #endif |
3611 | 598k | int s; |
3612 | 598k | int cpu_type = M68K_CPU_TYPE_68000; |
3613 | 598k | cs_struct* handle = instr->csh; |
3614 | 598k | m68k_info *info = (m68k_info*)handle->printer_info; |
3615 | | |
3616 | | // code len has to be at least 2 bytes to be valid m68k |
3617 | | |
3618 | 598k | if (code_len < 2) { |
3619 | 1.33k | *size = 0; |
3620 | 1.33k | return false; |
3621 | 1.33k | } |
3622 | | |
3623 | 596k | if (instr->flat_insn->detail) { |
3624 | 596k | memset(instr->flat_insn->detail, 0, offsetof(cs_detail, m68k)+sizeof(cs_m68k)); |
3625 | 596k | } |
3626 | | |
3627 | 596k | info->groups_count = 0; |
3628 | 596k | info->regs_read_count = 0; |
3629 | 596k | info->regs_write_count = 0; |
3630 | 596k | info->code = code; |
3631 | 596k | info->code_len = code_len; |
3632 | 596k | info->baseAddress = address; |
3633 | | |
3634 | 596k | if (handle->mode & CS_MODE_M68K_010) |
3635 | 0 | cpu_type = M68K_CPU_TYPE_68010; |
3636 | 596k | if (handle->mode & CS_MODE_M68K_020) |
3637 | 0 | cpu_type = M68K_CPU_TYPE_68020; |
3638 | 596k | if (handle->mode & CS_MODE_M68K_030) |
3639 | 0 | cpu_type = M68K_CPU_TYPE_68030; |
3640 | 596k | if (handle->mode & CS_MODE_M68K_040) |
3641 | 393k | cpu_type = M68K_CPU_TYPE_68040; |
3642 | 596k | if (handle->mode & CS_MODE_M68K_060) |
3643 | 0 | cpu_type = M68K_CPU_TYPE_68040; // 060 = 040 for now |
3644 | | |
3645 | 596k | m68k_setup_internals(info, instr, (unsigned int)address, cpu_type); |
3646 | 596k | s = m68k_disassemble(info, address); |
3647 | | |
3648 | 596k | if (s == 0) { |
3649 | 1.92k | *size = 2; |
3650 | 1.92k | return false; |
3651 | 1.92k | } |
3652 | | |
3653 | 595k | build_regs_read_write_counts(info); |
3654 | | |
3655 | | #ifdef M68K_DEBUG |
3656 | | SStream_Init(&ss); |
3657 | | M68K_printInst(instr, &ss, info); |
3658 | | #endif |
3659 | | |
3660 | | // Make sure we always stay within range |
3661 | 595k | if (s > (int)code_len) |
3662 | 1.54k | *size = (uint16_t)code_len; |
3663 | 593k | else |
3664 | 593k | *size = (uint16_t)s; |
3665 | | |
3666 | 595k | return true; |
3667 | 596k | } |
3668 | | |