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