unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   public
   onTrue, onFalse, XPoint: THI_Event;
   procedure doCheck(var _Data:TData; Index:word);
 end;

implementation

procedure THiAsmClass.doCheck;
 Var x: Integer;
begin 
  x:=ReadInteger(_Data, XPoint,0);
  if (x>0) and (x<100) then
      _Hi_OnEvent(onTrue,'true') 
   else 
      _Hi_OnEvent(onFalse,'false');  
end;

end.

unit HiAsmUnit;

interface

uses kol,Share,Debug,Windows;
type
 THiAsmClass = class(TDebug)

   private
   protected
   public
     onTX:THI_Event;
     TX:THI_Event;
   procedure doTX(var _Data:TData; Index:word);
end;

implementation

procedure THiAsmClass.doTX;
begin
   _hi_CreateEvent(_Data,@onTX,ReadData(_Data,TX));
end;

end.