source: branches/DataAddress/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, UCpu;

type

  { TFormMain }

  TFormMain = class(TForm)
    ButtonRun: TButton;
    Memo1: TMemo;
    procedure ButtonRunClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
    procedure FormShow(Sender: TObject);
  private
    KeyBuffer: array of Char;
    procedure CpuOutput(Address: TAddress; Data: TData);
    function CpuInput(Address: TAddress): TData;
  public
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
begin
end;

procedure TFormMain.FormKeyPress(Sender: TObject; var Key: char);
begin
  SetLength(KeyBuffer, Length(KeyBuffer) + 1);
  KeyBuffer[0] := Key;
end;

procedure TFormMain.ButtonRunClick(Sender: TObject);
var
  Cpu: TCpu;
  LabelLoop: TAddress;
  LabelText: TAddress;
  LabelTextRef: TAddress;
  LabelLoop2: TAddress;
  Output: string;
  I: Integer;
  VarCount: TAddress;
  VarText: TAddress;
  VarAnd: TAddress;
  VarEnterKey: TAddress;
  PortText: TAddress;
begin
  Memo1.Lines.Clear;
  Memo1.SetFocus;
  Cpu := TCpu.Create;
  with Cpu do begin
    OnOutput := CpuOutput;
    OnInput := CpuInput;
    SetLength(Memory, 1000);
    Memo1.Lines.Add('Memory size: ' + IntToStr(Length(Memory)));

    VarCount := 200;
    VarText := VarCount + SizeOf(TData);
    VarAnd := VarText + SizeOf(TAddress);
    VarEnterKey := VarAnd + SizeOf(TData);
    PortText := 0;
    LabelText := 0;

    WriteOpcode(opLdca); WriteData(13);
    WriteOpcode(opSta); WriteAddress(VarCount);

    WriteOpcode(opLdcp); LabelTextRef := IP; WriteAddress(LabelText);
    WriteOpcode(opStp); WriteAddress(VarText);

    WriteOpcode(opLdca); WriteData(255);
    WriteOpcode(opSta); WriteAddress(VarAnd);

    WriteOpcode(opLdca); WriteData(13);
    WriteOpcode(opSta); WriteAddress(VarEnterKey);

    LabelLoop := IP;

    WriteOpcode(opLdi); WriteAddress(VarText);
    WriteOpcode(opAnd); WriteAddress(VarAnd);
    WriteOpcode(opOut); WriteAddress(PortText);

    Writeopcode(opLdp); WriteAddress(VarText);
    WriteOpcode(opIncp);
    Writeopcode(opStp); WriteAddress(VarText);

    Writeopcode(opLda); WriteAddress(VarCount);
    WriteOpcode(opDeca);
    Writeopcode(opSta); WriteAddress(VarCount);

    WriteOpcode(opBrnz); WriteAddress(LabelLoop);


    LabelLoop2 := IP;
    WriteOpcode(opInp); WriteAddress(PortText);
    WriteOpcode(opOut); WriteAddress(PortText);
    WriteOpcode(opSuba); WriteAddress(VarEnterKey);
    WriteOpcode(opBrnz); WriteAddress(LabelLoop2);

    WriteOpcode(opHalt);

    LabelText := IP;
    WriteString('Hello world!');

    Memo1.Lines.Add('Program size: ' + IntToStr(IP));

    // Update refs
    IP := LabelTextRef;
    WriteAddress(LabelText);

    Reset;
    Run;
    Memo1.Lines.Add('Cycles: ' + IntToStr(Cycles));
    Output := '';
    for I := 0 to Length(Memory) - 1 do
      Output := Output + IntToHex(Memory[I], 2) + ' ';
      Memo1.Lines.Add(Output);
    Free;
  end;
end;

procedure TFormMain.CpuOutput(Address: TAddress; Data: TData);
begin
  if Address = 0 then begin
    Memo1.Text := Memo1.Text + Chr(Data);
  end;
end;

function TFormMain.CpuInput(Address: TAddress): TData;
begin
  if Address = 0 then begin
    while Length(KeyBuffer) = 0 do begin
      Application.ProcessMessages;
    end;
    Result := Ord(KeyBuffer[0]);
    SetLength(KeyBuffer, Length(KeyBuffer) - 1);
  end;
end;

end.