#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private
   public
   data,number: THI_Event;
   read: THI_Event;
   Procedure doSet(var _Data:TData; Index:Word);
   Procedure doRead(var _Data:TData; Index:Word);
 end;
implementation

Procedure THiAsmClass.doSet;
var Adata,Aindex:integer;
       AR:array[1..999] of integer;
begin
Adata :=ReadInteger(_Data,data) ;
Aindex :=ReadInteger(_Data,number) ;
ar[Aindex]:= Adata;
end;

Procedure THiAsmClass.doRead;
var Adata,Aindex:integer;
       AR:array[1..999] of integer;
begin
Aindex :=ReadInteger(_Data,number) ;
_hi_OnEvent(read,ar[Aindex]);
end;
end.