.TITLE	IGETAD
	.IDENT	/V1.01/
	.NLIST	TOC,SYM
;+
;	MODULE NAME	IGETAD
;
;	AUTHOR		T.KEMPSELL
;
;	DATE		7-OCT-76
;
;	MODULE FUNCTION
;
;		RETURN THE ADDRESS OF VARIABLE
;
;		THIS IS A FUNCTION (RE-ENTRANT)
;
;	CALLING SEQUENCE
;
;		I=IGETAD(IVAR)
;  OR		I-IADDR(IVAR)		! FOR RT-11 COMPATIBILITY
;
;		IVAR=	THE VARIABLE WHOS ADDRESS IS REQUIRED
;+
	.PSECT	$CODE1,I

IADDR::
IGETAD::MOV	2(R5),R0		;MOVE ADDRESS OF PARAMETER TO R0
	RTS	PC

	.END