.TITLE	WORDAT (ADR%,CONTENTS%)
	.ENABL	LC
	.MCALL	RETURN

; return 1st word of what is at address ADR% in CONTENTS%

WORDAT::					;
	MOV	@2(R5),-(SP)			; ((SP)) = [ADR%]
	MOV	@(SP)+,@4(R5)			; CONTENTS% = ADR%
	RETURN

	.END