          IDENT  DSAIFL
          TITLE  DSA$IS FILE LOCAL
          ENTRY  ZUTPIFL
          SYSCOM B1
          LIST   F
          SPACE  4
***  ZUTPIFL - REPLACES NOS CALL TO LFM= TO DETERMINE
*              IF FILE IS LOCAL TO CONTROLPOINT.
*              THIS ROUTINE WILL WORK FOR BOTH NOS AND NOS/BE.
*
*   ENTRY CONDITIONS
*     B5   ADDRESS OF FILENAME
*     X1   ADDRESS OF BOOLEAN TO HOLD RESPONSE
*copyc dsa$cybil_if_macros
 ZUTPIFL  RJ     =XZSMRENT
          SX1    LOCFET      DELIVER DISPLAY CODE LFN TO...
          SX7    RET
          EQ     =XZUTPSFN   CONVERT ASCII 12 TO DISPLAY
 RET      SA1    LOCFET
          IF     DEF,RA.ORG,2
          SX6    5S12        PARAMETER BLOCK LENGTH
          SKIP   1
          SX6    1+5S12      PARAMETER BLOCK LENGTH + COMPLETE BIT
          LX1    18
          BX6    X6+X1
          SA6    A1
          MX6    0
          DUP    4,1
          SA6    A6+B1       CLEAR REST OF BLOCK
          FILINFO  LOCFET
          SA1    LOCFET+1    FETCH EQUIPMENT ASSIGNED WORD
          MX6    12D
          BX6    X6*X1       EQUIPMENT MNEMONIC OR ZERO
          SA1    =XPARSV
          ZR     X6,FALSE
          MX6    1
 FALSE    SA6    X1          STORE 2ND PARAMETER
          EQ     =XZSMRRET
 LOCFET   BSS    5
          END
