.TITLE HOLE
	.IDENT /V1.0/
;
;	ROBERT WATSON
;	CISCO, INC.
;	(918)665-2110
;	4135 S. 100TH E. AVE.
;	TULSA OK 74145
;
;	THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN
;	AND IS NOT TO BE COPYRIGHTED.
;
	.MCALL   .INH0,.ENB0
	.PSECT	HOLE
HOLE::				;FORTRAN ENTRY POINT
	CLR	R3		;CLEAR 'LARGEST HOLE' COUNT
	CLR	R2		;CLEAR TOTAL SIZE ACCUMULATOR
	.INH0			;INHIBIT TASK SWITCHING
	MOV	.POLLH,R4	;;GET POOL LIST HEAD
5$:	
	ADD	2(R4),R2	;;ADD IN NEW SIZE
	CMP	2(R4),R3	;;IS THIS THE LARGEST HOLE SO FAR
	BLOS	10$		;;BR IF NO
	MOV	2(R4),R3	;;GET NEW SIZE
10$:	
	TST	(R4)		;;DONE
	BEQ	DONE		;;BR IF YES
	MOV	@R4,R4		;;NEXT HOLE
	BR	5$
DONE:
	.ENB0			;;ENABLE TASK SWITCHING.
	MOV	R2,@2(R5)	;STORE THE SIZE	
	MOV	R3,@4(R5)	;AND THE MAX. HOLE.
	RTS	PC
	.END