Changeset 5 for trunk/Disassembler.pas

Timestamp:

Apr 18, 2026, 7:24:02 PM (9 days ago)

Author:

chronos

Message:

• Added: Some I/O ports handling.
• Added: Messages form for capturing error messages.
• Added: Go to address action.
• Added: Allow to view all used memory areas in Memory window.
• Added: Allow to reset CPU execution.
• Modified: Improved memory mapping for MZ-700 and MZ-800 modes.
• Fixed: Focusing currently executed instruction position.
• Fixed: Wrong order or 8-bit registers in 16-bit pair.

File:

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

trunk/Disassembler.pas

@@ -24 +24 @@
   TDecodedInstructions = class(TObjectList<TDecodedInstruction>)
     function SearchAddress(Address: Word): TDecodedInstruction;
+    function SearchAddressIndex(Address: Word): Integer;
   end;
 
@@ -52 +53 @@
   if I < Count then Result := Items[I]
     else Result := nil;
+end;
+
+function TDecodedInstructions.SearchAddressIndex(Address: Word): Integer;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (Items[I].Address <> Address) do Inc(I);
+  if I < Count then Result := I
+    else Result := -1;
 end;