

uses minwin
uses console

quad ,t1,t2,t3,fr

QueryPerformanceCounter @t1

mov ecx, 1e9
redo1:
dec ecx
jz fwd done1
jmp redo1
done1:

QueryPerformanceCounter @t2

mov ecx, 1e9
redo2:
dec ecx
jnz redo2
done2:

QueryPerformanceCounter @t3


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

waitkey



