Top secrets sources NedoPC pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

/* deco4004.c */
/*****************************************************************************/
/* SPDX-License-Identifier: GPL-2.0-only OR GPL-3.0-only                     */
/*                                                                           */
/*                                                                           */
/* Dissector 4004                                                            */
/*                                                                           */
/*****************************************************************************/

#include "stdinc.h"
#include <ctype.h>

#include "dasmdef.h"
#include "cpulist.h"
#include "codechunks.h"
#include "invaddress.h"
#include "strutil.h"

#include "deco4004.h"

typedef enum
{
  eUnknown,
  eImplicit,
  eFullAddr,
  eFIM,
  eOneReg,
  eOneRReg,
  eImm4,
  eJumpCond,
  eISZ
} tAddrType;

typedef struct
{
  tAddrType Type;
  Byte OpSize, NextAddresses;
  const char *Memo;
} tOpcodeList;

static unsigned nData;

static CPUVar CPU4004;

static const tOpcodeList OpcodeList[256] =
{
  /* 0x00 */ { eImplicit  , 0, 1, "nop"  },
  /* 0x01 */ { eImplicit  , 0, 1, "hlt"  },
  /* 0x02 */ { eImplicit  , 0, 0, "bbs"  },
  /* 0x03 */ { eImplicit  , 0, 0, "lcr"  },
  /* 0x04 */ { eImplicit  , 0, 0, "or4"  },
  /* 0x05 */ { eImplicit  , 0, 0, "or5"  },
  /* 0x06 */ { eImplicit  , 0, 1, "an6"  },
  /* 0x07 */ { eImplicit  , 0, 1, "an7"  },
  /* 0x08 */ { eImplicit  , 1, 1, "db0"  },
  /* 0x09 */ { eImplicit  , 1, 1, "db1"  },
  /* 0x0a */ { eImplicit  , 0, 0, "sb0"  },
  /* 0x0b */ { eImplicit  , 0, 0, "sb1"  },
  /* 0x0c */ { eImplicit  , 0, 1, "ein"  },
  /* 0x0d */ { eImplicit  , 0, 1, "din"  },
  /* 0x0e */ { eImplicit  , 0, 1, "rpm"  },
  /* 0x0f */ { eUnknown   , 0, 0, NULL   },
  /* 0x10 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x11 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x12 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x13 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x14 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x15 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x16 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x17 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x18 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x19 */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x1a */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x1b */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x1c */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x1d */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x1e */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x1f */ { eJumpCond  , 0, 3, "jcn"  },
  /* 0x20 */ { eFIM       , 0, 1, "fim"  },
  /* 0x21 */ { eOneRReg   , 0, 1, "src"  },
  /* 0x22 */ { eFIM       , 0, 1, "fim"  },
  /* 0x23 */ { eOneRReg   , 0, 1, "src"  },
  /* 0x24 */ { eFIM       , 0, 1, "fim"  },
  /* 0x25 */ { eOneRReg   , 0, 1, "src"  },
  /* 0x26 */ { eFIM       , 0, 1, "fim"  },
  /* 0x27 */ { eOneRReg   , 0, 1, "src"  },
  /* 0x28 */ { eFIM       , 0, 1, "fim"  },
  /* 0x29 */ { eOneRReg   , 0, 1, "src"  },
  /* 0x2a */ { eFIM       , 0, 1, "fim"  },
  /* 0x2b */ { eOneRReg   , 0, 1, "src"  },
  /* 0x2c */ { eFIM       , 0, 1, "fim"  },
  /* 0x2d */ { eOneRReg   , 0, 1, "src"  },
  /* 0x2e */ { eFIM       , 0, 1, "fim"  },
  /* 0x2f */ { eOneRReg   , 0, 1, "src"  },
  /* 0x30 */ { eOneRReg   , 1, 1, "fin"  },
  /* 0x31 */ { eOneRReg   , 1, 1, "jin"  },
  /* 0x32 */ { eOneRReg   , 0, 1, "fin"  },
  /* 0x33 */ { eOneRReg   , 0, 1, "jin"  },
  /* 0x34 */ { eOneRReg   , 0, 1, "fin"  },
  /* 0x35 */ { eOneRReg   , 0, 1, "jin"  },
  /* 0x36 */ { eOneRReg   , 0, 1, "fin"  },
  /* 0x37 */ { eOneRReg   , 0, 1, "jin"  },
  /* 0x38 */ { eOneRReg   , 0, 1, "fin"  },
  /* 0x39 */ { eOneRReg   , 0, 1, "jin"  },
  /* 0x3a */ { eOneRReg   , 0, 1, "fin"  },
  /* 0x3b */ { eOneRReg   , 0, 1, "jin"  },
  /* 0x3c */ { eOneRReg   , 0, 1, "fin"  },
  /* 0x3d */ { eOneRReg   , 0, 1, "jin"  },
  /* 0x3e */ { eOneRReg   , 0, 1, "fin"  },
  /* 0x3f */ { eOneRReg   , 0, 1, "jin"  },
  /* 0x40 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x41 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x42 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x43 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x44 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x45 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x46 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x47 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x48 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x49 */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x4a */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x4b */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x4c */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x4d */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x4e */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x4f */ { eFullAddr  , 0, 2, "jun"  },
  /* 0x50 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x51 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x52 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x53 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x54 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x55 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x56 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x57 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x58 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x59 */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x5a */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x5b */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x5c */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x5d */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x5e */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x5f */ { eFullAddr  , 0, 3, "jms"  },
  /* 0x60 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x61 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x62 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x63 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x64 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x65 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x66 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x67 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x68 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x69 */ { eOneReg    , 0, 1, "inc"  },
  /* 0x6a */ { eOneReg    , 0, 1, "inc"  },
  /* 0x6b */ { eOneReg    , 0, 1, "inc"  },
  /* 0x6c */ { eOneReg    , 0, 1, "inc"  },
  /* 0x6d */ { eOneReg    , 0, 1, "inc"  },
  /* 0x6e */ { eOneReg    , 0, 1, "inc"  },
  /* 0x6f */ { eOneReg    , 0, 1, "inc"  },
  /* 0x70 */ { eISZ       , 0, 3, "isz"  },
  /* 0x71 */ { eISZ       , 0, 3, "isz"  },
  /* 0x72 */ { eISZ       , 0, 3, "isz"  },
  /* 0x73 */ { eISZ       , 0, 3, "isz"  },
  /* 0x74 */ { eISZ       , 0, 3, "isz"  },
  /* 0x75 */ { eISZ       , 0, 3, "isz"  },
  /* 0x76 */ { eISZ       , 0, 3, "isz"  },
  /* 0x77 */ { eISZ       , 0, 3, "isz"  },
  /* 0x78 */ { eISZ       , 0, 3, "isz"  },
  /* 0x79 */ { eISZ       , 0, 3, "isz"  },
  /* 0x7a */ { eISZ       , 0, 3, "isz"  },
  /* 0x7b */ { eISZ       , 0, 3, "isz"  },
  /* 0x7c */ { eISZ       , 0, 3, "isz"  },
  /* 0x7d */ { eISZ       , 0, 3, "isz"  },
  /* 0x7e */ { eISZ       , 0, 3, "isz"  },
  /* 0x7f */ { eISZ       , 0, 3, "isz"  },
  /* 0x80 */ { eOneReg    , 0, 1, "add"  },
  /* 0x81 */ { eOneReg    , 0, 1, "add"  },
  /* 0x82 */ { eOneReg    , 0, 1, "add"  },
  /* 0x83 */ { eOneReg    , 0, 1, "add"  },
  /* 0x84 */ { eOneReg    , 0, 1, "add"  },
  /* 0x85 */ { eOneReg    , 0, 1, "add"  },
  /* 0x86 */ { eOneReg    , 0, 1, "add"  },
  /* 0x87 */ { eOneReg    , 0, 1, "add"  },
  /* 0x88 */ { eOneReg    , 0, 1, "add"  },
  /* 0x89 */ { eOneReg    , 0, 1, "add"  },
  /* 0x8a */ { eOneReg    , 0, 1, "add"  },
  /* 0x8b */ { eOneReg    , 0, 1, "add"  },
  /* 0x8c */ { eOneReg    , 0, 1, "add"  },
  /* 0x8d */ { eOneReg    , 0, 1, "add"  },
  /* 0x8e */ { eOneReg    , 0, 1, "add"  },
  /* 0x8f */ { eOneReg    , 0, 1, "add"  },
  /* 0x90 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x91 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x92 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x93 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x94 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x95 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x96 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x97 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x98 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x99 */ { eOneReg    , 0, 1, "sub"  },
  /* 0x9a */ { eOneReg    , 0, 1, "sub"  },
  /* 0x9b */ { eOneReg    , 0, 1, "sub"  },
  /* 0x9c */ { eOneReg    , 0, 1, "sub"  },
  /* 0x9d */ { eOneReg    , 0, 1, "sub"  },
  /* 0x9e */ { eOneReg    , 0, 1, "sub"  },
  /* 0x9f */ { eOneReg    , 0, 1, "sub"  },
  /* 0xa0 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa1 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa2 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa3 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa4 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa5 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa6 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa7 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa8 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xa9 */ { eOneReg    , 0, 1, "ld"   },
  /* 0xaa */ { eOneReg    , 0, 1, "ld"   },
  /* 0xab */ { eOneReg    , 0, 1, "ld"   },
  /* 0xac */ { eOneReg    , 0, 1, "ld"   },
  /* 0xad */ { eOneReg    , 0, 1, "ld"   },
  /* 0xae */ { eOneReg    , 0, 1, "ld"   },
  /* 0xaf */ { eOneReg    , 0, 1, "ld"   },
  /* 0xb0 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb1 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb2 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb3 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb4 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb5 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb6 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb7 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb8 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xb9 */ { eOneReg    , 0, 1, "xch"  },
  /* 0xba */ { eOneReg    , 0, 1, "xch"  },
  /* 0xbb */ { eOneReg    , 0, 1, "xch"  },
  /* 0xbc */ { eOneReg    , 0, 1, "xch"  },
  /* 0xbd */ { eOneReg    , 0, 1, "xch"  },
  /* 0xbe */ { eOneReg    , 0, 1, "xch"  },
  /* 0xbf */ { eOneReg    , 0, 1, "xch"  },
  /* 0xc0 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc1 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc2 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc3 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc4 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc5 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc6 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc7 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc8 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xc9 */ { eImm4      , 0, 0, "bbl"  },
  /* 0xca */ { eImm4      , 0, 0, "bbl"  },
  /* 0xcb */ { eImm4      , 0, 0, "bbl"  },
  /* 0xcc */ { eImm4      , 0, 0, "bbl"  },
  /* 0xcd */ { eImm4      , 0, 0, "bbl"  },
  /* 0xce */ { eImm4      , 1, 0, "bbl"  },
  /* 0xcf */ { eImm4      , 0, 0, "bbl"  },
  /* 0xd0 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd1 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd2 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd3 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd4 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd5 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd6 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd7 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd8 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xd9 */ { eImm4      , 0, 1, "ldm"  },
  /* 0xda */ { eImm4      , 0, 1, "ldm"  },
  /* 0xdb */ { eImm4      , 0, 1, "ldm"  },
  /* 0xdc */ { eImm4      , 0, 1, "ldm"  },
  /* 0xdd */ { eImm4      , 0, 1, "ldm"  },
  /* 0xde */ { eImm4      , 0, 1, "ldm"  },
  /* 0xdf */ { eImm4      , 0, 1, "ldm"  },
  /* 0xe0 */ { eImplicit  , 0, 1, "wrm"  },
  /* 0xe1 */ { eImplicit  , 0, 1, "wmp"  },
  /* 0xe2 */ { eImplicit  , 0, 1, "wrr"  },
  /* 0xe3 */ { eImplicit  , 0, 1, "wpm"  },
  /* 0xe4 */ { eImplicit  , 0, 1, "wr0"  },
  /* 0xe5 */ { eImplicit  , 0, 1, "wr1"  },
  /* 0xe6 */ { eImplicit  , 0, 1, "wr2"  },
  /* 0xe7 */ { eImplicit  , 0, 1, "wr3"  },
  /* 0xe8 */ { eImplicit  , 0, 1, "sbm"  },
  /* 0xe9 */ { eImplicit  , 0, 1, "rdm"  },
  /* 0xea */ { eImplicit  , 0, 1, "rdr"  },
  /* 0xeb */ { eImplicit  , 0, 1, "adm"  },
  /* 0xec */ { eImplicit  , 0, 1, "rd0"  },
  /* 0xed */ { eImplicit  , 0, 1, "rd1"  },
  /* 0xee */ { eImplicit  , 1, 1, "rd2"  },
  /* 0xef */ { eImplicit  , 1, 1, "rd3"  },
  /* 0xf0 */ { eImplicit  , 0, 1, "clb"  },
  /* 0xf1 */ { eImplicit  , 0, 1, "clc"  },
  /* 0xf2 */ { eImplicit  , 0, 1, "iac"  },
  /* 0xf3 */ { eImplicit  , 0, 1, "cmc"  },
  /* 0xf4 */ { eImplicit  , 0, 1, "cma"  },
  /* 0xf5 */ { eImplicit  , 0, 1, "ral"  },
  /* 0xf6 */ { eImplicit  , 0, 1, "rar"  },
  /* 0xf7 */ { eImplicit  , 0, 1, "tcc"  },
  /* 0xf8 */ { eImplicit  , 0, 1, "dac"  },
  /* 0xf9 */ { eImplicit  , 0, 1, "tcs"  },
  /* 0xfa */ { eImplicit  , 0, 1, "stc"  },
  /* 0xfb */ { eImplicit  , 0, 1, "daa"  },
  /* 0xfc */ { eImplicit  , 0, 1, "kbp"  },
  /* 0xfd */ { eImplicit  , 0, 1, "dcl"  },
  /* 0xfe */ { eUnknown   , 1, 1, NULL   },
  /* 0xff */ { eUnknown   , 1, 1, NULL   },
};

static const tOpcodeList DummyOpcode = { eUnknown   , 0, 0, NULL   };

static void IntelHexString(char *pBuf, size_t BufSize, Word Num, int Digits)
{
  HexString(pBuf, BufSize, Num, Digits);
  if (!as_isdigit(*pBuf))
    strmaxprep(pBuf, "0", BufSize);
  strmaxcat(pBuf, "h", BufSize);
}

static Boolean RetrieveData(LargeWord Address, Byte *pBuffer, unsigned Count)
{
  LargeWord Trans;

  while (Count > 0)
  {
    Trans = 0x10000 - Address;
    if (Count < Trans)
      Trans = Count;
    if (!RetrieveCodeFromChunkList(&CodeChunks, Address, pBuffer, Trans))
    {
      char NumString[50];

      HexString(NumString, sizeof(NumString), Address, 1);
      fprintf(stderr, "cannot retrieve instruction arg @ 0x%s\n", NumString);
      return FALSE;
    }
    pBuffer += Trans;
    Count -= Trans;
    Address = (Address + Trans) & 0xffff;
    nData += Trans;
  }
  return TRUE;
}

static const char *MakeSymbolic(Word Address, int AddrLen, const char *pSymbolPrefix, char *pBuffer, int BufferSize)
{
  const char *pResult;

  if ((pResult = LookupInvSymbol(Address)))
    return pResult;

  HexString(pBuffer, BufferSize, Address, AddrLen << 1);
  if (!pSymbolPrefix)
  {
    if (!isdigit(*pBuffer))
    {
      strmaxprep(pBuffer, "0", BufferSize);
      strmaxcat(pBuffer, "h", BufferSize);
    }
    return pBuffer;
  }

  strmaxprep(pBuffer, pSymbolPrefix, BufferSize);
  AddInvSymbol(pBuffer, Address);
  return pBuffer;
}

static void Disassemble_4004(LargeWord Address, tDisassInfo *pInfo, Boolean AsData, int DataSize)
{
  Byte Opcode, Data[10];
  const tOpcodeList *pOpcode;
  char NumBuf[60], NumBuf2[60];
  const char *pOp;
  Word OpAddr = 0;

  pInfo->CodeLen = 0;
  pInfo->NextAddressCount = 0;
  pInfo->SrcLine[0] = '\0';
  pInfo->pRemark = NULL;

  if (!RetrieveData(Address, &Opcode, 1))
    return;
  nData = 1;
  (void)DataSize;

  pOpcode = AsData ? &DummyOpcode : OpcodeList + Opcode;
  switch (pOpcode->Type)
  {
    case eImplicit:
      pInfo->CodeLen = 1;
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s", pOpcode->Memo);
      break;
    case eFullAddr:
      if (!RetrieveData(Address + 1, Data, 1))
        return;
      pInfo->CodeLen = 2;
      OpAddr = (((Word)Opcode & 0x0f) << 8) | Data[0];
      pOp = MakeSymbolic(OpAddr, 2, strcmp(pOpcode->Memo, "jun") ? "lab_" : "sub_", NumBuf, sizeof(NumBuf));
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s\t%s", pOpcode->Memo, pOp);
      break;
    case eJumpCond:
      if (!RetrieveData(Address + 1, Data, 1))
        return;
      pInfo->CodeLen = 2;
      OpAddr = ((Address + 2) & 0x0f00) | Data[0];
      pOp = MakeSymbolic(OpAddr, 2, "lab_", NumBuf, sizeof(NumBuf));
      NumBuf2[0] = '\0';
      if (Opcode & 0x01)
        strmaxcat(NumBuf2, "t", sizeof(NumBuf2));
      if (Opcode & 0x02)
        strmaxcat(NumBuf2, "c", sizeof(NumBuf2));
      if (Opcode & 0x04)
        strmaxcat(NumBuf2, "z", sizeof(NumBuf2));
      if (Opcode & 0x08)
        strmaxcat(NumBuf2, "n", sizeof(NumBuf2));
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s\t%s,%s",
                  pOpcode->Memo, NumBuf2, pOp);
      break;
    case eISZ:
      if (!RetrieveData(Address + 1, Data, 1))
        return;
      pInfo->CodeLen = 2;
      OpAddr = ((Address + 2) & 0x0f00) | Data[0];
      pOp = MakeSymbolic(OpAddr, 2, "lab_", NumBuf, sizeof(NumBuf));
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s\tr%u,%s",
                  pOpcode->Memo, Opcode & 15, pOp);
      break;
    case eFIM:
      if (!RetrieveData(Address + 1, Data, 1))
        return;
      pInfo->CodeLen = 2;
      IntelHexString(NumBuf, sizeof(NumBuf), Data[0], 2);
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s\tr%up,%s",
                  pOpcode->Memo, (Opcode & 15) >> 1, NumBuf);
      break;
    case eOneReg:
      pInfo->CodeLen = 1;
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s\tr%u",
                  pOpcode->Memo, Opcode & 15);
      break;
    case eOneRReg:
      pInfo->CodeLen = 1;
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s\tr%up",
                  pOpcode->Memo, (Opcode & 15) >> 1);
      break;
    case eImm4:
      pInfo->CodeLen = 1;
      IntelHexString(NumBuf, sizeof(NumBuf), Opcode & 0x0f, 1);
      as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "%s\t%s",
                  pOpcode->Memo, NumBuf);
      break;
    default:
      if (DataSize < 0)
        DataSize = 1;
      if (!RetrieveData(Address + 1, Data, DataSize - 1))
        return;
      HexString(NumBuf, sizeof(NumBuf), Opcode, 2);
      HexString(NumBuf2, sizeof(NumBuf2), Address, 0);
      if (!AsData)
        fprintf(stderr, "unknown opcode 0x%s @ 0x%s\n", NumBuf, NumBuf2);
      switch (DataSize)
      {
        case 2:
          OpAddr = (((Word)Opcode) << 8) | Data[0];
          pOp = MakeSymbolic(OpAddr, 2, NULL, NumBuf, sizeof(NumBuf));
          as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "dw\t%s", pOp);
          pInfo->CodeLen = 2;
          break;
        default:
          pInfo->CodeLen = 1;
          IntelHexString(NumBuf, sizeof(NumBuf), Opcode, 2);
          as_snprintf(pInfo->SrcLine, sizeof(pInfo->SrcLine), "db\t%s", NumBuf);
      }
  }

  if (pOpcode->NextAddresses & 2)
    pInfo->NextAddresses[pInfo->NextAddressCount++] = OpAddr;
  if (pOpcode->NextAddresses & 1)
    pInfo->NextAddresses[pInfo->NextAddressCount++] = (Address + pInfo->CodeLen) % 0xfff;

  if (nData != pInfo->CodeLen)
    as_snprcatf(pInfo->SrcLine, sizeof(pInfo->SrcLine), " ; ouch %u != %u", nData, pInfo->CodeLen);
}

static void SwitchTo_4004(void)
{
  Disassemble = Disassemble_4004;
}

void deco4004_init(void)
{
  CPU4004 = AddCPU("4004", SwitchTo_4004);
}