*DECK DMLRTRN 
          IDENT  DMLRTRN
  
*#
* *   DMLRTRN - INTERFACE PRE-RETURN ROUTINE
*     DAVID T. CLARK                                      6/11/79 
* 
* DC  PURPOSE 
* 
*     TO SUPPORT THE FORTRAN FACILITY OF ALTERNATE RETURN 
*     IN DML STATEMENTS WHICH SUPPORT ON END AND ON ERROR 
*     BRANCH PARAMETERS.
* 
* DC  ENTRY CONDITIONS
* 
*     NONE
* 
* DC  PARAMETERS
* 
*     RTNPARM  --  CONTAINS THE NUMBER INDICATING WHICH, IF ANY 
*                  ALTERNATE RETURN LABEL TO PASS CONTROL TO. 
* 
* DC  ASSUMPTIONS 
* 
*     UPON RETURN TO SYMPL, NOTHING IS DONE TO ALTER THE
*     X1 REGISTER BEFORE RETURNING TO THE APPLICATION PROGRAM.
* 
* DC  EXIT CONDITIONS 
* 
*     UPON RETURN TO SYMPL, THE X1 REGISTER WILL CONTAIN
*     A VALUE INDICATING WHICH LABEL, IF ANY TO RETURN TO 
*     IN THE APPLICATION PROGRAM. THE ACTUAL BRANCH IS
*     HANDLED BY FORTRAN. 
* 
* DC  CALLING ROUTINES
* 
*     DMLRTRN IS CALLED BY THOSE INTERFACE ROUTINES 
*     WHICH HANDLE STATEMENTS SUPPORTING *ON ERROR* 
*     AND *ON END* PARAMETERS.
* 
* DC  CALLED ROUTINES 
* 
*     NONE
* 
* DC  NON-LOCAL VARIABLES 
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     DMLRTRN IS CALLED BY THE INTERFACE ROUTINE WHICH PASSES AN
*     ALTERNATE RETURN VALUE PARAMETER. THIS VALUE IS PLACED IN 
*     THE X1 REGISTER AND CONTROL IS RETURNED TO THE INTERFACE
*     ROUTINE.
* 
*#
 DMLRTRN  EJECT 
************************************************************************
*                                                                      *
*                            D M L R T R N                             *
*                                                                      *
************************************************************************
* 
* 
          ENTRY  DMLRTRN
          COMMENT  INTERFACE PRE-RETURN ROUTINE 
 DMLRTRN  DATA   0
                                   ON ENTRY, SYMPL PLACES THE ADDRESS OF
*                                  THE PARAMETER ADDRESS LIST IN THE A1 
*                                  THE X1 HOLDS THE ADDRESS OF THE FIRST
*                                  PARAMETER SO WE MOVE THE VALUE TO THE
          SA1    X1                X1 REGISTER AND..... 
          EQ     DMLRTRN           RETURN 
          END 
