ASMB,R,Q,C
*     NAME:   ICAPS 
*     SOURCE: 92071-18366 
*     RELOC:  92071-1X366 
*     PGMR:   DJN 
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 ICAPS,7  92071-1X366  REV.2041  800724
      ENT ICAPS,ISMVE,$SMID 
* 
*  THIS IS A DUMMY RTE-IVB COMPATABILITY LEVEL RETURNING
*  THE CAPABILITY OF THE CALLERS. RETURNS 0, AS DO THE OTHER
*  DUMMY ROUTINES FOR SESSION.
*  IT IS ALSO THE SAME AS THE ROUTINE ISMVE (RETURN SESSION CONTROL 
*  BLOCK), EVEN THOUGH IT HAS A DIFFERENT CALL SEQUENCE.
* 
*  CALLING SEQUENCE:
*       JSB ICAPS 
*       DEF *+1 
*       RESULT IN A REGISTER (I.E. IT IS A FUNCTION)
* 
*       JSB ISMVE 
*       DEF RTN 
*       DEF SCB ADDRESS 
*       DEF OFFSET FROM ADDRESS 
*       DEF USER BUFFER ADDRESS 
*       DEF USER BUFFER LENGTH
* RTN    .
* 
A     EQU 0 
B     EQU 1 
* 
$SMID NOP           REQUIRED BY SOME PROGRAMS NEEDING ISMVE 
* 
ICAPS NOP 
ISMVE EQU ICAPS 
      CLA           CAPABILITY
      LDB ICAPS,I   RETURN ADDRESS
      JMP B,I       RETURN
      END 
                                                                                        