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

trunk/SharpMz800.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, CpuZ80, Memory, Base;
+  Classes, SysUtils, Z80, Memory, Base;
 
 type
@@ -14 +14 @@
   TSharpMz800 = class
   private
+    FOnMemoryMappingChange: TNotifyEvent;
     WriteFormatRegister: Byte; // WF
     ReadFormatRegister: Byte; // RF
@@ -27 +28 @@
     procedure MesssageExecute(Text: string);
     procedure UpdateMemoryMapping;
+    procedure DoMemoryMappingChange;
   public
     Cpu: TCpuZ80;
@@ -41 +43 @@
     destructor Destroy; override;
     property OnMessage: TMessageEvent read FOnMessage write FOnMessage;
+    property OnMemoryMappingChange: TNotifyEvent read FOnMemoryMappingChange
+      write FOnMemoryMappingChange;
   end;
 
@@ -75 +79 @@
     end;
     $e0..$e6: MemoryBankControl[Address - $e0] := Data;
+    else MesssageExecute('Unsupported I/O port ' + IntToHex(Address, 4) + ' data ' + IntToHex(Data, 2));
   end;
 end;
@@ -102 +107 @@
   end;
   MappedMemory.Areas.AddNew($0, Memory);
+  if Assigned(Cpu) then
+    TThread.Synchronize(Cpu.Thread, DoMemoryMappingChange);
+end;
+
+procedure TSharpMz800.DoMemoryMappingChange;
+begin
+  if Assigned(OnMemoryMappingChange) then
+    FOnMemoryMappingChange(nil);
 end;
 
@@ -141 +154 @@
   MappedIO.Size := 8;
   MappedIO.BasePort := $d0;
+  MappedIO.OnInput := CpuInput;
+  MappedIO.OnOutput := CpuOutput;
   UpdateMemoryMapping;
   Cpu := TCpuZ80.Create;