Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.1pp +++| IDENT 1PP,PPF
00002 M01S00002.1pp +++| PERIPH
00003 M01S00003.1pp +++| BASE MIXED
00004 M01S00004.1pp +++| LIST F
00005 M01S00005.1pp +++| SST
00006 M01S00006.1pp +++|*COMMENT 1PP - PERIODIC FUNCTION PROCESSOR.
| Line S00007 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1988.
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M01S00008.1pp +++| TITLE 1PP - PERIODIC FUNCTION PROCESSOR.
00010 M01S00009.1pp +++| SPACE 4,10
00011 M01S00010.1pp +++|*** 1PP - PERIODIC FUNCTION PROCESSOR.
00012 M01S00011.1pp +++|* R. M. DANISCH. 88/06/27.
00013 M01S00012.1pp +++| SPACE 4,10
00014 M01S00013.1pp +++|*** *1PP* IS RESPONSIBLE FOR PROCESSING A VARIETY OF
00015 M01S00014.1pp +++|* FUNCTIONS THAT ARE PERIODIC IN NATURE. FUNCTIONS PROCESSED
00016 M01S00015.1pp +++|* INCLUDE THE FOLLOWING -
00017 M01S00016.1pp +++|*
00018 M01S00017.1pp +++|* - TIMED/EVENT ROLLOUT PROCESSING.
00019 M01S00018.1pp +++|*
00020 M01S00019.1pp +++|* - CHECK FOR EXPIRED CM/CPU TIME SLICES.
00021 M01S00020.1pp +++|*
00022 M01S00021.1pp +++|* - CHECK WAIT RESPONSE/CONNECTION INDICATORS.
00023 M01S00022.1pp +++|*
00024 M01S00023.1pp +++|* - PROCESS ACCUMULATOR OVERFLOW FLAGS.
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 M01S00024.1pp +++|*
00032 M01S00025.1pp +++|* - CHECK FOR MASS STORAGE CHECKPOINT AND LABEL
00033 M01S00026.1pp +++|* INITIALIZATION REQUESTS.
00034 M01S00027.1pp +++|*
00035 M01S00028.1pp +++|* - INITIATE SWEEP CYCLE PROCESSING.
00036 M01S00029.1pp +++|*
00037 M01S00030.1pp +++|* - INITIATE MASS STORAGE CONFIDENCE TESTING.
00038 M01S00031.1pp +++| SPACE 4,10
00039 M01S00032.1pp +++|*** CALL.
00040 M01S00033.1pp +++|*
00041 M01S00034.1pp +++|*
00042 M01S00035.1pp +++|*T 18/ *1PP*,6/ CP,36/
00043 M01S00036.1pp +++|* CP SYSTEM CONTROL POINT NUMBER.
00044 M01S00037.1pp +++| SPACE 4,10
00045 M01S00038.1pp +++|*** ERROR LOG MESSAGES.
00046 M01S00039.1pp +++|*
00047 M01S00040.1pp +++|*
00048 M01S00041.1pp +++|* *XXYYY, RECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
00049 M01S00042.1pp +++|* OF RECOVERED ERRORS ON DEVICE TYPE XX WITH EST ORDINAL
00050 M01S00043.1pp +++|* YYY IS GREATER THAN THE THRESHOLD DEFINED FOR THAT
00051 M01S00044.1pp +++|* DEVICE TYPE.
00052 M01S00045.1pp +++|*
00053 M01S00046.1pp +++|* *XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
00054 M01S00047.1pp +++|* OF UNRECOVERED ERRORS ON DEVICE TYPE XX WITH EST
00055 M01S00048.1pp +++|* ORDINAL YYY IS GREATER THAN THE THRESHOLD DEFINED FOR
00056 M01S00049.1pp +++|* THAT DEVICE TYPE.
00057 M01S00050.1pp +++| SPACE 4,10
00058 M01S00051.1pp +++|** ROUTINES USED.
00059 M01S00052.1pp +++|*
00060 M01S00053.1pp +++|*
00061 M01S00054.1pp +++|* 0AU - PROCESS ACCUMULATOR OVERFLOW FLAGS.
00062 M01S00055.1pp +++| SPACE 4,10
00063 M01S00056.1pp +++|** PROGRAMS CALLED.
00064 M01S00057.1pp +++|*
00065 M01S00058.1pp +++|*
00066 M01S00059.1pp +++|* CMS - MASS STORAGE LABEL INITIALIZATION.
00067 M01S00060.1pp +++|* 1CK - MASS STORAGE CHECKPOINT.
00068 M01S00061.1pp +++|* 1MV - MASS STORAGE VERIFICATION.
00069 M01S00062.1pp +++| SPACE 4,10
00070 M01S00063.1pp +++|** COMMON DECKS.
00071 M01S00064.1pp +++|
00072 M01S00065.1pp +++|
00073 M01S00066.1pp +++|*CALL COMPMAC
00074 M01S00067.1pp +++| QUAL CPS
00075 M01S00068.1pp +++|*CALL COMSCPS
00076 M01S00069.1pp +++| QUAL *
00077 M01S00070.1pp +++| QUAL DSL
00078 M01S00071.1pp +++|*CALL COMSDSL
00079 M01S00072.1pp +++| QUAL *
00080 M01S00073.1pp +++|*CALL COMSDST
00081 M01S00074.1pp +++|*CALL COMSEJT
00082 M01S00075.1pp +++|*CALL COMSEVT
00083 M01S00076.1pp +++|*CALL COMSJIO
00084 M01S00077.1pp +++|*CALL COMSMSC
| Line S00078 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00085 M02S00078.273l780 ---| CPA$ EQU 1 SELECT CPA/PCPA ACCESS
| Line S00079 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00086 M02S00079.273l780 ---| IPC$ EQU 1 SELECT *COMPPCP* INITIALIZATION
| Line S00080 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00087 M02S00080.273l780 ---|*CALL COMSPCP
00088 M01S00081.1pp +++|*CALL COMSMSP
00089 M01S00082.1pp +++|*CALL COMSMST
00090 M01S00083.1pp +++|*CALL COMSPIM
00091 M01S00084.1pp +++|*CALL COMSSCD
00092 M01S00085.1pp +++|*CALL COMSSCP
00093 M01S00086.1pp +++|*CALL COMSSSD
00094 M01S00087.1pp +++|*CALL COMSZOL
00095 M01S00088.1pp +++| QUAL 1DS
00096 M01S00089.1pp +++|*CALL COMS1DS
00097 M01S00090.1pp +++| QUAL *
00098 M01S00091.1pp +++|*CALL COMS1MV
00099 M01S00092.1pp +++| MACROS SPACE 4,10
00100 M01S00093.1pp +++|** MACRO DEFINITIONS.
00101 M01S00094.1pp +++|
00102 M01S00095.1pp +++|
00103 M01S00096.1pp +++|** DFLIM - CONSTRUCT DAYFILE SIZE THRESHOLD PROCESSING ENTRY FOR
00104 M01S00097.1pp +++|* *TDFP* TABLE.
00105 M01S00098.1pp +++|*
00106 M01S00099.1pp +++|* DFLIM A,B,C,D,E
00107 M01S00100.1pp +++|,
00108 M01S00101.1pp +++|* A TABLE NAME IF PRESENT.
00109 M01S00102.1pp +++|* B DAYFILE IDENTIFIER/INDEX.
00110 M01S00103.1pp +++|* C CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER
00111 M01S00104.1pp +++|* POINTER BLOCK RELATIVE TO FWA OF DAYFILE BUFFER
00112 M01S00105.1pp +++|* POINTER BLOCKS.
00113 M01S00106.1pp +++|* D THRESHOLD SIZE IN PRUS.
00114 M01S00107.1pp +++|* E EVENT TO ISSUE IF THRESHOLD EXCEEDED.
00115 M01S00108.1pp +++|
00116 M01S00109.1pp +++|
00117 M01S00110.1pp +++| PURGMAC DFLIM
00118 M01S00111.1pp +++|
00119 M01S00112.1pp +++| MACRO DFLIM,A,B,C,D,E
00120 M01S00113.1pp +++| MACREF DFLIM
00121 M01S00114.1pp +++| .X IFC NE,$A$$
00122 M01S00115.1pp +++| A BSS 0
00123 M01S00116.1pp +++| .1 SET A
00124 M01S00117.1pp +++| .X ELSE
00125 M01S00118.1pp +++| ORG .1+4*B
00126 M01S00119.1pp +++| .Y IFC NE,$C$$
00127 M01S00120.1pp +++| LOC B
00128 M01S00121.1pp +++| CON C
00129 M01S00122.1pp +++| VFD 24/D
00130 M01S00123.1pp +++| CON E
00131 M01S00124.1pp +++| .Y ELSE
00132 M01S00125.1pp +++| VFD 48/0
00133 M01S00126.1pp +++| .Y ENDIF
00134 M01S00127.1pp +++| .X ENDIF
00135 M01S00128.1pp +++| ENDM
00136 M01S00129.1pp +++| JOBSTAT SPACE 4,15
00137 M01S00130.1pp +++|** JOBSTAT - DEFINE JOB STATE ATTRIBUTES.
00138 M01S00131.1pp +++|*
00139 M01S00132.1pp +++|* JOBSTAT NAME,STATUS,SS,ES,FR,TE,PI
00140 M01S00133.1pp +++|* NAME TABLE NAME IF PRESENT.
00141 M01S00134.1pp +++|* STATUS JOB STATUS.
00142 M01S00135.1pp +++|* SS NON-BLANK IF SCHEDULABLE JOB STATUS.
00143 M01S00136.1pp +++|* ES NON-BLANK IF ERROR FLAG SET CAUSES JOB
00144 M01S00137.1pp +++|* STATUS TO BECOME SCHEDULABLE.
00145 M01S00138.1pp +++|* FR NON-BLANK IF JOB MAY BE FORCED ROLLED IN.
00146 M01S00139.1pp +++|* TE NON-BLANK IF TIMED/EVENT TYPE JOB STATUS.
00147 M01S00140.1pp +++|* PI NON-BLANK IF PRE-INITIAL JOB STEP TYPE
00148 M01S00141.1pp +++|* STATUS.
00149 M01S00142.1pp +++|* JOBSTAT A,B,C,D,E,F,G
00150 M01S00143.1pp +++|*
00151 M01S00144.1pp +++|* NOTE - ANY CHANGE TO THIS MACRO MUST BE ACCOMPANIED BY A
00152 M01S00145.1pp +++|* CORRESPONDING CHANGE TO THE *JOBSTAT* MACRO DEFINED
00153 M01S00146.1pp +++|* IN *1SJ*.
00154 M01S00147.1pp +++|
00155 M01S00148.1pp +++|
00156 M01S00149.1pp +++| PURGMAC JOBSTAT
00157 M01S00150.1pp +++|
00158 M01S00151.1pp +++| MACRO JOBSTAT,NAME,STATUS,SS,ES,FR,TE,PI
00159 M01S00152.1pp +++| MACREF JOBSTAT
00160 M01S00153.1pp +++|.1 IFC NE,$NAME$$
00161 M01S00154.1pp +++|NAME INDEX
00162 M01S00155.1pp +++|.1 ELSE
00163 M01S00156.1pp +++|.V SET 0
00164 M01S00157.1pp +++| IFC NE,$SS$$,1
00165 M01S00158.1pp +++|.V SET .V+4000
00166 M01S00159.1pp +++| IFC NE,$ES$$,1
00167 M01S00160.1pp +++|.V SET .V+2000
00168 M01S00161.1pp +++| IFC NE,$FR$$,1
00169 M01S00162.1pp +++|.V SET .V+1000
00170 M01S00163.1pp +++| IFC NE,$TE$$,1
00171 M01S00164.1pp +++|.V SET .V+400
00172 M01S00165.1pp +++| IFC NE,$PI$$,1
00173 M01S00166.1pp +++|.V SET .V+200
00174 M01S00167.1pp +++| INDEX STATUS,.V
00175 M01S00168.1pp +++|.1 ENDIF
00176 M01S00169.1pp +++| ENDM
00177 M01S00170.1pp +++| TITLE DIRECT CELL ASSIGNMENTS.
00178 M01S00171.1pp +++|**** DIRECT CELL ASSIGNMENTS.
00179 M01S00172.1pp +++|
00180 M01S00173.1pp +++|
00181 M01S00174.1pp +++| T8 EQU 16 SCRATCH
00182 M01S00175.1pp +++| T9 EQU 17 SCRATCH
00183 M01S00176.1pp +++| AA EQU 20 - 24 SCRATCH (5 CELLS)
00184 M01S00177.1pp +++| TM EQU 25 - 26 SECONDS PORTION OF *RTCL* (2 CELLS)
00185 M01S00178.1pp +++| BB EQU 27 - 33 SCRATCH (5 CELLS)
00186 M01S00179.1pp +++| EO EQU 34 EJT ORDINAL
00187 M01S00180.1pp +++| CF EQU 35 SCHEDULER CONTROL FLAGS
00188 M01S00181.1pp +++| PN EQU 36 NUMBER OF MCT ENTRIES
00189 M01S00182.1pp +++|* EQU 37 - 47 UNUSED
00190 M01S00183.1pp +++| EJ EQU 50 - 54 EJT BUFFER (5 CELLS)
00191 M01S00184.1pp +++| SC EQU 57 SERVICE CLASS
00192 M01S00185.1pp +++|* EQU 60 - 65 UNUSED
00193 M01S00186.1pp +++| NC EQU 66 NUMBER OF CONTROL POINTS
00194 M01S00187.1pp +++| TP EQU 67 SCRATCH
00195 M01S00188.1pp +++|
00196 M01S00189.1pp +++|
00197 M01S00190.1pp +++|****
00198 M01S00191.1pp +++| PPF TITLE MAIN PROGRAM.
00199 M01S00192.1pp +++|** PPF - MAIN PROGRAM.
00200 M01S00193.1pp +++|
00201 M01S00194.1pp +++|
00202 M01S00195.1pp +++| ORG PPFW
00203 M01S00196.1pp +++|
00204 M01S00197.1pp +++| PPF BSS 0
00205 M01S00198.1pp +++| RJM PRS PRESET
00206 M01S00199.1pp +++| RJM PCA PROCESS CONTROL POINT AREAS
00207 M01S00200.1pp +++| RJM CFS CHECK FILE SIZES
00208 M01S00201.1pp +++| RJM SEJ SCAN EJT
00209 M01S00007.274l797 +++| RJM OSS SCAN OPTICAL STORAGE DEVICES AND REQUESTS
00210 M01S00202.1pp +++| RJM CMS CHECK MASS STORAGE DEVICES
00211 M01S00203.1pp +++|
00212 M01S00204.1pp +++|* PROCESS OVERFLOW FLAGS. THIS PROCESSING MUST BE PERFORMED
00213 M01S00205.1pp +++|* AFTER ROUTINE *SEJ* COMPLETES SO THAT *0AU* MAY OVERLAY THE
00214 M01S00206.1pp +++|* *TJAM* AND *TEPB* TABLES. ROUTINE *PSL* (CALLED BY *SEJ*)
00215 M01S00207.1pp +++|* USES THE *TJAM* TABLE AND ROUTINE *SRS* (CALLED BY *PSL*)
00216 M01S00208.1pp +++|* USES THE *TEPB* TABLE. *POF* MUST BE CALLED AFTER *PCA*
00217 M01S00209.1pp +++|* SINCE THE *TOVF* TABLE IS BUILT BY *PCA* AND USED BY *POF*.
00218 M01S00210.1pp +++|* ALSO, *PCA* USES THE *TEPB* TABLE.
00219 M01S00211.1pp +++|
00220 M01S00212.1pp +++| RJM POF PROCESS OVERFLOW FLAGS
00221 M01S00213.1pp +++| RJM COR CHECK FOR OPERATOR ACTION REQUIRED
00222 M01S00214.1pp +++| LDD IA READ PP INPUT REGISTER
00223 M01S00215.1pp +++| CRD CM
00224 M01S00216.1pp +++| LDD MA PLACE PP CALL IN MESSAGE BUFFER
00225 M01S00217.1pp +++| CWD CM
00226 M01S00218.1pp +++| LDK ZERL
00227 M01S00219.1pp +++| CRD CM
00228 M01S00220.1pp +++| LDK /CPS/PTMF SET SUBFUNCTION
00229 M01S00221.1pp +++| STD CM+1
00230 M01S00222.1pp +++| LDC 1000D SET RECALL TIME TO 1 SECOND
00231 M01S00223.1pp +++| STD CM+4
00232 M01S00224.1pp +++| MONITOR RECM DROP PP
00233 M01S00225.1pp +++| LJM PPR ENTER IDLE LOOP
00234 M01S00226.1pp +++| TITLE PRIMARY SUBROUTINES.
00235 M01S00227.1pp +++| CFS SPACE 4,10
00236 M01S00228.1pp +++|** CFS - CHECK FILE SIZES.
00237 M01S00229.1pp +++|*
00238 M01S00230.1pp +++|* CHECK FOR FILE SIZE LIMIT EXCEEDED FOR SYSTEM DAYFILE, ERROR
00239 M01S00231.1pp +++|* LOG, ACCOUNT FILE AND BINARY MAINTENANCE LOG.
00240 M01S00232.1pp +++|*
00241 M01S00233.1pp +++|* USES T2, T3, T5 - CM+4, AA - AA+4.
00242 M01S00234.1pp +++|*
00243 M01S00235.1pp +++|* CALLS SEI.
00244 M01S00236.1pp +++|*
00245 M01S00237.1pp +++|* MACROS MONITOR.
00246 M01S00238.1pp +++|
00247 M01S00239.1pp +++|
00248 M01S00240.1pp +++| CFSA MAX MSDY,ACDY,ELDY,MLDY
00249 M01S00241.1pp +++|
00250 M01S00242.1pp +++| CFS SUBR ENTRY/EXIT
00251 M01S00243.1pp +++| LDN DFPP GET FWA OF BUFFER POINTER WORDS
00252 M01S00244.1pp +++| CRD AA
00253 M01S00245.1pp +++| LDN CFSA*TDFPE+TDFPE INITIALIZE INDEX
00254 M01S00246.1pp +++| STD AA+2
00255 M01S00247.1pp +++| CFS1 LCN TDFPE DECREMENT INDEX
00256 M01S00248.1pp +++| RAD AA+2
00257 M01S00249.1pp +++| MJN CFSX IF ALL DAYFILES HAVE BEEN PROCESSED
00258 M01S00250.1pp +++| LDM TDFP,AA+2
00259 M01S00251.1pp +++| ZJN CFS1 IF THIS DAYFILE SHOULD NOT BE PROCESSED
00260 M01S00252.1pp +++| SHN 6
00261 M01S00253.1pp +++| ADD AA
00262 M01S00254.1pp +++| SHN 14
00263 M01S00255.1pp +++| ADD AA+1
00264 M01S00256.1pp +++| CRD T5
00265 M01S00257.1pp +++| SBN 2 GET THRESHOLD INCREMENT
00266 M01S00258.1pp +++| CRD CM
00267 M01S00259.1pp +++| LDD CM+2
00268 M01S00260.1pp +++| LPN 7
00269 M01S00261.1pp +++| STD AA+4
00270 M01S00262.1pp +++| ADN 1
00271 M01S00263.1pp +++| STM CFSB+4
00272 M01S00264.1pp +++| LDD T5
00273 M01S00265.1pp +++| ZJN CFS1 IF ZERO LENGTH DAYFILE
00274 M01S00266.1pp +++| RJM SEI SEARCH FOR EOI
00275 M01S00267.1pp +++| CFS2 LDM TDFP+2,AA+2
00276 M01S00268.1pp +++| RAD T3
00277 M01S00269.1pp +++| SHN -14
00278 M01S00270.1pp +++| ADM TDFP+1,AA+2
00279 M01S00271.1pp +++| RAD T2
00280 M01S00272.1pp +++| SHN -14
00281 M01S00273.1pp +++| RAD T3
00282 M01S00274.1pp +++| LDD T2
00283 M01S00275.1pp +++| SHN 0-13
00284 M01S00276.1pp +++| CFS3 NJP CFS1 IF SIZE NOT EXCEEDED
00285 M01S00277.1pp +++| SOD AA+4
00286 M01S00278.1pp +++| PJN CFS2 IF NOT END OF THRESHOLD INCREMENT
00287 M01S00279.1pp +++|
00288 M01S00280.1pp +++|* ISSUE *EATM* TO POST OPERATOR ACTION EVENT.
00289 M01S00281.1pp +++|
00290 M01S00282.1pp +++| LDN 0 SELECT *EATM* ENTER EVENT OPTION
00291 M01S00283.1pp +++| STD CM+1
00292 M01S00284.1pp +++| STD CM+3 STORE EVENT DESCRIPTOR
00293 M01S00285.1pp +++| LDM TDFP+3,AA+2
00294 M01S00286.1pp +++| STD CM+4
00295 M01S00287.1pp +++| MONITOR EATM
00296 M01S00288.1pp +++| LDM CFSB+4
00297 M01S00289.1pp +++| LMN 10
00298 M01S00290.1pp +++| ZJN CFS3 IF MAXIMUM THRESHOLD INCREMENT
00299 M01S00291.1pp +++| LDD AA SET NEW THRESHOLD INCREMENT
00300 M01S00292.1pp +++| SHN 14
00301 M01S00293.1pp +++| ADD AA+1
00302 M01S00294.1pp +++| ADM TDFP,AA+2
00303 M01S00295.1pp +++| SBN 2
00304 M01S00296.1pp +++| STD CM+4
00305 M01S00297.1pp +++| SHN -14
00306 M01S00298.1pp +++| STD CM+3
00307 M01S00299.1pp +++| LDN 1
00308 M01S00300.1pp +++| STD CM+1
00309 M01S00301.1pp +++| LDD MA
00310 M01S00302.1pp +++| CWM CFSB,CM+1
00311 M01S00303.1pp +++| MONITOR UTEM
00312 M01S00304.1pp +++| LJM CFS1 LOOP FOR NEXT DAYFILE
00313 M01S00305.1pp +++|
00314 M01S00306.1pp +++|
00315 M01S00307.1pp +++|* *UTEM* PARAMETERS TO SET DAYFILE THRESHOLD INCREMENT.
00316 M01S00308.1pp +++|
00317 M01S00309.1pp +++| CFSB VFD 6/0,6/3,6/24D,42/0
00318 M01S00310.1pp +++| TDFP SPACE 4,10
00319 M01S00311.1pp +++|** TDFP - DAYFILE PROCESSING PARAMETERS.
00320 M01S00312.1pp +++|* ENTRY = 4 WORDS.
00321 M01S00313.1pp +++|* INDEXED BY DAYFILE TYPE.
00322 M01S00314.1pp +++|*
00323 M01S00315.1pp +++|*T 12/ WO,24/ TH,12/ EV
Figure
00324 M01S00316.1pp +++|* WO CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER POINTER
00325 M01S00317.1pp +++|* BLOCK RELATIVE TO FWA OF DAYFILE BUFFER POINTER
00326 M01S00318.1pp +++|* BLOCKS.
00327 M01S00319.1pp +++|* TH THRESHOLD SIZE IN PRUS.
00328 M01S00320.1pp +++|* EV EVENT TO ISSUE IF THRESHOLD EXCEEDED.
00329 M01S00321.1pp +++|
00330 M01S00322.1pp +++|
00331 M01S00323.1pp +++| TDFP DFLIM
00332 M01S00324.1pp +++| DFLIM MSDY,(3*MSDY+2),-DFDL,DFDE
00333 M01S00325.1pp +++| DFLIM ACDY,(3*ACDY+2),-AFDL,ALDE
00334 M01S00326.1pp +++| DFLIM ELDY,(3*ELDY+2),-ELDL,ELDE
00335 M01S00327.1pp +++| DFLIM MLDY,(3*MLDY+2),-BLTL,BMLE
00336 M01S00328.1pp +++|
00337 M01S00329.1pp +++| LOC *O
00338 M01S00330.1pp +++|
00339 M01S00331.1pp +++| .1 SET *-TDFP
00340 M01S00332.1pp +++| .2 SET CFSA+1
00341 M01S00333.1pp +++| TDFPE EQU .1/.2 *TDFP* ENTRY LENGTH
00342 M01S00334.1pp +++| CMS SPACE 4,15
00343 M01S00335.1pp +++|** CMS - CHECK MASS STORAGE.
00344 M01S00336.1pp +++|*
00345 M01S00337.1pp +++|* THIS ROUTINE SCANS THE EST LOOKING FOR THE FOLLOWING.
00346 M01S00338.1pp +++|* 1. CHECKPOINT REQUESTS. *1CK* CALLED.
00347 M01S00339.1pp +++|* 2. INITIALIZATION/REDEFINITION REQUESTS. *CMS* CALLED.
00348 M01S00340.1pp +++|* 3. SUSPECT DEVICES OR FLAWED TRACKS. *1MV* CALLED.
00349 M01S00341.1pp +++|* 4. DEVICES WHOSE RESTRICT NEW ACTIVITY THRESHOLD
00350 M01S00342.1pp +++|* DOES NOT MATCH THE RESTRICT NEW ACTIVITY BIT FOR THE
00351 M01S00343.1pp +++|* DEVICE. THE RESTRICT NEW ACTIVITY BIT IS ADJUSTED
00352 M01S00344.1pp +++|* TO REFLECT THE THRESHOLD BEING EXCEEDED OR NOT.
00353 M01S00345.1pp +++|* 5. DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS
00354 M01S00346.1pp +++|* GREATER THAN THE TRACKS AVAILABLE. IF ANY SUCH
00355 M01S00347.1pp +++|* DEVICES ARE FOUND AND THE OPERATOR NOTIFICATION
00356 M01S00348.1pp +++|* EVENT HAS NOT BEEN ISSUED (AS NOTED IN *OPRL*), THEN
00357 M01S00349.1pp +++|* ISSUE THE OPERATOR NOTIFICATION EVENT (*TKSL*).
00358 M01S00350.1pp +++|* 6. DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS
00359 M01S00351.1pp +++|* LESS THAN THE TRACKS AVAILABLE BY AT LEAST 5. IF
00360 M01S00352.1pp +++|* ALL DEVICES HAVE AVAILABLE TRACKS AT LEAST 5 GREATER
00361 M01S00353.1pp +++|* THAN THE OPERATOR NOTIFICATION THRESHOLD AND THE
00362 M01S00354.1pp +++|* OPERATOR NOTIFICATION FLAG FOR TRACKS LOW IS SET IN
00363 M01S00355.1pp +++|* *OPRL*, THEN CLEAR THE TRACKS LOW NOTIFICATION FLAG.
00364 M01S00356.1pp +++|*
00365 M01S00357.1pp +++|* EXIT IF *CMS* OR *1CK* MUST BE CALLED BUT NO PP IS
00366 M01S00358.1pp +++|* AVAILABLE, THE TIMERS IN *RDSL* WILL REMAIN UNCHANGED
00367 M01S00359.1pp +++|* SO THE SAME PROCESSING WILL OCCUR IN THE NEXT
00368 M01S00360.1pp +++|* SCHEDULING CYCLE.
00369 M01S00361.1pp +++|*
00370 M01S00362.1pp +++|* USES T8, T9, AA - AA+4, BB - BB+4, CM - CM+4, EJ - EJ+4,
00371 M01S00363.1pp +++|* TM - TM+4, T0 - T7.
00372 M01S00364.1pp +++|*
00373 M01S00365.1pp +++|* CALLS AST, CPP, CSC, CTF, SME.
00374 M01S00366.1pp +++|*
00375 M01S00367.1pp +++|* MACROS MONITOR, SFA, SMSTF.
00376 M01S00368.1pp +++|
00377 M01S00369.1pp +++|
00378 M01S00370.1pp +++| CMS13 LDN SSTL
00379 M01S00371.1pp +++| CRD EJ
00380 M01S00372.1pp +++| ADN RDSL-SSTL
00381 M01S00373.1pp +++| CRD BB
00382 M01S00374.1pp +++| ADN OPRL-RDSL
00383 M01S00375.1pp +++| CRD AA
00384 M01S00376.1pp +++| SOD BB+1
00385 M01S00377.1pp +++| PJN CMS14 IF NOT TIME FOR *1CK* CALL
00386 M01S00378.1pp +++| LDN 15D RESET *1CK* TIMER
00387 M01S00379.1pp +++| STD BB+1
00388 M01S00380.1pp +++| LDC 0
00389 M01S00381.1pp +++| CMSA EQU *-1
00390 M01S00382.1pp +++| ZJN CMS14 IF NO *1CK* CALL REQUIRED
00391 M01S00383.1pp +++| LDN C1CK CALL *1CK*
00392 M01S00384.1pp +++| RJM CPP
00393 M01S00385.1pp +++| NJN CMS14 IF *1CK* ASSIGNED
00394 M01S00386.1pp +++| STD BB+1 RESET TIMER TO TRY ON NEXT CYCLE
00395 M01S00387.1pp +++|
00396 M01S00388.1pp +++|* CHECK FOR *CMS* CALL REQUIRED.
00397 M01S00389.1pp +++|
00398 M01S00390.1pp +++| CMS14 SOD BB DECREMENT *CMS* TIMER
00399 M01S00391.1pp +++| PJN CMS15 IF NOT TIME FOR *CMS* LABEL CHECK
00400 M01S00392.1pp +++| LDN 60D RESET LABEL CHECK TIMER
00401 M01S00393.1pp +++| STD BB
00402 M01S00394.1pp +++| LDD EJ+1
00403 M01S00395.1pp +++| SHN 21-6
00404 M01S00396.1pp +++| PJN CMS16 IF LABEL CHECK NOT DISABLED
00405 M01S00397.1pp +++| CMS15 LDC 0 CHECK IF *CMS* CALL REQUIRED
00406 M01S00398.1pp +++| CMSB EQU *-1
00407 M01S00399.1pp +++| ZJN CMS17 IF NO *CMS* CALL REQUIRED
00408 M01S00400.1pp +++| CMS16 LDC MSSI+FEAF*10000
00409 M01S00401.1pp +++| RJM AST GET SSCT ENTRY FOR *MSM* SUBSYSTEM
00410 M01S00402.1pp +++| NJN CMS17 IF *CMS* IS ALREADY ACTIVE
00411 M01S00403.1pp +++| LDN CCMS CALL *CMS*
00412 M01S00404.1pp +++| RJM CPP
00413 M01S00405.1pp +++| NJN CMS17 IF PP AVAILABLE
00414 M01S00406.1pp +++| STD BB RESET TIMER TO TRY ON NEXT CYCLE
00415 M01S00407.1pp +++| CMS17 LDC RDSL UPDATE *1CK*/*CMS* TIMERS
00416 M01S00408.1pp +++| CWD BB
00417 M01S00409.1pp +++|
00418 M01S00410.1pp +++|* CHECK FOR OPERATOR NOTIFICATION OF LOW SPACE.
00419 M01S00411.1pp +++|
00420 M01S00412.1pp +++| LDC 0 OPERATOR NOTIFICATION REQUIRED FLAG
00421 M01S00413.1pp +++| CMSC EQU *-1
00422 M01S00414.1pp +++| ZJN CMS18 IF NO OPERATOR NOTIFICATION REQUIRED
00423 M01S00415.1pp +++| LDD AA+3
00424 M01S00416.1pp +++| SHN 21-LSPE+1+14
00425 M01S00417.1pp +++| MJN CMSX IF NOTIFICATION ALREADY SET
00426 M01S00418.1pp +++| LDN LSPE SET OPERATOR NOTIFICATION EVENT
00427 M01S00419.1pp +++| STD CM+4
00428 M01S00420.1pp +++| LDN 0 ENTER EVENT
00429 M01S00421.1pp +++| STD CM+3
00430 M01S00422.1pp +++| STD CM+1
00431 M01S00423.1pp +++| MONITOR EATM
00432 M01S00424.1pp +++| UJN CMSX RETURN
00433 M01S00425.1pp +++|
00434 M01S00426.1pp +++|* CHECK FOR CLEARING OF LOW SPACE NOTIFICATION.
00435 M01S00427.1pp +++|
00436 M01S00428.1pp +++| CMS18 LDC 0
00437 M01S00429.1pp +++| CMSD EQU *-1
00438 M01S00430.1pp +++| NJN CMSX IF TO AVOID CLEARING NOTIFICATION
00439 M01S00431.1pp +++| LDD AA+3
00440 M01S00432.1pp +++| SHN 21-LSPE+1+14
00441 M01S00433.1pp +++| PJN CMSX IF NOTIFICATION NOT SET
00442 M01S00434.1pp +++| LDK OPRL SET BIT IN *OPRL*
00443 M01S00435.1pp +++| STD CM+4
00444 M01S00436.1pp +++| LDN 0
00445 M01S00437.1pp +++| STD CM+3
00446 M01S00438.1pp +++| STD CM+2
00447 M01S00439.1pp +++| LDN 1
00448 M01S00440.1pp +++| STD CM+1
00449 M01S00441.1pp +++| LDD MA
00450 M01S00442.1pp +++| CWM CMSE,ON
00451 M01S00443.1pp +++| MONITOR UTEM
00452 M01S00444.1pp +++|
00453 M01S00445.1pp +++| CMS SUBR ENTRY/EXIT
00454 M01S00446.1pp +++| LDN ESTP
00455 M01S00447.1pp +++| CRD AA
00456 M01S00448.1pp +++| ADK RTCL-ESTP
00457 M01S00449.1pp +++| CRD TM
00458 M01S00450.1pp +++| LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
00459 M01S00451.1pp +++| STD T8
00460 M01S00452.1pp +++| LDD AA+3
00461 M01S00453.1pp +++| STD T9
00462 M01S00454.1pp +++|
00463 M01S00455.1pp +++|* SCAN EST FOR INITIALIZE AND CHECKPOINT REQUESTS.
00464 M01S00456.1pp +++|
00465 M01S00457.1pp +++| CMS1 AOD T8
00466 M01S00458.1pp +++| LMD T9
00467 M01S00459.1pp +++| NJN CMS2 IF EST SEARCH NOT COMPLETE
00468 M01S00460.1pp +++| LJM CMS13 CALL *1CK/CMS*
00469 M01S00461.1pp +++|
00470 M01S00462.1pp +++| CMS2 SFA EST,T8 READ EST ENTRY
00471 M01S00463.1pp +++| ADK EQDE
00472 M01S00464.1pp +++| CRD EJ
00473 M01S00465.1pp +++| LDD EJ CHECK DEVICE TYPE
00474 M01S00466.1pp +++| SHN 21-13
00475 M01S00467.1pp +++| PJN CMS1 IF NOT MASS STORAGE DEVICE
00476 M01S00468.1pp +++| SHN 21-1-21+13
00477 M01S00469.1pp +++| MJN CMS1 IF DEVICE IS *OFF* OR *DOWN*
00478 M01S00470.1pp +++| LDD EJ+4
00479 M01S00471.1pp +++| SHN 3
00480 M01S00472.1pp +++| ADK TDGL READ TRACKS AVAILABLE
00481 M01S00473.1pp +++| CRD T0
00482 M01S00474.1pp +++| ADN ACGL-TDGL READ REDEFINITION REQUEST
00483 M01S00475.1pp +++| CRD CM
00484 M01S00476.1pp +++| ADN NVGL-ACGL READ FLAW REQUEST
00485 M01S00477.1pp +++| CRD T6
00486 M01S00478.1pp +++| ADN DALL-NVGL READ DEVICE STATE BITS
00487 M01S00479.1pp +++| CRD T7
00488 M01S00480.1pp +++| ADN STLL-DALL READ CHECKPOINT, *1MV*, INITIALIZE
00489 M01S00481.1pp +++| CRD BB
00490 M01S00482.1pp +++| ADN THLL-STLL READ DEVICE THRESHOLDS
00491 M01S00483.1pp +++| CRD AA
00492 M01S00484.1pp +++|
00493 M01S00485.1pp +++|* CHECK FOR *CMS* CALL REQUIRED.
00494 M01S00486.1pp +++|
00495 M01S00487.1pp +++| LDD CM+4
00496 M01S00488.1pp +++| LPC MGRDR
00497 M01S00489.1pp +++| NJN CMS3 IF REDEFINITION REQUESTED
00498 M01S00490.1pp +++| LDD BB
00499 M01S00491.1pp +++| LPN MLIRP
00500 M01S00492.1pp +++| ZJN CMS4 IF INITIALIZE IS NOT REQUESTED
00501 M01S00493.1pp +++| LDD BB
00502 M01S00494.1pp +++| LPC MLFPR+MLUNL
00503 M01S00495.1pp +++| NJN CMS4 IF PACK FORMAT/UNLOAD REQUESTED
00504 M01S00496.1pp +++| LDD BB
00505 M01S00497.1pp +++| LPC MLIAL+MLIHD+MLIFD+MLIPF
00506 M01S00498.1pp +++| ZJN CMS3 IF NOT TOTAL/PF INITIALIZE
00507 M01S00499.1pp +++| LDD BB+3
00508 M01S00500.1pp +++| NJN CMS4 IF ACTIVITY ON DEVICE
00509 M01S00501.1pp +++| CMS3 AOM CMSB SET *CMS* CALL REQUIRED
00510 M01S00502.1pp +++|
00511 M01S00503.1pp +++|* CHECK FOR *1CK* CALL REQUIRED.
00512 M01S00504.1pp +++|
00513 M01S00505.1pp +++| CMS4 LDD BB (TIME TO PROCESS CHECKPOINT REQUESTS)
00514 M01S00506.1pp +++| LPN MLCKP
00515 M01S00507.1pp +++| ZJN CMS5 IF CHECKPOINT NOT REQUESTED ON DEVICE
00516 M01S00508.1pp +++| AOM CMSA NOTE CHECKPOINT BIT SET
00517 M01S00509.1pp +++|
00518 M01S00510.1pp +++|* CHECK FOR *1MV* CALL REQUIRED.
00519 M01S00511.1pp +++|
00520 M01S00512.1pp +++| CMS5 LDD T7
00521 M01S00513.1pp +++| LPC 200
00522 M01S00514.1pp +++| NJN CMS7 IF SUSPECT DEVICE
00523 M01S00515.1pp +++| RJM CTF CHECK TRACK FLAW
00524 M01S00516.1pp +++| ZJN CMS6 IF TRACK FLAWED
00525 M01S00517.1pp +++| RJM CSC CHECK SWEEP CYCLING
00526 M01S00518.1pp +++| MJN CMS8 IF NO SWEEP CYCLING CALL REQUIRED
00527 M01S00519.1pp +++| SOM CSCA DECREMENT REMAINING CALL COUNT
00528 M01S00520.1pp +++| LDN SCFC&MVFC SET SWEEP CYCLING
00529 M01S00521.1pp +++| CMS6 LMK MVFC&DVFC SET MEDIA VERIFICATION
00530 M01S00522.1pp +++| CMS7 LMK DVFC SET DEVICE VERIFICATION
00531 M01S00523.1pp +++| SHN 6
00532 M01S00524.1pp +++| STM TCPP+C1MV+3
00533 M01S00525.1pp +++| LDD BB+1
00534 M01S00526.1pp +++| SHN 21-7
00535 M01S00527.1pp +++| MJN CMS8 IF *1MV* ACTIVE
00536 M01S00528.1pp +++| LDD T8 SET EQUIPMENT IN REQUEST
00537 M01S00529.1pp +++| STD T5
00538 M01S00530.1pp +++| STM TCPP+C1MV+2
00539 M01S00531.1pp +++| LDN C1MV
00540 M01S00532.1pp +++| RJM CPP
00541 M01S00533.1pp +++| ZJN CMS8 IF PP NOT ASSIGNED
00542 M01S00534.1pp +++| SMSTF L1MV SET *1MV* ACTIVE
00543 M01S00535.1pp +++|
00544 M01S00536.1pp +++|* PROCESS LOW SPACE, RESTRICT NEW ACTIVITY FLAG.
00545 M01S00537.1pp +++|
00546 M01S00538.1pp +++| CMS8 LDD T0+4
00547 M01S00539.1pp +++| SBD AA+1
00548 M01S00540.1pp +++| SHN -21+6 (A) BIT 6 = 0, IF THRESHOLD NOT EXCEEDED
00549 M01S00541.1pp +++| LMD T7
00550 M01S00542.1pp +++| SHN 21-6
00551 M01S00543.1pp +++| PJN CMS9 IF RESTRICT NEW ACTIVITY BIT CORRECT
00552 M01S00544.1pp +++| LDD T7
00553 M01S00545.1pp +++| SHN -6
00554 M01S00546.1pp +++| LPN 1
00555 M01S00547.1pp +++| LMN 1
00556 M01S00548.1pp +++| ADN /CPS/CRES SET/CLEAR RESTRICT NEW ACTIVITY BIT
00557 M01S00549.1pp +++| ERRNZ /CPS/SRES-/CPS/CRES-1 CODE DEPENDS ON VALUE OF TAGS
00558 M01S00550.1pp +++| STD CM+2
00559 M01S00551.1pp +++| LDD T8 SET EQUIPMENT
00560 M01S00552.1pp +++| STD CM+1
00561 M01S00553.1pp +++| MONITOR SEQM
00562 M01S00554.1pp +++|
00563 M01S00555.1pp +++|* PROCESS LOW TRACK NOTIFICATION THRESHOLD.
00564 M01S00556.1pp +++|
00565 M01S00557.1pp +++| CMS9 LDD AA+2 CHECK FOR LOW SPACE THRESHOLD EXCEEDED
00566 M01S00558.1pp +++| LPC 3777
00567 M01S00559.1pp +++| SBN 1
00568 M01S00560.1pp +++| SBD T0+4
00569 M01S00561.1pp +++| PJN CMS10 IF THRESHOLD EXCEEDED
00570 M01S00562.1pp +++| ADN 5+1
00571 M01S00563.1pp +++| PJN CMS11 IF INSUFFICIENT SPACE TO CLEAR *OPRL*
00572 M01S00564.1pp +++| LDD AA+2 CLEAR *OPERATOR NOTIFIED* FLAG
00573 M01S00565.1pp +++| LPC 3777
00574 M01S00566.1pp +++| STD AA+2
00575 M01S00567.1pp +++| LDD EJ+4 REWRITE *THLL* IN MST
00576 M01S00568.1pp +++| SHN 3
00577 M01S00569.1pp +++| ADN THLL
00578 M01S00570.1pp +++| CWD AA
00579 M01S00571.1pp +++| UJN CMS12 CONTINUE
00580 M01S00572.1pp +++|
00581 M01S00573.1pp +++| CMS10 LDD AA+2
00582 M01S00574.1pp +++| SHN 21-13
00583 M01S00575.1pp +++| MJN CMS11 IF OPERATOR PREVIOUSLY NOTIFIED
00584 M01S00576.1pp +++| LDC 4000 SET *OPERATOR NOTIFIED* FLAG
00585 M01S00577.1pp +++| RAD AA+2
00586 M01S00578.1pp +++| LDD EJ+4 REWRITE *THLL* IN MST
00587 M01S00579.1pp +++| SHN 3
00588 M01S00580.1pp +++| ADN THLL
00589 M01S00581.1pp +++| CWD AA
00590 M01S00582.1pp +++| AOM CMSC NOTIFY OPERATOR
00591 M01S00583.1pp +++| CMS11 AOM CMSD PREVENT CLEARING *OPRL* LOW SPACE STATUS
00592 M01S00584.1pp +++| CMS12 RJM SME CHECK MST ERROR COUNTS
00593 M01S00585.1pp +++| LJM CMS1 PROCESS NEXT EQUIPMENT
00594 M01S00586.1pp +++|
00595 M01S00587.1pp +++|
00596 M01S00588.1pp +++| CMSE VFD 1/0,5/0,6/1
00597 M01S00589.1pp +++| VFD 6/LSPE-1,6/0
00598 M01S00590.1pp +++| CON 0,0,0
00599 M01S00591.1pp +++| COR SPACE 4,15
00600 M01S00592.1pp +++|** COR - CHECK IF OPERATOR ACTION IS REQUIRED.
00601 M01S00593.1pp +++|*
00602 M01S00594.1pp +++|* WHEN RUNNING IN A DUAL STATE ENVIROMENT, *COR* SETS BIT 56
00603 M01S00595.1pp +++|* IN WORD *D7ST* OF THE *EICB* BLOCK TO INDICATE THAT ACTION
00604 M01S00596.1pp +++|* IS REQUIRED BY THE CONSOLE OPERATOR.
00605 M01S00597.1pp +++|*
00606 M01S00598.1pp +++|* USES EO, T7, AA - AA+4, BB - BB+4, CM - CM+4, T1 - T5.
00607 M01S00599.1pp +++|*
00608 M01S00600.1pp +++|* CALLS AST, EJA.
00609 M01S00601.1pp +++|
00610 M01S00602.1pp +++|
00611 M01S00603.1pp +++|* SET BIT INDICATING THAT ACTION IS REQUIRED OF THE CONSOLE
00612 M01S00604.1pp +++|* OPERATOR.
00613 M01S00605.1pp +++|
00614 M01S00606.1pp +++| COR6 LDD AA
00615 M01S00607.1pp +++| LPC 7377
00616 M01S00608.1pp +++| LMC 400
00617 M01S00609.1pp +++| CORA EQU *-1
00618 M01S00610.1pp +++|* LMC 0 (CLEAR BIT IF NO ACTION IS REQUIRED)
00619 M01S00611.1pp +++| STD AA
00620 M01S00612.1pp +++| LDK EIBP
00621 M01S00613.1pp +++| CRD CM
00622 M01S00614.1pp +++| LDD CM+3 REPLACE WORD *D7ST*
00623 M01S00615.1pp +++| SHN 14
00624 M01S00616.1pp +++| LMD CM+4
00625 M01S00617.1pp +++| ADK D7ST
00626 M01S00618.1pp +++| CWD AA
00627 M01S00619.1pp +++| ADK D8ST-D7ST
00628 M01S00620.1pp +++| CRD AA
00629 M01S00621.1pp +++| SBN D8ST-D8TY
00630 M01S00622.1pp +++| CRD CM
00631 M01S00623.1pp +++| LDC ** *NVE* CONTROL POINT ADDRESS
00632 M01S00624.1pp +++| CORB EQU *-1
00633 M01S00625.1pp +++| ZJN CORX IF NOS/VE NOT ACTIVE
00634 M01S00626.1pp +++| LDD CM+3 CHECK NOS/VE STATUS
00635 M01S00627.1pp +++| LPN 77
00636 M01S00628.1pp +++| LMN 2
00637 M01S00629.1pp +++| NJN CORX IF NOS/VE NOT RUNNING
00638 M01S00630.1pp +++| LDD AA
00639 M01S00631.1pp +++| SHN 21-10
00640 M01S00632.1pp +++| MJN COR7 IF NOS/VE REQUESTING OPERATOR ATTENTION
00641 M01S00633.1pp +++| LDN 0 CLEAR MESSAGE AT *NVE* CONTROL POINT
00642 M01S00634.1pp +++| STM CORC
00643 M01S00635.1pp +++| COR7 LDM CORB ISSUE/CLEAR MESSAGE AT *NVE* CONTROL POINT
00644 M01S00636.1pp +++| ADK MS2W
00645 M01S00637.1pp +++| CWM CORC,TR
00646 M01S00638.1pp +++|
00647 M01S00639.1pp +++| COR SUBR ENTRY/EXIT
00648 M01S00640.1pp +++| LDK EIBP
00649 M01S00641.1pp +++| CRD CM
00650 M01S00642.1pp +++| LDD CM+3
00651 M01S00643.1pp +++| SHN 14
00652 M01S00644.1pp +++| LMD CM+4
00653 M01S00645.1pp +++| ZJN CORX IF *EICB* NOT DEFINED
00654 M01S00646.1pp +++| ADK D7ST
00655 M01S00647.1pp +++| CRD AA SAVE CONTENTS OF *D7ST*
00656 M01S00648.1pp +++| LDK NVOL
00657 M01S00649.1pp +++| CRD CM
00658 M01S00650.1pp +++| LDD CM+4
00659 M01S00651.1pp +++| ZJN CORX IF NOS/VE NOT ACTIVE
00660 M01S00652.1pp +++| LDD EO SAVE EJT ORDINAL
00661 M01S00653.1pp +++| STD BB
00662 M01S00654.1pp +++| LDC SSCP READ *SSAT* POINTER
00663 M01S00655.1pp +++| CRD CM
00664 M01S00656.1pp +++| LDD CM+2
00665 M01S00657.1pp +++| LPN 37
00666 M01S00658.1pp +++| SHN 14
00667 M01S00659.1pp +++| LMD CM+3
00668 M01S00660.1pp +++|
00669 M01S00661.1pp +++| .W SET MXSI-NVSI CALCULATE WORD OFFSET IN *SSAT*
00670 M01S00662.1pp +++| .W SET .W/5
00671 M01S00663.1pp +++| .B SET MXSI-5*.W-NVSI CALCULATE BYTE OFFSET IN *SSAT* WORD
00672 M01S00664.1pp +++|
00673 M01S00665.1pp +++| ADK SSCTL+.W READ *SSAT* WORD FOR *NVE* SUBSYSTEM
00674 M01S00666.1pp +++| CRD CM
00675 M01S00667.1pp +++| LDD CM+.B SET *NVE* EJT ORDINAL
00676 M01S00668.1pp +++| STD EO
00677 M01S00669.1pp +++| RJM EJA GET ADDRESS OF EJT ENTRY
00678 M01S00670.1pp +++| ADK SCHE
00679 M01S00671.1pp +++| CRD CM
00680 M01S00672.1pp +++| LDD BB RESTORE EJT ORDINAL
00681 M01S00673.1pp +++| STD EO
00682 M01S00674.1pp +++| LDD CM+3 SAVE CP ADDRESS OF *NVE*
00683 M01S00675.1pp +++| LPN 77
00684 M01S00676.1pp +++| SHN 7
00685 M01S00677.1pp +++| STM CORB
00686 M01S00678.1pp +++|
00687 M01S00679.1pp +++|* CHECK FOR SYSTEM PROBLEMS.
00688 M01S00680.1pp +++|
00689 M01S00681.1pp +++| LDN 0
00690 M01S00682.1pp +++| CRD CM
00691 M01S00683.1pp +++| LDD CM
00692 M01S00684.1pp +++| ADD CM+1
00693 M01S00685.1pp +++| ADD CM+2
00694 M01S00686.1pp +++| ADD CM+3
00695 M01S00687.1pp +++| ADD CM+4
00696 M01S00688.1pp +++| NJN COR2 IF WORD ZERO OF LOW CORE IS NON-ZERO
00697 M01S00689.1pp +++| LDK OPRL
00698 M01S00690.1pp +++| CRD CM
00699 M01S00691.1pp +++| LDD CM
00700 M01S00692.1pp +++| ADD CM+1
00701 M01S00693.1pp +++| ADD CM+2
00702 M01S00694.1pp +++| ADD CM+3
00703 M01S00695.1pp +++| ADD CM+4
00704 M01S00696.1pp +++| NJN COR2 IF OPERATOR MESSAGE IS PRESENT
00705 M01S00697.1pp +++|
00706 M01S00698.1pp +++|* SCAN CONTROL POINTS FOR REQUIRED ACTION BY OPERATOR.
00707 M01S00699.1pp +++|
00708 M01S00700.1pp +++| LDD CP INITIALIZE CP ADDRESS FOR BACKWARD SCAN
00709 M01S00701.1pp +++| STD T7
00710 M01S00702.1pp +++| ADK MS2W
00711 M01S00703.1pp +++| CRD CM
00712 M01S00704.1pp +++| LDD CM
00713 M01S00705.1pp +++| NJN COR2 IF MESSAGE AT SYSTEM CONTROL POINT
00714 M01S00706.1pp +++| COR1 LDC -200 DECREMENT CONTROL POINT ADDRESS
00715 M01S00707.1pp +++| RAD T7
00716 M01S00708.1pp +++| NJN COR3 IF NOT END OF CONTROL POINTS
00717 M01S00709.1pp +++| STM CORA CLEAR BIT IN *D7ST*
00718 M01S00710.1pp +++| COR2 LJM COR6 RESET BIT IN *D7ST*
00719 M01S00711.1pp +++|
00720 M01S00712.1pp +++| COR3 ADK TFSW
00721 M01S00713.1pp +++| CRD CM
00722 M01S00714.1pp +++| LDD CM
00723 M01S00715.1pp +++| ZJN COR1 IF NO JOB AT CONTROL POINT
00724 M01S00716.1pp +++| LDD T7
00725 M01S00717.1pp +++| ADK SNSW
00726 M01S00718.1pp +++| CRD CM
00727 M01S00719.1pp +++| ADK MS1W-SNSW
00728 M01S00720.1pp +++| CRD T1
00729 M01S00721.1pp +++| ADK MS2W-MS1W
00730 M01S00722.1pp +++| CRD BB
00731 M01S00723.1pp +++| LDD CM+3
00732 M01S00724.1pp +++| SHN 21-0
00733 M01S00725.1pp +++| PJN COR4 IF PAUSE FLAG NOT SET
00734 M01S00726.1pp +++| LDD T1
00735 M01S00727.1pp +++| ADD BB
00736 M01S00728.1pp +++| NJN COR2 IF MESSAGE IS PRESENT
00737 M01S00729.1pp +++| COR4 LDD BB
00738 M01S00730.1pp +++| ZJN COR1 IF NO MESSAGE IN *MS2W*
00739 M01S00731.1pp +++| SHN -6
00740 M01S00732.1pp +++| LMN 1R$
00741 M01S00733.1pp +++| COR5 NJN COR1 IF NOT FLASHING MESSAGE
00742 M01S00734.1pp +++| LDD T7
00743 M01S00735.1pp +++| ADK JOTW
00744 M01S00736.1pp +++| CRD BB
00745 M01S00737.1pp +++| LDD BB+3
00746 M01S00738.1pp +++| LMK SYOT
00747 M01S00739.1pp +++| NJN COR5 IF NOT SYSTEM ORIGIN JOB
00748 M01S00740.1pp +++| UJN COR2 SET BIT IN *D7ST*
00749 M01S00741.1pp +++|
00750 M01S00742.1pp +++|
00751 M01S00743.1pp +++| CORC DATA C*$SEE NOS/VE DISPLAY*
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 M01S00744.1pp +++| PCA SPACE 4,20
00802 M01S00745.1pp +++|** PCA - PROCESS CONTROL POINT AREAS.
00803 M01S00746.1pp +++|*
00804 M01S00747.1pp +++|* SCAN THE CPA-S AND PCPA-S CHECKING FOR ACCUMULATOR
00805 M01S00748.1pp +++|* OVERFLOW AND EXPIRED CM/CP TIME SLICES. THE *TOVF* TABLE
00806 M01S00749.1pp +++|* IS BUILT CONTAINING ACCUMULATOR OVERFLOW FLAGS FROM WORD
00807 M01S00750.1pp +++|* *SRUW* OF EACH ACTIVE CPA. FOR JOBS HAVING AN EXPIRED CM
00808 M01S00751.1pp +++|* TIME SLICE, THE SCHEDULING PRIORITY WILL BE REDUCED TO THE
00809 M01S00752.1pp +++|* LOWER BOUND OF THE JOB-S SERVICE CLASS. JOBS HAVING AN
00810 M01S00753.1pp +++|* EXPIRED CONTROL POINT TIME SLICE WILL HAVE THEIR SCHEDULING
00811 M01S00754.1pp +++|* PRIORITY REDUCED TO THE CP SLICE PRIORITY FOR THEIR
00812 M01S00755.1pp +++|* RESPECTIVE SERVICE CLASSES.
00813 M01S00756.1pp +++|*
00814 M01S00757.1pp +++|* ENTRY (NC) = NUMBER OF CONTROL POINTS.
00815 M01S00758.1pp +++|* (PN) = NUMBER OF MCT ENTRIES.
00816 M01S00759.1pp +++|*
| Line S00760 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00817 M02S00760.273l780 ---|* USES EO, SC, T3, T6, T7, AA - AA+4, BB - BB+4, CM - CM+4,
00818 M01S00001.273l780 +++|* USES EO, SC, T3, T7, AA - AA+4, BB - BB+4, CM - CM+4,
00819 M01S00761.1pp +++|* EJ - EJ+4.
00820 M01S00762.1pp +++|*
| Line S00763 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00821 M02S00763.273l780 ---|* CALLS CCS, CET, CPS, CWR, EJA, IRR, IUT, PIS, SSA.
| Line S00764 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00822 M02S00764.273l780 ---|*
| Line S00765 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00823 M02S00765.273l780 ---|* MACROS LCPA.
00824 M01S00002.273l780 +++|* CALLS CCA, CCS, CET, CPS, CWR, EJA, IRR, IUT, PIS, SSA.
00825 M01S00766.1pp +++|
00826 M01S00767.1pp +++|
00827 M01S00768.1pp +++| PCA19 RJM SSA WRITE TIME SLICE COUNT STATISTICS
00828 M01S00769.1pp +++| CWM PCAE,ON
00829 M01S00770.1pp +++|
00830 M01S00771.1pp +++| PCA SUBR ENTRY/EXIT
00831 M01S00772.1pp +++| RJM SSA READ TIME SLICE COUNT STATISTICS
00832 M01S00773.1pp +++| CRM PCAE,ON
00833 M01S00774.1pp +++| LDN 0 INITIALIZE CP/PCP NUMBER
00834 M01S00775.1pp +++| STD T7
00835 M01S00776.1pp +++| PCA1 AOD T7 ADVANCE TO NEXT CP/PCP
00836 M01S00777.1pp +++| LMD NC
00837 M01S00778.1pp +++| ZJN PCA1 IF SYSTEM CONTROL POINT
00838 M01S00779.1pp +++| LMD NC
00839 M01S00780.1pp +++| LMD PN
00840 M01S00781.1pp +++| ZJN PCA19 IF END OF SCAN
| Line S00782 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00841 M02S00782.273l780 ---| LCPA SRUW,T7
00842 M01S00003.273l780 +++| LDD T7 SET CP/PCP ADDRESS
00843 M01S00004.273l780 +++| RJM CCA
00844 M01S00005.273l780 +++| ADK SRUW
00845 M01S00783.1pp +++| CRD BB
00846 M01S00784.1pp +++| ADN TFSW-SRUW
00847 M01S00785.1pp +++| CRD AA
00848 M01S00786.1pp +++| LDD T7
00849 M01S00787.1pp +++| SBD NC
00850 M01S00788.1pp +++| PJN PCA2 IF PCP
00851 M01S00789.1pp +++| LDN 0 PRESET OVERFLOW FLAGS TABLE ENTRY
00852 M01S00790.1pp +++| STM TOVF-1,T7
00853 M01S00791.1pp +++| PCA2 LDD AA
00854 M01S00792.1pp +++| ZJN PCA1 IF NO JOB AT CP/PCP
00855 M01S00793.1pp +++| STD EO EJT ORDINAL
00856 M01S00794.1pp +++| RJM EJA CALCULATE EJT ENTRY ADDRESS
00857 M01S00795.1pp +++| ADK JSNE
00858 M01S00796.1pp +++| CRD EJ READ *JSNE* WORD OF EJT ENTRY
00859 M01S00797.1pp +++| ADN SCLE-JSNE
00860 M01S00798.1pp +++| CRD AA READ *SCLE* WORD OF EJT ENTRY
00861 M01S00799.1pp +++| LDD AA
00862 M01S00800.1pp +++| SHN -6
00863 M01S00801.1pp +++| STD SC
00864 M01S00802.1pp +++| LDD EJ+4
00865 M01S00803.1pp +++| SHN -1
00866 M01S00804.1pp +++| LPN 77
00867 M01S00805.1pp +++| LMK PCJS
00868 M01S00806.1pp +++| ZJN PCA4 IF PCP JOB AND ADVANCE CLEAR
00869 M01S00807.1pp +++| LMK EXJS&PCJS
00870 M01S00808.1pp +++| PCA3 NJP PCA1 IF ADVANCE SET OR NOT *EXJS* STATUS
00871 M01S00809.1pp +++| LDD BB SAVE OVERFLOW FLAGS
| Line S00810 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | ns2753 |
Seq # *Modification Id* Act
----------------------------+
00872 M02S00810.ns2753 ---| LPN 1
00873 M01S00001.ns2753 +++| LPN 3
00874 M01S00811.1pp +++| SHN 14
00875 M01S00812.1pp +++| ADD BB+1
00876 M01S00813.1pp +++| SHN -5
00877 M01S00814.1pp +++| STM TOVF-1,T7
| Line S00815 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00878 M02S00815.273l780 ---| PCA4 LCPA JCIW,T7
00879 M01S00006.273l780 +++| PCA4 LDD T7 SET CP/PCP ADDRESS
00880 M01S00007.273l780 +++| RJM CCA
00881 M01S00008.273l780 +++| ADK JCIW
00882 M01S00816.1pp +++| CRD CM
00883 M01S00817.1pp +++| LDD CM+2
00884 M01S00818.1pp +++| ZJN PCA6 IF ROLLOUT ALLOWED
00885 M01S00819.1pp +++| LMN ORSI CHECK FOR OPERATOR ROLLOUT ALLOWED
00886 M01S00820.1pp +++| PCA5 NJN PCA3 IF ROLLOUT INHIBITED OR SUBSYSTEM
00887 M01S00821.1pp +++| PCA6 LDD AA
00888 M01S00822.1pp +++| SHN 21-5
00889 M01S00823.1pp +++| PJN PCA7 IF NOT FORCED ROLLOUT
00890 M01S00824.1pp +++| LDN 0
00891 M01S00825.1pp +++| UJN PCA10 REQUEST ROLLOUT
00892 M01S00826.1pp +++|
00893 M01S00827.1pp +++| PCA7 SHN 5-4
00894 M01S00828.1pp +++| MJN PCA5 IF FORCED ROLLIN
00895 M01S00829.1pp +++| LDD BB
00896 M01S00830.1pp +++| SHN 21-10+1
00897 M01S00831.1pp +++| LPN 5
00898 M01S00832.1pp +++| ZJN PCA12 IF RESOURCE LIMIT NOT REACHED
00899 M01S00833.1pp +++| AOM PCAE+2 INCREMENT RESOURCE LIMIT ROLLOUT COUNT
00900 M01S00834.1pp +++| SHN -14
00901 M01S00835.1pp +++| RAM PCAE+1
00902 M01S00836.1pp +++| LDD EJ+4
00903 M01S00837.1pp +++| SHN 0-7
00904 M01S00838.1pp +++| LPN 17
00905 M01S00839.1pp +++| LMK OLCS
00906 M01S00840.1pp +++| ZJN PCA8 IF ON-LINE INTERACTIVE JOB
00907 M01S00841.1pp +++| LMK OLCS&DTCS
00908 M01S00842.1pp +++| ZJN PCA9 IF DETACHED INTERACTIVE JOB
00909 M01S00843.1pp +++| LDN 0 ROLLOUT ALL OTHER JOBS
00910 M01S00844.1pp +++| UJN PCA10 REQUEST ROLLOUT
00911 M01S00845.1pp +++|
00912 M01S00846.1pp +++| PCA8 LDN /CPS/ROSU&/CPS/ROSR SELECT *ROSR* SCHEDULER ROLLOUT
00913 M01S00847.1pp +++| PCA9 LMN /CPS/ROSU SELECT *ROCM* SUSPEND OPTION
00914 M01S00848.1pp +++| SHN 14
00915 M01S00849.1pp +++| PCA10 LMD T7
00916 M01S00850.1pp +++| RJM IRR ISSUE ROLLOUT REQUEST
00917 M01S00851.1pp +++| PCA11 LJM PCA1 CONTINUE CONTROL POINT SCAN
00918 M01S00852.1pp +++|
00919 M01S00853.1pp +++| PCA12 RJM CWR CHECK WAIT RESPONSE/CONNECTION INDICATORS
| Line S00854 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00920 M02S00854.273l780 ---| PCAA LCPA ECSW,T7
00921 M01S00009.273l780 +++| PCAA LDD T7 SET CP/PCP ADDRESS
00922 M01S00855.1pp +++|* UJN PCA13 (USER ECS IS ENABLED)
00923 M01S00010.273l780 +++| RJM CCA
00924 M01S00011.273l780 +++| ADK ECSW
00925 M01S00856.1pp +++| CRD CM
00926 M01S00857.1pp +++| LDD CM+4
00927 M01S00858.1pp +++| ZJN PCA13 IF NO ECS IS ASSIGNED TO JOB
00928 M01S00859.1pp +++| LDN 0
00929 M01S00860.1pp +++| UJN PCA10 REQUEST ROLLOUT
00930 M01S00861.1pp +++|
00931 M01S00862.1pp +++| PCA13 LDD T7
00932 M01S00863.1pp +++| SBD NC
00933 M01S00864.1pp +++| PJN PCA11 IF PCP JOB
00934 M01S00865.1pp +++| LDD AA+2 SAVE SLICE FLAG
00935 M01S00866.1pp +++| SHN 14
00936 M01S00867.1pp +++| STD T3
00937 M01S00868.1pp +++| SHN -14
00938 M01S00869.1pp +++| STD AA+2
00939 M01S00870.1pp +++| RJM CCS CHECK FOR EXPIRED CM SLICE
00940 M01S00871.1pp +++| PJN PCA14 IF CM SLICE IS EXPIRED
00941 M01S00872.1pp +++| LDD PN
00942 M01S00873.1pp +++| SBD NC
00943 M01S00874.1pp +++| SBN 1
00944 M01S00875.1pp +++| ZJN PCA11 IF NO PCP-S
00945 M01S00876.1pp +++| RJM CPS CHECK FOR EXPIRED CONTROL POINT SLICE
00946 M01S00877.1pp +++| MJP PCA1 IF CP SLICE NOT EXPIRED
00947 M01S00878.1pp +++| LDN 2
00948 M01S00879.1pp +++| STD T3
00949 M01S00880.1pp +++| PCA14 LDM PCAD,T3
00950 M01S00881.1pp +++| STM PCAB
00951 M01S00882.1pp +++| LDD T3
00952 M01S00883.1pp +++| NJN PCA15 IF EITHER CP SLICE OR NOT INITIAL SLICE
00953 M01S00884.1pp +++| RJM PIS PROCESS INITIAL SLICE
00954 M01S00885.1pp +++| PCA15 RJM EJA CALCULATE EJT ENTRY ADDRESS
00955 M01S00886.1pp +++| ADN SCHE
00956 M01S00887.1pp +++| CRD CM
00957 M01S00888.1pp +++| LDM TEPB+1*MXJC,SC PUT PRIORITY IN *UTEM* CALL
00958 M01S00889.1pp +++| PCAB EQU *-1
00959 M01S00890.1pp +++| STM PCAC+14D
00960 M01S00891.1pp +++| LDD CM+3
00961 M01S00892.1pp +++| STM PCAC+13D
00962 M01S00893.1pp +++| LDD EJ+4 STORE JOB STATUS IN *UTEM* BLOCK
00963 M01S00894.1pp +++| LPN 76
00964 M01S00895.1pp +++| STM PCAC+9D
00965 M01S00896.1pp +++| LDD T7
00966 M01S00897.1pp +++| SBD NC
00967 M01S00898.1pp +++| MJN PCA16 IF NOT PCP
00968 M01S00899.1pp +++| LDM PCAC+14D
00969 M01S00900.1pp +++| STD T1
00970 M01S00901.1pp +++| LDD SC
00971 M01S00902.1pp +++| SHN 14
00972 M01S00903.1pp +++| LMK EXQT
00973 M01S00904.1pp +++| RJM CET
00974 M01S00905.1pp +++| LDD T1 STORE ENTRY TIME IN *UTEM* BLOCK
00975 M01S00906.1pp +++| STM PCAC+13D
00976 M01S00907.1pp +++| LDD T2
00977 M01S00908.1pp +++| STM PCAC+14D
00978 M01S00909.1pp +++| UJN PCA17 REDUCE PRIORITY TO LOWER BOUND
00979 M01S00910.1pp +++|
00980 M01S00911.1pp +++| PCA16 LDM PCAC+14D
00981 M01S00912.1pp +++| SBD CM+4
00982 M01S00913.1pp +++| PJN PCA18 IF PRIORITY ALREADY REDUCED
00983 M01S00914.1pp +++|
00984 M01S00915.1pp +++|* REDUCE SCHEDULING PRIORITY.
00985 M01S00916.1pp +++|
00986 M01S00917.1pp +++| PCA17 LDD SC PUT SERVICE CLASS IN *UTEM* CALL
00987 M01S00918.1pp +++| STM PCAC+4
00988 M01S00919.1pp +++| LDC PCAC+3*10000
00989 M01S00920.1pp +++| RJM IUT ISSUE *UTEM* MONITOR FUNCTION
00990 M01S00921.1pp +++| NJN PCA18 IF *UTEM* REJECTED
00991 M01S00922.1pp +++| LDD T3
00992 M01S00923.1pp +++| SBN 2
00993 M01S00924.1pp +++| PJN PCA18 IF CP SLICE EXPIRED
00994 M01S00925.1pp +++| AOM PCAE+4 INCREMENT SLICE COUNT
00995 M01S00926.1pp +++| SHN -14
00996 M01S00927.1pp +++| RAM PCAE+3
00997 M01S00928.1pp +++| PCA18 LJM PCA1 CONTINUE CONTROL POINT SCAN
00998 M01S00929.1pp +++|
00999 M01S00930.1pp +++|
01000 M01S00931.1pp +++|* *UTEM* PARAMETERS FOR CHANGING SCHEDULING PRIORITY.
01001 M01S00932.1pp +++|
01002 M01S00933.1pp +++| PCAC VFD 1/1,5/SCLE,6/6 VERIFY SERVICE CLASS
01003 M01S00934.1pp +++| VFD 6/54D,6/0
01004 M01S00935.1pp +++| CON 0
01005 M01S00936.1pp +++| CON 0
01006 M01S00937.1pp +++| CON 0
01007 M01S00938.1pp +++|
01008 M01S00939.1pp +++| VFD 1/1,5/JSNE,6/6 VERIFY UNCHANGED JOB STATE, CLEAR I/L
01009 M01S00940.1pp +++| VFD 6/0,6/0
01010 M01S00941.1pp +++| CON 0
01011 M01S00942.1pp +++| CON 0
01012 M01S00943.1pp +++| CON 0
01013 M01S00944.1pp +++|
01014 M01S00945.1pp +++| VFD 1/0,5/SCHE,6/24D SET SCHEDULING PRIORITY
01015 M01S00946.1pp +++| VFD 6/0,6/0
01016 M01S00947.1pp +++| CON 0
01017 M01S00948.1pp +++| CON 0
01018 M01S00949.1pp +++| CON 0
01019 M01S00950.1pp +++|
01020 M01S00951.1pp +++| PCAD CON TEPB
01021 M01S00952.1pp +++| CON TEPB+1*MXJC
01022 M01S00953.1pp +++| CON TEPB+3*MXJC
01023 M01S00954.1pp +++|
01024 M01S00955.1pp +++| PCAE BSS 5 *PF0S* BUFFER
01025 M01S00956.1pp +++| POF SPACE 4,15
01026 M01S00957.1pp +++|** POF - PROCESS OVERFLOW FLAGS.
01027 M01S00958.1pp +++|*
01028 M01S00959.1pp +++|* CALL *0AU* FOR EACH CONTROL POINT HAVING ACCUMULATOR
01029 M01S00960.1pp +++|* OVERFLOW.
01030 M01S00961.1pp +++|*
01031 M01S00962.1pp +++|* ENTRY (NC) = SYSTEM CONTROL POINT NUMBER.
01032 M01S00963.1pp +++|* *TOVF* TABLE CONTAINS ACCUMULATOR OVERFLOW FLAGS.
01033 M01S00964.1pp +++|*
| Line S00965 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01034 M02S00965.273l780 ---|* USES CP, EO, TP, CM - CM+4, (*0AU* USES CELLS 0 - 17B).
01035 M01S00012.273l780 +++|* USES EO, TP, CM - CM+4.
01036 M01S00966.1pp +++|*
01037 M01S00967.1pp +++|* CALLS EJA, 0AU.
01038 M01S00968.1pp +++|*
01039 M01S00969.1pp +++|* MACROS EXECUTE, MONITOR.
01040 M01S00970.1pp +++|
01041 M01S00971.1pp +++|
01042 M01S00972.1pp +++| POF SUBR ENTRY/EXIT
01043 M01S00973.1pp +++| LDD NC INITIALIZE CONTROL POINT NUMBER
01044 M01S00974.1pp +++| STD TP
01045 M01S00975.1pp +++| POF1 SOD TP DECREMENT CONTROL POINT NUMBER
01046 M01S00976.1pp +++| ZJN POFX IF ALL CONTROL POINTS HAVE BEEN PROCESSED
01047 M01S00977.1pp +++| LDM TOVF-1,TP
01048 M01S00978.1pp +++| ZJN POF1 IF NO ACCUMULATOR OVERFLOW AT THIS CP
01049 M01S00979.1pp +++| LDD TP SAVE CONTROL POINT NUMBER FOR *CCAM*
01050 M01S00980.1pp +++| STD CM+1
01051 M01S00981.1pp +++| MONITOR CCAM CHANGE CONTROL POINT ASSIGNMENT
01052 M01S00982.1pp +++| LDD CM+1
01053 M01S00983.1pp +++| NJN POF1 IF FUNCTION REJECTED
01054 M01S00984.1pp +++|
01055 M01S00985.1pp +++|* SET UP *0AU* PARAMETERS.
01056 M01S00986.1pp +++|
| Line S00987 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01057 M02S00987.273l780 ---| LDD TP PLACE *SRU* ACCUMULATOR IN PARAMETER BLOCK
| Line S00988 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01058 M02S00988.273l780 ---| SHN 7
| Line S00989 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01059 M02S00989.273l780 ---| STD CP
01060 M01S00013.273l780 +++| LDD CP
01061 M01S00990.1pp +++| ADN SRUW
01062 M01S00991.1pp +++| CRM P0AU+5,ON
01063 M01S00992.1pp +++| ADN FPFW-SRUW-1
01064 M01S00993.1pp +++| CRM OVL0,ON
01065 M01S00994.1pp +++| ADN TFSW-FPFW-1
01066 M01S00995.1pp +++| CRD CM
01067 M01S00996.1pp +++| LDM P0AU+6
01068 M01S00997.1pp +++| SCN 37
01069 M01S00998.1pp +++| NJN POF2 IF OVERFLOW
01070 M01S00999.1pp +++| LDM P0AU+5
| Line S01000 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | ns2753 |
Seq # *Modification Id* Act
----------------------------+
01071 M02S01000.ns2753 ---| LPN 1
01072 M01S00002.ns2753 +++| LPN 3
01073 M01S01001.1pp +++| ZJN POF3 IF NO OVERFLOW FLAGS SET
01074 M01S01002.1pp +++| POF2 LDD CM PLACE JSN IN PARAMETER BLOCK
01075 M01S01003.1pp +++| STD EO
01076 M01S01004.1pp +++| RJM EJA CALCULATE EJT ENTRY ADDRESS
01077 M01S01005.1pp +++| ADK JSNE
01078 M01S01006.1pp +++| CRM P0AU,ON
01079 M01S01007.1pp +++| ADK SCLE-JSNE-1 SET SERVICE CLASS FOR *0AU*
01080 M01S01008.1pp +++| CRD CM
01081 M01S01009.1pp +++| LDD CM
01082 M01S01010.1pp +++| SCN 77
01083 M01S01011.1pp +++| STM P0AU+4
01084 M01S01012.1pp +++| LDC P0AU SET PARAMETER BLOCK ADDRESS
01085 M01S01013.1pp +++| STM OVL0+1
01086 M01S01014.1pp +++| LDM OVL0 SET *0AU* FUNCTION CODE
01087 M01S01015.1pp +++| SCN 77
01088 M01S01016.1pp +++| ADN 1
01089 M01S01017.1pp +++| STM OVL0
01090 M01S01018.1pp +++|
01091 M01S01019.1pp +++|* EXECUTE *0AU*. NOTE THAT *0AU* USES DIRECT CELLS 0 - 17B.
01092 M01S01020.1pp +++|
01093 M01S01021.1pp +++| EXECUTE 0AU,OVL0+5
01094 M01S01022.1pp +++| POF3 LDD NC SAVE SYSTEM CP NUMBER FOR *CCAM*
01095 M01S01023.1pp +++| STD CM+1
| Line S01024 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01096 M02S01024.273l780 ---| SHN 7
| Line S01025 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01097 M02S01025.273l780 ---| STD CP
01098 M01S01026.1pp +++| MONITOR CCAM CHANGE PP ASSIGNMENT TO SYSTEM CP
01099 M01S01027.1pp +++| LJM POF1 CONTINUE
01100 M01S01028.1pp +++| SPACE 4,10
01101 M01S01029.1pp +++| SEJ SPACE 4,20
01102 M01S01030.1pp +++|** SEJ - SCAN EJT.
01103 M01S01031.1pp +++|*
01104 M01S01032.1pp +++|* SET FLAGS IN WORD *OPRL* FOR POSTED OPERATOR ACTION EVENTS.
01105 M01S01033.1pp +++|* SCAN THE EJT LOOKING FOR JOBS HAVING TIMED/EVENT ROLLOUT JOB
01106 M01S01034.1pp +++|* STATUS, AND FOR JOBS WITH ACCESS LEVEL LIMITS OUTSIDE THEIR
01107 M01S01035.1pp +++|* JOB ORIGIN ACCESS LEVEL LIMITS. IF A JOB-S ROLLOUT TIME HAS
01108 M01S01036.1pp +++|* EXPIRED OR ITS EVENT IS POSTED, CHANGE THE JOB STATUS TO
01109 M01S01037.1pp +++|* SCHEDULER ROLLOUT (*ROJS*). IF A JOB-S ACCESS LEVEL LIMITS
01110 M01S01038.1pp +++|* ARE OUTSIDE ITS ORIGIN TYPE LIMIT, ABORT THE JOB WITH AN
01111 M01S01039.1pp +++|* *SYET* ERROR FLAG. SUBSYSTEMS ARE NOT ABORTED.
01112 M01S01040.1pp +++|* SCAN THE EJT LOOKING FOR JOBS IN SERVICE LIMIT WAIT STATUS
01113 M01S01041.1pp +++|* AND SET *ROJS* STATUS ON THE JOBS IF THEY ARE NOW WITHIN
01114 M01S01042.1pp +++|* THE SERVICE LIMIT CONSTRAINTS.
01115 M01S01043.1pp +++|*
01116 M01S01044.1pp +++|* USES EO, SC, AA - AA+4, BB - BB+4, CM - CM+4,
01117 M01S01045.1pp +++|* EJ - EJ+4, T0 - T0+4.
01118 M01S01046.1pp +++|*
01119 M01S01047.1pp +++|* CALLS CAL, OAE, PSL, PTE, RTE.
01120 M01S01048.1pp +++|*
01121 M01S01049.1pp +++|* MACROS CFI, MONITOR.
01122 M01S01050.1pp +++|
01123 M01S01051.1pp +++|
01124 M01S01052.1pp +++| SEJ5 LDD CF
01125 M01S01053.1pp +++| LPN 4
01126 M01S01054.1pp +++| ZJN SEJX IF SYSTEM LIMITS HAVE NOT CHANGED
01127 M01S01055.1pp +++| LDN 1 CLEAR SYSTEM LIMITS CHANGED FLAG
01128 M01S01056.1pp +++| STD CM+1
01129 M01S01057.1pp +++| STD CM+2
01130 M01S01058.1pp +++| LDD MA
01131 M01S01059.1pp +++| CWM SEJD,ON
01132 M01S01060.1pp +++| MONITOR UADM
01133 M01S01061.1pp +++|
01134 M01S01062.1pp +++| SEJ SUBR ENTRY/EXIT
01135 M01S01063.1pp +++| RJM RTE READ TABLE OF EVENTS
01136 M01S01064.1pp +++| LDD T7 GET EVENT COUNT
01137 M01S01065.1pp +++|
01138 M01S01066.1pp +++|* CHECK FOR OPERATOR ACTION EVENTS.
01139 M01S01067.1pp +++|
01140 M01S01068.1pp +++| RJM OAE PROCESS OPERATOR ACTION EVENTS
01141 M01S01069.1pp +++|
01142 M01S01070.1pp +++|* SCAN THE EJT.
01143 M01S01071.1pp +++|
01144 M01S01072.1pp +++| LDD CF GET SYSTEM LIMITS CHANGED STATUS
01145 M01S01073.1pp +++| LPN 4
01146 M01S01074.1pp +++| STM SEJC
01147 M01S01075.1pp +++| LDC ** PRESET EJT ORDINAL FOR BACKWARD SCAN
01148 M01S01076.1pp +++| SEJA EQU *-1 (LARGEST EJT ORDINAL + 1)
01149 M01S01077.1pp +++| STD EO
01150 M01S01078.1pp +++| SEJ1 SOD EO DECREMENT EJT ORDINAL
01151 M01S01079.1pp +++| ZJP SEJ5 IF EJT SCAN COMPLETE
01152 M01S01080.1pp +++| CFI EJT,,EO GET EJT ENTRY OFFSET
01153 M01S01081.1pp +++| ADC ** ADD EJT FWA (SET BY *PRS*)
01154 M01S01082.1pp +++| SEJB EQU *-1 (EJT FWA)
01155 M01S01083.1pp +++| ADK JSNE
01156 M01S01084.1pp +++| CRD EJ
01157 M01S01085.1pp +++| ADN SCHE-JSNE
01158 M01S01086.1pp +++| CRD AA
01159 M01S01087.1pp +++| ADN PRFE-SCHE
01160 M01S01088.1pp +++| CRD BB
01161 M01S01089.1pp +++| ADN SCLE-PRFE
01162 M01S01090.1pp +++| CRD T0
01163 M01S01091.1pp +++| LDD EJ
01164 M01S01092.1pp +++| ZJN SEJ1 IF EMPTY ENTRY
01165 M01S01093.1pp +++| LDD T0 GET SERVICE CLASS
01166 M01S01094.1pp +++| STM PTEA
01167 M01S01095.1pp +++| SHN -6
01168 M01S01096.1pp +++| STD SC
01169 M01S01097.1pp +++| LMN DSSC
01170 M01S01098.1pp +++| NJN SEJ2 IF NOT DEADSTART SEQUENCING JOB
01171 M01S01099.1pp +++| SOM CPPA SET D/S SEQUENCING FLAG
01172 M01S01100.1pp +++| SEJ2 LDC **
01173 M01S01101.1pp +++| SEJC EQU *-1 (SYSTEM LIMITS CHANGED FLAG)
01174 M01S01102.1pp +++| ZJN SEJ3 IF SYSTEM LIMITS HAVE NOT CHANGED
01175 M01S01103.1pp +++| RJM CAL CHECK ACCESS LEVEL LIMITS
01176 M01S01104.1pp +++| NJN SEJ4 IF JOB ABORTED OR IN TERMINATION
01177 M01S01105.1pp +++| SEJ3 RJM PTE PROCESS TIMED/EVENT ROLLOUT JOBS
01178 M01S01106.1pp +++| RJM PSL PROCESS SERVICE LIMITS
01179 M01S01107.1pp +++| SEJ4 LJM SEJ1 PROCESS NEXT EJT ENTRY
01180 M01S01108.1pp +++|
01181 M01S01109.1pp +++|
01182 M01S01110.1pp +++|* *UADM* PARAMETERS TO CLEAR SYSTEM LIMITS CHANGED FLAG.
01183 M01S01111.1pp +++|
01184 M01S01112.1pp +++| SEJD CON /CPS/LDOS DECREMENT BY ONE
01185 M01S01113.1pp +++| CON INWL
01186 M01S01114.1pp +++| CON 14D*100+1 BIT ADDRESS AND FIELD WIDTH
01187 M01S01115.1pp +++| TITLE SECONDARY SUBROUTINES.
01188 M01S01116.1pp +++| CAL SPACE 4,20
01189 M01S01117.1pp +++|** CAL - CHECK ACCESS LEVEL LIMITS.
01190 M01S01118.1pp +++|*
01191 M01S01119.1pp +++|* CHECK IF THE JOB-S ACCESS LEVEL LIMITS ARE OUTSIDE THE
01192 M01S01120.1pp +++|* LIMITS FOR THE JOB-S ORIGIN TYPE. IF SO, ABORT THE JOB
01193 M01S01121.1pp +++|* WITH AN *SYET* ERROR. SUBSYSTEMS WILL NOT BE ABORTED.
01194 M01S01122.1pp +++|* IGNORE ALL JOBS THAT ALREADY HAVE *SYET* OR *TJET* ERROR
01195 M01S01123.1pp +++|* FLAGS, AS WELL AS JOBS ALREADY IN JOB TERMINATION.
01196 M01S01124.1pp +++|*
01197 M01S01125.1pp +++|* ENTRY (EO) = EJT ORDINAL OF JOB.
01198 M01S01126.1pp +++|* (SC) = SERVICE CLASS OF JOB.
01199 M01S01127.1pp +++|* (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
01200 M01S01128.1pp +++|* (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
01201 M01S01129.1pp +++|* (BB - BB+4) = *PRFE* WORD OF EJT ENTRY.
01202 M01S01130.1pp +++|* (T0 - T0+4) = *SCLE* WORD OF EJT ENTRY.
01203 M01S01131.1pp +++|*
01204 M01S01132.1pp +++|* EXIT (A) .NE. 0 IF JOB ABORTED OR IN TERMINATION.
01205 M01S01133.1pp +++|*
01206 M01S01134.1pp +++|* USES CM - CM+4.
01207 M01S01135.1pp +++|*
01208 M01S01136.1pp +++|* MACROS DELAY, MONITOR.
01209 M01S01137.1pp +++|
01210 M01S01138.1pp +++|
01211 M01S01139.1pp +++| CAL3 LDN 1 SET ERROR RETURN STATUS
01212 M01S01140.1pp +++|
01213 M01S01141.1pp +++| CAL SUBR ENTRY/EXIT
01214 M01S01142.1pp +++| LDD AA+2
01215 M01S01143.1pp +++| SHN 21-12
01216 M01S01144.1pp +++| MJN CALX IF JOB TERMINATION IN PROGRESS
01217 M01S01145.1pp +++| LDD BB+1
01218 M01S01146.1pp +++| LMK SYET
01219 M01S01147.1pp +++| ZJN CAL3 IF JOB ALREADY HAS *SYET* ERROR
01220 M01S01148.1pp +++| LDD BB+2
01221 M01S01149.1pp +++| LPN 77
01222 M01S01150.1pp +++| SHN -3+22
01223 M01S01151.1pp +++| STD CM+4 SET LOWER ACCESS LEVEL LIMIT
01224 M01S01152.1pp +++| SHN -22+3
01225 M01S01153.1pp +++| STD CM+3 SET UPPER ACCESS LEVEL LIMIT
01226 M01S01154.1pp +++| LDD T0 SET ORIGIN TYPE
01227 M01S01155.1pp +++| LPN 17
01228 M01S01156.1pp +++| STD CM+2
01229 M01S01157.1pp +++| LDN /CPS/VJLS VALIDATE JOB LIMITS
01230 M01S01158.1pp +++| STD CM+1
01231 M01S01159.1pp +++| MONITOR VSAM
01232 M01S01160.1pp +++| LDD CM+1
01233 M01S01161.1pp +++| ZJN CALX IF JOB LIMITS VALID
01234 M01S01162.1pp +++|
01235 M01S01163.1pp +++|* SET *SYET* ERROR FLAG FOR ALL JOBS EXCEPT SUBSYSTEMS.
01236 M01S01164.1pp +++|
01237 M01S01165.1pp +++| LDD SC
01238 M01S01166.1pp +++| LMK SSSC
01239 M01S01167.1pp +++| ZJN CALX IF JOB IS SUBSYSTEM
01240 M01S01168.1pp +++| CAL1 LDC SYET+4000 SET ERROR FLAG
01241 M01S01169.1pp +++| STD CM+1
01242 M01S01170.1pp +++| LDD EO SET EJT ORDINAL
01243 M01S01171.1pp +++| STD CM+2
01244 M01S01172.1pp +++| LDD EJ SET JSN
01245 M01S01173.1pp +++| STD CM+3
01246 M01S01174.1pp +++| LDD EJ+1
01247 M01S01175.1pp +++| STD CM+4
01248 M01S01176.1pp +++| MONITOR CEFM
01249 M01S01177.1pp +++| LDD CM+1
01250 M01S01178.1pp +++| ZJP CAL3 IF ERROR FLAG SET
01251 M01S01179.1pp +++| DELAY
01252 M01S01180.1pp +++| UJN CAL1 RETRY
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 M01S01181.1pp +++| CCS SPACE 4,10
01273 M01S01182.1pp +++|** CCS - CHECK CM SLICE.
01274 M01S01183.1pp +++|*
01275 M01S01184.1pp +++|* CHECK FOR EXPIRED CM TIME SLICE.
01276 M01S01185.1pp +++|*
01277 M01S01186.1pp +++|* ENTRY (AA - AA+4) = WORD *TSCW* OF CPA/PCPA.
01278 M01S01187.1pp +++|* (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*.
01279 M01S01188.1pp +++|*
01280 M01S01189.1pp +++|* EXIT (A) .GE. 0 IF CM TIME SLICE EXPIRED.
01281 M01S01190.1pp +++|
01282 M01S01191.1pp +++|
01283 M01S01192.1pp +++| CCS SUBR ENTRY/EXIT
01284 M01S01193.1pp +++| LDD TM CALCULATE REAL TIME - CM SLICE TIME
01285 M01S01194.1pp +++| SBD AA
01286 M01S01195.1pp +++| NJN CCSX IF NO NEED TO CHECK LOWER BITS
01287 M01S01196.1pp +++| LDD TM+1
01288 M01S01197.1pp +++| SBD AA+1
01289 M01S01198.1pp +++| UJN CCSX RETURN
01290 M01S01199.1pp +++| CPP SPACE 4,10
01291 M01S01200.1pp +++|** CPP - CALL PP.
01292 M01S01201.1pp +++|*
01293 M01S01202.1pp +++|* THIS ROUTINE CALLS THE REQUESTED PP TO THE SYSTEM CONTROL
01294 M01S01203.1pp +++|* POINT.
01295 M01S01204.1pp +++|*
01296 M01S01205.1pp +++|* ENTRY (A) = RELATIVE PP CALL INDEX FROM TCPP.
01297 M01S01206.1pp +++|*
01298 M01S01207.1pp +++|* EXIT (A) = 0, IF NO PP AVAILABLE.
01299 M01S01208.1pp +++|*
01300 M01S01209.1pp +++|* USES T1, CM - CM+4.
01301 M01S01210.1pp +++|
01302 M01S01211.1pp +++|
01303 M01S01212.1pp +++| CPP2 LDN 0 INDICATE NO PP AVAILABLE
01304 M01S01213.1pp +++|
01305 M01S01214.1pp +++| CPP SUBR ENTRY/EXIT
01306 M01S01215.1pp +++| ADC TCPP SET ABSOLUTE TABLE ADDRESS
01307 M01S01216.1pp +++| STD T1
01308 M01S01217.1pp +++| STM CPPB
01309 M01S01218.1pp +++| SBM CPPC
01310 M01S01219.1pp +++| PJN CPP2 IF PP CALL DISABLED
01311 M01S01220.1pp +++| LDD T1
01312 M01S01221.1pp +++| ADC -C1MV-TCPP
01313 M01S01222.1pp +++| ZJN CPP1 IF *1MV* REQUESTED
01314 M01S01223.1pp +++| CPPA LDN 1
01315 M01S01224.1pp +++|* LDN 0 (D/S SEQUENCING)
01316 M01S01225.1pp +++| ZJN CPPX IF D/S SEQUENCING
01317 M01S01226.1pp +++| CPP1 LDM 1,T1 SET SYSTEM CP NUMBER
01318 M01S01227.1pp +++| SCN 77
01319 M01S01228.1pp +++| LMD NC
01320 M01S01229.1pp +++| STM 1,T1
01321 M01S01230.1pp +++| LDD MA
01322 M01S01231.1pp +++| CWM TCPP,ON
01323 M01S01232.1pp +++| CPPB EQU *-1
01324 M01S01233.1pp +++| EXECUTE 1CK,=
01325 M01S01234.1pp +++| EXECUTE 1DS,=
01326 M01S01235.1pp +++| EXECUTE 1MV,=
01327 M01S01236.1pp +++| LDN 1 SET PRIORITY PP FLAG
01328 M01S01237.1pp +++| STD CM+1
01329 M01S01238.1pp +++| MONITOR RPPM
01330 M01S01239.1pp +++| LDD CM+1
| Line S01240 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 283l840 |
Seq # *Modification Id* Act
----------------------------+
01331 M02S01240.283l840 ---| UJN CPPX RETURN
01332 M01S00001.283l840 +++| UJP CPPX RETURN
01333 M01S01241.1pp +++|
01334 M01S01242.1pp +++|
01335 M01S01243.1pp +++| CPPC CON TCPP+C1MV+1
01336 M01S01244.1pp +++| TCPP BSS 0 TABLE OF PP CALLS
01337 M01S01245.1pp +++| LOC 0
01338 M01S01246.1pp +++| C1CK VFD 18/0L1CK,6/0,12/2,24/0
01339 M01S01247.1pp +++| CCMS VFD 18/0L1DS,6/0,12//1DS/ISSF,18/0LCMS,6/0
01340 M01S01248.1pp +++| C1MV VFD 18/0L1MV,6/0,12/0,6/0,18/0
01341 M01S01249.1pp +++| LOC *O
01342 M01S01250.1pp +++| CPS SPACE 4,10
01343 M01S01251.1pp +++|** CPS - CHECK CONTROL POINT SLICE.
01344 M01S01252.1pp +++|*
01345 M01S01253.1pp +++|* CHECK FOR EXPIRED CONTROL POINT SLICE.
01346 M01S01254.1pp +++|*
01347 M01S01255.1pp +++|* ENTRY (AA - AA+4) = WORD *TSCW* OF CONTROL POINT AREA.
01348 M01S01256.1pp +++|* (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*.
01349 M01S01257.1pp +++|*
01350 M01S01258.1pp +++|* EXIT (A) .GE. 0 IF CONTROL POINT SLICE EXPIRED.
01351 M01S01259.1pp +++|
01352 M01S01260.1pp +++|
01353 M01S01261.1pp +++| CPS SUBR ENTRY/EXIT
01354 M01S01262.1pp +++| LDD TM
01355 M01S01263.1pp +++| SBD AA+3
01356 M01S01264.1pp +++| NJN CPSX IF NO NEED TO CHECK LOWER BITS
01357 M01S01265.1pp +++| LDD TM+1
01358 M01S01266.1pp +++| SBD AA+4
01359 M01S01267.1pp +++| UJN CPSX RETURN
01360 M01S01268.1pp +++| CSC SPACE 4,10
01361 M01S01269.1pp +++|** CSC - CHECK SWEEP CYCLING.
01362 M01S01270.1pp +++|*
01363 M01S01271.1pp +++|* ENTRY (EJ - EJ+4) = *EQDE* WORD OF EST ENTRY.
01364 M01S01272.1pp +++|* (TM - TM+1) = SECONDS PORTION OF *RTCL*.
01365 M01S01273.1pp +++|*
01366 M01S01274.1pp +++|* EXIT (A) .GE. 0 IF SWEEP CYCLING CALL IS REQUIRED.
01367 M01S01275.1pp +++|*
01368 M01S01276.1pp +++|* USES CM - CM+5.
01369 M01S01277.1pp +++|
01370 M01S01278.1pp +++|
01371 M01S01279.1pp +++| CSC3 LCN 0 SET REPLY STATUS
01372 M01S01280.1pp +++|
01373 M01S01281.1pp +++| CSC SUBR ENTRY/EXIT
01374 M01S01282.1pp +++| LDN 1
01375 M01S01283.1pp +++| CSCA EQU *-1
01376 M01S01284.1pp +++| ZJN CSC3 IF SWEEP CYCLING CALL LIMIT REACHED
01377 M01S01285.1pp +++| LDD EJ
01378 M01S01286.1pp +++| LPN 3
01379 M01S01287.1pp +++| LMN 3
01380 M01S01288.1pp +++| ZJN CSC3 IF DEVICE IS DOWN
01381 M01S01289.1pp +++| LDD EJ+4
01382 M01S01290.1pp +++| SHN 3
01383 M01S01291.1pp +++| ADN SCLL READ SWEEP CYCLING CONTROL WORD
01384 M01S01292.1pp +++| CRD CM
01385 M01S01293.1pp +++| LDC CSCB-1
01386 M01S01294.1pp +++| STD T1
01387 M01S01295.1pp +++| CSC1 AOD T1
01388 M01S01296.1pp +++| LDI T1
01389 M01S01297.1pp +++| ZJN CSC3 IF SWEEP CYCLING NOT SUPPORTED ON DEVICE
01390 M01S01298.1pp +++| LMD EJ+3
01391 M01S01299.1pp +++| NJN CSC1 IF NOT THIS DEVICE TYPE
01392 M01S01300.1pp +++| LDD TM+1
01393 M01S01301.1pp +++| SBD CM+1
01394 M01S01302.1pp +++| PJN CSC2 IF NO ROLLOVER
01395 M01S01303.1pp +++| ADC 10000
01396 M01S01304.1pp +++| CSC2 SBK SCDT*60D
01397 M01S01305.1pp +++| UJP CSCX RETURN
01398 M01S01306.1pp +++|
01399 M01S01307.1pp +++|
01400 M01S01308.1pp +++| CSCB BSS 0 TABLE OF DEVICES SUPPORTING SWEEP CYCLING
01401 M01S01309.1pp +++|
01402 M01S01310.1pp +++| CON 2RDB DEVICE TYPE *DB*
01403 M01S01311.1pp +++| CON 2RDD DEVICE TYPE *DD*
01404 M01S01312.1pp +++| CON 2RDG DEVICE TYPE *DG*
01405 M01S01313.1pp +++| CON 2RDM DEVICE TYPE *DM*
01406 M01S01314.1pp +++| CON 2RDQ DEVICE TYPE *DQ*
01407 M01S01315.1pp +++|
01408 M01S01316.1pp +++| CON 0 END OF TABLE
01409 M01S01317.1pp +++| CTF SPACE 4,10
01410 M01S01318.1pp +++|** CTF - CHECK TRACK FLAWED.
01411 M01S01319.1pp +++|*
01412 M01S01320.1pp +++|* THIS ROUTINE CHECKS FOR A TRACK BEING FLAWED.
01413 M01S01321.1pp +++|*
01414 M01S01322.1pp +++|* ENTRY (T6) = TRACK TO CHECK FOR BEING FLAWED.
01415 M01S01323.1pp +++|* (EJ - EJ+4) = EST ENTRY FOR EQUIPMENT.
01416 M01S01324.1pp +++|*
01417 M01S01325.1pp +++|* EXIT (A) = 0, IF TRACK IS FLAWED.
01418 M01S01326.1pp +++|*
01419 M01S01327.1pp +++|* USES T0, T1, CM - CM+4.
01420 M01S01328.1pp +++|
01421 M01S01329.1pp +++|
01422 M01S01330.1pp +++| CTF SUBR ENTRY/EXIT
01423 M01S01331.1pp +++| LDD T6
01424 M01S01332.1pp +++| STM TCPP+C1MV+4
01425 M01S01333.1pp +++| ZJN CTF1 IF NO TRACK PRESENT
01426 M01S01334.1pp +++| SHN 21-1
01427 M01S01335.1pp +++| STD T0 TRT RELATIVE WORD + 1000
01428 M01S01336.1pp +++| SHN 0-20
01429 M01S01337.1pp +++| STD T1 TRACK BYTE INDEX
01430 M01S01338.1pp +++| LDD EJ+4 READ TRT WORD
01431 M01S01339.1pp +++| SHN 3
01432 M01S01340.1pp +++| ADK TRLL
01433 M01S01341.1pp +++| CRD CM
01434 M01S01342.1pp +++| LDD CM+3
01435 M01S01343.1pp +++| SHN 14
01436 M01S01344.1pp +++| ADD CM+4
01437 M01S01345.1pp +++| ADD T0
01438 M01S01346.1pp +++| SBD TH
01439 M01S01347.1pp +++| CRD CM
01440 M01S01348.1pp +++| LDM CM,T1 GET TRACK BYTE
01441 M01S01349.1pp +++| CTF1 LMC 3777
01442 M01S01350.1pp +++| UJN CTFX RETURN
01443 M01S01351.1pp +++| CWR SPACE 4,20
01444 M01S01352.1pp +++|** CWR - CHECK WAIT RESPONSE INDICATORS.
01445 M01S01353.1pp +++|*
01446 M01S01354.1pp +++|* FOR THE SPECIFIED CP/PCP, IF ANY SCP WAIT RESPONSE
01447 M01S01355.1pp +++|* INDICATOR IN WORD *SSCW* IS NON-ZERO AND THE CORRESPONDING
01448 M01S01356.1pp +++|* ROLLOUT ALLOWABLE BIT IS CLEAR, ADD THE INSTALLATION DEFINED
01449 M01S01357.1pp +++|* MULTIPLE OF CM TIME SLICES TO THE JOB-S SLICE TIME IN CELLS
01450 M01S01358.1pp +++|* *AA - AA+4* TO REDUCE THE CHANCE OF ROLLING THIS JOB.
01451 M01S01359.1pp +++|*
01452 M01S01360.1pp +++|* ENTRY (SC) = SERVICE CLASS.
01453 M01S01361.1pp +++|* (EO) = EJT ORDINAL.
| Line S01362 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01454 M02S01362.273l780 ---|* (T7) = CONTROL POINT AREA ADDRESS.
01455 M01S00033.273l780 +++|* (T7) = CP OR PCP NUMBER.
01456 M01S01363.1pp +++|*
01457 M01S01364.1pp +++|* EXIT (AA - AA+4) = *TSCW*.
01458 M01S01365.1pp +++|*
01459 M01S01366.1pp +++|* USES T4, CM - CM+4, AA - AA+4.
01460 M01S01367.1pp +++|*
| Line S01368 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01461 M02S01368.271l750 ---|* CALLS RJC.
| Line S01369 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01462 M02S01369.271l750 ---|*
| Line S01370 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01463 M02S01370.271l750 ---|* MACROS LCPA.
| Line S00001 Modification History |
M01 (Added by) | 271l750 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01464 M02S00001.273l780 ---|* MACROS LCPA, SFA.
01465 M01S00034.273l780 +++|* CALLS CCA.
01466 M01S00035.273l780 +++|*
01467 M01S00036.273l780 +++|* MACROS SFA.
01468 M01S01371.1pp +++|
01469 M01S01372.1pp +++|
01470 M01S01373.1pp +++| CWR SUBR ENTRY/EXIT
| Line S01374 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01471 M02S01374.273l780 ---| LCPA SSCW,T7
01472 M01S00037.273l780 +++| LDD T7 SET CP/PCP ADDRESS
01473 M01S00038.273l780 +++| RJM CCA
01474 M01S00039.273l780 +++| ADK SSCW
01475 M01S01375.1pp +++| CRD CM
01476 M01S01376.1pp +++| ADN TSCW-SSCW
01477 M01S01377.1pp +++| CRD AA
01478 M01S01378.1pp +++| LDN 5 INITIALIZE BYTE INDEX
01479 M01S01379.1pp +++| STD T4
01480 M01S01380.1pp +++| CWR1 SOD T4
01481 M01S01381.1pp +++| MJN CWRX IF NO MORE INDICATORS TO CHECK
01482 M01S01382.1pp +++| LDM CM,T4
01483 M01S01383.1pp +++| LPN 27 MASK ROLLOUT ALLOWABLE/WAIT RESPONSE
01484 M01S01384.1pp +++| ZJN CWR1 IF NO INDICATORS SET
01485 M01S01385.1pp +++| LPN 20
01486 M01S01386.1pp +++| NJN CWR1 IF ROLLOUT ALLOWABLE SET
01487 M01S01387.1pp +++| LDN CMSL INSTALLATION DEFINED CM SLICE MULTIPLIER
01488 M01S01388.1pp +++| STD T4
| Line S01389 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01489 M02S01389.271l750 ---| LDD SC GET CM TIME SLICE FROM JCB
| Line S01390 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
01490 M02S01390.271l750 ---| RJM RJC CALCULATE JCB ADDRESS
01491 M01S00002.271l750 +++| SFA JCB,SC GET CM TIME SLICE FOR JOB
01492 M01S01391.1pp +++| ADN SVJT
01493 M01S01392.1pp +++| CRD CM
01494 M01S01393.1pp +++| CWR2 LDD CM+2 INCREASE CM TIME SLICE
01495 M01S01394.1pp +++| RAD AA+1
01496 M01S01395.1pp +++| SHN -14
01497 M01S01396.1pp +++| RAD AA
01498 M01S01397.1pp +++| SOD T4
01499 M01S01398.1pp +++| NJN CWR2 IF NOT FINISHED INCREASING TIME SLICE
01500 M01S01399.1pp +++| LJM CWRX RETURN
01501 M01S01400.1pp +++| EJA SPACE 4,10
01502 M01S01401.1pp +++|** EJA - CALCULATE EJT ENTRY ADDRESS.
01503 M01S01402.1pp +++|*
01504 M01S01403.1pp +++|* ENTRY (EO) = EJT ORDINAL.
01505 M01S01404.1pp +++|*
01506 M01S01405.1pp +++|* EXIT (A) = EJT ENTRY ADDRESS.
01507 M01S01406.1pp +++|*
01508 M01S01407.1pp +++|* MACROS CFI.
01509 M01S01408.1pp +++|
01510 M01S01409.1pp +++|
01511 M01S01410.1pp +++| EJA SUBR ENTRY/EXIT
01512 M01S01411.1pp +++| CFI EJT,EO CALCULATE ENTRY OFFSET
01513 M01S01412.1pp +++| ADC **
01514 M01S01413.1pp +++| EJAA EQU *-1 (EJT FWA)
01515 M01S01414.1pp +++| UJN EJAX RETURN
01516 M01S01415.1pp +++| IRR SPACE 4,15
01517 M01S01416.1pp +++|** IRR - ISSUE ROLLOUT REQUEST.
01518 M01S01417.1pp +++|*
01519 M01S01418.1pp +++|* ENTRY (A) = 6/ OP,12/ CP.
01520 M01S01419.1pp +++|* OP *ROCM* OPTIONS.
01521 M01S01420.1pp +++|* CP CP/PCP TO ROLL.
01522 M01S01421.1pp +++|*
01523 M01S01422.1pp +++|* EXIT (A) = 0 IF ROLLOUT REQUEST WAS ACCEPTED.
01524 M01S01423.1pp +++|* JOBS PREEMPTED STATISTIC UPDATED.
01525 M01S01424.1pp +++|*
01526 M01S01425.1pp +++|* USES CM - CM+4.
01527 M01S01426.1pp +++|*
01528 M01S01427.1pp +++|* MACROS MONITOR.
01529 M01S01428.1pp +++|
01530 M01S01429.1pp +++|
01531 M01S01430.1pp +++| IRR SUBR ENTRY/EXIT
01532 M01S01431.1pp +++| STD CM+2 STORE CP/PCP NUMBER
01533 M01S01432.1pp +++| SHN -14
01534 M01S01433.1pp +++| LMC 4000 SET ALTERNATE CP/PCP OPTION
01535 M01S01434.1pp +++| STD CM+1
01536 M01S01435.1pp +++| MONITOR ROCM REQUEST ROLLOUT
01537 M01S01436.1pp +++| LDD CM+1
01538 M01S01437.1pp +++| UJN IRRX RETURN
01539 M01S01438.1pp +++| IUT SPACE 4,20
01540 M01S01439.1pp +++|** IUT - ISSUE *UTEM* MONITOR FUNCTION.
01541 M01S01440.1pp +++|*
01542 M01S01441.1pp +++|* ENTRY (A) = 1/ 0,1/ I,1/ 0,3/ C,12/ P
01543 M01S01442.1pp +++|* I = 0 IF INTERLOCK SHOULD BE SET.
01544 M01S01443.1pp +++|* = 1 IF INTERLOCK SHOULD BE CLEARED.
01545 M01S01444.1pp +++|* C = NUMBER OF *UTEM* PARAMETER WORDS.
01546 M01S01445.1pp +++|* = 0 IF INTERLOCK REQUEST.
01547 M01S01446.1pp +++|* P = PARAMETER LIST ADDRESS.
01548 M01S01447.1pp +++|*
01549 M01S01448.1pp +++|* EXIT (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL.
01550 M01S01449.1pp +++|* .NE. 0 IF *UTEM* VERIFICATION FAILED.
01551 M01S01450.1pp +++|*
01552 M01S01451.1pp +++|* USES CM - CM+4.
01553 M01S01452.1pp +++|*
01554 M01S01453.1pp +++|* CALLS EJA.
01555 M01S01454.1pp +++|*
01556 M01S01455.1pp +++|* MACROS MONITOR.
01557 M01S01456.1pp +++|
01558 M01S01457.1pp +++|
01559 M01S01458.1pp +++| IUT SUBR ENTRY/EXIT
01560 M01S01459.1pp +++| STM IUTA PARAMETER LIST ADDRESS
01561 M01S01460.1pp +++| LPC -7777
01562 M01S01461.1pp +++| SHN 1
01563 M01S01462.1pp +++| STD CM TABLE INDICATOR
01564 M01S01463.1pp +++| SCN 1 SAVE INTERLOCK FLAG
01565 M01S01464.1pp +++| SHN 1
01566 M01S01465.1pp +++| STD CM+2
01567 M01S01466.1pp +++| SHN -14-2
01568 M01S01467.1pp +++| STD CM+1 NUMBER OF PARAMETER WORDS
01569 M01S01468.1pp +++| RJM EJA CALCULATE TABLE ADDRESS
01570 M01S01469.1pp +++| STD CM+4
01571 M01S01470.1pp +++| SHN -14
01572 M01S01471.1pp +++| STD CM+3
01573 M01S01472.1pp +++| LDD CM+1
01574 M01S01473.1pp +++| ZJN IUT1 IF NO PARAMETER WORDS
01575 M01S01474.1pp +++| LDD MA WRITE PARAMETERS TO MESSAGE BUFFER
01576 M01S01475.1pp +++| CWM **,CM+1
01577 M01S01476.1pp +++| IUTA EQU *-1
01578 M01S01477.1pp +++| IUT1 LDD CM+2 SET/CLEAR INTERLOCK FLAG
01579 M01S01478.1pp +++| SHN 5
01580 M01S01479.1pp +++| RAD CM+1
01581 M01S01480.1pp +++| LDN 0
01582 M01S01481.1pp +++| STD CM+2
01583 M01S01482.1pp +++| MONITOR UTEM
01584 M01S01483.1pp +++| LDD CM+1
01585 M01S01484.1pp +++| LJM IUTX RETURN
01586 M01S01485.1pp +++| OAE SPACE 4,15
01587 M01S01486.1pp +++|** OAE - PROCESS OPERATOR ACTION EVENTS.
01588 M01S01487.1pp +++|*
01589 M01S01488.1pp +++|* FOR EACH POSTED OPERATOR ACTION EVENT FOUND IN THE *TEVT*
01590 M01S01489.1pp +++|* TABLE, SET THE CORRESPONDING BIT IN WORD *OPRL*.
01591 M01S01490.1pp +++|*
01592 M01S01491.1pp +++|* ENTRY (A) = NUMBER OF EVENTS IN *TEVT* TABLE.
01593 M01S01492.1pp +++|*
01594 M01S01493.1pp +++|* USES T1, CM - CM+4.
01595 M01S01494.1pp +++|*
01596 M01S01495.1pp +++|* MACROS MONITOR.
01597 M01S01496.1pp +++|
01598 M01S01497.1pp +++|
01599 M01S01498.1pp +++| OAE SUBR ENTRY/EXIT
01600 M01S01499.1pp +++| SHN 1 INITIALIZE INDEX
01601 M01S01500.1pp +++| STD T1
01602 M01S01501.1pp +++| OAE1 LCN 2 DECREMENT *TEVT* INDEX
01603 M01S01502.1pp +++| RAD T1
01604 M01S01503.1pp +++| MJN OAEX IF END OF *TEVT* SCAN
01605 M01S01504.1pp +++| LDM TEVT,T1
01606 M01S01505.1pp +++| NJN OAE1 IF NOT SYSTEM EVENT
01607 M01S01506.1pp +++| STD CM+2
01608 M01S01507.1pp +++| LDM TEVT+1,T1
01609 M01S01508.1pp +++| ZJN OAE1 IF NULL EVENT
01610 M01S01509.1pp +++| SBK MXOE
01611 M01S01510.1pp +++| PJN OAE1 IF NOT OPERATOR ACTION EVENT
01612 M01S01511.1pp +++| ADK MXOE-1 STORE BIT NUMBER IN *UTEM* BLOCK
01613 M01S01512.1pp +++| SHN 6
01614 M01S01513.1pp +++| STM OAEA+1
01615 M01S01514.1pp +++| LDN 1
01616 M01S01515.1pp +++| STD CM+1
01617 M01S01516.1pp +++| LDK OPRL
01618 M01S01517.1pp +++| STD CM+4
01619 M01S01518.1pp +++| SHN -14
01620 M01S01519.1pp +++| STD CM+3
01621 M01S01520.1pp +++| LDD MA WRITE PARAMETER WORDS TO MESSAGE BUFFER
01622 M01S01521.1pp +++| CWM OAEA,CM+1
01623 M01S01522.1pp +++| MONITOR UTEM SET OPERATOR ACTION FLAG
01624 M01S01523.1pp +++| UJN OAE1 CONTINUE *TEVT* SCAN
01625 M01S01524.1pp +++|
01626 M01S01525.1pp +++|
01627 M01S01526.1pp +++|* *UTEM* PARAMETER BLOCK FOR *OPRL* UPDATE.
01628 M01S01527.1pp +++|
01629 M01S01528.1pp +++| OAEA VFD 1/0,5/0,6/1
01630 M01S01529.1pp +++| VFD 6/0,6/0
01631 M01S01530.1pp +++| CON 0,0,1
01632 M01S01531.1pp +++| PIS SPACE 4,10
01633 M01S01532.1pp +++|** PIS - PROCESS INITIAL SLICE.
01634 M01S01533.1pp +++|*
01635 M01S01534.1pp +++|* ENTRY (SC) = SERVICE CLASS.
| Line S01535 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01636 M02S01535.273l780 ---|* (T7) = CPA ADDRESS.
01637 M01S00040.273l780 +++|* (T7) = CP OR PCP NUMBER.
01638 M01S01536.1pp +++|* (TM - TM+1) = SECONDS PORTION OF *RTCL*.
01639 M01S01537.1pp +++|*
01640 M01S01538.1pp +++|* USES AA - AA+4, CM - CM+4.
01641 M01S01539.1pp +++|*
| Line S01540 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01642 M02S01540.273l780 ---|* CALLS RJC.
| Line S01541 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01643 M02S01541.273l780 ---|*
| Line S01542 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01644 M02S01542.273l780 ---|* MACROS LCPA.
01645 M01S00041.273l780 +++|* CALLS CCA, RJC.
01646 M01S01543.1pp +++|
01647 M01S01544.1pp +++|
01648 M01S01545.1pp +++| PIS SUBR ENTRY/EXIT
| Line S01546 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01649 M02S01546.273l780 ---| LCPA TSCW,T7
01650 M01S00042.273l780 +++| LDD T7 SET CP/PCP ADDRESS
01651 M01S00043.273l780 +++| RJM CCA
01652 M01S00044.273l780 +++| ADK TSCW
01653 M01S01547.1pp +++| CRD AA
01654 M01S01548.1pp +++| LDD SC
01655 M01S01549.1pp +++| RJM RJC CALCULATE JCB ADDRESS
01656 M01S01550.1pp +++| ZJN PIS2 IF NO JCB FOR SERVICE CLASS
01657 M01S01551.1pp +++| ADK SVJT READ *SVJT* WORD OF JCB
01658 M01S01552.1pp +++| CRD CM
01659 M01S01553.1pp +++| LDD CM+2 CALCULATE CM SLICE TIME
01660 M01S01554.1pp +++| STD AA+1
01661 M01S01555.1pp +++| ZJN PIS1 IF CM SLICE = 0
01662 M01S01556.1pp +++| LDD TM+1
01663 M01S01557.1pp +++| RAD AA+1
01664 M01S01558.1pp +++| SHN -14
01665 M01S01559.1pp +++| ADD TM
01666 M01S01560.1pp +++| PIS1 STD AA
01667 M01S01561.1pp +++| PIS2 LDD HN SET POST-INITIAL SLICE FLAG
01668 M01S01562.1pp +++| STD AA+2
| Line S01563 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
01669 M02S01563.273l780 ---| LCPA TSCW,T7
01670 M01S00045.273l780 +++| LDD T7 SET CP/PCP ADDRESS
01671 M01S00046.273l780 +++| RJM CCA
01672 M01S00047.273l780 +++| ADK TSCW
01673 M01S01564.1pp +++| CWD AA
01674 M01S01565.1pp +++| UJP PISX RETURN
01675 M01S01566.1pp +++| PSL SPACE 4,10
01676 M01S01567.1pp +++|** PSL - PROCESS SERVICE LIMITS.
01677 M01S01568.1pp +++|*
01678 M01S01569.1pp +++|* ENTRY (EJ - EJ+4) = *JSNE* EJT WORD.
01679 M01S01570.1pp +++|* (T0 - T0+4) = *SCLE* EJT WORD.
01680 M01S01571.1pp +++|* (SC) = SERVICE CLASS.
01681 M01S01572.1pp +++|*
01682 M01S01573.1pp +++|* EXIT JOB STATUS CHANGED IF SERVICE LIMITS NOT EXCEEDED.
01683 M01S01574.1pp +++|*
01684 M01S01575.1pp +++|* CALLS SRS.
01685 M01S01576.1pp +++|
01686 M01S01577.1pp +++|
01687 M01S01578.1pp +++| PSL SUBR ENTRY/EXIT
01688 M01S01579.1pp +++| LDD EJ+4
01689 M01S01580.1pp +++| LPN 76
01690 M01S01581.1pp +++| STM SRSA+4 SAVE CURRENT JOB STATUS
01691 M01S01582.1pp +++| LMN SWJS*2
01692 M01S01583.1pp +++| NJN PSLX IF NOT SERVICE WAIT STATUS
01693 M01S01584.1pp +++| LDM TJAM,SC
01694 M01S01585.1pp +++| SBD T0+4
01695 M01S01586.1pp +++| MJN PSLX IF CM EXCEEDS SERVICE LIMIT
01696 M01S01587.1pp +++| LDM TJAM+1*MXJC,SC
01697 M01S01588.1pp +++| SBD T0+3
01698 M01S01589.1pp +++| MJN PSLX IF EM EXCEEDS SERVICE LIMIT
01699 M01S01590.1pp +++| RJM SRS SET ROLLOUT STATUS
01700 M01S01591.1pp +++| UJN PSLX RETURN
01701 M01S01592.1pp +++| PTE SPACE 4,20
01702 M01S01593.1pp +++|** PTE - PROCESS TIMED/EVENT ROLLOUT JOBS.
01703 M01S01594.1pp +++|*
01704 M01S01595.1pp +++|* CHECK FOR JOBS HAVING TIMED/EVENT ROLLOUT STATUS.
01705 M01S01596.1pp +++|* DECREMENT ROLLOUT TIMES OF SUCH JOBS AND SEE IF
01706 M01S01597.1pp +++|* THEIR EVENTS ARE POSTED YET.
01707 M01S01598.1pp +++|*
01708 M01S01599.1pp +++|* ENTRY (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
01709 M01S01600.1pp +++|* (BB - BB+4) = *PRFE* WORD OF EJT ENTRY.
01710 M01S01601.1pp +++|* (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
01711 M01S01602.1pp +++|* (T7) = NUMBER OF EVENTS IN EVENT TABLE.
01712 M01S01603.1pp +++|* (PTEA) = BYTE 0 OF *SCLE* WORD OF EJT ENTRY.
01713 M01S01604.1pp +++|* CURRENT EVENTS SET IN *TEVT*.
01714 M01S01605.1pp +++|*
01715 M01S01606.1pp +++|* USES AA+3, AA+4, T1, T2, CM - CM+4.
01716 M01S01607.1pp +++|*
01717 M01S01608.1pp +++|* CALLS SRS, IUT.
01718 M01S01609.1pp +++|*
01719 M01S01610.1pp +++|* MACROS MONITOR.
01720 M01S01611.1pp +++|
01721 M01S01612.1pp +++|
01722 M01S01613.1pp +++| PTE SUBR ENTRY/EXIT
01723 M01S01614.1pp +++| LDD EJ+4
01724 M01S01615.1pp +++| LPN 77
01725 M01S01616.1pp +++| STM SRSA+4 SAVE CURRENT JOB STATUS
01726 M01S01617.1pp +++| SHN 21-0 CHECK FOR EJT INTERLOCK
01727 M01S01618.1pp +++| MJN PTEX IF EJT INTERLOCKED
01728 M01S01619.1pp +++| STD T2 SAVE JOB STATUS
01729 M01S00001.1pp1 +++| STM PTEH+4
01730 M01S01620.1pp +++| LMK PWJS
01731 M01S01621.1pp +++| NJN PTE1 IF NOT PRE-INITIAL WAIT JOB STATUS
01732 M01S01622.1pp +++| LDD BB+1
01733 M01S01623.1pp +++| LMK ORET
01734 M01S01624.1pp +++| ZJN PTE2 IF OPERATOR OVERRIDE, CHANGE JOB STATUS
01735 M01S01625.1pp +++| PTE1 LDM TJST,T2
01736 M01S01626.1pp +++| SHN 21-10
01737 M01S01627.1pp +++| PJN PTEX IF NOT TIMED/EVENT ROLLOUT STATUS
01738 M01S01628.1pp +++| LDC * GET SERVICE CLASS
01739 M01S01629.1pp +++| PTEA EQU *-1 (BYTE 0 OF *SCLE* WORD OF EJT ENTRY)
01740 M01S01630.1pp +++| LPN 60 MASK FORCED ROLLOUT/ROLLIN BITS
01741 M01S01631.1pp +++| LMN 20
01742 M01S01632.1pp +++| STM PTED SET/CLEAR *EATM* REISSUE FLAG
01743 M01S01633.1pp +++| NJN PTE3 IF NOT FORCED ROLLIN
01744 M01S01634.1pp +++| PTE2 LJM PTE11 GO CHANGE JOB STATUS AND SET PRIORITY
01745 M01S01635.1pp +++|
01746 M01S01636.1pp +++| PTE3 LDD AA+3
01747 M01S01637.1pp +++| LPC 777
01748 M01S01638.1pp +++| LMN EXTM/10000
01749 M01S01639.1pp +++| STM PTEC SET/CLEAR EXTENDED TIMED ROLLOUT FLAG
01750 M01S01640.1pp +++| NJN PTE5 IF NOT EXTENDED TIMED ROLLOUT
01751 M01S01641.1pp +++| SOD AA+4 DECREMENT ROLLOUT TIME (2ND BYTE)
01752 M01S01642.1pp +++| STM PTEF+4
01753 M01S01643.1pp +++| ZJN PTE4 IF 2ND BYTE OF ROLLOUT TIME EXHAUSTED
01754 M01S01644.1pp +++| LDC PTEF+10000*1
01755 M01S01645.1pp +++| UJN PTE8 GO ISSUE *UTEM* TO UPDATE EJT ENTRY
01756 M01S01646.1pp +++|
01757 M01S01647.1pp +++| PTE4 LCN 0 RESET 2ND BYTE OF ROLLOUT TIME
01758 M01S01648.1pp +++| STM PTEF+4
01759 M01S01649.1pp +++| PTE5 LDD AA+2
01760 M01S01650.1pp +++| LPN 77
01761 M01S01651.1pp +++| SHN 14
01762 M01S01652.1pp +++| LMD AA+3
01763 M01S01653.1pp +++| SHN 10-21
01764 M01S01654.1pp +++| STM PTED SET/CLEAR EVENT FLAG
01765 M01S01655.1pp +++| ZJN PTE2 IF ROLLOUT TIME EXPIRED
01766 M01S01656.1pp +++| SBN 1 DECREMENT COUNTER
01767 M01S01657.1pp +++| STM PTEE+4
01768 M01S01658.1pp +++| LDC **
01769 M01S01659.1pp +++| PTEC EQU *-1 (EXTENDED TIMED/ROLLOUT FLAG)
01770 M01S01660.1pp +++| NJN PTE6 IF NOT EXTENDED TIMED ROLLOUT
01771 M01S01661.1pp +++| LDC PTEE+10000*2
01772 M01S01662.1pp +++| UJN PTE8 GO ISSUE *UTEM* TO UPDATE EJT ENTRY
01773 M01S01663.1pp +++|
01774 M01S01664.1pp +++| PTE6 LDD AA+3 CHECK FOR EVENT
01775 M01S01665.1pp +++| LPC 777
01776 M01S01666.1pp +++| STD AA+3
01777 M01S01667.1pp +++| ADD AA+4
01778 M01S01668.1pp +++| NJN PTE9 IF EVENT EXISTS
01779 M01S01669.1pp +++|
01780 M01S01670.1pp +++|* EVENT EXISTS BUT HAS NOT BEEN POSTED YET AND ROLLOUT TIME HAS
01781 M01S01671.1pp +++|* NOT EXPIRED, OR NO EVENT EXISTS AND ROLLOUT TIME HAS NOT
01782 M01S01672.1pp +++|* EXPIRED. DECREMENT ROLLOUT TIME VIA *UTEM*.
01783 M01S01673.1pp +++|
01784 M01S01674.1pp +++| PTE7 LDC PTEE+10000*1
| Line S01675 Modification History |
M01 (Added by) | 1pp |
M02 (Updated by) | 1pp1 |
Seq # *Modification Id* Act
----------------------------+
01785 M02S01675.1pp1 ---| PTE8 RJM IUT ISSUE *UTEM* MONITOR FUNCTION
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 M01S01676.1pp +++| LJM PTEX CONTINUE EJT SCAN
01803 M01S01677.1pp +++|
01804 M01S01678.1pp +++|* SCAN *TEVT* TABLE TO SEE IF THIS JOB-S EVENT HAS BEEN POSTED.
01805 M01S01679.1pp +++|
01806 M01S01680.1pp +++| PTE9 LDD T7 INITIALIZE INDEX
01807 M01S01681.1pp +++| SHN 1
01808 M01S01682.1pp +++| STD T2
01809 M01S01683.1pp +++| PTE10 LCN 2 DECREMENT INDEX
01810 M01S01684.1pp +++| RAD T2
01811 M01S01685.1pp +++| MJN PTE7 IF *TEVT* SCAN COMPLETE, EVENT NOT FOUND
01812 M01S01686.1pp +++| LDM TEVT,T2
01813 M01S01687.1pp +++| LMD AA+3
01814 M01S01688.1pp +++| NJN PTE10 IF NO MATCH
01815 M01S01689.1pp +++| LDM TEVT+1,T2
01816 M01S01690.1pp +++| LMD AA+4
01817 M01S01691.1pp +++| NJN PTE10 IF NO MATCH
01818 M01S01692.1pp +++|
01819 M01S01693.1pp +++|* EVENT WAS FOUND IN *TEVT* OR ROLLOUT TIME HAS EXPIRED.
01820 M01S01694.1pp +++|* CHANGE JOB STATUS TO *ROJS* IF JOB STATUS WAS *TOJS* OR
01821 M01S01695.1pp +++|* *ERJS* OR TO *PRJS* IF JOB STATUS WAS *PWJS*. SET PRIORITY
01822 M01S01696.1pp +++|* TO UPPER BOUND OF SERVICE CLASS.
01823 M01S01697.1pp +++|
01824 M01S01698.1pp +++| PTE11 RJM SRS SET ROLLOUT STATUS AND PRIORITY
01825 M01S01699.1pp +++| ZJN PTE12 IF FUNCTION ACCEPTED
01826 M01S01700.1pp +++| LDC **
01827 M01S01701.1pp +++| PTED EQU *-1 (*EATM* REISSUE FLAG)
01828 M01S01702.1pp +++| ZJN PTE12 IF ROLLOUT TIME EXPIRED OR FORCED ROLLIN
01829 M01S01703.1pp +++| LDN 0 SET *EATM* SUBFUNCTION
01830 M01S01704.1pp +++| STD CM+1
01831 M01S01705.1pp +++| LDD AA+3 STORE EVENT IN *EATM* CALL
01832 M01S01706.1pp +++| STD CM+3
01833 M01S01707.1pp +++| LDD AA+4
01834 M01S01708.1pp +++| STD CM+4
01835 M01S01709.1pp +++| MONITOR EATM REISSUE EVENT
01836 M01S01710.1pp +++| PTE12 LJM PTEX CONTINUE EJT SCAN
01837 M01S01711.1pp +++|
01838 M01S01712.1pp +++|
01839 M01S01713.1pp +++|* *UTEM* PARAMETERS FOR DECREMENTING ROLLOUT TIME.
01840 M01S01714.1pp +++|
01841 M01S01715.1pp +++| PTEE VFD 1/0,5/SCHE,6/9D
01842 M01S01716.1pp +++| VFD 6/21D,6/0
01843 M01S01717.1pp +++| CON 0
01844 M01S01718.1pp +++| CON 0
01845 M01S01719.1pp +++| CON 0
01846 M01S01720.1pp +++|
01847 M01S01721.1pp +++| PTEF VFD 1/0,5/SCHE,6/12D
01848 M01S01722.1pp +++| VFD 6/0,6/0
01849 M01S01723.1pp +++| CON 0
01850 M01S01724.1pp +++| CON 0
01851 M01S01725.1pp +++| CON 0
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 M01S01726.1pp +++| TJST SPACE 4,15
01863 M01S01727.1pp +++|** TJST - TABLE OF JOB STATE ATTRIBUTES.
01864 M01S01728.1pp +++|* ENTRY = 1 WORD.
01865 M01S01729.1pp +++|* INDEXED BY JOB STATUS.
01866 M01S01730.1pp +++|*
01867 M01S01731.1pp +++|*T 1/ SS, 1/ ES, 1/ FR, 1/ TE, 1/ PI
01868 M01S01732.1pp +++|* SS SET IF SCHEDULABLE JOB STATE.
01869 M01S01733.1pp +++|* ES SET IF SCHEDULABLE JOB STATE WHEN ERROR FLAG IS SET.
01870 M01S01734.1pp +++|* FR SET IF JOB IN THIS STATE MAY BE FORCED ROLLED IN.
01871 M01S01735.1pp +++|* TE SET IF TIMED/EVENT TYPE JOB STATE.
01872 M01S01736.1pp +++|* PI SET IF PRE-INITIAL TYPE JOB STATE.
01873 M01S01737.1pp +++|*
01874 M01S01738.1pp +++|* NOTE - ANY CHANGES TO THIS TABLE MUST BE COUPLED WITH
01875 M01S01739.1pp +++|* CORRESPONDING CHANGES TO THE *TJST* TABLE IN *1SJ*.
01876 M01S01740.1pp +++|
01877 M01S01741.1pp +++| TJST JOBSTAT
01878 M01S01742.1pp +++| JOBSTAT PRJS,SS,ES,FR,,PI
01879 M01S01743.1pp +++| JOBSTAT EXJS
01880 M01S01744.1pp +++| JOBSTAT ROJS,SS,ES,FR
01881 M01S01745.1pp +++| JOBSTAT SIJS,SS,ES,FR
01882 M01S01746.1pp +++| JOBSTAT SOJS,,ES,FR
01883 M01S01747.1pp +++| JOBSTAT TOJS,,ES,,TE
01884 M01S01748.1pp +++| JOBSTAT IOJS
01885 M01S01749.1pp +++| JOBSTAT DOJS
01886 M01S01750.1pp +++| JOBSTAT SUJS,,ES
01887 M01S01751.1pp +++| JOBSTAT PCJS,SS,ES,FR
01888 M01S01752.1pp +++| JOBSTAT ERJS,,,FR,TE
01889 M01S01753.1pp +++| JOBSTAT NVJS
01890 M01S01754.1pp +++| JOBSTAT PWJS,,,,TE,PI
01891 M01S01755.1pp +++| JOBSTAT SWJS,,ES
01892 M01S01756.1pp +++|
01893 M01S01757.1pp +++| INDEX MXJS TERMINATE TABLE
01894 M01S01758.1pp +++| RTE SPACE 4,10
01895 M01S01759.1pp +++|** RTE - READ TABLE OF EVENTS.
01896 M01S01760.1pp +++|*
01897 M01S01761.1pp +++|* EXIT EVENTS READ INTO *TEVT* TWO BYTES PER EVENT.
01898 M01S01762.1pp +++|* EVENT COUNT IN EVT TABLE CLEARED.
01899 M01S01763.1pp +++|* (T7) = NUMBER OF EVENTS.
01900 M01S01764.1pp +++|*
01901 M01S01765.1pp +++|* USES AA - AA+4, CM - CM+4, T1 - T7.
01902 M01S01766.1pp +++|*
01903 M01S01767.1pp +++|* MACROS MONITOR.
01904 M01S01768.1pp +++|
01905 M01S01769.1pp +++|
01906 M01S01770.1pp +++| RTE SUBR ENTRY/EXIT
01907 M01S01771.1pp +++| LDK ZERL
01908 M01S01772.1pp +++| CRD AA
01909 M01S01773.1pp +++| ADK EVTP-ZERL GET EVENT TABLE POINTER
01910 M01S01774.1pp +++| CRD T1
01911 M01S01775.1pp +++| CRD T1+2
01912 M01S01776.1pp +++| LDN /CPS/SEIS SET EVENT TABLE INTERLOCK
01913 M01S01777.1pp +++| STD CM+1
01914 M01S01778.1pp +++| MONITOR EATM
01915 M01S01779.1pp +++| LDD CM+1 SAVE NUMBER OF EVENTS
01916 M01S01780.1pp +++| STD T7
01917 M01S01781.1pp +++| ZJN RTE2 IF NO EVENTS
01918 M01S01782.1pp +++| SOD CM+1
01919 M01S01783.1pp +++| RTE1 LDD T1 GET TABLE ADDRESS
01920 M01S01784.1pp +++| SHN 14
01921 M01S01785.1pp +++| LMD T1+1
01922 M01S01786.1pp +++| CRM TEVT,ON
01923 M01S01787.1pp +++| RTEA EQU *-1 (ADDRESS INCREMENTED IN LOOP)
01924 M01S01788.1pp +++| STD T1+1
01925 M01S01789.1pp +++| SHN -14
01926 M01S01790.1pp +++| STD T1
01927 M01S01791.1pp +++| LDN 4 INCREMENT *TEVT* ADDRESS
01928 M01S01792.1pp +++| RAM RTEA
01929 M01S01793.1pp +++| LCN 2
01930 M01S01794.1pp +++| RAD CM+1
01931 M01S01795.1pp +++| PJN RTE1 IF NOT END OF EVENTS
01932 M01S01796.1pp +++| RTE2 LDD T1+2 CLEAR COUNT AND INTERLOCK
01933 M01S01797.1pp +++| SHN 14
01934 M01S01798.1pp +++| LMD T1+2+1
01935 M01S01799.1pp +++| CWD AA
01936 M01S01800.1pp +++| LJM RTEX RETURN
01937 M01S01801.1pp +++| SME SPACE 4,15
01938 M01S01802.1pp +++|** SME - SCAN MST ERROR COUNTS.
01939 M01S01803.1pp +++|*
01940 M01S01804.1pp +++|* ENTRY (T8) = EQUIPMENT EST ORDINAL TO CHECK.
01941 M01S01805.1pp +++|* (EJ - EJ+4) = EQDE WORD OF EST ENTRY.
01942 M01S01806.1pp +++|*
01943 M01S01807.1pp +++|* EXIT IF A RECOVERED OR UNRECOVERED ERROR COUNT IN THE MST
01944 M01S01808.1pp +++|* IS GREATER THAN OR EQUAL TO THE APPROPRIATE DEVICE
01945 M01S01809.1pp +++|* TYPE THRESHOLD, AN *ERRLOG ALERT* SYSTEM EVENT AND
01946 M01S01810.1pp +++|* A CORRESPONDING ERRLOG MESSAGE ARE ISSUED.
01947 M01S01811.1pp +++|*
01948 M01S01812.1pp +++|* USES BB - BB+4, CM - CM+4.
01949 M01S01813.1pp +++|*
01950 M01S01814.1pp +++|* CALLS C2D, DFM.
01951 M01S01815.1pp +++|*
01952 M01S01816.1pp +++|* MACROS MONITOR.
01953 M01S01817.1pp +++|
01954 M01S01818.1pp +++|
01955 M01S01819.1pp +++| SME SUBR ENTRY/EXIT
01956 M01S01820.1pp +++| LDD EJ+4 READ MST WORD
01957 M01S01821.1pp +++| SHN 3
01958 M01S01822.1pp +++| ADN THLL
01959 M01S01823.1pp +++| CRD BB
01960 M01S01824.1pp +++| ADN CTLL-THLL
01961 M01S01825.1pp +++| CRD CM
01962 M01S01826.1pp +++| LDD CM+4
01963 M01S01827.1pp +++| SHN 0-13
01964 M01S01828.1pp +++| NJN SME1 IF CONDITION ALREADY PROCESSED
01965 M01S01829.1pp +++| LDD CM+4 CHECK UNRECOVERED ERROR COUNT