(****************************************
*                                       *
*     MODULA-2 Multi-Pass Compiler      *
*     ****************************      *
*                                       *
*       VAX/VMS Implementation          *
*                                       *
*                                       *
*     MVCMonitor:                       *
*                                       * 
*     Performance Mesurement            *
*                                       * 
*     Version 3.1 of  1-FEB-1983        *
*                                       *
*                                       *
*                                       *
*     Based on PDP11 Implementation:    *
*     Version M22 of 26.02.81           *
*                                       *
*     Institut fuer Informatik          *
*     ETH-Zuerich                       *
*     CH-8092 Zuerich                   *
*                                       *
****************************************)

(****************************************
* Updates: see implementation module    *
****************************************)

DEFINITION MODULE MVCMonitor; (* HE *)

EXPORT QUALIFIED
  (* VAR  *)	MonitEntries,
  (* PROC *)	StartMonitor, StopMonitorValues, GetMonitorValues;

VAR
	MonitEntries :	CARDINAL;

PROCEDURE StartMonitor;

PROCEDURE StopMonitorValues (   header :	ARRAY OF CHAR );

PROCEDURE GetMonitorValues (VAR header : ARRAY OF CHAR;
			    VAR cpu :	 CARDINAL;
			    VAR bufIO :	 CARDINAL;
			    VAR dirIO :	 CARDINAL;
			    VAR pagflt : CARDINAL );

END MVCMonitor.
