.TITLE	IGETAD
;
;	MODULE NAME	IGETAD
;
;	AUTHOR		T.KEMPSELL
;
;	DATE		7-OCT-76
;
;	MODULE FUNCTION
;
;		RETURN THE ADDRES OF VARIABLE
;
;		THIS IS A FUNCTION (RE-ENTRANT)
;
;	CALLING SEQUENCE
;
;		I=IGETAD(IVAR)
;
;		IVAR=	THE VARIABLE WHOS ADDRESS IS REQUIRED
;
IGETAD::MOV	2(R5),R0		;MOVE ADDRESS OF PARAMETER TO R0
	RTS	PC
	.END