ASMB,R,L,C
      HED <<SAVE RESOURCES FLAG ROUTINE>> 
* 
*     NAME:   RSFLG 
*     SOURCE: 92068-18026 
*     RELOC:  PART OF 92067-16268 AND 92067-16035 
*     PGMR:   R.A.G.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 RSFLG,7 92068-1X026 REV.2013 800129 
* 
      ENT RSFLG,#RSFG 
      EXT .ENTR 
* 
* 
*  THIS ROUTINE IS USED BY CERTAIN BASIC DEVICES SUBROUTINES TO 
*   SET A FLAG(#RSFG). THIS FLAG IS INTEROGATED BY 'CALSB' WHICH IS 
*   THE BASIC SUBROUTINE PARAMETER PASSING MODULE. IF THIS
*   PLAG IS SET BY CALLING THIS ROUTINE THEN BASIC WILL 
*   PERFORM A SAVE RESOURCES TERMINATION. IF THIS ROUTINE IS NOT
*   CALLED (WHICH IS THE NORMAL CASE) THEN BASIC WILL PERFORM A 
*   SERIAL RE-USABLE TERMINATION. 
* 
*  THE ROUTINES THAT NEED TO CALL THIS ROUTINE ARE DEFINED AS 
*   THOSE THAT STORE VARIABLES LOCALLY OR MODIFY THEMSELVES IN
*   ANY WAY WHAT-SO-EVER. AN EXAMPLE OF THIS WHERE A USER CALLS 
*   A DEVICE SUBROUTINE TO STORE A DEVICE LOGICAL UNIT NUMBER 
*   LOCALLY FOR USE BY SUBSEQUENT SUBROUTINE CALLS. 
* 
* 
RSFLG NOP 
      JSB .ENTR 
      DEF RSFLG 
      CLA,INA       SET FLAG FOR SAVE RESOURCE
      STA #RSFG       TERMINATION 
      JMP RSFLG,I 
* 
#RSFG DEC -1
      END 
                                                                                                                                                                  