Add(MainForm,2953706,224,154)
{
 Position=1
 link(onCreate,11758102:in1,[])
}
Add(InlineCode,11758102,273,168)
{
 @Hint=#19:Switcher (из макса)|6:Пауза!|
 @Color=11184725
 WorkPoints=#3:in1|9:doSelect1|9:doSelect2|
 EventPoints=#4:out1|4:out2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|6:      |14:    a:integer;|16:    pa:^integer;|3:   |14:    b:integer;|14:    c:integer;|4:    |9:   public|34:    out1:THI_Event;  //выход 1    |56:    procedure in1(var Data:TData; index:word); // Вход 1|18:                  |5: end;|0:|14:implementation|0:|37: procedure THiAsmClass.in1; // Вход 1|4:    |9: begin   |12:    a  := 5;|13:    c  := 10;|13:    b  := 20;|4:    |15:    pa := @a;  |47:    InterlockedCompareExchange(pa^,b,c);       |24:  _hi_OnEvent(out1, pa^)|8:        |5: end;|0:|4:end.|
 PColor(out1,-1)
 PColor(out2,-1)
 link(out1,2953706:doCaption,[(315,174)(315,139)(212,139)(212,160)])
}