Changeset 56 for branches/ByteArray/Cpu.pas

Timestamp:

Nov 22, 2023, 11:37:44 PM (6 months ago)

Author:

chronos

Message:

• Fixed: Assembler to parse correctly register names and numeric values.

File:

• branches/ByteArray/Cpu.pas (modified) (3 diffs)

branches/ByteArray/Cpu.pas

@@ -88 +88 @@
     procedure InstructionDec;
     procedure InstructionDecSize;
+    procedure InstructionXor;
+    procedure InstructionXorSize;
+    procedure InstructionAnd;
+    procedure InstructionAndSize;
+    procedure InstructionOr;
+    procedure InstructionOrSize;
     procedure InitInstructions;
     procedure SetRunning(AValue: Boolean);
@@ -469 +475 @@
   RegIndex := ReadRegIndex;
   Regs[RegIndex] := Regs[RegIndex].Copy(DataSize) - 1;
+end;
+
+procedure TCpu.InstructionXor;
+var
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex] xor Regs[RegIndex2];
+end;
+
+procedure TCpu.InstructionXorSize;
+var
+  DataSize: TBigIntSize;
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  DataSize := ReadSize;
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex].Copy(DataSize) xor Regs[RegIndex2].Copy(DataSize);
+end;
+
+procedure TCpu.InstructionAnd;
+var
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex] and Regs[RegIndex2];
+end;
+
+procedure TCpu.InstructionAndSize;
+var
+  DataSize: TBigIntSize;
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  DataSize := ReadSize;
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex].Copy(DataSize) and Regs[RegIndex2].Copy(DataSize);
+end;
+
+procedure TCpu.InstructionOr;
+var
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex] or Regs[RegIndex2];
+end;
+
+procedure TCpu.InstructionOrSize;
+var
+  DataSize: TBigIntSize;
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  DataSize := ReadSize;
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex].Copy(DataSize) or Regs[RegIndex2].Copy(DataSize);
 end;
 
@@ -507 +579 @@
   FInstructions[inDec] := InstructionDec;
   FInstructions[inDecSize] := InstructionDecSize;
+  FInstructions[inXor] := InstructionXor;
+  FInstructions[inXorSize] := InstructionXorSize;
+  FInstructions[inAnd] := InstructionAnd;
+  FInstructions[inAndSize] := InstructionAndSize;
+  FInstructions[inOr] := InstructionOr;
+  FInstructions[inOrSize] := InstructionOrSize;
 end;