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