-26
;	HWG001 -- PUT IN A CLOSE OUTPUT FILE TO ELIMINATE ANNOYING
;		  "TERMINATED WITH I/O IN PROGRESS" MESSAGE
;
;	FRB001 -- UNDER IAS, NUMBER OF BLOCKS NOT IN CW2 AND CW3, SEARCH
;		  PUD TO FIND IN PUD EXTENSION
;
-613,617
50$:				;DO PUD SEARCH UNDER IAS, SIZE NOT HERE	;FRB001
	MOV	R0,-(SP)	;SAVE REGISTER				;FRB001
	MOV	.PUDBA,R0						;FRB001
554$:	CMP	(R0),ARGBLK	;FOUND SAME DEVICE ?			;FRB001
	BNE	555$		;BR IF NOT				;FRB001
	CMP	2(R0),ARGBLK+2	;CHECK UNIT NUMBER			;FRB001
	BEQ	556$		;FOUND IT				;FRB001
555$:	ADD	#U.SZ,R0	;BUMP TO NEXT UNIT			;FRB001
	CMP	R0,.PUDEA	;END OF PUD				;FRB001
	BLT	554$		;TRY AGAIN IF NOT			;FRB001
	BR	559$		;SKIP IF ERROR				;FRB001
556$:	MOV	U.LBH(R0),SIZE	;FILL IN SIZE				;FRB001
	MOV	U.LBN(R0),SIZE+2;					;FRB001
559$:	MOV	(SP)+,R0	;RESTORE REGISTER			;FRB001
-1067,1067
EXIT:	CLOSE$	#OUTFDB,FCSERR	;CLOSE THE FILE BEFORE LEAVING		;HWG001
	CLOSE$	#INFDB,FCSERR						;HWG001
	EXIT$S			;EXIT THE PROGRAM			;HWG001
/