ASMB,R,Q,C
      HED <<SAVE RESOURCES FLAG ROUTINE>> 
      NAM RSFLG,7  92076-1X011 REV.2001 791109 92076-12001
* 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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.        * 
*  **************************************************************** 
* 
*   NAME:   SERIAL REUSABLE FLAG FOR CALSB
*   SOURCE: 92076-18011 
*   RELOC:  PART OF 92076-12001 
*   PGMR:   B.J.L.
* 
      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 
                                                                                                                                          