.TITLE	SPYTIM - GET SYSTEM TIMES
;
;	SPY VS02.0 OCTOBER 23, 1979 FOR IAS VERSION 3.0
;
;	AERONAUTICAL RESEARCH ASSOCIATES OF PRINCETON (A.R.A.P.)
;	BOX 2229, PRINCETON, NJ  08540     (609) 452-2950
;
;	AUTHOR:	J.D. LEONARD
;
;
;	CALL SPYTIM (IVEC)
;
;	WHERE -	IVEC IS AN 8 WORD INTEGER ARRAY TO ACCEPT THE
;	FOUR SYSTEM TIMES -
;		.SNTIM	- NULL TIME I*4
;		.SUTIM	- USER TIME I*4
;		.SPTIM	- SWAP TIME I*4
;		.SBTIM	- BATCH TIME I*4
;
SPYTIM::
	CALL	$SAVAL
	MOV	2(R5),R2
;
	MOV	.SNTIM+2,(R2)+
	MOV	.SNTIM,(R2)+
	MOV	.SUTIM+2,(R2)+
	MOV	.SUTIM,(R2)+
	MOV	.SPTIM+2,(R2)+
	MOV	.SPTIM,(R2)+
	MOV	.SBTIM+2,(R2)+
	MOV	.SBTIM,(R2)+
;
	RETURN
	.END