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$