%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$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_FLOATING_COMPLEX_DECL ) = 0 %THEN
    	RECORD BASIC$H_FLOATING_COMPLEX
    		HFLOAT REAL_PART
    		HFLOAT IMAGINARY_PART
    	END RECORD
    %LET %BASIC$H_FLOATING_COMPLEX_DECL = 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$M_USE = x'00000001'
      DECLARE LONG CONSTANT ARM$S_ARMDEF = 4
      record ARMDEF
         variant
            case
               group ARM$r_fill_15
                  variant
                  case
                     LONG ARM$L_FILE_ACCESS
                  case
                     group ARM$r_fill_16
                         !  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_16
                  end variant
               end group ARM$r_fill_15
            case
               group ARM$r_fill_17
                  variant
                  case
                     LONG ARM$L_VOLUME_ACCESS
                  case
                     group ARM$r_fill_18
                         !  Create access (volume)
                        BYTE V_1_bits   ! COMMENT ADDED BY SDL - V_1_bits contains bits V_1 through fill_19
                     end group ARM$r_fill_18
                  end variant
               end group ARM$r_fill_17
            case
               group ARM$r_fill_20
                  variant
                  case
                     LONG ARM$L_RSDM_ACCESS
                  case
                     group ARM$r_fill_21
                         !  Lock access (resource domain)
                        BYTE R_1_bits   ! COMMENT ADDED BY SDL - R_1_bits contains bits R_1 through fill_22
                     end group ARM$r_fill_21
                  end variant
               end group ARM$r_fill_20
            case
               group ARM$r_fill_23
                  variant
                  case
                     LONG ARM$L_DEVICE_ACCESS
                  case
                     group ARM$r_fill_24
                         !  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_25
                     end group ARM$r_fill_24
                  end variant
               end group ARM$r_fill_23
            case
               group ARM$r_fill_26
                  variant
                  case
                     LONG ARM$L_CEB_ACCESS
                  case
                     group ARM$r_fill_27
                         !  Associate access (common event cluster)
                        BYTE ASSOCIATE_bits   ! COMMENT ADDED BY SDL - ASSOCIATE_bits contains bits ASSOCIATE through fill_28
                     end group ARM$r_fill_27
                  end variant
               end group ARM$r_fill_26
            case
               group ARM$r_fill_29
                  variant
                  case
                     LONG ARM$L_QUEUE_ACCESS
                  case
                     group ARM$r_fill_30
                         !  Submit access (queue)
                         !  Manage access (queue)
                        BYTE Q_1_bits   ! COMMENT ADDED BY SDL - Q_1_bits contains bits Q_1 through fill_31
                     end group ARM$r_fill_30
                  end variant
               end group ARM$r_fill_29
            case
               group ARM$r_fill_32
                  variant
                  case
                     LONG ARM$L_CAP_ACCESS
                  case
                     group ARM$r_fill_33
                         !  Use access (capability)
                        BYTE USE_bits   ! COMMENT ADDED BY SDL - USE_bits contains bits USE through fill_34
                     end group ARM$r_fill_33
                  end variant
               end group ARM$r_fill_32
         end variant
      end record ARMDEF