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

trunk/Core.pas

@@ -12 +12 @@
 
   TCore = class(TDataModule)
+    AInstructionSetGen: TAction;
     AViewMessages: TAction;
     AGoToAddress: TAction;
@@ -32 +33 @@
     procedure AExitExecute(Sender: TObject);
     procedure AGoToAddressExecute(Sender: TObject);
+    procedure AInstructionSetGenExecute(Sender: TObject);
     procedure APauseExecute(Sender: TObject);
     procedure AResetExecute(Sender: TObject);
@@ -70 +72 @@
 
 uses
-  CpuZ80, FormGoToAddress;
+  Z80, FormGoToAddress, InstructionSetGen;
 
 { TCore }
@@ -104 +106 @@
 end;
 
+procedure TCore.AInstructionSetGenExecute(Sender: TObject);
+var
+  InstructionSetGen: TInstructionSetGen;
+begin
+  InstructionSetGen := TInstructionSetGen.Create;
+  InstructionSetGen.Generate('Z80/InstructionSet.html');
+  InstructionSetGen.Free;
+end;
+
 procedure TCore.APauseExecute(Sender: TObject);
 begin
@@ -169 +180 @@
     FormDisassembler := TFormDisassembler.Create(nil);
     FormDisassembler.Disassembler.Memory := SharpMz800.MappedMemory;
+    SharpMz800.OnMemoryMappingChange := FormDisassembler.Disassemble;
   end;
   FormDisassembler.Show;
+  FormMessages.AddMessage(FormDisassembler.Disassembler.InstructionSet.Check(SharpMz800.Cpu.Instructions));
 end;