.TITLE	GETTIM
	.IDENT	/V01/
	.SBTTL	DESCRIPTION
;
;
;  COMPONENT:	GETTIM
;
;  DATE:	10-MAY-79
;
;  AUTHOR:	GR JOHNSON
;		BATTELLE NORTHWEST
;		P O BOX 999
;		RICHLAND WA 99352
;
;  SOURCE:	MACRO-11
;
;  CALLER:	FORTRAN IV-PLUS
;
;  CALLING SEQUENCE:
;
;		CALL GETTIM(TIMBUF)
;
;		TIMBUF	= 8-WORD INTEGER ARRAY TO RECEIVE TIME AND
;			  DATE PARAMETERS.
;
;			  TIMBUF(1) = YEAR
;			  TIMBUF(2) = MONTH
;			  TIMBUF(3) = DAY
;			  TIMBUF(4) = HOUR
;			  TIMBUF(5) = MINUTE
;			  TIMBUF(6) = SECOND
;			  TIMBUF(7) = CLOCK TICKS
;			  TIMBUF(8) = TICKS PER SECOND
;
;
;  DESCRIPTION:
;
;	"GETTIM" READS THE SYSTEM CLOCK/CALENDAR AND RETURNS AN 8-WORD
;  INTEGER ARRAY CONTAINING THE DATE AND TIME PARAMETERS LISTED ABOVE.
;
;

	.SBTTL	ENTRY POINT -- FETCH SYSTEM DATE/TIME
;
;
					;
	.PSECT				;
	.MCALL	GTIM$S			;
					;
GETTIM::				;
					;
	MOV	2(R5),R5		; ADDRESS OF TIMBUF TO R5
	GTIM$S	R5			; FETCH SYSTEM DATE/TIME
	RTS	PC			; RETURN TO CALLER
	.END				;