*DECK QUERR 
          IDENT  QUERR
          COMMENT  ERROR PROCESSING FOR CMM ERRORS
          TITLE  QUERR - ERROR PROCESSING FOR CMM ERRORS
          ENTRY  QUERR,QUESV
          ENTRY  QUESF
  
  
*         Q U E R R 
  
**             QUERR - ERROR EXIT ROUTINE 
* 
*              THIS ROUTINE IS CALLED AFTER AN ERROR CONDITION
*         WHEN  CMM  IS READY TO ABORT AFTER BEING UNABLE TO SATISFY
*         AN USER REQUEST, AND THE  CMM  ROUTINE  CMM.OWN  HAS BEEN 
*         INITIALIZED.
* 
* 
*         ENTRY (X1) = 12/ME,12/UE,36/ADDR
* 
*         ME = CMM MEMORY ERROR CODE
*         UE = CMM USER ERROR CODE
*         ADDR = LOC FROM WHERE CMM WAS LAST CALLED (RIGHT JUSTIFIED) 
* 
*         EXIT NONE 
* 
*         USES   X6 
*                A6 
* 
*         CALLS  IERR 
* 
  
 QUESV    CON    0           STORAGE FOR MEMORY ERROR CODE
 QUESF    CON    0           STORAGE FOR CMM RETURN 
  
  
 QUERR    BX6    X1 
          SA6    QUESF       SAVE CMM ERROR RETURN
          MX6    12          SAVE MEMORY ERROR CODE 
          BX6    X6*X1
          SA6    QUESV
          RJ     =XIERR      ISSUE ERROR MESSAGE
  
  
  
          END 
