User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ri

Deck 1RI

15 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ri     +++|          IDENT  1RI,RIJ
00002  M01S00002.1ri     +++|          PERIPH
00003  M01S00003.1ri     +++|          BASE   MIXED
00004  M01S00001.271l716 +++|          LIST   F
00005  M01S00004.1ri     +++|          SST
00006  M01S00005.1ri     +++|          SYSCOM
00007  M01S00006.1ri     +++|*COMMENT  1RI - ROLLIN JOB.
Line S00007 Modification History
M01 (Added by) 1ri
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00008.1ri     +++|          TITLE  1RI - ROLLIN JOB.
00011  M01S00009.1ri     +++|          SPACE  4,10
00012  M01S00010.1ri     +++|***       1RI - ROLLIN JOB.
00013  M01S00011.1ri     +++|*         G. R. MANSFIELD.  70/09/03.
00014  M01S00012.1ri     +++|*         R. E. TATE.  70/09/28.
00015  M01S00013.1ri     +++|*         L. C. HAAS.  75/03/25.  RESEQUENCE.
00016  M01S00014.1ri     +++|          SPACE  4,10
00017  M01S00015.1ri     +++|***              1RI PERFORMS JOB ROLLIN. IT IS CALLED BY *1SJ*.
00018  M01S00016.1ri     +++|          SPACE  4,10
00019  M01S00017.1ri     +++|***       CALL.
00020  M01S00018.1ri     +++|*
00021  M01S00019.1ri     +++|*
00022  M01S00020.1ri     +++|*T        18/  *1RI*,1/ ,5/CP,12/FN,12/ 12/FA
Figure

0111223242829 12FNCP 3047 *1RI*

00023  M01S00021.1ri     +++|*         CP     CONTROL POINT NUMBER.
00024  M01S00022.1ri     +++|*         FN = 0, ROLLIN JOB.
00025  M01S00023.1ri     +++|*            = 1, SELECTIVE ROLLIN ACCORDING TO SPECIAL ENTRY POINTS.
00026  M01S00024.1ri     +++|*         FA     DM* FILE FNT ADDRESS/OFFSET (DMP= CALL).
00027  M01S00025.1ri     +++|          SPACE  4,10
00028  M01S00026.1ri     +++|***       DAYFILE MESSAGES.
00029  M01S00027.1ri     +++|*
00030  M01S00028.1ri     +++|*
00031  M01S00029.1ri     +++|*         NONE.
00032  M01S00030.1ri     +++|          SPACE  4,10
00033  M01S00031.1ri     +++|***       ACCOUNT DAYFILE MESSAGES.
00034  M01S00032.1ri     +++|*
00035  M01S00033.1ri     +++|*
00036  M01S00034.1ri     +++|*         *ACSC, SC, NEWJSN, SRUUNITS.* = SERVICE CLASS HAS BEEN
00037  M01S00035.1ri     +++|*         CHANGED TO SC.  NEWJSN IS PRESENT IF THE CHANGE WAS FROM
00038  M01S00036.1ri     +++|*         SUBSYSTEM SERVICE CLASS.  SRUUNITS IS THE SRU ACCUMULATOR
00039  M01S00037.1ri     +++|*         AT THE TIME OF THE SERVICE CLASS CHANGE.
00040  M01S00038.1ri     +++|          SPACE  4,10
00041  M01S00039.1ri     +++|**        ROUTINES USED.
00042  M01S00040.1ri     +++|*
00043  M01S00041.1ri     +++|*
00044  M01S00042.1ri     +++|*         *0DF* - DROP FILE.
00045  M01S00043.1ri     +++|          SPACE  4,10
00046  M01S00044.1ri     +++|**        PROGRAMS CALLED.
00047  M01S00045.1ri     +++|*
00048  M01S00046.1ri     +++|*
00049  M01S00047.1ri     +++|*         *1AJ* - CONTINUE DMP= PROCESSING / PROCESS ERROR FLAG.
00050  M01S00048.1ri     +++|          SPACE  4,10
00051  M01S00049.1ri     +++|**        COMMON DECKS.
00052  M01S00050.1ri     +++|
00053  M01S00051.1ri     +++|
00054  M01S00052.1ri     +++|*CALL     COMPMAC
00055  M01S00053.1ri     +++|          QUAL   CPS
00056  M01S00054.1ri     +++|*CALL     COMSCPS
00057  M01S00055.1ri     +++|          QUAL   *
00058  M01S00001.271l750 +++| SSPS     EQU    /CPS/SSPS
00059  M01S00056.1ri     +++|*CALL     COMSEJT
00060  M01S00057.1ri     +++|*CALL     COMSEVT
00061  M01S00058.1ri     +++|*CALL     COMSJIO
00062  M01S00059.1ri     +++|*CALL     COMSJRO
00063  M01S00060.1ri     +++|*CALL     COMSLFD
00064  M01S00061.1ri     +++|*CALL     COMSMSC
00065  M01S00062.1ri     +++|*CALL,COMSMSP
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00002.273l780 ---| CPA$     EQU    1           SELECT CPA/PCPA ACCESS
Line S00003 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00003.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
Line S00004 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00004.273l780 ---|*CALL     COMSPCP
00069  M01S00063.1ri     +++|*CALL     COMSPIM
00070  M01S00005.271l716 +++|*CALL     COMSPRD
00071  M01S00064.1ri     +++|          QUAL   REM
00072  M01S00065.1ri     +++|*CALL     COMSREM
00073  M01S00066.1ri     +++|          QUAL   *
00074  M01S00067.1ri     +++|*CALL     COMSSCD
00075  M01S00068.1ri     +++|*CALL     COMSSSD
00076  M01S00069.1ri     +++|*CALL     COMSSSE
00077  M01S00070.1ri     +++|*CALL     COMSSSJ
00078  M01S00001.1ri27   +++|*CALL     COMSSCP
00079  M01S00071.1ri     +++|*CALL     COMSZOL
00080  M01S00072.1ri     +++| 1RI      SPACE  4
00081  M01S00073.1ri     +++|****      ASSEMBLY CONSTANTS.
00082  M01S00074.1ri     +++|
00083  M01S00075.1ri     +++|
00084  M01S00076.1ri     +++| IFLS     EQU    /CPS/IFLS   *PIOM* REPLY STATUS
00085  M01S00077.1ri     +++| RDDS     EQU    /CPS/RDDS   *PIOM* DIRECT READ
00086  M01S00078.1ri     +++| WDDS     EQU    /CPS/WDDS   *PIOM* DIRECT WRITE
00087  M01S00079.1ri     +++|          SPACE  4,10
00088  M01S00080.1ri     +++|**        DIRECT LOCATION ASSIGNMENTS.
00089  M01S00081.1ri     +++|
00090  M01S00082.1ri     +++|
00091  M01S00083.1ri     +++| T8       EQU    16          SCRATCH
00092  M01S00084.1ri     +++| T9       EQU    17          SCRATCH
00093  M01S00085.1ri     +++| FS       EQU    20 - 24     SCRATCH (5 CELLS)
00094  M01S00086.1ri     +++| EP       EQU    25          SPECIAL ENTRY POINT FLAGS FROM *SEPW*
Line S00087 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00087.271l716 ---|*         EQU    26          UNUSED
00096  M01S00006.271l716 +++| PR       EQU    26          0 IF PSEUDO-ROLLIN
00097  M01S00088.1ri     +++| DS       EQU    27          DRIVER STATUS
Line S00007 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00007.273l780 ---| NC       EQU    DS          NUMBER OF CONTROL POINTS
00099  M01S00089.1ri     +++| CN       EQU    30 - 34     SCRATCH (5 CELLS)
00100  M01S00090.1ri     +++| CI       EQU    35          ROLLOUT FILE INDEX
00101  M01S00091.1ri     +++| TW       EQU    36          CONSTANT 2
00102  M01S00092.1ri     +++| EO       EQU    37          EJT ORDINAL
00103  M01S00093.1ri     +++| TN       EQU    40          TERMINAL NUMBER
00104  M01S00094.1ri     +++| TT       EQU    41 - 42     TERMINAL TABLE ADDRESS (2 CELLS)
00105  M01S00095.1ri     +++| PP       EQU    43          POT POINTER
00106  M01S00096.1ri     +++| PA       EQU    44 - 45     POT ADDRESS (2 CELLS)
00107  M01S00097.1ri     +++| TA       EQU    46          *IAF* RA
00108  M01S00098.1ri     +++| FA       EQU    57          DM* FILE FNT ADDRESS
00109  M01S00099.1ri     +++| ZR       EQU    60 - 64     CM ZERO WORD (5 CELLS)
00110  M01S00100.1ri     +++| EF       EQU    65          ERROR FLAG
00111  M01S00101.1ri     +++| DI       EQU    66          *UJNI*+2 (USED TO DISABLE PROCESSING)
00112  M01S00102.1ri     +++| LW       EQU    67          ADDRESS OF LAST CM WORD ROLLED IN
00113  M01S00103.1ri     +++|
00114  M01S00104.1ri     +++|
00115  M01S00105.1ri     +++|****
00116  M01S00106.1ri     +++|          SPACE  4,10
00117  M01S00107.1ri     +++|**        SYSTEM SECTOR LOCATIONS RELATIVE TO START OF SECTOR.
00118  M01S00108.1ri     +++|
00119  M01S00008.271l716 +++| TYSS     EQU    FNSS-BFMS-2 FILE TYPE
00120  M01S00001.ns2685  +++| DMFA     EQU    FASS-BFMS-2 DM* FILE LOCAL FNT ADDRESS
00121  M01S00109.1ri     +++| SSSS     EQU    SJSS-BFMS-2 SSJ= JOB FLAG
00122  M01S00110.1ri     +++| DPFL     EQU    DPSS-BFMS-2 *DMP=* FL CONTROL
Line S00111 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00111.271l716 ---| CSCS     EQU    CSSS-BFMS-2 SERVICE CLASS CHANGE
00124  M01S00009.271l716 +++| SCCS     EQU    CSSS-BFMS-2 SERVICE CLASS CHANGE
00125  M01S00112.1ri     +++| RRSS     EQU    R1SS-BFMS-2 RECOVER TABLE
00126  M01S00113.1ri     +++| QBSS     EQU    QASS-BFMS-2 DELAYED *ALTER* FLAGS
00127  M01S00114.1ri     +++| EJRO     EQU    EJSS-BFMS-2 EJT ENTRY AT ROLLOUT
00128  M01S00001.ns2738  +++| SCPC     EQU    COSS-BFMS-2 SCP CONNECTIONS FROM CPA WORD *SSCW*
00129  M01S00115.1ri     +++|          TITLE  MACROS.
00130  M01S00116.1ri     +++|          SPACE  4,10
00131  M01S00117.1ri     +++|**        MACRO DEFINITIONS.
00132  M01S00118.1ri     +++| RESTOR   SPACE  4,25
00133  M01S00119.1ri     +++|**        RESTOR - SET CONTROL POINT AREAS TO RESTORE.
00134  M01S00120.1ri     +++|*
00135  M01S00121.1ri     +++|*         RESTOR WORD,BYTE,MASK
00136  M01S00122.1ri     +++|*
00137  M01S00123.1ri     +++|*         ENTRY  *WORD* = CONTROL POINT AREA WORD OFFSET.
00138  M01S00124.1ri     +++|*                       = BLANK, IF TABLE TERMINATOR.
00139  M01S00125.1ri     +++|*                *BYTE* = BYTE OFFSET WITHIN WORD.
00140  M01S00126.1ri     +++|*                       = *, IF ENTIRE CM WORD TO BE RESET.
00141  M01S00127.1ri     +++|*                *MASK* = BYTE MASK OF AREAS TO BE RESET.
00142  M01S00128.1ri     +++|*                       = *, IF ENTIRE BYTE TO BE RESET.
00143  M01S00129.1ri     +++|*
00144  M01S00130.1ri     +++|*         EXIT   TABLE ENTRY SET UP.
00145  M01S00131.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  M01S00132.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  M01S00133.1ri     +++|*
00148  M01S00134.1ri     +++|*         DEFINE .1 = CPA SEGMENT FLAG.
00149  M01S00135.1ri     +++|*                   = 0, IF FIRST HALF OF CPA.
00150  M01S00136.1ri     +++|*                   = 1, IF SECOND HALF OF CPA.
00151  M01S00137.1ri     +++|*                .2 = WORD OFFSET IN CPA SEGMENT.
00152  M01S00138.1ri     +++|*                   = *WORD*, IF *WORD* .LT. 100.
00153  M01S00139.1ri     +++|*                   = *WORD*-100, IF *WORD* .GE. 100.
00154  M01S00140.1ri     +++|
00155  M01S00141.1ri     +++|
00156  M01S00142.1ri     +++|          PURGMAC RESTOR
00157  M01S00143.1ri     +++|
00158  M01S00144.1ri     +++|          MACRO  RESTOR,LABEL,WORD,BYTE,MASK
00159  M01S00145.1ri     +++|          IFC    NE,$LABEL$$,2
00160  M01S00146.1ri     +++| .1       SET    0
00161  M01S00147.1ri     +++| LABEL    BSS    0
00162  M01S00148.1ri     +++| .A       IFC    EQ,$WORD$$
00163  M01S00149.1ri     +++|          CON    0
00164  M01S00150.1ri     +++| .A       ELSE
00165  M01S00151.1ri     +++| .2       SET    WORD
00166  M01S00152.1ri     +++| .B       IFGE   WORD,100
00167  M01S00153.1ri     +++| .2       SET    .2-100
00168  M01S00154.1ri     +++| .C       IFNE   .1,1
00169  M01S00155.1ri     +++|          CON    0
00170  M01S00156.1ri     +++| .1       SET    1
00171  M01S00157.1ri     +++| .C       ENDIF
00172  M01S00158.1ri     +++| .B       ELSE
00173  M01S00159.1ri     +++| .D       IFEQ   .1,1
00174  M01S00160.1ri     +++|          ERR - TABLE SEQUENCE ERROR.
00175  M01S00161.1ri     +++| .D       ENDIF
00176  M01S00162.1ri     +++| .B       ENDIF
00177  M01S00163.1ri     +++| .E       IFC    EQ,$BYTE$*$
00178  M01S00164.1ri     +++|          CON    4000+.2*5
00179  M01S00165.1ri     +++| .E       ELSE
00180  M01S00166.1ri     +++|          CON    .2*5+BYTE
00181  M01S00167.1ri     +++| .F       IFC    EQ,$MASK$*$
00182  M01S00168.1ri     +++|          CON    7777
00183  M01S00169.1ri     +++| .F       ELSE
00184  M01S00170.1ri     +++|          CON    MASK
00185  M01S00171.1ri     +++|          ENDIF
00186  M01S00172.1ri     +++| RESTOR   ENDM
00187  M01S00173.1ri     +++|          TITLE  MAIN PROGRAM.
00188  M01S00174.1ri     +++| RIJ      SPACE  4,10
00189  M01S00175.1ri     +++|**        RIJ - MAIN PROGRAM.
00190  M01S00176.1ri     +++|
00191  M01S00177.1ri     +++|
00192  M01S00178.1ri     +++|          ORG    PPFW
00193  M01S00179.1ri     +++|
Line S00180 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00180.271l716 ---|          LIST   X
00195  M01S00181.1ri     +++| RIJ      BSS    0
00196  M01S00182.1ri     +++|          RJM    PRS         PRESET
00197  M01S00010.271l716 +++| RIJG     EQU    *
00198  M01S00183.1ri     +++|          SETMS  READSTR,NS  REQUEST STREAMED DATA ON BUFFERED DEVICE
00199  M01S00011.271l716 +++|*         UJN    RIJ1        (PSEUDO-ROLLIN)
00200  M01S00184.1ri     +++|
00201  M01S00185.1ri     +++|*         READ ROLLOUT FILE.
00202  M01S00186.1ri     +++|
00203  M01S00187.1ri     +++|          RJM    SYS         READ SYSTEM SECTOR
00204  M01S00188.1ri     +++|
00205  M01S00189.1ri     +++| SEQ      EQU    *-2
Line S00190 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00190.271l716 ---|          SEQUENCE CPAI,CPA  READ CONTROL POINT AREA
00207  M01S00012.271l716 +++| RIJ1     SEQUENCE CPAI,CPA  READ CONTROL POINT AREA
00208  M01S00191.1ri     +++|*         UJN    *+2         (NO CONTROL POINT)
00209  M01S00013.271l716 +++|*         RJM    TCP         (PSEUDO-ROLLIN)
00210  M01S00192.1ri     +++|          SEQUENCE TOPI,/3RH/TOP   SKIP TERMINAL OUTPUT
00211  M01S00193.1ri     +++|*         UJN    *+2         (NON-INTERACTIVE/DETACHED INTERACTIVE JOB)
00212  M01S00014.271l716 +++|*         UJN    RIJ2.1      (PSEUDO-ROLLIN)
00213  M01S00194.1ri     +++|          SEQUENCE JFLI,JFL  READ JOB CM FIELD LENGTH
00214  M01S00195.1ri     +++|*         UJN    *+2         (NO CM FL)
00215  M01S00196.1ri     +++|          SEQUENCE JECI,JEC  READ JOB EXTENDED MEMORY FIELD LENGTH
00216  M01S00197.1ri     +++|*         UJN    *+2         (NO EXTENDED MEMORY FL)
00217  M01S00198.1ri     +++|
00218  M01S00199.1ri     +++|          ENDMS
00219  M01S00200.1ri     +++|
00220  M01S00201.1ri     +++|*         CLEAR ADDITIONAL NFL IF INCREASE WAS REQUESTED. ADJUST RA AND
00221  M01S00202.1ri     +++|*         FL BY NFL SIZE.
00222  M01S00203.1ri     +++|
00223  M01S00204.1ri     +++| RIJ2     BSS    0           REENTRY AFTER PROCESSING ERROR
00224  M01S00205.1ri     +++|          RJM    AFL         CLEAR INCREASED NFL, ADJUST RA AND FL
00225  M01S00206.1ri     +++|*         UJN    *+2         (DMP= CALL)
00226  M01S00207.1ri     +++| RIJA     EQU    *-2
00227  M01S00208.1ri     +++|          PAUSE  ST          RESET *RA* AND *FL*
00228  M01S00209.1ri     +++|
00229  M01S00210.1ri     +++|*         INITIATE JOB STEP FOR ON-LINE INTERACTIVE JOBS.
00230  M01S00211.1ri     +++|
00231  M01S00212.1ri     +++|          RJM    /3RH/PRS    PRESET FOR ON-LINE INTERACTIVE JOB
00232  M01S00213.1ri     +++|*         UJN    *+2         (NOT ON-LINE INTERACTIVE ROLLIN)
00233  M01S00214.1ri     +++| RIJB     EQU    *-2
00234  M01S00215.1ri     +++|
00235  M01S00216.1ri     +++|          RJM    /3RH/EDA    INITIATE JOB STEP
00236  M01S00217.1ri     +++|*         UJN    *+2         (NOT ON-LINE INTERACTIVE ROLLIN)
00237  M01S00218.1ri     +++| RIJC     EQU    *-2
00238  M01S00219.1ri     +++|
00239  M01S00220.1ri     +++|*         UPDATE EXCHANGE PACKAGE, RESTORE FIRST SECTOR OF CONTROL
00240  M01S00221.1ri     +++|*         POINT AREA, CLEAR SECURE MEMORY.
00241  M01S00222.1ri     +++|
Line S00223 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00223.271l716 ---|          RJM    RCP         RESTORE CONTROL POINT AREA
00243  M01S00015.271l716 +++| RIJ2.1   RJM    RCP         RESTORE CPA
00244  M01S00224.1ri     +++|*         RJM    /3RG/RCP    (DMP= CALL)
00245  M01S00225.1ri     +++| RIJD     EQU    *-1
00246  M01S00226.1ri     +++|
00247  M01S00227.1ri     +++|*         PROCESS POSSIBLE ERROR FLAG FROM EJT ENTRY. CHECK FOR CPU
00248  M01S00228.1ri     +++|*         TIME LIMIT OR SRU LIMIT.
00249  M01S00229.1ri     +++|
00250  M01S00230.1ri     +++|          RJM    PEF         PROCESS ERROR FLAG
00251  M01S00016.271l716 +++|*         UJN    RIJ3        (PSEUDO-ROLLIN)
00252  M01S00017.271l716 +++| RIJJ     EQU    *-2
00253  M01S00231.1ri     +++|          MJN    RIJ3        IF AN ERROR FLAG IS SET
00254  M01S00232.1ri     +++|          RJM    PLI         PROCESS LIMIT INCREASE
00255  M01S00233.1ri     +++|*         UJN    *+2         (NOT ROLLIN OF ON-LINE INTERACTIVE JOB)
00256  M01S00234.1ri     +++| RIJE     EQU    *-2
00257  M01S00235.1ri     +++| RIJ3     RJM    CJS         CHANGE JOB STATUS
00258  M01S00236.1ri     +++|
00259  M01S00237.1ri     +++|*         MOVE ERROR FLAG TO CONTROL POINT AREA.
00260  M01S00238.1ri     +++|
00261  M01S00239.1ri     +++|          LDD    EF
00262  M01S00240.1ri     +++|          ZJN    RIJ4        IF NO ERROR FLAG
00263  M01S00241.1ri     +++|          STD    CM+1
00264  M01S00242.1ri     +++|          SHN    21-13
00265  M01S00243.1ri     +++|          MJN    RIJ4        IF INTERNAL ERROR FLAG
00266  M01S00244.1ri     +++|          MONITOR  CEFM
00267  M01S00245.1ri     +++| RIJ4     LDM    CBUF+5*STSW+2
00268  M01S00246.1ri     +++|          NJP    RIJ8        IF ROLLOUT STATUS PRESENT
00269  M01S00247.1ri     +++|          LDM    ERSF
00270  M01S00248.1ri     +++|          ZJN    RIJ5        IF PP RECALL QUEUE EMPTY
00271  M01S00249.1ri     +++|          LDM    RIJF
00272  M01S00250.1ri     +++|          ZJN    RIJ5        IF NO CPU ACTIVITY
00273  M01S00251.1ri     +++|          LDC    UJNI+ERS9-ERSE
00274  M01S00252.1ri     +++|          ERRPL  ERS9-ERSE-40  RANGE ERROR
00275  M01S00253.1ri     +++|          STM    ERSE
00276  M01S00254.1ri     +++| RIJ5     RJM    ERS         PROCESS PP RECALL QUEUE
00277  M01S00255.1ri     +++|          LDC    **
00278  M01S00256.1ri     +++| RIJF     EQU    *-1         (CPU ACTIVITY FLAG)
00279  M01S00257.1ri     +++|          ZJP    RIJ12       IF NO CPU ACTIVITY
00280  M01S00258.1ri     +++|          LDD    EF
00281  M01S00259.1ri     +++|          NJP    RIJ12       IF ERROR FLAG SET
00282  M01S00260.1ri     +++|          LDM    ERSJ
00283  M01S00261.1ri     +++|          NJN    RIJ7        IF AUTO-RECALL ENTRY FOUND
00284  M01S00262.1ri     +++|          LDN    /CPS/CRCS   SET TO START CPU
00285  M01S00263.1ri     +++|          RAM    RIJH
Line S00264 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00264.271l716 ---| RIJ7     LDN    /CPS/DPPS   CLEAR JOB ADVANCE AND DROP PP
Line S00265 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00265.271l716 ---|*         LDN    /CPS/DPPS+/CPS/CRCS  ALSO RESTART CPU
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 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00020.273l780 ---|*         LDC    /CPS/DPPS+/CPS/CRCS+4000  (PSEUDO-ROLLIN)
00291  M01S00266.1ri     +++| RIJH     EQU    *-1
00292  M01S00267.1ri     +++|          STD    CM+1
Line S00021 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00021.273l780 ---|          LDD    T6          SET POSSIBLE PCP NUMBER
Line S00022 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00022.273l780 ---|          STD    CM+2
00295  M01S00268.1ri     +++|          MONITOR  JACM
00296  M01S00269.1ri     +++|          UJN    RIJ11       EXIT TO PP RESIDENT
00297  M01S00270.1ri     +++|
00298  M01S00271.1ri     +++|*         CALL *1AJ*.
00299  M01S00272.1ri     +++|
00300  M01S00273.1ri     +++| RIJ8     LDM    ERSF        RESET PP RECALL COUNT
00301  M01S00274.1ri     +++|          SHN    4
00302  M01S00275.1ri     +++|          ADM    ERSF        SET CURRENT QUEUE POINTER
00303  M01S00276.1ri     +++|          ADN    1
00304  M01S00277.1ri     +++|          STM    CBUF+5*STSW+4
00305  M01S00278.1ri     +++|          LDD    CP
00306  M01S00279.1ri     +++|          ADN    STSW
00307  M01S00280.1ri     +++|          CWM    CBUF+5*STSW,ON
00308  M01S00281.1ri     +++|          LDN    0
00309  M01S00282.1ri     +++| RIJ9     STD    IR+2
00310  M01S00283.1ri     +++|*         UJN    RIJ7        (DMP= ROLLIN)
00311  M01S00284.1ri     +++| RIJI     EQU    *-1
00312  M01S00285.1ri     +++|          STD    IR+4
00313  M01S00286.1ri     +++|          EXECUTE  1AJ,=     CALL *1AJ* INTO THIS PP
00314  M01S00287.1ri     +++|          LCN    1RR-1RA
00315  M01S00288.1ri     +++|          RAD    IR
00316  M01S00289.1ri     +++|          LDD    HN
00317  M01S00290.1ri     +++|          RAD    IR+1
00318  M01S00291.1ri     +++| RIJ10    LDD    IA          WRITE *1AJ* CALL TO PP INPUT REGISTER
00319  M01S00292.1ri     +++|          CWD    IR
Line S00023 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00023.273l780 ---|          UJN    *+2         CONTINUE
Line S00024 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00024.273l780 ---|*         RJM    RPC         (PSEUDO-ROLLIN)
Line S00025 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00025.273l780 ---| RIJK     EQU    *-1
Line S00026 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00026.273l780 ---|          CON    RPC         RELEASE PCP
00324  M01S00293.1ri     +++| RIJ11    LJM    PPR         CALL *1AJ*
00325  M01S00294.1ri     +++|
00326  M01S00295.1ri     +++| RIJ12    LDM    ERSF
00327  M01S00296.1ri     +++|          ZJN    RIJ9        IF NO PP ACTIVITY
00328  M01S00297.1ri     +++|          SBN    1
00329  M01S00298.1ri     +++|          NJN    RIJ13       IF MORE THAN *1AJ* IN RECALL QUEUE
00330  M01S00299.1ri     +++|          LDD    CI
00331  M01S00300.1ri     +++|          NJN    RIJ10       IF ONLY *1AJ* IN RECALL QUEUE
00332  M01S00301.1ri     +++| RIJ13    LJM    RIJ7        CLEAR JOB ADVANCE AND DROP PP
00333  M01S00302.1ri     +++|          TITLE  ROLLOUT FILE READ ROUTINES.
00334  M01S00303.1ri     +++| CPA      SPACE  4,10
00335  M01S00304.1ri     +++|**        CPA - READ CONTROL POINT AREA.
00336  M01S00305.1ri     +++|*
00337  M01S00306.1ri     +++|*         CALLS  MSR, RNS.
00338  M01S00307.1ri     +++|
00339  M01S00308.1ri     +++|
00340  M01S00309.1ri     +++| CPA      SUBR               ENTRY/EXIT
00341  M01S00310.1ri     +++|          LDC    CBUF-2      READ FIRST SECTOR OF CPA
00342  M01S00311.1ri     +++|          RJM    RNS         READ NEXT SECTOR
00343  M01S00312.1ri     +++|          SHN    -6
00344  M01S00313.1ri     +++|          ZJN    CPA1        IF SHORT SECTOR
00345  M01S00314.1ri     +++|          LDC    BFMS
00346  M01S00315.1ri     +++|*         LDC    /3RG/RBFF   (DMP= CALL)
00347  M01S00316.1ri     +++| CPAA     EQU    *-1
00348  M01S00317.1ri     +++|          RJM    RNS         READ NEXT SECTOR
00349  M01S00318.1ri     +++|          SHN    -6
00350  M01S00319.1ri     +++|          NJN    CPA2        IF NOT SHORT SECTOR
00351  M01S00320.1ri     +++| CPA1     RJM    MSR         PROCESS ERROR - NO RETURN
00352  M01S00321.1ri     +++|          RJM    HNG         HANG PP
00353  M01S00322.1ri     +++|
00354  M01S00323.1ri     +++| CPA2     LDD    IR+2
00355  M01S00324.1ri     +++|          STM    CPAB        SET CPA ROLLED IN FLAG IF DMP= CALL
00356  M01S00325.1ri     +++|          NJN    CPAX        IF DMP= CALL
00357  M01S00326.1ri     +++|          LDD    CP          WRITE SECOND SECTOR IN CPA
00358  M01S00327.1ri     +++|          ADD    HN
00359  M01S00328.1ri     +++|          CWM    BFMS+2,HN
00360  M01S00329.1ri     +++|          UJN    CPAX        RETURN
00361  M01S00330.1ri     +++|
00362  M01S00331.1ri     +++| CPAB     CON    0           NON-ZERO IF CPA ROLLED IN AND DMP= CALL
00363  M01S00332.1ri     +++| HNG      SPACE  4,10
00364  M01S00333.1ri     +++|**        HNG - HANG PP.
00365  M01S00334.1ri     +++|
00366  M01S00335.1ri     +++|
00367  M01S00336.1ri     +++| HNG      CON    0           ENTRY
00368  M01S00337.1ri     +++| HNG1     MONITOR  HNGM
00369  M01S00338.1ri     +++|          UJN    HNG1        DO NOT ALLOW OPERATOR TO CLEAR THE HANG
00370  M01S00339.1ri     +++| JFL      SPACE  4,15
00371  M01S00340.1ri     +++|**        JFL - READ JOB CM FIELD LENGTH.
00372  M01S00341.1ri     +++|*
00373  M01S00342.1ri     +++|*         ENTRY  (JFLB) = 1 IF NON-RESTART *DMP=* CALL.
00374  M01S00343.1ri     +++|*                (DI) = *UJNI*+2.
00375  M01S00344.1ri     +++|*
00376  M01S00345.1ri     +++|*         EXIT   (LW) = LWA+1 OF CM FL ROLLED IN (USED AS ECS ROLLIN
00377  M01S00346.1ri     +++|*                       BUFFER ADDRESS).
00378  M01S00347.1ri     +++|*
00379  M01S00348.1ri     +++|*         USES   T8, CI, LW.
00380  M01S00349.1ri     +++|*
00381  M01S00350.1ri     +++|*         CALLS  RIM.
00382  M01S00351.1ri     +++|*
00383  M01S00352.1ri     +++|*         MACROS ENDMS.
00384  M01S00353.1ri     +++|
00385  M01S00354.1ri     +++|
00386  M01S00355.1ri     +++| JFL4     LDD    DI          DISABLE EXTENDED MEMORY ROLLIN
00387  M01S00356.1ri     +++|          STM    JECI*2+SEQ
00388  M01S00357.1ri     +++|          LDN    0           SET NFL ONLY ROLLIN
00389  M01S00358.1ri     +++|          STM    AFLB
00390  M01S00359.1ri     +++|          LDM    CBUF+5*FLSW ROLLIN NFL ONLY
00391  M01S00360.1ri     +++|          RJM    RIM         ROLLIN MEMORY
00392  M01S00361.1ri     +++|
00393  M01S00362.1ri     +++| JFL      SUBR               ENTRY/EXIT
00394  M01S00363.1ri     +++|          UJN    *+2
00395  M01S00364.1ri     +++|*         ENDMS              (ROLLOUT DEVICE IS EXTENDED MEMORY)
00396  M01S00365.1ri     +++| JFLA     EQU    *-1
00397  M01S00366.1ri     +++|          CON    .EMS
00398  M01S00367.1ri     +++|          LDM    CBUF+FLIW*5+2  INITIALIZE ROLLIN INDEX
00399  M01S00368.1ri     +++|          STD    CI
00400  M01S00369.1ri     +++|          LDM    EJBF+SCLE*5+4
00401  M01S00370.1ri     +++|          ZJN    JFL4        IF ONLY NFL SHOULD BE ASSIGNED
00402  M01S00371.1ri     +++|          LDM    CBUF+5*FLSW+4
00403  M01S00372.1ri     +++|          ZJN    JFL4        IF NO CM FL TO ROLLIN
00404  M01S00373.1ri     +++|          SBN    MCMX/100/2  PRESET AMOUNT OF CM TO ROLLIN
00405  M01S00374.1ri     +++|          STD    T8
00406  M01S00375.1ri     +++|          LDN    0
00407  M01S00376.1ri     +++|*         LDN    1           (NON-RESTART DMP= CALL)
00408  M01S00377.1ri     +++| JFLB     EQU    *-1
00409  M01S00378.1ri     +++|          ZJN    JFL1        IF NOT RESTART DMP= CALL
00410  M01S00379.1ri     +++|          LDM    SBUF+DPFL
00411  M01S00380.1ri     +++|          NJN    JFL2        IF NOT FULL DUMP
00412  M01S00381.1ri     +++| JFL1     LDM    CBUF+5*ECSW+4
00413  M01S00382.1ri     +++|          NJN    JFL3        IF EXTENDED MEMORY ASSIGNED
00414  M01S00383.1ri     +++|          LDM    CBUF+5*FLSW+4
00415  M01S00384.1ri     +++| JFL2     STD    T8          SET AMOUNT OF CM TO ROLLIN
00416  M01S00385.1ri     +++|          LDD    DI          DISABLE EXTENDED MEMORY ROLLIN
00417  M01S00386.1ri     +++|          STM    JECI*2+SEQ
00418  M01S00387.1ri     +++| JFL3     LDD    T8          SET ROLLIN LWA
00419  M01S00388.1ri     +++|          ADD    CI          ADD NFL INCREASE AMOUNT
00420  M01S00389.1ri     +++|*         PSN                (DMP= CALL)
00421  M01S00390.1ri     +++| JFLC     EQU    *-1
00422  M01S00391.1ri     +++|          STD    LW          SET EXTENDED MEMORY BUFFER ADDRESS
00423  M01S00392.1ri     +++|          RJM    RIM         ROLLIN MEMORY
00424  M01S00393.1ri     +++|          LJM    JFLX        RETURN
Line S00394 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00394.273l780 ---| JEC      SPACE  4,15
00426  M01S00001.273l780 +++| JEC      SPACE  4,10
00427  M01S00395.1ri     +++|**        JEC - READ JOB EXTENDED MEMORY FIELD LENGTH.
00428  M01S00396.1ri     +++|*
00429  M01S00397.1ri     +++|*         ENTRY  (LW) = LWA+1 OF CM FL ROLLED IN.
00430  M01S00398.1ri     +++|*
00431  M01S00399.1ri     +++|*         USES   CM - CM+4, T8, CN - CN+2, CI.
00432  M01S00400.1ri     +++|*
00433  M01S00401.1ri     +++|*         CALLS  MSR, RIM.
00434  M01S00402.1ri     +++|*
00435  M01S00403.1ri     +++|*         ERROR  TO *MSR* IF ECS/ESM ERROR OCCURS.
00436  M01S00002.273l780 +++|*                TO *HNG* IF TO HANG PP ON ERROR.
00437  M01S00404.1ri     +++|
00438  M01S00405.1ri     +++|
00439  M01S00406.1ri     +++| JEC      SUBR               ENTRY/EXIT
00440  M01S00407.1ri     +++|          LDN    MCMX/100/4  SET EXTENDED MEMORY BUFFER SIZE
00441  M01S00408.1ri     +++|          STD    T8
00442  M01S00409.1ri     +++|          LDM    CBUF+ECSW*5+4
00443  M01S00410.1ri     +++| JECC     SHN    0
00444  M01S00411.1ri     +++|*         SHN    UESC        (CONVERT TO 1000B-WORD BLOCKS)
00445  M01S00412.1ri     +++|          STD    CN+2
00446  M01S00413.1ri     +++|          SHN    -14
00447  M01S00414.1ri     +++|          STD    CN+1
00448  M01S00415.1ri     +++|          NJN    JEC1        IF FULL BUFFER PRESENT
00449  M01S00416.1ri     +++|          LDD    CN+2
00450  M01S00417.1ri     +++|          SHN    3
00451  M01S00418.1ri     +++|          SBD    T8
00452  M01S00419.1ri     +++|          PJN    JEC1        IF FULL BUFFER PRESENT
00453  M01S00420.1ri     +++|          RAD    T8          ADJUST BUFFER SIZE
00454  M01S00421.1ri     +++| JEC1     LDD    CP
00455  M01S00422.1ri     +++|          CWD    ZR
00456  M01S00423.1ri     +++|
00457  M01S00424.1ri     +++|*         ROLLIN EXTENDED MEMORY.
00458  M01S00425.1ri     +++|
00459  M01S00426.1ri     +++|          LDD    LW          SET BUFFER ADDRESS
00460  M01S00427.1ri     +++|          STD    CN
00461  M01S00428.1ri     +++|          ADN    MCMX/100/4
00462  M01S00429.1ri     +++|          LMD    CN          SET TOGGLE CONSTANT
00463  M01S00430.1ri     +++|          STM    JECA
00464  M01S00431.1ri     +++|          LDD    CN          READ BUFFER FULL
00465  M01S00432.1ri     +++|          STD    CI
00466  M01S00433.1ri     +++|          ADD    T8
00467  M01S00434.1ri     +++| JEC2     RJM    RIM
00468  M01S00435.1ri     +++|          LDD    CN
00469  M01S00436.1ri     +++|          STM    JECB+1*5+2
00470  M01S00437.1ri     +++|          LMC    *
00471  M01S00438.1ri     +++| JECA     EQU    *-1
00472  M01S00439.1ri     +++|*         LMC    N           (TOGGLE CONSTANT)
00473  M01S00440.1ri     +++|          STD    CI
00474  M01S00441.1ri     +++|          STD    CN
00475  M01S00442.1ri     +++| JEC3     LDD    OA          WAIT *OR* CLEAR
00476  M01S00443.1ri     +++|          CRD    CM
00477  M01S00444.1ri     +++|          LDD    CM
Line S00445 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00445.271l716 ---|          NJN    JEC3        IF *ECXM* FUNCTION NOT COMPLETE
00479  M01S00027.271l716 +++|          NJN    JEC3        IF *RCXM*/*ECXM* INCOMPLETE
00480  M01S00446.1ri     +++| JEC4     LDD    CP          READ STATUS WORD
00481  M01S00447.1ri     +++|          CRD    CM
00482  M01S00448.1ri     +++|          LDD    CM
00483  M01S00449.1ri     +++|          NJN    JEC4        IF TRANSFER NOT COMPLETE
Line S00450 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00450.271l716 ---|          LDD    T8          SET *ECXM* WORD COUNT
00485  M01S00028.271l716 +++|          LDD    T8          SET *RCXM*/*ECXM* WORD COUNT
00486  M01S00451.1ri     +++|          SHN    6
00487  M01S00452.1ri     +++|          STM    JECB+5
00488  M01S00453.1ri     +++|          LDD    CM+1
00489  M01S00454.1ri     +++|          NJP    JEC8        IF ERROR
00490  M01S00455.1ri     +++|          LDD    CP          SET INTERLOCK BUSY
00491  M01S00456.1ri     +++|          CWD    ON
00492  M01S00457.1ri     +++|          LDD    OA          WRITE *MTR* REQUEST
00493  M01S00458.1ri     +++|          CWM    JECB,TW
00494  M01S00459.1ri     +++|          LDN    MCMX/4/1000 ADVANCE EXTENDED MEMORY ADDRESS
00495  M01S00460.1ri     +++|          RAM    JECB+1*5+4
00496  M01S00461.1ri     +++|          SHN    -14
00497  M01S00462.1ri     +++|          RAM    JECB+1*5+3
00498  M01S00463.1ri     +++|          SBD    CN+1
00499  M01S00464.1ri     +++|          MJN    JEC5        IF NOT DONE
00500  M01S00465.1ri     +++|          LDM    JECB+1*5+4
00501  M01S00466.1ri     +++|          SBD    CN+2
00502  M01S00467.1ri     +++|          PJN    JEC6        IF DONE
00503  M01S00468.1ri     +++|          SHN    3
00504  M01S00469.1ri     +++|          ADD    T8
00505  M01S00470.1ri     +++|          MJN    JEC5        IF FULL BUFFER REMAINS
00506  M01S00471.1ri     +++|          STD    T8
00507  M01S00472.1ri     +++|          LDN    MCMX/100/4
00508  M01S00473.1ri     +++|          SBD    T8
00509  M01S00474.1ri     +++|          STD    T8
00510  M01S00475.1ri     +++| JEC5     LDD    T8
00511  M01S00476.1ri     +++|          ADD    CI
00512  M01S00477.1ri     +++|          UJP    JEC2        CONTINUE ROLLIN
00513  M01S00478.1ri     +++|
00514  M01S00479.1ri     +++| JEC6     LDD    OA          WAIT OR CLEAR
00515  M01S00480.1ri     +++|          CRD    CM
00516  M01S00481.1ri     +++|          LDD    CM
Line S00482 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00517  M02S00482.271l716 ---|          NJN    JEC6        IF *ECXM* FUNCTION NOT COMPLETE
00518  M01S00029.271l716 +++|          NJN    JEC6        IF *RCXM/ECXM* INCOMPLETE
00519  M01S00483.1ri     +++| JEC7     LDD    CP
00520  M01S00484.1ri     +++|          CRD    CM
00521  M01S00485.1ri     +++|          LDD    CM
00522  M01S00486.1ri     +++|          NJN    JEC7        IF TRANSFER NOT COMPLETE
00523  M01S00487.1ri     +++|          LDD    CM+1
00524  M01S00488.1ri     +++| JEC8     ZJN    JEC9        IF NO ERROR
00525  M01S00489.1ri     +++|          RJM    MSR         PROCESS ERROR - NO RETURN
00526  M01S00490.1ri     +++|          RJM    HNG         HANG PP
00527  M01S00491.1ri     +++|
00528  M01S00492.1ri     +++|*         ROLLIN LAST PART OF CM.
00529  M01S00493.1ri     +++|
00530  M01S00494.1ri     +++| JEC9     LDD    LW          SET FWA TO ROLL IN
00531  M01S00495.1ri     +++|          STD    CI
00532  M01S00496.1ri     +++|          ADN    MCMX/100/2  SET AMOUNT TO ROLLIN
00533  M01S00497.1ri     +++|          RJM    RIM
00534  M01S00498.1ri     +++|          LJM    JECX        RETURN
00535  M01S00499.1ri     +++|
00536  M01S00500.1ri     +++|
Line S00501 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00501.271l716 ---| JECB     VFD    12/ECXM     PPU MONITOR FUNCTION
Line S00502 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00502.271l716 ---|          VFD    6/0
Line S00503 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00503.271l716 ---|          VFD    18/0        ALTERNATE RESPONSE ADDRESS
Line S00504 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00504.271l716 ---|          VFD    3/1         WRITE REQUEST
Line S00505 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00541  M02S00505.271l716 ---|          VFD    21/0
00542  M01S00030.271l716 +++| JECB     VFD    12/RCXM     EM TRANSFER FUNCTION PROCESSED BY *MTR*
Line S00031 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00031.273l780 ---|          VFD    1/0         ALTERNATE CP/PCP FLAG
Line S00032 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00544  M02S00032.273l780 ---|          VFD    11/0
Line S00033 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00545  M02S00033.273l780 ---|          VFD    12/0        CP/PCP
Line S00034 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00034.273l780 ---|          VFD    5/0
00547  M01S00003.273l780 +++|          VFD    29/0
00548  M01S00035.271l716 +++|          VFD    1/1         FUNCTION TYPE = WRITE
00549  M01S00036.271l716 +++|          VFD    18/0        ALTERNATE RESPONSE ADDRESS
00550  M01S00506.1ri     +++|
00551  M01S00507.1ri     +++|          VFD    12/MCMX/4   WORD COUNT
00552  M01S00508.1ri     +++|          VFD    12/0
00553  M01S00509.1ri     +++|          VFD    12/0        CM ADDRESS/100B (RELATIVE)
00554  M01S00510.1ri     +++|          VFD    24/0        EXTENDED MEMORY ADDRESS/1000B (RELATIVE)
00555  M01S00511.1ri     +++|          TITLE SUBROUTINES.
00556  M01S00512.1ri     +++| AFL      SPACE  4,10
00557  M01S00513.1ri     +++|**        AFL - ADJUST RA AND FL.
00558  M01S00514.1ri     +++|*
00559  M01S00515.1ri     +++|*         USES   T0, CM - CM+4.
00560  M01S00516.1ri     +++|*
00561  M01S00517.1ri     +++|*         MACROS MONITOR.
00562  M01S00518.1ri     +++|
00563  M01S00519.1ri     +++|
00564  M01S00520.1ri     +++| AFL      SUBR               ENTRY/EXIT
00565  M01S00521.1ri     +++|
00566  M01S00522.1ri     +++|*         CLEAR ADDITIONAL NFL, IF ANY.
00567  M01S00523.1ri     +++|
00568  M01S00524.1ri     +++|          LDN    ZERL
00569  M01S00525.1ri     +++|          CRD    CM
00570  M01S00526.1ri     +++|          LDN    1
00571  M01S00527.1ri     +++|*         LDN    0           (MEMORY CLEARING ENABLED)
00572  M01S00528.1ri     +++| AFLA     EQU    *-1
00573  M01S00529.1ri     +++|          ZJN    AFL1        IF MEMORY CLEARING ENABLED
00574  M01S00530.1ri     +++|          LDM    CBUF+5*FLIW+2
00575  M01S00531.1ri     +++|          ZJN    AFL1        IF NO NFL INCREASE
00576  M01S00532.1ri     +++|          SHN    6           SET WORD COUNT
00577  M01S00533.1ri     +++|          STD    CM+2
00578  M01S00534.1ri     +++|          LDD    HN          SET RELATIVE FLAG
00579  M01S00535.1ri     +++|          STD    CM+1
00580  M01S00536.1ri     +++|          MONITOR  CSTM
00581  M01S00537.1ri     +++|
00582  M01S00538.1ri     +++|*         ADJUST RA AND FL BY NFL SIZE.
00583  M01S00539.1ri     +++|
00584  M01S00540.1ri     +++| AFL1     LDM    CBUF+5*FLSW+4  SAVE PREVIOUS CM FL SIZE
00585  M01S00541.1ri     +++|          SBM    CBUF+5*FLSW
00586  M01S00542.1ri     +++|          STM    RCPA
00587  M01S00543.1ri     +++|          STM    CSMA
00588  M01S00544.1ri     +++|          LDM    CBUF+5*FLSW SAVE NEW NFL SIZE
00589  M01S00545.1ri     +++|          RAM    CBUF+5*FLIW+2
00590  M01S00546.1ri     +++|          LDM    CBUF+5*ECSW+4  SAVE PREVIOUS ECS FL SIZE
00591  M01S00547.1ri     +++|          STM    CSMB
00592  M01S00548.1ri     +++|          LDD    CP          GET *FLSW*, *FLSW+1* AND *ECSW* FROM CPA
00593  M01S00549.1ri     +++|          ADN    FLSW
00594  M01S00550.1ri     +++|          CRM    CBUF+5*FLSW,TW
00595  M01S00551.1ri     +++|          ADK    ECSW-FLSW-2
00596  M01S00552.1ri     +++|          CRM    CBUF+5*ECSW,ON
00597  M01S00553.1ri     +++|          LDM    CBUF+5*FLIW+2  SET NFL
00598  M01S00554.1ri     +++|          STM    CBUF+5*FLSW
00599  M01S00555.1ri     +++|          STD    T0
00600  M01S00556.1ri     +++|          LDM    CBUF+5*FLSW+2  SET RA - NFL IN *FLSW+1*
00601  M01S00557.1ri     +++|          STM    CBUF+5*FLSW+5*1+1
00602  M01S00558.1ri     +++|          LDM    CBUF+5*FLSW+3
00603  M01S00559.1ri     +++|          STM    CBUF+5*FLSW+5*1+2
00604  M01S00560.1ri     +++|          LDD    T0
00605  M01S00561.1ri     +++|          RAM    CBUF+5*FLSW+3  SET ADJUSTED RA (RA + NFL)
00606  M01S00562.1ri     +++|          SHN    -14
00607  M01S00563.1ri     +++|          RAM    CBUF+5*FLSW+2
00608  M01S00564.1ri     +++|          LCN    0           ADJUST FL (FL - NFL)
00609  M01S00565.1ri     +++|          LMD    T0
00610  M01S00566.1ri     +++|          RAM    CBUF+5*FLSW+4
00611  M01S00567.1ri     +++|          STM    CBUF+5*FLSW+5*1+4
00612  M01S00568.1ri     +++|          LDD    T0          STORE NFL + 4000 IN *FLSW+1*
00613  M01S00569.1ri     +++|          LMC    4000
00614  M01S00570.1ri     +++|          STM    CBUF+5*FLSW+5*1+3
00615  M01S00571.1ri     +++|          LDD    CP          UPDATE *FLSW* AND *FLSW+1* IN CM
00616  M01S00572.1ri     +++|          ADN    FLSW
00617  M01S00573.1ri     +++|          CWM    CBUF+5*FLSW,TW
00618  M01S00574.1ri     +++|          LDD    EF
00619  M01S00575.1ri     +++|          ZJN    AFL2        IF NO ERROR FLAG PRESENT
00620  M01S00576.1ri     +++|          LDC    *
00621  M01S00577.1ri     +++|*         LDC    0           (NFL ONLY ROLLIN)
00622  M01S00578.1ri     +++| AFLB     EQU    *-1
00623  M01S00579.1ri     +++|          NJN    AFL2        IF NOT A NFL ONLY ROLLIN
00624  M01S00580.1ri     +++|          STD    CM+1        RELEASE EXTRA FL
00625  M01S00581.1ri     +++|          LDN    0
00626  M01S00582.1ri     +++|          STD    CM+2
00627  M01S00583.1ri     +++|          MONITOR  RSTM
00628  M01S00584.1ri     +++| AFL2     LJM    AFLX        RETURN
00629  M01S00585.1ri     +++| CHG      SPACE  4,10
00630  M01S00586.1ri     +++|**        CHG - CONDITIONAL HANG.
00631  M01S00587.1ri     +++|*
00632  M01S00588.1ri     +++|*         ENTRY  (A) = ERROR FLAG TO SET.
00633  M01S00589.1ri     +++|*
00634  M01S00590.1ri     +++|*         USES   CM - CM+4.
00635  M01S00591.1ri     +++|*
00636  M01S00592.1ri     +++|*         MACROS MONITOR.
00637  M01S00593.1ri     +++|
00638  M01S00594.1ri     +++|
00639  M01S00595.1ri     +++| CHG      SUBR               ENTRY/EXIT
00640  M01S00596.1ri     +++|          STD    CM+2        SET ERROR FLAG
00641  M01S00597.1ri     +++|          LDM    CHG         P-ADDRESS
00642  M01S00598.1ri     +++|          STD    CM+1
00643  M01S00599.1ri     +++|          MONITOR  CHGM      CONDITIONAL HANG
00644  M01S00600.1ri     +++|          UJN    CHGX        RETURN
00645  M01S00601.1ri     +++| CJS      SPACE  4,10
00646  M01S00602.1ri     +++|**        CJS - CHANGE JOB STATUS.
00647  M01S00603.1ri     +++|*
00648  M01S00604.1ri     +++|*         ENTRY  (EO) = EJT ORDINAL (NON-DMP= CALL).
00649  M01S00037.271l716 +++|*                (PR) = 0 IF PSEUDO-ROLLIN.
00650  M01S00605.1ri     +++|*
Line S00606 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00606.271l716 ---|*         USES   CM+1 - CM+4.
00652  M01S00038.271l716 +++|*         USES   CM - CM+4, CN - CN+4, FS - FS+4, T1 - T5.
00653  M01S00607.1ri     +++|*
Line S00608 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00608.273l780 ---|*         CALLS  DRF, SNS, 3RI, 3RJ.
00655  M01S00004.273l780 +++|*         CALLS  DRF, RPC, SNS, 3RI, 3RJ.
00656  M01S00609.1ri     +++|*
Line S00610 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00610.273l780 ---|*         MACROS EXECUTE, MONITOR, SFA.
00658  M01S00005.273l780 +++|*         MACROS EXECUTE, SFA.
00659  M01S00611.1ri     +++|
00660  M01S00612.1ri     +++|
00661  M01S00613.1ri     +++| CJS      SUBR               ENTRY/EXIT
00662  M01S00614.1ri     +++|          LDN    0
00663  M01S00615.1ri     +++|*         LDN    1           (*DMP=* CALL)
00664  M01S00616.1ri     +++| CJSA     EQU    *-1
00665  M01S00617.1ri     +++|          ZJN    CJS1        IF NOT DMP= CALL
00666  M01S00618.1ri     +++|          LJM    CJS5        DROP DM* FILE
00667  M01S00619.1ri     +++|
00668  M01S00620.1ri     +++|*         CHECK FOR SERVICE CLASS CHANGE.
00669  M01S00621.1ri     +++|
Line S00622 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00622.271l716 ---| CJS1     LDM    SBUF+CSCS
00671  M01S00039.271l716 +++| CJS1     LDD    PR
00672  M01S00040.271l716 +++|          ZJN    CJS4        IF PSEUDO-ROLLIN
00673  M01S00041.271l716 +++|          LDM    SBUF+SCCS
00674  M01S00623.1ri     +++|          ZJN    CJS2        IF NO SERVICE CLASS CHANGE
00675  M01S00624.1ri     +++|          STD    CN          SAVE SERVICE CLASS FOR *3RI*
00676  M01S00625.1ri     +++|          EXECUTE  3RI       PERFORM SERVICE CLASS CHANGE
00677  M01S00626.1ri     +++|
00678  M01S00627.1ri     +++|*         CHECK FOR DELAYED *ALTER* FUNCTIONS.
00679  M01S00628.1ri     +++|
00680  M01S00629.1ri     +++| CJS2     LDM    SBUF+QBSS
00681  M01S00630.1ri     +++|          ZJN    CJS3        IF NO DELAYED *ALTER* FUNCTIONS
00682  M01S00631.1ri     +++|          EXECUTE  3RJ       PROCESS DELAYED *ALTER* FUNCTIONS
00683  M01S00632.1ri     +++|
00684  M01S00633.1ri     +++|*         CHECK FOR SCP NOTIFICATION REQUIRED.
00685  M01S00634.1ri     +++|
00686  M01S00635.1ri     +++| CJS3     LDM    EJBF+5*JSNE+4
00687  M01S00636.1ri     +++|          LPN    76
00688  M01S00637.1ri     +++|          LMN    SIJS*2
00689  M01S00638.1ri     +++|          NJN    CJS4        IF NOT *SIJS* JOB STATE
00690  M01S00639.1ri     +++|          RJM    SNS         SEND NOTIFICATION OF ROLLIN TO SCP
00691  M01S00640.1ri     +++|
00692  M01S00641.1ri     +++|*         UPDATE THE EJT ENTRY AS FOLLOWS -
00693  M01S00642.1ri     +++|*                UPDATE CONNECTION STATUS.
00694  M01S00643.1ri     +++|*                CHANGE JOB STATUS TO *EXJS*.
00695  M01S00644.1ri     +++|*                CLEAR ROLLOUT FILE ADDRESS.
00696  M01S00645.1ri     +++|*                CLEAR ERROR FLAG.
00697  M01S00646.1ri     +++|*                CLEAR FORCED ROLLOUT FLAG.
00698  M01S00647.1ri     +++|
Line S00648 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00648.271l716 ---| CJS4     LDN    CJSCL       SAVE PARAMETER WORD COUNT
Line S00649 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00649.271l716 ---|          STD    CM+1
Line S00650 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00701  M02S00650.271l716 ---|          LDN    0
Line S00651 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00651.271l716 ---|          STD    CM+2
Line S00652 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00652.271l716 ---|          SFA    EJT,EO
Line S00653 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00653.271l716 ---|          STD    CM+4
Line S00654 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00654.271l716 ---|          SHN    -14
Line S00655 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00706  M02S00655.271l716 ---|          STD    CM+3
Line S00656 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00656.271l716 ---|          LDD    MA
Line S00657 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00657.271l716 ---|          CWM    CJSC,CM+1
Line S00658 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00709  M02S00658.271l716 ---|          MONITOR  UTEM
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  M01S00659.1ri     +++|
00740  M01S00660.1ri     +++|*         RELEASE ROLLOUT FILE / DM* FILE (DMP= CALL) MASS STORAGE
Line S00661 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00661.273l780 ---|*         SPACE.  IF DMP= CALL, DROP DM* FILE FNT/FST ENTRY.
00742  M01S00006.273l780 +++|*         SPACE.  IF DMP= CALL, DROP DM* FILE FNT/FST ENTRY.  IF
00743  M01S00007.273l780 +++|*         PSEUDO-ROLLIN, RELEASE PSEUDO-CONTROL POINT.
00744  M01S00662.1ri     +++|
00745  M01S00663.1ri     +++| CJS5     RJM    DRF         DROP ROLLOUT FILE
Line S00071 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00071.273l780 ---|*         UJN    *+2         (PSEUDO-ROLLIN)
Line S00072 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00072.273l780 ---| CJSB     EQU    *-2
00748  M01S00008.273l780 +++|*         RJM    RPC         (PSEUDO-ROLLIN)
00749  M01S00009.273l780 +++| CJSB     EQU    *-1
00750  M01S00664.1ri     +++|          LJM    CJSX        RETURN
00751  M01S00665.1ri     +++|
Line S00666 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00666.271l716 ---| CJSB     BSS    5           PARAMETERS PASSED BY *1SJ* VIA CPA WORD 0
00753  M01S00073.271l716 +++| CJSC     BSS    5           PARAMETERS PASSED BY *1SJ* VIA CPA WORD 0
00754  M01S00667.1ri     +++|
00755  M01S00668.1ri     +++|
Line S00669 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00756  M02S00669.271l716 ---|*         *UTEM* PARAMETER BLOCK.
Line S00670 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00670.271l716 ---|
Line S00671 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00671.271l716 ---| CJSC     VFD    1/0,5/JSNE,6/10D  CONNECTION STATUS AND JOB STATUS
Line S00672 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00672.271l716 ---|          VFD    6/1,6/0
Line S00673 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00673.271l716 ---|          CON    0,0,EXJS+40
Line S00674 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00674.271l716 ---|
Line S00675 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00675.271l716 ---|          VFD    1/0,5/SCHE,6/24D  ROLLOUT FILE ADDRESS
Line S00676 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00763  M02S00676.271l716 ---|          VFD    6/36D,6/0
Line S00677 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00677.271l716 ---|          CON    0,0,0
Line S00678 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00765  M02S00678.271l716 ---|
Line S00679 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00766  M02S00679.271l716 ---|          VFD    1/0,5/PRFE,6/12D  ERROR FLAG
Line S00680 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00767  M02S00680.271l716 ---|          VFD    6/36D,6/0
Line S00681 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00681.271l716 ---|          CON    0,0,0
Line S00682 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00682.271l716 ---|          VFD    1/0,5/SCLE,6/1    FORCED ROLLOUT FLAG
Line S00683 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00683.271l716 ---|          VFD    6/53D,6/0
Line S00684 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00684.271l716 ---|          CON    0,0,0
Line S00685 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00685.271l716 ---| CJSCL    EQU    */5-CJSC/5  *UTEM* PARAMETER COUNT
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  M01S00686.1ri     +++| CSM      SPACE  4,10
00781  M01S00687.1ri     +++|**        CSM - CLEAR SECURE MEMORY.
00782  M01S00688.1ri     +++|*
00783  M01S00689.1ri     +++|*         ENTRY  (EP) = ENTRY POINT FLAGS FROM *SEPW*.
00784  M01S00690.1ri     +++|*
00785  M01S00691.1ri     +++|*         USES   CM - CM+4.
00786  M01S00692.1ri     +++|*
00787  M01S00693.1ri     +++|*         MACROS MONITOR.
00788  M01S00694.1ri     +++|
00789  M01S00695.1ri     +++|
00790  M01S00696.1ri     +++| CSM      SUBR               ENTRY/EXIT
00791  M01S00697.1ri     +++|          LDN    1
00792  M01S00698.1ri     +++|*         LDN    0           (MEMORY CLEARING ENABLED)
00793  M01S00699.1ri     +++| CSMC     EQU    *-1
00794  M01S00700.1ri     +++|          ZJN    CSMX        IF MEMORY CLEARING ENABLED
00795  M01S00701.1ri     +++|          LDD    EP
00796  M01S00702.1ri     +++|          LPN    1
00797  M01S00703.1ri     +++|          NJN    CSM1        IF *SSM=* ENTRY POINT PRESENT
00798  M01S00704.1ri     +++|          LDC    **
00799  M01S00705.1ri     +++| CSMA     EQU    *-1         (OLD CM FL SIZE)
00800  M01S00706.1ri     +++|          ZJN    CSM1        IF NO CM FL TO BE CLEARED
00801  M01S00707.1ri     +++|          SHN    6           SET FWA TO CLEAR
00802  M01S00708.1ri     +++|          STD    CM+4
00803  M01S00709.1ri     +++|          SHN    -14
00804  M01S00710.1ri     +++|          STD    CM+3
00805  M01S00711.1ri     +++|          LDD    FL          COMPARE NEW CM FL WITH OLD
00806  M01S00712.1ri     +++|          SBM    CSMA
00807  M01S00713.1ri     +++|          ZJN    CSM1        IF NO CHANGE
00808  M01S00714.1ri     +++|          MJN    CSM1        IF DECREASE
00809  M01S00715.1ri     +++|          SHN    6           SET WORD COUNT
00810  M01S00716.1ri     +++|          STD    CM+2
00811  M01S00717.1ri     +++|          SHN    -14
00812  M01S00718.1ri     +++|          LMD    HN          SET CM RELATIVE ADDRESSING FLAGS
00813  M01S00719.1ri     +++|          STD    CM+1
00814  M01S00720.1ri     +++|          MONITOR  CSTM      CLEAR MEMORY
00815  M01S00721.1ri     +++| CSM1     LDC    **
00816  M01S00722.1ri     +++| CSMB     EQU    *-1         (OLD EXTENDED MEMORY FL SIZE)
00817  M01S00723.1ri     +++|          STD    CM+4        SET FWA TO CLEAR
00818  M01S00724.1ri     +++|          LDM    CBUF+5*ECSW+4  COMPARE NEW EXTENDED MEMORY FL WITH OLD
00819  M01S00725.1ri     +++|          SBM    CSMB
00820  M01S00726.1ri     +++|          ZJN    CSM2        IF NO CHANGE
00821  M01S00727.1ri     +++|          MJN    CSM2        IF DECREASE
00822  M01S00728.1ri     +++|          STD    CM+2        SET WORD COUNT
00823  M01S00729.1ri     +++|          LDN    0
00824  M01S00730.1ri     +++|          STD    CM+3
00825  M01S00731.1ri     +++|          LDC    300         SET ECS RELATIVE ADDRESSING FLAGS
00826  M01S00732.1ri     +++|          STD    CM+1
00827  M01S00733.1ri     +++|          MONITOR  CSTM      CLEAR MEMORY
Line S00734 Modification History
M01 (Added by) 1ri
M02 (Updated by) 1ri28
Seq #  *Modification Id* Act 
----------------------------+
00828  M02S00734.1ri28   ---| CSM2     LDD    CP          CLEAR CONSOLE MESSAGE, IF ANY
Line S00735 Modification History
M01 (Added by) 1ri
M02 (Updated by) 1ri28
Seq #  *Modification Id* Act 
----------------------------+
00829  M02S00735.1ri28   ---|          ADN    MS2W
Line S00736 Modification History
M01 (Added by) 1ri
M02 (Updated by) 1ri28
Seq #  *Modification Id* Act 
----------------------------+
00830  M02S00736.1ri28   ---|          CWD    ZR
Line S00737 Modification History
M01 (Added by) 1ri
M02 (Updated by) 1ri28
Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00737.1ri28   ---|          LJM    CSMX        RETURN
00832  M01S00001.1ri28   +++| CSM2     LJM    CSMX        RETURN
00833  M01S00738.1ri     +++| DRF      SPACE  4,10
00834  M01S00739.1ri     +++|**        DRF - DROP ROLLOUT FILE.
00835  M01S00740.1ri     +++|*
00836  M01S00741.1ri     +++|*         ENTRY  (FA) = DM* FILE FNT ADDRESS/OFFSET (DMP= CALL).
00837  M01S00742.1ri     +++|*                (EJBF+5*SCHE) = ROLLOUT/DM* FILE EQUIPMENT.
00838  M01S00743.1ri     +++|*                (EJBF+5*SCHE+1) = ROLLOUT/DM* FILE FIRST TRACK.
00839  M01S00744.1ri     +++|*
00840  M01S00745.1ri     +++|*         USES   CM+1, CM+2, CM+4.
00841  M01S00746.1ri     +++|*
00842  M01S00747.1ri     +++|*         MACROS MONITOR.
00843  M01S00748.1ri     +++|
00844  M01S00749.1ri     +++|
00845  M01S00750.1ri     +++| DRF2     LDD    FA          CLEAR DM* FILE FNT/FST ENTRY
00846  M01S00751.1ri     +++|          STD    CM+4
00847  M01S00752.1ri     +++|          LDN    /CPS/DLFS
00848  M01S00753.1ri     +++|          STD    CM+1
00849  M01S00754.1ri     +++|          MONITOR  PLFM
00850  M01S00755.1ri     +++|
00851  M01S00756.1ri     +++| DRF      SUBR               ENTRY/EXIT
00852  M01S00757.1ri     +++|          LDM    EJBF+5*SCHE RELEASE MASS STORAGE SPACE
00853  M01S00001.253l688 +++|          LMD    TH          SET RETURN-ON-INACCESSIBLE BIT
00854  M01S00758.1ri     +++|          STD    CM+1        SET EQUIPMENT
00855  M01S00759.1ri     +++|          LDM    EJBF+5*SCHE+1  SET FIRST TRACK
00856  M01S00760.1ri     +++|          STD    CM+2
00857  M01S00761.1ri     +++|          MONITOR  DTKM
00858  M01S00762.1ri     +++|          UJN    DRFX        RETURN
00859  M01S00763.1ri     +++|*         UJN    DRF2        (DMP= CALL)
00860  M01S00764.1ri     +++| DRFB     EQU    *-1
Line S00765 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00765.273l780 ---| ERS      SPACE  4,10
00862  M01S00010.273l780 +++| ERS      SPACE  4,15
00863  M01S00766.1ri     +++|**        ERS - ENTER RECALL STACK ENTRIES.
00864  M01S00767.1ri     +++|*
00865  M01S00768.1ri     +++|*         EXIT   (A) = 0, IF *1AJ* NOT FOUND.
00866  M01S00769.1ri     +++|*                (IR - IR+4) = *1AJ* CALL IF PRESENT.
00867  M01S00770.1ri     +++|*                RECALL STACK REACTIVATED.
00868  M01S00771.1ri     +++|*                (ERSJ) = COUNT OF AUTO-RECALL ENTRIES FOUND.
00869  M01S00772.1ri     +++|*
Line S00773 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00773.271l716 ---|*         USES   T1 - T7, CM - CM+4, CN - CN+4, CI.
Line S00081 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00081.273l780 ---|*         USES   CI, T1, T2, CM - CM+4, CN - CN+4, FS - FS+4.
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  M01S00774.1ri     +++|*
00877  M01S00775.1ri     +++|*         MACROS MONITOR.
00878  M01S00776.1ri     +++|
00879  M01S00777.1ri     +++|
00880  M01S00778.1ri     +++| ERS      SUBR               ENTRY/EXIT
00881  M01S00779.1ri     +++|          LDN    ZERL        CLEAR RECALL LINKS
00882  M01S00780.1ri     +++|          CRD    CM
00883  M01S00781.1ri     +++|          AOD    CM+4
00884  M01S00782.1ri     +++| ERS1     AOD    CM+4
00885  M01S00783.1ri     +++|          ADC    RCCW-2
00886  M01S00784.1ri     +++|          ADD    CP
00887  M01S00785.1ri     +++|          CWD    CM
00888  M01S00786.1ri     +++|          LDD    CM+4
00889  M01S00787.1ri     +++|          LMN    LREC
00890  M01S00788.1ri     +++|          NJN    ERS1        IF NOT END OF LINKS
00891  M01S00789.1ri     +++|          STD    CM+4
00892  M01S00790.1ri     +++|          LDD    CP
00893  M01S00791.1ri     +++|          ADC    RCCW+LREC-1
00894  M01S00792.1ri     +++|          CWD    CM
00895  M01S00793.1ri     +++|          ADN    RECW-RCCW-LREC+1
00896  M01S00794.1ri     +++|          STD    T1
00897  M01S00795.1ri     +++|          ADN    LREC
00898  M01S00796.1ri     +++|          STM    ERSD
00899  M01S00797.1ri     +++|          LDM    ERSF
00900  M01S00798.1ri     +++|          ZJN    ERSX        IF RECALL QUEUE EMPTY AND NO TAPE ACTIVITY
00901  M01S00799.1ri     +++|          LDN    0           CLEAR ENTRY COUNT
00902  M01S00800.1ri     +++|          STD    T2
00903  M01S00801.1ri     +++|          STD    CI
00904  M01S00802.1ri     +++| ERS2     LDD    T1          CHECK ENTRY
Line S00803 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00803.271l716 ---|          CRD    T3
00906  M01S00082.271l716 +++|          CRD    FS
00907  M01S00804.1ri     +++|          CWD    ZR          CLEAR ENTRY
00908  M01S00805.1ri     +++|          ADN    REPW-RECW
00909  M01S00806.1ri     +++|          CRD    CN
00910  M01S00807.1ri     +++|          CWD    ZR
00911  M01S00808.1ri     +++|          LDD    MA          MOVE REQUEST TO MESSAGE BUFFER
Line S00809 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00809.271l716 ---|          CWD    T3
00913  M01S00083.271l716 +++|          CWD    FS
00914  M01S00810.1ri     +++|          ADN    1
00915  M01S00811.1ri     +++|          CWD    CN
Line S00812 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00812.271l716 ---|          LDD    T3+1
00917  M01S00084.271l716 +++|          LDD    FS+1
00918  M01S00813.1ri     +++|          SCN    77
00919  M01S00814.1ri     +++|          SHN    6
Line S00815 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00920  M02S00815.271l716 ---|          LMD    T3
00921  M01S00085.271l716 +++|          LMD    FS
Line S00816 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00922  M02S00816.271l716 ---|          ZJP    ERS6        IF EMPTY RECALL ENTRY
00923  M01S00086.271l716 +++|          ZJN    ERS6        IF EMPTY RECALL ENTRY
00924  M01S00817.1ri     +++|          LMC    3RJ1A
Line S00818 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00818.271l716 ---|          ZJP    ERS7        IF *1AJ* RECALL ENTRY
00926  M01S00087.271l716 +++|          ZJN    ERS7        IF *1AJ* RECALL ENTRY
00927  M01S00819.1ri     +++|          AOD    T2          INCREMENT PP RECALL ENTRY COUNT
00928  M01S00820.1ri     +++|          UJN    ERS4        CONTINUE
Line S00821 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00929  M02S00821.271l716 ---|*         LDD    T3          (IF RESTART)
00930  M01S00088.271l716 +++|*         LDD    FS          (RESTART)
00931  M01S00822.1ri     +++| ERSC     EQU    *-1
00932  M01S00823.1ri     +++|          SHN    -6
00933  M01S00824.1ri     +++|          SBN    1R0
00934  M01S00825.1ri     +++|          PJN    ERS6        IF INCORRECT PP NAME
Line S00826 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00826.271l716 ---| ERS4     LDD    T3+1        CHECK FOR AUTO RECALL
00936  M01S00089.271l716 +++| ERS4     LDD    FS+1        CHECK FOR AUTO-RECALL
00937  M01S00827.1ri     +++|          LPN    40
00938  M01S00828.1ri     +++|          ZJN    ERS5        IF NOT AUTO-RECALL REQUEST
00939  M01S00829.1ri     +++|          LDD    MA          SAVE AUTO-RECALL REQUEST
Line S00830 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00830.271l716 ---|          CRM    ERSI,TW
00941  M01S00090.271l716 +++|          CRM    BFMS,TW
00942  M01S00831.1ri     +++|          AOM    ERSJ        SET AUTO-RECALL FLAG
00943  M01S00832.1ri     +++|          UJN    ERS6        ADVANCE QUEUE POINTER
00944  M01S00833.1ri     +++|
00945  M01S00834.1ri     +++| ERS5     LDN    ZERL        CLEAR *RPPM* PARAMETERS
00946  M01S00835.1ri     +++|          CRD    CM
00947  M01S00836.1ri     +++|          MONITOR  RPPM
00948  M01S00837.1ri     +++| ERS6     AOD    T1          ADVANCE STACK POINTER
00949  M01S00838.1ri     +++|          LMC    **
00950  M01S00839.1ri     +++| ERSD     EQU    *-1
00951  M01S00840.1ri     +++|          ZJN    ERS10       IF END OF RECALL QUEUE
00952  M01S00841.1ri     +++|          LJM    ERS2        LOOP ON RECALL PROCESSING
00953  M01S00842.1ri     +++|
00954  M01S00843.1ri     +++| ERS7     LDD    MA          MOVE *1AJ* CALL TO INPUT REGISTER
00955  M01S00844.1ri     +++|          CRD    IR
00956  M01S00845.1ri     +++|          AOD    T2          INCREMENT PP RECALL ENTRY COUNT
00957  M01S00846.1ri     +++|          AOD    CI          SET *1AJ* FLAG
00958  M01S00847.1ri     +++|          SBN    1
00959  M01S00848.1ri     +++|          NJN    ERS8        IF MULTIPLE *1AJ* ENTRIES
00960  M01S00849.1ri     +++|          LDD    CP          STORE CP NUMBER IN *1AJ* CALL
00961  M01S00850.1ri     +++|          SHN    -7
00962  M01S00851.1ri     +++|          LMD    IR+1
00963  M01S00852.1ri     +++|          LPN    37
00964  M01S00853.1ri     +++|          LMD    IR+1
00965  M01S00854.1ri     +++|          STD    IR+1
00966  M01S00855.1ri     +++|          UJN    ERS6        LOOP FOR NEXT ENTRY
00967  M01S00856.1ri     +++|*         UJN    ERS9        (CPU STATUS AT TIME OF *1AJ* CALL)
00968  M01S00857.1ri     +++| ERSE     EQU    *-1
00969  M01S00858.1ri     +++|
00970  M01S00859.1ri     +++| ERS8     LDN    0
00971  M01S00860.1ri     +++|          RJM    CHG         CONDITIONAL HANG
00972  M01S00861.1ri     +++|          UJN    ERS6        PROCESS NEXT ENTRY
00973  M01S00862.1ri     +++|
00974  M01S00863.1ri     +++| ERS9     LDK    SWET
00975  M01S00864.1ri     +++|          STD    EF
00976  M01S00865.1ri     +++|          RJM    CHG         CONDITIONAL HANG
00977  M01S00866.1ri     +++|          LJM    ERSX        RETURN
00978  M01S00867.1ri     +++|
00979  M01S00868.1ri     +++| ERS10    LDC    **          CHECK TAPE ACTIVITY
00980  M01S00869.1ri     +++| ERSF     EQU    *-1
00981  M01S00870.1ri     +++|          SBD    T2
00982  M01S00871.1ri     +++|          STM    ERSG+4
00983  M01S00872.1ri     +++|          ZJN    ERS13       IF NO TAPE ACTIVITY
00984  M01S00873.1ri     +++|          PJN    ERS12       IF VALID RECALL COUNT
00985  M01S00874.1ri     +++| ERS11    MONITOR  HNGM
00986  M01S00875.1ri     +++|          UJN    ERS13       CONTINUE
00987  M01S00876.1ri     +++|
00988  M01S00877.1ri     +++| ERS12    LDN    1
00989  M01S00878.1ri     +++|          STD    CM+1
00990  M01S00879.1ri     +++|          STD    CM+2
00991  M01S00880.1ri     +++|          LDD    MA
00992  M01S00881.1ri     +++|          CWM    ERSG,ON
00993  M01S00882.1ri     +++|          MONITOR  UADM      UPDATE TAPE ACTIVITY
00994  M01S00883.1ri     +++|
00995  M01S00884.1ri     +++|*         IF AUTO-RECALL PP WAS FOUND IN QUEUE AND NO ERROR FLAG IS
00996  M01S00885.1ri     +++|*         SET, SET *I* STATUS.  REACTIVATE THE AUTO-RECALL PP.
00997  M01S00886.1ri     +++|
00998  M01S00887.1ri     +++| ERS13    LDC    0
00999  M01S00888.1ri     +++|*         LDC    1           (AUTO-RECALL ENTRY FOUND)
01000  M01S00889.1ri     +++| ERSJ     EQU    *-1
01001  M01S00890.1ri     +++|          ZJN    ERS15       IF NO AUTO-RECALL PP WAS FOUND
Line S00891 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00891.273l780 ---|          STD    CM+1        SET *UADM* WORD COUNT
Line S00892 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00892.273l780 ---|          STD    CM+2        SET *UADM* NO DROP OPTION
01004  M01S00893.1ri     +++|          SBN    1
01005  M01S00894.1ri     +++|          NJN    ERS11       IF MULTIPLE AUTO-RECALL PP-S
01006  M01S00895.1ri     +++|          LDD    EF
01007  M01S00896.1ri     +++|          NJN    ERS14       IF ERROR FLAG SET
Line S00897 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00897.273l780 ---|          LDD    MA          SET *I* STATUS
Line S00898 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00898.273l780 ---|          CWM    ERSH,ON
Line S00899 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01010  M02S00899.273l780 ---|          MONITOR  UADM
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  M01S00900.1ri     +++| ERS14    LDD    MA          REACTIVATE PP
Line S00901 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00901.271l716 ---|          CWM    ERSI,TW
01021  M01S00091.271l716 +++|          CWM    BFMS,TW
01022  M01S00902.1ri     +++|          LDN    ZERL
01023  M01S00903.1ri     +++|          CRD    CM
01024  M01S00904.1ri     +++|          MONITOR  RPPM
01025  M01S00905.1ri     +++| ERS15    LJM    ERSX        RETURN
01026  M01S00906.1ri     +++|
01027  M01S00907.1ri     +++| ERSG     VFD    12//CPS/CICS,12/STSW,6/4,6/4,24/0
Line S00908 Modification History
M01 (Added by) 1ri
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00908.273l780 ---| ERSH     VFD    12//CPS/CSFS,12/STSW,6/57D,6/3,24//CPS/ICPS
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 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01031  M02S00909.271l716 ---| ERSI     BSSZ   5           AUTO-RECALL PP INPUT REGISTER
Line S00910 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00910.271l716 ---|          BSS    5           AUTO-RECALL PP MESSAGE BUFFER
01033  M01S00911.1ri     +++| MSR      SPACE  4,15
01034  M01S00912.1ri     +++|**        MSR - PROCESS ROLLOUT FILE ERROR.
01035  M01S00913.1ri     +++|*
01036  M01S00914.1ri     +++|*         THIS ROUTINE IS CALLED WHEN ANY OF THE FOLLOWING CONDITIONS
01037  M01S00915.1ri     +++|*         OCCUR -
01038  M01S00916.1ri     +++|*           1. SUBROUTINE *RNS* OR *RID* DETECTS A MASS STORAGE ERROR.
01039  M01S00917.1ri     +++|*           2. AN ERROR IS DETECTED IN THE ROLLOUT FILE SYSTEM SECTOR.
01040  M01S00918.1ri     +++|*           3. AN ERROR IS DETECTED IN THE CONTROL POINT AREA SECTOR
01041  M01S00919.1ri     +++|*              LINKAGE BYTES.
01042  M01S00920.1ri     +++|*           4. AN ECS/ESM ERROR OCCURS WHILE ROLLING IN EXTENDED
01043  M01S00921.1ri     +++|*              MEMORY.
01044  M01S00922.1ri     +++|*
01045  M01S00923.1ri     +++|*         OVERLAY *3RF* IS CALLED TO PROCESS THE ERROR.  *3RF* WILL
01046  M01S00924.1ri     +++|*         RETURN CONTROL TO *MSR* ONLY IF THE ROLLIN PROCESS SHOULD
01047  M01S00925.1ri     +++|*         CONTINUE.
01048  M01S00926.1ri     +++|*
01049  M01S00927.1ri     +++|*         EXIT   TO CALLER IF I/O MAY CONTINUE.
01050  M01S00928.1ri     +++|*                TO *RIJ2* IF THE REST OF THE ROLLOUT FILE WILL
01051  M01S00929.1ri     +++|*                BE SKIPPED.
01052  M01S00930.1ri     +++|*
01053  M01S00931.1ri     +++|*         USES   DS, CN - CN+4.
01054  M01S00932.1ri     +++|*
01055  M01S00933.1ri     +++|*         CALLS  3RF.
01056  M01S00934.1ri     +++|*
01057  M01S00935.1ri     +++|*         MACROS ENDMS, EXECUTE.
01058  M01S00936.1ri     +++|
01059  M01S00937.1ri     +++|
01060  M01S00938.1ri     +++| MSR      SUBR               ENTRY
01061  M01S00939.1ri     +++|          ENDMS
01062  M01S00940.1ri     +++|          LDM    RDCT        SAVE DRIVER STATUS
01063  M01S00941.1ri     +++|          STD    DS
01064  M01S00942.1ri     +++|          LDD    MA          SAVE MASS STORAGE PARAMETERS
01065  M01S00943.1ri     +++|          CWD    T3
01066  M01S00944.1ri     +++|          CRD    CN
01067  M01S00945.1ri     +++|          EXECUTE  3RF       PROCESS ERROR
01068  M01S00946.1ri     +++|          ZJN    MSRX        IF I/O SHOULD CONTINUE
01069  M01S00947.1ri     +++|          UJP    RIJ2        CONTINUE WITHOUT READING ROLLOUT FILE
01070  M01S00948.1ri     +++| PCS      SPACE  4,10
01071  M01S00949.1ri     +++|**        PCS - PROCESS CPU SELECTION.
01072  M01S00950.1ri     +++|*
Line S00951 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00951.ns2738  ---|*         USES   CM - CM+4,  CN - CN+4.
01074  M01S00002.ns2738  +++|*         EXIT   CPU SELECTION CLEARED IF TWO CPU-S NOT AVAILABLE.
01075  M01S00952.1ri     +++|
01076  M01S00953.1ri     +++|
01077  M01S00954.1ri     +++| PCS      SUBR               ENTRY/EXIT
Line S00955 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00955.ns2738  ---|          LDN    ACPL
Line S00956 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00956.ns2738  ---|          CRD    CM
Line S00957 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01080  M02S00957.ns2738  ---|          ADN    1
Line S00958 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01081  M02S00958.ns2738  ---|          CRD    CN
Line S00959 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00959.ns2738  ---|          LDD    CM
Line S00960 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00960.ns2738  ---|          LMD    CN
Line S00961 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01084  M02S00961.ns2738  ---|          SHN    6
Line S00962 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00962.ns2738  ---|          PJN    PCSX        IF TWO CPU-S AVAILABLE
Line S00963 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l750
M03 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01086  M03S00963.ns2738  ---|          LDN    0           CLEAR CPU SELECTION
Line S00964 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l750
M03 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01087  M03S00964.ns2738  ---|          STM    CBUF+5*JCIW+1
Line S00002 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01088  M02S00002.ns2738  ---|          LDM    CBUF+5*CWQW+2  CLEAR CPU SELECTION
01089  M01S00003.ns2738  +++| PCSA     LDM    CBUF+5*CWQW+2  CLEAR CPU SELECTION
01090  M01S00004.ns2738  +++|*         UJN    PCSX        (TWO CPU-S AVAILABLE)
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  M01S00965.1ri     +++|          UJN    PCSX        RETURN
01097  M01S00966.1ri     +++| PEF      SPACE  4,15
01098  M01S00967.1ri     +++|**        PEF - PROCESS ERROR FLAG.
01099  M01S00968.1ri     +++|*
01100  M01S00969.1ri     +++|*         ENTRY (EF) = ERROR FLAG FROM EJT ENTRY.
01101  M01S00970.1ri     +++|*
01102  M01S00971.1ri     +++|*         EXIT   (A) .GE. 0 IF NO ERROR.
01103  M01S00972.1ri     +++|*                    .LT. 0 IF ERROR FLAG SET.
01104  M01S00973.1ri     +++|*
01105  M01S00974.1ri     +++|*         USES   EF, CM - CM+4.
01106  M01S00975.1ri     +++|
01107  M01S00976.1ri     +++|
01108  M01S00977.1ri     +++| PEF      SUBR               ENTRY/EXIT
01109  M01S00978.1ri     +++|          LDD    EF
01110  M01S00979.1ri     +++|          SHN    21-13
01111  M01S00980.1ri     +++|          MJN    PEFX        IF DUMMY ERROR FLAG IS SET
01112  M01S00981.1ri     +++|          NJN    PEF2.1      IF ERROR FLAG IS SET
01113  M01S00982.1ri     +++|
01114  M01S00983.1ri     +++|*         CHECK FOR CPU TIME LIMIT/SRU LIMIT.
01115  M01S00984.1ri     +++|
01116  M01S00985.1ri     +++|          LDM    CBUF+5*SRUW
01117  M01S00986.1ri     +++|          SHN    21-12
01118  M01S00987.1ri     +++|          MJN    PEF1        IF CPU TIME LIMIT
01119  M01S00988.1ri     +++|          SHN    2
01120  M01S00989.1ri     +++|          PJN    PEFX        IF NOT SRU LIMIT
01121  M01S00990.1ri     +++|          LDN    SRET
01122  M01S00991.1ri     +++|          UJN    PEF2        SET *SRET* ERROR FLAG
01123  M01S00992.1ri     +++|
01124  M01S00993.1ri     +++| PEF1     LDN    TLET        SET *TLET* ERROR FLAG
01125  M01S00994.1ri     +++| PEF2     STD    EF          SAVE ERROR FLAG
01126  M01S00995.1ri     +++| PEF2.1   LDM    EJBF+JSNE*5+4
01127  M01S00996.1ri     +++|          LPN    76
01128  M01S00997.1ri     +++|          LMN    SUJS*2
01129  M01S00998.1ri     +++|          NJN    PEF3        IF NOT A SUSPENDED JOB
01130  M01S00999.1ri     +++|
01131  M01S01000.1ri     +++|*         CHANGE CONNECTION STATUS TO *NICS* TO PREVENT SUSPENDING THIS
01132  M01S01001.1ri     +++|*         JOB AGAIN.
01133  M01S01002.1ri     +++|
Line S01003 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01134  M02S01003.271l716 ---|          LDM    CJSC+5*0+4
Line S01004 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01135  M02S01004.271l716 ---|          LPN    77
Line S01005 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01136  M02S01005.271l716 ---|          LMK    NICS*100
Line S01006 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01137  M02S01006.271l716 ---|          STM    CJSC+5*0+4
01138  M01S00092.271l716 +++|          LDM    CJSD
01139  M01S00093.271l716 +++|          LPC    4177
01140  M01S00094.271l716 +++|          LMK    NICS*200
01141  M01S00095.271l716 +++|          STM    CJSD
01142  M01S01007.1ri     +++| PEF3     LCN    0           INDICATE ERROR FLAG SET
01143  M01S01008.1ri     +++|          LJM    PEFX        RETURN
01144  M01S01009.1ri     +++| PLI      SPACE  4,10
01145  M01S01010.1ri     +++|**        PLI - PROCESS LIMIT INCREASE.
01146  M01S01011.1ri     +++|*
01147  M01S01012.1ri     +++|*         USES   CM+1, CM+3, CM+4.
01148  M01S01013.1ri     +++|*
01149  M01S01014.1ri     +++|*         MACROS MONITOR.
01150  M01S01015.1ri     +++|
01151  M01S01016.1ri     +++|
01152  M01S01017.1ri     +++| PLI      SUBR               ENTRY/EXIT
01153  M01S01018.1ri     +++|          LDM    SBUF-2+SRSS-BFMS+3
01154  M01S01019.1ri     +++|          SHN    -6
01155  M01S01020.1ri     +++|          ZJN    PLIX        IF NOT LIMIT INCREASE NEEDED
01156  M01S01021.1ri     +++|          STD    CM+1        SAVE FUNCTION CODE (*RLIT* OR *RLIS*)
01157  M01S01022.1ri     +++|          LDM    SBUF-2+SRSS-BFMS+4
01158  M01S01023.1ri     +++|          STD    CM+4
01159  M01S01024.1ri     +++|          LDM    SBUF-2+SRSS-BFMS+3
01160  M01S01025.1ri     +++|          LPN    77
01161  M01S01026.1ri     +++|          STD    CM+3
01162  M01S01027.1ri     +++|          MONITOR  RLMM      INCREMENT LIMIT
01163  M01S01028.1ri     +++|          UJN    PLIX        RETURN
01164  M01S01029.1ri     +++| RCP      SPACE  4,10
01165  M01S01030.1ri     +++|**        RCP - RESTORE CONTROL POINT AREA.
01166  M01S01031.1ri     +++|*
Line S01032 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01167  M02S01032.271l716 ---|*         USES   T1, CM - CM+4, FS - FS+4.
01168  M01S00096.271l716 +++|*         USES   CM - CM+4, CN - CN+4, FS - FS+4.
01169  M01S01033.1ri     +++|*
Line S01034 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01170  M02S01034.271l716 ---|*         CALLS  CSM, PCS, UEP.
Line S00097 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ri30
Seq #  *Modification Id* Act 
----------------------------+
01171  M02S00097.1ri30   ---|*         CALLS  CSM, PCS, RJC, UEP.
01172  M01S00001.1ri30   +++|*         CALLS  CSM, PCS, UEP.
01173  M01S01035.1ri     +++|*
Line S01036 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01174  M02S01036.271l716 ---|*         MACROS MONITOR, NFA.
01175  M01S00098.271l716 +++|*         MACROS DELAY, MONITOR, NFA.
01176  M01S01037.1ri     +++|
01177  M01S01038.1ri     +++|
01178  M01S01039.1ri     +++| RCP      SUBR               ENTRY/EXIT
Line S01040 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01179  M02S01040.271l716 ---|          RJM    UEP         UPDATE EXCHANGE PACKAGE
Line S00099 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00099.273l780 ---|          LDD    PR
Line S00100 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01181  M02S00100.273l780 ---|          NJN    RCP1        IF NOT PSEUDO-ROLLIN
01182  M01S00101.271l716 +++|
Line S00102 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00102.273l780 ---|*         ISSUE A *CCAM* MONITOR FUNCTION TO INHIBIT STORAGE MOVE OF
Line S00103 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01184  M02S00103.273l780 ---|*         THE PCP JOB BEFORE READING THE FIELD LENGTH CONTROL WORDS
Line S00104 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01185  M02S00104.273l780 ---|*         FROM THE CPA.
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.
01191  M01S00105.271l716 +++|
Line S00106 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00106.273l780 ---|          LDD    T6          STORE PCP NUMBER IN *CCAM* REQUEST
Line S00107 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01193  M02S00107.273l780 ---|          STD    CM+2
Line S00108 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01194  M02S00108.273l780 ---|          LDC    200         SELECT *MOVE TO PCP* OPTION
Line S00109 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01195  M02S00109.273l780 ---|          STD    CM+1
Line S00110 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01196  M02S00110.273l780 ---|          MONITOR  CCAM
Line S00111 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01197  M02S00111.273l780 ---| RCP1     RJM    UEP         UPDATE EXCHANGE PACKAGE
01198  M01S00030.273l780 +++|          RJM    UEP         UPDATE EXCHANGE PACKAGE
01199  M01S01041.1ri     +++|          RJM    PCS         PROCESS CPU SELECTION
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  M01S01042.1ri     +++|
Line S01043 Modification History
M01 (Added by) 1ri
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01208  M02S01043.ns2738  ---|*         MOVE RECOVERY TABLE TO NFL.
01209  M01S00005.ns2738  +++|*         UPDATE RECOVERY TABLE AND SCP CONNECTIONS FROM SYSTEM SECTOR.
01210  M01S01044.1ri     +++|
01211  M01S01045.1ri     +++|          NFA    RC1N
01212  M01S01046.1ri     +++|          CWM    SBUF+RRSS,TW
01213  M01S01047.1ri     +++|
01214  M01S01048.1ri     +++|          ERRNZ  RC1N-RC2N-1 *RC1N*/*RC2N* MUST BE CONTIGUOUS
01215  M01S01049.1ri     +++|          ERRNZ  R2SS-R1SS-5 *R1SS*/*R2SS* MUST BE CONTIGUOUS
01216  M01S01050.1ri     +++|
Line S00002 Modification History
M01 (Added by) 1ri28
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01217  M02S00002.ns2738  ---|          LDD    CP          CHECK FOR K-DISPLAY ACTIVE
Line S00003 Modification History
M01 (Added by) 1ri28
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01218  M02S00003.ns2738  ---|          ADK    DBAW
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
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 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01228  M02S00009.271l716 ---|          NJN    RCP0        IF K-DISPLAY ACTIVE
01229  M01S00119.271l716 +++|          NJN    RCP2        IF K-DISPLAY ACTIVE
01230  M01S01051.1ri     +++|          LDN    ZERL        CLEAR *MS2W*
01231  M01S01052.1ri     +++|          CRM    CBUF+5*MS2W,ON
Line S01053 Modification History
M01 (Added by) 1ri
M02 (Updated by) 1ri28
Seq #  *Modification Id* Act 
----------------------------+
01232  M02S01053.1ri28   ---|          LDM    CBUF+5*TSCW+2  SAVE *TSCW* FLAGS
Line S00010 Modification History
M01 (Added by) 1ri28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01233  M02S00010.271l716 ---| RCP0     LDM    CBUF+5*TSCW+2  SAVE *TSCW* FLAGS
Line S01054 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01234  M02S01054.271l716 ---|          SCN    77
Line S01055 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01235  M02S01055.271l716 ---|          STD    T1
Line S01056 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01236  M02S01056.271l716 ---|          LDD    CP          UPDATE TIME SLICES
Line S01057 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01237  M02S01057.271l716 ---|          ADN    JCIW
Line S01058 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01238  M02S01058.271l716 ---|          CRD    CM
Line S01059 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01239  M02S01059.271l716 ---|          ADK    TSCW-JCIW
Line S01060 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01240  M02S01060.271l716 ---|          STD    CM+4
Line S01061 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01241  M02S01061.271l716 ---|          CRD    FS
Line S01062 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01242  M02S01062.271l716 ---|          LDD    FS+2        SAVE *TSCW* FLAGS
Line S01063 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01243  M02S01063.271l716 ---|          SCN    77
Line S01064 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S01064.271l716 ---|          STM    RCPF+2
Line S01065 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S01065.271l716 ---|          LDM    CBUF+5*CPTW+2  COMPUTE CPU SLICE
Line S01066 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S01066.271l716 ---|          RAM    RCPF+4
Line S01067 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S01067.271l716 ---|          SHN    -14
Line S01068 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01068.271l716 ---|          ADM    CBUF+5*CPTW+1
Line S01069 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01249  M02S01069.271l716 ---|          RAM    RCPF+3
Line S01070 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01250  M02S01070.271l716 ---|          SHN    -14
Line S01071 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01251  M02S01071.271l716 ---|          ADM    CBUF+5*CPTW
Line S01072 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S01072.271l716 ---|          LPN    77
Line S01073 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01253  M02S01073.271l716 ---|          ADM    RCPF+2
01254  M01S00120.271l716 +++| RCP2     LDD    CN+2
01255  M01S01074.1ri     +++|          LPC    7777        DO NOT CLEAR SLICE FLAG
01256  M01S01075.1ri     +++|*         LPC    7677        (CLEAR SLICE FLAG FOR ON-LINE INTERACTIVE)
01257  M01S01076.1ri     +++| RCPG     EQU    *-1
Line S01077 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01258  M02S01077.271l716 ---|          STM    RCPF+2
Line S01078 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01259  M02S01078.271l716 ---|          LDK    RTCL        COMPUTE CM SLICE
Line S01079 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01260  M02S01079.271l716 ---|          CRD    FS
Line S01080 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01261  M02S01080.271l716 ---|          LDD    FS+1
Line S01081 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01262  M02S01081.271l716 ---|          RAM    RCPF+1
01263  M01S00121.271l716 +++|          STD    CN+2
Line S01082 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01264  M02S01082.271l716 ---|          SHN    -14
Line S01083 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01265  M02S01083.271l716 ---|          ADD    FS
Line S01084 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01266  M02S01084.271l716 ---|          STM    RCPF
Line S01085 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01267  M02S01085.271l716 ---|          LDD    CM+4
Line S01086 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01268  M02S01086.271l716 ---|          CWM    RCPF,ON
Line S01087 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01269  M02S01087.271l716 ---|          LDM    CBUF+5*STSW+2  SAVE CPU STATUS FLAG
Line S01088 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01270  M02S01088.271l716 ---|          LPN    2
Line S01089 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01271  M02S01089.271l716 ---|          RAM    RIJF
Line S01090 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01272  M02S01090.271l716 ---|          LDM    CBUF+5*STSW+2  PRESERVE ROLLOUT CONTROL FLAGS
Line S01091 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01273  M02S01091.271l716 ---|          SCN    7
Line S01092 Modification History
M01 (Added by) 1ri
M02 (Updated by) 1ri28
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01274  M03S01092.271l716 ---|          NJN    RCP0        IF PENDING ROLLOUT PROCESSING PRESENT
Line S00011 Modification History
M01 (Added by) 1ri28
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01275  M02S00011.271l716 ---|          NJN    RCP0.1      IF PENDING ROLLOUT PROCESSING PRESENT
Line S01093 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01276  M02S01093.271l716 ---|          STM    CBUF+5*STSW+2
Line S01094 Modification History
M01 (Added by) 1ri
M02 (Updated by) 1ri28
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01277  M03S01094.271l716 ---| RCP0     LDM    CBUF+5*STSW+4  SAVE PP RECALL COUNT
Line S00012 Modification History
M01 (Added by) 1ri28
M02 (Updated 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 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01279  M02S01095.271l716 ---|          SHN    -4
Line S01096 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01280  M02S01096.271l716 ---|          LPN    17
Line S01097 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01281  M02S01097.271l716 ---|          STM    ERSF
Line S01098 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S01098.271l716 ---|          LDN    1           SET PP ACTIVITY COUNT
Line S01099 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01283  M02S01099.271l716 ---|          STM    CBUF+5*STSW
Line S01100 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01284  M02S01100.271l716 ---|          STM    CBUF+5*STSW+4  RESET PP RECALL COUNT
Line S01101 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01285  M02S01101.271l716 ---|          LDN    0           CLEAR NFL INCREASE FIELD
Line S01102 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01286  M02S01102.271l716 ---|          STM    CBUF+5*FLIW+2
01287  M01S00122.271l716 +++|          LDN    0
01288  M01S00123.271l716 +++|          STM    CBUF+5*FLIW+2  CLEAR NFL INCREASE FIELD
01289  M01S01103.1ri     +++|          STM    CBUF+5*FLIW+3  CLEAR EXTENDED MEMORY INCREASE FIELD
01290  M01S01104.1ri     +++|          STM    CBUF+5*FLIW+4  CLEAR CM INCREASE FIELD
Line S01105 Modification History
M01 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01291  M02S01105.271l716 ---|          STM    CBUF+STSW*5+1  CLEAR ERROR FLAG
01292  M01S01106.1ri     +++|          LDM    CBUF+5*FLIW+1  CLEAR SCHEDULER REJECT FLAGS
01293  M01S01107.1ri     +++|          SCN    3
01294  M01S01108.1ri     +++|          STM    CBUF+5*FLIW+1
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 (Added by) 1ri
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01299  M02S01109.271l716 ---|          LDC    **
01300  M01S00124.271l716 +++|          LDM    CBUF+5*STSW+2
Line S00125 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ri30
Seq #  *Modification Id* Act 
----------------------------+
01301  M02S00125.1ri30   ---|          LPN    10
Line S00126 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ri30
Seq #  *Modification Id* Act 
----------------------------+
01302  M02S00126.1ri30   ---|          NJN    RCP3        IF ROLLIN AFTER TIMED/EVENT ROLLOUT
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 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01305  M02S00127.271l750 ---|          LDM    CBUF+5*JCIW
Line S00128 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ri30
M03 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01306  M03S00128.271l750 ---|          SHN    -7
Line S00129 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ri30
M03 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01307  M03S00129.271l750 ---|          NJN    RCP3        IF NON-DECREMENTING PRIORITY SET
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ri.txt ยท Last modified: by 127.0.0.1