*DECK DB$$ARM 
          IDENT  DB$$ARM
*#
* *   DB$$SAR - SAVE CONTENTS OF A0              PAGE  1
* *   DB$$RAR - RESTORE CONTENTS OF A0
* *   GREGORY F. KENDALL                         DATE  04/04/79 
* 
* DC  PURPOSE 
* 
*     DB$$SAR - SAVE CONTENTS OF REGISTER A0. 
*     DB$$RAR - RESTORE CONTENTS OF REGISTER A0.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     DB$$SAR - ADDRESS OF WORD INTO WHICH A0 WILL BE STORED
*     DB$$RAR - ADDRESS OF WORD FROM WHICH A0 WILL BE RETRIEVED 
* 
* DC  EXIT CONDITIONS 
* 
*     DB$$SAR - CONTENTS OF A0 SAVED. 
*     DB$$RAR - CONTENTS OF A0 RESTORED.
* 
* DC  CALLING ROUTINES
* 
*     DB$$SAR - CALLED BY DB$SSCL OF CDCSBTF. 
*     DB$$RAR - CALLED BY CDCSBTF.
* 
* DC  CALLED ROUTINES 
* 
*     NONE
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     SAVE THE A0 REGISTER BEFORE, AND RESTORE IT AFTER CDCSBTF REQUEST 
*     PROCESSING TO AVOID PROBLEMS CAUSED BY FTN PRESUMPTION THAT A0 IS 
*     UNCHANGED.
* 
*#
          ENTRY  DB$$SAR
 DB$$SAR  BSS    1
          SA1    A1 
          SA2    X1 
          SX7    A0 
          SA7    X2 
          JP     DB$$SAR
* 
          ENTRY  DB$$RAR
 DB$$RAR  BSS    1
          SA1    A1 
          SA2    X1 
          SA3    X2 
          SA0    X3 
          JP     DB$$RAR
* 
          END 
