! *** 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
    
    
    ! +
    !  PFN memory data structure definition.  This structure is used to access the
    !  fields within the PFN memory map returned by $GETSYI.  $GETSYI copies the
    !  contents of the pool packet stored at MMG$GL_SYI_PFN_MEMORY_MAP to a
    !  user-supplied buffer.
    ! -
      DECLARE LONG CONSTANT PMM$m_console = x'00000001'
      DECLARE LONG CONSTANT PMM$m_openvms = x'00000002'
      DECLARE LONG CONSTANT PMM$m_available = x'00000004'
      DECLARE LONG CONSTANT PMM$m_base = x'00000008'
      DECLARE LONG CONSTANT PMM$m_galaxy_shared = x'00000010'
      DECLARE LONG CONSTANT PMM$m_undefined_5_15 = x'0000FFE0'
      DECLARE LONG CONSTANT PMM$C_LENGTH = 12  !  Length of structure
      DECLARE LONG CONSTANT PMM$K_LENGTH = 12  !  Length of structure
      DECLARE LONG CONSTANT PMM$S_PMM = 12
      record PMM
         WORD PMM$W_LENGTH                  !  Size of a PMM structure
         group PMM$r_fill_62_
            variant
               case
                  WORD PMM$w_flags
               case
                  group PMM$r_fill_63_
                      !  Used by Console
                      !  Used by OpenVMS
                      !  Available for Other Uses
                      !  Galaxy base memory segment
                      !  Galaxy shared memory
                      !  Undefined bits should be zero
                     WORD console_bits   ! COMMENT ADDED BY SDL - console_bits contains bits console through undefined_5_15
                  end group PMM$r_fill_63_
            end variant
         end group PMM$r_fill_62_
         LONG PMM$l_start_pfn               !  First PFN in this cluster
         LONG PMM$l_pfn_count               !  Number of PFNs in this cluster
      end record PMM
    
    !  Expanded version for larger PFNs
      DECLARE LONG CONSTANT PMM64$m_console = x'00000001'
      DECLARE LONG CONSTANT PMM64$m_openvms = x'00000002'
      DECLARE LONG CONSTANT PMM64$m_available = x'00000004'
      DECLARE LONG CONSTANT PMM64$m_base = x'00000008'
      DECLARE LONG CONSTANT PMM64$m_galaxy_shared = x'00000010'
      DECLARE LONG CONSTANT PMM64$m_undefined_5_15 = x'0000FFE0'
      DECLARE LONG CONSTANT PMM64$C_LENGTH = 24  !  Length of structure
      DECLARE LONG CONSTANT PMM64$K_LENGTH = 24  !  Length of structure
      DECLARE LONG CONSTANT PMM64$S_PMM64 = 24
      record PMM64
         WORD PMM64$W_LENGTH                !  Size of a PMM structure
         group PMM64$r_fill_64_
            variant
               case
                  WORD PMM64$w_flags
               case
                  group PMM64$r_fill_65_
                      !  Used by Console
                      !  Used by OpenVMS
                      !  Available for Other Uses
                      !  Galaxy base memory segment
                      !  Galaxy shared memory
                      !  Undefined bits should be zero
                     WORD console_bits   ! COMMENT ADDED BY SDL - console_bits contains bits console through undefined_5_15
                  end group PMM64$r_fill_65_
            end variant
         end group PMM64$r_fill_64_
         LONG PMM64$l_reserved              !  padding
         BASIC$QUADWORD PMM64$q_start_pfn   !  First PFN in this cluster
         BASIC$QUADWORD PMM64$q_pfn_count   !  Number of PFNs in this cluster
      end record PMM64