FTN4,L
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 PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18394 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     ACASB  -FINDS A ENTRY IN THE ACTIVE SESSION BLOCK 
C 
C     CALLING SEQUENCE: 
C          CALL ACASB(IDIRN,LU,I) 
C 
C              WHERE  IDIRN   IS THE DIRECTORY ENTRY NUMBER 
C                     LU      IS THE STATION LU WHERE ACCOUNT 
C                                IS ACTIVE
C                     I       IS THE INDEX INTO THE ACTIVE SESSION
C                                BLOCK
C 
      SUBROUTINE ACASB(IDIRN,LU,I) ,92067-16361 REV.1940 781111 
      COMMON /ACOM6 /LOC(6),IRN,IPFLG 
      IREC=LOC(1) 
      ILAST=128*(LOC(2)-IREC) 
      DO 100 IDX=I,ILAST,4
      IF(IDIRN-1.NE.IVBUF(IDX+3,IREC)) GO TO 100
      LU=IVBUF(IDX,IREC)
      IF(LU.NE.0) GO TO 200 
  100 CONTINUE
C 
C     NOT AN ACTIVE SESSION 
C 
      LU=0
C 
C     FOUND ACTIVE SESSION
C 
  200 I=IDX+4 
C 
C     POST IVBUF
C 
      CALL IVBUF
      RETURN
      END 
                                                                                    