source: branches/simple/DeviceMapper.pas

unit DeviceMapper;

interface

uses
  Classes, SysUtils, DataBus;

type
  TReadEvent8 = function: Byte of object;
  TReadEvent16 = function: Word of object;
  TWriteEvent8 = procedure (Data: Byte) of object;
  TWriteEvent16 = procedure (Data: Word) of object;

  { TDeviceMapper8 }

  TDeviceMapper8 = class(TDataBus8)
  public
    WriteHandlers8: array of TWriteEvent8;
    ReadHandlers8: array of TReadEvent8;
    procedure RegisterReadHandler(ReadHandler: TReadEvent8);
    procedure RegisterWriteHandler(WriteHandler: TWriteEvent8);
    procedure Write8(Address: Byte; Data: Byte); override;
    function Read8(Address: Byte): Byte; override;
  end;

  { TDeviceMapper16 }

  TDeviceMapper16 = class(TDataBus16)
  public
    ReadHandlers8: array of TReadEvent8;
    ReadHandlers16: array of TReadEvent16;
    WriteHandlers8: array of TWriteEvent8;
    WriteHandlers16: array of TWriteEvent16;
    procedure RegisterReadHandler(ReadHandler8: TReadEvent8;
      ReadHandler16: TReadEvent16);
    procedure RegisterWriteHandler(WriteHandler8: TWriteEvent8;
      WriteHandler16: TWriteEvent16);
    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;
  end;


implementation

{ TDeviceMapper16 }

procedure TDeviceMapper16.RegisterReadHandler(ReadHandler8: TReadEvent8;
  ReadHandler16: TReadEvent16);
begin
  SetLength(ReadHandlers8, Length(ReadHandlers8) + 1);
  ReadHandlers8[Length(ReadHandlers8) - 1] := ReadHandler8;
  SetLength(ReadHandlers16, Length(ReadHandlers8) + 1);
  ReadHandlers16[Length(ReadHandlers16) - 1] := ReadHandler16;
end;

procedure TDeviceMapper16.RegisterWriteHandler(WriteHandler8: TWriteEvent8;
  WriteHandler16: TWriteEvent16);
begin
  SetLength(WriteHandlers8, Length(WriteHandlers8) + 1);
  WriteHandlers8[Length(WriteHandlers8) - 1] := WriteHandler8;
  SetLength(WriteHandlers16, Length(WriteHandlers16) + 1);
  WriteHandlers16[Length(WriteHandlers16) - 1] := WriteHandler16;
end;

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

function TDeviceMapper16.Read16(Address: Word): Word;
begin
  Result := ReadHandlers16[Address];
end;

procedure TDeviceMapper16.Write8(Address: Word; Data: Byte);
begin
  WriteHandlers8[Address](Data);
end;

procedure TDeviceMapper16.Write16(Address: Word; Data: Word);
begin
  WriteHandlers16[Address](Data);
end;

{ TDeviceMapper8 }

procedure TDeviceMapper8.RegisterReadHandler(ReadHandler: TReadEvent8);
begin
  SetLength(ReadHandlers8, Length(ReadHandlers8) + 1);
  ReadHandlers8[Length(ReadHandlers8) - 1] := ReadHandler;
end;

procedure TDeviceMapper8.RegisterWriteHandler(WriteHandler: TWriteEvent8);
begin
  SetLength(WriteHandlers8, Length(WriteHandlers8) + 1);
  WriteHandlers8[Length(WriteHandlers8) - 1] := WriteHandler;
end;

procedure TDeviceMapper8.Write8(Address: Byte; Data: Byte);
begin
  WriteHandlers8[Address](Data);
end;

function TDeviceMapper8.Read8(Address: Byte): Byte;
begin
  Result := ReadHandlers8[Address];
end;

end.