.MACRO	FREPAC R
	MOV	(R),-(SP)	;SAVE LINK
	MOV	PACFRE,(R)	;AND POINT TO FREE LIST
	MOV	R,PACFRE	;UPDATE FREE LIST POINTER
	MOV	(SP)+,R		;AND RETURN NEXT IN LINK
	.ENDM