source: branches/simple/Devices/Console.pas

unit Console;

interface

uses
  Classes, SysUtils, Device, DeviceManager, Channel;

type

  { TConsole8 }

  TConsole8 = class(TDevice8)
  private
    FOnRead: TReadEvent8;
    FOnWrite: TWriteEvent8;
    procedure Write8(Data: Byte);
    function Read8: Byte;
  public
    function GetHandlerCount: Integer; override;
    function GetHandler(Address: Integer): TChannel8; override;
    property OnWrite: TWriteEvent8 read FOnWrite write FOnWrite;
    property OnRead: TReadEvent8 read FOnRead write FOnRead;
  end;

  { TConsole16 }

  TConsole16 = class(TDevice16)
  private
    FOnRead: TReadEvent8;
    FOnWrite: TWriteEvent8;
    procedure Write8(Data: Byte);
    function Read8: Byte;
  public
    function GetHandlerCount: Integer; override;
    function GetHandler(Address: Integer): TChannel16; override;
    property OnWrite: TWriteEvent8 read FOnWrite write FOnWrite;
    property OnRead: TReadEvent8 read FOnRead write FOnRead;
  end;


implementation

{ TConsole8 }

procedure TConsole8.Write8(Data: Byte);
begin
  if Assigned(FOnWrite) then FOnWrite(Data);
end;

function TConsole8.Read8: Byte;
begin
  if Assigned(FOnRead) then Result := FOnRead
    else Result := 0;
end;

function TConsole8.GetHandlerCount: Integer;
begin
  Result := 1;
end;

function TConsole8.GetHandler(Address: Integer): TChannel8;
begin
  if Address = 0 then begin
    Result := TChannel8.Create;
    Result.Read8 := Read8;
    Result.Write8 := Write8;
  end;
end;

{ TConsole16 }

procedure TConsole16.Write8(Data: Byte);
begin
  if Assigned(FOnWrite) then FOnWrite(Data);
end;

function TConsole16.Read8: Byte;
begin
  if Assigned(FOnRead) then Result := FOnRead
    else Result := 0;
end;

function TConsole16.GetHandlerCount: Integer;
begin
  Result := 1;
end;

function TConsole16.GetHandler(Address: Integer): TChannel16;
begin
  if Address = 0 then begin
    Result := TChannel16.Create;
    Result.Read8 := Read8;
    Result.Write8 := Write8;
  end;
end;

end.