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