ST

[Валенок]

облегчите себе жизнь

type ai_sourse
struct
  DP : word;
  iValueDP : int;
  Status : word;
  Cyclic : word;
  Value : real
end_struct
end_type //6 регистров

var
  mva8 : array[1..8] of ai_sourse; //тут - всё
  pd : pointer to dword;

...
if  cmpl and err = 0 then 
  sysmemcpy(adr(mva8), adr(buffer), sizeof(mva8));
  for i:=1 to 8 do
    pd := adr(mva8[i].value);
    pd^ := rol(pd^, 16);
  end_for //вот и всё
end_if