*DECK DB$$SYS 
          IDENT  DB$$SYS
          TITLE  CDCSBTF SUBSTITUTE FOR CPU.SYS 
          COMMENT CDCSBTF SUBSTITUTE FOR CPU.SYS
          SST 
*#
* *   DB$$SYS - CDCSBTF SUBSTITUTE FOR CPU.SYS   PAGE  1
* *   BOB MCALLESTER                             DATE  09/15/82 
* 
* DC  PURPOSE 
* 
*     PROVIDE A SUBSTITUTE VERSION OF SYS= THAT WILL INTERCEPT RA+1 
*     CALLS AND TRANSFER *END* CALLS TO DB$$END.
*#
          ENTRY  SYS= 
 SYS=     EQ   *+1S17 
          BX1    X6 
          AX1    42 
          SX1    X1-3REND 
          NZ   X1,BTFSYS
          RJ   =XDB$$END
          SX6    3REND*4+1   RESTORE *ENDP* TO X6 
          LX6    40 
 BTFSYS   RJ   /BTF/SYS=
          EQ   SYS= 
          SPACE  5,6
          ENTRY  RCL= 
          ENTRY  WNB= 
          ENTRY  MSG= 
 QUAL$    EQU    1
          QUAL   BTF
*CALL COMCSYS 
          QUAL   *
 RCL=     EQU    /BTF/RCL=
 WNB=     EQU    /BTF/WNB=
 MSG=     EQU    /BTF/MSG=
  
          END 
