.TITLE	FREE		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	NO ARGS
; EXIT:		1 ARG		<INT>
; ERRORS:	NONE
; CALLS:	LENGTH
; R2,R3 PRESERVED
	.GLOBL	FREE,ZFREE,QLENGTH,FLIST
FREE:	MOV	FLIST,-(R5)	;RETURN LENGTH OF FREE CELL LIST
	QLENGTH
	.WORD	0
ZFREE=.-FREE
	.END