*DECK RELNTA
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQFIL 
USETEXT COMQNET 
    PROC RELNTA ( (HEAD) ); 
      BEGIN    # RELNTA # 
# 
**    RELNTA     RELEASE ALL NETWORK MESSAGE BUFFERS. 
* 
*     RELNTA CALLS COMMON MEMORY MANAGER TO RELEASE ALL 
*     NETWORK BUFFERS ASSOCIATED WITH A CONNECTION. 
* 
*     PROC RELNTA ( (HEAD) )
* 
*     ENTRY      ACN = ACTIVE FILE TABLE ENTRY INDEX. 
*                HEAD = HEAD OF NETWORK BUFFER CHAIN TO RELEASE.
* 
*     EXIT       ALL BUFFERS IN CHAIN RELEASED. 
* 
*     PROCESS    FOR EACH BUFFER IN CHAIN:  
*                  CALL FREECMM TO RELEASE BUFFER TO CMM. 
# 
  
      ITEM HEAD       U;           # POINTER TO FIRST BUFFER #
  
# 
****  XREF
# 
      XREF
        BEGIN 
        FUNC FREECMM    U;         # RELEASE CMM BUFFER # 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END
# 
  
  
  
        $BEGIN
        NAME("RELNTA");            # DEBUG CODE # 
        $END
  
      ASLONGAS (HEAD NE 0)
      DO
        BEGIN 
        P<NHA$B> = HEAD;           # RESET POINTER #
        HEAD = NHA$LNK;            # SAVE CURRENT LINK ADDRESS #
        P<NHA$B> = FREECMM(P<NHA$B>);  # RELEASE BUFFER # 
        END 
  
      END      # RELNTA # 
    TERM
