Element TimeCounter

Vars
  Self#.FCounter dq ?

PointWork doStart
  lea ecx,[Self#.FCounter]
  invoke QueryPerformanceCounter,ecx
  Self#.onStart data,data.type,exit
EndPoint

PointWork doStop
  sub esp,8
  invoke QueryPerformanceCounter,esp
  sub esp,8
  invoke QueryPerformanceFrequency,esp
  fild qword [esp+8]
  fild qword [Self#.FCounter]
  fsubp st1,st0
  fild qword [esp]
  fdivp st1,st0
  push 1000
  fild dword [esp]
  fmulp st1,st0
  fwait
  add esp,20
  Self#.onStop 1,data_real_st0,exit
EndPoint

EndElement