          CTEXT  DSI$FIND CIP MODULE                                     R123_OS        1
          SPACE  4,10                                                    R123_OS        2
 QUAL$    IF     -DEF,QUAL$                                              R123_OS        3
          QUAL   DSIFCM                                                  R123_OS        4
 QUAL$    ENDIF                                                          R123_OS        5
          BASE   M                                                       R123_OS        6
*         COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992               SCW_1090       1
 DSIFCM   SPACE  4,10                                                    R123_OS        8
***       DSI$FIND_CIP_MODULE.                                           R123_OS        9
*         B. R. HANSON       85/05/14.                                   R123_OS       10
 FCM      SPACE  4,10                                                    R123_OS       11
***       PROVIDES A ROUTINE TO FIND A MODULE IN THE CIP CM DIRECTORY.   R123_OS       12
 FCM      SPACE  4,10                                                    R123_OS       13
**        FCM - FIND CIP MODULE.                                         R123_OS       14
*                                                                        R123_OS       15
*         ENTRY  (A) = ADDRESS OF FOUR CHARACTER DISPLAY CODE NAME.      R123_OS       16
*                                                                        R123_OS       17
*         EXIT   (A) = OFFSET FROM R-REGISTER OF MODULE HEADER.          R123_OS       18
*                (R) = ADDRESS/100B OF MODULE HEADER.                    R123_OS       19
*                (A) = 0, IF NOT FOUND.                                  R123_OS       20
*                                                                        R123_OS       21
*         USES   CM - CM+3, T1, W0 - W3.                                 R123_OS       22
*                                                                        R123_OS       23
*         CALLS  IIB.                                                    R123_OS       24
                                                                         R123_OS       25
                                                                         R123_OS       26
 FCM3     LDDL   CM          RETURN OFFSET                               DOH_334        1
          ADC    RR                                                      DOH_334        2
                                                                         DOH_334        3
 FCM      SUBR               ENTRY/EXIT                                  R123_OS       27
          STD    T1                                                      R123_OS       28
 CD       IF     DEF,CD                                                  R123_OS       29
          LRD    CD+1                                                    R123_OS       30
          SRD    CM+1                                                    R123_OS       31
          LDDL   CD                                                      R123_OS       32
 CD       ELSE                                                           R123_OS       33
          LDN    DSCM+2                                                  R123_OS       34
          RJM    IIB                                                     R123_OS       35
          CRDL   CM          READ CIP POINTER                            R123_OS       36
          LDDL   CM                                                      R123_OS       37
 CD       ENDIF                                                          R123_OS       38
                                                                         R123_OS       39
 FCM1     STDL   CM                                                      R123_OS       40
          LRD    CM+1                                                    R123_OS       41
          ADC    RR                                                      R123_OS       42
          CRDL   W0                                                      R123_OS       43
          LDD    W0                                                      R123_OS       44
          ADD    W1                                                      R123_OS       45
          ZJN    FCMX        IF END OF DIRECTORY                         R123_OS       46
          LDD    W0                                                      R123_OS       47
          LMI    T1                                                      R123_OS       48
          NJN    FCM2        IF NO MATCH                                 R123_OS       49
          LDD    W1                                                      R123_OS       50
          LMM    1,T1                                                    R123_OS       51
          ZJN    FCM3        IF MATCH                                    DOH_334        4
                                                                         R123_OS       56
 FCM2     LDDL   W3          OFFSET TO NEXT MODULE HEADER                R123_OS       57
          RADL   CM                                                      R123_OS       58
          SHN    -6                                                      R123_OS       59
          RADL   CM+2                                                    R123_OS       60
          SHN    -14                                                     R123_OS       61
          RADL   CM+1                                                    R123_OS       62
          LDD    CM                                                      R123_OS       63
          LPN    77                                                      R123_OS       64
          UJN    FCM1        FETCH NEXT ENTRY                            R123_OS       65
          SPACE  4,10                                                    R123_OS       66
          BASE   *                                                       R123_OS       67
 QUAL$    IF     -DEF,QUAL$                                              R123_OS       68
          QUAL   *                                                       R123_OS       69
 FCM      EQU    /DSIFCM/FCM                                             R123_OS       70
 QUAL$    ENDIF                                                          R123_OS       71
          ENDX                                                           R123_OS       72
