source: branches/simple/Memory.pas

unit Memory;

interface

uses
  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(TDevice8)
  private
    Memory: array of Byte;
    procedure SetSize(Value: Byte);
    function GetSize: Byte;
  public
    Position: Integer;
    procedure WritePos8(Data: Byte);
    function ReadPos8: Byte;
    procedure Write8(Address: Byte; Data: Byte);
    function Read8(Address: Byte): Byte;
    procedure SetDataBus(Channel: TAddressableChannel8); override;
    property Size: Byte read GetSize write SetSize;
  end;

  { TMemory16 }

  TMemory16 = class(TDevice16)
  private
    Memory: array of Byte;
    procedure SetSize(Value: Word);
    function GetSize: Word;
  public
    Position: Integer;
    function ReadPos8: Byte;
    function ReadPos16: Word;
    procedure WritePos8(Data: Byte);
    procedure WritePos16(Data: Word);
    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 }

procedure TMemory16.SetSize(Value: Word);
begin
  SetLength(Memory, Value);
end;

function TMemory16.GetSize: Word;
begin
  Result := Length(Memory);
end;

function TMemory16.ReadPos8: Byte;
begin
  Result := Read8(Position);
  Inc(Position);
end;

function TMemory16.ReadPos16: Word;
begin
  Result := Read16(Position);
  Inc(Position, 2);
end;

procedure TMemory16.WritePos8(Data: Byte);
begin
  Write8(Position, Data);
  Inc(Position);
end;

procedure TMemory16.WritePos16(Data: Word);
begin
  Write8(Position, Data);
  Inc(Position, 2);
end;

function TMemory16.Read8(Address: Word): Byte;
begin
  Result := Memory[Address];
end;

function TMemory16.Read16(Address: Word): Word;
begin
  Result := Memory[Address] or (Memory[Address + 1] shl 8);
end;

procedure TMemory16.Write8(Address: Word; Data: Byte);
begin
  Memory[Address] := Data;
end;

procedure TMemory16.Write16(Address: Word; Data: Word);
begin
  Memory[Address] := Data;
  Memory[Address + 1] := Data shr 8;
end;

procedure TMemory16.SetDataBus(Channel: TAddressableChannel16);
begin
  Channel.Read8 := Read8;
  Channel.Read16 := Read16;
  Channel.Write8 := Write8;
  Channel.Write16 := Write16;
end;

{ TMemory8 }

procedure TMemory8.SetSize(Value: Byte);
begin
  SetLength(Memory, Value);
end;

function TMemory8.GetSize: Byte;
begin
  Result := Length(Memory);
end;

procedure TMemory8.WritePos8(Data: Byte);
begin
  Write8(Position, Data);
  Inc(Position);
end;

function TMemory8.ReadPos8: Byte;
begin
  Result := Read8(Position);
  Inc(Position);
end;

procedure TMemory8.Write8(Address: Byte; Data: Byte);
begin
  Memory[Address] := Data;
end;

function TMemory8.Read8(Address: Byte): Byte;
begin
  Result := Memory[Address];
end;

procedure TMemory8.SetDataBus(Channel: TAddressableChannel8);
begin
  Channel.Write8 := Write8;
  Channel.Read8 := Read8;
end;

end.