**************************************************
  1)  FILES.MAC;1
   27   ;   Version V1.0B  John Miller  Sanders Associates, Inc.  22-Jul-82
***************
  2)  FILES.MAC;12
   27   ;	HWG001 -- PUT IN A CLOSE OUTPUT FILE TO ELIMINATE ANNOYING
   28   ;		  "TERMINATED WITH I/O IN PROGRESS" MESSAGE
   29   ;
   30   ;	FRB001 -- UNDER IAS, NUMBER OF BLOCKS NOT IN CW2 AND CW3, SEARCH
   31   ;		  PUD TO FIND IN PUD EXTENSION
   32   ;
   33   ;   Version V1.0B  John Miller  Sanders Associates, Inc.  22-Jul-82
**************************************************
  1)  FILES.MAC;1
  613   50$:	MOV	CW2,SIZE+0	;RETRIEVE NUMBER OF BLOCKS ON DEVICE		;JBF001
  614           MOV     CW3,SIZE+2      ; DP						;**-1
  615   60$:	BIC	#177400,SIZE	;MASK OUT ANY HIGH BYTE GARBAGE			;JBF003
***************
  2)  FILES.MAC;12
  619   50$:				;DO PUD SEARCH UNDER IAS, SIZE NOT HERE	;FRB001
  620   	MOV	R0,-(SP)	;SAVE REGISTER				;FRB001
  621   	MOV	.PUDBA,R0						;FRB001
  622   554$:	CMP	(R0),ARGBLK	;FOUND SAME DEVICE ?			;FRB001
  623   	BNE	555$		;BR IF NOT				;FRB001
  624   	CMP	2(R0),ARGBLK+2	;CHECK UNIT NUMBER			;FRB001
  625   	BEQ	556$		;FOUND IT				;FRB001
  626   555$:	ADD	#U.SZ,R0	;BUMP TO NEXT UNIT			;FRB001
  627   	CMP	R0,.PUDEA	;END OF PUD				;FRB001
  628   	BLT	554$		;TRY AGAIN IF NOT			;FRB001
  629   	BR	559$		;SKIP IF ERROR				;FRB001
  630   556$:	MOV	U.LBH(R0),SIZE	;FILL IN SIZE				;FRB001
  631   	MOV	U.LBN(R0),SIZE+2;					;FRB001
  632   559$:	MOV	(SP)+,R0	;RESTORE REGISTER			;FRB001
  633   60$:	BIC	#177400,SIZE	;MASK OUT ANY HIGH BYTE GARBAGE			;JBF003
**************************************************
  1)  FILES.MAC;1
 1067   EXIT:   EXIT$S                  ;EXIT THE PROGRAM
 1068           .PAGE
***************
  2)  FILES.MAC;12
 1085   EXIT:	CLOSE$	#OUTFDB,FCSERR	;CLOSE THE FILE BEFORE LEAVING		;HWG001
 1086   	CLOSE$	#INFDB,FCSERR						;HWG001
 1087   	EXIT$S			;EXIT THE PROGRAM			;HWG001
 1088           .PAGE
FILES.DIF=FILES.MAC;1,FILES.MAC;12