.Title	Lib_Day_To_Time
	.Psect	Lib_Day_To_Time,exe,nowrt,rd,long

;
;
;	4(ap)	-	day-number 	number of days - longword
;	8(ap)	-	time		output time    - quadword
;	12(ap)	-	day-time	daytime in 10 mill units - longword
;
;

day_number	=	4
time		=	8
day_time	=	12

	.Entry	Lib_Day_To_Time,^M<iv>
	moval	@time(ap),r1
	mull3	#864,@day_number(ap),r0		; convert days to 100 nano's
	emul	#1000000000,r0,#0,(r1)		;
	cmpb	(ap),#<day_time/4>		; see if day-time specified
	blss	exit				; if lss, no
	tstl	day_time(ap)			; Omitted by ref
	beql	exit				; if eql, yes
	subl	#8,sp				; make room for result
	emul	#100000,@day_time(ap),#0,(sp)	; convert 10 mills to
						; 100 nano's
	addl	(sp),(r1)			; add days and day-time
	adwc	4(sp),4(r1)			; 

exit:
	movl	#1,r0				; success
	ret
	.end