COMPCLD 
COMMON
          CTEXT  COMPCLD - SEARCH CENTRAL LIBRARY DIRECTORY.
 CLD      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPCLD
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 CLD      SPACE  4
***       CLD - SEARCH CENTRAL LIBRARY DIRECTORY. 
*         G. R. MANSFIELD.  70/12/18. 
*         M. J. CARIDDI.     81/01/27.
 CLD      SPACE  4
***       *CLD* ISSUES AN *SCDM* REQUEST TO *CPUMTR* REQUESTING 
*         THE *PST* ADDRESS OF A SPECIFIED ENTRY POINT NAME.
* 
*         ENTRY  (AB - AB+4) = NAME LEFT JUSTIFIED, 0 FILL. 
* 
*         EXIT   (A) = ADDRESS OF PST ENTRY.
*                (A) = 0 IF ENTRY NOT FOUND.
*                (T1 - T2) = ADDRESS OF PST ENTRY.
* 
*         USES   CM - CM+4. 
* 
*         CALLS  NONE.
* 
*         MACROS MONITOR. 
  
  
 CLD      SUBR               ENTRY/EXIT 
          LDN    ZERL 
          CRD    CM 
          LDD    MA          WRITE ENTRY POINT NAME IN MESSAGE BUFFER 
          CWD    AB 
          MONITOR  SCDM      SEARCH CENTRAL DIRECTORY 
          LDD    CM+3        SET *PST* ADDRESS
          STD    T1 
          SHN    14 
          LMD    CM+4 
          STD    T2 
          UJN    CLDX        RETURN 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CLD      EQU    /COMPCLD/CLD 
 QUAL$    ENDIF 
          ENDX
