User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1ro.001

Deck 1RO Part 001

20 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01279  M01S00232.271l716 +++|          VFD    4/0         INTERACTIVE CONNECTION STATUS
01280  M01S00233.271l716 +++|          VFD    1/1         JOB ADVANCE FLAG
01281  M01S00234.271l716 +++|          VFD    5/0         JOB STATUS
01282  M01S00235.271l716 +++|          VFD    1/1         JOB INTERLOCK FLAG
01283  M01S00236.271l716 +++|
01284  M01S00237.271l716 +++| CROG     CON    0           ROLLOUT FILE EST ORDINAL
01285  M01S00238.271l716 +++|          CON    0           ROLLOUT FILE FIRST TRACK
01286  M01S00239.271l716 +++|
01287  M01S00240.271l716 +++| CROH     CON    0,0,0       SCHEDULING DATA
01288  M01S00241.271l716 +++|          ERRNZ  CROH-CROG-2 CELLS MUST BE CONTIGUOUS
01289  M01S00242.271l716 +++|
01290  M01S00243.271l716 +++| CROI     CON    0           ERROR FLAG
01291  M01S00244.271l716 +++|
01292  M01S00245.271l716 +++| CROJ     CON    0           ROLLIN EM FL
01293  M01S00246.271l716 +++|          CON    0           ROLLIN CM FL
Line S00941 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01294  M01S00941.271l716 ---| CRS      SPACE  4,10
01295  M01S00942.271l716 ---|**        CRS - CLEAR RECALL STACK.
01296  M01S00943.271l716 ---|*
01297  M01S00944.271l716 ---|*         USES   T1, CM - CM+4.
01298  M01S00945.271l716 ---|
01299  M01S00946.271l716 ---|
01300  M01S00947.271l716 ---| CRS      SUBR               ENTRY/EXIT
01301  M01S00948.271l716 ---|          LDN    LREC-1      INITIALIZE INDEX
01302  M01S00949.271l716 ---|          STD    T1
01303  M01S00950.271l716 ---| CRS1     LDD    CP          CLEAR STACK ENTRY
01304  M01S00951.271l716 ---|          ADK    RECW
01305  M01S00952.271l716 ---|          ADD    T1
01306  M01S00953.271l716 ---|          CWD    ZR
01307  M01S00954.271l716 ---|          SOD    T1          DECREMENT INDEX
01308  M01S00955.271l716 ---|          PJN    CRS1        IF NOT COMPLETE
01309  M01S00956.271l716 ---|          LDD    CP          RESET RECALL STACK POINTER
01310  M01S00957.271l716 ---|          ADN    STSW
01311  M01S00958.271l716 ---|          CRD    CM
01312  M01S00959.271l716 ---|          LDN    1
01313  M01S00960.271l716 ---|          STD    CM+4
01314  M01S00961.271l716 ---|          LDD    CP
01315  M01S00962.271l716 ---|          ADN    STSW
01316  M01S00963.271l716 ---|          CWD    CM
01317  M01S00964.271l716 ---|          UJN    CRSX        RETURN
01318  M00S00965.1ro     +++| ERS      SPACE  4,10
01319  M00S00966.1ro     +++|**        ERS - ENTER ROLLOUT STATUS.
01320  M00S00967.1ro     +++|*
01321  M00S00968.1ro     +++|*         ENTRY  (A) = 0, IF TO CLEAR ROLLOUT REQUESTED STATUS.
01322  M00S00969.1ro     +++|*                (A) = 1, IF TO SET ROLLOUT REQUESTED STATUS.
01323  M00S00970.1ro     +++|*
01324  M00S00971.1ro     +++|*         EXIT   (A) .GE. 0.
01325  M00S00972.1ro     +++|*
Line S00973 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01326  M01S00973.273l780 ---|*         USES   T1, T2, CM - CM+4.
Line S00247 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01327  M02S00247.273l780 ---|*
01328  M02S00248.273l780 ---|*         MACROS LCPA.
Line S00075 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01329  M01S00075.273l780 +++|*         USES   T1, CM - CM+4.
01330  M00S00974.1ro     +++|
01331  M00S00975.1ro     +++|
01332  M00S00976.1ro     +++| ERS      SUBR               ENTRY/EXIT
01333  M00S00977.1ro     +++|          STD    T1          SAVE ROLLOUT REQUEST STATUS
Line S00978 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01334  M01S00978.271l716 ---|          LDD    CP          READ ROLLOUT CONTROL FLAGS
01335  M01S00979.271l716 ---|          ADN    STSW
Line S00249 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01336  M02S00249.273l780 ---|          LCPA   STSW        READ ROLLOUT CONTROL FLAGS
Line S00076 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01337  M01S00076.273l780 +++|          TLDC   STSW,CPAD   READ ROLLOUT CONTROL FLAGS
01338  M00S00980.1ro     +++|          CRD    CM
01339  M00S00981.1ro     +++|          LDC    **
01340  M00S00982.1ro     +++| ERSA     EQU    *-1         (ROLLOUT CONTROL FLAGS AT TIME OF ROLLOUT)
01341  M00S00983.1ro     +++|          SCN    3           CLEAR CPU STATUS FLAG AND ROLLOUT FLAG
01342  M00S00984.1ro     +++|          LMD    T1          SET/CLEAR ROLLOUT REQUESTED FLAG
01343  M00S00985.1ro     +++|          STD    CM+2
Line S00986 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01344  M01S00986.271l716 ---|          LDD    CP
01345  M01S00987.271l716 ---|          ADN    STSW
Line S00250 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01346  M02S00250.273l780 ---|          LCPA   STSW
Line S00077 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01347  M01S00077.273l780 +++|          TLDC   STSW,CPAD
01348  M00S00988.1ro     +++|          CWD    CM
01349  M00S00989.1ro     +++|          UJN    ERSX        RETURN
01350  M00S00990.1ro     +++| FTB      SPACE  4,10
01351  M00S00991.1ro     +++|**        FTB - FILL TRACK BUFFER.
01352  M00S00992.1ro     +++|*
01353  M00S00993.1ro     +++|*         ENTRY  (FTBA - FTBA+1) = TRT POINTER.
01354  M00S00994.1ro     +++|*                (T6) = LAST TRACK USED.
01355  M00S00995.1ro     +++|*
01356  M00S00996.1ro     +++|*         EXIT   (A) .NE. 0.
01357  M00S00997.1ro     +++|*                (NT) = TBUF.
01358  M00S00998.1ro     +++|*                TRACK BUFFER REFILLED.
01359  M00S00999.1ro     +++|*
01360  M00S01000.1ro     +++|*         USES   T0, T1, CM - CM+4, NT.
01361  M00S01001.1ro     +++|
01362  M00S01002.1ro     +++|
01363  M00S01003.1ro     +++| FTB      SUBR               ENTRY/EXIT
01364  M00S01004.1ro     +++|          LDC    TBUF        SET FWA OF TRACK BUFFER
01365  M00S01005.1ro     +++|          STD    NT
01366  M00S01006.1ro     +++|          STD    T0
01367  M00S01007.1ro     +++|          LDD    T6
01368  M00S01008.1ro     +++|          SHN    6
01369  M00S01009.1ro     +++| FTB1     SHN    -6
01370  M00S01010.1ro     +++|          STI    T0
01371  M00S01011.1ro     +++| FTB2     SHN    -2
01372  M00S01012.1ro     +++| FTBA     ADC    TRTS
01373  M00S01013.1ro     +++|          CRD    CM
01374  M00S01014.1ro     +++|          LDI    T0          SET BYTE INDEX
01375  M00S01015.1ro     +++|          LPN    3
01376  M00S01016.1ro     +++|          STD    T1
01377  M00S01017.1ro     +++|          AOD    T0          BUMP INDEX
01378  M00S01018.1ro     +++|          LMC    TBUFL-1     CHECK FOR END OF BUFFER
01379  M00S01019.1ro     +++|          ZJN    FTB3        IF TRACK BUFFER FULL
01380  M00S01020.1ro     +++|          LDM    CM,T1
01381  M00S01021.1ro     +++|          SHN    6
01382  M00S01022.1ro     +++|          MJN    FTB1        IF NOT EOI TRACK
01383  M00S01023.1ro     +++|          LCN    0           INHIBIT REFILLING TRACK BUFFER
01384  M00S01024.1ro     +++| FTB3     STI    T0          SET END OF BUFFER
01385  M00S01025.1ro     +++|          AOD    NT
01386  M00S01026.1ro     +++|          UJN    FTBX        RETURN
Line S00251 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01387  M01S00251.271l716 +++| ISR      SPACE  4,15
01388  M01S00252.271l716 +++|**        ISR - ISSUE STORAGE REQUEST.
01389  M01S00253.271l716 +++|*
01390  M01S00254.271l716 +++|*         ENTRY  (A) = 5/0, 1/F, 12/K
01391  M01S00255.271l716 +++|*                      F = 0  IF CM REQUEST.
01392  M01S00256.271l716 +++|*                        = 1  IF EM REQUEST.
01393  M01S00257.271l716 +++|*                      K = AMOUNT OF STORAGE REQUESTED.  IF BOTH *F*
01394  M01S00258.271l716 +++|*                          AND *K* ARE ZERO, ALL CM AND EM WILL BE
01395  M01S00259.271l716 +++|*                          RELEASED.
Line S00260 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01396  M02S00260.273l780 ---|*                (IR+4) = PCP NUMBER IF PCP ROLLOUT.
Line S00078 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01397  M01S00078.273l780 +++|*                (IR+4) = PCP NUMBER IF PSEUDO-ROLLOUT.
Line S00261 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01398  M01S00261.271l716 +++|*
Line S00262 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01399  M02S00262.273l780 ---|*         USES   T1, CM - CM+4, FN - FN+4.
Line S00079 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01400  M01S00079.273l780 +++|*         USES   T1, CM+1 - CM+3, FN - FN+4.
Line S00263 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01401  M01S00263.271l716 +++|*
Line S00264 Modification History
M01 (Added by) 271l716
M02 (Removed by) 1ro30
Seq #  *Modification Id* Act 
----------------------------+
01402  M02S00264.1ro30   ---|*         MACROS AJFL, LCPA, MONITOR.
Line S00001 Modification History
M01 (Added by) 1ro30
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01403  M02S00001.273l780 ---|*         MACROS LCPA, MONITOR.
Line S00080 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01404  M01S00080.273l780 +++|*         MACROS MONITOR.
Line S00265 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01405  M01S00265.271l716 +++|
01406  M01S00266.271l716 +++|
01407  M01S00267.271l716 +++| ISR      SUBR               ENTRY/EXIT
01408  M01S00268.271l716 +++|          STD    T1          SET STORAGE AMOUNT
01409  M01S00269.271l716 +++| ISR1     STD    CM+1
01410  M01S00270.271l716 +++|          SHN    -14
01411  M01S00271.271l716 +++|          STD    CM+2        SET STORAGE TYPE
01412  M01S00272.271l716 +++|          RAD    T1
Line S00273 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01413  M02S00273.273l780 ---|          LDD    IR+4        SET PCP NUMBER (IN CASE OF PCP ROLL)
Line S00081 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01414  M01S00081.273l780 +++|          LDD    IR+4        SET PCP NUMBER (IN CASE OF PSEUDO-ROLLOUT)
Line S00274 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01415  M01S00274.271l716 +++|          STD    CM+3
01416  M01S00275.271l716 +++|          LDN    **
Line S00276 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01417  M02S00276.273l780 ---|*         LDN    1           (SIMPLE PCP OR COMPOUND ROLLOUT)
01418  M02S00277.273l780 ---|*         LDN    3           (PSEUDO-ROLLOUT)
Line S00082 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01419  M01S00082.273l780 +++|*         LDN    1           (PSEUDO-ROLLOUT)
Line S00278 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01420  M01S00278.271l716 +++| ISRA     EQU    *-1
Line S00279 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01421  M02S00279.273l780 ---|          SHN    11
Line S00083 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01422  M01S00083.273l780 +++|          SHN    12
Line S00280 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01423  M01S00280.271l716 +++|          RAD    CM+2
01424  M01S00281.271l716 +++|          LPN    1
Line S00282 Modification History
M01 (Added by) 271l716
M02 (Removed by) 1ro30
Seq #  *Modification Id* Act 
----------------------------+
01425  M02S00282.1ro30   ---|          ZJN    ISR4        IF CM REQUEST
Line S00002 Modification History
M01 (Added by) 1ro30
Seq #  *Modification Id* Act 
----------------------------+
01426  M01S00002.1ro30   +++|          ZJN    ISR3        IF CM REQUEST
Line S00283 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01427  M02S00283.273l780 ---|          LCPA   ECSW        READ EM CONTROL WORD
Line S00084 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01428  M01S00084.273l780 +++|          TLDC   ECSW,CPAD   READ EM CONTROL WORD
Line S00284 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01429  M01S00284.271l716 +++|          CRD    FN
01430  M01S00285.271l716 +++|          LDD    FN+4
01431  M01S00286.271l716 +++| ISR2     ZJN    ISRX        IF NO EM ASSIGNED
01432  M01S00287.271l716 +++| ISR3     MONITOR  RSTM
01433  M01S00288.271l716 +++|          LDD    T1
01434  M01S00289.271l716 +++|          NJN    ISRX        IF PREVIOUS REQUEST EM OR CM REMAINS
01435  M01S00290.271l716 +++|          LDC    1S12
01436  M01S00291.271l716 +++|          UJN    ISR1        RELEASE EM FL
Line S00292 Modification History
M01 (Added by) 271l716
M02 (Removed by) 1ro30
Seq #  *Modification Id* Act 
----------------------------+
01437  M02S00292.1ro30   ---|
01438  M02S00293.1ro30   ---| ISR4     AJFL   FL          LOAD FL
01439  M02S00294.1ro30   ---|          LMD    CM+1
01440  M02S00295.1ro30   ---|          ZJN    ISR2        IF JOB AT DESIRED FL
01441  M02S00296.1ro30   ---|          UJN    ISR3        ISSUE CM REQUEST
01442  M00S01027.1ro     +++| ISS      SPACE  4,10
01443  M00S01028.1ro     +++|**        ISS - INITIALIZE SYSTEM SECTOR.
01444  M00S01029.1ro     +++|*
01445  M00S01030.1ro     +++|*         USES   CM - CM+4, CN - CN+4.
01446  M00S01031.1ro     +++|*
Line S01032 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01447  M01S01032.271l716 ---|*         MACROS NFA.
Line S00297 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01448  M02S00297.273l780 ---|*         MACROS LCPA, NFA.
Line S00085 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01449  M01S00085.273l780 +++|*         MACROS NFA.
01450  M00S01033.1ro     +++|
01451  M00S01034.1ro     +++|
01452  M00S01035.1ro     +++| ISS      SUBR               ENTRY/EXIT
Line S01036 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01453  M01S01036.271l716 ---|          LDD    CP
01454  M01S01037.271l716 ---|          ADK    JCIW
Line S00298 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01455  M02S00298.273l780 ---|          LCPA   JCIW
Line S00086 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01456  M01S00086.273l780 +++|          TLDC   JCIW,CPAD
01457  M00S01038.1ro     +++|          CRD    CN
01458  M00S01039.1ro     +++|          ADN    TFSW-JCIW
01459  M00S01040.1ro     +++|          CRD    CM
Line S00001 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
01460  M01S00001.ns2738  +++|          ADK    RFCW-TFSW   READ DM* FILE POINTERS
01461  M01S00002.ns2738  +++|          CRM    DFSS,ON
01462  M01S00003.ns2738  +++|          ADK    SSCW-RFCW-1 READ SCP CONNECTION INDICATORS
01463  M01S00004.ns2738  +++|          CRM    COSS,ON
01464  M00S01041.1ro     +++|
01465  M00S01042.1ro     +++|          ERRNZ  RC1N-RC2N-1 ENSURE *RC1N*/*RC2N* CONTIGIOUS
01466  M00S01043.1ro     +++|          ERRNZ  R2SS-R1SS-5 ENSURE *R1SS*/*R2SS* CONTIGUOUS
01467  M00S01044.1ro     +++|
01468  M00S01045.1ro     +++|          NFA    RC1N        OBTAIN ADDRESS OF FIRST RECOVERY WORD
Line S01046 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01469  M01S01046.271l716 ---|          CRM    R1SS,TW
Line S00299 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01470  M01S00299.271l716 +++|          CRM    R1SS,ON
01471  M01S00300.271l716 +++|          CRM    R1SS+5,ON
01472  M00S01047.1ro     +++|          LDD    CM+1
01473  M00S01048.1ro     +++|          ZJN    ISS1        IF NO PRIMARY FILE
01474  M00S01049.1ro     +++|          NFA    CM+1,R
01475  M00S01050.1ro     +++|          CRM    PFSS,ON     STORE PRIMARY FILE FNT IN SYSTEM SECTOR
01476  M00S01051.1ro     +++|
01477  M00S01052.1ro     +++|*         STORE INPUT FILE DISK ADDRESS IN SYSTEM SECTOR.
01478  M00S01053.1ro     +++|
01479  M00S01054.1ro     +++| ISS1     NFA    FNTN
01480  M00S01055.1ro     +++|          ADN    FSTL
01481  M00S01056.1ro     +++|          CRM    IFSS,ON
01482  M00S01057.1ro     +++|
01483  M00S01058.1ro     +++|*         STORE SERVICE CLASS VALIDATION MASK.
01484  M00S01059.1ro     +++|
01485  M00S01060.1ro     +++|          NFA    SCVN
01486  M00S01061.1ro     +++|          CRM    VMSS-2,ON
01487  M00S01062.1ro     +++|
01488  M00S01063.1ro     +++|*         SET *SISS* FIELD.
01489  M00S01064.1ro     +++|
Line S01065 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01490  M01S01065.ns2685  ---|          LDN    0           CLEAR CONTROL POINT NUMBER
01491  M01S01066.ns2685  ---|          STM    CPSS
01492  M00S01067.1ro     +++|          LDD    CN+2
01493  M00S01068.1ro     +++|          ADC    -LSSI-1
Line S01069 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01494  M01S01069.ns2685  ---|          PJN    ISS1.1      IF JOB IS A SUBSYSTEM
01495  M01S01070.ns2685  ---|          LDN    0
01496  M01S01071.ns2685  ---|          UJN    ISS3        CLEAR SSID FIELD
01497  M01S01072.ns2685  ---|
01498  M01S01073.ns2685  ---| ISS1.1   LMN    DSSI-LSSI-1
Line S00003 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01499  M01S00003.ns2685  +++|          MJN    ISS4        IF JOB IS NOT A SUBSYSTEM
01500  M01S00004.ns2685  +++|          LMN    DSSI-LSSI-1
01501  M00S01074.1ro     +++|          NJN    ISS2        IF NOT DEADSTART SEQUENCING JOB
01502  M00S01075.1ro     +++|          LCN    7777-MSSI
01503  M00S01076.1ro     +++|          ERRPL  7677-MSSI   ENSURE *LCN* MAY BE USED
01504  M00S01077.1ro     +++|          UJN    ISS3        STORE SSID IN SYSTEM SECTOR
01505  M00S01078.1ro     +++|
Line S01079 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01506  M01S01079.271l716 ---| ISS1.9   LDD    CP          SAVE CONTROL POINT NUMBER
01507  M01S01080.271l716 ---|          SHN    -7
01508  M01S01081.271l716 ---|          STM    CPSS
01509  M00S01082.1ro     +++| ISS2     LDD    CN+2        SAVE SSID
01510  M00S01083.1ro     +++| ISS3     STM    SISS
01511  M00S01084.1ro     +++|
01512  M00S01085.1ro     +++|*         PLACE DAYFILE BUFFER POINTERS IN SYSTEM SECTOR
01513  M00S01086.1ro     +++|
Line S01087 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01514  M01S01087.ns2685  ---|          NFA    DAPN+2
Line S00005 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01515  M01S00005.ns2685  +++| ISS4     NFA    DAPN+2
01516  M00S01088.1ro     +++|          CRM    DBSS,ON
01517  M00S01089.1ro     +++|
Line S01090 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01518  M01S01090.ns2685  ---|*         SET THE FNT IN THE SYSTEM SECTOR.
Line S00006 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01519  M01S00006.ns2685  +++|*         SET FILE NAME AND TYPE FOR JOB ROLLOUT.  *WSS* RESETS *FNSS*
01520  M01S00007.ns2685  +++|*         FROM THE LOCAL FNT ENTRY FOR *DMP=* ROLLOUT.
01521  M00S01091.1ro     +++|
Line S01092 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01522  M01S01092.ns2685  ---|          LDD    MA
01523  M01S01093.ns2685  ---|          CWM    ISSA,ON
01524  M01S01094.ns2685  ---|          SBN    1
01525  M01S01095.ns2685  ---|          CRM    FNSS,ON
01526  M01S01096.ns2685  ---|
01527  M01S01097.ns2685  ---|*         CLEAR VARIOUS FIELDS.
01528  M01S01098.ns2685  ---|
01529  M01S01099.ns2685  ---|          LDN    0
01530  M01S01100.ns2685  ---|          STM    CSSS        CLEAR SERVICE CLASS CHANGE FIELD
01531  M01S01101.ns2685  ---|          STM    SRSS+3      CLEAR LIMIT INCREASE FIELD
01532  M01S01102.ns2685  ---|          STM    QASS        CLEAR *1RI*/*QAC* ALTER FLAGS
Line S00008 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01533  M01S00008.ns2685  +++|          LDM    EJSS+5*JSNE+0  SET JSN AS FILE NAME
01534  M01S00009.ns2685  +++|          STM    FNSS+0
01535  M01S00010.ns2685  +++|          LDM    EJSS+5*JSNE+1
01536  M01S00011.ns2685  +++|          STM    FNSS+1
01537  M01S00012.ns2685  +++|          LDC    ROFT*100    SET FILE TYPE
01538  M01S00013.ns2685  +++|          STM    FNSS+4
01539  M00S01103.1ro     +++|          LJM    ISSX        RETURN
Line S01104 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01540  M01S01104.ns2685  ---|
Line S01105 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01541  M02S01105.ns2685  ---| ISSA     VFD    42/0LROLLOUT,18/LOFT*100B
Line S00301 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01542  M02S00301.ns2685  ---| ISSA     VFD    42/0LROLLOUT,18/ROFT*100B
01543  M00S01106.1ro     +++| ITF      SPACE  4,10
01544  M00S01107.1ro     +++|**        ITF - ISSUE *TSEM* FUNCTION.
01545  M00S01108.1ro     +++|*
01546  M00S01109.1ro     +++|*         ENTRY  *TSEM* PARAMETERS WRITTEN TO MESSAGE BUFFER.
01547  M00S01110.1ro     +++|*
01548  M00S01111.1ro     +++|*         EXIT   (A) = 0, IF IAF INACCESSIBLE OR ERROR.
01549  M00S01112.1ro     +++|*                (A) .NE. 0, IF REQUEST COMPLETE.
01550  M00S01113.1ro     +++|*
01551  M00S01114.1ro     +++|*         USES   T1.
01552  M00S01115.1ro     +++|*
01553  M00S01116.1ro     +++|*         MACROS DELAY, MONITOR, PAUSE.
01554  M00S01117.1ro     +++|
01555  M00S01118.1ro     +++|
01556  M00S01119.1ro     +++| ITF      SUBR               ENTRY/EXIT
Line S01120 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01557  M01S01120.271l716 ---| ITF1     MONITOR  TSEM
Line S00302 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01558  M02S00302.273l780 ---| ITF1     LDC    **
01559  M02S00303.273l780 ---|*         LDC    4000        (PCP ROLL)
01560  M02S00304.273l780 ---| ITFA     EQU    *-1
01561  M02S00305.273l780 ---|          STD    CM+1
01562  M02S00306.273l780 ---|          LDD    IR+4        STORE POSSIBLE PCP NUMBER
01563  M02S00307.273l780 ---|          STD    CM+2
01564  M02S00308.273l780 ---|          MONITOR  TSEM
Line S00087 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01565  M01S00087.273l780 +++| ITF1     MONITOR  TSEM
01566  M00S01121.1ro     +++|          LDD    CM+1
01567  M00S01122.1ro     +++|          ZJN    ITFX        IF IAF INACCESSIBLE OR ERROR
01568  M00S01123.1ro     +++|          LMC    7777
01569  M00S01124.1ro     +++|          NJN    ITFX        IF REQUEST COMPLETE
01570  M00S01125.1ro     +++|          PAUSE  ST          *TSEM* QUEUE FULL - DELAY AND RETRY
01571  M00S01126.1ro     +++|          LDC    3600
01572  M00S01127.1ro     +++|          STD    T1
01573  M00S01128.1ro     +++| ITF2     DELAY
01574  M00S01129.1ro     +++|          SOD    T1
01575  M00S01130.1ro     +++|          ZJN    ITF1        IF TIME TO REISSUE REQUEST
01576  M00S01131.1ro     +++|          UJN    ITF2        CONTINUE TO DELAY
01577  M00S01132.1ro     +++| MSR      SPACE  4,20
01578  M00S01133.1ro     +++|**        MSR - PROCESS MASS STORAGE ERROR OR INSUFFICIENT SPACE.
01579  M00S01134.1ro     +++|*
01580  M00S01135.1ro     +++|*         ENTRY  (A) .GE. 0 IF INSUFFICIENT SPACE FOR ROLLOUT.
01581  M00S01136.1ro     +++|*                    .LT. 0 IF MASS STORAGE ERROR.
Line S01137 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01582  M01S01137.271l716 ---|*                (T5) = EST ORDINAL.
01583  M01S01138.271l716 ---|*                (T6) = CURRENT TRACK.
01584  M01S01139.271l716 ---|*                (T7) = CURRENT SECTOR.
01585  M00S01140.1ro     +++|*
Line S01141 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01586  M01S01141.273l780 ---|*         EXIT   TO */3RP/MSE* TO PROCESS MASS STORAGE ERROR.
Line S00088 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01587  M01S00088.273l780 +++|*         EXIT   TO */3RQ/MSE* TO PROCESS MASS STORAGE ERROR.
01588  M00S01142.1ro     +++|*
Line S01143 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01589  M01S01143.271l716 ---|*         USES   T4.
01590  M01S01144.271l716 ---|*
01591  M00S01145.1ro     +++|*         MACROS EXECUTE.
01592  M00S01146.1ro     +++|
01593  M00S01147.1ro     +++|
01594  M00S01148.1ro     +++| MSR      BSS    0           ENTRY
01595  M00S01149.1ro     +++|          SHN    0-21        SAVE MASS STORAGE ERROR FLAG
01596  M00S01150.1ro     +++|          RAM    MSRA
Line S01151 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01597  M01S01151.271l716 ---|          LDM    RDCT        SAVE DRIVER STATUS WORD
01598  M01S01152.271l716 ---|          STD    T4
01599  M01S01153.271l716 ---|          LDD    MA
01600  M01S01154.271l716 ---|          CWD    T3          SAVE DISK PARAMETERS
01601  M01S01155.271l716 ---|          CRM    MSRB,ON
01602  M00S01156.1ro     +++|          EXECUTE  3RQ       PROCESS MASS STORAGE ERROR
01603  M00S01157.1ro     +++|          LDN    **          RETURN ERROR STATUS
01604  M00S01158.1ro     +++| MSRA     EQU    *-1
01605  M00S01159.1ro     +++|          LJM    /3RQ/MSE    PROCESS MASS STORAGE ERROR
01606  M00S01160.1ro     +++|
Line S01161 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01607  M01S01161.271l716 ---| MSRB     BSS    5           SAVE AREA FOR DISK PARAMETERS
01608  M01S01162.271l716 ---| MSRC     CON    1           SET TO ZERO IF ONLY NFL TO BE ROLLED
01609  M01S01163.271l716 ---| MSRD     CON    1           SET TO ZERO IF NFL SUCCESSFULLY ROLLED
01610  M00S01164.1ro     +++| MSRE     CON    0,0         TERMINAL OUTPUT POINTER ADDRESS
01611  M00S01165.1ro     +++| MSRF     BSS    5           TERMINAL OUTPUT POINTER
01612  M00S01166.1ro     +++| MSRG     CON    0           ORIGINAL ROLLOUT CONTROL FLAGS
01613  M00S01167.1ro     +++| MSRH     BSS    5           ORIGINAL *TERW* IMAGE
01614  M00S01168.1ro     +++| RMS      SPACE  4,20
01615  M00S01169.1ro     +++|**        RMS - REQUEST MASS STORAGE SPACE.
01616  M00S01170.1ro     +++|*
01617  M00S01171.1ro     +++|*         ENTRY  (NF) = NUMBER OF NFL SECTORS.
01618  M00S01172.1ro     +++|*                (SC) = OUTPUT BUFFER SECTOR COUNT (EXCLUDING EOR
01619  M00S01173.1ro     +++|*                       SECTOR) FOR INTERACTIVE JOBS.
01620  M00S01174.1ro     +++|*                     = 0 FOR NON-INTERACTIVE JOBS.
01621  M00S01175.1ro     +++|*                (FL) = JOB CM FIELD LENGTH (NFL NOT INCLUDED).
01622  M00S01176.1ro     +++|*
01623  M00S01177.1ro     +++|*         EXIT   (NT) = *TBUF*.
01624  M00S01178.1ro     +++|*                (TBUF) = TRACKS ASSIGNED.
01625  M00S01179.1ro     +++|*
Line S01180 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01626  M01S01180.ns2685  ---|*         USES   T1, T5, T6, CM - CM+4, CN - CN+4.
Line S00014 Modification History
M01 (Added by) ns2685
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01627  M02S00014.273l780 ---|*         USES   T1, T5, T6, CM - CM+4, CN - CN+4, FS - FS+2.
Line S00089 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01628  M01S00089.273l780 +++|*         USES   T5, T6, CM - CM+4, CN - CN+4, FS - FS+2.
01629  M00S01181.1ro     +++|*
Line S01182 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01630  M01S01182.ns2685  ---|*         CALLS  FTB.
Line S00015 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01631  M01S00015.ns2685  +++|*         CALLS  ERS, FTB, /3RS/UFS.
01632  M00S01183.1ro     +++|*
Line S01184 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01633  M01S01184.271l716 ---|*         MACROS ISTORE, MONITOR, SFA.
Line S00309 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01634  M02S00309.273l780 ---|*         MACROS AJFL, ISTORE, MONITOR, SFA.
Line S00090 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01635  M01S00090.273l780 +++|*         MACROS ISTORE, MONITOR, SFA.
01636  M00S01185.1ro     +++|*
01637  M00S01186.1ro     +++|*         NOTE - EXIT TO *MSR* IF INSUFFICIENT MASS STORAGE SPACE FOR
01638  M00S01187.1ro     +++|*         ROLLOUT FILE.
01639  M00S01188.1ro     +++|
01640  M00S01189.1ro     +++|
01641  M00S01190.1ro     +++| RMS      SUBR               ENTRY/EXIT
Line S00310 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01642  M02S00310.273l780 ---|          AJFL               SET *RA* AND *FL*
01643  M00S01191.1ro     +++|
01644  M00S01192.1ro     +++|*         COMPUTE SECTOR COUNT FOR ROLLOUT.
01645  M00S01193.1ro     +++|
Line S01194 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01646  M01S01194.271l716 ---|          LDM    CDRC        USER EM FL/*UEBS*
01647  M01S01195.271l716 ---| RSMN     SHN    3
Line S00311 Modification History
M01 (Added by) 271l716
M02 (Removed by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01648  M02S00311.1ro31   ---|          LDM    CROD        USER EM FL / *UEBS*
Line S00002 Modification History
M01 (Added by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01649  M01S00002.1ro31   +++|          LDM    CROD        EM FL / *UEBS* (ZERO ON *DMP=* PARTIAL)
Line S00312 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01650  M01S00312.271l716 +++| RMSN     SHN    3
01651  M00S01196.1ro     +++|*         SHN    3+UESC
Line S01197 Modification History
M01 (Removed by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01652  M01S01197.1ro31   ---|          ADD    NF          NFL SECTOR COUNT
Line S00003 Modification History
M01 (Added by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01653  M01S00003.1ro31   +++|          ADC    0           NFL SECTOR COUNT (ZERO IF *DMP=* ROLLOUT)
01654  M01S00004.1ro31   +++| RMSH     EQU    *-1
01655  M00S01198.1ro     +++| RMSA     ADN    4           CPA SECTORS, SYSTEM SECTOR, EOI SECTOR
01656  M00S01199.1ro     +++|*         ADN    5           (IF INTERACTIVE JOB + EMPTY OUTPUT BUFFER)
01657  M00S01200.1ro     +++|*         ADN    5           (INTERACTIVE JOB + SECTOR OVERFLOW)
01658  M00S01201.1ro     +++|          ADD    SC          TERMINAL OUTPUT SECTOR COUNT
Line S01202 Modification History
M01 (Removed by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
01659  M01S01202.1ro26   ---| RMSB     ADD    FL
01660  M01S01203.1ro26   ---|*         PSN                (IF INTERACTIVE JOB AT END OF JOB STEP)
Line S00013 Modification History
M01 (Added by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
01661  M01S00013.1ro26   +++|          ADC    FL
01662  M01S00014.1ro26   +++|*         ADC    0           (NO ACTIVITY)
01663  M01S00015.1ro26   +++|*         ADC    MCMX/100    (NO ACTIVITY AND ECS PROTECTED)
01664  M01S00016.1ro26   +++| RMSB     EQU    *-1
01665  M00S01204.1ro     +++|          STD    CM+4        SET SECTOR COUNT
01666  M00S01205.1ro     +++|          STM    RMSL+1
01667  M00S01206.1ro     +++|          SHN    -14
01668  M00S01207.1ro     +++|          STD    CM+3
01669  M00S01208.1ro     +++|          RAM    RMSL
01670  M00S01209.1ro     +++|          LDM    ERSA        CHECK FOR TIMED EVENT ROLLOUT
01671  M00S01210.1ro     +++|          LPC    110
01672  M00S01211.1ro     +++|          ZJN    RMS0        IF NOT SUSPENDED OR TIMED EVENT
01673  M00S01212.1ro     +++|          LDN    0
01674  M00S01213.1ro     +++|          UJN    RMS1        SKIP SECONDARY ROLLOUT SELECTION
01675  M00S01214.1ro     +++|
01676  M00S01215.1ro     +++| RMS0     LDN    IPRL        READ SECONDARY ROLLOUT SECTOR THRESHOLD
01677  M00S01216.1ro     +++|          CRD    CN
01678  M00S01217.1ro     +++|          LDD    CM+3
01679  M00S01218.1ro     +++|          SHN    14
01680  M00S01219.1ro     +++|          LMD    CM+4
01681  M00S01220.1ro     +++|          SBD    CN+1
01682  M00S01221.1ro     +++|          SHN    -21
01683  M00S01222.1ro     +++|          ZJN    RMS1        IF .GT. THRESHOLD
01684  M00S01223.1ro     +++|          LDN    /CPS/SROS&/CPS/ROLS
01685  M00S01224.1ro     +++| RMS1     LMN    /CPS/ROLS
01686  M00S01225.1ro     +++|          STD    CM+2
01687  M00S01226.1ro     +++|          LDN    **
01688  M00S01227.1ro     +++|*         LDN    /CPS/ROLS   (JOB CONNECTED TO *SMF*)
01689  M00S01228.1ro     +++| RMSK     EQU    *-1         (SET BY *PRESET*)
01690  M00S01229.1ro     +++|          ZJN    RMS2        IF NOT *IAOT* JOB CONNECTED TO *SMF*
01691  M00S01230.1ro     +++|          STD    CM+2
01692  M00S01231.1ro     +++|
01693  M00S01232.1ro     +++|*         RESERVE ROLLOUT FILE SPACE.
01694  M00S01233.1ro     +++|
Line S01234 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01695  M01S01234.271l716 ---| RMS2     LDM    CDRC
Line S00313 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01696  M01S00313.271l716 +++| RMS2     LDM    CROD
Line S01235 Modification History
M01 (Removed by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01697  M01S01235.1ro31   ---|          ZJN    RMS5        IF NO EXTENDED MEMORY ASSIGNED
Line S00005 Modification History
M01 (Added by) 1ro31
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01698  M02S00005.273l780 ---|          ZJN    RMS5        IF ROLLOUT OF EM
Line S00091 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01699  M01S00091.273l780 +++|          ZJN    RMS5        IF NO ROLLOUT OF EM
01700  M00S01236.1ro     +++|          LDD    FL
01701  M00S01237.1ro     +++|          ERRNZ  MCMX/100-100  ENSURE DIRECT CELL *HN* MAY BE USED
01702  M00S01238.1ro     +++|          SBD    HN
01703  M00S01239.1ro     +++|          PJN    RMS5        IF ENOUGH CM TO ROLL ECS
01704  M00S01240.1ro     +++|          LDK    SWET        SET SYSTEM SOFTWARE ERROR FLAG
01705  M00S01241.1ro     +++|          STD    CM+2
01706  M00S01242.1ro     +++|          LDC    *           SET DETECTION ADDRESS
01707  M00S01243.1ro     +++|          STD    CM+1
01708  M00S01244.1ro     +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
01709  M00S01245.1ro     +++|*         LDN    0           CLEAR ROLLOUT REQUESTED FLAG
01710  M00S01246.1ro     +++|          RJM    ERS
01711  M00S01247.1ro     +++| RMS3     LJM    MSR         PROCESS ERROR CONDITION
01712  M00S01248.1ro     +++|
01713  M00S01249.1ro     +++| RMS5     LDN    0           CLEAR EQUIPMENT
01714  M00S01250.1ro     +++|          STD    CM+1
01715  M00S01251.1ro     +++| RMSL     LDC    0           SECTOR COUNT
01716  M00S01252.1ro     +++|          STD    CM+4
01717  M00S01253.1ro     +++|          SHN    -14
01718  M00S01254.1ro     +++|          STD    CM+3
01719  M00S01255.1ro     +++|          LDC    **
01720  M00S01256.1ro     +++| RMSG     EQU    *-1         (JOB ACCESS LEVEL)
01721  M00S01257.1ro     +++|          ADN    40
01722  M00S01258.1ro     +++|          SHN    6
01723  M00S01259.1ro     +++|          RAD    CM+3
Line S01260 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01724  M01S01260.271l716 ---|          MONITOR  RTCM      ASSIGN MASS STORGE SPACE
Line S00314 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01725  M01S00314.271l716 +++|          MONITOR  RTCM      ASSIGN MASS STORAGE SPACE
01726  M00S01261.1ro     +++|          LDD    CM+4
01727  M00S01262.1ro     +++|          NJN    RMS6        IF SUFFICIENT MASS STORAGE SPACE
01728  M00S01263.1ro     +++|          LDC    **
01729  M00S01264.1ro     +++| RMSM     EQU    *-1
01730  M00S01265.1ro     +++|          NJN    RMS3        IF SECOND ATTEMPT MADE
01731  M00S01266.1ro     +++|          STD    CM+2        CLEAR *MSAL* DEVICE SELECTION
01732  M00S01267.1ro     +++|          AOM    RMSM        FLAG SECOND ATTEMPT
01733  M00S01268.1ro     +++|          UJN    RMS5        RETRY *RTCM* REQUEST
01734  M00S01269.1ro     +++|
01735  M00S01270.1ro     +++| RMS6     STD    T6          SET TRACK
01736  M00S01271.1ro     +++|          STM    EJSS+5*SCHE+1  STORE TRACK IN EJT
Line S01272 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01737  M01S01272.271l716 ---|*         STM    CDRB+1      (DMP= CALL)
Line S00315 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01738  M02S00315.ns2685  ---|*         STM    CDRB+1      (*DMP=* CALL)
Line S00016 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01739  M01S00016.ns2685  +++|*         STM    FS+1        (*DMP=* CALL)
01740  M00S01273.1ro     +++| RMSC     EQU    *-1
Line S01274 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01741  M01S01274.271l716 ---|          STM    CROE+5*1+4  STORE TRACK IN *UTEM* PARAMETER BLOCK
Line S00316 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01742  M01S00316.271l716 +++|          STM    CROG+1      STORE FIRST TRACK IN EJT DATA BLOCK
Line S01275 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01743  M01S01275.271l716 ---|*         STM    CDRB+2      (DMP= CALL)
Line S00317 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01744  M02S00317.ns2685  ---|*         STM    CDRB+2      (*DMP=* CALL)
Line S00017 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01745  M01S00017.ns2685  +++|*         STM    FS+2        (*DMP=* CALL)
01746  M00S01276.1ro     +++| RMSD     EQU    *-1
Line S01277 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01747  M01S01277.271l716 ---|          STM    JFLD+1      STORE TRACK IN *SCHE* WORD
01748  M00S01278.1ro     +++|          LDD    CM+1        SET EST ORDINAL
01749  M00S01279.1ro     +++|          STD    T5
01750  M00S01280.1ro     +++|          STM    EJSS+5*SCHE STORE EQUIPMENT IN EJT
Line S01281 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01751  M01S01281.271l716 ---|*         STM    CDRB        (DMP= CALL)
Line S00318 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01752  M02S00318.ns2685  ---|*         STM    CDRB        (*DMP=* CALL)
Line S00018 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01753  M01S00018.ns2685  +++|*         STM    FS          (*DMP=* CALL)
01754  M00S01282.1ro     +++| RMSE     EQU    *-1
Line S01283 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01755  M01S01283.271l716 ---|          STM    CROE+5*1+3  STORE EQUIPMENT IN *UTEM* PARAMETER BLOCK
Line S00319 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01756  M01S00319.271l716 +++|          STM    CROG        STORE EST ORDINAL IN EJT DATA BLOCK
Line S00019 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01757  M01S00019.ns2685  +++| RMSF     RJM    /3RS/UFS    UPDATE DM* FILE STATUS
01758  M01S00020.ns2685  +++|*         UJN    *+2         (NON-DMP= CALL)
Line S01284 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01759  M01S01284.271l716 ---|          STM    JFLD        STORE EQUIPMENT IN *SCHE* WORD
01760  M00S01285.1ro     +++|
01761  M00S01286.1ro     +++|*         READ TRACK CHAIN.
01762  M00S01287.1ro     +++|
Line S01288 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01763  M01S01288.ns2685  ---|          SFA    EST
Line S00021 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01764  M01S00021.ns2685  +++|          SFA    EST,T5      READ MST POINTER
01765  M00S01289.1ro     +++|          ADK    EQDE
01766  M00S01290.1ro     +++|          CRD    CM
01767  M00S01291.1ro     +++|          LDD    CM+4        SET FWA OF TRT - TRACK BIT
01768  M00S01292.1ro     +++|          SHN    3
01769  M00S01293.1ro     +++|          ADN    DILL
01770  M00S01294.1ro     +++|          CRD    CM
01771  M00S01295.1ro     +++|          ADN    TRLL-DILL
01772  M00S01296.1ro     +++|          CRD    CN
01773  M00S01297.1ro     +++|          LDD    CN+3
01774  M00S01298.1ro     +++|          LPN    77
01775  M00S01299.1ro     +++|          SHN    14
01776  M00S01300.1ro     +++|          LMD    CN+4
01777  M00S01301.1ro     +++|          SBD    TH          4000S-2
01778  M00S01302.1ro     +++|          STM    FTBA+1
01779  M00S01303.1ro     +++|          SHN    -14
01780  M00S01304.1ro     +++|          RAM    FTBA
01781  M00S01305.1ro     +++|          LDD    CM+3        CHECK FOR DEVICE BUFFERED IN ECS
01782  M00S01306.1ro     +++|          SHN    21-13
01783  M00S01307.1ro     +++|          PJP    RMS10       IF ROLLOUT FILE NOT ON ECS BUFFERED DEVICE
01784  M00S01308.1ro     +++|          SHN    13-21-6
01785  M00S01309.1ro     +++|          LPN    7
01786  M00S01310.1ro     +++|          LMN    4
Line S01311 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01787  M01S01311.ns2685  ---|          ZJN    PRS8.1      IF UEM
Line S00022 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01788  M01S00022.ns2685  +++|          ZJN    RMS8        IF UEM
01789  M00S01312.1ro     +++|          LDD    CM+3
01790  M00S01313.1ro     +++|          LPN    7
01791  M00S01314.1ro     +++|          ZJN    RMS9        IF NO DDP PATH PRESENT
Line S01315 Modification History
M01 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01792  M01S01315.ns2685  ---| PRS8.1   LDK    SSTL
Line S00023 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
01793  M01S00023.ns2685  +++| RMS8     LDK    SSTL
01794  M00S01316.1ro     +++|          CRD    CN
01795  M00S01317.1ro     +++|          LDD    CN+3
01796  M00S01318.1ro     +++|          SHN    21-11
01797  M00S01319.1ro     +++|          PJN    RMS10       IF DDP ROLLOUT PATH ENABLED
01798  M00S01320.1ro     +++| RMS9     LDC    ROD         SET UP DIRECT ROLLOUT
01799  M00S01321.1ro     +++|          STM    JFLC
01800  M00S01322.1ro     +++|          STM    JECA
01801  M00S01323.1ro     +++|          STM    JECD
01802  M00S01324.1ro     +++|          STM    JECE
01803  M00S01325.1ro     +++|          LDD    CM+3
01804  M00S01326.1ro     +++|          SHN    21-12
01805  M00S01327.1ro     +++|          PJN    RMS11       IF ECS
Line S01328 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01806  M01S01328.271l716 ---|          ISTORE ROJJ,(UJN ROJ2)
01807  M01S01329.271l716 ---|          LDM    CDRC
Line S00320 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01808  M01S00320.271l716 +++|          ISTORE ROJJ,(UJN ROJ4)
01809  M01S00321.271l716 +++|          LDM    CROD
Line S01330 Modification History
M01 (Removed by) 1ro31
Seq #  *Modification Id* Act 
----------------------------+
01810  M01S01330.1ro31   ---| RMSJ     ZJN    RMS12       IF NO ECS ASSIGNED
01811  M01S01331.1ro31   ---|*         UJN    RMS12       (*DMP=* PARTIAL FL CALL)
Line S00006 Modification History
M01 (Added by) 1ro31
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01812  M02S00006.273l780 ---|          ZJN    RMS12       IF ROLLOUT OF EM
Line S00092 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01813  M01S00092.273l780 +++|          ZJN    RMS12       IF NO ROLLOUT OF EM
01814  M00S01332.1ro     +++|          LDC    EPNF        SET NO FLUSH FOR CM ROLL
01815  M00S01333.1ro     +++|          STM    ROJI+1
01816  M00S01334.1ro     +++| RMS10    UJN    RMS12       CONTINUE
01817  M00S01335.1ro     +++|
01818  M00S01336.1ro     +++| RMS11    LDC    RJMI
01819  M00S01337.1ro     +++|          STM    JFLA
01820  M00S01338.1ro     +++|          STM    JECC
01821  M00S01339.1ro     +++| RMS12    RJM    FTB         FILL TRACK BUFFER
01822  M00S01340.1ro     +++|          LJM    RMSX        RETURN
Line S01341 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01823  M01S01341.271l716 ---|
01824  M01S01342.271l716 ---| RMSI     DATA   C* NO ROLLOUT SPACE AVAILABLE.*
01825  M00S01343.1ro     +++| ROD      SPACE  4,15
01826  M00S01344.1ro     +++|**        ROD - ROLLOUT USING DIRECT TRANSFER TO MASS STORAGE.
01827  M00S01345.1ro     +++|*
01828  M00S01346.1ro     +++|*         ENTRY  (A) = SECTOR COUNT.
01829  M00S01347.1ro     +++|*                (T3) = SECTOR OFFSET FROM RA.
01830  M00S01348.1ro     +++|*
01831  M00S01349.1ro     +++|*         EXIT   TO *MSR* IF MASS STORAGE ERROR.
01832  M00S01350.1ro     +++|*
Line S01351 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01833  M01S01351.271l716 ---|*         USES   T2, T8, RA, FL, CM - CM+4, CN - CN+4.
01834  M01S01352.271l716 ---|*                RA, FL.
01835  M01S01353.271l716 ---|*
01836  M01S01354.271l716 ---|*         CALLS  DDT, RTL, SSF.
Line S00322 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01837  M02S00322.273l780 ---|*         USES   T8, CM - CM+4, CN - CN+4.
Line S00093 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01838  M01S00093.273l780 +++|*         USES   T8, CM+3 - CM+4.
Line S00323 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01839  M01S00323.271l716 +++|*
01840  M01S00324.271l716 +++|*         CALLS  DDT, RTL.
01841  M00S01355.1ro     +++|
01842  M00S01356.1ro     +++|
01843  M00S01357.1ro     +++| ROD      SUBR               ENTRY/EXIT
01844  M00S01358.1ro     +++|          STD    T8          SAVE SECTOR COUNT
Line S01359 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01845  M01S01359.271l716 ---| RODA     UJN    ROD1        CONTINUE PROCESSING
01846  M01S01360.271l716 ---|*         PSN                (ECS ROLL, DMP= CALL OR CP 1 ROLL)
01847  M01S01361.271l716 ---|          LDC    UJNI+ROD2-RODB
01848  M01S01362.271l716 ---|          ERRPL  ROD2-RODB-40  RANGE ERROR
01849  M01S01363.271l716 ---|          STM    RODB
01850  M01S01364.271l716 ---| ROD1     LDD    T3          SET FWA OF ROLLOUT
Line S00325 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01851  M01S00325.271l716 +++|          LDD    T3          SET FWA OF ROLLOUT
01852  M00S01365.1ro     +++|          SHN    6
01853  M00S01366.1ro     +++|          STD    CM+4
01854  M00S01367.1ro     +++|          SHN    -14
01855  M00S01368.1ro     +++|          STD    CM+3
Line S00326 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01856  M02S00326.273l780 ---|          LDK    ZERL
01857  M02S00327.273l780 ---|          CRD    CN
Line S01369 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01858  M02S01369.273l780 ---|          LDD    T8          SET SECTOR COUNT
Line S00328 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01859  M02S00328.273l780 ---|          LDD    IR+2
01860  M02S00329.273l780 ---|          LMN    3
01861  M02S00330.273l780 ---|          NJN    ROD1        IF NOT PCP ROLLOUT
01862  M02S00331.273l780 ---|          LDD    IR+4        PLACE PCP NUMBER IN *PIOM* REQUEST
01863  M02S00332.273l780 ---|          STD    CN+4
01864  M02S00333.273l780 ---| ROD1     LDD    MA          STORE POSSIBLE PCP NUMBER IN REQUEST
01865  M02S00334.273l780 ---|          ADN    4
01866  M02S00335.273l780 ---|          CWD    CN
Line S00336 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01867  M01S00336.271l716 +++|          LDD    T8          SET SECTOR COUNT
01868  M00S01370.1ro     +++|          SBD    T3
01869  M00S01371.1ro     +++|          LMC    /CPS/WDDS*10000  SET WRITE FUNCTION
01870  M00S01372.1ro     +++|          RJM    DDT         WRITE DIRECT TO MASS STORAGE
01871  M00S01373.1ro     +++|          MJP    MSR         IF MASS STORAGE ERROR
Line S01374 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01872  M01S01374.271l716 ---|          LDC    **          STORE ROLLOUT FILE ADDRESS IN EJT
01873  M01S01375.271l716 ---|*         UJN    ROD2        (*DMP=* CALL, ECS ROLL OR CP 1)
01874  M01S01376.271l716 ---| RODB     EQU    *-2         (ADDRESS OF *SCHE* EJT WORD)
01875  M01S01377.271l716 ---|          CWM    JFLD,ON
01876  M01S01378.271l716 ---|          LDD    CP
01877  M01S01379.271l716 ---|          ADN    FLSW
01878  M01S01380.271l716 ---|          CRD    CN
01879  M01S01381.271l716 ---|          ADN    FLSW+1-FLSW
01880  M01S01382.271l716 ---|          CRD    CM
01881  M01S01383.271l716 ---|          LDD    T8          RELEASE FL
01882  M01S01384.271l716 ---|          SBD    T3
01883  M01S01385.271l716 ---|          STD    T2
01884  M01S01386.271l716 ---|          RAD    CN+3
01885  M01S01387.271l716 ---|          STD    CM+2
01886  M01S01388.271l716 ---|          SHN    -14
01887  M01S01389.271l716 ---|          RAD    CN+2
01888  M01S01390.271l716 ---|          STD    CM+1
01889  M01S01391.271l716 ---|          LCN    0           DECREMENT FL
01890  M01S01392.271l716 ---|          LMD    T2
01891  M01S01393.271l716 ---|          RAD    FL
01892  M01S01394.271l716 ---|          STD    CN+4        SET FL IN *FLSW*
01893  M01S01395.271l716 ---|          STD    CM+4
01894  M01S01396.271l716 ---|          LDD    CP          UPDATE CPA
01895  M01S01397.271l716 ---|          ADN    FLSW
01896  M01S01398.271l716 ---|          CWD    CN
01897  M01S01399.271l716 ---|          ADN    FLSW+1-FLSW
01898  M01S01400.271l716 ---|          CWD    CM
01899  M01S01401.271l716 ---| ROD2     RJM    RTL         RESYNC TRACK LIST
01900  M01S01402.271l716 ---|          LJM    RODX        RETURN
Line S00337 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01901  M01S00337.271l716 +++|          RJM    RTL         RESYNC TRACK LIST
01902  M01S00338.271l716 +++|          UJP    RODX        RETURN
01903  M00S01403.1ro     +++| ROM      SPACE  4,10
01904  M00S01404.1ro     +++|**        ROM - ROLLOUT MEMORY.
01905  M00S01405.1ro     +++|*
01906  M00S01406.1ro     +++|*         ENTRY  (A) = SECTOR COUNT.
01907  M00S01407.1ro     +++|*                (T3) = SECTOR OFFSET FROM RA.
01908  M00S01408.1ro     +++|*
Line S01409 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01909  M01S01409.271l716 ---|*         USES   T3, T8, RA, FL, CM - CM+4, CN - CN+4.
Line S00339 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01910  M01S00339.271l716 +++|*         USES   T3, T8.
01911  M00S01410.1ro     +++|*
01912  M00S01411.1ro     +++|*         CALLS  WNS.
Line S00340 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01913  M02S00340.273l780 ---|*
01914  M02S00341.273l780 ---|*         MACROS AJFL.
01915  M00S01412.1ro     +++|
01916  M00S01413.1ro     +++|
Line S01414 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01917  M01S01414.271l716 ---| ROM9     CON    0           ENTRY FOR *RJM*
01918  M01S01415.271l716 ---|          LDC    WNS         RESTORE INSTRUCTION
01919  M01S01416.271l716 ---|          STM    ROMI
01920  M01S01417.271l716 ---|
01921  M00S01418.1ro     +++| ROM      SUBR               ENTRY/EXIT
01922  M00S01419.1ro     +++|          STD    T8          SAVE NUMBER OF SECTORS TO ROLL
Line S01420 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01923  M01S01420.271l716 ---|          UJN    ROM1        CONTINUE
01924  M01S01421.271l716 ---|*         PSN                (*DMP=* CALL, ECS ROLL OR CP 1)
01925  M01S01422.271l716 ---| ROMA     EQU    *-1
01926  M01S01423.271l716 ---|          LDC    UJNI+ROM6-ROMJ
01927  M01S01424.271l716 ---|          ERRPL  ROM6-ROMJ-40  RANGE ERROR
01928  M01S01425.271l716 ---|          STM    ROMJ
01929  M01S01426.271l716 ---|          LDC    UJNI+ROM1-ROMA
01930  M01S01427.271l716 ---|          ERRPL  ROM1-ROMA-40  RANGE ERROR
01931  M01S01428.271l716 ---|          STM    ROMA
01932  M01S01429.271l716 ---|          LDC    UJNI+ROM3-ROMC
01933  M01S01430.271l716 ---|          ERRPL  ROM3-ROMC-40  RANGE ERROR
01934  M01S01431.271l716 ---|          STM    ROMC
01935  M01S01432.271l716 ---|          LDC    ADDI+T3
01936  M01S01433.271l716 ---|          STM    ROMB
01937  M01S01434.271l716 ---| ROM1     LDD    RA          READ NEXT SECTOR FROM CM
Line S00342 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01938  M02S00342.273l780 ---| ROM1     AJFL   RA          RESET *RA* AND *FL*
Line S00094 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01939  M01S00094.273l780 +++| ROM1     LDD    RA
01940  M00S01435.1ro     +++|          ADD    T3
Line S01436 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01941  M01S01436.271l716 ---|*         PSN                (NFL ROLLED AND NOT *DMP=*, ECS OR CP 1)
01942  M01S01437.271l716 ---| ROMB     EQU    *-1
01943  M00S01438.1ro     +++|          SHN    6
01944  M00S01439.1ro     +++|          CRM    BFMS+2,HN
Line S01440 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01945  M01S01440.271l716 ---|          UJN    ROM3        CONTINUE
01946  M01S01441.271l716 ---|*         PSN                (NFL ROLLED AND NOT *DMP=*, ECS OR CP 1)
01947  M01S01442.271l716 ---| ROMC     EQU    *-1
01948  M01S01443.271l716 ---| ROM2     LDC    **          UPDATE RA/FL FIELDS IN CPA
01949  M01S01444.271l716 ---| ROMD     EQU    *-1         (*FLSW* ADDRESS)
01950  M01S01445.271l716 ---|          CRD    CN
01951  M01S01446.271l716 ---|          ADN    FLSW+1-FLSW
01952  M01S01447.271l716 ---|          CRD    CM
01953  M01S01448.271l716 ---|          LDN    **          UPDATE RA
01954  M01S01449.271l716 ---| ROMN     EQU    *-1         (RA INCREMENT)
01955  M01S01450.271l716 ---|          RAD    CN+3
01956  M01S01451.271l716 ---|          STD    CM+2
01957  M01S01452.271l716 ---|          STD    RA
01958  M01S01453.271l716 ---|*         PSN                (CME PRESENT)
01959  M01S01454.271l716 ---| ROMF     EQU    *-1
01960  M01S01455.271l716 ---|          SHN    -14
01961  M01S01456.271l716 ---|          RAD    CN+2
01962  M01S01457.271l716 ---|          STD    CM+1
01963  M01S01458.271l716 ---|          LCN    **          UPDATE FL
01964  M01S01459.271l716 ---| ROMG     EQU    *-1         (RA INCREMENT)
01965  M01S01460.271l716 ---|          RAD    FL
01966  M01S01461.271l716 ---|          STD    CN+4
01967  M01S01462.271l716 ---|          STD    CM+4
01968  M01S01463.271l716 ---|          LDC    **          UPDATE CPA
01969  M01S01464.271l716 ---| ROMH     EQU    *-1         (*FLSW* ADDRESS)
01970  M01S01465.271l716 ---|          CWD    CN
01971  M01S01466.271l716 ---|          ADN    FLSW+1-FLSW
01972  M01S01467.271l716 ---|          CWD    CM
01973  M01S01468.271l716 ---|          LRD    CM+1        RESET *R* REGISTER
01974  M01S01469.271l716 ---| ROM3     RJM    WNS         WRITE SECTOR TO ROLLOUT FILE
01975  M01S01470.271l716 ---|*         RJM    ROM9        (NFL ROLLED AND NO FL TO ROLL)
01976  M01S01471.271l716 ---| ROMI     EQU    *-1
Line S00343 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01977  M01S00343.271l716 +++|          RJM    WNS         WRITE NEXT SECTOR TO ROLLOUT FILE
01978  M00S01472.1ro     +++|          AOD    T3          INCREMENT COUNT OF SECTORS ROLLED
Line S01473 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01979  M01S01473.271l716 ---|          LMN    **
01980  M01S01474.271l716 ---|*         UJN    ROM6        (*DMP=* CALL, ECS ROLL OR CP 1)
01981  M01S01475.271l716 ---| ROMJ     EQU    *-1         (NFL SIZE + 1)
01982  M01S01476.271l716 ---|          NJN    ROM5        IF NFL ROLLOUT INCOMPLETE
01983  M01S01477.271l716 ---|          STM    MSRD
01984  M01S01478.271l716 ---|          STM    ROMC
01985  M01S01479.271l716 ---|          LDC    **          STORE ROLLOUT FILE ADDRESS IN EJT
01986  M01S01480.271l716 ---| ROMK     EQU    *-1
01987  M01S01481.271l716 ---|          CWM    JFLD,ON
01988  M01S01482.271l716 ---|          LDC    NJNI+ROM7-ROMM
01989  M01S01483.271l716 ---|*         UJN    ROM8        (ONLY NFL WILL BE ROLLED)
01990  M01S01484.271l716 ---| ROML     EQU    *-2
01991  M01S01485.271l716 ---|          ERRPL  ROM7-ROMM-40  RANGE ERROR
01992  M01S01486.271l716 ---|          STM    ROMM
01993  M01S01487.271l716 ---| ROM4     LJM    ROM1        ROLL NEXT SECTOR
01994  M01S01488.271l716 ---|
01995  M01S01489.271l716 ---| ROM5     LDD    T3
01996  M01S01490.271l716 ---| ROM6     LMD    T8
01997  M01S01491.271l716 ---|          NJN    ROM4        IF ROLLOUT INCOMPLETE
01998  M01S01492.271l716 ---|*         NJN    ROM7        (TIME TO RELEASE NFL)
01999  M01S01493.271l716 ---| ROMM     EQU    *-1
02000  M01S01494.271l716 ---|          LJM    ROMX        RETURN
02001  M01S01495.271l716 ---|
02002  M01S01496.271l716 ---| ROM7     LDN    PSNI
02003  M01S01497.271l716 ---|          STM    ROMB
02004  M01S01498.271l716 ---|          LDC    NJNI+77-ROMM+ROM4
02005  M01S01499.271l716 ---|          STM    ROMM
02006  M01S01500.271l716 ---|          LDC    LDNI+1
02007  M01S01501.271l716 ---|          STM    ROMN
02008  M01S01502.271l716 ---|          ADD    HN
02009  M01S01503.271l716 ---|          ERRNZ  LDNI+100-LCNI  CODE MODIFICATION ERROR
02010  M01S01504.271l716 ---|          STM    ROMG
02011  M01S01505.271l716 ---|          LJM    ROM1        ROLL NEXT SECTOR
02012  M01S01506.271l716 ---|
02013  M01S01507.271l716 ---| ROM8     LDC    ROM9
02014  M01S01508.271l716 ---|          STM    ROMI
02015  M01S01509.271l716 ---|          LCN    2           SET TO NFL INSTEAD OF NFL+2
02016  M01S01510.271l716 ---|          RAM    ROMN
02017  M01S01511.271l716 ---|          LCN    2
02018  M01S01512.271l716 ---|          RAM    ROMG
02019  M01S01513.271l716 ---|          LJM    ROM2        UPDATE RA/FL TO RELEASE NFL
Line S00344 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02020  M01S00344.271l716 +++|          LMD    T8
02021  M01S00345.271l716 +++|          NJN    ROM1        IF MORE SECTORS TO WRITE
02022  M01S00346.271l716 +++|          UJP    ROMX        RETURN
02023  M00S01514.1ro     +++| RTL      SPACE  4,15
02024  M00S01515.1ro     +++|**        RTL - RESYNC TRACK LIST.
02025  M00S01516.1ro     +++|*
02026  M00S01517.1ro     +++|*         ENTRY  (T6) = CURRENT TRACK.
02027  M00S01518.1ro     +++|*                (NT) = TRACK LIST INDEX.
02028  M00S01519.1ro     +++|*
02029  M00S01520.1ro     +++|*         EXIT   (A) = 0.
02030  M00S01521.1ro     +++|*                (T6) = CURRENT TRACK.
02031  M00S01522.1ro     +++|*                (NT) = CURRENT TRACK LIST INDEX.
02032  M00S01523.1ro     +++|*
Line S01524 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02033  M01S01524.271l716 ---|*         USES   T8.
Line S00347 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02034  M01S00347.271l716 +++|*         USES   NT, T6, T8.
02035  M00S01525.1ro     +++|*
Line S01526 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02036  M01S01526.271l716 ---|*         CALLS  SNT.
Line S00348 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02037  M01S00348.271l716 +++|*         CALLS  FTB.
02038  M00S01527.1ro     +++|
02039  M00S01528.1ro     +++|
02040  M00S01529.1ro     +++| RTL1     LDI    NT
02041  M00S01530.1ro     +++|          STD    T6
02042  M00S01531.1ro     +++|          AOD    NT
02043  M00S01532.1ro     +++|          LDI    NT
02044  M00S01533.1ro     +++|          NJN    RTL2        IF NEXT TRACK AVAILABLE
02045  M00S01534.1ro     +++|          RJM    FTB         FILL TRACK BUFFER
02046  M00S01535.1ro     +++| RTL2     LDD    T8
02047  M00S01536.1ro     +++| RTL3     LMM    -1,NT
02048  M00S01537.1ro     +++|          NJN    RTL1        IF NOT CURRENT TRACK
02049  M00S01538.1ro     +++|
02050  M00S01539.1ro     +++| RTL      SUBR               ENTRY/EXIT
02051  M00S01540.1ro     +++|          LDD    T6          SET CURRENT TRACK
02052  M00S01541.1ro     +++|          STD    T8
02053  M00S01542.1ro     +++|          UJN    RTL3        RESYNC TRACK LIST INDEX
02054  M00S01543.1ro     +++| SEF      SPACE  4,15
02055  M00S01544.1ro     +++|**        SEF - SET ERROR FLAG.
02056  M00S01545.1ro     +++|*
Line S01546 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02057  M01S01546.271l716 ---|*         ENTRY  1/ F,11/ ERROR FLAG.
02058  M01S01547.271l716 ---|*                F = 0 IF EJT ORDINAL OPTION SHOULD BE USED ON *CEFM*
02059  M01S01548.271l716 ---|*                CALL.
02060  M01S01549.271l716 ---|*                (EO) = EJT ORDINAL.
Line S00349 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02061  M01S00349.271l716 +++|*         ENTRY  (A) = 1/ F,11/ ERROR FLAG.
02062  M01S00350.271l716 +++|*                (EO) = EJT ORDINAL (IF F=0 SPECIFIED).
02063  M00S01550.1ro     +++|*
02064  M00S01551.1ro     +++|*         EXIT   (A) = 0.
02065  M00S01552.1ro     +++|*
02066  M00S01553.1ro     +++|*         USES   CM+1 - CM+7.
02067  M00S01554.1ro     +++|*
02068  M00S01555.1ro     +++|*         MACROS MONITOR, SFA.
02069  M00S01556.1ro     +++|
02070  M00S01557.1ro     +++|
02071  M00S01558.1ro     +++| SEF      SUBR               ENTRY/EXIT
Line S00351 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02072  M01S00351.271l716 +++|          ZJN    SEFX        IF NO ERROR FLAG
02073  M00S01559.1ro     +++|          LMC    4000        SET/CLEAR *EJT ORDINAL PRESENT* FLAG
02074  M00S01560.1ro     +++|          STD    CM+1        SET ERROR FLAG
02075  M00S01561.1ro     +++|          LDD    EO          STORE EJT ORDINAL
02076  M00S01562.1ro     +++|          STD    CM+2
02077  M00S01563.1ro     +++|          SFA    EJT         GET JSN
02078  M00S01564.1ro     +++|          ADK    JSNE
02079  M00S01565.1ro     +++|          CRD    CM+3
02080  M00S01566.1ro     +++|          MONITOR  CEFM
02081  M00S01567.1ro     +++|          UJN    SEFX        RETURN
02082  M00S01568.1ro     +++| SRA      SPACE  4,10
02083  M00S01569.1ro     +++|**        SRA - SET RA TO THE BEGINNING OF NFL.
02084  M00S01570.1ro     +++|*
02085  M00S01571.1ro     +++|*         EXIT   FLSW, FLSW+1 AND EXCHANGE PACKAGE ALTERED
02086  M00S01572.1ro     +++|*                TO REFLECT THE NEW RA AND FL.
02087  M00S01573.1ro     +++|*
02088  M00S01574.1ro     +++|*         NOTES  AFTER THIS ROUTINE IS EXECUTED ANY ACCESS TO THE
02089  M00S01575.1ro     +++|*                JOB-S CM FL MUST BE BIASED BY CELL *NF*.
02090  M00S01576.1ro     +++|*
02091  M00S01577.1ro     +++|*         USES   CM - CM+4, CN - CN+4, FS - FS+4, FN - FN+4.
Line S00352 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02092  M02S00352.273l780 ---|*
02093  M02S00353.273l780 ---|*         MACROS AJFL, LCPA.
02094  M00S01578.1ro     +++|
02095  M00S01579.1ro     +++|
02096  M00S01580.1ro     +++| SRA      SUBR               ENTRY/EXIT
Line S01581 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02097  M01S01581.271l716 ---|          LDD    CP          READ FIELDS
02098  M01S01582.271l716 ---|          ADN    1           READ EXCHANGE PACKAGE RA
Line S00354 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02099  M02S00354.273l780 ---|          LCPA   1           READ XJ PACKAGE RA
Line S00095 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02100  M01S00095.273l780 +++|          TLDC   1,CPAD      READ EXCHANGE PACKAGE RA
02101  M00S01583.1ro     +++|          CRD    FS
02102  M00S01584.1ro     +++|          ADN    1           READ EXCHANGE PACKAGE FL
02103  M00S01585.1ro     +++|          CRD    FN
02104  M00S01586.1ro     +++|          ADN    FLSW-2      READ FIELD LENGTH CONTROL WORDS
02105  M00S01587.1ro     +++|          CRD    CM
02106  M00S01588.1ro     +++|          ADN    FLSW+1-FLSW
02107  M00S01589.1ro     +++|          CRD    CN
02108  M00S01590.1ro     +++|          LDD    CM          ADD NFL TO FL
02109  M00S01591.1ro     +++|          RAD    CM+4
02110  M00S01592.1ro     +++|          STD    CN+4
02111  M00S01593.1ro     +++|          SHN    6
02112  M00S01594.1ro     +++|          STD    FN+1
02113  M00S01595.1ro     +++|          SHN    -14
02114  M00S01596.1ro     +++|          STD    FN
02115  M00S01597.1ro     +++|          LDC    4000        SET NFL+4000
02116  M00S01598.1ro     +++|          STD    CN+3
02117  M00S01599.1ro     +++|          LDD    CM+2        FORM NEW RA
02118  M00S01600.1ro     +++|          SHN    14
02119  M00S01601.1ro     +++|          ADD    CM+3
02120  M00S01602.1ro     +++|          SBD    CM          RA-NFL
02121  M00S01603.1ro     +++|          STD    CM+3
02122  M00S01604.1ro     +++|          STD    CN+2
02123  M00S01605.1ro     +++|          SHN    14
02124  M00S01606.1ro     +++|          STD    FS
02125  M00S01607.1ro     +++|          SHN    -6
02126  M00S01608.1ro     +++|          LPN    77
02127  M00S01609.1ro     +++|          STD    CM+2
02128  M00S01610.1ro     +++|          STD    CN+1
02129  M00S01611.1ro     +++|          LDD    CM+3
02130  M00S01612.1ro     +++|          SHN    6
02131  M00S01613.1ro     +++|          STD    FS+1
02132  M00S01614.1ro     +++|          LDD    CM          SAVE NFL SIZE FOR LEVEL 3 D/S
02133  M00S01615.1ro     +++|          STD    CM+1
02134  M00S01616.1ro     +++|          RAM    JFLB        ADJUST NUMBER OF SECTORS TO ROLL
02135  M00S01617.1ro     +++|          LDN    0           CLEAR NFL FIELD
02136  M00S01618.1ro     +++|          STD    CM
Line S01619 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02137  M01S01619.271l716 ---|          LDD    CP          REWRITE FIELDS
02138  M01S01620.271l716 ---|          ADN    1
Line S00355 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02139  M02S00355.273l780 ---|          LCPA   1           UPDATE XJ PACKAGE DATA
Line S00096 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02140  M01S00096.273l780 +++|          TLDC   1,CPAD      UPDATE EXCHANGE PACKAGE DATA
02141  M00S01621.1ro     +++|          CWD    FS
02142  M00S01622.1ro     +++|          ADN    1
02143  M00S01623.1ro     +++|          CWD    FN
02144  M00S01624.1ro     +++|          ADN    FLSW-2
02145  M00S01625.1ro     +++|          CWD    CM
02146  M00S01626.1ro     +++|          ADN    FLSW+1-FLSW
02147  M00S01627.1ro     +++|          CWD    CN
Line S01628 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02148  M01S01628.271l716 ---|          PAUSE  NE          RESET RA AND FL
Line S00356 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02149  M02S00356.273l780 ---|          AJFL               RESET *RA* AND *FL*
02150  M00S01629.1ro     +++|          LJM    SRAX        RETURN
Line S00357 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02151  M01S00357.271l716 +++| TCP      SPACE  4,10
02152  M01S00358.271l716 +++|**        TCP - TRANSFER CPA TO PCPA.
02153  M01S00359.271l716 +++|*
02154  M01S00360.271l716 +++|*         ENTRY  (IR+4) = PCP NUMBER.
02155  M01S00361.271l716 +++|*
02156  M01S00362.271l716 +++|*         USES   CM - CM+4.
02157  M01S00363.271l716 +++|*
Line S00364 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02158  M02S00364.273l780 ---|*         CALLS  CCA.
Line S00097 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02159  M01S00097.273l780 +++|*         MACROS MONITOR.
Line S00365 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02160  M01S00365.271l716 +++|
02161  M01S00366.271l716 +++|
02162  M01S00367.271l716 +++| TCP      SUBR               ENTRY/EXIT
02163  M01S00368.271l716 +++|          LDD    CP          READ CPA INTO PP
02164  M01S00369.271l716 +++|          CRM    BUF,HN
02165  M01S00370.271l716 +++|          CRM    BUF+100*5,HN
Line S00371 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02166  M02S00371.273l780 ---|          LDD    IR+4        PRESERVE PCPA FL CONTROL WORDS
02167  M02S00372.273l780 ---|          RJM    CCA
02168  M02S00373.273l780 ---|          ADK    FLSW
Line S00098 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02169  M01S00098.273l780 +++|
02170  M01S00099.273l780 +++|*         SET ALTERNATE PCP ASSIGNMENT WHEN UPDATING THE PCP FIELD
02171  M01S00100.273l780 +++|*         LENGTH CONTROL WORDS TO PREVENT A SIMULTANEOUS UPDATE OF
02172  M01S00101.273l780 +++|*         THESE WORDS BY A STORAGE MOVE.
02173  M01S00102.273l780 +++|
02174  M01S00103.273l780 +++|          LDD    IR+4        SET PCP NUMBER
02175  M01S00104.273l780 +++|          ADC    /CPS/ALCS   SET ALTERNATE PCP FLAG
02176  M01S00105.273l780 +++|          STD    CM+1
02177  M01S00106.273l780 +++|          MONITOR  CCAM      SET ALTERNATE PCP ASSIGNMENT
02178  M01S00107.273l780 +++|          TLDC   FLSW,PCAD   PRESERVE PCPA FL CONTROL WORDS
Line S00374 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02179  M01S00374.271l716 +++|          CRM    BUF+FLSW*5,TR
02180  M01S00375.271l716 +++|          ADK    TFSW-FLSW-3 PRESERVE EJT ORDINAL FROM PCPA
02181  M01S00376.271l716 +++|          CRD    CM
02182  M01S00377.271l716 +++|          LDD    CM
02183  M01S00378.271l716 +++|          STM    BUF+TFSW*5+0
Line S00379 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02184  M02S00379.273l780 ---|          LDN    0           CLEAR ACTIVITY
02185  M02S00380.273l780 ---|          STM    BUF+STSW*5+0
Line S00381 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02186  M01S00381.271l716 +++|          LDM    BUF+STSW*5+2  CLEAR ROLLOUT CONTROL FLAGS
02187  M01S00382.271l716 +++|          LPN    2           PRESERVE CPU STATUS FLAG
02188  M01S00383.271l716 +++|          STM    BUF+STSW*5+2
Line S00384 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02189  M02S00384.273l780 ---|          LDD    IR+4        MOVE CPA TO PCPA
02190  M02S00385.273l780 ---|          RJM    CCA
Line S00108 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02191  M01S00108.273l780 +++|          TLDC   0,PCAD      MOVE CPA TO PCPA
Line S00386 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02192  M01S00386.271l716 +++|          CWM    BUF,HN
02193  M01S00387.271l716 +++|          CWM    BUF+100*5,HN
Line S00109 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02194  M01S00109.273l780 +++|          LDC    /CPS/ALCS   SET ALTERNATE CP FLAG
02195  M01S00110.273l780 +++|          STD    CM+1
02196  M01S00111.273l780 +++|          MONITOR  CCAM      CLEAR ALTERNATE PCP ASSIGNMENT
Line S00388 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02197  M01S00388.271l716 +++|          UJP    TCPX        RETURN
02198  M00S01630.1ro     +++| WNS      SPACE  4,20
02199  M00S01631.1ro     +++|**        WNS - WRITE NEXT SECTOR.
02200  M00S01632.1ro     +++|*
02201  M00S01633.1ro     +++|*         ENTRY  (BFMS+1 - BFMS+501) = SECTOR FORMATTED.  ANOTHER
02202  M00S01634.1ro     +++|*                BUFFER ADDRESS MAY BE USED IF CALLER PRESETS (WNSA),
02203  M00S01635.1ro     +++|*                (WNSB), AND (WNSC) AND RESTORES THEM.
02204  M00S01636.1ro     +++|*                (NT) = NEXT TRACK BUFFER POINTER.
02205  M00S01637.1ro     +++|*                (T6) = TRACK.
02206  M00S01638.1ro     +++|*                (T7) = SECTOR.
02207  M00S01639.1ro     +++|*
02208  M00S01640.1ro     +++|*         EXIT   (T6) AND (T7) UPDATED.
02209  M00S01641.1ro     +++|*                TO *MSR* IF MASS STORAGE ERROR OCCURRED.
02210  M00S01642.1ro     +++|*
02211  M00S01643.1ro     +++|*         USES   T2, T6, T7, NT.
02212  M00S01644.1ro     +++|*
02213  M00S01645.1ro     +++|*         CALLS  FTB, WDS.
02214  M00S01646.1ro     +++|*
02215  M00S01647.1ro     +++|*         MACROS ENDMS.
02216  M00S01648.1ro     +++|
02217  M00S01649.1ro     +++|
02218  M00S01650.1ro     +++| WNS      SUBR               ENTRY/EXIT
02219  M00S01651.1ro     +++|          LDD    T7          SET NEXT SECTOR
02220  M00S01652.1ro     +++|          ADN    1
02221  M00S01653.1ro     +++| WNS1     STM    BFMS
02222  M00S01654.1ro     +++| WNSA     EQU    *-1
02223  M00S01655.1ro     +++|*         STM    OBUF        (TERMINAL OUTPUT SECTOR)
02224  M00S01656.1ro     +++|          LMM    SLM
02225  M00S01657.1ro     +++|          NJN    WNS2        IF NOT END OF TRACK
02226  M00S01658.1ro     +++|          LDI    NT          SET NEXT TRACK
02227  M00S01659.1ro     +++|          UJN    WNS1        SET TRACK INTO SECTOR LINKAGE BYTE
02228  M00S01660.1ro     +++|
02229  M00S01661.1ro     +++| WNS2     LDC    BFMS+WCSF   WRITE CONSECUTIVE SECTORS
02230  M00S01662.1ro     +++| WNSB     EQU    *-1
02231  M00S01663.1ro     +++|*         LDC    OBUF+WCSF   (TERMINAL OUTPUT SECTOR)
02232  M00S01664.1ro     +++|          RJM    WDS         WRITE SECTOR
02233  M00S01665.1ro     +++|          MJP    MSR         IF MASS STORAGE ERROR
02234  M00S01666.1ro     +++|          LDM    BFMS
02235  M00S01667.1ro     +++| WNSC     EQU    *-1
02236  M00S01668.1ro     +++|*         LDM    OBUF        (TERMINAL OUTPUT SECTOR)
02237  M00S01669.1ro     +++|          STD    T7
02238  M00S01670.1ro     +++|          SHN    21-13
02239  M00S01671.1ro     +++|          PJN    WNSX        IF NOT NEW TRACK
02240  M00S01672.1ro     +++|          SHN    -6
02241  M00S01673.1ro     +++|          STD    T6
02242  M00S01674.1ro     +++|          LDN    0           RESET SECTOR
02243  M00S01675.1ro     +++|          STD    T7
02244  M00S01676.1ro     +++|          AOD    NT
02245  M00S01677.1ro     +++|          LDI    NT
02246  M00S01678.1ro     +++| WNS2.1   NJN    WNSX        IF NEXT TRACK AVAILABLE
02247  M00S01679.1ro     +++| WNS3     LDD    OA          WAIT OUTPUT REGISTER CLEAR
02248  M00S01680.1ro     +++|          CRD    CM
02249  M00S01681.1ro     +++|          LDD    CM
Line S01682 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02250  M01S01682.271l716 ---|          NJN    WNS3        IF *ECXM* IN PROGRESS
Line S00389 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02251  M01S00389.271l716 +++|          NJN    WNS3        IF *RCXM*/*ECXM* IN PROGRESS
02252  M00S01683.1ro     +++|          ENDMS
02253  M00S01684.1ro     +++|          RJM    FTB         FILL TRACK BUFFER
02254  M00S01685.1ro     +++|          UJN    WNS2.1      RETURN
02255  M00S01686.1ro     +++|          SPACE  4,10
02256  M00S01687.1ro     +++|*         COMMON DECKS.
02257  M00S01688.1ro     +++|
02258  M00S01689.1ro     +++|
02259  M00S01690.1ro     +++| CET$     EQU    1           ASSEMBLE ROUTINE *CET* (COMPCPE)
02260  M00S01691.1ro     +++|*CALL     COMPCPE
Line S00001 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02261  M01S00001.ns2748  +++| PIR$     EQU    1           SELECT ASSEMBLY OF *PIR* FOR IAF R-REG
02262  M01S00002.ns2748  +++|*CALL     COMPSRR
02263  M00S01692.1ro     +++|          LIST   X
02264  M00S01693.1ro     +++|*CALL     COMPDDT
02265  M00S01694.1ro     +++|          LIST   *
02266  M00S01695.1ro     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION (COMPGFP)
02267  M00S01696.1ro     +++| EJT$     EQU    1           ASSEMBLE EJT ADDRESSING (COMPGFP)
02268  M00S01697.1ro     +++|*CALL     COMPGFP
Line S00390 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02269  M02S00390.273l780 ---|          LIST   X
02270  M02S00391.273l780 ---|*CALL     COMPPCP
02271  M02S00392.273l780 ---|          LIST   *
Line S01698 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02272  M01S01698.271l716 ---|*CALL     COMPNFL
02273  M00S01699.1ro     +++|*CALL     COMPRJC
Line S00112 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02274  M01S00112.273l780 +++|*CALL     COMPSIC
Line S01700 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02275  M01S01700.271l716 ---|*CALL     COMPRLS
02276  M00S01701.1ro     +++|*CALL     COMPWEI
02277  M00S01702.1ro     +++| WCS$     EQU    1           WRITE CONSECUTIVE SECTORS (COMPWSS)
02278  M00S01703.1ro     +++|*CALL     COMPWSS
02279  M00S01704.1ro     +++|          SPACE  4,10
02280  M00S01705.1ro     +++|          USE    BUFFERS
02281  M00S01706.1ro     +++| BUF      EQU    *
Line S00393 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02282  M01S00393.271l716 +++|          ERRPL  BUF+502-OBUF  CPA OVERLAYS TERMINAL OUTPUT BUFFER
Line S00001 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02283  M01S00001.ns2433b +++|
02284  M01S00002.ns2433b +++|*         COMMON DECKS.
02285  M01S00003.ns2433b +++|
02286  M01S00004.ns2433b +++|
02287  M01S00005.ns2433b +++|*CALL     COMPAST
02288  M00S01707.1ro     +++|          TITLE  INITIALIZATION.
Line S01708 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02289  M01S01708.271l716 ---| PRS      SPACE  4,20
Line S00394 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02290  M01S00394.271l716 +++| PRS      SPACE  4,25
02291  M00S01709.1ro     +++|**        PRS - PRESET.
02292  M00S01710.1ro     +++|*
Line S01711 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02293  M01S01711.271l716 ---|*         EXIT   (EO) = EJT ORDINAL.
Line S00395 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02294  M01S00395.271l716 +++|*         EXIT   TO *ROJ1* IF PSEUDO ROLLOUT.
02295  M01S00396.271l716 +++|*                (DI) = *UJNI*+2.
02296  M01S00397.271l716 +++|*                (EO) = EJT ORDINAL.
Line S00398 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02297  M02S00398.273l780 ---|*                (NC) = NUMBER OF CONTROL POINTS + 1.
Line S00399 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02298  M01S00399.271l716 +++|*                (NF) = NFL SIZE.
02299  M00S01712.1ro     +++|*                (SC) = 0.
Line S00400 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02300  M02S00400.ns2748  ---|*                (TA) = *IAF* RA IF ON-LINE INTERACTIVE JOB.
Line S00003 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02301  M01S00003.ns2748  +++|*                (TA) = SET PER *COMPSRR* ROUTINE *PIR*.
Line S00401 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02302  M01S00401.271l716 +++|*                (TN) = TERMINAL NUMBER IF ON-LINE INTERACTIVE JOB.
02303  M01S00402.271l716 +++|*                (TT - TT+1) = TERMINAL TABLE ADDRESS IF ON-LINE
02304  M01S00403.271l716 +++|*                              INTERACTIVE JOB.
02305  M00S01713.1ro     +++|*                (ZR - ZR+4) = 0.
Line S01714 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02306  M01S01714.271l716 ---|*                (DI) = *UJNI*+2.
02307  M01S01715.271l716 ---|*                (TW) = 2.
02308  M01S01716.271l716 ---|*                (TA) = *IAF* RA IF ON-LINE INTERACTIVE JOB.
02309  M01S01717.271l716 ---|*                (TT - TT+1) = TERMINAL TABLE ADDRESS IF ON-LINE
02310  M01S01718.271l716 ---|*                              INTERACTIVE JOB.
Line S00404 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02311  M01S00404.271l716 +++|*                (AEAA+1) = -FLE.
02312  M01S00405.271l716 +++|*                (CDRC) = ASSIGNED EM FL IN *UEBS* WORD BLOCKS.
02313  M00S01719.1ro     +++|*                (EJSS - EJSS+5*EJTE-1) = EJT ENTRY.
Line S00113 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02314  M01S00113.273l780 +++|*                (CPAD) = CP OR PCP ADDRESS.
Line S01720 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02315  M01S01720.271l716 ---|*                (NF) = NFL SIZE.
02316  M01S01721.271l716 ---|*                (TN) = TERMINAL NUMBER IF ON-LINE INTERACTIVE JOB.
02317  M01S01722.271l716 ---|*                TO *ROJ5* IF ERROR.
02318  M01S01723.271l716 ---|*                (AEAA+1) = -FLE.
02319  M01S01724.271l716 ---|*                (CDRC) = ASSIGNED EM FL IN *UEBS* WORD BLOCKS.
02320  M00S01725.1ro     +++|*
Line S01726 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02321  M01S01726.271l716 ---|*         USES   T0 - T7, CM - CM+4, T9, FN - FN+4, FS - FS+4,
02322  M01S01727.271l716 ---|*                CN - CN+4, ZR - ZR+4, EO, SC, TW, TA, NF.
Line S00406 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02323  M02S00406.273l780 ---|*         USES   DI, EO, IR+2, NC, NF, SC, TA, TN, CM - CM+4,
Line S00114 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02324  M02S00114.ns2748  ---|*         USES   DI, EO, IR+2, NF, OP, OP+1, SC, TA, TN, CM - CM+4,
Line S00407 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02325  M02S00407.ns2748  ---|*                CN - CN+4, FN - FN+4, FS - FS+4, T0 - T7,
02326  M02S00408.ns2748  ---|*                T8-3 - T8+1, ZR - ZR+4.
Line S00004 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02327  M01S00004.ns2748  +++|*         USES   DI, EO, FA, IR+2, IR+4, NF, SC, TN, CM - CM+4,
02328  M01S00005.ns2748  +++|*                CN - CN+4, FN - FN+4, FS - FS+4, T1 - T9,
02329  M01S00006.ns2748  +++|*                ZR - ZR+4.
02330  M00S01728.1ro     +++|*
Line S01729 Modification History
M01 (Removed by) ns2569
Seq #  *Modification Id* Act 
----------------------------+
02331  M01S01729.ns2569  ---|*         CALLS  CAU, EXR, FLF, IFP, ITF, STA, 3RP.
Line S00001 Modification History
M01 (Added by) ns2569
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02332  M02S00001.271l716 ---|*         CALLS  CAU, ERS, EXR, FLF, IFP, ISU, ITF, STA, PRP.
Line S00409 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02333  M02S00409.273l780 ---|*         CALLS  AST, CAU, CCA, ERS, FLF, IFP, ISU, ITF, /3RP/PRP,
Line S00115 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02334  M02S00115.ns2748  ---|*         CALLS  AST, CAU,ERS, FLF, IFP, ISU, ITF, /3RP/PRP, SIC,
Line S00410 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02335  M02S00410.ns2748  ---|*                /3RP/SIO, /3RP/STA.
Line S00007 Modification History
M01 (Added by) ns2748
Seq #  *Modification Id* Act 
----------------------------+
02336  M01S00007.ns2748  +++|*         CALLS  AST, CAU, ERS, FLF, IFP, ISU, ITF, /3RS/PDM, PIR,
02337  M01S00008.ns2748  +++|*                /3RP/PRP, RRR, SIC, /3RP/SIO, SRR, /3RP/STA.
02338  M00S01730.1ro     +++|*
Line S01731 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02339  M01S01731.271l716 ---|*         MACROS EXECUTE, ISTORE, MONITOR, NFA, SFA.
Line S00411 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02340  M02S00411.273l780 ---|*         MACROS AJFL, EXECUTE, IPCP, ISTORE, LCPA, MONITOR, NFA, SFA.
Line S00116 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02341  M01S00116.273l780 +++|*         MACROS EXECUTE, ISTORE, MONITOR, NFA, SFA.
02342  M00S01732.1ro     +++|
02343  M00S01733.1ro     +++|
Line S01734 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02344  M01S01734.271l716 ---|PRSD      CON    2004        CLEAR TERMINAL INTERRUPT FLAG
Line S00412 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02345  M01S00412.271l716 +++| PRSE     CON    /REM/VCDT   CLEAR TERMINAL INTERRUPT FLAG
02346  M00S01735.1ro     +++|          CON    0
02347  M00S01736.1ro     +++|          CON    /REM/VSTT
02348  M00S01737.1ro     +++|          CON    59D
02349  M00S01738.1ro     +++|          CON    0           TERMINAL NUMBER
02350  M00S01739.1ro     +++|
Line S01740 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02351  M01S01740.271l716 ---| PRSG     VFD    1/0,5/JSNE,6/4
02352  M01S01741.271l716 ---|          VFD    6/7,6/0
02353  M01S01742.271l716 ---|          CON    0,0,NICS
02354  M00S01743.1ro     +++|
02355  M00S01744.1ro     +++|
Line S01745 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02356  M01S01745.271l716 ---|*         PROCESS NON-DMP= ROLLOUT OF INTERACTIVE JOB.
Line S00413 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02357  M01S00413.271l716 +++|*         PROCESS NON-*DMP=* ROLLOUT OF INTERACTIVE JOB.
02358  M00S01746.1ro     +++|
Line S01747 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02359  M01S01747.271l716 ---| PRS17    EXECUTE  3RP       LOAD INTERACTIVE JOB PROCESSING OVERLAY
Line S00414 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02360  M01S00414.271l716 +++| PRS25    EXECUTE  3RP       LOAD INTERACTIVE JOB PROCESSING OVERLAY
02361  M00S01748.1ro     +++|          LDC    **
Line S01749 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02362  M01S01749.271l716 ---| PRSC     EQU    *-1         (CONNECTION STATUS)
Line S00415 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02363  M01S00415.271l716 +++| PRSG     EQU    *-1         (CONNECTION STATUS)
02364  M00S01750.1ro     +++|          LMN    OLCS
Line S01751 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02365  M01S01751.271l716 ---|          ZJN    PRS19       IF ON-LINE INTERACTIVE JOB
Line S00416 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02366  M01S00416.271l716 +++|          ZJN    PRS27       IF ON-LINE INTERACTIVE JOB
02367  M00S01752.1ro     +++|
02368  M00S01753.1ro     +++|*         CHECK FOR RESOURCE LIMIT ON DETACHED INTERACTIVE JOB.  SUCH
02369  M00S01754.1ro     +++|*         JOBS WILL BE SUSPENDED.
02370  M00S01755.1ro     +++|
02371  M00S01756.1ro     +++|          LDD    CN
02372  M00S01757.1ro     +++|          LPC    2400
Line S01758 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02373  M01S01758.271l716 ---|          ZJN    PRS18       IF NOT RESOURCE LIMIT
Line S00417 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02374  M01S00417.271l716 +++|          ZJN    PRS26       IF NOT RESOURCE LIMIT
Line S01759 Modification History
M01 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02375  M01S01759.ns2433b ---|          LDM    ERSA        SET SUSPEND ON ROLLOUT FLAG
Line S00006 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02376  M02S00006.271l716 ---| PRS17.1  LDM    ERSA        SET SUSPEND ON ROLLOUT FLAG
Line S00418 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02377  M01S00418.271l716 +++| PRS25.1  LDM    ERSA        SET SUSPEND ON ROLLOUT FLAG
02378  M00S01760.1ro     +++|          LPC    7677
02379  M00S01761.1ro     +++|          ERRNZ  /CPS/ROSU*10-100  ERROR IF VALUE CHANGES
02380  M00S01762.1ro     +++|          LMD    HN
02381  M00S01763.1ro     +++|          STM    ERSA
Line S01764 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02382  M01S01764.271l716 ---| PRS18    LDN    0           CLEAR WORD COUNT IN OUTPUT SECTOR BUFFER
Line S00419 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02383  M01S00419.271l716 +++| PRS26    LDN    0           CLEAR WORD COUNT IN OUTPUT SECTOR BUFFER
02384  M00S01765.1ro     +++|          STM    OBUF+1
02385  M00S01766.1ro     +++|          AOM    RMSA        INCLUDE NULL OUTPUT SECTOR IN SECTOR COUNT
Line S01767 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02386  M01S01767.271l716 ---|          LJM    PRS26       DISABLE ON-LINE INTERACTIVE PROCESSING
Line S00420 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02387  M02S00420.ns2685  ---|          LJM    PRS36       DISABLE ON-LINE INTERACTIVE PROCESSING
Line S00024 Modification History
M01 (Added by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
02388  M01S00024.ns2685  +++|          LJM    PRS35       DISABLE ON-LINE INTERACTIVE PROCESSING
02389  M00S01768.1ro     +++|
02390  M00S01769.1ro     +++|*         PROCESS ROLLOUT OF ON-LINE INTERACTIVE JOB.
02391  M00S01770.1ro     +++|
Line S01771 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02392  M01S01771.271l716 ---| PRS19    RJM    /3RP/PRP    PRESET ON-LINE INTERACTIVE ROUTINES
Line S00421 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02393  M01S00421.271l716 +++| PRS27    RJM    /3RP/PRP    PRESET ON-LINE INTERACTIVE ROUTINES
Line S01772 Modification History
M01 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02394  M01S01772.ns2433b ---|          LDM    ERSA
02395  M01S01773.ns2433b ---|          SHN    21-6
02396  M01S01774.ns2433b ---|          MJN    PRS18       IF SUSPENSION REQUESTED
02397  M01S01775.ns2433b ---|          LDD    CP          SET TERMINAL NUMBER
Line S00007 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02398  M01S00007.ns2433b +++|          LDC    FECF*10000+IFSI  CHECK *IAF* ACCESSIBILITY
02399  M01S00008.ns2433b +++|          RJM    AST
02400  M01S00009.ns2433b +++|          SHN    0-13
02401  M01S00010.ns2433b +++|          ERRNZ  /REM/VCPT-1  CODE ASSUMES *IAF* CP = 1
Line S00011 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02402  M02S00011.271l716 ---|          NJN    PRS19.2     IF *IAF* ACCESSIBLE, DO NOT SUSPEND
02403  M02S00012.271l716 ---|          LDD    CP
02404  M02S00013.271l716 ---|          ADK    TINW
Line S00422 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02405  M01S00422.271l716 +++|          NJN    PRS27.2     IF *IAF* ACCESSIBLE
Line S00423 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02406  M02S00423.273l780 ---|          LCPA   TINW
Line S00117 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02407  M01S00117.273l780 +++|          TLDC   TINW,CPAD
Line S00014 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02408  M01S00014.ns2433b +++|          CRD    CN
02409  M01S00015.ns2433b +++|          ADK    TIOW-TINW
02410  M01S00016.ns2433b +++|          CRD    T8-3
02411  M01S00017.ns2433b +++|          LDD    CN+3
02412  M01S00018.ns2433b +++|          SCN    77
02413  M01S00019.ns2433b +++|          ADD    CN+2
Line S00020 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02414  M02S00020.271l716 ---|          NJN    PRS19.1     IF TERMINAL INPUT, SUSPEND
Line S00424 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02415  M01S00424.271l716 +++|          NJN    PRS27.1     IF TERMINAL INPUT
Line S00021 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02416  M01S00021.ns2433b +++|          LDD    T8
02417  M01S00022.ns2433b +++|          LPN    37
02418  M01S00023.ns2433b +++|          ADD    T9
Line S00024 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02419  M02S00024.271l716 ---|          NJN    PRS19.1     IF EXPLICIT OUTPUT REQUEST
Line S00425 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02420  M01S00425.271l716 +++|          NJN    PRS27.1     IF EXPLICIT OUTPUT REQUEST
Line S00025 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02421  M01S00025.ns2433b +++|          RJM    /3RP/SIO    SEARCH FOR IMPLICIT OUTPUT
Line S00026 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02422  M02S00026.271l716 ---|          ZJN    PRS19.2     IF NO OUTPUT FOUND
02423  M02S00027.271l716 ---| PRS19.1  LDN    0           CLEAR INTERACTIVE ERROR FLAG
Line S00426 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02424  M01S00426.271l716 +++|          ZJN    PRS27.2     IF NO OUTPUT FOUND
02425  M01S00427.271l716 +++| PRS27.1  LDN    0           CLEAR INTERACTIVE ERROR FLAG
Line S00028 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
02426  M02S00028.1ro28   ---|          STD    IR+4
Line S00002 Modification History
M01 (Added by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
02427  M01S00002.1ro28   +++|          STM    /3RP/INEF
Line S00029 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02428  M02S00029.271l716 ---|          UJP    PRS17.1     SUSPEND JOB
Line S00428 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02429  M01S00428.271l716 +++|          UJP    PRS25.1     SUSPEND JOB
Line S00030 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
02430  M01S00030.ns2433b +++|
Line S00031 Modification History
M01 (Added by) ns2433b
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02431  M02S00031.271l716 ---| PRS19.2  LDD    CP          SET TERMINAL NUMBER
Line S01776 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02432  M01S01776.271l716 ---|          ADK    TTNW
Line S00429 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02433  M02S00429.273l780 ---| PRS27.2  LCPA   TTNW        SET TERMINAL NUMBER
Line S00118 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
02434  M01S00118.273l780 +++| PRS27.2  TLDC   TTNW,CPAD   SET TERMINAL NUMBER
02435  M00S01777.1ro     +++|          CRD    CM
02436  M00S01778.1ro     +++|          LDD    CM+1
Line S01779 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02437  M01S01779.271l716 ---|          NJN    PRS21       IF NON-ZERO TERMINAL NUMBER
02438  M01S01780.271l716 ---| PRS20    LDK    SWET        SYSTEM SOFTWARE ERROR
Line S00430 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02439  M01S00430.271l716 +++|          NJN    PRS29       IF TERMINAL NUMBER PRESENT
02440  M01S00431.271l716 +++| PRS28    LDK    SWET        SET SYSTEM SOFTWARE ERROR
02441  M00S01781.1ro     +++|          STD    CM+2
02442  M00S01782.1ro     +++|          LDC    *           ADDRESS WHERE ERROR DETECTED
02443  M00S01783.1ro     +++|          STD    CM+1
02444  M00S01784.1ro     +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
Line S01785 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02445  M01S01785.271l716 ---|*         LDN    0           MAKE JOB NON-INTERACTIVE
02446  M01S01786.271l716 ---|          STD    CM+2
02447  M01S01787.271l716 ---|          LDN    1
02448  M01S01788.271l716 ---|          STD    CM+1        SET NUMBER OF REQUESTS
02449  M01S01789.271l716 ---|          SFA    EJT,EO
02450  M01S01790.271l716 ---|          STD    CM+4        SET ADDRESS OF EJT ENTRY
02451  M01S01791.271l716 ---|          SHN    -14
02452  M01S01792.271l716 ---|          STD    CM+3
02453  M01S01793.271l716 ---|          LDD    MA
02454  M01S01794.271l716 ---|          CWM    PRSG,CM+1
02455  M01S01795.271l716 ---|          MONITOR  UTEM
02456  M01S01796.271l716 ---|*         LDN    0
Line S00432 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02457  M01S00432.271l716 +++|          SFA    EJT,EO
02458  M01S00433.271l716 +++|          ADK    JSNE
02459  M01S00434.271l716 +++|          CRD    CM
02460  M01S00435.271l716 +++|          LDD    CM+4
02461  M01S00436.271l716 +++|          LPC    4177
02462  M01S00437.271l716 +++|          LMK    NICS*200    MAKE JOB NON-INTERACTIVE
02463  M01S00438.271l716 +++|          STD    CM+4
02464  M01S00439.271l716 +++|          SFA    EJT,EO
02465  M01S00440.271l716 +++|          ADK    JSNE
02466  M01S00441.271l716 +++|          CWD    CM
02467  M01S00442.271l716 +++|          LDN    0
02468  M00S01797.1ro     +++|          RJM    ERS         CLEAR ROLLOUT REQUESTED
02469  M00S01798.1ro     +++|          LDN    /CPS/DPPS
Line S01799 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
02470  M01S01799.271l716 ---|          LJM    ROJ5        CLEAR JOB ADVANCE, DROP PP
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/1ro.001.txt ยท Last modified: by 127.0.0.1