Changeset 5 for trunk/SharpMz800.pas

Timestamp:

Apr 18, 2026, 7:24:02 PM (9 days ago)

Author:

chronos

Message:

• Added: Some I/O ports handling.
• Added: Messages form for capturing error messages.
• Added: Go to address action.
• Added: Allow to view all used memory areas in Memory window.
• Added: Allow to reset CPU execution.
• Modified: Improved memory mapping for MZ-700 and MZ-800 modes.
• Fixed: Focusing currently executed instruction position.
• Fixed: Wrong order or 8-bit registers in 16-bit pair.

File:

• trunk/SharpMz800.pas (modified) (5 diffs)

trunk/SharpMz800.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, CpuZ80, Memory;
+  Classes, SysUtils, CpuZ80, Memory, Base;
 
 type
+  TMode = (md800, md700);
+  TResolution = (rs320x200, rs640x200);
+
   { TSharpMz800 }
 
   TSharpMz800 = class
   private
+    WriteFormatRegister: Byte; // WF
+    ReadFormatRegister: Byte; // RF
+    DisplayModeRegister: Byte; // DMD
+    MemoryBankControl: array[0..6] of Byte;
+    FOnMessage: TMessageEvent;
+    Mode: TMode;
+    Resolution: TResolution;
+    procedure CpuWrite(Address: Word; Data: Byte);
+    function CpuRead(Address: Word): Byte;
+    function CpuInput(Address: Word): Byte;
+    procedure CpuOutput(Address: Word; Data: Byte);
+    procedure MesssageExecute(Text: string);
+    procedure UpdateMemoryMapping;
   public
     Cpu: TCpuZ80;
@@ -19 +35 @@
     CharacterRom: TMemoryData;
     MappedMemory: TMemoryMapped;
-    procedure CpuWrite(Address: Word; Data: Byte);
-    function CpuRead(Address: Word): Byte;
+    MappedIO: TMemoryIO;
     procedure PowerOn;
     procedure PowerOff;
     constructor Create;
     destructor Destroy; override;
+    property OnMessage: TMessageEvent read FOnMessage write FOnMessage;
   end;
 
@@ -42 +58 @@
 end;
 
+function TSharpMz800.CpuInput(Address: Word): Byte;
+begin
+  Result := 0;
+end;
+
+procedure TSharpMz800.CpuOutput(Address: Word; Data: Byte);
+begin
+  case Address of
+    $cc: WriteFormatRegister := Data;
+    $cd: ReadFormatRegister := Data;
+    $ce: begin
+      DisplayModeRegister := Data;
+      if (DisplayModeRegister and 8) <> 0 then Mode := md700 else Mode := md800;
+      if (DisplayModeRegister and 4) <> 0 then Resolution := rs320x200 else Resolution := rs640x200;
+      UpdateMemoryMapping;
+    end;
+    $e0..$e6: MemoryBankControl[Address - $e0] := Data;
+  end;
+end;
+
+procedure TSharpMz800.MesssageExecute(Text: string);
+begin
+  if Assigned(FOnMessage) then FOnMessage(Text);
+end;
+
+procedure TSharpMz800.UpdateMemoryMapping;
+begin
+  MappedMemory.Areas.Clear;
+  MappedMemory.Areas.AddNew($0, BaseRom);
+  case Mode of
+    md700: begin
+      MappedMemory.Areas.AddNew($d000, VideoRam);
+      VideoRam.Size := $1000;
+      MappedMemory.Areas.AddNew($e000, MappedIO);
+      MappedMemory.Areas.AddNew($e010, ExtendedRom);
+    end;
+    md800: begin
+      MappedMemory.Areas.AddNew($1000, CharacterRom);
+      MappedMemory.Areas.AddNew($8000, VideoRam);
+      VideoRam.Size := $1000;
+      MappedMemory.Areas.AddNew($e000, ExtendedRom);
+    end;
+  end;
+  MappedMemory.Areas.AddNew($0, Memory);
+end;
+
 procedure TSharpMz800.PowerOn;
 begin
@@ -56 +118 @@
   RomSubDir = 'ROM';
 begin
+  Mode := md800;
+  Resolution := rs320x200;
   Memory := TMemoryData.Create;
+  Memory.Title := 'Main memory';
   Memory.Size := 65536; // $10000
   BaseRom := TMemoryData.Create;
+  BaseRom.Title := 'Base ROM';
   BaseRom.LoadFromFile(RomSubDir + DirectorySeparator + 'MZ700A.ROM');
   ExtendedRom := TMemoryData.Create;
+  ExtendedRom.Title := 'Extended ROM';
   ExtendedRom.LoadFromFile(RomSubDir + DirectorySeparator + '9Z_504M.ROM');
   CharacterRom := TMemoryData.Create;
+  CharacterRom.Title := 'Character ROM (CGROM)';
   CharacterRom.LoadFromFile(RomSubDir + DirectorySeparator + 'CGROM.ROM');
   VideoRam := TMemoryData.Create;
+  VideoRam.Title := 'Video memory (VRAM)';
   VideoRam.Size := 4096; // $1000
   MappedMemory := TMemoryMapped.Create;
   MappedMemory.Size := $10000;
-  MappedMemory.Areas.AddNew($0, BaseRom);
-  MappedMemory.Areas.AddNew($1000, CharacterRom);
-  MappedMemory.Areas.AddNew($e000, ExtendedRom);
-  MappedMemory.Areas.AddNew($0, Memory);
+  MappedIO := TMemoryIO.Create;
+  MappedIO.Title := 'Mapped I/O';
+  MappedIO.Size := 8;
+  MappedIO.BasePort := $d0;
+  UpdateMemoryMapping;
   Cpu := TCpuZ80.Create;
   Cpu.Memory := MappedMemory;
   Cpu.OnRead := CpuRead;
   Cpu.OnWrite := CpuWrite;
+  Cpu.OnInput := CpuInput;
+  Cpu.OnOutput := CpuOutput;
+  Cpu.OnMessage := MesssageExecute;
 end;
 
@@ -87 +160 @@
   FreeAndNil(ExtendedRom);
   FreeAndNil(Memory);
+  FreeAndNil(MappedIO);
   inherited;
 end;