cdc:nos2.source:opl.opl871:deck:1ri.002
Deck 1RI Part 002
15 Modifications
Listing Sections
- Deck 1RI Start
- Deck 1RI Part 1 (Line 1505)
- Deck 1RI Part 2 (Line 3050)
Source
Seq # *Modification Id* Act ----------------------------+ 03050 M01S00009.ns2738c +++| SFA EJT,EO 03051 M01S00010.ns2738c +++| ADK SCHE 03052 M01S00011.ns2738c +++| CWD CM
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 03053 M01S00031.ns2738 +++| LDD T3 CHECK FOR RESTART 03054 M00S02465.1ri +++| SHN 21-13 03055 M00S02466.1ri +++| MJN RCP2 IF RESTART 03056 M00S02467.1ri +++| NFA DMPN UPDATE *SPCW* 03057 M00S02468.1ri +++| CRD CN 03058 M00S02469.1ri +++| LDD CN+1 CLEAR *1RO* CALLED FLAG AND SSJ= FLAG 03059 M00S02470.1ri +++| SCN 3 03060 M00S02471.1ri +++| STD CN+1 03061 M00S02472.1ri +++| LDN 0 CLEAR REQUEST 03062 M00S02473.1ri +++| STD CN 03063 M00S02474.1ri +++| LDD CP 03064 M00S02475.1ri +++| ADC SPCW 03065 M00S02476.1ri +++| CWD CN 03066 M00S02477.1ri +++| LJM RCP8 PROCESS DMP= ROLLIN 03067 M00S02478.1ri +++| 03068 M00S02479.1ri +++|* PROCESS RESTART ROLLIN. 03069 M00S02480.1ri +++| 03070 M00S02481.1ri +++| RCP2 LDD CP CLEAR *SPCW* 03071 M00S02482.1ri +++| ADC SPCW 03072 M00S02483.1ri +++| CWD ZR
| Line S02484 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03073 M01S02484.271l716 ---| LDC LDDI+T3
| Line S00353 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03074 M01S00353.271l716 +++| LDC LDDI+FS 03075 M00S02485.1ri +++| STM ERSC 03076 M00S02486.1ri +++| LDM CBUF+TIAW*5 VALIDATE SUBSYSTEM 03077 M00S02487.1ri +++| SHN -6 03078 M00S02488.1ri +++| SBN /REM/MSYS 03079 M00S02489.1ri +++| MJN RCP3 IF VALID SUBSYSTEM 03080 M00S02490.1ri +++| LDM CBUF+TIAW*5 CLEAR INCORRECT SUBSYSTEM 03081 M00S02491.1ri +++| LPN 77 03082 M00S02492.1ri +++| STM CBUF+TIAW*5 03083 M00S02493.1ri +++| RCP3 LDD CP VALIDATE FIELD LENGTH PARAMETERS 03084 M00S02494.1ri +++| ADN FLCW 03085 M00S02495.1ri +++| CRD CM 03086 M00S02496.1ri +++| ADN ELCW-FLCW 03087 M00S02497.1ri +++| CRD CN 03088 M00S02498.1ri +++| ADN SEPW-ELCW CLEAR SPECIAL ENTRY POINT WORD 03089 M00S02499.1ri +++| CWD ZR 03090 M00S02500.1ri +++| LDN 0 CLEAR LAST FILE EXECUTED 03091 M00S02501.1ri +++| STM RBUF+EOCW*5+0 03092 M00S02502.1ri +++| LDD CM+2 03093 M00S02503.1ri +++| SBM CBUF+FLCW*5 03094 M00S02504.1ri +++| MJN RCP4 IF LAST MFL VALID 03095 M00S02505.1ri +++| LDD CM+2 03096 M00S02506.1ri +++| SBM CBUF+FLCW*5+1 03097 M00S02507.1ri +++| PJN RCP5 IF LAST CM RFL VALID 03098 M00S02508.1ri +++| RCP4 LDD CP RESET CURRENT CM FL PARAMETERS 03099 M00S02509.1ri +++| ADN FLCW 03100 M00S02510.1ri +++| CRM CBUF+FLCW*5,ON 03101 M00S02511.1ri +++| RCP5 LDD CN+2 03102 M00S02512.1ri +++| SBM CBUF+ELCW*5 03103 M00S02513.1ri +++| MJN RCP6 IF EXTENDED MEMORY MFL INCORRECT 03104 M00S02514.1ri +++| LDD CN+2 03105 M00S02515.1ri +++| SBM CBUF+ELCW*5+1 03106 M00S02516.1ri +++| PJN RCP7 IF LAST EXTENDED MEMORY RFL VALID 03107 M00S02517.1ri +++| RCP6 LDD CP RESET CURRENT ECS FL PARAMETERS 03108 M00S02518.1ri +++| ADN ELCW 03109 M00S02519.1ri +++| CRM CBUF+ELCW*5,ON 03110 M00S02520.1ri +++| RCP7 LDC TRCU UPDATE CONTROL POINT AREA 03111 M00S02521.1ri +++| RJM UCA 03112 M00S02522.1ri +++| UJN RCP9 CONTINUE 03113 M00S02523.1ri +++| 03114 M00S02524.1ri +++|* PROCESS DMP= ROLLIN. 03115 M00S02525.1ri +++| 03116 M00S02526.1ri +++| RCP8 LDC TDCU UPDATE CONTROL POINT AREA 03117 M00S02527.1ri +++| RJM UCA 03118 M00S02528.1ri +++| 03119 M00S02529.1ri +++|* RESTORE CPU PRIORITY IF JOB IS NOT A SUBSYSTEM. 03120 M00S02530.1ri +++| 03121 M00S02531.1ri +++| LDM EJBF+SCLE*5 03122 M00S02532.1ri +++| SHN -6 03123 M00S02533.1ri +++| LMN SSSC 03124 M00S02534.1ri +++| ZJN RCP9 IF JOB IS A SUBSYSTEM
| Line S02535 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03125 M01S02535.271l750 ---| LDM CBUF+JCIW*5 RESET CPU PRIORITY
| Line S02536 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03126 M02S02536.271l750 ---| SHN -1
| Line S00354 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03127 M02S00354.271l750 ---| LPN 77
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 03128 M02S00008.ns2731 ---| LDM CBUF+CWQW*5 RESET CPU PRIORITY
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 03129 M01S00001.ns2731 +++| LDM CBUF+CWQW*5+1 03130 M01S00002.ns2731 +++| SHN -11 03131 M01S00003.ns2731 +++| LPN 1 03132 M01S00004.ns2731 +++| ZJN RCP8.1 IF SET CPU PRIORITY TO SERVICE CLASS VALUE 03133 M01S00005.ns2731 +++| LDM CBUF+CWQW*5 GET PRE-ROLLOUT CPU PRIORITY
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 03134 M01S00009.271l750 +++| LPC 1770 03135 M01S00010.271l750 +++| SHN -3
| Line S02537 Modification History | |
|---|---|
M01 (Removed by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 03136 M01S02537.ns2731 ---| STD CM+4 03137 M01S02538.ns2731 ---| LDN 0
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2731 |
Seq # *Modification Id* Act ----------------------------+ 03138 M01S00006.ns2731 +++| RCP8.1 STD CM+4 SET CPU PRIORITY 03139 M01S00007.ns2731 +++| LDN /CPS/CPRS SET CPU PRIORITY SUBFUNCTION 03140 M00S02539.1ri +++| STD CM+1 03141 M00S02540.1ri +++| MONITOR SJCM 03142 M00S02541.1ri +++| RCP9 LDC ** 03143 M00S02542.1ri +++| RCPA EQU *-1 (CPU STATUS BYTE OF *STSW*) 03144 M00S02543.1ri +++| LPN 2 03145 M00S02544.1ri +++| NJN RCP10 IF CPU ACTIVE 03146 M00S02545.1ri +++| LDC ** 03147 M00S02546.1ri +++| RCPB EQU *-1 (*SPCW* BYTE 1) 03148 M00S02547.1ri +++| LPN 4 03149 M00S02548.1ri +++| LMN 4 03150 M00S02549.1ri +++| RCP10 STM RIJF 03151 M00S02550.1ri +++| LDC * DISABLE *1AJ* CALL 03152 M00S02551.1ri +++| ORG *-1 03153 M00S02552.1ri +++| LOC RIJI 03154 M00S02553.1ri +++| UJN RIJ7 03155 M00S02554.1ri +++| LOC *O 03156 M00S02555.1ri +++| STM RIJI 03157 M00S02556.1ri +++| LJM RCPX RETURN 03158 M00S02557.1ri +++| UCA SPACE 4,10 03159 M00S02558.1ri +++|** UCA - UPDATE CONTROL POINT AREA. 03160 M00S02559.1ri +++|* 03161 M00S02560.1ri +++|* ENTRY (A) = *RESTOR* TABLE ADDRESS. 03162 M00S02561.1ri +++|* (CBUF - CBUF+500) = FIRST HALF OF CPA. 03163 M00S02562.1ri +++|* (RBUF - RBUF+500) = SECOND HALF OF CPA. 03164 M00S02563.1ri +++|* 03165 M00S02564.1ri +++|* EXIT CPA RESTORED. 03166 M00S02565.1ri +++|* 03167 M00S02566.1ri +++|* USES T1, T2, T3, BFMS - BFMS+500. 03168 M00S02567.1ri +++| 03169 M00S02568.1ri +++| 03170 M00S02569.1ri +++| UCA SUBR ENTRY/EXIT 03171 M00S02570.1ri +++| STM UCAA SET TABLE ADDRESS 03172 M00S02571.1ri +++| ADN 1 03173 M00S02572.1ri +++| STM UCAB 03174 M00S02573.1ri +++| LDD CP PRESET CONTROL POINT AREA 03175 M00S02574.1ri +++| CRM BFMS,HN 03176 M00S02575.1ri +++| LDN 0 INITIALIZE TABLE OFFSET 03177 M00S02576.1ri +++| STD T1 03178 M00S02577.1ri +++| UCA1 LDM *,T1 SET CPA WORD OFFSET 03179 M00S02578.1ri +++|* LDM (TABLE),T1 03180 M00S02579.1ri +++| UCAA EQU *-1 03181 M00S02580.1ri +++| NJN UCA2 IF NOT TERMINATOR 03182 M00S02581.1ri +++| LJM UCA6 PROCESS TABLE TERMINATOR 03183 M00S02582.1ri +++| 03184 M00S02583.1ri +++| UCA2 STD T2 03185 M00S02584.1ri +++| SHN 21-13 03186 M00S02585.1ri +++| MJN UCA4 IF ENTIRE CM WORD TO MOVE 03187 M00S02586.1ri +++| LDM *,T1 SET BYTE MASK 03188 M00S02587.1ri +++|* LDM (TABLE)+1,T1 03189 M00S02588.1ri +++| UCAB EQU *-1 03190 M00S02589.1ri +++| STM UCAE 03191 M00S02590.1ri +++| LMC 7777 03192 M00S02591.1ri +++| STM UCAC 03193 M00S02592.1ri +++| LDM BFMS,T2 MASK OLD CPA BYTE 03194 M00S02593.1ri +++| LPC * 03195 M00S02594.1ri +++|* LPC -(MASK) 03196 M00S02595.1ri +++| UCAC EQU *-1 03197 M00S02596.1ri +++| STD T3 03198 M00S02597.1ri +++| LDM CBUF,T2 03199 M00S02598.1ri +++|* LDM RBUF,T2 03200 M00S02599.1ri +++| UCAD EQU *-1 03201 M00S02600.1ri +++| LPC * 03202 M00S02601.1ri +++|* LPC (MASK) 03203 M00S02602.1ri +++| UCAE EQU *-1 03204 M00S02603.1ri +++| LMD T3 03205 M00S02604.1ri +++| STM BFMS,T2 03206 M00S02605.1ri +++| LDN 2 INCREMENT TABLE OFFSET 03207 M00S02606.1ri +++| RAD T1 03208 M00S02607.1ri +++| UCA3 UJN UCA1 LOOP 03209 M00S02608.1ri +++| 03210 M00S02609.1ri +++| UCA4 LDC -4000 MOVE ENTIRE CM WORD 03211 M00S02610.1ri +++| RAD T2 SET WORD OFFSET 03212 M00S02611.1ri +++| ADC CBUF 03213 M00S02612.1ri +++|* ADC RBUF (SECOND HALF OF CPA) 03214 M00S02613.1ri +++| UCAF EQU *-1 03215 M00S02614.1ri +++| STM UCAH 03216 M00S02615.1ri +++| ADC BFMS-CBUF 03217 M00S02616.1ri +++|* ADC BFMS-RBUF (SECOND HALF OF CPA) 03218 M00S02617.1ri +++| UCAG EQU *-1 03219 M00S02618.1ri +++| STM UCAI 03220 M00S02619.1ri +++| LDD MA 03221 M00S02620.1ri +++| CWM *,ON 03222 M00S02621.1ri +++|* CWM (CBUF+(T2)),ON (FIRST HALF OF CPA) 03223 M00S02622.1ri +++|* CWM (RBUF+(T2)),ON (SECOND HALF OF CPA) 03224 M00S02623.1ri +++| UCAH EQU *-1 03225 M00S02624.1ri +++| SBN 1 03226 M00S02625.1ri +++| CRM *,ON 03227 M00S02626.1ri +++|* CRM (BFMS+(T2)),ON 03228 M00S02627.1ri +++| UCAI EQU *-1 03229 M00S02628.1ri +++| AOD T1 INCREMENT TABLE OFFSET 03230 M00S02629.1ri +++| UCA5 UJN UCA3 LOOP 03231 M00S02630.1ri +++| 03232 M00S02631.1ri +++| UCA6 LDN 0 CHECK CPA SEGMENT 03233 M00S02632.1ri +++|* LDN 1 (SECOND HALF OF CPA) 03234 M00S02633.1ri +++| UCAJ EQU *-1 03235 M00S02634.1ri +++| NJN UCA7 IF SECOND HALF OF CPA PROCESSED 03236 M00S02635.1ri +++| AOM UCAJ SET SECOND HALF PROCESSED 03237 M00S02636.1ri +++| LDD CP REWRITE FIRST HALF OF CPA 03238 M00S02637.1ri +++| CWM BFMS,HN 03239 M00S02638.1ri +++| CRM BFMS,HN READ SECOND HALF OF CPA 03240 M00S02639.1ri +++| LDC RBUF 03241 M00S02640.1ri +++| STM UCAD 03242 M00S02641.1ri +++| STM UCAF 03243 M00S02642.1ri +++| LDC BFMS-RBUF 03244 M00S02643.1ri +++| STM UCAG 03245 M00S02644.1ri +++| AOD T1 INCREMENT TABLE OFFSET 03246 M00S02645.1ri +++| UJN UCA5 LOOP 03247 M00S02646.1ri +++| 03248 M00S02647.1ri +++| UCA7 LDD CP UPDATE SECOND HALF OF CPA 03249 M00S02648.1ri +++| ADD HN 03250 M00S02649.1ri +++| CWM BFMS,HN 03251 M00S02650.1ri +++| LDN LREC*2 RESTORE PP RECALL STACK 03252 M00S02651.1ri +++| STD T1 03253 M00S02652.1ri +++| LDD CP 03254 M00S02653.1ri +++| ADC RECW 03255 M00S02654.1ri +++| CWM RBUF+RECW*5-100*5,T1 03256 M00S02655.1ri +++| LJM UCAX EXIT 03257 M00S02656.1ri +++| TRCU SPACE 4,10 03258 M00S02657.1ri +++|** TRCU - TABLE OF RESTART CPA UPDATES. 03259 M00S02658.1ri +++| 03260 M00S02659.1ri +++| 03261 M00S02660.1ri +++| TRCU RESTOR ECSW,0,0007 03262 M00S02661.1ri +++| RESTOR SNSW,0,2000 03263 M00S02662.1ri +++| RESTOR SNSW,4,7700 03264 M00S02663.1ri +++| RESTOR MS1W,* 03265 M00S02664.1ri +++| RESTOR MS1W+1,* 03266 M00S02665.1ri +++| RESTOR MS1W+2,* 03267 M00S02666.1ri +++| RESTOR MS1W+3,* 03268 M00S02667.1ri +++| RESTOR MS1W+4,* 03269 M00S02668.1ri +++| RESTOR MS2W,* 03270 M00S02669.1ri +++| RESTOR MS2W+1,* 03271 M00S02670.1ri +++| RESTOR MS2W+2,* 03272 M00S02671.1ri +++| RESTOR FLCW,0,* 03273 M00S02672.1ri +++| RESTOR FLCW,1,* 03274 M00S02673.1ri +++| RESTOR ELCW,0,* 03275 M00S02674.1ri +++| RESTOR ELCW,1,* 03276 M00S02675.1ri +++| RESTOR TIAW,0,7700 03277 M00S02676.1ri +++| RESTOR TIAW,2,* 03278 M00S02677.1ri +++| RESTOR TIAW,3,* 03279 M00S02678.1ri +++| RESTOR TIAW,4,* 03280 M00S02679.1ri +++| RESTOR EECW,2,* 03281 M00S02680.1ri +++| RESTOR EECW,3,7737 03282 M00S02681.1ri +++| RESTOR EECW,* 03283 M00S02682.1ri +++| RESTOR SEPW,0,0050 03284 M00S02683.1ri +++| RESTOR JCDW,* 03285 M00S02684.1ri +++| RESTOR JCRW,* 03286 M00S02685.1ri +++| RESTOR DBAW,* 03287 M00S02686.1ri +++| RESTOR LB1W,* 03288 M00S02687.1ri +++| RESTOR LB2W,* 03289 M00S02688.1ri +++| RESTOR LB3W,* 03290 M00S02689.1ri +++| RESTOR EOCW,* 03291 M00S02690.1ri +++| RESTOR LOFW,0,* 03292 M00S02691.1ri +++| RESTOR LOFW,1,* 03293 M00S02692.1ri +++| RESTOR LOFW,2,* 03294 M00S02693.1ri +++| RESTOR 03295 M00S02694.1ri +++| TDCU SPACE 4,10 03296 M00S02695.1ri +++|** TDCU - TABLE OF DMP= CPA UPDATES. 03297 M00S02696.1ri +++| 03298 M00S02697.1ri +++| 03299 M00S02698.1ri +++| TDCU RESTOR SNSW,0,1000 03300 M00S02699.1ri +++| RESTOR FLCW,* 03301 M00S02700.1ri +++| RESTOR ELCW,* 03302 M00S02701.1ri +++| RESTOR TIAW,2,* 03303 M00S02702.1ri +++| RESTOR TIAW,3,* 03304 M00S02703.1ri +++| RESTOR TIAW,4,* 03305 M00S02704.1ri +++| RESTOR PFCW,* 03306 M00S02705.1ri +++| RESTOR UIDW,* 03307 M00S02706.1ri +++| RESTOR EECW,* 03308 M00S02707.1ri +++| RESTOR ALMW,* 03309 M00S02708.1ri +++| RESTOR ACLW,* 03310 M00S02709.1ri +++| RESTOR AACW,* 03311 M00S02710.1ri +++| RESTOR SEPW,* 03312 M00S02711.1ri +++| RESTOR JCDW,* 03313 M00S02712.1ri +++| RESTOR JCRW,* 03314 M00S02713.1ri +++| RESTOR DBAW,* 03315 M00S02714.1ri +++| RESTOR LOFW,0,* 03316 M00S02715.1ri +++| RESTOR LOFW,1,* 03317 M00S02716.1ri +++| RESTOR LOFW,2,* 03318 M00S02717.1ri +++| RESTOR LB1W,* 03319 M00S02718.1ri +++| RESTOR 03320 M00S02719.1ri +++| SPACE 4,10
| Line S00355 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03321 M01S00355.271l716 +++|* BUFFERS. 03322 M01S00356.271l716 +++| 03323 M01S00357.271l716 +++| 03324 M01S00358.271l716 +++| USE BUFFERS 03325 M01S00359.271l716 +++| 03326 M00S02720.1ri +++| RBFF EQU * 03327 M00S02721.1ri +++| RBUF EQU RBFF+2 CONTROL POINT AREA BUFFER (2ND PART) 03328 M00S02722.1ri +++| BUFL EQU RBUF+500 BUFFER LENGTH 03329 M01S00360.271l716 +++| SPACE 4,10 03330 M01S00361.271l716 +++|* CHECK FOR OVERFLOW. 03331 M00S02723.1ri +++|
| Line S02724 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03332 M01S02724.271l716 ---| ERRNG BFMS-BUFL
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03333 M01S00362.271l716 +++| 03334 M01S00363.271l716 +++| ERRNG BFMS-BUFL OVERFLOW INTO *BFMS* 03335 M01S00364.271l716 +++| 03336 M01S00365.271l716 +++| 03337 M01S00366.271l716 +++| OVERFLOW E1RI,EPFW 03338 M00S02725.1ri +++| SPACE 4,10 03339 M00S02726.1ri +++| QUAL * 03340 M00S02727.1ri +++| SPACE 4,10 03341 M00S02728.1ri +++| TTL 1RI/3RF - PROCESS TERMINATION ERRORS. 03342 M00S02729.1ri +++| TITLE 1RI/3RF - PROCESS ERROR. 03343 M00S02730.1ri +++| QUAL 3RF 03344 M00S02731.1ri +++| IDENT 3RF,PREX
| Line S02732 Modification History | |
|---|---|
M01 (Removed by) | ns2584 |
Seq # *Modification Id* Act ----------------------------+ 03345 M01S02732.ns2584 ---|*COMMENT 1RI/3RF - PROCESS ERROR.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2584 |
Seq # *Modification Id* Act ----------------------------+ 03346 M01S00001.ns2584 +++|*COMMENT 1RI - PROCESS ERROR.
| Line S02733 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03347 M01S02733.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 03348 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 03349 M00S02734.1ri +++| SPACE 4,10 03350 M00S02735.1ri +++| O3RF MAX /3RG/BUFL,/3RH/E3RH 03351 M00S02736.1ri +++| ORG O3RF+5 03352 M00S02737.1ri +++| PRE SPACE 4,30 03353 M00S02738.1ri +++|** PRE - PROCESS ERROR. 03354 M00S02739.1ri +++|* 03355 M00S02740.1ri +++|* THIS ROUTINE IS CALLED WHENEVER AN ERROR OCCURS THAT MAY 03356 M00S02741.1ri +++|* PREVENT NORMAL COMPLETION OF THE ROLLIN. REFER TO ROUTINE 03357 M00S02742.1ri +++|* *MSR* IN THE RESIDENT OVERLAY FOR A DESCRIPTION OF THE 03358 M00S02743.1ri +++|* CIRCUMSTANCES LEADING TO A CALL OF *3RF*. 03359 M00S02744.1ri +++|* 03360 M00S02745.1ri +++|* ENTRY (CI) = SECTOR COUNT. 03361 M00S02746.1ri +++|* (DS) = DRIVER STATUS FROM CELL *RDCT*. 03362 M00S02747.1ri +++|* (EF) = ERROR FLAG FROM EJT. 03363 M00S02748.1ri +++|* (EO) = EJT ORDINAL. 03364 M00S02749.1ri +++|* (CN - CN+4) = MASS STORAGE PARAMETERS. 03365 M00S02750.1ri +++|* 03366 M00S02751.1ri +++|* EXIT THIS ROUTINE WILL RETURN TO *MSR* ONLY IF THE ROLLIN 03367 M00S02752.1ri +++|* CAN BE CONTINUED. EXIT CONDITIONS UPON RETURN TO 03368 M00S02753.1ri +++|* *MSR* ARE AS FOLLOWS - 03369 M00S02754.1ri +++|* (A) = 0 IF I/O ON THE ROLLOUT FILE SHOULD CONTINUE. 03370 M00S02755.1ri +++|* = NON-ZERO IF THE ROLLIN SHOULD CONTINUE 03371 M00S02756.1ri +++|* WITHOUT READING THE ROLLOUT FILE. 03372 M00S02757.1ri +++|* (EF) = NEW ERROR FLAG. 03373 M00S02758.1ri +++|* 03374 M00S02759.1ri +++|* USES EF, T1, CM - CM+4, IR - IR+4, T4 - T7. 03375 M00S02760.1ri +++|*
| Line S02761 Modification History | |
|---|---|
M01 (Removed by) | 1ri27 |
Seq # *Modification Id* Act ----------------------------+ 03376 M01S02761.1ri27 ---|* CALLS 1RJ.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1ri27 |
Seq # *Modification Id* Act ----------------------------+ 03377 M01S00009.1ri27 +++|* CALLS SNS, 1RJ. 03378 M00S02762.1ri +++|* 03379 M00S02763.1ri +++|* MACROS EXECUTE, MONITOR, NFA, SETMS, SFA. 03380 M00S02764.1ri +++| 03381 M00S02765.1ri +++| 03382 M00S02766.1ri +++| PRE SUBR ENTRY 03383 M00S02767.1ri +++| LDD MA RESTORE MASS STORAGE PARAMETERS 03384 M00S02768.1ri +++| CWD CN 03385 M00S02769.1ri +++| CRD T3 03386 M00S02770.1ri +++| SETMS IO,NS LOAD DRIVER IN CASE I/O TO CONTINUE 03387 M00S02771.1ri +++| LDD IR+2 03388 M00S02772.1ri +++| NJP PRE6 IF DMP= CALL 03389 M00S02773.1ri +++| STD CM+2 03390 M00S02774.1ri +++| LDM RNS 03391 M00S02775.1ri +++| SBN 2 03392 M00S02776.1ri +++| LMC RS1. 03393 M00S02777.1ri +++| NJN PRE0 IF NFL NOT ROLLED IN 03394 M00S02778.1ri +++| LDD CI 03395 M00S02779.1ri +++| SBM CBUF+FLIW*5+2 03396 M00S02780.1ri +++| SBM CBUF+FLSW*5 03397 M00S02781.1ri +++| MJN PRE1 IF NFL NOT ROLLED IN 03398 M00S02782.1ri +++| LJM PRE3 CHECK ERROR FLAG 03399 M00S02783.1ri +++| 03400 M00S02784.1ri +++| PRE0 LMC /3RH/RS2.&RS1. 03401 M00S02785.1ri +++| NJN PRE1 IF NOT POSITIONED AT TERMINAL OUTPUT 03402 M00S02786.1ri +++| LDD DS 03403 M00S02787.1ri +++| SHN 0-13 03404 M00S02788.1ri +++| ZJP PREX IF SECTOR LINKAGE IS CORRECT 03405 M00S02789.1ri +++| PRE1 SFA EJT,EO SET EJT ENTRY ADDRESS IN *UTEM* CALL 03406 M00S02790.1ri +++| STD CM+4 03407 M00S02791.1ri +++| SHN -14 03408 M00S02792.1ri +++| STD CM+3 03409 M00S02793.1ri +++| LDN PREAL SET *UTEM* PARAMETER COUNT 03410 M00S02794.1ri +++| STD CM+1 03411 M00S02795.1ri +++| LDD T5 STORE EST ORDINAL IN *UTEM* CALL 03412 M00S02796.1ri +++| RAM PREA+1*5+3 03413 M00S02797.1ri +++| LDD MA 03414 M00S02798.1ri +++| CWM PREA,CM+1 03415 M00S02799.1ri +++| MONITOR UTEM 03416 M00S02800.1ri +++| LDN /CPS/CCPS&/CPS/DPPS CLEAR CONTROL POINT AND DROP PP 03417 M00S02801.1ri +++| PRE2 STM PREB SAVE *JACM* FUNCTION 03418 M00S02802.1ri +++| LDD CP 03419 M00S02803.1ri +++| ADN FLSW 03420 M00S02804.1ri +++| CRD CM 03421 M00S02805.1ri +++| LDD CM 03422 M00S02806.1ri +++| ZJN PRE2.1 IF NO NFL ASSIGNED 03423 M00S02807.1ri +++| LDN 0 RELEASE NFL 03424 M00S02808.1ri +++| RJM NFL 03425 M00S02809.1ri +++| PRE2.1 RJM RLS RELEASE MEMORY
| Line S02810 Modification History | |
|---|---|
M01 (Removed by) | 1ri27 |
Seq # *Modification Id* Act ----------------------------+ 03426 M01S02810.1ri27 ---| LDC **
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1ri27 |
Seq # *Modification Id* Act ----------------------------+ 03427 M01S00010.1ri27 +++| LDM EJBF+5*JSNE+4 03428 M01S00011.1ri27 +++| LPN 76 03429 M01S00012.1ri27 +++| LMN SIJS*2 03430 M01S00013.1ri27 +++| NJN PRE2.2 IF NOT SUBSYSTEM SWAP IN REQUEST 03431 M01S00014.1ri27 +++| LDN RC46 INDICATE SWAP IN NOT POSSIBLE 03432 M01S00015.1ri27 +++| RJM SNS 03433 M01S00016.1ri27 +++| PRE2.2 LDC ** 03434 M00S02811.1ri +++| PREB EQU *-1 03435 M00S02812.1ri +++| STD CM+1 03436 M00S02813.1ri +++| MONITOR JACM 03437 M00S02814.1ri +++| LJM PPR EXIT TO PP RESIDENT 03438 M00S02815.1ri +++| 03439 M00S02816.1ri +++| PRE3 LDD EF 03440 M00S02817.1ri +++| ZJP PRE1 IF NO ERROR FLAG IS SET 03441 M00S02818.1ri +++| PRE4 LDK JSET SET JOB STEP ABORT ERROR FLAG 03442 M00S02819.1ri +++| SBD EF 03443 M00S02820.1ri +++| MJN PRE5 IF EXISTING ERROR FLAG .GT. *JSET* 03444 M00S02821.1ri +++| RAD EF SET *JSET* ERROR FLAG 03445 M00S02822.1ri +++| PRE5 LJM PREX RETURN, CONTINUE ROLLIN 03446 M00S02823.1ri +++| 03447 M00S02824.1ri +++| PRE6 LDM CPAB 03448 M00S02825.1ri +++| ZJP PRE7 IF CONTROL POINT AREA NOT ROLLED IN 03449 M00S02826.1ri +++| LDD DS 03450 M00S02827.1ri +++| SHN 21-12 03451 M00S02828.1ri +++| MJN PRE4 IF NOT RECOVERABLE FAILURE 03452 M00S02829.1ri +++| LDD EF 03453 M00S02830.1ri +++| NJN PRE4 IF ERROR FLAG IS SET 03454 M00S02831.1ri +++| STD CM+1 CLEAR JOB ADVANCE 03455 M00S02832.1ri +++| LDN DMPL RESTORE DMP= BLOCK TO ORIGINAL STATE 03456 M00S02833.1ri +++| STD T1 03457 M00S02834.1ri +++| LDD RA 03458 M00S02835.1ri +++| SHN 6 03459 M00S02836.1ri +++| ADN SPPR 03460 M00S02837.1ri +++| CRM BFMS,T1 03461 M00S02838.1ri +++| NFA DMPN 03462 M00S02839.1ri +++| CWM BFMS,T1 03463 M00S02840.1ri +++| MONITOR JACM 03464 M00S02841.1ri +++| LDK ZERL PLACE *1AJ* CALL IN INPUT REGISTER 03465 M00S02842.1ri +++| CRD IR 03466 M00S02843.1ri +++| LDC 3RJ1A 03467 M00S02844.1ri +++| STD IR 03468 M00S02845.1ri +++| SHN -6 03469 M00S02846.1ri +++| SCN 77 03470 M00S02847.1ri +++| STD IR+1 03471 M00S02848.1ri +++| LDD IA 03472 M00S02849.1ri +++| CWD IR 03473 M00S02850.1ri +++| EXECUTE 1AJ,= 03474 M00S02851.1ri +++| LDD T5 SET EST ORDINAL FOR *1RJ* 03475 M00S02852.1ri +++| STD IR+4 03476 M00S02853.1ri +++| EXECUTE 1RJ ROLLOUT JOB 03477 M00S02854.1ri +++| 03478 M00S02855.1ri +++| PRE7 LDD CP CLEAN UP CONTROL POINT AREA 03479 M00S02856.1ri +++| ADN UIDW 03480 M00S02857.1ri +++| CWD ZR 03481 M00S02858.1ri +++| ADN CSSW-UIDW CLEAR INPUT FILE POINTERS 03482 M00S02859.1ri +++| CWD ZR 03483 M00S02860.1ri +++| LDN FPFW-SRUW CLEAR ACCOUNTING WORDS 03484 M00S02861.1ri +++| STD CM 03485 M00S02862.1ri +++| PRE8 LDD CP 03486 M00S02863.1ri +++| ADN SRUW 03487 M00S02864.1ri +++| ADD CM 03488 M00S02865.1ri +++| CWD ZR 03489 M00S02866.1ri +++| SOD CM 03490 M00S02867.1ri +++| PJN PRE8 IF NOT END OF ACCOUNTING WORDS 03491 M00S02868.1ri +++| LDD CP CLEAR SECOND BLOCK OF ACCOUNTING WORDS 03492 M00S02869.1ri +++| ADK MPAW 03493 M00S02870.1ri +++| CWD ZR 03494 M00S02871.1ri +++| ADN AUCW-MPAW 03495 M00S02872.1ri +++| CWD ZR 03496 M00S02873.1ri +++| AOD ZR+4 SET FST OF DM* FILE NOT BUSY 03497 M00S02874.1ri +++| NFA FA,R 03498 M00S02875.1ri +++| ADN FSTL 03499 M00S02876.1ri +++| CWD ZR 03500 M00S02877.1ri +++| LDN SYET SET *SYET* ERROR FLAG 03501 M00S02878.1ri +++| STD CM+1 03502 M00S02879.1ri +++| MONITOR CEFM 03503 M00S02880.1ri +++| LDN /CPS/DPPS 03504 M00S02881.1ri +++| LJM PRE2 CLEAR JOB ADVANCE AND DROP PP 03505 M00S02882.1ri +++| 03506 M00S02883.1ri +++|* *UTEM* PARAMETER BLOCK. 03507 M00S02884.1ri +++| 03508 M00S02885.1ri +++| PREA VFD 1/0,5/JSNE,6/5 *ERJS* JOB STATUS 03509 M00S02886.1ri +++| VFD 6/1,6/0 03510 M00S02887.1ri +++| CON 0,0,ERJS 03511 M00S02888.1ri +++| VFD 1/0,5/SCHE,6/30D *WISE* EVENT 03512 M00S02889.1ri +++| VFD 6/0,6/0 03513 M00S02890.1ri +++| VFD 6/0,6/77 03514 M00S02891.1ri +++| VFD 3/7,9/0 03515 M00S02892.1ri +++| CON WISE 03516 M00S02893.1ri +++| 03517 M00S02894.1ri +++| VFD 1/0,5/SCLE,6/1 CLEAR FORCED ROLLIN 03518 M00S02895.1ri +++| VFD 6/52D,6/0 03519 M00S02896.1ri +++| CON 0,0,0 03520 M00S02897.1ri +++| 03521 M00S02898.1ri +++| PREAL EQU */5-PREA/5 *UTEM* PARAMETER COUNT 03522 M00S02899.1ri +++| SPACE 4,10 03523 M00S02900.1ri +++|** COMMON DECKS. 03524 M00S02901.1ri +++| 03525 M00S02902.1ri +++| 03526 M00S02903.1ri +++|*CALL COMPNFL 03527 M00S02904.1ri +++|*CALL COMPRLS 03528 M00S02905.1ri +++| SPACE 4,10
| Line S02906 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03529 M01S02906.271l716 ---|* OVERFLOW CHECK.
| Line S00367 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 03530 M01S00367.271l716 +++|* CHECK FOR OVERFLOW. 03531 M00S02907.1ri +++| 03532 M00S02908.1ri +++| 03533 M01S00368.271l716 +++| USE OVERFLOW 03534 M01S00369.271l716 +++| 03535 M00S02909.1ri +++| ERRNG BFMS-* OVERFLOW INTO BUFFER 03536 M01S00370.271l716 +++| SPACE 4,10 03537 M01S00371.271l716 +++| OVERFLOW PREX,EPFW 03538 M00S02910.1ri +++| SPACE 4,10 03539 M00S02911.1ri +++| QUAL * 03540 M00S02912.1ri +++| TTL 1RI - ROLLIN JOB. 03541 M00S02913.1ri +++| SPACE 4,10 03542 M00S02914.1ri +++| END
cdc/nos2.source/opl.opl871/deck/1ri.002.txt · Last modified: by 127.0.0.1