Changeset 6 for trunk/Forms/FormDisassembler.pas

Timestamp:

Apr 19, 2026, 10:45:05 AM (8 days ago)

Author:

chronos

Message:

• Modified: Execute instructions from array of methods instead of big case statement.
• Added: Check which instructions are missing in InstructionInfo.
• Added: Instruction generator.

File:

• trunk/Forms/FormDisassembler.pas (modified) (4 diffs)

trunk/Forms/FormDisassembler.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
   ExtCtrls, Disassembler;
 
@@ -20 +20 @@
   public
     Disassembler: TDisassembler;
+    procedure Disassemble(Sender: TObject);
     procedure SelectAddress(Address: Word);
     procedure ReloadList;
@@ -51 +52 @@
 procedure TFormDisassembler.FormShow(Sender: TObject);
 begin
-  Disassembler.Disassemble;
-  ReloadList;
+  Disassemble(nil);
 end;
 
@@ -65 +65 @@
     Item.SubItems.Add(Parameters);
   end;
+end;
+
+procedure TFormDisassembler.Disassemble;
+begin
+  Disassembler.Disassemble;
+  ReloadList;
 end;