.TITLE	JICVT
	.IDENT	/V1.01/
	.PSECT	CODE,RO
	.NLIST	SYM,TOC
 
; SINGLE TO DOUBLE-PRECISION INTEGER
;
; 'PROCEDURE' JICVT(J,I);
;
; J:=I, SIGN EXTENDED TO 32 BITS
 
G1578::	MOV	%2,2(%1)	; LO IS I
	SXT	@%1		; SIGN EXTEND IN J HI
	ADD	#2,@SP		; STANDARD EXIT
	RTS	PC
 
	.END