unit HiAsmUnit;

interface

uses Kol,Share,Debug;

type
 THiAsmClass = class(TDebug)
   private

   public
   Res:THI_Event;
   indata:THI_Event;
   procedure GetPart(var _Data:TData; Index:WORD);

 end;

implementation

procedure THiAsmClass.GetPart(var _Data:TData; Index:WORD);
var s,p5:string;
   p1,p2,p3,p4:integer; 
begin
s := ReadString(_Data, indata);
p1:=Hex2Int(Copy(s,7,2));
p2:=Hex2Int(Copy(s,9,2));
p3:=Hex2Int(Copy(s,11,2));
p4:=Hex2Int(Copy(s,13,2));
p5:=int2str(round((p1/256 + p2/(Power(256,2)) + p3/(Power(256,3)))*(Power(2,p4))));
_hi_onEvent(Res, p5);
end; 
end.