Add(InlineCode,9562856,203,154)
{
 WorkPoints=#7:doStart|6:doStop|
 EventPoints=#6:onStop|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|16:    FTime:int64;|9:   public|21:    onStop:THI_Event;|51:    procedure doStart(var _Data:TData; Index:word);|50:    procedure doStop(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doStart;|5:begin|33:  QueryPerformanceCounter(FTime);|4:end;|0:|29:procedure THiAsmClass.doStop;|30:var curTime:int64; freq:int64;|5:begin|35:  QueryPerformanceCounter(curTime);|34:  QueryPerformanceFrequency(freq);|29:  curTime := curTime - FTime;|39:  _hi_OnEvent(onStop,curTime*1E6/freq);|4:end;|0:|4:end.|
}