Seq # *Modification Id* Act
----------------------------+
01953 M00S01817.1pp +++|
01954 M00S01818.1pp +++|
01955 M00S01819.1pp +++| SME SUBR ENTRY/EXIT
01956 M00S01820.1pp +++| LDD EJ+4 READ MST WORD
01957 M00S01821.1pp +++| SHN 3
01958 M00S01822.1pp +++| ADN THLL
01959 M00S01823.1pp +++| CRD BB
01960 M00S01824.1pp +++| ADN CTLL-THLL
01961 M00S01825.1pp +++| CRD CM
01962 M00S01826.1pp +++| LDD CM+4
01963 M00S01827.1pp +++| SHN 0-13
01964 M00S01828.1pp +++| NJN SME1 IF CONDITION ALREADY PROCESSED
01965 M00S01829.1pp +++| LDD CM+4 CHECK UNRECOVERED ERROR COUNT
01966 M00S01830.1pp +++| SBD BB+4
01967 M00S01831.1pp +++| MJN SME1 IF COUNT DOES NOT EQUAL/EXCEED THRESHOLD
01968 M00S01832.1pp +++| LDC 2R U
01969 M00S01833.1pp +++| STM SMEA+3
01970 M00S01834.1pp +++| LDC 2RNR
01971 M00S01835.1pp +++| STM SMEA+4
01972 M00S01836.1pp +++| LDN 11D
01973 M00S01837.1pp +++| UJN SME3 PROCESS THRESHOLD ERROR
01974 M00S01838.1pp +++|
01975 M00S01839.1pp +++| SME1 LDD CM+3
01976 M00S01840.1pp +++| SHN 0-13
01977 M00S01841.1pp +++| SME2 NJN SMEX IF CONDITION ALREADY PROCESSED
01978 M00S01842.1pp +++| LDD CM+3 CHECK RECOVERED ERROR COUNT
01979 M00S01843.1pp +++| SBD BB+3
01980 M00S01844.1pp +++| MJN SMEX IF COUNT DOES NOT EQUAL/EXCEED THRESHOLD
01981 M00S01845.1pp +++| LDN 23D
01982 M00S01846.1pp +++| SME3 SHN 6 SET BIT POSITION
01983 M00S01847.1pp +++| STM SMEB+1 SAVE BIT POSITION
01984 M00S01848.1pp +++| LMC 11D*100
01985 M00S01849.1pp +++| ZJN SME4 IF UNRECOVERED COUNT EXCEEDED
01986 M00S01850.1pp +++| LDC 2R R
01987 M00S01851.1pp +++| STM SMEA+4
01988 M00S01852.1pp +++| ADN 1R -1RR
01989 M00S01853.1pp +++| STM SMEA+3
01990 M00S01854.1pp +++| SME4 LDN ZERL
01991 M00S01855.1pp +++| CRD CM
01992 M00S01856.1pp +++| LDN ELAE
01993 M00S01857.1pp +++| STD CM+4
01994 M00S01858.1pp +++| MONITOR EATM
01995 M00S01859.1pp +++| LDD CM+1
01996 M00S01860.1pp +++| NJN SME2 IF EVENT NOT ENTERED
01997 M00S01861.1pp +++| LDD T8 SET EST ORDINAL IN MESSAGE
01998 M00S01862.1pp +++| SHN -3
01999 M00S01863.1pp +++| RJM C2D CONVERT TO DISPLAY CODE
02000 M00S01864.1pp +++| STM SMEA+1
02001 M00S01865.1pp +++| LDD T8 SET EST ORDINAL IN MESSAGE
02002 M00S01866.1pp +++| LPN 7
02003 M00S01867.1pp +++| SHN 6
02004 M00S01868.1pp +++| ADC 2R0,
02005 M00S01869.1pp +++| STM SMEA+2
02006 M00S01870.1pp +++| LDD EJ+3 SET EQUIPMENT TYPE IN MESSAGE
02007 M00S01871.1pp +++| LPC 3777
02008 M00S01872.1pp +++| STM SMEA
02009 M00S01873.1pp +++| LDC SMEA+ERLN ISSUE ERRLOG MESSAGE
02010 M00S01874.1pp +++| RJM DFM
02011 M00S01875.1pp +++| LDN ZERL SET *1SJ* PROCESSED BIT
02012 M00S01876.1pp +++| CRD CM
02013 M00S01877.1pp +++| LDN 1 SET NUMBER OF REQUESTS
02014 M00S01878.1pp +++| STD CM+1
02015 M00S01879.1pp +++| LDD EJ+4 SET MST ADDRESS
02016 M00S01880.1pp +++| SHN 3
02017 M00S01881.1pp +++| STD CM+4
02018 M00S01882.1pp +++| SHN -14
02019 M00S01883.1pp +++| STD CM+3
02020 M00S01884.1pp +++| LDD MA
02021 M00S01885.1pp +++| CWM SMEB,ON
02022 M00S01886.1pp +++| MONITOR UTEM
02023 M00S01887.1pp +++| LJM SMEX RETURN
02024 M00S01888.1pp +++|
02025 M00S01889.1pp +++|
02026 M00S01890.1pp +++| SMEA DATA C*XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.*
02027 M00S01891.1pp +++| SMEB VFD 1/0,5/CTLL,6/1,6/11D,42/1
02028 M00S01892.1pp +++| SRS SPACE 4,10
02029 M00S01893.1pp +++|** SRS - SET ROLLOUT STATUS.
02030 M00S01894.1pp +++|*
02031 M00S01895.1pp +++|* ENTRY (SC) = SERVICE CLASS.
02032 M00S01896.1pp +++|* (SRSA+4) = JOB STATUS OF SELECTED ENTRY.
02033 M00S01897.1pp +++|*
02034 M00S01898.1pp +++|* EXIT (A) = 0, IF *UTEM* CALL COMPLETED.
02035 M00S01899.1pp +++|* .NE. 0, IF *UTEM* ABORTED.
02036 M00S01900.1pp +++|* USES T1.
02037 M00S01901.1pp +++|*
02038 M00S01902.1pp +++|* CALLS CET, IUT.
02039 M00S01903.1pp +++|
02040 M00S01904.1pp +++|
02041 M00S01905.1pp +++| SRS SUBR ENTRY/EXIT
02042 M00S01906.1pp +++| LDM TEPB+2*MXJC,SC SET UP *CET* PARAMETERS
02043 M00S01907.1pp +++| STD T1
02044 M00S01908.1pp +++| LDD SC
02045 M00S01909.1pp +++| SHN 14
02046 M00S01910.1pp +++| LMN EXQT
02047 M00S01911.1pp +++| RJM CET CALCULATE ENTRY TIME
02048 M00S01912.1pp +++| LDD T1 PLACE ENTRY TIME IN *UTEM* PARAMETER BLOCK
02049 M00S01913.1pp +++| STM SRSA+2*5+3
02050 M00S01914.1pp +++| LDD T2
02051 M00S01915.1pp +++| STM SRSA+2*5+4
02052 M00S01916.1pp +++| LDD EJ+4 CHECK FOR *PWJS* STATUS
02053 M00S01917.1pp +++| LPN 76
02054 M00S01918.1pp +++| LMK PWJS*2
02055 M00S01919.1pp +++| ZJN SRS1 IF SHOULD CHANGE *PWJS* TO *PRJS*
02056 M00S01920.1pp +++| LDK ROJS&PRJS SET *ROJS* STATUS FOR *ERJS* OR *TOJS*
02057 M00S01921.1pp +++| SRS1 LMK PRJS
02058 M00S01922.1pp +++| STM SRSA+1*5+4
02059 M00S01923.1pp +++| LDC SRSA+SRSAL*10000
02060 M00S01924.1pp +++| RJM IUT ISSUE *UTEM*
02061 M00S01925.1pp +++| LJM SRSX RETURN
02062 M00S01926.1pp +++|
02063 M00S01927.1pp +++|
02064 M00S01928.1pp +++|* *UTEM* PARAMETERS FOR CHANGING JOB STATUS AND SETTING
02065 M00S01929.1pp +++|* SCHEDULING PRIORITY TO UPPER BOUND.
02066 M00S01930.1pp +++|
02067 M00S01931.1pp +++| SRSA VFD 1/1,5/JSNE,6/6 VALIDATE JOB STATUS UNCHANGED
02068 M00S01932.1pp +++| VFD 6/0,6/0
02069 M00S01933.1pp +++| CON 0
02070 M00S01934.1pp +++| CON 0
02071 M00S01935.1pp +++| CON 0
02072 M00S01936.1pp +++|
02073 M00S01937.1pp +++| VFD 1/0,5/JSNE,6/5 SET JOB STATUS
02074 M00S01938.1pp +++| VFD 6/1,6/0
02075 M00S01939.1pp +++| CON 0
02076 M00S01940.1pp +++| CON 0
02077 M00S01941.1pp +++| CON ROJS
02078 M00S01942.1pp +++|
02079 M00S01943.1pp +++| VFD 1/0,5/SCHE,6/30D SET SCHEDULING PRIORITY
02080 M00S01944.1pp +++| VFD 6/0,6/0
02081 M00S01945.1pp +++| CON 0
02082 M00S01946.1pp +++| CON 0
02083 M00S01947.1pp +++| CON 0
02084 M00S01948.1pp +++|
02085 M00S01949.1pp +++| SRSAL EQU */5-SRSA/5 BLOCK LENGTH
02086 M00S01950.1pp +++| SSA SPACE 4,10
02087 M00S01951.1pp +++|** SSA - SET STATISTICAL AREA ADDRESS.
02088 M00S01952.1pp +++|*
02089 M00S01953.1pp +++|* EXIT (A) = ADDRESS OF PERIODIC PROCESSOR STATISTICS AREA.
02090 M00S01954.1pp +++|*
02091 M00S01955.1pp +++|* USES CM - CM+4.
02092 M00S01956.1pp +++|
02093 M00S01957.1pp +++|
02094 M00S01958.1pp +++| SSA SUBR ENTRY/EXIT
02095 M00S01959.1pp +++| LDK SDAP READ STATISTICAL DATA AREA POINTER
02096 M00S01960.1pp +++| CRD CM
02097 M00S01961.1pp +++| LDD CM
02098 M00S01962.1pp +++| SHN 14
02099 M00S01963.1pp +++| LMD CM+1
02100 M00S01964.1pp +++| ADK PF0S
02101 M00S01965.1pp +++| UJN SSAX EXIT
02102 M00S01966.1pp +++| SPACE 4,10
02103 M00S01967.1pp +++|* COMMON DECKS.
02104 M00S01968.1pp +++|
02105 M00S01969.1pp +++|
02106 M00S01970.1pp +++|*CALL COMPAST
02107 M00S01971.1pp +++| CET$ SET 1 ASSEMBLE ROUTINE *CET* OF *COMPCPE*
02108 M00S01972.1pp +++|*CALL COMPCPE
| Line S00003 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02109 M01S00003.271l750 +++| JCB$ EQU 1 SET *JCB* ACCESS
02110 M01S00004.271l750 +++| IFP$ EQU 1 GENERATE *IFP* REMOTE CODE
02111 M01S00005.271l750 +++|*CALL COMPGFP
02112 M00S01973.1pp +++|*CALL COMPC2D
| Line S01974 Modification History |
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
02113 M01S01974.273l780 ---|*CALL COMPPCP
02114 M00S01975.1pp +++|*CALL COMPRJC
02115 M00S01976.1pp +++| SLBS EQU /CPS/SLBS
02116 M00S01977.1pp +++|*CALL COMPTLB
02117 M00S01978.1pp +++|*CALL COMPSEI
02118 M00S01979.1pp +++| TABLES SPACE 4,10
02119 M00S01980.1pp +++| USE TABLES
02120 M00S01981.1pp +++|
02121 M00S01982.1pp +++|** TEVT - POSTED EVENTS.
02122 M00S01983.1pp +++|* ENTRY = 2 WORDS.
02123 M00S01984.1pp +++|*
02124 M00S01985.1pp +++|*T 24/ EV
02125 M00S01986.1pp +++|* EV POSTED EVENT OBTAINED FROM EVT TABLE.
02126 M00S01987.1pp +++|
02127 M00S01988.1pp +++|
02128 M00S01989.1pp +++| TEVT EQU *
02129 M00S01990.1pp +++| TEVTE EQU 2 ENTRY LENGTH
02130 M00S01991.1pp +++| TABLES SPACE 4,10
02131 M00S01992.1pp +++|** TOVF - ACCUMULATOR OVERFLOW FLAGS.
02132 M00S01993.1pp +++|* ENTRY = 1 WORD.
02133 M00S01994.1pp +++|* INDEXED BY CONTROL POINT NUMBER.
02134 M00S01995.1pp +++|*
02135 M00S01996.1pp +++|*T 12/ OF
02136 M00S01997.1pp +++|* OF OVERFLOW FLAGS FROM *SRUW*.
02137 M00S01998.1pp +++|
02138 M00S01999.1pp +++|
02139 M00S02000.1pp +++| TOVF EQU TEVT+TEVTE*MEVC
02140 M00S02001.1pp +++| TOVFE EQU 1 ENTRY LENGTH
02141 M00S02002.1pp +++| SPACE 4,10
02142 M00S02003.1pp +++| P0AU EQU TOVF+/DSL/NCPS*TOVFE *0AU* PARAMETER BLOCK
02143 M00S02004.1pp +++| OVL0 EQU P0AU+12+5 *0AU* ORIGIN
02144 M00S02005.1pp +++| ERRPL *+ZAUL-EPFW CODE OVERLAYS ERROR PROCESSING BUFFER
02145 M00S02006.1pp +++| TITLE INITIALIZATION.
02146 M00S02007.1pp +++| PRS SPACE 4,10
02147 M00S02008.1pp +++|** PRS - PRESET.
02148 M00S02009.1pp +++|*
02149 M00S02010.1pp +++|* USES CF, NC, PN, T1, CM - CM+4, AA - AA+4, BB - BB+4,
02150 M00S02011.1pp +++|* EJ - EJ+4, TM - TM+4.
02151 M00S02012.1pp +++|*
| Line S02013 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02152 M01S02013.271l750 ---|* CALLS RJC.
| Line S00006 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02153 M01S00006.271l750 +++|* CALLS IFP.
02154 M00S02014.1pp +++|*
| Line S02015 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02155 M01S02015.271l750 ---|* MACROS IPCP, ISTORE.
| Line S00007 Modification History |
M01 (Added by) | 271l750 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
02156 M02S00007.273l780 ---|* MACROS IPCP, ISTORE, SFA.
| Line S00048 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
02157 M01S00048.273l780 +++|* MACROS ISTORE, SFA.
02158 M00S02016.1pp +++|
02159 M00S02017.1pp +++|
02160 M00S02018.1pp +++| PRS SUBR ENTRY/EXIT
| Line S02019 Modification History |
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
02161 M01S02019.273l780 ---| IPCP INITIALIZE *COMPPCP*
| Line S00049 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
02162 M01S00049.273l780 +++| LDK PCPP SET FWA OF PCPA-S
02163 M01S00050.273l780 +++| CRD CM
02164 M01S00051.273l780 +++| LDD CM+3
02165 M01S00052.273l780 +++| SHN 14
02166 M01S00053.273l780 +++| LMD CM+4
02167 M01S00054.273l780 +++| SBK 200B
02168 M01S00055.273l780 +++| STM CCAA+1
02169 M01S00056.273l780 +++| SHN -14
02170 M01S00057.273l780 +++| LMC ADCI
02171 M01S00058.273l780 +++| STM CCAA
02172 M00S02020.1pp +++| LDD CM+2 SET NUMBER OF MCT ENTRIES
02173 M00S02021.1pp +++| ERRNZ MCTP-PCPP CODE DEPENDS ON VALUE
02174 M00S02022.1pp +++| STD PN
| Line S00008 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02175 M01S00008.271l750 +++| RJM IFP INITIALIZE TABLE ACCESS
02176 M00S02023.1pp +++| LDN SSTL GET USER ECS FLAG
02177 M00S02024.1pp +++| CRD AA
02178 M00S02025.1pp +++| ADK EJTP-SSTL PRESET EJT FWA
02179 M00S02026.1pp +++| CRD CM
02180 M00S02027.1pp +++| ADK RTCL-EJTP READ REAL TIME CLOCK
02181 M00S02028.1pp +++| CRD TM
02182 M00S02029.1pp +++| ADK INWL-RTCL READ SCHEDULER CONTROL FLAGS
02183 M00S02030.1pp +++| CRD BB
02184 M00S02031.1pp +++| LDD BB+3
02185 M00S02032.1pp +++| STD CF SAVE SCHEDULER CONTROL FLAGS
02186 M00S02033.1pp +++| LPN 2
02187 M00S02034.1pp +++| ZJN PRS0 IF *AUTO* HAS BEEN ENTERED
02188 M00S02035.1pp +++| LDC TCPP+C1CK+1 DISABLE ALL PP CALLS BUT *1CK*
02189 M00S02036.1pp +++| STM CPPC
02190 M00S02037.1pp +++| PRS0 LDD CM+1 SET EJT FWA
02191 M00S02038.1pp +++| STM EJAA
02192 M00S02039.1pp +++| STM SEJB
02193 M00S02040.1pp +++| LDD CM
02194 M00S02041.1pp +++| RAM EJAA-1
02195 M00S02042.1pp +++| STM SEJB-1
02196 M00S02043.1pp +++| LDD CM+2 SET START OF EJT SCAN
02197 M00S02044.1pp +++| STM SEJA
02198 M00S02045.1pp +++| LDD CP SET NUMBER OF CONTROL POINTS
02199 M00S02046.1pp +++| SHN -7
02200 M00S02047.1pp +++| STD NC
02201 M00S02048.1pp +++| LDD AA
02202 M00S02049.1pp +++| SHN 21-5
02203 M00S02050.1pp +++| MJN PRS1 IF USER ECS IS DISABLED
02204 M00S02051.1pp +++| ISTORE PCAA,(UJN PCA13) DISABLE USER ECS CHECK
02205 M00S02052.1pp +++|
02206 M00S02053.1pp +++|* BUILD *TEPB*, *TJAM* TABLES.
02207 M00S02054.1pp +++|
02208 M00S02055.1pp +++| PRS1 LDN MXJC-1 INITIALIZE INDEX
02209 M00S02056.1pp +++| STD T1
| Line S02057 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02210 M01S02057.271l750 ---| PRS2 RJM RJC CALCULATE JCB ADDRESS
| Line S00009 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02211 M01S00009.271l750 +++| PRS2 SFA JCB SET JCB ADDRESS
02212 M00S02058.1pp +++| ADN EXQT READ *EXQT* WORD OF JCB
02213 M00S02059.1pp +++| CRD AA
02214 M00S02060.1pp +++| ADN MCMT-EXQT READ *MCMT* WORD OF JCB
02215 M00S02061.1pp +++| CRD BB
02216 M00S02062.1pp +++| ADN MECT-MCMT READ *MECT* WORD OF JCB
02217 M00S02063.1pp +++| CRD EJ
02218 M00S02064.1pp +++| LDD AA
02219 M00S02065.1pp +++| STM TEPB,T1
02220 M00S02066.1pp +++| LDD AA+1
02221 M00S02067.1pp +++| STM TEPB+1*MXJC,T1
02222 M00S02068.1pp +++| LDD AA+2
02223 M00S02069.1pp +++| STM TEPB+2*MXJC,T1
02224 M00S02070.1pp +++| LDD BB
02225 M00S02071.1pp +++| STM TEPB+3*MXJC,T1
02226 M00S02072.1pp +++| LDD BB+2
02227 M00S02073.1pp +++| STM TJAM,T1
02228 M00S02074.1pp +++| LDD EJ+2
02229 M00S02075.1pp +++| STM TJAM+1*MXJC,T1
02230 M00S02076.1pp +++| SOD T1 DECREMENT JCB INDEX
02231 M00S02077.1pp +++| PJN PRS2 IF NOT ALL JCB-S HAVE BEEN PROCESSED
02232 M00S02078.1pp +++| UJP PRSX RETURN
| Line S00010 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
02233 M01S00010.271l750 +++|
02234 M01S00011.271l750 +++|
02235 M01S00012.271l750 +++| IFP HERE ASSEMBLE *COMPGFP* REMOTE CODE
02236 M00S02079.1pp +++| SPACE 4,10
02237 M00S02080.1pp +++|* OVERFLOW CHECKS.
02238 M00S02081.1pp +++|
02239 M00S02082.1pp +++| OVERFLOW PPFW,EPFW
02240 M00S02083.1pp +++| TABLES SPACE 4,10
02241 M00S02084.1pp +++|** TEPB - EJT/CP SCHEDULING PARAMETERS.
02242 M00S02085.1pp +++|* ENTRY = 4 WORDS.
02243 M00S02086.1pp +++|* INDEXED BY SERVICE CLASS.
02244 M00S02087.1pp +++|*
02245 M00S02088.1pp +++|*T 12/ IL,12/ LB,12/ UB,12/ CS
Figure
02246 M00S02089.1pp +++|* IL LOWER BOUND SCHEDULING PRIORITY USED FOR INITIAL CM
02247 M00S02090.1pp +++|* SLICE.
02248 M00S02091.1pp +++|* LB LOWER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS.
02249 M00S02092.1pp +++|* UB UPPER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS.
02250 M00S02093.1pp +++|* CS CONTROL POINT SLICE PRIORITY.
02251 M00S02094.1pp +++|
02252 M00S02095.1pp +++|
02253 M00S02096.1pp +++| TEPB EQU *
02254 M00S02097.1pp +++| TEPBE EQU 4 ENTRY LENGTH
02255 M00S02098.1pp +++| TABLES SPACE 4,10
02256 M00S02099.1pp +++|** TJAM - SERVICE CLASS RESOURCE CONSTRAINTS.
02257 M00S02100.1pp +++|* ENTRY = 2 WORDS.
02258 M00S02101.1pp +++|* INDEXED BY SERVICE CLASS.
02259 M00S02102.1pp +++|*
02260 M00S02103.1pp +++|*T 12/ MCJ,12/ MEJ
02261 M00S02104.1pp +++|* MCJ MAXIMUM CM FL/100B PER JOB OF SERVICE CLASS.
02262 M00S02105.1pp +++|* MEJ MAXIMUM ECS FL/100B PER JOB OF SERVICE CLASS.
02263 M00S02106.1pp +++|
02264 M00S02107.1pp +++|
02265 M00S02108.1pp +++| TJAM EQU TEPB+TEPBE*MXJC
02266 M00S02109.1pp +++| TJAME EQU 2 ENTRY LENGTH
02267 M00S02110.1pp +++| SPACE 4,10
02268 M00S02111.1pp +++| ERRPL TJAM+TJAME*MXJC-EPFW *TJAM* OVERFLOWS PP
02269 M00S02112.1pp +++|
02270 M00S02113.1pp +++| QUAL
02271 M00S02114.1pp +++| TTL 1PP - PERIODIC FUNCTION PROCESSOR.
02272 M00S02115.1pp +++| SPACE 4,10
02273 M00S02116.1pp +++| END