*DECK FT$XFR
          IDENT  FT$XFR 
          TITLE  FT$XFR - FTU INTERFACE TO NETXFR.
          COMMENT FTU INTERFACE TO NETXFR.
          COMMENT COPYRIGHT (C) CONTROL DATA SYSTEMS INC. 1994. 
          ENTRY  FT$XFR 
          SPACE  4,8
**        FT$XFR - FTU INTERFACE TO NETXFR. 
* 
*         FT$XFR PROVIDES AN EXECUTION-TIME SELECTABLE INTERFACE
*         TO NETXFR.
* 
*         CALL FT$XFR (PARAMS)
* 
*         SEE NETXFR FOR PARAMETERS.
  
*CALL COMFFTU 
  
 FT$XFR   SUBR                     ENTRY/EXIT 
          SA2    FT.NTYP           GET NETWORK TYPE 
          SA3    FT$XFR            GET OUR ENTRY POINT
          SA2    X2+FTUA           GET ENTRY POINT
          BX6    X3 
          SB6    X2                (B6) = INTERFACE ENTRY POINT 
          SA6    B6                SIMULATE RETURN JUMP 
          JP     B6+1 
  
 FTUA     BSS    0
          VFD    42/0,18/=XRHFXFR  RHF/FIP INTERFACE
          VFD    42/0,18/=XNETXFR  NAM/AIP INTERFACE
  
          END 
