Changeset 50 for branches/ByteArray/Cpu.pas

Timestamp:

Nov 2, 2023, 11:18:06 PM (7 months ago)

Author:

chronos

Message:

• Added: Storage form.
• Added: Dissasembler form.
• Added: Debug and release build modes.
• Added: Support for interface translation.

File:

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

branches/ByteArray/Cpu.pas

@@ -41 +41 @@
 
   TInstructionEvent = procedure of object;
+  TCpuThread = class;
 
   { TCpu }
@@ -46 +47 @@
   TCpu = class
   private
-    Instructions: array[TInstruction] of TInstructionEvent;
+    FHalted: Boolean;
+    FRunning: Boolean;
+    FThread: TCpuThread;
+    FInstructions: array[TInstruction] of TInstructionEvent;
+    FTicks: QWord;
     procedure Push(Value: TBigInt; Size: TBigIntSize);
     function Pop(Size: TBigIntSize): TBigInt;
@@ -84 +89 @@
     procedure InstructionDecSize;
     procedure InitInstructions;
+    procedure SetRunning(AValue: Boolean);
+    procedure Run;
+    procedure Step;
   public
     Regs: array[TRegIndex] of TBigInt;
     PC: TBigInt;
     SP: TBigInt;
-    Terminated: Boolean;
     DataWidth: TBigIntSize;
     AddressWidth: TBigIntSize;
@@ -99 +106 @@
     procedure WriteRegister(Reg: TRegIndex);
     procedure Reset;
-    procedure Run;
-    procedure Step;
+    procedure Start;
+    procedure Stop;
     constructor Create;
     destructor Destroy; override;
+    property Ticks: QWord read FTicks;
+    property Running: Boolean read FRunning write SetRunning;
+    property Halted: Boolean read FHalted;
   end;
 
+  { TCpuThread }
+
+  TCpuThread = class(TThread)
+    Cpu: TCpu;
+    procedure Execute; override;
+  end;
+
+
 implementation
+
+{ TCpuThread }
+
+procedure TCpuThread.Execute;
+begin
+  repeat
+    if not Cpu.Halted then Cpu.Step
+      else Sleep(1);
+    //Cpu.CheckInterreupts;
+  until Terminated;
+end;
 
 { TCpu }
@@ -128 +157 @@
 procedure TCpu.InstructionHalt;
 begin
-  Terminated := True;
+  FHalted := True;
 end;
 
@@ -443 +472 @@
 procedure TCpu.InitInstructions;
 begin
-  Instructions[inNop] := InstructionNop;
-  Instructions[inHalt] := InstructionHalt;
-  Instructions[inLoadConst] := InstructionLoadConst;
-  Instructions[inLoadConstSize] := InstructionLoadConstSize;
-  Instructions[inLoad] := InstructionLoad;
-  Instructions[inLoadSize] := InstructionLoadSize;
-  Instructions[inLoadMem] := InstructionLoadMem;
-  Instructions[inLoadMemSize] := InstructionLoadMemSize;
-  Instructions[inStoreMem] := InstructionStoreMem;
-  Instructions[inStoreMemSize] := InstructionStoreMemSize;
-  Instructions[inJump] := InstructionJump;
-  Instructions[inJumpSize] := InstructionJumpSize;
-  Instructions[inJumpNotZero] := InstructionJumpNotZero;
-  Instructions[inJumpNotZeroSize] := InstructionJumpNotZeroSize;
-  Instructions[inJumpZero] := InstructionJumpZero;
-  Instructions[inJumpZeroSize] := InstructionJumpZeroSize;
-  Instructions[inJumpRel] := InstructionJumpRel;
-  Instructions[inJumpRelSize] := InstructionJumpRelSize;
-  Instructions[inCall] := InstructionCall;
-  Instructions[inCallSize] := InstructionCallSize;
-  Instructions[inRet] := InstructionRet;
-  Instructions[inRetSize] := InstructionRetSize;
-  Instructions[inPush] := InstructionPush;
-  Instructions[inPushSize] := InstructionPushSize;
-  Instructions[inPop] := InstructionPop;
-  Instructions[inPopSize] := InstructionPopSize;
-  Instructions[inInput] := InstructionInput;
-  Instructions[inInputSize] := InstructionInputSize;
-  Instructions[inOutput] := InstructionOutput;
-  Instructions[inOutputSize] := InstructionOutputSize;
-  Instructions[inInc] := InstructionInc;
-  Instructions[inIncSize] := InstructionIncSize;
-  Instructions[inDec] := InstructionDec;
-  Instructions[inDecSize] := InstructionDecSize;
+  FInstructions[inNop] := InstructionNop;
+  FInstructions[inHalt] := InstructionHalt;
+  FInstructions[inLoadConst] := InstructionLoadConst;
+  FInstructions[inLoadConstSize] := InstructionLoadConstSize;
+  FInstructions[inLoad] := InstructionLoad;
+  FInstructions[inLoadSize] := InstructionLoadSize;
+  FInstructions[inLoadMem] := InstructionLoadMem;
+  FInstructions[inLoadMemSize] := InstructionLoadMemSize;
+  FInstructions[inStoreMem] := InstructionStoreMem;
+  FInstructions[inStoreMemSize] := InstructionStoreMemSize;
+  FInstructions[inJump] := InstructionJump;
+  FInstructions[inJumpSize] := InstructionJumpSize;
+  FInstructions[inJumpNotZero] := InstructionJumpNotZero;
+  FInstructions[inJumpNotZeroSize] := InstructionJumpNotZeroSize;
+  FInstructions[inJumpZero] := InstructionJumpZero;
+  FInstructions[inJumpZeroSize] := InstructionJumpZeroSize;
+  FInstructions[inJumpRel] := InstructionJumpRel;
+  FInstructions[inJumpRelSize] := InstructionJumpRelSize;
+  FInstructions[inCall] := InstructionCall;
+  FInstructions[inCallSize] := InstructionCallSize;
+  FInstructions[inRet] := InstructionRet;
+  FInstructions[inRetSize] := InstructionRetSize;
+  FInstructions[inPush] := InstructionPush;
+  FInstructions[inPushSize] := InstructionPushSize;
+  FInstructions[inPop] := InstructionPop;
+  FInstructions[inPopSize] := InstructionPopSize;
+  FInstructions[inInput] := InstructionInput;
+  FInstructions[inInputSize] := InstructionInputSize;
+  FInstructions[inOutput] := InstructionOutput;
+  FInstructions[inOutputSize] := InstructionOutputSize;
+  FInstructions[inInc] := InstructionInc;
+  FInstructions[inIncSize] := InstructionIncSize;
+  FInstructions[inDec] := InstructionDec;
+  FInstructions[inDecSize] := InstructionDecSize;
+end;
+
+procedure TCpu.SetRunning(AValue: Boolean);
+begin
+  if FRunning = AValue then Exit;
+  if AValue then Start
+    else Stop;
 end;
 
@@ -516 +552 @@
   PC := 0;
   SP := 0;
-  Terminated := False;
+  FHalted := False;
+  FTicks := 0;
 end;
 
@@ -522 +559 @@
 begin
   Reset;
-  while not Terminated do
+  while not FHalted do
     Step;
 end;
@@ -531 +568 @@
 begin
   Instruction := TInstruction(Byte(Read(1)));
-  Instructions[Instruction];
+  FInstructions[Instruction];
+  Inc(FTicks);
+end;
+
+procedure TCpu.Start;
+begin
+  if not Running then begin
+    Reset;
+    FThread := TCpuThread.Create(True);
+    FThread.Cpu := Self;
+    FThread.Start;
+    FRunning := True;
+  end;
+end;
+
+procedure TCpu.Stop;
+begin
+  if Running then begin
+    FHalted := True;
+    FThread.Terminate;
+    FThread.WaitFor;
+    FreeAndNil(FThread);
+    FRunning := False;
+  end;
 end;
 
@@ -544 +604 @@
 destructor TCpu.Destroy;
 begin
+  Stop;
   FreeAndNil(Memory);
   FreeAndNil(IO);