.TITLE	DATE
/
/  30 MAR 77 (001; PDH) INITIAL CREATION
/
/  THIS HAS THE SAME INVOCATION AS THE DESCRIPTION IN THE XVM/RSX MANUAL.
/
	.GLOBL	DATE,.ARG
/
DATE	XX
	JMS*	.ARG		/ THIS SHOULD BE CHANGED TO '.PULL.'
	JMP	.+2		/ AND VERIFY THAT WE HAVE AT LEAST
				/ 6 ELEMENTS OF ARRAY TO RETURN INTO.
ARRAY
	CAL	DATCPB		/ GET DATE AND TIME FROM SYSTEM
	LAC	(6
	PAL
	CLX
LOOP	LAC	MONTH,X
	DAC*	ARRAY,X		/ PASS IT TO CALLER
	AXS	1
	JMP	LOOP
	JMP*	DATE
/
DATCPB	24; 0
MONTH	.BLOCK	6
	.END