source: trunk/Core.pas

unit Core;

interface

uses
  Classes, SysUtils, ActnList, Controls, FormMain, Forms, ExtCtrls, FormMemory,
  SharpMz800, FormDisassembler, FormCpu, FormScreen;

type

  { TCore }

  TCore = class(TDataModule)
    AViewScreen: TAction;
    AViewCpu: TAction;
    AStop: TAction;
    AStepOut: TAction;
    ARun: TAction;
    AStepIn: TAction;
    AStepOver: TAction;
    ARunToCursor: TAction;
    APause: TAction;
    AViewDissssembler: TAction;
    AViewMemory: TAction;
    AExit: TAction;
    ActionList1: TActionList;
    ImageList1: TImageList;
    TimerUpdate: TTimer;
    procedure AExitExecute(Sender: TObject);
    procedure APauseExecute(Sender: TObject);
    procedure ARunExecute(Sender: TObject);
    procedure AStepInExecute(Sender: TObject);
    procedure AStepOutExecute(Sender: TObject);
    procedure AStepOverExecute(Sender: TObject);
    procedure AStopExecute(Sender: TObject);
    procedure AViewCpuExecute(Sender: TObject);
    procedure AViewDissssemblerExecute(Sender: TObject);
    procedure AViewMemoryExecute(Sender: TObject);
    procedure AViewScreenExecute(Sender: TObject);
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure TimerUpdateTimer(Sender: TObject);
  private
    LastPc: Word;
  public
    FormMain: TFormMain;
    FormMemory: TFormMemory;
    FormDisassembler: TFormDisassembler;
    FormCpu: TFormCpu;
    FormScreen: TFormScreen;
    SharpMz800: TSharpMz800;
    procedure UpdateDisassemblerPos;
    procedure UpdateInterface;
  end;

var
  Core: TCore;


implementation

{$R *.lfm}

uses
  CpuZ80;

{ TCore }

procedure TCore.DataModuleCreate(Sender: TObject);
begin
  SharpMz800 := TSharpMz800.Create;
//  SharpMz800.PowerOn;
  FormMain := TFormMain.Create(nil);
  FormMain.Show;
end;

procedure TCore.AExitExecute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TCore.APauseExecute(Sender: TObject);
begin
  SharpMz800.Cpu.Running := False;
  UpdateInterface;
end;

procedure TCore.ARunExecute(Sender: TObject);
begin
  SharpMz800.Cpu.Running := True;
  UpdateInterface;
end;

procedure TCore.AStepInExecute(Sender: TObject);
begin
  SharpMz800.Cpu.DebugMode := dmStepIn;
  SharpMz800.Cpu.Running := True;
  UpdateInterface;
end;

procedure TCore.AStepOutExecute(Sender: TObject);
begin
  SharpMz800.Cpu.DebugMode := dmStepOut;
  SharpMz800.Cpu.Running := True;
  UpdateInterface;
end;

procedure TCore.AStepOverExecute(Sender: TObject);
begin
  SharpMz800.Cpu.DebugMode := dmStepOver;
  SharpMz800.Cpu.Running := True;
  UpdateInterface;
end;

procedure TCore.AStopExecute(Sender: TObject);
begin
  SharpMz800.Cpu.Running := False;
  SharpMz800.Cpu.Reset;
  UpdateInterface;
end;

procedure TCore.AViewCpuExecute(Sender: TObject);
begin
  if not Assigned(FormCpu) then begin
    FormCpu := TFormCpu.Create(nil);
    FormCpu.Cpu := SharpMz800.Cpu;
  end;
  FormCpu.Show;
end;

procedure TCore.AViewDissssemblerExecute(Sender: TObject);
begin
  if not Assigned(FormDisassembler) then begin
    FormDisassembler := TFormDisassembler.Create(nil);
    FormDisassembler.Disassembler.Memory := SharpMz800.MappedMemory;
  end;
  FormDisassembler.Show;
end;

procedure TCore.AViewMemoryExecute(Sender: TObject);
begin
  if not Assigned(FormMemory) then begin
    FormMemory := TFormMemory.Create(nil);
    FormMemory.Size := SharpMz800.MappedMemory.Size;
    FormMemory.Memory := SharpMz800.MappedMemory;
  end;
  FormMemory.Show;
end;

procedure TCore.AViewScreenExecute(Sender: TObject);
begin
  if not Assigned(FormScreen) then begin
    FormScreen := TFormScreen.Create(nil);
  end;
  FormScreen.Show;
end;

procedure TCore.DataModuleDestroy(Sender: TObject);
begin
  if Assigned(FormCpu) then FreeAndNil(FormCpu);
  if Assigned(FormDisassembler) then FreeAndNil(FormDisassembler);
  if Assigned(FormMemory) then FreeAndNil(FormMemory);
  if Assigned(FormScreen) then FreeAndNil(FormScreen);
  FreeAndNil(FormMain);
  FreeAndNil(SharpMz800);
end;

procedure TCore.TimerUpdateTimer(Sender: TObject);
begin
  UpdateDisassemblerPos;
  UpdateInterface;
end;

procedure TCore.UpdateDisassemblerPos;
begin
  if LastPc <> SharpMz800.Cpu.Pc then begin
    if Assigned(FormDisassembler) then
      FormDisassembler.SelectAddress(SharpMz800.Cpu.PC);
    LastPc := SharpMz800.Cpu.Pc;
  end;
end;

procedure TCore.UpdateInterface;
begin
  ARun.Enabled := not SharpMz800.Cpu.Running;
  AStop.Enabled := SharpMz800.Cpu.Running;
  APause.Enabled := SharpMz800.Cpu.Running;
  AStepIn.Enabled := not SharpMz800.Cpu.Running;
  AStepOut.Enabled := not SharpMz800.Cpu.Running;
  AStepOver.Enabled := not SharpMz800.Cpu.Running;
  ARunToCursor.Enabled := not SharpMz800.Cpu.Running;
end;

end.