.MACRO	GETNOD R,?L1,?L2
	.MCALL	CALL
	MOV	NODFRE,R	;GET FREE NODE
	BNE	L1		;STILL SOME LEFT
	JMP	LOCKED		;NONE LEFT
L1:	MOV	(R),NODFRE	;UPDATE FREE POINTER
	BNE	L2		;STILL SOME LEFT
	CALL	CHKFRE		;DISABLE AST'S FOR A WHILE
L2:	
	.ENDM