*DECK N$EESET 
          IDENT  N$EESET
          ENTRY  N$EESET
          SST 
  
*CALL COMCMAC 
  
 NOS      IFEQ   OS$NOS 
          IF     -DEF,NEEQ,1
 NEEQ     EQU    0                 PREVENT ASSEMBLY WARNING 
          IF     -DEF,TEEQ,1
 TEEQ     EQU    0                 PREVENT ASSEMBLY WARNING 
          IF     -DEF,TTEQ,1
 TTEQ     EQU    0                 PREVENT ASSEMBLY WARNING 
  
 BSS.     OPSYN  BSS               SAVE STANDARD *BSS* DEFINITION 
 BSS      OPSYN  BSSN              REDEFINE *BSS* TO BE *BSSN*
  
 BEGIN    BSSN   0
  
          XTEXT  COMSEVT
  
 END      BSSN                     RESTORE ORIGIN COUNTER 
  
 BSS      OPSYN  BSS.              RESTORE NORMAL *BSS* DEFINITION
  
 NOS      ENDIF 
  
 N$EESET  SUBR
  
          IFEQ   OS$NOS 
          EESET  EVENT
          ENDIF 
          EQ     N$EESETX 
  
 NOS      IFEQ   OS$NOS 
 EVENT    VFD    42/0,18/RHFE  RHF EVENT DESCRIPTOR 
 NOS      ENDIF 
  
          END 
