!*** MODULE $DIRENTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER dirent$k_name = '00000001'X
	PARAMETER dirent$k_version = '00000002'X
	STRUCTURE /dirent/
	    INTEGER*2 dirent$iw_size
	    INTEGER*2 dirent$iw_type
	END STRUCTURE	! dirent
	STRUCTURE /dirent_nam/
	    INTEGER*2 dirent_nam$iw_size
	    INTEGER*2 dirent_nam$iw_type
	    INTEGER*2 dirent_nam$iw_version_limit
	    INTEGER*2 %FILL
	    INTEGER*4 dirent_nam$il_name_length
	    CHARACTER*1 dirent_nam$t_name(1:1)
	END STRUCTURE	! dirent_nam
	PARAMETER dirent$k_file = '00000001'X
	PARAMETER dirent$k_directory = '00000002'X
	STRUCTURE /dirent_ver/
	    INTEGER*2 dirent_ver$iw_size
	    INTEGER*2 dirent_ver$iw_type
	    INTEGER*2 dirent_ver$iw_version
	    INTEGER*2 dirent_ver$iw_obj_type
	    INTEGER*2 %FILL
	    UNION
	        MAP
	        INTEGER*2 dirent_ver$iw_fid(1:3)
	        END MAP
	        MAP
	            INTEGER*2 dirent_ver$iw_fid_num
	            INTEGER*2 dirent_ver$iw_fid_seq
	            UNION
	                MAP
	                INTEGER*2 dirent_ver$iw_fid_rvn
	                END MAP
	                MAP
	                    INTEGER*1 dirent_ver$ib_fid_rvn
	                    INTEGER*1 dirent_ver$ib_fid_nmx
	                END MAP
	            END UNION
	        END MAP
	    END UNION
	END STRUCTURE	! dirent_ver
!DEC$ END OPTIONS