cdc:nos2.source:opl.opl871:common:compcte
Common COMPCTE
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compcte +++| CTEXT COMPCTE - CREATE MANAGED TABLE ENTRY. 00002 M01S00002.compcte +++| CTE SPACE 4,10 00003 M01S00003.compcte +++| IF -DEF,QUAL$,1 00004 M01S00004.compcte +++| QUAL COMPCTE 00005 M01S00005.compcte +++| BASE M
Line S00006 Modification History | |
---|---|
M01 (Added by) | compcte |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1981. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.compcte +++| CTE SPACE 4,10 00009 M01S00008.compcte +++|*** CTE - CREATE MANAGED TABLE ENTRY. 00010 M01S00009.compcte +++|* P. D. HAAS. 81/03/10. 00011 M01S00010.compcte +++| CTE SPACE 4,20 00012 M01S00011.compcte +++|*** *CTE* CREATES AN ENTRY IN A SPECIFIED MANAGED 00013 M01S00012.compcte +++|* TABLE, AS DEFINED IN *COMSCPS* UNDER THE *MTRM* MONITOR 00014 M01S00013.compcte +++|* FUNCTION. IF THE SPECIFIED TABLE IS THE QFT, A JOB 00015 M01S00014.compcte +++|* SEQUENCE NUMBER IS APPENDED TO THE ENTRY. AN OVERRIDE 00016 M01S00015.compcte +++|* OF THE LATTER IS AVAILABLE BY SETTING THE UPPER 6 BITS 00017 M01S00016.compcte +++|* OF THE *A* REGISTER NON-ZERO ON ENTRY. 00018 M01S00017.compcte +++|* 00019 M01S00018.compcte +++|* ENTRY (A) = 6/ J,1/ F,11/ TABLE IDENTIFIER 00020 M01S00019.compcte +++|* J .NE. 0 IF NO JSN TO BE REQUESTED. 00021 M01S00020.compcte +++|* F .NE. 0 IF SYSTEM JOB CALL (RESERVED ENTRY WILL 00022 M01S00021.compcte +++|* BE ASSIGNED IF TABLE FULL). 00023 M01S00022.compcte +++|* (CM+3 - CM+7) = VALUE FOR FIRST WORD OF ENTRY. 00024 M01S00023.compcte +++|* 00025 M01S00024.compcte +++|* EXIT (A) = (CM+3 - CM+4) = ABSOLUTE ADDRESS OF ENTRY. 00026 M01S00025.compcte +++|* = 0 IF TABLE FULL. 00027 M01S00026.compcte +++|* (CM+1) = ORDINAL OF TABLE ENTRY. 00028 M01S00027.compcte +++|* 00029 M01S00028.compcte +++|* USES T2, CM - CM+4. 00030 M01S00029.compcte +++|* 00031 M01S00030.compcte +++|* MACROS MONITOR. 00032 M01S00031.compcte +++|* 00033 M01S00032.compcte +++|* XREF COMSCPS. 00034 M01S00033.compcte +++| 00035 M01S00034.compcte +++| 00036 M01S00035.compcte +++| CTE2 STD CM+1 SELECT CREATION MODE 00037 M01S00036.compcte +++| LDD MA STORE VALUE FOR TABLE ENTRY 00038 M01S00037.compcte +++| CWD CM+3 00039 M01S00038.compcte +++| MONITOR RJSM REQUEST JOB SEQUENCE NUMBER/QFT ENTRY 00040 M01S00039.compcte +++| CTE3 LDD CM+3 ABSOLUTE ADDRESS OF TABLE ENTRY 00041 M01S00040.compcte +++| SHN 14 00042 M01S00041.compcte +++| LMD CM+4 00043 M01S00042.compcte +++| NJN CTEX IF TABLE ENTRY CREATED 00044 M01S00043.compcte +++|* STD CM+1 00045 M01S00044.compcte +++| LDD T2 ISSUE EVENT 00046 M01S00045.compcte +++| STD CM+4 00047 M01S00046.compcte +++| MONITOR EATM 00048 M01S00047.compcte +++|* LDN 0 00049 M01S00048.compcte +++| 00050 M01S00049.compcte +++| CTE SUBR ENTRY/EXIT 00051 M01S00050.compcte +++| STD CM+2 00052 M01S00051.compcte +++| LPC 773777 MASK OFF SYSTEM JOB FLAG 00053 M01S00052.compcte +++| STD T2 SAVE TABLE IDENTIFIER 00054 M01S00053.compcte +++| LMN PQFT 00055 M01S00054.compcte +++| ZJN CTE2 IF QFT AND NO JSN OVERRIDE 00056 M01S00055.compcte +++| LDD CM+3 00057 M01S00056.compcte +++| NJN CTE1 IF VALUE DEFINED 00058 M01S00057.compcte +++| LCN 1 00059 M01S00058.compcte +++| STD CM+3 00060 M01S00059.compcte +++| CTE1 LDD MA STORE VALUE FOR TABLE ENTRY 00061 M01S00060.compcte +++| CWD CM+3 00062 M01S00061.compcte +++| LDN 0 SELECT CREATION MODE 00063 M01S00062.compcte +++| STD CM+1 00064 M01S00063.compcte +++| MONITOR MTRM REQUEST TABLE ENTRY 00065 M01S00064.compcte +++| UJN CTE3 CHECK RESPONSE 00066 M01S00065.compcte +++| CTE SPACE 4,10 00067 M01S00066.compcte +++| QUAL$ IF -DEF,QUAL$ 00068 M01S00067.compcte +++| QUAL * 00069 M01S00068.compcte +++| CTE EQU /COMPCTE/CTE 00070 M01S00069.compcte +++| QUAL$ ENDIF 00071 M01S00070.compcte +++| ENDX
cdc/nos2.source/opl.opl871/common/compcte.txt ยท Last modified: by 127.0.0.1