

include "$/inc/minwin.inc"
include "$/inc/console.inc"
quad ,t1,t2,t3,fr

QueryPerformanceCounter @t1

mov ecx, 1e9
redo1:
add esi,1
dec ecx
jnz redo1

QueryPerformanceCounter @t2

mov ecx, 1e9
redo2:
'add eax,1
add esi,edx
add edi,edx
'dec edx
dec ecx
jnz redo2

QueryPerformanceCounter @t3


double t
QueryPerformanceFrequency @fr
t=(t2-t1)/fr : printl t
t=(t3-t2)/fr : printl t

waitkey



