source: branches/Machine/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls, UMachine, UCompiler;

type

  { TForm1 }

  TForm1 = class(TForm)
    ButtonRun: TButton;
    ListView1: TListView;
    ListView2: TListView;
    procedure ButtonRunClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView2Data(Sender: TObject; Item: TListItem);
  private
    procedure ShowMemory;
    procedure ShowRegisters;
  public
    Machine: TMachine;
    Compiler: TCompiler;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Machine := TMachine.Create;
  Compiler := TCompiler.Create;
end;

procedure TForm1.ButtonRunClick(Sender: TObject);
begin
  Machine.Run;
  ShowMemory;
  ShowRegisters;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Compiler.Free;
  Machine.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  SourceCode: TStringList;
  I: Integer;
begin
  SourceCode := TStringList.Create;
  with SourceCode do begin
    Add('DEF IP 0^S');
    Add('DEF COUNT 0^R');
    Add('DEF SOURCE 1^R');
    Add('DEF DEST 2^R');
    Add('CP COUNT, 16');
    Add('CP SOURCE, 0');
    Add('CP DEST, 160');
    Add('LABEL LOOP');
    Add('CP DEST^M, SOURCE^M');
    Add('ADD SOURCE');
    Add('ADD DEST');
    Add('SUB COUNT');
    Add('SKIP COUNT');
    Add('CP IP, LOOP');
    Add('ADD 6^R, 2');
    Add('HALT');
  end;
  Compiler.Compile(SourceCode);
  SourceCode.Free;
  SetLength(Machine.Memory, 10000);
  for I := 0 to Length(Compiler.Code) - 1 do
    Machine.Memory[I] := Compiler.Code[I];
  ShowMemory;
  ShowRegisters;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  Data: string;
  I: Integer;
begin
  if (Item.Index >= 0) and (Item.Index < (Length(Machine.Memory) div 16)) then begin
    Item.Caption := IntToHex(Item.Index * 16, 8);
    Data := '';
    for I := 0 to 15 do
      Data := Data + ' ' + IntToHex(Machine.Memory[Item.Index * 16 + I], 2);
    Item.SubItems.Add(Data);
  end;
end;

procedure TForm1.ListView2Data(Sender: TObject; Item: TListItem);
begin
  if (Item.Index >= 0) and (Item.Index < Length(Machine.Registers)) then begin
    Item.Caption := IntToHex(Item.Index, 2);
    Item.SubItems.Add(IntToStr(Machine.Registers[Item.Index]));
  end;
end;

procedure TForm1.ShowMemory;
begin
  ListView1.Items.Count := Length(Machine.Memory) div 16;
  ListView1.Refresh;
end;

procedure TForm1.ShowRegisters;
begin
  ListView2.Items.Count := Length(Machine.Registers);
  ListView2.Refresh;
end;

end.