*DECK SMRTN 
          IDENT  SMRTN
          TITLE  SMRTN -  RETURN FROM OWNCODE TO SORT 
          COMMENT  RETURN FROM OWNCODE TO SORT
          SPACE  4
**        SMRTN -  RETURN FROM OWNCODE TO SORT
* 
*     CALLING SEQUENCE: 
*         CALL SMRTN(<PARAMETERS>)
* 
*     GIVEN:  
*         <PARAMETERS> AS IN SORT/MERGE 4 REFERENCE MANUAL. 
* 
*     DOES: 
*         JUMPS TO ADDRESS IN S$RTNAD.
*         LEAVES REGISTER A1 POINTING TO ACTUAL PARAMETER LIST. 
  
  
          ENTRY  SMRTN
 SMRTN    SUBR
          SA2    S$RTNAD     ADDRESS TO RETURN TO 
          SB7    X2 
          JP     B7          JUMP TO ADDRESS
  
  
 S$RTNAD  EXTERNAL           ADDRESS TO RETURN TO 
  
  
          END 
