usr.bin/doscmd/i386-pinsn.c

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