/016 PRINT THE PS8-OS8 DATE
/THE DATE IS PRINTED AS: 07/17/72
/THE ROUTINE MAKES USE OF PRNT2, TO TYPE TWO
/DECIMALS. REQUIRES ROUTINES PRNT2 AND PRINT.
/DATE IN OS8 IS STORED IN LOC 7666, FIELD 1:
/
/7666  MMMDDDDDYYY /M=MONTH,D=DAY,Y=YEAR
/
/	JMS DATE
/	RETURN		/AC=0

DATM,	7		/MASKS
	17
	37
	257		/SLASH
	106		/70 YEARS
	0		/STORAGE
	7666		/DATE LOC. IN OS8
DATE,	0
	CDF 10		/PICK TH E DATE
	TAD I DATE-1
	CDF 0
	DCA DATE-2
	TAD DATE-2
	CL RTL		/SHIFT MONTH OUT
	RTL
	RAL
	AND DATM+1	/AND (17
	JMS PRNT2
	TAD DATE-4	/PRINT SLASH
	JMS PRINT
	TAD DATE-2
	RTR		/SHIFT MONTH OUT AND PRINT
	RAR
	AND DATM+2
	JMS PRNT2
	TAD DATE-4	/SLASH
	JMS PRINT
	TAD DATE-2	/NOW THE YEAR
	AND DATM
	TAD DATE-3	/+70
	JMS PRNT2
	JMP I DATE