Changeset 14 for trunk/Z80/Z80.pas

Timestamp:

Apr 21, 2026, 3:52:53 PM (6 days ago)

Author:

chronos

Message:

• Modified: Pausing CPU thread execution with event object instead of freeing thread object.

File:

• trunk/Z80/Z80.pas (modified) (11 diffs)

trunk/Z80/Z80.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, MemoryTypes, Base, Z80Instructions, Generics.Collections,
-  Generics.Defaults;
+  Classes, SysUtils, SyncObjs, MemoryTypes, Base, Z80Instructions,
+  Generics.Collections, Generics.Defaults;
 
 type
@@ -58 +58 @@
     InstructionAddress: Word;
     MessageText: string;
+    FEvent: TEvent;
+    FPaused: Boolean;
     procedure Error(Message: string);
     function GetCarry: Boolean;
@@ -65 +67 @@
     procedure SetCarry(AValue: Boolean);
     procedure SetParityOverflow(AValue: Boolean);
+    procedure SetPaused(AValue: Boolean);
     procedure SetSignNegative(AValue: Boolean);
     procedure SetZero(AValue: Boolean);
@@ -837 +840 @@
     property SignNegative: Boolean read GetSignNegative write SetSignNegative;
     property Thread: TCpuThread read FThread;
+    property Paused: Boolean read FPaused write SetPaused;
     property Running: Boolean read FRunning write SetRunning;
     property OnRead: TReadEvent read FOnRead write FOnRead;
@@ -856 +860 @@
 begin
   while not Terminated do begin
+    Cpu.FEvent.WaitFor(INFINITE);
     Cpu.Step;
   end;
@@ -900 +905 @@
 end;
 
+procedure TCpuZ80.SetPaused(AValue: Boolean);
+begin
+  if not Running then Exit;
+
+  if FPaused = AValue then Exit;
+  if FPaused then begin
+    FPaused := False;
+    FEvent.SetEvent;
+  end;
+  FPaused := AValue;
+  if FPaused then begin
+    FPaused := True;
+    FEvent.ResetEvent;
+  end;
+end;
+
 procedure TCpuZ80.SetSignNegative(AValue: Boolean);
 begin
@@ -912 +933 @@
 procedure TCpuZ80.SetRunning(AValue: Boolean);
 begin
+  if FRunning and FPaused then Paused := False;
+
   if FRunning = AValue then Exit;
   if FRunning then begin
     FThread.Terminate;
+    if FPaused then Paused := False;
     FThread.WaitFor;
     FreeAndNil(FThread);
@@ -5497 +5521 @@
 var
   Opcode: Byte;
-  Proc: TEvent;
+  Proc: TBaseEvent;
 begin
   InstructionAddress := PC;
@@ -5537 +5561 @@
 begin
   PC := 0;
+  SP := 0;
+  IX := 0;
+  IY := 0;
   AF.Value := 0;
   BC.Value := 0;
   DE.Value := 0;
   HL.Value := 0;
-  SP := 0;
   InterruptEnabled := True;
   InterruptMode := 0;
@@ -5549 +5575 @@
 constructor TCpuZ80.Create;
 begin
+  FRunning := False;
+  FPaused := False;
+  FEvent := TEvent.Create(nil, True, True, '');
   InitInstructions;
   Reset;
@@ -5556 +5585 @@
 begin
   Running := False;
+  FreeAndNil(FEvent);
   inherited;
 end;