program mzxemu;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads, clocale,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  SysUtils, Interfaces, // this includes the LCL widgetset
  Forms, FormMain, FormMemory, FormDisassembler, Z80, SharpMz800,
MemoryTypes, Core,
  Z80InstructionInfo, Z80Instructions, Disassembler, FormCpu, FormScreen,
  FormGoToAddress, FormMessages, Base, InstructionSetGen, I8253, I8255,
FormCallStack, Debugger;

{$if declared(UseHeapTrace)}
const
  HeapTraceLog = 'heaptrclog.trc';
{$ENDIF}
{$R *.res}

begin
  {$if declared(UseHeapTrace)}
  // Heap trace
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TCore, Core.Core);
  Application.Run;
end.