.TITLE	IADDR
; I=IADDR(X) RETURNS ADDRESS OF X IN FORTRAN
IADDR::
	MOV	2(R5),R0	;FCN RETURNS IN R0
	RTS	PC		;FORTRAN PASSES US ADDRESS. JUST RETURN IT
	.END