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