! *** 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
    
    
    ! +
    !  Access Rights Mask longword definitions
    ! -
      DECLARE LONG CONSTANT ARM$M_READ = x'00000001'
      DECLARE LONG CONSTANT ARM$M_WRITE = x'00000002'
      DECLARE LONG CONSTANT ARM$M_EXECUTE = x'00000004'
      DECLARE LONG CONSTANT ARM$M_DELETE = x'00000008'
      DECLARE LONG CONSTANT ARM$M_CONTROL = x'00000010'
      DECLARE LONG CONSTANT ARM$M_CREATE = x'00000004'
      DECLARE LONG CONSTANT ARM$M_LOCK = x'00000004'
      DECLARE LONG CONSTANT ARM$M_PHYSICAL = x'00000004'
      DECLARE LONG CONSTANT ARM$M_LOGICAL = x'00000008'
      DECLARE LONG CONSTANT ARM$M_ASSOCIATE = x'00000001'
      DECLARE LONG CONSTANT ARM$M_SUBMIT = x'00000002'
      DECLARE LONG CONSTANT ARM$M_MANAGE = x'00000004'
      DECLARE LONG CONSTANT ARM$S_ARMDEF = 4
      record ARMDEF
         variant
            case
               group ARM$R_FILL_47_
                  variant
                  case
                     LONG ARM$L_FILE_ACCESS
                  case
                     group ARM$R_FILL_48_
                         !  Read access
                         !  Write access
                         !  Execute access
                         !  Delete access
                         !  Control access
                         !  [LOADSS]SYSACLSRV depends on this being here?
                        LONG READ_bits   ! COMMENT ADDED BY SDL - READ_bits contains bits READ through FILL
                     end group ARM$R_FILL_48_
                  end variant
               end group ARM$R_FILL_47_
            case
               group ARM$R_FILL_49_
                  variant
                  case
                     LONG ARM$L_VOLUME_ACCESS
                  case
                     group ARM$R_FILL_50_
                         !  Create access (volume)
                        BYTE V_1_bits   ! COMMENT ADDED BY SDL - V_1_bits contains bits V_1 through FILL_59_
                     end group ARM$R_FILL_50_
                  end variant
               end group ARM$R_FILL_49_
            case
               group ARM$R_FILL_51_
                  variant
                  case
                     LONG ARM$L_RSDM_ACCESS
                  case
                     group ARM$R_FILL_52_
                         !  Lock access (resource domain)
                        BYTE R_1_bits   ! COMMENT ADDED BY SDL - R_1_bits contains bits R_1 through FILL_60_
                     end group ARM$R_FILL_52_
                  end variant
               end group ARM$R_FILL_51_
            case
               group ARM$R_FILL_53_
                  variant
                  case
                     LONG ARM$L_DEVICE_ACCESS
                  case
                     group ARM$R_FILL_54_
                         !  Physical I/O access (device)
                         !  Logical I/O access (device)
                        BYTE D_1_bits   ! COMMENT ADDED BY SDL - D_1_bits contains bits D_1 through FILL_61_
                     end group ARM$R_FILL_54_
                  end variant
               end group ARM$R_FILL_53_
            case
               group ARM$R_FILL_55_
                  variant
                  case
                     LONG ARM$L_CEB_ACCESS
                  case
                     group ARM$R_FILL_56_
                         !  Associate access (common event cluster)
                        BYTE ASSOCIATE_bits   ! COMMENT ADDED BY SDL - ASSOCIATE_bits contains bits ASSOCIATE through FILL_62_
                     end group ARM$R_FILL_56_
                  end variant
               end group ARM$R_FILL_55_
            case
               group ARM$R_FILL_57_
                  variant
                  case
                     LONG ARM$L_QUEUE_ACCESS
                  case
                     group ARM$R_FILL_58_
                         !  Submit access (queue)
                         !  Manage access (queue)
                        BYTE Q_1_bits   ! COMMENT ADDED BY SDL - Q_1_bits contains bits Q_1 through FILL_63_
                     end group ARM$R_FILL_58_
                  end variant
               end group ARM$R_FILL_57_
         end variant
      end record ARMDEF