/* 
 * mdbdis86.c for mdb.c - 8086-386 and 8087 disassembler
 * From Bruce Evans db
 */

#include "mdb.h"
#include <stddef.h>
#include <stdio.h>
#include <sys/types.h>
#include "proto.h"

struct address_s
{
    off_t off;
    off_t base;
};

PRIVATE int bits32;
PRIVATE struct address_s uptr;

FORWARD _PROTOTYPE( u8_t  get8, (void) );
FORWARD _PROTOTYPE( u16_t get16, (void) );
FORWARD _PROTOTYPE( u32_t get32, (void) );
FORWARD _PROTOTYPE( u8_t  peek_byte,  (off_t addr) );
FORWARD _PROTOTYPE( u16_t peek_word,  (off_t addr) );
FORWARD _PROTOTYPE( int puti, (void) );
FORWARD _PROTOTYPE( int outsegaddr, (struct address_s *addr) );
FORWARD _PROTOTYPE( int outssegaddr, (struct address_s *addr) );
FORWARD _PROTOTYPE( int show1instruction , (void));

/************************* UNASM ******************************/


#define LINDIRECT	'['
#define RINDIRECT	']'

#define BASE_MASK	0x07
#define INDEX_MASK	0x38
#define INDEX_SHIFT	3
#define MOD_MASK	0xC0	/* mod reg r/m  is  mmrrrRRR */
#define REG_MOD		0xC0
#define MEM0_MOD	0x00
#define MEM1_MOD	0x40
#define MEM2_MOD	0x80
#define REG_MASK	0x38
#define REG_SHIFT	3
#define RM_MASK		0x07
#define RM_SHIFT	0
#define SS_MASK		0xC0
#define SS_SHIFT	6

#define SIGNBIT		0x02	/* opcode bits xxxxxxsw for immediates */
#define WORDBIT		0x01
#define TOREGBIT	0x02	/* opcode bit for non-immediates */

#define MAX_SIGNED_CHAR	0x7F	/* will assume 2's complement */
#define MAX_UNSIGNED_CHAR	0xFF

typedef unsigned opcode_pt;	/* promote to unsigned and not int */

typedef int reg_pt;
typedef int su16_t;
typedef int su8_pt;

FORWARD _PROTOTYPE(  su8_pt get8s , (void));
FORWARD _PROTOTYPE(  void getmodregrm , (void));
FORWARD _PROTOTYPE(  void i_00_to_3f , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_40_to_5f , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_60_to_6f , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_70_to_7f , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_80 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_88 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_90 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_98 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_a0 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_a8 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_b0 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_b8 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_c0 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_c8 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_d0 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_d8 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_e0 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_e8 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_f0 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void i_f8 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void outad , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void outad1 , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void outalorx , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void outax , (void));
FORWARD _PROTOTYPE(  void outbptr , (void));
FORWARD _PROTOTYPE(  void outbwptr , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void outea , (opcode_pt wordflags ));
FORWARD _PROTOTYPE(  void outf1 , (void));
FORWARD _PROTOTYPE(  void out32offset , (void));
FORWARD _PROTOTYPE(  void outfishy , (void));
FORWARD _PROTOTYPE(  void outgetaddr , (void));
FORWARD _PROTOTYPE(  void outimmed , (opcode_pt signwordflag ));
FORWARD _PROTOTYPE(  void outpc , (off_t pc ));
FORWARD _PROTOTYPE(  void outsegpc , (void));
FORWARD _PROTOTYPE(  void oututstr , (char *s ));
FORWARD _PROTOTYPE(  void outword , (void));
FORWARD _PROTOTYPE(  void outwptr , (void));
FORWARD _PROTOTYPE(  void outwsize , (void));
FORWARD _PROTOTYPE(  void pagef , (void));
FORWARD _PROTOTYPE(  void shift , (opcode_pt opc ));
FORWARD _PROTOTYPE(  void checkmemory , (void));
FORWARD _PROTOTYPE(  void CL , (void));
FORWARD _PROTOTYPE(  void Eb , (void));
FORWARD _PROTOTYPE(  void Ev , (void));
FORWARD _PROTOTYPE(  void EvGv , (void));
FORWARD _PROTOTYPE(  void EvIb , (void));
FORWARD _PROTOTYPE(  void Ew , (void));
FORWARD _PROTOTYPE(  void EwRw , (void));
FORWARD _PROTOTYPE(  void Gv , (void));
FORWARD _PROTOTYPE(  void Gv1 , (void));
FORWARD _PROTOTYPE(  void GvEv , (void));
FORWARD _PROTOTYPE(  void GvEw , (void));
FORWARD _PROTOTYPE(  void GvM , (void));
FORWARD _PROTOTYPE(  void GvMa , (void));
FORWARD _PROTOTYPE(  void GvMp , (void));
FORWARD _PROTOTYPE(  void Ib , (void));
FORWARD _PROTOTYPE(  void Iw , (void));
FORWARD _PROTOTYPE(  void Iv , (void));
FORWARD _PROTOTYPE(  void Jb , (void));
FORWARD _PROTOTYPE(  void Jv , (void));
FORWARD _PROTOTYPE(  void Ms , (void));

_PROTOTYPE( typedef void (*pfv_t),(opcode_pt opc ));

PRIVATE pfv_t optable[] =
{
 i_00_to_3f,
 i_00_to_3f,
 i_00_to_3f,
 i_00_to_3f,
 i_00_to_3f,
 i_00_to_3f,
 i_00_to_3f,
 i_00_to_3f,
 i_40_to_5f,
 i_40_to_5f,
 i_40_to_5f,
 i_40_to_5f,
 i_60_to_6f,
 i_60_to_6f,
 i_70_to_7f,
 i_70_to_7f,
 i_80,
 i_88,
 i_90,
 i_98,
 i_a0,
 i_a8,
 i_b0,
 i_b8,
 i_c0,
 i_c8,
 i_d0,
 i_d8,
 i_e0,
 i_e8,
 i_f0,
 i_f8,
};

PRIVATE char fishy[] = "???";
PRIVATE char movtab[] = "mov\t";

PRIVATE char *genreg[] =
{
 "al", "cl", "dl", "bl", "ah", "ch", "dh", "bh",
 "ax", "cx", "dx", "bx", "sp", "bp", "si", "di",
 "eax", "ecx", "edx", "ebx", "esp", "ebp", "esi", "edi",
};

PRIVATE char *segreg[] =
{
 "es", "cs", "ss", "ds", "fs", "gs", "?s", "?s",
};

PRIVATE char *indreg[] =
{
 "bx+si", "bx+di", "bp+si", "bp+di", "si", "di", "bp", "bx",
};

PRIVATE char *str_00_to_3f[] =
{
 /* index by (opcode >> 3) & 7 */
 "add", "or", "adc", "sbb", "and", "sub", "xor", "cmp",
};

PRIVATE char *sstr_00_to_3f[] =
{
 /* index ((opc>>2) & 0x0E) + (opc & 7) - 6 */
 "push\tes", "pop\tes", "push\tcs", "pop\tcs",
 "push\tss", "pop\tss", "push\tds", "pop\tds",
 "es:", "daa", "cs:", "das", "ss:", "aaa", "ds:", "aas",
};

PRIVATE char *sstr_0f[] =
{
 "push\tfs", "pop\tfs", fishy, "bt\t", "shld\t", "shld\t", fishy, fishy,
 "push\tgs", "pop\tgs", fishy, "bts\t", "shrd\t", "shrd\t", fishy, "imul\t",
 fishy, fishy, "lss\t", "btr\t", "lfs\t", "lgs\t", "movzx\t", "movzx\t",
 fishy, fishy, "", "btc\t", "bsf\t", "bsr\t", "movsx\t", "movsx\t",
};

PRIVATE char *ssstr_0f[] =
{
 "sldt\t", "str\t", "lldt\t", "ltr\t", "verr\t", "verw\t", fishy, fishy,
 "sgdt\t", "sidt\t", "lgdt\t", "lidt\t", "smsw\t", fishy, "lmsw\t", fishy,
 fishy, fishy, fishy, fishy, "bt\t", "bts\t", "btr\t", "btc\t",
};

PRIVATE char *str_40_to_5f[] =
{
 /* index by (opcode >> 3) & 3 */
 "inc\t", "dec\t", "push\t", "pop\t",
};

PRIVATE char *str_60_to_6f[] =
{
 "pusha", "popa", "bound\t", "arpl\t", "fs:", "gs:", "os:", "as:",
 "push\t", "imul\t", "push\t", "imul\t", "insb", "ins", "outsb", "outs",
};

PRIVATE char *str_flags[] =
{
 /* opcodes 0x70 to 0x7F, and 0x0F80 to 0x0F9F */
 "o", "no", "b", "nb", "z", "nz", "be", "a",
 "s", "ns", "pe", "po", "l", "ge", "le", "g",
};

PRIVATE char *str_98[] =
{
 "cbw", "cwd", "call\t", "wait", "pushf", "popf", "sahf", "lahf",
 "cwde", "cdq", "call\t", "wait", "pushfd", "popfd", "sahf", "lahf",
};

PRIVATE char *str_a0[] =
{
 movtab, movtab, movtab, movtab, "movsb", "movs", "cmpsb", "cmps",
};

PRIVATE char *str_a8[] =
{
 "test\t", "test\t", "stosb", "stos", "lodsb", "lods", "scasb", "scas",
};

PRIVATE char *str_c0[] =
{
 "", "", "ret\t", "ret", "les\t", "lds\t", movtab, movtab,
};

PRIVATE char *str_c8[] =
{
 "enter\t", "leave", "retf\t", "retf", "int\t3", "int\t", "into", "iret",
};

PRIVATE char *str_d0[] =
{
 "aam", "aad", "db\td6", "xlat",
};

PRIVATE char *sstr_d0[] =
{
 "rol", "ror", "rcl", "rcr", "shl", "shr", fishy, "sar",
};

PRIVATE char *str_d8[] =
{
 "fadd", "fmul", "fcom", "fcomp", "fsub", "fsubr", "fdiv", "fdivr",
 "fld", NULL, "fst", "fstp", "fldenv", "fldcw", "fstenv", "fstcw",
 "fiadd", "fimul", "ficom", "ficomp", "fisub", "fisubr", "fidiv", "fidivr",
 "fild", NULL, "fist", "fistp", NULL, "fld", NULL, "fstp",
 "fadd", "fmul", "fcom", "fcomp", "fsub", "fsubr", "fdiv", "fdivr",
 "fld", NULL, "fst", "fstp", "frstor", NULL, "fsave", "fstsw",
 "fiadd", "fimul", "ficom", "ficomp", "fisub", "fisubr", "fidiv", "fidivr",
 "fild", NULL, "fist", "fistp", "fbld", "fild", "fbstp", "fistp",
};

PRIVATE char *str1_d8[] =
{
 "fadd", "fmul", "fcom", "fcomp", "fsub", "fsubr", "fdiv", "fdivr",
 "fld", "fxch", "\0\0", NULL, "\0\10", "\0\20", "\0\30", "\0\40",
 NULL, NULL, NULL, NULL, NULL, "\0\50", NULL, NULL,
 NULL, NULL, NULL, NULL, "\0\60", NULL, NULL, NULL,
 "fadd", "fmul", NULL, NULL, "fsubr", "fsub", "fdivr", "fdiv",
 "ffree", NULL, "fst", "fstp", "fucom", "fucomp", NULL, NULL,
 "faddp", "fmulp", NULL, "\0\70", "fsubrp", "fsubp", "fdivrp", "fdivp",
 NULL, NULL, NULL, NULL, "\0\100", NULL, NULL, NULL,
};

PRIVATE unsigned char size_d8[] =
{
 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 4, 4, 14-28, 2, 14-28, 2,
 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 4, 4, 0, 10, 0, 10,
 8, 8, 8, 8, 8, 8, 8, 8, 8, 0, 8, 8, 94-108, 0, 94-108, 2,
 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 2, 2, 10, 8, 10, 8,
};

PRIVATE char *sstr_d8[] =
{
 "fnop", NULL, NULL, NULL,			/* D9D0 */
 NULL, NULL, NULL, NULL,
 "fchs", "fabs", NULL, NULL,			/* D9E0 */
 "ftst", "fxam", NULL, NULL,
 "fld1", "fldl2t", "fldl2e", "fldpi",		/* D9E8 */
 "fldlg2", "fldln2", "fldz", NULL,
 "f2xm1", "fyl2x", "fptan", "fpatan",		/* D9F0 */
 "fxtract", "fprem1", "fdecstp", "fincstp",
 "fprem", "fyl2xp1", "fsqrt", "fsincos",	/* D9F8 */
 "frndint", "fscale", "fsin", "fcos",
 NULL, "fucompp", NULL, NULL,			/* DAE8 */
 NULL, NULL, NULL, NULL,
 "feni", "fdisi", "fclex", "finit",		/* DBE0 */
 "fsetpm", NULL, NULL, NULL,
 NULL, "fcompp", NULL, NULL,			/* DED8 */
 NULL, NULL, NULL, NULL,
 NULL, NULL, NULL, NULL,			/* DFE0 */
 "fstsw\tax", NULL, NULL, NULL,
};

PRIVATE char *str_e0[] =
{
 "loopnz\t", "loopz\t", "loop\t", "jcxz\t",
 "in\t", "in\t", "out\t", "out\t",
};

PRIVATE char *str_e8[] =
{
 "call\t", "jmp\t", "jmp\t", "jmp\t",
 "in\t", "in\t", "out\t", "out\t",
};

PRIVATE char *str_f0[] =
{
 "lock\t", "db\tf1", "repnz\t", "repz\t",
 "hlt", "cmc",
 /* other 2 from sstr_f0 */
};

PRIVATE char *sstr_f0[] =
{
 "test\t", fishy, "not\t", "neg\t",
 "mul\t", "imul\t", "div\t", "idiv\t",
};

PRIVATE char *str_f8[] =
{
 "clc", "stc", "cli", "sti",
 "cld", "std",
 /* other 2 from sstr_f8 */
};

PRIVATE char *sstr_f8[] =
{
 "inc\t", "dec\t", "call\t", "call\tfar ",
 "jmp\t", "jmp\tfar ", "push\t", "???\t",
};

PRIVATE int data_seg;		/* data segment (munged name for asld) */
PRIVATE unsigned hasize;	/* half address size in bits */
PRIVATE unsigned hdefsize;
PRIVATE unsigned hosize;	/* half operand size in bits */
				/* for easy index into reg tables */
PRIVATE opcode_pt mod;
PRIVATE off_t offtable[2];
PRIVATE off_t *offptr;
PRIVATE off_t *off1ptr;
PRIVATE opcode_pt reg;
PRIVATE opcode_pt rm;

PRIVATE su8_pt get8s()
{
    u8_t got;

    if ((got = get8()) > MAX_SIGNED_CHAR)
	got -= (MAX_UNSIGNED_CHAR + 1);
    return got;
}

PRIVATE void getmodregrm()
{
    opcode_pt modregrm;
    
    modregrm = get8();
    mod = modregrm & MOD_MASK;
    reg = (modregrm & REG_MASK) >> REG_SHIFT;
    rm = (modregrm & RM_MASK) >> RM_SHIFT;
}

PRIVATE void i_00_to_3f(opc)
opcode_pt opc;
{
    opcode_pt sub;
    
    if (opc == 15)
	pagef();
    else if ((sub = opc & 7) >= 6)
    {
	outustr((sstr_00_to_3f - 6)[((opc >> 2) & 0x0E) + sub]);
	if (!(opc & 1))
	    data_seg = opc;
    }
    else
    {
	oututstr(str_00_to_3f[(opc >> 3) & 7]);
	if (sub == 4)
	{
	    outustr(genreg[0]);
	    outcomma();
	    Ib();
	}
	else if (sub == 5)
	{
	    outax();
	    outcomma();
	    Iv();
	}
	else
	    outad(sub);
    }
}

PRIVATE void i_40_to_5f(opc)
opcode_pt opc;
{
    outustr(str_40_to_5f[(opc >> 3) & 3]);
    outustr(genreg[hosize + (opc & 7)]);
}

PRIVATE void i_60_to_6f(opc)
opcode_pt opc;
{
/* most for 386, some for 286 */

    outustr((str_60_to_6f - 0x60)[opc]);
    switch (opc)
    {
    case 0x60:
    case 0x61:
	if (hosize == 16)
	    outwsize();
	break;
    case 0x62:
	GvMa();
	break;
    case 0x63:
	EwRw();
	break;
    case 0x64:
    case 0x65:
	data_seg = opc;
	break;
    case 0x66:
	hosize = (16 + 8) - hdefsize;
	break;
    case 0x67:
	hasize = (16 + 8) - hdefsize;
	break;
    case 0x68:
	outword();
	Iv();
	break;
    case 0x6A:
	outword();
	outimmed(SIGNBIT | WORDBIT);
	break;
    case 0x69:
	GvEv();
	outcomma();
	Iv();
	break;
    case 0x6B:
	GvEv();
	outcomma();
	outimmed(SIGNBIT | WORDBIT);
	break;
    case 0x6D:
    case 0x6F:
	outwsize();
	break;
    }
}

PRIVATE void i_70_to_7f(opc)
opcode_pt opc;
{
    outustr("j");
    oututstr((str_flags - 0x70)[opc]);
    Jb();
}

PRIVATE void i_80(opc)
opcode_pt opc;
{
    if (opc >= 4)
    {
	outustr(opc >= 6 ? "xchg\t" : "test\t");
	outad(opc);
    }
    else
    {
	getmodregrm();
	oututstr(str_00_to_3f[reg]);
	outbwptr(opc);
	outea(opc);
	outcomma();
	outimmed(opc);
#ifdef SIGNED_LOGICALS
	if (opc & SIGNBIT && (reg == 1 || reg == 4 || reg == 6))
	    /* and, or and xor with signe extension are not documented in some
	     * 8086 and 80286 manuals, but make sense and work
	     */
	    outfishy();
#endif
    }
}

PRIVATE void i_88(opc)
opcode_pt opc;
{
    if (opc < 4)
    {
	outustr(movtab);
	outad(opc);
    }
    else if (opc == 5)
    {
	oututstr("lea");
	GvM();
    }
    else if (opc == 7)
    {
	oututstr("pop");
	getmodregrm();
	outwptr();
	Ev();
	if (reg != 0)
	    outfishy();
    }
    else
    {
	getmodregrm();
	outustr(movtab);
	if (!(opc & TOREGBIT))
	{
	    Ev();
	    outcomma();
	}
	outustr(segreg[reg]);
	if (opc & TOREGBIT)
	{
	    outcomma();
	    Ev();
	}
    }
}

PRIVATE void i_90(opc)
opcode_pt opc;
{
    if (opc == 0)
	outustr("nop");
    else
    {
	outustr("xchg\t");
	outax();
	outcomma();
	outustr(genreg[hosize + opc]);
    }
}

PRIVATE void i_98(opc)
opcode_pt opc;
{
    outustr((str_98 - 8)[opc + hosize]);
    if (opc == 2)
	outsegpc();
}

PRIVATE void i_a0(opc)
opcode_pt opc;
{
    outustr(str_a0[opc]);
    if (opc < 4)
    {
	mod = MEM0_MOD;		/* fake */
	reg = 0;		/* fake ax */
	if (hasize == 16)
	    rm = 5;		/* fake [d16] */
	else
	    rm = 6;		/* fake [d32] */
	outad1(opc ^ TOREGBIT);
    }
    else if (opc & 1)
	outwsize();
}

PRIVATE void i_a8(opc)
opcode_pt opc;
{
    outustr(str_a8[opc]);
    if (opc < 2)
    {
	outalorx(opc);
	outcomma();
	outimmed(opc);
    }
    else if (opc & 1)
	outwsize();
}

PRIVATE void i_b0(opc)
opcode_pt opc;
{
    outustr(movtab);
    outustr(genreg[opc]);
    outcomma();
    Ib();
}

PRIVATE void i_b8(opc)
opcode_pt opc;
{
    outustr(movtab);
    outustr(genreg[hosize + opc]);
    outcomma();
    Iv();
}

PRIVATE void i_c0(opc)
opcode_pt opc;
{
    outustr(str_c0[opc]);
    if (opc >= 6)
    {
	getmodregrm();
	outbwptr(opc);
	outea(opc);
	outcomma();
	outimmed(opc & WORDBIT);
	if (reg != 0)
	    /* not completely decoded (like DEBUG) */
	    outfishy();
    }
    else if (opc >= 4)
	GvMp();
    else if (opc == 2)
	Iv();
    else if (opc < 2)
	shift(opc);
}

PRIVATE void i_c8(opc)
opcode_pt opc;
{
    outustr(str_c8[opc]);
    if (opc == 0)
    {
	Iw();
	outcomma();
	Ib();
    }
    if (opc == 2)
	Iv();
    else if (opc == 5)
	Ib();
    else if (opc == 7 && hosize == 16)
	outwsize();
}

PRIVATE void i_d0(opc)
opcode_pt opc;
{
    opcode_pt aabyte;

    if (opc < 4)
	shift(opc | 0xD0);
    else
    {
	outustr((str_d0 - 4)[opc]);
	if (opc < 6 && (aabyte = get8()) != 0x0A)
	{
	    outtab();
	    outh8(aabyte);
	    outfishy();
	}
    }
}

PRIVATE void i_d8(opc)
opcode_pt opc;
{
    opcode_pt esc;
    char *str;

    getmodregrm();
    esc = (opc << 3) | reg;
    if ((str = (mod == REG_MOD ? str1_d8 : str_d8)[esc]) == NULL)
    {
escape:
	oututstr("esc");
	outh8(esc);
	outcomma();
	outea(0);
	return;
    }
    if (*str == 0)
    {
	str = sstr_d8[str[1] + rm];
	if (str == NULL)
	    goto escape;
	outustr(str);
	return;
    }
    outustr(str);
    outtab(); 
    if (mod == REG_MOD)
    {
	if (opc == 0 && reg != 2 && reg != 3)
	    outustr("st,");
	outf1();
	if (opc == 4 || opc == 6)
	    outustr(",st");
	return; 
    }
    switch(size_d8[esc])
    {
    case 4:
	outustr("d");
    case 2:
	outwptr();
	break;
    case 8:
	outustr("q");
	outwptr();
	break;
    case 10:
	outustr("t");
	outbptr();
	break;
    }
    outea(opc);
}

PRIVATE void i_e0(opc)
opcode_pt opc;
{
    outustr(str_e0[opc]);
    if (opc < 4)
	Jb();
    else if (opc < 6)
    {
	outalorx(opc);
	outcomma();
	Ib();
    }
    else
    {
	Ib();
	outcomma();
	outalorx(opc);
    }
}

PRIVATE void i_e8(opc)
opcode_pt opc;
{
    outustr(str_e8[opc]);
    if (opc < 2)
	Jv();
    else if (opc == 2)
	outsegpc();
    else if (opc == 3)
	Jb();
    else
    {
	if (opc & TOREGBIT)
	{
	    outustr(genreg[10]);
	    outcomma();
	    outalorx(opc);
	}
	else
	{
	    outalorx(opc);
	    outcomma();
	    outustr(genreg[10]);
	}
    }
}

PRIVATE void i_f0(opc)
opcode_pt opc;
{
    if (opc < 6)
	outustr(str_f0[opc]);
    else
    {
	getmodregrm();
	outustr(sstr_f0[reg]);
	outbwptr(opc);
	outea(opc);
	if (reg == 0)
	{
	    outcomma();
	    outimmed(opc & WORDBIT);
	}
    }
}

PRIVATE void i_f8(opc)
opcode_pt opc;
{
    if (opc < 6)
	outustr(str_f8[opc]);
    else
    {
	getmodregrm();
	if (opc == 6 && reg >= 2)
	    outustr("fishy\t");
	else
	    outustr(sstr_f8[reg]);
	outbwptr(opc);
	outea(opc);
    }
}

PRIVATE void outad(opc)
opcode_pt opc;
{
    getmodregrm();
    outad1(opc);
}

PRIVATE void outad1(opc)
opcode_pt opc;
{
    if (!(opc & TOREGBIT))
    {
	outea(opc);
	outcomma();
    }
    if (opc & WORDBIT)
	Gv1();
    else
	outustr(genreg[reg]);
    if (opc & TOREGBIT)
    {
	outcomma();
	outea(opc);
    }
}

PRIVATE void outalorx(opc)
opcode_pt opc;
{
    if (opc & WORDBIT)
	outax();
    else
	outustr(genreg[0]);
}

PRIVATE void outax()
{
    outustr(genreg[hosize]);
}

PRIVATE void outbptr()
{
    outustr("byte ptr ");
}

PRIVATE void outbwptr(opc)
opcode_pt opc;
{
    if (mod != REG_MOD)
    {
	if (opc & WORDBIT)
	    outwptr();
	else
	    outbptr();
    }
}

PRIVATE void outea(wordflags)
opcode_pt wordflags;
{
    reg_pt base;
    reg_pt index;
    opcode_pt ss;
    opcode_pt ssindexbase;

    if (mod == REG_MOD)
	outustr(genreg[hosize * (wordflags & WORDBIT) + rm]);
    else
    {
	outbyte(LINDIRECT);
	if (hasize == 16)
	{
	    if (rm == 4)
	    {
		base = (ssindexbase = get8()) & BASE_MASK;
		if (mod == MEM0_MOD && base == 5)
		    outgetaddr();
		else
		    outustr((genreg + 16)[base]);
		ss = (ssindexbase & SS_MASK) >> SS_SHIFT;
		if ((index = (ssindexbase & INDEX_MASK) >> INDEX_SHIFT) != 4)
		{
		    outbyte('+');
		    outustr((genreg + 16)[index]);
		    outstr("\0\0\0*2\0*4\0*8\0" + (3 * ss));
		}
	    }
	    else if (mod == MEM0_MOD && rm == 5)
		outgetaddr();
	    else
		outustr((genreg + 16)[rm]);
	}
	else if (mod == MEM0_MOD && rm == 6)
	    outgetaddr();
	else
	    outustr(indreg[rm]);
	if (mod == MEM1_MOD)
	    /* fake sign extension to get +- */
	    outimmed(SIGNBIT | WORDBIT);
	else if (mod == MEM2_MOD)
	{
	    outbyte('+');
#if (_WORD_SIZE == 4)
	    out32offset();
#else
	    outgetaddr();
#endif
	}
	outbyte(RINDIRECT);
	if (hasize == 16 && rm == 4 && index == 4 && ss != 0)
	    outfishy();
    }
}

PRIVATE void outf1()
{
    outustr("st(");
    outbyte((int) (rm + '0'));
    outbyte(')');
}

#if (_WORD_SIZE == 4)

PRIVATE void out32offset()
{
    off_t off;

    if (hasize == 16)
	off = get32();
    else
	outfishy();

    outh32(off);
}
#endif

PRIVATE void outfishy()
{
    outustr("\t???");
}

PRIVATE void outgetaddr()
{
    off_t off;

    if (hasize == 16)
	off = get32();
    else
	off = get16();

    if ( finds_data(off,data_seg) )
  	*offptr++ = off;
    else if (hasize == 16)
	outh32(off);
    else
	outh16((u16_t) off);
}

PRIVATE void outimmed(signwordflag)
opcode_pt signwordflag;
{
    su8_pt byte;

    if (signwordflag & WORDBIT)
    {
	if (signwordflag & SIGNBIT)
	{
	    if ((byte = get8s()) < 0)
	    {
		outbyte('-');
		byte = -byte;
	    }
	    else
		outbyte('+');
	    outh8((u8_t) byte);
	}
	else
	    Iv();
    }
    else
	Ib();
}

PRIVATE void outpc(pc)
off_t pc;
{
    if (hosize == 8)
	pc = (u16_t) pc;

    if ( finds_pc(pc) )
	*offptr++ = pc;
    else if (hosize == 16)
	outh32(pc);
    else
	outh16((u16_t) pc);
}

PRIVATE void outsegpc()
{
    off_t oldbase;
    off_t pc;

    if (hosize == 16)
	pc = get32();
    else
	pc = get16();
    oldbase = uptr.base;
    outh16((u16_t) (uptr.base = get16()));	/* fake seg for lookup of pc */
			/* TODO - convert to offset in protected mode */
    outbyte(':');
    outpc(pc);
    uptr.base = oldbase;
}

PRIVATE void oututstr(s)
char *s;
{
    outustr(s);
    outtab();
}

PRIVATE void outword()
{
    outustr("dword " + ((16 - hosize) >> 3));
}

PRIVATE void outwptr()
{
    outword();
    outustr("ptr ");
}

PRIVATE void outwsize()
{
    if (hosize == 16)
	outustr("d");
    else
	outustr("w");
}

PRIVATE void pagef()
{
    opcode_pt opc;
    int regbad;

    if ((opc = get8()) <= 1 || opc == 0xBA)
    {
	if (opc == 0xBA)
	    opc = 16;
	else
	    opc *= 8;
	getmodregrm();
	outustr(ssstr_0f[opc += reg]);
	if (opc < 6 || opc == 12 || opc == 14)
	    Ew();
	else if (opc >= 8 && opc < 13)
	    Ms();
	else if (opc >= 20)
	{
	    outbwptr(WORDBIT);
	    EvIb();
	}
    }
    else if (opc < 4)
    {
	oututstr("lar\0lsl" + 4 * (opc - 2));
	GvEw();
    }
    else if (opc == 5)
    {
	outustr("loadall");
	outfishy();
    }
    else if (opc == 6)
	outustr("clts");
    else if (opc < 0x20)
	outstr(fishy);
    else if (opc < 0x27 && opc != 0x25)
    {
	outustr(movtab);
	getmodregrm();
	hosize = 16;
	if (!(opc & TOREGBIT))
	{
	    Ev();		/* Rd() since hosize is 16 */
	    outcomma();
	}
	regbad = FALSE;
	if (opc & 1)
	{
	    outustr("dr");
	    if (reg == 4 || reg == 5)
		regbad = TRUE;
	}
	else if (opc < 0x24)
	{
	    outustr("cr");
	    if (reg >= 4 || reg == 1)
		regbad = TRUE;
	}
	else
	{
	    outustr("tr");
	    if (reg < 6)
		regbad = TRUE;
	}
	outbyte((int) (reg + '0'));
	if (opc & TOREGBIT)
	{
	    outcomma();
	    Ev();
	}
	if (regbad || mod != REG_MOD)
	    outfishy();
    }
    else if (opc < 0x80)
	outstr(fishy);
    else if (opc < 0x90)
    {
	outustr("j");
	oututstr((str_flags - 0x80)[opc]);
	Jv();
    }
    else if (opc < 0xA0)
    {
	outustr("set");
	oututstr((str_flags - 0x90)[opc]);
	getmodregrm();
	outbwptr(0);
	Eb();
    }
    else if (opc < 0xC0)
    {
	outustr((sstr_0f - 0xA0)[opc]);
	switch (opc)
	{
	case 0xA3:
	case 0xAB:
	case 0xB3:
	case 0xBB:
	    EvGv();
	    break;
	case 0xA4:
	case 0xAC:
	    EvGv();
	    outcomma();
	    Ib();
	    break;
	case 0xA5:
	case 0xAD:
	    EvGv();
	    outcomma();
	    CL();
	    break;
	case 0xAF:
	case 0xBC:
	case 0xBD:
	    GvEv();
	    break;
	case 0xB2:
	case 0xB4:
	case 0xB5:
	    GvMp();
	    break;
	case 0xB6:
	case 0xBE:
	    Gv();
	    outcomma();
	    outbwptr(opc);
	    Eb();
	    break;
	case 0xB7:
	case 0xBF:
	    Gv();
	    outcomma();
	    hosize = 8;		/* done in Ew(), but too late */
	    outbwptr(opc);
	    Ew();
	    break;
	}
    }
    else
	outstr(fishy);
}

PRIVATE int puti()
{
    static int hadprefix;
    opcode_pt opcode;

more:
    offptr = offtable;
    opcode = get8();
    if (!hadprefix)
    {
	data_seg = DSEG;
	hdefsize = 8;
	if (bits32)
	    hdefsize = 16;
	hosize =
	    hasize = hdefsize;
    }
    (*optable[opcode >> 3])(opcode < 0x80 ? opcode : opcode & 7);
    if (offptr > offtable)
    {
	if (stringtab() >= 31)
	{
	    outspace();
	    outspace();
	}
	else
	    while (stringtab() < 32)
		outtab();
	outbyte(';');
	for (off1ptr = offtable; off1ptr < offptr; ++off1ptr)
	{
	    outspace();
	    if (*off1ptr < 0x10000)
		outh16((u16_t) *off1ptr);
	    else
		outh32(*off1ptr);
	}
	offptr = offtable;
    }
    if ((opcode & 0xE7) == 0x26 ||
	opcode >= 0x64 && opcode < 0x68 ||
	opcode == 0xF0 || opcode == 0xF2 || opcode == 0xF3)
	/* not finished instruction for 0x26, 0x2E, 0x36, 0x3E seg overrides
	 * and 0x64, 0x65 386 seg overrides
	 * and 0x66, 0x67 386 size prefixes
	 * and 0xF0 lock, 0xF2 repne, 0xF3 rep
	 */
    {
	hadprefix = TRUE;
	goto more;		/* TODO - print prefixes better */
	return FALSE;
    }
    hadprefix = FALSE;
    return TRUE;
}

PRIVATE void shift(opc)
opcode_pt opc;
{
    getmodregrm();
    oututstr(sstr_d0[reg]);
    outbwptr(opc);
    outea(opc);
    outcomma();
    if (opc < 0xD0)
	Ib();
    else if (opc & 2)
	CL();
    else
	outbyte('1');
}

PRIVATE void checkmemory()
{
    if (mod == REG_MOD)
	outfishy();
}

PRIVATE void CL()
{
    outustr(genreg[1]);
}

PRIVATE void Eb()
{
    outea(0);
}

PRIVATE void Ev()
{
    outea(WORDBIT);
}

PRIVATE void EvGv()
{
    getmodregrm();
    Ev();
    outcomma();
    Gv1();
}

PRIVATE void EvIb()
{
    Ev();
    outcomma();
    Ib();
}

PRIVATE void Ew()
{
    hosize = 8;
    Ev();
}

PRIVATE void EwRw()
{
    hosize = 8;
    EvGv();
}

PRIVATE void Gv()
{
    getmodregrm();
    Gv1();
}

PRIVATE void Gv1()
{
    outustr(genreg[hosize + reg]);
}

PRIVATE void GvEv()
{
    Gv();
    outcomma();
    Ev();
}

PRIVATE void GvEw()
{
    Gv();
    outcomma();
    Ew();
}

PRIVATE void GvM()
{
    GvEv();
    checkmemory();
}

PRIVATE void GvMa()
{
    GvM();
}

PRIVATE void GvMp()
{
    GvM();
}

PRIVATE void Ib()
{
    outh8(get8());
}

PRIVATE void Iw()
{
    outh16(get16());
}

PRIVATE void Iv()
{
    if (hosize == 16)
	outh32(get32());
    else
	Iw();
}

PRIVATE void Jb()
{
    off_t pcjump;

    pcjump = get8s();
    outpc(pcjump + uptr.off);
}

PRIVATE void Jv()
{
    off_t pcjump;

    if (hosize == 16)
	pcjump = get32();
    else
	pcjump = (su16_t) get16();
    outpc(pcjump + uptr.off);
}

PRIVATE void Ms()
{
    Ev();
    checkmemory();
}

/********************* DASM ******************************/

PUBLIC long dasm( addr, count, symflg )
long addr;
int count;
int symflg;
{
#if (_WORD_SIZE == 4)
	bits32 = TRUE;		/* Set mode */
#else
	bits32 = FALSE;
#endif
	uptr.off = addr;
	uptr.base = 0;		/* not known */
	while ( count-- != 0 && show1instruction() )
		;
}


PRIVATE int show1instruction()
{
    register int column;
    int idone;
    static char line[81];
    int maxcol;
    struct address_s newuptr;
    struct address_s olduptr;

    outbyte('\r');
    do
    {
	if ( text_symbol(uptr.off) ) {
	    outbyte(':');
	    outbyte('\n');
	}
	olduptr = uptr;
	openstring(line);
	idone = puti();
	line[stringpos()] = 0;
	closestring();
	newuptr = uptr;
	uptr = olduptr;
	column = outssegaddr(&uptr);
	while (uptr.off != newuptr.off)
	{
	    outh8(get8());
	    column += 2;
	}
	maxcol = bits32 ? 24 : 16;
	while (column < maxcol)
	{
	    outtab();
	    column += 8;
	}
	outtab();
	outstr(line);
	outbyte('\n');
    }
    while (!idone);		/* eat all prefixes */
    return TRUE;
}


PRIVATE u8_t get8()
{
/* get 8 bits current instruction pointer and advance pointer */

    u8_t temp;

    temp = peek_byte(uptr.off + uptr.base);
    ++uptr.off;
    return temp;
}

PRIVATE u16_t get16()
{
/* get 16 bits from current instruction pointer and advance pointer */

    u16_t temp;

    temp = peek_word(uptr.off + uptr.base);
    uptr.off += 2;
    return temp;
}

PRIVATE u32_t get32()
{
/* get 32 bits from current instruction pointer and advance pointer */

    u32_t temp;

    temp = peek_dword(uptr.off + uptr.base);
    uptr.off += 4;
    return temp;
}


PRIVATE int outsegaddr(addr)
struct address_s *addr;
{
/* print segmented address */

    int bytes_printed;

    bytes_printed = 2;
	bytes_printed = outsegreg(addr->base);
    if (bytes_printed > 4)
	outbyte('+');
    else
	outbyte(':');
    ++bytes_printed;
    if (addr->off >= 0x10000)
    {
	outh32(addr->off);
	return bytes_printed + 8;
    }
    outh16((u16_t) addr->off);
    return bytes_printed + 4;
}

PRIVATE int outssegaddr(addr)
struct address_s *addr;
{
/* print 32 bit segmented address and 2 spaces */

    int bytes_printed;

    bytes_printed = outsegaddr(addr);
    outspace();
    outspace();
    return bytes_printed + 2;
}

PRIVATE u8_t peek_byte(addr)
off_t addr;
{
    return (u8_t) peek_dword(addr) & 0xFF; /* 8 bits only */
}

PRIVATE u16_t peek_word(addr)
off_t addr;
{
    return (u16_t) peek_dword(addr);
}