Add(MainForm,2953706,63,98)
{
 Height=144
}
Add(InlineCode,8089376,189,98)
{
 WorkPoints=#6:doTact|6:doStop|
 EventPoints=#6:onTact|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|22:uses  kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|13:   n,k:Int64;|9:   public|20:   onTact:THI_Event;|50:   procedure  doTact(var _Data:TData; Index:Word);|50:   procedure  doStop(var _Data:TData; Index:Word);|5: end;|1: |0:|14:implementation|0:|28:function GetCPUTacts: int64;|3:asm|7:  RDTSC|4:end;|0:|30:procedure  THiAsmClass.doTact;|5:begin|18: n:=GetCPUTacts;  |4:end;|0:|30:procedure  THiAsmClass.doStop;|5:begin|19: k:= GetCPUTacts-n;|23: _hi_OnEvent(onTact,k);|4:end;|4:end.|
 link(onTact,5124980:doString,[])
}
Add(Hub,5848884,161,98)
{
 link(onEvent1,8089376:doTact,[])
 link(onEvent2,8089376:doStop,[])
}
Add(Button,11619364,112,98)
{
 Left=30
 Top=25
 link(onClick,5848884:doEvent1,[])
}
Add(Label,10380760,294,98)
{
 Left=20
 Top=70
}
Add(FormatStr,5124980,238,98)
{
 DataCount=1
 Mask="На выполнение кодов Hub + InLine затрачено %1 тактов процессора."
 link(onFString,10380760:doText,[])
}