*DECK CMM$AFG 
          IDENT  CMM$AFG     ACTIVATES/FREES A BLOCK GROUP
 CMM$AFG  TITLE  CMM$AFG - ACTIVATE/FREE A GROUP-ID 
          COMMENT **** CMM TRACE CODE PRESENT                        ***
          COMMENT  ACTIVATE/FREE A GROUP-ID 
          ENTRY  CMM$AGR
                             THIS FUNCTION ACTIVATES A LOGICAL
                             BLOCK GROUP OF A GIVEN TYPE AND
                             RETURNS A UNIQUE GROUP IDENTIFIER. 
                             CALLING SEQUENCE IS
  
                               <GROUP-ID> = CMM$AGR(<GROUP-TYPE>) 
CMM$AGR   DATA   0
          SA1    X1          CMM.AGR EXPECTS GROUP-TYPE IN X1 
          RJ     =XCMM.AGR
          LX6    X2          CMM.AGR RETURN GROUP-ID IN X2
          EQ     CMM$AGR
          SPACE  2
          ENTRY  CMM$FGR
          COMMENT ****  CMM$AGR  -TRACE-                             ***
                             THIS PROCEDURE FREES ALL BLOCKS IN A 
                             GROUP WITH A GIVEN GROUP IDENTIFIER. 
                             CALLING SEQUENCE IS
  
                               CALL CMM$FGR(<GROUP-ID>) 
CMM$FGR   DATA   0
          SA2    CMM$FGR     SAVE THE CALLERS ADDRESS FOR TRACE      ***
          LX2    30                                                  ***
          SX6    X2-1                                                ***
          SA6    =XCMM$XYZ                                           ***
          SA1    X1          CMM.FGR EXPECTS GROUP-ID IN X1 
          RJ     =XCMM.FGR
          EQ     CMM$FGR
          END 
