st.read(c,4);

Add(DataToFile,3017491,273,203)
{
 link(onGet,11295027:doConvert,[])
}
Add(For,11843173,210,210)
{
 End=3
 link(onEvent,3017491:doGet,[])
 link(onStop,13365424:doData,[(262,223)(262,272)])
}
Add(Convertor,11295027,322,203)
{
 Mode=6
 link(onResult,12471661:doStrCat,[])
}
Add(Convertor,4358743,427,266)
{
 Mode=5
}
Add(StrCat,12471661,378,203)
{
 Point(doClear)
 link(Str1,10646456:Var1,[(384,191)(372,191)(372,250)])
}
Add(DoData,13365424,378,266)
{
 link(onEventData,4358743:doConvert,[])
 link(Data,10646456:Var2,[])
}
Add(GetDataEx,10646456,378,245)
{
 link(Data,12471661:Result,[])
}

procedure THiAsmClass.doMixing(var dt: TData; idx: word);
var 
  inDt,outDt: integer;
  arrByteIn:  array[0..3] of Byte absolute inDt;
  arrByteOut: array[0..3] of Byte absolute outDt;
begin
  inDt := ToInteger(dt);
  arrByteOut[0] := arrByteIn[3];
  arrByteOut[1] := arrByteIn[2];
  arrByteOut[2] := arrByteIn[1];
  arrByteOut[3] := arrByteIn[0];
  _hi_onEvent(onRes,outDt);
end;

function BSwap(const x: LongWord): LongWord; inline;
begin
  Result := (x shr 24) or
            ((x shr 8) and $0000ff00) or
            ((x shl 8) and $00ff0000) or
            (x shl 24);
end;