*DECK DB$RA0
          IDENT  DB$RA0 
 #
* *   DB$RA0                                     PAGE   1 
* *   C O GIMBER                                 10/15/75 
* 
* DC  PURPOSE 
* 
*     DB$RA0 CREATES AN ENTRY POINT LOCATED AT RA+0.
*     THIS IS DONE SO THAT SYMPL ROUTINES CAN:  
*         1.  XREF THE ARRAY DB$RA0 BASED AT RA+0.  THIS IS FOR 
*             REFERENCING THE RA COMMUNICATIONS AREA. 
*         2.  XREF DB$RA0 CAN ALSO BE USED TO TERMINATE A PARAMETER 
*             LIST A LA FORTRAN.  I.E.  SAM(A,B,DB$RA0) 
*             WILL PASS TWO PARAMETERS AND TERMINATE THE PARAMETER
*             LIST WITH A ZERO ADDRESS. 
*#
  
          LOC    0
          ENTRY  DB$RA0 
DB$RA0    EQ     *
  
          END 
