cdc:nos2.source:opl.opl871:deck:1ri
Deck 1RI
Library Member Format: MODIFY
Listing Sections
- Deck 1RI Start
- Deck 1RI Part 1 (Line 1493)
- Deck 1RI Part 2 (Line 2977)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1ri +++| IDENT 1RI,RIJ 00002 M00S00002.1ri +++| PERIPH 00003 M00S00003.1ri +++| BASE MIXED
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00001.271l716 +++| LIST F 00005 M00S00004.1ri +++| SST 00006 M00S00005.1ri +++| SYSCOM 00007 M00S00006.1ri +++|*COMMENT 1RI - ROLLIN JOB.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00008.1ri +++| TITLE 1RI - ROLLIN JOB. 00011 M00S00009.1ri +++| SPACE 4,10 00012 M00S00010.1ri +++|*** 1RI - ROLLIN JOB. 00013 M00S00011.1ri +++|* G. R. MANSFIELD. 70/09/03. 00014 M00S00012.1ri +++|* R. E. TATE. 70/09/28. 00015 M00S00013.1ri +++|* L. C. HAAS. 75/03/25. RESEQUENCE. 00016 M00S00014.1ri +++| SPACE 4,10 00017 M00S00015.1ri +++|*** 1RI PERFORMS JOB ROLLIN. IT IS CALLED BY *1SJ*. 00018 M00S00016.1ri +++| SPACE 4,10 00019 M00S00017.1ri +++|*** CALL. 00020 M00S00018.1ri +++|* 00021 M00S00019.1ri +++|* 00022 M00S00020.1ri +++|*T 18/ *1RI*,1/ ,5/CP,12/FN,12/ 12/FA
Figure
00023 M00S00021.1ri +++|* CP CONTROL POINT NUMBER. 00024 M00S00022.1ri +++|* FN = 0, ROLLIN JOB. 00025 M00S00023.1ri +++|* = 1, SELECTIVE ROLLIN ACCORDING TO SPECIAL ENTRY POINTS. 00026 M00S00024.1ri +++|* FA DM* FILE FNT ADDRESS/OFFSET (DMP= CALL). 00027 M00S00025.1ri +++| SPACE 4,10 00028 M00S00026.1ri +++|*** DAYFILE MESSAGES. 00029 M00S00027.1ri +++|* 00030 M00S00028.1ri +++|* 00031 M00S00029.1ri +++|* NONE. 00032 M00S00030.1ri +++| SPACE 4,10 00033 M00S00031.1ri +++|*** ACCOUNT DAYFILE MESSAGES. 00034 M00S00032.1ri +++|* 00035 M00S00033.1ri +++|* 00036 M00S00034.1ri +++|* *ACSC, SC, NEWJSN, SRUUNITS.* = SERVICE CLASS HAS BEEN 00037 M00S00035.1ri +++|* CHANGED TO SC. NEWJSN IS PRESENT IF THE CHANGE WAS FROM 00038 M00S00036.1ri +++|* SUBSYSTEM SERVICE CLASS. SRUUNITS IS THE SRU ACCUMULATOR 00039 M00S00037.1ri +++|* AT THE TIME OF THE SERVICE CLASS CHANGE. 00040 M00S00038.1ri +++| SPACE 4,10 00041 M00S00039.1ri +++|** ROUTINES USED. 00042 M00S00040.1ri +++|* 00043 M00S00041.1ri +++|* 00044 M00S00042.1ri +++|* *0DF* - DROP FILE. 00045 M00S00043.1ri +++| SPACE 4,10 00046 M00S00044.1ri +++|** PROGRAMS CALLED. 00047 M00S00045.1ri +++|* 00048 M00S00046.1ri +++|* 00049 M00S00047.1ri +++|* *1AJ* - CONTINUE DMP= PROCESSING / PROCESS ERROR FLAG. 00050 M00S00048.1ri +++| SPACE 4,10 00051 M00S00049.1ri +++|** COMMON DECKS. 00052 M00S00050.1ri +++| 00053 M00S00051.1ri +++| 00054 M00S00052.1ri +++|*CALL COMPMAC 00055 M00S00053.1ri +++| QUAL CPS 00056 M00S00054.1ri +++|*CALL COMSCPS 00057 M00S00055.1ri +++| QUAL *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00058 M01S00001.271l750 +++| SSPS EQU /CPS/SSPS 00059 M00S00056.1ri +++|*CALL COMSEJT 00060 M00S00057.1ri +++|*CALL COMSEVT 00061 M00S00058.1ri +++|*CALL COMSJIO 00062 M00S00059.1ri +++|*CALL COMSJRO 00063 M00S00060.1ri +++|*CALL COMSLFD 00064 M00S00061.1ri +++|*CALL COMSMSC 00065 M00S00062.1ri +++|*CALL,COMSMSP
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00066 M02S00002.273l780 ---| CPA$ EQU 1 SELECT CPA/PCPA ACCESS 00067 M02S00003.273l780 ---| IPC$ EQU 1 SELECT *COMPPCP* INITIALIZATION 00068 M02S00004.273l780 ---|*CALL COMSPCP 00069 M00S00063.1ri +++|*CALL COMSPIM
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00070 M01S00005.271l716 +++|*CALL COMSPRD 00071 M00S00064.1ri +++| QUAL REM 00072 M00S00065.1ri +++|*CALL COMSREM 00073 M00S00066.1ri +++| QUAL * 00074 M00S00067.1ri +++|*CALL COMSSCD 00075 M00S00068.1ri +++|*CALL COMSSSD 00076 M00S00069.1ri +++|*CALL COMSSSE 00077 M00S00070.1ri +++|*CALL COMSSSJ
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ri27 |
Seq # *Modification Id* Act ----------------------------+ 00078 M01S00001.1ri27 +++|*CALL COMSSCP 00079 M00S00071.1ri +++|*CALL COMSZOL 00080 M00S00072.1ri +++| 1RI SPACE 4 00081 M00S00073.1ri +++|**** ASSEMBLY CONSTANTS. 00082 M00S00074.1ri +++| 00083 M00S00075.1ri +++| 00084 M00S00076.1ri +++| IFLS EQU /CPS/IFLS *PIOM* REPLY STATUS 00085 M00S00077.1ri +++| RDDS EQU /CPS/RDDS *PIOM* DIRECT READ 00086 M00S00078.1ri +++| WDDS EQU /CPS/WDDS *PIOM* DIRECT WRITE 00087 M00S00079.1ri +++| SPACE 4,10 00088 M00S00080.1ri +++|** DIRECT LOCATION ASSIGNMENTS. 00089 M00S00081.1ri +++| 00090 M00S00082.1ri +++| 00091 M00S00083.1ri +++| T8 EQU 16 SCRATCH 00092 M00S00084.1ri +++| T9 EQU 17 SCRATCH 00093 M00S00085.1ri +++| FS EQU 20 - 24 SCRATCH (5 CELLS) 00094 M00S00086.1ri +++| EP EQU 25 SPECIAL ENTRY POINT FLAGS FROM *SEPW*
| Line S00087 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00095 M01S00087.271l716 ---|* EQU 26 UNUSED
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00096 M01S00006.271l716 +++| PR EQU 26 0 IF PSEUDO-ROLLIN 00097 M00S00088.1ri +++| DS EQU 27 DRIVER STATUS
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00098 M02S00007.273l780 ---| NC EQU DS NUMBER OF CONTROL POINTS 00099 M00S00089.1ri +++| CN EQU 30 - 34 SCRATCH (5 CELLS) 00100 M00S00090.1ri +++| CI EQU 35 ROLLOUT FILE INDEX 00101 M00S00091.1ri +++| TW EQU 36 CONSTANT 2 00102 M00S00092.1ri +++| EO EQU 37 EJT ORDINAL 00103 M00S00093.1ri +++| TN EQU 40 TERMINAL NUMBER 00104 M00S00094.1ri +++| TT EQU 41 - 42 TERMINAL TABLE ADDRESS (2 CELLS) 00105 M00S00095.1ri +++| PP EQU 43 POT POINTER 00106 M00S00096.1ri +++| PA EQU 44 - 45 POT ADDRESS (2 CELLS) 00107 M00S00097.1ri +++| TA EQU 46 *IAF* RA 00108 M00S00098.1ri +++| FA EQU 57 DM* FILE FNT ADDRESS 00109 M00S00099.1ri +++| ZR EQU 60 - 64 CM ZERO WORD (5 CELLS) 00110 M00S00100.1ri +++| EF EQU 65 ERROR FLAG 00111 M00S00101.1ri +++| DI EQU 66 *UJNI*+2 (USED TO DISABLE PROCESSING) 00112 M00S00102.1ri +++| LW EQU 67 ADDRESS OF LAST CM WORD ROLLED IN 00113 M00S00103.1ri +++| 00114 M00S00104.1ri +++| 00115 M00S00105.1ri +++|**** 00116 M00S00106.1ri +++| SPACE 4,10 00117 M00S00107.1ri +++|** SYSTEM SECTOR LOCATIONS RELATIVE TO START OF SECTOR. 00118 M00S00108.1ri +++|
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00119 M01S00008.271l716 +++| TYSS EQU FNSS-BFMS-2 FILE TYPE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2685 |
Seq # *Modification Id* Act ----------------------------+ 00120 M01S00001.ns2685 +++| DMFA EQU FASS-BFMS-2 DM* FILE LOCAL FNT ADDRESS 00121 M00S00109.1ri +++| SSSS EQU SJSS-BFMS-2 SSJ= JOB FLAG 00122 M00S00110.1ri +++| DPFL EQU DPSS-BFMS-2 *DMP=* FL CONTROL
| Line S00111 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00123 M01S00111.271l716 ---| CSCS EQU CSSS-BFMS-2 SERVICE CLASS CHANGE
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00124 M01S00009.271l716 +++| SCCS EQU CSSS-BFMS-2 SERVICE CLASS CHANGE 00125 M00S00112.1ri +++| RRSS EQU R1SS-BFMS-2 RECOVER TABLE 00126 M00S00113.1ri +++| QBSS EQU QASS-BFMS-2 DELAYED *ALTER* FLAGS 00127 M00S00114.1ri +++| EJRO EQU EJSS-BFMS-2 EJT ENTRY AT ROLLOUT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 00128 M01S00001.ns2738 +++| SCPC EQU COSS-BFMS-2 SCP CONNECTIONS FROM CPA WORD *SSCW* 00129 M00S00115.1ri +++| TITLE MACROS. 00130 M00S00116.1ri +++| SPACE 4,10 00131 M00S00117.1ri +++|** MACRO DEFINITIONS. 00132 M00S00118.1ri +++| RESTOR SPACE 4,25 00133 M00S00119.1ri +++|** RESTOR - SET CONTROL POINT AREAS TO RESTORE. 00134 M00S00120.1ri +++|* 00135 M00S00121.1ri +++|* RESTOR WORD,BYTE,MASK 00136 M00S00122.1ri +++|* 00137 M00S00123.1ri +++|* ENTRY *WORD* = CONTROL POINT AREA WORD OFFSET. 00138 M00S00124.1ri +++|* = BLANK, IF TABLE TERMINATOR. 00139 M00S00125.1ri +++|* *BYTE* = BYTE OFFSET WITHIN WORD. 00140 M00S00126.1ri +++|* = *, IF ENTIRE CM WORD TO BE RESET. 00141 M00S00127.1ri +++|* *MASK* = BYTE MASK OF AREAS TO BE RESET. 00142 M00S00128.1ri +++|* = *, IF ENTIRE BYTE TO BE RESET. 00143 M00S00129.1ri +++|* 00144 M00S00130.1ri +++|* EXIT TABLE ENTRY SET UP. 00145 M00S00131.1ri +++|*T 1/W,11/OFFSET (IF W=1, ENTIRE CM WORD TO MOVE)
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "", "bits": ENTIRE CM WORD TO MOVE), "type": 3 }, { "name": "OFFSET (IF W=1", "bits": 11, "type": 2 }, { "name": "W", "bits": 1, "type": 1 } ] is invalid. Please check your syntax and try again.
00146 M00S00132.1ri +++|*T, 1/W,11/OFFSET,12/MASK (IF W=0, ONE BYTE TO MOVE)
Figure
Bitfield Rendering Failure ======== ========= ======= The field description [ { "name": "", "bits": ONE BYTE TO MOVE), "type": 4 }, { "name": "MASK (IF W=0", "bits": 12, "type": 3 }, { "name": "OFFSET", "bits": 11, "type": 2 }, { "name": "W", "bits": 1, "type": 1 } ] is invalid. Please check your syntax and try again.
00147 M00S00133.1ri +++|* 00148 M00S00134.1ri +++|* DEFINE .1 = CPA SEGMENT FLAG. 00149 M00S00135.1ri +++|* = 0, IF FIRST HALF OF CPA. 00150 M00S00136.1ri +++|* = 1, IF SECOND HALF OF CPA. 00151 M00S00137.1ri +++|* .2 = WORD OFFSET IN CPA SEGMENT. 00152 M00S00138.1ri +++|* = *WORD*, IF *WORD* .LT. 100. 00153 M00S00139.1ri +++|* = *WORD*-100, IF *WORD* .GE. 100. 00154 M00S00140.1ri +++| 00155 M00S00141.1ri +++| 00156 M00S00142.1ri +++| PURGMAC RESTOR 00157 M00S00143.1ri +++| 00158 M00S00144.1ri +++| MACRO RESTOR,LABEL,WORD,BYTE,MASK 00159 M00S00145.1ri +++| IFC NE,$LABEL$$,2 00160 M00S00146.1ri +++| .1 SET 0 00161 M00S00147.1ri +++| LABEL BSS 0 00162 M00S00148.1ri +++| .A IFC EQ,$WORD$$ 00163 M00S00149.1ri +++| CON 0 00164 M00S00150.1ri +++| .A ELSE 00165 M00S00151.1ri +++| .2 SET WORD 00166 M00S00152.1ri +++| .B IFGE WORD,100 00167 M00S00153.1ri +++| .2 SET .2-100 00168 M00S00154.1ri +++| .C IFNE .1,1 00169 M00S00155.1ri +++| CON 0 00170 M00S00156.1ri +++| .1 SET 1 00171 M00S00157.1ri +++| .C ENDIF 00172 M00S00158.1ri +++| .B ELSE 00173 M00S00159.1ri +++| .D IFEQ .1,1 00174 M00S00160.1ri +++| ERR - TABLE SEQUENCE ERROR. 00175 M00S00161.1ri +++| .D ENDIF 00176 M00S00162.1ri +++| .B ENDIF 00177 M00S00163.1ri +++| .E IFC EQ,$BYTE$*$ 00178 M00S00164.1ri +++| CON 4000+.2*5 00179 M00S00165.1ri +++| .E ELSE 00180 M00S00166.1ri +++| CON .2*5+BYTE 00181 M00S00167.1ri +++| .F IFC EQ,$MASK$*$ 00182 M00S00168.1ri +++| CON 7777 00183 M00S00169.1ri +++| .F ELSE 00184 M00S00170.1ri +++| CON MASK 00185 M00S00171.1ri +++| ENDIF 00186 M00S00172.1ri +++| RESTOR ENDM 00187 M00S00173.1ri +++| TITLE MAIN PROGRAM. 00188 M00S00174.1ri +++| RIJ SPACE 4,10 00189 M00S00175.1ri +++|** RIJ - MAIN PROGRAM. 00190 M00S00176.1ri +++| 00191 M00S00177.1ri +++| 00192 M00S00178.1ri +++| ORG PPFW 00193 M00S00179.1ri +++|
| Line S00180 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00194 M01S00180.271l716 ---| LIST X 00195 M00S00181.1ri +++| RIJ BSS 0 00196 M00S00182.1ri +++| RJM PRS PRESET
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00197 M01S00010.271l716 +++| RIJG EQU * 00198 M00S00183.1ri +++| SETMS READSTR,NS REQUEST STREAMED DATA ON BUFFERED DEVICE
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00199 M01S00011.271l716 +++|* UJN RIJ1 (PSEUDO-ROLLIN) 00200 M00S00184.1ri +++| 00201 M00S00185.1ri +++|* READ ROLLOUT FILE. 00202 M00S00186.1ri +++| 00203 M00S00187.1ri +++| RJM SYS READ SYSTEM SECTOR 00204 M00S00188.1ri +++| 00205 M00S00189.1ri +++| SEQ EQU *-2
| Line S00190 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00206 M01S00190.271l716 ---| SEQUENCE CPAI,CPA READ CONTROL POINT AREA
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00207 M01S00012.271l716 +++| RIJ1 SEQUENCE CPAI,CPA READ CONTROL POINT AREA 00208 M00S00191.1ri +++|* UJN *+2 (NO CONTROL POINT)
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00209 M01S00013.271l716 +++|* RJM TCP (PSEUDO-ROLLIN) 00210 M00S00192.1ri +++| SEQUENCE TOPI,/3RH/TOP SKIP TERMINAL OUTPUT 00211 M00S00193.1ri +++|* UJN *+2 (NON-INTERACTIVE/DETACHED INTERACTIVE JOB)
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00212 M01S00014.271l716 +++|* UJN RIJ2.1 (PSEUDO-ROLLIN) 00213 M00S00194.1ri +++| SEQUENCE JFLI,JFL READ JOB CM FIELD LENGTH 00214 M00S00195.1ri +++|* UJN *+2 (NO CM FL) 00215 M00S00196.1ri +++| SEQUENCE JECI,JEC READ JOB EXTENDED MEMORY FIELD LENGTH 00216 M00S00197.1ri +++|* UJN *+2 (NO EXTENDED MEMORY FL) 00217 M00S00198.1ri +++| 00218 M00S00199.1ri +++| ENDMS 00219 M00S00200.1ri +++| 00220 M00S00201.1ri +++|* CLEAR ADDITIONAL NFL IF INCREASE WAS REQUESTED. ADJUST RA AND 00221 M00S00202.1ri +++|* FL BY NFL SIZE. 00222 M00S00203.1ri +++| 00223 M00S00204.1ri +++| RIJ2 BSS 0 REENTRY AFTER PROCESSING ERROR 00224 M00S00205.1ri +++| RJM AFL CLEAR INCREASED NFL, ADJUST RA AND FL 00225 M00S00206.1ri +++|* UJN *+2 (DMP= CALL) 00226 M00S00207.1ri +++| RIJA EQU *-2 00227 M00S00208.1ri +++| PAUSE ST RESET *RA* AND *FL* 00228 M00S00209.1ri +++| 00229 M00S00210.1ri +++|* INITIATE JOB STEP FOR ON-LINE INTERACTIVE JOBS. 00230 M00S00211.1ri +++| 00231 M00S00212.1ri +++| RJM /3RH/PRS PRESET FOR ON-LINE INTERACTIVE JOB 00232 M00S00213.1ri +++|* UJN *+2 (NOT ON-LINE INTERACTIVE ROLLIN) 00233 M00S00214.1ri +++| RIJB EQU *-2 00234 M00S00215.1ri +++| 00235 M00S00216.1ri +++| RJM /3RH/EDA INITIATE JOB STEP 00236 M00S00217.1ri +++|* UJN *+2 (NOT ON-LINE INTERACTIVE ROLLIN) 00237 M00S00218.1ri +++| RIJC EQU *-2 00238 M00S00219.1ri +++| 00239 M00S00220.1ri +++|* UPDATE EXCHANGE PACKAGE, RESTORE FIRST SECTOR OF CONTROL 00240 M00S00221.1ri +++|* POINT AREA, CLEAR SECURE MEMORY. 00241 M00S00222.1ri +++|
| Line S00223 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00242 M01S00223.271l716 ---| RJM RCP RESTORE CONTROL POINT AREA
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00243 M01S00015.271l716 +++| RIJ2.1 RJM RCP RESTORE CPA 00244 M00S00224.1ri +++|* RJM /3RG/RCP (DMP= CALL) 00245 M00S00225.1ri +++| RIJD EQU *-1 00246 M00S00226.1ri +++| 00247 M00S00227.1ri +++|* PROCESS POSSIBLE ERROR FLAG FROM EJT ENTRY. CHECK FOR CPU 00248 M00S00228.1ri +++|* TIME LIMIT OR SRU LIMIT. 00249 M00S00229.1ri +++| 00250 M00S00230.1ri +++| RJM PEF PROCESS ERROR FLAG
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00251 M01S00016.271l716 +++|* UJN RIJ3 (PSEUDO-ROLLIN) 00252 M01S00017.271l716 +++| RIJJ EQU *-2 00253 M00S00231.1ri +++| MJN RIJ3 IF AN ERROR FLAG IS SET 00254 M00S00232.1ri +++| RJM PLI PROCESS LIMIT INCREASE 00255 M00S00233.1ri +++|* UJN *+2 (NOT ROLLIN OF ON-LINE INTERACTIVE JOB) 00256 M00S00234.1ri +++| RIJE EQU *-2 00257 M00S00235.1ri +++| RIJ3 RJM CJS CHANGE JOB STATUS 00258 M00S00236.1ri +++| 00259 M00S00237.1ri +++|* MOVE ERROR FLAG TO CONTROL POINT AREA. 00260 M00S00238.1ri +++| 00261 M00S00239.1ri +++| LDD EF 00262 M00S00240.1ri +++| ZJN RIJ4 IF NO ERROR FLAG 00263 M00S00241.1ri +++| STD CM+1 00264 M00S00242.1ri +++| SHN 21-13 00265 M00S00243.1ri +++| MJN RIJ4 IF INTERNAL ERROR FLAG 00266 M00S00244.1ri +++| MONITOR CEFM 00267 M00S00245.1ri +++| RIJ4 LDM CBUF+5*STSW+2 00268 M00S00246.1ri +++| NJP RIJ8 IF ROLLOUT STATUS PRESENT 00269 M00S00247.1ri +++| LDM ERSF 00270 M00S00248.1ri +++| ZJN RIJ5 IF PP RECALL QUEUE EMPTY 00271 M00S00249.1ri +++| LDM RIJF 00272 M00S00250.1ri +++| ZJN RIJ5 IF NO CPU ACTIVITY 00273 M00S00251.1ri +++| LDC UJNI+ERS9-ERSE 00274 M00S00252.1ri +++| ERRPL ERS9-ERSE-40 RANGE ERROR 00275 M00S00253.1ri +++| STM ERSE 00276 M00S00254.1ri +++| RIJ5 RJM ERS PROCESS PP RECALL QUEUE 00277 M00S00255.1ri +++| LDC ** 00278 M00S00256.1ri +++| RIJF EQU *-1 (CPU ACTIVITY FLAG) 00279 M00S00257.1ri +++| ZJP RIJ12 IF NO CPU ACTIVITY 00280 M00S00258.1ri +++| LDD EF 00281 M00S00259.1ri +++| NJP RIJ12 IF ERROR FLAG SET 00282 M00S00260.1ri +++| LDM ERSJ 00283 M00S00261.1ri +++| NJN RIJ7 IF AUTO-RECALL ENTRY FOUND 00284 M00S00262.1ri +++| LDN /CPS/CRCS SET TO START CPU 00285 M00S00263.1ri +++| RAM RIJH
| Line S00264 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00286 M01S00264.271l716 ---| RIJ7 LDN /CPS/DPPS CLEAR JOB ADVANCE AND DROP PP 00287 M01S00265.271l716 ---|* LDN /CPS/DPPS+/CPS/CRCS ALSO RESTART CPU
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00288 M01S00018.271l716 +++| RIJ7 LDC /CPS/DPPS 00289 M01S00019.271l716 +++|* LDC /CPS/DPPS+/CPS/CRCS (ALSO RESTART CPU)
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00290 M02S00020.273l780 ---|* LDC /CPS/DPPS+/CPS/CRCS+4000 (PSEUDO-ROLLIN) 00291 M00S00266.1ri +++| RIJH EQU *-1 00292 M00S00267.1ri +++| STD CM+1
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00293 M02S00021.273l780 ---| LDD T6 SET POSSIBLE PCP NUMBER 00294 M02S00022.273l780 ---| STD CM+2 00295 M00S00268.1ri +++| MONITOR JACM 00296 M00S00269.1ri +++| UJN RIJ11 EXIT TO PP RESIDENT 00297 M00S00270.1ri +++| 00298 M00S00271.1ri +++|* CALL *1AJ*. 00299 M00S00272.1ri +++| 00300 M00S00273.1ri +++| RIJ8 LDM ERSF RESET PP RECALL COUNT 00301 M00S00274.1ri +++| SHN 4 00302 M00S00275.1ri +++| ADM ERSF SET CURRENT QUEUE POINTER 00303 M00S00276.1ri +++| ADN 1 00304 M00S00277.1ri +++| STM CBUF+5*STSW+4 00305 M00S00278.1ri +++| LDD CP 00306 M00S00279.1ri +++| ADN STSW 00307 M00S00280.1ri +++| CWM CBUF+5*STSW,ON 00308 M00S00281.1ri +++| LDN 0 00309 M00S00282.1ri +++| RIJ9 STD IR+2 00310 M00S00283.1ri +++|* UJN RIJ7 (DMP= ROLLIN) 00311 M00S00284.1ri +++| RIJI EQU *-1 00312 M00S00285.1ri +++| STD IR+4 00313 M00S00286.1ri +++| EXECUTE 1AJ,= CALL *1AJ* INTO THIS PP 00314 M00S00287.1ri +++| LCN 1RR-1RA 00315 M00S00288.1ri +++| RAD IR 00316 M00S00289.1ri +++| LDD HN 00317 M00S00290.1ri +++| RAD IR+1 00318 M00S00291.1ri +++| RIJ10 LDD IA WRITE *1AJ* CALL TO PP INPUT REGISTER 00319 M00S00292.1ri +++| CWD IR
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00320 M02S00023.273l780 ---| UJN *+2 CONTINUE 00321 M02S00024.273l780 ---|* RJM RPC (PSEUDO-ROLLIN) 00322 M02S00025.273l780 ---| RIJK EQU *-1 00323 M02S00026.273l780 ---| CON RPC RELEASE PCP 00324 M00S00293.1ri +++| RIJ11 LJM PPR CALL *1AJ* 00325 M00S00294.1ri +++| 00326 M00S00295.1ri +++| RIJ12 LDM ERSF 00327 M00S00296.1ri +++| ZJN RIJ9 IF NO PP ACTIVITY 00328 M00S00297.1ri +++| SBN 1 00329 M00S00298.1ri +++| NJN RIJ13 IF MORE THAN *1AJ* IN RECALL QUEUE 00330 M00S00299.1ri +++| LDD CI 00331 M00S00300.1ri +++| NJN RIJ10 IF ONLY *1AJ* IN RECALL QUEUE 00332 M00S00301.1ri +++| RIJ13 LJM RIJ7 CLEAR JOB ADVANCE AND DROP PP 00333 M00S00302.1ri +++| TITLE ROLLOUT FILE READ ROUTINES. 00334 M00S00303.1ri +++| CPA SPACE 4,10 00335 M00S00304.1ri +++|** CPA - READ CONTROL POINT AREA. 00336 M00S00305.1ri +++|* 00337 M00S00306.1ri +++|* CALLS MSR, RNS. 00338 M00S00307.1ri +++| 00339 M00S00308.1ri +++| 00340 M00S00309.1ri +++| CPA SUBR ENTRY/EXIT 00341 M00S00310.1ri +++| LDC CBUF-2 READ FIRST SECTOR OF CPA 00342 M00S00311.1ri +++| RJM RNS READ NEXT SECTOR 00343 M00S00312.1ri +++| SHN -6 00344 M00S00313.1ri +++| ZJN CPA1 IF SHORT SECTOR 00345 M00S00314.1ri +++| LDC BFMS 00346 M00S00315.1ri +++|* LDC /3RG/RBFF (DMP= CALL) 00347 M00S00316.1ri +++| CPAA EQU *-1 00348 M00S00317.1ri +++| RJM RNS READ NEXT SECTOR 00349 M00S00318.1ri +++| SHN -6 00350 M00S00319.1ri +++| NJN CPA2 IF NOT SHORT SECTOR 00351 M00S00320.1ri +++| CPA1 RJM MSR PROCESS ERROR - NO RETURN 00352 M00S00321.1ri +++| RJM HNG HANG PP 00353 M00S00322.1ri +++| 00354 M00S00323.1ri +++| CPA2 LDD IR+2 00355 M00S00324.1ri +++| STM CPAB SET CPA ROLLED IN FLAG IF DMP= CALL 00356 M00S00325.1ri +++| NJN CPAX IF DMP= CALL 00357 M00S00326.1ri +++| LDD CP WRITE SECOND SECTOR IN CPA 00358 M00S00327.1ri +++| ADD HN 00359 M00S00328.1ri +++| CWM BFMS+2,HN 00360 M00S00329.1ri +++| UJN CPAX RETURN 00361 M00S00330.1ri +++| 00362 M00S00331.1ri +++| CPAB CON 0 NON-ZERO IF CPA ROLLED IN AND DMP= CALL 00363 M00S00332.1ri +++| HNG SPACE 4,10 00364 M00S00333.1ri +++|** HNG - HANG PP. 00365 M00S00334.1ri +++| 00366 M00S00335.1ri +++| 00367 M00S00336.1ri +++| HNG CON 0 ENTRY 00368 M00S00337.1ri +++| HNG1 MONITOR HNGM 00369 M00S00338.1ri +++| UJN HNG1 DO NOT ALLOW OPERATOR TO CLEAR THE HANG 00370 M00S00339.1ri +++| JFL SPACE 4,15 00371 M00S00340.1ri +++|** JFL - READ JOB CM FIELD LENGTH. 00372 M00S00341.1ri +++|* 00373 M00S00342.1ri +++|* ENTRY (JFLB) = 1 IF NON-RESTART *DMP=* CALL. 00374 M00S00343.1ri +++|* (DI) = *UJNI*+2. 00375 M00S00344.1ri +++|* 00376 M00S00345.1ri +++|* EXIT (LW) = LWA+1 OF CM FL ROLLED IN (USED AS ECS ROLLIN 00377 M00S00346.1ri +++|* BUFFER ADDRESS). 00378 M00S00347.1ri +++|* 00379 M00S00348.1ri +++|* USES T8, CI, LW. 00380 M00S00349.1ri +++|* 00381 M00S00350.1ri +++|* CALLS RIM. 00382 M00S00351.1ri +++|* 00383 M00S00352.1ri +++|* MACROS ENDMS. 00384 M00S00353.1ri +++| 00385 M00S00354.1ri +++| 00386 M00S00355.1ri +++| JFL4 LDD DI DISABLE EXTENDED MEMORY ROLLIN 00387 M00S00356.1ri +++| STM JECI*2+SEQ 00388 M00S00357.1ri +++| LDN 0 SET NFL ONLY ROLLIN 00389 M00S00358.1ri +++| STM AFLB 00390 M00S00359.1ri +++| LDM CBUF+5*FLSW ROLLIN NFL ONLY 00391 M00S00360.1ri +++| RJM RIM ROLLIN MEMORY 00392 M00S00361.1ri +++| 00393 M00S00362.1ri +++| JFL SUBR ENTRY/EXIT 00394 M00S00363.1ri +++| UJN *+2 00395 M00S00364.1ri +++|* ENDMS (ROLLOUT DEVICE IS EXTENDED MEMORY) 00396 M00S00365.1ri +++| JFLA EQU *-1 00397 M00S00366.1ri +++| CON .EMS 00398 M00S00367.1ri +++| LDM CBUF+FLIW*5+2 INITIALIZE ROLLIN INDEX 00399 M00S00368.1ri +++| STD CI 00400 M00S00369.1ri +++| LDM EJBF+SCLE*5+4 00401 M00S00370.1ri +++| ZJN JFL4 IF ONLY NFL SHOULD BE ASSIGNED 00402 M00S00371.1ri +++| LDM CBUF+5*FLSW+4 00403 M00S00372.1ri +++| ZJN JFL4 IF NO CM FL TO ROLLIN 00404 M00S00373.1ri +++| SBN MCMX/100/2 PRESET AMOUNT OF CM TO ROLLIN 00405 M00S00374.1ri +++| STD T8 00406 M00S00375.1ri +++| LDN 0 00407 M00S00376.1ri +++|* LDN 1 (NON-RESTART DMP= CALL) 00408 M00S00377.1ri +++| JFLB EQU *-1 00409 M00S00378.1ri +++| ZJN JFL1 IF NOT RESTART DMP= CALL 00410 M00S00379.1ri +++| LDM SBUF+DPFL 00411 M00S00380.1ri +++| NJN JFL2 IF NOT FULL DUMP 00412 M00S00381.1ri +++| JFL1 LDM CBUF+5*ECSW+4 00413 M00S00382.1ri +++| NJN JFL3 IF EXTENDED MEMORY ASSIGNED 00414 M00S00383.1ri +++| LDM CBUF+5*FLSW+4 00415 M00S00384.1ri +++| JFL2 STD T8 SET AMOUNT OF CM TO ROLLIN 00416 M00S00385.1ri +++| LDD DI DISABLE EXTENDED MEMORY ROLLIN 00417 M00S00386.1ri +++| STM JECI*2+SEQ 00418 M00S00387.1ri +++| JFL3 LDD T8 SET ROLLIN LWA 00419 M00S00388.1ri +++| ADD CI ADD NFL INCREASE AMOUNT 00420 M00S00389.1ri +++|* PSN (DMP= CALL) 00421 M00S00390.1ri +++| JFLC EQU *-1 00422 M00S00391.1ri +++| STD LW SET EXTENDED MEMORY BUFFER ADDRESS 00423 M00S00392.1ri +++| RJM RIM ROLLIN MEMORY 00424 M00S00393.1ri +++| LJM JFLX RETURN
| Line S00394 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00425 M01S00394.273l780 ---| JEC SPACE 4,15
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00426 M01S00001.273l780 +++| JEC SPACE 4,10 00427 M00S00395.1ri +++|** JEC - READ JOB EXTENDED MEMORY FIELD LENGTH. 00428 M00S00396.1ri +++|* 00429 M00S00397.1ri +++|* ENTRY (LW) = LWA+1 OF CM FL ROLLED IN. 00430 M00S00398.1ri +++|* 00431 M00S00399.1ri +++|* USES CM - CM+4, T8, CN - CN+2, CI. 00432 M00S00400.1ri +++|* 00433 M00S00401.1ri +++|* CALLS MSR, RIM. 00434 M00S00402.1ri +++|* 00435 M00S00403.1ri +++|* ERROR TO *MSR* IF ECS/ESM ERROR OCCURS.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00436 M01S00002.273l780 +++|* TO *HNG* IF TO HANG PP ON ERROR. 00437 M00S00404.1ri +++| 00438 M00S00405.1ri +++| 00439 M00S00406.1ri +++| JEC SUBR ENTRY/EXIT 00440 M00S00407.1ri +++| LDN MCMX/100/4 SET EXTENDED MEMORY BUFFER SIZE 00441 M00S00408.1ri +++| STD T8 00442 M00S00409.1ri +++| LDM CBUF+ECSW*5+4 00443 M00S00410.1ri +++| JECC SHN 0 00444 M00S00411.1ri +++|* SHN UESC (CONVERT TO 1000B-WORD BLOCKS) 00445 M00S00412.1ri +++| STD CN+2 00446 M00S00413.1ri +++| SHN -14 00447 M00S00414.1ri +++| STD CN+1 00448 M00S00415.1ri +++| NJN JEC1 IF FULL BUFFER PRESENT 00449 M00S00416.1ri +++| LDD CN+2 00450 M00S00417.1ri +++| SHN 3 00451 M00S00418.1ri +++| SBD T8 00452 M00S00419.1ri +++| PJN JEC1 IF FULL BUFFER PRESENT 00453 M00S00420.1ri +++| RAD T8 ADJUST BUFFER SIZE 00454 M00S00421.1ri +++| JEC1 LDD CP 00455 M00S00422.1ri +++| CWD ZR 00456 M00S00423.1ri +++| 00457 M00S00424.1ri +++|* ROLLIN EXTENDED MEMORY. 00458 M00S00425.1ri +++| 00459 M00S00426.1ri +++| LDD LW SET BUFFER ADDRESS 00460 M00S00427.1ri +++| STD CN 00461 M00S00428.1ri +++| ADN MCMX/100/4 00462 M00S00429.1ri +++| LMD CN SET TOGGLE CONSTANT 00463 M00S00430.1ri +++| STM JECA 00464 M00S00431.1ri +++| LDD CN READ BUFFER FULL 00465 M00S00432.1ri +++| STD CI 00466 M00S00433.1ri +++| ADD T8 00467 M00S00434.1ri +++| JEC2 RJM RIM 00468 M00S00435.1ri +++| LDD CN 00469 M00S00436.1ri +++| STM JECB+1*5+2 00470 M00S00437.1ri +++| LMC * 00471 M00S00438.1ri +++| JECA EQU *-1 00472 M00S00439.1ri +++|* LMC N (TOGGLE CONSTANT) 00473 M00S00440.1ri +++| STD CI 00474 M00S00441.1ri +++| STD CN 00475 M00S00442.1ri +++| JEC3 LDD OA WAIT *OR* CLEAR 00476 M00S00443.1ri +++| CRD CM 00477 M00S00444.1ri +++| LDD CM
| Line S00445 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00478 M01S00445.271l716 ---| NJN JEC3 IF *ECXM* FUNCTION NOT COMPLETE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00479 M01S00027.271l716 +++| NJN JEC3 IF *RCXM*/*ECXM* INCOMPLETE 00480 M00S00446.1ri +++| JEC4 LDD CP READ STATUS WORD 00481 M00S00447.1ri +++| CRD CM 00482 M00S00448.1ri +++| LDD CM 00483 M00S00449.1ri +++| NJN JEC4 IF TRANSFER NOT COMPLETE
| Line S00450 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00484 M01S00450.271l716 ---| LDD T8 SET *ECXM* WORD COUNT
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00485 M01S00028.271l716 +++| LDD T8 SET *RCXM*/*ECXM* WORD COUNT 00486 M00S00451.1ri +++| SHN 6 00487 M00S00452.1ri +++| STM JECB+5 00488 M00S00453.1ri +++| LDD CM+1 00489 M00S00454.1ri +++| NJP JEC8 IF ERROR 00490 M00S00455.1ri +++| LDD CP SET INTERLOCK BUSY 00491 M00S00456.1ri +++| CWD ON 00492 M00S00457.1ri +++| LDD OA WRITE *MTR* REQUEST 00493 M00S00458.1ri +++| CWM JECB,TW 00494 M00S00459.1ri +++| LDN MCMX/4/1000 ADVANCE EXTENDED MEMORY ADDRESS 00495 M00S00460.1ri +++| RAM JECB+1*5+4 00496 M00S00461.1ri +++| SHN -14 00497 M00S00462.1ri +++| RAM JECB+1*5+3 00498 M00S00463.1ri +++| SBD CN+1 00499 M00S00464.1ri +++| MJN JEC5 IF NOT DONE 00500 M00S00465.1ri +++| LDM JECB+1*5+4 00501 M00S00466.1ri +++| SBD CN+2 00502 M00S00467.1ri +++| PJN JEC6 IF DONE 00503 M00S00468.1ri +++| SHN 3 00504 M00S00469.1ri +++| ADD T8 00505 M00S00470.1ri +++| MJN JEC5 IF FULL BUFFER REMAINS 00506 M00S00471.1ri +++| STD T8 00507 M00S00472.1ri +++| LDN MCMX/100/4 00508 M00S00473.1ri +++| SBD T8 00509 M00S00474.1ri +++| STD T8 00510 M00S00475.1ri +++| JEC5 LDD T8 00511 M00S00476.1ri +++| ADD CI 00512 M00S00477.1ri +++| UJP JEC2 CONTINUE ROLLIN 00513 M00S00478.1ri +++| 00514 M00S00479.1ri +++| JEC6 LDD OA WAIT OR CLEAR 00515 M00S00480.1ri +++| CRD CM 00516 M00S00481.1ri +++| LDD CM
| Line S00482 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00517 M01S00482.271l716 ---| NJN JEC6 IF *ECXM* FUNCTION NOT COMPLETE
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00518 M01S00029.271l716 +++| NJN JEC6 IF *RCXM/ECXM* INCOMPLETE 00519 M00S00483.1ri +++| JEC7 LDD CP 00520 M00S00484.1ri +++| CRD CM 00521 M00S00485.1ri +++| LDD CM 00522 M00S00486.1ri +++| NJN JEC7 IF TRANSFER NOT COMPLETE 00523 M00S00487.1ri +++| LDD CM+1 00524 M00S00488.1ri +++| JEC8 ZJN JEC9 IF NO ERROR 00525 M00S00489.1ri +++| RJM MSR PROCESS ERROR - NO RETURN 00526 M00S00490.1ri +++| RJM HNG HANG PP 00527 M00S00491.1ri +++| 00528 M00S00492.1ri +++|* ROLLIN LAST PART OF CM. 00529 M00S00493.1ri +++| 00530 M00S00494.1ri +++| JEC9 LDD LW SET FWA TO ROLL IN 00531 M00S00495.1ri +++| STD CI 00532 M00S00496.1ri +++| ADN MCMX/100/2 SET AMOUNT TO ROLLIN 00533 M00S00497.1ri +++| RJM RIM 00534 M00S00498.1ri +++| LJM JECX RETURN 00535 M00S00499.1ri +++| 00536 M00S00500.1ri +++|
| Line S00501 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00537 M01S00501.271l716 ---| JECB VFD 12/ECXM PPU MONITOR FUNCTION 00538 M01S00502.271l716 ---| VFD 6/0 00539 M01S00503.271l716 ---| VFD 18/0 ALTERNATE RESPONSE ADDRESS 00540 M01S00504.271l716 ---| VFD 3/1 WRITE REQUEST 00541 M01S00505.271l716 ---| VFD 21/0
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00542 M01S00030.271l716 +++| JECB VFD 12/RCXM EM TRANSFER FUNCTION PROCESSED BY *MTR*
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00543 M02S00031.273l780 ---| VFD 1/0 ALTERNATE CP/PCP FLAG 00544 M02S00032.273l780 ---| VFD 11/0 00545 M02S00033.273l780 ---| VFD 12/0 CP/PCP 00546 M02S00034.273l780 ---| VFD 5/0
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00547 M01S00003.273l780 +++| VFD 29/0
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00548 M01S00035.271l716 +++| VFD 1/1 FUNCTION TYPE = WRITE 00549 M01S00036.271l716 +++| VFD 18/0 ALTERNATE RESPONSE ADDRESS 00550 M00S00506.1ri +++| 00551 M00S00507.1ri +++| VFD 12/MCMX/4 WORD COUNT 00552 M00S00508.1ri +++| VFD 12/0 00553 M00S00509.1ri +++| VFD 12/0 CM ADDRESS/100B (RELATIVE) 00554 M00S00510.1ri +++| VFD 24/0 EXTENDED MEMORY ADDRESS/1000B (RELATIVE) 00555 M00S00511.1ri +++| TITLE SUBROUTINES. 00556 M00S00512.1ri +++| AFL SPACE 4,10 00557 M00S00513.1ri +++|** AFL - ADJUST RA AND FL. 00558 M00S00514.1ri +++|* 00559 M00S00515.1ri +++|* USES T0, CM - CM+4. 00560 M00S00516.1ri +++|* 00561 M00S00517.1ri +++|* MACROS MONITOR. 00562 M00S00518.1ri +++| 00563 M00S00519.1ri +++| 00564 M00S00520.1ri +++| AFL SUBR ENTRY/EXIT 00565 M00S00521.1ri +++| 00566 M00S00522.1ri +++|* CLEAR ADDITIONAL NFL, IF ANY. 00567 M00S00523.1ri +++| 00568 M00S00524.1ri +++| LDN ZERL 00569 M00S00525.1ri +++| CRD CM 00570 M00S00526.1ri +++| LDN 1 00571 M00S00527.1ri +++|* LDN 0 (MEMORY CLEARING ENABLED) 00572 M00S00528.1ri +++| AFLA EQU *-1 00573 M00S00529.1ri +++| ZJN AFL1 IF MEMORY CLEARING ENABLED 00574 M00S00530.1ri +++| LDM CBUF+5*FLIW+2 00575 M00S00531.1ri +++| ZJN AFL1 IF NO NFL INCREASE 00576 M00S00532.1ri +++| SHN 6 SET WORD COUNT 00577 M00S00533.1ri +++| STD CM+2 00578 M00S00534.1ri +++| LDD HN SET RELATIVE FLAG 00579 M00S00535.1ri +++| STD CM+1 00580 M00S00536.1ri +++| MONITOR CSTM 00581 M00S00537.1ri +++| 00582 M00S00538.1ri +++|* ADJUST RA AND FL BY NFL SIZE. 00583 M00S00539.1ri +++| 00584 M00S00540.1ri +++| AFL1 LDM CBUF+5*FLSW+4 SAVE PREVIOUS CM FL SIZE 00585 M00S00541.1ri +++| SBM CBUF+5*FLSW 00586 M00S00542.1ri +++| STM RCPA 00587 M00S00543.1ri +++| STM CSMA 00588 M00S00544.1ri +++| LDM CBUF+5*FLSW SAVE NEW NFL SIZE 00589 M00S00545.1ri +++| RAM CBUF+5*FLIW+2 00590 M00S00546.1ri +++| LDM CBUF+5*ECSW+4 SAVE PREVIOUS ECS FL SIZE 00591 M00S00547.1ri +++| STM CSMB 00592 M00S00548.1ri +++| LDD CP GET *FLSW*, *FLSW+1* AND *ECSW* FROM CPA 00593 M00S00549.1ri +++| ADN FLSW 00594 M00S00550.1ri +++| CRM CBUF+5*FLSW,TW 00595 M00S00551.1ri +++| ADK ECSW-FLSW-2 00596 M00S00552.1ri +++| CRM CBUF+5*ECSW,ON 00597 M00S00553.1ri +++| LDM CBUF+5*FLIW+2 SET NFL 00598 M00S00554.1ri +++| STM CBUF+5*FLSW 00599 M00S00555.1ri +++| STD T0 00600 M00S00556.1ri +++| LDM CBUF+5*FLSW+2 SET RA - NFL IN *FLSW+1* 00601 M00S00557.1ri +++| STM CBUF+5*FLSW+5*1+1 00602 M00S00558.1ri +++| LDM CBUF+5*FLSW+3 00603 M00S00559.1ri +++| STM CBUF+5*FLSW+5*1+2 00604 M00S00560.1ri +++| LDD T0 00605 M00S00561.1ri +++| RAM CBUF+5*FLSW+3 SET ADJUSTED RA (RA + NFL) 00606 M00S00562.1ri +++| SHN -14 00607 M00S00563.1ri +++| RAM CBUF+5*FLSW+2 00608 M00S00564.1ri +++| LCN 0 ADJUST FL (FL - NFL) 00609 M00S00565.1ri +++| LMD T0 00610 M00S00566.1ri +++| RAM CBUF+5*FLSW+4 00611 M00S00567.1ri +++| STM CBUF+5*FLSW+5*1+4 00612 M00S00568.1ri +++| LDD T0 STORE NFL + 4000 IN *FLSW+1* 00613 M00S00569.1ri +++| LMC 4000 00614 M00S00570.1ri +++| STM CBUF+5*FLSW+5*1+3 00615 M00S00571.1ri +++| LDD CP UPDATE *FLSW* AND *FLSW+1* IN CM 00616 M00S00572.1ri +++| ADN FLSW 00617 M00S00573.1ri +++| CWM CBUF+5*FLSW,TW 00618 M00S00574.1ri +++| LDD EF 00619 M00S00575.1ri +++| ZJN AFL2 IF NO ERROR FLAG PRESENT 00620 M00S00576.1ri +++| LDC * 00621 M00S00577.1ri +++|* LDC 0 (NFL ONLY ROLLIN) 00622 M00S00578.1ri +++| AFLB EQU *-1 00623 M00S00579.1ri +++| NJN AFL2 IF NOT A NFL ONLY ROLLIN 00624 M00S00580.1ri +++| STD CM+1 RELEASE EXTRA FL 00625 M00S00581.1ri +++| LDN 0 00626 M00S00582.1ri +++| STD CM+2 00627 M00S00583.1ri +++| MONITOR RSTM 00628 M00S00584.1ri +++| AFL2 LJM AFLX RETURN 00629 M00S00585.1ri +++| CHG SPACE 4,10 00630 M00S00586.1ri +++|** CHG - CONDITIONAL HANG. 00631 M00S00587.1ri +++|* 00632 M00S00588.1ri +++|* ENTRY (A) = ERROR FLAG TO SET. 00633 M00S00589.1ri +++|* 00634 M00S00590.1ri +++|* USES CM - CM+4. 00635 M00S00591.1ri +++|* 00636 M00S00592.1ri +++|* MACROS MONITOR. 00637 M00S00593.1ri +++| 00638 M00S00594.1ri +++| 00639 M00S00595.1ri +++| CHG SUBR ENTRY/EXIT 00640 M00S00596.1ri +++| STD CM+2 SET ERROR FLAG 00641 M00S00597.1ri +++| LDM CHG P-ADDRESS 00642 M00S00598.1ri +++| STD CM+1 00643 M00S00599.1ri +++| MONITOR CHGM CONDITIONAL HANG 00644 M00S00600.1ri +++| UJN CHGX RETURN 00645 M00S00601.1ri +++| CJS SPACE 4,10 00646 M00S00602.1ri +++|** CJS - CHANGE JOB STATUS. 00647 M00S00603.1ri +++|* 00648 M00S00604.1ri +++|* ENTRY (EO) = EJT ORDINAL (NON-DMP= CALL).
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00649 M01S00037.271l716 +++|* (PR) = 0 IF PSEUDO-ROLLIN. 00650 M00S00605.1ri +++|*
| Line S00606 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00651 M01S00606.271l716 ---|* USES CM+1 - CM+4.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00652 M01S00038.271l716 +++|* USES CM - CM+4, CN - CN+4, FS - FS+4, T1 - T5. 00653 M00S00607.1ri +++|*
| Line S00608 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00654 M01S00608.273l780 ---|* CALLS DRF, SNS, 3RI, 3RJ.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00655 M01S00004.273l780 +++|* CALLS DRF, RPC, SNS, 3RI, 3RJ. 00656 M00S00609.1ri +++|*
| Line S00610 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00657 M01S00610.273l780 ---|* MACROS EXECUTE, MONITOR, SFA.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00658 M01S00005.273l780 +++|* MACROS EXECUTE, SFA. 00659 M00S00611.1ri +++| 00660 M00S00612.1ri +++| 00661 M00S00613.1ri +++| CJS SUBR ENTRY/EXIT 00662 M00S00614.1ri +++| LDN 0 00663 M00S00615.1ri +++|* LDN 1 (*DMP=* CALL) 00664 M00S00616.1ri +++| CJSA EQU *-1 00665 M00S00617.1ri +++| ZJN CJS1 IF NOT DMP= CALL 00666 M00S00618.1ri +++| LJM CJS5 DROP DM* FILE 00667 M00S00619.1ri +++| 00668 M00S00620.1ri +++|* CHECK FOR SERVICE CLASS CHANGE. 00669 M00S00621.1ri +++|
| Line S00622 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00670 M01S00622.271l716 ---| CJS1 LDM SBUF+CSCS
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00671 M01S00039.271l716 +++| CJS1 LDD PR 00672 M01S00040.271l716 +++| ZJN CJS4 IF PSEUDO-ROLLIN 00673 M01S00041.271l716 +++| LDM SBUF+SCCS 00674 M00S00623.1ri +++| ZJN CJS2 IF NO SERVICE CLASS CHANGE 00675 M00S00624.1ri +++| STD CN SAVE SERVICE CLASS FOR *3RI* 00676 M00S00625.1ri +++| EXECUTE 3RI PERFORM SERVICE CLASS CHANGE 00677 M00S00626.1ri +++| 00678 M00S00627.1ri +++|* CHECK FOR DELAYED *ALTER* FUNCTIONS. 00679 M00S00628.1ri +++| 00680 M00S00629.1ri +++| CJS2 LDM SBUF+QBSS 00681 M00S00630.1ri +++| ZJN CJS3 IF NO DELAYED *ALTER* FUNCTIONS 00682 M00S00631.1ri +++| EXECUTE 3RJ PROCESS DELAYED *ALTER* FUNCTIONS 00683 M00S00632.1ri +++| 00684 M00S00633.1ri +++|* CHECK FOR SCP NOTIFICATION REQUIRED. 00685 M00S00634.1ri +++| 00686 M00S00635.1ri +++| CJS3 LDM EJBF+5*JSNE+4 00687 M00S00636.1ri +++| LPN 76 00688 M00S00637.1ri +++| LMN SIJS*2 00689 M00S00638.1ri +++| NJN CJS4 IF NOT *SIJS* JOB STATE 00690 M00S00639.1ri +++| RJM SNS SEND NOTIFICATION OF ROLLIN TO SCP 00691 M00S00640.1ri +++| 00692 M00S00641.1ri +++|* UPDATE THE EJT ENTRY AS FOLLOWS - 00693 M00S00642.1ri +++|* UPDATE CONNECTION STATUS. 00694 M00S00643.1ri +++|* CHANGE JOB STATUS TO *EXJS*. 00695 M00S00644.1ri +++|* CLEAR ROLLOUT FILE ADDRESS. 00696 M00S00645.1ri +++|* CLEAR ERROR FLAG. 00697 M00S00646.1ri +++|* CLEAR FORCED ROLLOUT FLAG. 00698 M00S00647.1ri +++|
| Line S00648 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00699 M01S00648.271l716 ---| CJS4 LDN CJSCL SAVE PARAMETER WORD COUNT 00700 M01S00649.271l716 ---| STD CM+1 00701 M01S00650.271l716 ---| LDN 0 00702 M01S00651.271l716 ---| STD CM+2 00703 M01S00652.271l716 ---| SFA EJT,EO 00704 M01S00653.271l716 ---| STD CM+4 00705 M01S00654.271l716 ---| SHN -14 00706 M01S00655.271l716 ---| STD CM+3 00707 M01S00656.271l716 ---| LDD MA 00708 M01S00657.271l716 ---| CWM CJSC,CM+1 00709 M01S00658.271l716 ---| MONITOR UTEM
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00710 M01S00042.271l716 +++| CJS4 SFA EJT,EO 00711 M01S00043.271l716 +++| ADK JSNE 00712 M01S00044.271l716 +++| CRD T1 00713 M01S00045.271l716 +++| ADK SCHE-JSNE 00714 M01S00046.271l716 +++| CRD CM 00715 M01S00047.271l716 +++| ADK PRFE-SCHE 00716 M01S00048.271l716 +++| CRD CN 00717 M01S00049.271l716 +++| ADK SCLE-PRFE 00718 M01S00050.271l716 +++| CRD FS 00719 M01S00051.271l716 +++| LDD T1+4 UPDATE JOB STATUS AND CONNECTION STATUS 00720 M01S00052.271l716 +++| LPC 4000 PRESERVE SCP/UCP CONNECTION STATUS 00721 M01S00053.271l716 +++| LMM CJSD 00722 M01S00054.271l716 +++| STD T1+4 00723 M01S00055.271l716 +++| LDN 0 CLEAR ROLLOUT FILE ADDRESS 00724 M01S00056.271l716 +++| STD CM 00725 M01S00057.271l716 +++| STD CM+1 00726 M01S00058.271l716 +++| STD CN+1 CLEAR ERROR FLAG 00727 M01S00059.271l716 +++| LDD FS CLEAR FORCED ROLLOUT FLAG 00728 M01S00060.271l716 +++| SCN 40 00729 M01S00061.271l716 +++| STD FS 00730 M01S00062.271l716 +++| SFA EJT,EO 00731 M01S00063.271l716 +++| ADK JSNE 00732 M01S00064.271l716 +++| CWD T1 00733 M01S00065.271l716 +++| ADK SCHE-JSNE 00734 M01S00066.271l716 +++| CWD CM 00735 M01S00067.271l716 +++| ADK PRFE-SCHE 00736 M01S00068.271l716 +++| CWD CN 00737 M01S00069.271l716 +++| ADK SCLE-PRFE 00738 M01S00070.271l716 +++| CWD FS 00739 M00S00659.1ri +++| 00740 M00S00660.1ri +++|* RELEASE ROLLOUT FILE / DM* FILE (DMP= CALL) MASS STORAGE
| Line S00661 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00741 M01S00661.273l780 ---|* SPACE. IF DMP= CALL, DROP DM* FILE FNT/FST ENTRY.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00742 M01S00006.273l780 +++|* SPACE. IF DMP= CALL, DROP DM* FILE FNT/FST ENTRY. IF 00743 M01S00007.273l780 +++|* PSEUDO-ROLLIN, RELEASE PSEUDO-CONTROL POINT. 00744 M00S00662.1ri +++| 00745 M00S00663.1ri +++| CJS5 RJM DRF DROP ROLLOUT FILE
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00746 M02S00071.273l780 ---|* UJN *+2 (PSEUDO-ROLLIN) 00747 M02S00072.273l780 ---| CJSB EQU *-2
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00748 M01S00008.273l780 +++|* RJM RPC (PSEUDO-ROLLIN) 00749 M01S00009.273l780 +++| CJSB EQU *-1 00750 M00S00664.1ri +++| LJM CJSX RETURN 00751 M00S00665.1ri +++|
| Line S00666 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00752 M01S00666.271l716 ---| CJSB BSS 5 PARAMETERS PASSED BY *1SJ* VIA CPA WORD 0
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00753 M01S00073.271l716 +++| CJSC BSS 5 PARAMETERS PASSED BY *1SJ* VIA CPA WORD 0 00754 M00S00667.1ri +++| 00755 M00S00668.1ri +++|
| Line S00669 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00756 M01S00669.271l716 ---|* *UTEM* PARAMETER BLOCK. 00757 M01S00670.271l716 ---| 00758 M01S00671.271l716 ---| CJSC VFD 1/0,5/JSNE,6/10D CONNECTION STATUS AND JOB STATUS 00759 M01S00672.271l716 ---| VFD 6/1,6/0 00760 M01S00673.271l716 ---| CON 0,0,EXJS+40 00761 M01S00674.271l716 ---| 00762 M01S00675.271l716 ---| VFD 1/0,5/SCHE,6/24D ROLLOUT FILE ADDRESS 00763 M01S00676.271l716 ---| VFD 6/36D,6/0 00764 M01S00677.271l716 ---| CON 0,0,0 00765 M01S00678.271l716 ---| 00766 M01S00679.271l716 ---| VFD 1/0,5/PRFE,6/12D ERROR FLAG 00767 M01S00680.271l716 ---| VFD 6/36D,6/0 00768 M01S00681.271l716 ---| CON 0,0,0 00769 M01S00682.271l716 ---| VFD 1/0,5/SCLE,6/1 FORCED ROLLOUT FLAG 00770 M01S00683.271l716 ---| VFD 6/53D,6/0 00771 M01S00684.271l716 ---| CON 0,0,0 00772 M01S00685.271l716 ---| CJSCL EQU */5-CJSC/5 *UTEM* PARAMETER COUNT
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00773 M01S00074.271l716 +++|* EJT DATA BLOCK. 00774 M01S00075.271l716 +++| 00775 M01S00076.271l716 +++| CJSD VFD 1/0 UCP/SCP CONNECTION STATUS 00776 M01S00077.271l716 +++| VFD 4/0 INTERACTIVE CONNECTION STATUS 00777 M01S00078.271l716 +++| VFD 1/1 JOB ADVANCE FLAG 00778 M01S00079.271l716 +++| VFD 5/EXJS JOB STATUS 00779 M01S00080.271l716 +++| VFD 1/1 JOB INTERLOCK FLAG 00780 M00S00686.1ri +++| CSM SPACE 4,10 00781 M00S00687.1ri +++|** CSM - CLEAR SECURE MEMORY. 00782 M00S00688.1ri +++|* 00783 M00S00689.1ri +++|* ENTRY (EP) = ENTRY POINT FLAGS FROM *SEPW*. 00784 M00S00690.1ri +++|* 00785 M00S00691.1ri +++|* USES CM - CM+4. 00786 M00S00692.1ri +++|* 00787 M00S00693.1ri +++|* MACROS MONITOR. 00788 M00S00694.1ri +++| 00789 M00S00695.1ri +++| 00790 M00S00696.1ri +++| CSM SUBR ENTRY/EXIT 00791 M00S00697.1ri +++| LDN 1 00792 M00S00698.1ri +++|* LDN 0 (MEMORY CLEARING ENABLED) 00793 M00S00699.1ri +++| CSMC EQU *-1 00794 M00S00700.1ri +++| ZJN CSMX IF MEMORY CLEARING ENABLED 00795 M00S00701.1ri +++| LDD EP 00796 M00S00702.1ri +++| LPN 1 00797 M00S00703.1ri +++| NJN CSM1 IF *SSM=* ENTRY POINT PRESENT 00798 M00S00704.1ri +++| LDC ** 00799 M00S00705.1ri +++| CSMA EQU *-1 (OLD CM FL SIZE) 00800 M00S00706.1ri +++| ZJN CSM1 IF NO CM FL TO BE CLEARED 00801 M00S00707.1ri +++| SHN 6 SET FWA TO CLEAR 00802 M00S00708.1ri +++| STD CM+4 00803 M00S00709.1ri +++| SHN -14 00804 M00S00710.1ri +++| STD CM+3 00805 M00S00711.1ri +++| LDD FL COMPARE NEW CM FL WITH OLD 00806 M00S00712.1ri +++| SBM CSMA 00807 M00S00713.1ri +++| ZJN CSM1 IF NO CHANGE 00808 M00S00714.1ri +++| MJN CSM1 IF DECREASE 00809 M00S00715.1ri +++| SHN 6 SET WORD COUNT 00810 M00S00716.1ri +++| STD CM+2 00811 M00S00717.1ri +++| SHN -14 00812 M00S00718.1ri +++| LMD HN SET CM RELATIVE ADDRESSING FLAGS 00813 M00S00719.1ri +++| STD CM+1 00814 M00S00720.1ri +++| MONITOR CSTM CLEAR MEMORY 00815 M00S00721.1ri +++| CSM1 LDC ** 00816 M00S00722.1ri +++| CSMB EQU *-1 (OLD EXTENDED MEMORY FL SIZE) 00817 M00S00723.1ri +++| STD CM+4 SET FWA TO CLEAR 00818 M00S00724.1ri +++| LDM CBUF+5*ECSW+4 COMPARE NEW EXTENDED MEMORY FL WITH OLD 00819 M00S00725.1ri +++| SBM CSMB 00820 M00S00726.1ri +++| ZJN CSM2 IF NO CHANGE 00821 M00S00727.1ri +++| MJN CSM2 IF DECREASE 00822 M00S00728.1ri +++| STD CM+2 SET WORD COUNT 00823 M00S00729.1ri +++| LDN 0 00824 M00S00730.1ri +++| STD CM+3 00825 M00S00731.1ri +++| LDC 300 SET ECS RELATIVE ADDRESSING FLAGS 00826 M00S00732.1ri +++| STD CM+1 00827 M00S00733.1ri +++| MONITOR CSTM CLEAR MEMORY
| Line S00734 Modification History | |
|---|---|
M01 (Removed by) | 1ri28 |
Seq # *Modification Id* Act ----------------------------+ 00828 M01S00734.1ri28 ---| CSM2 LDD CP CLEAR CONSOLE MESSAGE, IF ANY 00829 M01S00735.1ri28 ---| ADN MS2W 00830 M01S00736.1ri28 ---| CWD ZR 00831 M01S00737.1ri28 ---| LJM CSMX RETURN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ri28 |
Seq # *Modification Id* Act ----------------------------+ 00832 M01S00001.1ri28 +++| CSM2 LJM CSMX RETURN 00833 M00S00738.1ri +++| DRF SPACE 4,10 00834 M00S00739.1ri +++|** DRF - DROP ROLLOUT FILE. 00835 M00S00740.1ri +++|* 00836 M00S00741.1ri +++|* ENTRY (FA) = DM* FILE FNT ADDRESS/OFFSET (DMP= CALL). 00837 M00S00742.1ri +++|* (EJBF+5*SCHE) = ROLLOUT/DM* FILE EQUIPMENT. 00838 M00S00743.1ri +++|* (EJBF+5*SCHE+1) = ROLLOUT/DM* FILE FIRST TRACK. 00839 M00S00744.1ri +++|* 00840 M00S00745.1ri +++|* USES CM+1, CM+2, CM+4. 00841 M00S00746.1ri +++|* 00842 M00S00747.1ri +++|* MACROS MONITOR. 00843 M00S00748.1ri +++| 00844 M00S00749.1ri +++| 00845 M00S00750.1ri +++| DRF2 LDD FA CLEAR DM* FILE FNT/FST ENTRY 00846 M00S00751.1ri +++| STD CM+4 00847 M00S00752.1ri +++| LDN /CPS/DLFS 00848 M00S00753.1ri +++| STD CM+1 00849 M00S00754.1ri +++| MONITOR PLFM 00850 M00S00755.1ri +++| 00851 M00S00756.1ri +++| DRF SUBR ENTRY/EXIT 00852 M00S00757.1ri +++| LDM EJBF+5*SCHE RELEASE MASS STORAGE SPACE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00853 M01S00001.253l688 +++| LMD TH SET RETURN-ON-INACCESSIBLE BIT 00854 M00S00758.1ri +++| STD CM+1 SET EQUIPMENT 00855 M00S00759.1ri +++| LDM EJBF+5*SCHE+1 SET FIRST TRACK 00856 M00S00760.1ri +++| STD CM+2 00857 M00S00761.1ri +++| MONITOR DTKM 00858 M00S00762.1ri +++| UJN DRFX RETURN 00859 M00S00763.1ri +++|* UJN DRF2 (DMP= CALL) 00860 M00S00764.1ri +++| DRFB EQU *-1
| Line S00765 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00861 M01S00765.273l780 ---| ERS SPACE 4,10
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00862 M01S00010.273l780 +++| ERS SPACE 4,15 00863 M00S00766.1ri +++|** ERS - ENTER RECALL STACK ENTRIES. 00864 M00S00767.1ri +++|* 00865 M00S00768.1ri +++|* EXIT (A) = 0, IF *1AJ* NOT FOUND. 00866 M00S00769.1ri +++|* (IR - IR+4) = *1AJ* CALL IF PRESENT. 00867 M00S00770.1ri +++|* RECALL STACK REACTIVATED. 00868 M00S00771.1ri +++|* (ERSJ) = COUNT OF AUTO-RECALL ENTRIES FOUND. 00869 M00S00772.1ri +++|*
| Line S00773 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00870 M01S00773.271l716 ---|* USES T1 - T7, CM - CM+4, CN - CN+4, CI.
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00871 M02S00081.273l780 ---|* USES CI, T1, T2, CM - CM+4, CN - CN+4, FS - FS+4.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00872 M01S00011.273l780 +++|* USES CI, EF, T1, T2, CM - CM+4, CN - CN+4, FS - FS+4, 00873 M01S00012.273l780 +++|* IR - IR+4. 00874 M01S00013.273l780 +++|* 00875 M01S00014.273l780 +++|* CALLS CHG. 00876 M00S00774.1ri +++|* 00877 M00S00775.1ri +++|* MACROS MONITOR. 00878 M00S00776.1ri +++| 00879 M00S00777.1ri +++| 00880 M00S00778.1ri +++| ERS SUBR ENTRY/EXIT 00881 M00S00779.1ri +++| LDN ZERL CLEAR RECALL LINKS 00882 M00S00780.1ri +++| CRD CM 00883 M00S00781.1ri +++| AOD CM+4 00884 M00S00782.1ri +++| ERS1 AOD CM+4 00885 M00S00783.1ri +++| ADC RCCW-2 00886 M00S00784.1ri +++| ADD CP 00887 M00S00785.1ri +++| CWD CM 00888 M00S00786.1ri +++| LDD CM+4 00889 M00S00787.1ri +++| LMN LREC 00890 M00S00788.1ri +++| NJN ERS1 IF NOT END OF LINKS 00891 M00S00789.1ri +++| STD CM+4 00892 M00S00790.1ri +++| LDD CP 00893 M00S00791.1ri +++| ADC RCCW+LREC-1 00894 M00S00792.1ri +++| CWD CM 00895 M00S00793.1ri +++| ADN RECW-RCCW-LREC+1 00896 M00S00794.1ri +++| STD T1 00897 M00S00795.1ri +++| ADN LREC 00898 M00S00796.1ri +++| STM ERSD 00899 M00S00797.1ri +++| LDM ERSF 00900 M00S00798.1ri +++| ZJN ERSX IF RECALL QUEUE EMPTY AND NO TAPE ACTIVITY 00901 M00S00799.1ri +++| LDN 0 CLEAR ENTRY COUNT 00902 M00S00800.1ri +++| STD T2 00903 M00S00801.1ri +++| STD CI 00904 M00S00802.1ri +++| ERS2 LDD T1 CHECK ENTRY
| Line S00803 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00905 M01S00803.271l716 ---| CRD T3
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00906 M01S00082.271l716 +++| CRD FS 00907 M00S00804.1ri +++| CWD ZR CLEAR ENTRY 00908 M00S00805.1ri +++| ADN REPW-RECW 00909 M00S00806.1ri +++| CRD CN 00910 M00S00807.1ri +++| CWD ZR 00911 M00S00808.1ri +++| LDD MA MOVE REQUEST TO MESSAGE BUFFER
| Line S00809 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00912 M01S00809.271l716 ---| CWD T3
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00913 M01S00083.271l716 +++| CWD FS 00914 M00S00810.1ri +++| ADN 1 00915 M00S00811.1ri +++| CWD CN
| Line S00812 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00916 M01S00812.271l716 ---| LDD T3+1
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00917 M01S00084.271l716 +++| LDD FS+1 00918 M00S00813.1ri +++| SCN 77 00919 M00S00814.1ri +++| SHN 6
| Line S00815 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00920 M01S00815.271l716 ---| LMD T3
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00921 M01S00085.271l716 +++| LMD FS
| Line S00816 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00922 M01S00816.271l716 ---| ZJP ERS6 IF EMPTY RECALL ENTRY
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00923 M01S00086.271l716 +++| ZJN ERS6 IF EMPTY RECALL ENTRY 00924 M00S00817.1ri +++| LMC 3RJ1A
| Line S00818 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00925 M01S00818.271l716 ---| ZJP ERS7 IF *1AJ* RECALL ENTRY
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00926 M01S00087.271l716 +++| ZJN ERS7 IF *1AJ* RECALL ENTRY 00927 M00S00819.1ri +++| AOD T2 INCREMENT PP RECALL ENTRY COUNT 00928 M00S00820.1ri +++| UJN ERS4 CONTINUE
| Line S00821 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00929 M01S00821.271l716 ---|* LDD T3 (IF RESTART)
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00930 M01S00088.271l716 +++|* LDD FS (RESTART) 00931 M00S00822.1ri +++| ERSC EQU *-1 00932 M00S00823.1ri +++| SHN -6 00933 M00S00824.1ri +++| SBN 1R0 00934 M00S00825.1ri +++| PJN ERS6 IF INCORRECT PP NAME
| Line S00826 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00935 M01S00826.271l716 ---| ERS4 LDD T3+1 CHECK FOR AUTO RECALL
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00936 M01S00089.271l716 +++| ERS4 LDD FS+1 CHECK FOR AUTO-RECALL 00937 M00S00827.1ri +++| LPN 40 00938 M00S00828.1ri +++| ZJN ERS5 IF NOT AUTO-RECALL REQUEST 00939 M00S00829.1ri +++| LDD MA SAVE AUTO-RECALL REQUEST
| Line S00830 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00940 M01S00830.271l716 ---| CRM ERSI,TW
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00941 M01S00090.271l716 +++| CRM BFMS,TW 00942 M00S00831.1ri +++| AOM ERSJ SET AUTO-RECALL FLAG 00943 M00S00832.1ri +++| UJN ERS6 ADVANCE QUEUE POINTER 00944 M00S00833.1ri +++| 00945 M00S00834.1ri +++| ERS5 LDN ZERL CLEAR *RPPM* PARAMETERS 00946 M00S00835.1ri +++| CRD CM 00947 M00S00836.1ri +++| MONITOR RPPM 00948 M00S00837.1ri +++| ERS6 AOD T1 ADVANCE STACK POINTER 00949 M00S00838.1ri +++| LMC ** 00950 M00S00839.1ri +++| ERSD EQU *-1 00951 M00S00840.1ri +++| ZJN ERS10 IF END OF RECALL QUEUE 00952 M00S00841.1ri +++| LJM ERS2 LOOP ON RECALL PROCESSING 00953 M00S00842.1ri +++| 00954 M00S00843.1ri +++| ERS7 LDD MA MOVE *1AJ* CALL TO INPUT REGISTER 00955 M00S00844.1ri +++| CRD IR 00956 M00S00845.1ri +++| AOD T2 INCREMENT PP RECALL ENTRY COUNT 00957 M00S00846.1ri +++| AOD CI SET *1AJ* FLAG 00958 M00S00847.1ri +++| SBN 1 00959 M00S00848.1ri +++| NJN ERS8 IF MULTIPLE *1AJ* ENTRIES 00960 M00S00849.1ri +++| LDD CP STORE CP NUMBER IN *1AJ* CALL 00961 M00S00850.1ri +++| SHN -7 00962 M00S00851.1ri +++| LMD IR+1 00963 M00S00852.1ri +++| LPN 37 00964 M00S00853.1ri +++| LMD IR+1 00965 M00S00854.1ri +++| STD IR+1 00966 M00S00855.1ri +++| UJN ERS6 LOOP FOR NEXT ENTRY 00967 M00S00856.1ri +++|* UJN ERS9 (CPU STATUS AT TIME OF *1AJ* CALL) 00968 M00S00857.1ri +++| ERSE EQU *-1 00969 M00S00858.1ri +++| 00970 M00S00859.1ri +++| ERS8 LDN 0 00971 M00S00860.1ri +++| RJM CHG CONDITIONAL HANG 00972 M00S00861.1ri +++| UJN ERS6 PROCESS NEXT ENTRY 00973 M00S00862.1ri +++| 00974 M00S00863.1ri +++| ERS9 LDK SWET 00975 M00S00864.1ri +++| STD EF 00976 M00S00865.1ri +++| RJM CHG CONDITIONAL HANG 00977 M00S00866.1ri +++| LJM ERSX RETURN 00978 M00S00867.1ri +++| 00979 M00S00868.1ri +++| ERS10 LDC ** CHECK TAPE ACTIVITY 00980 M00S00869.1ri +++| ERSF EQU *-1 00981 M00S00870.1ri +++| SBD T2 00982 M00S00871.1ri +++| STM ERSG+4 00983 M00S00872.1ri +++| ZJN ERS13 IF NO TAPE ACTIVITY 00984 M00S00873.1ri +++| PJN ERS12 IF VALID RECALL COUNT 00985 M00S00874.1ri +++| ERS11 MONITOR HNGM 00986 M00S00875.1ri +++| UJN ERS13 CONTINUE 00987 M00S00876.1ri +++| 00988 M00S00877.1ri +++| ERS12 LDN 1 00989 M00S00878.1ri +++| STD CM+1 00990 M00S00879.1ri +++| STD CM+2 00991 M00S00880.1ri +++| LDD MA 00992 M00S00881.1ri +++| CWM ERSG,ON 00993 M00S00882.1ri +++| MONITOR UADM UPDATE TAPE ACTIVITY 00994 M00S00883.1ri +++| 00995 M00S00884.1ri +++|* IF AUTO-RECALL PP WAS FOUND IN QUEUE AND NO ERROR FLAG IS 00996 M00S00885.1ri +++|* SET, SET *I* STATUS. REACTIVATE THE AUTO-RECALL PP. 00997 M00S00886.1ri +++| 00998 M00S00887.1ri +++| ERS13 LDC 0 00999 M00S00888.1ri +++|* LDC 1 (AUTO-RECALL ENTRY FOUND) 01000 M00S00889.1ri +++| ERSJ EQU *-1 01001 M00S00890.1ri +++| ZJN ERS15 IF NO AUTO-RECALL PP WAS FOUND
| Line S00891 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01002 M01S00891.273l780 ---| STD CM+1 SET *UADM* WORD COUNT 01003 M01S00892.273l780 ---| STD CM+2 SET *UADM* NO DROP OPTION 01004 M00S00893.1ri +++| SBN 1 01005 M00S00894.1ri +++| NJN ERS11 IF MULTIPLE AUTO-RECALL PP-S 01006 M00S00895.1ri +++| LDD EF 01007 M00S00896.1ri +++| NJN ERS14 IF ERROR FLAG SET
| Line S00897 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01008 M01S00897.273l780 ---| LDD MA SET *I* STATUS 01009 M01S00898.273l780 ---| CWM ERSH,ON 01010 M01S00899.273l780 ---| MONITOR UADM
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01011 M01S00015.273l780 +++| STD CM+3 01012 M01S00016.273l780 +++| LDD CP SET CP ADDRESS 01013 M01S00017.273l780 +++| STD CM+4 01014 M01S00018.273l780 +++| LDN 2 SET REQUEST COUNT 01015 M01S00019.273l780 +++| STD CM+1 01016 M01S00020.273l780 +++| LDD MA SET *UTEM* REQUESTS 01017 M01S00021.273l780 +++| CWM ERSH,CM+1 01018 M01S00022.273l780 +++| MONITOR UTEM SET *I* STATUS 01019 M00S00900.1ri +++| ERS14 LDD MA REACTIVATE PP
| Line S00901 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01020 M01S00901.271l716 ---| CWM ERSI,TW
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01021 M01S00091.271l716 +++| CWM BFMS,TW 01022 M00S00902.1ri +++| LDN ZERL 01023 M00S00903.1ri +++| CRD CM 01024 M00S00904.1ri +++| MONITOR RPPM 01025 M00S00905.1ri +++| ERS15 LJM ERSX RETURN 01026 M00S00906.1ri +++| 01027 M00S00907.1ri +++| ERSG VFD 12//CPS/CICS,12/STSW,6/4,6/4,24/0
| Line S00908 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01028 M01S00908.273l780 ---| ERSH VFD 12//CPS/CSFS,12/STSW,6/57D,6/3,24//CPS/ICPS
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01029 M01S00023.273l780 +++| ERSH VFD 1/1,5/STSW,6/12D,6/36D,42/0 VERIFY NO ERROR FLAG 01030 M01S00024.273l780 +++| VFD 1/0,5/STSW,6/3,6/57D,42//CPS/ICPS SET *I* STATUS
| Line S00909 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01031 M01S00909.271l716 ---| ERSI BSSZ 5 AUTO-RECALL PP INPUT REGISTER 01032 M01S00910.271l716 ---| BSS 5 AUTO-RECALL PP MESSAGE BUFFER 01033 M00S00911.1ri +++| MSR SPACE 4,15 01034 M00S00912.1ri +++|** MSR - PROCESS ROLLOUT FILE ERROR. 01035 M00S00913.1ri +++|* 01036 M00S00914.1ri +++|* THIS ROUTINE IS CALLED WHEN ANY OF THE FOLLOWING CONDITIONS 01037 M00S00915.1ri +++|* OCCUR - 01038 M00S00916.1ri +++|* 1. SUBROUTINE *RNS* OR *RID* DETECTS A MASS STORAGE ERROR. 01039 M00S00917.1ri +++|* 2. AN ERROR IS DETECTED IN THE ROLLOUT FILE SYSTEM SECTOR. 01040 M00S00918.1ri +++|* 3. AN ERROR IS DETECTED IN THE CONTROL POINT AREA SECTOR 01041 M00S00919.1ri +++|* LINKAGE BYTES. 01042 M00S00920.1ri +++|* 4. AN ECS/ESM ERROR OCCURS WHILE ROLLING IN EXTENDED 01043 M00S00921.1ri +++|* MEMORY. 01044 M00S00922.1ri +++|* 01045 M00S00923.1ri +++|* OVERLAY *3RF* IS CALLED TO PROCESS THE ERROR. *3RF* WILL 01046 M00S00924.1ri +++|* RETURN CONTROL TO *MSR* ONLY IF THE ROLLIN PROCESS SHOULD 01047 M00S00925.1ri +++|* CONTINUE. 01048 M00S00926.1ri +++|* 01049 M00S00927.1ri +++|* EXIT TO CALLER IF I/O MAY CONTINUE. 01050 M00S00928.1ri +++|* TO *RIJ2* IF THE REST OF THE ROLLOUT FILE WILL 01051 M00S00929.1ri +++|* BE SKIPPED. 01052 M00S00930.1ri +++|* 01053 M00S00931.1ri +++|* USES DS, CN - CN+4. 01054 M00S00932.1ri +++|* 01055 M00S00933.1ri +++|* CALLS 3RF. 01056 M00S00934.1ri +++|* 01057 M00S00935.1ri +++|* MACROS ENDMS, EXECUTE. 01058 M00S00936.1ri +++| 01059 M00S00937.1ri +++| 01060 M00S00938.1ri +++| MSR SUBR ENTRY 01061 M00S00939.1ri +++| ENDMS 01062 M00S00940.1ri +++| LDM RDCT SAVE DRIVER STATUS 01063 M00S00941.1ri +++| STD DS 01064 M00S00942.1ri +++| LDD MA SAVE MASS STORAGE PARAMETERS 01065 M00S00943.1ri +++| CWD T3 01066 M00S00944.1ri +++| CRD CN 01067 M00S00945.1ri +++| EXECUTE 3RF PROCESS ERROR 01068 M00S00946.1ri +++| ZJN MSRX IF I/O SHOULD CONTINUE 01069 M00S00947.1ri +++| UJP RIJ2 CONTINUE WITHOUT READING ROLLOUT FILE 01070 M00S00948.1ri +++| PCS SPACE 4,10 01071 M00S00949.1ri +++|** PCS - PROCESS CPU SELECTION. 01072 M00S00950.1ri +++|*
| Line S00951 Modification History | |
|---|---|
M01 (Removed by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01073 M01S00951.ns2738 ---|* USES CM - CM+4, CN - CN+4.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01074 M01S00002.ns2738 +++|* EXIT CPU SELECTION CLEARED IF TWO CPU-S NOT AVAILABLE. 01075 M00S00952.1ri +++| 01076 M00S00953.1ri +++| 01077 M00S00954.1ri +++| PCS SUBR ENTRY/EXIT
| Line S00955 Modification History | |
|---|---|
M01 (Removed by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01078 M01S00955.ns2738 ---| LDN ACPL 01079 M01S00956.ns2738 ---| CRD CM 01080 M01S00957.ns2738 ---| ADN 1 01081 M01S00958.ns2738 ---| CRD CN 01082 M01S00959.ns2738 ---| LDD CM 01083 M01S00960.ns2738 ---| LMD CN 01084 M01S00961.ns2738 ---| SHN 6 01085 M01S00962.ns2738 ---| PJN PCSX IF TWO CPU-S AVAILABLE
| Line S00963 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
M02 (Removed by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01086 M02S00963.ns2738 ---| LDN 0 CLEAR CPU SELECTION 01087 M02S00964.ns2738 ---| STM CBUF+5*JCIW+1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01088 M02S00002.ns2738 ---| LDM CBUF+5*CWQW+2 CLEAR CPU SELECTION
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01089 M01S00003.ns2738 +++| PCSA LDM CBUF+5*CWQW+2 CLEAR CPU SELECTION 01090 M01S00004.ns2738 +++|* UJN PCSX (TWO CPU-S AVAILABLE)
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01091 M01S00003.271l750 +++| SCN 3 01092 M01S00004.271l750 +++| STM CBUF+5*CWQW+2 01093 M01S00005.271l750 +++| LDM CBUF+5*JCIW+1 01094 M01S00006.271l750 +++| SCN 3 01095 M01S00007.271l750 +++| STM CBUF+5*JCIW+1 01096 M00S00965.1ri +++| UJN PCSX RETURN 01097 M00S00966.1ri +++| PEF SPACE 4,15 01098 M00S00967.1ri +++|** PEF - PROCESS ERROR FLAG. 01099 M00S00968.1ri +++|* 01100 M00S00969.1ri +++|* ENTRY (EF) = ERROR FLAG FROM EJT ENTRY. 01101 M00S00970.1ri +++|* 01102 M00S00971.1ri +++|* EXIT (A) .GE. 0 IF NO ERROR. 01103 M00S00972.1ri +++|* .LT. 0 IF ERROR FLAG SET. 01104 M00S00973.1ri +++|* 01105 M00S00974.1ri +++|* USES EF, CM - CM+4. 01106 M00S00975.1ri +++| 01107 M00S00976.1ri +++| 01108 M00S00977.1ri +++| PEF SUBR ENTRY/EXIT 01109 M00S00978.1ri +++| LDD EF 01110 M00S00979.1ri +++| SHN 21-13 01111 M00S00980.1ri +++| MJN PEFX IF DUMMY ERROR FLAG IS SET 01112 M00S00981.1ri +++| NJN PEF2.1 IF ERROR FLAG IS SET 01113 M00S00982.1ri +++| 01114 M00S00983.1ri +++|* CHECK FOR CPU TIME LIMIT/SRU LIMIT. 01115 M00S00984.1ri +++| 01116 M00S00985.1ri +++| LDM CBUF+5*SRUW 01117 M00S00986.1ri +++| SHN 21-12 01118 M00S00987.1ri +++| MJN PEF1 IF CPU TIME LIMIT 01119 M00S00988.1ri +++| SHN 2 01120 M00S00989.1ri +++| PJN PEFX IF NOT SRU LIMIT 01121 M00S00990.1ri +++| LDN SRET 01122 M00S00991.1ri +++| UJN PEF2 SET *SRET* ERROR FLAG 01123 M00S00992.1ri +++| 01124 M00S00993.1ri +++| PEF1 LDN TLET SET *TLET* ERROR FLAG 01125 M00S00994.1ri +++| PEF2 STD EF SAVE ERROR FLAG 01126 M00S00995.1ri +++| PEF2.1 LDM EJBF+JSNE*5+4 01127 M00S00996.1ri +++| LPN 76 01128 M00S00997.1ri +++| LMN SUJS*2 01129 M00S00998.1ri +++| NJN PEF3 IF NOT A SUSPENDED JOB 01130 M00S00999.1ri +++| 01131 M00S01000.1ri +++|* CHANGE CONNECTION STATUS TO *NICS* TO PREVENT SUSPENDING THIS 01132 M00S01001.1ri +++|* JOB AGAIN. 01133 M00S01002.1ri +++|
| Line S01003 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01134 M01S01003.271l716 ---| LDM CJSC+5*0+4 01135 M01S01004.271l716 ---| LPN 77 01136 M01S01005.271l716 ---| LMK NICS*100 01137 M01S01006.271l716 ---| STM CJSC+5*0+4
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01138 M01S00092.271l716 +++| LDM CJSD 01139 M01S00093.271l716 +++| LPC 4177 01140 M01S00094.271l716 +++| LMK NICS*200 01141 M01S00095.271l716 +++| STM CJSD 01142 M00S01007.1ri +++| PEF3 LCN 0 INDICATE ERROR FLAG SET 01143 M00S01008.1ri +++| LJM PEFX RETURN 01144 M00S01009.1ri +++| PLI SPACE 4,10 01145 M00S01010.1ri +++|** PLI - PROCESS LIMIT INCREASE. 01146 M00S01011.1ri +++|* 01147 M00S01012.1ri +++|* USES CM+1, CM+3, CM+4. 01148 M00S01013.1ri +++|* 01149 M00S01014.1ri +++|* MACROS MONITOR. 01150 M00S01015.1ri +++| 01151 M00S01016.1ri +++| 01152 M00S01017.1ri +++| PLI SUBR ENTRY/EXIT 01153 M00S01018.1ri +++| LDM SBUF-2+SRSS-BFMS+3 01154 M00S01019.1ri +++| SHN -6 01155 M00S01020.1ri +++| ZJN PLIX IF NOT LIMIT INCREASE NEEDED 01156 M00S01021.1ri +++| STD CM+1 SAVE FUNCTION CODE (*RLIT* OR *RLIS*) 01157 M00S01022.1ri +++| LDM SBUF-2+SRSS-BFMS+4 01158 M00S01023.1ri +++| STD CM+4 01159 M00S01024.1ri +++| LDM SBUF-2+SRSS-BFMS+3 01160 M00S01025.1ri +++| LPN 77 01161 M00S01026.1ri +++| STD CM+3 01162 M00S01027.1ri +++| MONITOR RLMM INCREMENT LIMIT 01163 M00S01028.1ri +++| UJN PLIX RETURN 01164 M00S01029.1ri +++| RCP SPACE 4,10 01165 M00S01030.1ri +++|** RCP - RESTORE CONTROL POINT AREA. 01166 M00S01031.1ri +++|*
| Line S01032 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01167 M01S01032.271l716 ---|* USES T1, CM - CM+4, FS - FS+4.
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01168 M01S00096.271l716 +++|* USES CM - CM+4, CN - CN+4, FS - FS+4. 01169 M00S01033.1ri +++|*
| Line S01034 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01170 M01S01034.271l716 ---|* CALLS CSM, PCS, UEP.
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01171 M02S00097.1ri30 ---|* CALLS CSM, PCS, RJC, UEP.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01172 M01S00001.1ri30 +++|* CALLS CSM, PCS, UEP. 01173 M00S01035.1ri +++|*
| Line S01036 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01174 M01S01036.271l716 ---|* MACROS MONITOR, NFA.
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01175 M01S00098.271l716 +++|* MACROS DELAY, MONITOR, NFA. 01176 M00S01037.1ri +++| 01177 M00S01038.1ri +++| 01178 M00S01039.1ri +++| RCP SUBR ENTRY/EXIT
| Line S01040 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01179 M01S01040.271l716 ---| RJM UEP UPDATE EXCHANGE PACKAGE
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01180 M02S00099.273l780 ---| LDD PR 01181 M02S00100.273l780 ---| NJN RCP1 IF NOT PSEUDO-ROLLIN
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01182 M01S00101.271l716 +++|
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01183 M02S00102.273l780 ---|* ISSUE A *CCAM* MONITOR FUNCTION TO INHIBIT STORAGE MOVE OF 01184 M02S00103.273l780 ---|* THE PCP JOB BEFORE READING THE FIELD LENGTH CONTROL WORDS 01185 M02S00104.273l780 ---|* FROM THE CPA.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01186 M01S00025.273l780 +++|* WARNING - MODIFICATION OF THE FIELD LENGTH CONTROL WORDS IN 01187 M01S00026.273l780 +++|* CM MUST BE INHIBITED FROM BEFORE THE TIME *UEP* READS THEM 01188 M01S00027.273l780 +++|* UNTIL AFTER THE FIRST HALF OF THE CONTROL POINT AREA IS 01189 M01S00028.273l780 +++|* WRITTEN TO CM. THEREFORE, NO MONITOR FUNCTIONS WHICH COULD 01190 M01S00029.273l780 +++|* RESULT IN A STORAGE MOVE SHOULD BE ISSUED DURING THAT TIME.
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01191 M01S00105.271l716 +++|
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01192 M02S00106.273l780 ---| LDD T6 STORE PCP NUMBER IN *CCAM* REQUEST 01193 M02S00107.273l780 ---| STD CM+2 01194 M02S00108.273l780 ---| LDC 200 SELECT *MOVE TO PCP* OPTION 01195 M02S00109.273l780 ---| STD CM+1 01196 M02S00110.273l780 ---| MONITOR CCAM 01197 M02S00111.273l780 ---| RCP1 RJM UEP UPDATE EXCHANGE PACKAGE
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01198 M01S00030.273l780 +++| RJM UEP UPDATE EXCHANGE PACKAGE 01199 M00S01041.1ri +++| RJM PCS PROCESS CPU SELECTION
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01200 M01S00112.271l716 +++| LDK RTCL 01201 M01S00113.271l716 +++| CRD FS 01202 M01S00114.271l716 +++| LDD CP 01203 M01S00115.271l716 +++| ADK TSCW 01204 M01S00116.271l716 +++| CRD CN 01205 M01S00117.271l716 +++| LDD PR 01206 M01S00118.271l716 +++| ZJP RCP4 IF PSEUDO-ROLLIN 01207 M00S01042.1ri +++|
| Line S01043 Modification History | |
|---|---|
M01 (Removed by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01208 M01S01043.ns2738 ---|* MOVE RECOVERY TABLE TO NFL.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01209 M01S00005.ns2738 +++|* UPDATE RECOVERY TABLE AND SCP CONNECTIONS FROM SYSTEM SECTOR. 01210 M00S01044.1ri +++| 01211 M00S01045.1ri +++| NFA RC1N 01212 M00S01046.1ri +++| CWM SBUF+RRSS,TW 01213 M00S01047.1ri +++| 01214 M00S01048.1ri +++| ERRNZ RC1N-RC2N-1 *RC1N*/*RC2N* MUST BE CONTIGUOUS 01215 M00S01049.1ri +++| ERRNZ R2SS-R1SS-5 *R1SS*/*R2SS* MUST BE CONTIGUOUS 01216 M00S01050.1ri +++|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ri28 |
M02 (Removed by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01217 M02S00002.ns2738 ---| LDD CP CHECK FOR K-DISPLAY ACTIVE 01218 M02S00003.ns2738 ---| ADK DBAW
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2738 |
Seq # *Modification Id* Act ----------------------------+ 01219 M01S00006.ns2738 +++| LDD CP UPDATE SCP CONNECTIONS 01220 M01S00007.ns2738 +++| ADK SSCW 01221 M01S00008.ns2738 +++| CWM SBUF+SCPC,ON 01222 M01S00009.ns2738 +++| ADK DBAW-SSCW-1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1ri28 |
Seq # *Modification Id* Act ----------------------------+ 01223 M01S00004.1ri28 +++| CRD CM 01224 M01S00005.1ri28 +++| LDD CM+1 01225 M01S00006.1ri28 +++| ADD CM+2 01226 M01S00007.1ri28 +++| ADD CM+3 01227 M01S00008.1ri28 +++| ADD CM+4
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1ri28 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01228 M02S00009.271l716 ---| NJN RCP0 IF K-DISPLAY ACTIVE
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01229 M01S00119.271l716 +++| NJN RCP2 IF K-DISPLAY ACTIVE 01230 M00S01051.1ri +++| LDN ZERL CLEAR *MS2W* 01231 M00S01052.1ri +++| CRM CBUF+5*MS2W,ON
| Line S01053 Modification History | |
|---|---|
M01 (Removed by) | 1ri28 |
Seq # *Modification Id* Act ----------------------------+ 01232 M01S01053.1ri28 ---| LDM CBUF+5*TSCW+2 SAVE *TSCW* FLAGS
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1ri28 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01233 M02S00010.271l716 ---| RCP0 LDM CBUF+5*TSCW+2 SAVE *TSCW* FLAGS
| Line S01054 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01234 M01S01054.271l716 ---| SCN 77 01235 M01S01055.271l716 ---| STD T1 01236 M01S01056.271l716 ---| LDD CP UPDATE TIME SLICES 01237 M01S01057.271l716 ---| ADN JCIW 01238 M01S01058.271l716 ---| CRD CM 01239 M01S01059.271l716 ---| ADK TSCW-JCIW 01240 M01S01060.271l716 ---| STD CM+4 01241 M01S01061.271l716 ---| CRD FS 01242 M01S01062.271l716 ---| LDD FS+2 SAVE *TSCW* FLAGS 01243 M01S01063.271l716 ---| SCN 77 01244 M01S01064.271l716 ---| STM RCPF+2 01245 M01S01065.271l716 ---| LDM CBUF+5*CPTW+2 COMPUTE CPU SLICE 01246 M01S01066.271l716 ---| RAM RCPF+4 01247 M01S01067.271l716 ---| SHN -14 01248 M01S01068.271l716 ---| ADM CBUF+5*CPTW+1 01249 M01S01069.271l716 ---| RAM RCPF+3 01250 M01S01070.271l716 ---| SHN -14 01251 M01S01071.271l716 ---| ADM CBUF+5*CPTW 01252 M01S01072.271l716 ---| LPN 77 01253 M01S01073.271l716 ---| ADM RCPF+2
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01254 M01S00120.271l716 +++| RCP2 LDD CN+2 01255 M00S01074.1ri +++| LPC 7777 DO NOT CLEAR SLICE FLAG 01256 M00S01075.1ri +++|* LPC 7677 (CLEAR SLICE FLAG FOR ON-LINE INTERACTIVE) 01257 M00S01076.1ri +++| RCPG EQU *-1
| Line S01077 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01258 M01S01077.271l716 ---| STM RCPF+2 01259 M01S01078.271l716 ---| LDK RTCL COMPUTE CM SLICE 01260 M01S01079.271l716 ---| CRD FS 01261 M01S01080.271l716 ---| LDD FS+1 01262 M01S01081.271l716 ---| RAM RCPF+1
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01263 M01S00121.271l716 +++| STD CN+2
| Line S01082 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01264 M01S01082.271l716 ---| SHN -14 01265 M01S01083.271l716 ---| ADD FS 01266 M01S01084.271l716 ---| STM RCPF 01267 M01S01085.271l716 ---| LDD CM+4 01268 M01S01086.271l716 ---| CWM RCPF,ON 01269 M01S01087.271l716 ---| LDM CBUF+5*STSW+2 SAVE CPU STATUS FLAG 01270 M01S01088.271l716 ---| LPN 2 01271 M01S01089.271l716 ---| RAM RIJF 01272 M01S01090.271l716 ---| LDM CBUF+5*STSW+2 PRESERVE ROLLOUT CONTROL FLAGS 01273 M01S01091.271l716 ---| SCN 7
| Line S01092 Modification History | |
|---|---|
M01 (Removed by) | 1ri28 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01274 M02S01092.271l716 ---| NJN RCP0 IF PENDING ROLLOUT PROCESSING PRESENT
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1ri28 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01275 M02S00011.271l716 ---| NJN RCP0.1 IF PENDING ROLLOUT PROCESSING PRESENT
| Line S01093 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01276 M01S01093.271l716 ---| STM CBUF+5*STSW+2
| Line S01094 Modification History | |
|---|---|
M01 (Removed by) | 1ri28 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01277 M02S01094.271l716 ---| RCP0 LDM CBUF+5*STSW+4 SAVE PP RECALL COUNT
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 1ri28 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01278 M02S00012.271l716 ---| RCP0.1 LDM CBUF+5*STSW+4 SAVE PP RECALL COUNT
| Line S01095 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01279 M01S01095.271l716 ---| SHN -4 01280 M01S01096.271l716 ---| LPN 17 01281 M01S01097.271l716 ---| STM ERSF 01282 M01S01098.271l716 ---| LDN 1 SET PP ACTIVITY COUNT 01283 M01S01099.271l716 ---| STM CBUF+5*STSW 01284 M01S01100.271l716 ---| STM CBUF+5*STSW+4 RESET PP RECALL COUNT 01285 M01S01101.271l716 ---| LDN 0 CLEAR NFL INCREASE FIELD 01286 M01S01102.271l716 ---| STM CBUF+5*FLIW+2
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01287 M01S00122.271l716 +++| LDN 0 01288 M01S00123.271l716 +++| STM CBUF+5*FLIW+2 CLEAR NFL INCREASE FIELD 01289 M00S01103.1ri +++| STM CBUF+5*FLIW+3 CLEAR EXTENDED MEMORY INCREASE FIELD 01290 M00S01104.1ri +++| STM CBUF+5*FLIW+4 CLEAR CM INCREASE FIELD
| Line S01105 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01291 M01S01105.271l716 ---| STM CBUF+STSW*5+1 CLEAR ERROR FLAG 01292 M00S01106.1ri +++| LDM CBUF+5*FLIW+1 CLEAR SCHEDULER REJECT FLAGS 01293 M00S01107.1ri +++| SCN 3 01294 M00S01108.1ri +++| STM CBUF+5*FLIW+1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01295 M01S00002.1ri30 +++| LDM SBUF+EJRO+JSNE*5+4 01296 M01S00003.1ri30 +++| LPN 76 01297 M01S00004.1ri30 +++| LMN TOJS*2 01298 M01S00005.1ri30 +++| ZJN RCP3 IF ROLLIN AFTER TIMED/EVENT ROLLOUT
| Line S01109 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01299 M01S01109.271l716 ---| LDC **
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01300 M01S00124.271l716 +++| LDM CBUF+5*STSW+2
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01301 M02S00125.1ri30 ---| LPN 10 01302 M02S00126.1ri30 ---| NJN RCP3 IF ROLLIN AFTER TIMED/EVENT ROLLOUT
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01303 M01S00006.1ri30 +++| LPK 10*/CPS/ROTE 01304 M01S00007.1ri30 +++| RAM RCPD SET UNPROCESSED TIMED/EVENT ROLLOUT STATUS
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01305 M02S00127.271l750 ---| LDM CBUF+5*JCIW
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ri30 |
M03 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01306 M03S00128.271l750 ---| SHN -7 01307 M03S00129.271l750 ---| NJN RCP3 IF NON-DECREMENTING PRIORITY SET 01308 M03S00130.271l750 ---| LDM EJBF+SCLE*5 GET SERVICE CLASS 01309 M03S00131.271l750 ---| SHN -6 01310 M03S00132.271l750 ---| RJM RJC GET JCB ADDRESS 01311 M03S00133.271l750 ---| ADK SVJT GET UPPER BOUND CPU PRIORITY 01312 M03S00134.271l750 ---| CRD CM 01313 M03S00135.271l750 ---| LDD CM SET UPPER BOUND CPU PRIORITY 01314 M03S00136.271l750 ---| LPN 77
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1ri30 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01315 M02S00008.271l750 ---| SHN -10 01316 M02S00009.271l750 ---| NJN RCP3 IF NON-DECREMENTING CPU PRIORITY SET 01317 M02S00010.271l750 ---| RCPH LDN 0 SET SERVICE CLASS UPPER BOUND PRIORITY
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01318 M02S00137.271l750 ---| STM CBUF+5*JCIW
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01319 M01S00138.271l716 +++| RCP3 LDC ** 01320 M00S01110.1ri +++| RCPA EQU *-1 (OLD CM FL SIZE)
| Line S01111 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01321 M01S01111.271l716 ---| NJN RCP1 IF CM FL WAS PREVIOUSLY ASSIGNED
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01322 M01S00139.271l716 +++| NJN RCP4 IF CM FL WAS PREVIOUSLY ASSIGNED 01323 M00S01112.1ri +++|* LDN 0 (ON-LINE INTERACTIVE JOB STEP INITIATION) 01324 M00S01113.1ri +++| RCPB EQU *-1 01325 M00S01114.1ri +++| STM CBUF+5*EECW+1 CLEAR REPRIEVE OPTIONS 01326 M00S01115.1ri +++| STM CBUF+5*EECW+4 CLEAR ERROR EXIT ADDRESS 01327 M00S01116.1ri +++| LDM CBUF+5*EECW+3 01328 M00S01117.1ri +++| SCN 77 01329 M00S01118.1ri +++| STM CBUF+5*EECW+3 01330 M00S01119.1ri +++| LDM CBUF+5*CSPW CLEAR SUPPRESS ERROR MESSAGE FLAG 01331 M00S01120.1ri +++| SCN 40 01332 M00S01121.1ri +++| STM CBUF+5*CSPW
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01333 M01S00140.271l716 +++| RCP4 LDM RCPF+1 COMPUTE CM SLICE TIME 01334 M01S00141.271l716 +++| ADD FS+1 01335 M01S00142.271l716 +++| STD CN+1 01336 M01S00143.271l716 +++| SHN -14 01337 M01S00144.271l716 +++| ADD FS 01338 M01S00145.271l716 +++| STD CN 01339 M01S00146.271l716 +++| LDD FS+1 COMPUTE CP SLICE TIME 01340 M01S00147.271l716 +++| ADM RCPF+4 01341 M01S00148.271l716 +++| STD CN+4 01342 M01S00149.271l716 +++| SHN -14 01343 M01S00150.271l716 +++| ADD FS 01344 M01S00151.271l716 +++| STD CN+3 01345 M01S00152.271l716 +++| LDD CP 01346 M01S00153.271l716 +++| ADK TSCW 01347 M01S00154.271l716 +++| CWD CN 01348 M01S00155.271l716 +++| LDM CBUF+5*STSW+2 SAVE CPU STATUS FLAG 01349 M01S00156.271l716 +++| LPN 2 01350 M01S00157.271l716 +++| RAM RIJF 01351 M01S00158.271l716 +++| LDM CBUF+5*STSW+4 SAVE PP RECALL COUNT 01352 M01S00159.271l716 +++| SHN -4 01353 M01S00160.271l716 +++| LPN 17 01354 M01S00161.271l716 +++| STM ERSF
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01355 M02S00162.1ri30 ---| LDK ZERL 01356 M02S00163.1ri30 ---| CRM CBUF+5*STSW,ON
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01357 M01S00011.1ri30 +++| 01358 M01S00012.1ri30 +++|* UPDATE STATUS WORD. 01359 M01S00013.1ri30 +++| 01360 M01S00014.1ri30 +++| LDN 0 01361 M01S00015.1ri30 +++| STM CBUF+5*STSW+1 01362 M01S00016.1ri30 +++| STM CBUF+5*STSW+3
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01363 M01S00164.271l716 +++| LDN 1 SET PP ACTIVITY 01364 M01S00165.271l716 +++| STM CBUF+5*STSW 01365 M01S00166.271l716 +++| STM CBUF+5*STSW+4 SET RECALL COUNT
| Line S01122 Modification History | |
|---|---|
M01 (Removed by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01366 M01S01122.1ri30 ---| 01367 M01S01123.1ri30 ---|* UPDATE ROLLOUT CONTROL FLAGS IN CASE JOB SUSPENSION REQUIRED. 01368 M01S01124.1ri30 ---|
| Line S01125 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
M02 (Removed by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01369 M02S01125.1ri30 ---| RCP1 LDM CBUF+5*STSW+2 01370 M02S01126.1ri30 ---| LPC 7777 01371 M02S01127.1ri30 ---| RCPC EQU *-1 (ROLLOUT CONTROL FLAG MASK) 01372 M02S01128.1ri30 ---| LMC **
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01373 M02S00167.1ri30 ---| LDC **
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01374 M01S00017.1ri30 +++| LDC 0 01375 M00S01129.1ri +++| RCPD EQU *-1 (ROLLOUT CONTROL FLAGS TO BE SET)
| Line S01130 Modification History | |
|---|---|
M01 (Removed by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01376 M01S01130.1ri30 ---| STM CBUF+5*STSW+2
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 1ri30 |
Seq # *Modification Id* Act ----------------------------+ 01377 M01S00018.1ri30 +++| ZJN RCP4.1 IF NO ROLLOUT FLAGS TO SET 01378 M01S00019.1ri30 +++| LDM CBUF+5*STSW+2 01379 M01S00020.1ri30 +++| LPN 2 PRESERVE ROLLOUT CPU STATUS 01380 M01S00021.1ri30 +++| LMN 1 SET ROLLOUT REQUESTED 01381 M01S00022.1ri30 +++| LMM RCPD MERGE ROLLOUT FLAGS 01382 M01S00023.1ri30 +++| RCP4.1 STM CBUF+5*STSW+2 01383 M00S01131.1ri +++| 01384 M00S01132.1ri +++|* WRITE FIRST HALF OF CONTROL POINT AREA. 01385 M00S01133.1ri +++|
| Line S01134 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01386 M01S01134.271l716 ---| LDD CP
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01387 M01S00168.271l716 +++| RCP5 LDD CP ENSURE *1SJ* *CCAM* IS COMPLETE 01388 M01S00169.271l716 +++| ADK STSW 01389 M01S00170.271l716 +++| CRD CM 01390 M01S00171.271l716 +++| SOD CM 01391 M01S00172.271l716 +++| ZJN RCP6 IF NO OTHER PP-S ASSIGNED
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01392 M02S00173.273l780 ---| 01393 M02S00174.273l780 ---|* WARNING - IN THE CASE OF A PSEUDO-ROLLIN, IT IS NECESSARY 01394 M02S00175.273l780 ---|* THAT MODIFICATION OF THE CONTROL POINT FIELD LENGTH CONTROL 01395 M02S00176.273l780 ---|* WORDS BE INHIBITED BETWEEN THE TIME ROUTINE *UEP* READS 01396 M02S00177.273l780 ---|* THEM INTO THE PP AND THE TIME THE FIRST CPA SECTOR IS 01397 M02S00178.273l780 ---|* WRITTEN TO CM. THIS REQUIREMENT IMPLIES PROHIBITION OF 01398 M02S00179.273l780 ---|* STORAGE MOVING (OR RA/FL MODIFICATION) THE CP. TO MEET 01399 M02S00180.273l780 ---|* THIS REQUIREMENT, NO MOVABLE MONITOR FUNCTIONS MAY BE ISSUED 01400 M02S00181.273l780 ---|* AND THE *PAUSE* MACRO MUST NOT BE USED UNTIL AFTER THE CPA 01401 M02S00182.273l780 ---|* SECTOR IS WRITTEN TO CM. 01402 M02S00183.273l780 ---|*
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01403 M01S00184.271l716 +++| DELAY 01404 M01S00185.271l716 +++| UJN RCP5 CHECK FOR COMPLETION OF *1SJ* *CCAM* 01405 M01S00186.271l716 +++| 01406 M01S00187.271l716 +++| RCP6 LDD CP 01407 M00S01135.1ri +++| CWM CBUF,HN
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01408 M01S00188.271l716 +++| LDD PR 01409 M01S00189.271l716 +++| ZJN RCP8 IF PSEUDO-ROLLIN 01410 M00S01136.1ri +++| 01411 M00S01137.1ri +++|* UPDATE MASS STORAGE PRU LIMIT. 01412 M00S01138.1ri +++| 01413 M00S01139.1ri +++| LDM RCPE+3 01414 M00S01140.1ri +++| ADM RCPE+4
| Line S01141 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01415 M01S01141.271l716 ---| ZJN RCP2 IF NO PRUS RELEASED
| Line S00190 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01416 M01S00190.271l716 +++| ZJN RCP7 IF NO PRU-S RELEASED 01417 M00S01142.1ri +++| LDD MA STORE REQUEST IN MESSAGE BUFFER 01418 M00S01143.1ri +++| CWM RCPE,ON 01419 M00S01144.1ri +++| LDN 1 SET NUMBER OF REQUESTS AND NO DROP FLAG 01420 M00S01145.1ri +++| STD CM+1 01421 M00S01146.1ri +++| STD CM+2 01422 M00S01147.1ri +++| MONITOR UADM 01423 M00S01148.1ri +++| 01424 M00S01149.1ri +++|* CLEAR SECURE MEMORY IF NECESSARY. 01425 M00S01150.1ri +++|
| Line S01151 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01426 M01S01151.271l716 ---| RCP2 RJM CSM CLEAR SECURE MEMORY
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01427 M01S00191.271l716 +++| RCP7 RJM CSM CLEAR SECURE MEMORY 01428 M00S01152.1ri +++| 01429 M00S01153.1ri +++|* FORCE SRU MULTIPLIER CALCULATION. 01430 M00S01154.1ri +++| 01431 M00S01155.1ri +++| LDN /CPS/ABSF 01432 M00S01156.1ri +++| STD CM+1 01433 M00S01157.1ri +++| MONITOR ACTM
| Line S01158 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01434 M01S01158.271l716 ---| LJM RCPX RETURN
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01435 M01S00192.271l716 +++| RCP8 LJM RCPX RETURN 01436 M00S01159.1ri +++| 01437 M00S01160.1ri +++|* *UADM* PARAMETER BLOCK. 01438 M00S01161.1ri +++| 01439 M00S01162.1ri +++| RCPE CON /CPS/CICS 01440 M00S01163.1ri +++| CON ACLW 01441 M00S01164.1ri +++| CON 0*100+18D 01442 M00S01165.1ri +++| CON 0,0 01443 M00S01166.1ri +++| 01444 M00S01167.1ri +++| RCPF BSS 5 *TSCW* BUFFER 01445 M00S01168.1ri +++| RIM SPACE 4,15 01446 M00S01169.1ri +++|** RIM - ROLLIN MEMORY. 01447 M00S01170.1ri +++|* 01448 M00S01171.1ri +++|* ENTRY (A) = LWA TO ROLLIN. 01449 M00S01172.1ri +++|* (CI) = FWA TO ROLLIN. 01450 M00S01173.1ri +++|* (T5) = EQUIPMENT. 01451 M00S01174.1ri +++|* (T6) = CURRENT TRACK. 01452 M00S01175.1ri +++|* (T7) = CURRENT SECTOR. 01453 M00S01176.1ri +++|* 01454 M00S01177.1ri +++|* USES CI. 01455 M00S01178.1ri +++|* 01456 M00S01179.1ri +++|* CALLS RNS. 01457 M00S01180.1ri +++|* 01458 M00S01181.1ri +++|* NOTE ROUTINE *RIM* IS OVERWRITTEN WITH ROUTINE *RID* 01459 M00S01182.1ri +++|* IF THE ROLLOUT DEVICE SUPPORTS DIRECT DISK TRANSFERS. 01460 M00S01183.1ri +++| 01461 M00S01184.1ri +++| 01462 M00S01185.1ri +++| RIM SUBR ENTRY/EXIT 01463 M00S01186.1ri +++| STM RIMA 01464 M00S01187.1ri +++| SBD FL 01465 M00S01188.1ri +++| MJN RIM1 IF LWA .LT. FL 01466 M00S01189.1ri +++| LDD FL OVERRIDE ROLLIN FL 01467 M00S01190.1ri +++| STM RIMA 01468 M00S01191.1ri +++| RIM1 LDC BFMS READ A SECTOR 01469 M00S01192.1ri +++| RS1. RJM RNS 01470 M00S01193.1ri +++| ZJN RIM2 IF EOF 01471 M00S01194.1ri +++| LDD RA SET CM ADDRESS 01472 M00S01195.1ri +++| ADD CI 01473 M00S01196.1ri +++| SHN 6 01474 M00S01197.1ri +++| CWM BFMS+2,HN 01475 M00S01198.1ri +++| AOD CI 01476 M00S01199.1ri +++| LMC * 01477 M00S01200.1ri +++| RIMA EQU *-1 01478 M00S01201.1ri +++| NJN RIM1 IF LWA NOT REACHED 01479 M00S01202.1ri +++| RIM2 STM RNS CLEAR *RNS* SO *3RF* WILL NOT BE CONFUSED 01480 M00S01203.1ri +++| UJN RIMX RETURN 01481 M00S01204.1ri +++| 01482 M00S01205.1ri +++| RIML EQU *-RIMX LENGTH OF *RIM*
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01483 M02S00193.273l780 ---| RPC SPACE 4,15
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01484 M01S00031.273l780 +++| RPC SPACE 4,10
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01485 M01S00194.271l716 +++|** RPC - RELEASE PSEUDO-CONTROL POINT. 01486 M01S00195.271l716 +++|*
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01487 M02S00196.273l780 ---|* THIS SUBROUTINE IS CALLED ONLY IF *1AJ* IS TO BE CALLED 01488 M02S00197.273l780 ---|* (RATHER THAN ISSUING A *JACM*) FOLLOWING A PSEUDO-ROLLIN. 01489 M02S00198.273l780 ---|* 01490 M02S00199.273l780 ---|* ENTRY (T6) = PCP NUMBER. 01491 M02S00200.273l780 ---|*
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01492 M01S00201.271l716 +++|* USES CM - CM+4.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ri.txt · Last modified: (external edit)