          IDENT  RHAGLVL
*IF ($string($name(wev$target_operating_system))='NOS')
          TITLE  RHA$GET NOS LEVEL
          ENTRY  RHPGLVL
*
* RHPGLVL
*
*     THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO PROVIDE
*  A WAY OF GETTING THE CURRENT NOS LEVEL THAT IS RUNNING.
*
*         RHPGLVL (LEVEL_NUMBER)
 RHPGLVL  BSS    0
*
* SAVE CYBIL ENVIRONMENT
          RJ     =XPXSAVE
*
 OPL      XTEXT  COMSVER
          SX6    NOSLVL
          SA6    X1
* RESTORE CYBIL ENVIRONMENT
          RJ     =XPXRSTR
*
* RETURN TO CALLING PROCEDURE
*
          JP     B7
*IFEND
          END

