*** ltodp.s
* 	Long Integer to DoublePrecision
*	for Alcyon C
*
*	double ltodp(l)
*	long l;
*
*	Copyright Atari Corp. 1987,1988
*
*	MDJohnson       2/15/88
***

	.include fpmacro

; ltodp(x)
	fpinit	ltodp
	fpidle				; wait for idle state
	move.w	#$4000,FPCMD		; x -> fp0
	ckcir	#$9504			; ready for long
	move.l	4(sp),FPOP		; write first op

	fpidle				; wait for idle state
	move.w	#$7400,FPCMD		; fp0 -> double
	ckcir	#$B208			; ready for double
	move.l	FPOP,d0			; get double
	move.l	FPOP,d1
	rts