* $Source: /commtar/monoBANK/RTS/tMada@ada.a,v $ 
* $Revision: 1.1 $ $Date: 87/07/31 00:50:13 $ $Author: callen $ 
ADA@ADA  ADASTART 'Allow one Ada routine to call another'
*********************************************************************
*                                                                   *
*        procedure Call_Ada(P: in System.Address);                  *
*                                                                   *
*                                                                   *
*        This code allows one Ada routine to call another.          *
*        The called program must be a parameterless procedure.      *
*        This routine is used by RTS_TGT_Finish_Up to give control  *
*        to each of the Ada cleanup routines.                       *
*                                                                   *
*********************************************************************
         LR    RUDAPRI,PR1              copy parm register to UDA
         BR    RUDAPRI                  call the program
         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$