Changeset 15 for trunk/Forms

Timestamp:

Apr 21, 2026, 6:15:40 PM (3 weeks ago)

Author:

chronos

Message:

• Modified: Faster instruction stepping.

Location:

trunk/Forms

Files:

• FormCallStack.lfm (modified) (1 diff)
• FormCpu.lfm (modified) (2 diffs)
• FormCpu.pas (modified) (2 diffs)
• FormDisassembler.lfm (modified) (1 diff)
• FormDisassembler.pas (modified) (4 diffs)
• FormMemory.lfm (modified) (1 diff)
• FormMemory.pas (modified) (6 diffs)
• FormMessages.lfm (modified) (1 diff)

trunk/Forms/FormCallStack.lfm

@@ -41 +41 @@
   end
   object Timer1: TTimer
-    Interval = 100
+    Interval = 50
     OnTimer = Timer1Timer
     Left = 91

trunk/Forms/FormCpu.lfm

@@ -9 +9 @@
   DesignTimePPI = 144
   LCLVersion = '4.6.0.0'
+  OnCreate = FormCreate
+  OnShow = FormShow
   object GroupBox1: TGroupBox
     Left = 8
@@ -33 +35 @@
     end
   end
-  object TimerUpdate: TTimer
-    Interval = 200
-    OnTimer = TimerUpdateTimer
-    Left = 324
-    Top = 147
+  object Timer1: TTimer
+    Interval = 50
+    OnTimer = Timer1Timer
+    Left = 134
+    Top = 214
   end
 end

trunk/Forms/FormCpu.pas

@@ -13 +13 @@
   TFormCpu = class(TForm)
     GroupBox1: TGroupBox;
-    TimerUpdate: TTimer;
+    Timer1: TTimer;
     ValueListEditor1: TValueListEditor;
-    procedure TimerUpdateTimer(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+  private
+    FReloadPending: Boolean;
   public
     Cpu: TCpuZ80;
+    procedure Reload;
   end;
 
@@ -27 +32 @@
 { TFormCpu }
 
-procedure TFormCpu.TimerUpdateTimer(Sender: TObject);
+procedure TFormCpu.Timer1Timer(Sender: TObject);
 begin
-  ValueListEditor1.Values['AF'] := IntToHex(Cpu.AF.Value, 4);
-  ValueListEditor1.Values['BC'] := IntToHex(Cpu.BC.Value, 4);
-  ValueListEditor1.Values['DE'] := IntToHex(Cpu.DE.Value, 4);
-  ValueListEditor1.Values['HL'] := IntToHex(Cpu.HL.Value, 4);
-  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);
+  if FReloadPending then begin
+    FReloadPending := False;
+    ValueListEditor1.Values['AF'] := IntToHex(Cpu.AF.Value, 4);
+    ValueListEditor1.Values['BC'] := IntToHex(Cpu.BC.Value, 4);
+    ValueListEditor1.Values['DE'] := IntToHex(Cpu.DE.Value, 4);
+    ValueListEditor1.Values['HL'] := IntToHex(Cpu.HL.Value, 4);
+    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;
+end;
+
+procedure TFormCpu.FormCreate(Sender: TObject);
+begin
+  end;
+
+procedure TFormCpu.FormShow(Sender: TObject);
+begin
+  Reload;
+end;
+
+procedure TFormCpu.Reload;
+begin
+  FReloadPending := True;
 end;
 

trunk/Forms/FormDisassembler.lfm

@@ -66 +66 @@
   end
   object Timer1: TTimer
-    Interval = 100
+    Interval = 50
     OnTimer = Timer1Timer
     Left = 568

trunk/Forms/FormDisassembler.pas

@@ -31 +31 @@
     FOnAddBreakPoint: TAddressEvent;
     FOnChangePC: TAddressEvent;
+    FLastPC: Word;
     procedure DoChangePC(Address: Word);
     procedure DoAddBreakPoint(Address: Word);
+    procedure UpdateDisassemblerPos;
   public
     Debugger: TDebugger;
@@ -55 +57 @@
 { TFormDisassembler }
 
+procedure TFormDisassembler.UpdateDisassemblerPos;
+begin
+  if FLastPc <> Debugger.Cpu.Pc then begin
+    SelectAddress(Debugger.Cpu.PC);
+    FLastPc := Debugger.Cpu.Pc;
+  end;
+end;
+
 procedure TFormDisassembler.FormClose(Sender: TObject;
   var CloseAction: TCloseAction);
@@ -62 +72 @@
 procedure TFormDisassembler.FormCreate(Sender: TObject);
 begin
+  FLastPC := $ffff;
 end;
 
@@ -128 +139 @@
 procedure TFormDisassembler.Timer1Timer(Sender: TObject);
 begin
+  UpdateDisassemblerPos;
   if FReloadPending then begin
     FReloadPending := False;

trunk/Forms/FormMemory.lfm

@@ -59 +59 @@
   end
   object Timer1: TTimer
-    Interval = 100
+    Interval = 50
     OnTimer = Timer1Timer
     Left = 469

trunk/Forms/FormMemory.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
-  StdCtrls, MemoryTypes, Generics.Collections;
+  StdCtrls, MemoryTypes, Generics.Collections, Math;
 
 type
@@ -31 +31 @@
     procedure ReloadAreas;
     procedure Reload;
+    procedure ReloadList;
   end;
 
@@ -46 +47 @@
 procedure TFormMemory.Reload;
 begin
-  ListViewMemory.Items.Count := FSize div ItemsPerLine;
+  FReloadPending := True;
+end;
+
+procedure TFormMemory.ReloadList;
+begin
+  ListViewMemory.Items.Count := Ceil(FSize / ItemsPerLine);
   ListViewMemory.Refresh;
 end;
@@ -56 +62 @@
   Text: string;
   One: Byte;
+  Count: Byte;
+  Address: Word;
 begin
-  if Item.Index < FSize div ItemsPerLine then begin
+  Address := Item.Index * ItemsPerLine;
+  if Address < FSize then begin
+    Count := ItemsPerLine;
+    if (Address + Count) >= FSize then
+      Count := FSize - Address;
     Line := '';
     Text := '';
-    for I := 0 to ItemsPerLine - 1 do begin
-      One := FMemory.Read(Item.Index * ItemsPerLine + I);
+    for I := 0 to Count - 1 do begin
+      One := FMemory.Read(Address + I);
       Line := Line + IntToHex(One, 2) + ' ';
       if One >= 32 then Text := Text + Char(One)
         else Text := Text + ' ';
     end;
-    Item.Caption := IntToHex(Item.Index * ItemsPerLine, 8);
+    Item.Caption := IntToHex(Address, 8);
     Item.SubItems.Add(Line);
     Item.SubItems.Add(Text);
@@ -76 +88 @@
   ReloadAreas;
   ComboBoxAreaSelect(nil);
-  FReloadPending := True;
+  Reload;
 end;
 
@@ -105 +117 @@
   if FReloadPending then begin
     FReloadPending := False;
-    Reload;
+    ReloadList;
   end;
 end;

trunk/Forms/FormMessages.lfm

@@ -23 +23 @@
   end
   object Timer1: TTimer
-    Interval = 100
+    Interval = 50
     OnTimer = Timer1Timer
     Left = 357