User Tools

Site Tools


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

Deck 1RO

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1ro     +++|          IDENT  1RO,ROJ
00002  M00S00002.1ro     +++|          PERIPH
00003  M00S00003.1ro     +++|          BASE   MIXED
00004  M00S00004.1ro     +++|          SST
00005  M00S00005.1ro     +++|          SYSCOM
00006  M00S00006.1ro     +++|*COMMENT  1RO - ROLLOUT JOB.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.1ro     +++|          TITLE  1RO - ROLLOUT JOB.
00010  M00S00009.1ro     +++|          SPACE  4,10
00011  M00S00010.1ro     +++|***       1RO - ROLLOUT JOB.
00012  M00S00011.1ro     +++|*         G. R. MANSFIELD.  70/10/24.
00013  M00S00012.1ro     +++|*         R. E. TATE.  71/01/11.
00014  M00S00013.1ro     +++|*         L. C. HAAS.  75/03/25.  RESEQUENCE.
00015  M00S00014.1ro     +++|*         C. A. LACEY.       77/04/21.
00016  M00S00015.1ro     +++|          SPACE  4,10
00017  M00S00016.1ro     +++|***              *1RO* PERFORMS JOB ROLLOUT AND DM* FILE CREATION.  IT
Line S00017 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00017.271l716 ---|*         IS CALLED BY *1AJ* FOR BOTH FUNCTIONS.  FOR JOB ROLLOUT, THE
00019  M01S00018.271l716 ---|*         ISSUANCE OF A *ROCM* MONITOR FUNCTION BY ANY PP CAUSES
00020  M01S00019.271l716 ---|*         *CPUMTR* TO CALL *1AJ*, WHO THEN CALLS *1RO*.
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00001.271l716 +++|*         IS CALLED BY *1AJ* FOR FUNCTIONS 0 AND 1.  FUNCTION 2 IS
00022  M01S00002.271l716 +++|*         CALLED DIRECTLY BY *CPUMTR*.
00023  M00S00020.1ro     +++|          SPACE  4,10
00024  M00S00021.1ro     +++|***       CALL.
00025  M00S00022.1ro     +++|*
Line S00023 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00026  M01S00023.271l716 ---|*T        18/  *1RO*,1/ ,5/CP,12/FN,6/,18/N
Figure

01718232429NFN30353640414259FNCP *1RO*


Line S00003 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00027  M01S00003.271l716 +++|*T        18/  *1RO*,1/,5/  CP,12/  FN,24/  N
Figure

0232429 N FN30353640414259 FN CP *1RO*

00028  M00S00024.1ro     +++|*         CP     CONTROL POINT NUMBER
Line S00025 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00025.271l716 ---|*         FN = 0 ROLLOUT.
Line S00004 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00004.271l716 +++|*         FN = 0 ROLLOUT OF A CONTROL POINT JOB.
Line S00026 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00026.271l716 ---|*            = 1 SELECTIVE ROLLOUT TO FILE DM* ACCORDING TO DMP=
Line S00005 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00005.271l716 +++|*            = 1 SELECTIVE ROLLOUT TO FILE DM* ACCORDING TO *DMP=*
00033  M00S00027.1ro     +++|*                PARAMETER.
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00006.271l716 +++|*            = 2 PSEUDO-ROLLOUT.
00035  M01S00007.271l716 +++|*            = 3 ROLLOUT OF A PSEUDO-CONTROL POINT JOB.  THIS MAY BE A
00036  M01S00008.271l716 +++|*              COMPOUND ROLLOUT.
Line S00028 Modification History
M01 (Removed by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00028.1ro28   ---|*         N  = ERROR FLAG FOR *TXOT* JOB (FUNCTION 0).
Line S00001 Modification History
M01 (Added by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00001.1ro28   +++|*         N  = ERROR FLAG FOR INTERACTIVE JOB (FUNCTION 0).
Line S00029 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00029.271l716 ---|*            = *DMP=* PARAMETER (FUNTION 1).
00040  M01S00030.271l716 ---|*                     1/P,2/0,1/C,1/0,1/U,12/FL
Line S00009 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00009.ns2685  ---|*            = *DMP=* PARAMETER (FUNCTION 1).
00042  M02S00010.ns2685  ---|*                     6/0,1/  P,2/0,1/  C,1/0,1/  U,12/  FL
Line S00031 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00043  M01S00031.ns2685  ---|*                           P = CHECKPOINT.
Line S00001 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00001.ns2685  +++|*            = PARAMETERS FROM DMP= PROGRAM *PST* ENTRY (FUNCTION 1).
00045  M01S00002.ns2685  +++|*                     9/,1/  C,1/,1/  U,12/  FL
00046  M00S00032.1ro     +++|*                           C = CREATE DM* FILE ONLY.
00047  M00S00033.1ro     +++|*                           U = CREATE DM* AS AN UNLOCKED FILE.
00048  M00S00034.1ro     +++|*                           FL = 0, DUMP CPA, ENTIRE CM FL AND ECS FL.
00049  M00S00035.1ro     +++|*                               .NE. 0, DUMP CPA AND FL*100B OF CM FL.
Line S00011 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00011.271l716 +++|*            = 12/  TN,12/  PN   (FUNCTIONS 2 AND 3)
00051  M01S00012.271l716 +++|*              TN     TERMINAL NUMBER IF *1TO* MUST BE CALLED
00052  M01S00013.271l716 +++|*                     FOLLOWING COMPOUND ROLLOUT COMPLETION.
00053  M01S00014.271l716 +++|*              PN     PCP NUMBER.
00054  M00S00036.1ro     +++|          SPACE  4,10
00055  M00S00037.1ro     +++|**        ROUTINES USED.
00056  M00S00038.1ro     +++|*
00057  M00S00039.1ro     +++|*         *0AU* - PROCESS ACCUMULATOR OVERFLOW FLAGS.
00058  M00S00040.1ro     +++|*         *0BF* - BEGIN FILE.
00059  M00S00041.1ro     +++|*         *0DF* - DROP FILE.
00060  M00S00042.1ro     +++|          SPACE  4,10
00061  M00S00043.1ro     +++|**        PROGRAMS CALLED.
00062  M00S00044.1ro     +++|*
Line S00045 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00045.271l716 ---|*         *1AJ* - CONTINUE DMP= PROCESSING.
Line S00015 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00015.271l716 +++|*         *1AJ* - CONTINUE *DMP=* PROCESSING.
00065  M00S00046.1ro     +++|          SPACE  4,10
00066  M00S00047.1ro     +++|***       ACCOUNT DAYFILE MESSAGES.
00067  M00S00048.1ro     +++|*
00068  M00S00049.1ro     +++|*
00069  M00S00050.1ro     +++|*         *AUSR, SRUUNITS.* = NUMBER OF SRU-S WHICH COULD NOT BE
00070  M00S00051.1ro     +++|*         RECORDED IN THE PROJECT PROFILE FILE AT OVERFLOW OR END
00071  M00S00052.1ro     +++|*         OF ACCOUNT BLOCK.
00072  M00S00053.1ro     +++|          SPACE  4,10
00073  M00S00054.1ro     +++|**        COMMON DECKS.
00074  M00S00055.1ro     +++|
00075  M00S00056.1ro     +++|
Line S00016 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00016.273l780 ---| PCP$     EQU    1           INDICATE PCP ACCESS TO SYSTEM MACROS
00077  M00S00057.1ro     +++|*CALL     COMPMAC
00078  M00S00058.1ro     +++|*CALL     COMSACC
00079  M00S00059.1ro     +++|          QUAL   CPS
00080  M00S00060.1ro     +++|*CALL     COMSCPS
00081  M00S00061.1ro     +++|          QUAL   *
00082  M00S00062.1ro     +++|*CALL     COMSEJT
00083  M00S00063.1ro     +++|*CALL     COMSEVT
00084  M00S00064.1ro     +++|          QUAL   COMSHIO
00085  M00S00065.1ro     +++|*CALL     COMSHIO
00086  M00S00066.1ro     +++|          QUAL   *
00087  M00S00067.1ro     +++|          LIST   X
00088  M00S00068.1ro     +++|*CALL     COMSJRO
00089  M00S00069.1ro     +++|          LIST   *
00090  M00S00070.1ro     +++|*CALL     COMSLFD
00091  M00S00071.1ro     +++|*CALL     COMSMSP
00092  M00S00072.1ro     +++|*CALL     COMSPIM
Line S00017 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00017.273l780 ---| AFL$     EQU    1           SELECT PCP FL/NFL ACCESS
00094  M02S00018.273l780 ---| CPA$     EQU    1           SELECT CPA/PCPA ACCESS
00095  M02S00019.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
00096  M02S00020.273l780 ---| PLC$     EQU    1           SELECT IN-LINE LOAD INSTRUCTIONS
00097  M02S00021.273l780 ---|          LIST   X
00098  M02S00022.273l780 ---|*CALL     COMSPCP
00099  M02S00023.273l780 ---|          LIST   *
00100  M00S00073.1ro     +++|          QUAL   REM
00101  M00S00074.1ro     +++|*CALL     COMSREM
00102  M00S00075.1ro     +++|          QUAL
00103  M00S00076.1ro     +++|*CALL     COMSSCD
00104  M00S00077.1ro     +++|*CALL     COMSSSD
00105  M00S00078.1ro     +++|*CALL     COMSSSE
00106  M00S00079.1ro     +++|*CALL     COMSSSJ
00107  M00S00080.1ro     +++|*CALL     COMSTCM
00108  M00S00081.1ro     +++|*CALL     COMSWEI
00109  M00S00082.1ro     +++|*CALL     COMSZOL
00110  M00S00083.1ro     +++| 1RO      SPACE  4
00111  M00S00084.1ro     +++|****      ASSEMBLY CONSTANTS.
00112  M00S00085.1ro     +++|
00113  M00S00086.1ro     +++|
00114  M00S00087.1ro     +++| IFLS     EQU    /CPS/IFLS   *PIOM* REPLY STATUS
00115  M00S00088.1ro     +++| RDDS     EQU    /CPS/RDDS   *PIOM* DIRECT READ
00116  M00S00089.1ro     +++| WDDS     EQU    /CPS/WDDS   *PIOM* DIRECT WRITE
00117  M00S00090.1ro     +++|          SPACE  4,10
00118  M00S00091.1ro     +++|**        DIRECT CELL ASSIGNMENTS.
00119  M00S00092.1ro     +++|
00120  M00S00093.1ro     +++|
00121  M00S00094.1ro     +++| T8       EQU    16          SCRATCH
00122  M00S00095.1ro     +++| T9       EQU    17          SCRATCH
00123  M00S00096.1ro     +++| FS       EQU    20 - 24     SCRATCH (5 CELLS)
00124  M00S00097.1ro     +++| NT       EQU    25          NEXT TRACK POINTER
00125  M00S00098.1ro     +++| EO       EQU    26          EJT ORDINAL
00126  M00S00099.1ro     +++| SC       EQU    27          TERMINAL OUTPUT SECTOR COUNT
00127  M00S00100.1ro     +++| CN       EQU    30 - 34     SCRATCH (5 CELLS)
00128  M00S00101.1ro     +++| OP       EQU    35 - 36     OUTPUT POINTER (2 CELLS)
00129  M00S00102.1ro     +++| DI       EQU    37          *UJNI*+2 (USED TO DISABLE PROCESSING)
00130  M00S00103.1ro     +++| FN       EQU    40 - 44     SCRATCH (5 CELLS)
00131  M00S00104.1ro     +++| TN       EQU    45          TERMINAL NUMBER
00132  M00S00105.1ro     +++| TT       EQU    46 - 47     TERMINAL TABLE ADDRESS (2 CELLS)
00133  M00S00106.1ro     +++| FA       EQU    57          DM* FNT ADDRESS
00134  M00S00107.1ro     +++| ZR       EQU    60 - 64     ZERO WORD (5 CELLS)
00135  M00S00108.1ro     +++| TA       EQU    65          *IAF* RA
Line S00109 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00136  M01S00109.271l716 ---| TW       EQU    66          CONSTANT 2
Line S00024 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00024.273l780 ---| NC       EQU    66          NUMBER OF CONTROL POINTS + 1
00138  M00S00110.1ro     +++| NF       EQU    67          NFL/100B
00139  M00S00111.1ro     +++|
00140  M00S00112.1ro     +++|
00141  M00S00113.1ro     +++|****
00142  M00S00114.1ro     +++|          TITLE  MAIN PROGRAM.
00143  M00S00115.1ro     +++| ROJ      SPACE  4,10
00144  M00S00116.1ro     +++|**        ROJ - MAIN PROGRAM.
00145  M00S00117.1ro     +++|
00146  M00S00118.1ro     +++|
00147  M00S00119.1ro     +++|          ORG    PPFW
00148  M00S00120.1ro     +++|
00149  M00S00121.1ro     +++| ROJ      BSS    0
Line S00122 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00122.271l716 ---|          RJM    PRS         PRESET
Line S00025 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00151  M01S00025.271l716 +++|          RJM    PRS         PRESET (RETURN TO *ROJ1* ON PSEUDO ROLL)
00152  M00S00123.1ro     +++|
00153  M00S00124.1ro     +++|*         PERFORM INITIAL ROLLOUT OPERATIONS.
00154  M00S00125.1ro     +++|
Line S00126 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00126.271l716 ---|          RJM    CDM         CREATE DM* FILE FNT ENTRY
00156  M01S00127.271l716 ---|*         UJN    *+2         (NON-DMP= CALL)
00157  M01S00128.271l716 ---| ROJA     EQU    *-2
00158  M01S00129.271l716 ---|          RJM    /3RP/CKO    CHECK FOR TERMINAL I/O
Line S00026 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00159  M01S00026.271l716 +++| ROJA     RJM    /3RS/CDM    CREATE DM* FILE FNT ENTRY
00160  M01S00027.271l716 +++|*         UJN    *+2         (NON-*DMP=* CALL)
00161  M01S00028.271l716 +++|
00162  M01S00029.271l716 +++| ROJB     RJM    /3RP/CKO    CHECK FOR TERMINAL I/O
00163  M00S00130.1ro     +++|*         UJN    *+2         (NON-INTERACTIVE JOB)
Line S00131 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00164  M01S00131.271l716 ---| ROJB     EQU    *-2
Line S00030 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00030.271l716 +++|
00166  M00S00132.1ro     +++|          RJM    RMS         REQUEST MASS STORAGE SPACE
Line S00133 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00167  M01S00133.271l716 ---|          RJM    /3RP/RFO    READ 1ST SECTOR OF TERMINAL OUTPUT
Line S00031 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00168  M01S00031.271l716 +++| ROJC     RJM    /3RP/RFO    READ FIRST SECTOR OF TERMINAL OUTPUT
00169  M00S00134.1ro     +++|*         UJN    *+2         (NOT ON-LINE INTERACTIVE JOB)
Line S00135 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00135.271l716 ---| ROJC     EQU    *-2
00171  M01S00136.271l716 ---|          RJM    CJS         CHANGE JOB STATUS
00172  M01S00137.271l716 ---|*         UJN    *+2         (DMP= CALL)
00173  M01S00138.271l716 ---| ROJD     EQU    *-2
00174  M01S00139.271l716 ---|          RJM    ISS         INITIALIZE SYSTEM SECTOR
Line S00032 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00175  M01S00032.271l716 +++|
00176  M01S00033.271l716 +++| ROJ1     BSS    0           ENTRY FROM *PRS* IF PSEUDO ROLLOUT
00177  M01S00034.271l716 +++| ROJD     RJM    CJS         CHANGE JOB STATUS
00178  M01S00035.271l716 +++|*         UJN    *+2         (*DMP=* CALL)
00179  M01S00036.271l716 +++|
00180  M01S00037.271l716 +++| ROJH     RJM    ISS         INITIALIZE SYSTEM SECTOR
00181  M01S00038.271l716 +++|*         UJN    ROJ2        (PSEUDO-ROLLOUT)
Line S00140 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00140.271l716 ---|          RJM    SRA         SET RA TO FWA OF NFL
Line S00039 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00183  M01S00039.271l716 +++|
00184  M01S00040.271l716 +++| ROJE     RJM    SRA         SET RA TO FWA OF NFL
00185  M00S00141.1ro     +++|*         UJN    *+2         (*DMP=* CALL)
Line S00142 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00142.271l716 ---| ROJE     EQU    *-2
00187  M00S00143.1ro     +++|
00188  M00S00144.1ro     +++|*         WRITE THE ROLLOUT FILE.
00189  M00S00145.1ro     +++|
00190  M00S00146.1ro     +++|          SETMS  IO,(NS),WDSB
Line S00147 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00191  M01S00147.ns2685  ---|
00192  M01S00148.ns2685  ---|*         NO STATUS CHECK IS MADE TO REDUCE THE CHANCE OF
00193  M01S00149.ns2685  ---|*         LOCKING UP THE SYSTEM IN THE CASE OF TRANSIENT ERRORS
00194  M01S00150.ns2685  ---|*         OCCURRING ON THE ONLY ROLLOUT DEVICE.
00195  M01S00151.ns2685  ---|
00196  M00S00152.1ro     +++| ROJI     LDC    0
00197  M00S00153.1ro     +++|*         LDC    EPNF        (BUFFERED DEVICE AND ECS PRESENT)
00198  M00S00154.1ro     +++|          RAM    UERR
00199  M00S00155.1ro     +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S00156 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00200  M01S00156.271l716 ---|          MJN    ROJ1        IF MASS STORAGE ERROR
Line S00041 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00041.271l716 +++|          MJN    ROJ3        IF MASS STORAGE ERROR
00202  M00S00157.1ro     +++|          LDD    HN          SET SECTOR WORD COUNT
00203  M00S00158.1ro     +++|          STM    BFMS+1
00204  M00S00159.1ro     +++|
00205  M00S00160.1ro     +++| SEQ      EQU    *-2
Line S00161 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00161.271l716 ---|          SEQUENCE CPAI,CPA  WRITE CONTROL POINT AREA
Line S00042 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00207  M01S00042.271l716 +++| ROJ2     SEQUENCE CPAI,CPA  WRITE CONTROL POINT AREA
00208  M01S00043.271l716 +++|*         RJM    TCP         (PSEUDO-ROLLOUT)
00209  M00S00162.1ro     +++|*         UJN    *+2         (NO CONTROL POINT)
Line S00044 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00210  M01S00044.271l716 +++|
00211  M00S00163.1ro     +++|          SEQUENCE TOPI,/3RP/WTO   WRITE TERMINAL OUTPUT
00212  M00S00164.1ro     +++|*         UJN    *+2         (NOT ON-LINE INTERACTIVE JOB)
Line S00045 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00213  M01S00045.271l716 +++|*         UJN    ROJ5        (PSEUDO-ROLLOUT)
00214  M01S00046.271l716 +++|
00215  M00S00165.1ro     +++|          SEQUENCE JFLI,JFL  WRITE JOB FIELD LENGTH
00216  M00S00166.1ro     +++|*         UJN    *+2         (NO FL)
Line S00047 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00217  M01S00047.271l716 +++|
00218  M00S00167.1ro     +++|          SEQUENCE JECI,JEC  WRITE JOB ECS FIELD LENGTH
00219  M00S00168.1ro     +++|*         UJN    *+2         (NO ECS)
00220  M00S00169.1ro     +++|
Line S00170 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00170.271l716 ---|          RJM    WEI         WRITE EOI SECTOR
Line S00048 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00222  M01S00048.271l716 +++| ROJJ     RJM    WEI         WRITE EOI SECTOR
Line S00171 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00223  M01S00171.271l716 ---|*         UJN    ROJ2        (BUFFERED DEVICE)
Line S00049 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00224  M01S00049.271l716 +++|*         UJN    ROJ4        (BUFFERED DEVICE)
Line S00172 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00225  M01S00172.271l716 ---| ROJJ     EQU    *-2
Line S00050 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00226  M01S00050.271l716 +++|
Line S00173 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00227  M01S00173.271l716 ---|          PJN    ROJ2        IF NO MASS STORAGE ERROR
00228  M01S00174.271l716 ---| ROJ1     LJM    MSR         PROCESS MASS STORAGE ERROR
00229  M01S00175.271l716 ---|
00230  M01S00176.271l716 ---| ROJ2     ENDMS
Line S00051 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00231  M01S00051.271l716 +++|          PJN    ROJ4        IF NO MASS STORAGE ERROR
00232  M01S00052.271l716 +++| ROJ3     LJM    MSR         PROCESS MASS STORAGE ERROR
00233  M01S00053.271l716 +++|
00234  M01S00054.271l716 +++| ROJ4     ENDMS
00235  M00S00177.1ro     +++|
00236  M00S00178.1ro     +++|*         PERFORM FINAL ROLLOUT OPERATIONS.
00237  M00S00179.1ro     +++|
Line S00180 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00238  M01S00180.271l716 ---| ROJ3     RJM    CRS         CLEAR RECALL STACK
00239  M01S00181.271l716 ---|          RJM    CRO         COMPLETE ROLLOUT (NON-DMP= CALL)
00240  M01S00182.271l716 ---|*         RJM    CDR         (DMP= CALL)
Line S00055 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00055.271l716 +++| ROJ5     RJM    CRO         COMPLETE ROLLOUT (ON-LINE MAY NOT RETURN)
00242  M01S00056.271l716 +++|*         RJM    CDR         (*DMP=* CALL)
00243  M00S00183.1ro     +++| ROJF     EQU    *-1
Line S00057 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00057.271l716 +++|
Line S00184 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00184.271l716 ---|          LDN    0           CALL JOB SCHEDULER
00246  M01S00185.271l716 ---|          STD    CM+2
00247  M01S00186.271l716 ---|          MONITOR  RSJM
00248  M01S00187.271l716 ---|          LDC    **          (ERROR FLAG)
Line S00058 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00249  M01S00058.271l716 +++|          LDD    IR+2
00250  M01S00059.271l716 +++|          SBN    2
00251  M01S00060.271l716 +++|          NJN    ROJ5.1      IF NOT PSEUDO-ROLLOUT
00252  M01S00061.271l716 +++|          STD    CM+2
00253  M01S00062.271l716 +++|          MONITOR  RSJM      CALL SCHEDULER
00254  M01S00063.271l716 +++| ROJ5.1   LDC    **          (ERROR FLAG)
00255  M00S00188.1ro     +++| ROJK     EQU    *-1
Line S00189 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00256  M01S00189.271l716 ---|          ZJN    ROJ4        IF NO ERROR FLAG TO SET
00257  M01S00190.271l716 ---|          RJM    SEF         SET ERROR FLAG
00258  M01S00191.271l716 ---| ROJ4     LDN    /CPS/CCPS+/CPS/DPPS  RELEASE CONTROL POINT, DROP PP
00259  M01S00192.271l716 ---|*         UJN    ROJ6        (DMP= CALL)
00260  M01S00193.271l716 ---| ROJG     EQU    *-1
00261  M01S00194.271l716 ---| ROJ5     STD    CM+1
Line S00064 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00262  M01S00064.271l716 +++|          RJM    SEF         SET ERROR FLAG, IF PRESENT
Line S00065 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00065.273l780 ---|          LDC    **
00264  M02S00066.273l780 ---|*         LDC    1           (COMPOUND ROLLOUT)
00265  M02S00067.273l780 ---| ROJL     EQU    *-1
00266  M02S00068.273l780 ---|          NJN    ROJ8        IF COMPOUND ROLLOUT
00267  M02S00069.273l780 ---|          LDD    IR+4        SET POSSIBLE PCP NUMBER
00268  M02S00070.273l780 ---|          STD    CM+2
00269  M02S00071.273l780 ---| ROJG     LDC    /CPS/CCPS+/CPS/DPPS  RELEASE CP, DROP PP
00270  M02S00072.273l780 ---|*         LDC    /CPS/CCPS+/CPS/DPPS+4000  (PCP ROLL)
00271  M02S00073.273l780 ---|*         LDC    /CPS/CCPS+4000  (PSEUDO ROLL WITH *1TO* CALL REQUIRED)
Line S00001 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00272  M01S00001.273l780 +++|          RJM    CPC         CHECK PCP ROLLOUT COMPLETION
00273  M01S00002.273l780 +++|          ZJN    ROJ7.1      IF SIMPLE PCP ROLLOUT
00274  M01S00003.273l780 +++|          PJN    ROJ8        IF COMPOUND ROLLUT
00275  M01S00004.273l780 +++| ROJG     LDC    /CPS/CCPS+/CPS/DPPS  RELEASE CP AND DROP PP
00276  M01S00005.273l780 +++|*         LDC    /CPS/CCPS   (*1TO* TO BE CALLED)
Line S00074 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00277  M01S00074.271l716 +++|*         UJN    ROJ8        (*DMP=* CALL)
00278  M01S00075.271l716 +++|
00279  M01S00076.271l716 +++| ROJ7     STD    CM+1
00280  M00S00195.1ro     +++|          MONITOR  JACM
Line S00077 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00077.271l716 +++|
00282  M01S00078.271l716 +++|*         ON A COMPOUND ROLLOUT, IF THE FIRST *1RO* FINDS THAT THERE
00283  M01S00079.271l716 +++|*         IS TERMINAL OUTPUT AVAILABLE FOR THE JOB BEING ROLLED TO
00284  M01S00080.271l716 +++|*         DISK, THE FIRST SECTOR OF OUTPUT IS SAVED IN THE PP UNTIL
00285  M01S00081.271l716 +++|*         AFTER THE SECOND *1RO* IS COMPLETE.  *1TO* IS THEN CALLED
00286  M01S00082.271l716 +++|*         INTO THE SAME PP TO PROCESS THE OUTPUT.
00287  M01S00083.271l716 +++|
Line S00084 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00084.273l780 ---| ROJM     LDN    **
Line S00006 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00006.273l780 +++|          LDN    **
00290  M01S00007.273l780 +++| ROJM     EQU    *-1
Line S00085 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00291  M01S00085.271l716 +++|*         LDN    1           (*1TO* CALL REQUIRED)
00292  M01S00086.271l716 +++|          ZJN    ROJ8        IF *1TO* CALL NOT REQUIRED
00293  M01S00087.271l716 +++|          LDN    /REM/VCPT   MOVE TO *IAF* CP
00294  M01S00088.271l716 +++|          STD    CM+1
00295  M01S00089.271l716 +++|          MONITOR  CCAM
00296  M01S00090.271l716 +++|          LDD    IA          WRITE *1TO* CALL TO INPUT REGISTER
00297  M01S00091.271l716 +++|          CWM    ROJN,ON
00298  M01S00092.271l716 +++|          LDD    CM+1
00299  M01S00093.271l716 +++|          LMN    /REM/VCPT
00300  M01S00094.271l716 +++|          NJN    ROJ8        IF CHANGE MADE
Line S00095 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00095.273l780 ---|          MONITOR  DPPM
Line S00008 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00302  M01S00008.273l780 +++| ROJ7.1   MONITOR  DPPM
Line S00196 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00303  M01S00196.271l716 ---| ROJ6     LJM    PPR         EXIT (CALL *1AJ* IF DMP= CALL)
00304  M01S00197.271l716 ---|
00305  M01S00198.271l716 ---| ROJH     CON    1           CONTROL POINT ACTIVE FLAG
00306  M01S00199.271l716 ---|*         CON    100         IF ECS PROTECT AND END OF JOBSTEP
Line S00096 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00307  M01S00096.271l716 +++| ROJ8     LJM    PPR         EXIT
00308  M01S00097.271l716 +++|
00309  M01S00098.271l716 +++|
00310  M01S00099.271l716 +++| ROJN     VFD    18/3L1TO,6//REM/VCPT,36/0
Line S00009 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00311  M01S00009.273l780 +++|          SPACE  4
00312  M01S00010.273l780 +++|**        GLOBAL DATA.
00313  M01S00011.273l780 +++|
00314  M01S00012.273l780 +++|
00315  M01S00013.273l780 +++| CPAD     BSSZ   2           CP/PCP ADDRESS
00316  M00S00200.1ro     +++|          TITLE  ROLLOUT FILE WRITE ROUTINES.
00317  M00S00201.1ro     +++| CPA      SPACE  4,10
00318  M00S00202.1ro     +++|**        CPA - WRITE CONTROL POINT AREA.
00319  M00S00203.1ro     +++|*
00320  M00S00204.1ro     +++|*         CALLS  WNS.
Line S00100 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00100.273l780 ---|*
00322  M02S00101.273l780 ---|*         MACROS LCPA.
00323  M00S00205.1ro     +++|
00324  M00S00206.1ro     +++|
00325  M00S00207.1ro     +++| CPA      SUBR               ENTRY/EXIT
Line S00208 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00326  M01S00208.271l716 ---|          LDD    CP          READ CP AREA
Line S00102 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00102.273l780 ---|          LCPA               READ CPA/PCPA
Line S00014 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00328  M01S00014.273l780 +++|          TLDC   0,CPAD      READ FIRST HALF OF CPA/PCPA
00329  M00S00209.1ro     +++|          CRM    BFMS+2,HN
00330  M00S00210.1ro     +++|
00331  M00S00211.1ro     +++|*         CLEAR *MS1W* AND *MS2W* IF NO JOB ACTIVITY.
00332  M00S00212.1ro     +++|
Line S00213 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00333  M01S00213.271l716 ---|          LDM    ROJH
Line S00103 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00334  M01S00103.271l716 +++|          LDC    1           CONTROL POINT ACTIVE FLAG
00335  M01S00104.271l716 +++|*         LDC    100         (EM PROTECT AND END OF JOB STEP)
00336  M01S00105.271l716 +++| CPAB     EQU    *-1
00337  M00S00214.1ro     +++|          LPN    1
00338  M00S00215.1ro     +++|          NJN    CPA1        IF JOB ACTIVITY
00339  M00S00216.1ro     +++|          STM    BFMS+2+MS1W*5
00340  M00S00217.1ro     +++|          STM    BFMS+2+MS2W*5
Line S00001 Modification History
M01 (Added by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00001.271l716 ---|          LDM    ROJH        SET CORRECT FL FOR ROLLOUT
Line S00106 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00342  M01S00106.271l716 +++|          LDM    CPAB        SET CORRECT FL FOR ROLLOUT
Line S00002 Modification History
M01 (Added by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00343  M01S00002.1ro26   +++|          ERRNZ  MCMX/100-100  CHECK FOR CORRECT VALUE OF *MCMX*
00344  M01S00003.1ro26   +++|          STM    BFMS+2+FLSW*5+4
00345  M01S00004.1ro26   +++|          NJN    CPA1        IF ECS PROTECTED
00346  M01S00005.1ro26   +++|          STM    BFMS+2+ECSW*5+4
00347  M00S00218.1ro     +++| CPA1     LDD    NF          SET NFL SIZE IN ROLLOUT FILE
00348  M00S00219.1ro     +++|          STM    BFMS+2+FLSW*5
Line S00220 Modification History
M01 (Removed by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00349  M01S00220.1ro26   ---|          LDN    1
00350  M01S00221.1ro26   ---|*         LDN    0           (*PEET* ERROR OR NO ACTIVITY)
00351  M01S00222.1ro26   ---| CPAA     EQU    *-1
00352  M01S00223.1ro26   ---|          NJN    CPA2        IF NO *PEET* ERROR AND ACTIVITY PENDING
00353  M01S00224.1ro26   ---|          STM    BFMS+2+FLSW*5+4  CLEAR *FL*
00354  M01S00225.1ro26   ---|          STM    BFMS+2+ECSW*5+4  CLEAR *FLX*
Line S00226 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00355  M01S00226.271l716 ---| CPA2     RJM    WNS         WRITE CP AREA
Line S00107 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00107.271l716 +++|          RJM    WNS         WRITE CPA
Line S00227 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00227.271l716 ---|          LDD    CP          READ CP AREA
Line S00108 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00108.273l780 ---|          LCPA               READ CPA/PCPA
Line S00228 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00228.273l780 ---|          ADD    HN
Line S00015 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00360  M01S00015.273l780 +++|          TLDC   100,CPAD    READ SECOND HALF OF CPA/PCPA
00361  M00S00229.1ro     +++|          CRM    BFMS+2,HN
00362  M00S00230.1ro     +++|          RJM    WNS         WRITE NEXT SECTOR
Line S00231 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00363  M01S00231.271l716 ---|          UJN    CPAX        RETURN
Line S00109 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00364  M01S00109.271l716 +++|          UJP    CPAX        RETURN
00365  M00S00232.1ro     +++| JFL      SPACE  4,10
00366  M00S00233.1ro     +++|**        JFL - WRITE JOB CM FIELD LENGTH.
00367  M00S00234.1ro     +++|*
00368  M00S00235.1ro     +++|*         USES   T3.
00369  M00S00236.1ro     +++|*
00370  M00S00237.1ro     +++|*         CALLS  ROD, ROM.
00371  M00S00238.1ro     +++|*
00372  M00S00239.1ro     +++|*         MACROS ENDMS.
00373  M00S00240.1ro     +++|
00374  M00S00241.1ro     +++|
00375  M00S00242.1ro     +++| JFL      SUBR               ENTRY/EXIT
00376  M00S00243.1ro     +++| JFLA     UJN    *+2
00377  M00S00244.1ro     +++|          CON    .EMS
00378  M00S00245.1ro     +++|*         ENDMS              (ROLLOUT DEVICE IS ECS)
00379  M00S00246.1ro     +++|          LDN    0           SET FWA TO ROLLOUT
00380  M00S00247.1ro     +++|          STD    T3
00381  M00S00248.1ro     +++|          LDC    0           LOAD LWA OF FL TO ROLL
00382  M00S00249.1ro     +++| JFLB     EQU    *-1
00383  M00S00250.1ro     +++|          ZJN    JFLX        IF NO FL TO BE ROLLED
00384  M00S00251.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00385  M00S00252.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00386  M00S00253.1ro     +++| JFLC     EQU    *-1
00387  M00S00254.1ro     +++|          UJN    JFLX        RETURN
Line S00255 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00388  M01S00255.271l716 ---|
00389  M01S00256.271l716 ---| JFLD     BSS    5           EJT *SCHE* WORD
00390  M00S00257.1ro     +++| JEC      SPACE  4,10
00391  M00S00258.1ro     +++|**        JEC - WRITE JOB ECS FIELD LENGTH.
00392  M00S00259.1ro     +++|*
00393  M00S00260.1ro     +++|*         ENTRY  (CN - CN+4) = *FLSW*.
00394  M00S00261.1ro     +++|*
Line S00262 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00395  M01S00262.273l780 ---|*         USES   T3, CM - CM+4, CN - CN+4, FN - FN+4.
Line S00016 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00396  M01S00016.273l780 +++|*         USES   T3, T8, CM - CM+4, CN - CN+4.
00397  M00S00263.1ro     +++|*
00398  M00S00264.1ro     +++|*         CALLS  AEA, ROD, ROM, WNS.
00399  M00S00265.1ro     +++|*
Line S00266 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00400  M01S00266.271l716 ---|*         MACROS ENDMS.
Line S00110 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00110.273l780 ---|*         MACROS AJFL, ENDMS, LCPA.
Line S00017 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00402  M01S00017.273l780 +++|*         MACROS ENDMS.
00403  M00S00267.1ro     +++|
00404  M00S00268.1ro     +++|
00405  M00S00269.1ro     +++| JEC      SUBR               ENTRY/EXIT
Line S00270 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00270.271l716 ---|          LDN    PSNI        DISABLE DYNAMIC FL REDUCTION
00407  M01S00271.271l716 ---|          STM    ROMA
00408  M01S00272.271l716 ---|          STM    RODA
00409  M00S00273.1ro     +++|
00410  M00S00274.1ro     +++|*         ROLLOUT BUFFER SPACE.
00411  M00S00275.1ro     +++|
Line S00276 Modification History
M01 (Removed by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00276.271l716 ---|          LDD    FL          SET FWA FOR ROLLOUT
Line S00111 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00111.273l780 ---|          AJFL               SET FWA FOR ROLLOUT
Line S00006 Modification History
M01 (Added by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00414  M01S00006.1ro26   +++| JECG     LDD    FL
00415  M01S00007.1ro26   +++|*         LDD    HN          (NO ACTIVITY AND ECS PROTECTED)
00416  M00S00277.1ro     +++|          ADC    -MCMX/100
00417  M00S00278.1ro     +++|          STD    T3
00418  M00S00279.1ro     +++|          ADN    MCMX/100/2
00419  M00S00280.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00420  M00S00281.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00421  M00S00282.1ro     +++| JECA     EQU    *-1
00422  M00S00283.1ro     +++|
00423  M00S00284.1ro     +++|*         ROLLOUT ECS.
00424  M00S00285.1ro     +++|
00425  M00S00286.1ro     +++|          LDN    ZERL        SET UP *MTR* CALL
00426  M00S00287.1ro     +++|          CRD    CN
00427  M00S00288.1ro     +++|          LDC    MCMX/4      SET WORD COUNT
00428  M00S00289.1ro     +++|          STD    CN
00429  M00S00290.1ro     +++|          LDN    0           CHECK BUFFER SIZE
00430  M00S00291.1ro     +++|          RJM    AEA
Line S00292 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00431  M01S00292.271l716 ---|          LDD    CP          INITIALIZE RESPONSE ADDRESS
Line S00112 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00112.273l780 ---|          LCPA               INITIALIZE RESPONSE ADDRESS
Line S00018 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00433  M01S00018.273l780 +++|          TLDC   0,CPAD      INITIALIZE RESPONSE ADDRESS
00434  M00S00293.1ro     +++|          CWD    CN
Line S00294 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00435  M01S00294.271l716 ---|          STM    JECF+2      SET ALTERNATE RESPONSE ADDRESS
00436  M01S00295.271l716 ---|          LDD    FL          SET BUFFER ADDRESS
Line S00113 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00113.273l780 ---|          AJFL   FL          SET BUFFER ADDRESS
Line S00019 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00019.273l780 +++|          LDD    FL          SET BUFFER ADDRESS
00439  M00S00296.1ro     +++|          ADC    -MCMX/100
00440  M00S00297.1ro     +++|          STD    CN+2
00441  M00S00298.1ro     +++|          ADN    MCMX/100/4  SET TOGGLE CONSTANT
00442  M00S00299.1ro     +++|          LMD    CN+2
00443  M00S00300.1ro     +++|          STM    JECB
00444  M00S00301.1ro     +++|          LDD    MA          WRITE REQUEST TO *OR*
00445  M00S00302.1ro     +++|          CWD    CN
00446  M00S00303.1ro     +++|          SBN    1
00447  M00S00304.1ro     +++|          CWM    JECF,ON
00448  M00S00305.1ro     +++|          LDN    MCMX/4/1000 ADVANCE ECS ADDRESS
00449  M00S00306.1ro     +++|          RJM    AEA
00450  M00S00307.1ro     +++| JEC1     LDD    OA          WAIT *OR* CLEAR
00451  M00S00308.1ro     +++|          CRD    CM
00452  M00S00309.1ro     +++|          LDD    CM
00453  M00S00310.1ro     +++|          NJN    JEC1        LOOP TILL CLEAR
Line S00311 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00454  M01S00311.271l716 ---| JEC2     LDD    CP          CHECK *ECXM* RESPONSE WORD
Line S00114 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00114.273l780 ---| JEC2     LCPA               CHECK *RCXM/ECXM* RESPONSE WORD
Line S00020 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00020.273l780 +++| JEC2     TLDC   0,CPAD      CHECK *RCXM/ECXM* RESPONSE WORD
00457  M00S00312.1ro     +++|          CRD    CM
00458  M00S00313.1ro     +++|          LDD    CM
Line S00314 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00459  M01S00314.271l716 ---|          NJN    JEC2        IF *ECXM* NOT COMPLETE
Line S00115 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00460  M01S00115.271l716 +++|          NJN    JEC2        IF *RCXM/ECXM* INCOMPLETE
00461  M00S00315.1ro     +++|          LDD    CM+1
00462  M00S00316.1ro     +++|          ZJN    JEC3        IF NO ECS ERROR
00463  M00S00317.1ro     +++|          LDK    JSET        SET ERROR FLAG TO ABORT JOB STEP
00464  M00S00318.1ro     +++|          SBM    ROJK
00465  M00S00319.1ro     +++|          MJN    JEC3        IF HIGHER ERROR FLAG ALREADY SET
00466  M00S00320.1ro     +++|          RAM    ROJK
00467  M00S00321.1ro     +++| JEC3     LDD    CN+2        TOGGLE BUFFER POINTER
00468  M00S00322.1ro     +++|          STD    T3
00469  M00S00323.1ro     +++|          LMC    *
00470  M00S00324.1ro     +++| JECB     EQU    *-1
00471  M00S00325.1ro     +++|*         LMC    N           (TOGGLE CONSTANT)
00472  M00S00326.1ro     +++|*         LJM    JEC5        (IF LAST BUFFER FULL)
00473  M00S00327.1ro     +++|          STD    CN+2
Line S00328 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00474  M01S00328.271l716 ---|          LDD    CP          SET COMPLETION STATUS BUSY
Line S00116 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00116.273l780 ---|          LCPA               SET COMPLETION STATUS
Line S00021 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00021.273l780 +++|          TLDC   0,CPAD      SET COMPLETION STATUS
00477  M00S00329.1ro     +++|          CWD    CN
00478  M00S00330.1ro     +++|          LDD    MA          WRITE REQUEST
00479  M00S00331.1ro     +++|          CWD    CN
00480  M00S00332.1ro     +++|          SBN    1
00481  M00S00333.1ro     +++|          CWM    JECF,ON
00482  M00S00334.1ro     +++|          LDN    MCMX/4/1000 ADVANCE ECS ADDRESS
00483  M00S00335.1ro     +++|          RJM    AEA
00484  M00S00336.1ro     +++|          LDD    T3
00485  M00S00337.1ro     +++|          ADN    MCMX/100/4
00486  M00S00338.1ro     +++|          STD    T8
00487  M00S00339.1ro     +++|
00488  M00S00340.1ro     +++|*         ROLLOUT ECS BUFFER.
00489  M00S00341.1ro     +++|
Line S00342 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00490  M01S00342.271l716 ---| JEC4     LDD    RA
Line S00117 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00491  M01S00117.271l716 +++| JEC4     LDD    RA
00492  M00S00343.1ro     +++|          ADD    T3
00493  M00S00344.1ro     +++|          SHN    6
00494  M00S00345.1ro     +++|          CRM    BFMS+2,HN
00495  M00S00346.1ro     +++|          LDC    BFMS
00496  M00S00347.1ro     +++|          RJM    WNS
Line S00118 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00118.273l780 ---|          AJFL               RESET *RA*
00498  M00S00348.1ro     +++|          AOD    T3
00499  M00S00349.1ro     +++|          LMD    T8
00500  M00S00350.1ro     +++|          NJN    JEC4        IF NOT END OF ECS BLOCK
00501  M00S00351.1ro     +++|          LJM    JEC1        GET NEXT BLOCK OF ECS
00502  M00S00352.1ro     +++|
00503  M00S00353.1ro     +++| JEC5     UJN    *+2
00504  M00S00354.1ro     +++|
00505  M00S00355.1ro     +++| JECC     EQU    *-1
00506  M00S00356.1ro     +++|          CON    .EMS
00507  M00S00357.1ro     +++|*         ENDMS              (ROLLOUT DEVICE IS ECS)
00508  M00S00358.1ro     +++|          LDD    T3
00509  M00S00359.1ro     +++|          SHN    6
00510  M00S00360.1ro     +++|          ADD    CN
00511  M00S00361.1ro     +++|          SHN    -6
00512  M00S00362.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00513  M00S00363.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00514  M00S00364.1ro     +++| JECD     EQU    *-1
00515  M00S00365.1ro     +++|
00516  M00S00366.1ro     +++|*         ROLLOUT LAST PART OF CM.
00517  M00S00367.1ro     +++|
00518  M00S00368.1ro     +++|          LDM    UERR        CLEAR NO FLUSH FLAG
00519  M00S00369.1ro     +++|          LPC    -EPNF
00520  M00S00370.1ro     +++|          STM    UERR
Line S00371 Modification History
M01 (Removed by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00371.271l716 ---|          LDD    FL
Line S00119 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00119.273l780 ---|          AJFL
Line S00008 Modification History
M01 (Added by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00008.1ro26   +++| JECH     LDD    FL
00524  M01S00009.1ro26   +++|*         LDD    HN          (NO ACTIVITY AND ECS PROTECTED)
00525  M00S00372.1ro     +++|          SBN    MCMX/100/2  SET FWA FOR ROLLOUT
00526  M00S00373.1ro     +++|          STD    T3
00527  M00S00374.1ro     +++|          ADN    MCMX/100/2
00528  M00S00375.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00529  M00S00376.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00530  M00S00377.1ro     +++| JECE     EQU    *-1
00531  M00S00378.1ro     +++|          LJM    JECX        RETURN
00532  M00S00379.1ro     +++|
00533  M00S00380.1ro     +++|
Line S00381 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00534  M01S00381.271l716 ---| JECF     CON    ECXM        *ECXM* REQUEST WORD
Line S00120 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00535  M01S00120.271l716 +++| JECF     VFD    12/RCXM     EM TRANSFER FUNCTION PROCESSED BY *MTR*
Line S00121 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00121.273l780 ---|          VFD    1/0         ALTERNATE CP/PCP FLAG
00537  M02S00122.273l780 ---|          VFD    11/0
00538  M02S00123.273l780 ---|          VFD    12/0        CP/PCP
00539  M02S00124.273l780 ---|          VFD    5/0
Line S00022 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00540  M01S00022.273l780 +++|          VFD    29/0
Line S00125 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00541  M01S00125.271l716 +++|          VFD    1/0         FUNCTION TYPE = READ
00542  M01S00126.271l716 +++|          VFD    18/0        ALTERNATE RESPONSE ADDRESS
Line S00382 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00382.271l716 ---|          CON    0
00544  M01S00383.271l716 ---|          CON    0
00545  M01S00384.271l716 ---|          CON    0
00546  M01S00385.271l716 ---|          CON    0
00547  M00S00386.1ro     +++|          TITLE  SUBROUTINES.
00548  M00S00387.1ro     +++| AEA      SPACE  4,10
Line S00388 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00388.271l716 ---|**        AEA - ADVANCE ECS ADDRESS FOR *ECXM* FUNCTION.
Line S00127 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00550  M01S00127.271l716 +++|**        AEA - ADVANCE EM ADDRESS FOR *RCXM/ECXM* FUNCTION.
00551  M00S00389.1ro     +++|*
00552  M00S00390.1ro     +++|*         ENTRY  (A) = INCREMENT.
00553  M00S00391.1ro     +++|*                (AEAA) = FLE.
Line S00392 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00554  M01S00392.271l716 ---|*                (CN - CN+4) = *ECXM* FUNCTION WORD.
Line S00128 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00555  M01S00128.271l716 +++|*                (CN - CN+4) = *RCXM*/*ECXM* PARAMETER WORD.
00556  M00S00393.1ro     +++|*
00557  M00S00394.1ro     +++|*         EXIT   WORD COUNT ADJUSTED IF LESS THAN MCMX/4 WORDS TO GO.
00558  M00S00395.1ro     +++|*                *JECB* SET TO BYPASS NEXT READ IF FLE REACHED.
00559  M00S00396.1ro     +++|*
00560  M00S00397.1ro     +++|*         USES   CN, CN+4.
00561  M00S00398.1ro     +++|
00562  M00S00399.1ro     +++|
00563  M00S00400.1ro     +++|*         LDD    *LJMI*
00564  M00S00401.1ro     +++| AEA1     LDD    HN          SET *LJMI* TO BYPASS NEXT READ
00565  M00S00402.1ro     +++|          STM    JECB-1
00566  M00S00403.1ro     +++|          LDC    JEC5
00567  M00S00404.1ro     +++|          STM    JECB
00568  M00S00405.1ro     +++|
00569  M00S00406.1ro     +++| AEA      SUBR               ENTRY/EXIT
00570  M00S00407.1ro     +++|          RAD    CN+4
00571  M00S00408.1ro     +++|          SHN    -14
00572  M00S00409.1ro     +++|          RAD    CN+3
00573  M00S00410.1ro     +++|          SHN    14
00574  M00S00411.1ro     +++|          ADD    CN+4
00575  M00S00412.1ro     +++| AEAA     ADC    **
00576  M00S00413.1ro     +++|*         ADC    -FLE
00577  M00S00414.1ro     +++|          PJN    AEA1        IF FLE REACHED
00578  M00S00415.1ro     +++|          SHN    11
00579  M00S00416.1ro     +++|          ADD    CN
00580  M00S00417.1ro     +++|          SHN    11
00581  M00S00418.1ro     +++|          MJN    AEAX        IF FULL BUFFER REMAINS
00582  M00S00419.1ro     +++|          ZJN    AEAX        IF FULL BUFFER REMAINS
00583  M00S00420.1ro     +++|          SHN    11
00584  M00S00421.1ro     +++|          STD    CN
00585  M00S00422.1ro     +++|          UJN    AEAX        RETURN
Line S00423 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00423.271l716 ---| CDF      SPACE  4,10
00587  M01S00424.271l716 ---|**        CDF - CLEAR *DMP=* PARAMETERS.
00588  M01S00425.271l716 ---|*
00589  M01S00426.271l716 ---|*         *CDF* WILL CLEAR *DMP=* PARAMETERS SET BY *1AJ* PRIOR TO
00590  M01S00427.271l716 ---|*         CALLING *1RO*.  THIS WILL RESULT IN THE REQUEST BEING
00591  M01S00428.271l716 ---|*         REINITIATED BY *1AJ* AT A LATER TIME.
00592  M01S00429.271l716 ---|*
00593  M01S00430.271l716 ---|*         EXIT   *SPCW* *DMP=* INITIATED FLAGS CLEARED.
00594  M01S00431.271l716 ---|*                (PPDW+2) = 0.
00595  M01S00432.271l716 ---|*
00596  M01S00433.271l716 ---|*         USES   CM - CM+4, CN - CN+4.
00597  M01S00434.271l716 ---|
00598  M01S00435.271l716 ---|
00599  M01S00436.271l716 ---| CDF      SUBR               ENTRY/EXIT
00600  M01S00437.271l716 ---|          LDD    CP
00601  M01S00438.271l716 ---|          ADK    SPCW
00602  M01S00439.271l716 ---|          CRD    CN
00603  M01S00440.271l716 ---|          ADN    PPDW-SPCW
00604  M01S00441.271l716 ---|          CRD    CM
00605  M01S00442.271l716 ---|          LDD    CN+1        CLEAR *DMP=* INITIATED FLAGS
00606  M01S00443.271l716 ---|          SCN    43
00607  M01S00444.271l716 ---|          STD    CN+1
00608  M01S00445.271l716 ---|          LDN    0           CLEAR PPDW+2
00609  M01S00446.271l716 ---|          STD    CM+2
00610  M01S00447.271l716 ---|          LDD    CP          REWRITE *SPCW*
00611  M01S00448.271l716 ---|          ADC    SPCW
00612  M01S00449.271l716 ---|          CWD    CN
00613  M01S00450.271l716 ---|          ADN    PPDW-SPCW   REWRITE *PPDW*
00614  M01S00451.271l716 ---|          CWD    CM
00615  M01S00452.271l716 ---|          UJN    CDFX        RETURN
00616  M01S00453.271l716 ---| CDM      SPACE  4,15
00617  M01S00454.271l716 ---|**        CDM - CREATE DM* FNT ENTRY.
00618  M01S00455.271l716 ---|*
00619  M01S00456.271l716 ---|*         EXIT   (FA) = ADDRESS/OFFSET OF DM* FILE FNT ENTRY.
00620  M01S00457.271l716 ---|*
00621  M01S00458.271l716 ---|*         USES   FN - FN+4, FS.
00622  M01S00459.271l716 ---|*
00623  M01S00460.271l716 ---|*         CALLS  *0BF*.
00624  M01S00461.271l716 ---|*
00625  M01S00462.271l716 ---|*         MACROS EXECUTE, MONITOR.
00626  M01S00463.271l716 ---|
00627  M01S00464.271l716 ---|
00628  M01S00465.271l716 ---| CDM      SUBR               ENTRY/EXIT
00629  M01S00466.271l716 ---|          LDN    ZERL        CLEAR FNT IMAGE
00630  M01S00467.271l716 ---|          CRD    FN
00631  M01S00468.271l716 ---|          LDC    3R*DM       CREATE LFN
00632  M01S00469.271l716 ---|          STD    FN
00633  M01S00470.271l716 ---|          SHN    -6
00634  M01S00471.271l716 ---|          SCN    77
00635  M01S00472.271l716 ---|          STD    FN+1
00636  M01S00473.271l716 ---|
00637  M01S00474.271l716 ---|*         CALL *0BF* TO CREATE FNT/FST ENTRY.
00638  M01S00475.271l716 ---|
00639  M01S00476.271l716 ---|          LDN    NEEQ        ASSIGN NULL EQUIPMENT
00640  M01S00477.271l716 ---|          STD    FS
00641  M01S00478.271l716 ---|          LDN    40          SELECT SPECIAL FILE OPTION
00642  M01S00479.271l716 ---|          STM    OVL0-1
00643  M01S00480.271l716 ---|          EXECUTE  0BF,OVL0  BUILD FILE USING RESERVED FNT ENTRY
00644  M01S00481.271l716 ---|          ZJN    CDMX        IF FNT/FST ENTRY CREATED
00645  M01S00482.271l716 ---|
00646  M01S00483.271l716 ---|*         IF THE FNT/FST ENTRY WAS NOT CREATED, HANG THE PP
00647  M01S00484.271l716 ---|*         SINCE THE RESERVED ENTRIES SHOULD ENSURE SUCCESSFUL
00648  M01S00485.271l716 ---|*         CREATION.
00649  M01S00486.271l716 ---|*         IF THE FILE ALREADY EXISTS BUT IS NOT ASSIGNED TO THE
00650  M01S00487.271l716 ---|*         NULL EQUIPMENT HANG THE PP SINCE THIS INDICATES A SYSTEM
00651  M01S00488.271l716 ---|*         LOGIC ERROR.
00652  M01S00489.271l716 ---|
00653  M01S00490.271l716 ---|          SBD    HN
00654  M01S00491.271l716 ---|          MJN    CDM1        IF FILE NOT ALREADY PRESENT
00655  M01S00492.271l716 ---|          LDD    FS
00656  M01S00493.271l716 ---|          LMN    NEEQ
00657  M01S00494.271l716 ---|          NJN    CDM1        IF NOT ASSIGNED TO NULL EQUIPMENT
00658  M01S00495.271l716 ---|          SOD    FS+4        SET FILE BUSY
00659  M01S00496.271l716 ---|          NFA    FA
00660  M01S00497.271l716 ---|          ADN    FSTL
00661  M01S00498.271l716 ---|          CWD    FS
00662  M01S00499.271l716 ---|          LJM    CDMX        RETURN
00663  M01S00500.271l716 ---|
00664  M01S00501.271l716 ---| CDM1     LDK    SWET        SET SYSTEM SOFTWARE ERROR
00665  M01S00502.271l716 ---|          STD    CM+2
00666  M01S00503.271l716 ---|          LDC    *           ADDRESS WHERE ERROR DETECTED
00667  M01S00504.271l716 ---|          STD    CM+1
00668  M01S00505.271l716 ---|          MONITOR  CHGM      CONDITIONALLY HANG PP
00669  M01S00506.271l716 ---|          EXECUTE  1AJ,=
00670  M01S00507.271l716 ---|          LDD    IR+1        PLACE *1AJ* CALL IN PP INPUT REGISTER
00671  M01S00508.271l716 ---|          LPN    37
00672  M01S00509.271l716 ---|          RAM    CDMA+1
00673  M01S00510.271l716 ---|          LDD    IA
00674  M01S00511.271l716 ---|          CWM    CDMA,ON
00675  M01S00512.271l716 ---|          LJM    ROJ6        CALL *1AJ*
00676  M01S00513.271l716 ---|
00677  M01S00514.271l716 ---| CDMA     VFD    18/0L1AJ,6/,36/0
00678  M01S00515.271l716 ---|
00679  M01S00516.271l716 ---| CDR      SPACE  4,10
00680  M01S00517.271l716 ---|**        CDR - COMPLETE DMP= ROLLOUT.
00681  M01S00518.271l716 ---|*
00682  M01S00519.271l716 ---|*         ENTRY  (FA) = DM* FILE FNT ADDRESS/OFFSET.
00683  M01S00520.271l716 ---|*                (CDRC) = ASSIGNED EM FL IN *UEBS* WORD BLOCKS.
00684  M01S00521.271l716 ---|*
00685  M01S00522.271l716 ---|*         USES   CM - CM+5, FN - FN+4.
00686  M01S00523.271l716 ---|*
00687  M01S00524.271l716 ---|*         CALLS  ERS.
00688  M01S00525.271l716 ---|*
00689  M01S00526.271l716 ---|*         MACROS EXECUTE, MONITOR, NFA.
00690  M01S00527.271l716 ---|
00691  M01S00528.271l716 ---|
00692  M01S00529.271l716 ---| CDR      SUBR               ENTRY/EXIT
00693  M01S00530.271l716 ---|
00694  M01S00531.271l716 ---|*         RELEASE ECS FL IF FULL CM FL ROLLOUT.
00695  M01S00532.271l716 ---|
00696  M01S00533.271l716 ---|          LDD    IR+4
00697  M01S00534.271l716 ---|          NJN    CDR1        IF NOT FULL CM FL ROLLOUT
00698  M01S00535.271l716 ---|          STD    CM+1
00699  M01S00536.271l716 ---|          LDC    **
00700  M01S00537.271l716 ---| CDRC     EQU    *-1         (EM FL/*UEBS*)
00701  M01S00538.271l716 ---|          ZJN    CDR2        IF NO ECS ASSIGNED TO JOB
00702  M01S00539.271l716 ---|          LDN    1           RELEASE ASSIGNED ECS
00703  M01S00540.271l716 ---|          STD    CM+2
00704  M01S00541.271l716 ---|          MONITOR  RSTM
00705  M01S00542.271l716 ---|
00706  M01S00543.271l716 ---|*         CLEAR ROLLOUT REQUESTED FLAG AND CPU STATUS FLAG IN *STSW*.
00707  M01S00544.271l716 ---|
00708  M01S00545.271l716 ---| CDR1     LDN    0
00709  M01S00546.271l716 ---| CDR2     RJM    ERS         ENTER ROLLOUT STATUS
00710  M01S00547.271l716 ---|
00711  M01S00548.271l716 ---|*         FINISH BUILDING DM* FILE FNT/FST ENTRY.
00712  M01S00549.271l716 ---|
00713  M01S00550.271l716 ---|          NFA    FA,R        READ FNT ENTRY
00714  M01S00551.271l716 ---|          CRD    FN
00715  M01S00552.271l716 ---|          LDC    ROFT*100+SSST     SET FILE TYPE AND STATUS
00716  M01S00553.271l716 ---|          STD    FN+4
00717  M01S00554.271l716 ---|          LDD    IR+3        SET/CLEAR WRITE LOCKOUT FLAG
00718  M01S00555.271l716 ---|          LPN    1
00719  M01S00556.271l716 ---|          LMN    1
00720  M01S00557.271l716 ---|          RAD    FN+3
00721  M01S00558.271l716 ---|          LDD    IR+3
00722  M01S00559.271l716 ---|          SHN    21-2
00723  M01S00560.271l716 ---|          PJN    CDR3        IF CONTROL POINT AREA DUMP
00724  M01S00561.271l716 ---|          LDC    LOFT*100-ROFT*100
00725  M01S00562.271l716 ---|          RAD    FN+4
00726  M01S00563.271l716 ---| CDR3     NFA    FA,R        WRITE FNT/FST ENTRY TO NFL
00727  M01S00564.271l716 ---|          CWD    FN
00728  M01S00565.271l716 ---|          ADN    FSTL
00729  M01S00566.271l716 ---|          CWM    CDRB,ON
00730  M01S00567.271l716 ---|
00731  M01S00568.271l716 ---|*         CLEAR K-DISPLAY CONTROL AND *CMM* CONTROL.
00732  M01S00569.271l716 ---|
00733  M01S00570.271l716 ---|          LDD    CP
00734  M01S00571.271l716 ---|          ADC    DBAW
00735  M01S00572.271l716 ---|          CRD    CM
00736  M01S00573.271l716 ---|          LDD    CM          SAVE FLAGS
00737  M01S00574.271l716 ---|          SCN    77
00738  M01S00575.271l716 ---|          STD    CM
00739  M01S00576.271l716 ---|          LDD    IR+4
00740  M01S00577.271l716 ---|          NJN    CDR4        IF NOT FULL CM FL ROLLOUT
00741  M01S00578.271l716 ---|          LDD    IR+3
00742  M01S00579.271l716 ---|          SHN    21-2
00743  M01S00580.271l716 ---|          MJN    CDR4        IF NOT CPA DUMP
00744  M01S00581.271l716 ---|          LDD    CM
00745  M01S00582.271l716 ---|          LPC    7677        CLEAR *CMM* ACTIVE FLAG
00746  M01S00583.271l716 ---|          STD    CM
00747  M01S00584.271l716 ---| CDR4     LDN    ZERL        CLEAR K-DISPLAY ADDRESSES
00748  M01S00585.271l716 ---|          CRD    CM+1
00749  M01S00586.271l716 ---|          LDD    CP
00750  M01S00587.271l716 ---|          ADC    DBAW
00751  M01S00588.271l716 ---|          CWD    CM
00752  M01S00589.271l716 ---|          EXECUTE  1AJ,=
00753  M01S00590.271l716 ---|          LDD    IR+1        PLACE *1AJ* CALL IN PP INPUT REGISTER
00754  M01S00591.271l716 ---|          LPN    37
Line S00592 Modification History
M01 (Removed by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00592.271l716 ---|          RAM    CDRA+1
Line S00010 Modification History
M01 (Added by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00756  M02S00010.271l716 ---|          RAM    CDMA+1
00757  M02S00011.271l716 ---|          AOM    CDMA+4
Line S00593 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00758  M01S00593.271l716 ---|          LDD    IA
Line S00594 Modification History
M01 (Removed by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00594.271l716 ---|          CWM    CDRA,ON
Line S00012 Modification History
M01 (Added by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00012.271l716 ---|          CWM    CDMA,ON
Line S00595 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00761  M01S00595.271l716 ---|          LJM    CDRX        RETURN
Line S00596 Modification History
M01 (Removed by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00596.271l716 ---|
00763  M02S00597.271l716 ---| CDRA     VFD    18/0L1AJ,6/0,24/0,12/1
Line S00598 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00764  M01S00598.271l716 ---|
00765  M01S00599.271l716 ---|
00766  M01S00600.271l716 ---|*         DM* FILE FST ENTRY.
00767  M01S00601.271l716 ---|
00768  M01S00602.271l716 ---| CDRB     CON    0,0,0
00769  M01S00603.271l716 ---|          CON    FSMS        CURRENT SECTOR = FIRST DATA SECTOR
00770  M01S00604.271l716 ---|          CON    5           INITIAL STATUS = COMPLETED WRITE
00771  M00S00605.1ro     +++| CJS      SPACE  4,20
00772  M00S00606.1ro     +++|**        CJS - CHANGE JOB STATUS.
00773  M00S00607.1ro     +++|*
00774  M00S00608.1ro     +++|*         DETERMINE NEW JOB STATUS AND PLACE IT IN THE SYSTEM SECTOR
00775  M00S00609.1ro     +++|*         EJT IMAGE AND THE *UTEM* PARAMETER BLOCK TO BE USED TO UPDATE
00776  M00S00610.1ro     +++|*         THE EJT ENTRY IN CM.  THE *UTEM* FUNCTION WILL BE ISSUED
00777  M00S00611.1ro     +++|*         AFTER WRITING THE ROLLOUT FILE.
00778  M00S00612.1ro     +++|*
00779  M00S00613.1ro     +++|*         ENTRY  (EO) = EJT ORDINAL.
00780  M00S00614.1ro     +++|*                (EJSS - EJSS+19) = EJT ENTRY.
00781  M00S00615.1ro     +++|*                (NF) = NFL.
00782  M00S00616.1ro     +++|*
Line S00617 Modification History
M01 (Removed by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
00783  M01S00617.1ro29   ---|*         USES   T1, CM - CM+4, CN - CN+4, FS - FS+4.
Line S00001 Modification History
M01 (Added by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
00784  M01S00001.1ro29   +++|*         USES   T1, T2, CM - CM+4, CN - CN+4, FS - FS+4.
00785  M00S00618.1ro     +++|*
00786  M00S00619.1ro     +++|*         CALLS  CET, RJC.
00787  M00S00620.1ro     +++|*
Line S00621 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00788  M01S00621.271l716 ---|*         MACROS CFI, MONITOR.
Line S00129 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00129.273l780 ---|*         MACROS CFI, LCPA, MONITOR, NFA.
Line S00023 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00790  M01S00023.273l780 +++|*         MACROS MONITOR, NFA.
00791  M00S00622.1ro     +++|
00792  M00S00623.1ro     +++|
00793  M00S00624.1ro     +++| CJS      SUBR               ENTRY/EXIT
00794  M00S00625.1ro     +++|
00795  M00S00626.1ro     +++|*         CHECK FOR CORRECT JOB STATUS AND CLEAR THE FOLLOWING FIELDS
00796  M00S00627.1ro     +++|*         IN THE EJT ENTRY - JOB ADVANCE FLAG, JOB STATUS, INHIBIT JOB
00797  M00S00628.1ro     +++|*         ADVANCE FLAG.
00798  M00S00629.1ro     +++|
00799  M00S00630.1ro     +++|          LDM    EJSS+5*JSNE+4
Line S00631 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00800  M01S00631.271l716 ---|          LPN    76
00801  M01S00632.271l716 ---|          LMK    EXJS*2
Line S00130 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00802  M01S00130.271l716 +++|          SHN    -1
00803  M01S00131.271l716 +++|          LPN    37
00804  M01S00132.271l716 +++|          LMK    EXJS
Line S00002 Modification History
M01 (Added by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
00805  M01S00002.1ro29   +++|          STD    T2
00806  M00S00633.1ro     +++|          ZJN    CJS1        IF JOB STATUS IS CORRECT
Line S00133 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00807  M01S00133.271l716 +++|          LMK    PCJS&EXJS
00808  M01S00134.271l716 +++|          ZJN    CJS1        IF JOB STATUS CORRECT
00809  M00S00634.1ro     +++|          LDN    0           INDICATE NO ERROR FLAG TO SET
00810  M00S00635.1ro     +++|          STD    CM+2
00811  M00S00636.1ro     +++|          LDC    *           SET ERROR DETECTION ADDRESS
00812  M00S00637.1ro     +++|          STD    CM+1
00813  M00S00638.1ro     +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
00814  M00S00639.1ro     +++| CJS1     LDM    EJSS+5*JSNE+4
00815  M00S00640.1ro     +++|          LPC    7600
00816  M00S00641.1ro     +++|          STM    EJSS+5*JSNE+4
Line S00642 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00817  M01S00642.271l716 ---|          SHN    -1
00818  M01S00643.271l716 ---|          RAM    CROE+5*0+4  SAVE CONNECTION STATUS FOR *UTEM*
Line S00135 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00819  M01S00135.271l716 +++|          RAM    CROF
00820  M00S00644.1ro     +++|
00821  M00S00645.1ro     +++|*         CHECK FOR PRE-DETERMINED JOB STATUS.  IF THE JOB STATUS HAS
00822  M00S00646.1ro     +++|*         ALREADY BEEN SELECTED, IGNORE THE ROLLOUT CONTROL FLAGS IN
00823  M00S00647.1ro     +++|*         *STSW*.
00824  M00S00648.1ro     +++|
00825  M00S00649.1ro     +++|          LDC    **
00826  M00S00650.1ro     +++| CJSA     EQU    *-1         (SELECTED JOB STATUS)
00827  M00S00651.1ro     +++|          NJN    CJS6        IF JOB STATUS ALEADY DETERMINED
00828  M00S00652.1ro     +++|
00829  M00S00653.1ro     +++|*         USE THE ROLLOUT CONTROL FLAGS TO DETERMINE WHAT JOB STATUS TO
00830  M00S00654.1ro     +++|*         ASSIGN THE JOB.
00831  M00S00655.1ro     +++|
00832  M00S00656.1ro     +++|          ERRNZ  /CPS/ROSU/2-/CPS/ROSC   CHECK ROLLOUT FLAG POSITIONS
00833  M00S00657.1ro     +++|          ERRNZ  /CPS/ROSC/2-/CPS/RODS
00834  M00S00658.1ro     +++|          ERRNZ  /CPS/RODS/2-/CPS/ROTE
00835  M00S00659.1ro     +++|          ERRNZ  /CPS/ROTE/2-/CPS/ROSR
00836  M00S00660.1ro     +++|
00837  M00S00661.1ro     +++|          LDM    ERSA
00838  M00S00662.1ro     +++|          SHN    -3
00839  M00S00663.1ro     +++|          LPN    17
00840  M00S00664.1ro     +++|          ZJN    CJS5        IF JOB SCHEDULER ROLLOUT
00841  M00S00665.1ro     +++|          SHN    -1
00842  M00S00666.1ro     +++|          ZJN    CJS4        IF TIMED/EVENT ROLLOUT
00843  M00S00667.1ro     +++|          SHN    -1
00844  M00S00668.1ro     +++|          ZJN    CJS3        IF DISABLED JOB STATE REQUESTED
00845  M00S00669.1ro     +++|          SHN    -1
00846  M00S00670.1ro     +++|          ZJN    CJS2        IF SCP ROLLOUT
00847  M00S00671.1ro     +++|          LDN    SUJS&SOJS   SET JOB STATUS = *SUJS*
00848  M00S00672.1ro     +++| CJS2     LMN    SOJS&DOJS   SET JOB STATUS = *SOJS*
00849  M00S00673.1ro     +++| CJS3     LMN    DOJS&TOJS   SET JOB STATUS = *DOJS*
00850  M00S00674.1ro     +++| CJS4     LMN    TOJS&ROJS   SET JOB STATUS = *TOJS*
00851  M00S00675.1ro     +++| CJS5     LMN    ROJS        SET JOB STATUS = *ROJS*
Line S00676 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00852  M01S00676.271l716 ---| CJS6     RAM    CROE+5*0+4  STORE JOB STATUS IN *UTEM* PARAMETERS
00853  M01S00677.271l716 ---|          LPN    37
00854  M01S00678.271l716 ---|          STD    T1          SAVE JOB STATUS AS INDEX
Line S00136 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00136.271l716 +++| CJS6     STD    T1          SAVE JOB STATUS AS INDEX
00856  M00S00679.1ro     +++|          SHN    1           STORE JOB STATUS IN SYSTEM SECTOR EJT
00857  M00S00680.1ro     +++|          RAM    EJSS+5*JSNE+4
Line S00137 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00858  M01S00137.271l716 +++|          LPN    76
00859  M01S00138.271l716 +++|          RAM    CROF
00860  M00S00681.1ro     +++|
00861  M00S00682.1ro     +++|*         GO TO JOB STATUS PROCESSOR.
00862  M00S00683.1ro     +++|
00863  M00S00684.1ro     +++|          LDM    TJSP,T1     GET PROCESSOR ADDRESS
00864  M00S00685.1ro     +++|          STD    T1
00865  M00S00686.1ro     +++|          LJM    0,T1        GO TO PROCESSOR
00866  M00S00687.1ro     +++|
00867  M00S00688.1ro     +++|*         PROCESS *ROJS* JOB STATUS.
00868  M00S00689.1ro     +++|
Line S00690 Modification History
M01 (Removed by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00690.1ro29   ---| CJS7     LDM    EJSS+5*SCHE+4  GET SCHEDULING PRIORITY FOR *CET*
Line S00003 Modification History
M01 (Added by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
00870  M01S00003.1ro29   +++| CJS7     LDD    T2
00871  M01S00004.1ro29   +++|          ZJN    CJS8        IF NOT ROLLING FROM A PCP
00872  M01S00005.1ro29   +++|          LDM    EJSS+5*SCHE+3
00873  M01S00006.1ro29   +++|          STD    T1
00874  M01S00007.1ro29   +++|          LDM    EJSS+5*SCHE+4
00875  M01S00008.1ro29   +++|          STD    T2
00876  M01S00009.1ro29   +++|          UJN    CJS8.1      SET ENTRY TIME INTO EJT DATA BLOCK
00877  M01S00010.1ro29   +++|
00878  M01S00011.1ro29   +++|*         CALCULATE ENTRY TIME INTO QUEUE.
00879  M01S00012.1ro29   +++|
00880  M01S00013.1ro29   +++| CJS8     LDM    EJSS+5*SCHE+4  GET SCHEDULING PRIORITY FOR *CET*
00881  M00S00691.1ro     +++|          STD    T1
00882  M00S00692.1ro     +++|          LDM    EJSS+5*SCLE GET SERVICE CLASS FOR *CET*
00883  M00S00693.1ro     +++|          SCN    77
00884  M00S00694.1ro     +++|          SHN    6
00885  M00S00695.1ro     +++|          LMK    EXQT
00886  M00S00696.1ro     +++|          RJM    CET         CALCULATE ENTRY TIME
00887  M00S00697.1ro     +++|
Line S00698 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00888  M01S00698.271l716 ---|*         PLACE ENTRY TIME IN SYSTEM SECTOR EJT ENTRY AND IN *UTEM*
00889  M01S00699.271l716 ---|*         PARAMETER BLOCK.
Line S00139 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00890  M01S00139.271l716 +++|*         PLACE ENTRY TIME IN SYSTEM SECTOR EJT ENTRY AND IN EJT DATA
00891  M01S00140.271l716 +++|*         BLOCK.
00892  M00S00700.1ro     +++|
Line S00701 Modification History
M01 (Removed by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
00893  M01S00701.1ro29   ---|          LDD    T1
Line S00014 Modification History
M01 (Added by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
00894  M01S00014.1ro29   +++| CJS8.1   LDD    T1
00895  M00S00702.1ro     +++|          STM    EJSS+5*SCHE+3
Line S00703 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00896  M01S00703.271l716 ---|          STM    CROE+5*2+3
Line S00141 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00897  M01S00141.271l716 +++|          STM    CROH+1
00898  M00S00704.1ro     +++|*         UJN    *+2         (*SUJS* JOB STATUS)
00899  M00S00705.1ro     +++| CJSB     EQU    *-2
00900  M00S00706.1ro     +++|          LDD    T2
00901  M00S00707.1ro     +++|          STM    EJSS+5*SCHE+4
Line S00708 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00902  M01S00708.271l716 ---|          STM    CROE+5*2+4
Line S00142 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00903  M01S00142.271l716 +++|          STM    CROH+2
00904  M00S00709.1ro     +++|*         UJN    *+2         (*SUJS* JOB STATUS)
00905  M00S00710.1ro     +++| CJSC     EQU    *-2
Line S00711 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00906  M01S00711.271l716 ---|
00907  M01S00712.271l716 ---|*         CLEAR ROLLOUT CONTROL FLAGS IN *STSW*.
00908  M01S00713.271l716 ---|
00909  M01S00714.271l716 ---| CJS8     LDD    CP
00910  M01S00715.271l716 ---|          ADN    STSW
00911  M01S00716.271l716 ---|          CRD    CN
00912  M01S00717.271l716 ---|          LDM    ERSA
00913  M01S00718.271l716 ---|          LPC    7617
00914  M01S00719.271l716 ---| CJSD     EQU    *-1         (MASK = 7607 IF JOB STATUS = *TOJS*)
00915  M01S00720.271l716 ---|          STD    CN+2
00916  M01S00721.271l716 ---|          LDD    CP
00917  M01S00722.271l716 ---|          ADN    STSW
00918  M01S00723.271l716 ---|          CWD    CN
00919  M01S00724.271l716 ---|          LJM    CJSX        RETURN
Line S00143 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00920  M01S00143.271l716 +++|          LJM    CJSX        RETURN
00921  M00S00725.1ro     +++|
00922  M00S00726.1ro     +++|*         PROCESS *TOJS* JOB STATUS.
00923  M00S00727.1ro     +++|
Line S00728 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00924  M01S00728.271l716 ---| CJS9     LDD    CP          MOVE TIMED/EVENT ROLLOUT DESCRIPTOR
00925  M01S00729.271l716 ---|          ADN    TERW
Line S00144 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00926  M02S00144.273l780 ---| CJS9     LCPA   TERW        MOVE TIMED/EVENT ROLLOUT DESCRIPTOR
Line S00024 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00927  M01S00024.273l780 +++| CJS9     TLDC   TERW,CPAD   MOVE TIMED/EVENT ROLLOUT DESCRIPTOR
00928  M00S00730.1ro     +++|          CRD    CM
00929  M00S00731.1ro     +++|          LDM    EJSS+5*SCHE+2
00930  M00S00732.1ro     +++|          LMD    CM+2
00931  M00S00733.1ro     +++|          LPN    77
00932  M00S00734.1ro     +++|          LMM    EJSS+5*SCHE+2
00933  M00S00735.1ro     +++|          STM    EJSS+5*SCHE+2
00934  M00S00736.1ro     +++|          LPN    77
Line S00737 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00935  M01S00737.271l716 ---|          STM    CROE+5*2+2
Line S00145 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00936  M01S00145.271l716 +++|          STM    CROH
00937  M00S00738.1ro     +++|          LDD    CM+3
00938  M00S00739.1ro     +++|          STM    EJSS+5*SCHE+3
Line S00740 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00939  M01S00740.271l716 ---|          STM    CROE+5*2+3
Line S00146 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00146.271l716 +++|          STM    CROH+1
00941  M00S00741.1ro     +++|          LDD    CM+4
00942  M00S00742.1ro     +++|          STM    EJSS+5*SCHE+4
Line S00743 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00943  M01S00743.271l716 ---|          STM    CROE+5*2+4
Line S00147 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00944  M01S00147.271l716 +++|          STM    CROH+2
Line S00744 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00945  M01S00744.271l716 ---|          LCN    10          CLEAR TIMED/EVENT FLAG IN *STSW*
00946  M01S00745.271l716 ---|          RAM    CJSD
00947  M00S00746.1ro     +++|          LDD    CM+2
00948  M00S00747.1ro     +++|          SCN    77
00949  M00S00748.1ro     +++|          STD    CM+2
00950  M00S00749.1ro     +++|          LDN    0
00951  M00S00750.1ro     +++|          STD    CM+3
00952  M00S00751.1ro     +++|          STD    CM+4
Line S00752 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00953  M01S00752.271l716 ---|          LDD    CP
00954  M01S00753.271l716 ---|          ADK    TERW
Line S00148 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00148.273l780 ---|          LCPA   TERW
Line S00025 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00956  M01S00025.273l780 +++|          TLDC   TERW,CPAD
00957  M00S00754.1ro     +++|          CWD    CM
Line S00755 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00958  M01S00755.271l716 ---| CJS10    LJM    CJS8        CLEAR ROLLOUT CONTROL FLAGS
Line S00149 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00959  M01S00149.271l716 +++| CJS10    LJM    CJSX        RETURN
00960  M00S00756.1ro     +++|
00961  M00S00757.1ro     +++|*         PROCESS *IOJS* JOB STATUS.
00962  M00S00758.1ro     +++|
Line S00759 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00759.271l716 ---| CJS11    LDM    CROE+5*1+4  SET TERMINAL OUTPUT TRACK FOR *1TO*
00964  M01S00760.271l716 ---|          STM    CROE+5*2+3
Line S00150 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00965  M01S00150.271l716 +++| CJS11    LDM    CROG+1      SAVE TERMINAL OUTPUT TRACK
00966  M01S00151.271l716 +++|          STM    CROH+1
00967  M00S00761.1ro     +++|          LDN    3           SET SECTOR
Line S00762 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00968  M01S00762.271l716 ---|          STM    CROE+5*2+4
Line S00152 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00969  M01S00152.271l716 +++|          STM    CROH+2
00970  M00S00763.1ro     +++|          UJN    CJS10       CLEAR ROLLOUT CONTROL FLAGS
00971  M00S00764.1ro     +++|
00972  M00S00765.1ro     +++|*         PROCESS *SUJS* JOB STATUS.
00973  M00S00766.1ro     +++|
Line S00767 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00974  M01S00767.271l716 ---| CJS12    LDM    CROE+5*0+4  CHANGE CONNECTION STATUS TO *DTCS*
00975  M01S00768.271l716 ---|          LPN    77
00976  M01S00769.271l716 ---|
00977  M01S00770.271l716 ---|          ERRNZ  DTCS*100-100      CODE ASSUMES *DTCS* = 1
00978  M01S00771.271l716 ---|
00979  M01S00772.271l716 ---|          LMD    HN
00980  M01S00773.271l716 ---|          STM    CROE+5*0+4
Line S00153 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00981  M01S00153.271l716 +++| CJS12    LDM    CROF        SET *DTCS* CONNECTION STATUS
00982  M01S00154.271l716 +++|          LPC    4177
00983  M01S00155.271l716 +++|          LMK    DTCS*200
00984  M01S00156.271l716 +++|          STM    CROF
00985  M00S00774.1ro     +++|          LDD    DI
00986  M00S00775.1ro     +++|          STM    CJSB
00987  M00S00776.1ro     +++|          STM    CJSC
Line S00777 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00988  M01S00777.271l716 ---|          STM    CORD        AVOID TERMINAL TABLE UPDATE / *1TO* CALL
Line S00157 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00157.273l780 ---|          STM    CROA        AVOID TERMINAL TABLE UPDATE / *1TO* CALL
Line S00026 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00990  M01S00026.273l780 +++|          STM    CROE        AVOID TERMINAL TABLE UPDATE / *1TO* CALL
00991  M00S00778.1ro     +++|          LDM    EJSS+5*SCLE GET SERVICE CLASS
00992  M00S00779.1ro     +++|          SHN    -6
00993  M00S00780.1ro     +++|          STD    T1          SAVE PRE-DETACH SERVICE CLASS
00994  M00S00781.1ro     +++|          RJM    RJC         CALCULATE JCB ADDRESS
00995  M00S00782.1ro     +++|          ADN    SVJT
00996  M00S00783.1ro     +++|          CRD    CM
00997  M00S00784.1ro     +++|          LDC    RTCL
00998  M00S00785.1ro     +++|          CRD    FS
00999  M00S00786.1ro     +++|          LDD    CM+4        CALCULATE SUSPENSION TIME-OUT VALUE
01000  M00S00787.1ro     +++|          SHN    3
01001  M00S00788.1ro     +++|          ADD    FS+1
Line S00789 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01002  M01S00789.271l716 ---|          STM    CROE+5*2+4  STORE TIME-OUT VALUE IN *UTEM* BLOCK
Line S00158 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01003  M01S00158.271l716 +++|          STM    CROH+2      STORE TIMEOUT VALUE IN EJT DATA BLOCK
01004  M00S00790.1ro     +++|          SHN    -14
01005  M00S00791.1ro     +++|          ADD    FS
Line S00792 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01006  M01S00792.271l716 ---|          STM    CROE+5*2+3
Line S00159 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01007  M01S00159.271l716 +++|          STM    CROH+1
01008  M00S00793.1ro     +++|          LDM    EJSS+5*JSNE+4  CHECK CONNECTION STATUS
01009  M00S00794.1ro     +++|          SHN    -7
01010  M00S00795.1ro     +++|          LPN    17
01011  M00S00796.1ro     +++|          LMK    DTCS
01012  M00S00797.1ro     +++|          ZJN    CJS13       IF JOB ALREADY DETACHED
01013  M00S00798.1ro     +++|          NFA    RC1N        SET PRE-DETACH SERVICE CLASS
01014  M00S00799.1ro     +++|          CRD    CN
01015  M00S00800.1ro     +++|          LDD    CN+2
01016  M00S00801.1ro     +++|          SCN    77
01017  M00S00802.1ro     +++|          LMD    T1
01018  M00S00803.1ro     +++|          STD    CN+2
01019  M00S00804.1ro     +++|          NFA    RC1N        REWRITE RECOVERY WORD
01020  M00S00805.1ro     +++|          CWD    CN
Line S00806 Modification History
M01 (Removed by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
01021  M01S00806.1ro29   ---| CJS13    LJM    CJS7        GO TO *ROJS* PROCESSING
Line S00015 Modification History
M01 (Added by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
01022  M01S00015.1ro29   +++| CJS13    LJM    CJS8        SET ENTRY TIME INTO QUEUE
Line S00160 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01023  M01S00160.271l716 +++|
01024  M01S00161.271l716 +++|*         PROCESS *PCJS* JOB STATUS.
01025  M01S00162.271l716 +++|
01026  M01S00163.271l716 +++| CJS14    LDD    DI          DISABLE */3RP/TER* CALL
01027  M01S00164.271l716 +++|          STM    CROE
Line S00165 Modification History
M01 (Added by) 271l716
M02 (Removed by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00165.1ro29   ---|          LJM    CJS7        CONTINUE AS IF *ROJS* JOB
Line S00016 Modification History
M01 (Added by) 1ro29
Seq #  *Modification Id* Act 
----------------------------+
01029  M01S00016.1ro29   +++|          UJN    CJS13       SET ENTRY TIME INTO QUEUE
01030  M00S00807.1ro     +++|          SPACE  4,10
01031  M00S00808.1ro     +++|**        TJSP - TABLE OF JOB STATUS PROCESSORS.
01032  M00S00809.1ro     +++|*
01033  M00S00810.1ro     +++|*         EACH TABLE ENTRY CONTAINS THE PROCESSOR ADDRESS CORRESPONDING
01034  M00S00811.1ro     +++|*         TO THE JOB STATUS.
01035  M00S00812.1ro     +++|
01036  M00S00813.1ro     +++|
01037  M00S00814.1ro     +++| TJSP     INDEX
01038  M00S00815.1ro     +++|          INDEX  ROJS,CJS7
Line S00816 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01039  M01S00816.271l716 ---|          INDEX  SOJS,CJS8
Line S00166 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01040  M01S00166.271l716 +++|          INDEX  SOJS,CJSX
01041  M00S00817.1ro     +++|          INDEX  TOJS,CJS9
01042  M00S00818.1ro     +++|          INDEX  IOJS,CJS11
Line S00819 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01043  M01S00819.271l716 ---|          INDEX  DOJS,CJS8
Line S00167 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01044  M01S00167.271l716 +++|          INDEX  DOJS,CJSX
01045  M00S00820.1ro     +++|          INDEX  SUJS,CJS12
Line S00821 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01046  M01S00821.271l716 ---|          INDEX  ERJS,CJS8
Line S00168 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01047  M01S00168.271l716 +++|          INDEX  ERJS,CJSX
01048  M01S00169.271l716 +++|          INDEX  PCJS,CJS14
01049  M00S00822.1ro     +++|          INDEX  MXJS
Line S00823 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01050  M01S00823.273l780 ---| CRO      SPACE  4,15
Line S00027 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01051  M01S00027.273l780 +++| CPC      SPACE  4,15
01052  M01S00028.273l780 +++|**        CPC - CHECK PCP ROLLOUT COMPLETION.
01053  M01S00029.273l780 +++|*
01054  M01S00030.273l780 +++|*         EXIT   (A) .LT. 0 IF NOT PCP ROLLOUT.
01055  M01S00031.273l780 +++|*                (A) = 0 IF SIMPLE PCP ROLLOUT.
01056  M01S00032.273l780 +++|*                (A) .GT. 0 IF COMPOUND ROLLOUT.
01057  M01S00033.273l780 +++|*                PCP ASSIGNMENT CLEARED IF SIMPLE PCP ROLLOUT.
01058  M01S00034.273l780 +++|*                PCP ASSIGNMENT TRANSFERRED TO CP JOB IF COMPOUND
01059  M01S00035.273l780 +++|*                  ROLLOUT.
01060  M01S00036.273l780 +++|*                JOB INTERLOCK CLEARED IF PCP ROLLOUT.
01061  M01S00037.273l780 +++|*
01062  M01S00038.273l780 +++|*         USES   CM - CM+4, CN - CN+4.
01063  M01S00039.273l780 +++|*
01064  M01S00040.273l780 +++|*         MACROS MONITOR, SFA.
01065  M01S00041.273l780 +++|
01066  M01S00042.273l780 +++|
01067  M01S00043.273l780 +++| CPC1     LCN    0           FLAG NOT PCP ROLLOUT
01068  M01S00044.273l780 +++|
01069  M01S00045.273l780 +++| CPC      SUBR               ENTRY/EXIT
01070  M01S00046.273l780 +++|          LDD    IR+2
01071  M01S00047.273l780 +++|          LMN    3
01072  M01S00048.273l780 +++|          NJN    CPC1        IF NOT PCP ROLLOUT
01073  M01S00049.273l780 +++|          LDC    /CPS/ALCS+0 SET ALTERNATE CP/PCP FLAG
01074  M01S00050.273l780 +++|          STD    CM+1
01075  M01S00051.273l780 +++|          MONITOR  CCAM      CLEAR ALTERNATE PCP ASSIGNMENT
01076  M01S00052.273l780 +++|          TLDC   TFSW,CPAD
01077  M01S00053.273l780 +++|          CRD    CN
01078  M01S00054.273l780 +++|          LDC    0
01079  M01S00055.273l780 +++| CPCA     EQU    *-1         (CP JOB EJT ORDINAL IF COMPOUND ROLLOUT)
01080  M01S00056.273l780 +++|          STD    CN
01081  M01S00057.273l780 +++|          TLDC   TFSW,CPAD   CLEAR OR TRANSFER PCP ASSIGNMENT
01082  M01S00058.273l780 +++|          CWD    CN
01083  M01S00059.273l780 +++|          SFA    EJT,EO
01084  M01S00060.273l780 +++|          ADK    JSNE
01085  M01S00061.273l780 +++|          CRD    CM
01086  M01S00062.273l780 +++|          SOD    CM+4        CLEAR JOB INTERLOCK
01087  M01S00063.273l780 +++|          SFA    EJT,EO
01088  M01S00064.273l780 +++|          ADK    JSNE
01089  M01S00065.273l780 +++|          CWD    CM
01090  M01S00066.273l780 +++|          LDD    CN          SET SIMPLE/COMPOUND ROLLOUT STATUS
01091  M01S00067.273l780 +++|          UJN    CPCX        RETURN
01092  M01S00068.273l780 +++| CRO      SPACE  4,10
01093  M00S00824.1ro     +++|**        CRO - COMPLETE ROLLOUT.
01094  M00S00825.1ro     +++|*
01095  M00S00826.1ro     +++|*         ENTRY  (EO) = EJT ORDINAL.
01096  M00S00827.1ro     +++|*                (NF) = NFL ASSIGNED.
01097  M00S00828.1ro     +++|*                (AEAA) = ECS FL ASSIGNED.
01098  M00S00829.1ro     +++|*
Line S00830 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01099  M01S00830.271l716 ---|*         USES   CM - CM+4.
Line S00170 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00170.271l716 +++|*         USES   CM - CM+4, CN - CN+4, FS - FS+4, T1 - T5.
01101  M00S00831.1ro     +++|*
Line S00832 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00832.271l716 ---|*         CALLS  NFL, RLS, /3RP/TER.
Line S00171 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00171.271l716 +++|*         CALLS  ISR, /3RP/TER.
Line S00833 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01104  M01S00833.273l780 ---|*
Line S00834 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00834.273l780 ---|*         MACROS CFI, MONITOR.
Line S00172 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01106  M02S00172.273l780 ---|*         MACROS LCPA.
01107  M00S00835.1ro     +++|
01108  M00S00836.1ro     +++|
01109  M00S00837.1ro     +++| CRO      SUBR               ENTRY/EXIT
Line S00838 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00838.273l780 ---|
Line S00839 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00839.273l780 ---|          LDD    CP
01112  M02S00840.273l780 ---|          ADN    FLIW
Line S00173 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01113  M02S00173.273l780 ---| CROA     LCPA   FLIW
01114  M02S00174.273l780 ---|*         LJM    CRO4        (PSEUDO-ROLLOUT)
Line S00069 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00069.273l780 +++|          LDD    IR+2
01116  M01S00070.273l780 +++|          SBN    2
01117  M01S00071.273l780 +++|          ZJP    CRO4        IF PSEUDO-ROLLOUT
01118  M01S00072.273l780 +++|          TLDC   FLIW,CPAD
01119  M00S00841.1ro     +++|          CRD    CM
01120  M00S00842.1ro     +++|
01121  M00S00843.1ro     +++|*         DETERMINE IF CM/ECS FL FIELDS OF *UTEM* PARAMETER BLOCK HAVE
01122  M00S00844.1ro     +++|*         ALREADY BEEN SET.
01123  M00S00845.1ro     +++|
01124  M00S00846.1ro     +++|          LDC    **
Line S00847 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01125  M01S00847.271l716 ---| CROA     EQU    *-1
Line S00175 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01126  M01S00175.271l716 +++| CROB     EQU    *-1
01127  M00S00848.1ro     +++|          NJN    CRO3        IF CM/ECS FL FIELDS ALREADY SET
01128  M00S00849.1ro     +++|
01129  M00S00850.1ro     +++|*         CALCULATE ROLLIN CM/ECS FL AND SAVE AMOUNTS IN *UTEM*
01130  M00S00851.1ro     +++|*         PARAMETER BLOCK.
01131  M00S00852.1ro     +++|
01132  M00S00853.1ro     +++|          LDD    CM+4        CALCULATE ROLLIN CM FL
01133  M00S00854.1ro     +++|          NJN    CRO1        IF CM FL/NFL INCREASE PENDING
01134  M00S00855.1ro     +++|          LDC    **
Line S00856 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00856.271l716 ---| CROB     EQU    *-1         (CM FL)
Line S00176 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00176.271l716 +++| CROC     EQU    *-1         (CM FL)
01137  M00S00857.1ro     +++|          ADD    NF
Line S00858 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01138  M01S00858.271l716 ---| CRO1     STM    CROE+5*5+4  STORE ROLLIN CM FL IN *UTEM* BLOCK
Line S00177 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01139  M01S00177.271l716 +++| CRO1     STM    CROJ+1      STORE ROLLIN CM FL IN EJT DATA BLOCK
Line S00859 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01140  M01S00859.271l716 ---|          LDM    CDRC
Line S00178 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00178.271l716 +++|          LDC    **
Line S00860 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01142  M01S00860.271l716 ---|          STM    CROE+5*5+3  STORE ROLLIN ECS FL IN *UTEM* BLOCK
Line S00179 Modification History
M01 (Added by) 271l716
M02 (Removed by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01143  M02S00179.1ro31   ---| CROD     EQU    *-1         (EM FL)
Line S00001 Modification History
M01 (Added by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01144  M01S00001.1ro31   +++| CROD     EQU    *-1         (EM FL - ZERO ON *DMP=* PARTIAL DUMP)
Line S00180 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01145  M01S00180.271l716 +++|          STM    CROJ        STORE ROLLIN EM FL IN EJT DATA BLOCK
01146  M00S00861.1ro     +++|          SBD    CM+3
01147  M00S00862.1ro     +++|          PJN    CRO3        IF PENDING ECS FL LESS THAN CURRENT ECS FL
01148  M00S00863.1ro     +++|          LDD    CM+3
Line S00864 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01149  M01S00864.271l716 ---|          STM    CROE+5*5+3  STORE NEW ECS FL IN *UTEM* BLOCK
Line S00181 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01150  M01S00181.271l716 +++|          STM    CROJ        STORE NEW ROLLIN EM FL IN EJT DATA BLOCK
01151  M00S00865.1ro     +++| CRO3     LDN    0           CLEAR CM/ECS INCREASE REQUESTS
01152  M00S00866.1ro     +++|          STD    CM+3
01153  M00S00867.1ro     +++|          STD    CM+4
Line S00868 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01154  M01S00868.271l716 ---|          LDD    CP          UPDATE *FLIW*
01155  M01S00869.271l716 ---|          ADN    FLIW
01156  M01S00870.271l716 ---|          CWD    CM
01157  M01S00871.271l716 ---|          LDD    CP          CLEAR NFL RECOVERY FIELD
01158  M01S00872.271l716 ---|          ADK    FLSW
01159  M01S00873.271l716 ---|          CRD    CM
Line S00182 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01160  M02S00182.273l780 ---|          LCPA   FLSW
Line S00073 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01161  M01S00073.273l780 +++|          TLDC   FLSW,CPAD
Line S00183 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01162  M01S00183.271l716 +++|          CRD    CN
01163  M01S00184.271l716 +++|          ADK    FLIW-FLSW
01164  M01S00185.271l716 +++|          CWD    CM
01165  M00S00874.1ro     +++|          LDN    0
Line S00875 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01166  M01S00875.271l716 ---|          STD    CM+1
01167  M01S00876.271l716 ---|          LDD    CP
01168  M01S00877.271l716 ---|          ADK    FLSW
01169  M01S00878.271l716 ---|          CWD    CM
Line S00186 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01170  M01S00186.271l716 +++|          STD    CN+1
Line S00187 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01171  M02S00187.273l780 ---|          LCPA   FLSW
Line S00074 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01172  M01S00074.273l780 +++|          TLDC   FLSW,CPAD
Line S00188 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00188.271l716 +++|          CWD    CN
01174  M00S00879.1ro     +++|
01175  M00S00880.1ro     +++|*         UPDATE THE EJT ENTRY AS FOLLOWS -
01176  M00S00881.1ro     +++|*                UPDATE CONNECTION STATUS.
01177  M00S00882.1ro     +++|*                CHANGE JOB STATUS.
01178  M00S00883.1ro     +++|*                STORE ROLLOUT FILE ADDRESS.
01179  M00S00884.1ro     +++|*                SET SCHEDULE FIELD.
01180  M00S00885.1ro     +++|*                SAVE ERROR FLAG (IF ANY).
01181  M00S00886.1ro     +++|*                CLEAR FORCED ROLLIN.
01182  M00S00887.1ro     +++|*                SET ROLLIN CM/ECS FL.
01183  M00S00888.1ro     +++|
Line S00889 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01184  M01S00889.271l716 ---|          LDN    CROEL       SAVE PARAMETER WORD COUNT
01185  M01S00890.271l716 ---|          STD    CM+1
01186  M01S00891.271l716 ---|          LDN    0
01187  M01S00892.271l716 ---|          STD    CM+2
01188  M01S00893.271l716 ---|          SFA    EJT,EO      CALCULATE EJT ENTRY ADDRESS
01189  M01S00894.271l716 ---|          STD    CM+4
01190  M01S00895.271l716 ---|          SHN    -14
01191  M01S00896.271l716 ---|          STD    CM+3
01192  M01S00897.271l716 ---|          LDD    MA
01193  M01S00898.271l716 ---|          CWM    CROE,CM+1
01194  M01S00899.271l716 ---|          MONITOR  UTEM
Line S00189 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01195  M01S00189.271l716 +++| CRO4     SFA    EJT,EO
01196  M01S00190.271l716 +++|          ADK    JSNE
01197  M01S00191.271l716 +++|          CRD    T1
01198  M01S00192.271l716 +++|          ADK    SCHE-JSNE
01199  M01S00193.271l716 +++|          CRD    CM
01200  M01S00194.271l716 +++|          ADK    PRFE-SCHE
01201  M01S00195.271l716 +++|          CRD    CN
01202  M01S00196.271l716 +++|          ADK    SCLE-PRFE
01203  M01S00197.271l716 +++|          CRD    FS
01204  M01S00198.271l716 +++|          LDM    CROF
01205  M01S00199.271l716 +++|          STD    T1+4
01206  M01S00200.271l716 +++|          LDD    CM+2        STORE SCHEDULING FIELD DATA
01207  M01S00201.271l716 +++|          SCN    77
01208  M01S00202.271l716 +++|          LMM    CROH
01209  M01S00203.271l716 +++|          STM    CROH
01210  M01S00204.271l716 +++|          LDM    CROI        STORE ERROR FLAG
01211  M01S00205.271l716 +++|          STD    CN+1
01212  M01S00206.271l716 +++|          LDD    FS          CLEAR FORCED ROLLIN FLAG
01213  M01S00207.271l716 +++|          SCN    20
01214  M01S00208.271l716 +++|          STD    FS
01215  M01S00209.271l716 +++|          LDM    CROJ        STORE EM FL
01216  M01S00210.271l716 +++|          STD    FS+3
01217  M01S00211.271l716 +++|          LDM    CROJ+1      STORE CM FL
01218  M01S00212.271l716 +++|          STD    FS+4
01219  M01S00213.271l716 +++|          SFA    EJT,EO
01220  M01S00214.271l716 +++|          ADK    JSNE
01221  M01S00215.271l716 +++|          CWD    T1
01222  M01S00216.271l716 +++|          ADK    SCHE-JSNE
01223  M01S00217.271l716 +++|          CWM    CROG,ON
01224  M01S00218.271l716 +++|          ADK    PRFE-SCHE-1
01225  M01S00219.271l716 +++|          CWD    CN
01226  M01S00220.271l716 +++|          ADK    SCLE-PRFE
01227  M01S00221.271l716 +++|          CWD    FS
01228  M00S00900.1ro     +++|
01229  M00S00901.1ro     +++|*         RELEASE STORAGE.
01230  M00S00902.1ro     +++|
Line S00903 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01231  M01S00903.271l716 ---|          RJM    RLS         RELEASE CM/ECS FL
01232  M01S00904.271l716 ---|*         UJN    CRO4        (*PEET* ERROR)
01233  M01S00905.271l716 ---| CROC     EQU    *-2
01234  M01S00906.271l716 ---|          LDN    0
01235  M01S00907.271l716 ---|          RJM    NFL         RELEASE NFL
01236  M01S00908.271l716 ---|
Line S00222 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01237  M01S00222.271l716 +++|          LDN    0           RELEASE CM AND EM FL
01238  M01S00223.271l716 +++|          RJM    ISR
01239  M01S00224.271l716 +++|
01240  M00S00909.1ro     +++|*         TERMINATE ROLLOUT.
01241  M00S00910.1ro     +++|
Line S00911 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01242  M01S00911.271l716 ---| CRO4     RJM    /3RP/TER    TERMINATE ON-LINE INTERACTIVE JOB
01243  M01S00912.271l716 ---|*         UJN    *+2         (SUSPENDED JOB OR NOT ON-LINE INTERACTIVE)
01244  M01S00913.271l716 ---| CORD     EQU    *-2
Line S00225 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01245  M01S00225.271l716 +++|          RJM    /3RP/TER    TERMINATE ON-LINE INTERACTIVE JOB
01246  M01S00226.271l716 +++|*         UJN    *+2         (SUSPENDED, NOT ON-LINE OR PSEUDO-ROLL)
01247  M01S00227.271l716 +++| CROE     EQU    *-2
01248  M00S00914.1ro     +++|          LJM    CROX        RETURN
01249  M00S00915.1ro     +++|
Line S00916 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01250  M01S00916.271l716 ---|*         *UTEM* PARAMETERS.
01251  M01S00917.271l716 ---|
01252  M01S00918.271l716 ---| CROE     VFD    1/0,5/JSNE,6/10D  CONNECTION STATUS AND JOB STATUS
01253  M01S00919.271l716 ---|          VFD    6/1,6/0
01254  M01S00920.271l716 ---|          CON    0,0,40
01255  M01S00921.271l716 ---|
01256  M01S00922.271l716 ---|          VFD    1/0,5/SCHE,6/24D  ROLLOUT FILE ADDRESS
01257  M01S00923.271l716 ---|          VFD    6/36D,6/0
01258  M01S00924.271l716 ---|          CON    0,0,0
01259  M01S00925.271l716 ---|
01260  M01S00926.271l716 ---|          VFD    1/0,5/SCHE,6/30D  SCHEDULE FIELD
01261  M01S00927.271l716 ---|          VFD    6/0,6/0
01262  M01S00928.271l716 ---|          CON    0,0,0
01263  M01S00929.271l716 ---|          VFD    1/0,5/PRFE,6/12D  ERROR FLAG
01264  M01S00930.271l716 ---|          VFD    6/36D,6/0
01265  M01S00931.271l716 ---|          CON    0,0,0
01266  M01S00932.271l716 ---|          VFD    1/0,5/SCLE,6/1    CLEAR FORCED ROLLIN
01267  M01S00933.271l716 ---|          VFD    6/52D,6/0
01268  M01S00934.271l716 ---|          CON    0,0,0
01269  M01S00935.271l716 ---|
01270  M01S00936.271l716 ---|          VFD    1/0,5/SCLE,6/24D  ROLLIN CM/ECS FL
01271  M01S00937.271l716 ---|          VFD    6/0,6/0
01272  M01S00938.271l716 ---|          CON    0,0,0
01273  M01S00939.271l716 ---|
01274  M01S00940.271l716 ---| CROEL    EQU    */5-CROE/5  *UTEM* PARAMETER COUNT
Line S00228 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01275  M01S00228.271l716 +++|
01276  M01S00229.271l716 +++|*         EJT ENTRY DATA BLOCK.
01277  M01S00230.271l716 +++|
01278  M01S00231.271l716 +++| CROF     VFD    1/0         SCP/UCP CONNECTION STATUS
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ro.txt ยท Last modified: by 127.0.0.1