! *** 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
    
    
    ! 
    !  Definitions for Acmode arugment to several MMG system services
    ! 
      DECLARE LONG CONSTANT ACCESS$M_LOCK_IMAGE = x'00000040'
      DECLARE LONG CONSTANT ACCESS$M_LKWSET_EXACT = x'00000080'
      DECLARE LONG CONSTANT ACCESS$S_ACCESS = 8
      record ACCESS_D
         group ACCESS$R_ACCESS_UNION
            variant
               case
                  BASIC$QUADWORD ACCESS$Q_QUAD  !  Combined acmode/arch/prot argument - full 64-bits
               case
                  group ACCESS$R_ACCESSDEF_FIELDS
                     BYTE ACCESS$B_MODE     !  Access mode
                     BYTE ACCESS$B_ARCH     !  Architecture 3=IA64
                     WORD ACCESS$W_PROT     !  Page protection in architecture format
                     LONG ACCESS$L_RESERVED1  !  Reserved
                  end group ACCESS$R_ACCESSDEF_FIELDS
               case
                  group ACCESS$R_ACCESSDEF_BITS
                      !  For $LKWSET_64 and $ULWSET_64 only
                      !  For $LKWSET[_64] and $ULWSET[_64] IA64 only
    !     Alpha always performs exact
                     BYTE FILL1_bits ( 8 )   ! COMMENT ADDED BY SDL - FILL1_bits contains bits FILL1 through FILL3
                  end group ACCESS$R_ACCESSDEF_BITS
            end variant
         end group ACCESS$R_ACCESS_UNION
      end record ACCESS_D
    
      DECLARE LONG CONSTANT ACCESS$C_IA64 = 3  !  IA64