*DECK C$SETDC 
          IDENT  C$SETDC
          B1=1
          COMMENT  SET DECLARATIVE POINTER VECTOR 
          SST 
* 
**        C.SETDC - SET DECLARATIVE POINTER VECTOR
* 
*         INPUT - X1 HAS ADDRESS OF VECTOR
* 
*         OUTPUTS - NOTHING 
* 
*         DOES - PUTS THE VECTOR IN C.USETB 
* 
*          C.SETDC AND C.CLRDC ARE NOT CALLED AFTER LEVEL 599 
*         INLINE CODE IS GENERATED THEREAFTER 
* 
*         SAVES X2, X3, X4, A0, A2, A3, A4, B1, B2, B3, B4, B5, B6
* 
  
          ENTRY  C.SETDC
 C.SETDC  DATA   0
          BX6    X1 
          SA6    =XC.USETB   PLUNK IT IN FOR NOW
          EQ     C.SETDC
* 
**        C.CLRDC - REMOVE LAST ENTRY FROM DECL STACK IF PUT THERE BY 
*                A PREVIOUS SETDC 
* 
*         DOES   - ABOVE
* 
*         INPUT - NOTHING 
* 
*         SAVES X2, X3, X4, A0, A2, A3, A4, B1, B2, B3, B4, B5, B6
* 
          ENTRY  C.CLRDC
 C.CLRDC  DATA   0
          EQ     C.CLRDC
          END 
