mainform.pas

unit MainForm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, BitGridEngine, BitGridUtil;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ButtonDumpContents: TButton;
    ButtonRunCycle: TButton;
    ButtonPassThrough: TButton;
    ButtonPhaseA: TButton;
    ButtonPhaseB: TButton;
    CheckBox1: TCheckBox;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure ButtonDumpContentsClick(Sender: TObject);
    procedure ButtonRunCycleClick(Sender: TObject);
    procedure ButtonPassThroughClick(Sender: TObject);
    procedure ButtonPhaseAClick(Sender: TObject);
    procedure ButtonPhaseBClick(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private

  public
    ButtonChecked : Boolean;

  end;

var
  Form1: TForm1;
  Grid1 : TBitGrid;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Grid1.Init(10,10);
  Form1.Memo1.Append('10x10 grid created');
  ButtonChecked := Checkbox1.Checked;
  Grid1.IOtest.Source := @Form1.ButtonChecked;
end;

procedure TForm1.ButtonDumpContentsClick(Sender: TObject);
var
  x,y : integer;
  s : string;
begin
  memo1.Append('Program Dump: ');
  for y := 0 to Grid1.Height-1 do
  begin
    s := IntToStr(Y)+': ';
    for x := 0 to Grid1.Width-1 do
      s := s + IntToHex(Grid1.Cells[x,y].lookup,16) + ' ';
    memo1.Append(s);
  end;

  memo1.Append('inputs: ');
  for y := 0 to Grid1.Height-1 do
  begin
    s := '  ' + IntToStr(Y)+': ';
    for x := 0 to Grid1.Width-1 do
      s := s + IntToHex(Grid1.Cells[x,y].input,1) + ' ';
    memo1.Append(s);
  end;

  memo1.Append('outputs: ');
  for y := 0 to Grid1.Height-1 do
  begin
    s := '  ' + IntToStr(Y)+': ';
    for x := 0 to Grid1.Width-1 do
      s := s + IntToHex(Grid1.Cells[x,y].output,1) + ' ';
    memo1.Append(s);
  end;

  memo1.Append('Allbits = '+IntToHex(AllBits,16));
  memo1.Append(' '+IntToStr(Grid1.CycleCount) + ' cycles executed');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Append(DumpCode(PassThrough));
end;

procedure TForm1.ButtonRunCycleClick(Sender: TObject);
begin
  Grid1.DoClock;
end;

procedure TForm1.ButtonPassThroughClick(Sender: TObject);
var
  x,y : integer;
begin
  for y := 0 to Grid1.Height-1 do
    for x := 0 to Grid1.Width-1 do
      Grid1.Cells[x,y].lookup :=  Passthrough;

  Grid1.Cells[Grid1.Width-1,0].lookup:= $0000000088888888;
  For x := 0 to Grid1.Width-2 do
    Grid1.Cells[x,0].lookup := $FF08FF0877807780;

  For x := 0 to Grid1.Width-1 do
    Grid1.Cells[x,Grid1.Height-1].lookup := $4444000044440000;  // reflect down, otherwise 0

end;

procedure TForm1.ButtonPhaseAClick(Sender: TObject);
begin
  Grid1.DoPhaseA;
  Form1.Memo1.Append('phase A executed');
end;

procedure TForm1.ButtonPhaseBClick(Sender: TObject);
begin
  Grid1.DoPhaseB;
  Form1.Memo1.Append('phase B executed');
end;

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  ButtonChecked := Checkbox1.Checked;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Grid1.Done;
  Form1.Memo1.Append('grid done');
end;

begin

end.