User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1sj.001

Deck 1SJ Part 001

101 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00494 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00494.273l780 ---|          NJN    ASJ4        IF *CCAM* FAILED
Line S00495 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00791  M03S00495.273l780 ---|          UJN    ASJ1        TERMINATE SCHEDULING ATTEMPT
Line S00126 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00126.273l780 ---|          UJP    ASJ1        TERMINATE SCHEDULING ATTEMPT
00793  M01S00007.273l780 +++|          LDN    1           SET JOB NOT SCHEDULED
00794  M01S00008.273l780 +++|          UJP    ASJX        TERMINATE SCHEDULING ATTEMPT
00795  M01S00496.1sj     +++|
00796  M01S00497.1sj     +++|*         REQUEST ECS.
00797  M01S00498.1sj     +++|
00798  M01S00499.1sj     +++| ASJ5     LDD    JE
00799  M01S00500.1sj     +++|          ZJN    ASJ6        IF NO ECS REQUESTED
Line S00501 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00501.271l716 ---|          STD    CM+1
Line S00502 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00502.271l716 ---|          LDN    1           TELL *MTR* ITS AN ECS REQUEST
Line S00503 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00503.271l716 ---|          STD    CM+2
Line S00504 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00504.271l716 ---|          MONITOR  RSTM      REQUEST ECS FL
Line S00505 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00505.271l716 ---|          LDD    CM+1
00805  M01S00127.271l716 +++|          LMC    10000
00806  M01S00128.271l716 +++|          RJM    RST         REQUEST EM STORAGE
00807  M01S00506.1sj     +++|          ZJN    ASJ6        IF FUNCTION ACCEPTED
Line S00507 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj11
Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00507.1sj11   ---|          LDN    0           TELL *MTR* TO RELEASE STORAGE
Line S00003 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00003.271l716 ---| ASJ5.1   LDN    0           TELL *MTR* TO RELEASE STORAGE
Line S00508 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00508.271l716 ---|          STD    CM+1
Line S00509 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00509.271l716 ---|          STD    CM+2
Line S00510 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00510.271l716 ---|          MONITOR  RSTM      RELEASE CM FL
00813  M01S00129.271l716 +++| ASJ5.1   LDN    0           RELEASE CM FL
00814  M01S00130.271l716 +++|          RJM    RST
00815  M01S00131.271l716 +++|          LDC    10000       RELEASE EM FL
00816  M01S00132.271l716 +++|          RJM    RST
Line S00511 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00511.271l716 ---|          UJN    ASJ3        TERMINATE SCHEDULING ATTEMPT
00818  M01S00133.271l716 +++|          UJP    ASJ3        TERMINATE SCHEDULING ATTEMPT
00819  M01S00512.1sj     +++|
Line S00513 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00513.271l716 ---| ASJ6     RJM    EJA         CALCULATE EJT ENTRY ADDRESS
Line S00514 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00514.271l716 ---|          ADK    JSNE
Line S00515 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00515.271l716 ---|          CRD    EJ
Line S00516 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00516.271l716 ---|          ADN    SCHE-JSNE
Line S00517 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00517.271l716 ---|          CRD    AA
Line S00001 Modification History
M01 (Added by) ns2153
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00001.271l716 ---|          LDK    LOSL        SAVE LAST EJT ORDINAL SCHEDULED
00826  M01S00134.271l716 +++| ASJ6     LDK    LOSL        SAVE EJT ORDINAL OF LAST JOB SCHEDULED
00827  M01S00002.ns2153  +++|          CRD    CM
00828  M01S00003.ns2153  +++|          LDD    EO
00829  M01S00004.ns2153  +++|          STD    CM+4
00830  M01S00005.ns2153  +++|          LDK    LOSL
00831  M01S00006.ns2153  +++|          CWD    CM
00832  M01S00001.1sj53   +++|          LDN    ZERL        CLEAR *TSCW* IMAGE
00833  M01S00002.1sj53   +++|          CRD    T1
00834  M01S00002.271l750 +++|          LDD    SP
00835  M01S00003.271l750 +++|          RJM    RJC         CALCULATE JCB ADDRESS
00836  M01S00004.271l750 +++|          ZJN    ASJ6.1      IF NO JCB FOR SERVICE CLASS
Line S00005 Modification History
M01 (Added by) 271l750
M02 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00005.1sj53   ---|          ADN    CSJT        READ *CSJT* WORD OF JCB
00838  M01S00003.1sj53   +++|          ADN    SVJT        GET CP/CM TIME SLICE
00839  M01S00004.1sj53   +++|          CRD    BB
00840  M01S00005.1sj53   +++|          ADN    CSJT-SVJT   GET SERVICE CLASS CPU PRIORITY
00841  M01S00006.271l750 +++|          CRD    CM
00842  M01S00006.1sj53   +++|          LDD    BB+1        SET CONTROL POINT TIME SLICE
00843  M01S00007.1sj53   +++|          STD    T1+4
00844  M01S00008.1sj53   +++|          LDD    BB+2        SET CM TIME SLICE
00845  M01S00009.1sj53   +++|          STD    T1+1
00846  M01S00007.271l750 +++|          LDD    CM          SAVE SERVICE CLASS CPU PRIORITY
00847  M01S00008.271l750 +++| ASJ6.1   STD    T6
Line S00518 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00848  M02S00518.271l716 ---|          RJM    IRL         INITIALIZE RECALL AREA LINKS
00849  M01S00519.1sj     +++|          LDN    ZERL
Line S00520 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00520.1sj53   ---|          CRD    T1          CLEAR *TSCW* IMAGE
Line S00521 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00521.271l750 ---|          CRD    BB          CLEAR *JCIW* IMAGE
Line S00522 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00522.271l750 ---|          CRD    CM          CLEAR *SVJT* IMAGE
Line S00523 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00853  M03S00523.271l750 ---|          LDN    76          SET DEFAULT CPU PRIORITY
Line S00135 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00135.271l750 ---|          LDK    LFCS        SET DEFAULT CPU PRIORITY
00855  M01S00009.271l750 +++|          CRD    BB          CLEAR *CWQW* IMAGE
00856  M01S00010.271l750 +++|          CRD    CM          CLEAR *JCIW* IMAGE
Line S00011 Modification History
M01 (Added by) 271l750
M02 (Updated by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00011.ns2731  ---|          LDC    2000+LFCS*10  SET DEFAULT CPU PRIORITY
00858  M01S00001.ns2731  +++|          LDC    2000+LSCS*10-10  SET DEFAULT CPU PRIORITY
00859  M01S00524.1sj     +++|          STD    BB
Line S00525 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00525.271l750 ---|          LDD    SP
Line S00526 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00526.271l750 ---|          RJM    RJC         CALCULATE JCB ADDRESS
00862  M01S00012.271l750 +++|          LDC    6000        PRESET CPU SCHEDULING FLAGS FOR *1AJ/3AA*
00863  M01S00013.271l750 +++|          STD    BB+1
00864  M01S00014.271l750 +++|          LDC    SSSC*JCBE*10B  SET PARAMETERS INDEX FOR NO JCB DEFINED
00865  M01S00015.271l750 +++|          STD    BB+2
00866  M01S00016.271l750 +++|          LDD    T6
00867  M01S00527.1sj     +++|          ZJN    ASJ8        IF NO JCB FOR SERVICE CLASS
Line S00528 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00528.271l750 ---|          ADN    SVJT        READ *SVJT* WORD OF JCB
Line S00529 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00529.271l750 ---|          CRD    CM
00870  M01S00017.271l750 +++|          LDD    T0          SET CPU SCHEDULING PARAMETERS INDEX
00871  M01S00018.271l750 +++|          SHN    3
00872  M01S00019.271l750 +++|          STD    BB+2
00873  M01S00530.1sj     +++|          LDD    SP
00874  M01S00531.1sj     +++|          LMN    SSSC
00875  M01S00532.1sj     +++|          NJN    ASJ7        IF NOT A SUBSYSTEM
00876  M01S00001.1sj9    +++|          LDM    SISS
Line S00002 Modification History
M01 (Added by) 1sj9
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00002.271l750 ---|          STD    BB+2
00878  M01S00020.271l750 +++|          STD    CM+2        SET SUBSYSTEM ID
Line S00533 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00533.ns22000 ---|          LDC    MXSI        CALCULATE SUBSYSTEM INDEX
00880  M01S00028.ns22000 +++|          SBK    LSSI+1
00881  M01S00029.ns22000 +++|          MJN    ASJ7        IF PSEUDO SUBSYSTEM
00882  M01S00030.ns22000 +++|          LDC    MXSI        CALCULATE SUBSYSTEM INDEX
00883  M01S00534.1sj     +++|          SBM    SISS
00884  M01S00535.1sj     +++|          STD    T7
Line S00536 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00536.271l750 ---|          LDM    /3SA/TSCI,T7      SET SUBSYSTEM INITIAL CPU PRIORITY
00886  M01S00021.271l750 +++|          LDM    /3SA/TSCI,T7  SET SUBSYSTEM INITIAL CPU PRIORITY
00887  M01S00537.1sj     +++|          ZJN    ASJ7        IF CPU PRIORITY NOT SPECIFIED
Line S00538 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00538.271l750 ---|          STD    CM
Line S00539 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00539.271l750 ---| ASJ7     LDD    CM          STORE INITIAL CPU PRIORITY IN *JCIW* IMAGE
Line S00540 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00890  M03S00540.271l750 ---|          SHN    1
Line S00136 Modification History
M01 (Added by) 271l716
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00136.271l750 ---|          LPN    77
00892  M01S00022.271l750 +++|          STD    T6
00893  M01S00002.ns2731  +++|          LDD    TH          SET CPU PRIORITY NOT FROM SERVICE CLASS
00894  M01S00003.ns2731  +++|          RAD    BB+1
00895  M01S00023.271l750 +++| ASJ7     LDD    T6          SET CPU PRIORITY IN *CWQW* IMAGE
00896  M01S00024.271l750 +++|          SHN    3
00897  M01S00025.271l750 +++|          ADC    2000
00898  M01S00541.1sj     +++|          STD    BB
Line S00542 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00542.271l716 ---|          LDM    TEPB+2*MXJC,SP  SAVE PRIORITY IN *UTEM* CALL
Line S00543 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj7
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00900  M03S00543.271l716 ---|*         LDM    TEPB+1*MXJC,SP  (REJECT WAS SELECTED)
Line S00544 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj7
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00901  M03S00544.271l716 ---| ASJA     EQU    *-1
Line S00545 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj11
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00902  M03S00545.271l716 ---| ASJ8     STM    ASJC+4
Line S00004 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00903  M02S00004.271l716 ---| ASJ8     STM    ASJC+1*5+4
00904  M01S00137.271l716 +++|          LDM    TEPB+1*MXJC,SP  SAVE PRIORITY IN EJT DATA BLOCK
00905  M01S00138.271l716 +++| ASJ8     STM    ASJC
Line S00546 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00546.271l716 ---|          LDD    CM+1        SAVE CPU SLICE IN *TSCW* FOR *1RI*
Line S00547 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj1
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00907  M03S00547.271l716 ---|          SHN    2           ADJUST FOR QUARTER NANO-UNITS
Line S00001 Modification History
M01 (Added by) 1sj1
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00908  M02S00001.271l716 ---|          SHN    4           ADJUST FOR QUARTER NANO-UNITS
Line S00139 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00909  M02S00139.1sj53   ---|          LDD    CM+1        SET CONTROL POINT TIME SLICE
Line S00548 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00548.1sj53   ---|          STD    T1+4
Line S00549 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00911  M03S00549.1sj53   ---|          SHN    -14
Line S00550 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00912  M03S00550.1sj53   ---|          STD    T1+3
Line S00551 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00913  M03S00551.1sj53   ---|          LDD    CM+2        STORE CM TIME SLICE IN *TSCW* IMAGE
Line S00140 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00140.1sj53   ---|          LDD    CM+2        SET CM TIME SLICE
Line S00552 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj53
Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00552.1sj53   ---|          STD    T1+1
00916  M01S00553.1sj     +++|          LDD    CP
00917  M01S00554.1sj     +++|          CWD    AA          SAVE EJT SCHEDULING FIELD FOR *1RI*
Line S00555 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00555.271l750 ---|          ADN    JCIW
Line S00556 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00556.271l750 ---|          CWD    BB
00920  M01S00026.271l750 +++|          ADN    CWQW
00921  M01S00027.271l750 +++|          CWD    BB          SET CPU PRIORITY
00922  M01S00028.271l750 +++|          ADN    JCIW-CWQW
00923  M01S00029.271l750 +++|          CWD    CM          SET SUBSYSTEM ID
00924  M01S00557.1sj     +++|          ADK    TSCW-JCIW
00925  M01S00558.1sj     +++|          CWD    T1
00926  M01S00559.1sj     +++|          LDC    **
00927  M01S00560.1sj     +++| ASJB     EQU    *-1         (EJT ORDINAL IF ONLY NFL WILL BE ROLLED)
00928  M01S00561.1sj     +++|          LMD    EO
00929  M01S00562.1sj     +++|          NJN    ASJ10       IF NO CHANGE NEEDED TO CM FL IN EJT ENTRY
Line S00563 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj11
Seq #  *Modification Id* Act 
----------------------------+
00930  M02S00563.1sj11   ---|          STM    ASJC+1*5+4  TELL *1RI* ONLY NFL NEEDED
Line S00005 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00005.271l716 ---|          STM    ASJC+2*5+4  TELL *1RI* ONLY NFL NEEDED
00932  M01S00141.271l716 +++|          STD    JM          TELL *1RI* ONLY NFL NEEDED
00933  M01S00564.1sj     +++|
00934  M01S00565.1sj     +++|*         UPDATE EJT ENTRY AS FOLLOWS -
00935  M01S00566.1sj     +++|*                SET EXECUTION SCHEDULING PRIORITY.
00936  M01S00567.1sj     +++|*                SET CONTROL POINT NUMBER.
00937  M01S00568.1sj     +++|*                SET ROLLIN CM FL.
00938  M01S00569.1sj     +++|
Line S00570 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj11
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00570.1sj11   ---| ASJ10    LDC    ASJC+2*10000
Line S00006 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 1sj41
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00006.1sj41   ---| ASJ10    LDC    ASJC+3*10000
Line S00001 Modification History
M01 (Added by) 1sj41
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00941  M02S00001.271l716 ---| ASJ10    LDM    ASJC+4
Line S00002 Modification History
M01 (Added by) 1sj41
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00942  M02S00002.271l716 ---|          LMD    HN          SET JOB ADVANCE FLAG
Line S00003 Modification History
M01 (Added by) 1sj41
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00003.271l716 ---|          SHN    -1
Line S00004 Modification History
M01 (Added by) 1sj41
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00944  M02S00004.271l716 ---|          STM    ASJC+4
Line S00005 Modification History
M01 (Added by) 1sj41
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00005.271l716 ---|          LDC    ASJC+3*10000
Line S00571 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00571.271l716 ---|          RJM    IUT         ISSUE *UTEM* MONITOR FUNCTION
Line S00007 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 1sj41
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00947  M03S00007.271l716 ---|          NJP    ASJ5.1      IF JOB STATUS HAS CHANGED SINCE SELECTION
Line S00006 Modification History
M01 (Added by) 1sj41
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00006.271l716 ---|          NJP    ASJ5.1      IF JS, CS, OR SCP STATUS HAS CHANGED
00949  M01S00142.271l716 +++| ASJ10    RJM    EJA         GET EJT ENTRY ADDRESS
00950  M01S00143.271l716 +++|          ADK    SCHE
00951  M01S00144.271l716 +++|          CRD    AA
00952  M01S00145.271l716 +++|          ADK    SCLE-SCHE
00953  M01S00146.271l716 +++|          CRD    BB
00954  M01S00147.271l716 +++|          LDD    JM          SET CM FL
00955  M01S00148.271l716 +++|          STD    BB+4
00956  M01S00149.271l716 +++|          LDD    EJ+4        SAVE JOB STATUS
00957  M01S00150.271l716 +++|          LPN    76
00958  M01S00151.271l716 +++|          SHN    -1
00959  M01S00152.271l716 +++|          STD    T3
00960  M01S00153.271l716 +++|          LMK    PCJS
00961  M01S00154.271l716 +++|          NJN    ASJ10.1     IF NOT PCP JOB
00962  M01S00155.271l716 +++|          LDD    AA+3        SET ENTRY TIME FOR *CPR*
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  M01S00572.1sj     +++|          LDN    ZERL        CLEAR PP INPUT REGISTER IMAGE
00983  M01S00573.1sj     +++|          CRD    AA
00984  M01S00574.1sj     +++|          LDD    EJ+4
Line S00575 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00575.271l716 ---|          LPN    76
Line S00576 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00986  M03S00576.271l716 ---|          LMK    PRJS*2
Line S00577 Modification History
M01 (Added by) 1sj
M02 (Updated by) 242l642
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00987  M03S00577.271l716 ---|          ZJN    ASJ11       IF PRE-INITIAL JOB STATE
Line S00036 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00036.271l716 ---|          SHN    -1
Line S00037 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00037.271l716 ---|          STD    T1
Line S00038 Modification History
M01 (Added by) 242l642
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00990  M02S00038.271l716 ---|          LDM    TJST,T1
00991  M01S00175.271l716 +++|          LDM    TJST,T3
00992  M01S00039.242l642 +++|          SHN    21-7
00993  M01S00040.242l642 +++|          MJN    ASJ11       IF PRE-INITIAL JOB STATE
00994  M01S00578.1sj     +++|          LDC    3RI1R
Line S00579 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00579.ns2244  ---|          UJN    ASJ13       CALL *1RI*
00996  M01S00001.ns2244  +++|          UJP    ASJ13       CALL *1RI*
00997  M01S00580.1sj     +++|
00998  M01S00581.1sj     +++| ASJ11    LDD    SP
00999  M01S00582.1sj     +++|          LMN    SSSC
01000  M01S00583.1sj     +++|          NJN    ASJ12       IF NOT SUBSYSTEM
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 (Added by) 1sj
M02 (Updated by) ns2244
Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00584.ns2244  ---|          LDD    EO
Line S00002 Modification History
M01 (Added by) ns2244
M02 (Updated by) ns2746
Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00002.ns2746  ---|          LDC    PLSI        CHECK FOR PLATO
01006  M01S00001.ns2746  +++|          LDC    PLSI        CHECK FOR CYBIS
01007  M01S00003.ns2244  +++|          LMM    SISS
Line S00004 Modification History
M01 (Added by) ns2244
M02 (Updated by) ns2746
Seq #  *Modification Id* Act 
----------------------------+
01008  M02S00004.ns2746  ---|          NJN    ASJ11.1     IF NOT PLATO
01009  M01S00002.ns2746  +++|          NJN    ASJ11.1     IF NOT CYBIS
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  M01S00585.1sj     +++|          STD    T1
01016  M01S00586.1sj     +++|          LDM    SISS
01017  M01S00587.1sj     +++|          ADC    /3SA/SEAF*10000
01018  M01S00588.1sj     +++|          RJM    /3SA/AST    STORE EJT ORDINAL IN SSAT TABLE
01019  M01S00589.1sj     +++| ASJ12    AOD    AA+2        SET *1AJ* FUNCTION 1
01020  M01S00590.1sj     +++|          LDC    3RJ1A       CALL *1AJ*
01021  M01S00591.1sj     +++| ASJ13    STD    AA
01022  M01S00592.1sj     +++|          SHN    -6
01023  M01S00593.1sj     +++|          SCN    77
01024  M01S00594.1sj     +++|          LMD    JC
01025  M01S00595.1sj     +++|          STD    AA+1
01026  M01S00596.1sj     +++|          LDD    MA          WRITE *1RI*/*1AJ* CALL TO MESSAGE BUFFER
01027  M01S00597.1sj     +++|          CWD    AA
01028  M01S00598.1sj     +++|          LDN    0           CLEAR PRIORITY REQUEST FLAG
01029  M01S00599.1sj     +++|          STD    CM+1
01030  M01S00600.1sj     +++|          MONITOR  RPPM      CALL *1RI*/*1AJ*
Line S00601 Modification History
M01 (Added by) 1sj
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
01031  M02S00601.241l630 ---|          LDD    NC          CHANGE ASSIGNMENT BACK TO SYSTEM CP
Line S00006 Modification History
M01 (Added by) 241l630
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00006.273l780 ---| ASJ14    LDD    NC          CHANGE ASSIGNMENT BACK TO SYSTEM CP
01033  M01S00009.273l780 +++|          LDD    NC          CHANGE ASSIGNMENT BACK TO SYSTEM CP
01034  M01S00602.1sj     +++|          STD    CM+1
Line S00603 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01035  M02S00603.273l780 ---|          SHN    7
Line S00604 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01036  M02S00604.273l780 ---|          STD    CP
01037  M01S00605.1sj     +++|          MONITOR  CCAM
Line S00606 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00606.273l780 ---|          LDD    CM+1
Line S00607 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01039  M03S00607.273l780 ---|          ZJN    ASJ15       IF *CCAM* SUCCEEDED
Line S00608 Modification History
M01 (Added by) 1sj
M02 (Updated by) 241l630
M03 (Updated by) 271l716
M04 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01040  M04S00608.273l780 ---| ASJ14    MONITOR  HNGM
Line S00609 Modification History
M01 (Added by) 1sj
M02 (Updated by) 241l630
M03 (Updated by) 271l716
M04 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01041  M04S00609.273l780 ---|          UJN    ASJ14       HANG PP
Line S00007 Modification History
M01 (Added by) 241l630
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01042  M03S00007.273l780 ---|          LDN    0
Line S00008 Modification History
M01 (Added by) 241l630
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01043  M03S00008.273l780 ---|          STD    CM+2        SET NO ERROR FLAG
Line S00009 Modification History
M01 (Added by) 241l630
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01044  M03S00009.273l780 ---|          LDC    *
Line S00010 Modification History
M01 (Added by) 241l630
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01045  M03S00010.273l780 ---|          STD    CM+1        ADDRESS WHERE ERROR DETECTED
Line S00011 Modification History
M01 (Added by) 241l630
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01046  M03S00011.273l780 ---|          MONITOR  CHGM      CONDITIONAL HANG FOR *CCAM* FAILING
Line S00012 Modification History
M01 (Added by) 241l630
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01047  M03S00012.273l780 ---|          UJN    ASJ14       TRY CHANGE ASSIGNMENT TO SYSTEM CP AGAIN
Line S00610 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01048  M03S00610.273l780 ---|
Line S00176 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00176.273l780 ---|          NJN    ASJ14       IF *CCAM* FAILED
Line S00611 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00611.273l780 ---| ASJ15    LJM    ASJX        RETURN, (A) = 0 INDICATES JOB SCHEDULED
Line S00612 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01051  M03S00612.273l780 ---|
Line S00613 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01052  M03S00613.273l780 ---|*         *UTEM* PARAMETERS FOR SETTING SCHEDULING PRIORITY AND CONTROL
Line S00614 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01053  M03S00614.273l780 ---|*         POINT NUMBER.
Line S00615 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01054  M03S00615.273l780 ---|
Line S00616 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj11
M03 (Updated by) 271l716
M04 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01055  M04S00616.273l780 ---| ASJC     VFD    1/0,5/SCHE,6/30D  SET PRIORITY AND CP NUMBER
Line S00008 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 1sj41
M03 (Updated by) 271l716
M04 (Updated 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 (Updated by) 271l716
M03 (Updated 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 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01058  M03S00009.273l780 ---|          VFD    6/1,6/0
Line S00010 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01059  M03S00010.273l780 ---|          CON    0,0
Line S00011 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01060  M03S00011.273l780 ---|          CON    0           JOB STATUS WHEN JOB WAS SELECTED
Line S00012 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01061  M03S00012.273l780 ---|
Line S00013 Modification History
M01 (Added by) 1sj11
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01062  M03S00013.273l780 ---|          VFD    1/0,5/SCHE,6/30D  SET PRIORITY AND CP NUMBER
Line S00617 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01063  M03S00617.273l780 ---|          VFD    6/0,6/0
Line S00618 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01064  M03S00618.273l780 ---|          CON    0
Line S00619 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01065  M03S00619.273l780 ---|          CON    0
Line S00620 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01066  M03S00620.273l780 ---|          CON    0
Line S00621 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01067  M03S00621.273l780 ---|
Line S00622 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01068  M03S00622.273l780 ---|          VFD    1/0,5/SCLE,6/12D  SET ROLLIN CM FL
Line S00623 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01069  M03S00623.273l780 ---|          VFD    6/0,6/0
Line S00624 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01070  M03S00624.273l780 ---|          CON    0,0,0
Line S00625 Modification History
M01 (Added by) 1sj
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00625.273l780 ---| BST      SPACE  4,25
01072  M01S00010.273l780 +++|*         LDN    0           SET JOB SCHEDULED
01073  M01S00011.273l780 +++|          LJM    ASJX        RETURN
01074  M01S00012.273l780 +++| BST      SPACE  4,20
01075  M01S00626.1sj     +++|**        BST - BUILD SCHEDULING TABLES.
01076  M01S00627.1sj     +++|*
01077  M01S00628.1sj     +++|*         BUILD SCHEDULING TABLES AND CHECK FOR JOBS HAVING FL INCREASE
01078  M01S00629.1sj     +++|*         REQUESTS OUTSTANDING.  IF ANY ARE FOUND, SELECT THE HIGHEST
01079  M01S00630.1sj     +++|*         PRIORITY ONE FOR SCHEDULING.
01080  M01S00631.1sj     +++|*
01081  M01S00632.1sj     +++|*         ENTRY  (JC) = 0.
01082  M01S00177.271l716 +++|*                (JP) = 0.
01083  M01S00633.1sj     +++|*                (RM - RM+1) = 0.
01084  M01S00634.1sj     +++|*                (RE) = 0.
01085  M01S00635.1sj     +++|*
01086  M01S00636.1sj     +++|*         EXIT   (JC) = CP NUMBER OF HIGHEST PRIORITY JOB REQUESTING AN
01087  M01S00637.1sj     +++|*                       FL INCREASE.
01088  M01S00638.1sj     +++|*                     = 0 IF NO OUTSTANDING FL INCREASE REQUESTS.
01089  M01S00639.1sj     +++|*
Line S00640 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01090  M02S00640.271l716 ---|*         USES   T0 - T6, CM - CM+4, ES, CS, TE, JP, EP, TP, AC, RE,
Line S00641 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00641.271l716 ---|*                RM - RM+1, JC, AA - AA+4, BB - BB+4, AM - AM+1, AE,
Line S00642 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01092  M02S00642.271l716 ---|*                EJ - EJ+4, EO, SC, JM, JE, SP.
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  M01S00643.1sj     +++|*
Line S00644 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01097  M02S00644.271l716 ---|*         CALLS  EJA.
Line S00181 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1sj52
Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00181.1sj52   ---|*         CALLS  CCP, EJA.
Line S00001 Modification History
M01 (Added by) 1sj52
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00001.273l780 ---|*         CALLS  CCP, CPR, EJA.
Line S00182 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01100  M02S00182.273l780 ---|*
Line S00183 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01101  M02S00183.273l780 ---|*         MACROS LCPA.
01102  M01S00013.273l780 +++|*         CALLS  CCA, CCP, CPR, EJA.
01103  M01S00645.1sj     +++|
01104  M01S00646.1sj     +++|
01105  M01S00647.1sj     +++| BST      SUBR               ENTRY/EXIT
01106  M01S00648.1sj     +++|
Line S00649 Modification History
M01 (Added by) 1sj
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01107  M02S00649.284l847 ---|*         INITIALIZE *TTCU* AND *TTEU* TABLES.
01108  M01S00005.284l847 +++|*         INITIALIZE *TTCU* AND *TTUE* TABLES.
01109  M01S00650.1sj     +++|
01110  M01S00651.1sj     +++|          LDN    MXJC-1
01111  M01S00652.1sj     +++|          STD    T1
01112  M01S00653.1sj     +++| BST1     LDN    0
01113  M01S00654.1sj     +++|          STM    TTCU,T1
01114  M01S00655.1sj     +++|          STM    TTCU+1*MXJC,T1
Line S00656 Modification History
M01 (Added by) 1sj
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01115  M02S00656.284l847 ---|          STM    TTEU,T1
01116  M01S00006.284l847 +++|          STM    TTUE,T1
01117  M01S00657.1sj     +++|          SOD    T1          DECREMENT INDEX
01118  M01S00658.1sj     +++|          PJN    BST1        IF NOT FINISHED
01119  M01S00659.1sj     +++|          LDC    TACP        SET END OF *TACP* TABLE
01120  M01S00660.1sj     +++|          STD    TE
01121  M01S00661.1sj     +++|          LDN    0
01122  M01S00662.1sj     +++|          STM    TACP-1      MARK START OF *TACP* TABLE
01123  M01S00663.1sj     +++|          STI    TE          MARK END OF *TACP* TABLE
Line S00664 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01124  M02S00664.271l716 ---|          STD    TP          INITIALIZE CONTROL POINT NUMBER
Line S00665 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01125  M02S00665.271l716 ---|          LDN    CMRL        READ SYSTEM CM WORD
Line S00666 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01126  M02S00666.271l716 ---|          CRD    CM
Line S00667 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01127  M02S00667.271l716 ---|          ADN    ECRL-CMRL   READ SYSTEM ECS WORD
Line S00668 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01128  M02S00668.271l716 ---|          CRD    T0
Line S00669 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01129  M02S00669.271l716 ---|          ADC    200-ECRL+FLSW  READ CP 1 CM WORD
Line S00670 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00670.271l716 ---|          CRD    AA
Line S00671 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00671.271l716 ---|          ADN    ECSW-FLSW   READ CP 1 ECS WORD
Line S00672 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01132  M02S00672.271l716 ---|          CRD    BB
Line S00673 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01133  M02S00673.271l716 ---|          LDD    AA+2        CALCULATE AVAILABLE CM FL
Line S00674 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00674.271l716 ---|          SHN    14
Line S00675 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01135  M02S00675.271l716 ---|          LMD    AA+3
Line S00676 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01136  M02S00676.271l716 ---|          SBD    CM+4
Line S00677 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01137  M02S00677.271l716 ---|          SBD    AA          SUBTRACT NEGATIVE FL
Line S00678 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01138  M02S00678.271l716 ---|          STD    AM+1
Line S00679 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01139  M02S00679.271l716 ---|          SHN    -14
Line S00680 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01140  M02S00680.271l716 ---|          STD    AM
Line S00681 Modification History
M01 (Added by) 1sj
M02 (Updated by) 252l678
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01141  M03S00681.271l716 ---|          LDD    BB+3        CALCULATE AVAILABLE ECS FL
Line S00001 Modification History
M01 (Added by) 252l678
M02 (Updated 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 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01143  M03S00002.271l716 ---|          LPN    7
Line S00003 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01144  M03S00003.271l716 ---|          SHN    14
Line S00004 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01145  M03S00004.271l716 ---|          ADD    BB+3
Line S00001 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01146  M02S00001.271l716 ---|          SBD    T0+2
Line S00002 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00002.271l716 ---|          SHN    14
Line S00003 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01148  M02S00003.271l716 ---|          LMD    BB+3
Line S00004 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00004.271l716 ---|          SBD    T0+3
Line S00682 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01150  M02S00682.271l716 ---|          SBD    T0+4
Line S00683 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01151  M02S00683.271l716 ---|          STD    AE
01152  M01S00184.271l716 +++|          STD    TP          INITIALIZE CP/PCP NUMBER
01153  M01S00684.1sj     +++|
01154  M01S00685.1sj     +++|*         SCAN CONTROL POINT AREAS CALCULATING AVAILABLE CM AND ECS.
01155  M01S00686.1sj     +++|*         CHECK FOR OUTSTANDING FL INCREASE REQUESTS.
01156  M01S00687.1sj     +++|
Line S00688 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00688.271l716 ---| BST2     AOD    TP          ADVANCE CONTROL POINT NUMBER
01158  M01S00185.271l716 +++| BST2     AOD    TP          ADVANCE CP/PCP NUMBER
Line S00689 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01159  M02S00689.271l716 ---|          LMD    NC
Line S00690 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01160  M02S00690.271l716 ---|          NJN    BST3        IF NOT ALL CONTROL POINTS PROCESSED
Line S00691 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01161  M02S00691.271l716 ---|          LJM    BSTX        RETURN
Line S00692 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00692.271l716 ---|
Line S00693 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01163  M02S00693.271l716 ---| BST3     LDD    TP
Line S00694 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01164  M02S00694.271l716 ---|          SHN    7
Line S00695 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01165  M02S00695.271l716 ---|          ADN    FLSW        READ CM WORD OF CURRENT CP
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 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S00192.273l780 ---|          LCPA   FLSW,TP     READ FL CONTROL WORD OF CURRENT CP/PCP
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  M01S00696.1sj     +++|          CRD    CM
Line S00697 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01177  M02S00697.271l716 ---|          ADN    ECSW-FLSW   READ ECS WORD OF CURRENT CP
01178  M01S00193.271l716 +++|          ADN    ECSW-FLSW   READ EM CONTROL WORD OF CURRENT CP/PCP
01179  M01S00698.1sj     +++|          CRD    T0
Line S00699 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00699.ns21000 ---|          ADC    200-ECSW+FLSW
Line S00001 Modification History
M01 (Added by) ns21000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01181  M02S00001.271l716 ---|          ADC    FLSW-ECSW+200  READ CM WORD OF NEXT CP
Line S00700 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01182  M02S00700.271l716 ---|          CRD    AA
Line S00701 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00701.271l716 ---|          ADN    ECSW-FLSW   READ ECS WORD OF NEXT CP
Line S00702 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01184  M02S00702.271l716 ---|          CRD    BB
Line S00703 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01185  M02S00703.271l716 ---|          SHN    -7
Line S00704 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01186  M02S00704.271l716 ---|          LMD    NC
Line S00705 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01187  M02S00705.271l716 ---|          NJN    BST4        IF NEXT CP IS NOT SYSTEM CP
Line S00706 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01188  M02S00706.271l716 ---|
Line S00707 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01189  M02S00707.271l716 ---|*         NEXT CP (CP NUMBER *TP* + 1) IS THE SYSTEM CONTROL POINT SO
Line S00708 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01190  M02S00708.271l716 ---|*         SAVE LWA+1 OF MACHINE CM AS RA OF CP *TP*+1 AND SAVE LWA+1
Line S00709 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01191  M02S00709.271l716 ---|*         OF MACHINE ECS AS RAE OF CP *TP*+1.
Line S00710 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00710.271l716 ---|
Line S00711 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns21000
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01193  M03S00711.271l716 ---|          LDC    SABL        READ MACHINE FL WORD
Line S00002 Modification History
M01 (Added by) ns21000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01194  M02S00002.271l716 ---|          LDK    MABL        READ MACHINE FL
Line S00712 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01195  M02S00712.271l716 ---|          CRD    AA
Line S00003 Modification History
M01 (Added by) ns21000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01196  M02S00003.271l716 ---|          LDN    0           NFL(N+1) = 0
Line S00004 Modification History
M01 (Added by) ns21000
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01197  M02S00004.271l716 ---|          STD    AA
Line S00713 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01198  M03S00713.271l716 ---|          LDD    BB+4        RAE(N+1) = FLE(N+1)
Line S00714 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01199  M03S00714.271l716 ---|          STD    BB+3
Line S00005 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01200  M02S00005.271l716 ---|          LDD    BB+4
Line S00006 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01201  M02S00006.271l716 ---|          RAD    BB+3
Line S00007 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01202  M02S00007.271l716 ---|          SHN    -14
Line S00008 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01203  M02S00008.271l716 ---|          RAD    BB+2
Line S00715 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01204  M02S00715.271l716 ---|
Line S00716 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01205  M02S00716.271l716 ---|*         ACCUMULATE CM FL BETWEEN CONTROL POINTS *TP* AND *TP*+1
Line S00717 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01206  M02S00717.271l716 ---|*         USING THE FORMULA AVAILABLE CM = AVAILABLE CM + RA(*TP*+1)
Line S00718 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01207  M02S00718.271l716 ---|*         - (RA(*TP*) + FL(*TP*)) - NFL(*TP*+1).
Line S00719 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01208  M02S00719.271l716 ---|
Line S00720 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01209  M02S00720.271l716 ---| BST4     LDD    AA+2
Line S00721 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01210  M02S00721.271l716 ---|          SBD    CM+2
Line S00722 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01211  M02S00722.271l716 ---|          SHN    14
Line S00723 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01212  M02S00723.271l716 ---|          LMD    AA+3
Line S00724 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01213  M02S00724.271l716 ---|          SBD    CM+3
Line S00725 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01214  M02S00725.271l716 ---|          SBD    CM+4
Line S00726 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01215  M02S00726.271l716 ---|          SBD    AA
Line S00727 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01216  M02S00727.271l716 ---|          RAD    AM+1        ACCUMULATE AVAILABLE CM
Line S00728 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01217  M02S00728.271l716 ---|          SHN    -14
Line S00729 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01218  M02S00729.271l716 ---|          RAD    AM
Line S00730 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01219  M02S00730.271l716 ---|
Line S00731 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01220  M02S00731.271l716 ---|*         STORE CONTROL POINT *TP* CM FL IN *TJCM* TABLE.
01221  M01S00194.271l716 +++|
01222  M01S00195.271l716 +++|*         STORE CP/PCP *TP* CM FL IN *TJCM* TABLE.
01223  M01S00732.1sj     +++|
01224  M01S00733.1sj     +++|          LDD    CM+4
01225  M01S00734.1sj     +++|          ADD    CM          NFL
01226  M01S00735.1sj     +++|          STM    TJCM-1,TP
01227  M01S00736.1sj     +++|          STD    T5
01228  M01S00737.1sj     +++|
Line S00738 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01229  M02S00738.271l716 ---|*         ACCUMULATE AVAILABLE ECS BETWEEN CONTROL POINTS *TP* AND
Line S00739 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00739.271l716 ---|*         *TP*+1 USING THE FORMULA AVAILABLE ECS = AVAILABLE ECS +
Line S00740 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01231  M02S00740.271l716 ---|*         RAE(*TP*+1) - (RAE(*TP*) + FLE(*TP)).
Line S00741 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01232  M02S00741.271l716 ---|
Line S00742 Modification History
M01 (Added by) 1sj
M02 (Updated by) 252l678
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01233  M03S00742.271l716 ---|          LDD    BB+3
Line S00743 Modification History
M01 (Added by) 1sj
M02 (Updated by) 252l678
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01234  M03S00743.271l716 ---|          SBD    T0+3
Line S00005 Modification History
M01 (Added by) 252l678
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01235  M02S00005.271l716 ---|          LDD    BB+2
Line S00006 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01236  M03S00006.271l716 ---|          LPN    7
Line S00007 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01237  M03S00007.271l716 ---|          SHN    14
Line S00008 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01238  M03S00008.271l716 ---|          ADD    BB+3
Line S00009 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01239  M03S00009.271l716 ---|          SBD    T0+3
Line S00010 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01240  M03S00010.271l716 ---|          STD    T6
Line S00011 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01241  M03S00011.271l716 ---|          SHN    -14
Line S00012 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01242  M03S00012.271l716 ---|          SBD    T0+2
Line S00013 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01243  M03S00013.271l716 ---|          SHN    14
Line S00014 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1sj46
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01244  M03S00014.271l716 ---|          LMD    T6
Line S00009 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S00009.271l716 ---|          SBD    T0+2
Line S00010 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S00010.271l716 ---|          SHN    14
Line S00011 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S00011.271l716 ---|          LMD    BB+3
Line S00012 Modification History
M01 (Added by) 1sj46
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S00012.271l716 ---|          SBD    T0+3
Line S00744 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01249  M02S00744.271l716 ---|          SBD    T0+4
Line S00745 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01250  M02S00745.271l716 ---|          RAD    AE
01251  M01S00746.1sj     +++|
01252  M01S00747.1sj     +++|*         STORE CONTROL POINT *TP* ECS FL IN *TJEC* TABLE.
01253  M01S00748.1sj     +++|
01254  M01S00749.1sj     +++|          LDD    T0+4
01255  M01S00750.1sj     +++|          STM    TJEC-1,TP
01256  M01S00751.1sj     +++|          STD    T6
01257  M01S00752.1sj     +++|
01258  M01S00753.1sj     +++|*         CHECK FOR AVAILABLE CONTROL POINT.
01259  M01S00754.1sj     +++|
Line S00755 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01260  M02S00755.271l716 ---|          LDD    TP
Line S00756 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01261  M02S00756.271l716 ---|          SHN    7
Line S00757 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01262  M02S00757.271l716 ---|          ADN    JCIW
Line S00196 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01263  M02S00196.273l780 ---|          LCPA   JCIW,TP
01264  M01S00017.273l780 +++|          LDD    TP          SET CP/PCP ADDRESS
01265  M01S00018.273l780 +++|          RJM    CCA
01266  M01S00019.273l780 +++|          ADK    JCIW
01267  M01S00758.1sj     +++|          CRD    CM
01268  M01S00759.1sj     +++|          ADN    TFSW-JCIW
01269  M01S00760.1sj     +++|          CRD    EJ
01270  M01S00761.1sj     +++|          LDD    EJ
Line S00762 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01271  M02S00762.271l716 ---|          NJN    BST6        IF CONTROL POINT IS OCCUPIED
Line S00763 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01272  M02S00763.271l716 ---|          AOM    SCPA        SET AVAILABLE CONTROL POINT FLAG IN *SCP*
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  M01S00764.1sj     +++| BST5     LJM    BST2        CONTINUE CONTROL POINT SCAN
01284  M01S00765.1sj     +++|
01285  M01S00766.1sj     +++| BST6     STD    EO          SAVE EJT ORDINAL
01286  M01S00767.1sj     +++|          RJM    EJA         CALCULATE EJT ENTRY ADDRESS
01287  M01S00768.1sj     +++|          ADK    JSNE
01288  M01S00769.1sj     +++|          CRD    EJ
01289  M01S00770.1sj     +++|          ADN    SCHE-JSNE
01290  M01S00771.1sj     +++|          CRD    AA
01291  M01S00772.1sj     +++|          ADN    SCLE-SCHE
01292  M01S00773.1sj     +++|          CRD    BB
Line S00774 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01293  M02S00774.1sj38   ---|          LDD    EJ+4
Line S00775 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01294  M02S00775.1sj38   ---|          LPN    76
Line S00776 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01295  M02S00776.1sj38   ---|          LMN    EXJS*2
Line S00777 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01296  M02S00777.1sj38   ---|          NJN    BST5        IF JOB IS ROLLING IN
01297  M01S00778.1sj     +++|          LDD    BB          GET SERVICE CLASS AND FORCED ROLL FLAGS
01298  M01S00779.1sj     +++|          SHN    14
01299  M01S00780.1sj     +++|          STM    TJSC-1,TP
01300  M01S00781.1sj     +++|          STD    SC
01301  M01S00782.1sj     +++|          SHN    1
01302  M01S00783.1sj     +++|          PJN    BST7        IF NOT FORCED ROLLIN
01303  M01S00784.1sj     +++|          LDN    1           SET NO ROLLOUT FLAG
01304  M01S00785.1sj     +++|          STD    CM+2
Line S00786 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj52
Seq #  *Modification Id* Act 
----------------------------+
01305  M02S00786.1sj52   ---| BST7     LDD    AA+4
01306  M01S00002.1sj52   +++| BST7     LDD    AA+4        SET CP JOB SCHEDULING PRIORITY
01307  M01S00787.1sj     +++|          STM    TJPR-1,TP
01308  M01S00001.ns2542  +++|          LDD    CM+1        CHECK *CPUPFM* ACTIVE
01309  M01S00002.ns2542  +++|          LPN    10
01310  M01S00003.ns2542  +++|          NJN    BST8        IF *CPUPFM* ACTIVE
01311  M01S00788.1sj     +++|          LDD    CM+3        SET/CLEAR NO ROLLOUT FLAG
01312  M01S00789.1sj     +++|          LPC    1000        MASK *DIS* FLAG
01313  M01S00790.1sj     +++|          ADD    CM+2
01314  M01S00791.1sj     +++| BST8     STM    BSTA
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 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01318  M02S00004.271l716 ---|          STD    EJ+4
Line S00005 Modification History
M01 (Added by) 1sj38
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01319  M02S00005.271l716 ---|          NJN    BST9        IF JOB IS ROLLING IN
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
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  M01S00792.1sj     +++|
Line S00793 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01334  M02S00793.271l716 ---|*         CHECK FOR ROLLOUT ACTIVITY AT CONTROL POINT.  ACCUMULATE CM
01335  M01S00210.271l716 +++|*         CHECK FOR ROLLOUT ACTIVITY AT CP/PCP.  ACCUMULATE CM
01336  M01S00794.1sj     +++|*         AND ECS FL ASSIGNED TO THE JOB IF IT IS ROLLING OUT.
01337  M01S00795.1sj     +++|
Line S00796 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01338  M02S00796.271l716 ---|          LDD    TP
Line S00797 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01339  M02S00797.271l716 ---|          SHN    7
Line S00798 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01340  M02S00798.271l716 ---|          ADN    STSW
01341  M01S00211.271l716 +++| BST8.1   STD    EJ+4
Line S00212 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01342  M02S00212.273l780 ---|          LCPA   STSW,TP
01343  M01S00020.273l780 +++|          LDD    TP          SET CP/PCP ADDRESS
01344  M01S00021.273l780 +++|          RJM    CCA
01345  M01S00022.273l780 +++|          ADK    STSW
01346  M01S00799.1sj     +++|          CRD    CM
01347  M01S00800.1sj     +++|          ADN    FLIW-STSW
01348  M01S00801.1sj     +++|          CRD    AA
01349  M01S00802.1sj     +++|          LDD    CM+2
Line S00803 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01350  M02S00803.271l716 ---|          LPN    1
Line S00804 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01351  M02S00804.271l716 ---|          ZJN    BST9        IF JOB NOT ROLLING OUT
Line S00805 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01352  M02S00805.271l716 ---|          AOM    SCPB        SET ROLLOUT IN PROGRESS FLAG IN *SCP*
Line S00806 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01353  M02S00806.271l716 ---|          LDD    T5          ACCUMULATE ROLLING CM
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  M01S00807.1sj     +++|          RAD    RM+1
01370  M01S00808.1sj     +++|          SHN    -14
01371  M01S00809.1sj     +++|          RAD    RM
01372  M01S00810.1sj     +++|          LDD    T6          ACCUMULATE ROLLING ECS
01373  M01S00811.1sj     +++|          RAD    RE
Line S00812 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01374  M02S00812.1sj38   ---|          LJM    BST2        CONTINUE CONTROL POINT SCAN
Line S00006 Modification History
M01 (Added by) 1sj38
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01375  M02S00006.271l716 ---| BST8.1   LJM    BST2        CONTINUE CONTROL POINT SCAN
01376  M01S00228.271l716 +++| BST8.5   LJM    BST2        CONTINUE CP/PCP SCAN
01377  M01S00813.1sj     +++|
01378  M01S00814.1sj     +++|*         JOB IS NOT ROLLING OUT.  CHECK FOR AN OUTSTANDING FL INCREASE
01379  M01S00815.1sj     +++|*         REQUEST.  IF ONE IS FOUND AT THIS CONTROL POINT, SEE IF THE
01380  M01S00816.1sj     +++|*         JOB-S SCHEDULING PRIORITY IS SUFFICIENTLY HIGH TO MAKE THE
01381  M01S00817.1sj     +++|*         JOB THE BEST SCHEDULING CANDIDATE FOUND SO FAR.
01382  M01S00818.1sj     +++|
01383  M01S00819.1sj     +++| BST9     LDD    SC
01384  M01S00820.1sj     +++|          SBN    MXJC
01385  M01S00821.1sj     +++|          PJN    BST10       IF NO JCB FOR THIS SERVICE CLASS
01386  M01S00822.1sj     +++|          LDD    T5          ACCUMULATE CM ASSIGNED TO SERVICE CLASS
01387  M01S00823.1sj     +++|          RAM    TTCU+1*MXJC,SC
01388  M01S00824.1sj     +++|          SHN    -14
01389  M01S00825.1sj     +++|          RAM    TTCU,SC
01390  M01S00826.1sj     +++|          LDD    T6          ACCUMULATE ECS ASSIGNED TO SERVICE CLASS
Line S00827 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj25
Seq #  *Modification Id* Act 
----------------------------+
01391  M02S00827.1sj25   ---|          RAM    TTEU+1*MXJC,SC
Line S00828 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj25
Seq #  *Modification Id* Act 
----------------------------+
01392  M02S00828.1sj25   ---|          SHN    -14
Line S00829 Modification History
M01 (Added by) 1sj
M02 (Updated by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
01393  M02S00829.284l847 ---|          RAM    TTEU,SC
01394  M01S00007.284l847 +++|          RAM    TTUE,SC
Line S00830 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj38
Seq #  *Modification Id* Act 
----------------------------+
01395  M02S00830.1sj38   ---| BST10    LDM    TJPR-1,TP
01396  M01S00007.1sj38   +++| BST10    LDD    EJ+4
Line S00008 Modification History
M01 (Added by) 1sj38
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01397  M02S00008.271l716 ---|          NJN    BST8.1      IF JOB IS ROLLING IN
01398  M01S00229.271l716 +++|          NJN    BST8.5      IF JOB IS ROLLING IN
01399  M01S00009.1sj38   +++|          LDM    TJPR-1,TP
01400  M01S00831.1sj     +++|          SBD    JP
01401  M01S00832.1sj     +++|          MJN    BST12       IF CP HAS LOWER PRIORITY THAN CURRENT HIGH
01402  M01S00833.1sj     +++|          LDD    AA+4
01403  M01S00834.1sj     +++|          ZJN    BST11       IF NO CM FL INCREASE REQUESTED
01404  M01S00835.1sj     +++|          LDD    AA+1
01405  M01S00836.1sj     +++|          SHN    21-0
01406  M01S00837.1sj     +++|          MJN    BST12       IF REQUEST WAS ALREADY REJECTED
01407  M01S00838.1sj     +++|          LDD    AA+4
01408  M01S00839.1sj     +++|          SBD    T5
Line S00840 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01409  M02S00840.271l716 ---|          ZJN    BST11       IF CM ALEADY ASSIGNED
01410  M01S00230.271l716 +++|          ZJN    BST11       IF CM ALREADY ASSIGNED
01411  M01S00841.1sj     +++|          MJN    BST11       IF CM ALREADY ASSIGNED
01412  M01S00842.1sj     +++|
01413  M01S00843.1sj     +++|*         THIS CONTROL POINT IS THE BEST SCHEDULING CANDIDATE FOUND SO
01414  M01S00844.1sj     +++|*         FAR.  SAVE SCHEDULING INFORMATION.
01415  M01S00845.1sj     +++|
01416  M01S00846.1sj     +++|          STD    JM
01417  M01S00847.1sj     +++|          LDN    0           CLEAR ECS REQUIREMENT
01418  M01S00848.1sj     +++|          STD    JE
Line S00849 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01419  M02S00849.1sj32   ---|          LCN    0           PREVENT SERVICE CLASS CM LIMIT
Line S00850 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01420  M02S00850.1sj32   ---|          STD    CS+1
Line S00851 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01421  M02S00851.1sj32   ---|          LDN    37
Line S00852 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01422  M02S00852.1sj32   ---|          STD    CS
01423  M01S00853.1sj     +++|          UJN    BST13       GO FINISH SAVING SCHEDULING INFORMATION
01424  M01S00854.1sj     +++|
01425  M01S00855.1sj     +++| BST11    LDD    AA+3
Line S00856 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01426  M02S00856.1sj19   ---|          ZJN    BST14       IF NO ECS FL INCREASE REQUESTED
01427  M01S00001.1sj19   +++|          ZJN    BST14.1     IF NO ECS FL INCREASE REQUESTED
01428  M01S00857.1sj     +++|          LDD    AA+1
01429  M01S00858.1sj     +++|          SHN    21-1
Line S00859 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01430  M02S00859.1sj19   ---| BST12    MJN    BST14       IF REQUEST WAS ALREADY REJECTED
01431  M01S00002.1sj19   +++| BST12    MJN    BST14.1     IF REQUEST WAS ALREADY REJECTED
01432  M01S00860.1sj     +++|          LDD    AA+3
01433  M01S00861.1sj     +++|          SBD    T6
Line S00862 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01434  M02S00862.1sj19   ---|          ZJN    BST14       IF ECS ALREADY ASSIGNED
Line S00863 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj19
Seq #  *Modification Id* Act 
----------------------------+
01435  M02S00863.1sj19   ---|          MJN    BST14       IF ECS ALREADY ASSIGNED
01436  M01S00003.1sj19   +++|          ZJN    BST14.1     IF ECS ALREADY ASSIGNED
01437  M01S00004.1sj19   +++|          MJN    BST14.1     IF ECS ALREADY ASSIGNED
01438  M01S00864.1sj     +++|
01439  M01S00865.1sj     +++|
01440  M01S00866.1sj     +++|*         THIS CONTROL POINT IS THE BEST SCHEDULING CANDIDATE SO
01441  M01S00867.1sj     +++|*         FAR.  SAVE SCHEDULING INFORMATION.
01442  M01S00868.1sj     +++|
01443  M01S00869.1sj     +++|          STD    JE
01444  M01S00870.1sj     +++|          LDN    0           CLEAR CM REQUIREMENT
01445  M01S00871.1sj     +++|          STD    JM
Line S00872 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01446  M02S00872.1sj32   ---|          LCN    0           PREVENT SERVICE CLASS ECS LIMIT
01447  M01S00001.1sj32   +++| BST13    LCN    0           PREVENT SERVICE CLASS ECS LIMIT
01448  M01S00873.1sj     +++|          STD    ES
Line S00874 Modification History
M01 (Added by) 1sj
M02 (Updated by) 1sj32
Seq #  *Modification Id* Act 
----------------------------+
01449  M02S00874.1sj32   ---| BST13    LDM    TJPR-1,TP   SAVE SCHEDULING PRIORITY
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  M01S00875.1sj     +++|          STD    JP
Line S00876 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01455  M02S00876.271l716 ---|          LDD    TP          SAVE CONTROL POINT NUMBER
01456  M01S00231.271l716 +++|          LDD    TP          SAVE CP/PCP NUMBER
01457  M01S00877.1sj     +++|          STD    JC
01458  M01S00878.1sj     +++|          LDD    EO          SAVE EJT ORDINAL
01459  M01S00879.1sj     +++|          STD    EP
01460  M01S00880.1sj     +++|          LDD    SC          SAVE SERVICE CLASS
01461  M01S00881.1sj     +++|          STD    SP
01462  M01S00882.1sj     +++| BST14    LDC    **
01463  M01S00883.1sj     +++| BSTA     EQU    *-1         (NO ROLLOUT FLAG)
01464  M01S00004.ns2072  +++|          STM    SCJD        (SET/CLEAR NO REJECT FLAG)
01465  M01S00005.1sj19   +++| BST14.1  LDM    BSTA
01466  M01S00884.1sj     +++|          NJN    BST18       IF ROLLOUT MUST NOT OCCUR
01467  M01S00885.1sj     +++|
01468  M01S00886.1sj     +++|*         BUILD *TACP* ENTRY FOR THIS CONTROL POINT.
01469  M01S00887.1sj     +++|
01470  M01S00888.1sj     +++|          LDC    TACP-1      SET START OF *TACP* TABLE
01471  M01S00889.1sj     +++|          STD    T1
01472  M01S00890.1sj     +++| BST15    AOD    T1          INCREMENT *TACP* INDEX
01473  M01S00891.1sj     +++|          LDI    T1
01474  M01S00892.1sj     +++|          ZJN    BST17       IF END OF *TACP* TABLE
01475  M01S00893.1sj     +++|          STD    T2
01476  M01S00894.1sj     +++|          LDM    TJPR-1,T2
01477  M01S00895.1sj     +++|          SBM    TJPR-1,TP
01478  M01S00896.1sj     +++|          PJN    BST15       IF PRIORITY OF *TP* .LE. *TACP* ENTRY
01479  M01S00897.1sj     +++|
01480  M01S00898.1sj     +++|*         MOVE ALL *TACP* ENTRIES THAT ARE BEYOND CURRENT POSITION
01481  M01S00899.1sj     +++|*         ONE SLOT TOWARD THE END OF THE *TACP* TABLE.
01482  M01S00900.1sj     +++|
01483  M01S00901.1sj     +++|          LDD    TE
01484  M01S00902.1sj     +++|          STD    T2
01485  M01S00903.1sj     +++| BST16    LDM    -1,T2
01486  M01S00904.1sj     +++|          STI    T2
01487  M01S00905.1sj     +++|          SOD    T2
01488  M01S00906.1sj     +++|          LMD    T1
01489  M01S00907.1sj     +++|          NJN    BST16       IF MOVE NOT COMPLETE
01490  M01S00908.1sj     +++|
01491  M01S00909.1sj     +++|*         ALL ENTRIES OF LOWER PRIORITY HAVE BEEN MOVED ONE SLOT
Line S00910 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01492  M02S00910.271l716 ---|*         TOWARD END OF *TACP* TABLE.  STORE CONTROL POINT NUMBER IN
01493  M01S00232.271l716 +++|*         TOWARD END OF *TACP* TABLE.  STORE CP/PCP NUMBER IN
01494  M01S00911.1sj     +++|*         VACATED *TACP* ENTRY.
01495  M01S00912.1sj     +++|
01496  M01S00913.1sj     +++| BST17    LDD    TP
01497  M01S00914.1sj     +++|          STI    T1
01498  M01S00915.1sj     +++|          AOD    TE          ADVANCE END OF *TACP* TABLE POINTER
01499  M01S00916.1sj     +++|          LDN    0           MARK END OF *TACP* TABLE
01500  M01S00917.1sj     +++|          STI    TE
Line S00918 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01501  M02S00918.271l716 ---| BST18    LJM    BST2        CONTINUE CONTROL POINT SCAN
01502  M01S00233.271l716 +++| BST18    LJM    BST2        CONTINUE CP/PCP SCAN
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
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  M01S00919.1sj     +++| CFL      SPACE  4,30
01538  M01S00920.1sj     +++|**        CFL - COMMIT FIELD LENGTH.
01539  M01S00921.1sj     +++|*
01540  M01S00922.1sj     +++|*         SCAN THE *TACP* TABLE IN AN ATTEMPT TO FIND ENOUGH CM/ECS
01541  M01S00923.1sj     +++|*         ASSIGNED TO LOWER PRIORITY JOBS TO ACCOMODATE THE JOB
Line S00924 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01542  M02S00924.271l716 ---|*         SELECTED FOR SCHECULING.  REQUEST ROLLOUT OF ONLY AS MANY
01543  M01S00249.271l716 +++|*         SELECTED FOR SCHEDULING.  REQUEST ROLLOUT FOR ONLY AS MANY
01544  M01S00925.1sj     +++|*         SUCH JOBS AS NECESSARY.
01545  M01S00926.1sj     +++|*
01546  M01S00927.1sj     +++|*         ENTRY  (TE) = LWA OF *TACP* TABLE.
01547  M01S00928.1sj     +++|*                (AM - AM+1) = AVAILABLE + ROLLING CM.
01548  M01S00929.1sj     +++|*                (AE) = AVAILABLE + ROLLING ECS.
01549  M01S00001.1sj13   +++|*                (JC) = CP NUMBER OF JOB REQUESTING FL INCREASE
01550  M01S00002.1sj13   +++|*                       (IF ANY).
01551  M01S00930.1sj     +++|*                (JP) = SCHEDULING PRIORITY OF SELECTED JOB.
01552  M01S00931.1sj     +++|*                (JM) = CM FL REQUIRED BY SELECTED JOB.
01553  M01S00932.1sj     +++|*                (JE) = ECS FL REQUIRED BY SELECTED JOB.
01554  M01S00933.1sj     +++|*                (SP) = SERVICE CLASS OF SELECTED JOB.
01555  M01S00934.1sj     +++|*                (CS - CS+1) = EXCESS CM OF SERVICE CLASS.
01556  M01S00935.1sj     +++|*                (ES) = EXCESS ECS OF SERVICE CLASS.
01557  M01S00936.1sj     +++|*
01558  M01S00937.1sj     +++|*         EXIT   (A) = 0 IF SUFFICIENT CM/ECS AFTER ROLLOUTS.
01559  M01S00938.1sj     +++|*                    = 1 IF INSUFFICIENT CM.
01560  M01S00939.1sj     +++|*                    = 2 IF INSUFFICIENT ECS.
01561  M01S00940.1sj     +++|*                    .LT. 0 IF ROLLOUT REQUEST WAS REJECTED.
01562  M01S00941.1sj     +++|*
01563  M01S00942.1sj     +++|*         USES   T1, T3 - T7, CM - CM+4 TP.
01564  M01S00943.1sj     +++|*
01565  M01S00944.1sj     +++|*         CALLS  IRR.
01566  M01S00945.1sj     +++|
01567  M01S00946.1sj     +++|
01568  M01S00947.1sj     +++|*         REQUEST ROLLOUT FOR ANY JOB WHOSE ROLLOUT REQUEST BIT (BIT
01569  M01S00948.1sj     +++|*         10D) IS SET IN ITS *TACP* ENTRY.
01570  M01S00949.1sj     +++|
Line S00950 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01571  M02S00950.271l716 ---| CFL11    LDC    2000        CLEAR REQUEST ROLLOUT, SET *ROCM* ISSUED
Line S00951 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01572  M02S00951.271l716 ---|          RAI    TP
Line S00952 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01573  M02S00952.271l716 ---|          AOM    SCPB        SET ROLLOUT IN PROGRESS FLAG IN *SCP*
Line S00953 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01574  M02S00953.271l716 ---| CFL12    AOD    TP          INCREMENT *TACP* POINTER
01575  M01S00250.271l716 +++| CFL11    AOD    TP          INCREMENT *TACP* POINTER
01576  M01S00954.1sj     +++|          LDI    TP
01577  M01S00955.1sj     +++|          ZJN    CFLX        IF *TACP* SCAN COMPLETE
01578  M01S00956.1sj     +++|          SHN    21-12
Line S00957 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01579  M02S00957.271l716 ---|          PJN    CFL12       IF ROLLOUT REQUEST BIT IS NOT SET
Line S00958 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01580  M02S00958.271l716 ---|          SHN    12-21       GET CONTROL POINT NUMBER
Line S00959 Modification History
M01 (Added by) 1sj
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01581  M02S00959.271l716 ---|          LPN    37
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  M01S00960.1sj     +++|          RJM    IRR         ISSUE *ROCM*
01587  M01S00961.1sj     +++|          ZJN    CFL11       IF ROLLOUT REQUEST WAS ACCEPTED
01588  M01S00962.1sj     +++|          LCN    0           SET RETURN STATUS
01589  M01S00963.1sj     +++|
01590  M01S00964.1sj     +++| CFL      SUBR               ENTRY/EXIT
Line S00965 Modification History
M01 (Added by) 1sj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01591  M02S00965.ns22000 ---|          LDD    TE          INITIALIZE *TACP* TABLE POINTER
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  M01S00966.1sj     +++|          STD    TP
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1sj.001.txt ยท Last modified: (external edit)