cdc:nos2.source:opl.opl871:deck:1pp
Deck 1PP
Library Member Format: MODIFY
Listing Sections
- Deck 1PP Start
- Deck 1PP Part 1 (Line 1953)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1pp +++| IDENT 1PP,PPF 00002 M00S00002.1pp +++| PERIPH 00003 M00S00003.1pp +++| BASE MIXED 00004 M00S00004.1pp +++| LIST F 00005 M00S00005.1pp +++| SST 00006 M00S00006.1pp +++|*COMMENT 1PP - PERIODIC FUNCTION PROCESSOR.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1988.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.1pp +++| TITLE 1PP - PERIODIC FUNCTION PROCESSOR. 00010 M00S00009.1pp +++| SPACE 4,10 00011 M00S00010.1pp +++|*** 1PP - PERIODIC FUNCTION PROCESSOR. 00012 M00S00011.1pp +++|* R. M. DANISCH. 88/06/27. 00013 M00S00012.1pp +++| SPACE 4,10 00014 M00S00013.1pp +++|*** *1PP* IS RESPONSIBLE FOR PROCESSING A VARIETY OF 00015 M00S00014.1pp +++|* FUNCTIONS THAT ARE PERIODIC IN NATURE. FUNCTIONS PROCESSED 00016 M00S00015.1pp +++|* INCLUDE THE FOLLOWING - 00017 M00S00016.1pp +++|* 00018 M00S00017.1pp +++|* - TIMED/EVENT ROLLOUT PROCESSING. 00019 M00S00018.1pp +++|* 00020 M00S00019.1pp +++|* - CHECK FOR EXPIRED CM/CPU TIME SLICES. 00021 M00S00020.1pp +++|* 00022 M00S00021.1pp +++|* - CHECK WAIT RESPONSE/CONNECTION INDICATORS. 00023 M00S00022.1pp +++|* 00024 M00S00023.1pp +++|* - PROCESS ACCUMULATOR OVERFLOW FLAGS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00025 M01S00001.274l797 +++|* 00026 M01S00002.274l797 +++|* - SCAN OPTICAL DISK EQUIPMENT AND UPDATE THE OPTICAL 00027 M01S00003.274l797 +++|* STORAGE STATUS TABLE *OST*. 00028 M01S00004.274l797 +++|* 00029 M01S00005.274l797 +++|* - SCAN OPTICAL DISK REQUESTS FOR MOUNTED DISKS AND 00030 M01S00006.274l797 +++|* ORPHAN REQUESTS. 00031 M00S00024.1pp +++|* 00032 M00S00025.1pp +++|* - CHECK FOR MASS STORAGE CHECKPOINT AND LABEL 00033 M00S00026.1pp +++|* INITIALIZATION REQUESTS. 00034 M00S00027.1pp +++|* 00035 M00S00028.1pp +++|* - INITIATE SWEEP CYCLE PROCESSING. 00036 M00S00029.1pp +++|* 00037 M00S00030.1pp +++|* - INITIATE MASS STORAGE CONFIDENCE TESTING. 00038 M00S00031.1pp +++| SPACE 4,10 00039 M00S00032.1pp +++|*** CALL. 00040 M00S00033.1pp +++|* 00041 M00S00034.1pp +++|* 00042 M00S00035.1pp +++|*T 18/ *1PP*,6/ CP,36/
Figure
00043 M00S00036.1pp +++|* CP SYSTEM CONTROL POINT NUMBER. 00044 M00S00037.1pp +++| SPACE 4,10 00045 M00S00038.1pp +++|*** ERROR LOG MESSAGES. 00046 M00S00039.1pp +++|* 00047 M00S00040.1pp +++|* 00048 M00S00041.1pp +++|* *XXYYY, RECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER 00049 M00S00042.1pp +++|* OF RECOVERED ERRORS ON DEVICE TYPE XX WITH EST ORDINAL 00050 M00S00043.1pp +++|* YYY IS GREATER THAN THE THRESHOLD DEFINED FOR THAT 00051 M00S00044.1pp +++|* DEVICE TYPE. 00052 M00S00045.1pp +++|* 00053 M00S00046.1pp +++|* *XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER 00054 M00S00047.1pp +++|* OF UNRECOVERED ERRORS ON DEVICE TYPE XX WITH EST 00055 M00S00048.1pp +++|* ORDINAL YYY IS GREATER THAN THE THRESHOLD DEFINED FOR 00056 M00S00049.1pp +++|* THAT DEVICE TYPE. 00057 M00S00050.1pp +++| SPACE 4,10 00058 M00S00051.1pp +++|** ROUTINES USED. 00059 M00S00052.1pp +++|* 00060 M00S00053.1pp +++|* 00061 M00S00054.1pp +++|* 0AU - PROCESS ACCUMULATOR OVERFLOW FLAGS. 00062 M00S00055.1pp +++| SPACE 4,10 00063 M00S00056.1pp +++|** PROGRAMS CALLED. 00064 M00S00057.1pp +++|* 00065 M00S00058.1pp +++|* 00066 M00S00059.1pp +++|* CMS - MASS STORAGE LABEL INITIALIZATION. 00067 M00S00060.1pp +++|* 1CK - MASS STORAGE CHECKPOINT. 00068 M00S00061.1pp +++|* 1MV - MASS STORAGE VERIFICATION. 00069 M00S00062.1pp +++| SPACE 4,10 00070 M00S00063.1pp +++|** COMMON DECKS. 00071 M00S00064.1pp +++| 00072 M00S00065.1pp +++| 00073 M00S00066.1pp +++|*CALL COMPMAC 00074 M00S00067.1pp +++| QUAL CPS 00075 M00S00068.1pp +++|*CALL COMSCPS 00076 M00S00069.1pp +++| QUAL * 00077 M00S00070.1pp +++| QUAL DSL 00078 M00S00071.1pp +++|*CALL COMSDSL 00079 M00S00072.1pp +++| QUAL * 00080 M00S00073.1pp +++|*CALL COMSDST 00081 M00S00074.1pp +++|*CALL COMSEJT 00082 M00S00075.1pp +++|*CALL COMSEVT 00083 M00S00076.1pp +++|*CALL COMSJIO 00084 M00S00077.1pp +++|*CALL COMSMSC
| Line S00078 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00085 M01S00078.273l780 ---| CPA$ EQU 1 SELECT CPA/PCPA ACCESS 00086 M01S00079.273l780 ---| IPC$ EQU 1 SELECT *COMPPCP* INITIALIZATION 00087 M01S00080.273l780 ---|*CALL COMSPCP 00088 M00S00081.1pp +++|*CALL COMSMSP 00089 M00S00082.1pp +++|*CALL COMSMST 00090 M00S00083.1pp +++|*CALL COMSPIM 00091 M00S00084.1pp +++|*CALL COMSSCD 00092 M00S00085.1pp +++|*CALL COMSSCP 00093 M00S00086.1pp +++|*CALL COMSSSD 00094 M00S00087.1pp +++|*CALL COMSZOL 00095 M00S00088.1pp +++| QUAL 1DS 00096 M00S00089.1pp +++|*CALL COMS1DS 00097 M00S00090.1pp +++| QUAL * 00098 M00S00091.1pp +++|*CALL COMS1MV 00099 M00S00092.1pp +++| MACROS SPACE 4,10 00100 M00S00093.1pp +++|** MACRO DEFINITIONS. 00101 M00S00094.1pp +++| 00102 M00S00095.1pp +++| 00103 M00S00096.1pp +++|** DFLIM - CONSTRUCT DAYFILE SIZE THRESHOLD PROCESSING ENTRY FOR 00104 M00S00097.1pp +++|* *TDFP* TABLE. 00105 M00S00098.1pp +++|* 00106 M00S00099.1pp +++|* DFLIM A,B,C,D,E 00107 M00S00100.1pp +++|, 00108 M00S00101.1pp +++|* A TABLE NAME IF PRESENT. 00109 M00S00102.1pp +++|* B DAYFILE IDENTIFIER/INDEX. 00110 M00S00103.1pp +++|* C CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER 00111 M00S00104.1pp +++|* POINTER BLOCK RELATIVE TO FWA OF DAYFILE BUFFER 00112 M00S00105.1pp +++|* POINTER BLOCKS. 00113 M00S00106.1pp +++|* D THRESHOLD SIZE IN PRUS. 00114 M00S00107.1pp +++|* E EVENT TO ISSUE IF THRESHOLD EXCEEDED. 00115 M00S00108.1pp +++| 00116 M00S00109.1pp +++| 00117 M00S00110.1pp +++| PURGMAC DFLIM 00118 M00S00111.1pp +++| 00119 M00S00112.1pp +++| MACRO DFLIM,A,B,C,D,E 00120 M00S00113.1pp +++| MACREF DFLIM 00121 M00S00114.1pp +++| .X IFC NE,$A$$ 00122 M00S00115.1pp +++| A BSS 0 00123 M00S00116.1pp +++| .1 SET A 00124 M00S00117.1pp +++| .X ELSE 00125 M00S00118.1pp +++| ORG .1+4*B 00126 M00S00119.1pp +++| .Y IFC NE,$C$$ 00127 M00S00120.1pp +++| LOC B 00128 M00S00121.1pp +++| CON C 00129 M00S00122.1pp +++| VFD 24/D 00130 M00S00123.1pp +++| CON E 00131 M00S00124.1pp +++| .Y ELSE 00132 M00S00125.1pp +++| VFD 48/0 00133 M00S00126.1pp +++| .Y ENDIF 00134 M00S00127.1pp +++| .X ENDIF 00135 M00S00128.1pp +++| ENDM 00136 M00S00129.1pp +++| JOBSTAT SPACE 4,15 00137 M00S00130.1pp +++|** JOBSTAT - DEFINE JOB STATE ATTRIBUTES. 00138 M00S00131.1pp +++|* 00139 M00S00132.1pp +++|* JOBSTAT NAME,STATUS,SS,ES,FR,TE,PI 00140 M00S00133.1pp +++|* NAME TABLE NAME IF PRESENT. 00141 M00S00134.1pp +++|* STATUS JOB STATUS. 00142 M00S00135.1pp +++|* SS NON-BLANK IF SCHEDULABLE JOB STATUS. 00143 M00S00136.1pp +++|* ES NON-BLANK IF ERROR FLAG SET CAUSES JOB 00144 M00S00137.1pp +++|* STATUS TO BECOME SCHEDULABLE. 00145 M00S00138.1pp +++|* FR NON-BLANK IF JOB MAY BE FORCED ROLLED IN. 00146 M00S00139.1pp +++|* TE NON-BLANK IF TIMED/EVENT TYPE JOB STATUS. 00147 M00S00140.1pp +++|* PI NON-BLANK IF PRE-INITIAL JOB STEP TYPE 00148 M00S00141.1pp +++|* STATUS. 00149 M00S00142.1pp +++|* JOBSTAT A,B,C,D,E,F,G 00150 M00S00143.1pp +++|* 00151 M00S00144.1pp +++|* NOTE - ANY CHANGE TO THIS MACRO MUST BE ACCOMPANIED BY A 00152 M00S00145.1pp +++|* CORRESPONDING CHANGE TO THE *JOBSTAT* MACRO DEFINED 00153 M00S00146.1pp +++|* IN *1SJ*. 00154 M00S00147.1pp +++| 00155 M00S00148.1pp +++| 00156 M00S00149.1pp +++| PURGMAC JOBSTAT 00157 M00S00150.1pp +++| 00158 M00S00151.1pp +++| MACRO JOBSTAT,NAME,STATUS,SS,ES,FR,TE,PI 00159 M00S00152.1pp +++| MACREF JOBSTAT 00160 M00S00153.1pp +++|.1 IFC NE,$NAME$$ 00161 M00S00154.1pp +++|NAME INDEX 00162 M00S00155.1pp +++|.1 ELSE 00163 M00S00156.1pp +++|.V SET 0 00164 M00S00157.1pp +++| IFC NE,$SS$$,1 00165 M00S00158.1pp +++|.V SET .V+4000 00166 M00S00159.1pp +++| IFC NE,$ES$$,1 00167 M00S00160.1pp +++|.V SET .V+2000 00168 M00S00161.1pp +++| IFC NE,$FR$$,1 00169 M00S00162.1pp +++|.V SET .V+1000 00170 M00S00163.1pp +++| IFC NE,$TE$$,1 00171 M00S00164.1pp +++|.V SET .V+400 00172 M00S00165.1pp +++| IFC NE,$PI$$,1 00173 M00S00166.1pp +++|.V SET .V+200 00174 M00S00167.1pp +++| INDEX STATUS,.V 00175 M00S00168.1pp +++|.1 ENDIF 00176 M00S00169.1pp +++| ENDM 00177 M00S00170.1pp +++| TITLE DIRECT CELL ASSIGNMENTS. 00178 M00S00171.1pp +++|**** DIRECT CELL ASSIGNMENTS. 00179 M00S00172.1pp +++| 00180 M00S00173.1pp +++| 00181 M00S00174.1pp +++| T8 EQU 16 SCRATCH 00182 M00S00175.1pp +++| T9 EQU 17 SCRATCH 00183 M00S00176.1pp +++| AA EQU 20 - 24 SCRATCH (5 CELLS) 00184 M00S00177.1pp +++| TM EQU 25 - 26 SECONDS PORTION OF *RTCL* (2 CELLS) 00185 M00S00178.1pp +++| BB EQU 27 - 33 SCRATCH (5 CELLS) 00186 M00S00179.1pp +++| EO EQU 34 EJT ORDINAL 00187 M00S00180.1pp +++| CF EQU 35 SCHEDULER CONTROL FLAGS 00188 M00S00181.1pp +++| PN EQU 36 NUMBER OF MCT ENTRIES 00189 M00S00182.1pp +++|* EQU 37 - 47 UNUSED 00190 M00S00183.1pp +++| EJ EQU 50 - 54 EJT BUFFER (5 CELLS) 00191 M00S00184.1pp +++| SC EQU 57 SERVICE CLASS 00192 M00S00185.1pp +++|* EQU 60 - 65 UNUSED 00193 M00S00186.1pp +++| NC EQU 66 NUMBER OF CONTROL POINTS 00194 M00S00187.1pp +++| TP EQU 67 SCRATCH 00195 M00S00188.1pp +++| 00196 M00S00189.1pp +++| 00197 M00S00190.1pp +++|**** 00198 M00S00191.1pp +++| PPF TITLE MAIN PROGRAM. 00199 M00S00192.1pp +++|** PPF - MAIN PROGRAM. 00200 M00S00193.1pp +++| 00201 M00S00194.1pp +++| 00202 M00S00195.1pp +++| ORG PPFW 00203 M00S00196.1pp +++| 00204 M00S00197.1pp +++| PPF BSS 0 00205 M00S00198.1pp +++| RJM PRS PRESET 00206 M00S00199.1pp +++| RJM PCA PROCESS CONTROL POINT AREAS 00207 M00S00200.1pp +++| RJM CFS CHECK FILE SIZES 00208 M00S00201.1pp +++| RJM SEJ SCAN EJT
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00209 M01S00007.274l797 +++| RJM OSS SCAN OPTICAL STORAGE DEVICES AND REQUESTS 00210 M00S00202.1pp +++| RJM CMS CHECK MASS STORAGE DEVICES 00211 M00S00203.1pp +++| 00212 M00S00204.1pp +++|* PROCESS OVERFLOW FLAGS. THIS PROCESSING MUST BE PERFORMED 00213 M00S00205.1pp +++|* AFTER ROUTINE *SEJ* COMPLETES SO THAT *0AU* MAY OVERLAY THE 00214 M00S00206.1pp +++|* *TJAM* AND *TEPB* TABLES. ROUTINE *PSL* (CALLED BY *SEJ*) 00215 M00S00207.1pp +++|* USES THE *TJAM* TABLE AND ROUTINE *SRS* (CALLED BY *PSL*) 00216 M00S00208.1pp +++|* USES THE *TEPB* TABLE. *POF* MUST BE CALLED AFTER *PCA* 00217 M00S00209.1pp +++|* SINCE THE *TOVF* TABLE IS BUILT BY *PCA* AND USED BY *POF*. 00218 M00S00210.1pp +++|* ALSO, *PCA* USES THE *TEPB* TABLE. 00219 M00S00211.1pp +++| 00220 M00S00212.1pp +++| RJM POF PROCESS OVERFLOW FLAGS 00221 M00S00213.1pp +++| RJM COR CHECK FOR OPERATOR ACTION REQUIRED 00222 M00S00214.1pp +++| LDD IA READ PP INPUT REGISTER 00223 M00S00215.1pp +++| CRD CM 00224 M00S00216.1pp +++| LDD MA PLACE PP CALL IN MESSAGE BUFFER 00225 M00S00217.1pp +++| CWD CM 00226 M00S00218.1pp +++| LDK ZERL 00227 M00S00219.1pp +++| CRD CM 00228 M00S00220.1pp +++| LDK /CPS/PTMF SET SUBFUNCTION 00229 M00S00221.1pp +++| STD CM+1 00230 M00S00222.1pp +++| LDC 1000D SET RECALL TIME TO 1 SECOND 00231 M00S00223.1pp +++| STD CM+4 00232 M00S00224.1pp +++| MONITOR RECM DROP PP 00233 M00S00225.1pp +++| LJM PPR ENTER IDLE LOOP 00234 M00S00226.1pp +++| TITLE PRIMARY SUBROUTINES. 00235 M00S00227.1pp +++| CFS SPACE 4,10 00236 M00S00228.1pp +++|** CFS - CHECK FILE SIZES. 00237 M00S00229.1pp +++|* 00238 M00S00230.1pp +++|* CHECK FOR FILE SIZE LIMIT EXCEEDED FOR SYSTEM DAYFILE, ERROR 00239 M00S00231.1pp +++|* LOG, ACCOUNT FILE AND BINARY MAINTENANCE LOG. 00240 M00S00232.1pp +++|* 00241 M00S00233.1pp +++|* USES T2, T3, T5 - CM+4, AA - AA+4. 00242 M00S00234.1pp +++|* 00243 M00S00235.1pp +++|* CALLS SEI. 00244 M00S00236.1pp +++|* 00245 M00S00237.1pp +++|* MACROS MONITOR. 00246 M00S00238.1pp +++| 00247 M00S00239.1pp +++| 00248 M00S00240.1pp +++| CFSA MAX MSDY,ACDY,ELDY,MLDY 00249 M00S00241.1pp +++| 00250 M00S00242.1pp +++| CFS SUBR ENTRY/EXIT 00251 M00S00243.1pp +++| LDN DFPP GET FWA OF BUFFER POINTER WORDS 00252 M00S00244.1pp +++| CRD AA 00253 M00S00245.1pp +++| LDN CFSA*TDFPE+TDFPE INITIALIZE INDEX 00254 M00S00246.1pp +++| STD AA+2 00255 M00S00247.1pp +++| CFS1 LCN TDFPE DECREMENT INDEX 00256 M00S00248.1pp +++| RAD AA+2 00257 M00S00249.1pp +++| MJN CFSX IF ALL DAYFILES HAVE BEEN PROCESSED 00258 M00S00250.1pp +++| LDM TDFP,AA+2 00259 M00S00251.1pp +++| ZJN CFS1 IF THIS DAYFILE SHOULD NOT BE PROCESSED 00260 M00S00252.1pp +++| SHN 6 00261 M00S00253.1pp +++| ADD AA 00262 M00S00254.1pp +++| SHN 14 00263 M00S00255.1pp +++| ADD AA+1 00264 M00S00256.1pp +++| CRD T5 00265 M00S00257.1pp +++| SBN 2 GET THRESHOLD INCREMENT 00266 M00S00258.1pp +++| CRD CM 00267 M00S00259.1pp +++| LDD CM+2 00268 M00S00260.1pp +++| LPN 7 00269 M00S00261.1pp +++| STD AA+4 00270 M00S00262.1pp +++| ADN 1 00271 M00S00263.1pp +++| STM CFSB+4 00272 M00S00264.1pp +++| LDD T5 00273 M00S00265.1pp +++| ZJN CFS1 IF ZERO LENGTH DAYFILE 00274 M00S00266.1pp +++| RJM SEI SEARCH FOR EOI 00275 M00S00267.1pp +++| CFS2 LDM TDFP+2,AA+2 00276 M00S00268.1pp +++| RAD T3 00277 M00S00269.1pp +++| SHN -14 00278 M00S00270.1pp +++| ADM TDFP+1,AA+2 00279 M00S00271.1pp +++| RAD T2 00280 M00S00272.1pp +++| SHN -14 00281 M00S00273.1pp +++| RAD T3 00282 M00S00274.1pp +++| LDD T2 00283 M00S00275.1pp +++| SHN 0-13 00284 M00S00276.1pp +++| CFS3 NJP CFS1 IF SIZE NOT EXCEEDED 00285 M00S00277.1pp +++| SOD AA+4 00286 M00S00278.1pp +++| PJN CFS2 IF NOT END OF THRESHOLD INCREMENT 00287 M00S00279.1pp +++| 00288 M00S00280.1pp +++|* ISSUE *EATM* TO POST OPERATOR ACTION EVENT. 00289 M00S00281.1pp +++| 00290 M00S00282.1pp +++| LDN 0 SELECT *EATM* ENTER EVENT OPTION 00291 M00S00283.1pp +++| STD CM+1 00292 M00S00284.1pp +++| STD CM+3 STORE EVENT DESCRIPTOR 00293 M00S00285.1pp +++| LDM TDFP+3,AA+2 00294 M00S00286.1pp +++| STD CM+4 00295 M00S00287.1pp +++| MONITOR EATM 00296 M00S00288.1pp +++| LDM CFSB+4 00297 M00S00289.1pp +++| LMN 10 00298 M00S00290.1pp +++| ZJN CFS3 IF MAXIMUM THRESHOLD INCREMENT 00299 M00S00291.1pp +++| LDD AA SET NEW THRESHOLD INCREMENT 00300 M00S00292.1pp +++| SHN 14 00301 M00S00293.1pp +++| ADD AA+1 00302 M00S00294.1pp +++| ADM TDFP,AA+2 00303 M00S00295.1pp +++| SBN 2 00304 M00S00296.1pp +++| STD CM+4 00305 M00S00297.1pp +++| SHN -14 00306 M00S00298.1pp +++| STD CM+3 00307 M00S00299.1pp +++| LDN 1 00308 M00S00300.1pp +++| STD CM+1 00309 M00S00301.1pp +++| LDD MA 00310 M00S00302.1pp +++| CWM CFSB,CM+1 00311 M00S00303.1pp +++| MONITOR UTEM 00312 M00S00304.1pp +++| LJM CFS1 LOOP FOR NEXT DAYFILE 00313 M00S00305.1pp +++| 00314 M00S00306.1pp +++| 00315 M00S00307.1pp +++|* *UTEM* PARAMETERS TO SET DAYFILE THRESHOLD INCREMENT. 00316 M00S00308.1pp +++| 00317 M00S00309.1pp +++| CFSB VFD 6/0,6/3,6/24D,42/0 00318 M00S00310.1pp +++| TDFP SPACE 4,10 00319 M00S00311.1pp +++|** TDFP - DAYFILE PROCESSING PARAMETERS. 00320 M00S00312.1pp +++|* ENTRY = 4 WORDS. 00321 M00S00313.1pp +++|* INDEXED BY DAYFILE TYPE. 00322 M00S00314.1pp +++|* 00323 M00S00315.1pp +++|*T 12/ WO,24/ TH,12/ EV
Figure
00324 M00S00316.1pp +++|* WO CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER POINTER 00325 M00S00317.1pp +++|* BLOCK RELATIVE TO FWA OF DAYFILE BUFFER POINTER 00326 M00S00318.1pp +++|* BLOCKS. 00327 M00S00319.1pp +++|* TH THRESHOLD SIZE IN PRUS. 00328 M00S00320.1pp +++|* EV EVENT TO ISSUE IF THRESHOLD EXCEEDED. 00329 M00S00321.1pp +++| 00330 M00S00322.1pp +++| 00331 M00S00323.1pp +++| TDFP DFLIM 00332 M00S00324.1pp +++| DFLIM MSDY,(3*MSDY+2),-DFDL,DFDE 00333 M00S00325.1pp +++| DFLIM ACDY,(3*ACDY+2),-AFDL,ALDE 00334 M00S00326.1pp +++| DFLIM ELDY,(3*ELDY+2),-ELDL,ELDE 00335 M00S00327.1pp +++| DFLIM MLDY,(3*MLDY+2),-BLTL,BMLE 00336 M00S00328.1pp +++| 00337 M00S00329.1pp +++| LOC *O 00338 M00S00330.1pp +++| 00339 M00S00331.1pp +++| .1 SET *-TDFP 00340 M00S00332.1pp +++| .2 SET CFSA+1 00341 M00S00333.1pp +++| TDFPE EQU .1/.2 *TDFP* ENTRY LENGTH 00342 M00S00334.1pp +++| CMS SPACE 4,15 00343 M00S00335.1pp +++|** CMS - CHECK MASS STORAGE. 00344 M00S00336.1pp +++|* 00345 M00S00337.1pp +++|* THIS ROUTINE SCANS THE EST LOOKING FOR THE FOLLOWING. 00346 M00S00338.1pp +++|* 1. CHECKPOINT REQUESTS. *1CK* CALLED. 00347 M00S00339.1pp +++|* 2. INITIALIZATION/REDEFINITION REQUESTS. *CMS* CALLED. 00348 M00S00340.1pp +++|* 3. SUSPECT DEVICES OR FLAWED TRACKS. *1MV* CALLED. 00349 M00S00341.1pp +++|* 4. DEVICES WHOSE RESTRICT NEW ACTIVITY THRESHOLD 00350 M00S00342.1pp +++|* DOES NOT MATCH THE RESTRICT NEW ACTIVITY BIT FOR THE 00351 M00S00343.1pp +++|* DEVICE. THE RESTRICT NEW ACTIVITY BIT IS ADJUSTED 00352 M00S00344.1pp +++|* TO REFLECT THE THRESHOLD BEING EXCEEDED OR NOT. 00353 M00S00345.1pp +++|* 5. DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS 00354 M00S00346.1pp +++|* GREATER THAN THE TRACKS AVAILABLE. IF ANY SUCH 00355 M00S00347.1pp +++|* DEVICES ARE FOUND AND THE OPERATOR NOTIFICATION 00356 M00S00348.1pp +++|* EVENT HAS NOT BEEN ISSUED (AS NOTED IN *OPRL*), THEN 00357 M00S00349.1pp +++|* ISSUE THE OPERATOR NOTIFICATION EVENT (*TKSL*). 00358 M00S00350.1pp +++|* 6. DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS 00359 M00S00351.1pp +++|* LESS THAN THE TRACKS AVAILABLE BY AT LEAST 5. IF 00360 M00S00352.1pp +++|* ALL DEVICES HAVE AVAILABLE TRACKS AT LEAST 5 GREATER 00361 M00S00353.1pp +++|* THAN THE OPERATOR NOTIFICATION THRESHOLD AND THE 00362 M00S00354.1pp +++|* OPERATOR NOTIFICATION FLAG FOR TRACKS LOW IS SET IN 00363 M00S00355.1pp +++|* *OPRL*, THEN CLEAR THE TRACKS LOW NOTIFICATION FLAG. 00364 M00S00356.1pp +++|* 00365 M00S00357.1pp +++|* EXIT IF *CMS* OR *1CK* MUST BE CALLED BUT NO PP IS 00366 M00S00358.1pp +++|* AVAILABLE, THE TIMERS IN *RDSL* WILL REMAIN UNCHANGED 00367 M00S00359.1pp +++|* SO THE SAME PROCESSING WILL OCCUR IN THE NEXT 00368 M00S00360.1pp +++|* SCHEDULING CYCLE. 00369 M00S00361.1pp +++|* 00370 M00S00362.1pp +++|* USES T8, T9, AA - AA+4, BB - BB+4, CM - CM+4, EJ - EJ+4, 00371 M00S00363.1pp +++|* TM - TM+4, T0 - T7. 00372 M00S00364.1pp +++|* 00373 M00S00365.1pp +++|* CALLS AST, CPP, CSC, CTF, SME. 00374 M00S00366.1pp +++|* 00375 M00S00367.1pp +++|* MACROS MONITOR, SFA, SMSTF. 00376 M00S00368.1pp +++| 00377 M00S00369.1pp +++| 00378 M00S00370.1pp +++| CMS13 LDN SSTL 00379 M00S00371.1pp +++| CRD EJ 00380 M00S00372.1pp +++| ADN RDSL-SSTL 00381 M00S00373.1pp +++| CRD BB 00382 M00S00374.1pp +++| ADN OPRL-RDSL 00383 M00S00375.1pp +++| CRD AA 00384 M00S00376.1pp +++| SOD BB+1 00385 M00S00377.1pp +++| PJN CMS14 IF NOT TIME FOR *1CK* CALL 00386 M00S00378.1pp +++| LDN 15D RESET *1CK* TIMER 00387 M00S00379.1pp +++| STD BB+1 00388 M00S00380.1pp +++| LDC 0 00389 M00S00381.1pp +++| CMSA EQU *-1 00390 M00S00382.1pp +++| ZJN CMS14 IF NO *1CK* CALL REQUIRED 00391 M00S00383.1pp +++| LDN C1CK CALL *1CK* 00392 M00S00384.1pp +++| RJM CPP 00393 M00S00385.1pp +++| NJN CMS14 IF *1CK* ASSIGNED 00394 M00S00386.1pp +++| STD BB+1 RESET TIMER TO TRY ON NEXT CYCLE 00395 M00S00387.1pp +++| 00396 M00S00388.1pp +++|* CHECK FOR *CMS* CALL REQUIRED. 00397 M00S00389.1pp +++| 00398 M00S00390.1pp +++| CMS14 SOD BB DECREMENT *CMS* TIMER 00399 M00S00391.1pp +++| PJN CMS15 IF NOT TIME FOR *CMS* LABEL CHECK 00400 M00S00392.1pp +++| LDN 60D RESET LABEL CHECK TIMER 00401 M00S00393.1pp +++| STD BB 00402 M00S00394.1pp +++| LDD EJ+1 00403 M00S00395.1pp +++| SHN 21-6 00404 M00S00396.1pp +++| PJN CMS16 IF LABEL CHECK NOT DISABLED 00405 M00S00397.1pp +++| CMS15 LDC 0 CHECK IF *CMS* CALL REQUIRED 00406 M00S00398.1pp +++| CMSB EQU *-1 00407 M00S00399.1pp +++| ZJN CMS17 IF NO *CMS* CALL REQUIRED 00408 M00S00400.1pp +++| CMS16 LDC MSSI+FEAF*10000 00409 M00S00401.1pp +++| RJM AST GET SSCT ENTRY FOR *MSM* SUBSYSTEM 00410 M00S00402.1pp +++| NJN CMS17 IF *CMS* IS ALREADY ACTIVE 00411 M00S00403.1pp +++| LDN CCMS CALL *CMS* 00412 M00S00404.1pp +++| RJM CPP 00413 M00S00405.1pp +++| NJN CMS17 IF PP AVAILABLE 00414 M00S00406.1pp +++| STD BB RESET TIMER TO TRY ON NEXT CYCLE 00415 M00S00407.1pp +++| CMS17 LDC RDSL UPDATE *1CK*/*CMS* TIMERS 00416 M00S00408.1pp +++| CWD BB 00417 M00S00409.1pp +++| 00418 M00S00410.1pp +++|* CHECK FOR OPERATOR NOTIFICATION OF LOW SPACE. 00419 M00S00411.1pp +++| 00420 M00S00412.1pp +++| LDC 0 OPERATOR NOTIFICATION REQUIRED FLAG 00421 M00S00413.1pp +++| CMSC EQU *-1 00422 M00S00414.1pp +++| ZJN CMS18 IF NO OPERATOR NOTIFICATION REQUIRED 00423 M00S00415.1pp +++| LDD AA+3 00424 M00S00416.1pp +++| SHN 21-LSPE+1+14 00425 M00S00417.1pp +++| MJN CMSX IF NOTIFICATION ALREADY SET 00426 M00S00418.1pp +++| LDN LSPE SET OPERATOR NOTIFICATION EVENT 00427 M00S00419.1pp +++| STD CM+4 00428 M00S00420.1pp +++| LDN 0 ENTER EVENT 00429 M00S00421.1pp +++| STD CM+3 00430 M00S00422.1pp +++| STD CM+1 00431 M00S00423.1pp +++| MONITOR EATM 00432 M00S00424.1pp +++| UJN CMSX RETURN 00433 M00S00425.1pp +++| 00434 M00S00426.1pp +++|* CHECK FOR CLEARING OF LOW SPACE NOTIFICATION. 00435 M00S00427.1pp +++| 00436 M00S00428.1pp +++| CMS18 LDC 0 00437 M00S00429.1pp +++| CMSD EQU *-1 00438 M00S00430.1pp +++| NJN CMSX IF TO AVOID CLEARING NOTIFICATION 00439 M00S00431.1pp +++| LDD AA+3 00440 M00S00432.1pp +++| SHN 21-LSPE+1+14 00441 M00S00433.1pp +++| PJN CMSX IF NOTIFICATION NOT SET 00442 M00S00434.1pp +++| LDK OPRL SET BIT IN *OPRL* 00443 M00S00435.1pp +++| STD CM+4 00444 M00S00436.1pp +++| LDN 0 00445 M00S00437.1pp +++| STD CM+3 00446 M00S00438.1pp +++| STD CM+2 00447 M00S00439.1pp +++| LDN 1 00448 M00S00440.1pp +++| STD CM+1 00449 M00S00441.1pp +++| LDD MA 00450 M00S00442.1pp +++| CWM CMSE,ON 00451 M00S00443.1pp +++| MONITOR UTEM 00452 M00S00444.1pp +++| 00453 M00S00445.1pp +++| CMS SUBR ENTRY/EXIT 00454 M00S00446.1pp +++| LDN ESTP 00455 M00S00447.1pp +++| CRD AA 00456 M00S00448.1pp +++| ADK RTCL-ESTP 00457 M00S00449.1pp +++| CRD TM 00458 M00S00450.1pp +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 00459 M00S00451.1pp +++| STD T8 00460 M00S00452.1pp +++| LDD AA+3 00461 M00S00453.1pp +++| STD T9 00462 M00S00454.1pp +++| 00463 M00S00455.1pp +++|* SCAN EST FOR INITIALIZE AND CHECKPOINT REQUESTS. 00464 M00S00456.1pp +++| 00465 M00S00457.1pp +++| CMS1 AOD T8 00466 M00S00458.1pp +++| LMD T9 00467 M00S00459.1pp +++| NJN CMS2 IF EST SEARCH NOT COMPLETE 00468 M00S00460.1pp +++| LJM CMS13 CALL *1CK/CMS* 00469 M00S00461.1pp +++| 00470 M00S00462.1pp +++| CMS2 SFA EST,T8 READ EST ENTRY 00471 M00S00463.1pp +++| ADK EQDE 00472 M00S00464.1pp +++| CRD EJ 00473 M00S00465.1pp +++| LDD EJ CHECK DEVICE TYPE 00474 M00S00466.1pp +++| SHN 21-13 00475 M00S00467.1pp +++| PJN CMS1 IF NOT MASS STORAGE DEVICE 00476 M00S00468.1pp +++| SHN 21-1-21+13 00477 M00S00469.1pp +++| MJN CMS1 IF DEVICE IS *OFF* OR *DOWN* 00478 M00S00470.1pp +++| LDD EJ+4 00479 M00S00471.1pp +++| SHN 3 00480 M00S00472.1pp +++| ADK TDGL READ TRACKS AVAILABLE 00481 M00S00473.1pp +++| CRD T0 00482 M00S00474.1pp +++| ADN ACGL-TDGL READ REDEFINITION REQUEST 00483 M00S00475.1pp +++| CRD CM 00484 M00S00476.1pp +++| ADN NVGL-ACGL READ FLAW REQUEST 00485 M00S00477.1pp +++| CRD T6 00486 M00S00478.1pp +++| ADN DALL-NVGL READ DEVICE STATE BITS 00487 M00S00479.1pp +++| CRD T7 00488 M00S00480.1pp +++| ADN STLL-DALL READ CHECKPOINT, *1MV*, INITIALIZE 00489 M00S00481.1pp +++| CRD BB 00490 M00S00482.1pp +++| ADN THLL-STLL READ DEVICE THRESHOLDS 00491 M00S00483.1pp +++| CRD AA 00492 M00S00484.1pp +++| 00493 M00S00485.1pp +++|* CHECK FOR *CMS* CALL REQUIRED. 00494 M00S00486.1pp +++| 00495 M00S00487.1pp +++| LDD CM+4 00496 M00S00488.1pp +++| LPC MGRDR 00497 M00S00489.1pp +++| NJN CMS3 IF REDEFINITION REQUESTED 00498 M00S00490.1pp +++| LDD BB 00499 M00S00491.1pp +++| LPN MLIRP 00500 M00S00492.1pp +++| ZJN CMS4 IF INITIALIZE IS NOT REQUESTED 00501 M00S00493.1pp +++| LDD BB 00502 M00S00494.1pp +++| LPC MLFPR+MLUNL 00503 M00S00495.1pp +++| NJN CMS4 IF PACK FORMAT/UNLOAD REQUESTED 00504 M00S00496.1pp +++| LDD BB 00505 M00S00497.1pp +++| LPC MLIAL+MLIHD+MLIFD+MLIPF 00506 M00S00498.1pp +++| ZJN CMS3 IF NOT TOTAL/PF INITIALIZE 00507 M00S00499.1pp +++| LDD BB+3 00508 M00S00500.1pp +++| NJN CMS4 IF ACTIVITY ON DEVICE 00509 M00S00501.1pp +++| CMS3 AOM CMSB SET *CMS* CALL REQUIRED 00510 M00S00502.1pp +++| 00511 M00S00503.1pp +++|* CHECK FOR *1CK* CALL REQUIRED. 00512 M00S00504.1pp +++| 00513 M00S00505.1pp +++| CMS4 LDD BB (TIME TO PROCESS CHECKPOINT REQUESTS) 00514 M00S00506.1pp +++| LPN MLCKP 00515 M00S00507.1pp +++| ZJN CMS5 IF CHECKPOINT NOT REQUESTED ON DEVICE 00516 M00S00508.1pp +++| AOM CMSA NOTE CHECKPOINT BIT SET 00517 M00S00509.1pp +++| 00518 M00S00510.1pp +++|* CHECK FOR *1MV* CALL REQUIRED. 00519 M00S00511.1pp +++| 00520 M00S00512.1pp +++| CMS5 LDD T7 00521 M00S00513.1pp +++| LPC 200 00522 M00S00514.1pp +++| NJN CMS7 IF SUSPECT DEVICE 00523 M00S00515.1pp +++| RJM CTF CHECK TRACK FLAW 00524 M00S00516.1pp +++| ZJN CMS6 IF TRACK FLAWED 00525 M00S00517.1pp +++| RJM CSC CHECK SWEEP CYCLING 00526 M00S00518.1pp +++| MJN CMS8 IF NO SWEEP CYCLING CALL REQUIRED 00527 M00S00519.1pp +++| SOM CSCA DECREMENT REMAINING CALL COUNT 00528 M00S00520.1pp +++| LDN SCFC&MVFC SET SWEEP CYCLING 00529 M00S00521.1pp +++| CMS6 LMK MVFC&DVFC SET MEDIA VERIFICATION 00530 M00S00522.1pp +++| CMS7 LMK DVFC SET DEVICE VERIFICATION 00531 M00S00523.1pp +++| SHN 6 00532 M00S00524.1pp +++| STM TCPP+C1MV+3 00533 M00S00525.1pp +++| LDD BB+1 00534 M00S00526.1pp +++| SHN 21-7 00535 M00S00527.1pp +++| MJN CMS8 IF *1MV* ACTIVE 00536 M00S00528.1pp +++| LDD T8 SET EQUIPMENT IN REQUEST 00537 M00S00529.1pp +++| STD T5 00538 M00S00530.1pp +++| STM TCPP+C1MV+2 00539 M00S00531.1pp +++| LDN C1MV 00540 M00S00532.1pp +++| RJM CPP 00541 M00S00533.1pp +++| ZJN CMS8 IF PP NOT ASSIGNED 00542 M00S00534.1pp +++| SMSTF L1MV SET *1MV* ACTIVE 00543 M00S00535.1pp +++| 00544 M00S00536.1pp +++|* PROCESS LOW SPACE, RESTRICT NEW ACTIVITY FLAG. 00545 M00S00537.1pp +++| 00546 M00S00538.1pp +++| CMS8 LDD T0+4 00547 M00S00539.1pp +++| SBD AA+1 00548 M00S00540.1pp +++| SHN -21+6 (A) BIT 6 = 0, IF THRESHOLD NOT EXCEEDED 00549 M00S00541.1pp +++| LMD T7 00550 M00S00542.1pp +++| SHN 21-6 00551 M00S00543.1pp +++| PJN CMS9 IF RESTRICT NEW ACTIVITY BIT CORRECT 00552 M00S00544.1pp +++| LDD T7 00553 M00S00545.1pp +++| SHN -6 00554 M00S00546.1pp +++| LPN 1 00555 M00S00547.1pp +++| LMN 1 00556 M00S00548.1pp +++| ADN /CPS/CRES SET/CLEAR RESTRICT NEW ACTIVITY BIT 00557 M00S00549.1pp +++| ERRNZ /CPS/SRES-/CPS/CRES-1 CODE DEPENDS ON VALUE OF TAGS 00558 M00S00550.1pp +++| STD CM+2 00559 M00S00551.1pp +++| LDD T8 SET EQUIPMENT 00560 M00S00552.1pp +++| STD CM+1 00561 M00S00553.1pp +++| MONITOR SEQM 00562 M00S00554.1pp +++| 00563 M00S00555.1pp +++|* PROCESS LOW TRACK NOTIFICATION THRESHOLD. 00564 M00S00556.1pp +++| 00565 M00S00557.1pp +++| CMS9 LDD AA+2 CHECK FOR LOW SPACE THRESHOLD EXCEEDED 00566 M00S00558.1pp +++| LPC 3777 00567 M00S00559.1pp +++| SBN 1 00568 M00S00560.1pp +++| SBD T0+4 00569 M00S00561.1pp +++| PJN CMS10 IF THRESHOLD EXCEEDED 00570 M00S00562.1pp +++| ADN 5+1 00571 M00S00563.1pp +++| PJN CMS11 IF INSUFFICIENT SPACE TO CLEAR *OPRL* 00572 M00S00564.1pp +++| LDD AA+2 CLEAR *OPERATOR NOTIFIED* FLAG 00573 M00S00565.1pp +++| LPC 3777 00574 M00S00566.1pp +++| STD AA+2 00575 M00S00567.1pp +++| LDD EJ+4 REWRITE *THLL* IN MST 00576 M00S00568.1pp +++| SHN 3 00577 M00S00569.1pp +++| ADN THLL 00578 M00S00570.1pp +++| CWD AA 00579 M00S00571.1pp +++| UJN CMS12 CONTINUE 00580 M00S00572.1pp +++| 00581 M00S00573.1pp +++| CMS10 LDD AA+2 00582 M00S00574.1pp +++| SHN 21-13 00583 M00S00575.1pp +++| MJN CMS11 IF OPERATOR PREVIOUSLY NOTIFIED 00584 M00S00576.1pp +++| LDC 4000 SET *OPERATOR NOTIFIED* FLAG 00585 M00S00577.1pp +++| RAD AA+2 00586 M00S00578.1pp +++| LDD EJ+4 REWRITE *THLL* IN MST 00587 M00S00579.1pp +++| SHN 3 00588 M00S00580.1pp +++| ADN THLL 00589 M00S00581.1pp +++| CWD AA 00590 M00S00582.1pp +++| AOM CMSC NOTIFY OPERATOR 00591 M00S00583.1pp +++| CMS11 AOM CMSD PREVENT CLEARING *OPRL* LOW SPACE STATUS 00592 M00S00584.1pp +++| CMS12 RJM SME CHECK MST ERROR COUNTS 00593 M00S00585.1pp +++| LJM CMS1 PROCESS NEXT EQUIPMENT 00594 M00S00586.1pp +++| 00595 M00S00587.1pp +++| 00596 M00S00588.1pp +++| CMSE VFD 1/0,5/0,6/1 00597 M00S00589.1pp +++| VFD 6/LSPE-1,6/0 00598 M00S00590.1pp +++| CON 0,0,0 00599 M00S00591.1pp +++| COR SPACE 4,15 00600 M00S00592.1pp +++|** COR - CHECK IF OPERATOR ACTION IS REQUIRED. 00601 M00S00593.1pp +++|* 00602 M00S00594.1pp +++|* WHEN RUNNING IN A DUAL STATE ENVIROMENT, *COR* SETS BIT 56 00603 M00S00595.1pp +++|* IN WORD *D7ST* OF THE *EICB* BLOCK TO INDICATE THAT ACTION 00604 M00S00596.1pp +++|* IS REQUIRED BY THE CONSOLE OPERATOR. 00605 M00S00597.1pp +++|* 00606 M00S00598.1pp +++|* USES EO, T7, AA - AA+4, BB - BB+4, CM - CM+4, T1 - T5. 00607 M00S00599.1pp +++|* 00608 M00S00600.1pp +++|* CALLS AST, EJA. 00609 M00S00601.1pp +++| 00610 M00S00602.1pp +++| 00611 M00S00603.1pp +++|* SET BIT INDICATING THAT ACTION IS REQUIRED OF THE CONSOLE 00612 M00S00604.1pp +++|* OPERATOR. 00613 M00S00605.1pp +++| 00614 M00S00606.1pp +++| COR6 LDD AA 00615 M00S00607.1pp +++| LPC 7377 00616 M00S00608.1pp +++| LMC 400 00617 M00S00609.1pp +++| CORA EQU *-1 00618 M00S00610.1pp +++|* LMC 0 (CLEAR BIT IF NO ACTION IS REQUIRED) 00619 M00S00611.1pp +++| STD AA 00620 M00S00612.1pp +++| LDK EIBP 00621 M00S00613.1pp +++| CRD CM 00622 M00S00614.1pp +++| LDD CM+3 REPLACE WORD *D7ST* 00623 M00S00615.1pp +++| SHN 14 00624 M00S00616.1pp +++| LMD CM+4 00625 M00S00617.1pp +++| ADK D7ST 00626 M00S00618.1pp +++| CWD AA 00627 M00S00619.1pp +++| ADK D8ST-D7ST 00628 M00S00620.1pp +++| CRD AA 00629 M00S00621.1pp +++| SBN D8ST-D8TY 00630 M00S00622.1pp +++| CRD CM 00631 M00S00623.1pp +++| LDC ** *NVE* CONTROL POINT ADDRESS 00632 M00S00624.1pp +++| CORB EQU *-1 00633 M00S00625.1pp +++| ZJN CORX IF NOS/VE NOT ACTIVE 00634 M00S00626.1pp +++| LDD CM+3 CHECK NOS/VE STATUS 00635 M00S00627.1pp +++| LPN 77 00636 M00S00628.1pp +++| LMN 2 00637 M00S00629.1pp +++| NJN CORX IF NOS/VE NOT RUNNING 00638 M00S00630.1pp +++| LDD AA 00639 M00S00631.1pp +++| SHN 21-10 00640 M00S00632.1pp +++| MJN COR7 IF NOS/VE REQUESTING OPERATOR ATTENTION 00641 M00S00633.1pp +++| LDN 0 CLEAR MESSAGE AT *NVE* CONTROL POINT 00642 M00S00634.1pp +++| STM CORC 00643 M00S00635.1pp +++| COR7 LDM CORB ISSUE/CLEAR MESSAGE AT *NVE* CONTROL POINT 00644 M00S00636.1pp +++| ADK MS2W 00645 M00S00637.1pp +++| CWM CORC,TR 00646 M00S00638.1pp +++| 00647 M00S00639.1pp +++| COR SUBR ENTRY/EXIT 00648 M00S00640.1pp +++| LDK EIBP 00649 M00S00641.1pp +++| CRD CM 00650 M00S00642.1pp +++| LDD CM+3 00651 M00S00643.1pp +++| SHN 14 00652 M00S00644.1pp +++| LMD CM+4 00653 M00S00645.1pp +++| ZJN CORX IF *EICB* NOT DEFINED 00654 M00S00646.1pp +++| ADK D7ST 00655 M00S00647.1pp +++| CRD AA SAVE CONTENTS OF *D7ST* 00656 M00S00648.1pp +++| LDK NVOL 00657 M00S00649.1pp +++| CRD CM 00658 M00S00650.1pp +++| LDD CM+4 00659 M00S00651.1pp +++| ZJN CORX IF NOS/VE NOT ACTIVE 00660 M00S00652.1pp +++| LDD EO SAVE EJT ORDINAL 00661 M00S00653.1pp +++| STD BB 00662 M00S00654.1pp +++| LDC SSCP READ *SSAT* POINTER 00663 M00S00655.1pp +++| CRD CM 00664 M00S00656.1pp +++| LDD CM+2 00665 M00S00657.1pp +++| LPN 37 00666 M00S00658.1pp +++| SHN 14 00667 M00S00659.1pp +++| LMD CM+3 00668 M00S00660.1pp +++| 00669 M00S00661.1pp +++| .W SET MXSI-NVSI CALCULATE WORD OFFSET IN *SSAT* 00670 M00S00662.1pp +++| .W SET .W/5 00671 M00S00663.1pp +++| .B SET MXSI-5*.W-NVSI CALCULATE BYTE OFFSET IN *SSAT* WORD 00672 M00S00664.1pp +++| 00673 M00S00665.1pp +++| ADK SSCTL+.W READ *SSAT* WORD FOR *NVE* SUBSYSTEM 00674 M00S00666.1pp +++| CRD CM 00675 M00S00667.1pp +++| LDD CM+.B SET *NVE* EJT ORDINAL 00676 M00S00668.1pp +++| STD EO 00677 M00S00669.1pp +++| RJM EJA GET ADDRESS OF EJT ENTRY 00678 M00S00670.1pp +++| ADK SCHE 00679 M00S00671.1pp +++| CRD CM 00680 M00S00672.1pp +++| LDD BB RESTORE EJT ORDINAL 00681 M00S00673.1pp +++| STD EO 00682 M00S00674.1pp +++| LDD CM+3 SAVE CP ADDRESS OF *NVE* 00683 M00S00675.1pp +++| LPN 77 00684 M00S00676.1pp +++| SHN 7 00685 M00S00677.1pp +++| STM CORB 00686 M00S00678.1pp +++| 00687 M00S00679.1pp +++|* CHECK FOR SYSTEM PROBLEMS. 00688 M00S00680.1pp +++| 00689 M00S00681.1pp +++| LDN 0 00690 M00S00682.1pp +++| CRD CM 00691 M00S00683.1pp +++| LDD CM 00692 M00S00684.1pp +++| ADD CM+1 00693 M00S00685.1pp +++| ADD CM+2 00694 M00S00686.1pp +++| ADD CM+3 00695 M00S00687.1pp +++| ADD CM+4 00696 M00S00688.1pp +++| NJN COR2 IF WORD ZERO OF LOW CORE IS NON-ZERO 00697 M00S00689.1pp +++| LDK OPRL 00698 M00S00690.1pp +++| CRD CM 00699 M00S00691.1pp +++| LDD CM 00700 M00S00692.1pp +++| ADD CM+1 00701 M00S00693.1pp +++| ADD CM+2 00702 M00S00694.1pp +++| ADD CM+3 00703 M00S00695.1pp +++| ADD CM+4 00704 M00S00696.1pp +++| NJN COR2 IF OPERATOR MESSAGE IS PRESENT 00705 M00S00697.1pp +++| 00706 M00S00698.1pp +++|* SCAN CONTROL POINTS FOR REQUIRED ACTION BY OPERATOR. 00707 M00S00699.1pp +++| 00708 M00S00700.1pp +++| LDD CP INITIALIZE CP ADDRESS FOR BACKWARD SCAN 00709 M00S00701.1pp +++| STD T7 00710 M00S00702.1pp +++| ADK MS2W 00711 M00S00703.1pp +++| CRD CM 00712 M00S00704.1pp +++| LDD CM 00713 M00S00705.1pp +++| NJN COR2 IF MESSAGE AT SYSTEM CONTROL POINT 00714 M00S00706.1pp +++| COR1 LDC -200 DECREMENT CONTROL POINT ADDRESS 00715 M00S00707.1pp +++| RAD T7 00716 M00S00708.1pp +++| NJN COR3 IF NOT END OF CONTROL POINTS 00717 M00S00709.1pp +++| STM CORA CLEAR BIT IN *D7ST* 00718 M00S00710.1pp +++| COR2 LJM COR6 RESET BIT IN *D7ST* 00719 M00S00711.1pp +++| 00720 M00S00712.1pp +++| COR3 ADK TFSW 00721 M00S00713.1pp +++| CRD CM 00722 M00S00714.1pp +++| LDD CM 00723 M00S00715.1pp +++| ZJN COR1 IF NO JOB AT CONTROL POINT 00724 M00S00716.1pp +++| LDD T7 00725 M00S00717.1pp +++| ADK SNSW 00726 M00S00718.1pp +++| CRD CM 00727 M00S00719.1pp +++| ADK MS1W-SNSW 00728 M00S00720.1pp +++| CRD T1 00729 M00S00721.1pp +++| ADK MS2W-MS1W 00730 M00S00722.1pp +++| CRD BB 00731 M00S00723.1pp +++| LDD CM+3 00732 M00S00724.1pp +++| SHN 21-0 00733 M00S00725.1pp +++| PJN COR4 IF PAUSE FLAG NOT SET 00734 M00S00726.1pp +++| LDD T1 00735 M00S00727.1pp +++| ADD BB 00736 M00S00728.1pp +++| NJN COR2 IF MESSAGE IS PRESENT 00737 M00S00729.1pp +++| COR4 LDD BB 00738 M00S00730.1pp +++| ZJN COR1 IF NO MESSAGE IN *MS2W* 00739 M00S00731.1pp +++| SHN -6 00740 M00S00732.1pp +++| LMN 1R$ 00741 M00S00733.1pp +++| COR5 NJN COR1 IF NOT FLASHING MESSAGE 00742 M00S00734.1pp +++| LDD T7 00743 M00S00735.1pp +++| ADK JOTW 00744 M00S00736.1pp +++| CRD BB 00745 M00S00737.1pp +++| LDD BB+3 00746 M00S00738.1pp +++| LMK SYOT 00747 M00S00739.1pp +++| NJN COR5 IF NOT SYSTEM ORIGIN JOB 00748 M00S00740.1pp +++| UJN COR2 SET BIT IN *D7ST* 00749 M00S00741.1pp +++| 00750 M00S00742.1pp +++| 00751 M00S00743.1pp +++| CORC DATA C*$SEE NOS/VE DISPLAY*
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00752 M01S00008.274l797 +++| OSS SPACE 4,16 00753 M01S00009.274l797 +++|** OSS - OPTICAL STORAGE SCANNER. 00754 M01S00010.274l797 +++|* 00755 M01S00011.274l797 +++|* UPDATES THE OPTICAL DISK STATUS TABLE AND SCANS THE 00756 M01S00012.274l797 +++|* OPTICAL DISK REQUEST TABLE FOR MOUNTED DISKS. 00757 M01S00013.274l797 +++|* 00758 M01S00014.274l797 +++|* ENTRY NONE. 00759 M01S00015.274l797 +++|* 00760 M01S00016.274l797 +++|* EXIT INTERVAL COUNTER UPDATED. 00761 M01S00017.274l797 +++|* 00762 M01S00018.274l797 +++|* USES CM+1, AA - AA+4. 00763 M01S00019.274l797 +++|* 00764 M01S00020.274l797 +++|* CALLS *1OS*. 00765 M01S00021.274l797 +++|* 00766 M01S00022.274l797 +++|* MACROS MONITOR. 00767 M01S00023.274l797 +++| 00768 M01S00024.274l797 +++| 00769 M01S00025.274l797 +++| OSS SUBR ENTRY/EXIT 00770 M01S00026.274l797 +++| LDC OSTP READ OST POINTER WORD 00771 M01S00027.274l797 +++| CRD AA 00772 M01S00028.274l797 +++| LDD AA+2 00773 M01S00029.274l797 +++| ZJN OSSX IF NO OPTICAL DEVICES DEFINED 00774 M01S00030.274l797 +++| LDD AA+4 00775 M01S00031.274l797 +++| SHN 21-13 00776 M01S00032.274l797 +++| MJN OSSX IF SCANNER DISABLED OR *1OS* ACTIVE 00777 M01S00033.274l797 +++| SOD AA+4 DECREMENT INTERVAL COUNTER 00778 M01S00034.274l797 +++| OSS1 LDC OSTP UPDATE *OST* POINTER WORD 00779 M01S00035.274l797 +++| CWD AA 00780 M01S00036.274l797 +++| LDD AA+4 00781 M01S00037.274l797 +++| NJN OSSX IF INTERVAL COUNT NOT EXHAUSTED 00782 M01S00038.274l797 +++| LDC 4000 SET *1OS* ACTIVE 00783 M01S00039.274l797 +++| STD AA+4 00784 M01S00040.274l797 +++| LDC OSTP UPDATE *OST* POINTER WORD 00785 M01S00041.274l797 +++| CWD AA 00786 M01S00042.274l797 +++| LDD MA 00787 M01S00043.274l797 +++| CWM OSSA,ON WRITE INPUT REGISTER 00788 M01S00044.274l797 +++| LDD IR+1 SET CP NUMBER 00789 M01S00045.274l797 +++| LPN 37 00790 M01S00046.274l797 +++| RAM OSSA+1 00791 M01S00047.274l797 +++| LDN 10 ASSIGN TO SYSTEM CP 00792 M01S00048.274l797 +++| STD CM+1 00793 M01S00049.274l797 +++| MONITOR RPPM REQUEST PP 00794 M01S00050.274l797 +++| LDD CM+1 00795 M01S00051.274l797 +++| NJP OSSX IF PP ASSIGNED 00796 M01S00052.274l797 +++| LDN 1 SET INTERVAL COUNTER FOR RETRY 00797 M01S00053.274l797 +++| STD AA+4 00798 M01S00054.274l797 +++| UJN OSS1 UPDATE *OST* POINTER WORD 00799 M01S00055.274l797 +++| 00800 M01S00056.274l797 +++| OSSA VFD 18/0L1OS,42/0 *1OS* PP INPUT REGISTER 00801 M00S00744.1pp +++| PCA SPACE 4,20 00802 M00S00745.1pp +++|** PCA - PROCESS CONTROL POINT AREAS. 00803 M00S00746.1pp +++|* 00804 M00S00747.1pp +++|* SCAN THE CPA-S AND PCPA-S CHECKING FOR ACCUMULATOR 00805 M00S00748.1pp +++|* OVERFLOW AND EXPIRED CM/CP TIME SLICES. THE *TOVF* TABLE 00806 M00S00749.1pp +++|* IS BUILT CONTAINING ACCUMULATOR OVERFLOW FLAGS FROM WORD 00807 M00S00750.1pp +++|* *SRUW* OF EACH ACTIVE CPA. FOR JOBS HAVING AN EXPIRED CM 00808 M00S00751.1pp +++|* TIME SLICE, THE SCHEDULING PRIORITY WILL BE REDUCED TO THE 00809 M00S00752.1pp +++|* LOWER BOUND OF THE JOB-S SERVICE CLASS. JOBS HAVING AN 00810 M00S00753.1pp +++|* EXPIRED CONTROL POINT TIME SLICE WILL HAVE THEIR SCHEDULING 00811 M00S00754.1pp +++|* PRIORITY REDUCED TO THE CP SLICE PRIORITY FOR THEIR 00812 M00S00755.1pp +++|* RESPECTIVE SERVICE CLASSES. 00813 M00S00756.1pp +++|* 00814 M00S00757.1pp +++|* ENTRY (NC) = NUMBER OF CONTROL POINTS. 00815 M00S00758.1pp +++|* (PN) = NUMBER OF MCT ENTRIES. 00816 M00S00759.1pp +++|*
| Line S00760 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00817 M01S00760.273l780 ---|* USES EO, SC, T3, T6, T7, AA - AA+4, BB - BB+4, CM - CM+4,
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00818 M01S00001.273l780 +++|* USES EO, SC, T3, T7, AA - AA+4, BB - BB+4, CM - CM+4, 00819 M00S00761.1pp +++|* EJ - EJ+4. 00820 M00S00762.1pp +++|*
| Line S00763 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00821 M01S00763.273l780 ---|* CALLS CCS, CET, CPS, CWR, EJA, IRR, IUT, PIS, SSA. 00822 M01S00764.273l780 ---|* 00823 M01S00765.273l780 ---|* MACROS LCPA.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00824 M01S00002.273l780 +++|* CALLS CCA, CCS, CET, CPS, CWR, EJA, IRR, IUT, PIS, SSA. 00825 M00S00766.1pp +++| 00826 M00S00767.1pp +++| 00827 M00S00768.1pp +++| PCA19 RJM SSA WRITE TIME SLICE COUNT STATISTICS 00828 M00S00769.1pp +++| CWM PCAE,ON 00829 M00S00770.1pp +++| 00830 M00S00771.1pp +++| PCA SUBR ENTRY/EXIT 00831 M00S00772.1pp +++| RJM SSA READ TIME SLICE COUNT STATISTICS 00832 M00S00773.1pp +++| CRM PCAE,ON 00833 M00S00774.1pp +++| LDN 0 INITIALIZE CP/PCP NUMBER 00834 M00S00775.1pp +++| STD T7 00835 M00S00776.1pp +++| PCA1 AOD T7 ADVANCE TO NEXT CP/PCP 00836 M00S00777.1pp +++| LMD NC 00837 M00S00778.1pp +++| ZJN PCA1 IF SYSTEM CONTROL POINT 00838 M00S00779.1pp +++| LMD NC 00839 M00S00780.1pp +++| LMD PN 00840 M00S00781.1pp +++| ZJN PCA19 IF END OF SCAN
| Line S00782 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00841 M01S00782.273l780 ---| LCPA SRUW,T7
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00842 M01S00003.273l780 +++| LDD T7 SET CP/PCP ADDRESS 00843 M01S00004.273l780 +++| RJM CCA 00844 M01S00005.273l780 +++| ADK SRUW 00845 M00S00783.1pp +++| CRD BB 00846 M00S00784.1pp +++| ADN TFSW-SRUW 00847 M00S00785.1pp +++| CRD AA 00848 M00S00786.1pp +++| LDD T7 00849 M00S00787.1pp +++| SBD NC 00850 M00S00788.1pp +++| PJN PCA2 IF PCP 00851 M00S00789.1pp +++| LDN 0 PRESET OVERFLOW FLAGS TABLE ENTRY 00852 M00S00790.1pp +++| STM TOVF-1,T7 00853 M00S00791.1pp +++| PCA2 LDD AA 00854 M00S00792.1pp +++| ZJN PCA1 IF NO JOB AT CP/PCP 00855 M00S00793.1pp +++| STD EO EJT ORDINAL 00856 M00S00794.1pp +++| RJM EJA CALCULATE EJT ENTRY ADDRESS 00857 M00S00795.1pp +++| ADK JSNE 00858 M00S00796.1pp +++| CRD EJ READ *JSNE* WORD OF EJT ENTRY 00859 M00S00797.1pp +++| ADN SCLE-JSNE 00860 M00S00798.1pp +++| CRD AA READ *SCLE* WORD OF EJT ENTRY 00861 M00S00799.1pp +++| LDD AA 00862 M00S00800.1pp +++| SHN -6 00863 M00S00801.1pp +++| STD SC 00864 M00S00802.1pp +++| LDD EJ+4 00865 M00S00803.1pp +++| SHN -1 00866 M00S00804.1pp +++| LPN 77 00867 M00S00805.1pp +++| LMK PCJS 00868 M00S00806.1pp +++| ZJN PCA4 IF PCP JOB AND ADVANCE CLEAR 00869 M00S00807.1pp +++| LMK EXJS&PCJS 00870 M00S00808.1pp +++| PCA3 NJP PCA1 IF ADVANCE SET OR NOT *EXJS* STATUS 00871 M00S00809.1pp +++| LDD BB SAVE OVERFLOW FLAGS
| Line S00810 Modification History | |
|---|---|
M01 (Removed by) | ns2753 |
Seq # *Modification Id* Act ----------------------------+ 00872 M01S00810.ns2753 ---| LPN 1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2753 |
Seq # *Modification Id* Act ----------------------------+ 00873 M01S00001.ns2753 +++| LPN 3 00874 M00S00811.1pp +++| SHN 14 00875 M00S00812.1pp +++| ADD BB+1 00876 M00S00813.1pp +++| SHN -5 00877 M00S00814.1pp +++| STM TOVF-1,T7
| Line S00815 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00878 M01S00815.273l780 ---| PCA4 LCPA JCIW,T7
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00879 M01S00006.273l780 +++| PCA4 LDD T7 SET CP/PCP ADDRESS 00880 M01S00007.273l780 +++| RJM CCA 00881 M01S00008.273l780 +++| ADK JCIW 00882 M00S00816.1pp +++| CRD CM 00883 M00S00817.1pp +++| LDD CM+2 00884 M00S00818.1pp +++| ZJN PCA6 IF ROLLOUT ALLOWED 00885 M00S00819.1pp +++| LMN ORSI CHECK FOR OPERATOR ROLLOUT ALLOWED 00886 M00S00820.1pp +++| PCA5 NJN PCA3 IF ROLLOUT INHIBITED OR SUBSYSTEM 00887 M00S00821.1pp +++| PCA6 LDD AA 00888 M00S00822.1pp +++| SHN 21-5 00889 M00S00823.1pp +++| PJN PCA7 IF NOT FORCED ROLLOUT 00890 M00S00824.1pp +++| LDN 0 00891 M00S00825.1pp +++| UJN PCA10 REQUEST ROLLOUT 00892 M00S00826.1pp +++| 00893 M00S00827.1pp +++| PCA7 SHN 5-4 00894 M00S00828.1pp +++| MJN PCA5 IF FORCED ROLLIN 00895 M00S00829.1pp +++| LDD BB 00896 M00S00830.1pp +++| SHN 21-10+1 00897 M00S00831.1pp +++| LPN 5 00898 M00S00832.1pp +++| ZJN PCA12 IF RESOURCE LIMIT NOT REACHED 00899 M00S00833.1pp +++| AOM PCAE+2 INCREMENT RESOURCE LIMIT ROLLOUT COUNT 00900 M00S00834.1pp +++| SHN -14 00901 M00S00835.1pp +++| RAM PCAE+1 00902 M00S00836.1pp +++| LDD EJ+4 00903 M00S00837.1pp +++| SHN 0-7 00904 M00S00838.1pp +++| LPN 17 00905 M00S00839.1pp +++| LMK OLCS 00906 M00S00840.1pp +++| ZJN PCA8 IF ON-LINE INTERACTIVE JOB 00907 M00S00841.1pp +++| LMK OLCS&DTCS 00908 M00S00842.1pp +++| ZJN PCA9 IF DETACHED INTERACTIVE JOB 00909 M00S00843.1pp +++| LDN 0 ROLLOUT ALL OTHER JOBS 00910 M00S00844.1pp +++| UJN PCA10 REQUEST ROLLOUT 00911 M00S00845.1pp +++| 00912 M00S00846.1pp +++| PCA8 LDN /CPS/ROSU&/CPS/ROSR SELECT *ROSR* SCHEDULER ROLLOUT 00913 M00S00847.1pp +++| PCA9 LMN /CPS/ROSU SELECT *ROCM* SUSPEND OPTION 00914 M00S00848.1pp +++| SHN 14 00915 M00S00849.1pp +++| PCA10 LMD T7 00916 M00S00850.1pp +++| RJM IRR ISSUE ROLLOUT REQUEST 00917 M00S00851.1pp +++| PCA11 LJM PCA1 CONTINUE CONTROL POINT SCAN 00918 M00S00852.1pp +++| 00919 M00S00853.1pp +++| PCA12 RJM CWR CHECK WAIT RESPONSE/CONNECTION INDICATORS
| Line S00854 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00920 M01S00854.273l780 ---| PCAA LCPA ECSW,T7
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00921 M01S00009.273l780 +++| PCAA LDD T7 SET CP/PCP ADDRESS 00922 M00S00855.1pp +++|* UJN PCA13 (USER ECS IS ENABLED)
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00923 M01S00010.273l780 +++| RJM CCA 00924 M01S00011.273l780 +++| ADK ECSW 00925 M00S00856.1pp +++| CRD CM 00926 M00S00857.1pp +++| LDD CM+4 00927 M00S00858.1pp +++| ZJN PCA13 IF NO ECS IS ASSIGNED TO JOB 00928 M00S00859.1pp +++| LDN 0 00929 M00S00860.1pp +++| UJN PCA10 REQUEST ROLLOUT 00930 M00S00861.1pp +++| 00931 M00S00862.1pp +++| PCA13 LDD T7 00932 M00S00863.1pp +++| SBD NC 00933 M00S00864.1pp +++| PJN PCA11 IF PCP JOB 00934 M00S00865.1pp +++| LDD AA+2 SAVE SLICE FLAG 00935 M00S00866.1pp +++| SHN 14 00936 M00S00867.1pp +++| STD T3 00937 M00S00868.1pp +++| SHN -14 00938 M00S00869.1pp +++| STD AA+2 00939 M00S00870.1pp +++| RJM CCS CHECK FOR EXPIRED CM SLICE 00940 M00S00871.1pp +++| PJN PCA14 IF CM SLICE IS EXPIRED 00941 M00S00872.1pp +++| LDD PN 00942 M00S00873.1pp +++| SBD NC 00943 M00S00874.1pp +++| SBN 1 00944 M00S00875.1pp +++| ZJN PCA11 IF NO PCP-S 00945 M00S00876.1pp +++| RJM CPS CHECK FOR EXPIRED CONTROL POINT SLICE 00946 M00S00877.1pp +++| MJP PCA1 IF CP SLICE NOT EXPIRED 00947 M00S00878.1pp +++| LDN 2 00948 M00S00879.1pp +++| STD T3 00949 M00S00880.1pp +++| PCA14 LDM PCAD,T3 00950 M00S00881.1pp +++| STM PCAB 00951 M00S00882.1pp +++| LDD T3 00952 M00S00883.1pp +++| NJN PCA15 IF EITHER CP SLICE OR NOT INITIAL SLICE 00953 M00S00884.1pp +++| RJM PIS PROCESS INITIAL SLICE 00954 M00S00885.1pp +++| PCA15 RJM EJA CALCULATE EJT ENTRY ADDRESS 00955 M00S00886.1pp +++| ADN SCHE 00956 M00S00887.1pp +++| CRD CM 00957 M00S00888.1pp +++| LDM TEPB+1*MXJC,SC PUT PRIORITY IN *UTEM* CALL 00958 M00S00889.1pp +++| PCAB EQU *-1 00959 M00S00890.1pp +++| STM PCAC+14D 00960 M00S00891.1pp +++| LDD CM+3 00961 M00S00892.1pp +++| STM PCAC+13D 00962 M00S00893.1pp +++| LDD EJ+4 STORE JOB STATUS IN *UTEM* BLOCK 00963 M00S00894.1pp +++| LPN 76 00964 M00S00895.1pp +++| STM PCAC+9D 00965 M00S00896.1pp +++| LDD T7 00966 M00S00897.1pp +++| SBD NC 00967 M00S00898.1pp +++| MJN PCA16 IF NOT PCP 00968 M00S00899.1pp +++| LDM PCAC+14D 00969 M00S00900.1pp +++| STD T1 00970 M00S00901.1pp +++| LDD SC 00971 M00S00902.1pp +++| SHN 14 00972 M00S00903.1pp +++| LMK EXQT 00973 M00S00904.1pp +++| RJM CET 00974 M00S00905.1pp +++| LDD T1 STORE ENTRY TIME IN *UTEM* BLOCK 00975 M00S00906.1pp +++| STM PCAC+13D 00976 M00S00907.1pp +++| LDD T2 00977 M00S00908.1pp +++| STM PCAC+14D 00978 M00S00909.1pp +++| UJN PCA17 REDUCE PRIORITY TO LOWER BOUND 00979 M00S00910.1pp +++| 00980 M00S00911.1pp +++| PCA16 LDM PCAC+14D 00981 M00S00912.1pp +++| SBD CM+4 00982 M00S00913.1pp +++| PJN PCA18 IF PRIORITY ALREADY REDUCED 00983 M00S00914.1pp +++| 00984 M00S00915.1pp +++|* REDUCE SCHEDULING PRIORITY. 00985 M00S00916.1pp +++| 00986 M00S00917.1pp +++| PCA17 LDD SC PUT SERVICE CLASS IN *UTEM* CALL 00987 M00S00918.1pp +++| STM PCAC+4 00988 M00S00919.1pp +++| LDC PCAC+3*10000 00989 M00S00920.1pp +++| RJM IUT ISSUE *UTEM* MONITOR FUNCTION 00990 M00S00921.1pp +++| NJN PCA18 IF *UTEM* REJECTED 00991 M00S00922.1pp +++| LDD T3 00992 M00S00923.1pp +++| SBN 2 00993 M00S00924.1pp +++| PJN PCA18 IF CP SLICE EXPIRED 00994 M00S00925.1pp +++| AOM PCAE+4 INCREMENT SLICE COUNT 00995 M00S00926.1pp +++| SHN -14 00996 M00S00927.1pp +++| RAM PCAE+3 00997 M00S00928.1pp +++| PCA18 LJM PCA1 CONTINUE CONTROL POINT SCAN 00998 M00S00929.1pp +++| 00999 M00S00930.1pp +++| 01000 M00S00931.1pp +++|* *UTEM* PARAMETERS FOR CHANGING SCHEDULING PRIORITY. 01001 M00S00932.1pp +++| 01002 M00S00933.1pp +++| PCAC VFD 1/1,5/SCLE,6/6 VERIFY SERVICE CLASS 01003 M00S00934.1pp +++| VFD 6/54D,6/0 01004 M00S00935.1pp +++| CON 0 01005 M00S00936.1pp +++| CON 0 01006 M00S00937.1pp +++| CON 0 01007 M00S00938.1pp +++| 01008 M00S00939.1pp +++| VFD 1/1,5/JSNE,6/6 VERIFY UNCHANGED JOB STATE, CLEAR I/L 01009 M00S00940.1pp +++| VFD 6/0,6/0 01010 M00S00941.1pp +++| CON 0 01011 M00S00942.1pp +++| CON 0 01012 M00S00943.1pp +++| CON 0 01013 M00S00944.1pp +++| 01014 M00S00945.1pp +++| VFD 1/0,5/SCHE,6/24D SET SCHEDULING PRIORITY 01015 M00S00946.1pp +++| VFD 6/0,6/0 01016 M00S00947.1pp +++| CON 0 01017 M00S00948.1pp +++| CON 0 01018 M00S00949.1pp +++| CON 0 01019 M00S00950.1pp +++| 01020 M00S00951.1pp +++| PCAD CON TEPB 01021 M00S00952.1pp +++| CON TEPB+1*MXJC 01022 M00S00953.1pp +++| CON TEPB+3*MXJC 01023 M00S00954.1pp +++| 01024 M00S00955.1pp +++| PCAE BSS 5 *PF0S* BUFFER 01025 M00S00956.1pp +++| POF SPACE 4,15 01026 M00S00957.1pp +++|** POF - PROCESS OVERFLOW FLAGS. 01027 M00S00958.1pp +++|* 01028 M00S00959.1pp +++|* CALL *0AU* FOR EACH CONTROL POINT HAVING ACCUMULATOR 01029 M00S00960.1pp +++|* OVERFLOW. 01030 M00S00961.1pp +++|* 01031 M00S00962.1pp +++|* ENTRY (NC) = SYSTEM CONTROL POINT NUMBER. 01032 M00S00963.1pp +++|* *TOVF* TABLE CONTAINS ACCUMULATOR OVERFLOW FLAGS. 01033 M00S00964.1pp +++|*
| Line S00965 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01034 M01S00965.273l780 ---|* USES CP, EO, TP, CM - CM+4, (*0AU* USES CELLS 0 - 17B).
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01035 M01S00012.273l780 +++|* USES EO, TP, CM - CM+4. 01036 M00S00966.1pp +++|* 01037 M00S00967.1pp +++|* CALLS EJA, 0AU. 01038 M00S00968.1pp +++|* 01039 M00S00969.1pp +++|* MACROS EXECUTE, MONITOR. 01040 M00S00970.1pp +++| 01041 M00S00971.1pp +++| 01042 M00S00972.1pp +++| POF SUBR ENTRY/EXIT 01043 M00S00973.1pp +++| LDD NC INITIALIZE CONTROL POINT NUMBER 01044 M00S00974.1pp +++| STD TP 01045 M00S00975.1pp +++| POF1 SOD TP DECREMENT CONTROL POINT NUMBER 01046 M00S00976.1pp +++| ZJN POFX IF ALL CONTROL POINTS HAVE BEEN PROCESSED 01047 M00S00977.1pp +++| LDM TOVF-1,TP 01048 M00S00978.1pp +++| ZJN POF1 IF NO ACCUMULATOR OVERFLOW AT THIS CP 01049 M00S00979.1pp +++| LDD TP SAVE CONTROL POINT NUMBER FOR *CCAM* 01050 M00S00980.1pp +++| STD CM+1 01051 M00S00981.1pp +++| MONITOR CCAM CHANGE CONTROL POINT ASSIGNMENT 01052 M00S00982.1pp +++| LDD CM+1 01053 M00S00983.1pp +++| NJN POF1 IF FUNCTION REJECTED 01054 M00S00984.1pp +++| 01055 M00S00985.1pp +++|* SET UP *0AU* PARAMETERS. 01056 M00S00986.1pp +++|
| Line S00987 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01057 M01S00987.273l780 ---| LDD TP PLACE *SRU* ACCUMULATOR IN PARAMETER BLOCK 01058 M01S00988.273l780 ---| SHN 7 01059 M01S00989.273l780 ---| STD CP
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01060 M01S00013.273l780 +++| LDD CP 01061 M00S00990.1pp +++| ADN SRUW 01062 M00S00991.1pp +++| CRM P0AU+5,ON 01063 M00S00992.1pp +++| ADN FPFW-SRUW-1 01064 M00S00993.1pp +++| CRM OVL0,ON 01065 M00S00994.1pp +++| ADN TFSW-FPFW-1 01066 M00S00995.1pp +++| CRD CM 01067 M00S00996.1pp +++| LDM P0AU+6 01068 M00S00997.1pp +++| SCN 37 01069 M00S00998.1pp +++| NJN POF2 IF OVERFLOW 01070 M00S00999.1pp +++| LDM P0AU+5
| Line S01000 Modification History | |
|---|---|
M01 (Removed by) | ns2753 |
Seq # *Modification Id* Act ----------------------------+ 01071 M01S01000.ns2753 ---| LPN 1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2753 |
Seq # *Modification Id* Act ----------------------------+ 01072 M01S00002.ns2753 +++| LPN 3 01073 M00S01001.1pp +++| ZJN POF3 IF NO OVERFLOW FLAGS SET 01074 M00S01002.1pp +++| POF2 LDD CM PLACE JSN IN PARAMETER BLOCK 01075 M00S01003.1pp +++| STD EO 01076 M00S01004.1pp +++| RJM EJA CALCULATE EJT ENTRY ADDRESS 01077 M00S01005.1pp +++| ADK JSNE 01078 M00S01006.1pp +++| CRM P0AU,ON 01079 M00S01007.1pp +++| ADK SCLE-JSNE-1 SET SERVICE CLASS FOR *0AU* 01080 M00S01008.1pp +++| CRD CM 01081 M00S01009.1pp +++| LDD CM 01082 M00S01010.1pp +++| SCN 77 01083 M00S01011.1pp +++| STM P0AU+4 01084 M00S01012.1pp +++| LDC P0AU SET PARAMETER BLOCK ADDRESS 01085 M00S01013.1pp +++| STM OVL0+1 01086 M00S01014.1pp +++| LDM OVL0 SET *0AU* FUNCTION CODE 01087 M00S01015.1pp +++| SCN 77 01088 M00S01016.1pp +++| ADN 1 01089 M00S01017.1pp +++| STM OVL0 01090 M00S01018.1pp +++| 01091 M00S01019.1pp +++|* EXECUTE *0AU*. NOTE THAT *0AU* USES DIRECT CELLS 0 - 17B. 01092 M00S01020.1pp +++| 01093 M00S01021.1pp +++| EXECUTE 0AU,OVL0+5 01094 M00S01022.1pp +++| POF3 LDD NC SAVE SYSTEM CP NUMBER FOR *CCAM* 01095 M00S01023.1pp +++| STD CM+1
| Line S01024 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01096 M01S01024.273l780 ---| SHN 7 01097 M01S01025.273l780 ---| STD CP 01098 M00S01026.1pp +++| MONITOR CCAM CHANGE PP ASSIGNMENT TO SYSTEM CP 01099 M00S01027.1pp +++| LJM POF1 CONTINUE 01100 M00S01028.1pp +++| SPACE 4,10 01101 M00S01029.1pp +++| SEJ SPACE 4,20 01102 M00S01030.1pp +++|** SEJ - SCAN EJT. 01103 M00S01031.1pp +++|* 01104 M00S01032.1pp +++|* SET FLAGS IN WORD *OPRL* FOR POSTED OPERATOR ACTION EVENTS. 01105 M00S01033.1pp +++|* SCAN THE EJT LOOKING FOR JOBS HAVING TIMED/EVENT ROLLOUT JOB 01106 M00S01034.1pp +++|* STATUS, AND FOR JOBS WITH ACCESS LEVEL LIMITS OUTSIDE THEIR 01107 M00S01035.1pp +++|* JOB ORIGIN ACCESS LEVEL LIMITS. IF A JOB-S ROLLOUT TIME HAS 01108 M00S01036.1pp +++|* EXPIRED OR ITS EVENT IS POSTED, CHANGE THE JOB STATUS TO 01109 M00S01037.1pp +++|* SCHEDULER ROLLOUT (*ROJS*). IF A JOB-S ACCESS LEVEL LIMITS 01110 M00S01038.1pp +++|* ARE OUTSIDE ITS ORIGIN TYPE LIMIT, ABORT THE JOB WITH AN 01111 M00S01039.1pp +++|* *SYET* ERROR FLAG. SUBSYSTEMS ARE NOT ABORTED. 01112 M00S01040.1pp +++|* SCAN THE EJT LOOKING FOR JOBS IN SERVICE LIMIT WAIT STATUS 01113 M00S01041.1pp +++|* AND SET *ROJS* STATUS ON THE JOBS IF THEY ARE NOW WITHIN 01114 M00S01042.1pp +++|* THE SERVICE LIMIT CONSTRAINTS. 01115 M00S01043.1pp +++|* 01116 M00S01044.1pp +++|* USES EO, SC, AA - AA+4, BB - BB+4, CM - CM+4, 01117 M00S01045.1pp +++|* EJ - EJ+4, T0 - T0+4. 01118 M00S01046.1pp +++|* 01119 M00S01047.1pp +++|* CALLS CAL, OAE, PSL, PTE, RTE. 01120 M00S01048.1pp +++|* 01121 M00S01049.1pp +++|* MACROS CFI, MONITOR. 01122 M00S01050.1pp +++| 01123 M00S01051.1pp +++| 01124 M00S01052.1pp +++| SEJ5 LDD CF 01125 M00S01053.1pp +++| LPN 4 01126 M00S01054.1pp +++| ZJN SEJX IF SYSTEM LIMITS HAVE NOT CHANGED 01127 M00S01055.1pp +++| LDN 1 CLEAR SYSTEM LIMITS CHANGED FLAG 01128 M00S01056.1pp +++| STD CM+1 01129 M00S01057.1pp +++| STD CM+2 01130 M00S01058.1pp +++| LDD MA 01131 M00S01059.1pp +++| CWM SEJD,ON 01132 M00S01060.1pp +++| MONITOR UADM 01133 M00S01061.1pp +++| 01134 M00S01062.1pp +++| SEJ SUBR ENTRY/EXIT 01135 M00S01063.1pp +++| RJM RTE READ TABLE OF EVENTS 01136 M00S01064.1pp +++| LDD T7 GET EVENT COUNT 01137 M00S01065.1pp +++| 01138 M00S01066.1pp +++|* CHECK FOR OPERATOR ACTION EVENTS. 01139 M00S01067.1pp +++| 01140 M00S01068.1pp +++| RJM OAE PROCESS OPERATOR ACTION EVENTS 01141 M00S01069.1pp +++| 01142 M00S01070.1pp +++|* SCAN THE EJT. 01143 M00S01071.1pp +++| 01144 M00S01072.1pp +++| LDD CF GET SYSTEM LIMITS CHANGED STATUS 01145 M00S01073.1pp +++| LPN 4 01146 M00S01074.1pp +++| STM SEJC 01147 M00S01075.1pp +++| LDC ** PRESET EJT ORDINAL FOR BACKWARD SCAN 01148 M00S01076.1pp +++| SEJA EQU *-1 (LARGEST EJT ORDINAL + 1) 01149 M00S01077.1pp +++| STD EO 01150 M00S01078.1pp +++| SEJ1 SOD EO DECREMENT EJT ORDINAL 01151 M00S01079.1pp +++| ZJP SEJ5 IF EJT SCAN COMPLETE 01152 M00S01080.1pp +++| CFI EJT,,EO GET EJT ENTRY OFFSET 01153 M00S01081.1pp +++| ADC ** ADD EJT FWA (SET BY *PRS*) 01154 M00S01082.1pp +++| SEJB EQU *-1 (EJT FWA) 01155 M00S01083.1pp +++| ADK JSNE 01156 M00S01084.1pp +++| CRD EJ 01157 M00S01085.1pp +++| ADN SCHE-JSNE 01158 M00S01086.1pp +++| CRD AA 01159 M00S01087.1pp +++| ADN PRFE-SCHE 01160 M00S01088.1pp +++| CRD BB 01161 M00S01089.1pp +++| ADN SCLE-PRFE 01162 M00S01090.1pp +++| CRD T0 01163 M00S01091.1pp +++| LDD EJ 01164 M00S01092.1pp +++| ZJN SEJ1 IF EMPTY ENTRY 01165 M00S01093.1pp +++| LDD T0 GET SERVICE CLASS 01166 M00S01094.1pp +++| STM PTEA 01167 M00S01095.1pp +++| SHN -6 01168 M00S01096.1pp +++| STD SC 01169 M00S01097.1pp +++| LMN DSSC 01170 M00S01098.1pp +++| NJN SEJ2 IF NOT DEADSTART SEQUENCING JOB 01171 M00S01099.1pp +++| SOM CPPA SET D/S SEQUENCING FLAG 01172 M00S01100.1pp +++| SEJ2 LDC ** 01173 M00S01101.1pp +++| SEJC EQU *-1 (SYSTEM LIMITS CHANGED FLAG) 01174 M00S01102.1pp +++| ZJN SEJ3 IF SYSTEM LIMITS HAVE NOT CHANGED 01175 M00S01103.1pp +++| RJM CAL CHECK ACCESS LEVEL LIMITS 01176 M00S01104.1pp +++| NJN SEJ4 IF JOB ABORTED OR IN TERMINATION 01177 M00S01105.1pp +++| SEJ3 RJM PTE PROCESS TIMED/EVENT ROLLOUT JOBS 01178 M00S01106.1pp +++| RJM PSL PROCESS SERVICE LIMITS 01179 M00S01107.1pp +++| SEJ4 LJM SEJ1 PROCESS NEXT EJT ENTRY 01180 M00S01108.1pp +++| 01181 M00S01109.1pp +++| 01182 M00S01110.1pp +++|* *UADM* PARAMETERS TO CLEAR SYSTEM LIMITS CHANGED FLAG. 01183 M00S01111.1pp +++| 01184 M00S01112.1pp +++| SEJD CON /CPS/LDOS DECREMENT BY ONE 01185 M00S01113.1pp +++| CON INWL 01186 M00S01114.1pp +++| CON 14D*100+1 BIT ADDRESS AND FIELD WIDTH 01187 M00S01115.1pp +++| TITLE SECONDARY SUBROUTINES. 01188 M00S01116.1pp +++| CAL SPACE 4,20 01189 M00S01117.1pp +++|** CAL - CHECK ACCESS LEVEL LIMITS. 01190 M00S01118.1pp +++|* 01191 M00S01119.1pp +++|* CHECK IF THE JOB-S ACCESS LEVEL LIMITS ARE OUTSIDE THE 01192 M00S01120.1pp +++|* LIMITS FOR THE JOB-S ORIGIN TYPE. IF SO, ABORT THE JOB 01193 M00S01121.1pp +++|* WITH AN *SYET* ERROR. SUBSYSTEMS WILL NOT BE ABORTED. 01194 M00S01122.1pp +++|* IGNORE ALL JOBS THAT ALREADY HAVE *SYET* OR *TJET* ERROR 01195 M00S01123.1pp +++|* FLAGS, AS WELL AS JOBS ALREADY IN JOB TERMINATION. 01196 M00S01124.1pp +++|* 01197 M00S01125.1pp +++|* ENTRY (EO) = EJT ORDINAL OF JOB. 01198 M00S01126.1pp +++|* (SC) = SERVICE CLASS OF JOB. 01199 M00S01127.1pp +++|* (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY. 01200 M00S01128.1pp +++|* (AA - AA+4) = *SCHE* WORD OF EJT ENTRY. 01201 M00S01129.1pp +++|* (BB - BB+4) = *PRFE* WORD OF EJT ENTRY. 01202 M00S01130.1pp +++|* (T0 - T0+4) = *SCLE* WORD OF EJT ENTRY. 01203 M00S01131.1pp +++|* 01204 M00S01132.1pp +++|* EXIT (A) .NE. 0 IF JOB ABORTED OR IN TERMINATION. 01205 M00S01133.1pp +++|* 01206 M00S01134.1pp +++|* USES CM - CM+4. 01207 M00S01135.1pp +++|* 01208 M00S01136.1pp +++|* MACROS DELAY, MONITOR. 01209 M00S01137.1pp +++| 01210 M00S01138.1pp +++| 01211 M00S01139.1pp +++| CAL3 LDN 1 SET ERROR RETURN STATUS 01212 M00S01140.1pp +++| 01213 M00S01141.1pp +++| CAL SUBR ENTRY/EXIT 01214 M00S01142.1pp +++| LDD AA+2 01215 M00S01143.1pp +++| SHN 21-12 01216 M00S01144.1pp +++| MJN CALX IF JOB TERMINATION IN PROGRESS 01217 M00S01145.1pp +++| LDD BB+1 01218 M00S01146.1pp +++| LMK SYET 01219 M00S01147.1pp +++| ZJN CAL3 IF JOB ALREADY HAS *SYET* ERROR 01220 M00S01148.1pp +++| LDD BB+2 01221 M00S01149.1pp +++| LPN 77 01222 M00S01150.1pp +++| SHN -3+22 01223 M00S01151.1pp +++| STD CM+4 SET LOWER ACCESS LEVEL LIMIT 01224 M00S01152.1pp +++| SHN -22+3 01225 M00S01153.1pp +++| STD CM+3 SET UPPER ACCESS LEVEL LIMIT 01226 M00S01154.1pp +++| LDD T0 SET ORIGIN TYPE 01227 M00S01155.1pp +++| LPN 17 01228 M00S01156.1pp +++| STD CM+2 01229 M00S01157.1pp +++| LDN /CPS/VJLS VALIDATE JOB LIMITS 01230 M00S01158.1pp +++| STD CM+1 01231 M00S01159.1pp +++| MONITOR VSAM 01232 M00S01160.1pp +++| LDD CM+1 01233 M00S01161.1pp +++| ZJN CALX IF JOB LIMITS VALID 01234 M00S01162.1pp +++| 01235 M00S01163.1pp +++|* SET *SYET* ERROR FLAG FOR ALL JOBS EXCEPT SUBSYSTEMS. 01236 M00S01164.1pp +++| 01237 M00S01165.1pp +++| LDD SC 01238 M00S01166.1pp +++| LMK SSSC 01239 M00S01167.1pp +++| ZJN CALX IF JOB IS SUBSYSTEM 01240 M00S01168.1pp +++| CAL1 LDC SYET+4000 SET ERROR FLAG 01241 M00S01169.1pp +++| STD CM+1 01242 M00S01170.1pp +++| LDD EO SET EJT ORDINAL 01243 M00S01171.1pp +++| STD CM+2 01244 M00S01172.1pp +++| LDD EJ SET JSN 01245 M00S01173.1pp +++| STD CM+3 01246 M00S01174.1pp +++| LDD EJ+1 01247 M00S01175.1pp +++| STD CM+4 01248 M00S01176.1pp +++| MONITOR CEFM 01249 M00S01177.1pp +++| LDD CM+1 01250 M00S01178.1pp +++| ZJP CAL3 IF ERROR FLAG SET 01251 M00S01179.1pp +++| DELAY 01252 M00S01180.1pp +++| UJN CAL1 RETRY
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01253 M01S00014.273l780 +++| CCA SPACE 4,10 01254 M01S00015.273l780 +++|** CCA - COMPUTE CPA/PCPA ADDRESS. 01255 M01S00016.273l780 +++|* 01256 M01S00017.273l780 +++|* ENTRY (A) = CP/PCP NUMBER. 01257 M01S00018.273l780 +++|* (NC) = NUMBER OF CONTROL POINTS. 01258 M01S00019.273l780 +++|* 01259 M01S00020.273l780 +++|* EXIT (A) = CPA/PCPA ADDRESS. 01260 M01S00021.273l780 +++| 01261 M01S00022.273l780 +++| 01262 M01S00023.273l780 +++| CCA1 ADD NC 01263 M01S00024.273l780 +++| SHN 7 01264 M01S00025.273l780 +++| 01265 M01S00026.273l780 +++| CCA SUBR ENTRY/EXIT 01266 M01S00027.273l780 +++| SBD NC 01267 M01S00028.273l780 +++| MJN CCA1 IF CONTROL POINT 01268 M01S00029.273l780 +++| ZJN CCA1 IF SYSTEM CONTROL POINT 01269 M01S00030.273l780 +++| SHN 7 01270 M01S00031.273l780 +++| CCAA ADC ** (PCP AREAS BASE ADDRESS) 01271 M01S00032.273l780 +++| UJN CCAX RETURN 01272 M00S01181.1pp +++| CCS SPACE 4,10 01273 M00S01182.1pp +++|** CCS - CHECK CM SLICE. 01274 M00S01183.1pp +++|* 01275 M00S01184.1pp +++|* CHECK FOR EXPIRED CM TIME SLICE. 01276 M00S01185.1pp +++|* 01277 M00S01186.1pp +++|* ENTRY (AA - AA+4) = WORD *TSCW* OF CPA/PCPA. 01278 M00S01187.1pp +++|* (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*. 01279 M00S01188.1pp +++|* 01280 M00S01189.1pp +++|* EXIT (A) .GE. 0 IF CM TIME SLICE EXPIRED. 01281 M00S01190.1pp +++| 01282 M00S01191.1pp +++| 01283 M00S01192.1pp +++| CCS SUBR ENTRY/EXIT 01284 M00S01193.1pp +++| LDD TM CALCULATE REAL TIME - CM SLICE TIME 01285 M00S01194.1pp +++| SBD AA 01286 M00S01195.1pp +++| NJN CCSX IF NO NEED TO CHECK LOWER BITS 01287 M00S01196.1pp +++| LDD TM+1 01288 M00S01197.1pp +++| SBD AA+1 01289 M00S01198.1pp +++| UJN CCSX RETURN 01290 M00S01199.1pp +++| CPP SPACE 4,10 01291 M00S01200.1pp +++|** CPP - CALL PP. 01292 M00S01201.1pp +++|* 01293 M00S01202.1pp +++|* THIS ROUTINE CALLS THE REQUESTED PP TO THE SYSTEM CONTROL 01294 M00S01203.1pp +++|* POINT. 01295 M00S01204.1pp +++|* 01296 M00S01205.1pp +++|* ENTRY (A) = RELATIVE PP CALL INDEX FROM TCPP. 01297 M00S01206.1pp +++|* 01298 M00S01207.1pp +++|* EXIT (A) = 0, IF NO PP AVAILABLE. 01299 M00S01208.1pp +++|* 01300 M00S01209.1pp +++|* USES T1, CM - CM+4. 01301 M00S01210.1pp +++| 01302 M00S01211.1pp +++| 01303 M00S01212.1pp +++| CPP2 LDN 0 INDICATE NO PP AVAILABLE 01304 M00S01213.1pp +++| 01305 M00S01214.1pp +++| CPP SUBR ENTRY/EXIT 01306 M00S01215.1pp +++| ADC TCPP SET ABSOLUTE TABLE ADDRESS 01307 M00S01216.1pp +++| STD T1 01308 M00S01217.1pp +++| STM CPPB 01309 M00S01218.1pp +++| SBM CPPC 01310 M00S01219.1pp +++| PJN CPP2 IF PP CALL DISABLED 01311 M00S01220.1pp +++| LDD T1 01312 M00S01221.1pp +++| ADC -C1MV-TCPP 01313 M00S01222.1pp +++| ZJN CPP1 IF *1MV* REQUESTED 01314 M00S01223.1pp +++| CPPA LDN 1 01315 M00S01224.1pp +++|* LDN 0 (D/S SEQUENCING) 01316 M00S01225.1pp +++| ZJN CPPX IF D/S SEQUENCING 01317 M00S01226.1pp +++| CPP1 LDM 1,T1 SET SYSTEM CP NUMBER 01318 M00S01227.1pp +++| SCN 77 01319 M00S01228.1pp +++| LMD NC 01320 M00S01229.1pp +++| STM 1,T1 01321 M00S01230.1pp +++| LDD MA 01322 M00S01231.1pp +++| CWM TCPP,ON 01323 M00S01232.1pp +++| CPPB EQU *-1 01324 M00S01233.1pp +++| EXECUTE 1CK,= 01325 M00S01234.1pp +++| EXECUTE 1DS,= 01326 M00S01235.1pp +++| EXECUTE 1MV,= 01327 M00S01236.1pp +++| LDN 1 SET PRIORITY PP FLAG 01328 M00S01237.1pp +++| STD CM+1 01329 M00S01238.1pp +++| MONITOR RPPM 01330 M00S01239.1pp +++| LDD CM+1
| Line S01240 Modification History | |
|---|---|
M01 (Removed by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01331 M01S01240.283l840 ---| UJN CPPX RETURN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01332 M01S00001.283l840 +++| UJP CPPX RETURN 01333 M00S01241.1pp +++| 01334 M00S01242.1pp +++| 01335 M00S01243.1pp +++| CPPC CON TCPP+C1MV+1 01336 M00S01244.1pp +++| TCPP BSS 0 TABLE OF PP CALLS 01337 M00S01245.1pp +++| LOC 0 01338 M00S01246.1pp +++| C1CK VFD 18/0L1CK,6/0,12/2,24/0 01339 M00S01247.1pp +++| CCMS VFD 18/0L1DS,6/0,12//1DS/ISSF,18/0LCMS,6/0 01340 M00S01248.1pp +++| C1MV VFD 18/0L1MV,6/0,12/0,6/0,18/0 01341 M00S01249.1pp +++| LOC *O 01342 M00S01250.1pp +++| CPS SPACE 4,10 01343 M00S01251.1pp +++|** CPS - CHECK CONTROL POINT SLICE. 01344 M00S01252.1pp +++|* 01345 M00S01253.1pp +++|* CHECK FOR EXPIRED CONTROL POINT SLICE. 01346 M00S01254.1pp +++|* 01347 M00S01255.1pp +++|* ENTRY (AA - AA+4) = WORD *TSCW* OF CONTROL POINT AREA. 01348 M00S01256.1pp +++|* (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*. 01349 M00S01257.1pp +++|* 01350 M00S01258.1pp +++|* EXIT (A) .GE. 0 IF CONTROL POINT SLICE EXPIRED. 01351 M00S01259.1pp +++| 01352 M00S01260.1pp +++| 01353 M00S01261.1pp +++| CPS SUBR ENTRY/EXIT 01354 M00S01262.1pp +++| LDD TM 01355 M00S01263.1pp +++| SBD AA+3 01356 M00S01264.1pp +++| NJN CPSX IF NO NEED TO CHECK LOWER BITS 01357 M00S01265.1pp +++| LDD TM+1 01358 M00S01266.1pp +++| SBD AA+4 01359 M00S01267.1pp +++| UJN CPSX RETURN 01360 M00S01268.1pp +++| CSC SPACE 4,10 01361 M00S01269.1pp +++|** CSC - CHECK SWEEP CYCLING. 01362 M00S01270.1pp +++|* 01363 M00S01271.1pp +++|* ENTRY (EJ - EJ+4) = *EQDE* WORD OF EST ENTRY. 01364 M00S01272.1pp +++|* (TM - TM+1) = SECONDS PORTION OF *RTCL*. 01365 M00S01273.1pp +++|* 01366 M00S01274.1pp +++|* EXIT (A) .GE. 0 IF SWEEP CYCLING CALL IS REQUIRED. 01367 M00S01275.1pp +++|* 01368 M00S01276.1pp +++|* USES CM - CM+5. 01369 M00S01277.1pp +++| 01370 M00S01278.1pp +++| 01371 M00S01279.1pp +++| CSC3 LCN 0 SET REPLY STATUS 01372 M00S01280.1pp +++| 01373 M00S01281.1pp +++| CSC SUBR ENTRY/EXIT 01374 M00S01282.1pp +++| LDN 1 01375 M00S01283.1pp +++| CSCA EQU *-1 01376 M00S01284.1pp +++| ZJN CSC3 IF SWEEP CYCLING CALL LIMIT REACHED 01377 M00S01285.1pp +++| LDD EJ 01378 M00S01286.1pp +++| LPN 3 01379 M00S01287.1pp +++| LMN 3 01380 M00S01288.1pp +++| ZJN CSC3 IF DEVICE IS DOWN 01381 M00S01289.1pp +++| LDD EJ+4 01382 M00S01290.1pp +++| SHN 3 01383 M00S01291.1pp +++| ADN SCLL READ SWEEP CYCLING CONTROL WORD 01384 M00S01292.1pp +++| CRD CM 01385 M00S01293.1pp +++| LDC CSCB-1 01386 M00S01294.1pp +++| STD T1 01387 M00S01295.1pp +++| CSC1 AOD T1 01388 M00S01296.1pp +++| LDI T1 01389 M00S01297.1pp +++| ZJN CSC3 IF SWEEP CYCLING NOT SUPPORTED ON DEVICE 01390 M00S01298.1pp +++| LMD EJ+3 01391 M00S01299.1pp +++| NJN CSC1 IF NOT THIS DEVICE TYPE 01392 M00S01300.1pp +++| LDD TM+1 01393 M00S01301.1pp +++| SBD CM+1 01394 M00S01302.1pp +++| PJN CSC2 IF NO ROLLOVER 01395 M00S01303.1pp +++| ADC 10000 01396 M00S01304.1pp +++| CSC2 SBK SCDT*60D 01397 M00S01305.1pp +++| UJP CSCX RETURN 01398 M00S01306.1pp +++| 01399 M00S01307.1pp +++| 01400 M00S01308.1pp +++| CSCB BSS 0 TABLE OF DEVICES SUPPORTING SWEEP CYCLING 01401 M00S01309.1pp +++| 01402 M00S01310.1pp +++| CON 2RDB DEVICE TYPE *DB* 01403 M00S01311.1pp +++| CON 2RDD DEVICE TYPE *DD* 01404 M00S01312.1pp +++| CON 2RDG DEVICE TYPE *DG* 01405 M00S01313.1pp +++| CON 2RDM DEVICE TYPE *DM* 01406 M00S01314.1pp +++| CON 2RDQ DEVICE TYPE *DQ* 01407 M00S01315.1pp +++| 01408 M00S01316.1pp +++| CON 0 END OF TABLE 01409 M00S01317.1pp +++| CTF SPACE 4,10 01410 M00S01318.1pp +++|** CTF - CHECK TRACK FLAWED. 01411 M00S01319.1pp +++|* 01412 M00S01320.1pp +++|* THIS ROUTINE CHECKS FOR A TRACK BEING FLAWED. 01413 M00S01321.1pp +++|* 01414 M00S01322.1pp +++|* ENTRY (T6) = TRACK TO CHECK FOR BEING FLAWED. 01415 M00S01323.1pp +++|* (EJ - EJ+4) = EST ENTRY FOR EQUIPMENT. 01416 M00S01324.1pp +++|* 01417 M00S01325.1pp +++|* EXIT (A) = 0, IF TRACK IS FLAWED. 01418 M00S01326.1pp +++|* 01419 M00S01327.1pp +++|* USES T0, T1, CM - CM+4. 01420 M00S01328.1pp +++| 01421 M00S01329.1pp +++| 01422 M00S01330.1pp +++| CTF SUBR ENTRY/EXIT 01423 M00S01331.1pp +++| LDD T6 01424 M00S01332.1pp +++| STM TCPP+C1MV+4 01425 M00S01333.1pp +++| ZJN CTF1 IF NO TRACK PRESENT 01426 M00S01334.1pp +++| SHN 21-1 01427 M00S01335.1pp +++| STD T0 TRT RELATIVE WORD + 1000 01428 M00S01336.1pp +++| SHN 0-20 01429 M00S01337.1pp +++| STD T1 TRACK BYTE INDEX 01430 M00S01338.1pp +++| LDD EJ+4 READ TRT WORD 01431 M00S01339.1pp +++| SHN 3 01432 M00S01340.1pp +++| ADK TRLL 01433 M00S01341.1pp +++| CRD CM 01434 M00S01342.1pp +++| LDD CM+3 01435 M00S01343.1pp +++| SHN 14 01436 M00S01344.1pp +++| ADD CM+4 01437 M00S01345.1pp +++| ADD T0 01438 M00S01346.1pp +++| SBD TH 01439 M00S01347.1pp +++| CRD CM 01440 M00S01348.1pp +++| LDM CM,T1 GET TRACK BYTE 01441 M00S01349.1pp +++| CTF1 LMC 3777 01442 M00S01350.1pp +++| UJN CTFX RETURN 01443 M00S01351.1pp +++| CWR SPACE 4,20 01444 M00S01352.1pp +++|** CWR - CHECK WAIT RESPONSE INDICATORS. 01445 M00S01353.1pp +++|* 01446 M00S01354.1pp +++|* FOR THE SPECIFIED CP/PCP, IF ANY SCP WAIT RESPONSE 01447 M00S01355.1pp +++|* INDICATOR IN WORD *SSCW* IS NON-ZERO AND THE CORRESPONDING 01448 M00S01356.1pp +++|* ROLLOUT ALLOWABLE BIT IS CLEAR, ADD THE INSTALLATION DEFINED 01449 M00S01357.1pp +++|* MULTIPLE OF CM TIME SLICES TO THE JOB-S SLICE TIME IN CELLS 01450 M00S01358.1pp +++|* *AA - AA+4* TO REDUCE THE CHANCE OF ROLLING THIS JOB. 01451 M00S01359.1pp +++|* 01452 M00S01360.1pp +++|* ENTRY (SC) = SERVICE CLASS. 01453 M00S01361.1pp +++|* (EO) = EJT ORDINAL.
| Line S01362 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01454 M01S01362.273l780 ---|* (T7) = CONTROL POINT AREA ADDRESS.
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01455 M01S00033.273l780 +++|* (T7) = CP OR PCP NUMBER. 01456 M00S01363.1pp +++|* 01457 M00S01364.1pp +++|* EXIT (AA - AA+4) = *TSCW*. 01458 M00S01365.1pp +++|* 01459 M00S01366.1pp +++|* USES T4, CM - CM+4, AA - AA+4. 01460 M00S01367.1pp +++|*
| Line S01368 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01461 M01S01368.271l750 ---|* CALLS RJC. 01462 M01S01369.271l750 ---|* 01463 M01S01370.271l750 ---|* MACROS LCPA.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01464 M02S00001.273l780 ---|* MACROS LCPA, SFA.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01465 M01S00034.273l780 +++|* CALLS CCA. 01466 M01S00035.273l780 +++|* 01467 M01S00036.273l780 +++|* MACROS SFA. 01468 M00S01371.1pp +++| 01469 M00S01372.1pp +++| 01470 M00S01373.1pp +++| CWR SUBR ENTRY/EXIT
| Line S01374 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01471 M01S01374.273l780 ---| LCPA SSCW,T7
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01472 M01S00037.273l780 +++| LDD T7 SET CP/PCP ADDRESS 01473 M01S00038.273l780 +++| RJM CCA 01474 M01S00039.273l780 +++| ADK SSCW 01475 M00S01375.1pp +++| CRD CM 01476 M00S01376.1pp +++| ADN TSCW-SSCW 01477 M00S01377.1pp +++| CRD AA 01478 M00S01378.1pp +++| LDN 5 INITIALIZE BYTE INDEX 01479 M00S01379.1pp +++| STD T4 01480 M00S01380.1pp +++| CWR1 SOD T4 01481 M00S01381.1pp +++| MJN CWRX IF NO MORE INDICATORS TO CHECK 01482 M00S01382.1pp +++| LDM CM,T4 01483 M00S01383.1pp +++| LPN 27 MASK ROLLOUT ALLOWABLE/WAIT RESPONSE 01484 M00S01384.1pp +++| ZJN CWR1 IF NO INDICATORS SET 01485 M00S01385.1pp +++| LPN 20 01486 M00S01386.1pp +++| NJN CWR1 IF ROLLOUT ALLOWABLE SET 01487 M00S01387.1pp +++| LDN CMSL INSTALLATION DEFINED CM SLICE MULTIPLIER 01488 M00S01388.1pp +++| STD T4
| Line S01389 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01489 M01S01389.271l750 ---| LDD SC GET CM TIME SLICE FROM JCB 01490 M01S01390.271l750 ---| RJM RJC CALCULATE JCB ADDRESS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01491 M01S00002.271l750 +++| SFA JCB,SC GET CM TIME SLICE FOR JOB 01492 M00S01391.1pp +++| ADN SVJT 01493 M00S01392.1pp +++| CRD CM 01494 M00S01393.1pp +++| CWR2 LDD CM+2 INCREASE CM TIME SLICE 01495 M00S01394.1pp +++| RAD AA+1 01496 M00S01395.1pp +++| SHN -14 01497 M00S01396.1pp +++| RAD AA 01498 M00S01397.1pp +++| SOD T4 01499 M00S01398.1pp +++| NJN CWR2 IF NOT FINISHED INCREASING TIME SLICE 01500 M00S01399.1pp +++| LJM CWRX RETURN 01501 M00S01400.1pp +++| EJA SPACE 4,10 01502 M00S01401.1pp +++|** EJA - CALCULATE EJT ENTRY ADDRESS. 01503 M00S01402.1pp +++|* 01504 M00S01403.1pp +++|* ENTRY (EO) = EJT ORDINAL. 01505 M00S01404.1pp +++|* 01506 M00S01405.1pp +++|* EXIT (A) = EJT ENTRY ADDRESS. 01507 M00S01406.1pp +++|* 01508 M00S01407.1pp +++|* MACROS CFI. 01509 M00S01408.1pp +++| 01510 M00S01409.1pp +++| 01511 M00S01410.1pp +++| EJA SUBR ENTRY/EXIT 01512 M00S01411.1pp +++| CFI EJT,EO CALCULATE ENTRY OFFSET 01513 M00S01412.1pp +++| ADC ** 01514 M00S01413.1pp +++| EJAA EQU *-1 (EJT FWA) 01515 M00S01414.1pp +++| UJN EJAX RETURN 01516 M00S01415.1pp +++| IRR SPACE 4,15 01517 M00S01416.1pp +++|** IRR - ISSUE ROLLOUT REQUEST. 01518 M00S01417.1pp +++|* 01519 M00S01418.1pp +++|* ENTRY (A) = 6/ OP,12/ CP. 01520 M00S01419.1pp +++|* OP *ROCM* OPTIONS. 01521 M00S01420.1pp +++|* CP CP/PCP TO ROLL. 01522 M00S01421.1pp +++|* 01523 M00S01422.1pp +++|* EXIT (A) = 0 IF ROLLOUT REQUEST WAS ACCEPTED. 01524 M00S01423.1pp +++|* JOBS PREEMPTED STATISTIC UPDATED. 01525 M00S01424.1pp +++|* 01526 M00S01425.1pp +++|* USES CM - CM+4. 01527 M00S01426.1pp +++|* 01528 M00S01427.1pp +++|* MACROS MONITOR. 01529 M00S01428.1pp +++| 01530 M00S01429.1pp +++| 01531 M00S01430.1pp +++| IRR SUBR ENTRY/EXIT 01532 M00S01431.1pp +++| STD CM+2 STORE CP/PCP NUMBER 01533 M00S01432.1pp +++| SHN -14 01534 M00S01433.1pp +++| LMC 4000 SET ALTERNATE CP/PCP OPTION 01535 M00S01434.1pp +++| STD CM+1 01536 M00S01435.1pp +++| MONITOR ROCM REQUEST ROLLOUT 01537 M00S01436.1pp +++| LDD CM+1 01538 M00S01437.1pp +++| UJN IRRX RETURN 01539 M00S01438.1pp +++| IUT SPACE 4,20 01540 M00S01439.1pp +++|** IUT - ISSUE *UTEM* MONITOR FUNCTION. 01541 M00S01440.1pp +++|* 01542 M00S01441.1pp +++|* ENTRY (A) = 1/ 0,1/ I,1/ 0,3/ C,12/ P 01543 M00S01442.1pp +++|* I = 0 IF INTERLOCK SHOULD BE SET. 01544 M00S01443.1pp +++|* = 1 IF INTERLOCK SHOULD BE CLEARED. 01545 M00S01444.1pp +++|* C = NUMBER OF *UTEM* PARAMETER WORDS. 01546 M00S01445.1pp +++|* = 0 IF INTERLOCK REQUEST. 01547 M00S01446.1pp +++|* P = PARAMETER LIST ADDRESS. 01548 M00S01447.1pp +++|* 01549 M00S01448.1pp +++|* EXIT (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL. 01550 M00S01449.1pp +++|* .NE. 0 IF *UTEM* VERIFICATION FAILED. 01551 M00S01450.1pp +++|* 01552 M00S01451.1pp +++|* USES CM - CM+4. 01553 M00S01452.1pp +++|* 01554 M00S01453.1pp +++|* CALLS EJA. 01555 M00S01454.1pp +++|* 01556 M00S01455.1pp +++|* MACROS MONITOR. 01557 M00S01456.1pp +++| 01558 M00S01457.1pp +++| 01559 M00S01458.1pp +++| IUT SUBR ENTRY/EXIT 01560 M00S01459.1pp +++| STM IUTA PARAMETER LIST ADDRESS 01561 M00S01460.1pp +++| LPC -7777 01562 M00S01461.1pp +++| SHN 1 01563 M00S01462.1pp +++| STD CM TABLE INDICATOR 01564 M00S01463.1pp +++| SCN 1 SAVE INTERLOCK FLAG 01565 M00S01464.1pp +++| SHN 1 01566 M00S01465.1pp +++| STD CM+2 01567 M00S01466.1pp +++| SHN -14-2 01568 M00S01467.1pp +++| STD CM+1 NUMBER OF PARAMETER WORDS 01569 M00S01468.1pp +++| RJM EJA CALCULATE TABLE ADDRESS 01570 M00S01469.1pp +++| STD CM+4 01571 M00S01470.1pp +++| SHN -14 01572 M00S01471.1pp +++| STD CM+3 01573 M00S01472.1pp +++| LDD CM+1 01574 M00S01473.1pp +++| ZJN IUT1 IF NO PARAMETER WORDS 01575 M00S01474.1pp +++| LDD MA WRITE PARAMETERS TO MESSAGE BUFFER 01576 M00S01475.1pp +++| CWM **,CM+1 01577 M00S01476.1pp +++| IUTA EQU *-1 01578 M00S01477.1pp +++| IUT1 LDD CM+2 SET/CLEAR INTERLOCK FLAG 01579 M00S01478.1pp +++| SHN 5 01580 M00S01479.1pp +++| RAD CM+1 01581 M00S01480.1pp +++| LDN 0 01582 M00S01481.1pp +++| STD CM+2 01583 M00S01482.1pp +++| MONITOR UTEM 01584 M00S01483.1pp +++| LDD CM+1 01585 M00S01484.1pp +++| LJM IUTX RETURN 01586 M00S01485.1pp +++| OAE SPACE 4,15 01587 M00S01486.1pp +++|** OAE - PROCESS OPERATOR ACTION EVENTS. 01588 M00S01487.1pp +++|* 01589 M00S01488.1pp +++|* FOR EACH POSTED OPERATOR ACTION EVENT FOUND IN THE *TEVT* 01590 M00S01489.1pp +++|* TABLE, SET THE CORRESPONDING BIT IN WORD *OPRL*. 01591 M00S01490.1pp +++|* 01592 M00S01491.1pp +++|* ENTRY (A) = NUMBER OF EVENTS IN *TEVT* TABLE. 01593 M00S01492.1pp +++|* 01594 M00S01493.1pp +++|* USES T1, CM - CM+4. 01595 M00S01494.1pp +++|* 01596 M00S01495.1pp +++|* MACROS MONITOR. 01597 M00S01496.1pp +++| 01598 M00S01497.1pp +++| 01599 M00S01498.1pp +++| OAE SUBR ENTRY/EXIT 01600 M00S01499.1pp +++| SHN 1 INITIALIZE INDEX 01601 M00S01500.1pp +++| STD T1 01602 M00S01501.1pp +++| OAE1 LCN 2 DECREMENT *TEVT* INDEX 01603 M00S01502.1pp +++| RAD T1 01604 M00S01503.1pp +++| MJN OAEX IF END OF *TEVT* SCAN 01605 M00S01504.1pp +++| LDM TEVT,T1 01606 M00S01505.1pp +++| NJN OAE1 IF NOT SYSTEM EVENT 01607 M00S01506.1pp +++| STD CM+2 01608 M00S01507.1pp +++| LDM TEVT+1,T1 01609 M00S01508.1pp +++| ZJN OAE1 IF NULL EVENT 01610 M00S01509.1pp +++| SBK MXOE 01611 M00S01510.1pp +++| PJN OAE1 IF NOT OPERATOR ACTION EVENT 01612 M00S01511.1pp +++| ADK MXOE-1 STORE BIT NUMBER IN *UTEM* BLOCK 01613 M00S01512.1pp +++| SHN 6 01614 M00S01513.1pp +++| STM OAEA+1 01615 M00S01514.1pp +++| LDN 1 01616 M00S01515.1pp +++| STD CM+1 01617 M00S01516.1pp +++| LDK OPRL 01618 M00S01517.1pp +++| STD CM+4 01619 M00S01518.1pp +++| SHN -14 01620 M00S01519.1pp +++| STD CM+3 01621 M00S01520.1pp +++| LDD MA WRITE PARAMETER WORDS TO MESSAGE BUFFER 01622 M00S01521.1pp +++| CWM OAEA,CM+1 01623 M00S01522.1pp +++| MONITOR UTEM SET OPERATOR ACTION FLAG 01624 M00S01523.1pp +++| UJN OAE1 CONTINUE *TEVT* SCAN 01625 M00S01524.1pp +++| 01626 M00S01525.1pp +++| 01627 M00S01526.1pp +++|* *UTEM* PARAMETER BLOCK FOR *OPRL* UPDATE. 01628 M00S01527.1pp +++| 01629 M00S01528.1pp +++| OAEA VFD 1/0,5/0,6/1 01630 M00S01529.1pp +++| VFD 6/0,6/0 01631 M00S01530.1pp +++| CON 0,0,1 01632 M00S01531.1pp +++| PIS SPACE 4,10 01633 M00S01532.1pp +++|** PIS - PROCESS INITIAL SLICE. 01634 M00S01533.1pp +++|* 01635 M00S01534.1pp +++|* ENTRY (SC) = SERVICE CLASS.
| Line S01535 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01636 M01S01535.273l780 ---|* (T7) = CPA ADDRESS.
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01637 M01S00040.273l780 +++|* (T7) = CP OR PCP NUMBER. 01638 M00S01536.1pp +++|* (TM - TM+1) = SECONDS PORTION OF *RTCL*. 01639 M00S01537.1pp +++|* 01640 M00S01538.1pp +++|* USES AA - AA+4, CM - CM+4. 01641 M00S01539.1pp +++|*
| Line S01540 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01642 M01S01540.273l780 ---|* CALLS RJC. 01643 M01S01541.273l780 ---|* 01644 M01S01542.273l780 ---|* MACROS LCPA.
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01645 M01S00041.273l780 +++|* CALLS CCA, RJC. 01646 M00S01543.1pp +++| 01647 M00S01544.1pp +++| 01648 M00S01545.1pp +++| PIS SUBR ENTRY/EXIT
| Line S01546 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01649 M01S01546.273l780 ---| LCPA TSCW,T7
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01650 M01S00042.273l780 +++| LDD T7 SET CP/PCP ADDRESS 01651 M01S00043.273l780 +++| RJM CCA 01652 M01S00044.273l780 +++| ADK TSCW 01653 M00S01547.1pp +++| CRD AA 01654 M00S01548.1pp +++| LDD SC 01655 M00S01549.1pp +++| RJM RJC CALCULATE JCB ADDRESS 01656 M00S01550.1pp +++| ZJN PIS2 IF NO JCB FOR SERVICE CLASS 01657 M00S01551.1pp +++| ADK SVJT READ *SVJT* WORD OF JCB 01658 M00S01552.1pp +++| CRD CM 01659 M00S01553.1pp +++| LDD CM+2 CALCULATE CM SLICE TIME 01660 M00S01554.1pp +++| STD AA+1 01661 M00S01555.1pp +++| ZJN PIS1 IF CM SLICE = 0 01662 M00S01556.1pp +++| LDD TM+1 01663 M00S01557.1pp +++| RAD AA+1 01664 M00S01558.1pp +++| SHN -14 01665 M00S01559.1pp +++| ADD TM 01666 M00S01560.1pp +++| PIS1 STD AA 01667 M00S01561.1pp +++| PIS2 LDD HN SET POST-INITIAL SLICE FLAG 01668 M00S01562.1pp +++| STD AA+2
| Line S01563 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01669 M01S01563.273l780 ---| LCPA TSCW,T7
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01670 M01S00045.273l780 +++| LDD T7 SET CP/PCP ADDRESS 01671 M01S00046.273l780 +++| RJM CCA 01672 M01S00047.273l780 +++| ADK TSCW 01673 M00S01564.1pp +++| CWD AA 01674 M00S01565.1pp +++| UJP PISX RETURN 01675 M00S01566.1pp +++| PSL SPACE 4,10 01676 M00S01567.1pp +++|** PSL - PROCESS SERVICE LIMITS. 01677 M00S01568.1pp +++|* 01678 M00S01569.1pp +++|* ENTRY (EJ - EJ+4) = *JSNE* EJT WORD. 01679 M00S01570.1pp +++|* (T0 - T0+4) = *SCLE* EJT WORD. 01680 M00S01571.1pp +++|* (SC) = SERVICE CLASS. 01681 M00S01572.1pp +++|* 01682 M00S01573.1pp +++|* EXIT JOB STATUS CHANGED IF SERVICE LIMITS NOT EXCEEDED. 01683 M00S01574.1pp +++|* 01684 M00S01575.1pp +++|* CALLS SRS. 01685 M00S01576.1pp +++| 01686 M00S01577.1pp +++| 01687 M00S01578.1pp +++| PSL SUBR ENTRY/EXIT 01688 M00S01579.1pp +++| LDD EJ+4 01689 M00S01580.1pp +++| LPN 76 01690 M00S01581.1pp +++| STM SRSA+4 SAVE CURRENT JOB STATUS 01691 M00S01582.1pp +++| LMN SWJS*2 01692 M00S01583.1pp +++| NJN PSLX IF NOT SERVICE WAIT STATUS 01693 M00S01584.1pp +++| LDM TJAM,SC 01694 M00S01585.1pp +++| SBD T0+4 01695 M00S01586.1pp +++| MJN PSLX IF CM EXCEEDS SERVICE LIMIT 01696 M00S01587.1pp +++| LDM TJAM+1*MXJC,SC 01697 M00S01588.1pp +++| SBD T0+3 01698 M00S01589.1pp +++| MJN PSLX IF EM EXCEEDS SERVICE LIMIT 01699 M00S01590.1pp +++| RJM SRS SET ROLLOUT STATUS 01700 M00S01591.1pp +++| UJN PSLX RETURN 01701 M00S01592.1pp +++| PTE SPACE 4,20 01702 M00S01593.1pp +++|** PTE - PROCESS TIMED/EVENT ROLLOUT JOBS. 01703 M00S01594.1pp +++|* 01704 M00S01595.1pp +++|* CHECK FOR JOBS HAVING TIMED/EVENT ROLLOUT STATUS. 01705 M00S01596.1pp +++|* DECREMENT ROLLOUT TIMES OF SUCH JOBS AND SEE IF 01706 M00S01597.1pp +++|* THEIR EVENTS ARE POSTED YET. 01707 M00S01598.1pp +++|* 01708 M00S01599.1pp +++|* ENTRY (AA - AA+4) = *SCHE* WORD OF EJT ENTRY. 01709 M00S01600.1pp +++|* (BB - BB+4) = *PRFE* WORD OF EJT ENTRY. 01710 M00S01601.1pp +++|* (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY. 01711 M00S01602.1pp +++|* (T7) = NUMBER OF EVENTS IN EVENT TABLE. 01712 M00S01603.1pp +++|* (PTEA) = BYTE 0 OF *SCLE* WORD OF EJT ENTRY. 01713 M00S01604.1pp +++|* CURRENT EVENTS SET IN *TEVT*. 01714 M00S01605.1pp +++|* 01715 M00S01606.1pp +++|* USES AA+3, AA+4, T1, T2, CM - CM+4. 01716 M00S01607.1pp +++|* 01717 M00S01608.1pp +++|* CALLS SRS, IUT. 01718 M00S01609.1pp +++|* 01719 M00S01610.1pp +++|* MACROS MONITOR. 01720 M00S01611.1pp +++| 01721 M00S01612.1pp +++| 01722 M00S01613.1pp +++| PTE SUBR ENTRY/EXIT 01723 M00S01614.1pp +++| LDD EJ+4 01724 M00S01615.1pp +++| LPN 77 01725 M00S01616.1pp +++| STM SRSA+4 SAVE CURRENT JOB STATUS 01726 M00S01617.1pp +++| SHN 21-0 CHECK FOR EJT INTERLOCK 01727 M00S01618.1pp +++| MJN PTEX IF EJT INTERLOCKED 01728 M00S01619.1pp +++| STD T2 SAVE JOB STATUS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1pp1 |
Seq # *Modification Id* Act ----------------------------+ 01729 M01S00001.1pp1 +++| STM PTEH+4 01730 M00S01620.1pp +++| LMK PWJS 01731 M00S01621.1pp +++| NJN PTE1 IF NOT PRE-INITIAL WAIT JOB STATUS 01732 M00S01622.1pp +++| LDD BB+1 01733 M00S01623.1pp +++| LMK ORET 01734 M00S01624.1pp +++| ZJN PTE2 IF OPERATOR OVERRIDE, CHANGE JOB STATUS 01735 M00S01625.1pp +++| PTE1 LDM TJST,T2 01736 M00S01626.1pp +++| SHN 21-10 01737 M00S01627.1pp +++| PJN PTEX IF NOT TIMED/EVENT ROLLOUT STATUS 01738 M00S01628.1pp +++| LDC * GET SERVICE CLASS 01739 M00S01629.1pp +++| PTEA EQU *-1 (BYTE 0 OF *SCLE* WORD OF EJT ENTRY) 01740 M00S01630.1pp +++| LPN 60 MASK FORCED ROLLOUT/ROLLIN BITS 01741 M00S01631.1pp +++| LMN 20 01742 M00S01632.1pp +++| STM PTED SET/CLEAR *EATM* REISSUE FLAG 01743 M00S01633.1pp +++| NJN PTE3 IF NOT FORCED ROLLIN 01744 M00S01634.1pp +++| PTE2 LJM PTE11 GO CHANGE JOB STATUS AND SET PRIORITY 01745 M00S01635.1pp +++| 01746 M00S01636.1pp +++| PTE3 LDD AA+3 01747 M00S01637.1pp +++| LPC 777 01748 M00S01638.1pp +++| LMN EXTM/10000 01749 M00S01639.1pp +++| STM PTEC SET/CLEAR EXTENDED TIMED ROLLOUT FLAG 01750 M00S01640.1pp +++| NJN PTE5 IF NOT EXTENDED TIMED ROLLOUT 01751 M00S01641.1pp +++| SOD AA+4 DECREMENT ROLLOUT TIME (2ND BYTE) 01752 M00S01642.1pp +++| STM PTEF+4 01753 M00S01643.1pp +++| ZJN PTE4 IF 2ND BYTE OF ROLLOUT TIME EXHAUSTED 01754 M00S01644.1pp +++| LDC PTEF+10000*1 01755 M00S01645.1pp +++| UJN PTE8 GO ISSUE *UTEM* TO UPDATE EJT ENTRY 01756 M00S01646.1pp +++| 01757 M00S01647.1pp +++| PTE4 LCN 0 RESET 2ND BYTE OF ROLLOUT TIME 01758 M00S01648.1pp +++| STM PTEF+4 01759 M00S01649.1pp +++| PTE5 LDD AA+2 01760 M00S01650.1pp +++| LPN 77 01761 M00S01651.1pp +++| SHN 14 01762 M00S01652.1pp +++| LMD AA+3 01763 M00S01653.1pp +++| SHN 10-21 01764 M00S01654.1pp +++| STM PTED SET/CLEAR EVENT FLAG 01765 M00S01655.1pp +++| ZJN PTE2 IF ROLLOUT TIME EXPIRED 01766 M00S01656.1pp +++| SBN 1 DECREMENT COUNTER 01767 M00S01657.1pp +++| STM PTEE+4 01768 M00S01658.1pp +++| LDC ** 01769 M00S01659.1pp +++| PTEC EQU *-1 (EXTENDED TIMED/ROLLOUT FLAG) 01770 M00S01660.1pp +++| NJN PTE6 IF NOT EXTENDED TIMED ROLLOUT 01771 M00S01661.1pp +++| LDC PTEE+10000*2 01772 M00S01662.1pp +++| UJN PTE8 GO ISSUE *UTEM* TO UPDATE EJT ENTRY 01773 M00S01663.1pp +++| 01774 M00S01664.1pp +++| PTE6 LDD AA+3 CHECK FOR EVENT 01775 M00S01665.1pp +++| LPC 777 01776 M00S01666.1pp +++| STD AA+3 01777 M00S01667.1pp +++| ADD AA+4 01778 M00S01668.1pp +++| NJN PTE9 IF EVENT EXISTS 01779 M00S01669.1pp +++| 01780 M00S01670.1pp +++|* EVENT EXISTS BUT HAS NOT BEEN POSTED YET AND ROLLOUT TIME HAS 01781 M00S01671.1pp +++|* NOT EXPIRED, OR NO EVENT EXISTS AND ROLLOUT TIME HAS NOT 01782 M00S01672.1pp +++|* EXPIRED. DECREMENT ROLLOUT TIME VIA *UTEM*. 01783 M00S01673.1pp +++| 01784 M00S01674.1pp +++| PTE7 LDC PTEE+10000*1
| Line S01675 Modification History | |
|---|---|
M01 (Removed by) | 1pp1 |
Seq # *Modification Id* Act ----------------------------+ 01785 M01S01675.1pp1 ---| PTE8 RJM IUT ISSUE *UTEM* MONITOR FUNCTION
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1pp1 |
Seq # *Modification Id* Act ----------------------------+ 01786 M01S00002.1pp1 +++| 01787 M01S00003.1pp1 +++|* VERIFY AND UPDATE *SCHE* WORD. 01788 M01S00004.1pp1 +++| 01789 M01S00005.1pp1 +++| PTE8 STM PTEG PARAMETER ADDRESS 01790 M01S00006.1pp1 +++| SHN -14 01791 M01S00007.1pp1 +++| LPN 3 01792 M01S00008.1pp1 +++| STD T1 SAVE WORD COUNT 01793 M01S00009.1pp1 +++| LDD MA MOVE PARAMETER WORDS 01794 M01S00010.1pp1 +++| CWM **,T1 01795 M01S00011.1pp1 +++| PTEG EQU *-1 01796 M01S00012.1pp1 +++| LDD MA 01797 M01S00013.1pp1 +++| CRM PTEI,T1 01798 M01S00014.1pp1 +++| AOD T1 INCREMENT WORD COUNT 01799 M01S00015.1pp1 +++| SHN 14 01800 M01S00016.1pp1 +++| ADK PTEH PARAMETER WORDS 01801 M01S00017.1pp1 +++| RJM IUT ISSUE *UTEM* FUNCTION 01802 M00S01676.1pp +++| LJM PTEX CONTINUE EJT SCAN 01803 M00S01677.1pp +++| 01804 M00S01678.1pp +++|* SCAN *TEVT* TABLE TO SEE IF THIS JOB-S EVENT HAS BEEN POSTED. 01805 M00S01679.1pp +++| 01806 M00S01680.1pp +++| PTE9 LDD T7 INITIALIZE INDEX 01807 M00S01681.1pp +++| SHN 1 01808 M00S01682.1pp +++| STD T2 01809 M00S01683.1pp +++| PTE10 LCN 2 DECREMENT INDEX 01810 M00S01684.1pp +++| RAD T2 01811 M00S01685.1pp +++| MJN PTE7 IF *TEVT* SCAN COMPLETE, EVENT NOT FOUND 01812 M00S01686.1pp +++| LDM TEVT,T2 01813 M00S01687.1pp +++| LMD AA+3 01814 M00S01688.1pp +++| NJN PTE10 IF NO MATCH 01815 M00S01689.1pp +++| LDM TEVT+1,T2 01816 M00S01690.1pp +++| LMD AA+4 01817 M00S01691.1pp +++| NJN PTE10 IF NO MATCH 01818 M00S01692.1pp +++| 01819 M00S01693.1pp +++|* EVENT WAS FOUND IN *TEVT* OR ROLLOUT TIME HAS EXPIRED. 01820 M00S01694.1pp +++|* CHANGE JOB STATUS TO *ROJS* IF JOB STATUS WAS *TOJS* OR 01821 M00S01695.1pp +++|* *ERJS* OR TO *PRJS* IF JOB STATUS WAS *PWJS*. SET PRIORITY 01822 M00S01696.1pp +++|* TO UPPER BOUND OF SERVICE CLASS. 01823 M00S01697.1pp +++| 01824 M00S01698.1pp +++| PTE11 RJM SRS SET ROLLOUT STATUS AND PRIORITY 01825 M00S01699.1pp +++| ZJN PTE12 IF FUNCTION ACCEPTED 01826 M00S01700.1pp +++| LDC ** 01827 M00S01701.1pp +++| PTED EQU *-1 (*EATM* REISSUE FLAG) 01828 M00S01702.1pp +++| ZJN PTE12 IF ROLLOUT TIME EXPIRED OR FORCED ROLLIN 01829 M00S01703.1pp +++| LDN 0 SET *EATM* SUBFUNCTION 01830 M00S01704.1pp +++| STD CM+1 01831 M00S01705.1pp +++| LDD AA+3 STORE EVENT IN *EATM* CALL 01832 M00S01706.1pp +++| STD CM+3 01833 M00S01707.1pp +++| LDD AA+4 01834 M00S01708.1pp +++| STD CM+4 01835 M00S01709.1pp +++| MONITOR EATM REISSUE EVENT 01836 M00S01710.1pp +++| PTE12 LJM PTEX CONTINUE EJT SCAN 01837 M00S01711.1pp +++| 01838 M00S01712.1pp +++| 01839 M00S01713.1pp +++|* *UTEM* PARAMETERS FOR DECREMENTING ROLLOUT TIME. 01840 M00S01714.1pp +++| 01841 M00S01715.1pp +++| PTEE VFD 1/0,5/SCHE,6/9D 01842 M00S01716.1pp +++| VFD 6/21D,6/0 01843 M00S01717.1pp +++| CON 0 01844 M00S01718.1pp +++| CON 0 01845 M00S01719.1pp +++| CON 0 01846 M00S01720.1pp +++| 01847 M00S01721.1pp +++| PTEF VFD 1/0,5/SCHE,6/12D 01848 M00S01722.1pp +++| VFD 6/0,6/0 01849 M00S01723.1pp +++| CON 0 01850 M00S01724.1pp +++| CON 0 01851 M00S01725.1pp +++| CON 0
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 1pp1 |
Seq # *Modification Id* Act ----------------------------+ 01852 M01S00018.1pp1 +++| 01853 M01S00019.1pp1 +++|* *UTEM* PARAMETERS FOR VERIFY AND DECREMENT ROLLOUT TIME. 01854 M01S00020.1pp1 +++| 01855 M01S00021.1pp1 +++| PTEH VFD 1/1,5/JSNE,6/5 01856 M01S00022.1pp1 +++| VFD 6/1,6/0 01857 M01S00023.1pp1 +++| CON 0 01858 M01S00024.1pp1 +++| CON 0 01859 M01S00025.1pp1 +++| CON TOJS 01860 M01S00026.1pp1 +++| 01861 M01S00027.1pp1 +++| PTEI BSS 5*2 UPDATE PARAMETER WORDS 01862 M00S01726.1pp +++| TJST SPACE 4,15 01863 M00S01727.1pp +++|** TJST - TABLE OF JOB STATE ATTRIBUTES. 01864 M00S01728.1pp +++|* ENTRY = 1 WORD. 01865 M00S01729.1pp +++|* INDEXED BY JOB STATUS. 01866 M00S01730.1pp +++|* 01867 M00S01731.1pp +++|*T 1/ SS, 1/ ES, 1/ FR, 1/ TE, 1/ PI
Figure
01868 M00S01732.1pp +++|* SS SET IF SCHEDULABLE JOB STATE. 01869 M00S01733.1pp +++|* ES SET IF SCHEDULABLE JOB STATE WHEN ERROR FLAG IS SET. 01870 M00S01734.1pp +++|* FR SET IF JOB IN THIS STATE MAY BE FORCED ROLLED IN. 01871 M00S01735.1pp +++|* TE SET IF TIMED/EVENT TYPE JOB STATE. 01872 M00S01736.1pp +++|* PI SET IF PRE-INITIAL TYPE JOB STATE. 01873 M00S01737.1pp +++|* 01874 M00S01738.1pp +++|* NOTE - ANY CHANGES TO THIS TABLE MUST BE COUPLED WITH 01875 M00S01739.1pp +++|* CORRESPONDING CHANGES TO THE *TJST* TABLE IN *1SJ*. 01876 M00S01740.1pp +++| 01877 M00S01741.1pp +++| TJST JOBSTAT 01878 M00S01742.1pp +++| JOBSTAT PRJS,SS,ES,FR,,PI 01879 M00S01743.1pp +++| JOBSTAT EXJS 01880 M00S01744.1pp +++| JOBSTAT ROJS,SS,ES,FR 01881 M00S01745.1pp +++| JOBSTAT SIJS,SS,ES,FR 01882 M00S01746.1pp +++| JOBSTAT SOJS,,ES,FR 01883 M00S01747.1pp +++| JOBSTAT TOJS,,ES,,TE 01884 M00S01748.1pp +++| JOBSTAT IOJS 01885 M00S01749.1pp +++| JOBSTAT DOJS 01886 M00S01750.1pp +++| JOBSTAT SUJS,,ES 01887 M00S01751.1pp +++| JOBSTAT PCJS,SS,ES,FR 01888 M00S01752.1pp +++| JOBSTAT ERJS,,,FR,TE 01889 M00S01753.1pp +++| JOBSTAT NVJS 01890 M00S01754.1pp +++| JOBSTAT PWJS,,,,TE,PI 01891 M00S01755.1pp +++| JOBSTAT SWJS,,ES 01892 M00S01756.1pp +++| 01893 M00S01757.1pp +++| INDEX MXJS TERMINATE TABLE 01894 M00S01758.1pp +++| RTE SPACE 4,10 01895 M00S01759.1pp +++|** RTE - READ TABLE OF EVENTS. 01896 M00S01760.1pp +++|* 01897 M00S01761.1pp +++|* EXIT EVENTS READ INTO *TEVT* TWO BYTES PER EVENT. 01898 M00S01762.1pp +++|* EVENT COUNT IN EVT TABLE CLEARED. 01899 M00S01763.1pp +++|* (T7) = NUMBER OF EVENTS. 01900 M00S01764.1pp +++|* 01901 M00S01765.1pp +++|* USES AA - AA+4, CM - CM+4, T1 - T7. 01902 M00S01766.1pp +++|* 01903 M00S01767.1pp +++|* MACROS MONITOR. 01904 M00S01768.1pp +++| 01905 M00S01769.1pp +++| 01906 M00S01770.1pp +++| RTE SUBR ENTRY/EXIT 01907 M00S01771.1pp +++| LDK ZERL 01908 M00S01772.1pp +++| CRD AA 01909 M00S01773.1pp +++| ADK EVTP-ZERL GET EVENT TABLE POINTER 01910 M00S01774.1pp +++| CRD T1 01911 M00S01775.1pp +++| CRD T1+2 01912 M00S01776.1pp +++| LDN /CPS/SEIS SET EVENT TABLE INTERLOCK 01913 M00S01777.1pp +++| STD CM+1 01914 M00S01778.1pp +++| MONITOR EATM 01915 M00S01779.1pp +++| LDD CM+1 SAVE NUMBER OF EVENTS 01916 M00S01780.1pp +++| STD T7 01917 M00S01781.1pp +++| ZJN RTE2 IF NO EVENTS 01918 M00S01782.1pp +++| SOD CM+1 01919 M00S01783.1pp +++| RTE1 LDD T1 GET TABLE ADDRESS 01920 M00S01784.1pp +++| SHN 14 01921 M00S01785.1pp +++| LMD T1+1 01922 M00S01786.1pp +++| CRM TEVT,ON 01923 M00S01787.1pp +++| RTEA EQU *-1 (ADDRESS INCREMENTED IN LOOP) 01924 M00S01788.1pp +++| STD T1+1 01925 M00S01789.1pp +++| SHN -14 01926 M00S01790.1pp +++| STD T1 01927 M00S01791.1pp +++| LDN 4 INCREMENT *TEVT* ADDRESS 01928 M00S01792.1pp +++| RAM RTEA 01929 M00S01793.1pp +++| LCN 2 01930 M00S01794.1pp +++| RAD CM+1 01931 M00S01795.1pp +++| PJN RTE1 IF NOT END OF EVENTS 01932 M00S01796.1pp +++| RTE2 LDD T1+2 CLEAR COUNT AND INTERLOCK 01933 M00S01797.1pp +++| SHN 14 01934 M00S01798.1pp +++| LMD T1+2+1 01935 M00S01799.1pp +++| CWD AA 01936 M00S01800.1pp +++| LJM RTEX RETURN 01937 M00S01801.1pp +++| SME SPACE 4,15 01938 M00S01802.1pp +++|** SME - SCAN MST ERROR COUNTS. 01939 M00S01803.1pp +++|* 01940 M00S01804.1pp +++|* ENTRY (T8) = EQUIPMENT EST ORDINAL TO CHECK. 01941 M00S01805.1pp +++|* (EJ - EJ+4) = EQDE WORD OF EST ENTRY. 01942 M00S01806.1pp +++|* 01943 M00S01807.1pp +++|* EXIT IF A RECOVERED OR UNRECOVERED ERROR COUNT IN THE MST 01944 M00S01808.1pp +++|* IS GREATER THAN OR EQUAL TO THE APPROPRIATE DEVICE 01945 M00S01809.1pp +++|* TYPE THRESHOLD, AN *ERRLOG ALERT* SYSTEM EVENT AND 01946 M00S01810.1pp +++|* A CORRESPONDING ERRLOG MESSAGE ARE ISSUED. 01947 M00S01811.1pp +++|* 01948 M00S01812.1pp +++|* USES BB - BB+4, CM - CM+4. 01949 M00S01813.1pp +++|* 01950 M00S01814.1pp +++|* CALLS C2D, DFM. 01951 M00S01815.1pp +++|* 01952 M00S01816.1pp +++|* MACROS MONITOR.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1pp.txt · Last modified: (external edit)