.TITLE	WORDTO (ADR%,CONTENTS%)
	.ENABL	LC

; set 1st word of what is at address ADR% to CONTENTS%

WORDTO::					;
	MOV	@2(R5),-(SP)			; (TOP) = ADR%
	MOV	@4(R5),@(SP)+			; (ADR%) = CONTENTS%
	RETURN

	.END