source: branches/virtualcpu2/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    ButtonRun: TButton;
    ListViewMemory: TListView;
    ListViewRegisters: TListView;
    procedure ButtonRunClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
    procedure ListViewRegistersData(Sender: TObject; Item: TListItem);
  private
    procedure Example;
    procedure ShowMemory;
    procedure ShowRegisters;
  public
    Machine: TMachine;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

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

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

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

procedure TForm1.FormShow(Sender: TObject);
begin
  SetLength(Machine.Memory, 1000);

  Example;
  ShowMemory;
  ShowRegisters;
end;

procedure TForm1.ListViewMemoryData(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.ListViewRegistersData(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(IntToHex(Machine.Registers[Item.Index], 8));
  end;
end;

procedure TForm1.Example;
const
  Acc = 0;
  Source = 1;
  Dest = 2;
  Counter = 3;
  Temp = 4;
  Jump = 5;
var
  Writer: TInstructionWriter;
  LoopAddr: Integer;
begin
  Writer := TInstructionWriter.Create;
  with Writer do begin
    Machine := Self.Machine;
    AddGetDataSize(Temp);
    AddCopyConst8(Temp, 1);

    AddCopyConst(Counter, 8);
    AddCopyConst(Source, $30);
    AddCopyConst(Dest, $60);

    LoopAddr := Addr;
    AddCopyFromMem(Acc, Source);
    AddCopyToMem(Acc, Dest);
    AddInc(Source);
    AddInc(Dest);
    AddDec(Counter);
    AddTestNotZero(Counter);
    AddCopyConst8(Jump, LoopAddr - (Addr + 3));
    AddJumpRelCond8(Jump);
    AddHalt;
  end;
  Writer.Free;
end;

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

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


end.