source: branches/virtcpu varint/Forms/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  StdCtrls, ExtCtrls, UMachine, UInstructionWriter, UCpu;

type

  { TFormMain }

  TFormMain = class(TForm)
    ButtonStart: TButton;
    ButtonStop: TButton;
    ButtonAssembler: TButton;
    ButtonDisassembler: TButton;
    ButtonCpuState: TButton;
    ButtonScreen: TButton;
    ButtonMemory: TButton;
    ButtonConsole: TButton;
    Timer1: TTimer;
    procedure ButtonStartClick(Sender: TObject);
    procedure ButtonStopClick(Sender: TObject);
    procedure ButtonAssemblerClick(Sender: TObject);
    procedure ButtonConsoleClick(Sender: TObject);
    procedure ButtonCpuStateClick(Sender: TObject);
    procedure ButtonDisassemblerClick(Sender: TObject);
    procedure ButtonMemoryClick(Sender: TObject);
    procedure ButtonScreenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  public
    Machine: TMachine;
    InstructionWriter: TInstructionWriter;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  UFormConsole, UFormMemory, UFormScreen, UFormCpuState, UFormAssembler,
  UFormDisassembler;

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
var
  LabelStart: Integer;
  LabelPrint: Integer;
  LabelPrintBack: Integer;
  R0: Integer;
  R1: Integer;
  R2: Integer;
  R3: Integer;
  R4: Integer;
  R5: Integer;
begin
  R0 := 0;
  R1 := 1;
  R2 := 2;
  R3 := 3;
  R4 := 4;
  R5 := 5;
  with InstructionWriter do begin
    {NoOperation;
    LoadConst(1, $ffff);
    Load(0, 1);
    LoadConst(2, $10);
    StoreMemory(2, 0);
    }
    LabelPrint := $100;

    LoadConst(R5, 0); // Always zero

    LoadConst(R2, 0);
    LoadConst(R0, 0);
    LoadConst(R4, Ord('a'));
  LabelStart := IP;
    Input(R1, R5);
    Output(R5, R1);
    Subtract(R1, R4);
    TestEqual(R1, R5);
    JumpCond(LabelPrint);
  LabelPrintBack := IP;
    Increment(R2);
    Jump(LabelStart);
    Halt;
  IP := LabelPrint;
    LoadConst(R3, Ord('!'));
    Output(0, R3);
    Jump(LabelPrintBack)
  end;
end;

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

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Machine := TMachine.Create(nil);
  InstructionWriter := TInstructionWriter.Create;
end;

procedure TFormMain.ButtonStartClick(Sender: TObject);
begin
  Machine.Cpu.Start;
end;

procedure TFormMain.ButtonStopClick(Sender: TObject);
begin
  Machine.Cpu.Stop;
end;

procedure TFormMain.ButtonAssemblerClick(Sender: TObject);
begin
  if not Assigned(FormAssembler) then
    FormAssembler := TFormAssembler.Create(Self);
  FormAssembler.Assembler.InstructionWriter.Memory := Machine.Memory;
  FormAssembler.Show;
end;

procedure TFormMain.ButtonConsoleClick(Sender: TObject);
begin
  if not Assigned(FormConsole) then
    FormConsole := TFormConsole.Create(nil);
  FormConsole.Machine := Machine;
  FormConsole.Show;
end;

procedure TFormMain.ButtonCpuStateClick(Sender: TObject);
begin
  if not Assigned(FormCpuState) then
     FormCpuState := TFormCpuState.Create(Self);
   FormCpuState.Machine := Machine;
   FormCpuState.Show;
   FormCpuState.Reload;
end;

procedure TFormMain.ButtonDisassemblerClick(Sender: TObject);
begin
  if not Assigned(FormDisassembler) then
    FormDisassembler := TFormDisassembler.Create(Self);
  FormDisassembler.Disassembler.Cpu := Machine.Cpu;
  FormDisassembler.Show;
  FormDisassembler.Reload;
end;

procedure TFormMain.ButtonMemoryClick(Sender: TObject);
begin
  if not Assigned(FormMemory) then
    FormMemory := TFormMemory.Create(Self);
  FormMemory.Machine := Machine;
  FormMemory.Show;
  FormMemory.Reload;
end;

procedure TFormMain.ButtonScreenClick(Sender: TObject);
begin
  if not Assigned(FormScreen) then
    FormScreen := TFormScreen.Create(Self);
  FormScreen.Machine := Machine;
  FormScreen.Show;
  FormScreen.Reload;
end;

end.