/ROUTINE TO UNPACK DATE WORD
/DATE WORD MUST BE # OF DAYS
/FROM 1/1/74
DATER,	0
	DCA	DATDAY		/SAVE DATE WORD
	TAD	DAT112
	DCA	DATYR
/CALCULATE # OF YEARS
DATE1,	TAD	DATDAY
	SMA CLA
	JMP	DATE2
	ISZ	DATYR
	TAD	DAT564
	TAD	DATDAY
	DCA	DATDAY
	JMP	DATE1
/NOW CALCULATE DAY OF MONTH
DATE2,	DCA	DATMON
	TAD	DATDAY
	TAD	DAT37
	SPA
	JMP	.+4
	ISZ	DATMON
	DCA	DATDAY
	JMP	DATE2+1
	CLA
	ISZ	DATDAY
/NOW HAVE DAY OF MONTH IN DATDAY
DATE3,	TAD	DATMON
	TAD	DAT14
	SPA
	JMP	.+4
	ISZ	DATYR
	DCA	DATMON
	JMP	DATE3
	CLA
/NOW HAVE DAY IN DATDAY
/YEAR IN DATYR
/AND MONTH IN DATMON
	JMP I	DATER

DATDAY,	0	/DAY
DATMON,	0	/MONTH
DATYR,	0	/YEAR
DAT564,	-564	/-372 DECIMAL
DAT14,	-14	/-12 DECIMAL
DAT37,	-37	/-31 DECIMAL
DAT112,	112	/74 DECIMAL