Changeset 6 for trunk/Forms

Timestamp:

Apr 19, 2026, 10:45:05 AM (4 weeks 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.

Location:

trunk/Forms

Files:

• Base.pas (modified) (1 diff)
• FormCpu.pas (modified) (1 diff)
• FormDisassembler.pas (modified) (4 diffs)
• FormMain.lfm (modified) (2 diffs)
• FormMain.pas (modified) (2 diffs)

trunk/Forms/Base.pas

@@ -11 +11 @@
   TMessageEvent = procedure (Text: string) of object;
 
+
 implementation
 

trunk/Forms/FormCpu.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ValEdit,
-  ExtCtrls, CpuZ80;
+  ExtCtrls, Z80;
 
 type

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;
 

trunk/Forms/FormMain.lfm

@@ -4 +4 @@
   Top = 509
   Width = 1061
-  Caption = 'SHARP MZ-800 emulator'
+  Caption = 'MZXEmu'
   ClientHeight = 716
   ClientWidth = 1061
@@ -126 +126 @@
       end
     end
+    object MenuItemTools: TMenuItem
+      Caption = 'Tools'
+      object MenuItem5: TMenuItem
+        Action = Core.AInstructionSetGen
+      end
+    end
   end
 end

trunk/Forms/FormMain.pas

@@ -14 +14 @@
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItemTools: TMenuItem;
     Separator1: TMenuItem;
     MenuItemFile: TMenuItem;
@@ -68 +70 @@
 procedure TFormMain.DockInit;
 begin
+  Core.Core.AViewMessages.Execute;
   Core.Core.AViewCpu.Execute;
   Core.Core.AViewScreen.Execute;
   Core.Core.AViewDissssembler.Execute;
-  Core.Core.AViewMessages.Execute;
   DockForm(Core.Core.FormScreen, PanelCenter);
   DockForm(Core.Core.FormCpu, PanelRight);