* $Source: /commtar/monoBANK/RTS/tKeibcom.a,v $ 
* $Revision: 1.3 $ $Date: 88/03/08 14:00:44 $ $Author: callen $ 
         PUNCH ' ALIAS ##EIBPTR,##COMPTR'
##EIBCOM ADASTART 'Provide addresses of EIB and COMMAREA',CICS=NO
***********************************************************************
*                                                                     *
*        This code provides the address of the CICS EIB and           *
*        communication area back to Ada. Since we don't need the      *
*        stack, we skip the usual Ada prolog/epilog code.             *
*                                                                     *
***********************************************************************
         ENTRY ##EIBPTR,##COMPTR
##EIBPTR DS    0H
         USING ##EIBPTR,R15              code addressability
         USING GBL,RGLBL                 map the global area
         L     RVAL,GBLEIPLR             point to CICS data area
         USING DFHEISTG,RVAL             map the area
         L     RVAL,DFHEIBP              get the EIB address
         BR    RRET                      return to caller
	 DROP
*
##COMPTR DS    0H
         USING ##COMPTR,R15              code addressability
         USING GBL,RGLBL                 map the global area
         L     RVAL,GBLEIPLR             point to CICS data area
         USING DFHEISTG,RVAL             map the area
         L     RVAL,DFHEICAP             get the commarea address
         BR    RRET                      return to caller
*
DFHEIPLR EQU   R10
DFHEISTG DSECT
         DFHEISTG
	 ADAGLOBL
         END
* $Cprt start$
*  
* Copyright (C) 1988 by Intermetrics, Inc. 
*  
*     This material may be used duplicated or disclosed by or for the 
* U.S. Government pursuant to the copyright license under DAR clause 
* 7-104.9(a) (May 1981). 
*  
*     This project was spnsored by the STARS Foundation 
*     Naval Research Laboratory, Washington DC 
*  
* $Cprt end$