*DECK RMEMCMM 
USETEXT COMCBEG 
FUNC RMEMCMM ((ADR)) U; 
# TITLE RMEMCMM - RELEASE MEMORY VIA CYBER MEMORY MANAGER.  # 
  
      BEGIN    # RMEMCMM #
  
# 
**    RMEMCMM    RELEASE ALLOCATED STORAGE. 
* 
*     RMEMCMM CALLS COMMON MEMORY MANAGER TO RELEASE THE BLOCK
*     INDICATED BY (ADR). 
* 
*     FUNC RMEMCMM ((ADR)) U
* 
*     ENTRY      ADR = FWA OF BLOCK TO BE RELEASED. 
*                      0, NO BLOCK ALLOCATED. 
* 
*     EXIT       STORAGE RELEASED.
*                (RMEMCMM = 0.) 
* 
*     PROCESS    IF (ADR) NON-ZERO, 
*                  CALL CMMFRF (ADR). 
*                SET (RMEMCMM) = 0. 
# 
  
      ITEM ADR        U;             # ADDRESS TO BE RELEASED # 
  
# 
****  FUNC RMEMCMM - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC CMMFRF;               # CMM INTERFACE #
        END 
  
# 
****  FUNC RMEMCMM - XREF LIST END. 
# 
  
                                               CONTROL EJECT; 
      IF ADR NQ 0 
      THEN
        BEGIN 
        CMMFRF(ADR);               # FREE MEMORY #
        END 
  
      RMEMCMM = 0;                 # SET FUNCTION NAME FOR RETURN # 
  
      END      # RMEMCMM #
  
      TERM
