Changeset 184 for branches/virtualcpu4/UCpu.pas

Timestamp:

Apr 25, 2019, 4:20:43 PM (6 years ago)

Author:

chronos

Message:

• Added: Basic assembler window.

File:

• branches/virtualcpu4/UCpu.pas (modified) (1 diff)

branches/virtualcpu4/UCpu.pas

@@ -138 +138 @@
   end;
 
-  TOpcodeParam = (prNone, prReg, prData, prAddr, prAddrRel);
-  TOpcodeDef = record
-    Name: string;
-    Param1: TOpcodeParam;
-    Param2: TOpcodeParam;
-    Param3: TOpcodeParam;
-    Prefix: Boolean;
-  end;
-
 const
   BitWidthBytes: array[TBitWidth] of Byte = (0, 1, 2, 4, 8);
   BitWidthText: array[TBitWidth] of string = ('None', '8-bit', '16-bit', '32-bit', '64-bit');
-  OpcodeDef: array[TOpcode] of TOpcodeDef = (
-    (Name: 'NOP'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'HALT'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'LD'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'LDI'; Param1: prReg; Param2: prData; Param3: prNone; Prefix: False),
-    (Name: 'JP'; Param1: prAddr; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'JPZ'; Param1: prAddr; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'JPNZ'; Param1: prAddr; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'JR'; Param1: prAddrRel; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'JRZ'; Param1: prAddrRel; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'JRNZ'; Param1: prAddrRel; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'NEG'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'CLR'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'LDM'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'STM'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'EX'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'PUSH'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'POP'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'CALL'; Param1: prAddr; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'RET'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'ADD'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'ADDI'; Param1: prReg; Param2: prData; Param3: prNone; Prefix: False),
-    (Name: 'SUB'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'SUBI'; Param1: prReg; Param2: prData; Param3: prNone; Prefix: False),
-    (Name: 'INC'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'DEC'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'IN'; Param1: prReg; Param2: prAddr; Param3: prNone; Prefix: False),
-    (Name: 'OUT'; Param1: prAddr; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'SHL'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'SHR'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'DP8'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: True),
-    (Name: 'DP16'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'DP32'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: True),
-    (Name: 'DP64'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: True),
-    (Name: 'DS'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'AS'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'TEST'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: False),
-    (Name: 'AND'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'OR'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'XOR'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'LDDR'; Param1: prReg; Param2: prReg; Param3: prReg; Prefix: False),
-    (Name: 'LDDR'; Param1: prReg; Param2: prReg; Param3: prReg; Prefix: False),
-    (Name: 'MUL'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'DIV'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'MOD'; Param1: prReg; Param2: prReg; Param3: prNone; Prefix: False),
-    (Name: 'AP8'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: True),
-    (Name: 'AP16'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: True),
-    (Name: 'AP32'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: True),
-    (Name: 'AP64'; Param1: prNone; Param2: prNone; Param3: prNone; Prefix: True),
-    (Name: 'CON'; Param1: prReg; Param2: prNone; Param3: prNone; Prefix: True)
-  );
 
 implementation