C	PROGRAM DATE.FT
C	---------------
C
C
C
	SUBROUTINE DATE(IMO,IDAY,IYR)
C
C
C
C	DATE - AN OS/8 FORTRAN II SUBROUTINE TO ACCESS THE DATE.
C	--------------------------------------------------------
C
C
C
C
C
C	PETER LEMKIN
C	NATIONAL INSTITUTES OF HEALTH
C	BETHESDA, MD  20014
C
C	NOV 8, 1971
C	REVISED DECEMBER 5, 1972
C
C
C	ABSTRACT
C	-------
C	"DATE" RETURNS THE  OS/8 DATE WORD IN INTEGER FORMAT.
C	THE ALGORITHM FOR THIS FORTRAN CALLABLE SUBROUTINE WAS BORROWED
C	FROM THE PS/8 SYSTEM SUPPORT MANUAL.
C	**PAGE
C
C
C	ARGUMENTS
C	----------
C	1. IMO -  THE MONTH AS AN INTEGER 0 TO  12 DECIMAL
C	2. IDAY - THE DAY AS AN INTEGER FROM 0 TO 31 DECIMAL
C	3. IYR -  THE YEAR AS AN INTEGER 0 TO  9.
C
C
C
C
C
S	DUMMY DA
S	TAD  I  DA
S	DCA TEMP
S	TAD TEMP
S	AND (7
S	DCA I	\IYR
S	TAD TEMP
S	RAR;RTR
S	AND (37
S	DCA I \IDAY
S	TAD  TEMP
S	CLL RAL;RTL;RTL
S	AND (17
S	DCA I \IMO
	RETURN
S	CPAGE 2
SDA,	6211
S	7666
STEMP,	0
	END