#pas
unit HiAsmUnit;

interface

uses kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private

   public
   onPlus : THI_Event;
   MData : THI_Event;
   Procedure doPlus(_Data:TData; index:word);

 end;

implementation

Procedure THiAsmClass.doPlus;
var s:integer;
var p:string;
begin
p := ReadString(_Data,MData);
s := StrToInt(p)+1;
_hi_onEvent(onPlus,s);
end;
end.