.SBTTL	HEADER REPORTING
	.TITLE RPU8A
	.IDENT	/V004A/                                                         ;**NEW**
;                                                                               ;**-1
;
;
;
;
;
;    COPYRIGHT (C) 1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASSACHUSETTS 01754.
;
;
;    THE SOFTWARE DESCRIBED IN THIS DOCUMENT, INCLUDING BUT NOT LIMITED TO, IN-
;    STRUCTION EXECUTION TIMES AND OPERATING SPEEDS IS FOR INFORMATION PURPOSES
;    ONLY.   ALL  SUCH  MATERIAL  IS  SUBJECT   TO   CHANGE   WITHOUT   NOTICE.
;    CONSEQUENTLY  DIGITAL MAKES NO CLAIM AND SHALL NOT BE LIABLE FOR ITS ACCU-
;    RACY.
;
;    THE SOFTWARE DESCRIBED IS FURNISHED TO THE PURCHASER UNDER A  LICENSE  FOR
;    USE  ON  A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH THE INCLUSION OF
;    DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH  SYSTEM,  EXCEPT  AS  MAY
;    OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
;
;    DIGITAL ASSUMES NO RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS
;    SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;
;
;    UNLESS SPECIFIED OTHERWISE, THE TERMS "RSX" AND "RSX-11"  IN THIS DOCUMENT
;    IMPLY "RSX-11D".
;
;
;
;
;	VERSION:	VOO3E
;	AUTHOR:		R. KLEINMAN
;	DATE:		5 FEB 74
;
;                                                                               ;**NEW**
;	VERSION		V004A                                                   ;**NEW**
;	MODIFIED BY:	RODGER S. MILES                                         ;**NEW**
;	DATE:		21-AUG-74                                               ;**NEW**
;                                                                               ;**NEW**
;	"FROM" AND "TO" OUTPUT LINES CORRECTED!                                 ;**NEW**
;                                                                               ;**NEW**
;                                                                               ;**NEW**
;
;   THIS MODULE CONTAINS
;	1-- CODE FOR EVALUATE
;
;
	.PAGE
;
.MCALL	CALL
.MCALL	RETURN
;
	M.KTMG=4		;MARK TIME UNITS PARAMETER OFFSET
;+
;THIS SECTION IS CONCERNED WITH OUTPUTING THE INITIAL INFORMATION OF
;THE EVALUATION REPORT.  IT IS CALLED FROM RPU8M
;THE TOTAL TASKS INVOLVED + OVERLAY STRUCTURE IS:
;
;[EVALU8-(AST8,RPU8M-(RPU8A,RPU8B,RPU8C))]
;-
RPA::
	MOV	#TA1P,R5
	CALL	WLINE		;WRITE HEADER
	CALL	WLINE		;WRITE "START TIME"
				;CALCULATE START TIME
	MOV	#BFTIM1,R4	;GET THE BUFFER - WRITE IT
	CALL	WTIME
	CALL	WLINE		;WRITE "END TIME"
				;CALCULATE END TIME
	MOV	#BFTIM2,R4	;GET TIME BUFFER-WRITE IT
	CALL	WTIME
	CALL	WLINE		;WRITE "TOTAL # SNAPSHOTS"
	MOV	TTIME,R4	;CONVERT # TO DECIMAL, OUTPUT IT
	CALL	DECCN		;[USE TG1 BUFFER]
	CALL	WLINE
	MOV	#TA6P,R5
	CALL	WLINE		;WRITE "TIME IN TICS FOR SNAPSHOT"
	MOV	DPASTM+M.KTMG,R4;CONVERT TO DECIMAL, OUTPUT IT
	CALL	DECCN
	CALL	WLINE
	RETURN			;EXIT PART A
	.PAGE
	.SBTTL	TEST BUFFERS
;+
;TEXT BUFFERS FOR SECTION A
;-
TA1:	.ASCII	/SYSTEM RESOURCE REPORT/
	.BYTE	12,12
TA2:	.BYTE	40,40,40,40
	.ASCII	/FROM/
	.BYTE	40
TA3:	.EVEN                                                                   ;**NEW**
				;                                               ;**-2
TA4:	.BYTE	40,40,40,40
	.ASCII	/TO/
	.BYTE	40,40,40
TA5:	.ASCII	/TOTAL NUMBER OF SNAPSHOTS=/
TA6:	.ASCII	/TIME IN TICS BETWEEN EACH SNAPSHOT=/
TA7:	.EVEN
;OUTPUT CONTROL FOR SECTION A
;-
TA1P:	.WORD	TA1,TA2-TA1,CTFC
TA2P:	.WORD	TA2,TA3-TA2,CTL
TA4P:	.WORD	TA4,TA5-TA4,CTL
TA5P:	.WORD	TA5,TA6-TA5,CTL
TA6P:	.WORD	TA6,TA7-TA6,CTL
	.END                                                                    ;**-1
	.PAGE