source: branches/AVR/UInstructionDefinition.pas

unit UInstructionDefinition;

interface

type
  TOperandType = (otNone, otRegister, otConstant, otIOAddress, otDisplacement,
    otIndirectAddressRegister, otBit, otAddress);

  TOperand = record
    OpType: TOperandType;
    Mask: Word;
  end;

  TInstructionIndex = (iiADC, iiADD, iiADIW, iiAND, iiANDI, iiASR, iiBCLR, iiBLD,
    iiBRBC, iiBRBS, iiBRCC, iiBRCS, iiBREAK, iiBREQ, iiBRGE, iiBRHC, iiBRHS,
    iiBRID, iiBRIE, iiBRLO, iiBRLT, iiBRMI, iiBRNE, iiBRPL, iiBRSH, iiBRTC,
    iiBRTS, iiBRVC, iiBRVS, iiBSET, iiBST, iiCALL, iiCBI, iiCBR, iiCLC, iiCLH,
    iiCLI, iiCLN, iiCLR, iiCLS, iiCLT, iiCLV, iiCLZ, iiCOM, iiCP, iiCPC, iiCPI,
    iiCPSE, iiDEC, iiEICALL, iiEIJMP, iiELPM, iiEOR, iiFMUL, iiFMULS, iiFMULSU,
    iiICALL, iiIJMP, iiIN, iiINC, iiJMP, iiLD, iiLDI, iiLDS, iiLPM, iiLSL,
    iiLSR, iiMOV, iiMOVW, iiMUL, iiMULS, iiMULSU, iiNEG, iiNOP, iiOR, iiORI,
    iiOUT, iiPOP, iiPUSH, iiRCALL, iiRET, iiRETI, iiRJMP, iiROL, iiROR, iiSBC,
    iiSBCI, iiSBI, iiSBIC, iiSBIS, iiSBIW, iiSBR, iiSBRC, iiSBRS, iiSEC, iiSEH,
    iiSEI, iiSEN, iiSER, iiSES, iiSET, iiSEV, iiSEZ, iiSLEEP, iiSPM, iiST,
    iiSTS, iiSUB, iiSUBI, iiSWAP, iiTST, iiWDR);

  TInstructionDefinition = record
    Name: string;
    Cycles: Byte;
    Opcode: Word;
    OpcodeMask: Word;
    Operands: array [0..1] of TOperand;
  end;

const
  Instructions: array[TInstructionIndex] of TInstructionDefinition = (
    (Name: 'ADC'; Cycles: 1; Opcode: $1c00; OpcodeMask: $fc00;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'ADD'; Cycles: 1; Opcode: $0c00; OpcodeMask: $fc00;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'ADIW'; Cycles: 2; Opcode: $9600; OpcodeMask: $ff00;
      Operands: (
        (OpType: otIndirectAddressRegister; Mask: $0030),
        (OpType: otConstant; Mask: $00cf)
      )
    ),
    (Name: 'AND'; Cycles: 1; Opcode: $2000; OpcodeMask: $fc00;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'ANDI'; Cycles: 1; Opcode: $7000; OpcodeMask: $f000;
      Operands: (
        (OpType: otRegister; Mask: $00f0),
        (OpType: otConstant; Mask: $0f0f)
      )
    ),
    (Name: 'ASR'; Cycles: 1; Opcode: $9405; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BCLR'; Cycles: 1; Opcode: $9488; OpcodeMask: $ff8f;
      Operands: (
        (OpType: otBit; Mask: $0070),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BLD'; Cycles: 1; Opcode: $f800; OpcodeMask: $fe08;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otBit; Mask: $0007)
      )
    ),
    (Name: 'BRBC'; Cycles: 1; Opcode: $f400; OpcodeMask: $fc00;
      Operands: (
        (OpType: otBit; Mask: $0007),
        (OpType: otConstant; Mask: $03f8)
      )
    ),
    (Name: 'BRBS'; Cycles: 1; Opcode: $f000; OpcodeMask: $fc00;
      Operands: (
        (OpType: otBit; Mask: $0007),
        (OpType: otConstant; Mask: $03f8)
      )
    ),
    (Name: 'BRCC'; Cycles: 1; Opcode: $f400; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRCS'; Cycles: 1; Opcode: $f000; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BREAK'; Cycles: 1; Opcode: $9598; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BREQ'; Cycles: 1; Opcode: $f001; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRGE'; Cycles: 1; Opcode: $f404; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRHC'; Cycles: 1; Opcode: $f405; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRHS'; Cycles: 1; Opcode: $f005; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRID'; Cycles: 1; Opcode: $f407; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRIE'; Cycles: 1; Opcode: $f007; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRLO'; Cycles: 1; Opcode: $f000; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRLT'; Cycles: 1; Opcode: $f004; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRMI'; Cycles: 1; Opcode: $f002; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRNE'; Cycles: 1; Opcode: $f401; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRPL'; Cycles: 1; Opcode: $f402; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRSH'; Cycles: 1; Opcode: $f400; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRTC'; Cycles: 1; Opcode: $f405; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRTS'; Cycles: 1; Opcode: $f005; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRVC'; Cycles: 1; Opcode: $f403; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BRVS'; Cycles: 1; Opcode: $f003; OpcodeMask: $fc07;
      Operands: (
        (OpType: otConstant; Mask: $0cf8),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BSET'; Cycles: 1; Opcode: $9408; OpcodeMask: $ff8f;
      Operands: (
        (OpType: otBit; Mask: $0070),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'BST'; Cycles: 1; Opcode: $fa00; OpcodeMask: $fe08;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otBit; Mask: $0007)
      )
    ),
    (Name: 'CALL'; Cycles: 4; Opcode: $940e; OpcodeMask: $fe0e;
      Operands: (
        (OpType: otAddress; Mask: $01f1),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CBI'; Cycles: 1; Opcode: $9800; OpcodeMask: $ff00;
      Operands: (
        (OpType: otIOAddress; Mask: $00f8),
        (OpType: otBit; Mask: $0007)
      )
    ),
    (Name: 'CBR'; Cycles: 1; Opcode: $9800; OpcodeMask: $ff00;
      Operands: (
        (OpType: otIOAddress; Mask: $00f8),
        (OpType: otBit; Mask: $0007)
      )
    ),
    (Name: 'CLC'; Cycles: 1; Opcode: $9488; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLH'; Cycles: 1; Opcode: $94d8; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLI'; Cycles: 1; Opcode: $94f8; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLN'; Cycles: 1; Opcode: $94a8; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLR'; Cycles: 1; Opcode: $2400; OpcodeMask: $fc00;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLS'; Cycles: 1; Opcode: $94c8; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLT'; Cycles: 1; Opcode: $94e8; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLV'; Cycles: 1; Opcode: $94b8; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CLZ'; Cycles: 1; Opcode: $9498; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $0000),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'COM'; Cycles: 1; Opcode: $9400; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'CP'; Cycles: 1; Opcode: $1400; OpcodeMask: $fc00;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'CPC'; Cycles: 1; Opcode: $0400; OpcodeMask: $fc00;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'CPI'; Cycles: 1; Opcode: $3000; OpcodeMask: $f000;
      Operands: (
        (OpType: otRegister; Mask: $00f0),
        (OpType: otConstant; Mask: $0f0f)
      )
    ),
    (Name: 'CPSE'; Cycles: 1; Opcode: $1000; OpcodeMask: $fc00;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'DEC'; Cycles: 1; Opcode: $940a; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $0000)
      )
    ),
    (Name: 'EICALL'; Cycles: 1; Opcode: $9519; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'EIJUMP'; Cycles: 1; Opcode: $9419; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'ELPM'; Cycles: 1; Opcode: $95d8; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'ELPM'; Cycles: 1; Opcode: $9006; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'ELPM'; Cycles: 1; Opcode: $9007; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'EOR'; Cycles: 1; Opcode: $2400; OpcodeMask: $fc00;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'FMUL'; Cycles: 1; Opcode: $0308; OpcodeMask: $ff88;
      Operands: (
        (OpType: otRegister; Mask: $0070),
        (OpType: otRegister; Mask: $0007)
      )
    ),
    (Name: 'FMULS'; Cycles: 1; Opcode: $0380; OpcodeMask: $ff88;
      Operands: (
        (OpType: otRegister; Mask: $0070),
        (OpType: otRegister; Mask: $0007)
      )
    ),
    (Name: 'FMULSU'; Cycles: 1; Opcode: $0388; OpcodeMask: $fc88;
      Operands: (
        (OpType: otRegister; Mask: $0070),
        (OpType: otRegister; Mask: $0007)
      )
    ),
    (Name: 'ICALL'; Cycles: 1; Opcode: $9509; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'JMP'; Cycles: 1; Opcode: $9409; OpcodeMask: $ffff;
      Operands: (
        (OpType: otNone; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'IN'; Cycles: 1; Opcode: $b000; OpcodeMask: $f800;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otIOAddress; Mask: $060f)
      )
    ),
    (Name: 'INC'; Cycles: 1; Opcode: $9403; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'JMP'; Cycles: 1; Opcode: $940c; OpcodeMask: $fe0e;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otRegister; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $900c; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $900d; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $900e; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $8008; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $9009; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $900a; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LDD'; Cycles: 1; Opcode: $8008; OpcodeMask: $d208;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otDisplacement; Mask: $2c07)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $8000; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $9001; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LD'; Cycles: 1; Opcode: $9002; OpcodeMask: $fe0f;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otNone; Mask: $020f)
      )
    ),
    (Name: 'LDD'; Cycles: 1; Opcode: $8000; OpcodeMask: $d208;
      Operands: (
        (OpType: otRegister; Mask: $01f0),
        (OpType: otDisplacement; Mask: $2c07)
      )
    ),
    (Name: 'LDI'; Cycles: 1; Opcode: $e000; OpcodeMask: $f000;
      Operands: (
        (OpType: otRegister; Mask: $00f0),
        (OpType: otConstant; Mask: $0f0f)
      )
    ),
  );


implementation

end.