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