.TITLE	JFLOAT
	.IDENT	/V1.01/
	.PSECT	CODE,RO
	.NLIST	SYM,TOC
 
; DOUBLE-PRECISION INTEGER TO FLOATING
;
; 'FLOATING''PROCEDURE' JFLOAT(J);
 
F0=%0
 
G1598::	SETL			; SET FPU TO LONG INTEGER MODE
	LDCLF	@%1,F0		; LOAD F0
	SETI			; SET STANDARD MODE AGAIN
	ADD	#2,@SP		; STANDARD EXIT
	RTS	PC
 
	.END