*DECK FTUGNET 
          IDENT  FTUGNET
          ENTRY  FTUGNET
          TITLE  FTUGNET - GET NETWORK INTERFACE TYPE.
          COMMENT GET NETWORK INTERFACE TYPE. 
          SPACE  4
**        FTUGNET - GET NETWORK INTERFACE TYPE. 
* 
*         FTUGNET IS CALLED TO RETURN THE CURRENTLY SELECTED NETWORK
*         INTERFACE.
* 
*         TYPE = FTUGNET
* 
*         EXIT   (X6) = NETWORK INTERFACE TYPE. 
  
 FTUENT$  EQU    1           ASSEMBLE ENTRY HERE
  
*CALL COMFFTU 
  
 FTUGNET  SUBR
          SA2    FT.NTYP     GET NETWORK TYPE 
          BX6    X2          RETURN AS FUNCTION RESULT
          EQ     FTUGNET     RETURN 
  
          END 
