kernel: Use hashdestroy() to free hash tables allocated with hashinit().
[dragonfly.git] / usr.bin / doscmd / i386-pinsn.c
1 /*
2  * $FreeBSD: src/usr.bin/doscmd/i386-pinsn.c,v 1.1.6.1 2002/04/25 11:04:51 tg Exp $
3  * $DragonFly: src/usr.bin/doscmd/i386-pinsn.c,v 1.4 2008/10/16 01:52:32 swildner Exp $
4  */
5 #ifdef DISASSEMBLER
6
7 /* Print i386 instructions for GDB, the GNU debugger.
8    Copyright (C) 1988, 1989 Free Software Foundation, Inc.
9
10 This file is part of GDB.
11
12 GDB is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 1, or (at your option)
15 any later version.
16
17 GDB is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20 GNU General Public License for more details.
21
22 You should have received a copy of the GNU General Public License
23 along with GDB; see the file COPYING.  If not, write to
24 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
25
26 /*
27  * 80386 instruction printer by Pace Willisson (pace@prep.ai.mit.edu)
28  * July 1988
29  */
30
31 /*
32  * The main tables describing the instructions is essentially a copy
33  * of the "Opcode Map" chapter (Appendix A) of the Intel 80386
34  * Programmers Manual.  Usually, there is a capital letter, followed
35  * by a small letter.  The capital letter tell the addressing mode,
36  * and the small letter tells about the operand size.  Refer to 
37  * the Intel manual for details.
38  */
39
40 #include <stdio.h>
41 #include <ctype.h>
42
43 #include "doscmd.h"
44
45 static void     OP_E(int), OP_indirE(int), OP_G(int);
46 static void     OP_I(int), OP_sI(int), OP_REG(int), OP_J(int), OP_SEG(int);
47 static void     OP_DIR(int), OP_OFF(int), OP_DSSI(int), OP_ESDI(int);
48 static void     OP_C(int), OP_D(int), OP_T(int), OP_rm(int);
49 static void     OP_ST(int), OP_STi(int);
50 static void     append_pc(unsigned long);
51 static void     append_prefix(void);
52 static void     dofloat(void);
53 static int      get16(void);
54 static int      get32(void);
55 static void     oappend(const char *);
56 static void     putop(const char *);
57
58 #define Eb OP_E, b_mode
59 #define indirEb OP_indirE, b_mode
60 #define Gb OP_G, b_mode
61 #define Ev OP_E, v_mode
62 #define indirEv OP_indirE, v_mode
63 #define Ew OP_E, w_mode
64 #define Ma OP_E, v_mode
65 #define M OP_E, 0
66 #define Mp OP_E, 0              /* ? */
67 #define Gv OP_G, v_mode
68 #define Gw OP_G, w_mode
69 #define Rw OP_rm, w_mode
70 #define Rd OP_rm, d_mode
71 #define Ib OP_I, b_mode
72 #define sIb OP_sI, b_mode       /* sign extended byte */
73 #define Iv OP_I, v_mode
74 #define Iw OP_I, w_mode
75 #define Jb OP_J, b_mode
76 #define Jv OP_J, v_mode
77 #define Cd OP_C, d_mode
78 #define Dd OP_D, d_mode
79 #define Td OP_T, d_mode
80
81 #define eAX OP_REG, eAX_reg
82 #define eBX OP_REG, eBX_reg
83 #define eCX OP_REG, eCX_reg
84 #define eDX OP_REG, eDX_reg
85 #define eSP OP_REG, eSP_reg
86 #define eBP OP_REG, eBP_reg
87 #define eSI OP_REG, eSI_reg
88 #define eDI OP_REG, eDI_reg
89 #define AL OP_REG, al_reg
90 #define CL OP_REG, cl_reg
91 #define DL OP_REG, dl_reg
92 #define BL OP_REG, bl_reg
93 #define AH OP_REG, ah_reg
94 #define CH OP_REG, ch_reg
95 #define DH OP_REG, dh_reg
96 #define BH OP_REG, bh_reg
97 #define AX OP_REG, ax_reg
98 #define DX OP_REG, dx_reg
99 #define indirDX OP_REG, indir_dx_reg
100
101 #define Sw OP_SEG, w_mode
102 #define Ap OP_DIR, lptr
103 #define Av OP_DIR, v_mode
104 #define Ob OP_OFF, b_mode
105 #define Ov OP_OFF, v_mode
106 #define Xb OP_DSSI, b_mode
107 #define Xv OP_DSSI, v_mode
108 #define Yb OP_ESDI, b_mode
109 #define Yv OP_ESDI, v_mode
110
111 #define es OP_REG, es_reg
112 #define ss OP_REG, ss_reg
113 #define cs OP_REG, cs_reg
114 #define ds OP_REG, ds_reg
115 #define fs OP_REG, fs_reg
116 #define gs OP_REG, gs_reg
117
118 #define b_mode 1
119 #define v_mode 2
120 #define w_mode 3
121 #define d_mode 4
122
123 #define es_reg 100
124 #define cs_reg 101
125 #define ss_reg 102
126 #define ds_reg 103
127 #define fs_reg 104
128 #define gs_reg 105
129 #define eAX_reg 107
130 #define eCX_reg 108
131 #define eDX_reg 109
132 #define eBX_reg 110
133 #define eSP_reg 111
134 #define eBP_reg 112
135 #define eSI_reg 113
136 #define eDI_reg 114
137
138 #define lptr 115
139
140 #define al_reg 116
141 #define cl_reg 117
142 #define dl_reg 118
143 #define bl_reg 119
144 #define ah_reg 120
145 #define ch_reg 121
146 #define dh_reg 122
147 #define bh_reg 123
148
149 #define ax_reg 124
150 #define cx_reg 125
151 #define dx_reg 126
152 #define bx_reg 127
153 #define sp_reg 128
154 #define bp_reg 129
155 #define si_reg 130
156 #define di_reg 131
157
158 #define indir_dx_reg 150
159
160 #define NOFUNC NULL, 0
161
162 #define GRP1b NULL, NULL, 0, NOFUNC, NOFUNC
163 #define GRP1S NULL, NULL, 1, NOFUNC, NOFUNC
164 #define GRP1Ss NULL, NULL, 2, NOFUNC, NOFUNC
165 #define GRP2b NULL, NULL, 3, NOFUNC, NOFUNC
166 #define GRP2S NULL, NULL, 4, NOFUNC, NOFUNC
167 #define GRP2b_one NULL, NULL, 5, NOFUNC, NOFUNC
168 #define GRP2S_one NULL, NULL, 6, NOFUNC, NOFUNC
169 #define GRP2b_cl NULL, NULL, 7, NOFUNC, NOFUNC
170 #define GRP2S_cl NULL, NULL, 8, NOFUNC, NOFUNC
171 #define GRP3b NULL, NULL, 9, NOFUNC, NOFUNC
172 #define GRP3S NULL, NULL, 10, NOFUNC, NOFUNC
173 #define GRP4  NULL, NULL, 11, NOFUNC, NOFUNC
174 #define GRP5  NULL, NULL, 12, NOFUNC, NOFUNC
175 #define GRP6  NULL, NULL, 13, NOFUNC, NOFUNC
176 #define GRP7 NULL, NULL, 14, NOFUNC, NOFUNC
177 #define GRP8 NULL, NULL, 15, NOFUNC, NOFUNC
178
179 #define FLOATCODE 50
180 #define FLOAT NULL, NULL, FLOATCODE, NOFUNC, NOFUNC
181
182 struct dis386 {
183   const char *name;
184   void (*op1)(int);
185   int bytemode1;
186   void (*op2)(int);
187   int bytemode2;
188   void (*op3)(int);
189   int bytemode3;
190 };
191
192 struct dis386 dis386[] = {
193   /* 00 */
194   { "addb",     Eb, Gb, NOFUNC },
195   { "addS",     Ev, Gv, NOFUNC },
196   { "addb",     Gb, Eb, NOFUNC },
197   { "addS",     Gv, Ev, NOFUNC },
198   { "addb",     AL, Ib, NOFUNC },
199   { "addS",     eAX, Iv, NOFUNC },
200   { "pushl",    es, NOFUNC, NOFUNC },
201   { "popl",     es, NOFUNC, NOFUNC },
202   /* 08 */
203   { "orb",      Eb, Gb, NOFUNC },
204   { "orS",      Ev, Gv, NOFUNC },
205   { "orb",      Gb, Eb, NOFUNC },
206   { "orS",      Gv, Ev, NOFUNC },
207   { "orb",      AL, Ib, NOFUNC },
208   { "orS",      eAX, Iv, NOFUNC },
209   { "pushl",    cs, NOFUNC, NOFUNC },
210   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* extended opcode escape */
211   /* 10 */
212   { "adcb",     Eb, Gb, NOFUNC },
213   { "adcS",     Ev, Gv, NOFUNC },
214   { "adcb",     Gb, Eb, NOFUNC },
215   { "adcS",     Gv, Ev, NOFUNC },
216   { "adcb",     AL, Ib, NOFUNC },
217   { "adcS",     eAX, Iv, NOFUNC },
218   { "pushl",    ss, NOFUNC, NOFUNC },
219   { "popl",     ss, NOFUNC, NOFUNC },
220   /* 18 */
221   { "sbbb",     Eb, Gb, NOFUNC },
222   { "sbbS",     Ev, Gv, NOFUNC },
223   { "sbbb",     Gb, Eb, NOFUNC },
224   { "sbbS",     Gv, Ev, NOFUNC },
225   { "sbbb",     AL, Ib, NOFUNC },
226   { "sbbS",     eAX, Iv, NOFUNC },
227   { "pushl",    ds, NOFUNC, NOFUNC },
228   { "popl",     ds, NOFUNC, NOFUNC },
229   /* 20 */
230   { "andb",     Eb, Gb, NOFUNC },
231   { "andS",     Ev, Gv, NOFUNC },
232   { "andb",     Gb, Eb, NOFUNC },
233   { "andS",     Gv, Ev, NOFUNC },
234   { "andb",     AL, Ib, NOFUNC },
235   { "andS",     eAX, Iv, NOFUNC },
236   { "(bad)",    NOFUNC, NOFUNC, NOFUNC},        /* SEG ES prefix */
237   { "daa",      NOFUNC, NOFUNC, NOFUNC },
238   /* 28 */
239   { "subb",     Eb, Gb, NOFUNC },
240   { "subS",     Ev, Gv, NOFUNC },
241   { "subb",     Gb, Eb, NOFUNC },
242   { "subS",     Gv, Ev, NOFUNC },
243   { "subb",     AL, Ib, NOFUNC },
244   { "subS",     eAX, Iv, NOFUNC },
245   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* SEG CS prefix */
246   { "das",      NOFUNC, NOFUNC, NOFUNC },
247   /* 30 */
248   { "xorb",     Eb, Gb, NOFUNC },
249   { "xorS",     Ev, Gv, NOFUNC },
250   { "xorb",     Gb, Eb, NOFUNC },
251   { "xorS",     Gv, Ev, NOFUNC },
252   { "xorb",     AL, Ib, NOFUNC },
253   { "xorS",     eAX, Iv, NOFUNC },
254   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* SEG SS prefix */
255   { "aaa",      NOFUNC, NOFUNC, NOFUNC },
256   /* 38 */
257   { "cmpb",     Eb, Gb, NOFUNC },
258   { "cmpS",     Ev, Gv, NOFUNC },
259   { "cmpb",     Gb, Eb, NOFUNC },
260   { "cmpS",     Gv, Ev, NOFUNC },
261   { "cmpb",     AL, Ib, NOFUNC },
262   { "cmpS",     eAX, Iv, NOFUNC },
263   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* SEG DS prefix */
264   { "aas",      NOFUNC, NOFUNC, NOFUNC },
265   /* 40 */
266   { "incS",     eAX, NOFUNC, NOFUNC },
267   { "incS",     eCX, NOFUNC, NOFUNC },
268   { "incS",     eDX, NOFUNC, NOFUNC },
269   { "incS",     eBX, NOFUNC, NOFUNC },
270   { "incS",     eSP, NOFUNC, NOFUNC },
271   { "incS",     eBP, NOFUNC, NOFUNC },
272   { "incS",     eSI, NOFUNC, NOFUNC },
273   { "incS",     eDI, NOFUNC, NOFUNC },
274   /* 48 */
275   { "decS",     eAX, NOFUNC, NOFUNC },
276   { "decS",     eCX, NOFUNC, NOFUNC },
277   { "decS",     eDX, NOFUNC, NOFUNC },
278   { "decS",     eBX, NOFUNC, NOFUNC },
279   { "decS",     eSP, NOFUNC, NOFUNC },
280   { "decS",     eBP, NOFUNC, NOFUNC },
281   { "decS",     eSI, NOFUNC, NOFUNC },
282   { "decS",     eDI, NOFUNC, NOFUNC },
283   /* 50 */
284   { "pushS",    eAX, NOFUNC, NOFUNC },
285   { "pushS",    eCX, NOFUNC, NOFUNC },
286   { "pushS",    eDX, NOFUNC, NOFUNC },
287   { "pushS",    eBX, NOFUNC, NOFUNC },
288   { "pushS",    eSP, NOFUNC, NOFUNC },
289   { "pushS",    eBP, NOFUNC, NOFUNC },
290   { "pushS",    eSI, NOFUNC, NOFUNC },
291   { "pushS",    eDI, NOFUNC, NOFUNC },
292   /* 58 */
293   { "popS",     eAX, NOFUNC, NOFUNC },
294   { "popS",     eCX, NOFUNC, NOFUNC },
295   { "popS",     eDX, NOFUNC, NOFUNC },
296   { "popS",     eBX, NOFUNC, NOFUNC },
297   { "popS",     eSP, NOFUNC, NOFUNC },
298   { "popS",     eBP, NOFUNC, NOFUNC },
299   { "popS",     eSI, NOFUNC, NOFUNC },
300   { "popS",     eDI, NOFUNC, NOFUNC },
301   /* 60 */
302   { "pusha",    NOFUNC, NOFUNC, NOFUNC },
303   { "popa",     NOFUNC, NOFUNC, NOFUNC },
304   { "boundS",   Gv, Ma, NOFUNC },
305   { "arpl",     Ew, Gw, NOFUNC },
306   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* seg fs */
307   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* seg gs */
308   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* op size prefix */
309   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* adr size prefix */
310   /* 68 */
311   { "pushS",    Iv, NOFUNC, NOFUNC },           /* 386 book wrong */
312   { "imulS",    Gv, Ev, Iv },
313   { "pushl",    sIb, NOFUNC, NOFUNC },          /* push of byte really pushes 4 bytes */
314   { "imulS",    Gv, Ev, Ib },
315   { "insb",     Yb, indirDX, NOFUNC },
316   { "insS",     Yv, indirDX, NOFUNC },
317   { "outsb",    indirDX, Xb, NOFUNC },
318   { "outsS",    indirDX, Xv, NOFUNC },
319   /* 70 */
320   { "jo",       Jb, NOFUNC, NOFUNC },
321   { "jno",      Jb, NOFUNC, NOFUNC },
322   { "jb",       Jb, NOFUNC, NOFUNC },
323   { "jae",      Jb, NOFUNC, NOFUNC },
324   { "je",       Jb, NOFUNC, NOFUNC },
325   { "jne",      Jb, NOFUNC, NOFUNC },
326   { "jbe",      Jb, NOFUNC, NOFUNC },
327   { "ja",       Jb, NOFUNC, NOFUNC },
328   /* 78 */
329   { "js",       Jb, NOFUNC, NOFUNC },
330   { "jns",      Jb, NOFUNC, NOFUNC },
331   { "jp",       Jb, NOFUNC, NOFUNC },
332   { "jnp",      Jb, NOFUNC, NOFUNC },
333   { "jl",       Jb, NOFUNC, NOFUNC },
334   { "jnl",      Jb, NOFUNC, NOFUNC },
335   { "jle",      Jb, NOFUNC, NOFUNC },
336   { "jg",       Jb, NOFUNC, NOFUNC },
337   /* 80 */
338   { GRP1b },
339   { GRP1S },
340   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
341   { GRP1Ss },
342   { "testb",    Eb, Gb, NOFUNC },
343   { "testS",    Ev, Gv, NOFUNC },
344   { "xchgb",    Eb, Gb, NOFUNC },
345   { "xchgS",    Ev, Gv, NOFUNC },
346   /* 88 */
347   { "movb",     Eb, Gb, NOFUNC },
348   { "movS",     Ev, Gv, NOFUNC },
349   { "movb",     Gb, Eb, NOFUNC },
350   { "movS",     Gv, Ev, NOFUNC },
351   { "movw",     Ew, Sw, NOFUNC },
352   { "leaS",     Gv, M, NOFUNC },
353   { "movw",     Sw, Ew, NOFUNC },
354   { "popS",     Ev, NOFUNC, NOFUNC },
355   /* 90 */
356   { "nop",      NOFUNC, NOFUNC, NOFUNC },
357   { "xchgS",    eCX, eAX, NOFUNC },
358   { "xchgS",    eDX, eAX, NOFUNC },
359   { "xchgS",    eBX, eAX, NOFUNC },
360   { "xchgS",    eSP, eAX, NOFUNC },
361   { "xchgS",    eBP, eAX, NOFUNC },
362   { "xchgS",    eSI, eAX, NOFUNC },
363   { "xchgS",    eDI, eAX, NOFUNC },
364   /* 98 */
365   { "cwtl",     NOFUNC, NOFUNC, NOFUNC },
366   { "cltd",     NOFUNC, NOFUNC, NOFUNC },
367   { "lcall",    Ap, NOFUNC, NOFUNC },
368   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* fwait */
369   { "pushf",    NOFUNC, NOFUNC, NOFUNC },
370   { "popf",     NOFUNC, NOFUNC, NOFUNC },
371   { "sahf",     NOFUNC, NOFUNC, NOFUNC },
372   { "lahf",     NOFUNC, NOFUNC, NOFUNC },
373   /* a0 */
374   { "movb",     AL, Ob, NOFUNC },
375   { "movS",     eAX, Ov, NOFUNC },
376   { "movb",     Ob, AL, NOFUNC },
377   { "movS",     Ov, eAX, NOFUNC },
378   { "movsb",    Yb, Xb, NOFUNC },
379   { "movsS",    Yv, Xv, NOFUNC },
380   { "cmpsb",    Xb, Yb, NOFUNC },
381   { "cmpsS",    Xv, Yv, NOFUNC },
382   /* a8 */
383   { "testb",    AL, Ib, NOFUNC },
384   { "testS",    eAX, Iv, NOFUNC },
385   { "stosb",    Yb, AL, NOFUNC },
386   { "stosS",    Yv, eAX, NOFUNC },
387   { "lodsb",    AL, Xb, NOFUNC },
388   { "lodsS",    eAX, Xv, NOFUNC },
389   { "scasb",    AL, Yb, NOFUNC },
390   { "scasS",    eAX, Yv, NOFUNC },
391   /* b0 */
392   { "movb",     AL, Ib, NOFUNC },
393   { "movb",     CL, Ib, NOFUNC },
394   { "movb",     DL, Ib, NOFUNC },
395   { "movb",     BL, Ib, NOFUNC },
396   { "movb",     AH, Ib, NOFUNC },
397   { "movb",     CH, Ib, NOFUNC },
398   { "movb",     DH, Ib, NOFUNC },
399   { "movb",     BH, Ib, NOFUNC },
400   /* b8 */
401   { "movS",     eAX, Iv, NOFUNC },
402   { "movS",     eCX, Iv, NOFUNC },
403   { "movS",     eDX, Iv, NOFUNC },
404   { "movS",     eBX, Iv, NOFUNC },
405   { "movS",     eSP, Iv, NOFUNC },
406   { "movS",     eBP, Iv, NOFUNC },
407   { "movS",     eSI, Iv, NOFUNC },
408   { "movS",     eDI, Iv, NOFUNC },
409   /* c0 */
410   { GRP2b },
411   { GRP2S },
412   { "ret",      Iw, NOFUNC, NOFUNC },
413   { "ret",      NOFUNC, NOFUNC, NOFUNC },
414   { "lesS",     Gv, Mp, NOFUNC },
415   { "ldsS",     Gv, Mp, NOFUNC },
416   { "movb",     Eb, Ib, NOFUNC },
417   { "movS",     Ev, Iv, NOFUNC },
418   /* c8 */
419   { "enter",    Iw, Ib, NOFUNC },
420   { "leave",    NOFUNC, NOFUNC, NOFUNC },
421   { "lret",     Iw, NOFUNC, NOFUNC },
422   { "lret",     NOFUNC, NOFUNC, NOFUNC },
423   { "int3",     NOFUNC, NOFUNC, NOFUNC },
424   { "int",      Ib, NOFUNC, NOFUNC },
425   { "into",     NOFUNC, NOFUNC, NOFUNC },
426   { "iret",     NOFUNC, NOFUNC, NOFUNC },
427   /* d0 */
428   { GRP2b_one },
429   { GRP2S_one },
430   { GRP2b_cl },
431   { GRP2S_cl },
432   { "aam",      Ib, NOFUNC, NOFUNC },
433   { "aad",      Ib, NOFUNC, NOFUNC },
434   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
435   { "xlat",     NOFUNC, NOFUNC, NOFUNC },
436   /* d8 */
437   { FLOAT },
438   { FLOAT },
439   { FLOAT },
440   { FLOAT },
441   { FLOAT },
442   { FLOAT },
443   { FLOAT },
444   { FLOAT },
445   /* e0 */
446   { "loopne",   Jb, NOFUNC, NOFUNC },
447   { "loope",    Jb, NOFUNC, NOFUNC },
448   { "loop",     Jb, NOFUNC, NOFUNC },
449   { "jCcxz",    Jb, NOFUNC, NOFUNC },
450   { "inb",      AL, Ib, NOFUNC },
451   { "inS",      eAX, Ib, NOFUNC },
452   { "outb",     Ib, AL, NOFUNC },
453   { "outS",     Ib, eAX, NOFUNC },
454   /* e8 */
455   { "call",     Av, NOFUNC, NOFUNC },
456   { "jmp",      Jv, NOFUNC, NOFUNC },
457   { "ljmp",     Ap, NOFUNC, NOFUNC },
458   { "jmp",      Jb, NOFUNC, NOFUNC },
459   { "inb",      AL, indirDX, NOFUNC },
460   { "inS",      eAX, indirDX, NOFUNC },
461   { "outb",     indirDX, AL, NOFUNC },
462   { "outS",     indirDX, eAX, NOFUNC },
463   /* f0 */
464   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* lock prefix */
465   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
466   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* repne */
467   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },       /* repz */
468   { "hlt",      NOFUNC, NOFUNC, NOFUNC },
469   { "cmc",      NOFUNC, NOFUNC, NOFUNC },
470   { GRP3b },
471   { GRP3S },
472   /* f8 */
473   { "clc",      NOFUNC, NOFUNC, NOFUNC },
474   { "stc",      NOFUNC, NOFUNC, NOFUNC },
475   { "cli",      NOFUNC, NOFUNC, NOFUNC },
476   { "sti",      NOFUNC, NOFUNC, NOFUNC },
477   { "cld",      NOFUNC, NOFUNC, NOFUNC },
478   { "std",      NOFUNC, NOFUNC, NOFUNC },
479   { GRP4 },
480   { GRP5 },
481 };
482
483 struct dis386 dis386_twobyte[] = {
484   /* 00 */
485   { GRP6 },
486   { GRP7 },
487   { "larS",     Gv, Ew, NOFUNC },
488   { "lslS",     Gv, Ew, NOFUNC },  
489   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
490   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
491   { "clts",     NOFUNC, NOFUNC, NOFUNC },
492   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
493   /* 08 */
494   { "invd",     NOFUNC, NOFUNC, NOFUNC },
495   { "wbinvd",   NOFUNC, NOFUNC, NOFUNC },
496   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
497   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
498   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
499   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
500   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
501   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
502   /* 10 */
503   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
504   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
505   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
506   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
507   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
508   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
509   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
510   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
511   /* 18 */
512   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
513   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
514   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
515   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
516   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
517   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
518   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
519   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
520   /* 20 */
521   /* these are all backward in appendix A of the intel book */
522   { "movl",     Rd, Cd, NOFUNC },
523   { "movl",     Rd, Dd, NOFUNC },
524   { "movl",     Cd, Rd, NOFUNC },
525   { "movl",     Dd, Rd, NOFUNC },  
526   { "movl",     Rd, Td, NOFUNC },
527   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
528   { "movl",     Td, Rd, NOFUNC },
529   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
530   /* 28 */
531   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
532   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
533   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
534   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
535   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
536   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
537   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
538   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
539   /* 30 */
540   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
541   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
542   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
543   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
544   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
545   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
546   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
547   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
548   /* 38 */
549   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
550   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
551   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
552   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
553   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
554   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
555   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
556   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
557   /* 40 */
558   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
559   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
560   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
561   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
562   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
563   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
564   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
565   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
566   /* 48 */
567   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
568   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
569   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
570   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
571   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
572   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
573   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
574   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
575   /* 50 */
576   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
577   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
578   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
579   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
580   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
581   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
582   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
583   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
584   /* 58 */
585   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
586   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
587   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
588   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
589   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
590   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
591   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
592   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
593   /* 60 */
594   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
595   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
596   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
597   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
598   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
599   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
600   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
601   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
602   /* 68 */
603   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
604   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
605   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
606   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
607   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
608   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
609   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
610   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
611   /* 70 */
612   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
613   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
614   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
615   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
616   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
617   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
618   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
619   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
620   /* 78 */
621   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
622   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
623   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
624   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
625   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
626   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
627   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
628   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
629   /* 80 */
630   { "jo",       Jv, NOFUNC, NOFUNC },
631   { "jno",      Jv, NOFUNC, NOFUNC },
632   { "jb",       Jv, NOFUNC, NOFUNC },
633   { "jae",      Jv, NOFUNC, NOFUNC },  
634   { "je",       Jv, NOFUNC, NOFUNC },
635   { "jne",      Jv, NOFUNC, NOFUNC },
636   { "jbe",      Jv, NOFUNC, NOFUNC },
637   { "ja",       Jv, NOFUNC, NOFUNC },  
638   /* 88 */
639   { "js",       Jv, NOFUNC, NOFUNC },
640   { "jns",      Jv, NOFUNC, NOFUNC },
641   { "jp",       Jv, NOFUNC, NOFUNC },
642   { "jnp",      Jv, NOFUNC, NOFUNC },  
643   { "jl",       Jv, NOFUNC, NOFUNC },
644   { "jge",      Jv, NOFUNC, NOFUNC },
645   { "jle",      Jv, NOFUNC, NOFUNC },
646   { "jg",       Jv, NOFUNC, NOFUNC },  
647   /* 90 */
648   { "seto",     Eb, NOFUNC, NOFUNC },
649   { "setno",    Eb, NOFUNC, NOFUNC },
650   { "setb",     Eb, NOFUNC, NOFUNC },
651   { "setae",    Eb, NOFUNC, NOFUNC },
652   { "sete",     Eb, NOFUNC, NOFUNC },
653   { "setne",    Eb, NOFUNC, NOFUNC },
654   { "setbe",    Eb, NOFUNC, NOFUNC },
655   { "seta",     Eb, NOFUNC, NOFUNC },
656   /* 98 */
657   { "sets",     Eb, NOFUNC, NOFUNC },
658   { "setns",    Eb, NOFUNC, NOFUNC },
659   { "setp",     Eb, NOFUNC, NOFUNC },
660   { "setnp",    Eb, NOFUNC, NOFUNC },
661   { "setl",     Eb, NOFUNC, NOFUNC },
662   { "setge",    Eb, NOFUNC, NOFUNC },
663   { "setle",    Eb, NOFUNC, NOFUNC },
664   { "setg",     Eb, NOFUNC, NOFUNC },  
665   /* a0 */
666   { "pushl",    fs, NOFUNC, NOFUNC },
667   { "popl",     fs, NOFUNC, NOFUNC },
668   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
669   { "btS",      Ev, Gv, NOFUNC },  
670   { "shldS",    Ev, Gv, Ib },
671   { "shldS",    Ev, Gv, CL },
672   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
673   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
674   /* a8 */
675   { "pushl",    gs, NOFUNC, NOFUNC },
676   { "popl",     gs, NOFUNC, NOFUNC },
677   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
678   { "btsS",     Ev, Gv, NOFUNC },  
679   { "shrdS",    Ev, Gv, Ib },
680   { "shrdS",    Ev, Gv, CL },
681   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
682   { "imulS",    Gv, Ev, NOFUNC },  
683   /* b0 */
684   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
685   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
686   { "lssS",     Gv, Mp, NOFUNC },       /* 386 lists only Mp */
687   { "btrS",     Ev, Gv, NOFUNC },  
688   { "lfsS",     Gv, Mp, NOFUNC },       /* 386 lists only Mp */
689   { "lgsS",     Gv, Mp, NOFUNC },       /* 386 lists only Mp */
690   { "movzbS",   Gv, Eb, NOFUNC },
691   { "movzwS",   Gv, Ew, NOFUNC },  
692   /* b8 */
693   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
694   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
695   { GRP8 },
696   { "btcS",     Ev, Gv, NOFUNC },  
697   { "bsfS",     Gv, Ev, NOFUNC },
698   { "bsrS",     Gv, Ev, NOFUNC },
699   { "movsbS",   Gv, Eb, NOFUNC },
700   { "movswS",   Gv, Ew, NOFUNC },  
701   /* c0 */
702   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
703   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
704   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
705   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
706   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
707   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
708   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
709   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
710   /* c8 */
711   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
712   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
713   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
714   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
715   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
716   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
717   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
718   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
719   /* d0 */
720   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
721   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
722   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
723   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
724   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
725   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
726   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
727   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
728   /* d8 */
729   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
730   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
731   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
732   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
733   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
734   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
735   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
736   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
737   /* e0 */
738   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
739   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
740   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
741   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
742   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
743   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
744   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
745   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
746   /* e8 */
747   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
748   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
749   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
750   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
751   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
752   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
753   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
754   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
755   /* f0 */
756   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
757   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
758   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
759   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
760   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
761   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
762   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
763   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
764   /* f8 */
765   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
766   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
767   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
768   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
769   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
770   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
771   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },
772   { "(bad)",    NOFUNC, NOFUNC, NOFUNC },  
773 };
774
775 static char obuf[100];
776 static char *obufp;
777 static char scratchbuf[100];
778 static unsigned char *start_codep;
779 static unsigned char *codep;
780 static int mod;
781 static int rm;
782 static int reg;
783
784 static const char *names32[]={
785   "%eax","%ecx","%edx","%ebx", "%esp","%ebp","%esi","%edi",
786 };
787 static const char *names16[] = {
788   "%ax","%cx","%dx","%bx","%sp","%bp","%si","%di",
789 };
790 static const char *names8[] = {
791   "%al","%cl","%dl","%bl","%ah","%ch","%dh","%bh",
792 };
793 static const char *names_seg[] = {
794   "%es","%cs","%ss","%ds","%fs","%gs","%?","%?",
795 };
796 static const char *names16_pairs[] = {
797   "%bx+%si","%bx+%di","%bp+%si","%bp+%di","%si","%di","%bp","%bx",
798 };
799
800 struct dis386 grps[][8] = {
801   /* GRP1b */
802   {
803     { "addb",   Eb, Ib, NOFUNC },
804     { "orb",    Eb, Ib, NOFUNC },
805     { "adcb",   Eb, Ib, NOFUNC },
806     { "sbbb",   Eb, Ib, NOFUNC },
807     { "andb",   Eb, Ib, NOFUNC },
808     { "subb",   Eb, Ib, NOFUNC },
809     { "xorb",   Eb, Ib, NOFUNC },
810     { "cmpb",   Eb, Ib, NOFUNC }
811   },
812   /* GRP1S */
813   {
814     { "addS",   Ev, Iv, NOFUNC },
815     { "orS",    Ev, Iv, NOFUNC },
816     { "adcS",   Ev, Iv, NOFUNC },
817     { "sbbS",   Ev, Iv, NOFUNC },
818     { "andS",   Ev, Iv, NOFUNC },
819     { "subS",   Ev, Iv, NOFUNC },
820     { "xorS",   Ev, Iv, NOFUNC },
821     { "cmpS",   Ev, Iv, NOFUNC }
822   },
823   /* GRP1Ss */
824   {
825     { "addS",   Ev, sIb, NOFUNC },
826     { "orS",    Ev, sIb, NOFUNC },
827     { "adcS",   Ev, sIb, NOFUNC },
828     { "sbbS",   Ev, sIb, NOFUNC },
829     { "andS",   Ev, sIb, NOFUNC },
830     { "subS",   Ev, sIb, NOFUNC },
831     { "xorS",   Ev, sIb, NOFUNC },
832     { "cmpS",   Ev, sIb, NOFUNC }
833   },
834   /* GRP2b */
835   {
836     { "rolb",   Eb, Ib, NOFUNC },
837     { "rorb",   Eb, Ib, NOFUNC },
838     { "rclb",   Eb, Ib, NOFUNC },
839     { "rcrb",   Eb, Ib, NOFUNC },
840     { "shlb",   Eb, Ib, NOFUNC },
841     { "shrb",   Eb, Ib, NOFUNC },
842     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
843     { "sarb",   Eb, Ib, NOFUNC },
844   },
845   /* GRP2S */
846   {
847     { "rolS",   Ev, Ib, NOFUNC },
848     { "rorS",   Ev, Ib, NOFUNC },
849     { "rclS",   Ev, Ib, NOFUNC },
850     { "rcrS",   Ev, Ib, NOFUNC },
851     { "shlS",   Ev, Ib, NOFUNC },
852     { "shrS",   Ev, Ib, NOFUNC },
853     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
854     { "sarS",   Ev, Ib, NOFUNC },
855   },
856   /* GRP2b_one */
857   {
858     { "rolb",   Eb, NOFUNC, NOFUNC },
859     { "rorb",   Eb, NOFUNC, NOFUNC },
860     { "rclb",   Eb, NOFUNC, NOFUNC },
861     { "rcrb",   Eb, NOFUNC, NOFUNC },
862     { "shlb",   Eb, NOFUNC, NOFUNC },
863     { "shrb",   Eb, NOFUNC, NOFUNC },
864     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
865     { "sarb",   Eb, NOFUNC, NOFUNC },
866   },
867   /* GRP2S_one */
868   {
869     { "rolS",   Ev, NOFUNC, NOFUNC },
870     { "rorS",   Ev, NOFUNC, NOFUNC },
871     { "rclS",   Ev, NOFUNC, NOFUNC },
872     { "rcrS",   Ev, NOFUNC, NOFUNC },
873     { "shlS",   Ev, NOFUNC, NOFUNC },
874     { "shrS",   Ev, NOFUNC, NOFUNC },
875     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
876     { "sarS",   Ev, NOFUNC, NOFUNC },
877   },
878   /* GRP2b_cl */
879   {
880     { "rolb",   Eb, CL, NOFUNC },
881     { "rorb",   Eb, CL, NOFUNC },
882     { "rclb",   Eb, CL, NOFUNC },
883     { "rcrb",   Eb, CL, NOFUNC },
884     { "shlb",   Eb, CL, NOFUNC },
885     { "shrb",   Eb, CL, NOFUNC },
886     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
887     { "sarb",   Eb, CL, NOFUNC },
888   },
889   /* GRP2S_cl */
890   {
891     { "rolS",   Ev, CL, NOFUNC },
892     { "rorS",   Ev, CL, NOFUNC },
893     { "rclS",   Ev, CL, NOFUNC },
894     { "rcrS",   Ev, CL, NOFUNC },
895     { "shlS",   Ev, CL, NOFUNC },
896     { "shrS",   Ev, CL, NOFUNC },
897     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
898     { "sarS",   Ev, CL, NOFUNC }
899   },
900   /* GRP3b */
901   {
902     { "testb",  Eb, Ib, NOFUNC },
903     { "(bad)",  Eb, NOFUNC, NOFUNC },
904     { "notb",   Eb, NOFUNC, NOFUNC },
905     { "negb",   Eb, NOFUNC, NOFUNC },
906     { "mulb",   AL, Eb, NOFUNC },
907     { "imulb",  AL, Eb, NOFUNC },
908     { "divb",   AL, Eb, NOFUNC },
909     { "idivb",  AL, Eb, NOFUNC }
910   },
911   /* GRP3S */
912   {
913     { "testS",  Ev, Iv, NOFUNC },
914     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
915     { "notS",   Ev, NOFUNC, NOFUNC },
916     { "negS",   Ev, NOFUNC, NOFUNC },
917     { "mulS",   eAX, Ev, NOFUNC },
918     { "imulS",  eAX, Ev, NOFUNC },
919     { "divS",   eAX, Ev, NOFUNC },
920     { "idivS",  eAX, Ev, NOFUNC },
921   },
922   /* GRP4 */
923   {
924     { "incb",   Eb, NOFUNC, NOFUNC },
925     { "decb",   Eb, NOFUNC, NOFUNC },
926     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
927     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
928     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
929     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
930     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
931     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
932   },
933   /* GRP5 */
934   {
935     { "incS",   Ev, NOFUNC, NOFUNC },
936     { "decS",   Ev, NOFUNC, NOFUNC },
937     { "call",   indirEv, NOFUNC, NOFUNC },
938     { "lcall",  indirEv, NOFUNC, NOFUNC },
939     { "jmp",    indirEv, NOFUNC, NOFUNC },
940     { "ljmp",   indirEv, NOFUNC, NOFUNC },
941     { "pushS",  Ev, NOFUNC, NOFUNC },
942     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
943   },
944   /* GRP6 */
945   {
946     { "sldt",   Ew, NOFUNC, NOFUNC },
947     { "str",    Ew, NOFUNC, NOFUNC },
948     { "lldt",   Ew, NOFUNC, NOFUNC },
949     { "ltr",    Ew, NOFUNC, NOFUNC },
950     { "verr",   Ew, NOFUNC, NOFUNC },
951     { "verw",   Ew, NOFUNC, NOFUNC },
952     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
953     { "(bad)",  NOFUNC, NOFUNC, NOFUNC }
954   },
955   /* GRP7 */
956   {
957     { "sgdt",   Ew, NOFUNC, NOFUNC },
958     { "sidt",   Ew, NOFUNC, NOFUNC },
959     { "lgdt",   Ew, NOFUNC, NOFUNC },
960     { "lidt",   Ew, NOFUNC, NOFUNC },
961     { "smsw",   Ew, NOFUNC, NOFUNC },
962     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
963     { "lmsw",   Ew, NOFUNC, NOFUNC },
964     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
965   },
966   /* GRP8 */
967   {
968     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
969     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
970     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
971     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
972     { "btS",    Ev, Ib, NOFUNC },
973     { "btsS",   Ev, Ib, NOFUNC },
974     { "btrS",   Ev, Ib, NOFUNC },
975     { "btcS",   Ev, Ib, NOFUNC },
976   }
977 };
978
979 #define PREFIX_REPZ     0x01
980 #define PREFIX_REPNZ    0x02
981 #define PREFIX_LOCK     0x04
982 #define PREFIX_CS       0x08
983 #define PREFIX_SS       0x10
984 #define PREFIX_DS       0x20
985 #define PREFIX_ES       0x40
986 #define PREFIX_FS       0x80
987 #define PREFIX_GS       0x100
988 #define PREFIX_DATA     0x200
989 #define PREFIX_ADR      0x400
990 #define PREFIX_FWAIT    0x800
991
992 static int prefixes;
993
994 static void
995 ckprefix(void)
996 {
997   prefixes = 0;
998   while (1)
999     {
1000       switch (*codep)
1001         {
1002         case 0xf3:
1003           prefixes |= PREFIX_REPZ;
1004           break;
1005         case 0xf2:
1006           prefixes |= PREFIX_REPNZ;
1007           break;
1008         case 0xf0:
1009           prefixes |= PREFIX_LOCK;
1010           break;
1011         case 0x2e:
1012           prefixes |= PREFIX_CS;
1013           break;
1014         case 0x36:
1015           prefixes |= PREFIX_SS;
1016           break;
1017         case 0x3e:
1018           prefixes |= PREFIX_DS;
1019           break;
1020         case 0x26:
1021           prefixes |= PREFIX_ES;
1022           break;
1023         case 0x64:
1024           prefixes |= PREFIX_FS;
1025           break;
1026         case 0x65:
1027           prefixes |= PREFIX_GS;
1028           break;
1029         case 0x66:
1030           prefixes |= PREFIX_DATA;
1031           break;
1032         case 0x67:
1033           prefixes |= PREFIX_ADR;
1034           break;
1035         case 0x9b:
1036           prefixes |= PREFIX_FWAIT;
1037           break;
1038         default:
1039           return;
1040         }
1041       codep++;
1042     }
1043 }
1044
1045 static int dflag;
1046 static int aflag;               
1047
1048 static char op1out[100], op2out[100], op3out[100];
1049 static unsigned long start_pc;
1050
1051 /*
1052  * disassemble the first instruction in 'inbuf'.  You have to make
1053  *   sure all of the bytes of the instruction are filled in.
1054  *   On the 386's of 1988, the maximum length of an instruction is 15 bytes.
1055  *   (see topic "Redundant prefixes" in the "Differences from 8086"
1056  *   section of the "Virtual 8086 Mode" chapter.)
1057  * 'pc' should be the address of this instruction, it will
1058  *   be used to print the target address if this is a relative jump or call
1059  * 'outbuf' gets filled in with the disassembled instruction.  it should
1060  *   be long enough to hold the longest disassembled instruction.
1061  *   100 bytes is certainly enough, unless symbol printing is added later
1062  * The function returns the length of this instruction in bytes.
1063  */
1064 int
1065 i386dis (unsigned short ucs, unsigned short uip, unsigned char *inbuf,
1066          char *outbuf, int mode)
1067 {
1068   struct dis386 *dp;
1069   int i;
1070   int enter_instruction;
1071   char *first, *second, *third;
1072   int needcomma;
1073   
1074   obuf[0] = 0;
1075   op1out[0] = 0;
1076   op2out[0] = 0;
1077   op3out[0] = 0;
1078   
1079   start_pc = ucs << 16 | uip;
1080   start_codep = inbuf;
1081   codep = inbuf;
1082   
1083   ckprefix ();
1084   
1085   if (*codep == 0xc8)
1086     enter_instruction = 1;
1087   else
1088     enter_instruction = 0;
1089   
1090   obufp = obuf;
1091   
1092   if (prefixes & PREFIX_REPZ)
1093     oappend ("repz ");
1094   if (prefixes & PREFIX_REPNZ)
1095     oappend ("repnz ");
1096   if (prefixes & PREFIX_LOCK)
1097     oappend ("lock ");
1098   
1099   if ((prefixes & PREFIX_FWAIT)
1100       && ((*codep < 0xd8) || (*codep > 0xdf)))
1101     {
1102       /* fwait not followed by floating point instruction */
1103       oappend ("fwait");
1104       strcpy (outbuf, obuf);
1105       return (1);
1106     }
1107   
1108   /* these would be initialized to 0 if disassembling for 8086 or 286 */
1109   if (mode) {
1110     dflag = 1;
1111     aflag = 1;
1112   } else {
1113     dflag = 0;
1114     aflag = 0;
1115   }
1116   
1117   if (prefixes & PREFIX_DATA)
1118     dflag ^= 1;
1119   
1120   if (prefixes & PREFIX_ADR)
1121     {
1122       aflag ^= 1;
1123       oappend ("addr16 ");
1124     }
1125   
1126   if (*codep == 0x0f)
1127     dp = &dis386_twobyte[*++codep];
1128   else
1129     dp = &dis386[*codep];
1130   codep++;
1131   mod = (*codep >> 6) & 3;
1132   reg = (*codep >> 3) & 7;
1133   rm = *codep & 7;
1134   
1135   if (dp->name == NULL && dp->bytemode1 == FLOATCODE)
1136     {
1137       dofloat ();
1138     }
1139   else
1140     {
1141       if (dp->name == NULL)
1142         dp = &grps[dp->bytemode1][reg];
1143       
1144       putop (dp->name);
1145       
1146       obufp = op1out;
1147       if (dp->op1)
1148         (*dp->op1)(dp->bytemode1);
1149       
1150       obufp = op2out;
1151       if (dp->op2)
1152         (*dp->op2)(dp->bytemode2);
1153       
1154       obufp = op3out;
1155       if (dp->op3)
1156         (*dp->op3)(dp->bytemode3);
1157     }
1158   
1159   obufp = obuf + strlen (obuf);
1160   for (i = strlen (obuf); i < 6; i++)
1161     oappend (" ");
1162   oappend (" ");
1163   
1164   /* enter instruction is printed with operands in the
1165    * same order as the intel book; everything else
1166    * is printed in reverse order 
1167    */
1168   if (enter_instruction)
1169     {
1170       first = op1out;
1171       second = op2out;
1172       third = op3out;
1173     }
1174   else
1175     {
1176       first = op3out;
1177       second = op2out;
1178       third = op1out;
1179     }
1180   needcomma = 0;
1181   if (*first)
1182     {
1183       oappend (first);
1184       needcomma = 1;
1185     }
1186   if (*second)
1187     {
1188       if (needcomma)
1189         oappend (",");
1190       oappend (second);
1191       needcomma = 1;
1192     }
1193   if (*third)
1194     {
1195       if (needcomma)
1196         oappend (",");
1197       oappend (third);
1198     }
1199   strcpy (outbuf, obuf);
1200   return (codep - inbuf);
1201 }
1202
1203 const char *float_mem[] = {
1204   /* d8 */
1205   "fadds",
1206   "fmuls",
1207   "fcoms",
1208   "fcomps",
1209   "fsubs",
1210   "fsubrs",
1211   "fdivs",
1212   "fdivrs",
1213   /*  d9 */
1214   "flds",
1215   "(bad)",
1216   "fsts",
1217   "fstps",
1218   "fldenv",
1219   "fldcw",
1220   "fNstenv",
1221   "fNstcw",
1222   /* da */
1223   "fiaddl",
1224   "fimull",
1225   "ficoml",
1226   "ficompl",
1227   "fisubl",
1228   "fisubrl",
1229   "fidivl",
1230   "fidivrl",
1231   /* db */
1232   "fildl",
1233   "(bad)",
1234   "fistl",
1235   "fistpl",
1236   "(bad)",
1237   "fldt",
1238   "(bad)",
1239   "fstpt",
1240   /* dc */
1241   "faddl",
1242   "fmull",
1243   "fcoml",
1244   "fcompl",
1245   "fsubl",
1246   "fsubrl",
1247   "fdivl",
1248   "fdivrl",
1249   /* dd */
1250   "fldl",
1251   "(bad)",
1252   "fstl",
1253   "fstpl",
1254   "frstor",
1255   "(bad)",
1256   "fNsave",
1257   "fNstsw",
1258   /* de */
1259   "fiadd",
1260   "fimul",
1261   "ficom",
1262   "ficomp",
1263   "fisub",
1264   "fisubr",
1265   "fidiv",
1266   "fidivr",
1267   /* df */
1268   "fild",
1269   "(bad)",
1270   "fist",
1271   "fistp",
1272   "fbld",
1273   "fildll",
1274   "fbstp",
1275   "fistpll",
1276 };
1277
1278 #define ST OP_ST, 0
1279 #define STi OP_STi, 0
1280
1281 #define FGRPd9_2 NULL, NULL, 0, NOFUNC, NOFUNC
1282 #define FGRPd9_4 NULL, NULL, 1, NOFUNC, NOFUNC
1283 #define FGRPd9_5 NULL, NULL, 2, NOFUNC, NOFUNC
1284 #define FGRPd9_6 NULL, NULL, 3, NOFUNC, NOFUNC
1285 #define FGRPd9_7 NULL, NULL, 4, NOFUNC, NOFUNC
1286 #define FGRPda_5 NULL, NULL, 5, NOFUNC, NOFUNC
1287 #define FGRPdb_4 NULL, NULL, 6, NOFUNC, NOFUNC
1288 #define FGRPde_3 NULL, NULL, 7, NOFUNC, NOFUNC
1289 #define FGRPdf_4 NULL, NULL, 8, NOFUNC, NOFUNC
1290
1291 struct dis386 float_reg[][8] = {
1292   /* d8 */
1293   {
1294     { "fadd",   ST, STi, NOFUNC },
1295     { "fmul",   ST, STi, NOFUNC },
1296     { "fcom",   STi, NOFUNC, NOFUNC },
1297     { "fcomp",  STi, NOFUNC, NOFUNC },
1298     { "fsub",   ST, STi, NOFUNC },
1299     { "fsubr",  ST, STi, NOFUNC },
1300     { "fdiv",   ST, STi, NOFUNC },
1301     { "fdivr",  ST, STi, NOFUNC },
1302   },
1303   /* d9 */
1304   {
1305     { "fld",    STi, NOFUNC, NOFUNC },
1306     { "fxch",   STi, NOFUNC, NOFUNC },
1307     { FGRPd9_2 },
1308     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1309     { FGRPd9_4 },
1310     { FGRPd9_5 },
1311     { FGRPd9_6 },
1312     { FGRPd9_7 },
1313   },
1314   /* da */
1315   {
1316     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1317     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1318     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1319     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1320     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1321     { FGRPda_5 },
1322     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1323     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1324   },
1325   /* db */
1326   {
1327     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1328     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1329     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1330     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1331     { FGRPdb_4 },
1332     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1333     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1334     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1335   },
1336   /* dc */
1337   {
1338     { "fadd",   STi, ST, NOFUNC },
1339     { "fmul",   STi, ST, NOFUNC },
1340     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1341     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1342     { "fsub",   STi, ST, NOFUNC },
1343     { "fsubr",  STi, ST, NOFUNC },
1344     { "fdiv",   STi, ST, NOFUNC },
1345     { "fdivr",  STi, ST, NOFUNC },
1346   },
1347   /* dd */
1348   {
1349     { "ffree",  STi, NOFUNC, NOFUNC },
1350     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1351     { "fst",    STi, NOFUNC, NOFUNC },
1352     { "fstp",   STi, NOFUNC, NOFUNC },
1353     { "fucom",  STi, NOFUNC, NOFUNC },
1354     { "fucomp", STi, NOFUNC, NOFUNC },
1355     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1356     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1357   },
1358   /* de */
1359   {
1360     { "faddp",  STi, ST, NOFUNC },
1361     { "fmulp",  STi, ST, NOFUNC },
1362     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1363     { FGRPde_3 },
1364     { "fsubp",  STi, ST, NOFUNC },
1365     { "fsubrp", STi, ST, NOFUNC },
1366     { "fdivp",  STi, ST, NOFUNC },
1367     { "fdivrp", STi, ST, NOFUNC },
1368   },
1369   /* df */
1370   {
1371     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1372     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1373     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1374     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1375     { FGRPdf_4 },
1376     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1377     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1378     { "(bad)",  NOFUNC, NOFUNC, NOFUNC },
1379   },
1380 };
1381
1382
1383 const char *fgrps[][8] = {
1384   /* d9_2  0 */
1385   {
1386     "fnop","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)",
1387   },
1388
1389   /* d9_4  1 */
1390   {
1391     "fchs","fabs","(bad)","(bad)","ftst","fxam","(bad)","(bad)",
1392   },
1393
1394   /* d9_5  2 */
1395   {
1396     "fld1","fldl2t","fldl2e","fldpi","fldlg2","fldln2","fldz","(bad)",
1397   },
1398
1399   /* d9_6  3 */
1400   {
1401     "f2xm1","fyl2x","fptan","fpatan","fxtract","fprem1","fdecstp","fincstp",
1402   },
1403
1404   /* d9_7  4 */
1405   {
1406     "fprem","fyl2xp1","fsqrt","fsincos","frndint","fscale","fsin","fcos",
1407   },
1408
1409   /* da_5  5 */
1410   {
1411     "(bad)","fucompp","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)",
1412   },
1413
1414   /* db_4  6 */
1415   {
1416     "feni(287 only)","fdisi(287 only)","fNclex","fNinit",
1417     "fNsetpm(287 only)","(bad)","(bad)","(bad)",
1418   },
1419
1420   /* de_3  7 */
1421   {
1422     "(bad)","fcompp","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)",
1423   },
1424
1425   /* df_4  8 */
1426   {
1427     "fNstsw","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)","(bad)",
1428   },
1429 };
1430
1431
1432 static void
1433 dofloat (void)
1434 {
1435   struct dis386 *dp;
1436   unsigned char floatop;
1437   
1438   floatop = codep[-1];
1439   
1440   if (mod != 3)
1441     {
1442       putop (float_mem[(floatop - 0xd8) * 8 + reg]);
1443       obufp = op1out;
1444       OP_E (v_mode);
1445       return;
1446     }
1447   codep++;
1448   
1449   dp = &float_reg[floatop - 0xd8][reg];
1450   if (dp->name == NULL)
1451     {
1452       putop (fgrps[dp->bytemode1][rm]);
1453       /* instruction fnstsw is only one with strange arg */
1454       if (floatop == 0xdf && *codep == 0xe0)
1455         strcpy (op1out, "%eax");
1456     }
1457   else
1458     {
1459       putop (dp->name);
1460       obufp = op1out;
1461       if (dp->op1)
1462         (*dp->op1)(dp->bytemode1);
1463       obufp = op2out;
1464       if (dp->op2)
1465         (*dp->op2)(dp->bytemode2);
1466     }
1467 }
1468
1469 static void
1470 OP_ST(int dummy __unused)
1471 {
1472   oappend ("%st");
1473 }
1474
1475 static void
1476 OP_STi(int dummy __unused)
1477 {
1478   sprintf (scratchbuf, "%%st(%d)", rm);
1479   oappend (scratchbuf);
1480 }
1481
1482
1483 /* capital letters in template are macros */
1484 static void
1485 putop(const char *template)
1486 {
1487   const char *p;
1488   
1489   for (p = template; *p; p++)
1490     {
1491       switch (*p)
1492         {
1493         default:
1494           *obufp++ = *p;
1495           break;
1496         case 'C':               /* For jcxz/jecxz */
1497           if (aflag == 0)
1498             *obufp++ = 'e';
1499           break;
1500         case 'N':
1501           if ((prefixes & PREFIX_FWAIT) == 0)
1502             *obufp++ = 'n';
1503           break;
1504         case 'S':
1505           /* operand size flag */
1506           if (dflag)
1507             *obufp++ = 'l';
1508           else
1509             *obufp++ = 'w';
1510           break;
1511         }
1512     }
1513   *obufp = 0;
1514 }
1515
1516 static void
1517 oappend(const char *s)
1518 {
1519   strcpy (obufp, s);
1520   obufp += strlen (s);
1521   *obufp = 0;
1522 }
1523
1524 static void
1525 append_prefix(void)
1526 {
1527   if (prefixes & PREFIX_CS)
1528     oappend ("%cs:");
1529   if (prefixes & PREFIX_DS)
1530     oappend ("%ds:");
1531   if (prefixes & PREFIX_SS)
1532     oappend ("%ss:");
1533   if (prefixes & PREFIX_ES)
1534     oappend ("%es:");
1535   if (prefixes & PREFIX_FS)
1536     oappend ("%fs:");
1537   if (prefixes & PREFIX_GS)
1538     oappend ("%gs:");
1539 }
1540
1541 static void
1542 OP_indirE(int bytemode)
1543 {
1544   oappend ("*");
1545   OP_E (bytemode);
1546 }
1547
1548 static void
1549 OP_E(int bytemode)
1550 {
1551   int disp;
1552   int havesib;
1553   int base = 0;
1554   int idx = 0;
1555   int scale = 0;
1556   int havebase;
1557   
1558   /* skip mod/rm byte */
1559   codep++;
1560   
1561   havesib = 0;
1562   havebase = 0;
1563   disp = 0;
1564   
1565   if (mod == 3) {
1566       switch (bytemode) {
1567       case b_mode:
1568           oappend (names8[rm]);
1569           break;
1570       case w_mode:
1571           oappend (names16[rm]);
1572           break;
1573       case v_mode:
1574           if (dflag)
1575             oappend (names32[rm]);
1576           else
1577             oappend (names16[rm]);
1578           break;
1579       default:
1580           oappend ("<bad dis table>");
1581           break;
1582       }
1583       return;
1584   }
1585   
1586   append_prefix ();
1587
1588   if (aflag && rm == 4) {
1589       havesib = 1;
1590       havebase = 1;
1591       scale = (*codep >> 6) & 3;
1592       idx = (*codep >> 3) & 7;
1593       base = *codep & 7;
1594       codep++;
1595   }
1596   
1597   switch (mod) {
1598   case 0:
1599       if (aflag) {
1600           switch (rm) {
1601           case 4:
1602               /* implies havesib and havebase */
1603               if (base == 5) {
1604                 havebase = 0;
1605                 disp = get32 ();
1606               }
1607               break;
1608           case 5:
1609               disp = get32 ();
1610               break;
1611           default:
1612               havebase = 1;
1613               base = rm;
1614               break;
1615           }
1616       } else {
1617           if (rm == 6) {
1618             havebase = 0;
1619             disp = get16 ();
1620           } else {
1621             havebase = 1;
1622             base = rm;
1623           }
1624       }
1625       break;
1626   case 1:
1627       disp = *(char *)codep++;
1628       if (!aflag || rm != 4) {
1629           havebase = 1;
1630           base = rm;
1631       }
1632       break;
1633   case 2:
1634       if (aflag)
1635         disp = get32 ();
1636       else
1637         disp = get16 ();
1638       if (!aflag || rm != 4) {
1639           havebase = 1;
1640           base = rm;
1641       }
1642       break;
1643   }
1644   
1645   if (mod != 0 || ((aflag && rm == 5) || (havesib && base == 5))
1646                || (!aflag && rm == 6)) {
1647     sprintf (scratchbuf, "0x%x", disp);
1648     oappend (scratchbuf);
1649   }
1650   
1651   if (havebase || havesib) {
1652       oappend ("(");
1653       if (havebase)
1654         oappend (aflag ? names32[base] : names16_pairs[base]);
1655       if (havesib) {
1656           if (idx != 4) {
1657               sprintf (scratchbuf, ",%s", names32[idx]);
1658               oappend (scratchbuf);
1659           }
1660           sprintf (scratchbuf, ",%d", 1 << scale);
1661           oappend (scratchbuf);
1662       }
1663       oappend (")");
1664   }
1665 }
1666
1667 static void
1668 OP_G(int bytemode)
1669 {
1670   switch (bytemode) 
1671     {
1672     case b_mode:
1673       oappend (names8[reg]);
1674       break;
1675     case w_mode:
1676       oappend (names16[reg]);
1677       break;
1678     case d_mode:
1679       oappend (names32[reg]);
1680       break;
1681     case v_mode:
1682       if (dflag)
1683         oappend (names32[reg]);
1684       else
1685         oappend (names16[reg]);
1686       break;
1687     default:
1688       oappend ("<internal disassembler error>");
1689       break;
1690     }
1691 }
1692
1693 static int
1694 get32(void)
1695 {
1696   int x = 0;
1697   
1698   x = *codep++ & 0xff;
1699   x |= (*codep++ & 0xff) << 8;
1700   x |= (*codep++ & 0xff) << 16;
1701   x |= (*codep++ & 0xff) << 24;
1702   return (x);
1703 }
1704
1705 static int
1706 get16(void)
1707 {
1708   int x = 0;
1709   
1710   x = *codep++ & 0xff;
1711   x |= (*codep++ & 0xff) << 8;
1712   return (x);
1713 }
1714
1715 static void
1716 OP_REG(int code)
1717 {
1718   const char *s;
1719   
1720   switch (code) 
1721     {
1722         case indir_dx_reg: s = "(%dx)"; break;
1723         case ax_reg: case cx_reg: case dx_reg: case bx_reg:
1724         case sp_reg: case bp_reg: case si_reg: case di_reg:
1725                 s = names16[code - ax_reg];
1726                 break;
1727         case es_reg: case ss_reg: case cs_reg:
1728         case ds_reg: case fs_reg: case gs_reg:
1729                 s = names_seg[code - es_reg];
1730                 break;
1731         case al_reg: case ah_reg: case cl_reg: case ch_reg:
1732         case dl_reg: case dh_reg: case bl_reg: case bh_reg:
1733                 s = names8[code - al_reg];
1734                 break;
1735         case eAX_reg: case eCX_reg: case eDX_reg: case eBX_reg:
1736         case eSP_reg: case eBP_reg: case eSI_reg: case eDI_reg:
1737       if (dflag)
1738         s = names32[code - eAX_reg];
1739       else
1740         s = names16[code - eAX_reg];
1741       break;
1742     default:
1743       s = "<internal disassembler error>";
1744       break;
1745     }
1746   oappend (s);
1747 }
1748
1749 static void
1750 OP_I(int bytemode)
1751 {
1752   int op;
1753   
1754   switch (bytemode) 
1755     {
1756     case b_mode:
1757       op = *codep++ & 0xff;
1758       break;
1759     case v_mode:
1760       if (dflag)
1761         op = get32 ();
1762       else
1763         op = get16 ();
1764       break;
1765     case w_mode:
1766       op = get16 ();
1767       break;
1768     default:
1769       oappend ("<internal disassembler error>");
1770       return;
1771     }
1772   sprintf (scratchbuf, "$0x%x", op);
1773   oappend (scratchbuf);
1774 }
1775
1776 static void
1777 OP_sI(int bytemode)
1778 {
1779   int op;
1780   
1781   switch (bytemode) 
1782     {
1783     case b_mode:
1784       op = *(char *)codep++;
1785       break;
1786     case v_mode:
1787       if (dflag)
1788         op = get32 ();
1789       else
1790         op = (short)get16();
1791       break;
1792     case w_mode:
1793       op = (short)get16 ();
1794       break;
1795     default:
1796       oappend ("<internal disassembler error>");
1797       return;
1798     }
1799   sprintf (scratchbuf, "$0x%x", op);
1800   oappend (scratchbuf);
1801 }
1802
1803 static void
1804 OP_J(int bytemode)
1805 {
1806   int disp;
1807   
1808   switch (bytemode) 
1809     {
1810     case b_mode:
1811       disp = *(char *)codep++;
1812       append_pc(start_pc + codep - start_codep + disp);
1813       break;
1814     case v_mode:
1815       if (dflag) {
1816         disp = get32 ();
1817         append_pc(start_pc + codep - start_codep + disp);
1818       } else {
1819           disp = (short)get16 ();
1820           disp = (((start_pc + codep - start_codep) & 0xffff) + disp) & 0xffff;
1821           append_pc((start_pc & 0xffff0000) | disp);
1822       }
1823       break;
1824     default:
1825       oappend ("<internal disassembelr error>");
1826       return;
1827     }
1828   
1829   oappend (scratchbuf);
1830 }
1831
1832 static void
1833 append_pc(unsigned long pc)
1834 {
1835   sprintf(scratchbuf, "%04lx:%04lx", pc >> 16, pc & 0xffff);
1836 }
1837
1838 static void
1839 OP_SEG(int dummy __unused)
1840 {
1841   static const char *sreg[] = {
1842     "%es","%cs","%ss","%ds","%fs","%gs","%?","%?",
1843   };
1844
1845   oappend (sreg[reg]);
1846 }
1847
1848 static void
1849 OP_DIR(int size)
1850 {
1851   int seg, offset;
1852   
1853   switch (size) 
1854     {
1855     case lptr:
1856       if (dflag) 
1857         {
1858           offset = get32 ();
1859           seg = get16 ();
1860         } 
1861       else 
1862         {
1863           offset = get16 ();
1864           seg = get16 ();
1865         }
1866       sprintf (scratchbuf, "%04x:%04x", seg, offset);
1867       oappend (scratchbuf);
1868       break;
1869     case v_mode:
1870       if (aflag)
1871         offset = get32 ();
1872       else
1873         offset = (short)get16 ();
1874       
1875       append_pc(start_pc + codep - start_codep + offset);
1876       oappend (scratchbuf);
1877       break;
1878     default:
1879       oappend ("<internal disassembler error>");
1880       break;
1881     }
1882 }
1883
1884 static void
1885 OP_OFF(int dummy __unused)
1886 {
1887   int off;
1888   
1889   if (aflag)
1890     off = get32 ();
1891   else
1892     off = get16 ();
1893   
1894   sprintf (scratchbuf, "0x%x", off);
1895   oappend (scratchbuf);
1896 }
1897
1898 static void
1899 OP_ESDI(int dummy __unused)
1900 {
1901   oappend ("%es:(");
1902   oappend (aflag ? "%edi" : "%di");
1903   oappend (")");
1904 }
1905
1906 static void
1907 OP_DSSI(int dummy __unused)
1908 {
1909   oappend ("%ds:(");
1910   oappend (aflag ? "%esi" : "%si");
1911   oappend (")");
1912 }
1913
1914 static void
1915 OP_C(int dummy __unused)
1916 {
1917   codep++; /* skip mod/rm */
1918   sprintf (scratchbuf, "%%cr%d", reg);
1919   oappend (scratchbuf);
1920 }
1921
1922 static void
1923 OP_D(int dummy __unused)
1924 {
1925   codep++; /* skip mod/rm */
1926   sprintf (scratchbuf, "%%db%d", reg);
1927   oappend (scratchbuf);
1928 }
1929
1930 static void
1931 OP_T(int dummy __unused)
1932 {
1933   codep++; /* skip mod/rm */
1934   sprintf (scratchbuf, "%%tr%d", reg);
1935   oappend (scratchbuf);
1936 }
1937
1938 static void
1939 OP_rm(int bytemode)
1940 {
1941   switch (bytemode) 
1942     {
1943     case d_mode:
1944       oappend (names32[rm]);
1945       break;
1946     case w_mode:
1947       oappend (names16[rm]);
1948       break;
1949     }
1950 }
1951
1952 #else
1953
1954 i386dis (int pc, unsigned char *inbuf, char outbuf, int mode)
1955 {
1956         strcpy (outbuf, "(no disassembler)");
1957         return (1);
1958 }
1959
1960 #endif /* DISASSEMBLER */