*DECK SETNTA                       26MAY81
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQFIL 
USETEXT COMQNET 
      PROC SETNTA ( (HEAD) ); 
      BEGIN    # SETNTA # 
# 
**    SETNTA     SET NETWORK BASED ARRAYS.
* 
*     SETNTA SETS THE BASED ARRAY POINTER FOR THE NETWORK HEADER
*     AND TEXT AREA TO THE LAST BUFFER IN THE CHAIN.
* 
*     PROC SETNTA ( (HEAD) )
* 
*     ENTRY      ACN = AFT ENTRY INDEX (CONNECTION NUMBER). 
*                HEAD = FWA OF 1ST BUFFER IN CHAIN. 
*                NTAH = NETWORK TEXT HEADER (MESSAGE).
* 
*     EXIT       BASED ARRAY POINTERS FOR NHA$B AND NTA$B SET 
*                  TO LAST BUFFER IN CHAIN. 
* 
*     PROCESS    SEE ENTRY/EXIT.
# 
  
      ITEM HEAD       U;           # POINTER TO HEAD OF CHAIN # 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        END 
# 
****  XREF END
# 
  
      ITEM I          U;
  
  
  
        $BEGIN
        NAME("SETNTA");            # DEBUG CODE # 
        $END
  
      P<NHA$B> = HEAD;             # SET FIRST BUFFER ADDRESS # 
      ASLONGAS (NHA$LNK NE 0)      # IF NOT LAST BUFFER IN CHAIN #
      DO
        BEGIN 
        P<NHA$B>=NHA$LNK;          # RESET BUFFER ADDR #
        END 
  
      P<NTA$B> = LOC(NTAH$);
  
      END      # SETNTA # 
    TERM
