#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

const
 arr:Array[0..3] of byte = (77,90,128,0);

type
 THiAsmClass = class(TDebug)
   private

   public

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

 end;
 
implementation


procedure THiAsmClass.arr_(var _Data:TData; Index:word);
begin
 if arr = nil then
  _data.data_type := data_array;
  _data.idata := integer(arr);
end;

end.