ASMB,C,Q
      NAM ISN5,7,99 92425-16043 REV.2001 791114 
*     NAME:  ISN
*   SOURCE: 92425-18043 
*   RELOC : 92425-16043 
*     PRGM: DICK LAMPMAN
************************************************************************* 
*    (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS             * 
*    RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,             *
*   REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT        * 
*   THE PRIOR WRITTED CONSENT OF HEWLETT-PACKARD COMPANY.               * 
************************************************************************* 
* 
*     I = ISN (IDUMMY)
*     I = 1 SESSION TERMINAL LU (ALWAYS 1) OR 
*      = 0 IF NOT IN SESSION
* 
      EXT LOGLU,.ENTR 
      ENT ISN 
* 
IDUM  NOP 
ISN   NOP 
* 
      JSB .ENTR 
      DEF IDUM
* 
      JSB LOGLU      FIRST GET THE TERMINAL LU. 
      DEF RTN 
      DEF LUSYS 
* 
RTN   LDB LUSYS    CHECK IF IN SESSION. 
      SSB          IN SESSION OF SYSTEM LU >0 
* 
      CLA          IF NOT IN SESSION, RETURN 0. 
* 
      JMP ISN,I 
* 
LUSYS DEC 0 
      END 
                                                                                                                                                                      