Changeset 12 for trunk/Forms/FormDisassembler.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/Forms/FormDisassembler.pas (modified) (8 diffs)

trunk/Forms/FormDisassembler.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, Menus, Disassembler;
+  ExtCtrls, Menus, Disassembler, Z80;
 
 type
-  TChangePCEvent = procedure (Address: Word) of object;
+  TAddressEvent = procedure (Address: Word) of object;
 
   { TFormDisassembler }
@@ -14 +14 @@
   TFormDisassembler = class(TForm)
     ListView1: TListView;
+    MenuItemRemoveBreakPoint: TMenuItem;
+    MenuItemAddBreakPoint: TMenuItem;
     MenuItemSetAddress: TMenuItem;
     PopupMenu1: TPopupMenu;
@@ -21 +23 @@
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure MenuItemAddBreakPointClick(Sender: TObject);
+    procedure MenuItemRemoveBreakPointClick(Sender: TObject);
     procedure MenuItemSetAddressClick(Sender: TObject);
+    procedure PopupMenu1Popup(Sender: TObject);
   private
-    FOnChangePC: TChangePCEvent;
+    FOnAddBreakPoint: TAddressEvent;
+    FOnChangePC: TAddressEvent;
     procedure DoChangePC(Address: Word);
+    procedure DoAddBreakPoint(Address: Word);
   public
+    Cpu: TCpuZ80;
     Disassembler: TDisassembler;
     procedure Disassemble(Sender: TObject);
     procedure SelectAddress(Address: Word);
     procedure ReloadList;
-    property OnChangePC: TChangePCEvent read FOnChangePC write FOnChangePC;
+    function GetCurrentAddress: Word;
+    property OnChangePC: TAddressEvent read FOnChangePC write FOnChangePC;
+    property OnAddBreakPoint: TAddressEvent read FOnAddBreakPoint write FOnAddBreakPoint;
   end;
 
@@ -64 +74 @@
 
 procedure TFormDisassembler.ListView1Data(Sender: TObject; Item: TListItem);
+var
+  BreakPoint: string;
 begin
   if Item.Index < Disassembler.DecodedInstructions.Count then
   with TDecodedInstruction(Disassembler.DecodedInstructions[Item.Index]) do begin
-    Item.Caption := IntToHex(Address, 4);
+    if Cpu.BreakPoints.Contains(Address) then BreakPoint := ' @'
+      else BreakPoint := '';
+    Item.Caption := IntToHex(Address, 4) + BreakPoint;
     Item.Data := Disassembler.DecodedInstructions[Item.Index];
     Item.SubItems.Add(GetOpcodesText);
@@ -76 +90 @@
 end;
 
+procedure TFormDisassembler.MenuItemAddBreakPointClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    Cpu.BreakPoints.Add(TDecodedInstruction(ListView1.Selected.Data).Address);
+    ReloadList;
+  end;
+end;
+
+procedure TFormDisassembler.MenuItemRemoveBreakPointClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    Cpu.BreakPoints.Remove(TDecodedInstruction(ListView1.Selected.Data).Address);
+    ReloadList;
+  end;
+end;
+
 procedure TFormDisassembler.MenuItemSetAddressClick(Sender: TObject);
 begin
@@ -81 +111 @@
     DoChangePC(TDecodedInstruction(ListView1.Selected.Data).Address);
     SelectAddress(TDecodedInstruction(ListView1.Selected.Data).Address);
+  end;
+end;
+
+procedure TFormDisassembler.PopupMenu1Popup(Sender: TObject);
+begin
+
+  MenuItemSetAddress.Enabled := Assigned(ListView1.Selected);
+  if Assigned(ListView1.Selected) then begin
+    MenuItemRemoveBreakPoint.Enabled := Pos('@', ListView1.Selected.Caption) > 0;
+    MenuItemAddBreakPoint.Enabled := not MenuItemRemoveBreakPoint.Enabled;
+  end else begin
+    MenuItemRemoveBreakPoint.Enabled := False;
+    MenuItemAddBreakPoint.Enabled := False;
   end;
 end;
@@ -93 +136 @@
 begin
   if Assigned(FOnChangePC) then FOnChangePC(Address);
+end;
+
+procedure TFormDisassembler.DoAddBreakPoint(Address: Word);
+begin
+  if Assigned(FOnAddBreakPoint) then FOnAddBreakPoint(Address);
 end;
 
@@ -124 +172 @@
 end;
 
+function TFormDisassembler.GetCurrentAddress: Word;
+begin
+  if Assigned(ListView1.Selected) then
+    Result := TDecodedInstruction(ListView1.Selected.Data).Address
+    else Result := 0;
+end;
+
 end.