!*** MODULE $FIDDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  STRUCTURE OF A FILE ID (FID)
 ! 
	PARAMETER FID$K_LENGTH = '00000006'X
	PARAMETER FID$C_LENGTH = '00000006'X
	PARAMETER FID$C_INDEXF = '00000001'X	 !  INDEX FILE 
	PARAMETER FID$C_BITMAP = '00000002'X	 !  STORAGE MAP FILE 
	PARAMETER FID$C_BADBLK = '00000003'X	 !  BAD BLOCK FILE 
	PARAMETER FID$C_MFD = '00000004'X	 !  MASTER FILE DIRECTORY 
	PARAMETER FID$C_CORIMG = '00000005'X	 !  CORE IMAGE FILE 
	PARAMETER FID$C_VOLSET = '00000006'X	 !  VOLUME SET LIST FILE 
	PARAMETER FID$C_CONTIN = '00000007'X	 !  STANRARD CONTINUATION FILE 
	PARAMETER FID$C_BACKUP = '00000008'X	 !  BACKUP LOG FILE 
	PARAMETER FID$C_BADLOG = '00000009'X	 !  BAD BLOCK LOG FILE 
	PARAMETER FID$C_SECURITY = '0000000A'X	 !  SECURITY FILE
	PARAMETER FID$C_GPT = '0000000B'X	 !  GPT FILE
	PARAMETER FID$C_FREFIL = '0000000A'X	 !  FREE SPACE FILE 
	STRUCTURE /FIDDEF/
	    UNION
	        MAP
	        INTEGER*2 FID$W_FID(1:3)		 !  File Identification Number
	        END MAP
	        MAP
	            INTEGER*2 FID$W_NUM			 !  FILE NUMBER 
	            INTEGER*2 FID$W_SEQ			 !  FILE SEQUENCE NUMBER 
	            UNION
	                MAP
	                INTEGER*2 FID$W_RVN			 !  RELATIVE VOLUME NUMBER 
	                END MAP
	                MAP
	                    BYTE      FID$B_RVN			 !  BYTE FORM OF RVN 
	                    BYTE      FID$B_NMX			 !  FILE NUMBER EXTENSION 
 !  FILE ID'S OF THE RESERVED FILES
	                END MAP
	            END UNION
	        END MAP
	        MAP
	            INTEGER*2 FID$W_DIRNUM			 ! 	Directory number of File-Id
	            INTEGER*4 FID$L_RECNUM			 ! 	Record number of File-ID
	        END MAP
	    END UNION
	END STRUCTURE	! FIDDEF
!DEC$ END OPTIONS