DECIMAL		/ SET RADIX DECIMAL
DC1970,	1970			/ 1970 DECIMAL
		OCTAL		/ SET RADIX OCTAL
DATE,	.-.			/ PRINT DATE
	CDF	10		/ DATA FIELD 1
	TAD I	(7666		/ GET DATA
	AND	(7400		/ AND THE MONTH
	CLL RTR			/ MOVE TO THE RIGHT
	BSW			/ DIVIDE BY 1000
	DCA	MONTH		/ SAVE THE MONTH
	TAD I	(7666		/ GET SYSTEM DATE AGAIN
	AND	(370		/ MASK AWAY THE DAY
	CLL RTR			/ DIVIDE BY TEN
	RAR			/
	DCA	DAY		/ SAVE THE DAY
	TAD I	(7666		/ GET SYSTEM DATE
	AND	(7		/ MASK 1# PART OF YEAR
	DCA	YEAR		/ SAVE IT TEMPORARLY
	CDF	00		/ DATA FIELD 0
	TAD I	(7777		/ GET 2# PART OF THE YEAR
	AND	(600		/ MASK AWAY SYSTEM FIELDS
	CLL RTR			/ DIVIDE BY 20
	RTR			/
	TAD	YEAR		/ NOW COMPLETE THE YEAR
	TAD	DC1970		/ ADD 1970 DECIMAL TO IT
	DCA	YEAR		/ SAVE END RESULT
	TAD	DAY		/ PRINT DAY
	HLT			/ PRINT DAY (USE DECDIS ROUTINE)
	TAD	("-		/ PRINT HYPHEN
	HLT			/ (USE PROPER OUTPUT ROUTINE)
	TAD	(DATAB		/ GET THE DATE TABLE
	DCA	DAY		/ SAVE DATE TABLE
DATENTH
	TAD I	DAY		/ COMPA	JMP	DATE1		/ YES
	ISZ			/ 
	ISZ	DAY		/
	JMP	
DATE1,	ISZ	DAY		/ POINTER TO MONTH
	HLT			/ (SET CRLFS FOR NO CR/LF)
	TAD	DAY		/ GET MONTH
	DCA	.+2		/ PRINT SIX BIT
	HLT			/ (USE TEKST ROUTINE)
	.-.			/ POINTS TO THE MONTH NAME
DATE2,	TAD	("-		/ PRINT HYPHEOUTPUT ROUTINE)
	TAD	YELT			/ DISPLAY IN DECIMAATE		/ RETURN
DAY,	.-.	MONTH
YEAR,	.-.			/ YEAR

DATAB,	-1;	TEXT -JAN-	/
	-2;	TEXT -FEB-	/
	-3;	TEXT -MAR-	/
	-4;	TEXT -APR-	/
	-5;	TEXT -MAY-	/
	-6;	TEXT -JUN-	/
	-7;	TEXT -JUL-	/
	-10;	TEXT -AUG-	/
	-11;	TEXT -SEP-	/
	-12;	TEXT -OCT-	/
	-13;	TEXT -NOV-	/
	-14;	TEXT -DEC-	/

	PAGE