*DECK DB$$RTA 
      FUNC DB$$RTA(A);
      BEGIN 
 #
* *   DB$$RTA - GET SUBROUTINE RETURN ADDRESS    PAGE  1
* 
* *   C O GIMBER
* 
*   DC  PURPOSE 
* 
*     EXTRACT THE RETURN ADDRESS PORTION OF A SUBROUTINE"S ENTRY ADDRESS
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETER = SUBROUTINE"S ENTRY ADDRESS WORD 
* 
* DC  EXIT CONDITIONS 
* 
*     RETURN ADDRESS RETURNED AS A FUNCTION 
 #
      ARRAY A;
        ITEM ADDR (0,12,18);
  
      DB$$RTA = ADDR; 
      END 
      TERM; 
