Add(MainForm,2953706,21,70)
{
}
Add(Time,3891512,231,28)
{
 Point(DateTime)
 Point(Hours)
 Point(Minute)
}
Add(InlineCode,9369908,357,91)
{
 WorkPoints=#6:doCalc|
 EventPoints=#3:G41|3:G42|3:G43|3:G44|3:G45|
 DataPoints=#12:DateTimeReal|1:H|1:M|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|7:   G41,|7:   G42,|7:   G43,|7:   G44,|7:   G45,|16:   DateTimeReal,|5:   H,|16:   M: THI_Event;|49:   procedure doCalc(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|30: procedure THiAsmClass.doCalc;|31: var mjd, r, hour, min:integer;|6: begin|29:  hour:=ReadInteger(_Data,H);|28:  min:=ReadInteger(_Data,M);|40:  mjd:= ReadInteger(_Data,DateTimeReal);|2:  |0:|40:  _hi_onEvent(G41,(mjd shr 15) and $03);|39:  _hi_onEvent(G42,(mjd shr 7) and $ff);|67:  _hi_onEvent(G43,((mjd shl 1) and $ff) or ((hour shr 4) and $01));|67:  _hi_onEvent(G44,((hour shl 4) and $f0) or ((min shr 2) and $0f));|39:  _hi_onEvent(G45,(min shl 6) and $c0);|0:|5: end;|4:end.|
 link(G41,9524176:doWork2,[])
 link(G42,8683469:doWork2,[])
 link(G43,12900147:doWork2,[])
 link(G44,13682038:doWork2,[])
 link(G45,13682038:doWork3,[(424,125)])
 link(H,3891512:Hours,[(370,75)(251,75)])
 link(M,3891512:Minute,[(377,69)(258,69)])
}
Add(DateConvertor,4776822,238,91)
{
 Mode=19
 Point(Data)
 link(onResult,9369908:doCalc,[])
 link(Data,3891512:DateTime,[])
}
Add(Hub,3782027,189,84)
{
 link(onEvent1,1971966:doClear,[(372,90)(372,104)])
 link(onEvent2,4776822:doConvert,[])
}
Add(ListBox,1971966,462,91)
{
 Left=275
 Top=20
 Width=95
 Height=185
}
Add(HubEx,9524176,420,91)
{
 link(onEvent,1971966:doAdd,[])
}
Add(HubEx,8683469,420,98)
{
 Angle=3
 link(onEvent,9524176:doWork3,[])
}
Add(HubEx,12900147,420,105)
{
 Angle=3
 link(onEvent,8683469:doWork3,[])
}
Add(HubEx,13682038,420,112)
{
 Angle=3
 link(onEvent,12900147:doWork3,[])
}
Add(Button,4888633,77,84)
{
 Left=95
 Top=40
 link(onClick,8299969:doTimer,[])
}
Add(Timer,8299969,133,84)
{
 Enable=1
 link(onTimer,3782027:doEvent1,[])
}