source: branches/simple/Machine.pas

unit Machine;

interface

uses
  Classes, SysUtils, Cpu, Memory, DeviceManager, Console, Screen;

type

  { TMachine }

  TMachine = class
  protected
    FPoweredOn: Boolean;
    procedure SetPoweredOn(AValue: Boolean); virtual;
  published
    property PoweredOn: Boolean read FPoweredOn write SetPoweredOn;
  end;

  { TMachine8 }

  TMachine8 = class(TMachine)
  private
    FPoweredOn: Boolean;
    procedure SetPoweredOn(AValue: Boolean); override;
  public
    DeviceManager: TDeviceManager8;
    Memory: TMemory8;
    Console: TConsole8;
    Cpu: TCpu8;
    Screen: TScreen8;
    constructor Create;
    destructor Destroy; override;
  end;

  { TMachine16 }

  TMachine16 = class(TMachine)
  private
    FPoweredOn: Boolean;
    procedure SetPoweredOn(AValue: Boolean); override;
  public
    DeviceManager: TDeviceManager16;
    Memory: TMemory16;
    Console: TConsole16;
    Cpu: TCpu16;
    Screen: TScreen16;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TMachine }

procedure TMachine.SetPoweredOn(AValue: Boolean);
begin
  if FPoweredOn=AValue then Exit;
  FPoweredOn:=AValue;
end;

{ TMachine16 }

procedure TMachine16.SetPoweredOn(AValue: Boolean);
begin
  if FPoweredOn = AValue then Exit;
  FPoweredOn := AValue;
  if FPoweredOn then Cpu.Run;
end;

constructor TMachine16.Create;
begin
  Cpu := TCpu16.Create;
  Console := TConsole16.Create;
  Screen := TScreen16.Create;
  DeviceManager := TDeviceManager16.Create;
  DeviceManager.RegisterDevice(Console);
  DeviceManager.RegisterDevice(Screen);
  DeviceManager.SetDataBus(Cpu.IO);
  Memory := TMemory16.Create;
  Memory.Size := 65535;
  Memory.SetDataBus(Cpu.Memory);
end;

destructor TMachine16.Destroy;
begin
  FreeAndNil(Cpu);
  FreeAndNil(DeviceManager);
  FreeAndNil(Console);
  FreeAndNil(Memory);
  FreeAndNil(Screen);
  inherited;
end;

{ TMachine8 }

procedure TMachine8.SetPoweredOn(AValue: Boolean);
begin
  if FPoweredOn = AValue then Exit;
  FPoweredOn := AValue;
  if FPoweredOn then Cpu.Run;
end;

constructor TMachine8.Create;
begin
  Cpu := TCpu8.Create;
  Console := TConsole8.Create;
  Screen := TScreen8.Create;
  DeviceManager := TDeviceManager8.Create;
  DeviceManager.RegisterDevice(Console);
  DeviceManager.RegisterDevice(Screen);
  DeviceManager.SetDataBus(Cpu.IO);
  Memory := TMemory8.Create;
  Memory.Size := 255;
  Memory.SetDataBus(Cpu.Memory);
end;

destructor TMachine8.Destroy;
begin
  FreeAndNil(Cpu);
  FreeAndNil(DeviceManager);
  FreeAndNil(Console);
  FreeAndNil(Memory);
  FreeAndNil(Screen);
  inherited;
end;

end.