source: branches/multi-width/Memory.pas

unit Memory;

interface

uses
  Classes, SysUtils, Channel;

type

  { TMemory }

  TMemory = class
  private
    FData: PByte;
    function GetSize: QWord;
    procedure SetSize(AValue: QWord);
  public
    function Read8(Address: QWord): Byte;
    function Read16(Address: QWord): Word;
    function Read24(Address: QWord): DWord;
    function Read32(Address: QWord): DWord;
    function Read64(Address: QWord): QWord;
    procedure Write8(Address: QWord; Data: Byte);
    procedure Write16(Address: QWord; Data: Word);
    procedure Write24(Address: QWord; Data: DWord);
    procedure Write32(Address: QWord; Data: DWord);
    procedure Write64(Address: QWord; Data: QWord);
    procedure SetChannel(Channel: TChannel);
    constructor Create;
    destructor Destroy; override;
    property Size: QWord read GetSize write SetSize;
  end;


implementation

{ TMemory }

function TMemory.GetSize: QWord;
begin
  Result := MemSize(FData);
end;

procedure TMemory.SetSize(AValue: QWord);
begin
  FData := ReAllocMem(FData, AValue);
end;

function TMemory.Read8(Address: QWord): Byte;
begin
  Result := PByte(FData + Address)^;
end;

function TMemory.Read16(Address: QWord): Word;
begin
  Result := PWord(FData + Address)^;
end;

function TMemory.Read24(Address: QWord): DWord;
begin
  Result := PDWord(FData + Address)^ and $ffffff;
end;

function TMemory.Read32(Address: QWord): DWord;
begin
  Result := PDWord(FData + Address)^;
end;

function TMemory.Read64(Address: QWord): QWord;
begin
  Result := PQWord(FData + Address)^;
end;

procedure TMemory.Write8(Address: QWord; Data: Byte);
begin
  PByte(FData + Address)^ := Data;
end;

procedure TMemory.Write16(Address: QWord; Data: Word);
begin
  PWord(FData + Address)^ := Data;
end;

procedure TMemory.Write24(Address: QWord; Data: DWord);
begin
  PWord(FData + Address)^ := Data and $ffff;
  PByte(FData + Address + SizeOf(Word))^ := Data shr 16;
end;

procedure TMemory.Write32(Address: QWord; Data: DWord);
begin
  PDWord(FData + Address)^ := Data;
end;

procedure TMemory.Write64(Address: QWord; Data: QWord);
begin
  PQWord(FData + Address)^ := Data;
end;

procedure TMemory.SetChannel(Channel: TChannel);
begin
  Channel.Read8 := Read8;
  Channel.Read16 := Read16;
  Channel.Read24 := Read24;
  Channel.Read32 := Read32;
  Channel.Read64 := Read64;
  Channel.Write8 := Write8;
  Channel.Write16 := Write16;
  Channel.Write24 := Write24;
  Channel.Write32 := Write32;
  Channel.Write64 := Write64;
end;

constructor TMemory.Create;
begin
  Size := 0;
end;

destructor TMemory.Destroy;
begin
  Size := 0;
  inherited;
end;

end.