#pas
unit HiAsmUnit;

interface

uses kol,Share,Windows,Debug;

type
 THiAsmClass = class(TDebug)

   private

   public
     _data_Data:THI_Event;
     Key:THI_Event;
     Size:THI_Event;
     onEmul:THI_Event;

    procedure doEmul(var _Data:TData; Index:word);
 end;
 
implementation

procedure THiAsmClass.doEmul;
var
    fKey: Integer;
    fSize: Integer;


begin
    fkey := ReadInteger(_Data, Key);
    fsize := ReadInteger(_Data, Size);
    SendInput(1, fkey, fsize);
    _hi_onEvent(onEmul, fsize);
end;

end.