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