User Tools

Site Tools


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

Deck 1RO

20 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1ro     +++|          IDENT  1RO,ROJ
00002  M01S00002.1ro     +++|          PERIPH
00003  M01S00003.1ro     +++|          BASE   MIXED
00004  M01S00004.1ro     +++|          SST
00005  M01S00005.1ro     +++|          SYSCOM
00006  M01S00006.1ro     +++|*COMMENT  1RO - ROLLOUT JOB.
Line S00007 Modification History
M01 (Added by) 1ro
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1ro     +++|          TITLE  1RO - ROLLOUT JOB.
00010  M01S00009.1ro     +++|          SPACE  4,10
00011  M01S00010.1ro     +++|***       1RO - ROLLOUT JOB.
00012  M01S00011.1ro     +++|*         G. R. MANSFIELD.  70/10/24.
00013  M01S00012.1ro     +++|*         R. E. TATE.  71/01/11.
00014  M01S00013.1ro     +++|*         L. C. HAAS.  75/03/25.  RESEQUENCE.
00015  M01S00014.1ro     +++|*         C. A. LACEY.       77/04/21.
00016  M01S00015.1ro     +++|          SPACE  4,10
00017  M01S00016.1ro     +++|***              *1RO* PERFORMS JOB ROLLOUT AND DM* FILE CREATION.  IT
Line S00017 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.271l716 ---|*         IS CALLED BY *1AJ* FOR BOTH FUNCTIONS.  FOR JOB ROLLOUT, THE
Line S00018 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00018.271l716 ---|*         ISSUANCE OF A *ROCM* MONITOR FUNCTION BY ANY PP CAUSES
Line S00019 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00019.271l716 ---|*         *CPUMTR* TO CALL *1AJ*, WHO THEN CALLS *1RO*.
00021  M01S00001.271l716 +++|*         IS CALLED BY *1AJ* FOR FUNCTIONS 0 AND 1.  FUNCTION 2 IS
00022  M01S00002.271l716 +++|*         CALLED DIRECTLY BY *CPUMTR*.
00023  M01S00020.1ro     +++|          SPACE  4,10
00024  M01S00021.1ro     +++|***       CALL.
00025  M01S00022.1ro     +++|*
Line S00023 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00023.271l716 ---|*T        18/  *1RO*,1/ ,5/CP,12/FN,6/,18/N
Figure

01718232429NFN30353640414259FNCP *1RO*

00027  M01S00003.271l716 +++|*T        18/  *1RO*,1/,5/  CP,12/  FN,24/  N
Figure

0232429 N FN30353640414259 FN CP *1RO*

00028  M01S00024.1ro     +++|*         CP     CONTROL POINT NUMBER
Line S00025 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00025.271l716 ---|*         FN = 0 ROLLOUT.
00030  M01S00004.271l716 +++|*         FN = 0 ROLLOUT OF A CONTROL POINT JOB.
Line S00026 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00026.271l716 ---|*            = 1 SELECTIVE ROLLOUT TO FILE DM* ACCORDING TO DMP=
00032  M01S00005.271l716 +++|*            = 1 SELECTIVE ROLLOUT TO FILE DM* ACCORDING TO *DMP=*
00033  M01S00027.1ro     +++|*                PARAMETER.
00034  M01S00006.271l716 +++|*            = 2 PSEUDO-ROLLOUT.
00035  M01S00007.271l716 +++|*            = 3 ROLLOUT OF A PSEUDO-CONTROL POINT JOB.  THIS MAY BE A
00036  M01S00008.271l716 +++|*              COMPOUND ROLLOUT.
Line S00028 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro28
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00028.1ro28   ---|*         N  = ERROR FLAG FOR *TXOT* JOB (FUNCTION 0).
00038  M01S00001.1ro28   +++|*         N  = ERROR FLAG FOR INTERACTIVE JOB (FUNCTION 0).
Line S00029 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00029.271l716 ---|*            = *DMP=* PARAMETER (FUNTION 1).
Line S00030 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00030.271l716 ---|*                     1/P,2/0,1/C,1/0,1/U,12/FL
Line S00009 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00009.ns2685  ---|*            = *DMP=* PARAMETER (FUNCTION 1).
Line S00010 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00010.ns2685  ---|*                     6/0,1/  P,2/0,1/  C,1/0,1/  U,12/  FL
Line S00031 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00031.ns2685  ---|*                           P = CHECKPOINT.
00044  M01S00001.ns2685  +++|*            = PARAMETERS FROM DMP= PROGRAM *PST* ENTRY (FUNCTION 1).
00045  M01S00002.ns2685  +++|*                     9/,1/  C,1/,1/  U,12/  FL
00046  M01S00032.1ro     +++|*                           C = CREATE DM* FILE ONLY.
00047  M01S00033.1ro     +++|*                           U = CREATE DM* AS AN UNLOCKED FILE.
00048  M01S00034.1ro     +++|*                           FL = 0, DUMP CPA, ENTIRE CM FL AND ECS FL.
00049  M01S00035.1ro     +++|*                               .NE. 0, DUMP CPA AND FL*100B OF CM FL.
00050  M01S00011.271l716 +++|*            = 12/  TN,12/  PN   (FUNCTIONS 2 AND 3)
00051  M01S00012.271l716 +++|*              TN     TERMINAL NUMBER IF *1TO* MUST BE CALLED
00052  M01S00013.271l716 +++|*                     FOLLOWING COMPOUND ROLLOUT COMPLETION.
00053  M01S00014.271l716 +++|*              PN     PCP NUMBER.
00054  M01S00036.1ro     +++|          SPACE  4,10
00055  M01S00037.1ro     +++|**        ROUTINES USED.
00056  M01S00038.1ro     +++|*
00057  M01S00039.1ro     +++|*         *0AU* - PROCESS ACCUMULATOR OVERFLOW FLAGS.
00058  M01S00040.1ro     +++|*         *0BF* - BEGIN FILE.
00059  M01S00041.1ro     +++|*         *0DF* - DROP FILE.
00060  M01S00042.1ro     +++|          SPACE  4,10
00061  M01S00043.1ro     +++|**        PROGRAMS CALLED.
00062  M01S00044.1ro     +++|*
Line S00045 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00045.271l716 ---|*         *1AJ* - CONTINUE DMP= PROCESSING.
00064  M01S00015.271l716 +++|*         *1AJ* - CONTINUE *DMP=* PROCESSING.
00065  M01S00046.1ro     +++|          SPACE  4,10
00066  M01S00047.1ro     +++|***       ACCOUNT DAYFILE MESSAGES.
00067  M01S00048.1ro     +++|*
00068  M01S00049.1ro     +++|*
00069  M01S00050.1ro     +++|*         *AUSR, SRUUNITS.* = NUMBER OF SRU-S WHICH COULD NOT BE
00070  M01S00051.1ro     +++|*         RECORDED IN THE PROJECT PROFILE FILE AT OVERFLOW OR END
00071  M01S00052.1ro     +++|*         OF ACCOUNT BLOCK.
00072  M01S00053.1ro     +++|          SPACE  4,10
00073  M01S00054.1ro     +++|**        COMMON DECKS.
00074  M01S00055.1ro     +++|
00075  M01S00056.1ro     +++|
Line S00016 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00016.273l780 ---| PCP$     EQU    1           INDICATE PCP ACCESS TO SYSTEM MACROS
00077  M01S00057.1ro     +++|*CALL     COMPMAC
00078  M01S00058.1ro     +++|*CALL     COMSACC
00079  M01S00059.1ro     +++|          QUAL   CPS
00080  M01S00060.1ro     +++|*CALL     COMSCPS
00081  M01S00061.1ro     +++|          QUAL   *
00082  M01S00062.1ro     +++|*CALL     COMSEJT
00083  M01S00063.1ro     +++|*CALL     COMSEVT
00084  M01S00064.1ro     +++|          QUAL   COMSHIO
00085  M01S00065.1ro     +++|*CALL     COMSHIO
00086  M01S00066.1ro     +++|          QUAL   *
00087  M01S00067.1ro     +++|          LIST   X
00088  M01S00068.1ro     +++|*CALL     COMSJRO
00089  M01S00069.1ro     +++|          LIST   *
00090  M01S00070.1ro     +++|*CALL     COMSLFD
00091  M01S00071.1ro     +++|*CALL     COMSMSP
00092  M01S00072.1ro     +++|*CALL     COMSPIM
Line S00017 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00017.273l780 ---| AFL$     EQU    1           SELECT PCP FL/NFL ACCESS
Line S00018 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00018.273l780 ---| CPA$     EQU    1           SELECT CPA/PCPA ACCESS
Line S00019 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00019.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
Line S00020 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00020.273l780 ---| PLC$     EQU    1           SELECT IN-LINE LOAD INSTRUCTIONS
Line S00021 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00021.273l780 ---|          LIST   X
Line S00022 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00022.273l780 ---|*CALL     COMSPCP
Line S00023 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00023.273l780 ---|          LIST   *
00100  M01S00073.1ro     +++|          QUAL   REM
00101  M01S00074.1ro     +++|*CALL     COMSREM
00102  M01S00075.1ro     +++|          QUAL
00103  M01S00076.1ro     +++|*CALL     COMSSCD
00104  M01S00077.1ro     +++|*CALL     COMSSSD
00105  M01S00078.1ro     +++|*CALL     COMSSSE
00106  M01S00079.1ro     +++|*CALL     COMSSSJ
00107  M01S00080.1ro     +++|*CALL     COMSTCM
00108  M01S00081.1ro     +++|*CALL     COMSWEI
00109  M01S00082.1ro     +++|*CALL     COMSZOL
00110  M01S00083.1ro     +++| 1RO      SPACE  4
00111  M01S00084.1ro     +++|****      ASSEMBLY CONSTANTS.
00112  M01S00085.1ro     +++|
00113  M01S00086.1ro     +++|
00114  M01S00087.1ro     +++| IFLS     EQU    /CPS/IFLS   *PIOM* REPLY STATUS
00115  M01S00088.1ro     +++| RDDS     EQU    /CPS/RDDS   *PIOM* DIRECT READ
00116  M01S00089.1ro     +++| WDDS     EQU    /CPS/WDDS   *PIOM* DIRECT WRITE
00117  M01S00090.1ro     +++|          SPACE  4,10
00118  M01S00091.1ro     +++|**        DIRECT CELL ASSIGNMENTS.
00119  M01S00092.1ro     +++|
00120  M01S00093.1ro     +++|
00121  M01S00094.1ro     +++| T8       EQU    16          SCRATCH
00122  M01S00095.1ro     +++| T9       EQU    17          SCRATCH
00123  M01S00096.1ro     +++| FS       EQU    20 - 24     SCRATCH (5 CELLS)
00124  M01S00097.1ro     +++| NT       EQU    25          NEXT TRACK POINTER
00125  M01S00098.1ro     +++| EO       EQU    26          EJT ORDINAL
00126  M01S00099.1ro     +++| SC       EQU    27          TERMINAL OUTPUT SECTOR COUNT
00127  M01S00100.1ro     +++| CN       EQU    30 - 34     SCRATCH (5 CELLS)
00128  M01S00101.1ro     +++| OP       EQU    35 - 36     OUTPUT POINTER (2 CELLS)
00129  M01S00102.1ro     +++| DI       EQU    37          *UJNI*+2 (USED TO DISABLE PROCESSING)
00130  M01S00103.1ro     +++| FN       EQU    40 - 44     SCRATCH (5 CELLS)
00131  M01S00104.1ro     +++| TN       EQU    45          TERMINAL NUMBER
00132  M01S00105.1ro     +++| TT       EQU    46 - 47     TERMINAL TABLE ADDRESS (2 CELLS)
00133  M01S00106.1ro     +++| FA       EQU    57          DM* FNT ADDRESS
00134  M01S00107.1ro     +++| ZR       EQU    60 - 64     ZERO WORD (5 CELLS)
00135  M01S00108.1ro     +++| TA       EQU    65          *IAF* RA
Line S00109 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00109.271l716 ---| TW       EQU    66          CONSTANT 2
Line S00024 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00024.273l780 ---| NC       EQU    66          NUMBER OF CONTROL POINTS + 1
00138  M01S00110.1ro     +++| NF       EQU    67          NFL/100B
00139  M01S00111.1ro     +++|
00140  M01S00112.1ro     +++|
00141  M01S00113.1ro     +++|****
00142  M01S00114.1ro     +++|          TITLE  MAIN PROGRAM.
00143  M01S00115.1ro     +++| ROJ      SPACE  4,10
00144  M01S00116.1ro     +++|**        ROJ - MAIN PROGRAM.
00145  M01S00117.1ro     +++|
00146  M01S00118.1ro     +++|
00147  M01S00119.1ro     +++|          ORG    PPFW
00148  M01S00120.1ro     +++|
00149  M01S00121.1ro     +++| ROJ      BSS    0
Line S00122 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00150  M02S00122.271l716 ---|          RJM    PRS         PRESET
00151  M01S00025.271l716 +++|          RJM    PRS         PRESET (RETURN TO *ROJ1* ON PSEUDO ROLL)
00152  M01S00123.1ro     +++|
00153  M01S00124.1ro     +++|*         PERFORM INITIAL ROLLOUT OPERATIONS.
00154  M01S00125.1ro     +++|
Line S00126 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00126.271l716 ---|          RJM    CDM         CREATE DM* FILE FNT ENTRY
Line S00127 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00127.271l716 ---|*         UJN    *+2         (NON-DMP= CALL)
Line S00128 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00128.271l716 ---| ROJA     EQU    *-2
Line S00129 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00129.271l716 ---|          RJM    /3RP/CKO    CHECK FOR TERMINAL I/O
00159  M01S00026.271l716 +++| ROJA     RJM    /3RS/CDM    CREATE DM* FILE FNT ENTRY
00160  M01S00027.271l716 +++|*         UJN    *+2         (NON-*DMP=* CALL)
00161  M01S00028.271l716 +++|
00162  M01S00029.271l716 +++| ROJB     RJM    /3RP/CKO    CHECK FOR TERMINAL I/O
00163  M01S00130.1ro     +++|*         UJN    *+2         (NON-INTERACTIVE JOB)
Line S00131 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00131.271l716 ---| ROJB     EQU    *-2
00165  M01S00030.271l716 +++|
00166  M01S00132.1ro     +++|          RJM    RMS         REQUEST MASS STORAGE SPACE
Line S00133 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00133.271l716 ---|          RJM    /3RP/RFO    READ 1ST SECTOR OF TERMINAL OUTPUT
00168  M01S00031.271l716 +++| ROJC     RJM    /3RP/RFO    READ FIRST SECTOR OF TERMINAL OUTPUT
00169  M01S00134.1ro     +++|*         UJN    *+2         (NOT ON-LINE INTERACTIVE JOB)
Line S00135 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00135.271l716 ---| ROJC     EQU    *-2
Line S00136 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00136.271l716 ---|          RJM    CJS         CHANGE JOB STATUS
Line S00137 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00137.271l716 ---|*         UJN    *+2         (DMP= CALL)
Line S00138 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00138.271l716 ---| ROJD     EQU    *-2
Line S00139 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00139.271l716 ---|          RJM    ISS         INITIALIZE SYSTEM SECTOR
00175  M01S00032.271l716 +++|
00176  M01S00033.271l716 +++| ROJ1     BSS    0           ENTRY FROM *PRS* IF PSEUDO ROLLOUT
00177  M01S00034.271l716 +++| ROJD     RJM    CJS         CHANGE JOB STATUS
00178  M01S00035.271l716 +++|*         UJN    *+2         (*DMP=* CALL)
00179  M01S00036.271l716 +++|
00180  M01S00037.271l716 +++| ROJH     RJM    ISS         INITIALIZE SYSTEM SECTOR
00181  M01S00038.271l716 +++|*         UJN    ROJ2        (PSEUDO-ROLLOUT)
Line S00140 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00140.271l716 ---|          RJM    SRA         SET RA TO FWA OF NFL
00183  M01S00039.271l716 +++|
00184  M01S00040.271l716 +++| ROJE     RJM    SRA         SET RA TO FWA OF NFL
00185  M01S00141.1ro     +++|*         UJN    *+2         (*DMP=* CALL)
Line S00142 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00142.271l716 ---| ROJE     EQU    *-2
00187  M01S00143.1ro     +++|
00188  M01S00144.1ro     +++|*         WRITE THE ROLLOUT FILE.
00189  M01S00145.1ro     +++|
00190  M01S00146.1ro     +++|          SETMS  IO,(NS),WDSB
Line S00147 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00147.ns2685  ---|
Line S00148 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00148.ns2685  ---|*         NO STATUS CHECK IS MADE TO REDUCE THE CHANCE OF
Line S00149 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00149.ns2685  ---|*         LOCKING UP THE SYSTEM IN THE CASE OF TRANSIENT ERRORS
Line S00150 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00150.ns2685  ---|*         OCCURRING ON THE ONLY ROLLOUT DEVICE.
Line S00151 Modification History
M01 (Added by) 1ro
M02 (Updated by) ns2685
Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00151.ns2685  ---|
00196  M01S00152.1ro     +++| ROJI     LDC    0
00197  M01S00153.1ro     +++|*         LDC    EPNF        (BUFFERED DEVICE AND ECS PRESENT)
00198  M01S00154.1ro     +++|          RAM    UERR
00199  M01S00155.1ro     +++|          RJM    WSS         WRITE SYSTEM SECTOR
Line S00156 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00156.271l716 ---|          MJN    ROJ1        IF MASS STORAGE ERROR
00201  M01S00041.271l716 +++|          MJN    ROJ3        IF MASS STORAGE ERROR
00202  M01S00157.1ro     +++|          LDD    HN          SET SECTOR WORD COUNT
00203  M01S00158.1ro     +++|          STM    BFMS+1
00204  M01S00159.1ro     +++|
00205  M01S00160.1ro     +++| SEQ      EQU    *-2
Line S00161 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00161.271l716 ---|          SEQUENCE CPAI,CPA  WRITE CONTROL POINT AREA
00207  M01S00042.271l716 +++| ROJ2     SEQUENCE CPAI,CPA  WRITE CONTROL POINT AREA
00208  M01S00043.271l716 +++|*         RJM    TCP         (PSEUDO-ROLLOUT)
00209  M01S00162.1ro     +++|*         UJN    *+2         (NO CONTROL POINT)
00210  M01S00044.271l716 +++|
00211  M01S00163.1ro     +++|          SEQUENCE TOPI,/3RP/WTO   WRITE TERMINAL OUTPUT
00212  M01S00164.1ro     +++|*         UJN    *+2         (NOT ON-LINE INTERACTIVE JOB)
00213  M01S00045.271l716 +++|*         UJN    ROJ5        (PSEUDO-ROLLOUT)
00214  M01S00046.271l716 +++|
00215  M01S00165.1ro     +++|          SEQUENCE JFLI,JFL  WRITE JOB FIELD LENGTH
00216  M01S00166.1ro     +++|*         UJN    *+2         (NO FL)
00217  M01S00047.271l716 +++|
00218  M01S00167.1ro     +++|          SEQUENCE JECI,JEC  WRITE JOB ECS FIELD LENGTH
00219  M01S00168.1ro     +++|*         UJN    *+2         (NO ECS)
00220  M01S00169.1ro     +++|
Line S00170 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00170.271l716 ---|          RJM    WEI         WRITE EOI SECTOR
00222  M01S00048.271l716 +++| ROJJ     RJM    WEI         WRITE EOI SECTOR
Line S00171 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00223  M02S00171.271l716 ---|*         UJN    ROJ2        (BUFFERED DEVICE)
00224  M01S00049.271l716 +++|*         UJN    ROJ4        (BUFFERED DEVICE)
Line S00172 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00172.271l716 ---| ROJJ     EQU    *-2
00226  M01S00050.271l716 +++|
Line S00173 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00173.271l716 ---|          PJN    ROJ2        IF NO MASS STORAGE ERROR
Line S00174 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00174.271l716 ---| ROJ1     LJM    MSR         PROCESS MASS STORAGE ERROR
Line S00175 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00175.271l716 ---|
Line S00176 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00230  M02S00176.271l716 ---| ROJ2     ENDMS
00231  M01S00051.271l716 +++|          PJN    ROJ4        IF NO MASS STORAGE ERROR
00232  M01S00052.271l716 +++| ROJ3     LJM    MSR         PROCESS MASS STORAGE ERROR
00233  M01S00053.271l716 +++|
00234  M01S00054.271l716 +++| ROJ4     ENDMS
00235  M01S00177.1ro     +++|
00236  M01S00178.1ro     +++|*         PERFORM FINAL ROLLOUT OPERATIONS.
00237  M01S00179.1ro     +++|
Line S00180 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00180.271l716 ---| ROJ3     RJM    CRS         CLEAR RECALL STACK
Line S00181 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00181.271l716 ---|          RJM    CRO         COMPLETE ROLLOUT (NON-DMP= CALL)
Line S00182 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00182.271l716 ---|*         RJM    CDR         (DMP= CALL)
00241  M01S00055.271l716 +++| ROJ5     RJM    CRO         COMPLETE ROLLOUT (ON-LINE MAY NOT RETURN)
00242  M01S00056.271l716 +++|*         RJM    CDR         (*DMP=* CALL)
00243  M01S00183.1ro     +++| ROJF     EQU    *-1
00244  M01S00057.271l716 +++|
Line S00184 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00184.271l716 ---|          LDN    0           CALL JOB SCHEDULER
Line S00185 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00185.271l716 ---|          STD    CM+2
Line S00186 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00186.271l716 ---|          MONITOR  RSJM
Line S00187 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00187.271l716 ---|          LDC    **          (ERROR FLAG)
00249  M01S00058.271l716 +++|          LDD    IR+2
00250  M01S00059.271l716 +++|          SBN    2
00251  M01S00060.271l716 +++|          NJN    ROJ5.1      IF NOT PSEUDO-ROLLOUT
00252  M01S00061.271l716 +++|          STD    CM+2
00253  M01S00062.271l716 +++|          MONITOR  RSJM      CALL SCHEDULER
00254  M01S00063.271l716 +++| ROJ5.1   LDC    **          (ERROR FLAG)
00255  M01S00188.1ro     +++| ROJK     EQU    *-1
Line S00189 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00189.271l716 ---|          ZJN    ROJ4        IF NO ERROR FLAG TO SET
Line S00190 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00190.271l716 ---|          RJM    SEF         SET ERROR FLAG
Line S00191 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00191.271l716 ---| ROJ4     LDN    /CPS/CCPS+/CPS/DPPS  RELEASE CONTROL POINT, DROP PP
Line S00192 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00192.271l716 ---|*         UJN    ROJ6        (DMP= CALL)
Line S00193 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00193.271l716 ---| ROJG     EQU    *-1
Line S00194 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00194.271l716 ---| ROJ5     STD    CM+1
00262  M01S00064.271l716 +++|          RJM    SEF         SET ERROR FLAG, IF PRESENT
Line S00065 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00065.273l780 ---|          LDC    **
Line S00066 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00066.273l780 ---|*         LDC    1           (COMPOUND ROLLOUT)
Line S00067 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00067.273l780 ---| ROJL     EQU    *-1
Line S00068 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00068.273l780 ---|          NJN    ROJ8        IF COMPOUND ROLLOUT
Line S00069 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00267  M02S00069.273l780 ---|          LDD    IR+4        SET POSSIBLE PCP NUMBER
Line S00070 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00070.273l780 ---|          STD    CM+2
Line S00071 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00071.273l780 ---| ROJG     LDC    /CPS/CCPS+/CPS/DPPS  RELEASE CP, DROP PP
Line S00072 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00072.273l780 ---|*         LDC    /CPS/CCPS+/CPS/DPPS+4000  (PCP ROLL)
Line S00073 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00073.273l780 ---|*         LDC    /CPS/CCPS+4000  (PSEUDO ROLL WITH *1TO* CALL REQUIRED)
00272  M01S00001.273l780 +++|          RJM    CPC         CHECK PCP ROLLOUT COMPLETION
00273  M01S00002.273l780 +++|          ZJN    ROJ7.1      IF SIMPLE PCP ROLLOUT
00274  M01S00003.273l780 +++|          PJN    ROJ8        IF COMPOUND ROLLUT
00275  M01S00004.273l780 +++| ROJG     LDC    /CPS/CCPS+/CPS/DPPS  RELEASE CP AND DROP PP
00276  M01S00005.273l780 +++|*         LDC    /CPS/CCPS   (*1TO* TO BE CALLED)
00277  M01S00074.271l716 +++|*         UJN    ROJ8        (*DMP=* CALL)
00278  M01S00075.271l716 +++|
00279  M01S00076.271l716 +++| ROJ7     STD    CM+1
00280  M01S00195.1ro     +++|          MONITOR  JACM
00281  M01S00077.271l716 +++|
00282  M01S00078.271l716 +++|*         ON A COMPOUND ROLLOUT, IF THE FIRST *1RO* FINDS THAT THERE
00283  M01S00079.271l716 +++|*         IS TERMINAL OUTPUT AVAILABLE FOR THE JOB BEING ROLLED TO
00284  M01S00080.271l716 +++|*         DISK, THE FIRST SECTOR OF OUTPUT IS SAVED IN THE PP UNTIL
00285  M01S00081.271l716 +++|*         AFTER THE SECOND *1RO* IS COMPLETE.  *1TO* IS THEN CALLED
00286  M01S00082.271l716 +++|*         INTO THE SAME PP TO PROCESS THE OUTPUT.
00287  M01S00083.271l716 +++|
Line S00084 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00084.273l780 ---| ROJM     LDN    **
00289  M01S00006.273l780 +++|          LDN    **
00290  M01S00007.273l780 +++| ROJM     EQU    *-1
00291  M01S00085.271l716 +++|*         LDN    1           (*1TO* CALL REQUIRED)
00292  M01S00086.271l716 +++|          ZJN    ROJ8        IF *1TO* CALL NOT REQUIRED
00293  M01S00087.271l716 +++|          LDN    /REM/VCPT   MOVE TO *IAF* CP
00294  M01S00088.271l716 +++|          STD    CM+1
00295  M01S00089.271l716 +++|          MONITOR  CCAM
00296  M01S00090.271l716 +++|          LDD    IA          WRITE *1TO* CALL TO INPUT REGISTER
00297  M01S00091.271l716 +++|          CWM    ROJN,ON
00298  M01S00092.271l716 +++|          LDD    CM+1
00299  M01S00093.271l716 +++|          LMN    /REM/VCPT
00300  M01S00094.271l716 +++|          NJN    ROJ8        IF CHANGE MADE
Line S00095 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00301  M02S00095.273l780 ---|          MONITOR  DPPM
00302  M01S00008.273l780 +++| ROJ7.1   MONITOR  DPPM
Line S00196 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00303  M02S00196.271l716 ---| ROJ6     LJM    PPR         EXIT (CALL *1AJ* IF DMP= CALL)
Line S00197 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00304  M02S00197.271l716 ---|
Line S00198 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00198.271l716 ---| ROJH     CON    1           CONTROL POINT ACTIVE FLAG
Line S00199 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00199.271l716 ---|*         CON    100         IF ECS PROTECT AND END OF JOBSTEP
00307  M01S00096.271l716 +++| ROJ8     LJM    PPR         EXIT
00308  M01S00097.271l716 +++|
00309  M01S00098.271l716 +++|
00310  M01S00099.271l716 +++| ROJN     VFD    18/3L1TO,6//REM/VCPT,36/0
00311  M01S00009.273l780 +++|          SPACE  4
00312  M01S00010.273l780 +++|**        GLOBAL DATA.
00313  M01S00011.273l780 +++|
00314  M01S00012.273l780 +++|
00315  M01S00013.273l780 +++| CPAD     BSSZ   2           CP/PCP ADDRESS
00316  M01S00200.1ro     +++|          TITLE  ROLLOUT FILE WRITE ROUTINES.
00317  M01S00201.1ro     +++| CPA      SPACE  4,10
00318  M01S00202.1ro     +++|**        CPA - WRITE CONTROL POINT AREA.
00319  M01S00203.1ro     +++|*
00320  M01S00204.1ro     +++|*         CALLS  WNS.
Line S00100 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00100.273l780 ---|*
Line S00101 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00101.273l780 ---|*         MACROS LCPA.
00323  M01S00205.1ro     +++|
00324  M01S00206.1ro     +++|
00325  M01S00207.1ro     +++| CPA      SUBR               ENTRY/EXIT
Line S00208 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00208.271l716 ---|          LDD    CP          READ CP AREA
Line S00102 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00102.273l780 ---|          LCPA               READ CPA/PCPA
00328  M01S00014.273l780 +++|          TLDC   0,CPAD      READ FIRST HALF OF CPA/PCPA
00329  M01S00209.1ro     +++|          CRM    BFMS+2,HN
00330  M01S00210.1ro     +++|
00331  M01S00211.1ro     +++|*         CLEAR *MS1W* AND *MS2W* IF NO JOB ACTIVITY.
00332  M01S00212.1ro     +++|
Line S00213 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00213.271l716 ---|          LDM    ROJH
00334  M01S00103.271l716 +++|          LDC    1           CONTROL POINT ACTIVE FLAG
00335  M01S00104.271l716 +++|*         LDC    100         (EM PROTECT AND END OF JOB STEP)
00336  M01S00105.271l716 +++| CPAB     EQU    *-1
00337  M01S00214.1ro     +++|          LPN    1
00338  M01S00215.1ro     +++|          NJN    CPA1        IF JOB ACTIVITY
00339  M01S00216.1ro     +++|          STM    BFMS+2+MS1W*5
00340  M01S00217.1ro     +++|          STM    BFMS+2+MS2W*5
Line S00001 Modification History
M01 (Added by) 1ro26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00001.271l716 ---|          LDM    ROJH        SET CORRECT FL FOR ROLLOUT
00342  M01S00106.271l716 +++|          LDM    CPAB        SET CORRECT FL FOR ROLLOUT
00343  M01S00002.1ro26   +++|          ERRNZ  MCMX/100-100  CHECK FOR CORRECT VALUE OF *MCMX*
00344  M01S00003.1ro26   +++|          STM    BFMS+2+FLSW*5+4
00345  M01S00004.1ro26   +++|          NJN    CPA1        IF ECS PROTECTED
00346  M01S00005.1ro26   +++|          STM    BFMS+2+ECSW*5+4
00347  M01S00218.1ro     +++| CPA1     LDD    NF          SET NFL SIZE IN ROLLOUT FILE
00348  M01S00219.1ro     +++|          STM    BFMS+2+FLSW*5
Line S00220 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00220.1ro26   ---|          LDN    1
Line S00221 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00221.1ro26   ---|*         LDN    0           (*PEET* ERROR OR NO ACTIVITY)
Line S00222 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00222.1ro26   ---| CPAA     EQU    *-1
Line S00223 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00223.1ro26   ---|          NJN    CPA2        IF NO *PEET* ERROR AND ACTIVITY PENDING
Line S00224 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00224.1ro26   ---|          STM    BFMS+2+FLSW*5+4  CLEAR *FL*
Line S00225 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00225.1ro26   ---|          STM    BFMS+2+ECSW*5+4  CLEAR *FLX*
Line S00226 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00226.271l716 ---| CPA2     RJM    WNS         WRITE CP AREA
00356  M01S00107.271l716 +++|          RJM    WNS         WRITE CPA
Line S00227 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00227.271l716 ---|          LDD    CP          READ CP AREA
Line S00108 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00108.273l780 ---|          LCPA               READ CPA/PCPA
Line S00228 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00228.273l780 ---|          ADD    HN
00360  M01S00015.273l780 +++|          TLDC   100,CPAD    READ SECOND HALF OF CPA/PCPA
00361  M01S00229.1ro     +++|          CRM    BFMS+2,HN
00362  M01S00230.1ro     +++|          RJM    WNS         WRITE NEXT SECTOR
Line S00231 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00231.271l716 ---|          UJN    CPAX        RETURN
00364  M01S00109.271l716 +++|          UJP    CPAX        RETURN
00365  M01S00232.1ro     +++| JFL      SPACE  4,10
00366  M01S00233.1ro     +++|**        JFL - WRITE JOB CM FIELD LENGTH.
00367  M01S00234.1ro     +++|*
00368  M01S00235.1ro     +++|*         USES   T3.
00369  M01S00236.1ro     +++|*
00370  M01S00237.1ro     +++|*         CALLS  ROD, ROM.
00371  M01S00238.1ro     +++|*
00372  M01S00239.1ro     +++|*         MACROS ENDMS.
00373  M01S00240.1ro     +++|
00374  M01S00241.1ro     +++|
00375  M01S00242.1ro     +++| JFL      SUBR               ENTRY/EXIT
00376  M01S00243.1ro     +++| JFLA     UJN    *+2
00377  M01S00244.1ro     +++|          CON    .EMS
00378  M01S00245.1ro     +++|*         ENDMS              (ROLLOUT DEVICE IS ECS)
00379  M01S00246.1ro     +++|          LDN    0           SET FWA TO ROLLOUT
00380  M01S00247.1ro     +++|          STD    T3
00381  M01S00248.1ro     +++|          LDC    0           LOAD LWA OF FL TO ROLL
00382  M01S00249.1ro     +++| JFLB     EQU    *-1
00383  M01S00250.1ro     +++|          ZJN    JFLX        IF NO FL TO BE ROLLED
00384  M01S00251.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00385  M01S00252.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00386  M01S00253.1ro     +++| JFLC     EQU    *-1
00387  M01S00254.1ro     +++|          UJN    JFLX        RETURN
Line S00255 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00255.271l716 ---|
Line S00256 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00256.271l716 ---| JFLD     BSS    5           EJT *SCHE* WORD
00390  M01S00257.1ro     +++| JEC      SPACE  4,10
00391  M01S00258.1ro     +++|**        JEC - WRITE JOB ECS FIELD LENGTH.
00392  M01S00259.1ro     +++|*
00393  M01S00260.1ro     +++|*         ENTRY  (CN - CN+4) = *FLSW*.
00394  M01S00261.1ro     +++|*
Line S00262 Modification History
M01 (Added by) 1ro
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00262.273l780 ---|*         USES   T3, CM - CM+4, CN - CN+4, FN - FN+4.
00396  M01S00016.273l780 +++|*         USES   T3, T8, CM - CM+4, CN - CN+4.
00397  M01S00263.1ro     +++|*
00398  M01S00264.1ro     +++|*         CALLS  AEA, ROD, ROM, WNS.
00399  M01S00265.1ro     +++|*
Line S00266 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00266.271l716 ---|*         MACROS ENDMS.
Line S00110 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00110.273l780 ---|*         MACROS AJFL, ENDMS, LCPA.
00402  M01S00017.273l780 +++|*         MACROS ENDMS.
00403  M01S00267.1ro     +++|
00404  M01S00268.1ro     +++|
00405  M01S00269.1ro     +++| JEC      SUBR               ENTRY/EXIT
Line S00270 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00270.271l716 ---|          LDN    PSNI        DISABLE DYNAMIC FL REDUCTION
Line S00271 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00271.271l716 ---|          STM    ROMA
Line S00272 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00272.271l716 ---|          STM    RODA
00409  M01S00273.1ro     +++|
00410  M01S00274.1ro     +++|*         ROLLOUT BUFFER SPACE.
00411  M01S00275.1ro     +++|
Line S00276 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00412  M03S00276.271l716 ---|          LDD    FL          SET FWA FOR ROLLOUT
Line S00111 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00111.273l780 ---|          AJFL               SET FWA FOR ROLLOUT
00414  M01S00006.1ro26   +++| JECG     LDD    FL
00415  M01S00007.1ro26   +++|*         LDD    HN          (NO ACTIVITY AND ECS PROTECTED)
00416  M01S00277.1ro     +++|          ADC    -MCMX/100
00417  M01S00278.1ro     +++|          STD    T3
00418  M01S00279.1ro     +++|          ADN    MCMX/100/2
00419  M01S00280.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00420  M01S00281.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00421  M01S00282.1ro     +++| JECA     EQU    *-1
00422  M01S00283.1ro     +++|
00423  M01S00284.1ro     +++|*         ROLLOUT ECS.
00424  M01S00285.1ro     +++|
00425  M01S00286.1ro     +++|          LDN    ZERL        SET UP *MTR* CALL
00426  M01S00287.1ro     +++|          CRD    CN
00427  M01S00288.1ro     +++|          LDC    MCMX/4      SET WORD COUNT
00428  M01S00289.1ro     +++|          STD    CN
00429  M01S00290.1ro     +++|          LDN    0           CHECK BUFFER SIZE
00430  M01S00291.1ro     +++|          RJM    AEA
Line S00292 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00292.271l716 ---|          LDD    CP          INITIALIZE RESPONSE ADDRESS
Line S00112 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00112.273l780 ---|          LCPA               INITIALIZE RESPONSE ADDRESS
00433  M01S00018.273l780 +++|          TLDC   0,CPAD      INITIALIZE RESPONSE ADDRESS
00434  M01S00293.1ro     +++|          CWD    CN
Line S00294 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00294.271l716 ---|          STM    JECF+2      SET ALTERNATE RESPONSE ADDRESS
Line S00295 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00295.271l716 ---|          LDD    FL          SET BUFFER ADDRESS
Line S00113 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00113.273l780 ---|          AJFL   FL          SET BUFFER ADDRESS
00438  M01S00019.273l780 +++|          LDD    FL          SET BUFFER ADDRESS
00439  M01S00296.1ro     +++|          ADC    -MCMX/100
00440  M01S00297.1ro     +++|          STD    CN+2
00441  M01S00298.1ro     +++|          ADN    MCMX/100/4  SET TOGGLE CONSTANT
00442  M01S00299.1ro     +++|          LMD    CN+2
00443  M01S00300.1ro     +++|          STM    JECB
00444  M01S00301.1ro     +++|          LDD    MA          WRITE REQUEST TO *OR*
00445  M01S00302.1ro     +++|          CWD    CN
00446  M01S00303.1ro     +++|          SBN    1
00447  M01S00304.1ro     +++|          CWM    JECF,ON
00448  M01S00305.1ro     +++|          LDN    MCMX/4/1000 ADVANCE ECS ADDRESS
00449  M01S00306.1ro     +++|          RJM    AEA
00450  M01S00307.1ro     +++| JEC1     LDD    OA          WAIT *OR* CLEAR
00451  M01S00308.1ro     +++|          CRD    CM
00452  M01S00309.1ro     +++|          LDD    CM
00453  M01S00310.1ro     +++|          NJN    JEC1        LOOP TILL CLEAR
Line S00311 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00311.271l716 ---| JEC2     LDD    CP          CHECK *ECXM* RESPONSE WORD
Line S00114 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00114.273l780 ---| JEC2     LCPA               CHECK *RCXM/ECXM* RESPONSE WORD
00456  M01S00020.273l780 +++| JEC2     TLDC   0,CPAD      CHECK *RCXM/ECXM* RESPONSE WORD
00457  M01S00312.1ro     +++|          CRD    CM
00458  M01S00313.1ro     +++|          LDD    CM
Line S00314 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00314.271l716 ---|          NJN    JEC2        IF *ECXM* NOT COMPLETE
00460  M01S00115.271l716 +++|          NJN    JEC2        IF *RCXM/ECXM* INCOMPLETE
00461  M01S00315.1ro     +++|          LDD    CM+1
00462  M01S00316.1ro     +++|          ZJN    JEC3        IF NO ECS ERROR
00463  M01S00317.1ro     +++|          LDK    JSET        SET ERROR FLAG TO ABORT JOB STEP
00464  M01S00318.1ro     +++|          SBM    ROJK
00465  M01S00319.1ro     +++|          MJN    JEC3        IF HIGHER ERROR FLAG ALREADY SET
00466  M01S00320.1ro     +++|          RAM    ROJK
00467  M01S00321.1ro     +++| JEC3     LDD    CN+2        TOGGLE BUFFER POINTER
00468  M01S00322.1ro     +++|          STD    T3
00469  M01S00323.1ro     +++|          LMC    *
00470  M01S00324.1ro     +++| JECB     EQU    *-1
00471  M01S00325.1ro     +++|*         LMC    N           (TOGGLE CONSTANT)
00472  M01S00326.1ro     +++|*         LJM    JEC5        (IF LAST BUFFER FULL)
00473  M01S00327.1ro     +++|          STD    CN+2
Line S00328 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00328.271l716 ---|          LDD    CP          SET COMPLETION STATUS BUSY
Line S00116 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00116.273l780 ---|          LCPA               SET COMPLETION STATUS
00476  M01S00021.273l780 +++|          TLDC   0,CPAD      SET COMPLETION STATUS
00477  M01S00329.1ro     +++|          CWD    CN
00478  M01S00330.1ro     +++|          LDD    MA          WRITE REQUEST
00479  M01S00331.1ro     +++|          CWD    CN
00480  M01S00332.1ro     +++|          SBN    1
00481  M01S00333.1ro     +++|          CWM    JECF,ON
00482  M01S00334.1ro     +++|          LDN    MCMX/4/1000 ADVANCE ECS ADDRESS
00483  M01S00335.1ro     +++|          RJM    AEA
00484  M01S00336.1ro     +++|          LDD    T3
00485  M01S00337.1ro     +++|          ADN    MCMX/100/4
00486  M01S00338.1ro     +++|          STD    T8
00487  M01S00339.1ro     +++|
00488  M01S00340.1ro     +++|*         ROLLOUT ECS BUFFER.
00489  M01S00341.1ro     +++|
Line S00342 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00342.271l716 ---| JEC4     LDD    RA
00491  M01S00117.271l716 +++| JEC4     LDD    RA
00492  M01S00343.1ro     +++|          ADD    T3
00493  M01S00344.1ro     +++|          SHN    6
00494  M01S00345.1ro     +++|          CRM    BFMS+2,HN
00495  M01S00346.1ro     +++|          LDC    BFMS
00496  M01S00347.1ro     +++|          RJM    WNS
Line S00118 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00497  M02S00118.273l780 ---|          AJFL               RESET *RA*
00498  M01S00348.1ro     +++|          AOD    T3
00499  M01S00349.1ro     +++|          LMD    T8
00500  M01S00350.1ro     +++|          NJN    JEC4        IF NOT END OF ECS BLOCK
00501  M01S00351.1ro     +++|          LJM    JEC1        GET NEXT BLOCK OF ECS
00502  M01S00352.1ro     +++|
00503  M01S00353.1ro     +++| JEC5     UJN    *+2
00504  M01S00354.1ro     +++|
00505  M01S00355.1ro     +++| JECC     EQU    *-1
00506  M01S00356.1ro     +++|          CON    .EMS
00507  M01S00357.1ro     +++|*         ENDMS              (ROLLOUT DEVICE IS ECS)
00508  M01S00358.1ro     +++|          LDD    T3
00509  M01S00359.1ro     +++|          SHN    6
00510  M01S00360.1ro     +++|          ADD    CN
00511  M01S00361.1ro     +++|          SHN    -6
00512  M01S00362.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00513  M01S00363.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00514  M01S00364.1ro     +++| JECD     EQU    *-1
00515  M01S00365.1ro     +++|
00516  M01S00366.1ro     +++|*         ROLLOUT LAST PART OF CM.
00517  M01S00367.1ro     +++|
00518  M01S00368.1ro     +++|          LDM    UERR        CLEAR NO FLUSH FLAG
00519  M01S00369.1ro     +++|          LPC    -EPNF
00520  M01S00370.1ro     +++|          STM    UERR
Line S00371 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00521  M03S00371.271l716 ---|          LDD    FL
Line S00119 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00522  M02S00119.273l780 ---|          AJFL
00523  M01S00008.1ro26   +++| JECH     LDD    FL
00524  M01S00009.1ro26   +++|*         LDD    HN          (NO ACTIVITY AND ECS PROTECTED)
00525  M01S00372.1ro     +++|          SBN    MCMX/100/2  SET FWA FOR ROLLOUT
00526  M01S00373.1ro     +++|          STD    T3
00527  M01S00374.1ro     +++|          ADN    MCMX/100/2
00528  M01S00375.1ro     +++|          RJM    ROM         ROLLOUT MEMORY
00529  M01S00376.1ro     +++|*         RJM    ROD         (DEVICE BUFFERED IN ECS)
00530  M01S00377.1ro     +++| JECE     EQU    *-1
00531  M01S00378.1ro     +++|          LJM    JECX        RETURN
00532  M01S00379.1ro     +++|
00533  M01S00380.1ro     +++|
Line S00381 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00381.271l716 ---| JECF     CON    ECXM        *ECXM* REQUEST WORD
00535  M01S00120.271l716 +++| JECF     VFD    12/RCXM     EM TRANSFER FUNCTION PROCESSED BY *MTR*
Line S00121 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00121.273l780 ---|          VFD    1/0         ALTERNATE CP/PCP FLAG
Line S00122 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00122.273l780 ---|          VFD    11/0
Line S00123 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00123.273l780 ---|          VFD    12/0        CP/PCP
Line S00124 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00124.273l780 ---|          VFD    5/0
00540  M01S00022.273l780 +++|          VFD    29/0
00541  M01S00125.271l716 +++|          VFD    1/0         FUNCTION TYPE = READ
00542  M01S00126.271l716 +++|          VFD    18/0        ALTERNATE RESPONSE ADDRESS
Line S00382 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00382.271l716 ---|          CON    0
Line S00383 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00544  M02S00383.271l716 ---|          CON    0
Line S00384 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00545  M02S00384.271l716 ---|          CON    0
Line S00385 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00385.271l716 ---|          CON    0
00547  M01S00386.1ro     +++|          TITLE  SUBROUTINES.
00548  M01S00387.1ro     +++| AEA      SPACE  4,10
Line S00388 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00388.271l716 ---|**        AEA - ADVANCE ECS ADDRESS FOR *ECXM* FUNCTION.
00550  M01S00127.271l716 +++|**        AEA - ADVANCE EM ADDRESS FOR *RCXM/ECXM* FUNCTION.
00551  M01S00389.1ro     +++|*
00552  M01S00390.1ro     +++|*         ENTRY  (A) = INCREMENT.
00553  M01S00391.1ro     +++|*                (AEAA) = FLE.
Line S00392 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00392.271l716 ---|*                (CN - CN+4) = *ECXM* FUNCTION WORD.
00555  M01S00128.271l716 +++|*                (CN - CN+4) = *RCXM*/*ECXM* PARAMETER WORD.
00556  M01S00393.1ro     +++|*
00557  M01S00394.1ro     +++|*         EXIT   WORD COUNT ADJUSTED IF LESS THAN MCMX/4 WORDS TO GO.
00558  M01S00395.1ro     +++|*                *JECB* SET TO BYPASS NEXT READ IF FLE REACHED.
00559  M01S00396.1ro     +++|*
00560  M01S00397.1ro     +++|*         USES   CN, CN+4.
00561  M01S00398.1ro     +++|
00562  M01S00399.1ro     +++|
00563  M01S00400.1ro     +++|*         LDD    *LJMI*
00564  M01S00401.1ro     +++| AEA1     LDD    HN          SET *LJMI* TO BYPASS NEXT READ
00565  M01S00402.1ro     +++|          STM    JECB-1
00566  M01S00403.1ro     +++|          LDC    JEC5
00567  M01S00404.1ro     +++|          STM    JECB
00568  M01S00405.1ro     +++|
00569  M01S00406.1ro     +++| AEA      SUBR               ENTRY/EXIT
00570  M01S00407.1ro     +++|          RAD    CN+4
00571  M01S00408.1ro     +++|          SHN    -14
00572  M01S00409.1ro     +++|          RAD    CN+3
00573  M01S00410.1ro     +++|          SHN    14
00574  M01S00411.1ro     +++|          ADD    CN+4
00575  M01S00412.1ro     +++| AEAA     ADC    **
00576  M01S00413.1ro     +++|*         ADC    -FLE
00577  M01S00414.1ro     +++|          PJN    AEA1        IF FLE REACHED
00578  M01S00415.1ro     +++|          SHN    11
00579  M01S00416.1ro     +++|          ADD    CN
00580  M01S00417.1ro     +++|          SHN    11
00581  M01S00418.1ro     +++|          MJN    AEAX        IF FULL BUFFER REMAINS
00582  M01S00419.1ro     +++|          ZJN    AEAX        IF FULL BUFFER REMAINS
00583  M01S00420.1ro     +++|          SHN    11
00584  M01S00421.1ro     +++|          STD    CN
00585  M01S00422.1ro     +++|          UJN    AEAX        RETURN
Line S00423 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00423.271l716 ---| CDF      SPACE  4,10
Line S00424 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00424.271l716 ---|**        CDF - CLEAR *DMP=* PARAMETERS.
Line S00425 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00588  M02S00425.271l716 ---|*
Line S00426 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00426.271l716 ---|*         *CDF* WILL CLEAR *DMP=* PARAMETERS SET BY *1AJ* PRIOR TO
Line S00427 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00590  M02S00427.271l716 ---|*         CALLING *1RO*.  THIS WILL RESULT IN THE REQUEST BEING
Line S00428 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00428.271l716 ---|*         REINITIATED BY *1AJ* AT A LATER TIME.
Line S00429 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00429.271l716 ---|*
Line S00430 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00430.271l716 ---|*         EXIT   *SPCW* *DMP=* INITIATED FLAGS CLEARED.
Line S00431 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00431.271l716 ---|*                (PPDW+2) = 0.
Line S00432 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00595  M02S00432.271l716 ---|*
Line S00433 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00596  M02S00433.271l716 ---|*         USES   CM - CM+4, CN - CN+4.
Line S00434 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00434.271l716 ---|
Line S00435 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00435.271l716 ---|
Line S00436 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00599  M02S00436.271l716 ---| CDF      SUBR               ENTRY/EXIT
Line S00437 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00437.271l716 ---|          LDD    CP
Line S00438 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00438.271l716 ---|          ADK    SPCW
Line S00439 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00439.271l716 ---|          CRD    CN
Line S00440 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00440.271l716 ---|          ADN    PPDW-SPCW
Line S00441 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00441.271l716 ---|          CRD    CM
Line S00442 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00442.271l716 ---|          LDD    CN+1        CLEAR *DMP=* INITIATED FLAGS
Line S00443 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00443.271l716 ---|          SCN    43
Line S00444 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00444.271l716 ---|          STD    CN+1
Line S00445 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00608  M02S00445.271l716 ---|          LDN    0           CLEAR PPDW+2
Line S00446 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00446.271l716 ---|          STD    CM+2
Line S00447 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00447.271l716 ---|          LDD    CP          REWRITE *SPCW*
Line S00448 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00448.271l716 ---|          ADC    SPCW
Line S00449 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00449.271l716 ---|          CWD    CN
Line S00450 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00450.271l716 ---|          ADN    PPDW-SPCW   REWRITE *PPDW*
Line S00451 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00451.271l716 ---|          CWD    CM
Line S00452 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00615  M02S00452.271l716 ---|          UJN    CDFX        RETURN
Line S00453 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00616  M02S00453.271l716 ---| CDM      SPACE  4,15
Line S00454 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00617  M02S00454.271l716 ---|**        CDM - CREATE DM* FNT ENTRY.
Line S00455 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00455.271l716 ---|*
Line S00456 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00456.271l716 ---|*         EXIT   (FA) = ADDRESS/OFFSET OF DM* FILE FNT ENTRY.
Line S00457 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00457.271l716 ---|*
Line S00458 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00458.271l716 ---|*         USES   FN - FN+4, FS.
Line S00459 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00622  M02S00459.271l716 ---|*
Line S00460 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00623  M02S00460.271l716 ---|*         CALLS  *0BF*.
Line S00461 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00461.271l716 ---|*
Line S00462 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00462.271l716 ---|*         MACROS EXECUTE, MONITOR.
Line S00463 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00463.271l716 ---|
Line S00464 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00464.271l716 ---|
Line S00465 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00465.271l716 ---| CDM      SUBR               ENTRY/EXIT
Line S00466 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00466.271l716 ---|          LDN    ZERL        CLEAR FNT IMAGE
Line S00467 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00467.271l716 ---|          CRD    FN
Line S00468 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00468.271l716 ---|          LDC    3R*DM       CREATE LFN
Line S00469 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00469.271l716 ---|          STD    FN
Line S00470 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00470.271l716 ---|          SHN    -6
Line S00471 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00471.271l716 ---|          SCN    77
Line S00472 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00472.271l716 ---|          STD    FN+1
Line S00473 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00473.271l716 ---|
Line S00474 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00474.271l716 ---|*         CALL *0BF* TO CREATE FNT/FST ENTRY.
Line S00475 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00475.271l716 ---|
Line S00476 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00476.271l716 ---|          LDN    NEEQ        ASSIGN NULL EQUIPMENT
Line S00477 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00477.271l716 ---|          STD    FS
Line S00478 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00478.271l716 ---|          LDN    40          SELECT SPECIAL FILE OPTION
Line S00479 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00479.271l716 ---|          STM    OVL0-1
Line S00480 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00480.271l716 ---|          EXECUTE  0BF,OVL0  BUILD FILE USING RESERVED FNT ENTRY
Line S00481 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00481.271l716 ---|          ZJN    CDMX        IF FNT/FST ENTRY CREATED
Line S00482 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00482.271l716 ---|
Line S00483 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00483.271l716 ---|*         IF THE FNT/FST ENTRY WAS NOT CREATED, HANG THE PP
Line S00484 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00484.271l716 ---|*         SINCE THE RESERVED ENTRIES SHOULD ENSURE SUCCESSFUL
Line S00485 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00485.271l716 ---|*         CREATION.
Line S00486 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00486.271l716 ---|*         IF THE FILE ALREADY EXISTS BUT IS NOT ASSIGNED TO THE
Line S00487 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00487.271l716 ---|*         NULL EQUIPMENT HANG THE PP SINCE THIS INDICATES A SYSTEM
Line S00488 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00488.271l716 ---|*         LOGIC ERROR.
Line S00489 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00489.271l716 ---|
Line S00490 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00490.271l716 ---|          SBD    HN
Line S00491 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00491.271l716 ---|          MJN    CDM1        IF FILE NOT ALREADY PRESENT
Line S00492 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00492.271l716 ---|          LDD    FS
Line S00493 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00493.271l716 ---|          LMN    NEEQ
Line S00494 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00494.271l716 ---|          NJN    CDM1        IF NOT ASSIGNED TO NULL EQUIPMENT
Line S00495 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00495.271l716 ---|          SOD    FS+4        SET FILE BUSY
Line S00496 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00496.271l716 ---|          NFA    FA
Line S00497 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00497.271l716 ---|          ADN    FSTL
Line S00498 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00498.271l716 ---|          CWD    FS
Line S00499 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00499.271l716 ---|          LJM    CDMX        RETURN
Line S00500 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00500.271l716 ---|
Line S00501 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00501.271l716 ---| CDM1     LDK    SWET        SET SYSTEM SOFTWARE ERROR
Line S00502 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00502.271l716 ---|          STD    CM+2
Line S00503 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00503.271l716 ---|          LDC    *           ADDRESS WHERE ERROR DETECTED
Line S00504 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00504.271l716 ---|          STD    CM+1
Line S00505 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00505.271l716 ---|          MONITOR  CHGM      CONDITIONALLY HANG PP
Line S00506 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00506.271l716 ---|          EXECUTE  1AJ,=
Line S00507 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00507.271l716 ---|          LDD    IR+1        PLACE *1AJ* CALL IN PP INPUT REGISTER
Line S00508 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00508.271l716 ---|          LPN    37
Line S00509 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00509.271l716 ---|          RAM    CDMA+1
Line S00510 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00510.271l716 ---|          LDD    IA
Line S00511 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00511.271l716 ---|          CWM    CDMA,ON
Line S00512 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00512.271l716 ---|          LJM    ROJ6        CALL *1AJ*
Line S00513 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00513.271l716 ---|
Line S00514 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00514.271l716 ---| CDMA     VFD    18/0L1AJ,6/,36/0
Line S00515 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00515.271l716 ---|
Line S00516 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00516.271l716 ---| CDR      SPACE  4,10
Line S00517 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00517.271l716 ---|**        CDR - COMPLETE DMP= ROLLOUT.
Line S00518 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00518.271l716 ---|*
Line S00519 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00682  M02S00519.271l716 ---|*         ENTRY  (FA) = DM* FILE FNT ADDRESS/OFFSET.
Line S00520 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00520.271l716 ---|*                (CDRC) = ASSIGNED EM FL IN *UEBS* WORD BLOCKS.
Line S00521 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00684  M02S00521.271l716 ---|*
Line S00522 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00522.271l716 ---|*         USES   CM - CM+5, FN - FN+4.
Line S00523 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00686  M02S00523.271l716 ---|*
Line S00524 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00524.271l716 ---|*         CALLS  ERS.
Line S00525 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00525.271l716 ---|*
Line S00526 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00526.271l716 ---|*         MACROS EXECUTE, MONITOR, NFA.
Line S00527 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00527.271l716 ---|
Line S00528 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00691  M02S00528.271l716 ---|
Line S00529 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00692  M02S00529.271l716 ---| CDR      SUBR               ENTRY/EXIT
Line S00530 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00693  M02S00530.271l716 ---|
Line S00531 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00531.271l716 ---|*         RELEASE ECS FL IF FULL CM FL ROLLOUT.
Line S00532 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00532.271l716 ---|
Line S00533 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00533.271l716 ---|          LDD    IR+4
Line S00534 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00534.271l716 ---|          NJN    CDR1        IF NOT FULL CM FL ROLLOUT
Line S00535 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00535.271l716 ---|          STD    CM+1
Line S00536 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00536.271l716 ---|          LDC    **
Line S00537 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00537.271l716 ---| CDRC     EQU    *-1         (EM FL/*UEBS*)
Line S00538 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00701  M02S00538.271l716 ---|          ZJN    CDR2        IF NO ECS ASSIGNED TO JOB
Line S00539 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00539.271l716 ---|          LDN    1           RELEASE ASSIGNED ECS
Line S00540 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00540.271l716 ---|          STD    CM+2
Line S00541 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00541.271l716 ---|          MONITOR  RSTM
Line S00542 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00542.271l716 ---|
Line S00543 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00706  M02S00543.271l716 ---|*         CLEAR ROLLOUT REQUESTED FLAG AND CPU STATUS FLAG IN *STSW*.
Line S00544 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00544.271l716 ---|
Line S00545 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00545.271l716 ---| CDR1     LDN    0
Line S00546 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00709  M02S00546.271l716 ---| CDR2     RJM    ERS         ENTER ROLLOUT STATUS
Line S00547 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00547.271l716 ---|
Line S00548 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00548.271l716 ---|*         FINISH BUILDING DM* FILE FNT/FST ENTRY.
Line S00549 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00549.271l716 ---|
Line S00550 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00713  M02S00550.271l716 ---|          NFA    FA,R        READ FNT ENTRY
Line S00551 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00551.271l716 ---|          CRD    FN
Line S00552 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00715  M02S00552.271l716 ---|          LDC    ROFT*100+SSST     SET FILE TYPE AND STATUS
Line S00553 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00553.271l716 ---|          STD    FN+4
Line S00554 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00717  M02S00554.271l716 ---|          LDD    IR+3        SET/CLEAR WRITE LOCKOUT FLAG
Line S00555 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00718  M02S00555.271l716 ---|          LPN    1
Line S00556 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00719  M02S00556.271l716 ---|          LMN    1
Line S00557 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00557.271l716 ---|          RAD    FN+3
Line S00558 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00558.271l716 ---|          LDD    IR+3
Line S00559 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00559.271l716 ---|          SHN    21-2
Line S00560 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00560.271l716 ---|          PJN    CDR3        IF CONTROL POINT AREA DUMP
Line S00561 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00561.271l716 ---|          LDC    LOFT*100-ROFT*100
Line S00562 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00562.271l716 ---|          RAD    FN+4
Line S00563 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00726  M02S00563.271l716 ---| CDR3     NFA    FA,R        WRITE FNT/FST ENTRY TO NFL
Line S00564 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00727  M02S00564.271l716 ---|          CWD    FN
Line S00565 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00728  M02S00565.271l716 ---|          ADN    FSTL
Line S00566 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00729  M02S00566.271l716 ---|          CWM    CDRB,ON
Line S00567 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00567.271l716 ---|
Line S00568 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00568.271l716 ---|*         CLEAR K-DISPLAY CONTROL AND *CMM* CONTROL.
Line S00569 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00569.271l716 ---|
Line S00570 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00570.271l716 ---|          LDD    CP
Line S00571 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00571.271l716 ---|          ADC    DBAW
Line S00572 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00572.271l716 ---|          CRD    CM
Line S00573 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00573.271l716 ---|          LDD    CM          SAVE FLAGS
Line S00574 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00574.271l716 ---|          SCN    77
Line S00575 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00575.271l716 ---|          STD    CM
Line S00576 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00576.271l716 ---|          LDD    IR+4
Line S00577 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00740  M02S00577.271l716 ---|          NJN    CDR4        IF NOT FULL CM FL ROLLOUT
Line S00578 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00578.271l716 ---|          LDD    IR+3
Line S00579 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00742  M02S00579.271l716 ---|          SHN    21-2
Line S00580 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00743  M02S00580.271l716 ---|          MJN    CDR4        IF NOT CPA DUMP
Line S00581 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00744  M02S00581.271l716 ---|          LDD    CM
Line S00582 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00582.271l716 ---|          LPC    7677        CLEAR *CMM* ACTIVE FLAG
Line S00583 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00583.271l716 ---|          STD    CM
Line S00584 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00584.271l716 ---| CDR4     LDN    ZERL        CLEAR K-DISPLAY ADDRESSES
Line S00585 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00748  M02S00585.271l716 ---|          CRD    CM+1
Line S00586 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00586.271l716 ---|          LDD    CP
Line S00587 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00587.271l716 ---|          ADC    DBAW
Line S00588 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00751  M02S00588.271l716 ---|          CWD    CM
Line S00589 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00589.271l716 ---|          EXECUTE  1AJ,=
Line S00590 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00590.271l716 ---|          LDD    IR+1        PLACE *1AJ* CALL IN PP INPUT REGISTER
Line S00591 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00591.271l716 ---|          LPN    37
Line S00592 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00755  M03S00592.271l716 ---|          RAM    CDRA+1
Line S00010 Modification History
M01 (Added by) 1ro26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00756  M02S00010.271l716 ---|          RAM    CDMA+1
Line S00011 Modification History
M01 (Added by) 1ro26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00011.271l716 ---|          AOM    CDMA+4
Line S00593 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00593.271l716 ---|          LDD    IA
Line S00594 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00759  M03S00594.271l716 ---|          CWM    CDRA,ON
Line S00012 Modification History
M01 (Added by) 1ro26
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00012.271l716 ---|          CWM    CDMA,ON
Line S00595 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00595.271l716 ---|          LJM    CDRX        RETURN
Line S00596 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00762  M03S00596.271l716 ---|
Line S00597 Modification History
M01 (Added by) 1ro
M02 (Updated by) 1ro26
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00763  M03S00597.271l716 ---| CDRA     VFD    18/0L1AJ,6/0,24/0,12/1
Line S00598 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00598.271l716 ---|
Line S00599 Modification History
M01 (Added by) 1ro
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00765  M02S00599.271l716 ---|
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ro.txt ยท Last modified: by 127.0.0.1