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