FTN4,Q,C SUBROUTINE XSECA(LU,IDVID,ISEC,IER),92067-1X552 REV.2040 800717 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: XSECA C SOURCE: 92067-18552 C RELOC: PART OF 92067-12002 C PGMR: J.S.W C C DIMENSION IBUF(20) C C C REQUEST SECTOR ADDRESS C IUNIT=IAND(IDVID,177400B) ID=IAND(IDVID,7B) IF(IFDVR(LU).EQ.0) RETURN C CALL XDSJ(LU,IDVID,IER) IF(IER.EQ.2.OR.IER.EQ.4) RETURN IBUF(1)=440B+IDVID CALL XPRTY(IBUF(1)) IBUF(2)=550B IBUF(3)=4 IBUF(4)=1000B IBUF(5)=677B IBUF(6)=500B+ID CALL XPRTY(IBUF(6)) IBUF(7)=100550B C READ 1 WORD INTO BUF(17) C CALL ZSENS(LU,IBUF,1) CALL XDSJ(LU,IDVID,IER) ISEC=IBUF(17) RETURN END END$