Blame


1 a84cbb2a 2004-04-19 devnull /*
2 a84cbb2a 2004-04-19 devnull * 386 definition
3 a84cbb2a 2004-04-19 devnull */
4 a84cbb2a 2004-04-19 devnull #include <u.h>
5 a84cbb2a 2004-04-19 devnull #include <libc.h>
6 a84cbb2a 2004-04-19 devnull #include <bio.h>
7 a84cbb2a 2004-04-19 devnull #include <mach.h>
8 a84cbb2a 2004-04-19 devnull #include "ureg386.h"
9 a84cbb2a 2004-04-19 devnull
10 a84cbb2a 2004-04-19 devnull #define REGOFF(x) (ulong)(&((struct Ureg *) 0)->x)
11 a84cbb2a 2004-04-19 devnull
12 a84cbb2a 2004-04-19 devnull #define REGSIZE sizeof(struct Ureg)
13 a84cbb2a 2004-04-19 devnull #define FP_CTL(x) (REGSIZE+4*(x))
14 a84cbb2a 2004-04-19 devnull #define FP_REG(x) (FP_CTL(7)+10*(x))
15 a84cbb2a 2004-04-19 devnull #define FPREGSIZE (6*4+8*10)
16 a84cbb2a 2004-04-19 devnull
17 a84cbb2a 2004-04-19 devnull /*
18 a84cbb2a 2004-04-19 devnull * i386-specific debugger interface
19 a84cbb2a 2004-04-19 devnull */
20 a84cbb2a 2004-04-19 devnull
21 a84cbb2a 2004-04-19 devnull static char *i386excep(Map*, Regs*);
22 a84cbb2a 2004-04-19 devnull
23 a84cbb2a 2004-04-19 devnull /*
24 a84cbb2a 2004-04-19 devnull static int i386trace(Map*, ulong, ulong, ulong, Tracer);
25 a84cbb2a 2004-04-19 devnull static ulong i386frame(Map*, ulong, ulong, ulong, ulong);
26 a84cbb2a 2004-04-19 devnull */
27 a84cbb2a 2004-04-19 devnull static int i386foll(Map*, Regs*, ulong, ulong*);
28 a84cbb2a 2004-04-19 devnull static int i386hexinst(Map*, ulong, char*, int);
29 a84cbb2a 2004-04-19 devnull static int i386das(Map*, ulong, char, char*, int);
30 a84cbb2a 2004-04-19 devnull static int i386instlen(Map*, ulong);
31 a84cbb2a 2004-04-19 devnull static char *i386windregs[];
32 a84cbb2a 2004-04-19 devnull static int i386unwind(Map*, Regs*, ulong*);
33 a84cbb2a 2004-04-19 devnull
34 a84cbb2a 2004-04-19 devnull static Regdesc i386reglist[] = {
35 a84cbb2a 2004-04-19 devnull {"DI", REGOFF(di), RINT, 'X'},
36 a84cbb2a 2004-04-19 devnull {"SI", REGOFF(si), RINT, 'X'},
37 a84cbb2a 2004-04-19 devnull {"BP", REGOFF(bp), RINT, 'X'},
38 a84cbb2a 2004-04-19 devnull {"BX", REGOFF(bx), RINT, 'X'},
39 a84cbb2a 2004-04-19 devnull {"DX", REGOFF(dx), RINT, 'X'},
40 a84cbb2a 2004-04-19 devnull {"CX", REGOFF(cx), RINT, 'X'},
41 a84cbb2a 2004-04-19 devnull {"AX", REGOFF(ax), RINT, 'X'},
42 a84cbb2a 2004-04-19 devnull {"GS", REGOFF(gs), RINT, 'X'},
43 a84cbb2a 2004-04-19 devnull {"FS", REGOFF(fs), RINT, 'X'},
44 a84cbb2a 2004-04-19 devnull {"ES", REGOFF(es), RINT, 'X'},
45 a84cbb2a 2004-04-19 devnull {"DS", REGOFF(ds), RINT, 'X'},
46 a84cbb2a 2004-04-19 devnull {"TRAP", REGOFF(trap), RINT, 'X'},
47 a84cbb2a 2004-04-19 devnull {"ECODE", REGOFF(ecode), RINT, 'X'},
48 a84cbb2a 2004-04-19 devnull {"PC", REGOFF(pc), RINT, 'X'},
49 a84cbb2a 2004-04-19 devnull {"CS", REGOFF(cs), RINT, 'X'},
50 a84cbb2a 2004-04-19 devnull {"EFLAGS", REGOFF(flags), RINT, 'X'},
51 a84cbb2a 2004-04-19 devnull {"SP", REGOFF(sp), RINT, 'X'},
52 a84cbb2a 2004-04-19 devnull {"SS", REGOFF(ss), RINT, 'X'},
53 a84cbb2a 2004-04-19 devnull
54 a84cbb2a 2004-04-19 devnull {"E0", FP_CTL(0), RFLT, 'X'},
55 a84cbb2a 2004-04-19 devnull {"E1", FP_CTL(1), RFLT, 'X'},
56 a84cbb2a 2004-04-19 devnull {"E2", FP_CTL(2), RFLT, 'X'},
57 a84cbb2a 2004-04-19 devnull {"E3", FP_CTL(3), RFLT, 'X'},
58 a84cbb2a 2004-04-19 devnull {"E4", FP_CTL(4), RFLT, 'X'},
59 a84cbb2a 2004-04-19 devnull {"E5", FP_CTL(5), RFLT, 'X'},
60 a84cbb2a 2004-04-19 devnull {"E6", FP_CTL(6), RFLT, 'X'},
61 a84cbb2a 2004-04-19 devnull {"F0", FP_REG(7), RFLT, '3'},
62 a84cbb2a 2004-04-19 devnull {"F1", FP_REG(6), RFLT, '3'},
63 a84cbb2a 2004-04-19 devnull {"F2", FP_REG(5), RFLT, '3'},
64 a84cbb2a 2004-04-19 devnull {"F3", FP_REG(4), RFLT, '3'},
65 a84cbb2a 2004-04-19 devnull {"F4", FP_REG(3), RFLT, '3'},
66 a84cbb2a 2004-04-19 devnull {"F5", FP_REG(2), RFLT, '3'},
67 a84cbb2a 2004-04-19 devnull {"F6", FP_REG(1), RFLT, '3'},
68 a84cbb2a 2004-04-19 devnull {"F7", FP_REG(0), RFLT, '3'},
69 a84cbb2a 2004-04-19 devnull { 0 }
70 a84cbb2a 2004-04-19 devnull };
71 a84cbb2a 2004-04-19 devnull
72 a84cbb2a 2004-04-19 devnull Mach mach386 =
73 a84cbb2a 2004-04-19 devnull {
74 a84cbb2a 2004-04-19 devnull "386",
75 a84cbb2a 2004-04-19 devnull M386, /* machine type */
76 a84cbb2a 2004-04-19 devnull i386reglist, /* register list */
77 a84cbb2a 2004-04-19 devnull REGSIZE, /* size of registers in bytes */
78 a84cbb2a 2004-04-19 devnull FPREGSIZE, /* size of fp registers in bytes */
79 a84cbb2a 2004-04-19 devnull "PC", /* name of PC */
80 a84cbb2a 2004-04-19 devnull "SP", /* name of SP */
81 a84cbb2a 2004-04-19 devnull "BP", /* name of FP */
82 a84cbb2a 2004-04-19 devnull 0, /* link register */
83 a84cbb2a 2004-04-19 devnull "setSB", /* static base register name (bogus anyways) */
84 a84cbb2a 2004-04-19 devnull 0, /* static base register value */
85 a84cbb2a 2004-04-19 devnull 0x1000, /* page size */
86 a84cbb2a 2004-04-19 devnull 0x80100000, /* kernel base */
87 a84cbb2a 2004-04-19 devnull 0, /* kernel text mask */
88 a84cbb2a 2004-04-19 devnull 1, /* quantization of pc */
89 a84cbb2a 2004-04-19 devnull 4, /* szaddr */
90 a84cbb2a 2004-04-19 devnull 4, /* szreg */
91 a84cbb2a 2004-04-19 devnull 4, /* szfloat */
92 a84cbb2a 2004-04-19 devnull 8, /* szdouble */
93 a84cbb2a 2004-04-19 devnull
94 a84cbb2a 2004-04-19 devnull i386windregs, /* locations unwound in stack trace */
95 a84cbb2a 2004-04-19 devnull 9,
96 a84cbb2a 2004-04-19 devnull
97 a84cbb2a 2004-04-19 devnull {0xCC, 0, 0, 0}, /* break point: INT 3 */
98 a84cbb2a 2004-04-19 devnull 1, /* break point size */
99 a84cbb2a 2004-04-19 devnull
100 a84cbb2a 2004-04-19 devnull i386foll, /* following addresses */
101 a84cbb2a 2004-04-19 devnull i386excep, /* print exception */
102 a84cbb2a 2004-04-19 devnull i386unwind, /* stack unwind */
103 a84cbb2a 2004-04-19 devnull
104 a84cbb2a 2004-04-19 devnull leswap2, /* convert short to local byte order */
105 a84cbb2a 2004-04-19 devnull leswap4, /* convert long to local byte order */
106 a84cbb2a 2004-04-19 devnull leswap8, /* convert vlong to local byte order */
107 a84cbb2a 2004-04-19 devnull leieeeftoa32, /* single precision float pointer */
108 a84cbb2a 2004-04-19 devnull leieeeftoa64, /* double precision float pointer */
109 a84cbb2a 2004-04-19 devnull leieeeftoa80, /* long double precision floating point */
110 a84cbb2a 2004-04-19 devnull
111 a84cbb2a 2004-04-19 devnull i386das, /* dissembler */
112 a84cbb2a 2004-04-19 devnull i386das, /* plan9-format disassembler */
113 a84cbb2a 2004-04-19 devnull 0, /* commercial disassembler */
114 a84cbb2a 2004-04-19 devnull i386hexinst, /* print instruction */
115 a84cbb2a 2004-04-19 devnull i386instlen, /* instruction size calculation */
116 a84cbb2a 2004-04-19 devnull };
117 a84cbb2a 2004-04-19 devnull
118 a84cbb2a 2004-04-19 devnull static char *i386windregs[] = {
119 a84cbb2a 2004-04-19 devnull "PC",
120 a84cbb2a 2004-04-19 devnull "SP",
121 a84cbb2a 2004-04-19 devnull "BP",
122 a84cbb2a 2004-04-19 devnull "AX",
123 a84cbb2a 2004-04-19 devnull "CX",
124 a84cbb2a 2004-04-19 devnull "DX",
125 a84cbb2a 2004-04-19 devnull "BX",
126 a84cbb2a 2004-04-19 devnull "SI",
127 a84cbb2a 2004-04-19 devnull "DI",
128 a84cbb2a 2004-04-19 devnull 0,
129 a84cbb2a 2004-04-19 devnull };
130 a84cbb2a 2004-04-19 devnull
131 a84cbb2a 2004-04-19 devnull static int
132 a84cbb2a 2004-04-19 devnull i386unwind(Map *map, Regs *regs, ulong *next)
133 a84cbb2a 2004-04-19 devnull {
134 a84cbb2a 2004-04-19 devnull int isp, ipc, ibp;
135 a84cbb2a 2004-04-19 devnull ulong bp;
136 a84cbb2a 2004-04-19 devnull u32int v;
137 a84cbb2a 2004-04-19 devnull
138 a84cbb2a 2004-04-19 devnull /* No symbol information, use frame pointer and do the best we can. */
139 a84cbb2a 2004-04-19 devnull isp = windindex("SP");
140 a84cbb2a 2004-04-19 devnull ipc = windindex("PC");
141 a84cbb2a 2004-04-19 devnull ibp = windindex("BP");
142 a84cbb2a 2004-04-19 devnull if(isp < 0 || ipc < 0 || ibp < 0){
143 a84cbb2a 2004-04-19 devnull werrstr("i386unwind: cannot happen");
144 a84cbb2a 2004-04-19 devnull return -1;
145 a84cbb2a 2004-04-19 devnull }
146 a84cbb2a 2004-04-19 devnull
147 a84cbb2a 2004-04-19 devnull bp = next[ibp];
148 a84cbb2a 2004-04-19 devnull
149 a84cbb2a 2004-04-19 devnull if(get4(map, bp, &v) < 0)
150 a84cbb2a 2004-04-19 devnull return -1;
151 a84cbb2a 2004-04-19 devnull next[ibp] = v;
152 a84cbb2a 2004-04-19 devnull
153 a84cbb2a 2004-04-19 devnull next[isp] = bp+4;
154 a84cbb2a 2004-04-19 devnull
155 a84cbb2a 2004-04-19 devnull if(get4(map, bp+4, &v) < 0)
156 a84cbb2a 2004-04-19 devnull return -1;
157 a84cbb2a 2004-04-19 devnull next[ipc] = v;
158 a84cbb2a 2004-04-19 devnull
159 a84cbb2a 2004-04-19 devnull return 0;
160 a84cbb2a 2004-04-19 devnull }
161 a84cbb2a 2004-04-19 devnull
162 a84cbb2a 2004-04-19 devnull //static char STARTSYM[] = "_main";
163 a84cbb2a 2004-04-19 devnull //static char PROFSYM[] = "_mainp";
164 a84cbb2a 2004-04-19 devnull static char FRAMENAME[] = ".frame";
165 a84cbb2a 2004-04-19 devnull static char *excname[] =
166 a84cbb2a 2004-04-19 devnull {
167 20b33daf 2004-04-20 devnull "divide error", /* 0 */
168 20b33daf 2004-04-20 devnull "debug exception", /* 1 */
169 20b33daf 2004-04-20 devnull 0,0, /* 2, 3 */
170 20b33daf 2004-04-20 devnull "overflow", /* 4 */
171 20b33daf 2004-04-20 devnull "bounds check", /* 5 */
172 20b33daf 2004-04-20 devnull "invalid opcode", /* 6 */
173 20b33daf 2004-04-20 devnull "math coprocessor emulation", /* 7 */
174 20b33daf 2004-04-20 devnull "double fault", /* 8 */
175 20b33daf 2004-04-20 devnull "math coprocessor overrun", /* 9 */
176 20b33daf 2004-04-20 devnull "invalid TSS", /* 10 */
177 20b33daf 2004-04-20 devnull "segment not present", /* 11 */
178 20b33daf 2004-04-20 devnull "stack exception", /* 12 */
179 20b33daf 2004-04-20 devnull "general protection violation", /* 13 */
180 20b33daf 2004-04-20 devnull "page fault", /* 14 */
181 20b33daf 2004-04-20 devnull 0, /* 15 */
182 20b33daf 2004-04-20 devnull "math coprocessor error", /* 16 */
183 20b33daf 2004-04-20 devnull 0,0,0,0,0,0,0, /* 17-23 */
184 20b33daf 2004-04-20 devnull "clock", /* 24 */
185 20b33daf 2004-04-20 devnull "keyboard", /* 25 */
186 20b33daf 2004-04-20 devnull 0, /* 26 */
187 20b33daf 2004-04-20 devnull "modem status", /* 27 */
188 20b33daf 2004-04-20 devnull "serial line status", /* 28 */
189 20b33daf 2004-04-20 devnull 0, /* 29 */
190 20b33daf 2004-04-20 devnull "floppy disk", /* 30 */
191 20b33daf 2004-04-20 devnull 0,0,0,0,0, /* 31-35 */
192 20b33daf 2004-04-20 devnull "mouse", /* 36 */
193 20b33daf 2004-04-20 devnull "math coprocessor", /* 37 */
194 20b33daf 2004-04-20 devnull "hard disk", /* 38 */
195 20b33daf 2004-04-20 devnull 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,/* 39-54 */
196 20b33daf 2004-04-20 devnull 0,0,0,0,0,0,0,0,0, /* 55-63 */
197 20b33daf 2004-04-20 devnull "system call", /* 64 */
198 a84cbb2a 2004-04-19 devnull };
199 a84cbb2a 2004-04-19 devnull
200 a84cbb2a 2004-04-19 devnull static char*
201 a84cbb2a 2004-04-19 devnull i386excep(Map *map, Regs *regs)
202 a84cbb2a 2004-04-19 devnull {
203 a84cbb2a 2004-04-19 devnull ulong c;
204 a84cbb2a 2004-04-19 devnull ulong pc;
205 a84cbb2a 2004-04-19 devnull static char buf[16];
206 a84cbb2a 2004-04-19 devnull
207 a84cbb2a 2004-04-19 devnull if(rget(regs, "TRAP", &c) < 0)
208 a84cbb2a 2004-04-19 devnull return "no trap register";
209 a84cbb2a 2004-04-19 devnull
210 a84cbb2a 2004-04-19 devnull if(c > 64 || excname[c] == 0) {
211 a84cbb2a 2004-04-19 devnull if (c == 3) {
212 a84cbb2a 2004-04-19 devnull if (rget(regs, "PC", &pc) >= 0)
213 a84cbb2a 2004-04-19 devnull if (get1(map, pc, (uchar*)buf, mach->bpsize) > 0)
214 a84cbb2a 2004-04-19 devnull if (memcmp(buf, mach->bpinst, mach->bpsize) == 0)
215 a84cbb2a 2004-04-19 devnull return "breakpoint";
216 a84cbb2a 2004-04-19 devnull }
217 a84cbb2a 2004-04-19 devnull sprint(buf, "exception %ld", c);
218 a84cbb2a 2004-04-19 devnull return buf;
219 a84cbb2a 2004-04-19 devnull } else
220 a84cbb2a 2004-04-19 devnull return excname[c];
221 a84cbb2a 2004-04-19 devnull }
222 a84cbb2a 2004-04-19 devnull
223 a84cbb2a 2004-04-19 devnull /* I386/486 - Disassembler and related functions */
224 a84cbb2a 2004-04-19 devnull
225 a84cbb2a 2004-04-19 devnull /*
226 a84cbb2a 2004-04-19 devnull * an instruction
227 a84cbb2a 2004-04-19 devnull */
228 a84cbb2a 2004-04-19 devnull typedef struct Instr Instr;
229 a84cbb2a 2004-04-19 devnull struct Instr
230 a84cbb2a 2004-04-19 devnull {
231 a84cbb2a 2004-04-19 devnull uchar mem[1+1+1+1+2+1+1+4+4]; /* raw instruction */
232 a84cbb2a 2004-04-19 devnull ulong addr; /* address of start of instruction */
233 a84cbb2a 2004-04-19 devnull int n; /* number of bytes in instruction */
234 a84cbb2a 2004-04-19 devnull char *prefix; /* instr prefix */
235 a84cbb2a 2004-04-19 devnull char *segment; /* segment override */
236 a84cbb2a 2004-04-19 devnull uchar jumptype; /* set to the operand type for jump/ret/call */
237 a84cbb2a 2004-04-19 devnull char osize; /* 'W' or 'L' */
238 a84cbb2a 2004-04-19 devnull char asize; /* address size 'W' or 'L' */
239 a84cbb2a 2004-04-19 devnull uchar mod; /* bits 6-7 of mod r/m field */
240 a84cbb2a 2004-04-19 devnull uchar reg; /* bits 3-5 of mod r/m field */
241 a84cbb2a 2004-04-19 devnull char ss; /* bits 6-7 of SIB */
242 a84cbb2a 2004-04-19 devnull char index; /* bits 3-5 of SIB */
243 a84cbb2a 2004-04-19 devnull char base; /* bits 0-2 of SIB */
244 a84cbb2a 2004-04-19 devnull short seg; /* segment of far address */
245 a84cbb2a 2004-04-19 devnull ulong disp; /* displacement */
246 a84cbb2a 2004-04-19 devnull ulong imm; /* immediate */
247 a84cbb2a 2004-04-19 devnull ulong imm2; /* second immediate operand */
248 a84cbb2a 2004-04-19 devnull char *curr; /* fill level in output buffer */
249 a84cbb2a 2004-04-19 devnull char *end; /* end of output buffer */
250 a84cbb2a 2004-04-19 devnull char *err; /* error message */
251 a84cbb2a 2004-04-19 devnull };
252 a84cbb2a 2004-04-19 devnull
253 a84cbb2a 2004-04-19 devnull /* 386 register (ha!) set */
254 a84cbb2a 2004-04-19 devnull enum{
255 a84cbb2a 2004-04-19 devnull AX=0,
256 a84cbb2a 2004-04-19 devnull CX,
257 a84cbb2a 2004-04-19 devnull DX,
258 a84cbb2a 2004-04-19 devnull BX,
259 a84cbb2a 2004-04-19 devnull SP,
260 a84cbb2a 2004-04-19 devnull BP,
261 a84cbb2a 2004-04-19 devnull SI,
262 a84cbb2a 2004-04-19 devnull DI,
263 a84cbb2a 2004-04-19 devnull };
264 a84cbb2a 2004-04-19 devnull /* Operand Format codes */
265 a84cbb2a 2004-04-19 devnull /*
266 a84cbb2a 2004-04-19 devnull %A - address size register modifier (!asize -> 'E')
267 a84cbb2a 2004-04-19 devnull %C - Control register CR0/CR1/CR2
268 a84cbb2a 2004-04-19 devnull %D - Debug register DR0/DR1/DR2/DR3/DR6/DR7
269 a84cbb2a 2004-04-19 devnull %I - second immediate operand
270 a84cbb2a 2004-04-19 devnull %O - Operand size register modifier (!osize -> 'E')
271 a84cbb2a 2004-04-19 devnull %T - Test register TR6/TR7
272 a84cbb2a 2004-04-19 devnull %S - size code ('W' or 'L')
273 a84cbb2a 2004-04-19 devnull %X - Weird opcode: OSIZE == 'W' => "CBW"; else => "CWDE"
274 a84cbb2a 2004-04-19 devnull %d - displacement 16-32 bits
275 a84cbb2a 2004-04-19 devnull %e - effective address - Mod R/M value
276 a84cbb2a 2004-04-19 devnull %f - floating point register F0-F7 - from Mod R/M register
277 a84cbb2a 2004-04-19 devnull %g - segment register
278 a84cbb2a 2004-04-19 devnull %i - immediate operand 8-32 bits
279 a84cbb2a 2004-04-19 devnull %p - PC-relative - signed displacement in immediate field
280 a84cbb2a 2004-04-19 devnull %r - Reg from Mod R/M
281 a84cbb2a 2004-04-19 devnull %x - Weird opcode: OSIZE == 'W' => "CWD"; else => "CDQ"
282 a84cbb2a 2004-04-19 devnull */
283 a84cbb2a 2004-04-19 devnull
284 a84cbb2a 2004-04-19 devnull typedef struct Optable Optable;
285 a84cbb2a 2004-04-19 devnull struct Optable
286 a84cbb2a 2004-04-19 devnull {
287 a84cbb2a 2004-04-19 devnull char operand[2];
288 a84cbb2a 2004-04-19 devnull void *proto; /* actually either (char*) or (Optable*) */
289 a84cbb2a 2004-04-19 devnull };
290 a84cbb2a 2004-04-19 devnull /* Operand decoding codes */
291 a84cbb2a 2004-04-19 devnull enum {
292 a84cbb2a 2004-04-19 devnull Ib = 1, /* 8-bit immediate - (no sign extension)*/
293 a84cbb2a 2004-04-19 devnull Ibs, /* 8-bit immediate (sign extended) */
294 a84cbb2a 2004-04-19 devnull Jbs, /* 8-bit sign-extended immediate in jump or call */
295 a84cbb2a 2004-04-19 devnull Iw, /* 16-bit immediate -> imm */
296 a84cbb2a 2004-04-19 devnull Iw2, /* 16-bit immediate -> imm2 */
297 a84cbb2a 2004-04-19 devnull Iwd, /* Operand-sized immediate (no sign extension)*/
298 a84cbb2a 2004-04-19 devnull Awd, /* Address offset */
299 a84cbb2a 2004-04-19 devnull Iwds, /* Operand-sized immediate (sign extended) */
300 a84cbb2a 2004-04-19 devnull RM, /* Word or long R/M field with register (/r) */
301 a84cbb2a 2004-04-19 devnull RMB, /* Byte R/M field with register (/r) */
302 a84cbb2a 2004-04-19 devnull RMOP, /* Word or long R/M field with op code (/digit) */
303 a84cbb2a 2004-04-19 devnull RMOPB, /* Byte R/M field with op code (/digit) */
304 a84cbb2a 2004-04-19 devnull RMR, /* R/M register only (mod = 11) */
305 a84cbb2a 2004-04-19 devnull RMM, /* R/M memory only (mod = 0/1/2) */
306 a84cbb2a 2004-04-19 devnull R0, /* Base reg of Mod R/M is literal 0x00 */
307 a84cbb2a 2004-04-19 devnull R1, /* Base reg of Mod R/M is literal 0x01 */
308 a84cbb2a 2004-04-19 devnull FRMOP, /* Floating point R/M field with opcode */
309 a84cbb2a 2004-04-19 devnull FRMEX, /* Extended floating point R/M field with opcode */
310 a84cbb2a 2004-04-19 devnull JUMP, /* Jump or Call flag - no operand */
311 a84cbb2a 2004-04-19 devnull RET, /* Return flag - no operand */
312 a84cbb2a 2004-04-19 devnull OA, /* literal 0x0a byte */
313 a84cbb2a 2004-04-19 devnull PTR, /* Seg:Displacement addr (ptr16:16 or ptr16:32) */
314 a84cbb2a 2004-04-19 devnull AUX, /* Multi-byte op code - Auxiliary table */
315 a84cbb2a 2004-04-19 devnull PRE, /* Instr Prefix */
316 a84cbb2a 2004-04-19 devnull SEG, /* Segment Prefix */
317 a84cbb2a 2004-04-19 devnull OPOVER, /* Operand size override */
318 a84cbb2a 2004-04-19 devnull ADDOVER, /* Address size override */
319 a84cbb2a 2004-04-19 devnull };
320 a84cbb2a 2004-04-19 devnull
321 a84cbb2a 2004-04-19 devnull static Optable optab0F00[8]=
322 a84cbb2a 2004-04-19 devnull {
323 10323cd3 2004-04-19 devnull 0,0, "MOVW LDT,%e", /* 0x00 */
324 10323cd3 2004-04-19 devnull 0,0, "MOVW TR,%e", /* 0x01 */
325 10323cd3 2004-04-19 devnull 0,0, "MOVW %e,LDT", /* 0x02 */
326 10323cd3 2004-04-19 devnull 0,0, "MOVW %e,TR", /* 0x03 */
327 10323cd3 2004-04-19 devnull 0,0, "VERR %e", /* 0x04 */
328 10323cd3 2004-04-19 devnull 0,0, "VERW %e", /* 0x05 */
329 a84cbb2a 2004-04-19 devnull };
330 a84cbb2a 2004-04-19 devnull
331 a84cbb2a 2004-04-19 devnull static Optable optab0F01[8]=
332 a84cbb2a 2004-04-19 devnull {
333 10323cd3 2004-04-19 devnull 0,0, "MOVL GDTR,%e", /* 0x00 */
334 10323cd3 2004-04-19 devnull 0,0, "MOVL IDTR,%e", /* 0x01 */
335 10323cd3 2004-04-19 devnull 0,0, "MOVL %e,GDTR", /* 0x02 */
336 10323cd3 2004-04-19 devnull 0,0, "MOVL %e,IDTR", /* 0x03 */
337 10323cd3 2004-04-19 devnull 0,0, "MOVW MSW,%e", /* 0x04 */ /* word */
338 10323cd3 2004-04-19 devnull 0,0, "", /* 0x05 */
339 10323cd3 2004-04-19 devnull 0,0, "MOVW %e,MSW", /* 0x06 */ /* word */
340 a84cbb2a 2004-04-19 devnull };
341 a84cbb2a 2004-04-19 devnull
342 a84cbb2a 2004-04-19 devnull static Optable optab0FBA[8]=
343 a84cbb2a 2004-04-19 devnull {
344 10323cd3 2004-04-19 devnull 0,0, "", /* 0x00 */
345 10323cd3 2004-04-19 devnull 0,0, "", /* 0x01 */
346 10323cd3 2004-04-19 devnull 0,0, "", /* 0x02 */
347 10323cd3 2004-04-19 devnull 0,0, "", /* 0x03 */
348 10323cd3 2004-04-19 devnull Ib,0, "BT%S %i,%e", /* 0x04 */
349 10323cd3 2004-04-19 devnull Ib,0, "BTS%S %i,%e", /* 0x05 */
350 10323cd3 2004-04-19 devnull Ib,0, "BTR%S %i,%e", /* 0x06 */
351 10323cd3 2004-04-19 devnull Ib,0, "BTC%S %i,%e", /* 0x07 */
352 a84cbb2a 2004-04-19 devnull };
353 a84cbb2a 2004-04-19 devnull
354 a84cbb2a 2004-04-19 devnull static Optable optab0F[256]=
355 a84cbb2a 2004-04-19 devnull {
356 10323cd3 2004-04-19 devnull RMOP,0, optab0F00, /* 0x00 */
357 10323cd3 2004-04-19 devnull RMOP,0, optab0F01, /* 0x01 */
358 10323cd3 2004-04-19 devnull RM,0, "LAR %e,%r", /* 0x02 */
359 10323cd3 2004-04-19 devnull RM,0, "LSL %e,%r", /* 0x03 */
360 10323cd3 2004-04-19 devnull 0,0, "", /* 0x04 */
361 10323cd3 2004-04-19 devnull 0,0, "", /* 0x05 */
362 10323cd3 2004-04-19 devnull 0,0, "CLTS", /* 0x06 */
363 10323cd3 2004-04-19 devnull 0,0, "", /* 0x07 */
364 10323cd3 2004-04-19 devnull 0,0, "INVD", /* 0x08 */
365 10323cd3 2004-04-19 devnull 0,0, "WBINVD", /* 0x09 */
366 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0a */
367 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0b */
368 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0c */
369 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0d */
370 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0e */
371 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0f */
372 10323cd3 2004-04-19 devnull 0,0, "", /* 0x10 */
373 10323cd3 2004-04-19 devnull 0,0, "", /* 0x11 */
374 10323cd3 2004-04-19 devnull 0,0, "", /* 0x12 */
375 10323cd3 2004-04-19 devnull 0,0, "", /* 0x13 */
376 10323cd3 2004-04-19 devnull 0,0, "", /* 0x14 */
377 10323cd3 2004-04-19 devnull 0,0, "", /* 0x15 */
378 10323cd3 2004-04-19 devnull 0,0, "", /* 0x16 */
379 10323cd3 2004-04-19 devnull 0,0, "", /* 0x17 */
380 10323cd3 2004-04-19 devnull 0,0, "", /* 0x18 */
381 10323cd3 2004-04-19 devnull 0,0, "", /* 0x19 */
382 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1a */
383 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1b */
384 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1c */
385 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1d */
386 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1e */
387 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1f */
388 10323cd3 2004-04-19 devnull RMR,0, "MOVL %C,%e", /* 0x20 */
389 10323cd3 2004-04-19 devnull RMR,0, "MOVL %D,%e", /* 0x21 */
390 10323cd3 2004-04-19 devnull RMR,0, "MOVL %e,%C", /* 0x22 */
391 10323cd3 2004-04-19 devnull RMR,0, "MOVL %e,%D", /* 0x23 */
392 10323cd3 2004-04-19 devnull RMR,0, "MOVL %T,%e", /* 0x24 */
393 10323cd3 2004-04-19 devnull 0,0, "", /* 0x25 */
394 10323cd3 2004-04-19 devnull RMR,0, "MOVL %e,%T", /* 0x26 */
395 10323cd3 2004-04-19 devnull 0,0, "", /* 0x27 */
396 10323cd3 2004-04-19 devnull 0,0, "", /* 0x28 */
397 10323cd3 2004-04-19 devnull 0,0, "", /* 0x29 */
398 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2a */
399 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2b */
400 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2c */
401 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2d */
402 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2e */
403 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2f */
404 10323cd3 2004-04-19 devnull 0,0, "WRMSR", /* 0x30 */
405 10323cd3 2004-04-19 devnull 0,0, "RDTSC", /* 0x31 */
406 10323cd3 2004-04-19 devnull 0,0, "RDMSR", /* 0x32 */
407 10323cd3 2004-04-19 devnull 0,0, "", /* 0x33 */
408 10323cd3 2004-04-19 devnull 0,0, "", /* 0x34 */
409 10323cd3 2004-04-19 devnull 0,0, "", /* 0x35 */
410 10323cd3 2004-04-19 devnull 0,0, "", /* 0x36 */
411 10323cd3 2004-04-19 devnull 0,0, "", /* 0x37 */
412 10323cd3 2004-04-19 devnull 0,0, "", /* 0x38 */
413 10323cd3 2004-04-19 devnull 0,0, "", /* 0x39 */
414 10323cd3 2004-04-19 devnull 0,0, "", /* 0x3a */
415 10323cd3 2004-04-19 devnull 0,0, "", /* 0x3b */
416 10323cd3 2004-04-19 devnull 0,0, "", /* 0x3c */
417 10323cd3 2004-04-19 devnull 0,0, "", /* 0x3d */
418 10323cd3 2004-04-19 devnull 0,0, "", /* 0x3e */
419 10323cd3 2004-04-19 devnull 0,0, "", /* 0x3f */
420 10323cd3 2004-04-19 devnull 0,0, "", /* 0x40 */
421 10323cd3 2004-04-19 devnull 0,0, "", /* 0x41 */
422 10323cd3 2004-04-19 devnull 0,0, "", /* 0x42 */
423 10323cd3 2004-04-19 devnull 0,0, "", /* 0x43 */
424 10323cd3 2004-04-19 devnull 0,0, "", /* 0x44 */
425 10323cd3 2004-04-19 devnull 0,0, "", /* 0x45 */
426 10323cd3 2004-04-19 devnull 0,0, "", /* 0x46 */
427 10323cd3 2004-04-19 devnull 0,0, "", /* 0x47 */
428 10323cd3 2004-04-19 devnull 0,0, "", /* 0x48 */
429 10323cd3 2004-04-19 devnull 0,0, "", /* 0x49 */
430 10323cd3 2004-04-19 devnull 0,0, "", /* 0x4a */
431 10323cd3 2004-04-19 devnull 0,0, "", /* 0x4b */
432 10323cd3 2004-04-19 devnull 0,0, "", /* 0x4c */
433 10323cd3 2004-04-19 devnull 0,0, "", /* 0x4d */
434 10323cd3 2004-04-19 devnull 0,0, "", /* 0x4e */
435 10323cd3 2004-04-19 devnull 0,0, "", /* 0x4f */
436 10323cd3 2004-04-19 devnull 0,0, "", /* 0x50 */
437 10323cd3 2004-04-19 devnull 0,0, "", /* 0x51 */
438 10323cd3 2004-04-19 devnull 0,0, "", /* 0x52 */
439 10323cd3 2004-04-19 devnull 0,0, "", /* 0x53 */
440 10323cd3 2004-04-19 devnull 0,0, "", /* 0x54 */
441 10323cd3 2004-04-19 devnull 0,0, "", /* 0x55 */
442 10323cd3 2004-04-19 devnull 0,0, "", /* 0x56 */
443 10323cd3 2004-04-19 devnull 0,0, "", /* 0x57 */
444 10323cd3 2004-04-19 devnull 0,0, "", /* 0x58 */
445 10323cd3 2004-04-19 devnull 0,0, "", /* 0x59 */
446 10323cd3 2004-04-19 devnull 0,0, "", /* 0x5a */
447 10323cd3 2004-04-19 devnull 0,0, "", /* 0x5b */
448 10323cd3 2004-04-19 devnull 0,0, "", /* 0x5c */
449 10323cd3 2004-04-19 devnull 0,0, "", /* 0x5d */
450 10323cd3 2004-04-19 devnull 0,0, "", /* 0x5e */
451 10323cd3 2004-04-19 devnull 0,0, "", /* 0x5f */
452 10323cd3 2004-04-19 devnull 0,0, "", /* 0x60 */
453 10323cd3 2004-04-19 devnull 0,0, "", /* 0x61 */
454 10323cd3 2004-04-19 devnull 0,0, "", /* 0x62 */
455 10323cd3 2004-04-19 devnull 0,0, "", /* 0x63 */
456 10323cd3 2004-04-19 devnull 0,0, "", /* 0x64 */
457 10323cd3 2004-04-19 devnull 0,0, "", /* 0x65 */
458 10323cd3 2004-04-19 devnull 0,0, "", /* 0x66 */
459 10323cd3 2004-04-19 devnull 0,0, "", /* 0x67 */
460 10323cd3 2004-04-19 devnull 0,0, "", /* 0x68 */
461 10323cd3 2004-04-19 devnull 0,0, "", /* 0x69 */
462 10323cd3 2004-04-19 devnull 0,0, "", /* 0x6a */
463 10323cd3 2004-04-19 devnull 0,0, "", /* 0x6b */
464 10323cd3 2004-04-19 devnull 0,0, "", /* 0x6c */
465 10323cd3 2004-04-19 devnull 0,0, "", /* 0x6d */
466 10323cd3 2004-04-19 devnull 0,0, "", /* 0x6e */
467 10323cd3 2004-04-19 devnull 0,0, "", /* 0x6f */
468 10323cd3 2004-04-19 devnull 0,0, "", /* 0x70 */
469 10323cd3 2004-04-19 devnull 0,0, "", /* 0x71 */
470 10323cd3 2004-04-19 devnull 0,0, "", /* 0x72 */
471 10323cd3 2004-04-19 devnull 0,0, "", /* 0x73 */
472 10323cd3 2004-04-19 devnull 0,0, "", /* 0x74 */
473 10323cd3 2004-04-19 devnull 0,0, "", /* 0x75 */
474 10323cd3 2004-04-19 devnull 0,0, "", /* 0x76 */
475 10323cd3 2004-04-19 devnull 0,0, "", /* 0x77 */
476 10323cd3 2004-04-19 devnull 0,0, "", /* 0x78 */
477 10323cd3 2004-04-19 devnull 0,0, "", /* 0x79 */
478 10323cd3 2004-04-19 devnull 0,0, "", /* 0x7a */
479 10323cd3 2004-04-19 devnull 0,0, "", /* 0x7b */
480 10323cd3 2004-04-19 devnull 0,0, "", /* 0x7c */
481 10323cd3 2004-04-19 devnull 0,0, "", /* 0x7d */
482 10323cd3 2004-04-19 devnull 0,0, "", /* 0x7e */
483 10323cd3 2004-04-19 devnull 0,0, "", /* 0x7f */
484 10323cd3 2004-04-19 devnull Iwds,0, "JOS %p", /* 0x80 */
485 10323cd3 2004-04-19 devnull Iwds,0, "JOC %p", /* 0x81 */
486 10323cd3 2004-04-19 devnull Iwds,0, "JCS %p", /* 0x82 */
487 10323cd3 2004-04-19 devnull Iwds,0, "JCC %p", /* 0x83 */
488 10323cd3 2004-04-19 devnull Iwds,0, "JEQ %p", /* 0x84 */
489 10323cd3 2004-04-19 devnull Iwds,0, "JNE %p", /* 0x85 */
490 10323cd3 2004-04-19 devnull Iwds,0, "JLS %p", /* 0x86 */
491 10323cd3 2004-04-19 devnull Iwds,0, "JHI %p", /* 0x87 */
492 10323cd3 2004-04-19 devnull Iwds,0, "JMI %p", /* 0x88 */
493 10323cd3 2004-04-19 devnull Iwds,0, "JPL %p", /* 0x89 */
494 10323cd3 2004-04-19 devnull Iwds,0, "JPS %p", /* 0x8a */
495 10323cd3 2004-04-19 devnull Iwds,0, "JPC %p", /* 0x8b */
496 10323cd3 2004-04-19 devnull Iwds,0, "JLT %p", /* 0x8c */
497 10323cd3 2004-04-19 devnull Iwds,0, "JGE %p", /* 0x8d */
498 10323cd3 2004-04-19 devnull Iwds,0, "JLE %p", /* 0x8e */
499 10323cd3 2004-04-19 devnull Iwds,0, "JGT %p", /* 0x8f */
500 10323cd3 2004-04-19 devnull RMB,0, "SETOS %e", /* 0x90 */
501 10323cd3 2004-04-19 devnull RMB,0, "SETOC %e", /* 0x91 */
502 10323cd3 2004-04-19 devnull RMB,0, "SETCS %e", /* 0x92 */
503 10323cd3 2004-04-19 devnull RMB,0, "SETCC %e", /* 0x93 */
504 10323cd3 2004-04-19 devnull RMB,0, "SETEQ %e", /* 0x94 */
505 10323cd3 2004-04-19 devnull RMB,0, "SETNE %e", /* 0x95 */
506 10323cd3 2004-04-19 devnull RMB,0, "SETLS %e", /* 0x96 */
507 10323cd3 2004-04-19 devnull RMB,0, "SETHI %e", /* 0x97 */
508 10323cd3 2004-04-19 devnull RMB,0, "SETMI %e", /* 0x98 */
509 10323cd3 2004-04-19 devnull RMB,0, "SETPL %e", /* 0x99 */
510 10323cd3 2004-04-19 devnull RMB,0, "SETPS %e", /* 0x9a */
511 10323cd3 2004-04-19 devnull RMB,0, "SETPC %e", /* 0x9b */
512 10323cd3 2004-04-19 devnull RMB,0, "SETLT %e", /* 0x9c */
513 10323cd3 2004-04-19 devnull RMB,0, "SETGE %e", /* 0x9d */
514 10323cd3 2004-04-19 devnull RMB,0, "SETLE %e", /* 0x9e */
515 10323cd3 2004-04-19 devnull RMB,0, "SETGT %e", /* 0x9f */
516 10323cd3 2004-04-19 devnull 0,0, "PUSHL FS", /* 0xa0 */
517 10323cd3 2004-04-19 devnull 0,0, "POPL FS", /* 0xa1 */
518 10323cd3 2004-04-19 devnull 0,0, "CPUID", /* 0xa2 */
519 10323cd3 2004-04-19 devnull RM,0, "BT%S %r,%e", /* 0xa3 */
520 10323cd3 2004-04-19 devnull RM,Ib, "SHLD%S %r,%i,%e", /* 0xa4 */
521 10323cd3 2004-04-19 devnull RM,0, "SHLD%S %r,CL,%e", /* 0xa5 */
522 10323cd3 2004-04-19 devnull 0,0, "", /* 0xa6 */
523 10323cd3 2004-04-19 devnull 0,0, "", /* 0xa7 */
524 10323cd3 2004-04-19 devnull 0,0, "PUSHL GS", /* 0xa8 */
525 10323cd3 2004-04-19 devnull 0,0, "POPL GS", /* 0xa9 */
526 10323cd3 2004-04-19 devnull 0,0, "", /* 0xaa */
527 10323cd3 2004-04-19 devnull RM,0, "BTS%S %r,%e", /* 0xab */
528 10323cd3 2004-04-19 devnull RM,Ib, "SHRD%S %r,%i,%e", /* 0xac */
529 10323cd3 2004-04-19 devnull RM,0, "SHRD%S %r,CL,%e", /* 0xad */
530 10323cd3 2004-04-19 devnull 0,0, "", /* 0xae */
531 10323cd3 2004-04-19 devnull RM,0, "IMUL%S %e,%r", /* 0xaf */
532 10323cd3 2004-04-19 devnull 0,0, "", /* 0xb0 */
533 10323cd3 2004-04-19 devnull 0,0, "", /* 0xb1 */
534 10323cd3 2004-04-19 devnull RMM,0, "LSS %e,%r", /* 0xb2 */
535 10323cd3 2004-04-19 devnull RM,0, "BTR%S %r,%e", /* 0xb3 */
536 10323cd3 2004-04-19 devnull RMM,0, "LFS %e,%r", /* 0xb4 */
537 10323cd3 2004-04-19 devnull RMM,0, "LGS %e,%r", /* 0xb5 */
538 10323cd3 2004-04-19 devnull RMB,0, "MOVBZX %e,%R", /* 0xb6 */
539 10323cd3 2004-04-19 devnull RM,0, "MOVWZX %e,%R", /* 0xb7 */
540 10323cd3 2004-04-19 devnull 0,0, "", /* 0xb8 */
541 10323cd3 2004-04-19 devnull 0,0, "", /* 0xb9 */
542 10323cd3 2004-04-19 devnull RMOP,0, optab0FBA, /* 0xba */
543 10323cd3 2004-04-19 devnull RM,0, "BTC%S %e,%r", /* 0xbb */
544 10323cd3 2004-04-19 devnull RM,0, "BSF%S %e,%r", /* 0xbc */
545 10323cd3 2004-04-19 devnull RM,0, "BSR%S %e,%r", /* 0xbd */
546 10323cd3 2004-04-19 devnull RMB,0, "MOVBSX %e,%R", /* 0xbe */
547 10323cd3 2004-04-19 devnull RM,0, "MOVWSX %e,%R", /* 0xbf */
548 a84cbb2a 2004-04-19 devnull };
549 a84cbb2a 2004-04-19 devnull
550 a84cbb2a 2004-04-19 devnull static Optable optab80[8]=
551 a84cbb2a 2004-04-19 devnull {
552 10323cd3 2004-04-19 devnull Ib,0, "ADDB %i,%e", /* 0x00 */
553 10323cd3 2004-04-19 devnull Ib,0, "ORB %i,%e", /* 0x01 */
554 10323cd3 2004-04-19 devnull Ib,0, "ADCB %i,%e", /* 0x02 */
555 10323cd3 2004-04-19 devnull Ib,0, "SBBB %i,%e", /* 0x03 */
556 10323cd3 2004-04-19 devnull Ib,0, "ANDB %i,%e", /* 0x04 */
557 10323cd3 2004-04-19 devnull Ib,0, "SUBB %i,%e", /* 0x05 */
558 10323cd3 2004-04-19 devnull Ib,0, "XORB %i,%e", /* 0x06 */
559 10323cd3 2004-04-19 devnull Ib,0, "CMPB %e,%i", /* 0x07 */
560 a84cbb2a 2004-04-19 devnull };
561 a84cbb2a 2004-04-19 devnull
562 a84cbb2a 2004-04-19 devnull static Optable optab81[8]=
563 a84cbb2a 2004-04-19 devnull {
564 10323cd3 2004-04-19 devnull Iwd,0, "ADD%S %i,%e", /* 0x00 */
565 10323cd3 2004-04-19 devnull Iwd,0, "OR%S %i,%e", /* 0x01 */
566 10323cd3 2004-04-19 devnull Iwd,0, "ADC%S %i,%e", /* 0x02 */
567 10323cd3 2004-04-19 devnull Iwd,0, "SBB%S %i,%e", /* 0x03 */
568 10323cd3 2004-04-19 devnull Iwd,0, "AND%S %i,%e", /* 0x04 */
569 10323cd3 2004-04-19 devnull Iwd,0, "SUB%S %i,%e", /* 0x05 */
570 10323cd3 2004-04-19 devnull Iwd,0, "XOR%S %i,%e", /* 0x06 */
571 10323cd3 2004-04-19 devnull Iwd,0, "CMP%S %e,%i", /* 0x07 */
572 a84cbb2a 2004-04-19 devnull };
573 a84cbb2a 2004-04-19 devnull
574 a84cbb2a 2004-04-19 devnull static Optable optab83[8]=
575 a84cbb2a 2004-04-19 devnull {
576 10323cd3 2004-04-19 devnull Ibs,0, "ADD%S %i,%e", /* 0x00 */
577 10323cd3 2004-04-19 devnull Ibs,0, "OR%S %i,%e", /* 0x01 */
578 10323cd3 2004-04-19 devnull Ibs,0, "ADC%S %i,%e", /* 0x02 */
579 10323cd3 2004-04-19 devnull Ibs,0, "SBB%S %i,%e", /* 0x03 */
580 10323cd3 2004-04-19 devnull Ibs,0, "AND%S %i,%e", /* 0x04 */
581 10323cd3 2004-04-19 devnull Ibs,0, "SUB%S %i,%e", /* 0x05 */
582 10323cd3 2004-04-19 devnull Ibs,0, "XOR%S %i,%e", /* 0x06 */
583 10323cd3 2004-04-19 devnull Ibs,0, "CMP%S %e,%i", /* 0x07 */
584 a84cbb2a 2004-04-19 devnull };
585 a84cbb2a 2004-04-19 devnull
586 a84cbb2a 2004-04-19 devnull static Optable optabC0[8] =
587 a84cbb2a 2004-04-19 devnull {
588 10323cd3 2004-04-19 devnull Ib,0, "ROLB %i,%e", /* 0x00 */
589 10323cd3 2004-04-19 devnull Ib,0, "RORB %i,%e", /* 0x01 */
590 10323cd3 2004-04-19 devnull Ib,0, "RCLB %i,%e", /* 0x02 */
591 10323cd3 2004-04-19 devnull Ib,0, "RCRB %i,%e", /* 0x03 */
592 10323cd3 2004-04-19 devnull Ib,0, "SHLB %i,%e", /* 0x04 */
593 10323cd3 2004-04-19 devnull Ib,0, "SHRB %i,%e", /* 0x05 */
594 10323cd3 2004-04-19 devnull 0,0, "", /* 0x06 */
595 10323cd3 2004-04-19 devnull Ib,0, "SARB %i,%e", /* 0x07 */
596 a84cbb2a 2004-04-19 devnull };
597 a84cbb2a 2004-04-19 devnull
598 a84cbb2a 2004-04-19 devnull static Optable optabC1[8] =
599 a84cbb2a 2004-04-19 devnull {
600 10323cd3 2004-04-19 devnull Ib,0, "ROL%S %i,%e", /* 0x00 */
601 10323cd3 2004-04-19 devnull Ib,0, "ROR%S %i,%e", /* 0x01 */
602 10323cd3 2004-04-19 devnull Ib,0, "RCL%S %i,%e", /* 0x02 */
603 10323cd3 2004-04-19 devnull Ib,0, "RCR%S %i,%e", /* 0x03 */
604 10323cd3 2004-04-19 devnull Ib,0, "SHL%S %i,%e", /* 0x04 */
605 10323cd3 2004-04-19 devnull Ib,0, "SHR%S %i,%e", /* 0x05 */
606 10323cd3 2004-04-19 devnull 0,0, "", /* 0x06 */
607 10323cd3 2004-04-19 devnull Ib,0, "SAR%S %i,%e", /* 0x07 */
608 a84cbb2a 2004-04-19 devnull };
609 a84cbb2a 2004-04-19 devnull
610 a84cbb2a 2004-04-19 devnull static Optable optabD0[8] =
611 a84cbb2a 2004-04-19 devnull {
612 10323cd3 2004-04-19 devnull 0,0, "ROLB %e", /* 0x00 */
613 10323cd3 2004-04-19 devnull 0,0, "RORB %e", /* 0x01 */
614 10323cd3 2004-04-19 devnull 0,0, "RCLB %e", /* 0x02 */
615 10323cd3 2004-04-19 devnull 0,0, "RCRB %e", /* 0x03 */
616 10323cd3 2004-04-19 devnull 0,0, "SHLB %e", /* 0x04 */
617 10323cd3 2004-04-19 devnull 0,0, "SHRB %e", /* 0x05 */
618 10323cd3 2004-04-19 devnull 0,0, "", /* 0x06 */
619 10323cd3 2004-04-19 devnull 0,0, "SARB %e", /* 0x07 */
620 a84cbb2a 2004-04-19 devnull };
621 a84cbb2a 2004-04-19 devnull
622 a84cbb2a 2004-04-19 devnull static Optable optabD1[8] =
623 a84cbb2a 2004-04-19 devnull {
624 10323cd3 2004-04-19 devnull 0,0, "ROL%S %e", /* 0x00 */
625 10323cd3 2004-04-19 devnull 0,0, "ROR%S %e", /* 0x01 */
626 10323cd3 2004-04-19 devnull 0,0, "RCL%S %e", /* 0x02 */
627 10323cd3 2004-04-19 devnull 0,0, "RCR%S %e", /* 0x03 */
628 10323cd3 2004-04-19 devnull 0,0, "SHL%S %e", /* 0x04 */
629 10323cd3 2004-04-19 devnull 0,0, "SHR%S %e", /* 0x05 */
630 10323cd3 2004-04-19 devnull 0,0, "", /* 0x06 */
631 10323cd3 2004-04-19 devnull 0,0, "SAR%S %e", /* 0x07 */
632 a84cbb2a 2004-04-19 devnull };
633 a84cbb2a 2004-04-19 devnull
634 a84cbb2a 2004-04-19 devnull static Optable optabD2[8] =
635 a84cbb2a 2004-04-19 devnull {
636 10323cd3 2004-04-19 devnull 0,0, "ROLB CL,%e", /* 0x00 */
637 10323cd3 2004-04-19 devnull 0,0, "RORB CL,%e", /* 0x01 */
638 10323cd3 2004-04-19 devnull 0,0, "RCLB CL,%e", /* 0x02 */
639 10323cd3 2004-04-19 devnull 0,0, "RCRB CL,%e", /* 0x03 */
640 10323cd3 2004-04-19 devnull 0,0, "SHLB CL,%e", /* 0x04 */
641 10323cd3 2004-04-19 devnull 0,0, "SHRB CL,%e", /* 0x05 */
642 10323cd3 2004-04-19 devnull 0,0, "", /* 0x06 */
643 10323cd3 2004-04-19 devnull 0,0, "SARB CL,%e", /* 0x07 */
644 a84cbb2a 2004-04-19 devnull };
645 a84cbb2a 2004-04-19 devnull
646 a84cbb2a 2004-04-19 devnull static Optable optabD3[8] =
647 a84cbb2a 2004-04-19 devnull {
648 10323cd3 2004-04-19 devnull 0,0, "ROL%S CL,%e", /* 0x00 */
649 10323cd3 2004-04-19 devnull 0,0, "ROR%S CL,%e", /* 0x01 */
650 10323cd3 2004-04-19 devnull 0,0, "RCL%S CL,%e", /* 0x02 */
651 10323cd3 2004-04-19 devnull 0,0, "RCR%S CL,%e", /* 0x03 */
652 10323cd3 2004-04-19 devnull 0,0, "SHL%S CL,%e", /* 0x04 */
653 10323cd3 2004-04-19 devnull 0,0, "SHR%S CL,%e", /* 0x05 */
654 10323cd3 2004-04-19 devnull 0,0, "", /* 0x06 */
655 10323cd3 2004-04-19 devnull 0,0, "SAR%S CL,%e", /* 0x07 */
656 a84cbb2a 2004-04-19 devnull };
657 a84cbb2a 2004-04-19 devnull
658 a84cbb2a 2004-04-19 devnull static Optable optabD8[8+8] =
659 a84cbb2a 2004-04-19 devnull {
660 10323cd3 2004-04-19 devnull 0,0, "FADDF %e,F0", /* 0x00 */
661 10323cd3 2004-04-19 devnull 0,0, "FMULF %e,F0", /* 0x01 */
662 10323cd3 2004-04-19 devnull 0,0, "FCOMF %e,F0", /* 0x02 */
663 10323cd3 2004-04-19 devnull 0,0, "FCOMFP %e,F0", /* 0x03 */
664 10323cd3 2004-04-19 devnull 0,0, "FSUBF %e,F0", /* 0x04 */
665 10323cd3 2004-04-19 devnull 0,0, "FSUBRF %e,F0", /* 0x05 */
666 10323cd3 2004-04-19 devnull 0,0, "FDIVF %e,F0", /* 0x06 */
667 10323cd3 2004-04-19 devnull 0,0, "FDIVRF %e,F0", /* 0x07 */
668 10323cd3 2004-04-19 devnull 0,0, "FADDD %f,F0", /* 0x08 */
669 10323cd3 2004-04-19 devnull 0,0, "FMULD %f,F0", /* 0x09 */
670 10323cd3 2004-04-19 devnull 0,0, "FCOMD %f,F0", /* 0x0a */
671 10323cd3 2004-04-19 devnull 0,0, "FCOMPD %f,F0", /* 0x0b */
672 10323cd3 2004-04-19 devnull 0,0, "FSUBD %f,F0", /* 0x0c */
673 10323cd3 2004-04-19 devnull 0,0, "FSUBRD %f,F0", /* 0x0d */
674 10323cd3 2004-04-19 devnull 0,0, "FDIVD %f,F0", /* 0x0e */
675 10323cd3 2004-04-19 devnull 0,0, "FDIVRD %f,F0", /* 0x0f */
676 a84cbb2a 2004-04-19 devnull };
677 a84cbb2a 2004-04-19 devnull /*
678 a84cbb2a 2004-04-19 devnull * optabD9 and optabDB use the following encoding:
679 a84cbb2a 2004-04-19 devnull * if (0 <= modrm <= 2) instruction = optabDx[modrm&0x07];
680 a84cbb2a 2004-04-19 devnull * else instruction = optabDx[(modrm&0x3f)+8];
681 a84cbb2a 2004-04-19 devnull *
682 a84cbb2a 2004-04-19 devnull * the instructions for MOD == 3, follow the 8 instructions
683 a84cbb2a 2004-04-19 devnull * for the other MOD values stored at the front of the table.
684 a84cbb2a 2004-04-19 devnull */
685 a84cbb2a 2004-04-19 devnull static Optable optabD9[64+8] =
686 a84cbb2a 2004-04-19 devnull {
687 10323cd3 2004-04-19 devnull 0,0, "FMOVF %e,F0", /* 0x00 */
688 10323cd3 2004-04-19 devnull 0,0, "", /* 0x01 */
689 10323cd3 2004-04-19 devnull 0,0, "FMOVF F0,%e", /* 0x02 */
690 10323cd3 2004-04-19 devnull 0,0, "FMOVFP F0,%e", /* 0x03 */
691 10323cd3 2004-04-19 devnull 0,0, "FLDENV%S %e", /* 0x04 */
692 10323cd3 2004-04-19 devnull 0,0, "FLDCW %e", /* 0x05 */
693 10323cd3 2004-04-19 devnull 0,0, "FSTENV%S %e", /* 0x06 */
694 10323cd3 2004-04-19 devnull 0,0, "FSTCW %e", /* 0x07 */
695 10323cd3 2004-04-19 devnull 0,0, "FMOVD F0,F0", /* 0x08 */ /* Mod R/M = 11xx xxxx*/
696 10323cd3 2004-04-19 devnull 0,0, "FMOVD F1,F0", /* 0x09 */
697 10323cd3 2004-04-19 devnull 0,0, "FMOVD F2,F0", /* 0x0a */
698 10323cd3 2004-04-19 devnull 0,0, "FMOVD F3,F0", /* 0x0b */
699 10323cd3 2004-04-19 devnull 0,0, "FMOVD F4,F0", /* 0x0c */
700 10323cd3 2004-04-19 devnull 0,0, "FMOVD F5,F0", /* 0x0d */
701 10323cd3 2004-04-19 devnull 0,0, "FMOVD F6,F0", /* 0x0e */
702 10323cd3 2004-04-19 devnull 0,0, "FMOVD F7,F0", /* 0x0f */
703 10323cd3 2004-04-19 devnull 0,0, "FXCHD F0,F0", /* 0x10 */
704 10323cd3 2004-04-19 devnull 0,0, "FXCHD F1,F0", /* 0x11 */
705 10323cd3 2004-04-19 devnull 0,0, "FXCHD F2,F0", /* 0x12 */
706 10323cd3 2004-04-19 devnull 0,0, "FXCHD F3,F0", /* 0x13 */
707 10323cd3 2004-04-19 devnull 0,0, "FXCHD F4,F0", /* 0x14 */
708 10323cd3 2004-04-19 devnull 0,0, "FXCHD F5,F0", /* 0x15 */
709 10323cd3 2004-04-19 devnull 0,0, "FXCHD F6,F0", /* 0x16 */
710 10323cd3 2004-04-19 devnull 0,0, "FXCHD F7,F0", /* 0x17 */
711 10323cd3 2004-04-19 devnull 0,0, "FNOP", /* 0x18 */
712 10323cd3 2004-04-19 devnull 0,0, "", /* 0x19 */
713 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1a */
714 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1b */
715 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1c */
716 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1d */
717 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1e */
718 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1f */
719 10323cd3 2004-04-19 devnull 0,0, "", /* 0x20 */
720 10323cd3 2004-04-19 devnull 0,0, "", /* 0x21 */
721 10323cd3 2004-04-19 devnull 0,0, "", /* 0x22 */
722 10323cd3 2004-04-19 devnull 0,0, "", /* 0x23 */
723 10323cd3 2004-04-19 devnull 0,0, "", /* 0x24 */
724 10323cd3 2004-04-19 devnull 0,0, "", /* 0x25 */
725 10323cd3 2004-04-19 devnull 0,0, "", /* 0x26 */
726 10323cd3 2004-04-19 devnull 0,0, "", /* 0x27 */
727 10323cd3 2004-04-19 devnull 0,0, "FCHS", /* 0x28 */
728 10323cd3 2004-04-19 devnull 0,0, "FABS", /* 0x29 */
729 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2a */
730 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2b */
731 10323cd3 2004-04-19 devnull 0,0, "FTST", /* 0x2c */
732 10323cd3 2004-04-19 devnull 0,0, "FXAM", /* 0x2d */
733 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2e */
734 10323cd3 2004-04-19 devnull 0,0, "", /* 0x2f */
735 10323cd3 2004-04-19 devnull 0,0, "FLD1", /* 0x30 */
736 10323cd3 2004-04-19 devnull 0,0, "FLDL2T", /* 0x31 */
737 10323cd3 2004-04-19 devnull 0,0, "FLDL2E", /* 0x32 */
738 10323cd3 2004-04-19 devnull 0,0, "FLDPI", /* 0x33 */
739 10323cd3 2004-04-19 devnull 0,0, "FLDLG2", /* 0x34 */
740 10323cd3 2004-04-19 devnull 0,0, "FLDLN2", /* 0x35 */
741 10323cd3 2004-04-19 devnull 0,0, "FLDZ", /* 0x36 */
742 10323cd3 2004-04-19 devnull 0,0, "", /* 0x37 */
743 10323cd3 2004-04-19 devnull 0,0, "F2XM1", /* 0x38 */
744 10323cd3 2004-04-19 devnull 0,0, "FYL2X", /* 0x39 */
745 10323cd3 2004-04-19 devnull 0,0, "FPTAN", /* 0x3a */
746 10323cd3 2004-04-19 devnull 0,0, "FPATAN", /* 0x3b */
747 10323cd3 2004-04-19 devnull 0,0, "FXTRACT", /* 0x3c */
748 10323cd3 2004-04-19 devnull 0,0, "FPREM1", /* 0x3d */
749 10323cd3 2004-04-19 devnull 0,0, "FDECSTP", /* 0x3e */
750 10323cd3 2004-04-19 devnull 0,0, "FNCSTP", /* 0x3f */
751 10323cd3 2004-04-19 devnull 0,0, "FPREM", /* 0x40 */
752 10323cd3 2004-04-19 devnull 0,0, "FYL2XP1", /* 0x41 */
753 10323cd3 2004-04-19 devnull 0,0, "FSQRT", /* 0x42 */
754 10323cd3 2004-04-19 devnull 0,0, "FSINCOS", /* 0x43 */
755 10323cd3 2004-04-19 devnull 0,0, "FRNDINT", /* 0x44 */
756 10323cd3 2004-04-19 devnull 0,0, "FSCALE", /* 0x45 */
757 10323cd3 2004-04-19 devnull 0,0, "FSIN", /* 0x46 */
758 10323cd3 2004-04-19 devnull 0,0, "FCOS", /* 0x47 */
759 a84cbb2a 2004-04-19 devnull };
760 a84cbb2a 2004-04-19 devnull
761 a84cbb2a 2004-04-19 devnull static Optable optabDA[8+8] =
762 a84cbb2a 2004-04-19 devnull {
763 10323cd3 2004-04-19 devnull 0,0, "FADDL %e,F0", /* 0x00 */
764 10323cd3 2004-04-19 devnull 0,0, "FMULL %e,F0", /* 0x01 */
765 10323cd3 2004-04-19 devnull 0,0, "FCOML %e,F0", /* 0x02 */
766 10323cd3 2004-04-19 devnull 0,0, "FCOMLP %e,F0", /* 0x03 */
767 10323cd3 2004-04-19 devnull 0,0, "FSUBL %e,F0", /* 0x04 */
768 10323cd3 2004-04-19 devnull 0,0, "FSUBRL %e,F0", /* 0x05 */
769 10323cd3 2004-04-19 devnull 0,0, "FDIVL %e,F0", /* 0x06 */
770 10323cd3 2004-04-19 devnull 0,0, "FDIVRL %e,F0", /* 0x07 */
771 10323cd3 2004-04-19 devnull 0,0, "", /* 0x08 */
772 10323cd3 2004-04-19 devnull 0,0, "", /* 0x09 */
773 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0a */
774 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0b */
775 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0c */
776 10323cd3 2004-04-19 devnull R1,0, "FUCOMPP", /* 0x0d */
777 a84cbb2a 2004-04-19 devnull };
778 a84cbb2a 2004-04-19 devnull
779 a84cbb2a 2004-04-19 devnull static Optable optabDB[8+64] =
780 a84cbb2a 2004-04-19 devnull {
781 10323cd3 2004-04-19 devnull 0,0, "FMOVL %e,F0", /* 0x00 */
782 10323cd3 2004-04-19 devnull 0,0, "", /* 0x01 */
783 10323cd3 2004-04-19 devnull 0,0, "FMOVL F0,%e", /* 0x02 */
784 10323cd3 2004-04-19 devnull 0,0, "FMOVLP F0,%e", /* 0x03 */
785 10323cd3 2004-04-19 devnull 0,0, "", /* 0x04 */
786 10323cd3 2004-04-19 devnull 0,0, "FMOVX %e,F0", /* 0x05 */
787 10323cd3 2004-04-19 devnull 0,0, "", /* 0x06 */
788 10323cd3 2004-04-19 devnull 0,0, "FMOVXP F0,%e", /* 0x07 */
789 10323cd3 2004-04-19 devnull 0,0, "", /* 0x08 */
790 10323cd3 2004-04-19 devnull 0,0, "", /* 0x09 */
791 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0a */
792 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0b */
793 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0c */
794 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0d */
795 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0e */
796 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0f */
797 10323cd3 2004-04-19 devnull 0,0, "", /* 0x10 */
798 10323cd3 2004-04-19 devnull 0,0, "", /* 0x11 */
799 10323cd3 2004-04-19 devnull 0,0, "", /* 0x12 */
800 10323cd3 2004-04-19 devnull 0,0, "", /* 0x13 */
801 10323cd3 2004-04-19 devnull 0,0, "", /* 0x14 */
802 10323cd3 2004-04-19 devnull 0,0, "", /* 0x15 */
803 10323cd3 2004-04-19 devnull 0,0, "", /* 0x16 */
804 10323cd3 2004-04-19 devnull 0,0, "", /* 0x17 */
805 10323cd3 2004-04-19 devnull 0,0, "", /* 0x18 */
806 10323cd3 2004-04-19 devnull 0,0, "", /* 0x19 */
807 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1a */
808 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1b */
809 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1c */
810 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1d */
811 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1e */
812 10323cd3 2004-04-19 devnull 0,0, "", /* 0x1f */
813 10323cd3 2004-04-19 devnull 0,0, "", /* 0x20 */
814 10323cd3 2004-04-19 devnull 0,0, "", /* 0x21 */
815 10323cd3 2004-04-19 devnull 0,0, "", /* 0x22 */
816 10323cd3 2004-04-19 devnull 0,0, "", /* 0x23 */
817 10323cd3 2004-04-19 devnull 0,0, "", /* 0x24 */
818 10323cd3 2004-04-19 devnull 0,0, "", /* 0x25 */
819 10323cd3 2004-04-19 devnull 0,0, "", /* 0x26 */
820 10323cd3 2004-04-19 devnull 0,0, "", /* 0x27 */
821 10323cd3 2004-04-19 devnull 0,0, "", /* 0x28 */
822 10323cd3 2004-04-19 devnull 0,0, "", /* 0x29 */
823 10323cd3 2004-04-19 devnull 0,0, "FCLEX", /* 0x2a */
824 10323cd3 2004-04-19 devnull 0,0, "FINIT", /* 0x2b */
825 a84cbb2a 2004-04-19 devnull };
826 a84cbb2a 2004-04-19 devnull
827 a84cbb2a 2004-04-19 devnull static Optable optabDC[8+8] =
828 a84cbb2a 2004-04-19 devnull {
829 10323cd3 2004-04-19 devnull 0,0, "FADDD %e,F0", /* 0x00 */
830 10323cd3 2004-04-19 devnull 0,0, "FMULD %e,F0", /* 0x01 */
831 10323cd3 2004-04-19 devnull 0,0, "FCOMD %e,F0", /* 0x02 */
832 10323cd3 2004-04-19 devnull 0,0, "FCOMDP %e,F0", /* 0x03 */
833 10323cd3 2004-04-19 devnull 0,0, "FSUBD %e,F0", /* 0x04 */
834 10323cd3 2004-04-19 devnull 0,0, "FSUBRD %e,F0", /* 0x05 */
835 10323cd3 2004-04-19 devnull 0,0, "FDIVD %e,F0", /* 0x06 */
836 10323cd3 2004-04-19 devnull 0,0, "FDIVRD %e,F0", /* 0x07 */
837 10323cd3 2004-04-19 devnull 0,0, "FADDD F0,%f", /* 0x08 */
838 10323cd3 2004-04-19 devnull 0,0, "FMULD F0,%f", /* 0x09 */
839 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0a */
840 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0b */
841 10323cd3 2004-04-19 devnull 0,0, "FSUBRD F0,%f", /* 0x0c */
842 10323cd3 2004-04-19 devnull 0,0, "FSUBD F0,%f", /* 0x0d */
843 10323cd3 2004-04-19 devnull 0,0, "FDIVRD F0,%f", /* 0x0e */
844 10323cd3 2004-04-19 devnull 0,0, "FDIVD F0,%f", /* 0x0f */
845 a84cbb2a 2004-04-19 devnull };
846 a84cbb2a 2004-04-19 devnull
847 a84cbb2a 2004-04-19 devnull static Optable optabDD[8+8] =
848 a84cbb2a 2004-04-19 devnull {
849 10323cd3 2004-04-19 devnull 0,0, "FMOVD %e,F0", /* 0x00 */
850 10323cd3 2004-04-19 devnull 0,0, "", /* 0x01 */
851 10323cd3 2004-04-19 devnull 0,0, "FMOVD F0,%e", /* 0x02 */
852 10323cd3 2004-04-19 devnull 0,0, "FMOVDP F0,%e", /* 0x03 */
853 10323cd3 2004-04-19 devnull 0,0, "FRSTOR%S %e", /* 0x04 */
854 10323cd3 2004-04-19 devnull 0,0, "", /* 0x05 */
855 10323cd3 2004-04-19 devnull 0,0, "FSAVE%S %e", /* 0x06 */
856 10323cd3 2004-04-19 devnull 0,0, "FSTSW %e", /* 0x07 */
857 10323cd3 2004-04-19 devnull 0,0, "FFREED %f", /* 0x08 */
858 10323cd3 2004-04-19 devnull 0,0, "", /* 0x09 */
859 10323cd3 2004-04-19 devnull 0,0, "FMOVD %f,F0", /* 0x0a */
860 10323cd3 2004-04-19 devnull 0,0, "FMOVDP %f,F0", /* 0x0b */
861 10323cd3 2004-04-19 devnull 0,0, "FUCOMD %f,F0", /* 0x0c */
862 10323cd3 2004-04-19 devnull 0,0, "FUCOMDP %f,F0", /* 0x0d */
863 a84cbb2a 2004-04-19 devnull };
864 a84cbb2a 2004-04-19 devnull
865 a84cbb2a 2004-04-19 devnull static Optable optabDE[8+8] =
866 a84cbb2a 2004-04-19 devnull {
867 10323cd3 2004-04-19 devnull 0,0, "FADDW %e,F0", /* 0x00 */
868 10323cd3 2004-04-19 devnull 0,0, "FMULW %e,F0", /* 0x01 */
869 10323cd3 2004-04-19 devnull 0,0, "FCOMW %e,F0", /* 0x02 */
870 10323cd3 2004-04-19 devnull 0,0, "FCOMWP %e,F0", /* 0x03 */
871 10323cd3 2004-04-19 devnull 0,0, "FSUBW %e,F0", /* 0x04 */
872 10323cd3 2004-04-19 devnull 0,0, "FSUBRW %e,F0", /* 0x05 */
873 10323cd3 2004-04-19 devnull 0,0, "FDIVW %e,F0", /* 0x06 */
874 10323cd3 2004-04-19 devnull 0,0, "FDIVRW %e,F0", /* 0x07 */
875 10323cd3 2004-04-19 devnull 0,0, "FADDDP F0,%f", /* 0x08 */
876 10323cd3 2004-04-19 devnull 0,0, "FMULDP F0,%f", /* 0x09 */
877 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0a */
878 10323cd3 2004-04-19 devnull R1,0, "FCOMPDP", /* 0x0b */
879 10323cd3 2004-04-19 devnull 0,0, "FSUBRDP F0,%f", /* 0x0c */
880 10323cd3 2004-04-19 devnull 0,0, "FSUBDP F0,%f", /* 0x0d */
881 10323cd3 2004-04-19 devnull 0,0, "FDIVRDP F0,%f", /* 0x0e */
882 10323cd3 2004-04-19 devnull 0,0, "FDIVDP F0,%f", /* 0x0f */
883 a84cbb2a 2004-04-19 devnull };
884 a84cbb2a 2004-04-19 devnull
885 a84cbb2a 2004-04-19 devnull static Optable optabDF[8+8] =
886 a84cbb2a 2004-04-19 devnull {
887 10323cd3 2004-04-19 devnull 0,0, "FMOVW %e,F0", /* 0x00 */
888 10323cd3 2004-04-19 devnull 0,0, "", /* 0x01 */
889 10323cd3 2004-04-19 devnull 0,0, "FMOVW F0,%e", /* 0x02 */
890 10323cd3 2004-04-19 devnull 0,0, "FMOVWP F0,%e", /* 0x03 */
891 10323cd3 2004-04-19 devnull 0,0, "FBLD %e", /* 0x04 */
892 10323cd3 2004-04-19 devnull 0,0, "FMOVL %e,F0", /* 0x05 */
893 10323cd3 2004-04-19 devnull 0,0, "FBSTP %e", /* 0x06 */
894 10323cd3 2004-04-19 devnull 0,0, "FMOVLP F0,%e", /* 0x07 */
895 10323cd3 2004-04-19 devnull 0,0, "", /* 0x08 */
896 10323cd3 2004-04-19 devnull 0,0, "", /* 0x09 */
897 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0a */
898 10323cd3 2004-04-19 devnull 0,0, "", /* 0x0b */
899 10323cd3 2004-04-19 devnull R0,0, "FSTSW %OAX", /* 0x0c */
900 a84cbb2a 2004-04-19 devnull };
901 a84cbb2a 2004-04-19 devnull
902 a84cbb2a 2004-04-19 devnull static Optable optabF6[8] =
903 a84cbb2a 2004-04-19 devnull {
904 10323cd3 2004-04-19 devnull Ib,0, "TESTB %i,%e", /* 0x00 */
905 10323cd3 2004-04-19 devnull 0,0, "", /* 0x01 */
906 10323cd3 2004-04-19 devnull 0,0, "NOTB %e", /* 0x02 */
907 10323cd3 2004-04-19 devnull 0,0, "NEGB %e", /* 0x03 */
908 10323cd3 2004-04-19 devnull 0,0, "MULB AL,%e", /* 0x04 */
909 10323cd3 2004-04-19 devnull 0,0, "IMULB AL,%e", /* 0x05 */
910 10323cd3 2004-04-19 devnull 0,0, "DIVB AL,%e", /* 0x06 */
911 10323cd3 2004-04-19 devnull 0,0, "IDIVB AL,%e", /* 0x07 */
912 a84cbb2a 2004-04-19 devnull };
913 a84cbb2a 2004-04-19 devnull
914 a84cbb2a 2004-04-19 devnull static Optable optabF7[8] =
915 a84cbb2a 2004-04-19 devnull {
916 10323cd3 2004-04-19 devnull Iwd,0, "TEST%S %i,%e", /* 0x00 */
917 10323cd3 2004-04-19 devnull 0,0, "", /* 0x01 */
918 10323cd3 2004-04-19 devnull 0,0, "NOT%S %e", /* 0x02 */
919 10323cd3 2004-04-19 devnull 0,0, "NEG%S %e", /* 0x03 */
920 10323cd3 2004-04-19 devnull 0,0, "MUL%S %OAX,%e", /* 0x04 */
921 10323cd3 2004-04-19 devnull 0,0, "IMUL%S %OAX,%e", /* 0x05 */
922 10323cd3 2004-04-19 devnull 0,0, "DIV%S %OAX,%e", /* 0x06 */
923 10323cd3 2004-04-19 devnull 0,0, "IDIV%S %OAX,%e", /* 0x07 */
924 a84cbb2a 2004-04-19 devnull };
925 a84cbb2a 2004-04-19 devnull
926 a84cbb2a 2004-04-19 devnull static Optable optabFE[8] =
927 a84cbb2a 2004-04-19 devnull {
928 10323cd3 2004-04-19 devnull 0,0, "INCB %e", /* 0x00 */
929 10323cd3 2004-04-19 devnull 0,0, "DECB %e", /* 0x01 */
930 a84cbb2a 2004-04-19 devnull };
931 a84cbb2a 2004-04-19 devnull
932 a84cbb2a 2004-04-19 devnull static Optable optabFF[8] =
933 a84cbb2a 2004-04-19 devnull {
934 10323cd3 2004-04-19 devnull 0,0, "INC%S %e", /* 0x00 */
935 10323cd3 2004-04-19 devnull 0,0, "DEC%S %e", /* 0x01 */
936 10323cd3 2004-04-19 devnull JUMP,0, "CALL*%S %e", /* 0x02 */
937 10323cd3 2004-04-19 devnull JUMP,0, "CALLF*%S %e", /* 0x03 */
938 10323cd3 2004-04-19 devnull JUMP,0, "JMP*%S %e", /* 0x04 */
939 10323cd3 2004-04-19 devnull JUMP,0, "JMPF*%S %e", /* 0x05 */
940 10323cd3 2004-04-19 devnull 0,0, "PUSHL %e", /* 0x06 */
941 a84cbb2a 2004-04-19 devnull };
942 a84cbb2a 2004-04-19 devnull
943 a84cbb2a 2004-04-19 devnull static Optable optable[256] =
944 a84cbb2a 2004-04-19 devnull {
945 10323cd3 2004-04-19 devnull RMB,0, "ADDB %r,%e", /* 0x00 */
946 10323cd3 2004-04-19 devnull RM,0, "ADD%S %r,%e", /* 0x01 */
947 10323cd3 2004-04-19 devnull RMB,0, "ADDB %e,%r", /* 0x02 */
948 10323cd3 2004-04-19 devnull RM,0, "ADD%S %e,%r", /* 0x03 */
949 10323cd3 2004-04-19 devnull Ib,0, "ADDB %i,AL", /* 0x04 */
950 10323cd3 2004-04-19 devnull Iwd,0, "ADD%S %i,%OAX", /* 0x05 */
951 10323cd3 2004-04-19 devnull 0,0, "PUSHL ES", /* 0x06 */
952 10323cd3 2004-04-19 devnull 0,0, "POPL ES", /* 0x07 */
953 10323cd3 2004-04-19 devnull RMB,0, "ORB %r,%e", /* 0x08 */
954 10323cd3 2004-04-19 devnull RM,0, "OR%S %r,%e", /* 0x09 */
955 10323cd3 2004-04-19 devnull RMB,0, "ORB %e,%r", /* 0x0a */
956 10323cd3 2004-04-19 devnull RM,0, "OR%S %e,%r", /* 0x0b */
957 10323cd3 2004-04-19 devnull Ib,0, "ORB %i,AL", /* 0x0c */
958 10323cd3 2004-04-19 devnull Iwd,0, "OR%S %i,%OAX", /* 0x0d */
959 10323cd3 2004-04-19 devnull 0,0, "PUSHL CS", /* 0x0e */
960 10323cd3 2004-04-19 devnull AUX,0, optab0F, /* 0x0f */
961 10323cd3 2004-04-19 devnull RMB,0, "ADCB %r,%e", /* 0x10 */
962 10323cd3 2004-04-19 devnull RM,0, "ADC%S %r,%e", /* 0x11 */
963 10323cd3 2004-04-19 devnull RMB,0, "ADCB %e,%r", /* 0x12 */
964 10323cd3 2004-04-19 devnull RM,0, "ADC%S %e,%r", /* 0x13 */
965 10323cd3 2004-04-19 devnull Ib,0, "ADCB %i,AL", /* 0x14 */
966 10323cd3 2004-04-19 devnull Iwd,0, "ADC%S %i,%OAX", /* 0x15 */
967 10323cd3 2004-04-19 devnull 0,0, "PUSHL SS", /* 0x16 */
968 10323cd3 2004-04-19 devnull 0,0, "POPL SS", /* 0x17 */
969 10323cd3 2004-04-19 devnull RMB,0, "SBBB %r,%e", /* 0x18 */
970 10323cd3 2004-04-19 devnull RM,0, "SBB%S %r,%e", /* 0x19 */
971 10323cd3 2004-04-19 devnull RMB,0, "SBBB %e,%r", /* 0x1a */
972 10323cd3 2004-04-19 devnull RM,0, "SBB%S %e,%r", /* 0x1b */
973 10323cd3 2004-04-19 devnull Ib,0, "SBBB %i,AL", /* 0x1c */
974 10323cd3 2004-04-19 devnull Iwd,0, "SBB%S %i,%OAX", /* 0x1d */
975 10323cd3 2004-04-19 devnull 0,0, "PUSHL DS", /* 0x1e */
976 10323cd3 2004-04-19 devnull 0,0, "POPL DS", /* 0x1f */
977 10323cd3 2004-04-19 devnull RMB,0, "ANDB %r,%e", /* 0x20 */
978 10323cd3 2004-04-19 devnull RM,0, "AND%S %r,%e", /* 0x21 */
979 10323cd3 2004-04-19 devnull RMB,0, "ANDB %e,%r", /* 0x22 */
980 10323cd3 2004-04-19 devnull RM,0, "AND%S %e,%r", /* 0x23 */
981 10323cd3 2004-04-19 devnull Ib,0, "ANDB %i,AL", /* 0x24 */
982 10323cd3 2004-04-19 devnull Iwd,0, "AND%S %i,%OAX", /* 0x25 */
983 10323cd3 2004-04-19 devnull SEG,0, "ES:", /* 0x26 */
984 10323cd3 2004-04-19 devnull 0,0, "DAA", /* 0x27 */
985 10323cd3 2004-04-19 devnull RMB,0, "SUBB %r,%e", /* 0x28 */
986 10323cd3 2004-04-19 devnull RM,0, "SUB%S %r,%e", /* 0x29 */
987 10323cd3 2004-04-19 devnull RMB,0, "SUBB %e,%r", /* 0x2a */
988 10323cd3 2004-04-19 devnull RM,0, "SUB%S %e,%r", /* 0x2b */
989 10323cd3 2004-04-19 devnull Ib,0, "SUBB %i,AL", /* 0x2c */
990 10323cd3 2004-04-19 devnull Iwd,0, "SUB%S %i,%OAX", /* 0x2d */
991 10323cd3 2004-04-19 devnull SEG,0, "CS:", /* 0x2e */
992 10323cd3 2004-04-19 devnull 0,0, "DAS", /* 0x2f */
993 10323cd3 2004-04-19 devnull RMB,0, "XORB %r,%e", /* 0x30 */
994 10323cd3 2004-04-19 devnull RM,0, "XOR%S %r,%e", /* 0x31 */
995 10323cd3 2004-04-19 devnull RMB,0, "XORB %e,%r", /* 0x32 */
996 10323cd3 2004-04-19 devnull RM,0, "XOR%S %e,%r", /* 0x33 */
997 10323cd3 2004-04-19 devnull Ib,0, "XORB %i,AL", /* 0x34 */
998 10323cd3 2004-04-19 devnull Iwd,0, "XOR%S %i,%OAX", /* 0x35 */
999 10323cd3 2004-04-19 devnull SEG,0, "SS:", /* 0x36 */
1000 10323cd3 2004-04-19 devnull 0,0, "AAA", /* 0x37 */
1001 10323cd3 2004-04-19 devnull RMB,0, "CMPB %r,%e", /* 0x38 */
1002 10323cd3 2004-04-19 devnull RM,0, "CMP%S %r,%e", /* 0x39 */
1003 10323cd3 2004-04-19 devnull RMB,0, "CMPB %e,%r", /* 0x3a */
1004 10323cd3 2004-04-19 devnull RM,0, "CMP%S %e,%r", /* 0x3b */
1005 10323cd3 2004-04-19 devnull Ib,0, "CMPB %i,AL", /* 0x3c */
1006 10323cd3 2004-04-19 devnull Iwd,0, "CMP%S %i,%OAX", /* 0x3d */
1007 10323cd3 2004-04-19 devnull SEG,0, "DS:", /* 0x3e */
1008 10323cd3 2004-04-19 devnull 0,0, "AAS", /* 0x3f */
1009 10323cd3 2004-04-19 devnull 0,0, "INC%S %OAX", /* 0x40 */
1010 10323cd3 2004-04-19 devnull 0,0, "INC%S %OCX", /* 0x41 */
1011 10323cd3 2004-04-19 devnull 0,0, "INC%S %ODX", /* 0x42 */
1012 10323cd3 2004-04-19 devnull 0,0, "INC%S %OBX", /* 0x43 */
1013 10323cd3 2004-04-19 devnull 0,0, "INC%S %OSP", /* 0x44 */
1014 10323cd3 2004-04-19 devnull 0,0, "INC%S %OBP", /* 0x45 */
1015 10323cd3 2004-04-19 devnull 0,0, "INC%S %OSI", /* 0x46 */
1016 10323cd3 2004-04-19 devnull 0,0, "INC%S %ODI", /* 0x47 */
1017 10323cd3 2004-04-19 devnull 0,0, "DEC%S %OAX", /* 0x48 */
1018 10323cd3 2004-04-19 devnull 0,0, "DEC%S %OCX", /* 0x49 */
1019 10323cd3 2004-04-19 devnull 0,0, "DEC%S %ODX", /* 0x4a */
1020 10323cd3 2004-04-19 devnull 0,0, "DEC%S %OBX", /* 0x4b */
1021 10323cd3 2004-04-19 devnull 0,0, "DEC%S %OSP", /* 0x4c */
1022 10323cd3 2004-04-19 devnull 0,0, "DEC%S %OBP", /* 0x4d */
1023 10323cd3 2004-04-19 devnull 0,0, "DEC%S %OSI", /* 0x4e */
1024 10323cd3 2004-04-19 devnull 0,0, "DEC%S %ODI", /* 0x4f */
1025 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %OAX", /* 0x50 */
1026 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %OCX", /* 0x51 */
1027 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %ODX", /* 0x52 */
1028 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %OBX", /* 0x53 */
1029 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %OSP", /* 0x54 */
1030 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %OBP", /* 0x55 */
1031 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %OSI", /* 0x56 */
1032 10323cd3 2004-04-19 devnull 0,0, "PUSH%S %ODI", /* 0x57 */
1033 10323cd3 2004-04-19 devnull 0,0, "POP%S %OAX", /* 0x58 */
1034 10323cd3 2004-04-19 devnull 0,0, "POP%S %OCX", /* 0x59 */
1035 10323cd3 2004-04-19 devnull 0,0, "POP%S %ODX", /* 0x5a */
1036 10323cd3 2004-04-19 devnull 0,0, "POP%S %OBX", /* 0x5b */
1037 10323cd3 2004-04-19 devnull 0,0, "POP%S %OSP", /* 0x5c */
1038 10323cd3 2004-04-19 devnull 0,0, "POP%S %OBP", /* 0x5d */
1039 10323cd3 2004-04-19 devnull 0,0, "POP%S %OSI", /* 0x5e */
1040 10323cd3 2004-04-19 devnull 0,0, "POP%S %ODI", /* 0x5f */
1041 10323cd3 2004-04-19 devnull 0,0, "PUSHA%S", /* 0x60 */
1042 10323cd3 2004-04-19 devnull 0,0, "POPA%S", /* 0x61 */
1043 10323cd3 2004-04-19 devnull RMM,0, "BOUND %e,%r", /* 0x62 */
1044 10323cd3 2004-04-19 devnull RM,0, "ARPL %r,%e", /* 0x63 */
1045 10323cd3 2004-04-19 devnull SEG,0, "FS:", /* 0x64 */
1046 10323cd3 2004-04-19 devnull SEG,0, "GS:", /* 0x65 */
1047 10323cd3 2004-04-19 devnull OPOVER,0, "", /* 0x66 */
1048 10323cd3 2004-04-19 devnull ADDOVER,0, "", /* 0x67 */
1049 10323cd3 2004-04-19 devnull Iwd,0, "PUSH%S %i", /* 0x68 */
1050 10323cd3 2004-04-19 devnull RM,Iwd, "IMUL%S %e,%i,%r", /* 0x69 */
1051 10323cd3 2004-04-19 devnull Ib,0, "PUSH%S %i", /* 0x6a */
1052 10323cd3 2004-04-19 devnull RM,Ibs, "IMUL%S %e,%i,%r", /* 0x6b */
1053 10323cd3 2004-04-19 devnull 0,0, "INSB DX,(%ODI)", /* 0x6c */
1054 10323cd3 2004-04-19 devnull 0,0, "INS%S DX,(%ODI)", /* 0x6d */
1055 10323cd3 2004-04-19 devnull 0,0, "OUTSB (%ASI),DX", /* 0x6e */
1056 10323cd3 2004-04-19 devnull 0,0, "OUTS%S (%ASI),DX", /* 0x6f */
1057 10323cd3 2004-04-19 devnull Jbs,0, "JOS %p", /* 0x70 */
1058 10323cd3 2004-04-19 devnull Jbs,0, "JOC %p", /* 0x71 */
1059 10323cd3 2004-04-19 devnull Jbs,0, "JCS %p", /* 0x72 */
1060 10323cd3 2004-04-19 devnull Jbs,0, "JCC %p", /* 0x73 */
1061 10323cd3 2004-04-19 devnull Jbs,0, "JEQ %p", /* 0x74 */
1062 10323cd3 2004-04-19 devnull Jbs,0, "JNE %p", /* 0x75 */
1063 10323cd3 2004-04-19 devnull Jbs,0, "JLS %p", /* 0x76 */
1064 10323cd3 2004-04-19 devnull Jbs,0, "JHI %p", /* 0x77 */
1065 10323cd3 2004-04-19 devnull Jbs,0, "JMI %p", /* 0x78 */
1066 10323cd3 2004-04-19 devnull Jbs,0, "JPL %p", /* 0x79 */
1067 10323cd3 2004-04-19 devnull Jbs,0, "JPS %p", /* 0x7a */
1068 10323cd3 2004-04-19 devnull Jbs,0, "JPC %p", /* 0x7b */
1069 10323cd3 2004-04-19 devnull Jbs,0, "JLT %p", /* 0x7c */
1070 10323cd3 2004-04-19 devnull Jbs,0, "JGE %p", /* 0x7d */
1071 10323cd3 2004-04-19 devnull Jbs,0, "JLE %p", /* 0x7e */
1072 10323cd3 2004-04-19 devnull Jbs,0, "JGT %p", /* 0x7f */
1073 10323cd3 2004-04-19 devnull RMOPB,0, optab80, /* 0x80 */
1074 10323cd3 2004-04-19 devnull RMOP,0, optab81, /* 0x81 */
1075 10323cd3 2004-04-19 devnull 0,0, "", /* 0x82 */
1076 10323cd3 2004-04-19 devnull RMOP,0, optab83, /* 0x83 */
1077 10323cd3 2004-04-19 devnull RMB,0, "TESTB %r,%e", /* 0x84 */
1078 10323cd3 2004-04-19 devnull RM,0, "TEST%S %r,%e", /* 0x85 */
1079 10323cd3 2004-04-19 devnull RMB,0, "XCHGB %r,%e", /* 0x86 */
1080 10323cd3 2004-04-19 devnull RM,0, "XCHG%S %r,%e", /* 0x87 */
1081 10323cd3 2004-04-19 devnull RMB,0, "MOVB %r,%e", /* 0x88 */
1082 10323cd3 2004-04-19 devnull RM,0, "MOV%S %r,%e", /* 0x89 */
1083 10323cd3 2004-04-19 devnull RMB,0, "MOVB %e,%r", /* 0x8a */
1084 10323cd3 2004-04-19 devnull RM,0, "MOV%S %e,%r", /* 0x8b */
1085 10323cd3 2004-04-19 devnull RM,0, "MOVW %g,%e", /* 0x8c */
1086 10323cd3 2004-04-19 devnull RM,0, "LEA %e,%r", /* 0x8d */
1087 10323cd3 2004-04-19 devnull RM,0, "MOVW %e,%g", /* 0x8e */
1088 10323cd3 2004-04-19 devnull RM,0, "POP%S %e", /* 0x8f */
1089 10323cd3 2004-04-19 devnull 0,0, "NOP", /* 0x90 */
1090 10323cd3 2004-04-19 devnull 0,0, "XCHG %OCX,%OAX", /* 0x91 */
1091 10323cd3 2004-04-19 devnull 0,0, "XCHG %OCX,%OAX", /* 0x92 */
1092 10323cd3 2004-04-19 devnull 0,0, "XCHG %OCX,%OAX", /* 0x93 */
1093 10323cd3 2004-04-19 devnull 0,0, "XCHG %OSP,%OAX", /* 0x94 */
1094 10323cd3 2004-04-19 devnull 0,0, "XCHG %OBP,%OAX", /* 0x95 */
1095 10323cd3 2004-04-19 devnull 0,0, "XCHG %OSI,%OAX", /* 0x96 */
1096 10323cd3 2004-04-19 devnull 0,0, "XCHG %ODI,%OAX", /* 0x97 */
1097 10323cd3 2004-04-19 devnull 0,0, "%X", /* 0x98 */ /* miserable CBW or CWDE */
1098 10323cd3 2004-04-19 devnull 0,0, "%x", /* 0x99 */ /* idiotic CWD or CDQ */
1099 10323cd3 2004-04-19 devnull PTR,0, "CALL%S %d", /* 0x9a */
1100 10323cd3 2004-04-19 devnull 0,0, "WAIT", /* 0x9b */
1101 10323cd3 2004-04-19 devnull 0,0, "PUSHF", /* 0x9c */
1102 10323cd3 2004-04-19 devnull 0,0, "POPF", /* 0x9d */
1103 10323cd3 2004-04-19 devnull 0,0, "SAHF", /* 0x9e */
1104 10323cd3 2004-04-19 devnull 0,0, "LAHF", /* 0x9f */
1105 10323cd3 2004-04-19 devnull Awd,0, "MOVB %i,AL", /* 0xa0 */
1106 10323cd3 2004-04-19 devnull Awd,0, "MOV%S %i,%OAX", /* 0xa1 */
1107 10323cd3 2004-04-19 devnull Awd,0, "MOVB AL,%i", /* 0xa2 */
1108 10323cd3 2004-04-19 devnull Awd,0, "MOV%S %OAX,%i", /* 0xa3 */
1109 10323cd3 2004-04-19 devnull 0,0, "MOVSB (%ASI),(%ADI)", /* 0xa4 */
1110 10323cd3 2004-04-19 devnull 0,0, "MOVS%S (%ASI),(%ADI)", /* 0xa5 */
1111 10323cd3 2004-04-19 devnull 0,0, "CMPSB (%ASI),(%ADI)", /* 0xa6 */
1112 10323cd3 2004-04-19 devnull 0,0, "CMPS%S (%ASI),(%ADI)", /* 0xa7 */
1113 10323cd3 2004-04-19 devnull Ib,0, "TESTB %i,AL", /* 0xa8 */
1114 10323cd3 2004-04-19 devnull Iwd,0, "TEST%S %i,%OAX", /* 0xa9 */
1115 10323cd3 2004-04-19 devnull 0,0, "STOSB AL,(%ADI)", /* 0xaa */
1116 10323cd3 2004-04-19 devnull 0,0, "STOS%S %OAX,(%ADI)", /* 0xab */
1117 10323cd3 2004-04-19 devnull 0,0, "LODSB (%ASI),AL", /* 0xac */
1118 10323cd3 2004-04-19 devnull 0,0, "LODS%S (%ASI),%OAX", /* 0xad */
1119 10323cd3 2004-04-19 devnull 0,0, "SCASB (%ADI),AL", /* 0xae */
1120 10323cd3 2004-04-19 devnull 0,0, "SCAS%S (%ADI),%OAX", /* 0xaf */
1121 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,AL", /* 0xb0 */
1122 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,CL", /* 0xb1 */
1123 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,DL", /* 0xb2 */
1124 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,BL", /* 0xb3 */
1125 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,AH", /* 0xb4 */
1126 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,CH", /* 0xb5 */
1127 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,DH", /* 0xb6 */
1128 10323cd3 2004-04-19 devnull Ib,0, "MOVB %i,BH", /* 0xb7 */
1129 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%OAX", /* 0xb8 */
1130 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%OCX", /* 0xb9 */
1131 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%ODX", /* 0xba */
1132 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%OBX", /* 0xbb */
1133 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%OSP", /* 0xbc */
1134 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%OBP", /* 0xbd */
1135 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%OSI", /* 0xbe */
1136 10323cd3 2004-04-19 devnull Iwd,0, "MOV%S %i,%ODI", /* 0xbf */
1137 10323cd3 2004-04-19 devnull RMOPB,0, optabC0, /* 0xc0 */
1138 10323cd3 2004-04-19 devnull RMOP,0, optabC1, /* 0xc1 */
1139 10323cd3 2004-04-19 devnull Iw,0, "RET %i", /* 0xc2 */
1140 10323cd3 2004-04-19 devnull RET,0, "RET", /* 0xc3 */
1141 10323cd3 2004-04-19 devnull RM,0, "LES %e,%r", /* 0xc4 */
1142 10323cd3 2004-04-19 devnull RM,0, "LDS %e,%r", /* 0xc5 */
1143 10323cd3 2004-04-19 devnull RMB,Ib, "MOVB %i,%e", /* 0xc6 */
1144 10323cd3 2004-04-19 devnull RM,Iwd, "MOV%S %i,%e", /* 0xc7 */
1145 10323cd3 2004-04-19 devnull Iw2,Ib, "ENTER %i,%I", /* 0xc8 */ /* loony ENTER */
1146 10323cd3 2004-04-19 devnull RET,0, "LEAVE", /* 0xc9 */ /* bizarre LEAVE */
1147 10323cd3 2004-04-19 devnull Iw,0, "RETF %i", /* 0xca */
1148 10323cd3 2004-04-19 devnull RET,0, "RETF", /* 0xcb */
1149 10323cd3 2004-04-19 devnull 0,0, "INT 3", /* 0xcc */
1150 10323cd3 2004-04-19 devnull Ib,0, "INTB %i", /* 0xcd */
1151 10323cd3 2004-04-19 devnull 0,0, "INTO", /* 0xce */
1152 10323cd3 2004-04-19 devnull 0,0, "IRET", /* 0xcf */
1153 10323cd3 2004-04-19 devnull RMOPB,0, optabD0, /* 0xd0 */
1154 10323cd3 2004-04-19 devnull RMOP,0, optabD1, /* 0xd1 */
1155 10323cd3 2004-04-19 devnull RMOPB,0, optabD2, /* 0xd2 */
1156 10323cd3 2004-04-19 devnull RMOP,0, optabD3, /* 0xd3 */
1157 10323cd3 2004-04-19 devnull OA,0, "AAM", /* 0xd4 */
1158 10323cd3 2004-04-19 devnull OA,0, "AAD", /* 0xd5 */
1159 10323cd3 2004-04-19 devnull 0,0, "", /* 0xd6 */
1160 10323cd3 2004-04-19 devnull 0,0, "XLAT", /* 0xd7 */
1161 10323cd3 2004-04-19 devnull FRMOP,0, optabD8, /* 0xd8 */
1162 10323cd3 2004-04-19 devnull FRMEX,0, optabD9, /* 0xd9 */
1163 10323cd3 2004-04-19 devnull FRMOP,0, optabDA, /* 0xda */
1164 10323cd3 2004-04-19 devnull FRMEX,0, optabDB, /* 0xdb */
1165 10323cd3 2004-04-19 devnull FRMOP,0, optabDC, /* 0xdc */
1166 10323cd3 2004-04-19 devnull FRMOP,0, optabDD, /* 0xdd */
1167 10323cd3 2004-04-19 devnull FRMOP,0, optabDE, /* 0xde */
1168 10323cd3 2004-04-19 devnull FRMOP,0, optabDF, /* 0xdf */
1169 10323cd3 2004-04-19 devnull Jbs,0, "LOOPNE %p", /* 0xe0 */
1170 10323cd3 2004-04-19 devnull Jbs,0, "LOOPE %p", /* 0xe1 */
1171 10323cd3 2004-04-19 devnull Jbs,0, "LOOP %p", /* 0xe2 */
1172 10323cd3 2004-04-19 devnull Jbs,0, "JCXZ %p", /* 0xe3 */
1173 10323cd3 2004-04-19 devnull Ib,0, "INB %i,AL", /* 0xe4 */
1174 10323cd3 2004-04-19 devnull Ib,0, "IN%S %i,%OAX", /* 0xe5 */
1175 10323cd3 2004-04-19 devnull Ib,0, "OUTB AL,%i", /* 0xe6 */
1176 10323cd3 2004-04-19 devnull Ib,0, "OUT%S %OAX,%i", /* 0xe7 */
1177 10323cd3 2004-04-19 devnull Iwds,0, "CALL %p", /* 0xe8 */
1178 10323cd3 2004-04-19 devnull Iwds,0, "JMP %p", /* 0xe9 */
1179 10323cd3 2004-04-19 devnull PTR,0, "JMP %d", /* 0xea */
1180 10323cd3 2004-04-19 devnull Jbs,0, "JMP %p", /* 0xeb */
1181 10323cd3 2004-04-19 devnull 0,0, "INB DX,AL", /* 0xec */
1182 10323cd3 2004-04-19 devnull 0,0, "IN%S DX,%OAX", /* 0xed */
1183 10323cd3 2004-04-19 devnull 0,0, "OUTB AL,DX", /* 0xee */
1184 10323cd3 2004-04-19 devnull 0,0, "OUT%S %OAX,DX", /* 0xef */
1185 10323cd3 2004-04-19 devnull PRE,0, "LOCK", /* 0xf0 */
1186 10323cd3 2004-04-19 devnull 0,0, "", /* 0xf1 */
1187 10323cd3 2004-04-19 devnull PRE,0, "REPNE", /* 0xf2 */
1188 10323cd3 2004-04-19 devnull PRE,0, "REP", /* 0xf3 */
1189 10323cd3 2004-04-19 devnull 0,0, "HALT", /* 0xf4 */
1190 10323cd3 2004-04-19 devnull 0,0, "CMC", /* 0xf5 */
1191 10323cd3 2004-04-19 devnull RMOPB,0, optabF6, /* 0xf6 */
1192 10323cd3 2004-04-19 devnull RMOP,0, optabF7, /* 0xf7 */
1193 10323cd3 2004-04-19 devnull 0,0, "CLC", /* 0xf8 */
1194 10323cd3 2004-04-19 devnull 0,0, "STC", /* 0xf9 */
1195 10323cd3 2004-04-19 devnull 0,0, "CLI", /* 0xfa */
1196 10323cd3 2004-04-19 devnull 0,0, "STI", /* 0xfb */
1197 10323cd3 2004-04-19 devnull 0,0, "CLD", /* 0xfc */
1198 10323cd3 2004-04-19 devnull 0,0, "STD", /* 0xfd */
1199 10323cd3 2004-04-19 devnull RMOPB,0, optabFE, /* 0xfe */
1200 10323cd3 2004-04-19 devnull RMOP,0, optabFF, /* 0xff */
1201 a84cbb2a 2004-04-19 devnull };
1202 a84cbb2a 2004-04-19 devnull
1203 a84cbb2a 2004-04-19 devnull /*
1204 a84cbb2a 2004-04-19 devnull * get a byte of the instruction
1205 a84cbb2a 2004-04-19 devnull */
1206 a84cbb2a 2004-04-19 devnull static int
1207 a84cbb2a 2004-04-19 devnull igetc(Map * map, Instr *ip, uchar *c)
1208 a84cbb2a 2004-04-19 devnull {
1209 a84cbb2a 2004-04-19 devnull if(ip->n+1 > sizeof(ip->mem)){
1210 a84cbb2a 2004-04-19 devnull werrstr("instruction too long");
1211 a84cbb2a 2004-04-19 devnull return -1;
1212 a84cbb2a 2004-04-19 devnull }
1213 a84cbb2a 2004-04-19 devnull if (get1(map, ip->addr+ip->n, c, 1) < 0) {
1214 a84cbb2a 2004-04-19 devnull werrstr("can't read instruction: %r");
1215 a84cbb2a 2004-04-19 devnull return -1;
1216 a84cbb2a 2004-04-19 devnull }
1217 a84cbb2a 2004-04-19 devnull ip->mem[ip->n++] = *c;
1218 a84cbb2a 2004-04-19 devnull return 1;
1219 a84cbb2a 2004-04-19 devnull }
1220 a84cbb2a 2004-04-19 devnull
1221 a84cbb2a 2004-04-19 devnull /*
1222 a84cbb2a 2004-04-19 devnull * get two bytes of the instruction
1223 a84cbb2a 2004-04-19 devnull */
1224 a84cbb2a 2004-04-19 devnull static int
1225 a84cbb2a 2004-04-19 devnull igets(Map *map, Instr *ip, ushort *sp)
1226 a84cbb2a 2004-04-19 devnull {
1227 a84cbb2a 2004-04-19 devnull uchar c;
1228 a84cbb2a 2004-04-19 devnull ushort s;
1229 a84cbb2a 2004-04-19 devnull
1230 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1231 a84cbb2a 2004-04-19 devnull return -1;
1232 a84cbb2a 2004-04-19 devnull s = c;
1233 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1234 a84cbb2a 2004-04-19 devnull return -1;
1235 a84cbb2a 2004-04-19 devnull s |= (c<<8);
1236 a84cbb2a 2004-04-19 devnull *sp = s;
1237 a84cbb2a 2004-04-19 devnull return 1;
1238 a84cbb2a 2004-04-19 devnull }
1239 a84cbb2a 2004-04-19 devnull
1240 a84cbb2a 2004-04-19 devnull /*
1241 a84cbb2a 2004-04-19 devnull * get 4 bytes of the instruction
1242 a84cbb2a 2004-04-19 devnull */
1243 a84cbb2a 2004-04-19 devnull static int
1244 a84cbb2a 2004-04-19 devnull igetl(Map *map, Instr *ip, ulong *lp)
1245 a84cbb2a 2004-04-19 devnull {
1246 a84cbb2a 2004-04-19 devnull ushort s;
1247 a84cbb2a 2004-04-19 devnull long l;
1248 a84cbb2a 2004-04-19 devnull
1249 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s) < 0)
1250 a84cbb2a 2004-04-19 devnull return -1;
1251 a84cbb2a 2004-04-19 devnull l = s;
1252 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s) < 0)
1253 a84cbb2a 2004-04-19 devnull return -1;
1254 a84cbb2a 2004-04-19 devnull l |= (s<<16);
1255 a84cbb2a 2004-04-19 devnull *lp = l;
1256 a84cbb2a 2004-04-19 devnull return 1;
1257 a84cbb2a 2004-04-19 devnull }
1258 a84cbb2a 2004-04-19 devnull
1259 a84cbb2a 2004-04-19 devnull static int
1260 a84cbb2a 2004-04-19 devnull getdisp(Map *map, Instr *ip, int mod, int rm, int code)
1261 a84cbb2a 2004-04-19 devnull {
1262 a84cbb2a 2004-04-19 devnull uchar c;
1263 a84cbb2a 2004-04-19 devnull ushort s;
1264 a84cbb2a 2004-04-19 devnull
1265 a84cbb2a 2004-04-19 devnull if (mod > 2)
1266 a84cbb2a 2004-04-19 devnull return 1;
1267 a84cbb2a 2004-04-19 devnull if (mod == 1) {
1268 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1269 a84cbb2a 2004-04-19 devnull return -1;
1270 a84cbb2a 2004-04-19 devnull if (c&0x80)
1271 a84cbb2a 2004-04-19 devnull ip->disp = c|0xffffff00;
1272 a84cbb2a 2004-04-19 devnull else
1273 a84cbb2a 2004-04-19 devnull ip->disp = c&0xff;
1274 a84cbb2a 2004-04-19 devnull } else if (mod == 2 || rm == code) {
1275 a84cbb2a 2004-04-19 devnull if (ip->asize == 'E') {
1276 a84cbb2a 2004-04-19 devnull if (igetl(map, ip, &ip->disp) < 0)
1277 a84cbb2a 2004-04-19 devnull return -1;
1278 a84cbb2a 2004-04-19 devnull } else {
1279 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s) < 0)
1280 a84cbb2a 2004-04-19 devnull return -1;
1281 a84cbb2a 2004-04-19 devnull if (s&0x8000)
1282 a84cbb2a 2004-04-19 devnull ip->disp = s|0xffff0000;
1283 a84cbb2a 2004-04-19 devnull else
1284 a84cbb2a 2004-04-19 devnull ip->disp = s;
1285 a84cbb2a 2004-04-19 devnull }
1286 a84cbb2a 2004-04-19 devnull if (mod == 0)
1287 a84cbb2a 2004-04-19 devnull ip->base = -1;
1288 a84cbb2a 2004-04-19 devnull }
1289 a84cbb2a 2004-04-19 devnull return 1;
1290 a84cbb2a 2004-04-19 devnull }
1291 a84cbb2a 2004-04-19 devnull
1292 a84cbb2a 2004-04-19 devnull static int
1293 a84cbb2a 2004-04-19 devnull modrm(Map *map, Instr *ip, uchar c)
1294 a84cbb2a 2004-04-19 devnull {
1295 a84cbb2a 2004-04-19 devnull uchar rm, mod;
1296 a84cbb2a 2004-04-19 devnull
1297 a84cbb2a 2004-04-19 devnull mod = (c>>6)&3;
1298 a84cbb2a 2004-04-19 devnull rm = c&7;
1299 a84cbb2a 2004-04-19 devnull ip->mod = mod;
1300 a84cbb2a 2004-04-19 devnull ip->base = rm;
1301 a84cbb2a 2004-04-19 devnull ip->reg = (c>>3)&7;
1302 a84cbb2a 2004-04-19 devnull if (mod == 3) /* register */
1303 a84cbb2a 2004-04-19 devnull return 1;
1304 a84cbb2a 2004-04-19 devnull if (ip->asize == 0) { /* 16-bit mode */
1305 a84cbb2a 2004-04-19 devnull switch(rm)
1306 a84cbb2a 2004-04-19 devnull {
1307 a84cbb2a 2004-04-19 devnull case 0:
1308 a84cbb2a 2004-04-19 devnull ip->base = BX; ip->index = SI;
1309 a84cbb2a 2004-04-19 devnull break;
1310 a84cbb2a 2004-04-19 devnull case 1:
1311 a84cbb2a 2004-04-19 devnull ip->base = BX; ip->index = DI;
1312 a84cbb2a 2004-04-19 devnull break;
1313 a84cbb2a 2004-04-19 devnull case 2:
1314 a84cbb2a 2004-04-19 devnull ip->base = BP; ip->index = SI;
1315 a84cbb2a 2004-04-19 devnull break;
1316 a84cbb2a 2004-04-19 devnull case 3:
1317 a84cbb2a 2004-04-19 devnull ip->base = BP; ip->index = DI;
1318 a84cbb2a 2004-04-19 devnull break;
1319 a84cbb2a 2004-04-19 devnull case 4:
1320 a84cbb2a 2004-04-19 devnull ip->base = SI;
1321 a84cbb2a 2004-04-19 devnull break;
1322 a84cbb2a 2004-04-19 devnull case 5:
1323 a84cbb2a 2004-04-19 devnull ip->base = DI;
1324 a84cbb2a 2004-04-19 devnull break;
1325 a84cbb2a 2004-04-19 devnull case 6:
1326 a84cbb2a 2004-04-19 devnull ip->base = BP;
1327 a84cbb2a 2004-04-19 devnull break;
1328 a84cbb2a 2004-04-19 devnull case 7:
1329 a84cbb2a 2004-04-19 devnull ip->base = BX;
1330 a84cbb2a 2004-04-19 devnull break;
1331 a84cbb2a 2004-04-19 devnull default:
1332 a84cbb2a 2004-04-19 devnull break;
1333 a84cbb2a 2004-04-19 devnull }
1334 a84cbb2a 2004-04-19 devnull return getdisp(map, ip, mod, rm, 6);
1335 a84cbb2a 2004-04-19 devnull }
1336 a84cbb2a 2004-04-19 devnull if (rm == 4) { /* scummy sib byte */
1337 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1338 a84cbb2a 2004-04-19 devnull return -1;
1339 a84cbb2a 2004-04-19 devnull ip->ss = (c>>6)&0x03;
1340 a84cbb2a 2004-04-19 devnull ip->index = (c>>3)&0x07;
1341 a84cbb2a 2004-04-19 devnull if (ip->index == 4)
1342 a84cbb2a 2004-04-19 devnull ip->index = -1;
1343 a84cbb2a 2004-04-19 devnull ip->base = c&0x07;
1344 a84cbb2a 2004-04-19 devnull return getdisp(map, ip, mod, ip->base, 5);
1345 a84cbb2a 2004-04-19 devnull }
1346 a84cbb2a 2004-04-19 devnull return getdisp(map, ip, mod, rm, 5);
1347 a84cbb2a 2004-04-19 devnull }
1348 a84cbb2a 2004-04-19 devnull
1349 a84cbb2a 2004-04-19 devnull static Optable *
1350 a84cbb2a 2004-04-19 devnull mkinstr(Map *map, Instr *ip, ulong pc)
1351 a84cbb2a 2004-04-19 devnull {
1352 a84cbb2a 2004-04-19 devnull int i, n;
1353 a84cbb2a 2004-04-19 devnull uchar c;
1354 a84cbb2a 2004-04-19 devnull ushort s;
1355 a84cbb2a 2004-04-19 devnull Optable *op, *obase;
1356 a84cbb2a 2004-04-19 devnull char buf[128];
1357 a84cbb2a 2004-04-19 devnull
1358 a84cbb2a 2004-04-19 devnull memset(ip, 0, sizeof(*ip));
1359 a84cbb2a 2004-04-19 devnull ip->base = -1;
1360 a84cbb2a 2004-04-19 devnull ip->index = -1;
1361 a84cbb2a 2004-04-19 devnull if(0) /* asstype == AI8086) */
1362 a84cbb2a 2004-04-19 devnull ip->osize = 'W';
1363 a84cbb2a 2004-04-19 devnull else {
1364 a84cbb2a 2004-04-19 devnull ip->osize = 'L';
1365 a84cbb2a 2004-04-19 devnull ip->asize = 'E';
1366 a84cbb2a 2004-04-19 devnull }
1367 a84cbb2a 2004-04-19 devnull ip->addr = pc;
1368 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1369 a84cbb2a 2004-04-19 devnull return 0;
1370 a84cbb2a 2004-04-19 devnull obase = optable;
1371 a84cbb2a 2004-04-19 devnull newop:
1372 a84cbb2a 2004-04-19 devnull op = &obase[c];
1373 a84cbb2a 2004-04-19 devnull if (op->proto == 0) {
1374 a84cbb2a 2004-04-19 devnull badop:
1375 a84cbb2a 2004-04-19 devnull n = snprint(buf, sizeof(buf), "opcode: ??");
1376 a84cbb2a 2004-04-19 devnull for (i = 0; i < ip->n && n < sizeof(buf)-3; i++, n+=2)
1377 a84cbb2a 2004-04-19 devnull _hexify(buf+n, ip->mem[i], 1);
1378 a84cbb2a 2004-04-19 devnull strcpy(buf+n, "??");
1379 a84cbb2a 2004-04-19 devnull werrstr(buf);
1380 a84cbb2a 2004-04-19 devnull return 0;
1381 a84cbb2a 2004-04-19 devnull }
1382 a84cbb2a 2004-04-19 devnull for(i = 0; i < 2 && op->operand[i]; i++) {
1383 a84cbb2a 2004-04-19 devnull switch(op->operand[i])
1384 a84cbb2a 2004-04-19 devnull {
1385 a84cbb2a 2004-04-19 devnull case Ib: /* 8-bit immediate - (no sign extension)*/
1386 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1387 a84cbb2a 2004-04-19 devnull return 0;
1388 a84cbb2a 2004-04-19 devnull ip->imm = c&0xff;
1389 a84cbb2a 2004-04-19 devnull break;
1390 a84cbb2a 2004-04-19 devnull case Jbs: /* 8-bit jump immediate (sign extended) */
1391 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1392 a84cbb2a 2004-04-19 devnull return 0;
1393 a84cbb2a 2004-04-19 devnull if (c&0x80)
1394 a84cbb2a 2004-04-19 devnull ip->imm = c|0xffffff00;
1395 a84cbb2a 2004-04-19 devnull else
1396 a84cbb2a 2004-04-19 devnull ip->imm = c&0xff;
1397 a84cbb2a 2004-04-19 devnull ip->jumptype = Jbs;
1398 a84cbb2a 2004-04-19 devnull break;
1399 a84cbb2a 2004-04-19 devnull case Ibs: /* 8-bit immediate (sign extended) */
1400 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1401 a84cbb2a 2004-04-19 devnull return 0;
1402 a84cbb2a 2004-04-19 devnull if (c&0x80)
1403 a84cbb2a 2004-04-19 devnull if (ip->osize == 'L')
1404 a84cbb2a 2004-04-19 devnull ip->imm = c|0xffffff00;
1405 a84cbb2a 2004-04-19 devnull else
1406 a84cbb2a 2004-04-19 devnull ip->imm = c|0xff00;
1407 a84cbb2a 2004-04-19 devnull else
1408 a84cbb2a 2004-04-19 devnull ip->imm = c&0xff;
1409 a84cbb2a 2004-04-19 devnull break;
1410 a84cbb2a 2004-04-19 devnull case Iw: /* 16-bit immediate -> imm */
1411 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s) < 0)
1412 a84cbb2a 2004-04-19 devnull return 0;
1413 a84cbb2a 2004-04-19 devnull ip->imm = s&0xffff;
1414 a84cbb2a 2004-04-19 devnull ip->jumptype = Iw;
1415 a84cbb2a 2004-04-19 devnull break;
1416 a84cbb2a 2004-04-19 devnull case Iw2: /* 16-bit immediate -> in imm2*/
1417 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s) < 0)
1418 a84cbb2a 2004-04-19 devnull return 0;
1419 a84cbb2a 2004-04-19 devnull ip->imm2 = s&0xffff;
1420 a84cbb2a 2004-04-19 devnull break;
1421 a84cbb2a 2004-04-19 devnull case Iwd: /* Operand-sized immediate (no sign extension)*/
1422 a84cbb2a 2004-04-19 devnull if (ip->osize == 'L') {
1423 a84cbb2a 2004-04-19 devnull if (igetl(map, ip, &ip->imm) < 0)
1424 a84cbb2a 2004-04-19 devnull return 0;
1425 a84cbb2a 2004-04-19 devnull } else {
1426 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s)< 0)
1427 a84cbb2a 2004-04-19 devnull return 0;
1428 a84cbb2a 2004-04-19 devnull ip->imm = s&0xffff;
1429 a84cbb2a 2004-04-19 devnull }
1430 a84cbb2a 2004-04-19 devnull break;
1431 a84cbb2a 2004-04-19 devnull case Awd: /* Address-sized immediate (no sign extension)*/
1432 a84cbb2a 2004-04-19 devnull if (ip->asize == 'E') {
1433 a84cbb2a 2004-04-19 devnull if (igetl(map, ip, &ip->imm) < 0)
1434 a84cbb2a 2004-04-19 devnull return 0;
1435 a84cbb2a 2004-04-19 devnull } else {
1436 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s)< 0)
1437 a84cbb2a 2004-04-19 devnull return 0;
1438 a84cbb2a 2004-04-19 devnull ip->imm = s&0xffff;
1439 a84cbb2a 2004-04-19 devnull }
1440 a84cbb2a 2004-04-19 devnull break;
1441 a84cbb2a 2004-04-19 devnull case Iwds: /* Operand-sized immediate (sign extended) */
1442 a84cbb2a 2004-04-19 devnull if (ip->osize == 'L') {
1443 a84cbb2a 2004-04-19 devnull if (igetl(map, ip, &ip->imm) < 0)
1444 a84cbb2a 2004-04-19 devnull return 0;
1445 a84cbb2a 2004-04-19 devnull } else {
1446 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s)< 0)
1447 a84cbb2a 2004-04-19 devnull return 0;
1448 a84cbb2a 2004-04-19 devnull if (s&0x8000)
1449 a84cbb2a 2004-04-19 devnull ip->imm = s|0xffff0000;
1450 a84cbb2a 2004-04-19 devnull else
1451 a84cbb2a 2004-04-19 devnull ip->imm = s&0xffff;
1452 a84cbb2a 2004-04-19 devnull }
1453 a84cbb2a 2004-04-19 devnull ip->jumptype = Iwds;
1454 a84cbb2a 2004-04-19 devnull break;
1455 a84cbb2a 2004-04-19 devnull case OA: /* literal 0x0a byte */
1456 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1457 a84cbb2a 2004-04-19 devnull return 0;
1458 a84cbb2a 2004-04-19 devnull if (c != 0x0a)
1459 a84cbb2a 2004-04-19 devnull goto badop;
1460 a84cbb2a 2004-04-19 devnull break;
1461 a84cbb2a 2004-04-19 devnull case R0: /* base register must be R0 */
1462 a84cbb2a 2004-04-19 devnull if (ip->base != 0)
1463 a84cbb2a 2004-04-19 devnull goto badop;
1464 a84cbb2a 2004-04-19 devnull break;
1465 a84cbb2a 2004-04-19 devnull case R1: /* base register must be R1 */
1466 a84cbb2a 2004-04-19 devnull if (ip->base != 1)
1467 a84cbb2a 2004-04-19 devnull goto badop;
1468 a84cbb2a 2004-04-19 devnull break;
1469 a84cbb2a 2004-04-19 devnull case RMB: /* R/M field with byte register (/r)*/
1470 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1471 a84cbb2a 2004-04-19 devnull return 0;
1472 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1473 a84cbb2a 2004-04-19 devnull return 0;
1474 a84cbb2a 2004-04-19 devnull ip->osize = 'B';
1475 a84cbb2a 2004-04-19 devnull break;
1476 a84cbb2a 2004-04-19 devnull case RM: /* R/M field with register (/r) */
1477 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1478 a84cbb2a 2004-04-19 devnull return 0;
1479 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1480 a84cbb2a 2004-04-19 devnull return 0;
1481 a84cbb2a 2004-04-19 devnull break;
1482 a84cbb2a 2004-04-19 devnull case RMOPB: /* R/M field with op code (/digit) */
1483 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1484 a84cbb2a 2004-04-19 devnull return 0;
1485 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1486 a84cbb2a 2004-04-19 devnull return 0;
1487 a84cbb2a 2004-04-19 devnull c = ip->reg; /* secondary op code */
1488 a84cbb2a 2004-04-19 devnull obase = (Optable*)op->proto;
1489 a84cbb2a 2004-04-19 devnull ip->osize = 'B';
1490 a84cbb2a 2004-04-19 devnull goto newop;
1491 a84cbb2a 2004-04-19 devnull case RMOP: /* R/M field with op code (/digit) */
1492 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1493 a84cbb2a 2004-04-19 devnull return 0;
1494 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1495 a84cbb2a 2004-04-19 devnull return 0;
1496 a84cbb2a 2004-04-19 devnull c = ip->reg;
1497 a84cbb2a 2004-04-19 devnull obase = (Optable*)op->proto;
1498 a84cbb2a 2004-04-19 devnull goto newop;
1499 a84cbb2a 2004-04-19 devnull case FRMOP: /* FP R/M field with op code (/digit) */
1500 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1501 a84cbb2a 2004-04-19 devnull return 0;
1502 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1503 a84cbb2a 2004-04-19 devnull return 0;
1504 a84cbb2a 2004-04-19 devnull if ((c&0xc0) == 0xc0)
1505 a84cbb2a 2004-04-19 devnull c = ip->reg+8; /* 16 entry table */
1506 a84cbb2a 2004-04-19 devnull else
1507 a84cbb2a 2004-04-19 devnull c = ip->reg;
1508 a84cbb2a 2004-04-19 devnull obase = (Optable*)op->proto;
1509 a84cbb2a 2004-04-19 devnull goto newop;
1510 a84cbb2a 2004-04-19 devnull case FRMEX: /* Extended FP R/M field with op code (/digit) */
1511 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1512 a84cbb2a 2004-04-19 devnull return 0;
1513 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1514 a84cbb2a 2004-04-19 devnull return 0;
1515 a84cbb2a 2004-04-19 devnull if ((c&0xc0) == 0xc0)
1516 a84cbb2a 2004-04-19 devnull c = (c&0x3f)+8; /* 64-entry table */
1517 a84cbb2a 2004-04-19 devnull else
1518 a84cbb2a 2004-04-19 devnull c = ip->reg;
1519 a84cbb2a 2004-04-19 devnull obase = (Optable*)op->proto;
1520 a84cbb2a 2004-04-19 devnull goto newop;
1521 a84cbb2a 2004-04-19 devnull case RMR: /* R/M register only (mod = 11) */
1522 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1523 a84cbb2a 2004-04-19 devnull return 0;
1524 a84cbb2a 2004-04-19 devnull if ((c&0xc0) != 0xc0) {
1525 a84cbb2a 2004-04-19 devnull werrstr("invalid R/M register: %x", c);
1526 a84cbb2a 2004-04-19 devnull return 0;
1527 a84cbb2a 2004-04-19 devnull }
1528 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1529 a84cbb2a 2004-04-19 devnull return 0;
1530 a84cbb2a 2004-04-19 devnull break;
1531 a84cbb2a 2004-04-19 devnull case RMM: /* R/M register only (mod = 11) */
1532 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1533 a84cbb2a 2004-04-19 devnull return 0;
1534 a84cbb2a 2004-04-19 devnull if ((c&0xc0) == 0xc0) {
1535 a84cbb2a 2004-04-19 devnull werrstr("invalid R/M memory mode: %x", c);
1536 a84cbb2a 2004-04-19 devnull return 0;
1537 a84cbb2a 2004-04-19 devnull }
1538 a84cbb2a 2004-04-19 devnull if (modrm(map, ip, c) < 0)
1539 a84cbb2a 2004-04-19 devnull return 0;
1540 a84cbb2a 2004-04-19 devnull break;
1541 a84cbb2a 2004-04-19 devnull case PTR: /* Seg:Displacement addr (ptr16:16 or ptr16:32) */
1542 a84cbb2a 2004-04-19 devnull if (ip->osize == 'L') {
1543 a84cbb2a 2004-04-19 devnull if (igetl(map, ip, &ip->disp) < 0)
1544 a84cbb2a 2004-04-19 devnull return 0;
1545 a84cbb2a 2004-04-19 devnull } else {
1546 a84cbb2a 2004-04-19 devnull if (igets(map, ip, &s)< 0)
1547 a84cbb2a 2004-04-19 devnull return 0;
1548 a84cbb2a 2004-04-19 devnull ip->disp = s&0xffff;
1549 a84cbb2a 2004-04-19 devnull }
1550 a84cbb2a 2004-04-19 devnull if (igets(map, ip, (ushort*)&ip->seg) < 0)
1551 a84cbb2a 2004-04-19 devnull return 0;
1552 a84cbb2a 2004-04-19 devnull ip->jumptype = PTR;
1553 a84cbb2a 2004-04-19 devnull break;
1554 a84cbb2a 2004-04-19 devnull case AUX: /* Multi-byte op code - Auxiliary table */
1555 a84cbb2a 2004-04-19 devnull obase = (Optable*)op->proto;
1556 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1557 a84cbb2a 2004-04-19 devnull return 0;
1558 a84cbb2a 2004-04-19 devnull goto newop;
1559 a84cbb2a 2004-04-19 devnull case PRE: /* Instr Prefix */
1560 a84cbb2a 2004-04-19 devnull ip->prefix = (char*)op->proto;
1561 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1562 a84cbb2a 2004-04-19 devnull return 0;
1563 a84cbb2a 2004-04-19 devnull goto newop;
1564 a84cbb2a 2004-04-19 devnull case SEG: /* Segment Prefix */
1565 a84cbb2a 2004-04-19 devnull ip->segment = (char*)op->proto;
1566 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1567 a84cbb2a 2004-04-19 devnull return 0;
1568 a84cbb2a 2004-04-19 devnull goto newop;
1569 a84cbb2a 2004-04-19 devnull case OPOVER: /* Operand size override */
1570 a84cbb2a 2004-04-19 devnull ip->osize = 'W';
1571 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1572 a84cbb2a 2004-04-19 devnull return 0;
1573 a84cbb2a 2004-04-19 devnull goto newop;
1574 a84cbb2a 2004-04-19 devnull case ADDOVER: /* Address size override */
1575 a84cbb2a 2004-04-19 devnull ip->asize = 0;
1576 a84cbb2a 2004-04-19 devnull if (igetc(map, ip, &c) < 0)
1577 a84cbb2a 2004-04-19 devnull return 0;
1578 a84cbb2a 2004-04-19 devnull goto newop;
1579 a84cbb2a 2004-04-19 devnull case JUMP: /* mark instruction as JUMP or RET */
1580 a84cbb2a 2004-04-19 devnull case RET:
1581 a84cbb2a 2004-04-19 devnull ip->jumptype = op->operand[i];
1582 a84cbb2a 2004-04-19 devnull break;
1583 a84cbb2a 2004-04-19 devnull default:
1584 a84cbb2a 2004-04-19 devnull werrstr("bad operand type %d", op->operand[i]);
1585 a84cbb2a 2004-04-19 devnull return 0;
1586 a84cbb2a 2004-04-19 devnull }
1587 a84cbb2a 2004-04-19 devnull }
1588 a84cbb2a 2004-04-19 devnull return op;
1589 a84cbb2a 2004-04-19 devnull }
1590 a84cbb2a 2004-04-19 devnull
1591 a84cbb2a 2004-04-19 devnull static void
1592 a84cbb2a 2004-04-19 devnull bprint(Instr *ip, char *fmt, ...)
1593 a84cbb2a 2004-04-19 devnull {
1594 a84cbb2a 2004-04-19 devnull va_list arg;
1595 a84cbb2a 2004-04-19 devnull
1596 a84cbb2a 2004-04-19 devnull va_start(arg, fmt);
1597 a84cbb2a 2004-04-19 devnull ip->curr = vseprint(ip->curr, ip->end, fmt, arg);
1598 a84cbb2a 2004-04-19 devnull va_end(arg);
1599 a84cbb2a 2004-04-19 devnull }
1600 a84cbb2a 2004-04-19 devnull
1601 a84cbb2a 2004-04-19 devnull /*
1602 a84cbb2a 2004-04-19 devnull * if we want to call 16 bit regs AX,BX,CX,...
1603 a84cbb2a 2004-04-19 devnull * and 32 bit regs EAX,EBX,ECX,... then
1604 a84cbb2a 2004-04-19 devnull * change the defs of ANAME and ONAME to:
1605 a84cbb2a 2004-04-19 devnull * #define ANAME(ip) ((ip->asize == 'E' ? "E" : "")
1606 a84cbb2a 2004-04-19 devnull * #define ONAME(ip) ((ip)->osize == 'L' ? "E" : "")
1607 a84cbb2a 2004-04-19 devnull */
1608 a84cbb2a 2004-04-19 devnull #define ANAME(ip) ""
1609 a84cbb2a 2004-04-19 devnull #define ONAME(ip) ""
1610 a84cbb2a 2004-04-19 devnull
1611 a84cbb2a 2004-04-19 devnull static char *reg[] = {
1612 89f6ec8e 2004-04-20 devnull "AX", /* 0 */
1613 89f6ec8e 2004-04-20 devnull "CX", /* 1 */
1614 89f6ec8e 2004-04-20 devnull "DX", /* 2 */
1615 89f6ec8e 2004-04-20 devnull "BX", /* 3 */
1616 89f6ec8e 2004-04-20 devnull "SP", /* 4 */
1617 89f6ec8e 2004-04-20 devnull "BP", /* 5 */
1618 89f6ec8e 2004-04-20 devnull "SI", /* 6 */
1619 89f6ec8e 2004-04-20 devnull "DI", /* 7 */
1620 a84cbb2a 2004-04-19 devnull };
1621 a84cbb2a 2004-04-19 devnull
1622 a84cbb2a 2004-04-19 devnull static char *breg[] = { "AL", "CL", "DL", "BL", "AH", "CH", "DH", "BH" };
1623 a84cbb2a 2004-04-19 devnull static char *sreg[] = { "ES", "CS", "SS", "DS", "FS", "GS" };
1624 a84cbb2a 2004-04-19 devnull
1625 a84cbb2a 2004-04-19 devnull static void
1626 a84cbb2a 2004-04-19 devnull plocal(Instr *ip)
1627 a84cbb2a 2004-04-19 devnull {
1628 a84cbb2a 2004-04-19 devnull Symbol s;
1629 a84cbb2a 2004-04-19 devnull char *name;
1630 a84cbb2a 2004-04-19 devnull Loc l, li;
1631 a84cbb2a 2004-04-19 devnull
1632 a84cbb2a 2004-04-19 devnull l.type = LOFFSET;
1633 a84cbb2a 2004-04-19 devnull l.offset = ip->disp;
1634 a84cbb2a 2004-04-19 devnull if(ip->base == SP)
1635 a84cbb2a 2004-04-19 devnull l.reg = "SP";
1636 a84cbb2a 2004-04-19 devnull else
1637 a84cbb2a 2004-04-19 devnull l.reg = "BP";
1638 a84cbb2a 2004-04-19 devnull
1639 a84cbb2a 2004-04-19 devnull li.type = LADDR;
1640 a84cbb2a 2004-04-19 devnull li.addr = ip->addr;
1641 a84cbb2a 2004-04-19 devnull if(findsym(li, CTEXT, &s) < 0)
1642 a84cbb2a 2004-04-19 devnull goto raw;
1643 a84cbb2a 2004-04-19 devnull
1644 a84cbb2a 2004-04-19 devnull name = nil;
1645 a84cbb2a 2004-04-19 devnull if(ip->base==SP && lookuplsym(&s, FRAMENAME, &s) >= 0){
1646 a84cbb2a 2004-04-19 devnull /* translate stack offset to offset from plan 9 frame pointer */
1647 a84cbb2a 2004-04-19 devnull /* XXX not sure how to do this */
1648 a84cbb2a 2004-04-19 devnull }
1649 a84cbb2a 2004-04-19 devnull
1650 a84cbb2a 2004-04-19 devnull if(name==nil && findlsym(&s, l, &s) >= 0)
1651 a84cbb2a 2004-04-19 devnull name = s.name;
1652 a84cbb2a 2004-04-19 devnull
1653 a84cbb2a 2004-04-19 devnull if(name)
1654 a84cbb2a 2004-04-19 devnull bprint(ip, "%s+", name);
1655 a84cbb2a 2004-04-19 devnull
1656 a84cbb2a 2004-04-19 devnull raw:
1657 a84cbb2a 2004-04-19 devnull bprint(ip, "%lx(%s)", l.offset, l.reg);
1658 a84cbb2a 2004-04-19 devnull }
1659 a84cbb2a 2004-04-19 devnull
1660 a84cbb2a 2004-04-19 devnull static int
1661 a84cbb2a 2004-04-19 devnull isjmp(Instr *ip)
1662 a84cbb2a 2004-04-19 devnull {
1663 a84cbb2a 2004-04-19 devnull switch(ip->jumptype){
1664 a84cbb2a 2004-04-19 devnull case Iwds:
1665 a84cbb2a 2004-04-19 devnull case Jbs:
1666 a84cbb2a 2004-04-19 devnull case JUMP:
1667 a84cbb2a 2004-04-19 devnull return 1;
1668 a84cbb2a 2004-04-19 devnull default:
1669 a84cbb2a 2004-04-19 devnull return 0;
1670 a84cbb2a 2004-04-19 devnull }
1671 a84cbb2a 2004-04-19 devnull }
1672 a84cbb2a 2004-04-19 devnull
1673 a84cbb2a 2004-04-19 devnull /*
1674 a84cbb2a 2004-04-19 devnull * This is too smart for its own good, but it really is nice
1675 a84cbb2a 2004-04-19 devnull * to have accurate translations when debugging, and it
1676 a84cbb2a 2004-04-19 devnull * helps us identify which code is different in binaries that
1677 a84cbb2a 2004-04-19 devnull * are changed on sources.
1678 a84cbb2a 2004-04-19 devnull */
1679 a84cbb2a 2004-04-19 devnull static int
1680 a84cbb2a 2004-04-19 devnull issymref(Instr *ip, Symbol *s, long w, long val)
1681 a84cbb2a 2004-04-19 devnull {
1682 a84cbb2a 2004-04-19 devnull Symbol next, tmp;
1683 a84cbb2a 2004-04-19 devnull long isstring, size;
1684 a84cbb2a 2004-04-19 devnull
1685 a84cbb2a 2004-04-19 devnull if (isjmp(ip))
1686 a84cbb2a 2004-04-19 devnull return 1;
1687 a84cbb2a 2004-04-19 devnull if (s->class==CTEXT && w==0)
1688 a84cbb2a 2004-04-19 devnull return 1;
1689 a84cbb2a 2004-04-19 devnull if (s->class==CDATA) {
1690 a84cbb2a 2004-04-19 devnull /* use first bss symbol (or "end") rather than edata */
1691 a84cbb2a 2004-04-19 devnull if (s->name[0]=='e' && strcmp(s->name, "edata") == 0){
1692 a84cbb2a 2004-04-19 devnull if((indexsym(s->index+1, &tmp) && loccmp(&tmp.loc, &s->loc)==0)
1693 a84cbb2a 2004-04-19 devnull || (indexsym(s->index-1, &tmp) && loccmp(&tmp.loc, &s->loc)==0))
1694 a84cbb2a 2004-04-19 devnull *s = tmp;
1695 a84cbb2a 2004-04-19 devnull }
1696 a84cbb2a 2004-04-19 devnull if (w == 0)
1697 a84cbb2a 2004-04-19 devnull return 1;
1698 a84cbb2a 2004-04-19 devnull for (next=*s; next.loc.addr==s->loc.addr; next=tmp)
1699 a84cbb2a 2004-04-19 devnull if (!indexsym(next.index+1, &tmp))
1700 a84cbb2a 2004-04-19 devnull break;
1701 a84cbb2a 2004-04-19 devnull size = next.loc.addr - s->loc.addr;
1702 a84cbb2a 2004-04-19 devnull if (w >= size)
1703 a84cbb2a 2004-04-19 devnull return 0;
1704 a84cbb2a 2004-04-19 devnull if (w > size-w)
1705 a84cbb2a 2004-04-19 devnull w = size-w;
1706 a84cbb2a 2004-04-19 devnull /* huge distances are usually wrong except in .string */
1707 a84cbb2a 2004-04-19 devnull isstring = (s->name[0]=='.' && strcmp(s->name, ".string") == 0);
1708 a84cbb2a 2004-04-19 devnull if (w > 8192 && !isstring)
1709 a84cbb2a 2004-04-19 devnull return 0;
1710 a84cbb2a 2004-04-19 devnull /* medium distances are tricky - look for constants */
1711 a84cbb2a 2004-04-19 devnull /* near powers of two */
1712 a84cbb2a 2004-04-19 devnull if ((val&(val-1)) == 0 || (val&(val+1)) == 0)
1713 a84cbb2a 2004-04-19 devnull return 0;
1714 a84cbb2a 2004-04-19 devnull return 1;
1715 a84cbb2a 2004-04-19 devnull }
1716 a84cbb2a 2004-04-19 devnull return 0;
1717 a84cbb2a 2004-04-19 devnull }
1718 a84cbb2a 2004-04-19 devnull
1719 a84cbb2a 2004-04-19 devnull static void
1720 a84cbb2a 2004-04-19 devnull immediate(Instr *ip, long val)
1721 a84cbb2a 2004-04-19 devnull {
1722 a84cbb2a 2004-04-19 devnull Symbol s;
1723 a84cbb2a 2004-04-19 devnull long w;
1724 a84cbb2a 2004-04-19 devnull Loc l;
1725 a84cbb2a 2004-04-19 devnull
1726 a84cbb2a 2004-04-19 devnull l.type = LADDR;
1727 a84cbb2a 2004-04-19 devnull l.addr = val;
1728 a84cbb2a 2004-04-19 devnull if (findsym(l, CANY, &s) >= 0) {
1729 a84cbb2a 2004-04-19 devnull w = val - s.loc.addr;
1730 a84cbb2a 2004-04-19 devnull if (w < 0)
1731 a84cbb2a 2004-04-19 devnull w = -w;
1732 a84cbb2a 2004-04-19 devnull if (issymref(ip, &s, w, val)) {
1733 a84cbb2a 2004-04-19 devnull if (w)
1734 a84cbb2a 2004-04-19 devnull bprint(ip, "%s+%lux(SB)", s.name, w);
1735 a84cbb2a 2004-04-19 devnull else
1736 a84cbb2a 2004-04-19 devnull bprint(ip, "%s(SB)", s.name);
1737 a84cbb2a 2004-04-19 devnull return;
1738 a84cbb2a 2004-04-19 devnull }
1739 a84cbb2a 2004-04-19 devnull if (s.class==CDATA && indexsym(s.index+1, &s) >= 0) {
1740 a84cbb2a 2004-04-19 devnull w = s.loc.addr - val;
1741 a84cbb2a 2004-04-19 devnull if (w < 0)
1742 a84cbb2a 2004-04-19 devnull w = -w;
1743 a84cbb2a 2004-04-19 devnull if (w < 4096) {
1744 a84cbb2a 2004-04-19 devnull bprint(ip, "%s-%lux(SB)", s.name, w);
1745 a84cbb2a 2004-04-19 devnull return;
1746 a84cbb2a 2004-04-19 devnull }
1747 a84cbb2a 2004-04-19 devnull }
1748 a84cbb2a 2004-04-19 devnull }
1749 a84cbb2a 2004-04-19 devnull bprint(ip, "%lux", val);
1750 a84cbb2a 2004-04-19 devnull }
1751 a84cbb2a 2004-04-19 devnull
1752 a84cbb2a 2004-04-19 devnull static void
1753 a84cbb2a 2004-04-19 devnull pea(Instr *ip)
1754 a84cbb2a 2004-04-19 devnull {
1755 a84cbb2a 2004-04-19 devnull if (ip->mod == 3) {
1756 a84cbb2a 2004-04-19 devnull if (ip->osize == 'B')
1757 a84cbb2a 2004-04-19 devnull bprint(ip, breg[(uchar)ip->base]);
1758 a84cbb2a 2004-04-19 devnull else
1759 a84cbb2a 2004-04-19 devnull bprint(ip, "%s%s", ANAME(ip), reg[(uchar)ip->base]);
1760 a84cbb2a 2004-04-19 devnull return;
1761 a84cbb2a 2004-04-19 devnull }
1762 a84cbb2a 2004-04-19 devnull if (ip->segment)
1763 a84cbb2a 2004-04-19 devnull bprint(ip, ip->segment);
1764 a84cbb2a 2004-04-19 devnull if (ip->asize == 'E' && (ip->base == SP || ip->base == BP))
1765 a84cbb2a 2004-04-19 devnull plocal(ip);
1766 a84cbb2a 2004-04-19 devnull else {
1767 a84cbb2a 2004-04-19 devnull if (ip->base < 0)
1768 a84cbb2a 2004-04-19 devnull immediate(ip, ip->disp);
1769 a84cbb2a 2004-04-19 devnull else
1770 a84cbb2a 2004-04-19 devnull bprint(ip,"(%s%s)", ANAME(ip), reg[(uchar)ip->base]);
1771 a84cbb2a 2004-04-19 devnull }
1772 a84cbb2a 2004-04-19 devnull if (ip->index >= 0)
1773 a84cbb2a 2004-04-19 devnull bprint(ip,"(%s%s*%d)", ANAME(ip), reg[(uchar)ip->index], 1<<ip->ss);
1774 a84cbb2a 2004-04-19 devnull }
1775 a84cbb2a 2004-04-19 devnull
1776 a84cbb2a 2004-04-19 devnull static void
1777 a84cbb2a 2004-04-19 devnull prinstr(Instr *ip, char *fmt)
1778 a84cbb2a 2004-04-19 devnull {
1779 a84cbb2a 2004-04-19 devnull if (ip->prefix)
1780 a84cbb2a 2004-04-19 devnull bprint(ip, "%s ", ip->prefix);
1781 a84cbb2a 2004-04-19 devnull for (; *fmt && ip->curr < ip->end; fmt++) {
1782 a84cbb2a 2004-04-19 devnull if (*fmt != '%')
1783 a84cbb2a 2004-04-19 devnull *ip->curr++ = *fmt;
1784 a84cbb2a 2004-04-19 devnull else switch(*++fmt)
1785 a84cbb2a 2004-04-19 devnull {
1786 a84cbb2a 2004-04-19 devnull case '%':
1787 a84cbb2a 2004-04-19 devnull *ip->curr++ = '%';
1788 a84cbb2a 2004-04-19 devnull break;
1789 a84cbb2a 2004-04-19 devnull case 'A':
1790 a84cbb2a 2004-04-19 devnull bprint(ip, "%s", ANAME(ip));
1791 a84cbb2a 2004-04-19 devnull break;
1792 a84cbb2a 2004-04-19 devnull case 'C':
1793 a84cbb2a 2004-04-19 devnull bprint(ip, "CR%d", ip->reg);
1794 a84cbb2a 2004-04-19 devnull break;
1795 a84cbb2a 2004-04-19 devnull case 'D':
1796 a84cbb2a 2004-04-19 devnull if (ip->reg < 4 || ip->reg == 6 || ip->reg == 7)
1797 a84cbb2a 2004-04-19 devnull bprint(ip, "DR%d",ip->reg);
1798 a84cbb2a 2004-04-19 devnull else
1799 a84cbb2a 2004-04-19 devnull bprint(ip, "???");
1800 a84cbb2a 2004-04-19 devnull break;
1801 a84cbb2a 2004-04-19 devnull case 'I':
1802 a84cbb2a 2004-04-19 devnull bprint(ip, "$");
1803 a84cbb2a 2004-04-19 devnull immediate(ip, ip->imm2);
1804 a84cbb2a 2004-04-19 devnull break;
1805 a84cbb2a 2004-04-19 devnull case 'O':
1806 a84cbb2a 2004-04-19 devnull bprint(ip,"%s", ONAME(ip));
1807 a84cbb2a 2004-04-19 devnull break;
1808 a84cbb2a 2004-04-19 devnull case 'i':
1809 a84cbb2a 2004-04-19 devnull bprint(ip, "$");
1810 a84cbb2a 2004-04-19 devnull immediate(ip,ip->imm);
1811 a84cbb2a 2004-04-19 devnull break;
1812 a84cbb2a 2004-04-19 devnull case 'R':
1813 a84cbb2a 2004-04-19 devnull bprint(ip, "%s%s", ONAME(ip), reg[ip->reg]);
1814 a84cbb2a 2004-04-19 devnull break;
1815 a84cbb2a 2004-04-19 devnull case 'S':
1816 a84cbb2a 2004-04-19 devnull bprint(ip, "%c", ip->osize);
1817 a84cbb2a 2004-04-19 devnull break;
1818 a84cbb2a 2004-04-19 devnull case 'T':
1819 a84cbb2a 2004-04-19 devnull if (ip->reg == 6 || ip->reg == 7)
1820 a84cbb2a 2004-04-19 devnull bprint(ip, "TR%d",ip->reg);
1821 a84cbb2a 2004-04-19 devnull else
1822 a84cbb2a 2004-04-19 devnull bprint(ip, "???");
1823 a84cbb2a 2004-04-19 devnull break;
1824 a84cbb2a 2004-04-19 devnull case 'X':
1825 a84cbb2a 2004-04-19 devnull if (ip->osize == 'L')
1826 a84cbb2a 2004-04-19 devnull bprint(ip,"CWDE");
1827 a84cbb2a 2004-04-19 devnull else
1828 a84cbb2a 2004-04-19 devnull bprint(ip, "CBW");
1829 a84cbb2a 2004-04-19 devnull break;
1830 a84cbb2a 2004-04-19 devnull case 'd':
1831 a84cbb2a 2004-04-19 devnull bprint(ip,"%lux:%lux",ip->seg,ip->disp);
1832 a84cbb2a 2004-04-19 devnull break;
1833 a84cbb2a 2004-04-19 devnull case 'e':
1834 a84cbb2a 2004-04-19 devnull pea(ip);
1835 a84cbb2a 2004-04-19 devnull break;
1836 a84cbb2a 2004-04-19 devnull case 'f':
1837 a84cbb2a 2004-04-19 devnull bprint(ip, "F%d", ip->base);
1838 a84cbb2a 2004-04-19 devnull break;
1839 a84cbb2a 2004-04-19 devnull case 'g':
1840 a84cbb2a 2004-04-19 devnull if (ip->reg < 6)
1841 a84cbb2a 2004-04-19 devnull bprint(ip,"%s",sreg[ip->reg]);
1842 a84cbb2a 2004-04-19 devnull else
1843 a84cbb2a 2004-04-19 devnull bprint(ip,"???");
1844 a84cbb2a 2004-04-19 devnull break;
1845 a84cbb2a 2004-04-19 devnull case 'p':
1846 a84cbb2a 2004-04-19 devnull immediate(ip, ip->imm+ip->addr+ip->n);
1847 a84cbb2a 2004-04-19 devnull break;
1848 a84cbb2a 2004-04-19 devnull case 'r':
1849 a84cbb2a 2004-04-19 devnull if (ip->osize == 'B')
1850 a84cbb2a 2004-04-19 devnull bprint(ip,"%s",breg[ip->reg]);
1851 a84cbb2a 2004-04-19 devnull else
1852 a84cbb2a 2004-04-19 devnull bprint(ip, reg[ip->reg]);
1853 a84cbb2a 2004-04-19 devnull break;
1854 a84cbb2a 2004-04-19 devnull case 'x':
1855 a84cbb2a 2004-04-19 devnull if (ip->osize == 'L')
1856 a84cbb2a 2004-04-19 devnull bprint(ip,"CDQ");
1857 a84cbb2a 2004-04-19 devnull else
1858 a84cbb2a 2004-04-19 devnull bprint(ip, "CWD");
1859 a84cbb2a 2004-04-19 devnull break;
1860 a84cbb2a 2004-04-19 devnull default:
1861 a84cbb2a 2004-04-19 devnull bprint(ip, "%%%c", *fmt);
1862 a84cbb2a 2004-04-19 devnull break;
1863 a84cbb2a 2004-04-19 devnull }
1864 a84cbb2a 2004-04-19 devnull }
1865 a84cbb2a 2004-04-19 devnull *ip->curr = 0; /* there's always room for 1 byte */
1866 a84cbb2a 2004-04-19 devnull }
1867 a84cbb2a 2004-04-19 devnull
1868 a84cbb2a 2004-04-19 devnull static int
1869 a84cbb2a 2004-04-19 devnull i386das(Map *map, ulong pc, char modifier, char *buf, int n)
1870 a84cbb2a 2004-04-19 devnull {
1871 a84cbb2a 2004-04-19 devnull Instr instr;
1872 a84cbb2a 2004-04-19 devnull Optable *op;
1873 a84cbb2a 2004-04-19 devnull
1874 a84cbb2a 2004-04-19 devnull USED(modifier);
1875 a84cbb2a 2004-04-19 devnull op = mkinstr(map, &instr, pc);
1876 a84cbb2a 2004-04-19 devnull if (op == 0) {
1877 a84cbb2a 2004-04-19 devnull errstr(buf, n);
1878 a84cbb2a 2004-04-19 devnull return -1;
1879 a84cbb2a 2004-04-19 devnull }
1880 a84cbb2a 2004-04-19 devnull instr.curr = buf;
1881 a84cbb2a 2004-04-19 devnull instr.end = buf+n-1;
1882 a84cbb2a 2004-04-19 devnull prinstr(&instr, op->proto);
1883 a84cbb2a 2004-04-19 devnull return instr.n;
1884 a84cbb2a 2004-04-19 devnull }
1885 a84cbb2a 2004-04-19 devnull
1886 a84cbb2a 2004-04-19 devnull static int
1887 a84cbb2a 2004-04-19 devnull i386hexinst(Map *map, ulong pc, char *buf, int n)
1888 a84cbb2a 2004-04-19 devnull {
1889 a84cbb2a 2004-04-19 devnull Instr instr;
1890 a84cbb2a 2004-04-19 devnull int i;
1891 a84cbb2a 2004-04-19 devnull
1892 a84cbb2a 2004-04-19 devnull if (mkinstr(map, &instr, pc) == 0) {
1893 a84cbb2a 2004-04-19 devnull errstr(buf, n);
1894 a84cbb2a 2004-04-19 devnull return -1;
1895 a84cbb2a 2004-04-19 devnull }
1896 a84cbb2a 2004-04-19 devnull for(i = 0; i < instr.n && n > 2; i++) {
1897 a84cbb2a 2004-04-19 devnull _hexify(buf, instr.mem[i], 1);
1898 a84cbb2a 2004-04-19 devnull buf += 2;
1899 a84cbb2a 2004-04-19 devnull n -= 2;
1900 a84cbb2a 2004-04-19 devnull }
1901 a84cbb2a 2004-04-19 devnull *buf = 0;
1902 a84cbb2a 2004-04-19 devnull return instr.n;
1903 a84cbb2a 2004-04-19 devnull }
1904 a84cbb2a 2004-04-19 devnull
1905 a84cbb2a 2004-04-19 devnull static int
1906 a84cbb2a 2004-04-19 devnull i386instlen(Map *map, ulong pc)
1907 a84cbb2a 2004-04-19 devnull {
1908 a84cbb2a 2004-04-19 devnull Instr i;
1909 a84cbb2a 2004-04-19 devnull
1910 a84cbb2a 2004-04-19 devnull if (mkinstr(map, &i, pc))
1911 a84cbb2a 2004-04-19 devnull return i.n;
1912 a84cbb2a 2004-04-19 devnull return -1;
1913 a84cbb2a 2004-04-19 devnull }
1914 a84cbb2a 2004-04-19 devnull
1915 a84cbb2a 2004-04-19 devnull static int
1916 a84cbb2a 2004-04-19 devnull i386foll(Map *map, Regs *regs, ulong pc, ulong *foll)
1917 a84cbb2a 2004-04-19 devnull {
1918 a84cbb2a 2004-04-19 devnull Instr i;
1919 a84cbb2a 2004-04-19 devnull Optable *op;
1920 a84cbb2a 2004-04-19 devnull ushort s;
1921 a84cbb2a 2004-04-19 devnull ulong addr;
1922 a84cbb2a 2004-04-19 devnull u32int l;
1923 a84cbb2a 2004-04-19 devnull int n;
1924 a84cbb2a 2004-04-19 devnull
1925 a84cbb2a 2004-04-19 devnull op = mkinstr(map, &i, pc);
1926 a84cbb2a 2004-04-19 devnull if (!op)
1927 a84cbb2a 2004-04-19 devnull return -1;
1928 a84cbb2a 2004-04-19 devnull
1929 a84cbb2a 2004-04-19 devnull n = 0;
1930 a84cbb2a 2004-04-19 devnull
1931 a84cbb2a 2004-04-19 devnull switch(i.jumptype) {
1932 a84cbb2a 2004-04-19 devnull case RET: /* RETURN or LEAVE */
1933 a84cbb2a 2004-04-19 devnull case Iw: /* RETURN */
1934 a84cbb2a 2004-04-19 devnull if (strcmp(op->proto, "LEAVE") == 0) {
1935 a84cbb2a 2004-04-19 devnull if (lget4(map, regs, locindir("BP", 0), &l) < 0)
1936 a84cbb2a 2004-04-19 devnull return -1;
1937 a84cbb2a 2004-04-19 devnull } else if (lget4(map, regs, locindir(mach->sp, 0), &l) < 0)
1938 a84cbb2a 2004-04-19 devnull return -1;
1939 a84cbb2a 2004-04-19 devnull foll[0] = l;
1940 a84cbb2a 2004-04-19 devnull return 1;
1941 a84cbb2a 2004-04-19 devnull case Iwds: /* pc relative JUMP or CALL*/
1942 a84cbb2a 2004-04-19 devnull case Jbs: /* pc relative JUMP or CALL */
1943 a84cbb2a 2004-04-19 devnull foll[0] = pc+i.imm+i.n;
1944 a84cbb2a 2004-04-19 devnull n = 1;
1945 a84cbb2a 2004-04-19 devnull break;
1946 a84cbb2a 2004-04-19 devnull case PTR: /* seg:displacement JUMP or CALL */
1947 a84cbb2a 2004-04-19 devnull foll[0] = (i.seg<<4)+i.disp;
1948 a84cbb2a 2004-04-19 devnull return 1;
1949 a84cbb2a 2004-04-19 devnull case JUMP: /* JUMP or CALL EA */
1950 a84cbb2a 2004-04-19 devnull
1951 a84cbb2a 2004-04-19 devnull if(i.mod == 3) {
1952 a84cbb2a 2004-04-19 devnull if (rget(regs, reg[(uchar)i.base], &foll[0]) < 0)
1953 a84cbb2a 2004-04-19 devnull return -1;
1954 a84cbb2a 2004-04-19 devnull return 1;
1955 a84cbb2a 2004-04-19 devnull }
1956 a84cbb2a 2004-04-19 devnull /* calculate the effective address */
1957 a84cbb2a 2004-04-19 devnull addr = i.disp;
1958 a84cbb2a 2004-04-19 devnull if (i.base >= 0) {
1959 a84cbb2a 2004-04-19 devnull if (lget4(map, regs, locindir(reg[(uchar)i.base], 0), &l) < 0)
1960 a84cbb2a 2004-04-19 devnull return -1;
1961 a84cbb2a 2004-04-19 devnull addr += l;
1962 a84cbb2a 2004-04-19 devnull }
1963 a84cbb2a 2004-04-19 devnull if (i.index >= 0) {
1964 a84cbb2a 2004-04-19 devnull if (lget4(map, regs, locindir(reg[(uchar)i.index], 0), &l) < 0)
1965 a84cbb2a 2004-04-19 devnull return -1;
1966 a84cbb2a 2004-04-19 devnull addr += l*(1<<i.ss);
1967 a84cbb2a 2004-04-19 devnull }
1968 a84cbb2a 2004-04-19 devnull /* now retrieve a seg:disp value at that address */
1969 a84cbb2a 2004-04-19 devnull if (get2(map, addr, &s) < 0) /* seg */
1970 a84cbb2a 2004-04-19 devnull return -1;
1971 a84cbb2a 2004-04-19 devnull foll[0] = s<<4;
1972 a84cbb2a 2004-04-19 devnull addr += 2;
1973 a84cbb2a 2004-04-19 devnull if (i.asize == 'L') {
1974 a84cbb2a 2004-04-19 devnull if (get4(map, addr, &l) < 0) /* disp32 */
1975 a84cbb2a 2004-04-19 devnull return -1;
1976 a84cbb2a 2004-04-19 devnull foll[0] += l;
1977 a84cbb2a 2004-04-19 devnull } else { /* disp16 */
1978 a84cbb2a 2004-04-19 devnull if (get2(map, addr, &s) < 0)
1979 a84cbb2a 2004-04-19 devnull return -1;
1980 a84cbb2a 2004-04-19 devnull foll[0] += s;
1981 a84cbb2a 2004-04-19 devnull }
1982 a84cbb2a 2004-04-19 devnull return 1;
1983 a84cbb2a 2004-04-19 devnull default:
1984 a84cbb2a 2004-04-19 devnull break;
1985 a84cbb2a 2004-04-19 devnull }
1986 a84cbb2a 2004-04-19 devnull if (strncmp(op->proto,"JMP", 3) == 0 || strncmp(op->proto,"CALL", 4) == 0)
1987 a84cbb2a 2004-04-19 devnull return 1;
1988 a84cbb2a 2004-04-19 devnull foll[n++] = pc+i.n;
1989 a84cbb2a 2004-04-19 devnull return n;
1990 a84cbb2a 2004-04-19 devnull }