;
;	AUTHOR:
;		R. STODOLA
;		THE INSTITUTE FOR CANCER RESEARCH
;		7701 BURHOLME AVE.
;		PHILADELPHIA, PA.  19111
;
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
;      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
;      *         NIH CA06927                                 *
;      *         NIH CA22780                                 *
;      *                                                     *
;      *      DIRECT INQUIRIES TO:                           *
;      *            COMPUTER CENTER                          *
;      *            THE INSTITUTE FOR CANCER RESEARCH        *
;      *            7701 BURHOLME AVENUE                     *
;      *            PHILADELPHIA, PENNSYLVANIA   19111       *
;      *                                                     *
;      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
;      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
;      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
;      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
;      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
;      *      OWNED RIGHTS.                                  *
;      *                                                     *
;      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
;      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
;      *      THE USE OF THIS SOFTWARE                       *
;      *                                                     *
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
;      *      PDP-11/70 OPERATING UNDER IAS V2.0 USING       *
;      *      THE IAS PDP-11 MACRO ASSEMBLER.                *
;      *                                                     *
;      *******************************************************
	.TITLE	..CPUM	-- CPU MONITORING PROGRAM
	.IDENT	/ICR001/
	.MCALL	EXIT$,GTIM$,DIR$
;
;	THIS PROGRAM READS OUT THE IDLE REGISTER AND RECORDS THE INFORMATION.
;	IT SHOULD BE SCHEDULED TO RUN EVERY 15 MINUTES.
;
	.PSECT	CPUM1
WD=.
MD=.+2
.=.+4
	.PSECT	CPUM2
LIST=.
.=.+192.
	.PSECT
EX:	EXIT$
GT:	GTIM$	GTBF
GTBF:	.BLKW	8.
;
START:	DIR$	#GT
	MOV	G.TIMI+GTBF,R1
	CLR	R0
	DIV	#15.,R0
	MOV	G.TIHR+GTBF,R1
	ASL	R1
	ASL	R1
	ADD	R0,R1
	ASL	R1
	MOV	WD,R0
	CLR	WD
	CMP	R0,MD
	BMI	10$
	MOV	R0,MD
10$:	MOV	R0,LIST(R1)
	DIR$	#EX
	.END	START