Deck 1SJ Part 001

101 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00963  M01S00156.271l716 +++|          STD    T1
00964  M01S00157.271l716 +++|          LDD    AA+4
00965  M01S00158.271l716 +++|          STD    T2
00966  M01S00159.271l716 +++|          LDD    SP
00967  M01S00160.271l716 +++|          SHN    14
00968  M01S00161.271l716 +++|          LMK    EXQT
00969  M01S00162.271l716 +++|          RJM    CPR         COMPUTE SCHEDULING PRIORITY
00970  M01S00163.271l716 +++|          UJN    ASJ10.2     STORE PRIORITY IN EJT
00971  M01S00164.271l716 +++|
00972  M01S00165.271l716 +++| ASJ10.1  LDC    **          SET SCHEDULING PRIORITY
00973  M01S00166.271l716 +++| ASJC     EQU    *-1
00974  M01S00167.271l716 +++| ASJ10.2  STD    AA+4
00975  M01S00168.271l716 +++|          LDD    JC          SET CP NUMBER
00976  M01S00169.271l716 +++|          STD    AA+3
00977  M01S00170.271l716 +++|          RJM    EJA         UPDATE EJT ENTRY
00978  M01S00171.271l716 +++|          ADK    SCHE
00979  M01S00172.271l716 +++|          CWD    AA
00980  M01S00173.271l716 +++|          ADK    SCLE-SCHE
00981  M01S00174.271l716 +++|          CWD    BB
00982  M00S00572.1sj     +++|          LDN    ZERL        CLEAR PP INPUT REGISTER IMAGE
00983  M00S00573.1sj     +++|          CRD    AA
00984  M00S00574.1sj     +++|          LDD    EJ+4
Line S00575 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00985  M01S00575.271l716 ---|          LPN    76
Line S00576 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00576.271l716 ---|          LMK    PRJS*2
00987  M02S00577.271l716 ---|          ZJN    ASJ11       IF PRE-INITIAL JOB STATE
Line S00036 Modification History
M01 (Added by) 242l642
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00036.271l716 ---|          SHN    -1
00989  M02S00037.271l716 ---|          STD    T1
00990  M02S00038.271l716 ---|          LDM    TJST,T1
Line S00175 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00991  M01S00175.271l716 +++|          LDM    TJST,T3
Line S00039 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00992  M01S00039.242l642 +++|          SHN    21-7
00993  M01S00040.242l642 +++|          MJN    ASJ11       IF PRE-INITIAL JOB STATE
00994  M00S00578.1sj     +++|          LDC    3RI1R
Line S00579 Modification History
M01 (Removed by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
00995  M01S00579.ns2244  ---|          UJN    ASJ13       CALL *1RI*
Line S00001 Modification History
M01 (Added by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
00996  M01S00001.ns2244  +++|          UJP    ASJ13       CALL *1RI*
00997  M00S00580.1sj     +++|
00998  M00S00581.1sj     +++| ASJ11    LDD    SP
00999  M00S00582.1sj     +++|          LMN    SSSC
01000  M00S00583.1sj     +++|          NJN    ASJ12       IF NOT SUBSYSTEM
Line S00001 Modification History
M01 (Added by) ns2232
Seq #  *Modification Id* Act 
----------------------------+
01001  M01S00001.ns2232  +++|          LDM    SISS
01002  M01S00002.ns2232  +++|          ADC    -LSSI
01003  M01S00003.ns2232  +++|          MJN    ASJ12       IF SUBSYSTEM NOT IN *SSAT*
Line S00584 Modification History
M01 (Removed by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
01004  M01S00584.ns2244  ---|          LDD    EO
Line S00002 Modification History
M01 (Added by) ns2244
M02 (Removed by) ns2746
Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00002.ns2746  ---|          LDC    PLSI        CHECK FOR PLATO
Line S00001 Modification History
M01 (Added by) ns2746
Seq #  *Modification Id* Act 
----------------------------+
01006  M01S00001.ns2746  +++|          LDC    PLSI        CHECK FOR CYBIS
Line S00003 Modification History
M01 (Added by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
01007  M01S00003.ns2244  +++|          LMM    SISS
Line S00004 Modification History
M01 (Added by) ns2244
M02 (Removed by) ns2746
Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00004.ns2746  ---|          NJN    ASJ11.1     IF NOT PLATO
Line S00002 Modification History
M01 (Added by) ns2746
Seq #  *Modification Id* Act 
----------------------------+
01009  M01S00002.ns2746  +++|          NJN    ASJ11.1     IF NOT CYBIS
Line S00005 Modification History
M01 (Added by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
01010  M01S00005.ns2244  +++|          LDM    SISS        FETCH *SSAT* ENTRY (EJT ORDINAL)
01011  M01S00006.ns2244  +++|          ADC    /3SA/FEAF*10000
01012  M01S00007.ns2244  +++|          RJM    /3SA/AST
01013  M01S00008.ns2244  +++|          NJN    ASJ12       IF ALREADY ACTIVE
01014  M01S00009.ns2244  +++| ASJ11.1  LDD    EO
01015  M00S00585.1sj     +++|          STD    T1
01016  M00S00586.1sj     +++|          LDM    SISS
01017  M00S00587.1sj     +++|          ADC    /3SA/SEAF*10000
01018  M00S00588.1sj     +++|          RJM    /3SA/AST    STORE EJT ORDINAL IN SSAT TABLE
01019  M00S00589.1sj     +++| ASJ12    AOD    AA+2        SET *1AJ* FUNCTION 1
01020  M00S00590.1sj     +++|          LDC    3RJ1A       CALL *1AJ*
01021  M00S00591.1sj     +++| ASJ13    STD    AA
01022  M00S00592.1sj     +++|          SHN    -6
01023  M00S00593.1sj     +++|          SCN    77
01024  M00S00594.1sj     +++|          LMD    JC
01025  M00S00595.1sj     +++|          STD    AA+1
01026  M00S00596.1sj     +++|          LDD    MA          WRITE *1RI*/*1AJ* CALL TO MESSAGE BUFFER
01027  M00S00597.1sj     +++|          CWD    AA
01028  M00S00598.1sj     +++|          LDN    0           CLEAR PRIORITY REQUEST FLAG
01029  M00S00599.1sj     +++|          STD    CM+1
01030  M00S00600.1sj     +++|          MONITOR  RPPM      CALL *1RI*/*1AJ*
Line S00601 Modification History
M01 (Removed by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01031  M01S00601.241l630 ---|          LDD    NC          CHANGE ASSIGNMENT BACK TO SYSTEM CP
Line S00006 Modification History
M01 (Added by) 241l630
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00006.273l780 ---| ASJ14    LDD    NC          CHANGE ASSIGNMENT BACK TO SYSTEM CP
Line S00009 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01033  M01S00009.273l780 +++|          LDD    NC          CHANGE ASSIGNMENT BACK TO SYSTEM CP
01034  M00S00602.1sj     +++|          STD    CM+1
Line S00603 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01035  M01S00603.273l780 ---|          SHN    7
01036  M01S00604.273l780 ---|          STD    CP
01037  M00S00605.1sj     +++|          MONITOR  CCAM
Line S00606 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01038  M01S00606.273l780 ---|          LDD    CM+1
Line S00607 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01039  M02S00607.273l780 ---|          ZJN    ASJ15       IF *CCAM* SUCCEEDED
Line S00608 Modification History
M01 (Removed by) 241l630
M02 (Removed by) 271l716
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01040  M03S00608.273l780 ---| ASJ14    MONITOR  HNGM
01041  M03S00609.273l780 ---|          UJN    ASJ14       HANG PP
Line S00007 Modification History
M01 (Added by) 241l630
M02 (Removed by) 271l716
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01042  M03S00007.273l780 ---|          LDN    0
01043  M03S00008.273l780 ---|          STD    CM+2        SET NO ERROR FLAG
01044  M03S00009.273l780 ---|          LDC    *
01045  M03S00010.273l780 ---|          STD    CM+1        ADDRESS WHERE ERROR DETECTED
01046  M03S00011.273l780 ---|          MONITOR  CHGM      CONDITIONAL HANG FOR *CCAM* FAILING
01047  M03S00012.273l780 ---|          UJN    ASJ14       TRY CHANGE ASSIGNMENT TO SYSTEM CP AGAIN
Line S00610 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00610.273l780 ---|
Line S00176 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00176.273l780 ---|          NJN    ASJ14       IF *CCAM* FAILED
Line S00611 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01050  M01S00611.273l780 ---| ASJ15    LJM    ASJX        RETURN, (A) = 0 INDICATES JOB SCHEDULED
Line S00612 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00612.273l780 ---|
01052  M02S00613.273l780 ---|*         *UTEM* PARAMETERS FOR SETTING SCHEDULING PRIORITY AND CONTROL
01053  M02S00614.273l780 ---|*         POINT NUMBER.
01054  M02S00615.273l780 ---|
Line S00616 Modification History
M01 (Removed by) 1sj11
M02 (Removed by) 271l716
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01055  M03S00616.273l780 ---| ASJC     VFD    1/0,5/SCHE,6/30D  SET PRIORITY AND CP NUMBER
Line S00008 Modification History
M01 (Added by) 1sj11
M02 (Removed by) 1sj41
M03 (Removed by) 271l716
M04 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01056  M04S00008.273l780 ---| ASJC     VFD    1/1,5/JSNE,6/5  VERIFY THAT JOB STATUS HAS NOT CHANGED
Line S00007 Modification History
M01 (Added by) 1sj41
M02 (Removed by) 271l716
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01057  M03S00007.273l780 ---| ASJC     VFD    1/1,5/JSNE,6/11D  VERIFY THAT STATUS BYTE UNCHANGED
Line S00009 Modification History
M01 (Added by) 1sj11
M02 (Removed by) 271l716
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01058  M03S00009.273l780 ---|          VFD    6/1,6/0
01059  M03S00010.273l780 ---|          CON    0,0
01060  M03S00011.273l780 ---|          CON    0           JOB STATUS WHEN JOB WAS SELECTED
01061  M03S00012.273l780 ---|
01062  M03S00013.273l780 ---|          VFD    1/0,5/SCHE,6/30D  SET PRIORITY AND CP NUMBER
Line S00617 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01063  M02S00617.273l780 ---|          VFD    6/0,6/0
01064  M02S00618.273l780 ---|          CON    0
01065  M02S00619.273l780 ---|          CON    0
01066  M02S00620.273l780 ---|          CON    0
01067  M02S00621.273l780 ---|
01068  M02S00622.273l780 ---|          VFD    1/0,5/SCLE,6/12D  SET ROLLIN CM FL
01069  M02S00623.273l780 ---|          VFD    6/0,6/0
01070  M02S00624.273l780 ---|          CON    0,0,0
Line S00625 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01071  M01S00625.273l780 ---| BST      SPACE  4,25
Line S00010 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01072  M01S00010.273l780 +++|*         LDN    0           SET JOB SCHEDULED
01073  M01S00011.273l780 +++|          LJM    ASJX        RETURN
01074  M01S00012.273l780 +++| BST      SPACE  4,20
01075  M00S00626.1sj     +++|**        BST - BUILD SCHEDULING TABLES.
01076  M00S00627.1sj     +++|*
01077  M00S00628.1sj     +++|*         BUILD SCHEDULING TABLES AND CHECK FOR JOBS HAVING FL INCREASE
01078  M00S00629.1sj     +++|*         REQUESTS OUTSTANDING.  IF ANY ARE FOUND, SELECT THE HIGHEST
01079  M00S00630.1sj     +++|*         PRIORITY ONE FOR SCHEDULING.
01080  M00S00631.1sj     +++|*
01081  M00S00632.1sj     +++|*         ENTRY  (JC) = 0.
Line S00177 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01082  M01S00177.271l716 +++|*                (JP) = 0.
01083  M00S00633.1sj     +++|*                (RM - RM+1) = 0.
01084  M00S00634.1sj     +++|*                (RE) = 0.
01085  M00S00635.1sj     +++|*
01086  M00S00636.1sj     +++|*         EXIT   (JC) = CP NUMBER OF HIGHEST PRIORITY JOB REQUESTING AN
01087  M00S00637.1sj     +++|*                       FL INCREASE.
01088  M00S00638.1sj     +++|*                     = 0 IF NO OUTSTANDING FL INCREASE REQUESTS.
01089  M00S00639.1sj     +++|*
Line S00640 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01090  M01S00640.271l716 ---|*         USES   T0 - T6, CM - CM+4, ES, CS, TE, JP, EP, TP, AC, RE,
01091  M01S00641.271l716 ---|*                RM - RM+1, JC, AA - AA+4, BB - BB+4, AM - AM+1, AE,
01092  M01S00642.271l716 ---|*                EJ - EJ+4, EO, SC, JM, JE, SP.
Line S00178 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00178.271l716 +++|*         USES   CS, EO, EP, ES, JC, JE, JM, JP, RE, SC, SP, TE, TP,
01094  M01S00179.271l716 +++|*                AA - AA+4, BB - BB+4, CM - CM+4, EJ - EJ+4, RM - RM+1,
01095  M01S00180.271l716 +++|*                T0 - T6.
01096  M00S00643.1sj     +++|*
Line S00644 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01097  M01S00644.271l716 ---|*         CALLS  EJA.
Line S00181 Modification History
M01 (Added by) 271l716
M02 (Removed by) 1sj52
Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00181.1sj52   ---|*         CALLS  CCP, EJA.
Line S00001 Modification History
M01 (Added by) 1sj52
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00001.273l780 ---|*         CALLS  CCP, CPR, EJA.
Line S00182 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01100  M02S00182.273l780 ---|*
01101  M02S00183.273l780 ---|*         MACROS LCPA.
Line S00013 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00013.273l780 +++|*         CALLS  CCA, CCP, CPR, EJA.
01103  M00S00645.1sj     +++|
01104  M00S00646.1sj     +++|
01105  M00S00647.1sj     +++| BST      SUBR               ENTRY/EXIT
01106  M00S00648.1sj     +++|
Line S00649 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01107  M01S00649.284l847 ---|*         INITIALIZE *TTCU* AND *TTEU* TABLES.
Line S00005 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00005.284l847 +++|*         INITIALIZE *TTCU* AND *TTUE* TABLES.
01109  M00S00650.1sj     +++|
01110  M00S00651.1sj     +++|          LDN    MXJC-1
01111  M00S00652.1sj     +++|          STD    T1
01112  M00S00653.1sj     +++| BST1     LDN    0
01113  M00S00654.1sj     +++|          STM    TTCU,T1
01114  M00S00655.1sj     +++|          STM    TTCU+1*MXJC,T1
Line S00656 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00656.284l847 ---|          STM    TTEU,T1
Line S00006 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01116  M01S00006.284l847 +++|          STM    TTUE,T1
01117  M00S00657.1sj     +++|          SOD    T1          DECREMENT INDEX
01118  M00S00658.1sj     +++|          PJN    BST1        IF NOT FINISHED
01119  M00S00659.1sj     +++|          LDC    TACP        SET END OF *TACP* TABLE
01120  M00S00660.1sj     +++|          STD    TE
01121  M00S00661.1sj     +++|          LDN    0
01122  M00S00662.1sj     +++|          STM    TACP-1      MARK START OF *TACP* TABLE
01123  M00S00663.1sj     +++|          STI    TE          MARK END OF *TACP* TABLE
Line S00664 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00664.271l716 ---|          STD    TP          INITIALIZE CONTROL POINT NUMBER
01125  M01S00665.271l716 ---|          LDN    CMRL        READ SYSTEM CM WORD
01126  M01S00666.271l716 ---|          CRD    CM
01127  M01S00667.271l716 ---|          ADN    ECRL-CMRL   READ SYSTEM ECS WORD
01128  M01S00668.271l716 ---|          CRD    T0
01129  M01S00669.271l716 ---|          ADC    200-ECRL+FLSW  READ CP 1 CM WORD
01130  M01S00670.271l716 ---|          CRD    AA
01131  M01S00671.271l716 ---|          ADN    ECSW-FLSW   READ CP 1 ECS WORD
01132  M01S00672.271l716 ---|          CRD    BB
01133  M01S00673.271l716 ---|          LDD    AA+2        CALCULATE AVAILABLE CM FL
01134  M01S00674.271l716 ---|          SHN    14
01135  M01S00675.271l716 ---|          LMD    AA+3
01136  M01S00676.271l716 ---|          SBD    CM+4
01137  M01S00677.271l716 ---|          SBD    AA          SUBTRACT NEGATIVE FL
01138  M01S00678.271l716 ---|          STD    AM+1
01139  M01S00679.271l716 ---|          SHN    -14
01140  M01S00680.271l716 ---|          STD    AM
Line S00681 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01141  M02S00681.271l716 ---|          LDD    BB+3        CALCULATE AVAILABLE ECS FL
Line S00001 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01142  M02S00001.271l716 ---|          LDD    BB+2        CALCULATE AVAILABLE ECS FL
Line S00002 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1sj46
M03 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01143  M03S00002.271l716 ---|          LPN    7
01144  M03S00003.271l716 ---|          SHN    14
01145  M03S00004.271l716 ---|          ADD    BB+3
Line S00001 Modification History
M01 (Added by) 1sj46
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01146  M02S00001.271l716 ---|          SBD    T0+2
01147  M02S00002.271l716 ---|          SHN    14
01148  M02S00003.271l716 ---|          LMD    BB+3
01149  M02S00004.271l716 ---|          SBD    T0+3
Line S00682 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01150  M01S00682.271l716 ---|          SBD    T0+4
01151  M01S00683.271l716 ---|          STD    AE
Line S00184 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01152  M01S00184.271l716 +++|          STD    TP          INITIALIZE CP/PCP NUMBER
01153  M00S00684.1sj     +++|
01154  M00S00685.1sj     +++|*         SCAN CONTROL POINT AREAS CALCULATING AVAILABLE CM AND ECS.
01155  M00S00686.1sj     +++|*         CHECK FOR OUTSTANDING FL INCREASE REQUESTS.
01156  M00S00687.1sj     +++|
Line S00688 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00688.271l716 ---| BST2     AOD    TP          ADVANCE CONTROL POINT NUMBER
Line S00185 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01158  M01S00185.271l716 +++| BST2     AOD    TP          ADVANCE CP/PCP NUMBER
Line S00689 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01159  M01S00689.271l716 ---|          LMD    NC
01160  M01S00690.271l716 ---|          NJN    BST3        IF NOT ALL CONTROL POINTS PROCESSED
01161  M01S00691.271l716 ---|          LJM    BSTX        RETURN
01162  M01S00692.271l716 ---|
01163  M01S00693.271l716 ---| BST3     LDD    TP
01164  M01S00694.271l716 ---|          SHN    7
01165  M01S00695.271l716 ---|          ADN    FLSW        READ CM WORD OF CURRENT CP
Line S00186 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01166  M01S00186.271l716 +++|          LMD    NC
01167  M01S00187.271l716 +++|          ZJN    BST2        IF SYSTEM CONTROL POINT
01168  M01S00188.271l716 +++|          LMD    NC
01169  M01S00189.271l716 +++|          LMC    **
01170  M01S00190.271l716 +++| BSTB     EQU    *-1
01171  M01S00191.271l716 +++|          ZJP    BSTX        IF END OF SCAN
Line S00192 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S00192.273l780 ---|          LCPA   FLSW,TP     READ FL CONTROL WORD OF CURRENT CP/PCP
Line S00014 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00014.273l780 +++|          LDD    TP          SET CP/PCP ADDRESS
01174  M01S00015.273l780 +++|          RJM    CCA
01175  M01S00016.273l780 +++|          ADK    FLSW        READ CM CONTROL WORD OF CURRENT CP/PCP
01176  M00S00696.1sj     +++|          CRD    CM
Line S00697 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01177  M01S00697.271l716 ---|          ADN    ECSW-FLSW   READ ECS WORD OF CURRENT CP
Line S00193 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00193.271l716 +++|          ADN    ECSW-FLSW   READ EM CONTROL WORD OF CURRENT CP/PCP
01179  M00S00698.1sj     +++|          CRD    T0
Line S00699 Modification History
M01 (Removed by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01180  M01S00699.ns21000 ---|          ADC    200-ECSW+FLSW
Line S00001 Modification History
M01 (Added by) ns21000
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01181  M02S00001.271l716 ---|          ADC    FLSW-ECSW+200  READ CM WORD OF NEXT CP
Line S00700 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01182  M01S00700.271l716 ---|          CRD    AA
01183  M01S00701.271l716 ---|          ADN    ECSW-FLSW   READ ECS WORD OF NEXT CP
01184  M01S00702.271l716 ---|          CRD    BB
01185  M01S00703.271l716 ---|          SHN    -7
01186  M01S00704.271l716 ---|          LMD    NC
01187  M01S00705.271l716 ---|          NJN    BST4        IF NEXT CP IS NOT SYSTEM CP
01188  M01S00706.271l716 ---|
01189  M01S00707.271l716 ---|*         NEXT CP (CP NUMBER *TP* + 1) IS THE SYSTEM CONTROL POINT SO
01190  M01S00708.271l716 ---|*         SAVE LWA+1 OF MACHINE CM AS RA OF CP *TP*+1 AND SAVE LWA+1
01191  M01S00709.271l716 ---|*         OF MACHINE ECS AS RAE OF CP *TP*+1.
01192  M01S00710.271l716 ---|
Line S00711 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01193  M02S00711.271l716 ---|          LDC    SABL        READ MACHINE FL WORD
Line S00002 Modification History
M01 (Added by) ns21000
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01194  M02S00002.271l716 ---|          LDK    MABL        READ MACHINE FL
Line S00712 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01195  M01S00712.271l716 ---|          CRD    AA
Line S00003 Modification History
M01 (Added by) ns21000
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01196  M02S00003.271l716 ---|          LDN    0           NFL(N+1) = 0
01197  M02S00004.271l716 ---|          STD    AA
Line S00713 Modification History
M01 (Removed by) 1sj46
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01198  M02S00713.271l716 ---|          LDD    BB+4        RAE(N+1) = FLE(N+1)
01199  M02S00714.271l716 ---|          STD    BB+3
Line S00005 Modification History
M01 (Added by) 1sj46
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01200  M02S00005.271l716 ---|          LDD    BB+4
01201  M02S00006.271l716 ---|          RAD    BB+3
01202  M02S00007.271l716 ---|          SHN    -14
01203  M02S00008.271l716 ---|          RAD    BB+2
Line S00715 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01204  M01S00715.271l716 ---|
01205  M01S00716.271l716 ---|*         ACCUMULATE CM FL BETWEEN CONTROL POINTS *TP* AND *TP*+1
01206  M01S00717.271l716 ---|*         USING THE FORMULA AVAILABLE CM = AVAILABLE CM + RA(*TP*+1)
01207  M01S00718.271l716 ---|*         - (RA(*TP*) + FL(*TP*)) - NFL(*TP*+1).
01208  M01S00719.271l716 ---|
01209  M01S00720.271l716 ---| BST4     LDD    AA+2
01210  M01S00721.271l716 ---|          SBD    CM+2
01211  M01S00722.271l716 ---|          SHN    14
01212  M01S00723.271l716 ---|          LMD    AA+3
01213  M01S00724.271l716 ---|          SBD    CM+3
01214  M01S00725.271l716 ---|          SBD    CM+4
01215  M01S00726.271l716 ---|          SBD    AA
01216  M01S00727.271l716 ---|          RAD    AM+1        ACCUMULATE AVAILABLE CM
01217  M01S00728.271l716 ---|          SHN    -14
01218  M01S00729.271l716 ---|          RAD    AM
01219  M01S00730.271l716 ---|
01220  M01S00731.271l716 ---|*         STORE CONTROL POINT *TP* CM FL IN *TJCM* TABLE.
Line S00194 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01221  M01S00194.271l716 +++|
01222  M01S00195.271l716 +++|*         STORE CP/PCP *TP* CM FL IN *TJCM* TABLE.
01223  M00S00732.1sj     +++|
01224  M00S00733.1sj     +++|          LDD    CM+4
01225  M00S00734.1sj     +++|          ADD    CM          NFL
01226  M00S00735.1sj     +++|          STM    TJCM-1,TP
01227  M00S00736.1sj     +++|          STD    T5
01228  M00S00737.1sj     +++|
Line S00738 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01229  M01S00738.271l716 ---|*         ACCUMULATE AVAILABLE ECS BETWEEN CONTROL POINTS *TP* AND
01230  M01S00739.271l716 ---|*         *TP*+1 USING THE FORMULA AVAILABLE ECS = AVAILABLE ECS +
01231  M01S00740.271l716 ---|*         RAE(*TP*+1) - (RAE(*TP*) + FLE(*TP)).
01232  M01S00741.271l716 ---|
Line S00742 Modification History
M01 (Removed by) 252l678
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01233  M02S00742.271l716 ---|          LDD    BB+3
01234  M02S00743.271l716 ---|          SBD    T0+3
Line S00005 Modification History
M01 (Added by) 252l678
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01235  M02S00005.271l716 ---|          LDD    BB+2
Line S00006 Modification History
M01 (Added by) 252l678
M02 (Removed by) 1sj46
M03 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01236  M03S00006.271l716 ---|          LPN    7
01237  M03S00007.271l716 ---|          SHN    14
01238  M03S00008.271l716 ---|          ADD    BB+3
01239  M03S00009.271l716 ---|          SBD    T0+3
01240  M03S00010.271l716 ---|          STD    T6
01241  M03S00011.271l716 ---|          SHN    -14
01242  M03S00012.271l716 ---|          SBD    T0+2
01243  M03S00013.271l716 ---|          SHN    14
01244  M03S00014.271l716 ---|          LMD    T6
Line S00009 Modification History
M01 (Added by) 1sj46
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S00009.271l716 ---|          SBD    T0+2
01246  M02S00010.271l716 ---|          SHN    14
01247  M02S00011.271l716 ---|          LMD    BB+3
01248  M02S00012.271l716 ---|          SBD    T0+3
Line S00744 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01249  M01S00744.271l716 ---|          SBD    T0+4
01250  M01S00745.271l716 ---|          RAD    AE
01251  M00S00746.1sj     +++|
01252  M00S00747.1sj     +++|*         STORE CONTROL POINT *TP* ECS FL IN *TJEC* TABLE.
01253  M00S00748.1sj     +++|
01254  M00S00749.1sj     +++|          LDD    T0+4
01255  M00S00750.1sj     +++|          STM    TJEC-1,TP
01256  M00S00751.1sj     +++|          STD    T6
01257  M00S00752.1sj     +++|
01258  M00S00753.1sj     +++|*         CHECK FOR AVAILABLE CONTROL POINT.
01259  M00S00754.1sj     +++|
Line S00755 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01260  M01S00755.271l716 ---|          LDD    TP
01261  M01S00756.271l716 ---|          SHN    7
01262  M01S00757.271l716 ---|          ADN    JCIW
Line S00196 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01263  M02S00196.273l780 ---|          LCPA   JCIW,TP
Line S00017 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01264  M01S00017.273l780 +++|          LDD    TP          SET CP/PCP ADDRESS
01265  M01S00018.273l780 +++|          RJM    CCA
01266  M01S00019.273l780 +++|          ADK    JCIW
01267  M00S00758.1sj     +++|          CRD    CM
01268  M00S00759.1sj     +++|          ADN    TFSW-JCIW
01269  M00S00760.1sj     +++|          CRD    EJ
01270  M00S00761.1sj     +++|          LDD    EJ
Line S00762 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01271  M01S00762.271l716 ---|          NJN    BST6        IF CONTROL POINT IS OCCUPIED
01272  M01S00763.271l716 ---|          AOM    SCPA        SET AVAILABLE CONTROL POINT FLAG IN *SCP*
Line S00197 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01273  M01S00197.271l716 +++|          NJN    BST6        IF CP/PCP IS OCCUPIED
01274  M01S00198.271l716 +++|          LDD    TP
01275  M01S00199.271l716 +++|          SBD    NC
01276  M01S00200.271l716 +++|          PJN    BST5        IF PCP
01277  M01S00201.271l716 +++|          LDM    SCPA
01278  M01S00202.271l716 +++|          ZJN    BST4        IF NO FREE CP YET SET
01279  M01S00203.271l716 +++|          RJM    CCP
01280  M01S00204.271l716 +++|          NJN    BST5        IF CURRENT CP IS NEITHER FIRST NOR LAST
01281  M01S00205.271l716 +++| BST4     LDD    TP          SAVE NUMBER OF FREE CONTROL POINT
01282  M01S00206.271l716 +++|          STM    SCPA
01283  M00S00764.1sj     +++| BST5     LJM    BST2        CONTINUE CONTROL POINT SCAN
01284  M00S00765.1sj     +++|
01285  M00S00766.1sj     +++| BST6     STD    EO          SAVE EJT ORDINAL
01286  M00S00767.1sj     +++|          RJM    EJA         CALCULATE EJT ENTRY ADDRESS
01287  M00S00768.1sj     +++|          ADK    JSNE
01288  M00S00769.1sj     +++|          CRD    EJ
01289  M00S00770.1sj     +++|          ADN    SCHE-JSNE
01290  M00S00771.1sj     +++|          CRD    AA
01291  M00S00772.1sj     +++|          ADN    SCLE-SCHE
01292  M00S00773.1sj     +++|          CRD    BB
Line S00774 Modification History
M01 (Removed by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01293  M01S00774.1sj38   ---|          LDD    EJ+4
01294  M01S00775.1sj38   ---|          LPN    76
01295  M01S00776.1sj38   ---|          LMN    EXJS*2
01296  M01S00777.1sj38   ---|          NJN    BST5        IF JOB IS ROLLING IN
01297  M00S00778.1sj     +++|          LDD    BB          GET SERVICE CLASS AND FORCED ROLL FLAGS
01298  M00S00779.1sj     +++|          SHN    14
01299  M00S00780.1sj     +++|          STM    TJSC-1,TP
01300  M00S00781.1sj     +++|          STD    SC
01301  M00S00782.1sj     +++|          SHN    1
01302  M00S00783.1sj     +++|          PJN    BST7        IF NOT FORCED ROLLIN
01303  M00S00784.1sj     +++|          LDN    1           SET NO ROLLOUT FLAG
01304  M00S00785.1sj     +++|          STD    CM+2
Line S00786 Modification History
M01 (Removed by) 1sj52
Seq #  *Modification Id* Act 
----------------------------+
01305  M01S00786.1sj52   ---| BST7     LDD    AA+4
Line S00002 Modification History
M01 (Added by) 1sj52
Seq #  *Modification Id* Act 
----------------------------+
01306  M01S00002.1sj52   +++| BST7     LDD    AA+4        SET CP JOB SCHEDULING PRIORITY
01307  M00S00787.1sj     +++|          STM    TJPR-1,TP
Line S00001 Modification History
M01 (Added by) ns2542
Seq #  *Modification Id* Act 
----------------------------+
01308  M01S00001.ns2542  +++|          LDD    CM+1        CHECK *CPUPFM* ACTIVE
01309  M01S00002.ns2542  +++|          LPN    10
01310  M01S00003.ns2542  +++|          NJN    BST8        IF *CPUPFM* ACTIVE
01311  M00S00788.1sj     +++|          LDD    CM+3        SET/CLEAR NO ROLLOUT FLAG
01312  M00S00789.1sj     +++|          LPC    1000        MASK *DIS* FLAG
01313  M00S00790.1sj     +++|          ADD    CM+2
01314  M00S00791.1sj     +++| BST8     STM    BSTA
Line S00001 Modification History
M01 (Added by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01315  M01S00001.1sj38   +++|          LDD    EJ+4
01316  M01S00002.1sj38   +++|          LPN    76
01317  M01S00003.1sj38   +++|          LMN    EXJS*2
Line S00004 Modification History
M01 (Added by) 1sj38
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01318  M02S00004.271l716 ---|          STD    EJ+4
01319  M02S00005.271l716 ---|          NJN    BST9        IF JOB IS ROLLING IN
Line S00207 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01320  M01S00207.271l716 +++|          ZJN    BST8.1      IF JOB IS AT A CP
01321  M01S00208.271l716 +++|          LMK    PCJS*2&EXJS*2
01322  M01S00209.271l716 +++|          NJN    BST8.2      IF NOT A PCP JOB
Line S00003 Modification History
M01 (Added by) 1sj52
Seq #  *Modification Id* Act 
----------------------------+
01323  M01S00003.1sj52   +++|          LDD    AA+3        SET ENTRY TIME FOR *CPR*
01324  M01S00004.1sj52   +++|          STD    T1
01325  M01S00005.1sj52   +++|          LDD    AA+4
01326  M01S00006.1sj52   +++|          STD    T2
01327  M01S00007.1sj52   +++|          LDD    SC
01328  M01S00008.1sj52   +++|          SHN    14
01329  M01S00009.1sj52   +++|          LMK    EXQT
01330  M01S00010.1sj52   +++|          RJM    CPR         COMPUTE SCHEDULING PRIORITY
01331  M01S00011.1sj52   +++|          STM    TJPR-1,TP
01332  M01S00012.1sj52   +++|          LDN    0
01333  M00S00792.1sj     +++|
Line S00793 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01334  M01S00793.271l716 ---|*         CHECK FOR ROLLOUT ACTIVITY AT CONTROL POINT.  ACCUMULATE CM
Line S00210 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01335  M01S00210.271l716 +++|*         CHECK FOR ROLLOUT ACTIVITY AT CP/PCP.  ACCUMULATE CM
01336  M00S00794.1sj     +++|*         AND ECS FL ASSIGNED TO THE JOB IF IT IS ROLLING OUT.
01337  M00S00795.1sj     +++|
Line S00796 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01338  M01S00796.271l716 ---|          LDD    TP
01339  M01S00797.271l716 ---|          SHN    7
01340  M01S00798.271l716 ---|          ADN    STSW
Line S00211 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01341  M01S00211.271l716 +++| BST8.1   STD    EJ+4
Line S00212 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01342  M02S00212.273l780 ---|          LCPA   STSW,TP
Line S00020 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01343  M01S00020.273l780 +++|          LDD    TP          SET CP/PCP ADDRESS
01344  M01S00021.273l780 +++|          RJM    CCA
01345  M01S00022.273l780 +++|          ADK    STSW
01346  M00S00799.1sj     +++|          CRD    CM
01347  M00S00800.1sj     +++|          ADN    FLIW-STSW
01348  M00S00801.1sj     +++|          CRD    AA
01349  M00S00802.1sj     +++|          LDD    CM+2
Line S00803 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01350  M01S00803.271l716 ---|          LPN    1
01351  M01S00804.271l716 ---|          ZJN    BST9        IF JOB NOT ROLLING OUT
01352  M01S00805.271l716 ---|          AOM    SCPB        SET ROLLOUT IN PROGRESS FLAG IN *SCP*
01353  M01S00806.271l716 ---|          LDD    T5          ACCUMULATE ROLLING CM
Line S00213 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01354  M01S00213.271l716 +++|          SHN    21-0
01355  M01S00214.271l716 +++| BST8.2   PJN    BST9        IF JOB NOT ROLLING OUT
01356  M01S00215.271l716 +++|          LDD    TP
01357  M01S00216.271l716 +++|          SBD    NC
01358  M01S00217.271l716 +++|          PJN    BST8.4      IF JOB AT PCP
01359  M01S00218.271l716 +++|          LDM    SCPB
01360  M01S00219.271l716 +++|          ZJN    BST8.3      IF NO ROLLING CP YET SET
01361  M01S00220.271l716 +++|          RJM    CCP
01362  M01S00221.271l716 +++|          NJN    BST8.4      IF CURRENT CP NEITHER FIRST NOR LAST
01363  M01S00222.271l716 +++| BST8.3   LDD    TP          SAVE NUMBER OF ROLLING CP
01364  M01S00223.271l716 +++|          STM    SCPB
01365  M01S00224.271l716 +++| BST8.4   LDD    CM+2
01366  M01S00225.271l716 +++|          SHN    21-7
01367  M01S00226.271l716 +++|          MJN    BST8.5      IF PSEUDO-ROLLOUT IN PROGRESS
01368  M01S00227.271l716 +++|          LDD    T5          ACCUMULATE ROLLING CM
01369  M00S00807.1sj     +++|          RAD    RM+1
01370  M00S00808.1sj     +++|          SHN    -14
01371  M00S00809.1sj     +++|          RAD    RM
01372  M00S00810.1sj     +++|          LDD    T6          ACCUMULATE ROLLING ECS
01373  M00S00811.1sj     +++|          RAD    RE
Line S00812 Modification History
M01 (Removed by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01374  M01S00812.1sj38   ---|          LJM    BST2        CONTINUE CONTROL POINT SCAN
Line S00006 Modification History
M01 (Added by) 1sj38
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01375  M02S00006.271l716 ---| BST8.1   LJM    BST2        CONTINUE CONTROL POINT SCAN
Line S00228 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01376  M01S00228.271l716 +++| BST8.5   LJM    BST2        CONTINUE CP/PCP SCAN
01377  M00S00813.1sj     +++|
01378  M00S00814.1sj     +++|*         JOB IS NOT ROLLING OUT.  CHECK FOR AN OUTSTANDING FL INCREASE
01379  M00S00815.1sj     +++|*         REQUEST.  IF ONE IS FOUND AT THIS CONTROL POINT, SEE IF THE
01380  M00S00816.1sj     +++|*         JOB-S SCHEDULING PRIORITY IS SUFFICIENTLY HIGH TO MAKE THE
01381  M00S00817.1sj     +++|*         JOB THE BEST SCHEDULING CANDIDATE FOUND SO FAR.
01382  M00S00818.1sj     +++|
01383  M00S00819.1sj     +++| BST9     LDD    SC
01384  M00S00820.1sj     +++|          SBN    MXJC
01385  M00S00821.1sj     +++|          PJN    BST10       IF NO JCB FOR THIS SERVICE CLASS
01386  M00S00822.1sj     +++|          LDD    T5          ACCUMULATE CM ASSIGNED TO SERVICE CLASS
01387  M00S00823.1sj     +++|          RAM    TTCU+1*MXJC,SC
01388  M00S00824.1sj     +++|          SHN    -14
01389  M00S00825.1sj     +++|          RAM    TTCU,SC
01390  M00S00826.1sj     +++|          LDD    T6          ACCUMULATE ECS ASSIGNED TO SERVICE CLASS
Line S00827 Modification History
M01 (Removed by) 1sj25
Seq #  *Modification Id* Act 
----------------------------+
01391  M01S00827.1sj25   ---|          RAM    TTEU+1*MXJC,SC
01392  M01S00828.1sj25   ---|          SHN    -14
Line S00829 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01393  M01S00829.284l847 ---|          RAM    TTEU,SC
Line S00007 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01394  M01S00007.284l847 +++|          RAM    TTUE,SC
Line S00830 Modification History
M01 (Removed by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01395  M01S00830.1sj38   ---| BST10    LDM    TJPR-1,TP
Line S00007 Modification History
M01 (Added by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01396  M01S00007.1sj38   +++| BST10    LDD    EJ+4
Line S00008 Modification History
M01 (Added by) 1sj38
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01397  M02S00008.271l716 ---|          NJN    BST8.1      IF JOB IS ROLLING IN
Line S00229 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01398  M01S00229.271l716 +++|          NJN    BST8.5      IF JOB IS ROLLING IN
Line S00009 Modification History
M01 (Added by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01399  M01S00009.1sj38   +++|          LDM    TJPR-1,TP
01400  M00S00831.1sj     +++|          SBD    JP
01401  M00S00832.1sj     +++|          MJN    BST12       IF CP HAS LOWER PRIORITY THAN CURRENT HIGH
01402  M00S00833.1sj     +++|          LDD    AA+4
01403  M00S00834.1sj     +++|          ZJN    BST11       IF NO CM FL INCREASE REQUESTED
01404  M00S00835.1sj     +++|          LDD    AA+1
01405  M00S00836.1sj     +++|          SHN    21-0
01406  M00S00837.1sj     +++|          MJN    BST12       IF REQUEST WAS ALREADY REJECTED
01407  M00S00838.1sj     +++|          LDD    AA+4
01408  M00S00839.1sj     +++|          SBD    T5
Line S00840 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01409  M01S00840.271l716 ---|          ZJN    BST11       IF CM ALEADY ASSIGNED
Line S00230 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01410  M01S00230.271l716 +++|          ZJN    BST11       IF CM ALREADY ASSIGNED
01411  M00S00841.1sj     +++|          MJN    BST11       IF CM ALREADY ASSIGNED
01412  M00S00842.1sj     +++|
01413  M00S00843.1sj     +++|*         THIS CONTROL POINT IS THE BEST SCHEDULING CANDIDATE FOUND SO
01414  M00S00844.1sj     +++|*         FAR.  SAVE SCHEDULING INFORMATION.
01415  M00S00845.1sj     +++|
01416  M00S00846.1sj     +++|          STD    JM
01417  M00S00847.1sj     +++|          LDN    0           CLEAR ECS REQUIREMENT
01418  M00S00848.1sj     +++|          STD    JE
Line S00849 Modification History
M01 (Removed by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01419  M01S00849.1sj32   ---|          LCN    0           PREVENT SERVICE CLASS CM LIMIT
01420  M01S00850.1sj32   ---|          STD    CS+1
01421  M01S00851.1sj32   ---|          LDN    37
01422  M01S00852.1sj32   ---|          STD    CS
01423  M00S00853.1sj     +++|          UJN    BST13       GO FINISH SAVING SCHEDULING INFORMATION
01424  M00S00854.1sj     +++|
01425  M00S00855.1sj     +++| BST11    LDD    AA+3
Line S00856 Modification History
M01 (Removed by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01426  M01S00856.1sj19   ---|          ZJN    BST14       IF NO ECS FL INCREASE REQUESTED
Line S00001 Modification History
M01 (Added by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01427  M01S00001.1sj19   +++|          ZJN    BST14.1     IF NO ECS FL INCREASE REQUESTED
01428  M00S00857.1sj     +++|          LDD    AA+1
01429  M00S00858.1sj     +++|          SHN    21-1
Line S00859 Modification History
M01 (Removed by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01430  M01S00859.1sj19   ---| BST12    MJN    BST14       IF REQUEST WAS ALREADY REJECTED
Line S00002 Modification History
M01 (Added by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01431  M01S00002.1sj19   +++| BST12    MJN    BST14.1     IF REQUEST WAS ALREADY REJECTED
01432  M00S00860.1sj     +++|          LDD    AA+3
01433  M00S00861.1sj     +++|          SBD    T6
Line S00862 Modification History
M01 (Removed by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01434  M01S00862.1sj19   ---|          ZJN    BST14       IF ECS ALREADY ASSIGNED
01435  M01S00863.1sj19   ---|          MJN    BST14       IF ECS ALREADY ASSIGNED
Line S00003 Modification History
M01 (Added by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01436  M01S00003.1sj19   +++|          ZJN    BST14.1     IF ECS ALREADY ASSIGNED
01437  M01S00004.1sj19   +++|          MJN    BST14.1     IF ECS ALREADY ASSIGNED
01438  M00S00864.1sj     +++|
01439  M00S00865.1sj     +++|
01440  M00S00866.1sj     +++|*         THIS CONTROL POINT IS THE BEST SCHEDULING CANDIDATE SO
01441  M00S00867.1sj     +++|*         FAR.  SAVE SCHEDULING INFORMATION.
01442  M00S00868.1sj     +++|
01443  M00S00869.1sj     +++|          STD    JE
01444  M00S00870.1sj     +++|          LDN    0           CLEAR CM REQUIREMENT
01445  M00S00871.1sj     +++|          STD    JM
Line S00872 Modification History
M01 (Removed by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01446  M01S00872.1sj32   ---|          LCN    0           PREVENT SERVICE CLASS ECS LIMIT
Line S00001 Modification History
M01 (Added by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01447  M01S00001.1sj32   +++| BST13    LCN    0           PREVENT SERVICE CLASS ECS LIMIT
01448  M00S00873.1sj     +++|          STD    ES
Line S00874 Modification History
M01 (Removed by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01449  M01S00874.1sj32   ---| BST13    LDM    TJPR-1,TP   SAVE SCHEDULING PRIORITY
Line S00002 Modification History
M01 (Added by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01450  M01S00002.1sj32   +++|          STD    CS+1        PREVENT SERVICE CLASS CM LIMIT
01451  M01S00003.1sj32   +++|          LDN    37
01452  M01S00004.1sj32   +++|          STD    CS
01453  M01S00005.1sj32   +++|          LDM    TJPR-1,TP   SAVE SCHEDULING PRIORITY
01454  M00S00875.1sj     +++|          STD    JP
Line S00876 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01455  M01S00876.271l716 ---|          LDD    TP          SAVE CONTROL POINT NUMBER
Line S00231 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01456  M01S00231.271l716 +++|          LDD    TP          SAVE CP/PCP NUMBER
01457  M00S00877.1sj     +++|          STD    JC
01458  M00S00878.1sj     +++|          LDD    EO          SAVE EJT ORDINAL
01459  M00S00879.1sj     +++|          STD    EP
01460  M00S00880.1sj     +++|          LDD    SC          SAVE SERVICE CLASS
01461  M00S00881.1sj     +++|          STD    SP
01462  M00S00882.1sj     +++| BST14    LDC    **
01463  M00S00883.1sj     +++| BSTA     EQU    *-1         (NO ROLLOUT FLAG)
Line S00004 Modification History
M01 (Added by) ns2072
Seq #  *Modification Id* Act 
----------------------------+
01464  M01S00004.ns2072  +++|          STM    SCJD        (SET/CLEAR NO REJECT FLAG)
Line S00005 Modification History
M01 (Added by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01465  M01S00005.1sj19   +++| BST14.1  LDM    BSTA
01466  M00S00884.1sj     +++|          NJN    BST18       IF ROLLOUT MUST NOT OCCUR
01467  M00S00885.1sj     +++|
01468  M00S00886.1sj     +++|*         BUILD *TACP* ENTRY FOR THIS CONTROL POINT.
01469  M00S00887.1sj     +++|
01470  M00S00888.1sj     +++|          LDC    TACP-1      SET START OF *TACP* TABLE
01471  M00S00889.1sj     +++|          STD    T1
01472  M00S00890.1sj     +++| BST15    AOD    T1          INCREMENT *TACP* INDEX
01473  M00S00891.1sj     +++|          LDI    T1
01474  M00S00892.1sj     +++|          ZJN    BST17       IF END OF *TACP* TABLE
01475  M00S00893.1sj     +++|          STD    T2
01476  M00S00894.1sj     +++|          LDM    TJPR-1,T2
01477  M00S00895.1sj     +++|          SBM    TJPR-1,TP
01478  M00S00896.1sj     +++|          PJN    BST15       IF PRIORITY OF *TP* .LE. *TACP* ENTRY
01479  M00S00897.1sj     +++|
01480  M00S00898.1sj     +++|*         MOVE ALL *TACP* ENTRIES THAT ARE BEYOND CURRENT POSITION
01481  M00S00899.1sj     +++|*         ONE SLOT TOWARD THE END OF THE *TACP* TABLE.
01482  M00S00900.1sj     +++|
01483  M00S00901.1sj     +++|          LDD    TE
01484  M00S00902.1sj     +++|          STD    T2
01485  M00S00903.1sj     +++| BST16    LDM    -1,T2
01486  M00S00904.1sj     +++|          STI    T2
01487  M00S00905.1sj     +++|          SOD    T2
01488  M00S00906.1sj     +++|          LMD    T1
01489  M00S00907.1sj     +++|          NJN    BST16       IF MOVE NOT COMPLETE
01490  M00S00908.1sj     +++|
01491  M00S00909.1sj     +++|*         ALL ENTRIES OF LOWER PRIORITY HAVE BEEN MOVED ONE SLOT
Line S00910 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01492  M01S00910.271l716 ---|*         TOWARD END OF *TACP* TABLE.  STORE CONTROL POINT NUMBER IN
Line S00232 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01493  M01S00232.271l716 +++|*         TOWARD END OF *TACP* TABLE.  STORE CP/PCP NUMBER IN
01494  M00S00911.1sj     +++|*         VACATED *TACP* ENTRY.
01495  M00S00912.1sj     +++|
01496  M00S00913.1sj     +++| BST17    LDD    TP
01497  M00S00914.1sj     +++|          STI    T1
01498  M00S00915.1sj     +++|          AOD    TE          ADVANCE END OF *TACP* TABLE POINTER
01499  M00S00916.1sj     +++|          LDN    0           MARK END OF *TACP* TABLE
01500  M00S00917.1sj     +++|          STI    TE
Line S00918 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01501  M01S00918.271l716 ---| BST18    LJM    BST2        CONTINUE CONTROL POINT SCAN
Line S00233 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01502  M01S00233.271l716 +++| BST18    LJM    BST2        CONTINUE CP/PCP SCAN
Line S00023 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01503  M01S00023.273l780 +++| CCA      SPACE  4,10
01504  M01S00024.273l780 +++|**        CCA - COMPUTE CPA/PCPA ADDRESS.
01505  M01S00025.273l780 +++|*
01506  M01S00026.273l780 +++|*         ENTRY  (A) = CP/PCP NUMBER.
01507  M01S00027.273l780 +++|*                (NC) = NUMBER OF CONTROL POINTS.
01508  M01S00028.273l780 +++|*
01509  M01S00029.273l780 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
01510  M01S00030.273l780 +++|
01511  M01S00031.273l780 +++|
01512  M01S00032.273l780 +++| CCA1     ADD    NC
01513  M01S00033.273l780 +++|          SHN    7
01514  M01S00034.273l780 +++|
01515  M01S00035.273l780 +++| CCA      SUBR               ENTRY/EXIT
01516  M01S00036.273l780 +++|          SBD    NC
01517  M01S00037.273l780 +++|          MJN    CCA1        IF CONTROL POINT
01518  M01S00038.273l780 +++|          ZJN    CCA1        IF SYSTEM CONTROL POINT
01519  M01S00039.273l780 +++|          SHN    7
01520  M01S00040.273l780 +++| CCAA     ADC    **          (PCP AREAS BASE ADDRESS)
01521  M01S00041.273l780 +++|          UJN    CCAX        RETURN
Line S00234 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01522  M01S00234.271l716 +++| CCP      SPACE  4,10
01523  M01S00235.271l716 +++|**        CCP - CHECK FOR FIRST OR LAST CONTROL POINT.
01524  M01S00236.271l716 +++|*
01525  M01S00237.271l716 +++|*         ENTRY  (A) = CONTROL POINT NUMBER.
01526  M01S00238.271l716 +++|*                (NC) = SYSTEM CONTROL POINT NUMBER.
01527  M01S00239.271l716 +++|*
01528  M01S00240.271l716 +++|*         EXIT   (A) = 0 IF CONTROL POINT 1 OR LAST CONTROL POINT.
01529  M01S00241.271l716 +++|
01530  M01S00242.271l716 +++|
01531  M01S00243.271l716 +++| CCP      SUBR               ENTRY/EXIT
01532  M01S00244.271l716 +++|          SBN    1
01533  M01S00245.271l716 +++|          ZJN    CCPX        IF CP 1
01534  M01S00246.271l716 +++|          ADN    2
01535  M01S00247.271l716 +++|          LMD    NC
01536  M01S00248.271l716 +++|          UJN    CCPX        RETURN
01537  M00S00919.1sj     +++| CFL      SPACE  4,30
01538  M00S00920.1sj     +++|**        CFL - COMMIT FIELD LENGTH.
01539  M00S00921.1sj     +++|*
01540  M00S00922.1sj     +++|*         SCAN THE *TACP* TABLE IN AN ATTEMPT TO FIND ENOUGH CM/ECS
01541  M00S00923.1sj     +++|*         ASSIGNED TO LOWER PRIORITY JOBS TO ACCOMODATE THE JOB
Line S00924 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01542  M01S00924.271l716 ---|*         SELECTED FOR SCHECULING.  REQUEST ROLLOUT OF ONLY AS MANY
Line S00249 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01543  M01S00249.271l716 +++|*         SELECTED FOR SCHEDULING.  REQUEST ROLLOUT FOR ONLY AS MANY
01544  M00S00925.1sj     +++|*         SUCH JOBS AS NECESSARY.
01545  M00S00926.1sj     +++|*
01546  M00S00927.1sj     +++|*         ENTRY  (TE) = LWA OF *TACP* TABLE.
01547  M00S00928.1sj     +++|*                (AM - AM+1) = AVAILABLE + ROLLING CM.
01548  M00S00929.1sj     +++|*                (AE) = AVAILABLE + ROLLING ECS.
Line S00001 Modification History
M01 (Added by) 1sj13
Seq #  *Modification Id* Act 
----------------------------+
01549  M01S00001.1sj13   +++|*                (JC) = CP NUMBER OF JOB REQUESTING FL INCREASE
01550  M01S00002.1sj13   +++|*                       (IF ANY).
01551  M00S00930.1sj     +++|*                (JP) = SCHEDULING PRIORITY OF SELECTED JOB.
01552  M00S00931.1sj     +++|*                (JM) = CM FL REQUIRED BY SELECTED JOB.
01553  M00S00932.1sj     +++|*                (JE) = ECS FL REQUIRED BY SELECTED JOB.
01554  M00S00933.1sj     +++|*                (SP) = SERVICE CLASS OF SELECTED JOB.
01555  M00S00934.1sj     +++|*                (CS - CS+1) = EXCESS CM OF SERVICE CLASS.
01556  M00S00935.1sj     +++|*                (ES) = EXCESS ECS OF SERVICE CLASS.
01557  M00S00936.1sj     +++|*
01558  M00S00937.1sj     +++|*         EXIT   (A) = 0 IF SUFFICIENT CM/ECS AFTER ROLLOUTS.
01559  M00S00938.1sj     +++|*                    = 1 IF INSUFFICIENT CM.
01560  M00S00939.1sj     +++|*                    = 2 IF INSUFFICIENT ECS.
01561  M00S00940.1sj     +++|*                    .LT. 0 IF ROLLOUT REQUEST WAS REJECTED.
01562  M00S00941.1sj     +++|*
01563  M00S00942.1sj     +++|*         USES   T1, T3 - T7, CM - CM+4 TP.
01564  M00S00943.1sj     +++|*
01565  M00S00944.1sj     +++|*         CALLS  IRR.
01566  M00S00945.1sj     +++|
01567  M00S00946.1sj     +++|
01568  M00S00947.1sj     +++|*         REQUEST ROLLOUT FOR ANY JOB WHOSE ROLLOUT REQUEST BIT (BIT
01569  M00S00948.1sj     +++|*         10D) IS SET IN ITS *TACP* ENTRY.
01570  M00S00949.1sj     +++|
Line S00950 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01571  M01S00950.271l716 ---| CFL11    LDC    2000        CLEAR REQUEST ROLLOUT, SET *ROCM* ISSUED
01572  M01S00951.271l716 ---|          RAI    TP
01573  M01S00952.271l716 ---|          AOM    SCPB        SET ROLLOUT IN PROGRESS FLAG IN *SCP*
01574  M01S00953.271l716 ---| CFL12    AOD    TP          INCREMENT *TACP* POINTER
Line S00250 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01575  M01S00250.271l716 +++| CFL11    AOD    TP          INCREMENT *TACP* POINTER
01576  M00S00954.1sj     +++|          LDI    TP
01577  M00S00955.1sj     +++|          ZJN    CFLX        IF *TACP* SCAN COMPLETE
01578  M00S00956.1sj     +++|          SHN    21-12
Line S00957 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01579  M01S00957.271l716 ---|          PJN    CFL12       IF ROLLOUT REQUEST BIT IS NOT SET
01580  M01S00958.271l716 ---|          SHN    12-21       GET CONTROL POINT NUMBER
01581  M01S00959.271l716 ---|          LPN    37
Line S00251 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01582  M01S00251.271l716 +++|          PJN    CFL11       IF ROLLOUT REQUEST BIT CLEAR
01583  M01S00252.271l716 +++|          SHN    12-21       GET CP/PCP NUMBER
01584  M01S00253.271l716 +++|          LPC    177
01585  M01S00254.271l716 +++|          ERRNZ  /CPS/ROSR   CODE DEPENDS ON VALUE
01586  M00S00960.1sj     +++|          RJM    IRR         ISSUE *ROCM*
01587  M00S00961.1sj     +++|          ZJN    CFL11       IF ROLLOUT REQUEST WAS ACCEPTED
01588  M00S00962.1sj     +++|          LCN    0           SET RETURN STATUS
01589  M00S00963.1sj     +++|
01590  M00S00964.1sj     +++| CFL      SUBR               ENTRY/EXIT
Line S00965 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01591  M01S00965.ns22000 ---|          LDD    TE          INITIALIZE *TACP* TABLE POINTER
Line S00031 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01592  M01S00031.ns22000 +++|          LDD    AM
01593  M01S00032.ns22000 +++|          SHN    14
01594  M01S00033.ns22000 +++|          LMD    AM+1
01595  M01S00034.ns22000 +++|          SBD    JM
01596  M01S00035.ns22000 +++|          SHN    -21
01597  M01S00036.ns22000 +++|          NJN    CFL0        IF INSUFFICIENT CM
01598  M01S00037.ns22000 +++|          LDD    AE
01599  M01S00038.ns22000 +++|          SBD    JE
01600  M01S00039.ns22000 +++|          SHN    -21
01601  M01S00040.ns22000 +++|          ZJN    CFLX        IF SUFFICIENT EM
01602  M01S00041.ns22000 +++| CFL0     LDD    TE          INITIALIZE *TACP* POINTER
01603  M00S00966.1sj     +++|          STD    TP
01604  M00S00967.1sj     +++|          LDD    AM          INITIALIZE CM ACCUMULATOR
01605  M00S00968.1sj     +++|          STD    T5
01606  M00S00969.1sj     +++|          LDD    AM+1
01607  M00S00970.1sj     +++|          STD    T6
01608  M00S00971.1sj     +++|          LDD    AE          INITIALIZE ECS ACCUMULATOR
01609  M00S00972.1sj     +++|          STD    T7
01610  M00S00973.1sj     +++|
01611  M00S00974.1sj     +++|*         ACCUMULATE CM AND ECS ASSIGNED TO LOWER PRIORITY JOBS.  SET
01612  M00S00975.1sj     +++|*         THE REQUEST ROLLOUT BIT IN THE *TACP* ENTRY OF EACH LOWER
01613  M00S00976.1sj     +++|*         PRIORITY JOB.
01614  M00S00977.1sj     +++|
01615  M00S00978.1sj     +++| CFL1     SOD    TP          DECREMENT *TACP* POINTER
01616  M00S00979.1sj     +++|          LDI    TP
01617  M00S00980.1sj     +++|          ZJN    CFL2        IF END OF *TACP* TABLE REACHED
Line S00981 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01618  M01S00981.271l716 ---|          SHN    6
01619  M01S00982.271l716 ---|          MJN    CFL1        IF JOB IS ROLLING OUT
01620  M01S00983.271l716 ---|          SHN    -6          GET CP NUMBER
01621  M00S00984.1sj     +++|          STD    T1
Line S00003 Modification History
M01 (Added by) 1sj13
Seq #  *Modification Id* Act 
----------------------------+
01622  M01S00003.1sj13   +++|          LMD    JC
01623  M01S00004.1sj13   +++|          ZJN    CFL1        IF CP SELECTED FOR FL INCREASE
01624  M00S00985.1sj     +++|          LDD    JP          COMPARE SCHEDULING PRIORITIES
01625  M00S00986.1sj     +++|          SBM    TJPR-1,T1
01626  M00S00987.1sj     +++|          MJN    CFL1        IF SELECTED JOB HAS LOWER PRIORITY
Line S00006 Modification History
M01 (Added by) 1sj43
Seq #  *Modification Id* Act 
----------------------------+
01627  M01S00006.1sj43   +++|*         PSN                (LOCKED IN JOB REQUIRES FL INCREASE)
01628  M01S00007.1sj43   +++| CFLC     EQU    *-1
01629  M00S00988.1sj     +++|          ZJN    CFL1        IF PRIORITIES ARE EQUAL
01630  M00S00989.1sj     +++|*         PSN                (IF SELECTED JOB WANTS FL INCREASE)
01631  M00S00990.1sj     +++| CFLA     EQU    *-1
Line S00006 Modification History
M01 (Added by) 1sj19
M02 (Removed by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01632  M02S00006.1sj19a  ---|          LDM    TJSC-1,T1   CHECK SERVICE CLASS
01633  M02S00007.1sj19a  ---|          LMD    SP
01634  M02S00008.1sj19a  ---|          NJN    CFL1        IF DIFFERENT SERVICE CLASSES
01635  M00S00991.1sj     +++|          LDC    2000
01636  M00S00992.1sj     +++|          RAI    TP          SET ROLLOUT FLAG IN *TACP* ENTRY
Line S00255 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01637  M01S00255.271l716 +++|          SHN    21-13
01638  M01S00256.271l716 +++|          MJN    CFL1        IF ROLLOUT IN PROGRESS
01639  M00S00993.1sj     +++|          LDM    TJCM-1,T1   ACCUMULATE CM OF ROLLABLE JOB
01640  M00S00994.1sj     +++|          RAD    T6
01641  M00S00995.1sj     +++|          SHN    -14
01642  M00S00996.1sj     +++|          RAD    T5
01643  M00S00997.1sj     +++|          LDM    TJEC-1,T1   ACCUMULATE ECS OF ROLLABLE JOB
01644  M00S00998.1sj     +++|          RAD    T7
01645  M00S00999.1sj     +++|          UJN    CFL1        CONTINUE *TACP* TABLE SCAN
01646  M00S01000.1sj     +++|
01647  M00S01001.1sj     +++| CFL2     LDD    T5
01648  M00S01002.1sj     +++|          SHN    14
01649  M00S01003.1sj     +++|          LMD    T6
01650  M00S01004.1sj     +++|          SBD    JM
01651  M00S01005.1sj     +++|          PJN    CFL4        IF ENOUGH CM CAN BE OBTAINED VIA ROLLOUT
01652  M00S01006.1sj     +++|          LDN    1           INDICATE INSUFFICIENT CM TO *SCJ*
01653  M00S01007.1sj     +++| CFL3     LJM    CFLX        RETURN
01654  M00S01008.1sj     +++|
01655  M00S01009.1sj     +++| CFL4     STD    T6          SAVE EXCESS CM AMOUNT
01656  M00S01010.1sj     +++|          SHN    -14
01657  M00S01011.1sj     +++|          STD    T5
01658  M00S01012.1sj     +++|          LDD    T7
01659  M00S01013.1sj     +++|          SBD    JE
01660  M00S01014.1sj     +++|          PJN    CFL5        IF ENOUGH ECS CAN BE OBTAINED VIA ROLLOUT
01661  M00S01015.1sj     +++|          LDN    2           INDICATE INSUFFICIENT ECS TO *SCJ*
01662  M00S01016.1sj     +++|          UJN    CFL3        RETURN
01663  M00S01017.1sj     +++|
01664  M00S01018.1sj     +++| CFL5     STD    T7          SAVE EXCESS ECS AMOUNT
01665  M00S01019.1sj     +++|          ADD    T5
01666  M00S01020.1sj     +++|          ADD    T6
01667  M00S01021.1sj     +++|          ZJN    CFL7        IF NO EXCESS CM/ECS
01668  M00S01022.1sj     +++|
01669  M00S01023.1sj     +++|*         DISQUALIFY AS MANY JOBS AS POSSIBLE FROM ROLLOUT.
01670  M00S01024.1sj     +++|
01671  M00S01025.1sj     +++|          LDD    TP          INITIALIZE *TACP* TABLE POINTER
01672  M00S01026.1sj     +++|          STD    T4
01673  M00S01027.1sj     +++| CFL6     AOD    T4          INCREMENT *TACP* POINTER
01674  M00S01028.1sj     +++|          LDI    T4
01675  M00S01029.1sj     +++|          NJN    CFL8        IF NOT END OF *TACP* TABLE
Line S01030 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01676  M01S01030.271l716 ---| CFL7     LJM    CFL12       GO ISSUE *ROCM* REQUESTS
Line S00257 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01677  M01S00257.271l716 +++| CFL7     LJM    CFL11       ROLLOUT JOBS
01678  M00S01031.1sj     +++|
01679  M00S01032.1sj     +++| CFL8     SHN    21-12
01680  M00S01033.1sj     +++|          PJN    CFL6        IF JOB IS NOT A ROLLOUT CANDIDATE
Line S01034 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01681  M01S01034.271l716 ---|          SHN    12-21       GET CP NUMBER
01682  M01S01035.271l716 ---|          LPN    37
Line S00258 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01683  M01S00258.271l716 +++|          SHN    12-21       GET CP/PCP NUMBER
01684  M01S00259.271l716 +++|          LPC    177
01685  M00S01036.1sj     +++|          STD    T3
01686  M00S01037.1sj     +++|          LDD    T5
01687  M00S01038.1sj     +++|          SHN    14
01688  M00S01039.1sj     +++|          LMD    T6
01689  M00S01040.1sj     +++|          SBM    TJCM-1,T3
Line S01041 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01690  M01S01041.271l716 ---| CFL9     MJN    CFL6        IF JOB-S CM IS TOO BIG TO REMAIN AT CP
01691  M01S01042.271l716 ---|          STD    CM+1        SAVE CM AMOUNT IF THIS JOB REMAINS AT CP
Line S00260 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01692  M01S00260.271l716 +++| CFL9     MJN    CFL6        IF JOB-S CM FL TOO BIG TO REMAIN AT CP/PCP
01693  M01S00261.271l716 +++|          STD    CM+1        SAVE CM AMOUNT
01694  M00S01043.1sj     +++|          SHN    -14
01695  M00S01044.1sj     +++|          STD    CM
01696  M00S01045.1sj     +++|          LDD    T7
01697  M00S01046.1sj     +++|          SBM    TJEC-1,T3
Line S01047 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01698  M01S01047.271l716 ---|          MJN    CFL6        IF JOB-S ECS IS TOO BIG TO REMAIN AT CP
01699  M01S01048.271l716 ---|          STD    CM+2        SAVE ECS AMOUNT IF THIS JOB REMAINS AT CP
Line S00262 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01700  M01S00262.271l716 +++|          MJN    CFL6        IF JOB-S EM FL TOO BIG TO REMAIN AT CP/PCP
01701  M01S00263.271l716 +++|          STD    CM+2        SAVE EM AMOUNT
Line S00001 Modification History
M01 (Added by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01702  M01S00001.1sj19a  +++|          LDM    TJSC-1,T3
01703  M01S00002.1sj19a  +++|          LMD    SP
01704  M01S00003.1sj19a  +++|          NJN    CFL10       IF DIFFERENT SERVICE CLASSES
Line S01049 Modification History
M01 (Removed by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01705  M01S01049.1sj19   ---|          LDM    TJSC-1,T3
01706  M01S01050.1sj19   ---|          LMD    SP
01707  M01S01051.1sj19   ---|          NJN    CFL10       IF DIFFERENT SERVICE CLASSES
01708  M00S01052.1sj     +++|          LDD    CS
01709  M00S01053.1sj     +++|          SHN    14
01710  M00S01054.1sj     +++|          LMD    CS+1
01711  M00S01055.1sj     +++|          SBM    TJCM-1,T3
01712  M00S01056.1sj     +++|          MJN    CFL9        IF MAXIMUM CM FOR SERVICE CLASS EXCEEDED
01713  M00S01057.1sj     +++|          STD    CM+4        SAVE NEW EXCESS CM
01714  M00S01058.1sj     +++|          SHN    -14
01715  M00S01059.1sj     +++|          STD    CM+3
01716  M00S01060.1sj     +++|          LDD    ES
01717  M00S01061.1sj     +++|          SBM    TJEC-1,T3
01718  M00S01062.1sj     +++|          MJN    CFL9        IF MAXIMUM ECS FOR SERVICE CLASS EXCEEDED
01719  M00S01063.1sj     +++|          STD    ES          SAVE NEW EXCESS ECS
01720  M00S01064.1sj     +++|          LDD    CM+3        SAVE NEW EXCESS CM
01721  M00S01065.1sj     +++|          STD    CS
01722  M00S01066.1sj     +++|          LDD    CM+4
01723  M00S01067.1sj     +++|          STD    CS+1
Line S01068 Modification History
M01 (Removed by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01724  M01S01068.1sj19   ---| CFL10    LDD    CM          UPDATE REMAINING CM AMOUNT
Line S00009 Modification History
M01 (Added by) 1sj19
M02 (Removed by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01725  M02S00009.1sj19a  ---|          LDD    CM          UPDATE REMAINING CM AMOUNT
Line S00004 Modification History
M01 (Added by) 1sj19a
Seq #  *Modification Id* Act 
----------------------------+
01726  M01S00004.1sj19a  +++| CFL10    LDD    CM          UPDATE REMAINING CM AMOUNT
01727  M00S01069.1sj     +++|          STD    T5
01728  M00S01070.1sj     +++|          LDD    CM+1
01729  M00S01071.1sj     +++|          STD    T6
01730  M00S01072.1sj     +++|          LDD    CM+2        UPDATE REMAINING ECS AMOUNT
01731  M00S01073.1sj     +++|          STD    T7
01732  M00S01074.1sj     +++|          LDC    -2000       CLEAR ROLLOUT BIT IN *TACP* ENTRY
01733  M00S01075.1sj     +++|          RAI    T4
01734  M00S01076.1sj     +++|          LJM    CFL6        CONTINUE *TACP* SCAN
01735  M00S01077.1sj     +++|
01736  M00S01078.1sj     +++| CFLB     BSS    0
01737  M00S01079.1sj     +++|          LOC    CFLA
01738  M00S01080.1sj     +++|          ZJN    CFL1        IF PRIORITIES ARE EQUAL
01739  M00S01081.1sj     +++|          LOC    *O
01740  M00S01082.1sj     +++| DDA      SPACE  4,10
01741  M00S01083.1sj     +++|**        DDA - DETERMINE DEVICE ACTIVITY.
01742  M00S01084.1sj     +++|*
01743  M00S01085.1sj     +++|*         BUILD *TDAC* TABLE.
01744  M00S01086.1sj     +++|*
01745  M00S01087.1sj     +++|*         USES   T1 - T5, CM - CM+4.
Line S00042 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01746  M01S00042.ns22000 +++|*
01747  M01S00043.ns22000 +++|*         MACROS SFA.
01748  M00S01088.1sj     +++|
01749  M00S01089.1sj     +++|
Line S00264 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01750  M01S00264.271l716 +++| DDA2     STM    TDAC+1      CLEAR PCP ACTIVITY
01751  M01S00265.271l716 +++|
01752  M00S01090.1sj     +++| DDA      SUBR               ENTRY/EXIT
01753  M00S01091.1sj     +++|          LDN    ESTP
01754  M00S01092.1sj     +++|          CRD    T1
Line S01093 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01755  M01S01093.ns22000 ---|          LDN    0
Line S00044 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01756  M01S00044.ns22000 +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
01757  M00S01094.1sj     +++|          STD    T1
01758  M00S01095.1sj     +++| DDA1     AOD    T1          INCREMENT EST ORDINAL
Line S00045 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01759  M01S00045.ns22000 +++|          LMD    T1+3
Line S00046 Modification History
M01 (Added by) ns22000
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01760  M02S00046.271l716 ---|          ZJN    DDAX        IF EST SCAN IS COMPLETE
Line S00266 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01761  M01S00266.271l716 +++|          ZJN    DDA2        IF END OF EST SCAN
Line S01096 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01762  M01S01096.ns22000 ---|          ADM    ESTS
Line S00047 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01763  M01S00047.ns22000 +++|          SFA    EST,T1
01764  M01S00048.ns22000 +++|          ADK    EQDE
01765  M00S01097.1sj     +++|          CRD    CM
Line S01098 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01766  M01S01098.ns22000 ---|          LMD    T1+2
01767  M01S01099.ns22000 ---|          ZJN    DDAX        IF EST SCAN IS COMPLETE
01768  M00S01100.1sj     +++|          LDD    CM
01769  M00S01101.1sj     +++|          SHN    21-13
01770  M00S01102.1sj     +++|          PJN    DDA1        IF NOT MASS STORAGE
01771  M00S01103.1sj     +++|          LDD    CM+4        READ MST ENTRY
01772  M00S01104.1sj     +++|          SHN    3
01773  M00S01105.1sj     +++|          ADN    DALL
01774  M00S01106.1sj     +++|          CRD    CM
01775  M00S01107.1sj     +++|          LDD    CM          SAVE DEVICE ACTIVITY IN *TDAC* TABLE
01776  M00S01108.1sj     +++|          STM    TDAC,T1
01777  M00S01109.1sj     +++|          UJN    DDA1        CONTINUE EST SCAN
01778  M00S01110.1sj     +++| EJA      SPACE  4,10
01779  M00S01111.1sj     +++|**        EJA - CALCULATE EJT ENTRY ADDRESS.
01780  M00S01112.1sj     +++|*
01781  M00S01113.1sj     +++|*         ENTRY  (EO) = EJT ORDINAL.
01782  M00S01114.1sj     +++|*
01783  M00S01115.1sj     +++|*         EXIT   (A) = EJT ENTRY ADDRESS.
01784  M00S01116.1sj     +++|*
01785  M00S01117.1sj     +++|*         MACROS CFI.
01786  M00S01118.1sj     +++|
01787  M00S01119.1sj     +++|
01788  M00S01120.1sj     +++| EJA      SUBR               ENTRY/EXIT
01789  M00S01121.1sj     +++|          CFI    EJT,EO      CALCULATE ENTRY OFFSET
01790  M00S01122.1sj     +++|          ADC    **
01791  M00S01123.1sj     +++| EJAA     EQU    *-1         (EJT FWA)
01792  M00S01124.1sj     +++|          UJN    EJAX        RETURN
01793  M00S01125.1sj     +++| INT      SPACE  4,10
01794  M00S01126.1sj     +++|**        INT - INITIALIZE CELLS FOR EJT/CM SCHEDULING.
01795  M00S01127.1sj     +++|*
01796  M00S01128.1sj     +++|*         ENTRY  (SCJC) .NE. 0 IF RECYCLE CALL.
01797  M00S01129.1sj     +++|*
01798  M00S01130.1sj     +++|*         USES   JP, JC, EP, RM - RM+1, RE, TM - TM+4, CM - CM+4.
Line S00049 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01799  M01S00049.ns22000 +++|*
01800  M01S00050.ns22000 +++|*         CALLS  SSA.
01801  M00S01131.1sj     +++|
01802  M00S01132.1sj     +++|
Line S00051 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01803  M01S00051.ns22000 +++| INT1     RJM    SSA         SET STATISTICAL AREA ADDRESS
01804  M01S00052.ns22000 +++|          CRM    SPST+JS0S*5,T1  READ SCHEDULER STATISTICS
01805  M01S00053.ns22000 +++|
01806  M00S01133.1sj     +++| INT      SUBR               ENTRY/EXIT
01807  M00S01134.1sj     +++|          LDN    0
01808  M00S01135.1sj     +++|          STD    JP          PRIORITY OF SELECTED JOB
01809  M00S01136.1sj     +++|          STD    JC          CP NUMBER OF JOB REQUESTING FL INCREASE
01810  M00S01137.1sj     +++|          STD    EP          EJT ORDINAL OF SELECTED JOB
01811  M00S01138.1sj     +++|          STD    RM          ROLLING CM ACCUMULATOR
01812  M00S01139.1sj     +++|          STD    RM+1
01813  M00S01140.1sj     +++|          STD    RE          ROLLING ECS ACCUMULATOR
01814  M00S01141.1sj     +++|          LDC    RTCL        READ REAL-TIME CLOCK
01815  M00S01142.1sj     +++|          CRD    TM
01816  M00S01143.1sj     +++|          LDM    SCJC
Line S01144 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01817  M01S01144.ns22000 ---|          ZJN    INTX        IF NOT RECYCLE
Line S00054 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01818  M01S00054.ns22000 +++|          ZJN    INT1        IF NOT RECYCLE
01819  M00S01145.1sj     +++|
01820  M00S01146.1sj     +++|*         RESET CELLS AND INSTRUCTIONS FOR RECYCLE.
01821  M00S01147.1sj     +++|
01822  M00S01148.1sj     +++|          LDN    0
01823  M00S01149.1sj     +++|          STM    SCJC
Line S00055 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01824  M01S00055.ns22000 +++|          STM    USDA
01825  M01S00056.ns22000 +++|          STM    USDB
01826  M01S00057.ns22000 +++|          STM    USDC
01827  M00S01150.1sj     +++|          STM    SCPA
01828  M00S01151.1sj     +++|          STM    SCPB
Line S00001 Modification History
M01 (Added by) 1sj8
M02 (Removed by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
01829  M02S00001.1sj14   ---|          STM    SFJG
01830  M00S01152.1sj     +++|          STM    SFJK
01831  M00S01153.1sj     +++|          STM    SFJL
Line S00001 Modification History
M01 (Added by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
01832  M01S00001.1sj14   +++|          LCN    0
01833  M01S00002.1sj14   +++|          STM    SFJG
Line S00002 Modification History
M01 (Added by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
01834  M01S00002.1sj8    +++|          STM    SFJM
Line S01154 Modification History
M01 (Removed by) 1sj7
Seq #  *Modification Id* Act 
----------------------------+
01835  M01S01154.1sj7    ---|          LDC    TEPB+2*MXJC
01836  M01S01155.1sj7    ---|          STM    ASJA
01837  M00S01156.1sj     +++|          LDC    LDDI+EP
01838  M00S01157.1sj     +++|          STM    SFJB
01839  M00S01158.1sj     +++|          LDC    SFJ29
01840  M00S01159.1sj     +++|          STM    SFJH
01841  M00S01160.1sj     +++|          LDC    LDDI+SC
01842  M00S01161.1sj     +++|          STM    SFJI
01843  M00S01162.1sj     +++|          LDM    CFLB
01844  M00S01163.1sj     +++|          STM    CFLA
01845  M00S01164.1sj     +++|          LDM    SFJQ
01846  M00S01165.1sj     +++|          STM    SFJC
Line S01166 Modification History
M01 (Removed by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
01847  M01S01166.ns2153  ---|          LDC    SODI+EO
Line S00007 Modification History
M01 (Added by) ns2153
Seq #  *Modification Id* Act 
----------------------------+
01848  M01S00007.ns2153  +++|          LDC    SOMI
01849  M00S01167.1sj     +++|          STM    SFJR
01850  M00S01168.1sj     +++|          LJM    INTX        RETURN
Line S01169 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01851  M01S01169.271l716 ---| IRL      SPACE  4,10
01852  M01S01170.271l716 ---|**        IRL - INITIALIZE RECALL AREA LINKS.
01853  M01S01171.271l716 ---|*
01854  M01S01172.271l716 ---|*         USES   CM - CM+4.
01855  M01S01173.271l716 ---|*
01856  M01S01174.271l716 ---|*         MACROS MONITOR.
01857  M01S01175.271l716 ---|
01858  M01S01176.271l716 ---|
01859  M01S01177.271l716 ---| IRL      SUBR               ENTRY/EXIT
01860  M01S01178.271l716 ---|          LDN    ZERL
01861  M01S01179.271l716 ---|          CRD    CM
01862  M01S01180.271l716 ---|          AOD    CM+4
01863  M01S01181.271l716 ---| IRL1     AOD    CM+4
01864  M01S01182.271l716 ---|          ADC    RCCW-2
01865  M01S01183.271l716 ---|          ADD    CP
01866  M01S01184.271l716 ---|          CWD    CM
01867  M01S01185.271l716 ---|          LDD    CM+4
01868  M01S01186.271l716 ---|          LMN    LREC
01869  M01S01187.271l716 ---|          NJN    IRL1        IF INCOMPLETE
01870  M01S01188.271l716 ---|          LDD    CP          SET CPA ADDRESS FOR *UTEM*
01871  M01S01189.271l716 ---|          STD    CM+4
01872  M01S01190.271l716 ---|          LDN    IRLAL       SET PARAMETER COUNT
01873  M01S01191.271l716 ---|          STD    CM+1
01874  M01S01192.271l716 ---|          LDD    MA
01875  M01S01193.271l716 ---|          CWM    IRLA,ON
01876  M01S01194.271l716 ---|          MONITOR  UTEM
01877  M01S01195.271l716 ---|          UJN    IRLX        RETURN
01878  M01S01196.271l716 ---|
01879  M01S01197.271l716 ---|
01880  M01S01198.271l716 ---|*         *UTEM* PARAMETER BLOCK.
01881  M01S01199.271l716 ---|
01882  M01S01200.271l716 ---| IRLA     VFD    1/0,5/STSW,6/12D  RECALL STACK POINTER
01883  M01S01201.271l716 ---|          VFD    6/0,6/0
01884  M01S01202.271l716 ---|          CON    0,0,1
01885  M01S01203.271l716 ---|
01886  M01S01204.271l716 ---| IRLAL    EQU    */5-IRLA/5
01887  M00S01205.1sj     +++| IRR      SPACE  4,15
01888  M00S01206.1sj     +++|**        IRR - ISSUE ROLLOUT REQUEST.
01889  M00S01207.1sj     +++|*
Line S01208 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01890  M01S01208.271l716 ---|*         ENTRY  (A) = 1/  0,11/  OP,6/  CP.
Line S00267 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01891  M01S00267.271l716 +++|*         ENTRY  (A) = 6/  OP,12/  CP.
01892  M00S01209.1sj     +++|*                      OP    *ROCM* OPTIONS.
Line S01210 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01893  M01S01210.271l716 ---|*                      CP    CONTROL POINT TO ROLLOUT.
Line S00268 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01894  M01S00268.271l716 +++|*                      CP    CP/PCP TO ROLL.
01895  M00S01211.1sj     +++|*
01896  M00S01212.1sj     +++|*         EXIT   (A) = 0 IF ROLLOUT REQUEST WAS ACCEPTED.
Line S00058 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01897  M01S00058.ns22000 +++|*                JOBS PREEMPTED STATISTIC UPDATED.
01898  M00S01213.1sj     +++|*
01899  M00S01214.1sj     +++|*         USES   CM - CM+4.
01900  M00S01215.1sj     +++|*
01901  M00S01216.1sj     +++|*         MACROS MONITOR.
01902  M00S01217.1sj     +++|
01903  M00S01218.1sj     +++|
01904  M00S01219.1sj     +++| IRR      SUBR               ENTRY/EXIT
Line S01220 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01905  M01S01220.271l716 ---|          SHN    14
01906  M01S01221.271l716 ---|          LMC    4000        SET ALTERNATE CP OPTION
01907  M01S01222.271l716 ---|          STD    CM+1
01908  M01S01223.271l716 ---|          SHN    -14
01909  M01S01224.271l716 ---|          STD    CM+2
Line S00269 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01910  M01S00269.271l716 +++|          STD    CM+2        STORE CP/PCP NUMBER
01911  M01S00270.271l716 +++|          SHN    -14
01912  M01S00271.271l716 +++|          LMC    4000        SET ALTERNATE CP/PCP OPTION
01913  M01S00272.271l716 +++|          STD    CM+1
Line S00059 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01914  M01S00059.ns22000 +++|          AOM    SPST+JS1S*5+2  INCREMENT JOBS PREEMPTED
01915  M01S00060.ns22000 +++|          SHN    -14
01916  M01S00061.ns22000 +++|          RAM    SPST+JS1S*5+1
Line S01225 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01917  M01S01225.271l716 ---| IRR1     MONITOR  ROCM      REQUEST ROLLOUT
Line S00273 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01918  M01S00273.271l716 +++|          MONITOR  ROCM      REQUEST ROLLOUT
01919  M00S01226.1sj     +++|          LDD    CM+1
01920  M00S01227.1sj     +++|          UJN    IRRX        RETURN
01921  M00S01228.1sj     +++| IUT      SPACE  4,20
01922  M00S01229.1sj     +++|**        IUT - ISSUE *UTEM* MONITOR FUNCTION.
01923  M00S01230.1sj     +++|*
01924  M00S01231.1sj     +++|*         ENTRY  (A) = 1/ F,1/ I,1/ 0,3/ C,12/ P
01925  M00S01232.1sj     +++|*                      F = 0 IF EJT ENTRY UPDATE.
01926  M00S01233.1sj     +++|*                        = 1 IF QFT ENTRY UPDATE.
01927  M00S01234.1sj     +++|*                      I = 0 IF INTERLOCK SHOULD BE SET.
01928  M00S01235.1sj     +++|*                        = 1 IF INTERLOCK SHOULD BE CLEARED.
01929  M00S01236.1sj     +++|*                      C = NUMBER OF *UTEM* PARAMETER WORDS.
01930  M00S01237.1sj     +++|*                        = 0 IF INTERLOCK REQUEST.
01931  M00S01238.1sj     +++|*                      P = PARAMETER LIST ADDRESS.
01932  M00S01239.1sj     +++|*
01933  M00S01240.1sj     +++|*         EXIT   (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL.
01934  M00S01241.1sj     +++|*                    .NE. 0 IF *UTEM* VERIFICATION FAILED.
01935  M00S01242.1sj     +++|*
01936  M00S01243.1sj     +++|*         USES   CM - CM+4.
01937  M00S01244.1sj     +++|*
01938  M00S01245.1sj     +++|*         CALLS  EJA, IOA.
01939  M00S01246.1sj     +++|*
01940  M00S01247.1sj     +++|*         MACROS MONITOR.
01941  M00S01248.1sj     +++|
01942  M00S01249.1sj     +++|
01943  M00S01250.1sj     +++| IUT      SUBR               ENTRY/EXIT
01944  M00S01251.1sj     +++|          STM    IUTB        PARAMETER LIST ADDRESS
01945  M00S01252.1sj     +++|          LPC    -7777
01946  M00S01253.1sj     +++|          SHN    1
01947  M00S01254.1sj     +++|          STD    CM          TABLE INDICATOR
01948  M00S01255.1sj     +++|          SCN    1           SAVE INTERLOCK FLAG
01949  M00S01256.1sj     +++|          SHN    1
01950  M00S01257.1sj     +++|          STD    CM+2
01951  M00S01258.1sj     +++|          SHN    -14-2
01952  M00S01259.1sj     +++|          STD    CM+1        NUMBER OF PARAMETER WORDS
01953  M00S01260.1sj     +++|          LDM    IUTC,CM     USE TABLE FLAG TO SET SUBROUTINE ADDRESS
01954  M00S01261.1sj     +++|          STM    IUTA
01955  M00S01262.1sj     +++|          RJM    **          CALCULATE TABLE ADDRESS
01956  M00S01263.1sj     +++| IUTA     EQU    *-1
01957  M00S01264.1sj     +++|          STD    CM+4
01958  M00S01265.1sj     +++|          SHN    -14
01959  M00S01266.1sj     +++|          STD    CM+3
01960  M00S01267.1sj     +++|          LDD    CM+1
01961  M00S01268.1sj     +++|          ZJN    IUT1        IF NO PARAMETER WORDS
01962  M00S01269.1sj     +++|          LDD    MA          WRITE PARAMETERS TO MESSAGE BUFFER
01963  M00S01270.1sj     +++|          CWM    **,CM+1
01964  M00S01271.1sj     +++| IUTB     EQU    *-1
01965  M00S01272.1sj     +++| IUT1     LDD    CM+2        SET/CLEAR INTERLOCK FLAG
01966  M00S01273.1sj     +++|          SHN    5
01967  M00S01274.1sj     +++|          RAD    CM+1
01968  M00S01275.1sj     +++|          LDN    0
01969  M00S01276.1sj     +++|          STD    CM+2
01970  M00S01277.1sj     +++|          MONITOR  UTEM
01971  M00S01278.1sj     +++|          LDD    CM+1
01972  M00S01279.1sj     +++|          LJM    IUTX        RETURN
01973  M00S01280.1sj     +++|
01974  M00S01281.1sj     +++| IUTC     CON    EJA         CALCULATE EJT ENTRY ADDRESS
Line S01282 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01975  M01S01282.271l716 ---|          CON    /3SC/IOA    CALCULATE QFT ENTRY ADDRESS
Line S00274 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01976  M01S00274.271l716 +++|          CON    /3SB/IOA    CALCULATE QFT ENTRY ADDRESS
01977  M01S00275.271l716 +++| RST      SPACE  4,15
01978  M01S00276.271l716 +++|**        RST - REQUEST STORAGE.
01979  M01S00277.271l716 +++|*
01980  M01S00278.271l716 +++|*         ENTRY  (A) = 6/ T,12/ FL.
01981  M01S00279.271l716 +++|*                      T  = MEMORY TYPE.  0 IF CM, 1 IF EM.
01982  M01S00280.271l716 +++|*                      FL = STORAGE AMOUNT.
01983  M01S00281.271l716 +++|*                (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
01984  M01S00282.271l716 +++|*                (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
01985  M01S00283.271l716 +++|*
01986  M01S00284.271l716 +++|*         EXIT   (A) = 0 IF REQUEST ACCEPTED, ELSE NON-ZERO.
01987  M01S00285.271l716 +++|*
01988  M01S00286.271l716 +++|*         USES   CM - CM+4.
01989  M01S00287.271l716 +++|*
01990  M01S00288.271l716 +++|*         MACROS MONITOR.
01991  M01S00289.271l716 +++|
01992  M01S00290.271l716 +++|
01993  M01S00291.271l716 +++| RST      SUBR               ENTRY/EXIT
01994  M01S00292.271l716 +++|          STD    CM+1        SET FL
01995  M01S00293.271l716 +++|          SHN    -14         SET REQUEST TYPE
01996  M01S00294.271l716 +++|          STD    CM+2
01997  M01S00295.271l716 +++|          LDD    EJ+4
01998  M01S00296.271l716 +++|          SHN    -1
01999  M01S00297.271l716 +++|          LPN    37
02000  M01S00298.271l716 +++|          LMK    PCJS
02001  M01S00299.271l716 +++|          NJN    RST1        IF JOB NOT AT PCP
Line S00300 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02002  M02S00300.273l780 ---|          LDC    5000        SET PCP FLAG, PSEUDO-ROLLIN FLAG
Line S00042 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02003  M01S00042.273l780 +++|          LDC    4000        SET PSEUDO-ROLLIN FLAG
Line S00301 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02004  M01S00301.271l716 +++|          RAD    CM+2
02005  M01S00302.271l716 +++|          LDD    AA+1        STORE PCP NUMBER IN *RSTM* REQUEST
02006  M01S00303.271l716 +++|          STD    CM+3
02007  M01S00304.271l716 +++| RST1     MONITOR  RSTM      REQUEST STORAGE
02008  M01S00305.271l716 +++|          LDD    CM+1        RETURN STATUS IN (A)
02009  M01S00306.271l716 +++|          UJN    RSTX        RETURN
02010  M00S01283.1sj     +++| SCP      SPACE  4,25
02011  M00S01284.1sj     +++|**        SCP - SELECT CONTROL POINT.
02012  M00S01285.1sj     +++|*
Line S01286 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02013  M01S01286.271l716 ---|*         SELECT THE BEST CONTROL POINT FOR THE JOB BEING SCHEDULED.
02014  M01S01287.271l716 ---|*         THE MOST DESIRABLE CP IS ONE PROVIDING AN EXACT FIT OF THE
02015  M01S01288.271l716 ---|*         JOB-S REQUIRED CM. THE SECOND BEST CP IS ONE PROVIDING THE
02016  M01S01289.271l716 ---|*         SMALLEST AMOUNT OF CM LARGE ENOUGH TO ACCOMMODATE THE JOB-S
02017  M01S01290.271l716 ---|*         CM. THE THIRD BEST CP IS THE ONE WITH THE MOST CM ASSIGNED.
02018  M01S01291.271l716 ---|*
Line S01292 Modification History
M01 (Removed by) 1sj16
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02019  M02S01292.271l716 ---|*         ENTRY  (JC) = 0.
02020  M02S01293.271l716 ---|*                (NC) = NUMBER OF CONTROL POINTS.
Line S00002 Modification History
M01 (Added by) 1sj16
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02021  M02S00002.271l716 ---|*         ENTRY  (T1) = INITIAL SEARCH INDEX.
02022  M02S00003.271l716 ---|*                (JC) = 0.
02023  M02S00004.271l716 ---|*                (NC) = LAST CONTROL POINT TO PROCESS.
Line S01294 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02024  M01S01294.271l716 ---|*                (JM) = CM FL REQUIRED BY SELECTED JOB.
02025  M01S01295.271l716 ---|*                (TE) = LWA OF *TACP* TABLE.
Line S00307 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02026  M01S00307.271l716 +++|*         ENTRY  (JC) = 0.
02027  M00S01296.1sj     +++|*                (JP) = SCHEDULING PRIORITY OF SELECTED JOB.
Line S00308 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02028  M01S00308.271l716 +++|*                (TE) = LWA OF *TACP* TABLE.
02029  M00S01297.1sj     +++|*
Line S01298 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02030  M01S01298.271l716 ---|*         EXIT   (JC) = CONTROL POINT NUMBER TO WHICH JOB SHOULD BE
Line S00309 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02031  M01S00309.271l716 +++|*         EXIT   (A) = (JC) = CP NUMBER IF ONE IS AVAILABLE.
02032  M01S00310.271l716 +++|*                           = 0 IF NO CP IS AVAILABLE.
Line S01299 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02033  M01S01299.271l716 ---|*                       SCHEDULED.
02034  M01S01300.271l716 ---|*                     = 0 IF ALL CONTROL POINTS ARE OCCUPIED
Line S00311 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02035  M01S00311.271l716 +++|*                    .LT. 0 IF PCP JOB WAS SELECTED BUT ONLY FIRST OR
02036  M01S00312.271l716 +++|*                           LAST CP IS AVAILABLE.
02037  M00S01301.1sj     +++|*
Line S01302 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02038  M01S01302.271l716 ---|*         USES   T1 - T6, CM - CM+4, AA - AA+4.
Line S00313 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02039  M01S00313.271l716 +++|*         USES   AE, AM - AM+1, T0 - T2.
02040  M00S01303.1sj     +++|*
Line S01304 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02041  M01S01304.271l716 ---|*         CALLS  IRR.
Line S00314 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02042  M01S00314.271l716 +++|*         CALLS  CCP, IRR.
02043  M00S01305.1sj     +++|
02044  M00S01306.1sj     +++|
Line S01307 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02045  M01S01307.271l716 ---|*         IF NO ROLLOUTS ARE IN PROGRESS, REQUEST ROLLOUT OF THE LOWEST
02046  M01S01308.271l716 ---|*         PRIORITY JOB WHOSE PRIORITY IS LOWER THAN THE SELECTED JOB-S.
02047  M01S01309.271l716 ---|
02048  M01S01310.271l716 ---| SCP9     LDC    **
02049  M01S01311.271l716 ---| SCPB     EQU    *-1         (ROLLOUT IN PROGRESS FLAG)
02050  M01S01312.271l716 ---|          NJN    SCPX        IF ROLLOUT IN PROGRESS
02051  M01S01313.271l716 ---|          LDD    TE
02052  M01S01314.271l716 ---|          SBN    1
02053  M01S01315.271l716 ---|          STD    T1
02054  M01S01316.271l716 ---|          LDI    T1
02055  M01S01317.271l716 ---|          ZJN    SCPX        IF *TACP* TABLE IS EMPTY
02056  M01S01318.271l716 ---|          STD    CM+2
02057  M01S01319.271l716 ---|          LDM    TJPR-1,CM+2
02058  M01S01320.271l716 ---|          SBD    JP
02059  M01S01321.271l716 ---|          PJN    SCPX        IF LOWEST PRIORITY .GE. SELECTED JOB-S
02060  M01S01322.271l716 ---|          LDD    CM+2
02061  M01S01323.271l716 ---|          RJM    IRR         ISSUE ROLLOUT REQUEST
02062  M01S01324.271l716 ---|
02063  M01S01325.271l716 ---| SCP      SUBR               ENTRY/EXIT
02064  M01S01326.271l716 ---|          LDN    0
Line S01327 Modification History
M01 (Removed by) 1sj16
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02065  M02S01327.271l716 ---|          STD    T1          INITIALIZE CURRENT CP NUMBER
Line S01328 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02066  M01S01328.271l716 ---|          STD    T3          INITIALIZE PREVIOUS BLOCK SIZE
02067  M01S01329.271l716 ---|          STD    T4
02068  M01S01330.271l716 ---|          LDC    **
02069  M01S01331.271l716 ---| SCPA     EQU    *-1         (CONTROL POINT AVAILABLE FLAG)
02070  M01S01332.271l716 ---|          ZJN    SCP9        IF NO CONTROL POINT IS AVAILABLE
02071  M01S01333.271l716 ---|          LDN    CMRL
02072  M01S01334.271l716 ---|          CRD    AA
02073  M01S01335.271l716 ---| SCP1     LDD    AA+2        SAVE RA+FL OF PREVIOUS OCCUPIED CP
02074  M01S01336.271l716 ---|          SHN    14
02075  M01S01337.271l716 ---|          LMD    AA+3
02076  M01S01338.271l716 ---|          ADD    AA+4
02077  M01S01339.271l716 ---|          STD    T6
02078  M01S01340.271l716 ---|          SHN    -14
02079  M01S01341.271l716 ---|          STD    T5
02080  M01S01342.271l716 ---|          AOD    T1          INCREMENT CONTROL POINT NUMBER
02081  M01S01343.271l716 ---|          SBD    NC
02082  M01S01344.271l716 ---|          PJN    SCPX        IF ALL CONTROL POINTS HAVE BEEN CHECKED
02083  M01S01345.271l716 ---|          LDD    T1
02084  M01S01346.271l716 ---|          SHN    7
02085  M01S01347.271l716 ---|          ADN    FLSW
02086  M01S01348.271l716 ---|          CRD    AA
02087  M01S01349.271l716 ---|          ADN    TFSW-FLSW
02088  M01S01350.271l716 ---|          CRD    CM
02089  M01S01351.271l716 ---|          LDD    CM
02090  M01S01352.271l716 ---|          NJN    SCP1        IF CONTROL POINT IS OCCUPIED
02091  M01S01353.271l716 ---|
02092  M01S01354.271l716 ---|*         THE START OF AN EMPTY BLOCK HAS BEEN FOUND.
02093  M01S01355.271l716 ---|
02094  M01S01356.271l716 ---|          LDD    T1          SAVE THIS CP NUMBER AS 1ST OF EMPTY BLOCK
02095  M01S01357.271l716 ---|          STD    T2
02096  M01S01358.271l716 ---|
02097  M01S01359.271l716 ---|*         SEARCH FOR END OF THIS EMPTY BLOCK (NEXT OCCUPIED CP).
02098  M01S01360.271l716 ---|
02099  M01S01361.271l716 ---| SCP2     AOD    T1          INCREMENT CONTROL POINT NUMBER
02100  M01S01362.271l716 ---|          LMD    NC
02101  M01S01363.271l716 ---|          ZJN    SCP3        IF LAST CONTROL POINT
02102  M01S01364.271l716 ---|          LDD    T1
02103  M01S01365.271l716 ---|          SHN    7
02104  M01S01366.271l716 ---|          ADN    FLSW
02105  M01S01367.271l716 ---|          CRD    AA
02106  M01S01368.271l716 ---|          ADN    TFSW-FLSW
02107  M01S01369.271l716 ---|          CRD    CM
02108  M01S01370.271l716 ---|          LDD    CM
02109  M01S01371.271l716 ---|          ZJN    SCP2        IF UNOCCUPIED CONTROL POINT
02110  M01S01372.271l716 ---|          UJN    SCP4        CALCULATE EMPTY BLOCK SIZE
02111  M01S01373.271l716 ---|
02112  M01S01374.271l716 ---|*         THE END OF THE EMPTY BLOCK HAS BEEN FOUND.
02113  M01S01375.271l716 ---|
Line S01376 Modification History
M01 (Removed by) ns21000
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02114  M02S01376.271l716 ---| SCP3     LDC    SABL        READ MACHINE FL WORD
Line S00005 Modification History
M01 (Added by) ns21000
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02115  M02S00005.271l716 ---| SCP3     LDK    MABL        READ MACHINE FL
Line S01377 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02116  M01S01377.271l716 ---|          CRD    AA
02117  M01S01378.271l716 ---|          LDD    AA+2
02118  M01S01379.271l716 ---|          STD    AA+3
02119  M01S01380.271l716 ---|          LDD    AA+1
02120  M01S01381.271l716 ---|          STD    AA+2
02121  M01S01382.271l716 ---|          LDN    0
02122  M01S01383.271l716 ---|          STD    AA
02123  M01S01384.271l716 ---| SCP4     LDD    AA+2        CALCULATE BLOCK SIZE
02124  M01S01385.271l716 ---|          SBD    T5
02125  M01S01386.271l716 ---|          SHN    14
02126  M01S01387.271l716 ---|          LMD    AA+3
02127  M01S01388.271l716 ---|          SBD    T6
02128  M01S01389.271l716 ---|          SBD    AA
02129  M01S01390.271l716 ---|          STD    T6
02130  M01S01391.271l716 ---|          SHN    -14
02131  M01S01392.271l716 ---|          STD    T5
02132  M01S01393.271l716 ---|          SBD    T3
02133  M01S01394.271l716 ---|          NJN    SCP5        IF NEW .NE. PREVIOUS BLOCK SIZE
02134  M01S01395.271l716 ---|          LDD    T6
02135  M01S01396.271l716 ---|          SBD    T4
02136  M01S01397.271l716 ---| SCP5     MJN    SCP7        IF NEW .LT. PREVIOUS BLOCK SIZE
02137  M01S01398.271l716 ---|          LDD    T3
02138  M01S01399.271l716 ---|          SHN    14
02139  M01S01400.271l716 ---|          LMD    T4
02140  M01S01401.271l716 ---|          ZJN    SCP8        IF NO ADEQUATE BLOCK HAS BEEN FOUND YET
02141  M01S01402.271l716 ---|          SBD    JM
02142  M01S01403.271l716 ---|          MJN    SCP8        IF OLD BLOCK IS TOO SMALL
02143  M01S01404.271l716 ---| SCP6     LJM    SCP1        CONTINUE BLOCK SELECTION PROCESS
02144  M01S01405.271l716 ---|
02145  M01S01406.271l716 ---| SCP7     LDD    T5
02146  M01S01407.271l716 ---|          SHN    14
02147  M01S01408.271l716 ---|          LMD    T6
02148  M01S01409.271l716 ---|          SBD    JM
02149  M01S01410.271l716 ---|          MJN    SCP6        IF NEW BLOCK SIZE .LT. REQUIRED AMOUNT
02150  M01S01411.271l716 ---| SCP8     LDD    T2          MAKE THIS BLOCK CURRENT BEST
02151  M01S01412.271l716 ---|          STD    JC
02152  M01S01413.271l716 ---|          LDD    T6
02153  M01S01414.271l716 ---|          STD    T4
02154  M01S01415.271l716 ---|          LDD    T5
02155  M01S01416.271l716 ---|          STD    T3
02156  M01S01417.271l716 ---|          SHN    14
02157  M01S01418.271l716 ---|          LMD    T4
02158  M01S01419.271l716 ---|          SBD    JM
02159  M01S01420.271l716 ---|          NJN    SCP6        IF NOT EXACT FIT
02160  M01S01421.271l716 ---|          LJM    SCPX        RETURN
Line S00315 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02161  M01S00315.271l716 +++| SCP8     LDN    0           SET EXIT CONDITION = NO CP AVAILABLE
02162  M01S00316.271l716 +++| SCP9     STD    JC          SET CP NUMBER
02163  M01S00317.271l716 +++|
02164  M01S00318.271l716 +++| SCP      SUBR               ENTRY/EXIT
02165  M01S00319.271l716 +++|          LDM    ASJA
02166  M01S00320.271l716 +++|          LPN    76
02167  M01S00321.271l716 +++|          LMK    PCJS*2
02168  M01S00322.271l716 +++|          STD    T0
02169  M01S00323.271l716 +++|          NJN    SCP2        IF SELECTED JOB NOT AT PCP
02170  M01S00324.271l716 +++|          LDM    SCPA
02171  M01S00325.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02172  M01S00326.271l716 +++|          NJN    SCP1        IF FREE CP NEITHER FIRST NOR LAST
02173  M01S00327.271l716 +++|          STM    SCPA        CLEAR FREE CP NUMBER
02174  M01S00328.271l716 +++|          AOM    SCPC
02175  M01S00329.271l716 +++| SCP1     LDM    SCPB
02176  M01S00330.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02177  M01S00331.271l716 +++|          NJN    SCP2        IF ROLLING CP NEITHER FIRST NOR LAST
02178  M01S00332.271l716 +++|          STM    SCPB        CLEAR ROLLING CP NUMBER
02179  M01S00333.271l716 +++|          AOM    SCPC
02180  M01S00334.271l716 +++| SCP2     LDC    **          (NUMBER OF AVAILABLE CP)
02181  M01S00335.271l716 +++| SCPA     EQU    *-1
02182  M01S00336.271l716 +++|          NJN    SCP9        IF THERE IS AN AVAILABLE CONTROL POINT
02183  M01S00337.271l716 +++|          LDC    **          (NUMBER OF ROLLING CP)
02184  M01S00338.271l716 +++| SCPB     EQU    *-1
02185  M01S00339.271l716 +++|          NJP    SCP8        IF CP JOB IS ALREADY BEING ROLLED
02186  M01S00340.271l716 +++|          LDD    TE          SET *TACP* POINTER
02187  M01S00341.271l716 +++|          STD    T1
02188  M01S00342.271l716 +++| SCP3     SOD    T1          DECREMENT *TACP* INDEX
02189  M01S00343.271l716 +++|          LDI    T1
02190  M01S00344.271l716 +++|          NJN    SCP3.3      IF NOT END OF SEARCH
02191  M01S00345.271l716 +++| SCP3.1   LDN    0
02192  M01S00346.271l716 +++|*         LDN    1 OR 2      PCP JOB AND UNUSABLE CP FREE/ROLLING
02193  M01S00347.271l716 +++| SCPC     EQU    *-1
02194  M01S00348.271l716 +++|          ZJN    SCP3.2      IF NO NEED TO BLOCK PCP JOB SCHEDULING
02195  M01S00349.271l716 +++|          AOM    SFJY        INHIBIT PCP JOB SCHEDULING
02196  M01S00350.271l716 +++|          LCN    0
02197  M01S00351.271l716 +++| SCP3.2   UJP    SCPX        RETURN
02198  M01S00352.271l716 +++|
02199  M01S00353.271l716 +++| SCP3.3   STD    T2
02200  M01S00354.271l716 +++|          SBD    NC
02201  M01S00355.271l716 +++|          PJN    SCP3        IF PCP JOB
02202  M01S00356.271l716 +++|          LDM    TJPR-1,T2
02203  M01S00357.271l716 +++|          SBD    JP
02204  M01S00358.271l716 +++|          PJN    SCP3.1      IF LOWEST PRIORITY .GE. SELECTED JOB
02205  M01S00359.271l716 +++|          LDD    T2
02206  M01S00360.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02207  M01S00361.271l716 +++|          NJN    SCP4        IF NEITHER FIRST NOR LAST CP
02208  M01S00362.271l716 +++|          LDD    T0
02209  M01S00363.271l716 +++|          ZJN    SCP3        IF SELECTED JOB AT PCP
02210  M01S00364.271l716 +++| SCP4     LDC    2000        CAUSE *CFL* TO IGNORE THIS CP
02211  M01S00365.271l716 +++|          RAI    T1
02212  M01S00366.271l716 +++|          LDM    TJCM-1,T2   ACCUMULATE ROLLING CM FL
02213  M01S00367.271l716 +++|          RAD    AM+1
02214  M01S00368.271l716 +++|          SHN    -14
02215  M01S00369.271l716 +++|          RAD    AM
02216  M01S00370.271l716 +++|          LDM    TJEC-1,T2   ACCUMULATE ROLLING EM FL
02217  M01S00371.271l716 +++|          RAD    AE
02218  M01S00372.271l716 +++|          LDD    T2
02219  M01S00373.271l716 +++|          RJM    CCP         CHECK FOR FIRST/LAST CP
02220  M01S00374.271l716 +++|          NJN    SCP5        IF NEITHER FIRST NOR LAST CP
02221  M01S00375.271l716 +++|*         LDN    0           DISALLOW PSEUDO-ROLLOUT OF CP 1 JOB
02222  M01S00376.271l716 +++|          ERRNZ  /CPS/ROSR   CODE DEPENDS ON VALUE
02223  M01S00377.271l716 +++|          UJN    SCP6        ISSUE ROLLOUT REQUEST
02224  M01S00378.271l716 +++|
02225  M01S00379.271l716 +++| SCP5     LDC    /CPS/ROPR*10000  ALLOW PSEUDO-ROLLOUT
02226  M01S00380.271l716 +++| SCP6     LMD    T2
02227  M01S00381.271l716 +++|          RJM    IRR         ISSUE ROLLOUT REQUEST
02228  M01S00382.271l716 +++| SCP7     UJP    SCP8        RETURN
02229  M00S01422.1sj     +++| SFJ      SPACE  4,25
02230  M00S01423.1sj     +++|**        SFJ - SEARCH FOR JOB.
02231  M00S01424.1sj     +++|*
02232  M00S01425.1sj     +++|*         SCAN THE EJT LOOKING FOR THE HIGHEST PRIORITY JOB IN A
02233  M00S01426.1sj     +++|*         SCHEDULABLE JOB STATE THAT MAY BE SCHEDULED WITHIN THE BOUNDS
02234  M00S01427.1sj     +++|*         OF AVAILABLE CM/ECS AND SERVICE CLASS RESOURCE CONSTRAINTS.
02235  M00S01428.1sj     +++|*
02236  M00S01429.1sj     +++|*         ENTRY  (EP) = 0.
02237  M00S01430.1sj     +++|*                (TM - TM+1) = SECONDS PORTION OF *RTCL*.
02238  M00S01431.1sj     +++|*                (TE) = LWA OF *TACP* TABLE.
02239  M00S01432.1sj     +++|*
02240  M00S01433.1sj     +++|*         EXIT   (EP) = EJT ORDINAL OF SELECTED JOB.
02241  M00S01434.1sj     +++|*                     = 0 IF NO SCHEDULABLE JOB FOUND.
02242  M00S01435.1sj     +++|*                (CS - CS+1) = EXCESS CM IN SERVICE CLASS.
02243  M00S01436.1sj     +++|*                (ES) = EXCESS ECS IN SERVICE CLASS.
02244  M00S01437.1sj     +++|*                (JP) = SCHEDULING PRIORITY OF SELECTED JOB.
02245  M00S01438.1sj     +++|*                (JM) = CM REQUIRED BY SELECTED JOB.
02246  M00S01439.1sj     +++|*                (JE) = ECS REQUIRED BY SELECTED JOB.
02247  M00S01440.1sj     +++|*                (SP) = SERVICE CLASS OF SELECTED JOB.
02248  M00S01441.1sj     +++|*
02249  M00S01442.1sj     +++|*         USES   T0 - T7, CM - CM+4, AA - AA+4, BB - BB+4, EO,
02250  M00S01443.1sj     +++|*                CS - CS+1, ES, EJ - EJ+4, SC, EP, SP, JP, JM, JE, TP.
02251  M00S01444.1sj     +++|*
Line S00001 Modification History
M01 (Added by) ns2395
Seq #  *Modification Id* Act 
----------------------------+
02252  M01S00001.ns2395  +++|*         CALLS  IUT.
02253  M01S00002.ns2395  +++|*
02254  M00S01445.1sj     +++|*         MACROS CFI.
02255  M00S01446.1sj     +++|
02256  M00S01447.1sj     +++|
Line S01448 Modification History
M01 (Removed by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02257  M01S01448.1sj8    ---| SFJ33    LDC    **
02258  M01S01449.1sj8    ---| SFJK     EQU    *-1         (POTENTIAL CANDIDATE COUNT)
02259  M01S01450.1sj8    ---|          SBN    2
02260  M01S01451.1sj8    ---|          MJN    SFJX        IF LESS THAN 2 SCHEDULABLE JOBS FOUND
02261  M01S01452.1sj8    ---|          LDC    **
02262  M01S01453.1sj8    ---| SFJL     EQU    *-1         (MULTIPLE SCHEDULABLE JOB COUNT)
02263  M01S01454.1sj8    ---|          ZJN    SFJ34       IF ANOTHER SCHEDULABLE JOB MIGHT EXIST
02264  M01S01455.1sj8    ---|          LDC    **          2ND SCHEDULABLE JOB EXISTS, CHECK ACTIVITY
Line S00003 Modification History
M01 (Added by) 1sj8
Seq #  *Modification Id* Act 
----------------------------+
02265  M01S00003.1sj8    +++| SFJ33    LDC    7777
02266  M00S01456.1sj     +++| SFJM     EQU    *-1         (2ND BEST JOB-S DEVICE ACTIVITY)
Line S01457 Modification History
M01 (Removed by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
02267  M01S01457.1sj14   ---|          SBN    3
02268  M01S01458.1sj14   ---|          PJN    SFJX        IF EXCESSIVE DISK ACTIVITY ON 2ND BEST JOB
Line S01459 Modification History
M01 (Removed by) 1sj8
M02 (Removed by) 1sj14
Seq #  *Modification Id* Act 
----------------------------+
02269  M02S01459.1sj14   ---| SFJ34    AOM    SCJC        SET RECYCLE FLAG IN *SCJ*
Proceed to Part 2