Changeset 11 for trunk/Forms

Timestamp:

Apr 20, 2026, 11:55:57 PM (3 weeks ago)

Author:

chronos

Message:

• Added: Show comments in disassembled addresses.
• Fixed: Stepping in code.
• Modified: Show more registers in CPU view.

Location:

trunk/Forms

Files:

• FormCpu.lfm (modified) (1 diff)
• FormCpu.pas (modified) (1 diff)
• FormDisassembler.lfm (modified) (2 diffs)
• FormDisassembler.pas (modified) (5 diffs)

trunk/Forms/FormCpu.lfm

@@ -1 +1 @@
 object FormCpu: TFormCpu
   Left = 834
-  Height = 438
+  Height = 657
   Top = 501
-  Width = 476
+  Width = 274
   Caption = 'CPU'
-  ClientHeight = 438
-  ClientWidth = 476
+  ClientHeight = 657
+  ClientWidth = 274
   DesignTimePPI = 144
-  LCLVersion = '2.2.6.0'
+  LCLVersion = '4.6.0.0'
   object GroupBox1: TGroupBox
     Left = 22
-    Height = 370
+    Height = 546
     Top = 22
     Width = 230
     Caption = 'Registers'
-    ClientHeight = 343
+    ClientHeight = 519
     ClientWidth = 228
     TabOrder = 0
     object ValueListEditor1: TValueListEditor
       Left = 16
-      Height = 323
+      Height = 499
       Top = 5
       Width = 192
-      FixedCols = 0
+      Anchors = [akTop, akLeft, akRight, akBottom]
       RowCount = 2
       TabOrder = 0

trunk/Forms/FormCpu.pas

@@ -35 +35 @@
   ValueListEditor1.Values['PC'] := IntToHex(Cpu.PC, 4);
   ValueListEditor1.Values['SP'] := IntToHex(Cpu.SP, 4);
+  ValueListEditor1.Values['IX'] := IntToHex(Cpu.IX, 4);
+  ValueListEditor1.Values['IY'] := IntToHex(Cpu.IY, 4);
+  ValueListEditor1.Values['R'] := IntToHex(Cpu.RegR, 2);
+  ValueListEditor1.Values['I'] := IntToHex(Cpu.RegI, 2);
+  ValueListEditor1.Values['IM'] := IntToStr(Cpu.InterruptMode);
+  ValueListEditor1.Values['EI'] := IntToStr(Byte(Cpu.InterruptEnabled));
+  ValueListEditor1.Values['Cycles'] := IntToStr(Cpu.Cycles);
   ValueListEditor1.Values['Ticks'] := IntToStr(Cpu.Ticks);
 end;

trunk/Forms/FormDisassembler.lfm

@@ -34 +34 @@
       item
         Caption = 'Parameters'
-        Width = 691
+        Width = 100
+      end    
+      item
+        Caption = 'Comment'
+        Width = 591
       end>
     OwnerData = True
+    PopupMenu = PopupMenu1
     ReadOnly = True
     RowSelect = True
@@ -43 +48 @@
     OnData = ListView1Data
   end
+  object PopupMenu1: TPopupMenu
+    Left = 433
+    Top = 343
+    object MenuItemSetAddress: TMenuItem
+      Caption = 'Set PC to address'
+      OnClick = MenuItemSetAddressClick
+    end
+  end
 end

trunk/Forms/FormDisassembler.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, Disassembler;
+  ExtCtrls, Menus, Disassembler;
 
 type
+  TChangePCEvent = procedure (Address: Word) of object;
 
   { TFormDisassembler }
@@ -13 +14 @@
   TFormDisassembler = class(TForm)
     ListView1: TListView;
+    MenuItemSetAddress: TMenuItem;
+    PopupMenu1: TPopupMenu;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -18 +21 @@
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure MenuItemSetAddressClick(Sender: TObject);
+  private
+    FOnChangePC: TChangePCEvent;
+    procedure DoChangePC(Address: Word);
   public
     Disassembler: TDisassembler;
@@ -23 +30 @@
     procedure SelectAddress(Address: Word);
     procedure ReloadList;
+    property OnChangePC: TChangePCEvent read FOnChangePC write FOnChangePC;
   end;
 
@@ -64 +72 @@
     Item.SubItems.Add(Name);
     Item.SubItems.Add(Parameters);
+    Item.SubItems.Add(Comment);
   end;
 end;
 
-procedure TFormDisassembler.Disassemble;
+procedure TFormDisassembler.MenuItemSetAddressClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    DoChangePC(TDecodedInstruction(ListView1.Selected.Data).Address);
+    SelectAddress(TDecodedInstruction(ListView1.Selected.Data).Address);
+  end;
+end;
+
+procedure TFormDisassembler.Disassemble(Sender: TObject);
 begin
   Disassembler.Disassemble;
   ReloadList;
+end;
+
+procedure TFormDisassembler.DoChangePC(Address: Word);
+begin
+  if Assigned(FOnChangePC) then FOnChangePC(Address);
 end;