FTN77
      PROGRAM YLCVF(3),LOCATE AND VERIFY
C
C  RU,YLCVF
C
      IMPLICIT INTEGER (A-Z)
      INTEGER*4 ADDR, LENGTH
      DIMENSION COMP (24), BUF (200), PARAM (5)
C
      DO 10 I=1,24
10    COMP (I) = -1
C
C
      LU = 20
C
C
      WRITE (1,1)
1     FORMAT ("BUS ADDRESS? _")
      READ (1,*) BUS
C
C
      WRITE (1,11)
11    FORMAT ("UNIT? _")
      READ (1,*) COMP (1)
C
      WRITE (1,12)
12    FORMAT ("VOLUME? _")
      READ (1,*) COMP (2)
C
      WRITE (1,13)
13    FORMAT ("ADDRESS? _")
      READ (1,*) ADDR
      COMP (3) = 0
      COMP (4) = 0
      COMP (5) = ISHFT (ADDR, -16)
      COMP (6) = IAND (ADDR, 177777B)
C
C
      WRITE (1,17)
17    FORMAT ("LENGTH? _")
      READ (1,*) LENGTH
      COMP (10) = 1
      COMP (11) = ISHFT (LENGTH, -16)
      COMP (12) = IAND (LENGTH, 177777B)
C
C
      CALL XLCVF (LU, BUS, COMP, BUF)
C
      WRITE (1,20) BUS, BUF (60)
20    FORMAT ("LOCATE AND VERIFY ADDRESS ",I1," QSTAT ",I1)
C
C
      IF (BUF (60).EQ.0) GO TO 999
C
      WRITE (1,30)
30    FORMAT ("REQUEST STATUS RETURNS:")
      WRITE (1,31) (BUF (I),I=2,11)
31    FORMAT (9(K6,2X),K6)
C
C
999   CONTINUE
      END
      END$
