Changeset 42 for branches/simple/Memory.pas

Timestamp:

Sep 8, 2023, 11:20:27 PM (8 months ago)

Author:

chronos

Message:

• Modified: Improved simple virtual machine.

File:

• branches/simple/Memory.pas (modified) (6 diffs)

branches/simple/Memory.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, DataBus;
+  Classes, SysUtils, Channel, Device;
 
 type
+
+  { TMemoryMulti }
+
+  TMemoryMulti = class
+  private
+    Memory: array of Byte;
+    procedure SetSize(Value: QWord);
+    function GetSize: QWord;
+  public
+    Position: QWord;
+    property Size: QWord read GetSize write SetSize;
+  end;
+
   { TMemory8 }
 
-  TMemory8 = class(TDataBus8)
+  TMemory8 = class(TDevice8)
   private
     Memory: array of Byte;
@@ -18 +31 @@
     procedure WritePos8(Data: Byte);
     function ReadPos8: Byte;
-    procedure Write8(Address: Byte; Data: Byte); override;
-    function Read8(Address: Byte): Byte; override;
+    procedure Write8(Address: Byte; Data: Byte);
+    function Read8(Address: Byte): Byte;
+    procedure SetDataBus(Channel: TAddressableChannel8); override;
     property Size: Byte read GetSize write SetSize;
   end;
@@ -25 +39 @@
   { TMemory16 }
 
-  TMemory16 = class(TDataBus16)
+  TMemory16 = class(TDevice16)
   private
     Memory: array of Byte;
@@ -36 +50 @@
     procedure WritePos8(Data: Byte);
     procedure WritePos16(Data: Word);
-    function Read8(Address: Word): Byte; override;
-    function Read16(Address: Word): Word; override;
-    procedure Write8(Address: Word; Data: Byte); override;
-    procedure Write16(Address: Word; Data: Word); override;
+    function Read8(Address: Word): Byte;
+    function Read16(Address: Word): Word;
+    procedure Write8(Address: Word; Data: Byte);
+    procedure Write16(Address: Word; Data: Word);
+    procedure SetDataBus(Channel: TAddressableChannel16); override;
     property Size: Word read GetSize write SetSize;
   end;
 
+  { TMemory64 }
+
+  TMemory64 = class(TDevice64)
+  private
+    Memory: array of Byte;
+    procedure SetSize(Value: QWord);
+    function GetSize: QWord;
+  public
+    Position: QWord;
+    function ReadPos8: Byte;
+    function ReadPos16: Word;
+    function ReadPos32: DWord;
+    function ReadPos64: QWord;
+    procedure WritePos8(Data: Byte);
+    procedure WritePos16(Data: Word);
+    procedure WritePos32(Data: Word);
+    procedure WritePos64(Data: Word);
+    function Read8(Address: QWord): Byte;
+    function Read16(Address: QWord): Word;
+    function Read32(Address: QWord): DWord;
+    function Read64(Address: QWord): QWord;
+    procedure Write8(Address: QWord; Data: Byte);
+    procedure Write16(Address: QWord; Data: Word);
+    procedure Write32(Address: QWord; Data: DWord);
+    procedure Write64(Address: QWord; Data: QWord);
+    procedure SetDataBus(Channel: TAddressableChannel64); override;
+    property Size: QWord read GetSize write SetSize;
+  end;
+
+  { TMemory }
+
+  TMemory = class(TDevice)
+    BitWidth: TBitWidth;
+    Memory8: TMemory8;
+    Memory16: TMemory16;
+  end;
+
 
 implementation
+
+{ TMemory64 }
+
+procedure TMemory64.SetSize(Value: QWord);
+begin
+
+end;
+
+function TMemory64.GetSize: QWord;
+begin
+
+end;
+
+function TMemory64.ReadPos8: Byte;
+begin
+
+end;
+
+function TMemory64.ReadPos16: Word;
+begin
+
+end;
+
+function TMemory64.ReadPos32: DWord;
+begin
+
+end;
+
+function TMemory64.ReadPos64: QWord;
+begin
+
+end;
+
+procedure TMemory64.WritePos8(Data: Byte);
+begin
+
+end;
+
+procedure TMemory64.WritePos16(Data: Word);
+begin
+
+end;
+
+procedure TMemory64.WritePos32(Data: Word);
+begin
+
+end;
+
+procedure TMemory64.WritePos64(Data: Word);
+begin
+
+end;
+
+function TMemory64.Read8(Address: QWord): Byte;
+begin
+
+end;
+
+function TMemory64.Read16(Address: QWord): Word;
+begin
+
+end;
+
+function TMemory64.Read32(Address: QWord): DWord;
+begin
+
+end;
+
+function TMemory64.Read64(Address: QWord): QWord;
+begin
+
+end;
+
+procedure TMemory64.Write8(Address: QWord; Data: Byte);
+begin
+
+end;
+
+procedure TMemory64.Write16(Address: QWord; Data: Word);
+begin
+
+end;
+
+procedure TMemory64.Write32(Address: QWord; Data: DWord);
+begin
+
+end;
+
+procedure TMemory64.Write64(Address: QWord; Data: QWord);
+begin
+
+end;
+
+procedure TMemory64.SetDataBus(Channel: TAddressableChannel64);
+begin
+  inherited SetDataBus(Channel);
+end;
+
+{ TMemoryMulti }
+
+procedure TMemoryMulti.SetSize(Value: QWord);
+begin
+  SetLength(Memory, Size);
+end;
+
+function TMemoryMulti.GetSize: QWord;
+begin
+  Result := Length(Memory);
+end;
 
 { TMemory16 }
@@ -103 +264 @@
 end;
 
+procedure TMemory16.SetDataBus(Channel: TAddressableChannel16);
+begin
+  Channel.Read8 := Read8;
+  Channel.Read16 := Read16;
+  Channel.Write8 := Write8;
+  Channel.Write16 := Write16;
+end;
+
 { TMemory8 }
 
@@ -137 +306 @@
 end;
 
+procedure TMemory8.SetDataBus(Channel: TAddressableChannel8);
+begin
+  Channel.Write8 := Write8;
+  Channel.Read8 := Read8;
+end;
 
 end.