*DECK SETFTTA 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
USETEXT COMAFET 
    PROC SETFTTA; 
# TITLE SETFTTA - SET FILE TRANSFER TABLE ADDRESSES. #
  
      BEGIN  # SETFTTA #
  
# 
*     SETFTTA - SET FILE TRANSFER TABLE ADDRESSES.
* 
*     SETFTTA SETS BASED-ARRAY POINTERS TO THE FETS, STATUS WORD, 
*     AND RHF AND TRANSFER PARAMETER BLOCKS USING ADDRESSES FROM
*     THE CURRENT FILE TRANSFER TABLE ENTRY.
* 
*     ENTRY      <FTTENT>      = CURRENT FTT ENTRY. 
* 
*     EXIT       <LFET>        = LOCAL FILE FET ADDRESS.
*                <RFET>        = RHF FILE FET ADDRESS.
*                <PUTFET>      = <LFET> OR <RFET> (RECEIVE OR SEND).
*                <GETFET>      = <RFET> OR <LFET> (RECEIVE OR SEND).
*                <RHFREQREPB>  =  RHF PARAMETER BLOCK ADDRESS.
*                <STATUSWORD>  = STATUS WORD. 
*                <XFRHOLD>     = TRANSFER PARAMETER TABLE.
* 
*     PROCESS    SEE EXIT CONDITIONS. 
# 
  
      P<LFET> = FTTFETADR;
      P<RFET> = FTTFETADR + LEN$LFET + LENRHFPBLK;
      P<RHFREQREPB>  =  FTTPBLKADR; 
      P<STATUSWORD> = FTTSTATADR; 
      P<XFRHOLD> = LOC (RFET) + LEN$RFET; 
  
      IF FTTDIRECN EQ SEND         # IF SENDING FILE #
      THEN
        BEGIN 
        P<PUTFET> = LOC (RFET); 
        P<GETFET> = LOC (LFET); 
        END 
  
      ELSE                         # RECEIVING FILE # 
        BEGIN 
        P<PUTFET> = LOC (LFET); 
        P<GETFET> = LOC (RFET); 
        END 
  
      END 
  
    TERM
