ASMB,C,Q
*     NAME:   LUSES 
*     SOURCE: 92070-18266 
*     RELOC:  92070-1X266 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (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 WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
* 
      NAM LUSES,7  92070-1X266  REV.2040  800715
      ENT LUSES,SESSN,ICAPS 
* 
*     'LUSES' PURPOSE:  FIND A SESSION CONTROL BLOCK FOR A GIVEN TERMINAL.
* 
*     DUMMY ROUTINE FOR NON-SESSION SYSTEMS.
* 
*     CALLING SEQUENCE: 
*       I=LUSES(IDENT)
* 
*       ZERO IS RETURNED TO INDICATE NOT FOUND. 
* 
* 
* 
* 
*     'SESSN' PURPOSE:  DETERMINE WHETHER A PROGRAM IS IN SESSION.
* 
*     DUMMY ROUTINE FOR NON-SESSION SYSTEMS.
* 
*     CALLING SEQUENCE: 
*       JSB SESSN 
*       DEF *+2 
*       DEF IDSEG   ID SEGMENT ADDRESS
* 
*         E=0 IF IN SESSION 
*         E=1 IF NOT IN SESSION 
* 
* 
* 
*     'ICAPS' PURPOSE:  DETERMINE THE CAPABILITY OF THE 
*     USER OF THE CALLING PROGRAM.  
* 
*     DUMMY ROUTINE FOR NON-SESSION SYSTEMS.
*     IN RTE-L ICAPS ALWAYS RETURNS ZERO. 
* 
*     CALLING SEQUENCE: 
*          JSB ICAPS  
*          DEF *+1  
*          RESULT (0) IN A-REGISTER (I.E. IT IS A FUNCTION) 
* 
A     EQU 0 
B     EQU 1 
* 
* 
ICAPS EQU * 
SESSN EQU * 
LUSES NOP 
      LDB *-1,I     GET RETURN ADDRESS
      CLA,CCE 
      JMP B,I       RTN (A)=0, (E)=1
* 
      END 
                                                                                          