SRDLST.MAC;2/AU:72.=SRDLST.MAC;1
\
-/.IDENT/,.
	.IDENT	-6.2-		; 13-JUL-82
	.ENABL	LC
-/THEN CREATE/
;-
;
;  MODIFICATIONS:
;
;	BT001 - 01-DEC-81
;		IMPLEMENT /ZE SWITCH TO FIND ZERO USED BLOCK FILES;
;		WHEN HEADER ATTRIBUTES SHOW 0 BLOCKS ALLOCATED, CALCULATE VALUE
;		     FROM RETRIEVAL POINTERS, AND INCLUDE IN DIRECTORY TOTAL
;
;	RBD001	13-JUL-82
;		Lower case messages for 'M Version 4.0 fans
;
%
-/QBF1$:/,.,/;RBD001/
QBF1$:	.ASCII	<15><12><11>"Are you sure [Y/N] ? _"<10>  ; GO VERIFICATION MSG
-/CKDATE:/,,/;BT001
-/#<COSW!/,.
	BIT	#<COSW!LOSW!MUSW!ZESW>,SWMS2$	; SELECT CONTIG, LOCKED, MULTI-
;						;   HEADER, OR ZERO-USED-BLOCKS?
-/CKCLM:/
-/BR...CKD1/,.
	BR	CKZE		; PROCEED
-/BEQ...CKD1/,.
	BEQ	CKZE		; PROCEED
-/REJECT:/
CKZE:	BIT	#ZESW,SWMS2$	; ZERO USED BLOCKS FILE SWITCH SET?
	BEQ	CKD1		; NO - PROCEED
	MOV	#HDBUF$+H.UFAT,R1	; USER ATTIBUTES AREA
	TST	F.FFBY(R1)	; FIRST FREE BYTE ZERO?
	BNE	REJECT		; IF NE NO - REJECT FILE
	TST	F.EFBK(R1)	; ANY USED BLOCKS INDICATED (HIGH ORDER)?
	BNE	REJECT		; IF NE YES - REJECT FILE
	MOV	F.EFBK+2(R1),R1	; GET USED BLOCKS (LOW ORDER)
	BEQ	CKD1		; IF EQ - 0 BLOCKS USED
	DEC	R1		; WAS THE VALUE 1?
	BNE	REJECT		; IF NE NO - REJECT FILE
-/5$:/
-/BLO...UNPK0/,.
	BLO	100$		; IF LO NO - IGNORE THIS ONE
-/BNE...UNPK0/,.
	BNE	100$		; IF NE NO - IGNORE THIS ONE
-/SIZECV:/
-/10$:/
-/MOV...<F.HIBK/
	BNE	20$		; IF NE - HIGHEST ALLOCATED NON-ZERO
	CALL	ABCALC		; CALC ALLOC BLKS FROM RETRIEVAL PTRS
20$:
-/RETURN/
;
;ABCALC---CALCULATE ALLOCATED BLOCKS FROM RETRIEVAL POINTERS IN CASE VALUE
;	  STORED IN HEADER IS INCORRECT (E.G. FILE NOT PROPERLY CLOSED)
;	  CALLED ONLY WHEN VALUE IN HEADER IS ZERO.  (EXTENSION HEADERS
;	  ARE IGNORED.)  RETURNS VALUE IN R1; DESTROYS R2.
ABCALC:	CLR	R1		; START WITH 0 BLOCKS
	MOVB	HDBUF$+S.HDHD+S.IDHD+M.USE,R2	; # OF WORDS OF PTRS IN USE
	BEQ	60$		; IF EQ - ALLOCATION IS REALLY 0
	ASR	R2		; CONVERT TO # OF RETRIEVAL PTS IN USE
	BIC	#177600,R2	; CLEAR ANY SIGN EXTENSION FROM MOVB AND ASR
	MOV	R0,-(SP)	; SAVE R0
	MOV	R4,-(SP)	; SAVE R4
	MOV	#HDBUF$+S.HDHD+S.IDHD+M.RTRV,R4	; START OF RETRIEVAL PTRS
20$:	MOV	(R4)+,R0	; GET FIRST RETRIEVAL POINTER WORD
	CLRB	R0		; CLEAR NON-COUNT PORTION
	SWAB	R0		; COUNT - 1
	INC	R0		; COUNT FOR THIS POINTER
	ADD	R0,R1		; ADD THIS TO TOTAL FOR THIS FILE
	TST	(R4)+		; ADVANCE TO NEXT RETRIEVAL POINTER
	SOB	R2,20$		; PROCESS NEXT ONE
	TST	HDBUF$+H.UFAT+F.HIBK+2	; HEADER REPORTS 0 ALLOCATED BLOCKS?
	BNE	50$		; IF NE NO
	ADD	R1,TBLKA+2	; YES - ADD VALUE CALCULATED TO DIRECTORY TOTAL
	ADC	TBLKA
50$:	MOV	(SP)+,R4	; RESTORE R4
	MOV	(SP)+,R0	; RESTORE R0
60$:	RETURN			; AND RETURN
/