*DECK TCMMDEF 
      PROC TCMMDEF; 
      BEGIN 
      CONTROL STEXT;
  
  
  
  
      DEF ABOVE$HHA # 0 #;         # GROUP-TYPE FOR GETTING BLOCKS FROM#
                                   # CMM ABOVE HHA.                    #
  
      DEF BELOW$HHA # 1 #;         # GROUP-TYPE FOR GETTING BLOCKS FROM#
                                   # CMM BETWEEN LWA OF THIS OVERLAY   #
                                   # AND HHA. THESE SHOULD BE RELEASED #
                                   # BEFORE SWAPPING OVERLAYS.         #
  
      DEF FIXED$LWA  # 0 #;        # SIZE-CODE FOR FIXED LENGTH BLOCK  #
      DEF GROW$LWA   # 1 #;        # SIZE CODE FOR LWA MAY GROW        #
      DEF SHRINK$LWA # 2 #;        # SIZE-CODE FOR LWA MAY SHRINK      #
      DEF FLOAT$LWA  # 3 #;        # SIZE-CODE FOR LWA MAY GROW OR     #
                                   #  SHRINK.                          #
  
      XREF FUNC CMM$AGR I;         # GETS A NEW GROUP-ID FOR BLOCKS    #
                                   # RETURNS GROUP-ID AS FUNC VALUE.   #
                                   # PARAMETER LIST-                   #
                                   #   (GROUP-TYPE)                    #
  
      XREF FUNC CMM$ALF I;         # ALLOCATES A BLOCK OF MEMORY       #
                                   # RETURNS FWA AS FUNCTION VALUE.    #
                                   # PARAMETER LIST-                   #
                                   #   (SIZE, SIZE-CODE, GROUP-ID)     #
  
      XREF PROC CMM$FRF;           # FREES A BLOCK IDENTIFIED BY ITS   #
                                   # FWA.                              #
                                   # PARAMETER LIST-                   #
                                   #   (FWA)                           #
  
      XREF PROC CMM$GLF;           # GROWS A BLOCK AT ITS LWA END BY   #
                                   # THE REQUESTED NUMBER OF WORDS.    #
                                   # SIZE-CODE FOR THE BLOCK MUST BE   #
                                   #  GROW$LWA OR FLOAT$LWA.           #
                                   # PARAMETER LIST-                   #
                                   #   (FWA, GROW-SIZE)                #
  
      XREF PROC CMM$SLF;           # SHRINKS A BLOCK AT ITS LWA END BY #
                                   # THE REQUESTED NUMBER OF WORDS.    #
                                   # SIZE-CODE FOR THE BLOCK MUST BE   #
                                   #  SHRINK$LWA OF FLOAT$LWA.         #
                                   # PARAMETER LIST-                   #
                                   #   (FWA, SHRINK-SIZE)              #
  
      XREF PROC CMM$FGR;           # FREES ALL BLOCKS ASSOCIATED WITH  #
                                   # THE GIVEN GROUP-ID.               #
                                   # PARAMETER LIST-                   #
                                   #   (GROUP-ID)                      #
  
  
      END 
      TERM
