(* $Title:'DHRY2.DEF - Dhrystone 1.0 Module 2' *)

DEFINITION MODULE Dhrystone2;

FROM Dhrystone1 IMPORT RecordPointer;

VAR IntGlob: CARDINAL;

PROCEDURE Proc1 (PointerParIn: RecordPointer);
PROCEDURE Proc2 (VAR IntParInOut: CARDINAL);
PROCEDURE Proc3 (VAR PointerParOut: RecordPointer);

PROCEDURE Proc0 (iterations: CARDINAL);
(* Executes 'iterations' loops on Dhrystone pass. *)

END Dhrystone2.
