FTN4,L
      SUBROUTINE MTOK(MTLU,IER),92067-1X556 REV.2001 791101 
C*****************************************************************
C*                                                               *
C*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS       *
C*  RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
C*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE     *
C*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD     *
C*  COMPANY.                                                     *
C*                                                               *
C*****************************************************************
C 
C     NAME:  MTOK 
C   SOURCE:  92067-18556  
C    RELOC:  PART OF 92067-12003
C     PGMR:  J.S.W
C 
C 
C 
C THIS ROUTINE CHECKS IF MT IS ON LINE AND THE LU IS NOT DOWN 
C ELSE IT WILL PRINT MESSAGES ON LU 1 AND SET IER=1 
C 
      IER=0 
      LOG=1 
      CALL EXEC(13,MTLU,IEQT5,ISTAT1,ISTAT2)
C 
C LOOK AT EQT4 BITS 14,15 TO SEE IF DOWN
C 
      IF(IAND(IEQT5,40000B).EQ.40000B) GO TO 88 
      IF(IAND(ISTAT2,100000B).EQ.100000B) GO TO 88
C 
C DYNAMIC STATUS TO MT TO SEE IF ON LINE
C 
      CALL EXEC(3,600B+MTLU)
      CALL ABREG(IA,IB) 
      IF(IAND(IA,1).NEQ.1) RETURN 
      CALL EXEC(2,LOG+200B,17HMAG TAPE OFF-LINE,-17)
      IER=1 
      RETURN
88    CALL EXEC(2,LOG+200B,13HMAG TAPE DOWN,-13)
      CALL EXEC(2,LOG,12HTYPE '*UP,5',-12)
      CALL EXEC(2,LOG,26HAND '*RU,DISK' TO RE-START,-26)
      STOP
      END 
      END$
                                                                                                                                                                                                                                        