!*** MODULE $AFRDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER AFR$K_USER_LENGTH = '00000010'X  !  Length of user entry
	PARAMETER AFR$C_USER_LENGTH = '00000010'X  !  Length of user entry
	PARAMETER AFR$K_VMS_LENGTH = '00000018'X  !  Length of VMS entry
	PARAMETER AFR$C_VMS_LENGTH = '00000018'X  !  Length of VMS entry
	PARAMETER AFR$K_EXTENDED_LENGTH = '00000128'X  !  Extended length
	PARAMETER AFR$C_EXTENDED_LENGTH = '00000128'X  !  Extended length
	PARAMETER AFR$C_UNINITIALIZED = '00000000'X
	PARAMETER AFR$C_BUFFERED = '00000001'X
	PARAMETER AFR$C_EXCEPTION = '00000002'X	 !  Values passed to start system service
	STRUCTURE /AFRDEF/
	    UNION
	        MAP
	        INTEGER*4 AFR$Q_FAULT_PC(2)		 !  PC of alignment fault
	        END MAP
	        MAP
	            INTEGER*4 AFR$L_FAULT_PC_L
	            INTEGER*4 AFR$L_FAULT_PC_H
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 AFR$Q_FAULT_VA(2)		 !  Unaligned virtual address
	        END MAP
	        MAP
	            INTEGER*4 AFR$L_FAULT_VA_L
	            INTEGER*4 AFR$L_FAULT_VA_H
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 AFR$Q_RESERVED(2)		 !  Reserved for VMS
	        END MAP
	        MAP
	            INTEGER*4 AFR$L_RESERVED_L
	            INTEGER*4 AFR$L_RESERVED_H
	        END MAP
	    END UNION
	    CHARACTER*256 AFR$T_IMAGE_NAME		 !  Image name
	    CHARACTER*16 AFR$T_USER_NAME		 !  User name
	END STRUCTURE	! AFRDEF
	PARAMETER AFR$M_ENABLED = '00000001'X
	PARAMETER AFR$M_TEMP_ENABLED = '00000002'X
	PARAMETER AFR$M_PERM_ENABLED = '00000004'X
	PARAMETER AFR$M_DISABLED = '00000000'X
	PARAMETER AFR$M_USER_INFO = '00000008'X
	STRUCTURE /AFREDEF/
	    PARAMETER AFR$S_ENABLED = 1
	    PARAMETER AFR$V_ENABLED = 0		 !  Enable bit
	    PARAMETER AFR$S_TEMP_ENABLED = 1
	    PARAMETER AFR$V_TEMP_ENABLED = 1	 !  TRUE if enabled image by image
	    PARAMETER AFR$S_PERM_ENABLED = 1
	    PARAMETER AFR$V_PERM_ENABLED = 2	 !  TRUE if permanently enabled
	    PARAMETER AFR$S_USER_INFO = 1
	    PARAMETER AFR$V_USER_INFO = 3		 !  If set, user info is saved
	BYTE %FILL (1)
	END STRUCTURE	! AFREDEF
	PARAMETER AME$M_KERNEL_MODE = '00000001'X
	PARAMETER AME$M_EXEC_MODE = '00000002'X
	PARAMETER AME$M_SUPER_MODE = '00000004'X
	PARAMETER AME$M_USER_MODE = '00000008'X
	PARAMETER AME$M_USER_VA = '00000010'X
	PARAMETER AME$M_SYSTEM_VA = '00000020'X
	PARAMETER AME$M_USER_PC = '00000040'X
	PARAMETER AME$M_SYSTEM_PC = '00000080'X
	PARAMETER AME$M_USER_VA_P0 = '00000100'X
	PARAMETER AME$M_USER_VA_P1 = '00000200'X
	PARAMETER AME$M_USER_VA_P2 = '00000400'X
	PARAMETER AME$C_SIZE = '00000004'X	 !  Length in bytes for mask
	PARAMETER AME$K_SIZE = '00000004'X	 !  Length in bytes for mask
	STRUCTURE /AMEDEF/
	    PARAMETER AME$S_KERNEL_MODE = 1
	    PARAMETER AME$V_KERNEL_MODE = 0
	    PARAMETER AME$S_EXEC_MODE = 1
	    PARAMETER AME$V_EXEC_MODE = 1
	    PARAMETER AME$S_SUPER_MODE = 1
	    PARAMETER AME$V_SUPER_MODE = 2
	    PARAMETER AME$S_USER_MODE = 1
	    PARAMETER AME$V_USER_MODE = 3
	    PARAMETER AME$S_USER_VA = 1
	    PARAMETER AME$V_USER_VA = 4
	    PARAMETER AME$S_SYSTEM_VA = 1
	    PARAMETER AME$V_SYSTEM_VA = 5
	    PARAMETER AME$S_USER_PC = 1
	    PARAMETER AME$V_USER_PC = 6
	    PARAMETER AME$S_SYSTEM_PC = 1
	    PARAMETER AME$V_SYSTEM_PC = 7
	    PARAMETER AME$S_USER_VA_P0 = 1
	    PARAMETER AME$V_USER_VA_P0 = 8
	    PARAMETER AME$S_USER_VA_P1 = 1
	    PARAMETER AME$V_USER_VA_P1 = 9
	    PARAMETER AME$S_USER_VA_P2 = 1
	    PARAMETER AME$V_USER_VA_P2 = 10
	BYTE %FILL (2)
	END STRUCTURE	! AMEDEF
 ! 
 !  AFLDEF defines which region a VA lies in
 ! 
	PARAMETER AFL$M_P0_VA = '00000001'X
	PARAMETER AFL$M_P1_VA = '00000002'X
	PARAMETER AFL$M_P2_VA = '00000004'X
	PARAMETER AFL$M_S0S1_VA = '00000008'X
	PARAMETER AFL$M_S2_VA = '00000010'X
	PARAMETER AFL$M_PROCESS_VA = '00000020'X
	PARAMETER AFL$M_SYSTEM_VA = '00000040'X
	STRUCTURE /AFLDEF/			 !  Alignment fault location
	    UNION
	        MAP
	        INTEGER*4 AFL$L_VA_LOC
	        END MAP
	        MAP
	            PARAMETER AFL$S_P0_VA = 1
	            PARAMETER AFL$V_P0_VA = 0		 !  Address is in P0 space
	            PARAMETER AFL$S_P1_VA = 1
	            PARAMETER AFL$V_P1_VA = 1		 !  Address is in P1 space
	            PARAMETER AFL$S_P2_VA = 1
	            PARAMETER AFL$V_P2_VA = 2		 !  Address is in P2 space
	            PARAMETER AFL$S_S0S1_VA = 1
	            PARAMETER AFL$V_S0S1_VA = 3		 !  Address is in S0 or S1 space
	            PARAMETER AFL$S_S2_VA = 1
	            PARAMETER AFL$V_S2_VA = 4		 !  Address is in S2 space
	            PARAMETER AFL$S_PROCESS_VA = 1
	            PARAMETER AFL$V_PROCESS_VA = 5		 !  Address is in P0,P1,or P2 (process space)
	            PARAMETER AFL$S_SYSTEM_VA = 1
	            PARAMETER AFL$V_SYSTEM_VA = 6		 !  Address is in S0,S1,or S2 (system space)
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	END STRUCTURE	! AFLDEF
!DEC$ END OPTIONS