C
C
C	V A F I L E . C O M
C	-------------------
C
C  COMPONENT:	VOLUME ALLOCATION FILE DEFINITION AND COMMON
C
C  DATE:	20-NOV-79
C
C
C
	PARAMETER	VAF = .TRUE.	! VAF PROCESSING ENABLED
C**	PARAMETER	VAF = .FALSE.	! VAF PROCESSING DISABLED
C
C
	PARAMETER	VAFFIL = '[0,0]VAFILE.SYS'	! VAF FILSPEC
C
C
	BYTE	  VAFDEV(2)		! VAF DEVICE NAME
	INTEGER	  VAFUNT		! VAF DEVICE UNIT
C
	BYTE	  VAFUFD(10)		! VAF USER DIRECTORY (ASCII)
C
C
	BYTE	  VAFDEF(8)		! VAF DEFAULT RECORD BUFFER
	INTEGER	  VAFFAR		! VAF NO. OF 1ST ALLOCATION RECORD
	INTEGER	  VAFLAR		! VAF NO. OF LAST ALLOCATION RECORD
	INTEGER*4 DEFLIM		! VAF DEFAULT VOLUME ALLOCATION
C
	EQUIVALENCE (VAFFAR,VAFDEF(1))
	EQUIVALENCE (VAFLAR,VAFDEF(3))
	EQUIVALENCE (DEFLIM,VAFDEF(5))
C
C
	BYTE	  VAFREC(8)		! VAF RECORD BUFFER
	INTEGER	  VAFISW		! VAF ENTRY STATUS WORD
C
		  PARAMETER VAFUNL = 0	! DIRECTORY UNLOCKED
		  PARAMETER VAFLOK = 1	! DIRECTORY LOCKED
C
	INTEGER	  VAFUIC		! VAF ENTRY USER-ID
	INTEGER*4 VAFLIM		! VAF ENTRY ALLOCATION LIMIT
C
	EQUIVALENCE (VAFISW,VAFREC(1))
	EQUIVALENCE (VAFUIC,VAFREC(3))
	EQUIVALENCE (VAFLIM,VAFREC(5))
C
C
	INTEGER	  VAFPNT		! VAF RECORD POINTER
	INTEGER	  VAFNAR		! VAF "NEXT-AVAILABLE-RECORD" POINTER
C
C
	COMMON /VAFILE/ VAFDEV,VAFUNT,
	2		VAFUFD,
	3		VAFDEF,
	4		VAFREC,
	5		VAFPNT,VAFNAR
C
C