%DEFINE AMEDEF WORD

      ! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
      DECLARE LONG CONSTANT AFR$K_USER_LENGTH = 16  !  Length of user entry
      DECLARE LONG CONSTANT AFR$C_USER_LENGTH = 16  !  Length of user entry
      DECLARE LONG CONSTANT AFR$K_VMS_LENGTH = 24  !  Length of VMS entry
      DECLARE LONG CONSTANT AFR$C_VMS_LENGTH = 24  !  Length of VMS entry
      DECLARE LONG CONSTANT AFR$K_EXTENDED_LENGTH = 296  !  Extended length
      DECLARE LONG CONSTANT AFR$C_EXTENDED_LENGTH = 296  !  Extended length
      DECLARE LONG CONSTANT AFR$C_UNINITIALIZED = 0
      DECLARE LONG CONSTANT AFR$C_BUFFERED = 1
      DECLARE LONG CONSTANT AFR$C_EXCEPTION = 2  !  Values passed to start system service
      DECLARE LONG CONSTANT AFR$S_AFRDEF = 296
      record AFRDEF
         group AFR$R_PC_DATA_OVERLAY
            variant
               case
                  BASIC$QUADWORD AFR$Q_FAULT_PC  !  PC of alignment fault
               case
                  group AFR$R_PC_DATA_LONGWORDS
                     LONG AFR$L_FAULT_PC_L
                     LONG AFR$L_FAULT_PC_H
                  end group AFR$R_PC_DATA_LONGWORDS
            end variant
         end group AFR$R_PC_DATA_OVERLAY
         group AFR$R_VA_DATA_OVERLAY
            variant
               case
                  BASIC$QUADWORD AFR$Q_FAULT_VA  !  Unaligned virtual address
               case
                  group AFR$R_VA_DATA_LONGWORDS
                     LONG AFR$L_FAULT_VA_L
                     LONG AFR$L_FAULT_VA_H
                  end group AFR$R_VA_DATA_LONGWORDS
            end variant
         end group AFR$R_VA_DATA_OVERLAY
         group AFR$R_RESERVED_OVERLAY
            variant
               case
                  BASIC$QUADWORD AFR$Q_RESERVED  !  Reserved for VMS
               case
                  group AFR$R_RESERVED_LONGWORDS
                     LONG AFR$L_RESERVED_L
                     LONG AFR$L_RESERVED_H
                  end group AFR$R_RESERVED_LONGWORDS
            end variant
         end group AFR$R_RESERVED_OVERLAY
         STRING AFR$T_IMAGE_NAME = 256      !  Image name
         STRING AFR$T_USER_NAME = 16        !  User name
      end record AFRDEF
    
      DECLARE LONG CONSTANT AFR$M_ENABLED = x'00000001'
      DECLARE LONG CONSTANT AFR$M_TEMP_ENABLED = x'00000002'
      DECLARE LONG CONSTANT AFR$M_PERM_ENABLED = x'00000004'
      DECLARE LONG CONSTANT AFR$M_DISABLED = 0
      DECLARE LONG CONSTANT AFR$M_USER_INFO = x'00000008'
      DECLARE LONG CONSTANT AFR$S_AFREDEF = 1
      record AFREDEF
          !  Enable bit
          !  TRUE if enabled image by image
          !  TRUE if permanently enabled
          !  If set, user info is saved
         BYTE ENABLED_bits   ! COMMENT ADDED BY SDL - ENABLED_bits contains bits ENABLED through FILL_44_
      end record AFREDEF
    
      DECLARE LONG CONSTANT AME$M_KERNEL_MODE = x'00000001'
      DECLARE LONG CONSTANT AME$M_EXEC_MODE = x'00000002'
      DECLARE LONG CONSTANT AME$M_SUPER_MODE = x'00000004'
      DECLARE LONG CONSTANT AME$M_USER_MODE = x'00000008'
      DECLARE LONG CONSTANT AME$M_USER_VA = x'00000010'
      DECLARE LONG CONSTANT AME$M_SYSTEM_VA = x'00000020'
      DECLARE LONG CONSTANT AME$M_USER_PC = x'00000040'
      DECLARE LONG CONSTANT AME$M_SYSTEM_PC = x'00000080'
      DECLARE LONG CONSTANT AME$M_USER_VA_P0 = x'00000100'
      DECLARE LONG CONSTANT AME$M_USER_VA_P1 = x'00000200'
      DECLARE LONG CONSTANT AME$M_USER_VA_P2 = x'00000400'
      DECLARE LONG CONSTANT AME$C_SIZE = 4  !  Length in bytes for mask
      DECLARE LONG CONSTANT AME$K_SIZE = 4  !  Length in bytes for mask
      DECLARE LONG CONSTANT AME$S_AMEDEF = 2
    
    ! 
    !  AFLDEF defines which region a VA lies in
    ! 
      DECLARE LONG CONSTANT AFL$M_P0_VA = x'00000001'
      DECLARE LONG CONSTANT AFL$M_P1_VA = x'00000002'
      DECLARE LONG CONSTANT AFL$M_P2_VA = x'00000004'
      DECLARE LONG CONSTANT AFL$M_S0S1_VA = x'00000008'
      DECLARE LONG CONSTANT AFL$M_S2_VA = x'00000010'
      DECLARE LONG CONSTANT AFL$M_PROCESS_VA = x'00000020'
      DECLARE LONG CONSTANT AFL$M_SYSTEM_VA = x'00000040'
      DECLARE LONG CONSTANT AFL$S_AFLDEF = 4
      record AFLDEF                         !  Alignment fault location
         group AFL$R_AFL_OVERLAY
            variant
               case
                  LONG AFL$L_VA_LOC
               case
                  group AFL$R_VA_LOC_BITDEFS
                      !  Address is in P0 space
                      !  Address is in P1 space
                      !  Address is in P2 space
                      !  Address is in S0 or S1 space
                      !  Address is in S2 space
                      !  Address is in P0,P1,or P2 (process space)
                      !  Address is in S0,S1,or S2 (system space)
                     BYTE P0_VA_bits   ! COMMENT ADDED BY SDL - P0_VA_bits contains bits P0_VA through FILL_46_
                  end group AFL$R_VA_LOC_BITDEFS
            end variant
         end group AFL$R_AFL_OVERLAY
      end record AFLDEF