登 录
测试小指令片段的执行时间，比如一条指令执行100次所需的时钟周期数。 comment %<br /> TSCTestB32.asm ?2005-07-16 Agner Fog<br /> Updated ?2011-04-05 G-Spider</p> <p>Test program to measure how many clock cycles a little piece of code takes.</p> <p>The program will execute the code to test NUMTESTS times and then print<br /> out a list of clock counts.</p> <p>Instructions:</p> <p>Insert the code to test at the place marked "### Test code here ###"<br /> in TSCTestB32.asm</p> <p>Compile and link for Windows, console mode, 32 bits.</p> <p>?2004 GNU General Public License www.gnu.org/copyleft/gpl.html</p> <p>ml /c /coff TSCTestB32.asm<br /> link /subsystem:console TSCTestB32.obj</p> <p>%</p> <p>.686p<br /> .model flat,stdcall<br /> option casemap:none</p> <p>include windows.inc<br /> include user32.inc<br /> include kernel32.inc<br /> include msvcrt.inc</p> <p>includelib user32.lib<br /> includelib kernel32.lib<br /> includelib msvcrt.lib</p> <p>; ###################### DEFINE CONSTANTS ######################</p> <p>; set number of times to run test<br /> NUMTESTS = 20</p> <p>; ###################### END DEFINE CONSTANTS ###################<br /> .data<br /> overhead qword ? ; timing overhead<br /> clocks dword ? ; pointer to results array<br /> fmt db '%10I64i',0dh,0ah,0<br /> szPause db 'Pause',0</p> <p>.data?<br /> ClocksArr qword NUMTESTS dup (?)</p> <p>.code</p> <p>;=======================================================<br /> ClockTest proc lpSrc<br /> push ebp<br /> mov esi,lpSrc<br /> mov clocks, esi<br /> ; get list into cache<br /> cld<br /> mov ecx, NUMTESTS * 2<br /> rep lodsd</p> <p> ; dummy test loop without test code to measure overhead<br /> xor ebp, ebp<br /> mov edi, clocks<br /> CLOOP1:<br /> sub eax, eax<br /> cpuid ; serialize<br /> rdtsc ; read time stamp counter into edx:eax<br /> mov [edi+ebp], eax ; save in list<br /> mov [edi+ebp+4], edx ; save high dword in list<br /> sub eax, eax<br /> cpuid ; serialize again</p> <p> ; void to measure overhead only</p> <p> sub eax, eax<br /> cpuid ; serialize<br /> rdtsc ; read time stamp counter into edx:eax<br /> sub eax, [edi+ebp] ; subtract old value<br /> sbb edx, [edi+ebp+4]<br /> mov [edi+ebp], eax ; save difference in list<br /> mov [edi+ebp+4], edx<br /> sub eax, eax<br /> cpuid ; serialize again</p> <p> add ebp, 8<br /> cmp ebp, NUMTESTS*8<br /> jb CLOOP1 ; dummy loop end</p> <p> ; find smallest clock count:<br /> mov edi, clocks<br /> mov eax, -1<br /> cdq<br /> ;================================================<br /> xor ebp, ebp<br /> xor ecx, ecx<br /> IF NUMTESTS GT 1<br /> mov [edi], eax ; exclude first count from minimum<br /> mov [edi+4], edx<br /> ENDIF<br /> xor ebp, ebp<br /> MINLOOP:<br /> ; (If cpu doesn't support conditional moves then replace all cmov by conditional jumps)</p> <p> cmp [edi+ebp],eax ; compare low dword and get result into bl<br /> setb bl<br /> cmp [edi+ebp+4],edx ; compare high dword and get result into cl<br /> setb cl<br /> cmove ecx, ebp ; replace cl by bl if high dword equal<br /> test cl, cl<br /> cmovnz eax, [edi+ebp] ; get lowest qword into edx:eax<br /> cmovnz edx, [edi+ebp+4]<br /> add ebp, 8<br /> cmp ebp, NUMTESTS*8<br /> jb MINLOOP<br /> mov dword ptr overhead, eax ; save minimum overhead<br /> mov dword ptr overhead+4, edx</p> <p> ; loop to measure clock cycles of test code<br /> xor ebp, ebp<br /> mov edi, clocks<br /> CLOOP2:<br /> sub eax, eax<br /> cpuid ; serialize<br /> rdtsc ; read time stamp counter into edx:eax<br /> mov [edi+ebp], eax ; save in list<br /> mov [edi+ebp+4], edx ; save high dword in list<br /> sub eax, eax<br /> cpuid ; serialize again</p> <p>; ###################### Test code here ######################</p> <p>; put your test code here. Example:</p> <p> REPT 100 ; repeat code 100 times<br /> ;shr eax, 5<br /> nop<br /> ;adc eax,5<br /> ;add eax,5<br /> ENDM</p> <p>; ###################### Test code end ######################<br /> sub eax, eax<br /> cpuid ; serialize<br /> rdtsc ; read time stamp counter into edx:eax<br /> sub eax, [edi+ebp] ; subtract old value<br /> sbb edx, [edi+ebp+4]<br /> mov [edi+ebp], eax ; save difference in list<br /> mov [edi+ebp+4], edx<br /> sub eax, eax<br /> cpuid ; serialize again</p> <p> add ebp, 8<br /> cmp ebp, NUMTESTS*8<br /> jb CLOOP2 </p> <p> ; subtract overhead from clock counts:<br /> xor ebp, ebp<br /> mov edi, clocks<br /> mov eax, dword ptr overhead<br /> mov edx, dword ptr overhead + 4<br /> OVHLOOP:<br /> sub [edi+ebp], eax<br /> sbb [edi+ebp+4], edx<br /> add ebp, 8<br /> cmp ebp, NUMTESTS*8<br /> jb OVHLOOP<br /> mov eax, NUMTESTS<br /> pop ebp<br /> ret<br /> ClockTest endp</p> <p>start:<br /> invoke GetCurrentProcess<br /> push eax<br /> invoke SetPriorityClass,eax,REALTIME_PRIORITY_CLASS<br /> ;//Run Tests</p> <p> invoke ClockTest,offset ClocksArr</p> <p> ;// set priority back normal<br /> pop eax<br /> invoke SetPriorityClass,eax,NORMAL_PRIORITY_CLASS</p> <p> mov esi,offset ClocksArr<br /> mov ecx,NUMTESTS<br /> xor eax,eax<br /> A00:<br /> push ecx<br /> push eax<br /> invoke crt_printf,offset fmt,qword ptr [esi+eax*8]<br /> pop eax<br /> pop ecx<br /> inc eax<br /> sub ecx,1<br /> jnz A00</p> <p> invoke crt_system,offset szPause<br /> invoke ExitProcess,0<br /> end start</p> <p>
抱歉!评论已关闭.