ASMB,L,C,Q
*     NAME:   SAVST 
*     SOURCE: 92067-18491 
*     RELOC:  92067-16268 
*     PGMR:   D.J.W.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
* 
      NAM SAVST,6 92067-1X491 REV.2013 790924 
* 
* 
*  THE FUNCTION OF SUBROUTINE SAVST IS TO SAVE THE RUN STRING 
*  SO THAT IT IS NOT RELEASED BY THE OPERATING SYSTEM BEFORE
*  THE PROGRAM HAS RETRIEVED IT.  SINCE THE RUN STRING IS NOT 
*  RELEASED IN RTE-IVB UNTIL THE PROGRAM TERMINATES, SAVST IN 
*  RTE-IVB HAS NO FUNCTION EXCEPT TO PROVIDE FOR COMPATIBILITY
*  WITH RTE-L.
* 
*  CALLING SEQUENCE:   CALL SAVST 
* 
* 
* 
      ENT SAVST 
      EXT .ENTR 
* 
* 
SAVST NOP 
      JSB .ENTR     CALL .ENTR TO SET UP RETURN ADDRESS 
      DEF SAVST 
      JMP SAVST,I   RETURN TO CALLER
      END 
                                                                                                                            