source: branches/templates/Devices/Memory.pas

unit Memory;

interface

uses
  Classes, SysUtils, AddrChannel;

type
  {$MACRO ON}

  {$DEFINE TGMemory := TMemory8}
  {$DEFINE TGMemoryData := Byte}
  {$DEFINE TGMemoryAddrChannel := TAddrChannel8}
  {$DEFINE TGMemoryWidth := 8}
  {$DEFINE INTERFACE}
  {$I 'Memory.inc'}

  {$DEFINE TGMemory := TMemory16}
  {$DEFINE TGMemoryData := Word}
  {$DEFINE TGMemoryAddrChannel := TAddrChannel16}
  {$DEFINE TGMemoryWidth := 16}
  {$DEFINE INTERFACE}
  {$I 'Memory.inc'}

  {$DEFINE TGMemory := TMemory32}
  {$DEFINE TGMemoryData := DWord}
  {$DEFINE TGMemoryAddrChannel := TAddrChannel32}
  {$DEFINE TGMemoryWidth := 32}
  {$DEFINE INTERFACE}
  {$I 'Memory.inc'}

  {$DEFINE TGMemory := TMemory64}
  {$DEFINE TGMemoryData := QWord}
  {$DEFINE TGMemoryAddrChannel := TAddrChannel64}
  {$DEFINE TGMemoryWidth := 64}
  {$DEFINE INTERFACE}
  {$I 'Memory.inc'}

  { TMemory }

  TMemory = class
  private
    FMemory16: TMemory16;
    FMemory32: TMemory32;
    FMemory64: TMemory64;
    FMemory8: TMemory8;
    FWidth: TBitWidth;
    procedure SetWidth(AValue: TBitWidth);
  public
    procedure SetDataBus(Channel: TAddrChannel);
    constructor Create;
    property Width: TBitWidth read FWidth write SetWidth;
    property Memory8: TMemory8 read FMemory8;
    property Memory16: TMemory16 read FMemory16;
    property Memory32: TMemory32 read FMemory32;
    property Memory64: TMemory64 read FMemory64;
  end;

implementation

{ TMemory }

procedure TMemory.SetWidth(AValue: TBitWidth);
begin
  if FWidth = AValue then Exit;
  case FWidth of
    bw8: FreeAndNil(FMemory8);
    bw16: FreeAndNil(FMemory16);
    bw32: FreeAndNil(FMemory32);
    bw64: FreeAndNil(FMemory64);
  end;
  FWidth := AValue;
  case FWidth of
    bw8: FMemory8 := TMemory8.Create;
    bw16: FMemory16 := TMemory16.Create;
    bw32: FMemory32 := TMemory32.Create;
    bw64: FMemory64 := TMemory64.Create;
  end;
end;

procedure TMemory.SetDataBus(Channel: TAddrChannel);
begin
  if Width <> Channel.Width then raise Exception.Create('Bit width mismatch.');
  case Width of
    bw8: Memory8.SetDataBus(Channel.AddrChannel8);
    bw16: Memory16.SetDataBus(Channel.AddrChannel16);
    bw32: Memory32.SetDataBus(Channel.AddrChannel32);
    bw64: Memory64.SetDataBus(Channel.AddrChannel64);
  end;
end;

constructor TMemory.Create;
begin
  FMemory8 := TMemory8.Create;
end;

{$DEFINE TGMemory := TMemory8}
{$DEFINE TGMemoryData := Byte}
{$DEFINE TGMemoryAddrChannel := TAddrChannel8}
{$DEFINE TGMemoryWidth := 8}
{$DEFINE IMPLEMENTATION}
{$I 'Memory.inc'}

{$DEFINE TGMemory := TMemory16}
{$DEFINE TGMemoryData := Word}
{$DEFINE TGMemoryAddrChannel := TAddrChannel16}
{$DEFINE TGMemoryWidth := 16}
{$DEFINE IMPLEMENTATION}
{$I 'Memory.inc'}

{$DEFINE TGMemory := TMemory32}
{$DEFINE TGMemoryData := DWord}
{$DEFINE TGMemoryAddrChannel := TAddrChannel32}
{$DEFINE TGMemoryWidth := 32}
{$DEFINE IMPLEMENTATION}
{$I 'Memory.inc'}

{$DEFINE TGMemory := TMemory64}
{$DEFINE TGMemoryData := QWord}
{$DEFINE TGMemoryAddrChannel := TAddrChannel64}
{$DEFINE TGMemoryWidth := 64}
{$DEFINE IMPLEMENTATION}
{$I 'Memory.inc'}

end.