Changeset 14 for branches/test2/Cpu.pas

Timestamp:

Nov 6, 2025, 10:35:31 PM (35 hours ago)

Author:

chronos

Message:

• Added: More instructions to test2 project.

Location:

branches/test2

Files:

• . (modified) (1 prop)
• Cpu.pas (modified) (9 diffs)

branches/test2/Cpu.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, Generics.Collections;
 
 type
-  TOperation = (opNoOperation, opTerminate, opCopyMem, opIncrement, opAdd, opSet,
-    opInput, opOutput, opJump, opJumpRelative, opCall, opReturn, opPush, opPop);
+  TOperation = (opNoOperation, opTerminate, opCopyMem, opCopyMemIndex, opSet,
+    opExchange,
+    opIncrement, opDecrement,
+    opAdd, opSubtract, opMultiply, opDivide,
+    opShiftLeft, opShiftRight,
+    opInput, opOutput,
+    opJump, opJumpZero, opJumpNotZero,
+    opJumpRelative, opJumpRelativeZero, opJumpRelativeNotZero,
+    opPush, opPop,
+    opCall, opReturn,
+    opOr, opXor, opAnd,
+    opSetBit, opResetBit);
 
   TData = Cardinal;
@@ -16 +26 @@
     Source: TData;
     Destination: TData;
+    Count: TData;
   end;
+
+  TInstructions = TList<TInstruction>;
 
   TInputEvent = function (Address: TData): TData of object;
@@ -30 +43 @@
     function Pop: TData;
   public
-    Instructions: array of TInstruction;
+    Instructions: TInstructions;
     IP: Integer;
     SP: Integer;
     Terminated: Boolean;
     Memory: array of TData;
-    function AddInstruction(Operation: TOperation; Destination, Source: TData): TInstruction;
+    function AddInstruction(Operation: TOperation; Destination: TData = 0;
+      Source: TData = 0; Count: TData = 0): TInstruction;
     procedure Reset;
     procedure Step;
     procedure Run;
+    constructor Create;
     destructor Destroy; override;
     property OnInput: TInputEvent read FOnInput write FOnInput;
@@ -61 +76 @@
 end;
 
-function TCpu.AddInstruction(Operation: TOperation; Destination,
-  Source: TData): TInstruction;
+function TCpu.AddInstruction(Operation: TOperation; Destination: TData = 0;
+  Source: TData = 0; Count: TData = 0): TInstruction;
 begin
   Result.Operation := Operation;
   Result.Destination := Destination;
   Result.Source := Source;
-  SetLength(Instructions, Length(Instructions) + 1);
-  Instructions[Length(Instructions) - 1] := Result;
+  Result.Count := Count;
+  Instructions.Add(Result);
 end;
 
@@ -81 +96 @@
 var
   Instruction: TInstruction;
+  Temp: TData;
 begin
   Instruction := Instructions[IP];
-  IP := (IP + 1) mod Length(Instructions);
+  IP := (IP + 1) mod Instructions.Count;
   case Instruction.Operation of
     opNoOperation: ;
     opTerminate: Terminated := True;
     opCopyMem: Memory[Instruction.Destination] := Memory[Instruction.Source];
+    opCopyMemIndex: Memory[Instruction.Destination] := Memory[Instruction.Source] + Instruction.Count;
+    opExchange: begin
+      Temp := Memory[Instruction.Destination];
+      Memory[Instruction.Destination] := Memory[Instruction.Source];
+      Memory[Instruction.Source] := Temp;
+    end;
     opIncrement: Memory[Instruction.Destination] := Memory[Instruction.Destination] + 1;
+    opDecrement: Memory[Instruction.Destination] := Memory[Instruction.Destination] - 1;
     opAdd: Memory[Instruction.Destination] := Memory[Instruction.Destination] + Memory[Instruction.Source];
+    opSubtract: Memory[Instruction.Destination] := Memory[Instruction.Destination] - Memory[Instruction.Source];
+    opMultiply: Memory[Instruction.Destination] := Memory[Instruction.Destination] * Memory[Instruction.Source];
+    opDivide: Memory[Instruction.Destination] := Memory[Instruction.Destination] div Memory[Instruction.Source];
     opSet: Memory[Instruction.Destination] := Instruction.Source;
     opOutput: if Assigned(FOnOutput) then FOnOutput(Instruction.Destination, Memory[Instruction.Source]);
@@ -95 +121 @@
       else Memory[Instruction.Destination] := 0;
     opJump: IP := Instruction.Destination;
+    opJumpZero: if Memory[Instruction.Source] = 0 then IP := Instruction.Destination;
+    opJumpNotZero: if Memory[Instruction.Source] <> 0 then IP := IP + Instruction.Destination;
     opJumpRelative: IP := IP + Instruction.Destination;
+    opJumpRelativeZero: if Memory[Instruction.Source] = 0 then IP := IP + Instruction.Destination;
+    opJumpRelativeNotZero: if Memory[Instruction.Source] <> 0 then IP := IP + Instruction.Destination;
     opPush: Push(Memory[Instruction.Source]);
     opPop: Memory[Instruction.Destination] := Pop;
@@ -103 +133 @@
     end;
     opReturn: IP := Pop;
+    opShiftLeft: Memory[Instruction.Destination] := Memory[Instruction.Destination] shl Memory[Instruction.Source];
+    opShiftRight: Memory[Instruction.Destination] := Memory[Instruction.Destination] shr Memory[Instruction.Source];
+    opOr: Memory[Instruction.Destination] := Memory[Instruction.Destination] or Memory[Instruction.Source];
+    opXor: Memory[Instruction.Destination] := Memory[Instruction.Destination] xor Memory[Instruction.Source];
+    opAnd: Memory[Instruction.Destination] := Memory[Instruction.Destination] and Memory[Instruction.Source];
+    opSetBit: Memory[Instruction.Destination] := Memory[Instruction.Destination] or (1 shl Memory[Instruction.Source]);
+    opResetBit: Memory[Instruction.Destination] := Memory[Instruction.Destination] and (High(TData) xor (1 shl Memory[Instruction.Source]));
   end;
 
@@ -121 +158 @@
 procedure TCpu.Run;
 begin
-  if Length(Instructions) = 0 then
+  if Instructions.Count = 0 then
     raise Exception.Create('No program for execution.');
   Reset;
@@ -128 +165 @@
 end;
 
+constructor TCpu.Create;
+begin
+  Instructions := TInstructions.Create;
+end;
+
 destructor TCpu.Destroy;
 begin
   Terminated := True;
+  FreeAndNil(Instructions);
 end;