.MACRO	GETPAC R,?L1,?L2
	.MCALL	CALL
	MOV	PACFRE,R	;GET FREE PACKET
	BNE	L1		;STILL SOME FREE
	JMP	LOCKED		;NONE FREE
L1:	MOV	(R),PACFRE	;UPDATE FREE POINTER
	BNE	L2		;STILL MORE FREE
	CALL	CHKFRE		;DISABLE AST'S FOR A WHILE
L2:	CLR	(R)		;CLEAR OUT LINK
	.ENDM