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.