.TITLE FREE ; JEFFREY KODOSKY ARL NOV75 ; ; SUBR ; ENTRY: NO ARGS ; EXIT: 1 ARG ; 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