/* Compiler dependent options */#define	NOENUM			/* Define if compiler has no enum's */#undef	NOSTRUCTASSIGN		/* Define if compiler can't assign structures *//* define only one of the next two defines *//* #define TIMES */			/* Use times(2) time function */#define TIME			/* Use time(2) time function *//* define the granularity of your times(2) function (when used) */#ifndef HZ/*#define HZ	60		/* times(2) returns 1/60 second (most) */#define HZ	1		/* times(2) returns 1/100 second (WECo) */#endif/* for compatibility with goofed up version *//*#define GOOF */			/* Define if you want the goofed up version */#ifdef GOOFconst unsigned char	Version[] = "1.0";#elseconst unsigned char	Version[] = "1.1";#endif#ifdef	NOSTRUCTASSIGN#define	structassign(d, s)	memcpy(&(d), &(s), sizeof(d))#else#define	structassign(d, s)	d = s#endif#ifdef	NOENUM#define	Ident1	1#define	Ident2	2#define	Ident3	3#define	Ident4	4#define	Ident5	5typedef unsigned char  Enumeration;#elsetypedef enum	{Ident1, Ident2, Ident3, Ident4, Ident5} Enumeration;#endiftypedef int	OneToThirty;typedef int	OneToFifty;typedef unsigned char	CapitalLetter;typedef unsigned char	String30[31];typedef int	Array1Dim[51];typedef int	Array2Dim[51][51];struct	Record{	struct Record		*PtrComp;	Enumeration		Discr;	Enumeration		EnumComp;	OneToFifty		IntComp;	String30		StringComp;};typedef struct Record 	RecordType;typedef RecordType *	RecordPtr;typedef int		boolean;#ifndef NULL#define	NULL		0#endif#ifndef REG#define	REG register#endif/* extern Enumeration	Func1(); */#ifdef TIMES#include <sys/types.h>#include <sys/times.h>#endif/* * Package 1 */int		IntGlob;boolean		BoolGlob;unsigned char		Char1Glob;unsigned char		Char2Glob;Array1Dim	Array1Glob;Array2Dim	Array2Glob;RecordPtr	PtrGlb;RecordPtr	PtrGlbNext;RecordType      rec1, rec2;Enumeration Func1(CharPar1, CharPar2)CapitalLetter	CharPar1;CapitalLetter	CharPar2;{	REG CapitalLetter	CharLoc1;	REG CapitalLetter	CharLoc2;	CharLoc1 = CharPar1;	CharLoc2 = CharLoc1;	if (CharLoc2 != CharPar2)		return (Ident1);	else		return (Ident2);}boolean Func2(StrParI1, StrParI2)String30	StrParI1;String30	StrParI2;{	REG OneToThirty		IntLoc;	REG CapitalLetter	CharLoc;	IntLoc = 1;	while (IntLoc <= 1)		if (Func1(StrParI1[IntLoc], StrParI2[IntLoc+1]) == Ident1)		{			CharLoc = 'A';			++IntLoc;		}	if (CharLoc >= 'W' && CharLoc <= 'Z')		IntLoc = 7;	if (CharLoc == 'X')		return(TRUE);	else	{		if (strcmp(StrParI1, StrParI2) > 0)		{			IntLoc += 7;			return (TRUE);		}		else			return (FALSE);	}}boolean Func3(EnumParIn)REG Enumeration	EnumParIn;{	REG Enumeration	EnumLoc;	EnumLoc = EnumParIn;	if (EnumLoc == Ident3) return (TRUE);	return (FALSE);}Proc7(IntParI1, IntParI2, IntParOut)OneToFifty	IntParI1;OneToFifty	IntParI2;OneToFifty	*IntParOut;{	REG OneToFifty	IntLoc;	IntLoc = IntParI1 + 2;	*IntParOut = IntParI2 + IntLoc;}Proc4(){	REG boolean	BoolLoc;	BoolLoc = Char1Glob == 'A';	BoolLoc |= BoolGlob;	Char2Glob = 'B';}Proc5(){	Char1Glob = 'A';	BoolGlob = FALSE;}Proc6(EnumParIn, EnumParOut)REG Enumeration	EnumParIn;REG Enumeration	*EnumParOut;{	*EnumParOut = EnumParIn;	if (! Func3(EnumParIn) )		*EnumParOut = Ident4;	switch (EnumParIn)	{	case Ident1:	*EnumParOut = Ident1; break;	case Ident2:	if (IntGlob > 100) *EnumParOut = Ident1;			else *EnumParOut = Ident4;			break;	case Ident3:	*EnumParOut = Ident2; break;	case Ident4:	break;	case Ident5:	*EnumParOut = Ident3;	}}Proc3(PtrParOut)RecordPtr	*PtrParOut;{	if (PtrGlb != NULL)		*PtrParOut = PtrGlb->PtrComp;	else		IntGlob = 100;	Proc7(10, IntGlob, &PtrGlb->IntComp);}Proc1(PtrParIn)REG RecordPtr	PtrParIn;{#define	NextRecord	(*(PtrParIn->PtrComp))	structassign(NextRecord, *PtrGlb);	PtrParIn->IntComp = 5;	NextRecord.IntComp = PtrParIn->IntComp;	NextRecord.PtrComp = PtrParIn->PtrComp;	Proc3(NextRecord.PtrComp);	if (NextRecord.Discr == Ident1)	{		NextRecord.IntComp = 6;		Proc6(PtrParIn->EnumComp, &NextRecord.EnumComp);		NextRecord.PtrComp = PtrGlb->PtrComp;		Proc7(NextRecord.IntComp, 10, &NextRecord.IntComp);	}	else		structassign(*PtrParIn, NextRecord);#undef	NextRecord}Proc2(IntParIO)OneToFifty	*IntParIO;{	REG OneToFifty		IntLoc;	REG Enumeration		EnumLoc;	IntLoc = *IntParIO + 10;	for(;;)	{		if (Char1Glob == 'A')		{			--IntLoc;			*IntParIO = IntLoc - IntGlob;			EnumLoc = Ident1;		}		if (EnumLoc == Ident1)			break;	}}Proc8(Array1Par, Array2Par, IntParI1, IntParI2)Array1Dim	Array1Par;Array2Dim	Array2Par;OneToFifty	IntParI1;OneToFifty	IntParI2;{	REG OneToFifty	IntLoc;	REG OneToFifty	IntIndex;	IntLoc = IntParI1 + 5;	Array1Par[IntLoc] = IntParI2;	Array1Par[IntLoc+1] = Array1Par[IntLoc];	Array1Par[IntLoc+30] = IntLoc;	for (IntIndex = IntLoc; IntIndex <= (IntLoc+1); ++IntIndex)		Array2Par[IntLoc][IntIndex] = IntLoc;	++Array2Par[IntLoc][IntLoc-1];	Array2Par[IntLoc+20][IntLoc] = Array1Par[IntLoc];	IntGlob = 5;}Proc0(){	OneToFifty		IntLoc1;	REG OneToFifty		IntLoc2;	OneToFifty		IntLoc3;	REG unsigned char		CharLoc;	REG unsigned char		CharIndex;	Enumeration	 	EnumLoc;	String30		String1Loc;	String30		String2Loc;	extern unsigned char		*malloc();#ifdef TIME	long			time(long *);	long			starttime;	long			benchtime;	long			nulltime;	register unsigned int	i;	starttime = time( (long *) 0);	for (i = 0; i < LOOPS; ++i);	nulltime = time( (long *) 0) - starttime; /* Computes o'head of loop */#endif#ifdef TIMES	time_t			starttime;	time_t			benchtime;	time_t			nulltime;	struct tms		tms;	register unsigned int	i;	times(&tms); starttime = tms.tms_utime;	for (i = 0; i < LOOPS; ++i);	times(&tms);	nulltime = tms.tms_utime - starttime; /* Computes overhead of looping */#endif	PtrGlbNext = &rec1; /* (RecordPtr) malloc(sizeof(RecordType)); */	PtrGlb     = &rec2; /* (RecordPtr) malloc(sizeof(RecordType)); */	PtrGlb->PtrComp = PtrGlbNext;	PtrGlb->Discr = Ident1;	PtrGlb->EnumComp = Ident3;	PtrGlb->IntComp = 40;	strcpy(PtrGlb->StringComp, "DHRYSTONE PROGRAM, SOME STRING");#ifndef	GOOF	strcpy(String1Loc, "DHRYSTONE PROGRAM, 1'ST STRING");	/*GOOF*/#endif	Array2Glob[8][7] = 10;	/* Was missing in published program *//*****************-- Start Timer --*****************/        printf ("Now running %ld Dhrystones...\n", (long) LOOPS);#ifdef TIME	starttime = time( (long *) 0);#endif#ifdef TIMES	times(&tms); starttime = tms.tms_utime;#endif	for (i = 0; i < LOOPS; ++i)	{		Proc5();		Proc4();		IntLoc1 = 2;		IntLoc2 = 3;		strcpy(String2Loc, "DHRYSTONE PROGRAM, 2'ND STRING");		EnumLoc = Ident2;		BoolGlob = ! Func2(String1Loc, String2Loc);		while (IntLoc1 < IntLoc2)		{			IntLoc3 = 5 * IntLoc1 - IntLoc2;			Proc7(IntLoc1, IntLoc2, &IntLoc3);			++IntLoc1;		}		Proc8(Array1Glob, Array2Glob, IntLoc1, IntLoc3);		Proc1(PtrGlb);		for (CharIndex = 'A'; CharIndex <= Char2Glob; ++CharIndex)			if (EnumLoc == Func1(CharIndex, 'C'))				Proc6(Ident1, &EnumLoc);		IntLoc3 = IntLoc2 * IntLoc1;		IntLoc2 = IntLoc3 / IntLoc1;		IntLoc2 = 7 * (IntLoc3 - IntLoc2) - IntLoc1;		Proc2(&IntLoc1);	}/*****************-- Stop Timer --*****************/#ifdef TIME	benchtime = time( (long *) 0) - starttime - nulltime;	printf("Dhrystone(%s) time for %ld passes = %ld\n",		(char *) Version,		(long) LOOPS, benchtime);	printf("This machine benchmarks at %ld dhrystones/second\n",		((long) LOOPS) * HZ / benchtime);#endif#ifdef TIMES	times(&tms);	benchtime = tms.tms_utime - starttime - nulltime;	printf("Dhrystone(%s) time for %ld passes = %ld\n",		(char *) Version,		(long) LOOPS, benchtime/HZ);	printf("This machine benchmarks at %ld dhrystones/second\n",		(long) ((LOOPS * HZ) / benchtime));#endif#if defined(CPU8051)        while (1);#elif defined(CPU80166)        while (1);#else	exit(0);#endif}#ifdef	NOSTRUCTASSIGNmemcpy(d, s, l)register unsigned char	*d;register unsigned char	*s;register int	l;{	while (l--) *d++ = *s++;}#endifmain(){        long tval;#ifdef CPU8051        initserial ();#endif#ifdef CPU80166        initserial ();#endif        tval=time();        while(time()-tval<HZ/10) ; /* 0,1 s warten */              // Ausgabe der Systemeinstellung; Zur Optimierung mu