Changeset 15 for trunk/Forms/FormCpu.pas

Timestamp:

Apr 21, 2026, 6:15:40 PM (5 days ago)

Author:

chronos

Message:

• Modified: Faster instruction stepping.

File:

• trunk/Forms/FormCpu.pas (modified) (2 diffs)

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;