source: trunk/Forms/FormCpu.pas

unit FormCpu;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ValEdit,
  ExtCtrls, CpuZ80;

type

  { TFormCpu }

  TFormCpu = class(TForm)
    GroupBox1: TGroupBox;
    TimerUpdate: TTimer;
    ValueListEditor1: TValueListEditor;
    procedure TimerUpdateTimer(Sender: TObject);
  public
    Cpu: TCpuZ80;
  end;

implementation

{$R *.lfm}

{ TFormCpu }

procedure TFormCpu.TimerUpdateTimer(Sender: TObject);
begin
  ValueListEditor1.Values['A'] := IntToHex(Cpu.A, 2);
  ValueListEditor1.Values['BC'] := IntToHex(Cpu.BC.Value, 4);
  ValueListEditor1.Values['DE'] := IntToHex(Cpu.DE.Value, 4);
  ValueListEditor1.Values['HL'] := IntToHex(Cpu.HL.Value, 4);
  ValueListEditor1.Values['PC'] := IntToHex(Cpu.PC, 4);
  ValueListEditor1.Values['SP'] := IntToHex(Cpu.SP, 4);
  ValueListEditor1.Values['Ticks'] := IntToStr(Cpu.Ticks);
end;

end.