db_disasm.c revision 11940 
1/*
2 * Mach Operating System
3 * Copyright (c) 1991,1990 Carnegie Mellon University
4 * All Rights Reserved.
5 *
6 * Permission to use, copy, modify and distribute this software and its
7 * documentation is hereby granted, provided that both the copyright
8 * notice and this permission notice appear in all copies of the
9 * software, derivative works or modified versions, and any portions
10 * thereof, and that both notices appear in supporting documentation.
11 *
12 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS
13 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
14 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
15 *
16 * Carnegie Mellon requests users of this software to return to
17 *
18 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
19 *  School of Computer Science
20 *  Carnegie Mellon University
21 *  Pittsburgh PA 15213-3890
22 *
23 * any improvements or extensions that they make and grant Carnegie the
24 * rights to redistribute these changes.
25 *
26 *	$Id: db_disasm.c,v 1.10 1995/10/29 15:29:48 phk Exp $
27 */
28
29/*
30 * Instruction disassembler.
31 */
32#include <sys/param.h>
33#include <sys/systm.h>
34#include <sys/proc.h>
35#include <ddb/ddb.h>
36
37#include <ddb/db_access.h>
38#include <ddb/db_sym.h>
39
40/*
41 * Size attributes
42 */
43#define	BYTE	0
44#define	WORD	1
45#define	LONG	2
46#define	QUAD	3
47#define	SNGL	4
48#define	DBLR	5
49#define	EXTR	6
50#define	SDEP	7
51#define	NONE	8
52
53/*
54 * Addressing modes
55 */
56#define	E	1			/* general effective address */
57#define	Eind	2			/* indirect address (jump, call) */
58#define	Ew	3			/* address, word size */
59#define	Eb	4			/* address, byte size */
60#define	R	5			/* register, in 'reg' field */
61#define	Rw	6			/* word register, in 'reg' field */
62#define	Ri	7			/* register in instruction */
63#define	S	8			/* segment reg, in 'reg' field */
64#define	Si	9			/* segment reg, in instruction */
65#define	A	10			/* accumulator */
66#define	BX	11			/* (bx) */
67#define	CL	12			/* cl, for shifts */
68#define	DX	13			/* dx, for IO */
69#define	SI	14			/* si */
70#define	DI	15			/* di */
71#define	CR	16			/* control register */
72#define	DR	17			/* debug register */
73#define	TR	18			/* test register */
74#define	I	19			/* immediate, unsigned */
75#define	Is	20			/* immediate, signed */
76#define	Ib	21			/* byte immediate, unsigned */
77#define	Ibs	22			/* byte immediate, signed */
78#define	Iw	23			/* word immediate, unsigned */
79#define	Il	24			/* long immediate */
80#define	O	25			/* direct address */
81#define	Db	26			/* byte displacement from EIP */
82#define	Dl	27			/* long displacement from EIP */
83#define	o1	28			/* constant 1 */
84#define	o3	29			/* constant 3 */
85#define	OS	30			/* immediate offset/segment */
86#define	ST	31			/* FP stack top */
87#define	STI	32			/* FP stack */
88#define	X	33			/* extended FP op */
89#define	XA	34			/* for 'fstcw %ax' */
90
91struct inst {
92	char *	i_name;			/* name */
93	short	i_has_modrm;		/* has regmodrm byte */
94	short	i_size;			/* operand size */
95	int	i_mode;			/* addressing modes */
96	char *	i_extra;		/* pointer to extra opcode table */
97};
98
99#define	op1(x)		(x)
100#define	op2(x,y)	((x)|((y)<<8))
101#define	op3(x,y,z)	((x)|((y)<<8)|((z)<<16))
102
103struct finst {
104	char *	f_name;			/* name for memory instruction */
105	int	f_size;			/* size for memory instruction */
106	int	f_rrmode;		/* mode for rr instruction */
107	char *	f_rrname;		/* name for rr instruction
108					   (or pointer to table) */
109};
110
111static char *	db_Grp6[] = {
112	"sldt",
113	"str",
114	"lldt",
115	"ltr",
116	"verr",
117	"verw",
118	"",
119	""
120};
121
122static char *	db_Grp7[] = {
123	"sgdt",
124	"sidt",
125	"lgdt",
126	"lidt",
127	"smsw",
128	"",
129	"lmsw",
130	"invlpg"
131};
132
133static char *	db_Grp8[] = {
134	"",
135	"",
136	"",
137	"",
138	"bt",
139	"bts",
140	"btr",
141	"btc"
142};
143
144static struct inst db_inst_0f0x[] = {
145/*00*/	{ "",	   TRUE,  NONE,  op1(Ew),     (char *)db_Grp6 },
146/*01*/	{ "",	   TRUE,  NONE,  op1(Ew),     (char *)db_Grp7 },
147/*02*/	{ "lar",   TRUE,  LONG,  op2(E,R),    0 },
148/*03*/	{ "lsl",   TRUE,  LONG,  op2(E,R),    0 },
149/*04*/	{ "",      FALSE, NONE,  0,	      0 },
150/*05*/	{ "",      FALSE, NONE,  0,	      0 },
151/*06*/	{ "clts",  FALSE, NONE,  0,	      0 },
152/*07*/	{ "",      FALSE, NONE,  0,	      0 },
153
154/*08*/	{ "invd",  FALSE, NONE,  0,	      0 },
155/*09*/	{ "wbinvd",FALSE, NONE,  0,	      0 },
156/*0a*/	{ "",      FALSE, NONE,  0,	      0 },
157/*0b*/	{ "",      FALSE, NONE,  0,	      0 },
158/*0c*/	{ "",      FALSE, NONE,  0,	      0 },
159/*0d*/	{ "",      FALSE, NONE,  0,	      0 },
160/*0e*/	{ "",      FALSE, NONE,  0,	      0 },
161/*0f*/	{ "",      FALSE, NONE,  0,	      0 },
162};
163
164static struct inst	db_inst_0f2x[] = {
165/*20*/	{ "mov",   TRUE,  LONG,  op2(CR,E),   0 }, /* use E for reg */
166/*21*/	{ "mov",   TRUE,  LONG,  op2(DR,E),   0 }, /* since mod == 11 */
167/*22*/	{ "mov",   TRUE,  LONG,  op2(E,CR),   0 },
168/*23*/	{ "mov",   TRUE,  LONG,  op2(E,DR),   0 },
169/*24*/	{ "mov",   TRUE,  LONG,  op2(TR,E),   0 },
170/*25*/	{ "",      FALSE, NONE,  0,	      0 },
171/*26*/	{ "mov",   TRUE,  LONG,  op2(E,TR),   0 },
172/*27*/	{ "",      FALSE, NONE,  0,	      0 },
173
174/*28*/	{ "",      FALSE, NONE,  0,	      0 },
175/*29*/	{ "",      FALSE, NONE,  0,	      0 },
176/*2a*/	{ "",      FALSE, NONE,  0,	      0 },
177/*2b*/	{ "",      FALSE, NONE,  0,	      0 },
178/*2c*/	{ "",      FALSE, NONE,  0,	      0 },
179/*2d*/	{ "",      FALSE, NONE,  0,	      0 },
180/*2e*/	{ "",      FALSE, NONE,  0,	      0 },
181/*2f*/	{ "",      FALSE, NONE,  0,	      0 },
182};
183
184static struct inst	db_inst_0f8x[] = {
185/*80*/	{ "jo",    FALSE, NONE,  op1(Dl),     0 },
186/*81*/	{ "jno",   FALSE, NONE,  op1(Dl),     0 },
187/*82*/	{ "jb",    FALSE, NONE,  op1(Dl),     0 },
188/*83*/	{ "jnb",   FALSE, NONE,  op1(Dl),     0 },
189/*84*/	{ "jz",    FALSE, NONE,  op1(Dl),     0 },
190/*85*/	{ "jnz",   FALSE, NONE,  op1(Dl),     0 },
191/*86*/	{ "jbe",   FALSE, NONE,  op1(Dl),     0 },
192/*87*/	{ "jnbe",  FALSE, NONE,  op1(Dl),     0 },
193
194/*88*/	{ "js",    FALSE, NONE,  op1(Dl),     0 },
195/*89*/	{ "jns",   FALSE, NONE,  op1(Dl),     0 },
196/*8a*/	{ "jp",    FALSE, NONE,  op1(Dl),     0 },
197/*8b*/	{ "jnp",   FALSE, NONE,  op1(Dl),     0 },
198/*8c*/	{ "jl",    FALSE, NONE,  op1(Dl),     0 },
199/*8d*/	{ "jnl",   FALSE, NONE,  op1(Dl),     0 },
200/*8e*/	{ "jle",   FALSE, NONE,  op1(Dl),     0 },
201/*8f*/	{ "jnle",  FALSE, NONE,  op1(Dl),     0 },
202};
203
204static struct inst	db_inst_0f9x[] = {
205/*90*/	{ "seto",  TRUE,  NONE,  op1(Eb),     0 },
206/*91*/	{ "setno", TRUE,  NONE,  op1(Eb),     0 },
207/*92*/	{ "setb",  TRUE,  NONE,  op1(Eb),     0 },
208/*93*/	{ "setnb", TRUE,  NONE,  op1(Eb),     0 },
209/*94*/	{ "setz",  TRUE,  NONE,  op1(Eb),     0 },
210/*95*/	{ "setnz", TRUE,  NONE,  op1(Eb),     0 },
211/*96*/	{ "setbe", TRUE,  NONE,  op1(Eb),     0 },
212/*97*/	{ "setnbe",TRUE,  NONE,  op1(Eb),     0 },
213
214/*98*/	{ "sets",  TRUE,  NONE,  op1(Eb),     0 },
215/*99*/	{ "setns", TRUE,  NONE,  op1(Eb),     0 },
216/*9a*/	{ "setp",  TRUE,  NONE,  op1(Eb),     0 },
217/*9b*/	{ "setnp", TRUE,  NONE,  op1(Eb),     0 },
218/*9c*/	{ "setl",  TRUE,  NONE,  op1(Eb),     0 },
219/*9d*/	{ "setnl", TRUE,  NONE,  op1(Eb),     0 },
220/*9e*/	{ "setle", TRUE,  NONE,  op1(Eb),     0 },
221/*9f*/	{ "setnle",TRUE,  NONE,  op1(Eb),     0 },
222};
223
224static struct inst	db_inst_0fax[] = {
225/*a0*/	{ "push",  FALSE, NONE,  op1(Si),     0 },
226/*a1*/	{ "pop",   FALSE, NONE,  op1(Si),     0 },
227/*a2*/	{ "",      FALSE, NONE,  0,	      0 },
228/*a3*/	{ "bt",    TRUE,  LONG,  op2(E,R),    0 },
229/*a4*/	{ "shld",  TRUE,  LONG,  op3(Ib,E,R), 0 },
230/*a5*/	{ "shld",  TRUE,  LONG,  op3(CL,E,R), 0 },
231/*a6*/	{ "",      FALSE, NONE,  0,	      0 },
232/*a7*/	{ "",      FALSE, NONE,  0,	      0 },
233
234/*a8*/	{ "push",  FALSE, NONE,  op1(Si),     0 },
235/*a9*/	{ "pop",   FALSE, NONE,  op1(Si),     0 },
236/*aa*/	{ "",      FALSE, NONE,  0,	      0 },
237/*ab*/	{ "bts",   TRUE,  LONG,  op2(E,R),    0 },
238/*ac*/	{ "shrd",  TRUE,  LONG,  op3(Ib,E,R), 0 },
239/*ad*/	{ "shrd",  TRUE,  LONG,  op3(CL,E,R), 0 },
240/*a6*/	{ "",      FALSE, NONE,  0,	      0 },
241/*a7*/	{ "imul",  TRUE,  LONG,  op2(E,R),    0 },
242};
243
244static struct inst	db_inst_0fbx[] = {
245/*b0*/	{ "",      FALSE, NONE,  0,	      0 },
246/*b1*/	{ "",      FALSE, NONE,  0,	      0 },
247/*b2*/	{ "lss",   TRUE,  LONG,  op2(E, R),   0 },
248/*b3*/	{ "bts",   TRUE,  LONG,  op2(R, E),   0 },
249/*b4*/	{ "lfs",   TRUE,  LONG,  op2(E, R),   0 },
250/*b5*/	{ "lgs",   TRUE,  LONG,  op2(E, R),   0 },
251/*b6*/	{ "movzb", TRUE,  LONG,  op2(E, R),   0 },
252/*b7*/	{ "movzw", TRUE,  LONG,  op2(E, R),   0 },
253
254/*b8*/	{ "",      FALSE, NONE,  0,	      0 },
255/*b9*/	{ "",      FALSE, NONE,  0,	      0 },
256/*ba*/	{ "",      TRUE,  LONG,  op2(Ib, E),  (char *)db_Grp8 },
257/*bb*/	{ "btc",   TRUE,  LONG,  op2(R, E),   0 },
258/*bc*/	{ "bsf",   TRUE,  LONG,  op2(E, R),   0 },
259/*bd*/	{ "bsr",   TRUE,  LONG,  op2(E, R),   0 },
260/*be*/	{ "movsb", TRUE,  LONG,  op2(E, R),   0 },
261/*bf*/	{ "movsw", TRUE,  LONG,  op2(E, R),   0 },
262};
263
264static struct inst	db_inst_0fcx[] = {
265/*c0*/	{ "xadd",  TRUE,  BYTE,	 op2(R, E),   0 },
266/*c1*/	{ "xadd",  TRUE,  LONG,	 op2(R, E),   0 },
267/*c2*/	{ "",	   FALSE, NONE,	 0,	      0 },
268/*c3*/	{ "",	   FALSE, NONE,	 0,	      0 },
269/*c4*/	{ "",	   FALSE, NONE,	 0,	      0 },
270/*c5*/	{ "",	   FALSE, NONE,	 0,	      0 },
271/*c6*/	{ "",	   FALSE, NONE,	 0,	      0 },
272/*c7*/	{ "",	   FALSE, NONE,	 0,	      0 },
273/*c8*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
274/*c9*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
275/*ca*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
276/*cb*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
277/*cc*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
278/*cd*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
279/*ce*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
280/*cf*/	{ "bswap", FALSE, LONG,  op1(Ri),     0 },
281};
282
283static struct inst	db_inst_0fdx[] = {
284/*c0*/	{ "cmpxchg",TRUE, BYTE,	 op2(R, E),   0 },
285/*c1*/	{ "cmpxchg",TRUE, LONG,	 op2(R, E),   0 },
286/*c2*/	{ "",	   FALSE, NONE,	 0,	      0 },
287/*c3*/	{ "",	   FALSE, NONE,	 0,	      0 },
288/*c4*/	{ "",	   FALSE, NONE,	 0,	      0 },
289/*c5*/	{ "",	   FALSE, NONE,	 0,	      0 },
290/*c6*/	{ "",	   FALSE, NONE,	 0,	      0 },
291/*c7*/	{ "",	   FALSE, NONE,	 0,	      0 },
292/*c8*/	{ "",	   FALSE, NONE,	 0,	      0 },
293/*c9*/	{ "",	   FALSE, NONE,	 0,	      0 },
294/*ca*/	{ "",	   FALSE, NONE,	 0,	      0 },
295/*cb*/	{ "",	   FALSE, NONE,	 0,	      0 },
296/*cc*/	{ "",	   FALSE, NONE,	 0,	      0 },
297/*cd*/	{ "",	   FALSE, NONE,	 0,	      0 },
298/*ce*/	{ "",	   FALSE, NONE,	 0,	      0 },
299/*cf*/	{ "",	   FALSE, NONE,	 0,	      0 },
300};
301
302static struct inst *db_inst_0f[] = {
303	db_inst_0f0x,
304	0,
305	db_inst_0f2x,
306	0,
307	0,
308	0,
309	0,
310	0,
311	db_inst_0f8x,
312	db_inst_0f9x,
313	db_inst_0fax,
314	db_inst_0fbx,
315	db_inst_0fcx,
316	db_inst_0fdx,
317	0,
318	0
319};
320
321static char *	db_Esc92[] = {
322	"fnop",	"",	"",	"",	"",	"",	"",	""
323};
324static char *	db_Esc93[] = {
325	"",	"",	"",	"",	"",	"",	"",	""
326};
327static char *	db_Esc94[] = {
328	"fchs",	"fabs",	"",	"",	"ftst",	"fxam",	"",	""
329};
330static char *	db_Esc95[] = {
331	"fld1",	"fldl2t","fldl2e","fldpi","fldlg2","fldln2","fldz",""
332};
333static char *	db_Esc96[] = {
334	"f2xm1","fyl2x","fptan","fpatan","fxtract","fprem1","fdecstp",
335	"fincstp"
336};
337static char *	db_Esc97[] = {
338	"fprem","fyl2xp1","fsqrt","fsincos","frndint","fscale","fsin","fcos"
339};
340
341static char *	db_Esca4[] = {
342	"",	"fucompp","",	"",	"",	"",	"",	""
343};
344
345static char *	db_Escb4[] = {
346	"",	"",	"fnclex","fninit","",	"",	"",	""
347};
348
349static char *	db_Esce3[] = {
350	"",	"fcompp","",	"",	"",	"",	"",	""
351};
352
353static char *	db_Escf4[] = {
354	"fnstsw","",	"",	"",	"",	"",	"",	""
355};
356
357static struct finst db_Esc8[] = {
358/*0*/	{ "fadd",   SNGL,  op2(STI,ST),	0 },
359/*1*/	{ "fmul",   SNGL,  op2(STI,ST),	0 },
360/*2*/	{ "fcom",   SNGL,  op2(STI,ST),	0 },
361/*3*/	{ "fcomp",  SNGL,  op2(STI,ST),	0 },
362/*4*/	{ "fsub",   SNGL,  op2(STI,ST),	0 },
363/*5*/	{ "fsubr",  SNGL,  op2(STI,ST),	0 },
364/*6*/	{ "fdiv",   SNGL,  op2(STI,ST),	0 },
365/*7*/	{ "fdivr",  SNGL,  op2(STI,ST),	0 },
366};
367
368static struct finst db_Esc9[] = {
369/*0*/	{ "fld",    SNGL,  op1(STI),	0 },
370/*1*/	{ "",       NONE,  op1(STI),	"fxch" },
371/*2*/	{ "fst",    SNGL,  op1(X),	(char *)db_Esc92 },
372/*3*/	{ "fstp",   SNGL,  op1(X),	(char *)db_Esc93 },
373/*4*/	{ "fldenv", NONE,  op1(X),	(char *)db_Esc94 },
374/*5*/	{ "fldcw",  NONE,  op1(X),	(char *)db_Esc95 },
375/*6*/	{ "fnstenv",NONE,  op1(X),	(char *)db_Esc96 },
376/*7*/	{ "fnstcw", NONE,  op1(X),	(char *)db_Esc97 },
377};
378
379static struct finst db_Esca[] = {
380/*0*/	{ "fiadd",  WORD,  0,		0 },
381/*1*/	{ "fimul",  WORD,  0,		0 },
382/*2*/	{ "ficom",  WORD,  0,		0 },
383/*3*/	{ "ficomp", WORD,  0,		0 },
384/*4*/	{ "fisub",  WORD,  op1(X),	(char *)db_Esca4 },
385/*5*/	{ "fisubr", WORD,  0,		0 },
386/*6*/	{ "fidiv",  WORD,  0,		0 },
387/*7*/	{ "fidivr", WORD,  0,		0 }
388};
389
390static struct finst db_Escb[] = {
391/*0*/	{ "fild",   WORD,  0,		0 },
392/*1*/	{ "",       NONE,  0,		0 },
393/*2*/	{ "fist",   WORD,  0,		0 },
394/*3*/	{ "fistp",  WORD,  0,		0 },
395/*4*/	{ "",       WORD,  op1(X),	(char *)db_Escb4 },
396/*5*/	{ "fld",    EXTR,  0,		0 },
397/*6*/	{ "",       WORD,  0,		0 },
398/*7*/	{ "fstp",   EXTR,  0,		0 },
399};
400
401static struct finst db_Escc[] = {
402/*0*/	{ "fadd",   DBLR,  op2(ST,STI),	0 },
403/*1*/	{ "fmul",   DBLR,  op2(ST,STI),	0 },
404/*2*/	{ "fcom",   DBLR,  op2(ST,STI),	0 },
405/*3*/	{ "fcomp",  DBLR,  op2(ST,STI),	0 },
406/*4*/	{ "fsub",   DBLR,  op2(ST,STI),	"fsubr" },
407/*5*/	{ "fsubr",  DBLR,  op2(ST,STI),	"fsub" },
408/*6*/	{ "fdiv",   DBLR,  op2(ST,STI),	"fdivr" },
409/*7*/	{ "fdivr",  DBLR,  op2(ST,STI),	"fdiv" },
410};
411
412static struct finst db_Escd[] = {
413/*0*/	{ "fld",    DBLR,  op1(STI),	"ffree" },
414/*1*/	{ "",       NONE,  0,		0 },
415/*2*/	{ "fst",    DBLR,  op1(STI),	0 },
416/*3*/	{ "fstp",   DBLR,  op1(STI),	0 },
417/*4*/	{ "frstor", NONE,  op1(STI),	"fucom" },
418/*5*/	{ "",       NONE,  op1(STI),	"fucomp" },
419/*6*/	{ "fnsave", NONE,  0,		0 },
420/*7*/	{ "fnstsw", NONE,  0,		0 },
421};
422
423static struct finst db_Esce[] = {
424/*0*/	{ "fiadd",  LONG,  op2(ST,STI),	"faddp" },
425/*1*/	{ "fimul",  LONG,  op2(ST,STI),	"fmulp" },
426/*2*/	{ "ficom",  LONG,  0,		0 },
427/*3*/	{ "ficomp", LONG,  op1(X),	(char *)db_Esce3 },
428/*4*/	{ "fisub",  LONG,  op2(ST,STI),	"fsubrp" },
429/*5*/	{ "fisubr", LONG,  op2(ST,STI),	"fsubp" },
430/*6*/	{ "fidiv",  LONG,  op2(ST,STI),	"fdivrp" },
431/*7*/	{ "fidivr", LONG,  op2(ST,STI),	"fdivp" },
432};
433
434static struct finst db_Escf[] = {
435/*0*/	{ "fild",   LONG,  0,		0 },
436/*1*/	{ "",       LONG,  0,		0 },
437/*2*/	{ "fist",   LONG,  0,		0 },
438/*3*/	{ "fistp",  LONG,  0,		0 },
439/*4*/	{ "fbld",   NONE,  op1(XA),	(char *)db_Escf4 },
440/*5*/	{ "fld",    QUAD,  0,		0 },
441/*6*/	{ "fbstp",  NONE,  0,		0 },
442/*7*/	{ "fstp",   QUAD,  0,		0 },
443};
444
445static struct finst *db_Esc_inst[] = {
446	db_Esc8, db_Esc9, db_Esca, db_Escb,
447	db_Escc, db_Escd, db_Esce, db_Escf
448};
449
450static char *	db_Grp1[] = {
451	"add",
452	"or",
453	"adc",
454	"sbb",
455	"and",
456	"sub",
457	"xor",
458	"cmp"
459};
460
461static char *	db_Grp2[] = {
462	"rol",
463	"ror",
464	"rcl",
465	"rcr",
466	"shl",
467	"shr",
468	"shl",
469	"sar"
470};
471
472static struct inst db_Grp3[] = {
473	{ "test",  TRUE, NONE, op2(I,E), 0 },
474	{ "test",  TRUE, NONE, op2(I,E), 0 },
475	{ "not",   TRUE, NONE, op1(E),   0 },
476	{ "neg",   TRUE, NONE, op1(E),   0 },
477	{ "mul",   TRUE, NONE, op2(E,A), 0 },
478	{ "imul",  TRUE, NONE, op2(E,A), 0 },
479	{ "div",   TRUE, NONE, op2(E,A), 0 },
480	{ "idiv",  TRUE, NONE, op2(E,A), 0 },
481};
482
483static struct inst	db_Grp4[] = {
484	{ "inc",   TRUE, BYTE, op1(E),   0 },
485	{ "dec",   TRUE, BYTE, op1(E),   0 },
486	{ "",      TRUE, NONE, 0,	 0 },
487	{ "",      TRUE, NONE, 0,	 0 },
488	{ "",      TRUE, NONE, 0,	 0 },
489	{ "",      TRUE, NONE, 0,	 0 },
490	{ "",      TRUE, NONE, 0,	 0 },
491	{ "",      TRUE, NONE, 0,	 0 }
492};
493
494static struct inst	db_Grp5[] = {
495	{ "inc",   TRUE, LONG, op1(E),   0 },
496	{ "dec",   TRUE, LONG, op1(E),   0 },
497	{ "call",  TRUE, NONE, op1(Eind),0 },
498	{ "lcall", TRUE, NONE, op1(Eind),0 },
499	{ "jmp",   TRUE, NONE, op1(Eind),0 },
500	{ "ljmp",  TRUE, NONE, op1(Eind),0 },
501	{ "push",  TRUE, LONG, op1(E),   0 },
502	{ "",      TRUE, NONE, 0,	 0 }
503};
504
505static struct inst db_inst_table[256] = {
506/*00*/	{ "add",   TRUE,  BYTE,  op2(R, E),  0 },
507/*01*/	{ "add",   TRUE,  LONG,  op2(R, E),  0 },
508/*02*/	{ "add",   TRUE,  BYTE,  op2(E, R),  0 },
509/*03*/	{ "add",   TRUE,  LONG,  op2(E, R),  0 },
510/*04*/	{ "add",   FALSE, BYTE,  op2(Is, A), 0 },
511/*05*/	{ "add",   FALSE, LONG,  op2(Is, A), 0 },
512/*06*/	{ "push",  FALSE, NONE,  op1(Si),    0 },
513/*07*/	{ "pop",   FALSE, NONE,  op1(Si),    0 },
514
515/*08*/	{ "or",    TRUE,  BYTE,  op2(R, E),  0 },
516/*09*/	{ "or",    TRUE,  LONG,  op2(R, E),  0 },
517/*0a*/	{ "or",    TRUE,  BYTE,  op2(E, R),  0 },
518/*0b*/	{ "or",    TRUE,  LONG,  op2(E, R),  0 },
519/*0c*/	{ "or",    FALSE, BYTE,  op2(I, A),  0 },
520/*0d*/	{ "or",    FALSE, LONG,  op2(I, A),  0 },
521/*0e*/	{ "push",  FALSE, NONE,  op1(Si),    0 },
522/*0f*/	{ "",      FALSE, NONE,  0,	     0 },
523
524/*10*/	{ "adc",   TRUE,  BYTE,  op2(R, E),  0 },
525/*11*/	{ "adc",   TRUE,  LONG,  op2(R, E),  0 },
526/*12*/	{ "adc",   TRUE,  BYTE,  op2(E, R),  0 },
527/*13*/	{ "adc",   TRUE,  LONG,  op2(E, R),  0 },
528/*14*/	{ "adc",   FALSE, BYTE,  op2(Is, A), 0 },
529/*15*/	{ "adc",   FALSE, LONG,  op2(Is, A), 0 },
530/*16*/	{ "push",  FALSE, NONE,  op1(Si),    0 },
531/*17*/	{ "pop",   FALSE, NONE,  op1(Si),    0 },
532
533/*18*/	{ "sbb",   TRUE,  BYTE,  op2(R, E),  0 },
534/*19*/	{ "sbb",   TRUE,  LONG,  op2(R, E),  0 },
535/*1a*/	{ "sbb",   TRUE,  BYTE,  op2(E, R),  0 },
536/*1b*/	{ "sbb",   TRUE,  LONG,  op2(E, R),  0 },
537/*1c*/	{ "sbb",   FALSE, BYTE,  op2(Is, A), 0 },
538/*1d*/	{ "sbb",   FALSE, LONG,  op2(Is, A), 0 },
539/*1e*/	{ "push",  FALSE, NONE,  op1(Si),    0 },
540/*1f*/	{ "pop",   FALSE, NONE,  op1(Si),    0 },
541
542/*20*/	{ "and",   TRUE,  BYTE,  op2(R, E),  0 },
543/*21*/	{ "and",   TRUE,  LONG,  op2(R, E),  0 },
544/*22*/	{ "and",   TRUE,  BYTE,  op2(E, R),  0 },
545/*23*/	{ "and",   TRUE,  LONG,  op2(E, R),  0 },
546/*24*/	{ "and",   FALSE, BYTE,  op2(I, A),  0 },
547/*25*/	{ "and",   FALSE, LONG,  op2(I, A),  0 },
548/*26*/	{ "",      FALSE, NONE,  0,	     0 },
549/*27*/	{ "aaa",   FALSE, NONE,  0,	     0 },
550
551/*28*/	{ "sub",   TRUE,  BYTE,  op2(R, E),  0 },
552/*29*/	{ "sub",   TRUE,  LONG,  op2(R, E),  0 },
553/*2a*/	{ "sub",   TRUE,  BYTE,  op2(E, R),  0 },
554/*2b*/	{ "sub",   TRUE,  LONG,  op2(E, R),  0 },
555/*2c*/	{ "sub",   FALSE, BYTE,  op2(Is, A), 0 },
556/*2d*/	{ "sub",   FALSE, LONG,  op2(Is, A), 0 },
557/*2e*/	{ "",      FALSE, NONE,  0,	     0 },
558/*2f*/	{ "das",   FALSE, NONE,  0,	     0 },
559
560/*30*/	{ "xor",   TRUE,  BYTE,  op2(R, E),  0 },
561/*31*/	{ "xor",   TRUE,  LONG,  op2(R, E),  0 },
562/*32*/	{ "xor",   TRUE,  BYTE,  op2(E, R),  0 },
563/*33*/	{ "xor",   TRUE,  LONG,  op2(E, R),  0 },
564/*34*/	{ "xor",   FALSE, BYTE,  op2(I, A),  0 },
565/*35*/	{ "xor",   FALSE, LONG,  op2(I, A),  0 },
566/*36*/	{ "",      FALSE, NONE,  0,	     0 },
567/*37*/	{ "daa",   FALSE, NONE,  0,	     0 },
568
569/*38*/	{ "cmp",   TRUE,  BYTE,  op2(R, E),  0 },
570/*39*/	{ "cmp",   TRUE,  LONG,  op2(R, E),  0 },
571/*3a*/	{ "cmp",   TRUE,  BYTE,  op2(E, R),  0 },
572/*3b*/	{ "cmp",   TRUE,  LONG,  op2(E, R),  0 },
573/*3c*/	{ "cmp",   FALSE, BYTE,  op2(Is, A), 0 },
574/*3d*/	{ "cmp",   FALSE, LONG,  op2(Is, A), 0 },
575/*3e*/	{ "",      FALSE, NONE,  0,	     0 },
576/*3f*/	{ "aas",   FALSE, NONE,  0,	     0 },
577
578/*40*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
579/*41*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
580/*42*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
581/*43*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
582/*44*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
583/*45*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
584/*46*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
585/*47*/	{ "inc",   FALSE, LONG,  op1(Ri),    0 },
586
587/*48*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
588/*49*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
589/*4a*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
590/*4b*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
591/*4c*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
592/*4d*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
593/*4e*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
594/*4f*/	{ "dec",   FALSE, LONG,  op1(Ri),    0 },
595
596/*50*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
597/*51*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
598/*52*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
599/*53*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
600/*54*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
601/*55*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
602/*56*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
603/*57*/	{ "push",  FALSE, LONG,  op1(Ri),    0 },
604
605/*58*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
606/*59*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
607/*5a*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
608/*5b*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
609/*5c*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
610/*5d*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
611/*5e*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
612/*5f*/	{ "pop",   FALSE, LONG,  op1(Ri),    0 },
613
614/*60*/	{ "pusha", FALSE, LONG,  0,	     0 },
615/*61*/	{ "popa",  FALSE, LONG,  0,	     0 },
616/*62*/  { "bound", TRUE,  LONG,  op2(E, R),  0 },
617/*63*/	{ "arpl",  TRUE,  NONE,  op2(Ew,Rw), 0 },
618
619/*64*/	{ "",      FALSE, NONE,  0,	     0 },
620/*65*/	{ "",      FALSE, NONE,  0,	     0 },
621/*66*/	{ "",      FALSE, NONE,  0,	     0 },
622/*67*/	{ "",      FALSE, NONE,  0,	     0 },
623
624/*68*/	{ "push",  FALSE, LONG,  op1(I),     0 },
625/*69*/  { "imul",  TRUE,  LONG,  op3(I,E,R), 0 },
626/*6a*/	{ "push",  FALSE, LONG,  op1(Ib),    0 },
627/*6b*/  { "imul",  TRUE,  LONG,  op3(Ibs,E,R),0 },
628/*6c*/	{ "ins",   FALSE, BYTE,  op2(DX, DI), 0 },
629/*6d*/	{ "ins",   FALSE, LONG,  op2(DX, DI), 0 },
630/*6e*/	{ "outs",  FALSE, BYTE,  op2(SI, DX), 0 },
631/*6f*/	{ "outs",  FALSE, LONG,  op2(SI, DX), 0 },
632
633/*70*/	{ "jo",    FALSE, NONE,  op1(Db),     0 },
634/*71*/	{ "jno",   FALSE, NONE,  op1(Db),     0 },
635/*72*/	{ "jb",    FALSE, NONE,  op1(Db),     0 },
636/*73*/	{ "jnb",   FALSE, NONE,  op1(Db),     0 },
637/*74*/	{ "jz",    FALSE, NONE,  op1(Db),     0 },
638/*75*/	{ "jnz",   FALSE, NONE,  op1(Db),     0 },
639/*76*/	{ "jbe",   FALSE, NONE,  op1(Db),     0 },
640/*77*/	{ "jnbe",  FALSE, NONE,  op1(Db),     0 },
641
642/*78*/	{ "js",    FALSE, NONE,  op1(Db),     0 },
643/*79*/	{ "jns",   FALSE, NONE,  op1(Db),     0 },
644/*7a*/	{ "jp",    FALSE, NONE,  op1(Db),     0 },
645/*7b*/	{ "jnp",   FALSE, NONE,  op1(Db),     0 },
646/*7c*/	{ "jl",    FALSE, NONE,  op1(Db),     0 },
647/*7d*/	{ "jnl",   FALSE, NONE,  op1(Db),     0 },
648/*7e*/	{ "jle",   FALSE, NONE,  op1(Db),     0 },
649/*7f*/	{ "jnle",  FALSE, NONE,  op1(Db),     0 },
650
651/*80*/  { "",	   TRUE,  BYTE,  op2(I, E),   (char *)db_Grp1 },
652/*81*/  { "",	   TRUE,  LONG,  op2(I, E),   (char *)db_Grp1 },
653/*82*/  { "",	   TRUE,  BYTE,  op2(Is,E),   (char *)db_Grp1 },
654/*83*/  { "",	   TRUE,  LONG,  op2(Ibs,E),  (char *)db_Grp1 },
655/*84*/	{ "test",  TRUE,  BYTE,  op2(R, E),   0 },
656/*85*/	{ "test",  TRUE,  LONG,  op2(R, E),   0 },
657/*86*/	{ "xchg",  TRUE,  BYTE,  op2(R, E),   0 },
658/*87*/	{ "xchg",  TRUE,  LONG,  op2(R, E),   0 },
659
660/*88*/	{ "mov",   TRUE,  BYTE,  op2(R, E),   0 },
661/*89*/	{ "mov",   TRUE,  LONG,  op2(R, E),   0 },
662/*8a*/	{ "mov",   TRUE,  BYTE,  op2(E, R),   0 },
663/*8b*/	{ "mov",   TRUE,  LONG,  op2(E, R),   0 },
664/*8c*/  { "mov",   TRUE,  NONE,  op2(S, Ew),  0 },
665/*8d*/	{ "lea",   TRUE,  LONG,  op2(E, R),   0 },
666/*8e*/	{ "mov",   TRUE,  NONE,  op2(Ew, S),  0 },
667/*8f*/	{ "pop",   TRUE,  LONG,  op1(E),      0 },
668
669/*90*/	{ "nop",   FALSE, NONE,  0,	      0 },
670/*91*/	{ "xchg",  FALSE, LONG,  op2(A, Ri),  0 },
671/*92*/	{ "xchg",  FALSE, LONG,  op2(A, Ri),  0 },
672/*93*/	{ "xchg",  FALSE, LONG,  op2(A, Ri),  0 },
673/*94*/	{ "xchg",  FALSE, LONG,  op2(A, Ri),  0 },
674/*95*/	{ "xchg",  FALSE, LONG,  op2(A, Ri),  0 },
675/*96*/	{ "xchg",  FALSE, LONG,  op2(A, Ri),  0 },
676/*97*/	{ "xchg",  FALSE, LONG,  op2(A, Ri),  0 },
677
678/*98*/	{ "cbw",   FALSE, SDEP,  0,	      "cwde" },	/* cbw/cwde */
679/*99*/	{ "cwd",   FALSE, SDEP,  0,	      "cdq"  },	/* cwd/cdq */
680/*9a*/	{ "lcall", FALSE, NONE,  op1(OS),     0 },
681/*9b*/	{ "wait",  FALSE, NONE,  0,	      0 },
682/*9c*/	{ "pushf", FALSE, LONG,  0,	      0 },
683/*9d*/	{ "popf",  FALSE, LONG,  0,	      0 },
684/*9e*/	{ "sahf",  FALSE, NONE,  0,	      0 },
685/*9f*/	{ "lahf",  FALSE, NONE,  0,	      0 },
686
687/*a0*/	{ "mov",   FALSE, BYTE,  op2(O, A),   0 },
688/*a1*/	{ "mov",   FALSE, LONG,  op2(O, A),   0 },
689/*a2*/	{ "mov",   FALSE, BYTE,  op2(A, O),   0 },
690/*a3*/	{ "mov",   FALSE, LONG,  op2(A, O),   0 },
691/*a4*/	{ "movs",  FALSE, BYTE,  op2(SI,DI),  0 },
692/*a5*/	{ "movs",  FALSE, LONG,  op2(SI,DI),  0 },
693/*a6*/	{ "cmps",  FALSE, BYTE,  op2(SI,DI),  0 },
694/*a7*/	{ "cmps",  FALSE, LONG,  op2(SI,DI),  0 },
695
696/*a8*/	{ "test",  FALSE, BYTE,  op2(I, A),   0 },
697/*a9*/	{ "test",  FALSE, LONG,  op2(I, A),   0 },
698/*aa*/	{ "stos",  FALSE, BYTE,  op1(DI),     0 },
699/*ab*/	{ "stos",  FALSE, LONG,  op1(DI),     0 },
700/*ac*/	{ "lods",  FALSE, BYTE,  op1(SI),     0 },
701/*ad*/	{ "lods",  FALSE, LONG,  op1(SI),     0 },
702/*ae*/	{ "scas",  FALSE, BYTE,  op1(SI),     0 },
703/*af*/	{ "scas",  FALSE, LONG,  op1(SI),     0 },
704
705/*b0*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
706/*b1*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
707/*b2*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
708/*b3*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
709/*b4*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
710/*b5*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
711/*b6*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
712/*b7*/	{ "mov",   FALSE, BYTE,  op2(I, Ri),  0 },
713
714/*b8*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
715/*b9*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
716/*ba*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
717/*bb*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
718/*bc*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
719/*bd*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
720/*be*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
721/*bf*/	{ "mov",   FALSE, LONG,  op2(I, Ri),  0 },
722
723/*c0*/	{ "",	   TRUE,  BYTE,  op2(Ib, E),  (char *)db_Grp2 },
724/*c1*/	{ "",	   TRUE,  LONG,  op2(Ib, E),  (char *)db_Grp2 },
725/*c2*/	{ "ret",   FALSE, NONE,  op1(Iw),     0 },
726/*c3*/	{ "ret",   FALSE, NONE,  0,	      0 },
727/*c4*/	{ "les",   TRUE,  LONG,  op2(E, R),   0 },
728/*c5*/	{ "lds",   TRUE,  LONG,  op2(E, R),   0 },
729/*c6*/	{ "mov",   TRUE,  BYTE,  op2(I, E),   0 },
730/*c7*/	{ "mov",   TRUE,  LONG,  op2(I, E),   0 },
731
732/*c8*/	{ "enter", FALSE, NONE,  op2(Ib, Iw), 0 },
733/*c9*/	{ "leave", FALSE, NONE,  0,           0 },
734/*ca*/	{ "lret",  FALSE, NONE,  op1(Iw),     0 },
735/*cb*/	{ "lret",  FALSE, NONE,  0,	      0 },
736/*cc*/	{ "int",   FALSE, NONE,  op1(o3),     0 },
737/*cd*/	{ "int",   FALSE, NONE,  op1(Ib),     0 },
738/*ce*/	{ "into",  FALSE, NONE,  0,	      0 },
739/*cf*/	{ "iret",  FALSE, NONE,  0,	      0 },
740
741/*d0*/	{ "",	   TRUE,  BYTE,  op2(o1, E),  (char *)db_Grp2 },
742/*d1*/	{ "",	   TRUE,  LONG,  op2(o1, E),  (char *)db_Grp2 },
743/*d2*/	{ "",	   TRUE,  BYTE,  op2(CL, E),  (char *)db_Grp2 },
744/*d3*/	{ "",	   TRUE,  LONG,  op2(CL, E),  (char *)db_Grp2 },
745/*d4*/	{ "aam",   TRUE,  NONE,  0,	      0 },
746/*d5*/	{ "aad",   TRUE,  NONE,  0,	      0 },
747/*d6*/	{ "",      FALSE, NONE,  0,	      0 },
748/*d7*/	{ "xlat",  FALSE, BYTE,  op1(BX),     0 },
749
750/*d8*/  { "",      TRUE,  NONE,  0,	      (char *)db_Esc8 },
751/*d9*/  { "",      TRUE,  NONE,  0,	      (char *)db_Esc9 },
752/*da*/  { "",      TRUE,  NONE,  0,	      (char *)db_Esca },
753/*db*/  { "",      TRUE,  NONE,  0,	      (char *)db_Escb },
754/*dc*/  { "",      TRUE,  NONE,  0,	      (char *)db_Escc },
755/*dd*/  { "",      TRUE,  NONE,  0,	      (char *)db_Escd },
756/*de*/  { "",      TRUE,  NONE,  0,	      (char *)db_Esce },
757/*df*/  { "",      TRUE,  NONE,  0,	      (char *)db_Escf },
758
759/*e0*/	{ "loopne",FALSE, NONE,  op1(Db),     0 },
760/*e1*/	{ "loope", FALSE, NONE,  op1(Db),     0 },
761/*e2*/	{ "loop",  FALSE, NONE,  op1(Db),     0 },
762/*e3*/	{ "jcxz",  FALSE, SDEP,  op1(Db),     "jecxz" },
763/*e4*/	{ "in",    FALSE, BYTE,  op2(Ib, A),  0 },
764/*e5*/	{ "in",    FALSE, LONG,  op2(Ib, A) , 0 },
765/*e6*/	{ "out",   FALSE, BYTE,  op2(A, Ib),  0 },
766/*e7*/	{ "out",   FALSE, LONG,  op2(A, Ib) , 0 },
767
768/*e8*/	{ "call",  FALSE, NONE,  op1(Dl),     0 },
769/*e9*/	{ "jmp",   FALSE, NONE,  op1(Dl),     0 },
770/*ea*/	{ "ljmp",  FALSE, NONE,  op1(OS),     0 },
771/*eb*/	{ "jmp",   FALSE, NONE,  op1(Db),     0 },
772/*ec*/	{ "in",    FALSE, BYTE,  op2(DX, A),  0 },
773/*ed*/	{ "in",    FALSE, LONG,  op2(DX, A) , 0 },
774/*ee*/	{ "out",   FALSE, BYTE,  op2(A, DX),  0 },
775/*ef*/	{ "out",   FALSE, LONG,  op2(A, DX) , 0 },
776
777/*f0*/	{ "",      FALSE, NONE,  0,	     0 },
778/*f1*/	{ "",      FALSE, NONE,  0,	     0 },
779/*f2*/	{ "",      FALSE, NONE,  0,	     0 },
780/*f3*/	{ "",      FALSE, NONE,  0,	     0 },
781/*f4*/	{ "hlt",   FALSE, NONE,  0,	     0 },
782/*f5*/	{ "cmc",   FALSE, NONE,  0,	     0 },
783/*f6*/	{ "",      TRUE,  BYTE,  0,	     (char *)db_Grp3 },
784/*f7*/	{ "",	   TRUE,  LONG,  0,	     (char *)db_Grp3 },
785
786/*f8*/	{ "clc",   FALSE, NONE,  0,	     0 },
787/*f9*/	{ "stc",   FALSE, NONE,  0,	     0 },
788/*fa*/	{ "cli",   FALSE, NONE,  0,	     0 },
789/*fb*/	{ "sti",   FALSE, NONE,  0,	     0 },
790/*fc*/	{ "cld",   FALSE, NONE,  0,	     0 },
791/*fd*/	{ "std",   FALSE, NONE,  0,	     0 },
792/*fe*/	{ "",	   TRUE,  NONE,  0,	     (char *)db_Grp4 },
793/*ff*/	{ "",	   TRUE,  NONE,  0,	     (char *)db_Grp5 },
794};
795
796static struct inst	db_bad_inst =
797	{ "???",   FALSE, NONE,  0,	      0 }
798;
799
800#define	f_mod(byte)	((byte)>>6)
801#define	f_reg(byte)	(((byte)>>3)&0x7)
802#define	f_rm(byte)	((byte)&0x7)
803
804#define	sib_ss(byte)	((byte)>>6)
805#define	sib_index(byte)	(((byte)>>3)&0x7)
806#define	sib_base(byte)	((byte)&0x7)
807
808struct i_addr {
809	int		is_reg;	/* if reg, reg number is in 'disp' */
810	int		disp;
811	char *		base;
812	char *		index;
813	int		ss;
814};
815
816static char *	db_index_reg_16[8] = {
817	"%bx,%si",
818	"%bx,%di",
819	"%bp,%si",
820	"%bp,%di",
821	"%si",
822	"%di",
823	"%bp",
824	"%bx"
825};
826
827static char *	db_reg[3][8] = {
828	"%al",  "%cl",  "%dl",  "%bl",  "%ah",  "%ch",  "%dh",  "%bh",
829	"%ax",  "%cx",  "%dx",  "%bx",  "%sp",  "%bp",  "%si",  "%di",
830	"%eax", "%ecx", "%edx", "%ebx", "%esp", "%ebp", "%esi", "%edi"
831};
832
833static char *	db_seg_reg[8] = {
834	"%es", "%cs", "%ss", "%ds", "%fs", "%gs", "", ""
835};
836
837/*
838 * lengths for size attributes
839 */
840static int db_lengths[] = {
841	1,	/* BYTE */
842	2,	/* WORD */
843	4,	/* LONG */
844	8,	/* QUAD */
845	4,	/* SNGL */
846	8,	/* DBLR */
847	10,	/* EXTR */
848};
849
850#define	get_value_inc(result, loc, size, is_signed) \
851	result = db_get_value((loc), (size), (is_signed)); \
852	(loc) += (size);
853
854static db_addr_t
855		db_disasm_esc __P((db_addr_t loc, int inst, int short_addr,
856				   int size, char *seg));
857static void	db_print_address __P((char *seg, int size,
858				      struct i_addr *addrp));
859static db_addr_t
860		db_read_address __P((db_addr_t loc, int short_addr,
861				     int regmodrm, struct i_addr *addrp));
862
863/*
864 * Read address at location and return updated location.
865 */
866static db_addr_t
867db_read_address(loc, short_addr, regmodrm, addrp)
868	db_addr_t	loc;
869	int		short_addr;
870	int		regmodrm;
871	struct i_addr	*addrp;		/* out */
872{
873	int		mod, rm, sib, index, disp;
874
875	mod = f_mod(regmodrm);
876	rm  = f_rm(regmodrm);
877
878	if (mod == 3) {
879	    addrp->is_reg = TRUE;
880	    addrp->disp = rm;
881	    return (loc);
882	}
883	addrp->is_reg = FALSE;
884	addrp->index = 0;
885
886	if (short_addr) {
887	    addrp->index = 0;
888	    addrp->ss = 0;
889	    switch (mod) {
890		case 0:
891		    if (rm == 6) {
892			get_value_inc(disp, loc, 2, TRUE);
893			addrp->disp = disp;
894			addrp->base = 0;
895		    }
896		    else {
897			addrp->disp = 0;
898			addrp->base = db_index_reg_16[rm];
899		    }
900		    break;
901		case 1:
902		    get_value_inc(disp, loc, 1, TRUE);
903		    addrp->disp = disp;
904		    addrp->base = db_index_reg_16[rm];
905		    break;
906		case 2:
907		    get_value_inc(disp, loc, 2, TRUE);
908		    addrp->disp = disp;
909		    addrp->base = db_index_reg_16[rm];
910		    break;
911	    }
912	}
913	else {
914	    if (mod != 3 && rm == 4) {
915		get_value_inc(sib, loc, 1, FALSE);
916		rm = sib_base(sib);
917		index = sib_index(sib);
918		if (index != 4)
919		    addrp->index = db_reg[LONG][index];
920		addrp->ss = sib_ss(sib);
921	    }
922
923	    switch (mod) {
924		case 0:
925		    if (rm == 5) {
926			get_value_inc(addrp->disp, loc, 4, FALSE);
927			addrp->base = 0;
928		    }
929		    else {
930			addrp->disp = 0;
931			addrp->base = db_reg[LONG][rm];
932		    }
933		    break;
934
935		case 1:
936		    get_value_inc(disp, loc, 1, TRUE);
937		    addrp->disp = disp;
938		    addrp->base = db_reg[LONG][rm];
939		    break;
940
941		case 2:
942		    get_value_inc(disp, loc, 4, FALSE);
943		    addrp->disp = disp;
944		    addrp->base = db_reg[LONG][rm];
945		    break;
946	    }
947	}
948	return (loc);
949}
950
951static void
952db_print_address(seg, size, addrp)
953	char *		seg;
954	int		size;
955	struct i_addr	*addrp;
956{
957	if (addrp->is_reg) {
958	    db_printf("%s", db_reg[size][addrp->disp]);
959	    return;
960	}
961
962	if (seg) {
963	    db_printf("%s:", seg);
964	}
965
966	db_printsym((db_addr_t)addrp->disp, DB_STGY_ANY);
967	if (addrp->base != 0 || addrp->index != 0) {
968	    db_printf("(");
969	    if (addrp->base)
970		db_printf("%s", addrp->base);
971	    if (addrp->index)
972		db_printf(",%s,%d", addrp->index, 1<<addrp->ss);
973	    db_printf(")");
974	}
975}
976
977/*
978 * Disassemble floating-point ("escape") instruction
979 * and return updated location.
980 */
981static db_addr_t
982db_disasm_esc(loc, inst, short_addr, size, seg)
983	db_addr_t	loc;
984	int		inst;
985	int		short_addr;
986	int		size;
987	char *		seg;
988{
989	int		regmodrm;
990	struct finst	*fp;
991	int		mod;
992	struct i_addr	address;
993	char *		name;
994
995	get_value_inc(regmodrm, loc, 1, FALSE);
996	fp = &db_Esc_inst[inst - 0xd8][f_reg(regmodrm)];
997	mod = f_mod(regmodrm);
998	if (mod != 3) {
999	    /*
1000	     * Normal address modes.
1001	     */
1002	    loc = db_read_address(loc, short_addr, regmodrm, &address);
1003	    db_printf(fp->f_name);
1004	    switch(fp->f_size) {
1005		case SNGL:
1006		    db_printf("s");
1007		    break;
1008		case DBLR:
1009		    db_printf("l");
1010		    break;
1011		case EXTR:
1012		    db_printf("t");
1013		    break;
1014		case WORD:
1015		    db_printf("s");
1016		    break;
1017		case LONG:
1018		    db_printf("l");
1019		    break;
1020		case QUAD:
1021		    db_printf("q");
1022		    break;
1023		default:
1024		    break;
1025	    }
1026	    db_printf("\t");
1027	    db_print_address(seg, BYTE, &address);
1028	}
1029	else {
1030	    /*
1031	     * 'reg-reg' - special formats
1032	     */
1033	    switch (fp->f_rrmode) {
1034		case op2(ST,STI):
1035		    name = (fp->f_rrname) ? fp->f_rrname : fp->f_name;
1036		    db_printf("%s\t%%st,%%st(%d)",name,f_rm(regmodrm));
1037		    break;
1038		case op2(STI,ST):
1039		    name = (fp->f_rrname) ? fp->f_rrname : fp->f_name;
1040		    db_printf("%s\t%%st(%d),%%st",name, f_rm(regmodrm));
1041		    break;
1042		case op1(STI):
1043		    name = (fp->f_rrname) ? fp->f_rrname : fp->f_name;
1044		    db_printf("%s\t%%st(%d)",name, f_rm(regmodrm));
1045		    break;
1046		case op1(X):
1047		    db_printf("%s", ((char **)fp->f_rrname)[f_rm(regmodrm)]);
1048		    break;
1049		case op1(XA):
1050		    db_printf("%s\t%%ax",
1051				 ((char **)fp->f_rrname)[f_rm(regmodrm)]);
1052		    break;
1053		default:
1054		    db_printf("<bad instruction>");
1055		    break;
1056	    }
1057	}
1058
1059	return (loc);
1060}
1061
1062/*
1063 * Disassemble instruction at 'loc'.  'altfmt' specifies an
1064 * (optional) alternate format.  Return address of start of
1065 * next instruction.
1066 */
1067db_addr_t
1068db_disasm(loc, altfmt)
1069	db_addr_t	loc;
1070	boolean_t	altfmt;
1071{
1072	int	inst;
1073	int	size;
1074	int	short_addr;
1075	char *	seg;
1076	struct inst *	ip;
1077	char *	i_name;
1078	int	i_size;
1079	int	i_mode;
1080	int	regmodrm = 0;
1081	boolean_t	first;
1082	int	displ;
1083	int	prefix;
1084	int	imm;
1085	int	imm2;
1086	int	len;
1087	struct i_addr	address;
1088
1089	get_value_inc(inst, loc, 1, FALSE);
1090	short_addr = FALSE;
1091	size = LONG;
1092	seg = 0;
1093
1094	/*
1095	 * Get prefixes
1096	 */
1097	prefix = TRUE;
1098	do {
1099	    switch (inst) {
1100		case 0x66:		/* data16 */
1101		    size = WORD;
1102		    break;
1103		case 0x67:
1104		    short_addr = TRUE;
1105		    break;
1106		case 0x26:
1107		    seg = "%es";
1108		    break;
1109		case 0x36:
1110		    seg = "%ss";
1111		    break;
1112		case 0x2e:
1113		    seg = "%cs";
1114		    break;
1115		case 0x3e:
1116		    seg = "%ds";
1117		    break;
1118		case 0x64:
1119		    seg = "%fs";
1120		    break;
1121		case 0x65:
1122		    seg = "%gs";
1123		    break;
1124		case 0xf0:
1125		    db_printf("lock ");
1126		    break;
1127		case 0xf2:
1128		    db_printf("repne ");
1129		    break;
1130		case 0xf3:
1131		    db_printf("repe ");	/* XXX repe VS rep */
1132		    break;
1133		default:
1134		    prefix = FALSE;
1135		    break;
1136	    }
1137	    if (prefix) {
1138		get_value_inc(inst, loc, 1, FALSE);
1139	    }
1140	} while (prefix);
1141
1142	if (inst >= 0xd8 && inst <= 0xdf) {
1143	    loc = db_disasm_esc(loc, inst, short_addr, size, seg);
1144	    db_printf("\n");
1145	    return (loc);
1146	}
1147
1148	if (inst == 0x0f) {
1149	    get_value_inc(inst, loc, 1, FALSE);
1150	    ip = db_inst_0f[inst>>4];
1151	    if (ip == 0) {
1152		ip = &db_bad_inst;
1153	    }
1154	    else {
1155		ip = &ip[inst&0xf];
1156	    }
1157	}
1158	else
1159	    ip = &db_inst_table[inst];
1160
1161	if (ip->i_has_modrm) {
1162	    get_value_inc(regmodrm, loc, 1, FALSE);
1163	    loc = db_read_address(loc, short_addr, regmodrm, &address);
1164	}
1165
1166	i_name = ip->i_name;
1167	i_size = ip->i_size;
1168	i_mode = ip->i_mode;
1169
1170	if (ip->i_extra == (char *)db_Grp1 ||
1171	    ip->i_extra == (char *)db_Grp2 ||
1172	    ip->i_extra == (char *)db_Grp6 ||
1173	    ip->i_extra == (char *)db_Grp7 ||
1174	    ip->i_extra == (char *)db_Grp8) {
1175	    i_name = ((char **)ip->i_extra)[f_reg(regmodrm)];
1176	}
1177	else if (ip->i_extra == (char *)db_Grp3) {
1178	    ip = (struct inst *)ip->i_extra;
1179	    ip = &ip[f_reg(regmodrm)];
1180	    i_name = ip->i_name;
1181	    i_mode = ip->i_mode;
1182	}
1183	else if (ip->i_extra == (char *)db_Grp4 ||
1184		 ip->i_extra == (char *)db_Grp5) {
1185	    ip = (struct inst *)ip->i_extra;
1186	    ip = &ip[f_reg(regmodrm)];
1187	    i_name = ip->i_name;
1188	    i_mode = ip->i_mode;
1189	    i_size = ip->i_size;
1190	}
1191
1192	if (i_size == SDEP) {
1193	    if (size == WORD)
1194		db_printf(i_name);
1195	    else
1196		db_printf(ip->i_extra);
1197	}
1198	else {
1199	    db_printf(i_name);
1200	    if (i_size != NONE) {
1201		if (i_size == BYTE) {
1202		    db_printf("b");
1203		    size = BYTE;
1204		}
1205		else if (i_size == WORD) {
1206		    db_printf("w");
1207		    size = WORD;
1208		}
1209		else if (size == WORD)
1210		    db_printf("w");
1211		else
1212		    db_printf("l");
1213	    }
1214	}
1215	db_printf("\t");
1216	for (first = TRUE;
1217	     i_mode != 0;
1218	     i_mode >>= 8, first = FALSE)
1219	{
1220	    if (!first)
1221		db_printf(",");
1222
1223	    switch (i_mode & 0xFF) {
1224
1225		case E:
1226		    db_print_address(seg, size, &address);
1227		    break;
1228
1229		case Eind:
1230		    db_printf("*");
1231		    db_print_address(seg, size, &address);
1232		    break;
1233
1234		case Ew:
1235		    db_print_address(seg, WORD, &address);
1236		    break;
1237
1238		case Eb:
1239		    db_print_address(seg, BYTE, &address);
1240		    break;
1241
1242		case R:
1243		    db_printf("%s", db_reg[size][f_reg(regmodrm)]);
1244		    break;
1245
1246		case Rw:
1247		    db_printf("%s", db_reg[WORD][f_reg(regmodrm)]);
1248		    break;
1249
1250		case Ri:
1251		    db_printf("%s", db_reg[size][f_rm(inst)]);
1252		    break;
1253
1254		case S:
1255		    db_printf("%s", db_seg_reg[f_reg(regmodrm)]);
1256		    break;
1257
1258		case Si:
1259		    db_printf("%s", db_seg_reg[f_reg(inst)]);
1260		    break;
1261
1262		case A:
1263		    db_printf("%s", db_reg[size][0]);	/* acc */
1264		    break;
1265
1266		case BX:
1267		    if (seg)
1268			db_printf("%s:", seg);
1269		    db_printf("(%s)", short_addr ? "%bx" : "%ebx");
1270		    break;
1271
1272		case CL:
1273		    db_printf("%%cl");
1274		    break;
1275
1276		case DX:
1277		    db_printf("%%dx");
1278		    break;
1279
1280		case SI:
1281		    if (seg)
1282			db_printf("%s:", seg);
1283		    db_printf("(%s)", short_addr ? "%si" : "%esi");
1284		    break;
1285
1286		case DI:
1287		    db_printf("%%es:(%s)", short_addr ? "%di" : "%edi");
1288		    break;
1289
1290		case CR:
1291		    db_printf("%%cr%d", f_reg(regmodrm));
1292		    break;
1293
1294		case DR:
1295		    db_printf("%%dr%d", f_reg(regmodrm));
1296		    break;
1297
1298		case TR:
1299		    db_printf("%%tr%d", f_reg(regmodrm));
1300		    break;
1301
1302		case I:
1303		    len = db_lengths[size];
1304		    get_value_inc(imm, loc, len, FALSE);/* unsigned */
1305		    db_printf("$%#n", imm);
1306		    break;
1307
1308		case Is:
1309		    len = db_lengths[size];
1310		    get_value_inc(imm, loc, len, TRUE);	/* signed */
1311		    db_printf("$%#r", imm);
1312		    break;
1313
1314		case Ib:
1315		    get_value_inc(imm, loc, 1, FALSE);	/* unsigned */
1316		    db_printf("$%#n", imm);
1317		    break;
1318
1319		case Ibs:
1320		    get_value_inc(imm, loc, 1, TRUE);	/* signed */
1321		    db_printf("$%#r", imm);
1322		    break;
1323
1324		case Iw:
1325		    get_value_inc(imm, loc, 2, FALSE);	/* unsigned */
1326		    db_printf("$%#n", imm);
1327		    break;
1328
1329		case Il:
1330		    get_value_inc(imm, loc, 4, FALSE);
1331		    db_printf("$%#n", imm);
1332		    break;
1333
1334		case O:
1335		    if (short_addr) {
1336			get_value_inc(displ, loc, 2, TRUE);
1337		    }
1338		    else {
1339			get_value_inc(displ, loc, 4, TRUE);
1340		    }
1341		    if (seg)
1342			db_printf("%s:%#r",seg, displ);
1343		    else
1344			db_printsym((db_addr_t)displ, DB_STGY_ANY);
1345		    break;
1346
1347		case Db:
1348		    get_value_inc(displ, loc, 1, TRUE);
1349		    db_printsym((db_addr_t)(displ + loc), DB_STGY_XTRN);
1350		    break;
1351
1352		case Dl:
1353		    get_value_inc(displ, loc, 4, TRUE);
1354		    db_printsym((db_addr_t)(displ + loc), DB_STGY_XTRN);
1355		    break;
1356
1357		case o1:
1358		    db_printf("$1");
1359		    break;
1360
1361		case o3:
1362		    db_printf("$3");
1363		    break;
1364
1365		case OS:
1366		    get_value_inc(imm, loc, 4, FALSE);	/* offset */
1367		    get_value_inc(imm2, loc, 2, FALSE);	/* segment */
1368		    db_printf("$%#n,%#n", imm2, imm);
1369		    break;
1370	    }
1371	}
1372
1373	if (altfmt == 0) {
1374	    if (inst == 0xe9 || inst == 0xeb) {
1375		/*
1376		 * GAS pads to longword boundary after unconditional jumps.
1377		 */
1378		loc = (loc + (4-1)) & ~(4-1);
1379	    }
1380	}
1381	db_printf("\n");
1382	return (loc);
1383}
1384
1385