procedure THiAsmClass.arr_(var _Data:TData; Index:word);

begin
  _data.data_type := data_array;
  _data.idata := integer(arr);
end;