.TITLE	JFIX
	.IDENT	/V1.01/
	.PSECT	CODE,RO
	.NLIST	SYM,TOC
 
; FLOATING-POINT TO DOUBLE-PRECISION INTEGER
;
; 'PROCEDURE' JFIX(J,F);
 
F0=%0
 
G1580::	SETL			; SET LONG INTEGER MODE
	STCFL	F0,@%1		; STORE INTEGER
	SETI			; SET SINGLE-PRECISION AGAIN
	CFCC			; TEST FOR OVERFLOW ON STORE
	BVC	100$		; EXIT IF OK
	MOV	#790.,FLOERR	; SET UP FLOERRORCODE
				; (DEC V WAS DONE BY F.P.U.)
 
100$:	ADD	#2,@SP		; STANDARD EXIT
	RTS	PC
 
	.PSECT	GLOBAL,OVR,GBL,RW
 
G=.
 
V=G+300.
FLOERR=G+302.
 
	.END