Add(Sleep,5225570,273,182) { Delay=500 link(onSleep,10390258:doTimer,[]) } Add(MMTimer,16542764,322,147) { Resolution=0 Interval=1 Enable=1 link(onTimer,10463909:doSafeMode,[]) } Add(InlineCode,3776895,217,175) { WorkPoints=#6:do_in1| EventPoints=#4:out1|4:out2| 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|18: out1:THI_Event;|18: out2:THI_Event;|18: out3:THI_Event;|18: out4:THI_Event;|48: procedure do_in1(var Data:TData; index:word);|3: |5: end;|0:|14:implementation|0:|0:|0:|0:|29:procedure THiAsmClass.do_in1;|15:var s1:integer;|5:begin|24:s1 := ToInteger(Data); |0:|24: _hi_OnEvent(out1, s1);|24: _hi_OnEvent(out2, s1);|2: |4:end;|0:|0:|0:|0:|4:end.| link(out1,16542764:doTimer,[(285,181)(285,153)]) link(out2,5225570:doSleepMks,[]) } Add(MMTimer,10390258,322,182) { Resolution=0 Interval=1 Enable=1 link(onTimer,14471496:doSafeMode,[]) } Add(SafeMode,10463909,371,147) { Wait_Abandoned=0 WaitMode=1 link(onSafeMode,7785256:doWork1,[(424,153)]) } Add(SafeMode,14471496,371,182) { Wait_Abandoned=0 WaitMode=1 link(onSafeMode,7785256:doWork2,[]) } Add(InlineCode,11987370,441,182) { WorkPoints=#6:do_in1| EventPoints=#4:out1|4:out2|4:out3| 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|18: out1:THI_Event;|18: out2:THI_Event;|18: out3:THI_Event;|48: procedure do_in1(var Data:TData; index:word);|3: |5: end;|0:|14:implementation|0:|0:|0:|0:|29:procedure THiAsmClass.do_in1;|15:var s1:integer;|5:begin|24:s1 := ToInteger(Data); |0:|24: _hi_OnEvent(out1, s1);|24: _hi_OnEvent(out2, s1);|24: _hi_OnEvent(out3, s1);|2: |2: |4:end;|0:|0:|0:|0:|4:end.| } Add(HubEx,7785256,420,182) { link(onEvent,11987370:do_in1,[]) }