Changeset 11 for trunk/Core.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/Core.pas (modified) (3 diffs)

trunk/Core.pas

@@ -51 +51 @@
   private
     LastPc: Word;
+    procedure DoChangePC(Address: Word);
   public
     FormMain: TFormMain;
@@ -180 +181 @@
     FormDisassembler := TFormDisassembler.Create(nil);
     FormDisassembler.Disassembler.Memory := SharpMz800.MappedMemory;
+    FormDisassembler.OnChangePC := DoChangePC;
     SharpMz800.OnMemoryMappingChange := FormDisassembler.Disassemble;
   end;
@@ -234 +236 @@
 end;
 
+procedure TCore.DoChangePC(Address: Word);
+begin
+  SharpMz800.Cpu.PC := Address;
+end;
+
 procedure TCore.UpdateDisassemblerPos;
 begin