User Tools

Site Tools


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

Deck 1RO Part 002

20 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00443 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02471  M01S00443.271l716 +++|          LJM    ROJ7        CLEAR JOB ADVANCE AND DROP PP
02472  M00S01800.1ro     +++|
Line S01801 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02473  M01S01801.271l716 ---| PRS21    STD    TN          SAVE TERMINAL NUMBER
02474  M01S01802.271l716 ---|          STM    PRSD+4
Line S00444 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02475  M01S00444.271l716 +++| PRS29    STD    TN          SAVE TERMINAL NUMBER
02476  M01S00445.271l716 +++|          STM    PRSE+4
Line S01803 Modification History
M01 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02477  M01S01803.ns2748  ---|          LDC    /REM/VCPT*200+FLSW  SET *IAF* RA
02478  M01S01804.ns2748  ---|          CRD    CM
02479  M01S01805.ns2748  ---|          LDD    CM+3
02480  M01S01806.ns2748  ---|          STD    TA
Line S00009 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02481  M01S00009.ns2748  +++|          RJM    PIR         PRESET WITH IAF R-REGISTER
02482  M01S00010.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
02483  M00S01807.1ro     +++|          RJM    /3RP/STA    SET TERMINAL TABLE ADDRESS
02484  M00S01808.1ro     +++|          ADK    /REM/VFNT
02485  M00S01809.1ro     +++|          CRD    CN
02486  M00S01810.1ro     +++|
02487  M00S01811.1ro     +++|*         AT ROLLOUT, *VROT* SHOULD BE BUSY.
02488  M00S01812.1ro     +++|
02489  M00S01813.1ro     +++|          ADK    /REM/VFST-/REM/VFNT
02490  M00S01814.1ro     +++|          CRD    CM
02491  M00S01815.1ro     +++|          ADK    /REM/VROT-/REM/VFST
02492  M00S01816.1ro     +++|          CRD    FS
Line S00011 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02493  M01S00011.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
02494  M00S01817.1ro     +++|          LDD    FS+4        *VROT* STATUS
02495  M00S01818.1ro     +++|          LPN    1
Line S01819 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02496  M01S01819.271l716 ---|          NJP    PRS20       IF INCORRECT STATUS
Line S00446 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02497  M01S00446.271l716 +++|          NJP    PRS28       IF INCORRECT STATUS
02498  M00S01820.1ro     +++|          LDD    CM+3        CHECK FOR *IAOT* JOB CONNECTED TO *SMF*
02499  M00S01821.1ro     +++|          SHN    -6
Line S01822 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02500  M01S01822.271l716 ---|          ZJN    PRS21.1     IF NOT CONNECTED TO *SMF*
Line S00447 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02501  M01S00447.271l716 +++|          ZJN    PRS30       IF NOT CONNECTED TO *SMF*
02502  M00S01823.1ro     +++|          LDN    /CPS/ROLS   SET ROLLOUT FILE DEVICE
02503  M00S01824.1ro     +++|          ERRPL  /CPS/ROLS-100  CODE REQUIRES 6 BIT VALUE
02504  M00S01825.1ro     +++|          RAM    RMSK
Line S01826 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02505  M01S01826.271l716 ---| PRS21.1  LDD    CP
02506  M01S01827.271l716 ---|          ADN    TFSW
Line S00448 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02507  M02S00448.273l780 ---| PRS30    LCPA   TFSW
Line S00119 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02508  M01S00119.273l780 +++| PRS30    TLDC   TFSW,CPAD
02509  M00S01828.1ro     +++|          CRD    CM
02510  M00S01829.1ro     +++|          LDD    CM+1
Line S01830 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02511  M01S01830.271l716 ---|          ZJN    PRS22       IF NO PRIMARY FILE
Line S00449 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02512  M02S00449.273l780 ---|          ZJN    PRS32       IF NO PRIMARY FILE
Line S00120 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02513  M01S00120.273l780 +++|          ZJN    PRS33       IF NO PRIMARY FILE
02514  M00S01831.1ro     +++|          NFA    CM+1,R      READ PRIMARY FILE DATA
02515  M00S01832.1ro     +++|          CRM    /3RP/TERD,ON
Line S01833 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02516  M01S01833.271l716 ---| PRS22    LDD    CN+4        PRESERVE BYTE 4 OF *VFNT*
Line S00450 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02517  M02S00450.273l780 ---| PRS32    LDD    IR+2
02518  M02S00451.273l780 ---|          LMN    3
02519  M02S00452.273l780 ---|          NJN    PRS33       IF NOT PCP ROLL
02520  M02S00453.273l780 ---|          LDC    4000        SET ALTERNATE CP/PCP FOR *TSEM*, *VFPM*
02521  M02S00454.273l780 ---|          RAM    /3RP/CBPA
02522  M02S00455.273l780 ---|          LDC    4000        SET ALTERNATE CP/PCP *JACM* OPTION
02523  M02S00456.273l780 ---|          RAM    /3RP/TERF
Line S00457 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02524  M01S00457.271l716 +++| PRS33    LDD    CN+4        PRESERVE BYTE 4 OF *VFNT*
02525  M00S01834.1ro     +++|          STM    /3RP/TERD+4
Line S01835 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02526  M01S01835.271l716 ---|          LDM    ROJH
Line S00458 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02527  M01S00458.271l716 +++|          LDM    CPAB
02528  M00S01836.1ro     +++|          LPN    1
Line S01837 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02529  M01S01837.271l716 ---|          NJN    PRS25       IF NOT END OF JOB STEP
Line S00459 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02530  M01S00459.271l716 +++|          NJN    PRS34       IF END OF JOB STEP
Line S00012 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02531  M01S00012.ns2748  +++|          RJM    SRR         SET R-REGISTER TO IAF RA
02532  M00S01838.1ro     +++|          RJM    /3RP/STA    READ TERMINAL TABLE
02533  M00S01839.1ro     +++|          ADK    /REM/VSTT
02534  M00S01840.1ro     +++|          CRD    CM
Line S00013 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02535  M01S00013.ns2748  +++|          RJM    RRR         RESTORE R-REGISTER
02536  M00S01841.1ro     +++|          LDD    CM
02537  M00S01842.1ro     +++|          SHN    21-13
Line S01843 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02538  M01S01843.271l716 ---|          PJN    PRS25       IF NOT TERMINAL INTERRUPT CONTROL
Line S00460 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02539  M01S00460.271l716 +++|          PJN    PRS34       IF NOT TERMINAL INTERRUPT CONTROL
02540  M00S01844.1ro     +++|
02541  M00S01845.1ro     +++|*         CLEAR TERMINAL INTERRUPT CONTROL AT THIS POINT SO THAT
02542  M00S01846.1ro     +++|*         *IAF* SEES THE CORRECT STATUS WHEN IT RECOGNIZES
02543  M00S01847.1ro     +++|*         END OF JOB STEP.
02544  M00S01848.1ro     +++|
02545  M00S01849.1ro     +++|          LDD    MA          CLEAR TERMINAL INTERRUPT CONTROL
Line S01850 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02546  M01S01850.271l716 ---|          CWM    PRSD,ON
Line S00461 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02547  M01S00461.271l716 +++|          CWM    PRSE,ON
02548  M00S01851.1ro     +++|          RJM    ITF         ISSUE *TSEM* FUNCTION
Line S01852 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02549  M01S01852.271l716 ---| PRS25    UJN    PRS29       READ EJT ENTRY INTO SYSTEM SECTOR BUFFER
Line S00462 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02550  M01S00462.271l716 +++| PRS34    UJN    PRS38       READ EJT ENTRY INTO SYSTEM SECTOR BUFFER
02551  M00S01853.1ro     +++|
Line S00463 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02552  M02S00463.ns2685  ---|*         LOAD *DMP=* PROCESSING OVERLAY.
Line S00025 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02553  M01S00025.ns2685  +++|*         DISABLE ON-LINE INTERACTIVE PROCESSING AND CHECK DMP= CALL.
Line S00464 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02554  M01S00464.271l716 +++|
Line S00465 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02555  M02S00465.ns2685  ---| PRS35    EXECUTE  3RS
02556  M02S00466.ns2685  ---|
Line S01854 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02557  M01S01854.ns2685  ---|*         PROCESS NON-INTERACTIVE/DETACHED INTERACTIVE JOB.
02558  M01S01855.ns2685  ---|
Line S01856 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02559  M02S01856.ns2685  ---| PRS26    LDD    CP
02560  M02S01857.ns2685  ---|          SHN    -10
02561  M02S01858.ns2685  ---|          NJN    PRS28       IF NOT CONTROL POINT 1
02562  M02S01859.ns2685  ---| PRS27    LDN    PSNI        DISABLE DYNAMIC FL REDUCTION
02563  M02S01860.ns2685  ---|          STM    ROMA
02564  M02S01861.ns2685  ---|          STM    RODA
02565  M02S01862.ns2685  ---| PRS28    LDD    DI          DISABLE ON-LINE INTERACTIVE PROCESSING
Line S00467 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02566  M02S00467.ns2685  ---| PRS36    LDD    DI          DISABLE ON-LINE INTERACTIVE PROCESSING
Line S00026 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02567  M01S00026.ns2685  +++| PRS35    LDD    DI          DISABLE ON-LINE INTERACTIVE JOB PROCESSING
02568  M00S01863.1ro     +++|          STM    ROJB
02569  M00S01864.1ro     +++|          STM    ROJC
Line S01865 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02570  M01S01865.271l716 ---|          STM    CORD
02571  M01S01866.271l716 ---| PRS29    LDN    EJTE        READ EJT ENTRY INTO SYSTEM SECTOR BUFFER
Line S00468 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02572  M01S00468.271l716 +++|          STM    CROE
Line S00469 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02573  M02S00469.ns2685  ---| PRS38    LDN    EJTE        READ EJT ENTRY INTO SYSTEM SECTOR BUFFER
Line S01867 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02574  M01S01867.ns2685  ---|          STD    T1          SET EJT ENTRY LENGTH
02575  M01S01868.ns2685  ---|          SFA    EJT,EO
Line S00027 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02576  M01S00027.ns2685  +++|          LDD    IR+2
02577  M01S00028.ns2685  +++|          LMN    1
02578  M01S00029.ns2685  +++|          NJN    PRS38       IF NOT *DMP=* CALL
02579  M01S00030.ns2685  +++|          EXECUTE  3RS       LOAD *DMP=* PROCESSING OVERLAY
02580  M01S00031.ns2685  +++|
02581  M01S00032.ns2685  +++|*         CLEAR SYSTEM SECTOR AND READ EJT ENTRY TO SYSTEM SECTOR.
02582  M01S00033.ns2685  +++|
02583  M01S00034.ns2685  +++| PRS38    LDC    BFMS+2
02584  M01S00035.ns2685  +++|          STD    T1
02585  M01S00036.ns2685  +++| PRS39    LDN    0
02586  M01S00037.ns2685  +++|          STI    T1
02587  M01S00038.ns2685  +++|          AOD    T1
02588  M01S00039.ns2685  +++|          LMC    BFMS+2+500
02589  M01S00040.ns2685  +++|          NJN    PRS39       IF MORE WORDS TO CLEAR
02590  M01S00041.ns2685  +++|          LDN    EJTE        SET EJT ENTRY LENGTH
02591  M01S00042.ns2685  +++|          STD    T1
02592  M01S00043.ns2685  +++|          SFA    EJT,EO      READ EJT ENTRY TO SYSTEM SECTOR
02593  M00S01869.1ro     +++|          CRM    EJSS,T1
Line S00044 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02594  M01S00044.ns2685  +++|          LDD    IR+2
02595  M01S00045.ns2685  +++|          LMN    1
02596  M01S00046.ns2685  +++|          NJN    PRSX        IF NOT *DMP=* CALL
02597  M01S00047.ns2685  +++|          RJM    /3RS/PDM    PRESET *DMP=* CALL
02598  M00S01870.1ro     +++|
02599  M00S01871.1ro     +++| PRS      SUBR               ENTRY/EXIT
Line S00470 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02600  M02S00470.273l780 ---|          LDD    CP
02601  M02S00471.273l780 ---|          SHN    -7
02602  M02S00472.273l780 ---|          STM    JECF+2
Line S00121 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02603  M01S00121.273l780 +++|          LDD    CP          PRESET *CPAD* FOR CP ACCESS
02604  M01S00122.273l780 +++|          STM    CPAD+1
Line S01872 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02605  M01S01872.271l716 ---|          RJM    IFP         INITIALIZE ROUTINE *CEA* OF *COMPGFP*
Line S00002 Modification History
M01 (Added by) ns2569
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02606  M02S00002.271l716 ---|          RJM    ISU         ISSUE ACCUMULATED SRU MESSAGE
Line S01873 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02607  M01S01873.271l716 ---|          LDK    SSTL        READ STATUS
02608  M01S01874.271l716 ---|          CRD    CN
02609  M01S01875.271l716 ---|          ADK    MABL-SSTL
02610  M01S01876.271l716 ---|          CRD    CM
Line S00001 Modification History
M01 (Added by) 1ro27
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02611  M02S00001.271l716 ---|          LDD    CP
02612  M02S00002.271l716 ---|          ADK    ECSW
02613  M02S00003.271l716 ---|          CRD    FN
Line S01877 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02614  M01S01877.271l716 ---|          LDD    CN
02615  M01S01878.271l716 ---|          SHN    21-12
02616  M01S01879.271l716 ---|          PJN    PRS0        IF MEMORY CLEARING ENABLED
02617  M01S01880.271l716 ---|          LDD    FL          CHECK FOR ONLY ONE SECTOR OF FL TO ROLL
02618  M01S01881.271l716 ---|          SBN    1
Line S01882 Modification History
M01 (Removed by) 1ro27
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02619  M02S01882.271l716 ---|          NJN    PRS0.1      IF NOT ONLY ONE SECTOR OF FL TO ROLL
Line S00004 Modification History
M01 (Added by) 1ro27
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02620  M02S00004.271l716 ---|          ZJN    PRS0        IF ONLY ONE SECTOR OF FL TO ROLL
02621  M02S00005.271l716 ---|          LDD    FN+4
02622  M02S00006.271l716 ---|          ZJN    PRS0.1      IF NO ECS ASSIGNED
02623  M02S00007.271l716 ---|          LDD    FL
02624  M02S00008.271l716 ---|          ADK    -MCMX/100B-3
02625  M02S00009.271l716 ---|          PJN    PRS0.1      IF MORE THAN 2 SECTORS OVER *MCMX*
Line S01883 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02626  M01S01883.271l716 ---| PRS0     LDC    PSNI        DISABLE DYNAMIC FL REDUCTION
02627  M01S01884.271l716 ---|          STM    RODA
02628  M01S01885.271l716 ---|          STM    ROMA
02629  M01S01886.271l716 ---| PRS0.1   LDD    CM+1
02630  M01S01887.271l716 ---|          SHN    21-13
02631  M01S01888.271l716 ---|          MJN    PRS1        IF NO CM EXTENSION
02632  M01S01889.271l716 ---|          LDN    PSNI        DISABLE UPDATE OF CELL *RA*
02633  M01S01890.271l716 ---|          STM    ROMF
02634  M01S01891.271l716 ---| PRS1     RJM    FLF         FLUSH LOCAL 819 FILE BUFFERS
02635  M01S01892.271l716 ---|          LDN    0           CLEAR TERMINAL OUTPUT SECTOR COUNT
Line S00473 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02636  M01S00473.271l716 +++|          LDD    IR+2
02637  M01S00474.271l716 +++|          SBN    2
02638  M01S00475.271l716 +++|          MJP    PRS4        IF NO PCP INVOLVEMENT
Line S00476 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02639  M02S00476.273l780 ---|          ZJN    PRS2        IF PSEUDO-ROLLOUT
Line S00123 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02640  M01S00123.273l780 +++|          LDK    NCPL        GET NUMBER OF CONTROL POINTS
02641  M01S00124.273l780 +++|          CRD    T1
02642  M01S00125.273l780 +++|          ADK    PCPP-NCPL   GET PCP AREA POINTER
02643  M01S00126.273l780 +++|          CRD    CM
02644  M01S00127.273l780 +++|          LDD    IR+4
02645  M01S00128.273l780 +++|          SBD    T1+1
02646  M01S00129.273l780 +++|          SBN    2           PCP AREA INDEX
02647  M01S00130.273l780 +++|          PJN    PRS0.1      IF VALID PCP NUMBER
02648  M01S00131.273l780 +++|          MONITOR  HNGM      HANG
Line S00477 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02649  M01S00477.271l716 +++|
Line S00478 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02650  M02S00478.273l780 ---|*         ISSUE A *CCAM* MONITOR FUNCTION TO INHIBIT MOVING THE PCP
02651  M02S00479.273l780 ---|*         JOB DURING FIELD LENGTH ACCESS.
Line S00132 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02652  M01S00132.273l780 +++| PRS0.1   SHN    7           PCP AREA OFFSET
02653  M01S00133.273l780 +++|          RAD    CM+4        SET PCP ADDRESS
02654  M01S00134.273l780 +++|          SHN    -14
02655  M01S00135.273l780 +++|          RAD    CM+3
02656  M01S00136.273l780 +++|          LDD    IR+2
02657  M01S00137.273l780 +++|          SBN    2
02658  M01S00138.273l780 +++|          ZJP    PRS2        IF PSEUDO-ROLLOUT
Line S00480 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02659  M01S00480.271l716 +++|
Line S00481 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02660  M02S00481.273l780 ---|          LDD    IR+4        STORE PCP NUMBER IN *CCAM* REQUEST
02661  M02S00482.273l780 ---|          STD    CM+2
02662  M02S00483.273l780 ---|          STM    JECF+2      STORE PCP NUMBER IN *RCXM/ECXM* REQUEST
02663  M02S00484.273l780 ---|          LDC    200         SELECT *MOVE TO PCP* OPTION
Line S00139 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02664  M01S00139.273l780 +++|*         PROCESS PCP ROLLOUT.
02665  M01S00140.273l780 +++|
02666  M01S00141.273l780 +++|          LDD    CM+3        SET PCP ADDRESS
02667  M01S00142.273l780 +++|          STM    CPAD
02668  M01S00143.273l780 +++|          LDD    CM+4
02669  M01S00144.273l780 +++|          STM    CPAD+1
02670  M01S00145.273l780 +++|          LDN    1           SET *CROF* WITHOUT JOB ADVANCE FLAG
02671  M01S00146.273l780 +++|          STM    CROF
02672  M01S00147.273l780 +++|          LDD    IR+4        SET PCP NUMBER AND ALTERNATE CP FLAG
02673  M01S00148.273l780 +++|          ADC    /CPS/ALCS
Line S00485 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02674  M01S00485.271l716 +++|          STD    CM+1
Line S00486 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02675  M02S00486.273l780 ---|          MONITOR  CCAM
02676  M02S00487.273l780 ---|*         LDN    0
02677  M02S00488.273l780 ---|          STM    PCPF        INDICATE PCP JOB
02678  M02S00489.273l780 ---|          AOM    ISRA        SET *RSTM* FLAGS
02679  M02S00490.273l780 ---|          LDK    NCPL        GET NUMBER OF CONTROL POINTS
Line S00149 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02680  M01S00149.273l780 +++|          MONITOR  CCAM      SET ALTERNATE PCP ASSIGNMENT
02681  M01S00150.273l780 +++|          AOD    T1+1
02682  M01S00151.273l780 +++|          SHN    7           SYSTEM CP ADDRESS
02683  M01S00152.273l780 +++|          LMD    CP
02684  M01S00153.273l780 +++|          ZJN    PRS1        IF SIMPLE PCP ROLLOUT
02685  M01S00154.273l780 +++|          LDD    CP          GET CP JOB EJT ORDINAL
02686  M01S00155.273l780 +++|          ADK    TFSW
Line S00491 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02687  M01S00491.271l716 +++|          CRD    CM
Line S00492 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02688  M02S00492.273l780 ---|          AOD    CM+1        SYSTEM CP
02689  M02S00493.273l780 ---|          SHN    7
02690  M02S00494.273l780 ---|          LMD    CP
02691  M02S00495.273l780 ---|          ZJN    PRS1        IF SIMPLE PCP ROLLOUT
02692  M02S00496.273l780 ---|          AOM    ROJL        INDICATE COMPOUND ROLLOUT
Line S00156 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02693  M01S00156.273l780 +++|          LDD    CM          SET EJT ORDINAL TO FLAG COMPOUND ROLLOUT
02694  M01S00157.273l780 +++|          STM    CPCA
Line S00497 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02695  M01S00497.271l716 +++|          SOD    IR+2        SET FUNCTION 2 FOR RECALL OF *1RO*
02696  M01S00498.271l716 +++|          LDD    IA          UPDATE PP INPUT REGISTER
02697  M01S00499.271l716 +++|          CWD    IR
02698  M01S00500.271l716 +++|          AOD    IR+2        RESET ORIGINAL FUNCTION CODE
Line S00501 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02699  M02S00501.273l780 ---| PRS1     LJM    PRS3        CONTINUE
Line S00158 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02700  M01S00158.273l780 +++| PRS1     LJM    PRS4        CONTINUE
Line S00502 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02701  M01S00502.271l716 +++|
02702  M01S00503.271l716 +++|*         PROCESS PSEUDO ROLLOUT.
02703  M01S00504.271l716 +++|
Line S00505 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02704  M02S00505.273l780 ---| PRS2     LDD    IR+4        STORE PCP NUMBER IN EJT DATA BLOCK
Line S00159 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02705  M01S00159.273l780 +++| PRS2     LDD    CM+3        SET PCP ADDRESS
02706  M01S00160.273l780 +++|          STM    PCAD
02707  M01S00161.273l780 +++|          LDD    CM+4
02708  M01S00162.273l780 +++|          STM    PCAD+1
02709  M01S00163.273l780 +++|          AOM    ISRA        SET PSEUDO ROLLOUT REQUEST FLAG
02710  M01S00164.273l780 +++|          LDD    IR+4        STORE PCP NUMBER IN EJT DATA BLOCK
Line S00506 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02711  M01S00506.271l716 +++|          STM    CROG+1
02712  M01S00507.271l716 +++|          LDD    IR+3        STORE TERMINAL NUMBER IN *1TO* CALL
02713  M01S00508.271l716 +++|          STM    ROJN+4
02714  M01S00509.271l716 +++|          ZJN    PRS2.1      IF NO TERMINAL OUTPUT PENDING
02715  M01S00510.271l716 +++|          LDK    /CPS/CCPS   CLEAR *JACM* PP DROP OPTION
02716  M01S00511.271l716 +++|          STM    ROJG+1
02717  M01S00512.271l716 +++|          AOM    ROJM        INDICATE *1TO* CALL REQUIRED
Line S00513 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02718  M02S00513.273l780 ---| PRS2.1   LDC    LJMI
02719  M02S00514.273l780 ---|          STM    CROA
02720  M02S00515.273l780 ---|          LDC    CRO4
02721  M02S00516.273l780 ---|          STM    CROA+1
02722  M02S00517.273l780 ---|          LDK    PCJS        FORCE *PCJS* JOB STATUS
Line S00165 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02723  M01S00165.273l780 +++| PRS2.1   LDK    PCJS        FORCE *PCJS* JOB STATUS
Line S00518 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02724  M01S00518.271l716 +++|          STM    CJSA
02725  M01S00519.271l716 +++|          ISTORE ROJH,(UJN ROJ2)
02726  M01S00520.271l716 +++|          LDC    TCP         SET PSEUDO-ROLLOUT PROCESSOR ADDRESS
02727  M01S00521.271l716 +++|          STM    CPAI*2+SEQ+1
02728  M01S00522.271l716 +++|          ISTORE TOPI*2+SEQ,(UJN ROJ5)
Line S00523 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02729  M02S00523.273l780 ---|          LDN    3           SET *RSTM* FLAGS
02730  M02S00524.273l780 ---|          RAM    ISRA
Line S00525 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02731  M01S00525.271l716 +++|          LDC    ROJ1        SET *PRS* EXIT
02732  M01S00526.271l716 +++|          STM    PRS
02733  M01S00527.271l716 +++|
Line S00528 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02734  M02S00528.273l780 ---|*         PROCESS PSEUDO, PCP OR COMPOUND ROLLOUT.
Line S00166 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02735  M01S00166.273l780 +++|*         PROCESS ALL ROLLOUT TYPES.
Line S00529 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02736  M01S00529.271l716 +++|
Line S00530 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02737  M02S00530.273l780 ---| PRS3     IPCP   IR+4,TLAT   INITIALIZE *COMPPCP* CODE
02738  M02S00531.273l780 ---|          LDC    4000
02739  M02S00532.273l780 ---|          STM    JECF+1      SET ALTERNATE CP/PCP *RCXM*/*ECXM* OPTION
02740  M02S00533.273l780 ---|          RAM    ROJG+1      SET ALTERNATE CP/PCP *JACM* OPTION
02741  M02S00534.273l780 ---|
02742  M02S00535.273l780 ---|*         PROCESS ALL ROLLOUT TYPES.
02743  M02S00536.273l780 ---|
02744  M02S00537.273l780 ---| PRS4     LCPA               STORE ALTERNATE RESPONSE ADDRESS
02745  M02S00538.273l780 ---|          STM    JECF+4
Line S00167 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02746  M01S00167.273l780 +++| PRS4     RJM    IFP         INITIALIZE *COMPGFP*
02747  M01S00168.273l780 +++|          LDC    TSIC        SET INSTRUCTION RELOCATION TABLE ADDRESS
02748  M01S00169.273l780 +++|          RJM    SIC         RELOCATE INSTRUCTIONS
02749  M01S00170.273l780 +++|          TLDC   FLSW,CPAD   GET NFL SIZE
02750  M01S00171.273l780 +++|          CRD    CM
02751  M01S00172.273l780 +++|          SBN    FLSW
02752  M01S00173.273l780 +++|          STM    JECF+4      SET *RCXM* RESPONSE ADDRESS
Line S00539 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02753  M01S00539.271l716 +++|          SHN    -14
02754  M01S00540.271l716 +++|          RAM    JECF+3
Line S00541 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02755  M02S00541.273l780 ---|          RJM    IFP         INITIALIZE ROUTINE *CEA* OF *COMPGFP*
Line S00174 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02756  M01S00174.273l780 +++|          LDD    CM          SET NFL SIZE
02757  M01S00175.273l780 +++|          STD    NF
02758  M01S00176.273l780 +++|          STM    RMSH
02759  M01S00177.273l780 +++|          SHN    6
Line S00542 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02760  M01S00542.271l716 +++|          RJM    FLF         FLUSH BUFFERED I/O BUFFERS
Line S00543 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02761  M02S00543.273l780 ---|          AJFL               SET CELLS *RA* AND *FL*
Line S00544 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02762  M01S00544.271l716 +++|          RJM    ISU         ISSUE ACCUMULATED SRU MESSAGES
02763  M01S00545.271l716 +++|*         LDN    0           CLEAR TERMINAL OUTPUT SECTOR COUNT
02764  M00S01893.1ro     +++|          STD    SC
02765  M00S01894.1ro     +++|          STD    FA          INITIALIZE DM* FILE FNT ADDRESS
Line S01895 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02766  M01S01895.271l716 ---|          LDN    2
02767  M01S01896.271l716 ---|          STD    TW
Line S00546 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02768  M02S00546.273l780 ---|          LDK    NCPL
02769  M02S00547.273l780 ---|          CRD    CM
02770  M02S00548.273l780 ---|          AOD    CM+1        SET NUMBER OF CONTROL POINTS + 1
02771  M02S00549.273l780 ---|          STD    NC
02772  M00S01897.1ro     +++|          LDN    ZERL
02773  M00S01898.1ro     +++|          CRD    ZR
02774  M00S01899.1ro     +++|          LDD    FL          SET ROLLOUT CM FL
Line S01900 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02775  M01S01900.271l716 ---|          STM    CROB
Line S00550 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02776  M01S00550.271l716 +++|          STM    CROC
Line S00017 Modification History
M01 (Added by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
02777  M01S00017.1ro26   +++|          STM    RMSB
02778  M00S01901.1ro     +++|          ADC    -MCMX/100
02779  M00S01902.1ro     +++|          STM    JFLB
Line S01903 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02780  M01S01903.271l716 ---|          LDD    CP
02781  M01S01904.271l716 ---|          ADN    STSW        READ CONTROL POINT STATUS WORD
Line S00551 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02782  M02S00551.273l780 ---|          LCPA   STSW        READ CONTROL POINT STATUS WORD
Line S00178 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02783  M01S00178.273l780 +++|          TLDC   STSW,CPAD   READ CONTROL POINT STATUS WORD
02784  M00S01905.1ro     +++|          CRD    FN
02785  M00S01906.1ro     +++|          ADN    FLSW-STSW   READ NFL WORD
02786  M00S01907.1ro     +++|          CRD    T3
02787  M00S01908.1ro     +++|          ADN    TFSW-FLSW   READ EJT ORDINAL WORD
02788  M00S01909.1ro     +++|          CRD    FS
02789  M00S01910.1ro     +++|          ADK    TERW-TFSW   SAVE TIMED/EVENT ROLLOUT DESCRIPTOR
02790  M00S01911.1ro     +++|          CRM    MSRH,ON
02791  M00S01912.1ro     +++|          ERRNZ  CSPW-TERW-1 CODE DEPENDS ON *CSPW* = *TERW* + 1
02792  M00S01913.1ro     +++|          CRD    CN          READ CONTROL STATEMENT POINTER WORD
02793  M00S01914.1ro     +++|          ADK    JSCW-CSPW   READ SECURITY WORD
02794  M00S01915.1ro     +++|          CRD    CM
02795  M00S01916.1ro     +++|          LDD    CM+1        SET JOB ACCESS LEVEL
02796  M00S01917.1ro     +++|          SHN    -9D
02797  M00S01918.1ro     +++|          STM    RMSG
02798  M00S01919.1ro     +++|          LDD    FN+2        SAVE ROLLOUT CONTROL FLAGS
02799  M00S01920.1ro     +++|          STM    ERSA
02800  M00S01921.1ro     +++|          STM    MSRG
02801  M00S01922.1ro     +++|          LDD    FS          SAVE EJT ORDINAL
02802  M00S01923.1ro     +++|          STD    EO
02803  M00S01924.1ro     +++|          SFA    EJT
Line S01925 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02804  M01S01925.271l716 ---|          ADK    SCHE        SAVE ADDRESS OF *SCHE* WORD
02805  M01S01926.271l716 ---|          STM    ROMK
02806  M01S01927.271l716 ---|          STM    RODB+1
02807  M01S01928.271l716 ---|          SHN    -14
02808  M01S01929.271l716 ---|          RAM    ROMK-1
02809  M01S01930.271l716 ---|          STM    RODB
02810  M01S01931.271l716 ---|          LPN    77
02811  M01S01932.271l716 ---|          SHN    14
02812  M01S01933.271l716 ---|          LMM    ROMK
02813  M01S01934.271l716 ---|          CRM    JFLD,ON     SAVE *SCHE* WORD
02814  M01S01935.271l716 ---|          SBN    SCHE-JSNE+1 READ EJT ENTRY FIRST WORD
Line S00552 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02815  M01S00552.271l716 +++|          ADK    JSNE        READ EJT ENTRY
02816  M00S01936.1ro     +++|          CRD    FS
Line S01937 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02817  M01S01937.271l716 ---|          LDD    FS+4        SAVE EJT STATUS BYTE
02818  M01S01938.271l716 ---|          STM    PRSA
02819  M01S01939.271l716 ---|          SHN    0-7         SAVE CONNECTION STATUS
02820  M01S01940.271l716 ---|          LPN    17
02821  M01S01941.271l716 ---|          STM    PRSC
Line S01942 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02822  M01S01942.273l780 ---|          LDD    T3          SAVE NFL SIZE
02823  M01S01943.273l780 ---|          STD    NF
Line S00007 Modification History
M01 (Added by) 1ro31
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02824  M02S00007.273l780 ---|          STM    RMSH
Line S01944 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02825  M01S01944.271l716 ---|          ADN    1
02826  M01S01945.271l716 ---|          RAM    ROMJ
02827  M01S01946.271l716 ---|          LPN    77
02828  M01S01947.271l716 ---|          ADN    1
02829  M01S01948.271l716 ---|          RAM    ROMN
02830  M01S01949.271l716 ---|          LPN    77
02831  M01S01950.271l716 ---|          RAM    ROMG
02832  M00S01951.1ro     +++|          LDC    UJNI+2
02833  M00S01952.1ro     +++|          STD    DI
Line S01953 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02834  M01S01953.271l716 ---|          LDD    FN+1        SAVE ERROR FLAG IN EJT
02835  M01S01954.271l716 ---|          STM    CROE+3*5+4
Line S00553 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02836  M01S00553.271l716 +++|          LDD    FN+1        SAVE ERROR FLAG IN EJT DATA BLOCK
02837  M01S00554.271l716 +++|          STM    CROI
02838  M00S01955.1ro     +++|
02839  M00S01956.1ro     +++|*         DETERMINE CONTROL POINT ACTIVITY.
02840  M00S01957.1ro     +++|
Line S01958 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02841  M01S01958.271l716 ---|          LDD    FN+4
Line S00555 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02842  M02S00555.ns2738  ---|          LDD    FS+4        SAVE EJT STATUS BYTE
02843  M02S00556.ns2738  ---|          STM    PRSA
02844  M02S00557.ns2738  ---|          SHN    0-7         SAVE CONNECTION STATUS
Line S00005 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02845  M01S00005.ns2738  +++|          LDD    FS+4        SAVE CONNECTION STATUS
02846  M01S00006.ns2738  +++|          SHN    0-7
Line S00558 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02847  M01S00558.271l716 +++|          LPN    17
02848  M01S00559.271l716 +++|          STM    PRSG
02849  M01S00560.271l716 +++|          LDD    FN+4
02850  M00S01959.1ro     +++|          NFA    SHCN        CHECK *SHELL* CONTROLS
02851  M00S01960.1ro     +++|          CRD    CM
02852  M00S01961.1ro     +++|          LDD    CM
Line S01962 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02853  M01S01962.271l716 ---|          ZJN    PRS1.0      IF NO SHELL CONTROLS
Line S00561 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02854  M01S00561.271l716 +++|          ZJN    PRS6        IF NO SHELL CONTROLS
02855  M00S01963.1ro     +++|          LDD    CM+4
02856  M00S01964.1ro     +++|          SHN    21-2
Line S01965 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02857  M01S01965.271l716 ---|          MJP    PRS6        IF INTERACTIVE *SHELL*
02858  M01S01966.271l716 ---| PRS1.0   LDD    FN+4
Line S00562 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02859  M01S00562.271l716 +++|          MJP    PRS13       IF INTERACTIVE *SHELL*
02860  M01S00563.271l716 +++| PRS6     LDD    FN+4
02861  M00S01967.1ro     +++|          SCN    17
Line S01968 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02862  M01S01968.271l716 ---|          NJN    PRS1.1      IF PP RECALL OR TAPE ACTIVITY
Line S00564 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02863  M01S00564.271l716 +++|          NJN    PRS6.1      IF PP RECALL OR TAPE ACTIVITY
02864  M00S01969.1ro     +++|          LDD    FN+2        GET CPU STATUS FLAG
02865  M00S01970.1ro     +++|          LPN    2
02866  M00S01971.1ro     +++|          ADD    FN+1        GET ERROR FLAG
Line S01972 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02867  M01S01972.271l716 ---|          NJN    PRS1.1      IF CPU ACTIVITY OR ERROR FLAG SET
Line S00565 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02868  M02S00565.ns2738  ---|          NJN    PRS7        IF CPU ACTIVITY OR ERROR FLAG SET
Line S00007 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02869  M01S00007.ns2738  +++|          NJN    PRS6.1      IF CPU ACTIVITY OR ERROR FLAG SET
02870  M00S01973.1ro     +++|          LDD    CN+3
02871  M00S01974.1ro     +++|          LMD    CN+4
Line S01975 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02872  M01S01975.271l716 ---|          NJN    PRS1.1      IF COMMAND BUFFER NOT EMPTY
Line S00566 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02873  M01S00566.271l716 +++| PRS6.1   NJN    PRS7        IF COMMAND BUFFER NOT EMPTY
02874  M00S01976.1ro     +++|          LDD    CN+1
02875  M00S01977.1ro     +++|          SHN    6
Line S01978 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02876  M01S01978.271l716 ---|          PJP    PRS6        IF NOT AT EOR OF CONTROL STATEMENT RECORD
Line S00567 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
02877  M02S00567.ns2719  ---|          PJP    PRS13       IF NOT AT EOR OF CONTROL STATEMENT RECORD
Line S00001 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
02878  M01S00001.ns2719  +++| PRS6.2   PJP    PRS13       IF NOT AT EOR OF CONTROL STATEMENT RECORD
02879  M00S01979.1ro     +++|          LDC    **
Line S01980 Modification History
M01 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02880  M01S01980.ns2738  ---| PRSA     EQU    *-1         (EJT STATUS BYTE)
02881  M01S01981.ns2738  ---|          SHN    21-13
Line S01982 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02882  M02S01982.ns2738  ---|          MJN    PRS2        IF JOB CONNECTED TO SCP
Line S00568 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02883  M02S00568.ns2738  ---|          MJN    PRS7        IF JOB CONNECTED TO SCP
02884  M00S01983.1ro     +++|          LDD    IR+2
Line S01984 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02885  M01S01984.271l716 ---|          NJN    PRS2        IF *DMP=* CALL
02886  M01S01985.271l716 ---|          LDD    CP
02887  M01S01986.271l716 ---|          ADK    EOJW
Line S00569 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02888  M01S00569.271l716 +++|          LMN    1
Line S00570 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
02889  M02S00570.ns2719  ---|          ZJN    PRS8        IF *DMP=* CALL
Line S00002 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
02890  M01S00002.ns2719  +++|          ZJN    PRS6.2      IF *DMP=* CALL
Line S00571 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02891  M02S00571.273l780 ---|          LCPA   EOJW
Line S00179 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02892  M01S00179.273l780 +++|          TLDC   EOJW,CPAD
02893  M00S01987.1ro     +++|          CRD    CN
02894  M00S01988.1ro     +++|          ADK    RFCW-EOJW
02895  M00S01989.1ro     +++|          CRD    CM
Line S00008 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02896  M01S00008.ns2738  +++|          ADK    SSCW-RFCW
02897  M01S00009.ns2738  +++|          CRD    FS
02898  M00S01990.1ro     +++|          LDD    CN+2
02899  M00S01991.1ro     +++|          LPC    777
Line S01992 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02900  M01S01992.271l716 ---|          NJN    PRS2        IF PROLOGUE OR EPILOGUE ACTIVITY
Line S00572 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02901  M01S00572.271l716 +++|          NJN    PRS8        IF PROLOGUE OR EPILOGUE ACTIVITY
02902  M00S01993.1ro     +++|          LDD    CM+3
02903  M00S01994.1ro     +++|          SCN    77
02904  M00S01995.1ro     +++|          ADD    CM+2
Line S01996 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02905  M01S01996.271l716 ---| PRS1.1   NJN    PRS2        IF *TCS* EXECUTE CALL IN PROGRESS
02906  M01S01997.271l716 ---|          LDD    CP
02907  M01S01998.271l716 ---|          ADK    TINW
Line S00573 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02908  M02S00573.ns2738  ---| PRS7     NJN    PRS8        IF *TCS* EXECUTE CALL IN PROGRESS
Line S00010 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
02909  M01S00010.ns2738  +++|          ADD    FS
02910  M01S00011.ns2738  +++|          ADD    FS+1
02911  M01S00012.ns2738  +++|          ADD    FS+2
02912  M01S00013.ns2738  +++|          ADD    FS+3
02913  M01S00014.ns2738  +++|          ADD    FS+4
02914  M01S00015.ns2738  +++| PRS7     NJN    PRS8        IF *TCS* COMMAND OR SCP CONNECTIONS
Line S00574 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
02915  M02S00574.ns2719  ---|          LCPA   TINW
Line S00003 Modification History
M01 (Added by) ns2719
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02916  M02S00003.273l780 ---|          LCPA   JCIW
Line S00180 Modification History
M01 (Added by) 273l780
M02 (Removed by) 1ro32
Seq #  *Modification Id* Act 
----------------------------+
02917  M02S00180.1ro32   ---|          TLDC   TINW,CPAD
Line S00001 Modification History
M01 (Added by) 1ro32
Seq #  *Modification Id* Act 
----------------------------+
02918  M01S00001.1ro32   +++|          TLDC   JCIW,CPAD   READ JOB CONTROL WORD
Line S00004 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
02919  M01S00004.ns2719  +++|          CRD    CM
Line S00005 Modification History
M01 (Added by) ns2719
M02 (Removed by) 1ro32
Seq #  *Modification Id* Act 
----------------------------+
02920  M02S00005.1ro32   ---|          ADN    TINW-JCIW   READ JOB CONTROL
Line S00002 Modification History
M01 (Added by) 1ro32
Seq #  *Modification Id* Act 
----------------------------+
02921  M01S00002.1ro32   +++|          ADN    TINW-JCIW   READ TERMINAL INPUT WORD
02922  M00S01999.1ro     +++|          CRD    CN
02923  M00S02000.1ro     +++|          ADK    SPCW-TINW   READ SPECIAL CALL WORD
02924  M00S02001.1ro     +++|          CRD    FS
Line S00006 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
02925  M01S00006.ns2719  +++|          LDD    CM+3
02926  M01S00007.ns2719  +++|          SHN    21-10
02927  M01S00008.ns2719  +++|          MJN    PRS8        IF JOB STEP FILES TO RETURN
02928  M00S02002.1ro     +++|          LDD    FS
Line S02003 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02929  M01S02003.271l716 ---|          NJN    PRS2        IF *DMP=* IN PROGRESS
Line S00575 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02930  M01S00575.271l716 +++|          NJN    PRS8        IF *DMP=* IN PROGRESS
02931  M00S02004.1ro     +++|          LDD    CN+3
02932  M00S02005.1ro     +++|          SCN    77
02933  M00S02006.1ro     +++|          ADD    CN+2
Line S02007 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02934  M01S02007.271l716 ---|          NJN    PRS2        IF TERMINAL INPUT PENDING
Line S00576 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02935  M01S00576.271l716 +++|          NJN    PRS8        IF TERMINAL INPUT PENDING
02936  M00S02008.1ro     +++|          LDD    CN+1
02937  M00S02009.1ro     +++|          LPC    100
Line S02010 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02938  M01S02010.271l716 ---|          ZJN    PRS3        IF NOT REPRIEVE ON NORMAL TERMINATION
02939  M01S02011.271l716 ---| PRS2     LJM    PRS6        BYPASS ECS CHECK
02940  M01S02012.271l716 ---|
02941  M01S02013.271l716 ---| PRS3     LDD    CP          CHECK FOR ECS PROTECTED
02942  M01S02014.271l716 ---|          ADN    JCIW
Line S00577 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02943  M01S00577.271l716 +++|          ZJN    PRS9        IF NOT REPRIEVE ON NORMAL TERMINATION
02944  M01S00578.271l716 +++| PRS8     LJM    PRS13       BYPASS EM CHECK
02945  M01S00579.271l716 +++|
02946  M01S00580.271l716 +++| PRS9     LDD    IR+2
02947  M01S00581.271l716 +++|          LMN    2
02948  M01S00582.271l716 +++|          NJN    PRS9.1      IF NOT PSEUDO-ROLLOUT
02949  M01S00583.271l716 +++|
02950  M01S00584.271l716 +++|*         AVOID PSEUDO-ROLLOUT AT END OF JOB STEP.  *1RO* WILL BE
02951  M01S00585.271l716 +++|*         RECALLED TO PERFORM A MASS STORAGE ROLLOUT OF THE JOB.
02952  M01S00586.271l716 +++|
Line S00587 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02953  M02S00587.273l780 ---|          LDD    IR+4        READ *TFSW* FROM PCPA
02954  M02S00588.273l780 ---|          RJM    CCA
02955  M02S00589.273l780 ---|          ADK    TFSW
Line S00181 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02956  M01S00181.273l780 +++|          TLDC   TFSW,PCAD   READ *TFSW* FROM PCPA
Line S00590 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02957  M01S00590.271l716 +++|          CRD    CM
02958  M01S00591.271l716 +++|          LDN    0           CLEAR EJT ORDINAL
02959  M01S00592.271l716 +++|          STD    CM
02960  M01S00593.271l716 +++|          STD    IR+2        SET NEW *1RO* FUNCTION CODE
Line S00594 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02961  M02S00594.273l780 ---|          LDD    IR+4        REWRITE *TFSW* TO RELEASE PCP
02962  M02S00595.273l780 ---|          RJM    CCA
02963  M02S00596.273l780 ---|          ADK    TFSW
Line S00182 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02964  M01S00182.273l780 +++|          TLDC   TFSW,PCAD   REWRITE *TFSW* TO RELEASE PCP
Line S00597 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02965  M01S00597.271l716 +++|          CWD    CM
02966  M01S00598.271l716 +++|          LDN    0           CLEAR PCP NUMBER
02967  M01S00599.271l716 +++|          STD    IR+4
02968  M01S00600.271l716 +++|          LDD    IA          REWRITE PP INPUT REGISTER
02969  M01S00601.271l716 +++|          CWD    IR
02970  M01S00602.271l716 +++|          LJM    PPR         RECALL *1RO* FOR MASS STORAGE ROLLOUT
02971  M01S00603.271l716 +++|
Line S00604 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02972  M02S00604.273l780 ---| PRS9.1   LCPA   JCIW
Line S00183 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02973  M01S00183.273l780 +++| PRS9.1   TLDC   JCIW,CPAD
02974  M00S02015.1ro     +++|          CRD    FS
Line S02016 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02975  M01S02016.271l750 ---|          ADN    ECSW-JCIW
Line S00001 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
02976  M01S00001.271l750 +++|          SBN    JCIW-ECSW
02977  M00S02017.1ro     +++|          CRD    CN
02978  M00S02018.1ro     +++|          LDD    CN+4
Line S02019 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02979  M01S02019.271l716 ---|          ZJN    PRS4        IF ECS NOT ASSIGNED
Line S00605 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02980  M01S00605.271l716 +++|          ZJN    PRS10       IF EM NOT ASSIGNED
02981  M00S02020.1ro     +++|          LDD    FS+3
02982  M00S02021.1ro     +++|          LPC    100
02983  M00S02022.1ro     +++|          ERRNZ  MCMX/100-100  CHECK FOR CORRECT VALUE OF *MCMX*
Line S02023 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02984  M01S02023.271l716 ---| PRS4     STM    ROJH
Line S00606 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02985  M01S00606.271l716 +++| PRS10    STM    CPAB
02986  M00S02024.1ro     +++|          LDN    0           CLEAR CM TO ROLL
02987  M00S02025.1ro     +++|          STM    JFLB
Line S02026 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02988  M01S02026.271l716 ---|          LDM    PRSC
Line S00607 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02989  M01S00607.271l716 +++|          LDM    PRSG
02990  M00S02027.1ro     +++|          LMN    OLCS
Line S02028 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02991  M01S02028.271l716 ---|          NJN    PRS5        IF NOT ON-LINE CONNECTION STATUS
Line S00608 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02992  M01S00608.271l716 +++|          NJN    PRS11       IF NOT ON-LINE CONNECTION STATUS
02993  M00S02029.1ro     +++|          LDM    ERSA        SET DISABLE FLAG IN ROLLOUT CONTROL BYTE
02994  M00S02030.1ro     +++|          SCN    20
02995  M00S02031.1ro     +++|          LMN    20
02996  M00S02032.1ro     +++|          STM    ERSA
Line S02033 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02997  M01S02033.271l716 ---| PRS5     LDM    ROJH
02998  M01S02034.271l716 ---|          NJN    PRS5.1      IF ECS PROTECTED
Line S00609 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02999  M01S00609.271l716 +++| PRS11    LDM    CPAB
03000  M01S00610.271l716 +++|          NJN    PRS12       IF ECS PROTECTED
03001  M00S02035.1ro     +++|          LDD    DI          DISABLE ECS ROLLOUT
03002  M00S02036.1ro     +++|          STM    JECI*2+SEQ
Line S00611 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03003  M01S00611.271l716 +++|          LDC    UJNI+PRS14-PRSB  DISABLE USER EM CHECK
Line S02037 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03004  M01S02037.271l716 ---|          ERRPL  PRS7-PRSB-40  RANGE ERROR ON JUMP
03005  M01S02038.271l716 ---|          LDC    UJNI+PRS7-PRSB  DISABLE USER ECS CHECK
Line S00612 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03006  M01S00612.271l716 +++|          ERRPL  PRS14-PRSB-40  RANGE ERROR ON JUMP
03007  M00S02039.1ro     +++|          STM    PRSB
Line S02040 Modification History
M01 (Removed by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
03008  M01S02040.1ro26   ---|          SOM    CPAA        SET FLAG TO RELEASE CM AND ECS FL IN CPA
03009  M01S02041.1ro26   ---|          LDN    PSNI        DISABLE REQUEST FOR SPACE FOR CM FL
03010  M01S02042.1ro26   ---|          STM    RMSB
Line S02043 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03011  M01S02043.271l716 ---| PRS5.1   LDD    NF          SAVE NFL SIZE AS CM FL IN *UTEM* BLOCK
Line S00613 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03012  M01S00613.271l716 +++| PRS12    LDD    NF          SAVE NFL SIZE AS CM FL IN EJT DATA BLOCK
Line S02044 Modification History
M01 (Removed by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
03013  M01S02044.1ro26   ---|          ADD    HN          ADD ECS FIELD LENGTH
Line S00018 Modification History
M01 (Added by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03014  M02S00018.271l716 ---|          ADM    ROJH        ADD FIELD LENGTH FOR ECS ROLLOUT
Line S00614 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03015  M01S00614.271l716 +++|          ADM    CPAB        ADD FL FOR EM ROLLOUT
03016  M00S02045.1ro     +++|          ERRNZ  MCMX/100-100  CHECK FOR CORRECT VALUE OF *MCMX*
Line S02046 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03017  M01S02046.271l716 ---|          STM    CROE+5*5+4
03018  M01S02047.271l716 ---|          STM    CROA        INDICATE CM/ECS FL ALREADY SET
Line S00615 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03019  M01S00615.271l716 +++|          STM    CROJ+1
03020  M01S00616.271l716 +++|          STM    CROB        INDICATE CM/EM FL ALREADY SET
03021  M00S02048.1ro     +++|          LDD    CN+4        SAVE ASSIGNED ECS AMOUNT
Line S02049 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03022  M01S02049.271l716 ---|          STM    CROE+5*5+3
Line S00617 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03023  M01S00617.271l716 +++|          STM    CROJ
Line S00019 Modification History
M01 (Added by) 1ro26
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03024  M02S00019.271l716 ---|          LDM    ROJH        SET FIELD LENGTH FOR ROLLOUT
Line S00618 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03025  M01S00618.271l716 +++|          LDM    CPAB        SET FL FOR ROLLOUT
Line S00020 Modification History
M01 (Added by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
03026  M01S00020.1ro26   +++|          STM    RMSB
03027  M01S00021.1ro26   +++|          LDC    LDDI+HN
03028  M01S00022.1ro26   +++|          STM    JECG
03029  M01S00023.1ro26   +++|          STM    JECH
03030  M01S00024.1ro26   +++|          ERRNZ  MCMX/100-100  CHECK FOR CORRECT VALUE OF *MCMX*
Line S02050 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03031  M01S02050.271l716 ---| PRS6     LDK    MEFL        GET USER EM SHIFT COUNT (UESC)
Line S00619 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03032  M01S00619.271l716 +++| PRS13    LDD    IR+2
03033  M01S00620.271l716 +++|          LMN    2
03034  M01S00621.271l716 +++|          NJN    PRS13.1     IF NOT PSEUDO-ROLLOUT
03035  M01S00622.271l716 +++|          LDD    NF          STORE CM FL IN EJT DATA BLOCK
03036  M01S00623.271l716 +++|          ADD    T3+4
03037  M01S00624.271l716 +++|          STM    CROJ+1
03038  M01S00625.271l716 +++|          LDD    CP          GET EM FL
03039  M01S00626.271l716 +++|          ADK    ECSW
03040  M01S00627.271l716 +++|          CRD    CM
03041  M01S00628.271l716 +++|          LDD    CM+4        STORE EM FL IN EJT DATA BLOCK
03042  M01S00629.271l716 +++|          STM    CROJ
03043  M01S00630.271l716 +++|          LJM    PRS38       READ EJT ENTRY AND EXIT
03044  M01S00631.271l716 +++|
03045  M01S00632.271l716 +++| PRS13.1  LDK    MEFL        GET USER EM SHIFT COUNT (*UESC*)
03046  M00S02051.1ro     +++|          CRD    CM
03047  M00S02052.1ro     +++|          LDD    CM+2
03048  M00S02053.1ro     +++|          SHN    -11
Line S02054 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03049  M01S02054.271l716 ---|          RAM    PRSH
Line S00633 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03050  M01S00633.271l716 +++|          RAM    PRSC
03051  M00S02055.1ro     +++|          ADN    3
Line S02056 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03052  M01S02056.271l716 ---|          STM    RSMN
03053  M01S02057.271l716 ---|          LDD    CP          SAVE *FLSW* ADDRESS
03054  M01S02058.271l716 ---|          ADN    FLSW
03055  M01S02059.271l716 ---|          STM    ROMD
03056  M01S02060.271l716 ---|          STM    ROMH
03057  M01S02061.271l716 ---|          ADK    ECSW-FLSW
03058  M01S02062.271l716 ---|*         UJN    PRS7        (NO CONTROL POINT ACTIVITY)
03059  M01S02063.271l716 ---| PRSB     EQU    *-1
Line S00634 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03060  M01S00634.271l716 +++|          STM    RMSN
Line S00635 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03061  M02S00635.273l780 ---| PRSB     LCPA   ECSW
Line S00184 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03062  M01S00184.273l780 +++| PRSB     TLDC   ECSW,CPAD
Line S00636 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03063  M01S00636.271l716 +++|*         UJN    PRS14       (NO CP ACTIVITY)
03064  M00S02064.1ro     +++|          CRD    CN
03065  M00S02065.1ro     +++|          LDD    CN+4        SAVE ASSIGNED ECS AMOUNT
Line S02066 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03066  M01S02066.271l716 ---|          STM    CDRC
03067  M01S02067.271l716 ---| PRSH     SHN    0
Line S00637 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03068  M01S00637.271l716 +++|          STM    CROD
03069  M01S00638.271l716 +++| PRSC     SHN    0
03070  M00S02068.1ro     +++|*         SHN    UESC
03071  M00S02069.1ro     +++|          LMC    -0
03072  M00S02070.1ro     +++|          STM    AEAA+1
03073  M00S02071.1ro     +++|          SHN    -14
03074  M00S02072.1ro     +++|          RAM    AEAA
03075  M00S02073.1ro     +++|          LDD    CN+4
Line S02074 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03076  M01S02074.271l716 ---|          NJN    PRS7        IF JOB HAS ECS ASSIGNED
03077  M01S02075.271l716 ---|          LDD    FL
Line S00639 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03078  M01S00639.271l716 +++|          NJN    PRS14       IF JOB HAS EM ASSIGNED
Line S00640 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03079  M02S00640.273l780 ---|          AJFL   FL          SET *FL*
Line S00185 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03080  M01S00185.273l780 +++|          LDD    FL          SET *FL*
03081  M00S02076.1ro     +++|          STM    JFLB
03082  M00S02077.1ro     +++|          LDD    DI
03083  M00S02078.1ro     +++|          STM    JECI*2+SEQ
Line S02079 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03084  M01S02079.271l716 ---| PRS7     LDD    IR+2
03085  M01S02080.271l716 ---|          NJN    PRS9.1      IF *DMP=* CALL
03086  M01S02081.271l716 ---|          LDM    JFLB
03087  M01S02082.271l716 ---|          NJN    PRS8        IF ROUTINE *JFL* WILL NOT ROLL ONLY NFL
03088  M01S02083.271l716 ---|          STM    MSRC
03089  M01S02084.271l716 ---|          SOM    ROMJ        ADJUST NFL CHECK
03090  M01S02085.271l716 ---|          LDC    UJNI+ROM8-ROML
03091  M01S02086.271l716 ---|          ERRPL  ROM8-ROML-40  RANGE ERROR
03092  M01S02087.271l716 ---|          STM    ROML
03093  M01S02088.271l716 ---| PRS8     LDD    DI          DISABLE DM* FILE CREATION
Line S00641 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03094  M01S00641.271l716 +++| PRS14    LDD    IR+2
03095  M01S00642.271l716 +++|          LMN    1
03096  M01S00643.271l716 +++|          ZJN    PRS19       IF *DMP=* CALL
03097  M01S00644.271l716 +++|          LDD    DI          DISABLE DM* FILE CREATION
03098  M00S02089.1ro     +++|          STM    ROJA
Line S00048 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03099  M01S00048.ns2685  +++|          STM    RMSF        DISABLE DM* FILE FST UPDATE
03100  M00S02090.1ro     +++|
03101  M00S02091.1ro     +++|*         CHECK FOR ACCUMULATOR OVERFLOW.
03102  M00S02092.1ro     +++|
Line S02093 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03103  M01S02093.271l716 ---|          LDD    CP
03104  M01S02094.271l716 ---|          ADK    SRUW
Line S00645 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03105  M02S00645.273l780 ---|          LCPA   SRUW
Line S00186 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03106  M01S00186.273l780 +++|          TLDC   SRUW,CPAD
03107  M00S02095.1ro     +++|          CRD    CN
03108  M00S02096.1ro     +++|          LDD    CN+1
03109  M00S02097.1ro     +++|          SHN    21-5
Line S02098 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03110  M01S02098.271l716 ---|          PJN    PRS9        IF NO ACCUMULATOR OVERFLOW
Line S00646 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03111  M01S00646.271l716 +++|          PJN    PRS17       IF NO ACCUMULATOR OVERFLOW
03112  M00S02099.1ro     +++|          RJM    CAU         CALL *0AU* TO PROCESS ACCUMULATOR OVERFLOW
Line S02100 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03113  M01S02100.271l716 ---| PRS9     LDM    PRSC
Line S00647 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03114  M01S00647.271l716 +++| PRS17    LDM    PRSG
03115  M00S02101.1ro     +++|          LMN    OLCS
Line S02102 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03116  M01S02102.271l716 ---|          ZJN    PRS10       IF ON-LINE INTERACTIVE JOB
Line S00648 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03117  M01S00648.271l716 +++|          ZJN    PRS18       IF ON-LINE INTERACTIVE JOB
03118  M00S02103.1ro     +++|          LMN    OLCS&DTCS
Line S02104 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03119  M01S02104.271l716 ---| PRS9.1   NJN    PRS11       IF NON-INTERACTIVE JOB
03120  M01S02105.271l716 ---| PRS10    LJM    PRS17       PROCESS INTERACTIVE JOB
03121  M01S02106.271l716 ---|
03122  M01S02107.271l716 ---| PRS11    LDD    DI          DISABLE ON-LINE INTERACTIVE PROCESSING
Line S00649 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03123  M02S00649.ns2685  ---|          NJN    PRS19       IF NOT ON-LINE INTERACTIVE JOB
Line S00049 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03124  M01S00049.ns2685  +++|          NJN    PRS19       IF NOT DETACHED INTERACTIVE JOB
Line S00650 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03125  M01S00650.271l716 +++| PRS18    LJM    PRS25       PROCESS INTERACTIVE JOB
03126  M01S00651.271l716 +++|
Line S00652 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03127  M02S00652.ns2685  ---| PRS19    LDD    DI          DISABLE ON-LINE INTERACTIVE PROCESSING
Line S00050 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03128  M01S00050.ns2685  +++| PRS19    LDD    DI          DISABLE TERMINAL OUTPUT PROCESSING
03129  M00S02108.1ro     +++|          STM    TOPI*2+SEQ
Line S02109 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03130  M01S02109.ns2685  ---|          LDD    IR+2
Line S02110 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03131  M02S02110.ns2685  ---|          NJN    PRS12       IF DMP= CALL
03132  M02S02111.ns2685  ---|          LJM    PRS26       DISABLE REDUCE MODE
Line S00653 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03133  M02S00653.ns2685  ---|          LMN    1
03134  M02S00654.ns2685  ---|          ZJN    PRS20       IF *DMP=* CALL
03135  M02S00655.ns2685  ---|          LJM    PRS36       CONTINUE
Line S02112 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03136  M01S02112.ns2685  ---|
Line S02113 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03137  M02S02113.ns2685  ---|*         PROCESS DMP= CALL.
Line S00656 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03138  M02S00656.ns2685  ---|*         PROCESS *DMP=* CALL.
Line S02114 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03139  M01S02114.ns2685  ---|
Line S02115 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03140  M02S02115.ns2685  ---| PRS12    LDD    CP
Line S00657 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03141  M02S00657.ns2685  ---| PRS20    LDD    CP
Line S02116 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03142  M01S02116.ns2685  ---|          ADK    SEPW
03143  M01S02117.ns2685  ---|          CRD    CM
03144  M01S02118.ns2685  ---|          ADK    SPCW-SEPW
03145  M01S02119.ns2685  ---|          CRD    FS
03146  M01S02120.ns2685  ---|          LDD    FS+1
03147  M01S02121.ns2685  ---|          SHN    21-3
Line S02122 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03148  M02S02122.ns2685  ---|          MJN    PRS13       IF DMP= PARAMETER LIST IS IN *SPCW*
Line S00658 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03149  M02S00658.ns2685  ---|          MJN    PRS21       IF *DMP=* PARAMETER LIST IS IN *SPCW*
Line S02123 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03150  M01S02123.ns2685  ---|
Line S02124 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03151  M02S02124.ns2685  ---|*         MOVE DMP= PARAMETER BLOCK TO NFL.
Line S00659 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03152  M02S00659.ns2685  ---|*         MOVE *DMP=* PARAMETER BLOCK TO NFL.
Line S02125 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03153  M01S02125.ns2685  ---|
03154  M01S02126.ns2685  ---|          LDN    DMPL-1      SET BLOCK SIZE
03155  M01S02127.ns2685  ---|          STD    T1
03156  M01S02128.ns2685  ---|          LDD    FS+3
03157  M01S02129.ns2685  ---|          LPN    37
03158  M01S02130.ns2685  ---|          SHN    14
03159  M01S02131.ns2685  ---|          LMD    FS+4
Line S02132 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03160  M02S02132.ns2685  ---|          ZJN    PRS13       IF NO PARAMETER BLOCK EXISTS
Line S00660 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03161  M02S00660.ns2685  ---|          ZJN    PRS21       IF NO PARAMETER BLOCK EXISTS
Line S02133 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03162  M01S02133.ns2685  ---|          SHN    14
03163  M01S02134.ns2685  ---|          ADD    RA
03164  M01S02135.ns2685  ---|          SHN    6
03165  M01S02136.ns2685  ---|          CRM    BFMS,T1
03166  M01S02137.ns2685  ---|          NFA    DMPN
03167  M01S02138.ns2685  ---|          CWM    BFMS,T1
03168  M01S02139.ns2685  ---|
03169  M01S02140.ns2685  ---|*         CLEAR RA+1 IF NECESSARY.
03170  M01S02141.ns2685  ---|
Line S02142 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03171  M02S02142.ns2685  ---| PRS13    LDD    FS+1
Line S00661 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03172  M02S00661.ns2685  ---| PRS21    LDD    FS+1
Line S02143 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03173  M01S02143.ns2685  ---|          SHN    21-4
Line S02144 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03174  M02S02144.ns2685  ---|          MJN    PRS14       IF RA+1 SHOULD NOT BE CLEARED
Line S00662 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03175  M02S00662.ns2685  ---|          MJN    PRS22       IF RA+1 SHOULD NOT BE CLEARED
Line S02145 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03176  M01S02145.ns2685  ---|          LDD    RA          CLEAR RA+1
03177  M01S02146.ns2685  ---|          SHN    6
03178  M01S02147.ns2685  ---|          ADN    1
03179  M01S02148.ns2685  ---|          CWD    ZR
Line S02149 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03180  M02S02149.ns2685  ---| PRS14    LDN    0           PRESET *DMP=* FOR FULL FL DUMP
Line S00663 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03181  M02S00663.ns2685  ---| PRS22    LDN    0           PRESET *DMP=* FOR FULL FL DUMP
Line S02150 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03182  M01S02150.ns2685  ---|          STM    DPSS
03183  M01S02151.ns2685  ---|          LDD    IR+4
Line S02152 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03184  M02S02152.ns2685  ---|          ZJN    PRS16       IF FULL DUMP
Line S00664 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03185  M02S00664.ns2685  ---|          ZJN    PRS24       IF FULL DUMP
Line S02153 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03186  M01S02153.ns2685  ---|          STM    JFLB
03187  M01S02154.ns2685  ---|          SBD    FL
Line S02155 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03188  M02S02155.ns2685  ---|          MJN    PRS15       IF DMP= CM FL .LT. ASSIGNED CM FL
Line S00665 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03189  M02S00665.ns2685  ---|          MJN    PRS23       IF *DMP=* CM FL .LT. ASSIGNED CM FL
Line S02156 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03190  M02S02156.ns2685  ---|          LDD    FL          SET DMP= CM FL = ASSIGNED CM FL
Line S00666 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03191  M02S00666.ns2685  ---|          LDD    FL          SET *DMP=* CM FL TO ASSIGNED CM FL
Line S02157 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03192  M01S02157.ns2685  ---|          STM    JFLB
Line S02158 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03193  M02S02158.ns2685  ---| PRS15    LDD    DI          DISABLE ECS ROLLOUT
Line S00667 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03194  M02S00667.ns2685  ---| PRS23    LDD    DI          DISABLE EM ROLLOUT
Line S02159 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03195  M01S02159.ns2685  ---|          STM    JECI*2+SEQ
03196  M01S02160.ns2685  ---|          LDM    JFLB        STORE *DMP=* CM FL IN SYSTEM SECTOR
03197  M01S02161.ns2685  ---|          STM    DPSS
Line S02162 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03198  M02S02162.ns2685  ---|          LDC    **          DISABLE ECS CHECK IN *RMS*
03199  M02S02163.ns2685  ---|          ORG    *-1
03200  M02S02164.ns2685  ---|          LOC    RMSJ
03201  M02S02165.ns2685  ---|          UJN    RMS12       SKIP ECS CHECK
03202  M02S02166.ns2685  ---|          LOC    *O
03203  M02S02167.ns2685  ---|          STM    RMSJ
Line S00668 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03204  M02S00668.ns2685  ---|          ISTORE RMSJ,(UJN RMS12)  DISABLE ECS CHECK IN *RMS*
Line S02168 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03205  M02S02168.ns2685  ---| PRS16    LDC    CDR         MODIFY COMPLETION ROUTINE CALL
Line S00669 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03206  M02S00669.ns2685  ---| PRS24    LDC    /3RS/CDR    MODIFY COMPLETION ROUTINE CALL
Line S02169 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03207  M01S02169.ns2685  ---|          STM    ROJF
03208  M01S02170.ns2685  ---|          LDD    DI          DISABLE JOB STATUS CHANGE
03209  M01S02171.ns2685  ---|          STM    ROJD
03210  M01S02172.ns2685  ---|          STM    JFLA
03211  M01S02173.ns2685  ---|          STM    ROJE        DISABLE NFL ROLLOUT
Line S02174 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03212  M02S02174.ns2685  ---|          ISTORE ROJG,(UJN ROJ6)
03213  M02S02175.ns2685  ---|          LDC    CDRB+1
Line S00670 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03214  M02S00670.ns2685  ---|          ISTORE ROJG,(UJN ROJ8)
03215  M02S00671.ns2685  ---|          LDC    /3RS/CDRB+1
Line S02176 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03216  M01S02176.ns2685  ---|          STM    RMSC
Line S02177 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03217  M02S02177.ns2685  ---|          LDC    CDRB+2
Line S00672 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03218  M02S00672.ns2685  ---|          LDC    /3RS/CDRB+2
Line S02178 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03219  M01S02178.ns2685  ---|          STM    RMSD
Line S02179 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03220  M02S02179.ns2685  ---|          LDC    CDRB
Line S00673 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03221  M02S00673.ns2685  ---|          LDC    /3RS/CDRB
Line S02180 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03222  M01S02180.ns2685  ---|          STM    RMSE
Line S02181 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03223  M02S02181.ns2685  ---|          LJM    PRS27       DISABLE REDUCE MODE
Line S00674 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03224  M02S00674.ns2685  ---|          LJM    PRS35       DISABLE ON-LINE INTERACTIVE PROCESSING
Line S00051 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03225  M01S00051.ns2685  +++|          LJM    PRS35       DISABLE INTERACTIVE JOB PROCESSING
03226  M00S02182.1ro     +++| CAU      SPACE  4,15
03227  M00S02183.1ro     +++|**        CAU - CALL *0AU*.
03228  M00S02184.1ro     +++|*
03229  M00S02185.1ro     +++|*         CALL   *0AU* TO PROCESS ACCUMULATOR OVERFLOW.
03230  M00S02186.1ro     +++|*
03231  M00S02187.1ro     +++|*         ENTRY  (EO) = EJT ORDINAL.
03232  M00S02188.1ro     +++|*
Line S02189 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03233  M01S02189.ns2685  ---|*         USES   T1, CM+1 (*0AU* USES CELLS 0 - 17B).
Line S00052 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03234  M01S00052.ns2685  +++|*         USES   T1, CM - CM+4.
03235  M00S02190.1ro     +++|*
03236  M00S02191.1ro     +++|*         CALLS  CEA, DFM, 0AU.
03237  M00S02192.1ro     +++|*
03238  M00S02193.1ro     +++|*         MACROS CFI, DELAY, EXECUTE, MONITOR, PAUSE.
03239  M00S02194.1ro     +++|
Line S00675 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03240  M01S00675.271l716 +++|
03241  M01S00676.271l716 +++| CAU4     LDN    0           INDICATE NO ERROR FLAG
03242  M01S00677.271l716 +++|          STD    CM+2
03243  M01S00678.271l716 +++|          LDC    *           SET PROGRAM ADDRESS
03244  M01S00679.271l716 +++|          STD    CM+1
03245  M01S00680.271l716 +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
03246  M00S02195.1ro     +++|
03247  M00S02196.1ro     +++| CAU      SUBR               ENTRY/EXIT
Line S00681 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03248  M01S00681.271l716 +++|          LDD    IR+2
03249  M01S00682.271l716 +++|          SBN    2
03250  M01S00683.271l716 +++|          PJN    CAU4        IF PCP ROLLOUT OR PSEUDO-ROLLOUT
03251  M00S02197.1ro     +++|
03252  M00S02198.1ro     +++|*         SET *0AU* CALL PARAMETERS.
03253  M00S02199.1ro     +++|
03254  M00S02200.1ro     +++|          LDD    CP          SET UP CALL BLOCK
03255  M00S02201.1ro     +++|          ADN    SRUW
03256  M00S02202.1ro     +++|          CRM    OAUA+5,ON
03257  M00S02203.1ro     +++|          ADN    FPFW-SRUW-1
03258  M00S02204.1ro     +++|          CRM    OAUL-5,ON
03259  M00S02205.1ro     +++|          SFA    EJT,EO      CALCULATE EJT ENTRY ADDRESS
03260  M00S02206.1ro     +++|          ADK    JSNE
03261  M00S02207.1ro     +++|          CRM    OAUA,ON     READ JSN INTO *0AU* PARAMETER BLOCK
Line S02208 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03262  M01S02208.ns2685  ---|          LDM    EJSS+SCLE*5+0  SET SERVICE CLASS FOR *0AU*
Line S00053 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
03263  M01S00053.ns2685  +++|          ADK    SCLE-JSNE-1 READ SERVICE CLASS
03264  M01S00054.ns2685  +++|          CRD    CM
03265  M01S00055.ns2685  +++|          LDD    CM          SET SERVICE CLASS FOR *0AU*
03266  M00S02209.1ro     +++|          SCN    77
03267  M00S02210.1ro     +++|          STM    OAUA+4
03268  M00S02211.1ro     +++|          LDM    OAUL-5      SET *0AU* OVERFLOW PROCESSING
03269  M00S02212.1ro     +++|          SCN    77
03270  M00S02213.1ro     +++|          LMN    1
03271  M00S02214.1ro     +++|          STM    OAUL-5
03272  M00S02215.1ro     +++|          LDC    OAUA        PARAMETER BLOCK FWA
03273  M00S02216.1ro     +++|          STM    OAUL-4
03274  M00S02217.1ro     +++|
03275  M00S02218.1ro     +++|*         CALL *0AU*.
03276  M00S02219.1ro     +++|
03277  M00S02220.1ro     +++| CAU1     EXECUTE  0AU,OAUL  CALL *0AU*
03278  M00S02221.1ro     +++|          SBN    2           CHECK FOR SUCCESSFUL UPDATE/FILE ERROR
03279  M00S02222.1ro     +++|          MJN    CAU2        IF SUCCESSFUL UPDATE OR FILE ERROR
03280  M00S02223.1ro     +++|          SOM    CAUA
03281  M00S02224.1ro     +++|          STD    T1          SET DELAY COUNT
03282  M00S02225.1ro     +++|          PJN    CAU3        IF RETRY COUNT NOT EXHAUSTED
03283  M00S02226.1ro     +++|          LDN    /CPS/RLCO   CLEAR OVERFLOW FLAGS
03284  M00S02227.1ro     +++|          STD    CM+1
03285  M00S02228.1ro     +++|          MONITOR  RLMM
03286  M00S02229.1ro     +++|          LDC    CAUB+ACFN   OVERFLOW QUANTITY
03287  M00S02230.1ro     +++|          RJM    DFM         ISSUE MESSAGE
03288  M00S02231.1ro     +++| CAU2     LJM    CAUX        EXIT
03289  M00S02232.1ro     +++|
03290  M00S02233.1ro     +++|*         PROCESS *0AU* REJECT.
03291  M00S02234.1ro     +++|
03292  M00S02235.1ro     +++| CAU3     SOD    T1
03293  M00S02236.1ro     +++|          MJN    CAU1        IF END OF DELAY
03294  M00S02237.1ro     +++|          DELAY
03295  M00S02238.1ro     +++|          PAUSE  NE
03296  M00S02239.1ro     +++|          UJN    CAU3        CONTINUE DELAY
03297  M00S02240.1ro     +++|
03298  M00S02241.1ro     +++| CAUA     CON    10          RETRY COUNT
03299  M00S02242.1ro     +++| CAUB     DATA   C*AUSR, 219902.325UNTS.*
03300  M00S02243.1ro     +++|          SPACE  4,10
03301  M00S02244.1ro     +++|**        BUFFER ASSIGNMENTS.
03302  M00S02245.1ro     +++|
03303  M00S02246.1ro     +++|
03304  M00S02247.1ro     +++| OAUA     EQU    *           *0AU* PARAMETER BLOCK
03305  M00S02248.1ro     +++| OAUL     EQU    OAUA+2*5+5  *0AU* LOAD ADDRESS
03306  M00S02249.1ro     +++| OVL0     EQU    BUF+1       *0BF*/*0DF* LOAD ADDRESS
03307  M00S02250.1ro     +++| TBUF     EQU    BUF         NEXT TRACK BUFFER
03308  M00S02251.1ro     +++| TBUFL    EQU    TBUF+10
03309  M00S02252.1ro     +++| WDSB     EQU    TBUFL       WRITE ERROR PROCESSING BUFFER
03310  M00S02253.1ro     +++| .1       MAX    WDSB+502,PRS+1+5
03311  M00S02254.1ro     +++| E1RO     EQU    .1          OVERLAY ORIGIN
Line S02255 Modification History
M01 (Removed by) 1ro24
Seq #  *Modification Id* Act 
----------------------------+
03312  M01S02255.1ro24   ---| .2       MAX    OVL0+ZDFL+5,E1RO
03313  M01S02256.1ro24   ---| E2RO     EQU    .2          SECOND OVERLAY ORIGIN
03314  M00S02257.1ro     +++| OBUF     EQU    IROB        FIRST SECTOR OUTPUT BUFFER
Line S00003 Modification History
M01 (Added by) ns2569
Seq #  *Modification Id* Act 
----------------------------+
03315  M01S00003.ns2569  +++| ISU      SPACE  4,10
03316  M01S00004.ns2569  +++|**        ISU - ISSUE ACCUMULATED SRU MESSAGE.
03317  M01S00005.ns2569  +++|*
Line S00684 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03318  M01S00684.271l716 +++|*         EXIT   (A) = 0.
03319  M01S00685.271l716 +++|*
Line S00006 Modification History
M01 (Added by) ns2569
Seq #  *Modification Id* Act 
----------------------------+
03320  M01S00006.ns2569  +++|*         USES   CM - CM+4, CN - CN+4.
03321  M01S00007.ns2569  +++|*
03322  M01S00008.ns2569  +++|*         CALLS  DFM.
03323  M01S00009.ns2569  +++|*
Line S00010 Modification History
M01 (Added by) ns2569
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03324  M02S00010.271l716 ---|*         MACROS MONITOR.
Line S00686 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03325  M02S00686.273l780 ---|*         MACROS LCPA, MONITOR.
Line S00187 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03326  M01S00187.273l780 +++|*         MACROS MONITOR.
Line S00011 Modification History
M01 (Added by) ns2569
Seq #  *Modification Id* Act 
----------------------------+
03327  M01S00011.ns2569  +++|
03328  M01S00012.ns2569  +++|
03329  M01S00013.ns2569  +++| ISU      SUBR               ENTRY/EXIT
Line S00014 Modification History
M01 (Added by) ns2569
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03330  M02S00014.271l716 ---|          LDD    CP          CHECK IF MESSAGE REQUIRED
03331  M02S00015.271l716 ---|          ADN    SRUW
Line S00687 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03332  M02S00687.273l780 ---|          LCPA   SRUW
Line S00188 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03333  M01S00188.273l780 +++|          TLDC   SRUW,CPAD
Line S00016 Modification History
M01 (Added by) ns2569
Seq #  *Modification Id* Act 
----------------------------+
03334  M01S00016.ns2569  +++|          CRD    CN
03335  M01S00017.ns2569  +++|          ADN    SRJW-SRUW
03336  M01S00018.ns2569  +++|          CRD    CM
03337  M01S00019.ns2569  +++|
03338  M01S00020.ns2569  +++|*         AN UPDATE MESSAGE IS ISSUED EVERY 107.374 SRU-S.
03339  M01S00021.ns2569  +++|
03340  M01S00022.ns2569  +++|          LDD    CN+2
03341  M01S00023.ns2569  +++|          SBD    CM
03342  M01S00024.ns2569  +++|          SHN    -6
03343  M01S00025.ns2569  +++|          ZJN    ISUX        IF SRU PERIOD NOT ELAPSED
03344  M01S00026.ns2569  +++|          LDD    CN+2        UPDATE LAST SRU MESSAGE VALUE
03345  M01S00027.ns2569  +++|          STD    CM
Line S00028 Modification History
M01 (Added by) ns2569
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03346  M02S00028.271l716 ---|          LDD    CP
03347  M02S00029.271l716 ---|          ADN    SRJW
Line S00688 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03348  M02S00688.273l780 ---|          LCPA   SRJW
Line S00189 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03349  M01S00189.273l780 +++|          TLDC   SRJW,CPAD
Line S00030 Modification History
M01 (Added by) ns2569
Seq #  *Modification Id* Act 
----------------------------+
03350  M01S00030.ns2569  +++|          CWD    CM
03351  M01S00031.ns2569  +++|          LDD    CN+1
03352  M01S00032.ns2569  +++|          ADD    CN+2
03353  M01S00033.ns2569  +++|          ADD    CN+3
03354  M01S00034.ns2569  +++|          ADD    CN+4
03355  M01S00035.ns2569  +++|          ZJP    ISUX        IF ZERO SRU-S TO DISPLAY
03356  M01S00036.ns2569  +++|          LDD    MA          CONVERT SRU-S TO DISPLAY CODE
03357  M01S00037.ns2569  +++|          CWD    CN
03358  M01S00038.ns2569  +++|          LDN    1
03359  M01S00039.ns2569  +++|          STD    CM+1
03360  M01S00040.ns2569  +++|          STD    CM+2
03361  M01S00041.ns2569  +++|          MONITOR  RDCM
03362  M01S00042.ns2569  +++|          LDD    MA
03363  M01S00043.ns2569  +++|          CRM    ISUB,ON     READ CONVERTED DATA
03364  M01S00044.ns2569  +++|          LDC    ISUA+ACFN
03365  M01S00045.ns2569  +++|          RJM    DFM
Line S00046 Modification History
M01 (Added by) ns2569
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03366  M02S00046.271l716 ---|          LJM    ISUX        RETURN
Line S00689 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03367  M01S00689.271l716 +++|*         LDN    0
03368  M01S00690.271l716 +++|          UJP    ISUX        RETURN
Line S00047 Modification History
M01 (Added by) ns2569
Seq #  *Modification Id* Act 
----------------------------+
03369  M01S00047.ns2569  +++|
03370  M01S00048.ns2569  +++| ISUA     DATA   H*AASR, *
03371  M01S00049.ns2569  +++| ISUB     BSS    5
03372  M01S00050.ns2569  +++|          DATA   C*UNTS.*
Line S02258 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03373  M01S02258.273l780 ---|          SPACE  4,10,10
03374  M01S02259.273l780 ---|*         COMMON DECKS.
Line S00190 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03375  M01S00190.273l780 +++|          SPACE  4,10
03376  M01S00191.273l780 +++|**        COMMON DECKS.
03377  M00S02260.1ro     +++|
03378  M00S02261.1ro     +++|
03379  M00S02262.1ro     +++| FLBS     EQU    /CPS/FLBS   FLUSH BUFFER SUBFUNCTION
Line S02263 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03380  M01S02263.273l780 ---|          SPACE  4,10
Line S00192 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03381  M01S00192.273l780 +++|
03382  M01S00193.273l780 +++|
03383  M00S02264.1ro     +++| IFP      HERE
03384  M00S02265.1ro     +++|*CALL     COMPFLF
Line S00691 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03385  M02S00691.273l780 ---|          SPACE  4,10
03386  M02S00692.273l780 ---| TLAT     BSS    0           *LCPA* ADDRESS LIST
03387  M02S00693.273l780 ---| LCPA     HERE
03388  M02S00694.273l780 ---|          CON    0           TERMINATE ADDRESS LIST
Line S00194 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03389  M01S00194.273l780 +++| TSIC     SPACE  4,10
03390  M01S00195.273l780 +++|**        INSTRUCTION RELOCATION TABLE AND ASSOCIATED DATA.
03391  M01S00196.273l780 +++|
03392  M01S00197.273l780 +++|
03393  M01S00198.273l780 +++| PCAD     BSSZ   2           PCP ADDRESS
03394  M01S00199.273l780 +++|
03395  M01S00200.273l780 +++| TSIC     BSS    0           INSTRUCTION RELOCATION TABLE
03396  M01S00201.273l780 +++|          LIST   D
03397  M01S00202.273l780 +++| SIC      HERE
03398  M01S00203.273l780 +++|          LIST   *
03399  M01S00204.273l780 +++|          CON    0           TERMINATE ENTRIES
Line S02266 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03400  M01S02266.271l716 ---|          SPACE  4,10,10
Line S00695 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03401  M01S00695.271l716 +++|          SPACE  4,10
03402  M00S02267.1ro     +++|**        OVERFLOW CHECKS.
03403  M00S02268.1ro     +++|
03404  M00S02269.1ro     +++|
03405  M00S02270.1ro     +++|          ERRNG  EPFW-OAUL-ZAUL    CHECK LENGTH OF *0AU*
Line S02271 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03406  M01S02271.271l716 ---|          ERRNG  EPFW-OVL0-ZBFL
03407  M01S02272.271l716 ---|          ERRNG  BFMS-OVL0-ZDFL
Line S00696 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03408  M01S00696.271l716 +++|          ERRNG  BFMS-OVL0-ZDFL    CHECK LENGTH OF *0DF*
03409  M00S02273.1ro     +++|          SPACE  4,10
03410  M00S02274.1ro     +++|          USE    OVERFLOW
Line S02275 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03411  M01S02275.271l716 ---|          OVERFLOW
Line S00697 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03412  M01S00697.271l716 +++|
03413  M01S00698.271l716 +++|*         NOTE - THE FOLLOWING CHECK DEPENDS ON THE FACT THAT *1RO*
03414  M01S00699.271l716 +++|*         IS CM-RESIDENT.  *SLL* CONTAINS CODE TO ENSURE THIS.
03415  M01S00700.271l716 +++|
03416  M01S00701.271l716 +++|          ERRNG  OBUF-*-10   OVERFLOW INTO OUTPUT BUFFER
03417  M01S00702.271l716 +++|          SPACE  4,10
03418  M01S00703.271l716 +++|          OVERFLOW  PPFW,EPFW
03419  M00S02276.1ro     +++|          TITLE
03420  M00S02277.1ro     +++|          TTL    1RO/3RP - PROCESS ON-LINE INTERACTIVE JOBS.
03421  M00S02278.1ro     +++|          TITLE  MAIN ROUTINES.
03422  M00S02279.1ro     +++|          QUAL   3RP
03423  M00S02280.1ro     +++|          IDENT  3RP,TRPX
03424  M00S02281.1ro     +++|*COMMENT  1RO - PROCESS TXOT JOBS.
Line S02282 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
03425  M01S02282.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/1ro.002.txt ยท Last modified: by 127.0.0.1