FTN4,L SUBROUTINE EOTAP(ITTY,MTLU,IHDR,IBUF,ISIZE X ),92067-1X549 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: EOTAP C SOURCE: 92067-18549 C RELOC: PART OF 92067-12003 C PGMR: J.S.W C DIMENSION IHDR(1),IBUF(1) C C C END OF TAPE WHEN READING (RESTORING) C C 100 CALL EXEC(2,ITTY,11HEND OF TAPE,-11) CALL EXEC(2,ITTY,15HMOUNT NEXT TAPE,-15) CALL EXEC(2,ITTY,32HTYPE "GO" TO CONTINUE ,-32) C C CALL EXEC(1,ITTY+400B,IGO,-2) IF(IGO.NEQ.2HGO) GO TO 100 C C CHECK IF MT LU IS STILL UP C 120 CALL EXEC(13,MTLU,IEQT5) IF(IAND(IEQT5,40000B).EQ.0) GO TO 150 CALL EXEC(2,ITTY,10HMT LU DOWN,-10) CALL EXEC(2,ITTY, X 47HUP THE EQT AND TYPE "GO," TO CONTINUE, X -47) PAUSE GO TO 120 C 150 CALL EXEC(3,600B+MTLU) CALL ABREG(IA,IB) IF(IAND(IA,1).EQ.1)GO TO 900 C C READ HEADER,PRINT HEADER AND TAPE NO. CALL EXEC(1,MTLU,IHDR,247) CALL ABREG(IA,IB) IF(IAND(IA,1).EQ.1) GO TO 970 200 CALL EXEC(2,ITTY,IHDR,-76) CALL EXEC(2,ITTY,8HTAPE # _,-8) CALL XDCAS(IGO,1,IHDR(247)) CALL EXEC(2,ITTY,IGO,-2) C C ASK IF OK TO PROCEED, IF YES ,READ NEXT TRACK FROM TAPE C IF NO ASK AGAIN C CALL EXEC(2,ITTY,4HOK?_,-4) CALL EXEC(1,ITTY+400B,IGO,-2) IF(IGO.EQ.2HNO) GO TO 100 IF(IGO.NEQ.2HYE) GO TO 200 IF(IGO.EQ.2H/E.OR.IGO.EQ.2HEN.OR.IGO.EQ.2HEX)STOP CALL EXEC(1,MTLU,IBUF,ISIZE) CALL ABREG(IA,IB) IF(IAND(IA,1).EQ.1) GO TO 970 RETURN 970 CALL EXEC(2,ITTY,15HMT PARITY ERROR,-15) STOP 66 C C 900 CALL EXEC(2,ITTY,18HMAG TAPE OFF-LINE ,-18) GO TO 100 END END$