Changeset 14 for trunk/Core.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/Core.pas (modified) (3 diffs)

trunk/Core.pas

@@ -85 +85 @@
 { TCore }
 
+procedure TCore.AExitExecute(Sender: TObject);
+begin
+  Application.Terminate;
+end;
+
+procedure TCore.AGoToAddressExecute(Sender: TObject);
+var
+  FormGoToAddress: TFormGoToAddress;
+  Address: LongInt;
+begin
+  FormGoToAddress := TFormGoToAddress.Create(nil);
+  try
+    if FormGoToAddress.ShowModal = mrOk then begin
+      if TryStrToInt(FormGoToAddress.EditAddress.Text, Address) then
+        FormDisassembler.SelectAddress(Address);
+    end;
+  finally
+    FormGoToAddress.Free;
+  end;
+end;
+
+procedure TCore.AInstructionSetGenExecute(Sender: TObject);
+var
+  InstructionSetGen: TInstructionSetGen;
+begin
+  InstructionSetGen := TInstructionSetGen.Create;
+  InstructionSetGen.Generate('Z80/InstructionSet.html');
+  InstructionSetGen.Free;
+end;
+
+procedure TCore.APauseExecute(Sender: TObject);
+begin
+  SharpMz800.Cpu.Paused := True;
+  UpdateInterface;
+end;
+
+procedure TCore.AResetExecute(Sender: TObject);
+var
+  IsRunning: Boolean;
+  IsPaused: Boolean;
+begin
+  IsRunning := SharpMz800.Cpu.Running;
+  IsPaused := SharpMz800.Cpu.Paused;
+  SharpMz800.Cpu.Running := False;
+  SharpMz800.Cpu.Reset;
+  Debugger.Reset;
+  if Assigned(FormMessages) then FormMessages.Messages.Clear;
+  SharpMz800.Cpu.Running := IsRunning;
+  SharpMz800.Cpu.Paused := IsPaused;
+  UpdateInterface;
+end;
+
+procedure TCore.ARunExecute(Sender: TObject);
+begin
+  SharpMz800.Cpu.Running := True;
+  UpdateInterface;
+end;
+
+procedure TCore.ARunToCursorExecute(Sender: TObject);
+begin
+  Debugger.DebugMode := dmStopAddress;
+  Debugger.DebugStopAddress := FormDisassembler.GetCurrentAddress;
+  Debugger.Cpu.Running := True;
+  UpdateInterface;
+end;
+
+procedure TCore.AStepInExecute(Sender: TObject);
+begin
+  Debugger.DebugMode := dmStepIn;
+  Debugger.Cpu.Running := True;
+  UpdateInterface;
+end;
+
+procedure TCore.AStepOutExecute(Sender: TObject);
+begin
+  Debugger.DebugMode := dmStepOut;
+  Debugger.Cpu.Running := True;
+  UpdateInterface;
+end;
+
+procedure TCore.AStepOverExecute(Sender: TObject);
+begin
+  Debugger.DebugMode := dmStepOver;
+  Debugger.Cpu.Running := True;
+  UpdateInterface;
+end;
+
+procedure TCore.AStopExecute(Sender: TObject);
+begin
+  SharpMz800.Cpu.Running := False;
+  UpdateInterface;
+end;
+
+procedure TCore.AViewCallStackExecute(Sender: TObject);
+begin
+  if not Assigned(FormCallStack) then begin
+    FormCallStack := TFormCallStack.Create(nil);
+    FormCallStack.Debugger := Debugger;
+  end;
+  FormCallStack.Show;
+end;
+
+procedure TCore.AViewCpuExecute(Sender: TObject);
+begin
+  if not Assigned(FormCpu) then begin
+    FormCpu := TFormCpu.Create(nil);
+    FormCpu.Cpu := SharpMz800.Cpu;
+  end;
+  FormCpu.Show;
+end;
+
+procedure TCore.AViewDissssemblerExecute(Sender: TObject);
+begin
+  if not Assigned(FormDisassembler) then begin
+    FormDisassembler := TFormDisassembler.Create(nil);
+    FormDisassembler.OnChangePC := DoChangePC;
+    FormDisassembler.Debugger := Debugger;
+    FormDisassembler.Disassembler := Disassembler;
+    SharpMz800.OnMemoryMappingChange := FormDisassembler.Disassemble;
+  end;
+  FormDisassembler.Show;
+  FormMessages.AddMessage(FormDisassembler.Disassembler.InstructionSet.Check(SharpMz800.Cpu.Instructions));
+end;
+
+procedure TCore.AViewMemoryExecute(Sender: TObject);
+begin
+  if not Assigned(FormMemory) then begin
+    FormMemory := TFormMemory.Create(nil);
+    FormMemory.Areas.Add(SharpMz800.Memory);
+    FormMemory.Areas.Add(SharpMz800.BaseRom);
+    FormMemory.Areas.Add(SharpMz800.ExtendedRom);
+    FormMemory.Areas.Add(SharpMz800.VideoRam);
+    FormMemory.Areas.Add(SharpMz800.CharacterRom);
+    FormMemory.Areas.Add(SharpMz800.MappedIO);
+  end;
+  FormMemory.Show;
+end;
+
+procedure TCore.AViewMessagesExecute(Sender: TObject);
+begin
+  if not Assigned(FormMessages) then begin
+    FormMessages := TFormMessages.Create(nil);
+    SharpMz800.OnMessage := FormMessages.AddMessage;
+  end;
+  FormMessages.Show;
+end;
+
+procedure TCore.AViewScreenExecute(Sender: TObject);
+begin
+  if not Assigned(FormScreen) then begin
+    FormScreen := TFormScreen.Create(nil);
+  end;
+  FormScreen.Show;
+end;
+
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
@@ -95 +250 @@
   Debugger.OnChange := DebuggerChange;
   Debugger.Disassembler := Disassembler;
-//  SharpMz800.PowerOn;
   FormMain := TFormMain.Create(nil);
   FormMain.Show;
 end;
 
-procedure TCore.AExitExecute(Sender: TObject);
-begin
-  Application.Terminate;
-end;
-
-procedure TCore.AGoToAddressExecute(Sender: TObject);
-var
-  FormGoToAddress: TFormGoToAddress;
-  Address: LongInt;
-begin
-  FormGoToAddress := TFormGoToAddress.Create(nil);
-  try
-    if FormGoToAddress.ShowModal = mrOk then begin
-      if TryStrToInt(FormGoToAddress.EditAddress.Text, Address) then
-        FormDisassembler.SelectAddress(Address);
-    end;
-  finally
-    FormGoToAddress.Free;
-  end;
-end;
-
-procedure TCore.AInstructionSetGenExecute(Sender: TObject);
-var
-  InstructionSetGen: TInstructionSetGen;
-begin
-  InstructionSetGen := TInstructionSetGen.Create;
-  InstructionSetGen.Generate('Z80/InstructionSet.html');
-  InstructionSetGen.Free;
-end;
-
-procedure TCore.APauseExecute(Sender: TObject);
+procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
   SharpMz800.Cpu.Running := False;
-  UpdateInterface;
-end;
-
-procedure TCore.AResetExecute(Sender: TObject);
-var
-  IsRunning: Boolean;
-begin
-  IsRunning := SharpMz800.Cpu.Running;
-  SharpMz800.Cpu.Running := False;
-  SharpMz800.Cpu.Reset;
-  SharpMz800.Cpu.Running := IsRunning;
-  UpdateInterface;
-end;
-
-procedure TCore.ARunExecute(Sender: TObject);
-begin
-  SharpMz800.Cpu.Running := True;
-  UpdateInterface;
-end;
-
-procedure TCore.ARunToCursorExecute(Sender: TObject);
-begin
-  Debugger.DebugMode := dmStopAddress;
-  Debugger.DebugStopAddress := FormDisassembler.GetCurrentAddress;
-  Debugger.Cpu.Running := True;
-  UpdateInterface;
-end;
-
-procedure TCore.AStepInExecute(Sender: TObject);
-begin
-  Debugger.DebugMode := dmStepIn;
-  Debugger.Cpu.Running := True;
-  UpdateInterface;
-end;
-
-procedure TCore.AStepOutExecute(Sender: TObject);
-begin
-  Debugger.DebugMode := dmStepOut;
-  Debugger.Cpu.Running := True;
-  UpdateInterface;
-end;
-
-procedure TCore.AStepOverExecute(Sender: TObject);
-begin
-  Debugger.DebugMode := dmStepOver;
-  Debugger.Cpu.Running := True;
-  UpdateInterface;
-end;
-
-procedure TCore.AStopExecute(Sender: TObject);
-begin
-  SharpMz800.Cpu.Running := False;
-  SharpMz800.Cpu.Reset;
-  UpdateInterface;
-end;
-
-procedure TCore.AViewCallStackExecute(Sender: TObject);
-begin
-  if not Assigned(FormCallStack) then begin
-    FormCallStack := TFormCallStack.Create(nil);
-    FormCallStack.Debugger := Debugger;
-  end;
-  FormCallStack.Show;
-end;
-
-procedure TCore.AViewCpuExecute(Sender: TObject);
-begin
-  if not Assigned(FormCpu) then begin
-    FormCpu := TFormCpu.Create(nil);
-    FormCpu.Cpu := SharpMz800.Cpu;
-  end;
-  FormCpu.Show;
-end;
-
-procedure TCore.AViewDissssemblerExecute(Sender: TObject);
-begin
-  if not Assigned(FormDisassembler) then begin
-    FormDisassembler := TFormDisassembler.Create(nil);
-    FormDisassembler.OnChangePC := DoChangePC;
-    FormDisassembler.Debugger := Debugger;
-    FormDisassembler.Disassembler := Disassembler;
-    SharpMz800.OnMemoryMappingChange := FormDisassembler.Disassemble;
-  end;
-  FormDisassembler.Show;
-  FormMessages.AddMessage(FormDisassembler.Disassembler.InstructionSet.Check(SharpMz800.Cpu.Instructions));
-end;
-
-procedure TCore.AViewMemoryExecute(Sender: TObject);
-begin
-  if not Assigned(FormMemory) then begin
-    FormMemory := TFormMemory.Create(nil);
-    FormMemory.Areas.Add(SharpMz800.Memory);
-    FormMemory.Areas.Add(SharpMz800.BaseRom);
-    FormMemory.Areas.Add(SharpMz800.ExtendedRom);
-    FormMemory.Areas.Add(SharpMz800.VideoRam);
-    FormMemory.Areas.Add(SharpMz800.CharacterRom);
-    FormMemory.Areas.Add(SharpMz800.MappedIO);
-  end;
-  FormMemory.Show;
-end;
-
-procedure TCore.AViewMessagesExecute(Sender: TObject);
-begin
-  if not Assigned(FormMessages) then begin
-    FormMessages := TFormMessages.Create(nil);
-    SharpMz800.OnMessage := FormMessages.AddMessage;
-  end;
-  FormMessages.Show;
-end;
-
-procedure TCore.AViewScreenExecute(Sender: TObject);
-begin
-  if not Assigned(FormScreen) then begin
-    FormScreen := TFormScreen.Create(nil);
-  end;
-  FormScreen.Show;
-end;
-
-procedure TCore.DataModuleDestroy(Sender: TObject);
-begin
   if Assigned(FormCpu) then FreeAndNil(FormCpu);
   if Assigned(FormDisassembler) then FreeAndNil(FormDisassembler);
@@ -292 +296 @@
 procedure TCore.UpdateInterface;
 begin
-  ARun.Enabled := not SharpMz800.Cpu.Running;
-  AStop.Enabled := SharpMz800.Cpu.Running;
-  APause.Enabled := SharpMz800.Cpu.Running;
-  AStepIn.Enabled := not SharpMz800.Cpu.Running;
-  AStepOut.Enabled := not SharpMz800.Cpu.Running;
-  AStepOver.Enabled := not SharpMz800.Cpu.Running;
-  ARunToCursor.Enabled := not SharpMz800.Cpu.Running;
+  ARun.Enabled := not SharpMz800.Cpu.Running or (SharpMz800.Cpu.Running and SharpMz800.Cpu.Paused);
+  AStop.Enabled := SharpMz800.Cpu.Running and not SharpMz800.Cpu.Paused;
+  APause.Enabled := SharpMz800.Cpu.Running and not SharpMz800.Cpu.Paused;
+  AStepIn.Enabled := not SharpMz800.Cpu.Running or (SharpMz800.Cpu.Running and SharpMz800.Cpu.Paused);
+  AStepOut.Enabled := not SharpMz800.Cpu.Running or (SharpMz800.Cpu.Running and SharpMz800.Cpu.Paused);
+  AStepOver.Enabled := not SharpMz800.Cpu.Running or (SharpMz800.Cpu.Running and SharpMz800.Cpu.Paused);
+  ARunToCursor.Enabled := not SharpMz800.Cpu.Running or (SharpMz800.Cpu.Running and SharpMz800.Cpu.Paused);
 end;