Common COMPCLD

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compcld +++|          CTEXT  COMPCLD - SEARCH CENTRAL LIBRARY DIRECTORY.
00002  M01S00002.compcld +++| CLD      SPACE  4
00003  M01S00003.compcld +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compcld +++|          QUAL   COMPCLD

Line S00005 Modification History
`M01` (Added by)	`compcld`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compcld +++| CLD      SPACE  4
00008  M01S00007.compcld +++|***       CLD - SEARCH CENTRAL LIBRARY DIRECTORY.
00009  M01S00008.compcld +++|*         G. R. MANSFIELD.  70/12/18.
00010  M01S00009.compcld +++|*         M. J. CARIDDI.     81/01/27.
00011  M01S00010.compcld +++| CLD      SPACE  4
00012  M01S00011.compcld +++|***       *CLD* ISSUES AN *SCDM* REQUEST TO *CPUMTR* REQUESTING
00013  M01S00012.compcld +++|*         THE *PST* ADDRESS OF A SPECIFIED ENTRY POINT NAME.
00014  M01S00013.compcld +++|*
00015  M01S00014.compcld +++|*         ENTRY  (AB - AB+4) = NAME LEFT JUSTIFIED, 0 FILL.
00016  M01S00015.compcld +++|*
00017  M01S00016.compcld +++|*         EXIT   (A) = ADDRESS OF PST ENTRY.
00018  M01S00017.compcld +++|*                (A) = 0 IF ENTRY NOT FOUND.
00019  M01S00018.compcld +++|*                (T1 - T2) = ADDRESS OF PST ENTRY.
00020  M01S00019.compcld +++|*
00021  M01S00020.compcld +++|*         USES   CM - CM+4.
00022  M01S00021.compcld +++|*
00023  M01S00022.compcld +++|*         CALLS  NONE.
00024  M01S00023.compcld +++|*
00025  M01S00024.compcld +++|*         MACROS MONITOR.
00026  M01S00025.compcld +++|
00027  M01S00026.compcld +++|
00028  M01S00027.compcld +++| CLD      SUBR               ENTRY/EXIT
00029  M01S00028.compcld +++|          LDN    ZERL
00030  M01S00029.compcld +++|          CRD    CM
00031  M01S00030.compcld +++|          LDD    MA          WRITE ENTRY POINT NAME IN MESSAGE BUFFER
00032  M01S00031.compcld +++|          CWD    AB
00033  M01S00032.compcld +++|          MONITOR  SCDM      SEARCH CENTRAL DIRECTORY
00034  M01S00033.compcld +++|          LDD    CM+3        SET *PST* ADDRESS
00035  M01S00034.compcld +++|          STD    T1
00036  M01S00035.compcld +++|          SHN    14
00037  M01S00036.compcld +++|          LMD    CM+4
00038  M01S00037.compcld +++|          STD    T2
00039  M01S00038.compcld +++|          UJN    CLDX        RETURN
00040  M01S00039.compcld +++|          SPACE  4
00041  M01S00040.compcld +++| QUAL$    IF     -DEF,QUAL$
00042  M01S00041.compcld +++|          QUAL   *
00043  M01S00042.compcld +++| CLD      EQU    /COMPCLD/CLD
00044  M01S00043.compcld +++| QUAL$    ENDIF
00045  M01S00044.compcld +++|          ENDX