*DECK FREECMM                      26MAY81
USETEXT COMCBEG 
    FUNC FREECMM ((ADR)) U; 
      BEGIN    # FREECMM #
# 
**    FREECMM    RELEASE ALLOCATED STORAGE. 
* 
*     FREECMM CALLS COMMON MEMORY MANAGER TO RELEASE THE BLOCK
*     INDICATED BY (ADR). 
* 
*     FUNC FREECMM
* 
*     ENTRY      ADR = FWA OF BLOCK TO BE RELEASED. 
*                    = 0, NO BLOCK ALLOCATED. 
* 
*     EXIT       FREECMM = 0 (STORAGE RELEASED).
* 
*     PROCESS    SEE ENTRY/EXIT.
# 
  
      ITEM ADR        U;             # ADDRESS TO BE RELEASED # 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC CMMFRF;               # CMM INTERFACE #
        PROC NAME;                 # DEBUG CODE # 
        END 
# 
****  XREF END
# 
  
  
        $BEGIN
        NAME("FREECMM");           # DEBUG CODE # 
        $END
  
      IF ADR NQ 0 
      THEN
        BEGIN 
        CMMFRF(ADR);               # FREE MEMORY #
        END 
  
      FREECMM = 0;                 # SET FUNCTION NAME FOR RETURN # 
  
      END      # FREECMM #
    TERM
