*COMDECK  IOFET 
          TITLE  IOFET  -  RESET FET FIELDS 
**        IOFET  -  SET FIELDS IN FET 
* 
*         THIS ROUTINE SETS IN=OUT=FIRST AND CHANGES THE NAME OF THE
*         FILE TO THAT GIVEN. 
* 
*         ENTRY  X5  =  FILE NAME TO INSERT 
*                X2  =  FET ADDRESS 
* 
*         USES   X - 1, 3, 6. 
*                B - NONE.
*                A - 1, 6.
* 
*         CALLS  WNB=.
* 
  
 IOFET    SUBR   =           ENTRY/EXIT 
  
 OSNOSBE  IFNE   HOST,SC2 
          RECALL X2          WAIT I/O COMPLETION
  
          SA1    X2+B1
          MX3    -18
          BX6    -X3*X1 
          SA6    A1+B1       IN=FIRST 
          SA6    A6+B1       OUT=FIRST
          SX3    B1 
 OSNOSBE  ELSE
          SX3    B0 
 OSNOSBE  ENDIF 
          ERRNZ  W.FMLFN-W.FMCPL
          ERRNZ  59-S.FMLFN 
          SA1    W.FMLFN+X2 
          OX6    X1,X3,FMCPL   SET COMPLETE BIT 
          MX3    N.FMLFN
          BX1    -X3*X6 
          BX6    X3*X5
          BX6    X1+X6       PLACE LFN OF FILE IN FET 
          SA6    A1 
          JP     IOFET       RETURN 
