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

trunk/Memory.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections;
+  Classes, SysUtils, Generics.Collections, Base;
 
 type
@@ -15 +15 @@
     procedure SetSize(AValue: Integer); virtual;
   public
+    Title: string;
     Position: Integer;
     function Read(Address: Word): Byte; virtual;
@@ -34 +35 @@
     procedure Write(Address: Word; Data: Byte); override;
     procedure LoadFromFile(FileName: string); override;
+  end;
+
+  { TMemoryIO }
+
+  TMemoryIO = class(TMemory)
+  private
+    FOnInput: TReadEvent;
+    FOnOutput: TWriteEvent;
+    FSize: Integer;
+  public
+    BasePort: Byte;
+    function GetSize: Integer; override;
+    procedure SetSize(AValue: Integer); override;
+    function Read(Address: Word): Byte; override;
+    procedure Write(Address: Word; Data: Byte); override;
+    property OnInput: TReadEvent read FOnInput write FOnInput;
+    property OnOutput: TWriteEvent read FOnOutput write FOnOutput;
   end;
 
@@ -166 +184 @@
 end;
 
+{ TMemoryIO }
+
+function TMemoryIO.GetSize: Integer;
+begin
+  Result := FSize;
+end;
+
+procedure TMemoryIO.SetSize(AValue: Integer);
+begin
+  FSize := AVAlue;
+end;
+
+function TMemoryIO.Read(Address: Word): Byte;
+begin
+  if Assigned(FOnInput) then FOnInput(BasePort + Address);
+end;
+
+procedure TMemoryIO.Write(Address: Word; Data: Byte);
+begin
+  if Assigned(FOnOutput) then FOnOutput(BasePort + Address, Data);
+end;
+
 { TMemory }