Changeset 11 for trunk/Z80/Z80.pas

Timestamp:

Apr 20, 2026, 11:55:57 PM (6 days ago)

Author:

chronos

Message:

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

File:

• trunk/Z80/Z80.pas (modified) (2 diffs)

trunk/Z80/Z80.pas

@@ -818 +818 @@
     Memory: TMemory;
     Ticks: Cardinal;
+    Cycles: Cardinal;
     InterruptEnabled: Boolean;
     InterruptMode: Byte;
@@ -851 +852 @@
     Cpu.Step;
     if Cpu.DebugMode <> dmNone then begin
-      if Cpu.DebugMode = dmStepIn then Terminate;
-      if (Cpu.DebugMode = dmStopAddress) and (Cpu.DebugStopAddress = Cpu.PC) then
+      if Cpu.DebugMode = dmStepIn then begin
+        Cpu.DebugMode := dmNone;
         Terminate;
-      Cpu.DebugMode := dmNone;
+      end;
+      if (Cpu.DebugMode = dmStopAddress) and (Cpu.DebugStopAddress = Cpu.PC) then begin
+        Cpu.DebugMode := dmNone;
+        Terminate;
+      end;
+      if Cpu.DebugMode = dmStepOver then begin
+        Cpu.DebugMode := dmNone;
+        Terminate;
+      end;
     end;
   end;