Changeset 57 for branches/ByteArray/Cpu.pas

Timestamp:

Nov 23, 2023, 10:42:57 PM (14 months ago)

Author:

chronos

Message:

• Added: Settings form.
• Added: Configurable theme and interface language.
• Modified: Improved user interface.
• Added: Allow to select what should be visible as main start up form.

File:

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

branches/ByteArray/Cpu.pas

@@ -94 +94 @@
     procedure InstructionOr;
     procedure InstructionOrSize;
+    procedure InstructionAdd;
+    procedure InstructionAddSize;
+    procedure InstructionSub;
+    procedure InstructionSubSize;
     procedure InitInstructions;
     procedure SetRunning(AValue: Boolean);
@@ -541 +545 @@
   RegIndex2 := ReadRegIndex;
   Regs[RegIndex] := Regs[RegIndex].Copy(DataSize) or Regs[RegIndex2].Copy(DataSize);
+end;
+
+procedure TCpu.InstructionAdd;
+var
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex] + Regs[RegIndex2];
+end;
+
+procedure TCpu.InstructionAddSize;
+var
+  DataSize: TBigIntSize;
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  DataSize := ReadSize;
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex].Copy(DataSize) + Regs[RegIndex2].Copy(DataSize);
+end;
+
+procedure TCpu.InstructionSub;
+var
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex] - Regs[RegIndex2];
+end;
+
+procedure TCpu.InstructionSubSize;
+var
+  DataSize: TBigIntSize;
+  RegIndex: TRegIndex;
+  RegIndex2: TRegIndex;
+begin
+  DataSize := ReadSize;
+  RegIndex := ReadRegIndex;
+  RegIndex2 := ReadRegIndex;
+  Regs[RegIndex] := Regs[RegIndex].Copy(DataSize) + Regs[RegIndex2].Copy(DataSize);
 end;
 
@@ -585 +633 @@
   FInstructions[inOr] := InstructionOr;
   FInstructions[inOrSize] := InstructionOrSize;
+  FInstructions[inAdd] := InstructionAdd;
+  FInstructions[inAddSize] := InstructionAddSize;
+  FInstructions[inSub] := InstructionSub;
+  FInstructions[inSubSize] := InstructionSubSize;
 end;