source: branches/test3/FormMain.pas

unit FormMain;

interface

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

type
  UInt24 = DWord;

  TCpu8 = TCpu<Byte,Byte,Byte>;
  TCpu8A16 = TCpu<Byte,Word,Word>;
  TCpu8A32 = TCpu<Byte,DWord,DWord>;
  TCpu8A64 = TCpu<Byte,QWord,QWord>;
  TCpu16 = TCpu<Word,Word,Word>;
  TCpu16A32 = TCpu<Word,DWord,DWord>;
  TCpu16A64 = TCpu<Word,QWord,QWord>;
  TCpu24 = TCpu<UInt24,UInt24,UInt24>;
  TCpu64 = TCpu<QWord,QWord,QWord>;


  { TFormMain }

  TFormMain = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    Buffer: Word;
    procedure CpuOutput(Addr: Word; Data: Word; Count: Byte);
    function CpuInput(Addr: Word; Count: Byte): Word;
  public
    Cpu: TCpu16;
  end;


var
  FormMain: TFormMain;

implementation

{$R *.lfm}

{ TFormMain }

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Cpu := TCpu16.Create;
  Cpu.OnInput := CpuInput;
  Cpu.OnOutput := CpuOutput;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Cpu);
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  with Cpu do begin
    AddConstN(2, 0, $abcd);
    AddOutputN(2, 0, 0);
    AddHalt;
    Run;
    Memo1.Lines.Add(IntToHex(Buffer));
  end;
end;

procedure TFormMain.CpuOutput(Addr: Word; Data: Word; Count: Byte);
begin
  case Addr of
    0: Buffer := Data;
  end;
end;

function TFormMain.CpuInput(Addr: Word; Count: Byte): Word;
begin
  case Addr of
    0: Result := Buffer;
  end;
end;

end.