.MACRO	FRENOD R
	MOV	NODFRE,(R)	;LINK TO FREE LIST
	MOV	R,NODFRE	;AND UPDATE FREE LIST POINTER
	.ENDM