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