.TITLE	INDPUT
;
;	MODULE NAME	INDPUT
;
;	AUTHOR T. KEMPSELL
;
;	DATE	7-OCT-76
;
;	MODULE FUNCTION
;
;	STORE IVAR IN THE ADDRESS CONTAINED IN IPAR
;	*NOTE DUMMY LEFT HAND SIDE
;	THIS IS A FUNCTION RE-ENTRANT
;
;	CALLING SEQUENCE
;
;	IDUM=INDPUT(IPAR,IVAR)
;
;		IPAR=	VARIABLE CONTAINING ADDRESS
;		IVAR=	VARIABLE TO PUT IN THE ADDRESS SPECIFIED BY IPAR
;
INDPUT::MOV	@2(R5),-(SP)		;ADDRESS OF VARIABLE TO STACK
	MOV	@4(R5),@(SP)+		;IVAR TO THAT ADDRESS
	RTS	PC			;RETURN
	.END