           IDENT  RHAQFM                                                 R123_OS        1
           TITLE  RHA$INTERFACE TO QFM MACRO                             R123_OS        2
           ENTRY  RHPQFM,SSJ=                                            R123_OS        3
* RHPQFM                                                                 R123_OS        4
*                                                                        R123_OS        5
*     THE PURPOSE OF THIS A170 COMPASS ROUTINE IS TO PROVIDE AN          R123_OS        6
* INTERFACE BETWEEN A CYBIL PROCEDURE AND THE NOS/A170 QFM MACRO.        R123_OS        7
*                                                                        R123_OS        8
*             RHPQFM (FUNCTION_CODE,FET_ADDRESS)                         R123_OS        9
*                                                                        R123_OS       10
*copyc dsa$cybil_if_macros                                               R123_OS       11
          SYSCOM B1                                                      R123_OS       12
          LIST   F                                                       R123_OS       13
 RHPQFM   BSS                                                            R123_OS       14
 NOSBE    IF     DEF,RA.ORG                                              R123_OS       15
          SA1    X2          LFN=JOBNAME                                 R123_OS       16
          BX6    X1                                                      R123_OS       17
          SA1    A1+B1       GET FET FIRST POINTER                       R123_OS       18
          SA6    X1          STORE IN *FNSS* FIELD                       R123_OS       19
          SA6    X1+34B      STORE IN *OASS* FIELD                       R123_OS       20
          SA6    X1+32B                                                  R123_OS       21
          SHORTEX            RETURN TO CYBIL                             R123_OS       22
 NOSBE    ELSE                                                           R123_OS       23
          RJ     =XPXSAVE                                                R123_OS       24
          BX0    X1                                                      R123_OS       25
          LX0    6                                                       R123_OS       26
          BX5    X2                                                      R123_OS       27
          SYSTEM QFM,1,X5,X0                                             R123_OS       28
*                                                                        R123_OS       29
* RESTORE CYBIL ENVIRONMENT AND RETURN TO CALLER                         R123_OS       30
*                                                                        R123_OS       31
          RJ     =XPXRSTR                                                R123_OS       32
 NOSBE    ENDIF                                                          R123_OS       33
 SSJ=     EQU    0                                                       R123_OS       34
          END                                                            R123_OS       35
