cdc:nos2.source:opl.opl871:deck:1pp.001
Deck 1PP Part 001
7 Modifications
Listing Sections
- Deck 1PP Start
- Deck 1PP Part 1 (Line 1966)
Source
Seq # *Modification Id* Act ----------------------------+ 01966 M01S01830.1pp +++| SBD BB+4 01967 M01S01831.1pp +++| MJN SME1 IF COUNT DOES NOT EQUAL/EXCEED THRESHOLD 01968 M01S01832.1pp +++| LDC 2R U 01969 M01S01833.1pp +++| STM SMEA+3 01970 M01S01834.1pp +++| LDC 2RNR 01971 M01S01835.1pp +++| STM SMEA+4 01972 M01S01836.1pp +++| LDN 11D 01973 M01S01837.1pp +++| UJN SME3 PROCESS THRESHOLD ERROR 01974 M01S01838.1pp +++| 01975 M01S01839.1pp +++| SME1 LDD CM+3 01976 M01S01840.1pp +++| SHN 0-13 01977 M01S01841.1pp +++| SME2 NJN SMEX IF CONDITION ALREADY PROCESSED 01978 M01S01842.1pp +++| LDD CM+3 CHECK RECOVERED ERROR COUNT 01979 M01S01843.1pp +++| SBD BB+3 01980 M01S01844.1pp +++| MJN SMEX IF COUNT DOES NOT EQUAL/EXCEED THRESHOLD 01981 M01S01845.1pp +++| LDN 23D 01982 M01S01846.1pp +++| SME3 SHN 6 SET BIT POSITION 01983 M01S01847.1pp +++| STM SMEB+1 SAVE BIT POSITION 01984 M01S01848.1pp +++| LMC 11D*100 01985 M01S01849.1pp +++| ZJN SME4 IF UNRECOVERED COUNT EXCEEDED 01986 M01S01850.1pp +++| LDC 2R R 01987 M01S01851.1pp +++| STM SMEA+4 01988 M01S01852.1pp +++| ADN 1R -1RR 01989 M01S01853.1pp +++| STM SMEA+3 01990 M01S01854.1pp +++| SME4 LDN ZERL 01991 M01S01855.1pp +++| CRD CM 01992 M01S01856.1pp +++| LDN ELAE 01993 M01S01857.1pp +++| STD CM+4 01994 M01S01858.1pp +++| MONITOR EATM 01995 M01S01859.1pp +++| LDD CM+1 01996 M01S01860.1pp +++| NJN SME2 IF EVENT NOT ENTERED 01997 M01S01861.1pp +++| LDD T8 SET EST ORDINAL IN MESSAGE 01998 M01S01862.1pp +++| SHN -3 01999 M01S01863.1pp +++| RJM C2D CONVERT TO DISPLAY CODE 02000 M01S01864.1pp +++| STM SMEA+1 02001 M01S01865.1pp +++| LDD T8 SET EST ORDINAL IN MESSAGE 02002 M01S01866.1pp +++| LPN 7 02003 M01S01867.1pp +++| SHN 6 02004 M01S01868.1pp +++| ADC 2R0, 02005 M01S01869.1pp +++| STM SMEA+2 02006 M01S01870.1pp +++| LDD EJ+3 SET EQUIPMENT TYPE IN MESSAGE 02007 M01S01871.1pp +++| LPC 3777 02008 M01S01872.1pp +++| STM SMEA 02009 M01S01873.1pp +++| LDC SMEA+ERLN ISSUE ERRLOG MESSAGE 02010 M01S01874.1pp +++| RJM DFM 02011 M01S01875.1pp +++| LDN ZERL SET *1SJ* PROCESSED BIT 02012 M01S01876.1pp +++| CRD CM 02013 M01S01877.1pp +++| LDN 1 SET NUMBER OF REQUESTS 02014 M01S01878.1pp +++| STD CM+1 02015 M01S01879.1pp +++| LDD EJ+4 SET MST ADDRESS 02016 M01S01880.1pp +++| SHN 3 02017 M01S01881.1pp +++| STD CM+4 02018 M01S01882.1pp +++| SHN -14 02019 M01S01883.1pp +++| STD CM+3 02020 M01S01884.1pp +++| LDD MA 02021 M01S01885.1pp +++| CWM SMEB,ON 02022 M01S01886.1pp +++| MONITOR UTEM 02023 M01S01887.1pp +++| LJM SMEX RETURN 02024 M01S01888.1pp +++| 02025 M01S01889.1pp +++| 02026 M01S01890.1pp +++| SMEA DATA C*XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.* 02027 M01S01891.1pp +++| SMEB VFD 1/0,5/CTLL,6/1,6/11D,42/1 02028 M01S01892.1pp +++| SRS SPACE 4,10 02029 M01S01893.1pp +++|** SRS - SET ROLLOUT STATUS. 02030 M01S01894.1pp +++|* 02031 M01S01895.1pp +++|* ENTRY (SC) = SERVICE CLASS. 02032 M01S01896.1pp +++|* (SRSA+4) = JOB STATUS OF SELECTED ENTRY. 02033 M01S01897.1pp +++|* 02034 M01S01898.1pp +++|* EXIT (A) = 0, IF *UTEM* CALL COMPLETED. 02035 M01S01899.1pp +++|* .NE. 0, IF *UTEM* ABORTED. 02036 M01S01900.1pp +++|* USES T1. 02037 M01S01901.1pp +++|* 02038 M01S01902.1pp +++|* CALLS CET, IUT. 02039 M01S01903.1pp +++| 02040 M01S01904.1pp +++| 02041 M01S01905.1pp +++| SRS SUBR ENTRY/EXIT 02042 M01S01906.1pp +++| LDM TEPB+2*MXJC,SC SET UP *CET* PARAMETERS 02043 M01S01907.1pp +++| STD T1 02044 M01S01908.1pp +++| LDD SC 02045 M01S01909.1pp +++| SHN 14 02046 M01S01910.1pp +++| LMN EXQT 02047 M01S01911.1pp +++| RJM CET CALCULATE ENTRY TIME 02048 M01S01912.1pp +++| LDD T1 PLACE ENTRY TIME IN *UTEM* PARAMETER BLOCK 02049 M01S01913.1pp +++| STM SRSA+2*5+3 02050 M01S01914.1pp +++| LDD T2 02051 M01S01915.1pp +++| STM SRSA+2*5+4 02052 M01S01916.1pp +++| LDD EJ+4 CHECK FOR *PWJS* STATUS 02053 M01S01917.1pp +++| LPN 76 02054 M01S01918.1pp +++| LMK PWJS*2 02055 M01S01919.1pp +++| ZJN SRS1 IF SHOULD CHANGE *PWJS* TO *PRJS* 02056 M01S01920.1pp +++| LDK ROJS&PRJS SET *ROJS* STATUS FOR *ERJS* OR *TOJS* 02057 M01S01921.1pp +++| SRS1 LMK PRJS 02058 M01S01922.1pp +++| STM SRSA+1*5+4 02059 M01S01923.1pp +++| LDC SRSA+SRSAL*10000 02060 M01S01924.1pp +++| RJM IUT ISSUE *UTEM* 02061 M01S01925.1pp +++| LJM SRSX RETURN 02062 M01S01926.1pp +++| 02063 M01S01927.1pp +++| 02064 M01S01928.1pp +++|* *UTEM* PARAMETERS FOR CHANGING JOB STATUS AND SETTING 02065 M01S01929.1pp +++|* SCHEDULING PRIORITY TO UPPER BOUND. 02066 M01S01930.1pp +++| 02067 M01S01931.1pp +++| SRSA VFD 1/1,5/JSNE,6/6 VALIDATE JOB STATUS UNCHANGED 02068 M01S01932.1pp +++| VFD 6/0,6/0 02069 M01S01933.1pp +++| CON 0 02070 M01S01934.1pp +++| CON 0 02071 M01S01935.1pp +++| CON 0 02072 M01S01936.1pp +++| 02073 M01S01937.1pp +++| VFD 1/0,5/JSNE,6/5 SET JOB STATUS 02074 M01S01938.1pp +++| VFD 6/1,6/0 02075 M01S01939.1pp +++| CON 0 02076 M01S01940.1pp +++| CON 0 02077 M01S01941.1pp +++| CON ROJS 02078 M01S01942.1pp +++| 02079 M01S01943.1pp +++| VFD 1/0,5/SCHE,6/30D SET SCHEDULING PRIORITY 02080 M01S01944.1pp +++| VFD 6/0,6/0 02081 M01S01945.1pp +++| CON 0 02082 M01S01946.1pp +++| CON 0 02083 M01S01947.1pp +++| CON 0 02084 M01S01948.1pp +++| 02085 M01S01949.1pp +++| SRSAL EQU */5-SRSA/5 BLOCK LENGTH 02086 M01S01950.1pp +++| SSA SPACE 4,10 02087 M01S01951.1pp +++|** SSA - SET STATISTICAL AREA ADDRESS. 02088 M01S01952.1pp +++|* 02089 M01S01953.1pp +++|* EXIT (A) = ADDRESS OF PERIODIC PROCESSOR STATISTICS AREA. 02090 M01S01954.1pp +++|* 02091 M01S01955.1pp +++|* USES CM - CM+4. 02092 M01S01956.1pp +++| 02093 M01S01957.1pp +++| 02094 M01S01958.1pp +++| SSA SUBR ENTRY/EXIT 02095 M01S01959.1pp +++| LDK SDAP READ STATISTICAL DATA AREA POINTER 02096 M01S01960.1pp +++| CRD CM 02097 M01S01961.1pp +++| LDD CM 02098 M01S01962.1pp +++| SHN 14 02099 M01S01963.1pp +++| LMD CM+1 02100 M01S01964.1pp +++| ADK PF0S 02101 M01S01965.1pp +++| UJN SSAX EXIT 02102 M01S01966.1pp +++| SPACE 4,10 02103 M01S01967.1pp +++|* COMMON DECKS. 02104 M01S01968.1pp +++| 02105 M01S01969.1pp +++| 02106 M01S01970.1pp +++|*CALL COMPAST 02107 M01S01971.1pp +++| CET$ SET 1 ASSEMBLE ROUTINE *CET* OF *COMPCPE* 02108 M01S01972.1pp +++|*CALL COMPCPE 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 M01S01973.1pp +++|*CALL COMPC2D
| Line S01974 Modification History | |
|---|---|
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 02113 M02S01974.273l780 ---|*CALL COMPPCP 02114 M01S01975.1pp +++|*CALL COMPRJC 02115 M01S01976.1pp +++| SLBS EQU /CPS/SLBS 02116 M01S01977.1pp +++|*CALL COMPTLB 02117 M01S01978.1pp +++|*CALL COMPSEI 02118 M01S01979.1pp +++| TABLES SPACE 4,10 02119 M01S01980.1pp +++| USE TABLES 02120 M01S01981.1pp +++| 02121 M01S01982.1pp +++|** TEVT - POSTED EVENTS. 02122 M01S01983.1pp +++|* ENTRY = 2 WORDS. 02123 M01S01984.1pp +++|* 02124 M01S01985.1pp +++|*T 24/ EV
Figure
02125 M01S01986.1pp +++|* EV POSTED EVENT OBTAINED FROM EVT TABLE. 02126 M01S01987.1pp +++| 02127 M01S01988.1pp +++| 02128 M01S01989.1pp +++| TEVT EQU * 02129 M01S01990.1pp +++| TEVTE EQU 2 ENTRY LENGTH 02130 M01S01991.1pp +++| TABLES SPACE 4,10 02131 M01S01992.1pp +++|** TOVF - ACCUMULATOR OVERFLOW FLAGS. 02132 M01S01993.1pp +++|* ENTRY = 1 WORD. 02133 M01S01994.1pp +++|* INDEXED BY CONTROL POINT NUMBER. 02134 M01S01995.1pp +++|* 02135 M01S01996.1pp +++|*T 12/ OF
Figure
02136 M01S01997.1pp +++|* OF OVERFLOW FLAGS FROM *SRUW*. 02137 M01S01998.1pp +++| 02138 M01S01999.1pp +++| 02139 M01S02000.1pp +++| TOVF EQU TEVT+TEVTE*MEVC 02140 M01S02001.1pp +++| TOVFE EQU 1 ENTRY LENGTH 02141 M01S02002.1pp +++| SPACE 4,10 02142 M01S02003.1pp +++| P0AU EQU TOVF+/DSL/NCPS*TOVFE *0AU* PARAMETER BLOCK 02143 M01S02004.1pp +++| OVL0 EQU P0AU+12+5 *0AU* ORIGIN 02144 M01S02005.1pp +++| ERRPL *+ZAUL-EPFW CODE OVERLAYS ERROR PROCESSING BUFFER 02145 M01S02006.1pp +++| TITLE INITIALIZATION. 02146 M01S02007.1pp +++| PRS SPACE 4,10 02147 M01S02008.1pp +++|** PRS - PRESET. 02148 M01S02009.1pp +++|* 02149 M01S02010.1pp +++|* USES CF, NC, PN, T1, CM - CM+4, AA - AA+4, BB - BB+4, 02150 M01S02011.1pp +++|* EJ - EJ+4, TM - TM+4. 02151 M01S02012.1pp +++|*
| Line S02013 Modification History | |
|---|---|
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02152 M02S02013.271l750 ---|* CALLS RJC. 02153 M01S00006.271l750 +++|* CALLS IFP. 02154 M01S02014.1pp +++|*
| Line S02015 Modification History | |
|---|---|
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02155 M02S02015.271l750 ---|* MACROS IPCP, ISTORE.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 02156 M02S00007.273l780 ---|* MACROS IPCP, ISTORE, SFA. 02157 M01S00048.273l780 +++|* MACROS ISTORE, SFA. 02158 M01S02016.1pp +++| 02159 M01S02017.1pp +++| 02160 M01S02018.1pp +++| PRS SUBR ENTRY/EXIT
| Line S02019 Modification History | |
|---|---|
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 02161 M02S02019.273l780 ---| IPCP INITIALIZE *COMPPCP* 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 M01S02020.1pp +++| LDD CM+2 SET NUMBER OF MCT ENTRIES 02173 M01S02021.1pp +++| ERRNZ MCTP-PCPP CODE DEPENDS ON VALUE 02174 M01S02022.1pp +++| STD PN 02175 M01S00008.271l750 +++| RJM IFP INITIALIZE TABLE ACCESS 02176 M01S02023.1pp +++| LDN SSTL GET USER ECS FLAG 02177 M01S02024.1pp +++| CRD AA 02178 M01S02025.1pp +++| ADK EJTP-SSTL PRESET EJT FWA 02179 M01S02026.1pp +++| CRD CM 02180 M01S02027.1pp +++| ADK RTCL-EJTP READ REAL TIME CLOCK 02181 M01S02028.1pp +++| CRD TM 02182 M01S02029.1pp +++| ADK INWL-RTCL READ SCHEDULER CONTROL FLAGS 02183 M01S02030.1pp +++| CRD BB 02184 M01S02031.1pp +++| LDD BB+3 02185 M01S02032.1pp +++| STD CF SAVE SCHEDULER CONTROL FLAGS 02186 M01S02033.1pp +++| LPN 2 02187 M01S02034.1pp +++| ZJN PRS0 IF *AUTO* HAS BEEN ENTERED 02188 M01S02035.1pp +++| LDC TCPP+C1CK+1 DISABLE ALL PP CALLS BUT *1CK* 02189 M01S02036.1pp +++| STM CPPC 02190 M01S02037.1pp +++| PRS0 LDD CM+1 SET EJT FWA 02191 M01S02038.1pp +++| STM EJAA 02192 M01S02039.1pp +++| STM SEJB 02193 M01S02040.1pp +++| LDD CM 02194 M01S02041.1pp +++| RAM EJAA-1 02195 M01S02042.1pp +++| STM SEJB-1 02196 M01S02043.1pp +++| LDD CM+2 SET START OF EJT SCAN 02197 M01S02044.1pp +++| STM SEJA 02198 M01S02045.1pp +++| LDD CP SET NUMBER OF CONTROL POINTS 02199 M01S02046.1pp +++| SHN -7 02200 M01S02047.1pp +++| STD NC 02201 M01S02048.1pp +++| LDD AA 02202 M01S02049.1pp +++| SHN 21-5 02203 M01S02050.1pp +++| MJN PRS1 IF USER ECS IS DISABLED 02204 M01S02051.1pp +++| ISTORE PCAA,(UJN PCA13) DISABLE USER ECS CHECK 02205 M01S02052.1pp +++| 02206 M01S02053.1pp +++|* BUILD *TEPB*, *TJAM* TABLES. 02207 M01S02054.1pp +++| 02208 M01S02055.1pp +++| PRS1 LDN MXJC-1 INITIALIZE INDEX 02209 M01S02056.1pp +++| STD T1
| Line S02057 Modification History | |
|---|---|
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 02210 M02S02057.271l750 ---| PRS2 RJM RJC CALCULATE JCB ADDRESS 02211 M01S00009.271l750 +++| PRS2 SFA JCB SET JCB ADDRESS 02212 M01S02058.1pp +++| ADN EXQT READ *EXQT* WORD OF JCB 02213 M01S02059.1pp +++| CRD AA 02214 M01S02060.1pp +++| ADN MCMT-EXQT READ *MCMT* WORD OF JCB 02215 M01S02061.1pp +++| CRD BB 02216 M01S02062.1pp +++| ADN MECT-MCMT READ *MECT* WORD OF JCB 02217 M01S02063.1pp +++| CRD EJ 02218 M01S02064.1pp +++| LDD AA 02219 M01S02065.1pp +++| STM TEPB,T1 02220 M01S02066.1pp +++| LDD AA+1 02221 M01S02067.1pp +++| STM TEPB+1*MXJC,T1 02222 M01S02068.1pp +++| LDD AA+2 02223 M01S02069.1pp +++| STM TEPB+2*MXJC,T1 02224 M01S02070.1pp +++| LDD BB 02225 M01S02071.1pp +++| STM TEPB+3*MXJC,T1 02226 M01S02072.1pp +++| LDD BB+2 02227 M01S02073.1pp +++| STM TJAM,T1 02228 M01S02074.1pp +++| LDD EJ+2 02229 M01S02075.1pp +++| STM TJAM+1*MXJC,T1 02230 M01S02076.1pp +++| SOD T1 DECREMENT JCB INDEX 02231 M01S02077.1pp +++| PJN PRS2 IF NOT ALL JCB-S HAVE BEEN PROCESSED 02232 M01S02078.1pp +++| UJP PRSX RETURN 02233 M01S00010.271l750 +++| 02234 M01S00011.271l750 +++| 02235 M01S00012.271l750 +++| IFP HERE ASSEMBLE *COMPGFP* REMOTE CODE 02236 M01S02079.1pp +++| SPACE 4,10 02237 M01S02080.1pp +++|* OVERFLOW CHECKS. 02238 M01S02081.1pp +++| 02239 M01S02082.1pp +++| OVERFLOW PPFW,EPFW 02240 M01S02083.1pp +++| TABLES SPACE 4,10 02241 M01S02084.1pp +++|** TEPB - EJT/CP SCHEDULING PARAMETERS. 02242 M01S02085.1pp +++|* ENTRY = 4 WORDS. 02243 M01S02086.1pp +++|* INDEXED BY SERVICE CLASS. 02244 M01S02087.1pp +++|* 02245 M01S02088.1pp +++|*T 12/ IL,12/ LB,12/ UB,12/ CS
Figure
02246 M01S02089.1pp +++|* IL LOWER BOUND SCHEDULING PRIORITY USED FOR INITIAL CM 02247 M01S02090.1pp +++|* SLICE. 02248 M01S02091.1pp +++|* LB LOWER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS. 02249 M01S02092.1pp +++|* UB UPPER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS. 02250 M01S02093.1pp +++|* CS CONTROL POINT SLICE PRIORITY. 02251 M01S02094.1pp +++| 02252 M01S02095.1pp +++| 02253 M01S02096.1pp +++| TEPB EQU * 02254 M01S02097.1pp +++| TEPBE EQU 4 ENTRY LENGTH 02255 M01S02098.1pp +++| TABLES SPACE 4,10 02256 M01S02099.1pp +++|** TJAM - SERVICE CLASS RESOURCE CONSTRAINTS. 02257 M01S02100.1pp +++|* ENTRY = 2 WORDS. 02258 M01S02101.1pp +++|* INDEXED BY SERVICE CLASS. 02259 M01S02102.1pp +++|* 02260 M01S02103.1pp +++|*T 12/ MCJ,12/ MEJ
Figure
02261 M01S02104.1pp +++|* MCJ MAXIMUM CM FL/100B PER JOB OF SERVICE CLASS. 02262 M01S02105.1pp +++|* MEJ MAXIMUM ECS FL/100B PER JOB OF SERVICE CLASS. 02263 M01S02106.1pp +++| 02264 M01S02107.1pp +++| 02265 M01S02108.1pp +++| TJAM EQU TEPB+TEPBE*MXJC 02266 M01S02109.1pp +++| TJAME EQU 2 ENTRY LENGTH 02267 M01S02110.1pp +++| SPACE 4,10 02268 M01S02111.1pp +++| ERRPL TJAM+TJAME*MXJC-EPFW *TJAM* OVERFLOWS PP 02269 M01S02112.1pp +++| 02270 M01S02113.1pp +++| QUAL 02271 M01S02114.1pp +++| TTL 1PP - PERIODIC FUNCTION PROCESSOR. 02272 M01S02115.1pp +++| SPACE 4,10 02273 M01S02116.1pp +++| END
cdc/nos2.source/opl.opl871/deck/1pp.001.txt · Last modified: by 127.0.0.1