.TITLE	INDGET
;
;	MODULE NAME INDGET
;
;	AUTHOR	T.KEMPSELL
;
;	DATE	7-OCT-76
;
;	MODULE FUNCTION
;
;		GET THE VARIABLE WHOS ADDRESS IS IN IPAR
;		THIS IS A RE-ENTRANT FUNCTION
;
;	CALLING SEQUENCE
;
;		I=INDGET(IPAR)
;		
;		IPAR=	CONTAINS THE ADDRESS OF THE VARIABLE
;
INDGET::MOV	@2(R5),-(SP)		;MOVE ADDRES OF VARIABLE TO STACK
	MOV	@(SP)+,R0		;CONTENTS OF THIS ADDRESS TO R0
	RTS	PC			;RETURN
	.END