ASMB,R,Q,C
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
*     SOURCE PART NUMBER : 92067-18368
* 
*     RELOCATABLE PART NUMBER : 92067-16361 
* 
*     PROGRAMER(S)   : J.M.N. 
* 
* 
      NAM ACINT,8 92067-16361 REV.1940 790515 
* 
* 
*     ACINT IS A ROUTINE TO DEACTRM INE IF THE SESSION MONITOR HAS
*     BEEN INITIALIZED ($DSCS NON-ZERO).  IF INITIALIZED, ISTAT 
*     IS SET TO 1, OTHERWISE ISTAT IS SET TO 0. 
* 
*     CALLING SEQUENCE:  CALL ACINT (ISTAT,JSTAT) 
*                WHERE
*                        ISTAT >= 0 IF INITIALIZED
*                              =-1 IF NOT INITIALIZED 
*                              =-2 IF NOT INITIALIZED 
*                                  AND RN'S ALLOCATED 
*                        JSTAT >= 0 SESSION IS UP 
*                              =-1 SOFT SHUT DOWN 
*                              =-2 SHORT TERM SHUT DOWN 
*                                  FOR LOAD ACCOUNTS
* 
      ENT ACINT 
      EXT .ENTR 
      EXT $DSCS 
* 
ISTAT NOP 
JSTAT NOP 
ACINT NOP           ENTRY 
      JSB .ENTR     GET PARAMETER ADDRESSES 
      DEF ISTAT 
      XLA $DSCS     HEAD OF SESSION MONITOR DISC POOL 
      STA ISTAT,I 
      XLA $DSCS+1   RESOURCE FLAG 
      STA JSTAT,I   SET IF NEGATIVE 
      JMP ACINT,I   RETURN
      END 
                                                                                                          