.TITLE	.D$TIM
	.SBTTL	.D$TIM - OUTPUT DATE & TIME
	.MCALL	GTIM$S,ENTER,LEAVE
;
;+
; .D$TIM - SUPPLIES THE DATE AND TIME IN AN ASCII
;		STRING.
;
; INPUTS:  R0 = ADDRESS OF BUFFER TO HOLD THE STRING.
;
; OUTPUTS: R0 = UPDATED ADDRESS
;	    R1 = LENGHTH OF HE STRING
;
;-
CR=15
LF=12
;
;
; THE TIME CODE TM.COD DETERMINES THE TIME LENGTH.
;
TM.COD=4
;
.D$TIM::MOV	R0,-(SP)	;SAVE #POINTER
	ENTER	R2
;
; NOW PUT THE TIME AND DATE INTO THE FILE
;
	GTIM$S	#TIME		;GET TIME INFO
	MOVB	#CR,(R0)+	;SPACE ENTRIES.
	MOVB	#LF,(R0)+
	MOV	#TIME,R1	;START WITH DATE
	CALL	$DAT		;AND CONVERT
	MOVB	#40,(R0)+	;SPACE THINGS
	MOV	#TM.COD,R2	;TIME LENGTH CODE
	CALL	$TIM		;CONVERT TIME
	LEAVE
	MOV	R0,R1
	SUB	(SP)+,R1	;GET THE LENGTH
	RETURN
;
TIME:	.BLKW	8.
	.END