C
C
C	V A F I L E . C O M
C	===================
C
C
C  COMPONENT:	VOLUME ALLOCATION FILE DEFINITION AND COMMON
C  ---------
C
C  DATE:	27-FEB-80
C  ----
C
C  AUTHOR:	GR JOHNSON
C  ------	BATTELLE NORTHWEST
C		P O BOX 999
C		RICHLAND WA 99352
C
C  SOURCE:	FORTRAN IV-PLUS
C  ------
C
C
C  OPEN PARAMETERS:
C  ---------------
C
C	NAME		=	VAFFNM
C	ACCESS		=	'DIRECT'
C	FORM		=	'UNFORMATTED'
C	RECORDSIZE	=	2
C
C
C  DEVICE SPECIFICATION:
C  --------------------
C
	BYTE	  VAFDEV(2)		! DEVICE NAME
	INTEGER	  VAFUNT		! DEVICE UNIT
C
C
C  FILE NAME:
C  ---------
C
	PARAMETER VAFFNM = '[0,0]VAFILE.SYS'
C
C
C  RECORD BUFFERS:
C  --------------
C
	BYTE	  VAFDEF(8)		! DEFAULT
	BYTE	  VAFREC(8)		! ALLOCATION
C
C
C  DEFAULT RECORD DEFINITION:
C  -------------------------
C
	INTEGER*4 DEFLIM		! DEFAULT VOLUME ALLOCATION
C
	EQUIVALENCE (DEFLIM,VAFDEF(5))
C
C
C  ALLOCATION RECORD DEFINITION:
C  ----------------------------
C
	INTEGER	  VAFISW		! STATUS WORD
	INTEGER	  VAFUIC		! ENTRY USER-ID
	INTEGER*4 VAFLIM		! ENTRY ALLOCATION LIMIT
C
	EQUIVALENCE (VAFISW,VAFREC(1))
	EQUIVALENCE (VAFUIC,VAFREC(3))
	EQUIVALENCE (VAFLIM,VAFREC(5))
C
C
C  RECORD ACCESS POINTERS:
C  ----------------------
C
	INTEGER	  VAFPNT		! RECORD POINTER
C
	INTEGER	  VAFFRP		! FIRST RECORD POINTER
	INTEGER	  VAFLRP		! LAST RECORD POINTER
C
	EQUIVALENCE (VAFFRP,VAFDEF(1))
	EQUIVALENCE (VAFLRP,VAFDEF(3))
C
	INTEGER	  VAFERP		! EMPTY RECORD POINTER
C
C
C  STATUS WORD FLAGS:
C  -----------------
C
	PARAMETER VAFUNL = 0		! DIRECTORY UNLOCKED
	PARAMETER VAFLOK = 1		! DIRECTORY LOCKED
C
C
C  ALLOCATION LIMIT FLAGS:
C  ----------------------
C
	PARAMETER VAFNOL = -1		! NO ALLOCATION LIMIT
	PARAMETER VAFDFL = -2		! DEFAULT ALLOCATION LIMIT
	PARAMETER VAFNDF = -3		! UNDEFINED ALLOCATION LIMIT
C
C
C  USER FILE DIRECTORY (UFD) BUFFER:
C  --------------------------------
C
	BYTE	  VAFUFD(10)		! USER DIRECTORY (ASCII)
C
C
C  COMMON BLOCK DEFINITION:
C  -----------------------
C
	COMMON /VAFILE/ VAFDEV,VAFUNT,
	2		VAFDEF,VAFREC,
	3		VAFPNT,VAFERP,
	4		VAFUFD
C
C