source: branches/templates/UFormMain.pas

unit UFormMain;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFormMain }

  TFormMain = class(TForm)
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
  private
  public
    procedure DoIOWrite(Address: QWord; Data: QWord);
    procedure Log(Text: string);
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  Cpu, Memory, Device;

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
var
  Memory: TMemory;
  Memory8: TMemory8;
  Memory16: TMemory16;
  Memory32: TMemory32;
  Memory64: TMemory64;
  IO: TDevice;
  IO8: TDevice8;
  IO16: TDevice16;
  IO32: TDevice32;
  IO64: TDevice64;
  Cpu: TCpu;
  Cpu8: TMemory8;
  Cpu16: TCpu16;
  Cpu32: TCpu32;
  Cpu64: TCpu64;
begin
  Cpu := TCpu.Create;
  try
    Memory := TMemory.Create;
    Memory.Memory8.Size := High(Byte);
    Memory.SetDataBus(Cpu.Memory);
    IO := TDevice.Create;
    IO.Device8.OnWrite := DoIOWrite;
    IO.SetDataBus(Cpu.IO);
    Cpu.Cpu8.WriteOpcode(opLoadImmediate);
    Cpu.Cpu8.Write($12);
    Cpu.Cpu8.WriteOpcode(opOutput);
    Cpu.Cpu8.Write(1);
    Cpu.Cpu8.WriteOpcode(opHalt);
    Log('Cpu run');
    Cpu.Run;
  finally
    Cpu.Free;
  end;

  with TCpu8.Create do
  try
    Memory8 := TMemory8.Create;
    Memory8.Size := High(Byte);
    Memory8.SetDataBus(Memory);
    IO8 := TDevice8.Create;
    IO8.OnWrite := DoIOWrite;
    IO8.SetDataBus(IO);
    WriteOpcode(opLoadImmediate);
    Write($12);
    WriteOpcode(opOutput);
    Write(1);
    WriteOpcode(opHalt);
    Log('Cpu8 run');
    Run;
  finally
    Free;
  end;

  with TCpu16.Create do
  try
    Memory16 := TMemory16.Create;
    Memory16.Size := High(Word);
    Memory16.SetDataBus(Memory);
    IO16 := TDevice16.Create;
    IO16.OnWrite := DoIOWrite;
    IO16.SetDataBus(IO);
    WriteOpcode(opLoadImmediate);
    Write($1234);
    WriteOpcode(opLoadImmediate8);
    Write8($56);
    WriteOpcode(opOutput);
    Write(1);
    WriteOpcode(opHalt);
    Log('Cpu16 run');
    Run;
  finally
    Free;
  end;

  with TCpu32.Create do
  try
    Memory32 := TMemory32.Create;
    Memory32.Size := High(Word);
    Memory32.SetDataBus(Memory);
    IO32 := TDevice32.Create;
    IO32.OnWrite := DoIOWrite;
    IO32.SetDataBus(IO);
    WriteOpcode(opLoadImmediate);
    Write(14);
    WriteOpcode(opOutput);
    Write(1);
    WriteOpcode(opHalt);
    Log('Cpu32 run');
    Run;
  finally
    Free;
  end;

  with TCpu64.Create do
  try
    Memory64 := TMemory64.Create;
    Memory64.Size := High(Word);
    Memory64.SetDataBus(Memory);
    IO64 := TDevice64.Create;
    IO64.OnWrite := DoIOWrite;
    IO64.SetDataBus(IO);
    WriteOpcode(opLoadImmediate);
    Write(14);
    WriteOpcode(opOutput);
    Write(1);
    WriteOpcode(opHalt);
    Log('Cpu64 run');
    Run;
  finally
    Free;
  end;
end;

procedure TFormMain.DoIOWrite(Address: QWord; Data: QWord);
begin
  Log('Address: ' + IntToHex(Address) + ', Data: ' + IntToHex(Data));
end;

procedure TFormMain.Log(Text: string);
begin
  Memo1.Lines.Add(Text);
end;

end.