COMPSES 
COMMON
          CTEXT  COMPSES - SET ERROR STATUS IN LOCAL MST (STLL).
          IF     -DEF,QUAL$,1 
          QUAL   COMPSES
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SES      SPACE  4
***       SES - SET ERROR STATUS IN LOCAL MST WORD *STLL*.
*         P. D. HAAS.        75/11/04.
 SES      SPACE  4
***              SES ISSUES A MONITOR REQUEST TO SET OR CLEAR 
*         AN ERROR STATUS IN THE *STLL* WORD OF THE MST.
* 
*         ENTRY  (A) = ERROR CODE.
*                    = 0 IF ERROR STATUS TO BE CLEARED. 
*                (T5) = EST ORDINAL.
* 
*         EXIT   (A) = 0. 
* 
*         USES   CM - CM+4. 
  
  
 SES      SUBR               ENTRY/EXIT 
          STD    CM+2        SET ERROR CODE 
          LDD    T5          INSERT EST ORDINAL 
          STD    CM+1 
          LDN    SERS        SET SUBFUNCTION
          STD    CM+3 
          MONITOR  SMDM      ISSUE REQUEST
          UJN    SESX        RETURN 
 SES      SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SES      EQU    /COMPSES/SES 
 QUAL$    ENDIF 
          ENDX
