.TITLE	ADR (THING,A%)
	.ENABL	LC
	.MCALL	RETURN

; return address of THING in A%

ADR::					;
	MOV	2(R5),@4(R5)			; standard FTN arg block
	RETURN

	.END