Add(MainForm,16750181,483,238)
{
 Position=1
 link(onCreate,11758102:in1,[])
}
Add(InlineCode,11758102,532,252)
{
 @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:      |15:    a: Integer;|15:    pa:Pointer;|6:      |15:    b: Integer;|15:    c: Integer;|4:    |9:   public|34:    out1:THI_Event;  //выход 1    |56:    procedure in1(var Data:TData; index:word); // Вход 1|18:                  |5: end;|1: |171:function InterlockedCompareExchange(var Destination: Pointer; Exchange: Longint; Comperand: Longint): Longint stdcall; external kernel32 name 'InterlockedCompareExchange';|0:|14:implementation|0:|37: procedure THiAsmClass.in1; // Вход 1|4:    |9: begin   |12:    a  := 5;|13:    c  := 10;|13:    b  := 20;|4:    |13:    pa := @a;|4:    |45:    a  := InterlockedCompareExchange(pa,b,c);|11:           |22:  _hi_OnEvent(out1, a)|8:        |5: end;|0:|4:end.|
 PColor(out1,-1)
 PColor(out2,-1)
 link(out1,16750181:doCaption,[(574,258)(574,223)(471,223)(471,244)])
}