source: branches/multi-width/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
    procedure WriteExecute(Data: Byte);
  public
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  Cpu, Memory, Console, Channel;

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
var
  Cpu: TCpu;
  Memory: TMemory;
  Console: TConsole;
begin
  Cpu := TCpu.Create;
  try
    Memory := TMemory.Create;
    Memory.Size := 60000;
    Memory.SetChannel(Cpu.Memory);
    Console := TConsole.Create;
    Console.OnWrite := WriteExecute;
    Console.SetChannel(Cpu.IO);
    Cpu.AddressWidth := bw24;
    Cpu.WriteOpcode(opWidth24);
    Cpu.WriteOpcode(opLoad);
    Cpu.Write24(Ord('A'));
    Cpu.WriteOpcode(opWidth24);
    Cpu.WriteOpcode(opOutput);
    Cpu.WriteAddress(0);
    Cpu.WriteOpcode(opHalt);
    Cpu.Run;
    FreeAndNil(Console);
    FreeAndNil(Memory);
  finally
    FreeAndNil(Cpu);
  end;
end;

procedure TFormMain.WriteExecute(Data: Byte);
begin
  Memo1.Lines.Text := Memo1.Lines.Text + Chr(Data);
end;

end.