UPDATE.MAC;2/AU/-BF=UPDATE.VGN;1
\
-2,2
	.IDENT/V01.1X/
-12
; 30-SEP-78	RJDK	CORRECTED FOR BIGER DISKS WITH LARGER BITMAPS
;			THAN RK05'S. CORRECTED FOR FAILURE WHEN MORE
;			THAN 63. MAPPING  POINTERS USED IN MAP REGION
;			AND FOR MULTIPLE HEADERS(PREV LATER THAN FIRST
;			WERE IGNORED).
;
;
;
%
-210,,/; RJDK/
INXFHD:	.WORD	0			; POINTER TO START OF FILE HEADERS
-373,,/; RJDK/
	MOV	R0,INXFHD		; SAVE START OF FILES FOR LATER
-432,,/; RJDK/
100$:					; REF LABEL FOR MULTIHEADER SUPPORT
-442,442,/; RJDK/
	CLR	R1			;
	BISB	M.USE(R0),R1		; GET #WORDS OF RETRIEVAL PTRS
-451,,/; RJDK/
	MOV	#WRKBU,R0		; TEDIOUSLY GET WORD WHICH MAY CONTAIN
	MOVB	1(R0),R1		; FID FOR CONTINUATION HEADER
	ASL	R1			;
	ADD	R1,R0			;
	MOV	M.EFNU(R0),R1		; AT LAST
	BEQ	20$			; ZERO AT END SO DONE
	DEC	R1			; COMPENSATE FOR POINTER BEING TO 1:1
	ADD	INXFHD,R1		; AND MAKE CORRECT BLOCK #
	MOV	R1,<FDB2+F.BKVB+2>		;
	BR	100$			; AND DO NEXT HEADER
-468,468,/; RJDK/
;	ADD	#3,R2			; BUF FIRST OFFSET IT BY 3(WHY I DON'T KNOW)
	ADD	INXFHD,R2		;
	DEC	R2			; POINT TO FILE HEADER OFFSET FROM FID1:1
/