source: branches/bigint/Machine.pas

unit Machine;

interface

uses
  Classes, SysUtils, Cpu, IntMemory, Console, DeviceManager, Mouse;

type

  { TMachine }

  TMachine = class
  public
    Cpu: TCpu;
    Memory: TIntMemory;
    Console: TConsole;
    Mouse: TMouse;
    DeviceManager: TDeviceManager;
    constructor Create;
    destructor Destroy; override;
    procedure Run;
  end;

implementation

{ TMachine }

constructor TMachine.Create;
begin
  Memory := TIntMemory.Create;
  Memory.Size := 10000;
  Console := TConsole.Create;
  Mouse := TMouse.Create;
  DeviceManager := TDeviceManager.Create;
  DeviceManager.RegisterDevice(Console);
  DeviceManager.RegisterDevice(Mouse);
  Cpu := TCpu.Create;
  Cpu.OnWriteMem := Memory.Write;
  Cpu.OnReadMem := Memory.Read;
  Cpu.OnWriteIo := DeviceManager.Write;
  Cpu.OnReadIo := DeviceManager.Read;
end;

destructor TMachine.Destroy;
begin
  FreeAndNil(Cpu);
  FreeAndNil(Memory);
  FreeAndNil(DeviceManager);
  FreeAndNil(Console);
  FreeAndNil(Mouse);
  inherited;
end;

procedure TMachine.Run;
begin
  Cpu.Run;
end;

end.