1//
2// gettsc.inl
3//
4// gives access to the Pentium's (secret) cycle counter
5//
6// This software was written by Leonard Janke (janke@unixg.ubc.ca)
7// in 1996-7 and is entered, by him, into the public domain.
8
9#if defined(__WATCOMC__)
10void GetTSC(unsigned long&);
11#pragma aux GetTSC = 0x0f 0x31 "mov [edi], eax" parm [edi] modify [edx eax];
12#elif defined(__GNUC__)
13inline
14void GetTSC(unsigned long& tsc)
15{
16  asm volatile(".byte 15, 49\n\t"
17	       : "=eax" (tsc)
18	       :
19	       : "%edx", "%eax");
20}
21#elif defined(_MSC_VER)
22inline
23void GetTSC(unsigned long& tsc)
24{
25  unsigned long a;
26  __asm _emit 0fh
27  __asm _emit 31h
28  __asm mov a, eax;
29  tsc=a;
30}
31#endif
32
33#include <stdio.h>
34#include <stdlib.h>
35#include <openssl/rc5.h>
36
37void main(int argc,char *argv[])
38	{
39	RC5_32_KEY key;
40	unsigned long s1,s2,e1,e2;
41	unsigned long data[2];
42	int i,j;
43	static unsigned char d[16]={0x01,0x23,0x45,0x67,0x89,0xAB,0xCD,0xEF};
44
45	RC5_32_set_key(&key, 16,d,12);
46
47	for (j=0; j<6; j++)
48		{
49		for (i=0; i<1000; i++) /**/
50			{
51			RC5_32_encrypt(&data[0],&key);
52			GetTSC(s1);
53			RC5_32_encrypt(&data[0],&key);
54			RC5_32_encrypt(&data[0],&key);
55			RC5_32_encrypt(&data[0],&key);
56			GetTSC(e1);
57			GetTSC(s2);
58			RC5_32_encrypt(&data[0],&key);
59			RC5_32_encrypt(&data[0],&key);
60			RC5_32_encrypt(&data[0],&key);
61			RC5_32_encrypt(&data[0],&key);
62			GetTSC(e2);
63			RC5_32_encrypt(&data[0],&key);
64			}
65
66		printf("cast %d %d (%d)\n",
67			e1-s1,e2-s2,((e2-s2)-(e1-s1)));
68		}
69	}
70
71