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

trunk/Disassembler.pas

@@ -16 +16 @@
     Name: string;
     Parameters: string;
+    Comment: string;
     constructor Create;
     procedure AddOpcode(Data: Byte);
@@ -41 +42 @@
   end;
 
+  TComment = record
+    Address: Word;
+    Text: string;
+  end;
+
 
 implementation
+
+const
+  Comments: array[0..16] of TComment = (
+    (Address: $6; Text: 'LETNL (Moves the cursor to the beginning of the next line.)'),
+    (Address: $c; Text: 'PRNTS (Display a space at the cursor position.)'),
+    (Address: $12; Text: 'PRNTS (Display a character.)'),
+    (Address: $15; Text: 'MSG (Displays a message.)'),
+    (Address: $30; Text: 'MELDY'),
+    (Address: $3e; Text: 'BELL'),
+    (Address: $41; Text: 'XTEMP (Sets the music tempo.)'),
+    (Address: $44; Text: 'MSTA (Generates a continuous sound of the specified frequency.)'),
+    (Address: $309; Text: 'Init 8253 counters.'),
+    (Address: $3da; Text: 'ASC (Loads the ASCII character.)'),
+    (Address: $3f9; Text: 'HEX (Converts the 8 data bits stored in the ACC into a hexadecimal number.)'),
+    (Address: $410; Text: 'HLHEX (Converts a string of 4 ASCII characters into a hexadecimal number and loads it in the HL register.)'),
+    (Address: $41f; Text: '2HEX (Converts a string of 2 ASCII characters into a hexadecimal number and loads it into the ACC.)'),
+    (Address: $73e; Text: 'Init 8255 PIO.'),
+    (Address: $e414; Text: 'Delay'),
+    (Address: $e800; Text: 'Cold start'),
+    (Address: $e813; Text: 'Base init.')
+  );
+
+function SearchComment(Address: Word): string;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I <= High(Comments)) and (Comments[I].Address <> Address) do Inc(I);
+  if I <= High(Comments) then Result := Comments[I].Text
+    else Result := '';
+end;
 
 { TDecodedInstructions }
@@ -96 +133 @@
   InstructionInfo: TInstructionInfo;
   DecodedInstruction: TDecodedInstruction;
+  DestAddress: Longint;
 begin
   Memory.Position := 0;
@@ -180 +218 @@
       end;
     end;
+
+    DecodedInstruction.Comment := SearchComment(DecodedInstruction.Address);
+    if DecodedInstruction.Comment = '' then begin
+      if DecodedInstruction.Name = 'JP' then
+        if TryStrToInt('$' + DecodedInstruction.Parameters, DestAddress) then begin
+          DecodedInstruction.Comment := SearchComment(DestAddress);
+          if DecodedInstruction.Comment <> '' then DecodedInstruction.Comment := 'Jump to ' + DecodedInstruction.Comment;
+        end;
+      if DecodedInstruction.Name = 'CALL' then
+        if TryStrToInt('$' + DecodedInstruction.Parameters, DestAddress) then begin
+          DecodedInstruction.Comment := SearchComment(DestAddress);
+          if DecodedInstruction.Comment <> '' then DecodedInstruction.Comment := 'Call to ' + DecodedInstruction.Comment;
+        end;
+    end;
     DecodedInstructions.Add(DecodedInstruction);
   end;