Changeset 12 for trunk/Core.pas

Timestamp:

Apr 21, 2026, 11:04:26 AM (6 days ago)

Author:

chronos

Message:

• Added: Implemented breakpoints and run to cursor action.

File:

• trunk/Core.pas (modified) (3 diffs)

trunk/Core.pas

@@ -37 +37 @@
     procedure AResetExecute(Sender: TObject);
     procedure ARunExecute(Sender: TObject);
+    procedure ARunToCursorExecute(Sender: TObject);
     procedure AStepInExecute(Sender: TObject);
     procedure AStepOutExecute(Sender: TObject);
@@ -139 +140 @@
 end;
 
+procedure TCore.ARunToCursorExecute(Sender: TObject);
+begin
+  SharpMz800.Cpu.DebugMode := dmStopAddress;
+  SharpMz800.Cpu.DebugStopAddress := FormDisassembler.GetCurrentAddress;
+  SharpMz800.Cpu.Running := True;
+  UpdateInterface;
+end;
+
 procedure TCore.AStepInExecute(Sender: TObject);
 begin
@@ -182 +191 @@
     FormDisassembler.Disassembler.Memory := SharpMz800.MappedMemory;
     FormDisassembler.OnChangePC := DoChangePC;
+    FormDisassembler.Cpu := SharpMz800.Cpu;
     SharpMz800.OnMemoryMappingChange := FormDisassembler.Disassemble;
   end;