!*** MODULE $FLTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  FLAG BITS FOR THE $SETFLT SYSTEM SERVICE.
 ! 
	PARAMETER FLT$M_NO_EXECUTE = '00000001'X
	PARAMETER FLT$M_EXECUTE_ONLY = '00000002'X
	PARAMETER FLT$M_PERM = '00000004'X
	PARAMETER FLT$M_EXECUTABLE = '00000008'X
	STRUCTURE /FLTDEF/
	UNION
	    MAP
	        PARAMETER FLT$S_NO_EXECUTE = 1
	        PARAMETER FLT$V_NO_EXECUTE = 0		 !  No Execute
	        PARAMETER FLT$S_EXECUTE_ONLY = 1
	        PARAMETER FLT$V_EXECUTE_ONLY = 1	 !  Execute Only (for future use)
	        PARAMETER FLT$S_PERM = 1
	        PARAMETER FLT$V_PERM = 2		 !  Permanent	(for future use)
	        PARAMETER FLT$S_EXECUTABLE = 1
	        PARAMETER FLT$V_EXECUTABLE = 3		 !  Set page to executable
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! FLTDEF
!DEC$ END OPTIONS