source: branches/multi-width/Console.pas

unit Console;

interface

uses
  Classes, SysUtils, Channel;

type
  TWriteEvent = procedure (Data: Byte) of object;
  TReadEvent = function : Byte of object;

  { TConsole }

  TConsole = class
  private
    FOnRead: TReadEvent;
    FOnWrite: TWriteEvent;
    procedure DoWrite(Data: Byte);
    function DoRead: Byte;
  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);
    property OnWrite: TWriteEvent read FOnWrite write FOnWrite;
    property OnRead: TReadEvent read FOnRead write FOnRead;
  end;

implementation

{ TConsole }

procedure TConsole.DoWrite(Data: Byte);
begin
  if Assigned(FOnWrite) then FOnWrite(Data);
end;

function TConsole.DoRead: Byte;
begin
  if Assigned(FOnRead) then Result := FOnRead;
end;

function TConsole.Read8(Address: QWord): Byte;
begin
  if Address = 0 then Result := DoRead;
end;

function TConsole.Read16(Address: QWord): Word;
begin
  if Address = 0 then Result := DoRead;
end;

function TConsole.Read24(Address: QWord): DWord;
begin
  if Address = 0 then Result := DoRead;
end;

function TConsole.Read32(Address: QWord): DWord;
begin
  if Address = 0 then Result := DoRead;
end;

function TConsole.Read64(Address: QWord): QWord;
begin
  if Address = 0 then Result := DoRead;
end;

procedure TConsole.Write8(Address: QWord; Data: Byte);
begin
  if Address = 0 then DoWrite(Data);
end;

procedure TConsole.Write16(Address: QWord; Data: Word);
begin
  if Address = 0 then DoWrite(Data);
end;

procedure TConsole.Write24(Address: QWord; Data: DWord);
begin
  if Address = 0 then DoWrite(Data);
end;

procedure TConsole.Write32(Address: QWord; Data: DWord);
begin
  if Address = 0 then DoWrite(Data);
end;

procedure TConsole.Write64(Address: QWord; Data: QWord);
begin
  if Address = 0 then DoWrite(Data);
end;

procedure TConsole.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;

end.