source: trunk/Instructions.pas

unit Instructions;

interface

uses
  Classes, SysUtils, Generics.Collections, CpuZ80;

type
  TParamType = (ptNone, ptNumberByte, ptNumberByteIndir,
    ptNumberWord, ptNumberWordIndir, ptRegA,
    ptRegB, ptRegC, ptRegD, ptRegE, ptRegH, ptRegL, ptRegBC, ptRegDE, ptRegHL,
    ptRegSP, ptRegIX, ptRegIY, ptRegBCIndir, ptRegDEIndir, ptRegHLIndir,
    ptFlagZ, ptFlagNZ, ptFlagC, ptFlagNC, pt00, pt08, pt10, pt18, pt20, pt28,
    pt30, pt38, pt0, pt1, pt2);

  TParamTypes = array of TParamType;

  TInstructionInfo = class
    Instruction: TInstruction;
    Name: string;
    Params: TParamTypes;
    Description: string;
  end;

  { TInstructionSet }

  TInstructionSet = class
    Items: TObjectList<TInstructionInfo>;
    function SearchName(Name: string): TInstructionInfo;
    function SearchInstruction(Instruction: TInstruction): TInstructionInfo;
    function AddNew(Instruction: TInstruction; Name: string;
      Params: TParamTypes; Description: string = ''): TInstructionInfo;
    constructor Create;
    destructor Destroy; override;
  end;

const
  ParamTypeText: array[TParamType] of string = ('', 'n', '(n)', 'nn', '(nn)', 'A', 'B',
    'C', 'D', 'E', 'H', 'L', 'BC', 'DE', 'HL', 'SP', 'IX', 'IY', '(BC)',
    '(DE)', '(HL)', 'Z', 'NZ', 'C', 'NC', '00', '08', '10', '18', '20', '28',
    '30', '38', '0', '1', '2');


implementation

{ TInstructionSet }

function TInstructionSet.SearchName(Name: string): TInstructionInfo;
var
  I: Integer;
begin
  I := 0;
  while (I < Items.Count) and (Items[I].Name <> Name) do Inc(I);
  if I < Items.Count then Result := Items[I]
    else Result := nil;
end;

function TInstructionSet.SearchInstruction(Instruction: TInstruction
  ): TInstructionInfo;
var
  I: Integer;
begin
  I := 0;
  while (I < Items.Count) and (Items[I].Instruction <> Instruction) do Inc(I);
  if I < Items.Count then Result := Items[I]
    else Result := nil;
end;

function TInstructionSet.AddNew(Instruction: TInstruction; Name: string;
  Params: TParamTypes; Description: string = ''): TInstructionInfo;
begin
  Result := TInstructionInfo.Create;
  Result.Instruction := Instruction;
  Result.Name := Name;
  Result.Params := Params;
  Result.Description := Description;
  Items.Add(Result);
end;

constructor TInstructionSet.Create;
begin
  Items := TObjectList<TInstructionInfo>.Create;
  AddNew(inNop, 'NOP', []);
  AddNew(inHalt, 'HALT', []);
  AddNew(inLdAN, 'LD', [ptRegA, ptNumberByte]);
  AddNew(inLdBN, 'LD', [ptRegB, ptNumberByte]);
  AddNew(inLdSpNn, 'LD', [ptRegSP, ptNumberWord]);
  AddNew(inLdAC, 'LD', [ptRegA, ptRegC]);
  AddNew(inLdHlNn, 'LD', [ptRegHL, ptNumberWord]);
  AddNew(inLdBcNn, 'LD', [ptRegBC, ptNumberWord]);
  AddNew(inLdDeNn, 'LD', [ptRegDE, ptNumberWord]);
  AddNew(inLdHlIndirectN, 'LD', [ptRegHLIndir, ptNumberByte]);
  AddNew(inLdNnIndirectA, 'LD', [ptNumberWordIndir, ptRegA]);
  AddNew(inLdCHlIndirect, 'LD', [ptRegC, ptRegHLIndir]);
  AddNew(inLdBcIndirectA, 'LD', [ptRegBCIndir, ptRegA]);
  AddNew(inLdHlIndirectNn, 'LD', [ptRegHLIndir, ptNumberWord]);
  AddNew(inJpNn, 'JP', [ptNumberWord]);
  AddNew(inJpZNn, 'JP', [ptFlagZ, ptNumberWord]);
  AddNew(inCpN, 'CP', [ptNumberByte]);
  AddNew(inCpD, 'CP', [ptRegD]);
  AddNew(inCpE, 'CP', [ptRegE]);
  AddNew(inCallNn, 'CALL', [ptNumberWord]);
  AddNew(inRet, 'RET', []);
  AddNew(inRst00, 'RST', [pt00]);
  AddNew(inRst08, 'RST', [pt08]);
  AddNew(inRst10, 'RST', [pt10]);
  AddNew(inRst18, 'RST', [pt18]);
  AddNew(inRst20, 'RST', [pt20]);
  AddNew(inRst28, 'RST', [pt28]);
  AddNew(inRst30, 'RST', [pt30]);
  AddNew(inRst38, 'RST', [pt38]);
  AddNew(inDi, 'DI', []);
  AddNew(inEi, 'EI', []);
  AddNew(inIm1, 'IM', [pt1]);
  AddNew(inXorA, 'XOR', [ptRegA]);
  AddNew(inPushBC, 'PUSH', [ptRegBC]);
  AddNew(inPushDE, 'PUSH', [ptRegDE]);
  AddNew(inPushHL, 'PUSH', [ptRegHL]);
  AddNew(inSbcHlDe, 'SBC', [ptRegHL, ptRegDE]);
  AddNew(inExDeHl, 'EX', [ptRegDE, ptRegHL]);
  AddNew(inDecHl, 'DEC', [ptRegHL]);
  AddNew(inDecB, 'INC', [ptRegB]);
  AddNew(inIncHl, 'INC', [ptRegHL]);
  AddNew(inIncBc, 'INC', [ptRegBC]);
  AddNew(inIncB, 'INC', [ptRegB]);
  AddNew(inLdHlIndirectE, 'LD', [ptRegHLIndir, ptRegE]);
  AddNew(inLdHlIndirectD, 'LD', [ptRegHLIndir, ptRegD]);
  AddNew(inLdAHlIndirect, 'LD', [ptRegA, ptRegHLIndir]);
  AddNew(inJrNzD, 'JR', [ptFlagNZ, ptNumberByte]);
  AddNew(inJrNcD, 'JR', [ptFlagNC, ptNumberByte]);
  AddNew(inOutNA, 'OUT', [ptNumberByteIndir, ptRegA]);
end;

destructor TInstructionSet.Destroy;
begin
  FreeAndNil(Items);
  inherited;
end;

end.