Add(MainForm,2953706,119,63)
{
 link(onCreate,4469104:doTik,[])
}
Add(InlineCode,4469104,168,77)
{
 WorkPoints=#30:doTik=Получить тики процессора|
 EventPoints=#35:onTik=Выдаёт текущий тик процессора|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Windows,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|19:   onTik:THI_Event;|48:   procedure doTik(var _Data:TData; Index:word);|5: end;|0:|14:implementation|28:procedure THiAsmClass.doTik;|15:var _Tik:int64;|5:begin|32:  QueryPerformanceCounter(_Tik);|29:  _Tik:=_Tik mod 4294967296; |27:  _hi_onEvent(onTik, _Tik);|5:end; |4:end.|
 Name="Tik"
 link(onTik,4839542:doWork2,[(255,83)(255,125)])
}
Add(Button,4591034,168,175)
{
 Left=15
 Top=70
 link(onClick,8774678:doCalc,[])
}
Add(Edit,15859189,210,119)
{
 Left=60
 Top=25
 Width=115
 Text="2100967296.0"
}
Add(Label,1432684,168,119)
{
 Left=35
 Top=25
 Width=25
 Height=25
 Font=[MS Sans Serif,12,1,0,1]
 Caption="C="
}
Add(Memory,3893185,287,119)
{
 Default=Integer(0)
}
Add(Edit,10497919,287,175)
{
 Left=90
 Top=70
 Width=110
 ReadOnly=0
}
Add(Hub,3429110,252,175)
{
 link(onEvent1,4839542:doWork3,[(277,181)])
 link(onEvent2,10497919:doText2,[])
}
Add(HubEx,4839542,273,119)
{
 link(onEvent,3893185:doValue,[])
}
Add(MathParse,8774678,210,175)
{
 MathStr="(%1 + %2) mod 4294967296"
 link(onResult,3429110:doEvent1,[])
 link(X1,15859189:Text,[])
 link(X2,3893185:Value,[(223,163)(293,163)])
}