Deck CPD

Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.cpd     +++|          IDENT  CPD,CPD     COLLECT PERFORMANCE DATA
00002  M00S00002.cpd     +++|          PERIPH
00003  M00S00003.cpd     +++|          BASE   MIXED
00004  M00S00004.cpd     +++|          SST    SSCP
00005  M00S00005.cpd     +++|*COMMENT  CPD - COLLECT PERFORMANCE DATA.

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1983.

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.cpd     +++|          TITLE  CPD - COLLECT PERFORMANCE DATA.
00009  M00S00008.cpd     +++| CPD      SPACE  4,10
00010  M00S00009.cpd     +++|***       CPD - COLLECT PERFORMANCE DATA.
00011  M00S00010.cpd     +++|*
00012  M00S00011.cpd     +++|*         S. L. KSANDER.     78/12/13.
00013  M00S00012.cpd     +++|*         R. M. DESSEL.      81/07/27.
00014  M00S00013.cpd     +++|*         J. L. LARSON.      83/04/11.
00015  M00S00014.cpd     +++|          SPACE  4,10
00016  M00S00015.cpd     +++|***       CPD GENERATES A FILE FROM WHICH SYSTEM USAGE CAN BE
00017  M00S00016.cpd     +++|*         DETERMINED.  COUNTS OF VARIOUS FORMS OF ACTIVITY ARE
00018  M00S00017.cpd     +++|*         MAINTAINED AND PERIODICALLY WRITTEN TO THIS FILE.
00019  M00S00018.cpd     +++|          SPACE  4,10
00020  M00S00019.cpd     +++|***       CALL.
00021  M00S00020.cpd     +++|*
00022  M00S00021.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00022.ns2357  ---|*T        18/  *CPD*,24/,18/ FET ADDR

Figure

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00001.ns2357  +++|*T        18/ *CPD*,6/ CP,12/ SO,6/,18/ FET ADDR

Figure

00025  M00S00023.cpd     +++|*
00026  M00S00024.cpd     +++|*T  FET   42/  FILE NAME,18/

Figure FET

00027  M00S00025.cpd     +++|*T  FET+1 42/ ,18/ FIRST

Figure FET+1

00028  M00S00026.cpd     +++|*T  FET+2 42/ ,18/ IN

Figure FET+2

00029  M00S00027.cpd     +++|*T  FET+3 42/ ,18/ OUT

Figure FET+3

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00028.ns2357  ---|*T  FET+4 42/ ,18/ LIMIT

Figure FET+4

Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00002.ns2357  +++|*T  FET+4 12/ FO,30/,18/ LIMIT

Figure FET+4

00032  M00S00029.cpd     +++|*T  FET+5 12/ ,12/ FW,12/ SL,12/ ML,12/ FL

Figure FET+5

Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00001.242l642 +++|*T, FET+8 42/  PF NAME,12/,6/ MODE

Figure FET+8

00034  M01S00002.242l642 +++|*
00035  M00S00030.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00036  M01S00003.ns2357  +++|*         SO - ORDINAL OF RESERVED SYSTEM FNT ENTRY.
00037  M01S00004.ns2357  +++|*         FO - RELATIVE SAMPLE FILE ADDRESS IN NFL.
00038  M00S00031.cpd     +++|*         FW - FILE WRITE TIME IN SECONDS.
00039  M00S00032.cpd     +++|*         SL - SLOW LOOP TIME IN MILLISECONDS.
00040  M00S00033.cpd     +++|*         ML - MEDIUM LOOP TIME IN MILLISECONDS.
00041  M00S00034.cpd     +++|*         FL - FAST LOOP TIME IN MILLISECONDS.
00042  M00S00035.cpd     +++|*
00043  M00S00036.cpd     +++|*         IF A LOOP TIME IS SET TO ZERO, NO SAMPLES FOR THAT
00044  M00S00037.cpd     +++|*         LOOP WILL BE TAKEN.
00045  M00S00038.cpd     +++|          SPACE  4,10
00046  M00S00039.cpd     +++|***       *CPD* TERMINATION.
00047  M00S00040.cpd     +++|*
00048  M00S00041.cpd     +++|*         TO TERMINATE *CPD*, THE *CPD* DROP FLAG MUST BE SET.
00049  M00S00042.cpd     +++|*         REFER TO *SFM* DOCUMENTATION FOR FURTHER INFORMATION
00050  M00S00043.cpd     +++|*         CONCERNING THIS.
00051  M00S00044.cpd     +++|          SPACE  4,10
00052  M00S00045.cpd     +++|***       DATA FILE FORMAT.
00053  M00S00046.cpd     +++|*
00054  M00S00047.cpd     +++|*         RECORD 1 = HEADER DATA.
00055  M00S00048.cpd     +++|*                THIS RECORD CONTAINS STATIC INFORMATION REGARDING
00056  M00S00049.cpd     +++|*                THE SYSTEM CONFIGURATION AVAILABLE.  THIS RECORD
00057  M00S00050.cpd     +++|*                CONTAINS A FIXED DATA BLOCK, A MASS STORAGE BLOCK,
00058  M00S00051.cpd     +++|*                A JOB CONTROL DATA  BLOCK, AND AN EST DATA BLOCK.
00059  M00S00052.cpd     +++|*                THE SPECIFIC FORMAT OF THIS RECORD IS DESCRIBED
00060  M00S00053.cpd     +++|*                IN *COMSCPD*.
00061  M00S00054.cpd     +++|*
00062  M00S00055.cpd     +++|*         RECORD 2 - N = DATA RECORDS.
00063  M00S00056.cpd     +++|*                THESE RECORDS CONTAIN THE ACCUMULATED DATA FOR
00064  M00S00057.cpd     +++|*                EACH FILE WRITE INTERVAL.  EACH RECORD CONTAINS
00065  M00S00058.cpd     +++|*                A FIXED BASE BLOCK AND A MASS STORAGE DATA BLOCK.
00066  M00S00059.cpd     +++|*                THE SPECIFIC FORMAT OF THIS RECORD IS DESCRIBED
00067  M00S00060.cpd     +++|*                IN *COMSCPD*.
00068  M00S00061.cpd     +++|          SPACE  4,10
00069  M00S00062.cpd     +++|***       DAYFILE MESSAGES.
00070  M00S00063.cpd     +++|*
00071  M00S00064.cpd     +++|*
00072  M00S00065.cpd     +++|*         * CPD - FILE NOT FOUND.*
00073  M00S00066.cpd     +++|*                THE SPECIFIED DATA FILE WAS NOT FOUND.
00074  M00S00067.cpd     +++|*
00075  M00S00068.cpd     +++|*         * CPD - ALREADY ACTIVE.*
00076  M00S00069.cpd     +++|*                *CPD* IS ALREADY RUNNING IN THE SYSTEM.
00077  M00S00070.cpd     +++|*
00078  M00S00071.cpd     +++|*         * CPD - FILE STATUS ERROR.*
00079  M00S00072.cpd     +++|*                ONE OF THE FOLLOWING CONDITIONS EXISTED REGARDING
00080  M00S00073.cpd     +++|*                THE SPECIFIED DATA FILE.

Seq #  *Modification Id* Act 
----------------------------+
00081  M01S00074.242l642 ---|*                1. FILE NOT ASSIGNED TO MASS STORAGE.
00082  M01S00075.242l642 ---|*                2. FILE BUSY OR NOT *PMFT* TYPE.
00083  M01S00076.242l642 ---|*                3. FILE EMPTY. (NO MASS STORAGE SPACE ASSIGNED)
00084  M01S00077.242l642 ---|*                4. FILE ASSIGNED TO REMOVABLE DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00003.242l642 +++|*                1. UNABLE TO FIND FAST ATTACH FILE CALLED SAMPLE ON
00086  M01S00004.242l642 +++|*                   CALLERS FAMILY.
00087  M01S00005.242l642 +++|*                2. UNABLE TO ATTACH FAST ATTACH FILE IN REQUESTED
00088  M01S00006.242l642 +++|*                   MODE.
00089  M00S00078.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00079.v23l617 ---|*         * CPD - ILLEGAL USER ACCESS.*

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00001.v23l617 +++|*         * CPD - USER ACCESS NOT VALID.*
00092  M00S00080.cpd     +++|*                CALLING PROGRAM DOES NOT HAVE SYSTEM ORIGIN
00093  M00S00081.cpd     +++|*                PRIVILEGES.
00094  M00S00082.cpd     +++|*
00095  M00S00083.cpd     +++|*         * CPD - OVERLAY NOT IN RPL.*
00096  M00S00084.cpd     +++|*                *CPD* OVERLAY *3CR* OR *3CS* WAS NOT IN THE RPL.
00097  M00S00085.cpd     +++|*
00098  M00S00086.cpd     +++|*         * CPD - PARAMETER ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00087.v23l617 ---|*                THE SPECIFIED PARAMETER ADDRESS IS INVALID.

Seq #  *Modification Id* Act 
----------------------------+
00100  M01S00002.v23l617 +++|*                THE SPECIFIED PARAMETER ADDRESS IS INCORRECT.
00101  M00S00088.cpd     +++|*
00102  M00S00089.cpd     +++|*         * CPD - INITIATED.*
00103  M00S00090.cpd     +++|*                *CPD* MAIN LOOP INITIATED.
00104  M00S00091.cpd     +++|*
00105  M00S00092.cpd     +++|*         * CPD - TERMINATED.*
00106  M00S00093.cpd     +++|*                *CPD* MAIN LOOP TERMINATED.
00107  M00S00094.cpd     +++|          TITLE  DIRECT CELL DEFINITIONS.
00108  M00S00095.cpd     +++|*         DIRECT LOCATION ASSIGNMENTS.
00109  M00S00096.cpd     +++|
00110  M00S00097.cpd     +++|
00111  M00S00098.cpd     +++| T8       EQU    16          TEMPORARY STORAGE (USED BY MACROS)
00112  M00S00099.cpd     +++| T9       EQU    17          TEMPORARY STORAGE (USED BY MACROS)
00113  M00S00100.cpd     +++| FS       EQU    20 - 24     FST ENTRY
00114  M00S00101.cpd     +++| VB       EQU    25          FWA VARIABLE DATA BUFFER
00115  M00S00102.cpd     +++| LE       EQU    26          LAST ORDINAL + 1 OF DEFINED EST ENTRIES
00116  M00S00103.cpd     +++| ME       EQU    27          NUMBER OF MASS STORAGE ENTRIES
00117  M00S00104.cpd     +++| NP       EQU    30          NUMBER OF PPUS
00118  M00S00105.cpd     +++| NC       EQU    31          NUMBER OF CONTROL POINTS
00119  M00S00106.cpd     +++| SC       EQU    32          CURRENT TIME IN SECONDS
00120  M00S00107.cpd     +++| MS       EQU    33          CURRENT TIME IN MILLISECONDS
00121  M00S00108.cpd     +++| LI       EQU    34          OPERATION LOOP INDEX
00122  M00S00109.cpd     +++| LO       EQU    35          LOOP OPERATION ADDRESS
00123  M00S00110.cpd     +++| BA       EQU    36          BUFFER POINTER
00124  M00S00111.cpd     +++| PC       EQU    37          PPU COMMUNICATION AREA ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00112.242l642 ---| FN       EQU    40 - 44     FNT ENTRY
00126  M00S00113.cpd     +++| CN       EQU    40 - 44     WORKING STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00001.ns2748  +++| TA       EQU    40          IAF RA/100B (FOR ROUTINE *AIA* ONLY)
00128  M00S00114.cpd     +++| WC       EQU    45          BUFFER WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
00129  M01S00001.271l716 +++| NM       EQU    46          NUMBER OF MCT ENTRIES - 1

Seq #  *Modification Id* Act 
----------------------------+
00130  M01S00001.ns2146  +++| EC       EQU    47          PROCESSOR CONNECT CODE

Seq #  *Modification Id* Act 
----------------------------+
00131  M01S00115.v23l617 ---| RN       EQU    46          REGISTER NUMBER FOR PMF
00132  M01S00116.v23l617 ---| EC       EQU    47          ACCESS CODE FOR PMF

Seq #  *Modification Id* Act 
----------------------------+
00133  M01S00117.242l642 ---| FA       EQU    57          DATA FILE FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00134  M01S00007.242l642 +++| FO       EQU    57          FNT ORDINAL FOR *SAMPLE* FILE
00135  M00S00118.cpd     +++| AB       EQU    60 - 64     WORKING STORAGE
00136  M00S00119.cpd     +++| RC       EQU    65          RECORD COUNT IN BUFFER
00137  M00S00120.cpd     +++| RX       EQU    66          MAXIMUM RECORDS IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00138  M01S00002.ns2146  +++| RN       EQU    HN          P REGISTER MAINTENANCE REGISTER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00139  M01S00121.242l642 ---|*         EQU    67          SPARE

Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00008.ns2357  ---| MD       EQU    67          FILE ATTACHMENT MODE
00141  M00S00122.cpd     +++|          TITLE  MACRO DEFINITIONS.
00142  M00S00123.cpd     +++|*         MACRO DEFINITIONS.
00143  M00S00124.cpd     +++| ADO      SPACE  4,15
00144  M00S00125.cpd     +++|**        ADO - ADD ONE.
00145  M00S00126.cpd     +++|*
00146  M00S00127.cpd     +++|*         ADO    M,D
00147  M00S00128.cpd     +++|*
00148  M00S00129.cpd     +++|*         ENTRY  *M* = BUFFER OFFSET TO BE INCREMENTED.
00149  M00S00130.cpd     +++|*                *D* = INDEX OFFSET.
00150  M00S00131.cpd     +++|*                (BA) = BUFFER BASE ADDRESS OF CURRENT RECORD.
00151  M00S00132.cpd     +++|*
00152  M00S00133.cpd     +++|*         USES   T8.
00153  M00S00134.cpd     +++|*
00154  M00S00135.cpd     +++|*         REQUIRES BUFFER OFFSET TO BE DEFINED VIA *MPAR* MACRO
00155  M00S00136.cpd     +++|*         IN ORDER TO SET FIELD PRECISION.
00156  M00S00137.cpd     +++|
00157  M00S00138.cpd     +++|
00158  M00S00139.cpd     +++|          PURGMAC ADO
00159  M00S00140.cpd     +++|
00160  M00S00141.cpd     +++| ADO      MACRO  M,D
00161  M00S00142.cpd     +++|          MACREF ADO
00162  M00S00143.cpd     +++| .1       SET    P.M-1
00163  M00S00144.cpd     +++| .2       IFC    NE,$D$$
00164  M00S00145.cpd     +++|          LDD    D
00165  M00S00146.cpd     +++|          IFNE   .1,0,1
00166  M00S00147.cpd     +++|          SHN    .1
00167  M00S00148.cpd     +++|          ADD    BA
00168  M00S00149.cpd     +++|          STD    T8
00169  M00S00150.cpd     +++|          AOM    M+.1,T8
00170  M00S00151.cpd     +++|          DUP    .1
00171  M00S00152.cpd     +++| .1       SET    .1-1
00172  M00S00153.cpd     +++|          SHN    -14
00173  M00S00154.cpd     +++|          RAM    M+.1,T8
00174  M00S00155.cpd     +++|          ENDD
00175  M00S00156.cpd     +++| .2       ELSE
00176  M00S00157.cpd     +++|          AOM    M+.1,BA
00177  M00S00158.cpd     +++|          DUP    .1
00178  M00S00159.cpd     +++| .1       SET    .1-1
00179  M00S00160.cpd     +++|          SHN    -14
00180  M00S00161.cpd     +++|          RAM    M+.1,BA
00181  M00S00162.cpd     +++|          ENDD
00182  M00S00163.cpd     +++| .2       ENDIF
00183  M00S00164.cpd     +++|          ENDM
00184  M00S00165.cpd     +++| ADA      SPACE  4,20
00185  M00S00166.cpd     +++|**        ADA - ADD ACCUMULATOR.
00186  M00S00167.cpd     +++|*
00187  M00S00168.cpd     +++|*         ADA    M,D
00188  M00S00169.cpd     +++|*
00189  M00S00170.cpd     +++|*         ENTRY  *M* = BUFFER OFFSET TO BE INCREMENTED.
00190  M00S00171.cpd     +++|*                *D* = INDEX OFFSET.
00191  M00S00172.cpd     +++|*                (BA) = BUFFER BASE ADDRESS OF CURRENT RECORD.
00192  M00S00173.cpd     +++|*
00193  M00S00174.cpd     +++|*         USES   T8, T9.
00194  M00S00175.cpd     +++|*
00195  M00S00176.cpd     +++|*         CALLS  ADA.
00196  M00S00177.cpd     +++|*
00197  M00S00178.cpd     +++|*         REQUIRES BUFFER OFFSET TO BE DEFINED VIA *MPAR* MACRO
00198  M00S00179.cpd     +++|*         IN ORDER TO SET FIELD PRECISION.
00199  M00S00180.cpd     +++|*
00200  M00S00181.cpd     +++|*         WARNING - IF THE *D* PARAMETER IS PRESENT, ONLY
00201  M00S00182.cpd     +++|*                THE LOWER 12 BITS OF *A* ARE USED, AND THE
00202  M00S00183.cpd     +++|*                ELEMENT PRECISION MUST NOT BE GREATER THAN TWO.
00203  M00S00184.cpd     +++|
00204  M00S00185.cpd     +++|
00205  M00S00186.cpd     +++|          PURGMAC ADA
00206  M00S00187.cpd     +++|
00207  M00S00188.cpd     +++| ADA      MACRO  M,D
00208  M00S00189.cpd     +++|          MACREF ADA
00209  M00S00190.cpd     +++| .1       SET    P.M-1
00210  M00S00191.cpd     +++| .2       IFC    NE,$D$$
00211  M00S00192.cpd     +++|          STD    T8
00212  M00S00193.cpd     +++|          LDD    D
00213  M00S00194.cpd     +++|          ERRPL  .1-2        PRECISION ERROR
00214  M00S00195.cpd     +++| .3       IFNE   .1,0
00215  M00S00196.cpd     +++|          SHN    1
00216  M00S00197.cpd     +++|          ADK    M
00217  M00S00198.cpd     +++|          RJM    ADA
00218  M00S00199.cpd     +++| .3       ELSE
00219  M00S00200.cpd     +++|          ADD    BA
00220  M00S00201.cpd     +++|          STD    T9
00221  M00S00202.cpd     +++|          LDD    T8
00222  M00S00203.cpd     +++|          RAM    M,T9
00223  M00S00204.cpd     +++| .3       ENDIF
00224  M00S00205.cpd     +++| .2       ELSE
00225  M00S00206.cpd     +++|          RAM    M+.1,BA
00226  M00S00207.cpd     +++|          DUP    .1
00227  M00S00208.cpd     +++| .1       SET    .1-1
00228  M00S00209.cpd     +++|          SHN    -14
00229  M00S00210.cpd     +++|          RAM    M+.1,BA
00230  M00S00211.cpd     +++|          ENDD
00231  M00S00212.cpd     +++| .2       ENDIF
00232  M00S00213.cpd     +++|          ENDM
00233  M00S00214.cpd     +++| RDM      SPACE  4,15
00234  M00S00215.cpd     +++|**        RDM - READ MEMORY.
00235  M00S00216.cpd     +++|*
00236  M00S00217.cpd     +++|*         RDM    M
00237  M00S00218.cpd     +++|*
00238  M00S00219.cpd     +++|*         ENTRY  (A) = CM ADDRESS TO READ.
00239  M00S00220.cpd     +++|*                *M* = BUFFER OFFSET TO READ INTO.
00240  M00S00221.cpd     +++|*                (BA) = BUFFER BASE ADDRESS OF CURRENT RECORD.
00241  M00S00222.cpd     +++|*
00242  M00S00223.cpd     +++|*         EXIT   (A) = INITIAL CM ADDRESS + CM WORDS READ.
00243  M00S00224.cpd     +++|*
00244  M00S00225.cpd     +++|*         USES   T8, T9.
00245  M00S00226.cpd     +++|*
00246  M00S00227.cpd     +++|*         CALLS  RDM.
00247  M00S00228.cpd     +++|*
00248  M00S00229.cpd     +++|*         REQUIRES BUFFER OFFSET TO BE DEFINED VIA *MPAR* MACRO
00249  M00S00230.cpd     +++|*         TO SET FIELD PRECISION.
00250  M00S00231.cpd     +++|
00251  M00S00232.cpd     +++|
00252  M00S00233.cpd     +++|          PURGMAC RDM
00253  M00S00234.cpd     +++|
00254  M00S00235.cpd     +++| RDM      MACRO  M
00255  M00S00236.cpd     +++|          MACREF RDM
00256  M00S00237.cpd     +++|          STD    T9
00257  M00S00238.cpd     +++|          SHN    -14
00258  M00S00239.cpd     +++|          STD    T8
00259  M00S00240.cpd     +++|          LDC    P.M/5*10000+M
00260  M00S00241.cpd     +++|          ERRNZ  P.M/5*5-P.M LENGTH ERROR
00261  M00S00242.cpd     +++|          RJM    RDM         READ MEMORY
00262  M00S00243.cpd     +++|          ENDM
00263  M00S00244.cpd     +++| MPAR     SPACE  4,15
00264  M00S00245.cpd     +++|**        MPAR - MULTIPLE PRECISION ARRAY.
00265  M00S00246.cpd     +++|*
00266  M00S00247.cpd     +++|* NAME    MPAR   L,P
00267  M00S00248.cpd     +++|*
00268  M00S00249.cpd     +++|*         ENTRY  *NAME* = ARRAY NAME.
00269  M00S00250.cpd     +++|*                *L* = ARRAY LENGTH IN ELEMENTS.
00270  M00S00251.cpd     +++|*                *P* = ELEMENT PRECISION IN PPU WORDS.
00271  M00S00252.cpd     +++|*
00272  M00S00253.cpd     +++|*         EXIT   *P.NAME* = PRECISION OF ELEMENTS.
00273  M00S00254.cpd     +++|*                *L.NAME* = ARRAY LENGTH.
00274  M00S00255.cpd     +++|*
00275  M00S00256.cpd     +++|*         WARNING - IF ARRAY LENGTH IS NOT EQUAL TO ONE, THE ELEMENT
00276  M00S00257.cpd     +++|*         PRECISION MUST NOT BE GREATER THAN TWO.
00277  M00S00258.cpd     +++|
00278  M00S00259.cpd     +++|
00279  M00S00260.cpd     +++|          PURGMAC MPAR
00280  M00S00261.cpd     +++|
00281  M00S00262.cpd     +++|          MACRO  MPAR,NAME,LEN,PREC
00282  M00S00263.cpd     +++|          MACREF MPAR
00283  M00S00264.cpd     +++| .1       IFC    NE,$NAME$$
00284  M00S00265.cpd     +++| .2       IFC    EQ,$PREC$$
00285  M00S00266.cpd     +++|          ERR                PRECISION NOT SPECIFIED
00286  M00S00267.cpd     +++| .2       ELSE
00287  M00S00268.cpd     +++| P.NAME   EQU    PREC
00288  M00S00269.cpd     +++| .2       ENDIF
00289  M00S00270.cpd     +++| .3       IFNE   LEN,1
00290  M00S00271.cpd     +++|          ERRNG  2-P.NAME    OFFSET CALCULATION ERROR
00291  M00S00272.cpd     +++| .3       ENDIF
00292  M00S00273.cpd     +++| L.NAME   EQU    LEN
00293  M00S00274.cpd     +++| NAME     BSS    L.NAME*P.NAME
00294  M00S00275.cpd     +++| BL       SET    BL+L.NAME*P.NAME
00295  M00S00276.cpd     +++| .1       ENDIF
00296  M00S00277.cpd     +++|          ENDM
00297  M00S00278.cpd     +++| STA      SPACE  4,10
00298  M00S00279.cpd     +++|**        STA - STORE ACCUMULATOR.
00299  M00S00280.cpd     +++|*
00300  M00S00281.cpd     +++|*         STA    M
00301  M00S00282.cpd     +++|*
00302  M00S00283.cpd     +++|*         ENTRY  *M* = DATA OFFSET IN BUFFER.
00303  M00S00284.cpd     +++|*                (BA) = BUFFER BASE ADDRESS OF CURRENT RECORD.
00304  M00S00285.cpd     +++|
00305  M00S00286.cpd     +++|
00306  M00S00287.cpd     +++|          PURGMAC  STA
00307  M00S00288.cpd     +++|
00308  M00S00289.cpd     +++| STA      MACRO  M
00309  M00S00290.cpd     +++| .1       SET    P.M-1
00310  M00S00291.cpd     +++|          ERRPL  .1-2        PRECISION ERROR
00311  M00S00292.cpd     +++| .2       IFNE   .1,0
00312  M00S00293.cpd     +++|          STM    M+1,BA
00313  M00S00294.cpd     +++|          SHN    -14
00314  M00S00295.cpd     +++| .2       ENDIF
00315  M00S00296.cpd     +++|          STM    M,BA
00316  M00S00297.cpd     +++|          ENDM
00317  M00S00298.cpd     +++|          TITLE  COMMON DECKS.
00318  M00S00299.cpd     +++|*         COMMON DECKS.
00319  M00S00300.cpd     +++|
00320  M00S00301.cpd     +++|
00321  M00S00302.cpd     +++|*CALL     COMPMAC

Seq #  *Modification Id* Act 
----------------------------+
00322  M01S00003.ns2146  +++|*CALL     COMPMRM

Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00303.v23l617 ---|*CALL     COMPMRM
00324  M00S00304.cpd     +++|*CALL     COMSCPS
00325  M00S00305.cpd     +++|*CALL     COMSEJT
00326  M00S00306.cpd     +++|          QUAL   EVENT
00327  M00S00307.cpd     +++|*CALL     COMSEVT
00328  M00S00308.cpd     +++|          QUAL   *
00329  M00S00309.cpd     +++|*CALL     COMSHIO
00330  M00S00310.cpd     +++|*CALL     COMSIOU
00331  M00S00311.cpd     +++|*CALL     COMSJIO

Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00009.271l716 ---|*CALL     COMSMSP

Seq #  *Modification Id* Act 
----------------------------+
00333  M01S00002.271l716 +++|*CALL     COMSMSP

Seq #  *Modification Id* Act 
----------------------------+
00334  M01S00001.271l750 +++|*CALL     COMSMTR

Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00003.273l780 ---| CPA$     EQU    1           SELECT PCPA ACCESS
00336  M02S00004.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
00337  M02S00005.273l780 ---|*CALL     COMSPCP

Seq #  *Modification Id* Act 
----------------------------+
00338  M01S00010.242l642 +++|*CALL     COMSPFM
00339  M00S00312.cpd     +++|*CALL     COMSPIM
00340  M00S00313.cpd     +++|          QUAL   IAF
00341  M00S00314.cpd     +++|*CALL     COMSREM
00342  M00S00315.cpd     +++|          QUAL   *
00343  M00S00316.cpd     +++|*CALL     COMSSCD
00344  M00S00317.cpd     +++|          QUAL   SCR
00345  M00S00318.cpd     +++|*CALL     COMSSCR
00346  M00S00319.cpd     +++|          QUAL   *
00347  M00S00320.cpd     +++|*CALL     COMSSSD

Seq #  *Modification Id* Act 
----------------------------+
00348  M01S00001.cpd6    +++|*CALL     COMSSSJ
00349  M00S00321.cpd     +++|*CALL     COMSWEI

Seq #  *Modification Id* Act 
----------------------------+
00350  M01S00322.ns2358  ---|*CALL     COMSZOL
00351  M00S00323.cpd     +++|          LIST   F,X
00352  M00S00324.cpd     +++|*CALL     COMSCPD
00353  M00S00325.cpd     +++|          LIST   *
00354  M00S00326.cpd     +++|          SPACE  4,10
00355  M00S00327.cpd     +++|****      ASSEMBLY CONSTANTS.
00356  M00S00328.cpd     +++|
00357  M00S00329.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
00358  M01S00330.cpd6    ---| SCRTL    MAX    48D,CTALL*5 SCRATCH BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00002.cpd6    +++| SSJ$     EQU    1           ASSEMBLE *SSJ=* PROCESSING IN *COMPCUA*
00360  M01S00003.cpd6    +++| SBUFL    MAX    48D,CTALL*5 SCRATCH BUFFER LENGTH
00361  M00S00331.cpd     +++|
00362  M00S00332.cpd     +++|****
00363  M00S00333.cpd     +++|          TITLE  MAIN PROGRAM.
00364  M00S00334.cpd     +++| CPD      SPACE  4,10
00365  M00S00335.cpd     +++|**        CPD - MAIN PROGRAM.
00366  M00S00336.cpd     +++|
00367  M00S00337.cpd     +++|
00368  M00S00338.cpd     +++|          ORG    PPFW
00369  M00S00339.cpd     +++|
00370  M00S00340.cpd     +++| CPD      LJM    /PRS/PRS    PRESET
00371  M00S00341.cpd     +++|
00372  M00S00342.cpd     +++| FITS     EQU    CPD         FILE INTERLOCK STATUS
00373  M00S00343.cpd     +++|
00374  M00S00344.cpd     +++| CPD1     LDN    1           INDICATE NOT TRACK LIMIT
00375  M00S00345.cpd     +++|          RJM    CDS         CHECK DROP STATUS
00376  M00S00346.cpd     +++|*         LDN    0
00377  M00S00347.cpd     +++|          STD    LI          SET LOOP INDEX
00378  M00S00348.cpd     +++|          LDC    RTCL        SET REAL TIME
00379  M00S00349.cpd     +++|          CRD    CM
00380  M00S00350.cpd     +++|          LDD    CM+1        SET SECONDS
00381  M00S00351.cpd     +++|          STD    SC
00382  M00S00352.cpd     +++|          LDD    CM+4        SET MILLISECONDS
00383  M00S00353.cpd     +++|          STD    MS
00384  M00S00354.cpd     +++|
00385  M00S00355.cpd     +++|*         CHECK LOOP OPERATIONS TIMES.
00386  M00S00356.cpd     +++|
00387  M00S00357.cpd     +++| CPD2     LDD    MS          SET ELAPSED TIME
00388  M00S00358.cpd     +++|          SBM    CPDA,LI
00389  M00S00359.cpd     +++|          PJN    CPD3        IF NO UNDERFLOW
00390  M00S00360.cpd     +++|          ADC    10000
00391  M00S00361.cpd     +++| CPD3     STD    T1
00392  M00S00362.cpd     +++|          SBM    CPDC,LI
00393  M00S00363.cpd     +++|          MJN    CPD4        IF NOT GTREATER THAN MAXIMUM CYCLE TIME
00394  M00S00364.cpd     +++|          RAM    CPDC,LI     UPDATE MAXIMUM CYCLE TIME
00395  M00S00365.cpd     +++| CPD4     LDM    CPDB,LI
00396  M00S00366.cpd     +++|          ZJN    CPD7        IF NO OPERATION TO BE PERFORMED
00397  M00S00367.cpd     +++|          SBD    T1          CHECK OPERATION INTERVAL
00398  M00S00368.cpd     +++|          SBN    1
00399  M00S00369.cpd     +++|          PJN    CPD7        IF TIME NOT EXPIRED
00400  M00S00370.cpd     +++|          LDD    MS          SET NEW BASE TIME
00401  M00S00371.cpd     +++|          STM    CPDA,LI
00402  M00S00372.cpd     +++|          LDM    TLOT,LI     SET OPERATION TABLE ADDRESS
00403  M00S00373.cpd     +++|          STD    LO
00404  M00S00374.cpd     +++|          LDI    LO          INCREMENT SAMPLE COUNT
00405  M00S00375.cpd     +++|          ADD    BA
00406  M00S00376.cpd     +++|          STD    T1
00407  M00S00377.cpd     +++|          AOM    1,T1
00408  M00S00378.cpd     +++|          SHN    -14
00409  M00S00379.cpd     +++|          RAI    T1
00410  M00S00380.cpd     +++|          AOD    LO          ADVANCE TO PROCESS OPERATIONS
00411  M00S00381.cpd     +++| CPD5     LDI    LO
00412  M00S00382.cpd     +++|          STD    T1
00413  M00S00383.cpd     +++|          ZJN    CPD6        IF ROUTINE NOT TO BE PERFORMED
00414  M00S00384.cpd     +++|          RJM    0,T1        PERFORM OPERATION ROUTINE
00415  M00S00385.cpd     +++| CPD6     AOD    LO          ADVANCE TO PROCESS NEXT OPERATION
00416  M00S00386.cpd     +++|          LMM    TLOTL,LI
00417  M00S00387.cpd     +++|          NJN    CPD5        IF MORE OPERATIONS TO PROCESS
00418  M00S00388.cpd     +++| CPD7     AOD    LI          INCREMENT LOOP INDEX
00419  M00S00389.cpd     +++|          LMN    MSLC
00420  M00S00390.cpd     +++|          NJP    CPD2        IF ALL MILLISECOND LOOPS NOT PROCESSED
00421  M00S00391.cpd     +++|          LDM    CPDB,LI
00422  M00S00392.cpd     +++|          ZJN    CPD9        IF NO SNAPSHOT OPERATION TO BE PERFORMED
00423  M00S00393.cpd     +++|          LDD    SC          SET ELAPSED TIME
00424  M00S00394.cpd     +++|          SBM    CPDA,LI
00425  M00S00395.cpd     +++|          PJN    CPD8        IF NO UNDERFLOW
00426  M00S00396.cpd     +++|          ADC    10000
00427  M00S00397.cpd     +++| CPD8     SBM    CPDB,LI     CHECK SNAPSHOT LOOP INTERVAL TIME
00428  M00S00398.cpd     +++|          MJN    CPD9        IF TIME NOT EXPIRED
00429  M00S00399.cpd     +++|          LDD    SC          SET NEW BASE TIME
00430  M00S00400.cpd     +++|          STM    CPDA,LI
00431  M00S00401.cpd     +++|          RJM    /3CR/SNO    PERFORM SNAPSHOT OPERATION
00432  M00S00402.cpd     +++|          AOD    RC          ADVANCE RECORD COUNT
00433  M00S00403.cpd     +++|          SBD    RX
00434  M00S00404.cpd     +++|          ZJN    CPD10       IF END OF BUFFER
00435  M00S00405.cpd     +++|          LDD    WC          ADVANCE BUFFER ADDRESS FOR NEXT RECORD
00436  M00S00406.cpd     +++|          SHN    2
00437  M00S00407.cpd     +++|          ADD    WC
00438  M00S00408.cpd     +++|          RAD    BA
00439  M00S00409.cpd     +++| CPD9     LJM    CPD1        LOOP
00440  M00S00410.cpd     +++|
00441  M00S00411.cpd     +++| CPD10    EXECUTE  3CS       WRITE FILE
00442  M00S00412.cpd     +++| CPD11    RJM    /3CS/ZFB    ZERO FILL BUFFER
00443  M00S00413.cpd     +++|          EXECUTE  3CR       LOAD OVERLAID LOOP OPERATION ROUTINES
00444  M00S00414.cpd     +++|          LDC    RTCL        SET INITIAL OPERATION TIMES
00445  M00S00415.cpd     +++|          CRD    CM
00446  M00S00416.cpd     +++|          LDD    CM+4
00447  M00S00417.cpd     +++|          STM    CPDA        FAST LOOP
00448  M00S00418.cpd     +++|          STM    CPDA+1      MEDIUM LOOP
00449  M00S00419.cpd     +++|          STM    CPDA+2      SLOW LOOP
00450  M00S00420.cpd     +++|          LDD    CM+1
00451  M00S00421.cpd     +++|          STM    CPDA+3      SNAPSHOT LOOP
00452  M00S00422.cpd     +++|          UJN    CPD9        LOOP
00453  M00S00423.cpd     +++|
00454  M00S00424.cpd     +++|
00455  M00S00425.cpd     +++| CPDA     BSS    0           LOOP OPERATION BASE TIMES
00456  M00S00426.cpd     +++|          CON    0           FAST LOOP
00457  M00S00427.cpd     +++|          CON    0           MEDIUM LOOP
00458  M00S00428.cpd     +++|          CON    0           SLOW LOOP
00459  M00S00429.cpd     +++| MSLC     EQU    *-CPDA      MILLISECOND LOOP COUNT
00460  M00S00430.cpd     +++|          CON    0           SNAPSHOT LOOP
00461  M00S00431.cpd     +++| SCLC     EQU    *-CPDA-MSLC SECOND LOOP COUNT
00462  M00S00432.cpd     +++|
00463  M00S00433.cpd     +++| CPDB     BSS    0           LOOP OPERATION INTERVAL TIMES
00464  M00S00434.cpd     +++|          CON    0           FAST LOOP
00465  M00S00435.cpd     +++|          CON    0           MEDIUM LOOP
00466  M00S00436.cpd     +++|          CON    0           SLOW LOOP
00467  M00S00437.cpd     +++|          CON    0           SNAPSHOT LOOP
00468  M00S00438.cpd     +++|
00469  M00S00439.cpd     +++| CPDC     BSS    0           MAXIMUM CYCLE TIMES
00470  M00S00440.cpd     +++|          CON    0           FAST LOOP
00471  M00S00441.cpd     +++|          CON    0           MEDIUM LOOP
00472  M00S00442.cpd     +++|          CON    0           SLOW LOOP
00473  M00S00443.cpd     +++|
00474  M00S00444.cpd     +++| TLOT     BSS    0           TABLE OF LOOP OPERATION TABLE ADDRESSES
00475  M00S00445.cpd     +++|          CON    TFLO        FAST LOOP OPERATIONS
00476  M00S00446.cpd     +++|          CON    TMLO        MEDIUM LOOP OPERATIONS
00477  M00S00447.cpd     +++|          CON    TSLO        SLOW LOOP OPERATIONS
00478  M00S00448.cpd     +++|
00479  M00S00449.cpd     +++| TLOTL    BSS    0           TABLE OF LOOP OPERATION TABLES LWA + 1
00480  M00S00450.cpd     +++|          CON    TFLOL       FAST LOOP OPERATIONS
00481  M00S00451.cpd     +++|          CON    TMLOL       MEDIUM LOOP OPERATIONS
00482  M00S00452.cpd     +++|          CON    TSLOL       SLOW LOOP OPERATIONS
00483  M00S00453.cpd     +++|
00484  M00S00454.cpd     +++| TFLO     BSS    0           TABLE OF FAST LOOP OPERATIONS
00485  M00S00455.cpd     +++|          CON    CNIL        INCREMENT FAST LOOP SAMPLE COUNT
00486  M00S00456.cpd     +++|          CON    CDA         CHECK DEVICE ACTIVITY
00487  M00S00457.cpd     +++| DCBP     CON    0           DISABLE BUFFERED I/O
00488  M00S00458.cpd     +++|*         CON    CBP         (CHECK BUFFERED I/O PARAMETERS)
00489  M00S00459.cpd     +++| DCBC     CON    0           DISABLE BUFFERED I/O
00490  M00S00460.cpd     +++|*         CON    CBC         (CHECK BUFFERED I/O CHANNEL USAGE)
00491  M00S00461.cpd     +++|          CON    CHU         CHECK CHANNEL USAGE
00492  M00S00462.cpd     +++|          CON    /3CR/CMR    CHECK MOVE REQUEST
00493  M00S00463.cpd     +++|          CON    CPU         CHECK CPU USAGE
00494  M00S00464.cpd     +++|          CON    /3CR/PPU    COUNT PP USAGE
00495  M00S00465.cpd     +++| TFLOL    EQU    *           TABLE OF FAST LOOP OPERATIONS LWA + 1
00496  M00S00466.cpd     +++|
00497  M00S00467.cpd     +++| TMLO     BSS    0           TABLE OF MEDIUM LOOP OPERATIONS
00498  M00S00468.cpd     +++|          CON    CTML        INCREMENT MEDIUM LOOP SAMPLE COUNT
00499  M00S00469.cpd     +++|          CON    /3CR/ACA    ACCUMULATE CONTROL POINT ACTIVITY
00500  M00S00470.cpd     +++|          CON    /3CR/CMR    CHECK MOVE REQUEST
00501  M00S00471.cpd     +++|          CON    /3CR/UEA    UPDATE EJT ACTIVITY
00502  M00S00472.cpd     +++| TMLOL    EQU    *           TABLE OF MEDIUM LOOP OPERATIONS LWA + 1
00503  M00S00473.cpd     +++|
00504  M00S00474.cpd     +++| TSLO     BSS    0           TABLE OF SLOW LOOP OPERATIONS
00505  M00S00475.cpd     +++|          CON    CTOL        INCREMENT SLOW LOOP SAMPLE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00506  M01S00001.251l664 +++|          CON    /3CR/ACP    ACCUMULATE CONCURRENT PP ACTIVITY
00507  M00S00476.cpd     +++|          CON    /3CR/AEA    ACCUMULATE EST ACTIVITY
00508  M00S00477.cpd     +++|          CON    /3CR/AIA    ACCUMULATE IAF ACTIVITY
00509  M00S00478.cpd     +++|          CON    /3CR/UQA    UPDATE QFT ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
00510  M01S00479.v23l617 ---| DPPF     CON    0           DISABLE PMF PROCESSING
00511  M01S00480.v23l617 ---|*         CON    /3CR/PPF    (PROCESS MAINTENANCE REGISTERS)
00512  M00S00481.cpd     +++| TSLOL    EQU    *           TABLE OF SLOW LOOP OPERATIONS LWA + 1
00513  M00S00482.cpd     +++|          TITLE  LOOP OPERATION ROUTINES.
00514  M00S00483.cpd     +++| CBC      SPACE  4,10
00515  M00S00484.cpd     +++|**        CBC - CHECK BUFFERED I/O CHANNEL USAGE.
00516  M00S00485.cpd     +++|*
00517  M00S00486.cpd     +++|*         ENTRY  (CBCA) = CHANNEL TABLE ADDRESS.
00518  M00S00487.cpd     +++|*                (CBCB) = NUMBER OF CHANNEL TABLE ENTRIES.
00519  M00S00488.cpd     +++|*
00520  M00S00489.cpd     +++|*         EXIT   BUFFERED I/O CHANNEL USAGE UPDATED.
00521  M00S00490.cpd     +++|*
00522  M00S00491.cpd     +++|*         USES   T1, T2, T3, AB - AB+4, CM - CM+4.
00523  M00S00492.cpd     +++|*
00524  M00S00493.cpd     +++|*         MACROS ADO.
00525  M00S00494.cpd     +++|
00526  M00S00495.cpd     +++|
00527  M00S00496.cpd     +++| CBC      SUBR               ENTRY/EXIT
00528  M00S00497.cpd     +++|          LDN    0
00529  M00S00498.cpd     +++|          STD    T3
00530  M00S00499.cpd     +++|          LDC    0
00531  M00S00500.cpd     +++| CBCA     EQU    *-2         (CHANNEL TABLE ADDRESS)
00532  M00S00501.cpd     +++|          STD    T2          SET CHANNEL TABLE ADDRESS
00533  M00S00502.cpd     +++|          SHN    -14
00534  M00S00503.cpd     +++|          STD    T1
00535  M00S00504.cpd     +++| CBC1     SHN    14
00536  M00S00505.cpd     +++|          ADD    T2

Seq #  *Modification Id* Act 
----------------------------+
00537  M01S00506.241l630 ---|          ADN    CREQ

Seq #  *Modification Id* Act 
----------------------------+
00538  M01S00001.241l630 +++|          ADK    CREQ
00539  M00S00507.cpd     +++|          CRD    CM          READ CHANNEL TABLE WORD *CREQ*
00540  M00S00508.cpd     +++|          ADN    CCNT-CREQ   READ CHANNEL NUMBER
00541  M00S00509.cpd     +++|          CRD    AB
00542  M00S00510.cpd     +++|          LDD    CM

Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00511.251l664 ---|          SHN    21-13
00544  M01S00512.251l664 ---|          PJN    CBC2        IF NOT BUSY

Seq #  *Modification Id* Act 
----------------------------+
00545  M01S00002.251l664 +++|          ZJN    CBC2        IF NOT BUSY
00546  M00S00513.cpd     +++|          LDD    AB+1        SET CHANNEL NUMBER
00547  M00S00514.cpd     +++|          LPN    77
00548  M00S00515.cpd     +++|          STD    CM
00549  M00S00516.cpd     +++|          ADO    BICA,CM     COUNT CHANNEL ACTIVITY
00550  M00S00517.cpd     +++| CBC2     AOD    T3          ADVANCE CHANNEL TABLE INDEX
00551  M00S00518.cpd     +++|          SBN    0
00552  M00S00519.cpd     +++| CBCB     EQU    *-1         (NUMBER OF CHANNEL TABLE ENTRIES)
00553  M00S00520.cpd     +++|          PJN    CBCX        IF END OF CHANNELS
00554  M00S00521.cpd     +++|          LDN    CCTL
00555  M00S00522.cpd     +++|          RAD    T2          ADVANCE TABLE ADDRESS
00556  M00S00523.cpd     +++|          SHN    -14
00557  M00S00524.cpd     +++|          RAD    T1
00558  M00S00525.cpd     +++|          UJN    CBC1        CHECK NEXT CHANNEL
00559  M00S00526.cpd     +++| CBP      SPACE  4,10
00560  M00S00527.cpd     +++|**        CBP - CHECK BUFFERED I/O PARAMETERS.
00561  M00S00528.cpd     +++|*
00562  M00S00529.cpd     +++|*         ENTRY  (CBPA) = FWA BUFFERED I/O TABLES.
00563  M00S00530.cpd     +++|*
00564  M00S00531.cpd     +++|*         EXIT   BUFFERED I/O PARAMETERS UPDATED.
00565  M00S00532.cpd     +++|*
00566  M00S00533.cpd     +++|*         USES   T2, CM - CM+4.
00567  M00S00534.cpd     +++|*
00568  M00S00535.cpd     +++|*         MACROS ADA.
00569  M00S00536.cpd     +++|
00570  M00S00537.cpd     +++|
00571  M00S00538.cpd     +++| CBP      SUBR               ENTRY/EXIT
00572  M00S00539.cpd     +++|          LDN    WRTP-EMTP+1 INITIALIZE CONTROL WORD INDEX
00573  M00S00540.cpd     +++|          STD    T2
00574  M00S00541.cpd     +++| CBP1     SOD    T2
00575  M00S00542.cpd     +++|          MJN    CBPX        IF END OF CONTROL WORDS
00576  M00S00543.cpd     +++| CBPA     ADC    EMTP        (FWA CONTROL WORDS + *EMPT*)
00577  M00S00544.cpd     +++|          CRD    CM
00578  M00S00545.cpd     +++|          LDD    CM+1        ADD COUNT OF BUFFERS IN LIST
00579  M00S00546.cpd     +++|          ADA    BILA,T2
00580  M00S00547.cpd     +++|          UJN    CBP1        LOOP
00581  M00S00548.cpd     +++|
00582  M00S00549.cpd     +++|
00583  M00S00550.cpd     +++|          ERRNZ  DWTP-EMTP-1 OFFSET ERROR IN *MPAR* TABLE
00584  M00S00551.cpd     +++|          ERRNZ  DRDP-DWTP-1 OFFSET ERROR IN *MPAR* TABLE
00585  M00S00552.cpd     +++|          ERRNZ  WRTP-DRDP-1 OFFSET ERROR IN *MPAR* TABLE
00586  M00S00553.cpd     +++| CDA      SPACE  4,10
00587  M00S00554.cpd     +++|**        CDA - CHECK DEVICE ACTIVITY.
00588  M00S00555.cpd     +++|*
00589  M00S00556.cpd     +++|*         ENTRY  (BA) = BUFFER BASE ADDRESS OF CURRENT RECORD.
00590  M00S00557.cpd     +++|*                (ME) = NUMBER OF MS ENTRIES.
00591  M00S00558.cpd     +++|*                (CDAA) = PP SPEED MASK.
00592  M00S00559.cpd     +++|*                (CDAB) = FWA MST-S.
00593  M00S00560.cpd     +++|*
00594  M00S00561.cpd     +++|*         EXIT   DEVICE ACTIVITY USAGE UPDATED.
00595  M00S00562.cpd     +++|*
00596  M00S00563.cpd     +++|*         USES   T1, T2, VB, CM - CM+4.
00597  M00S00564.cpd     +++|
00598  M00S00565.cpd     +++|
00599  M00S00566.cpd     +++| CDA      SUBR               ENTRY/EXIT
00600  M00S00567.cpd     +++|          LDM    CDAC        COMPUTE RANDOM DELAY
00601  M00S00568.cpd     +++|          ADC    273D
00602  M00S00569.cpd     +++|          LPC    0
00603  M00S00570.cpd     +++|*         LPC    777         (1XPP)
00604  M00S00571.cpd     +++|*         LPC    1777        (2XPP)
00605  M00S00572.cpd     +++|*         LPC    3777        (4XPP)
00606  M00S00573.cpd     +++| CDAA     EQU    *-1
00607  M00S00574.cpd     +++|          STM    CDAC
00608  M00S00575.cpd     +++| CDA1     SBN    1           NOW COUNT OUT THE DELAY
00609  M00S00576.cpd     +++|          NJN    CDA1        IF NOT END OF DELAY
00610  M00S00577.cpd     +++|          LDD    ME          NUMBER OF MS ENTRIES
00611  M00S00578.cpd     +++|          STD    T1
00612  M00S00579.cpd     +++|          LDD    BA          SET MASS STORAGE REQUEST ENTRY FWA
00613  M00S00580.cpd     +++|          ADK    DFBL+NMSA
00614  M00S00581.cpd     +++|          STD    VB
00615  M00S00582.cpd     +++|          LDC    **          FWA MST-S
00616  M00S00583.cpd     +++| CDAB     EQU    *-1
00617  M00S00584.cpd     +++|          STD    T2
00618  M00S00585.cpd     +++| CDA2     SOD    T1
00619  M00S00586.cpd     +++|          MJN    CDAX        IF END OF MS ENTRIES
00620  M00S00587.cpd     +++|          LDD    T2
00621  M00S00588.cpd     +++|          SHN    3
00622  M00S00589.cpd     +++|          ADN    DALL
00623  M00S00590.cpd     +++|          CRD    CM
00624  M00S00591.cpd     +++|          LDD    CM          UPDATE ACTIVITY USAGE

Seq #  *Modification Id* Act 
----------------------------+
00625  M01S00011.242l642 +++|          LPN    77
00626  M00S00592.cpd     +++|          RAM    1,VB
00627  M00S00593.cpd     +++|          SHN    -14
00628  M00S00594.cpd     +++|          RAI    VB
00629  M00S00595.cpd     +++|          ERRNZ  P.NMSA-2    CODE DEPENDS ON SIZE
00630  M00S00596.cpd     +++|          LDN    DMBL        ADVANCE TO NEXT MS REQUEST ENTRY
00631  M00S00597.cpd     +++|          RAD    VB
00632  M00S00598.cpd     +++|          LDN    MSTXL/10
00633  M00S00599.cpd     +++|          RAD    T2
00634  M00S00600.cpd     +++|          UJN    CDA2        PROCESS NEXT DEVICE
00635  M00S00601.cpd     +++|
00636  M00S00602.cpd     +++|
00637  M00S00603.cpd     +++| CDAC     CON    0           DELAY
00638  M00S00604.cpd     +++| CHU      SPACE  4,20
00639  M00S00605.cpd     +++|**        CHU - CHECK CHANNEL USAGE.
00640  M00S00606.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00641  M01S00607.241l630 ---|*         ACTIVITY ON CHANNELS ASSIGNED TO THE BUFFERED I/O DRIVER,
00642  M01S00608.241l630 ---|*         *1HP* IS IGNORED HERE AND PROCESSED SEPERATELY IN ROUTINE
00643  M01S00609.241l630 ---|*         *CBC*.

Seq #  *Modification Id* Act 
----------------------------+
00644  M01S00002.241l630 +++|*         ACTIVITY ON CHANNELS ASSIGNED TO BUFFERED I/O DRIVERS
00645  M01S00003.241l630 +++|*         IS IGNORED HERE AND PROCESSED SEPARATELY IN ROUTINE *CBC*.

Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00003.251l664 +++|*         FOR CONCURRENT CHANNELS, ONLY CHANNEL REQUESTED/RESERVED IS
00647  M01S00004.251l664 +++|*         RECORDED, SINCE DETERMINING CHANNEL ACTIVITY IS IMPRACTICAL.
00648  M00S00610.cpd     +++|*
00649  M00S00611.cpd     +++|*         ENTRY  (NP) = NUMBER OF PP-S.
00650  M00S00612.cpd     +++|*                (PC) = FWA OF PP COMMUNICATIONS AREA.
00651  M00S00613.cpd     +++|*                (CHUA) = NUMBER OF CHANNELS ON MAINFRAME.
00652  M00S00614.cpd     +++|*                (CHUB) = FWA CHANNEL TABLE.
00653  M00S00615.cpd     +++|*
00654  M00S00616.cpd     +++|*         EXIT   CHANNEL USAGE UPDATED.
00655  M00S00617.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00656  M01S00618.251l664 ---|*         USES   T1, T2, CM - CM+4.

Seq #  *Modification Id* Act 
----------------------------+
00657  M01S00005.251l664 +++|*         USES   T1, CM - CM+4.
00658  M00S00619.cpd     +++|*
00659  M00S00620.cpd     +++|*         MACROS ADO.
00660  M00S00621.cpd     +++|
00661  M00S00622.cpd     +++|
00662  M00S00623.cpd     +++| CHU      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00663  M01S00624.v23l617 ---| CHUA     LDN    16+1        SET NUMBER OF CHANNELS
00664  M01S00625.v23l617 ---|*         LDN    34+1        (NOT 10 PP MAINFRAME)

Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00003.251l664 ---| CHUA     LDN    **          SET NUMBER OF CHANNELS

Seq #  *Modification Id* Act 
----------------------------+
00666  M01S00626.251l664 ---|          STD    T2
00667  M00S00627.cpd     +++|          LDN    CTALL       CHANNEL STATUS TABLE LENGTH
00668  M00S00628.cpd     +++|          STD    T1

Seq #  *Modification Id* Act 
----------------------------+
00669  M01S00629.251l664 ---| CHUB     LDC    0           FWA OF CHANNEL TABLE

Seq #  *Modification Id* Act 
----------------------------+
00670  M01S00006.251l664 +++| CHUA     LDC    **          (FWA OF CHANNEL TABLE)

Seq #  *Modification Id* Act 
----------------------------+
00671  M01S00630.cpd6    ---|          CRM    SCRT,T1

Seq #  *Modification Id* Act 
----------------------------+
00672  M01S00004.cpd6    +++|          CRM    SBUF,T1
00673  M00S00631.cpd     +++|          LCN    0           INITIALIZE CHANNEL NUMBER
00674  M00S00632.cpd     +++|          STD    T1
00675  M00S00633.cpd     +++| CHU1     AOD    T1

Seq #  *Modification Id* Act 
----------------------------+
00676  M01S00634.251l664 ---|          LMD    T2

Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00007.251l664 +++| CHUB     LMN    40+**       (MAXIMUM CONCURRENT CHANNEL + 1)
00678  M00S00635.cpd     +++|          ZJN    CHUX        IF ALL CHANNELS PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
00679  M01S00008.251l664 +++|          LDD    T1
00680  M01S00009.251l664 +++| CHUC     SBN    **          (MAXIMUM NON-CONCURRENT CHANNEL + 1)
00681  M01S00010.251l664 +++|          PJN    CHU2        IF CONCURRENT CHANNEL
00682  M00S00636.cpd     +++|
00683  M00S00637.cpd     +++|*         CHECK FOR BUFFERED I/O USAGE.
00684  M00S00638.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
00685  M01S00639.cpd6    ---|          LDM    SCRT,T1     GET ASSIGNED PP NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00686  M01S00005.cpd6    +++|          LDM    SBUF,T1     GET ASSIGNED PP NUMBER
00687  M00S00640.cpd     +++|          LPN    37
00688  M00S00641.cpd     +++|          SHN    3           GET PP INPUT REGISTER
00689  M00S00642.cpd     +++|          ADD    PC

Seq #  *Modification Id* Act 
----------------------------+
00690  M01S00643.241l630 ---|          CRD    CM          CHECK FOR 1HP

Seq #  *Modification Id* Act 
----------------------------+
00691  M01S00004.241l630 +++|          CRD    CM
00692  M00S00644.cpd     +++|          LDD    CM+1
00693  M00S00645.cpd     +++|          SCN    77
00694  M00S00646.cpd     +++|          SHN    6
00695  M00S00647.cpd     +++|          LMD    CM
00696  M00S00648.cpd     +++|          LMC    3RP1H

Seq #  *Modification Id* Act 
----------------------------+
00697  M01S00649.241l630 ---|          ZJN    CHU1        IF NOT *1HP*

Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00005.241l630 +++|          ZJN    CHU1        IF *1HP*
00699  M01S00006.241l630 +++|          LMC    3RM1X&3RP1H
00700  M01S00007.241l630 +++|          ZJN    CHU1        IF *1XM*
00701  M00S00650.cpd     +++|
00702  M00S00651.cpd     +++|*         SAMPLE CHANNEL DATA.
00703  M00S00652.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
00704  M01S00653.251l664 ---|          LDM    SCRT,T1     SET CHANNEL STATUS
00705  M01S00654.251l664 ---|          SHN    21-13
00706  M01S00655.251l664 ---|          PJN    CHU2        IF NOT REQUESTED
00707  M01S00656.251l664 ---|          ADO    RQCH,T1     INCREMENT CHANNEL REQUESTED COUNT
00708  M01S00657.251l664 ---| CHU2     LDM    SCRT,T1     SET CHANNEL STATUS
00709  M01S00658.251l664 ---|          LPN    37
00710  M01S00659.251l664 ---|          ZJN    CHU3        IF NOT RESERVED
00711  M01S00660.251l664 ---|          ADO    RSCH,T1     INCREMENT CHANNEL RESERVED COUNT
00712  M01S00661.251l664 ---| CHU3     LDC    IJMI        CHECK CHANNEL ACTIVE
00713  M01S00662.251l664 ---|          ADD    T1          SET CHANNEL NUMBER
00714  M01S00663.251l664 ---|          STM    CHUC
00715  M01S00664.251l664 ---| CHUC     IJM    CHU4,**     IF CHANNEL INACTIVE
00716  M01S00665.251l664 ---|          ADO    ACCH,T1     INCREMENT CHANNEL ACTIVE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00011.251l664 +++|          LDC    IJMI        GENERATE CHANNEL INSTRUCTION
00718  M01S00012.251l664 +++|          ADD    T1
00719  M01S00013.251l664 +++|          STM    CHUD
00720  M01S00014.251l664 +++| CHUD     IJM    CHU2,**     IF CHANNEL INACTIVE
00721  M01S00015.251l664 +++|          ADO    ACCH,T1     INCREMENT CHANNEL ACTIVE COUNT
00722  M01S00016.251l664 +++|
00723  M01S00017.251l664 +++|*         THE FOLLOWING CODE IS PERFORMED FOR ALL CHANNELS.
00724  M01S00018.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00019.cpd6    ---| CHU2     LDM    SCRT,T1     SET CHANNEL STATUS

Seq #  *Modification Id* Act 
----------------------------+
00726  M01S00006.cpd6    +++| CHU2     LDM    SBUF,T1     SET CHANNEL STATUS

Seq #  *Modification Id* Act 
----------------------------+
00727  M01S00020.251l664 +++|          SHN    21-13
00728  M01S00021.251l664 +++|          PJN    CHU3        IF NOT REQUESTED
00729  M01S00022.251l664 +++|          ADO    RQCH,T1     INCREMENT CHANNEL REQUESTED COUNT

Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00023.cpd6    ---| CHU3     LDM    SCRT,T1     SET CHANNEL STATUS

Seq #  *Modification Id* Act 
----------------------------+
00731  M01S00007.cpd6    +++| CHU3     LDM    SBUF,T1     SET CHANNEL STATUS

Seq #  *Modification Id* Act 
----------------------------+
00732  M01S00024.251l664 +++|          LPN    37
00733  M01S00025.251l664 +++|          ZJN    CHU4        IF NOT RESERVED
00734  M01S00026.251l664 +++|          ADO    RSCH,T1     INCREMENT CHANNEL RESERVED COUNT
00735  M00S00666.cpd     +++| CHU4     LJM    CHU1        LOOP
00736  M00S00667.cpd     +++| CPU      SPACE  4,15
00737  M00S00668.cpd     +++|**        CPU - CPU USAGE.
00738  M00S00669.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00739  M01S00670.271l750 ---|*         ENTRY  (NU) = NUMBER OF CPUS.
00740  M01S00671.271l750 ---|*                (NC) = NUMBER OF THE SYSTEM CONTROL POINT.

Seq #  *Modification Id* Act 
----------------------------+
00741  M01S00002.271l750 +++|*         ENTRY  (NC) = NUMBER OF THE SYSTEM CONTROL POINT.
00742  M00S00672.cpd     +++|*                (CPUA) = MODIFIED IF NO SCR ON MAINFRAME.
00743  M00S00673.cpd     +++|*                (TCPS) = CPU STATUSES.

Seq #  *Modification Id* Act 
----------------------------+
00744  M01S00004.ns2146  +++|*                (RN) = P REGISTER MAINTENANCE REGISTER NUMBER.
00745  M00S00674.cpd     +++|*
00746  M00S00675.cpd     +++|*         EXIT   CPU ACTIVITY UPDATED.
00747  M00S00676.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00748  M01S00677.ns2146  ---|*         USES   AB - AB+4, CM - CM+4, CN - CN+4, T1 - T5.

Seq #  *Modification Id* Act 
----------------------------+
00749  M01S00005.ns2146  +++|*         USES   EC, AB - AB+4, CM - CM+4, CN - CN+4, T1 - T3.
00750  M00S00678.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00679.ns2146  ---|*         MACROS ADO.

Seq #  *Modification Id* Act 
----------------------------+
00752  M01S00006.ns2146  +++|*         MACROS ADO, READMR.
00753  M00S00680.cpd     +++|
00754  M00S00681.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
00755  M01S00682.cpd2    ---| CPU6     LDN    /SCR/FCRD+20 READ STATUS/CONTROL REGISTER

Seq #  *Modification Id* Act 
----------------------------+
00756  M01S00001.cpd2    +++| CPU7     LDN    /SCR/FCRD+20  READ STATUS/CONTROL REGISTER
00757  M00S00683.cpd     +++|          OAN    CHSC
00758  M00S00684.cpd     +++|          IAN    CHSC
00759  M00S00685.cpd     +++|          STD    T1
00760  M00S00686.cpd     +++|          SHN    -3          CHECK MONITOR MODE
00761  M00S00687.cpd     +++|          LPN    3

Seq #  *Modification Id* Act 
----------------------------+
00762  M01S00688.cpd2    ---|          ZJN    CPU7        IF MONITOR MODE NOT ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
00763  M01S00002.cpd2    +++|          ZJN    CPU8        IF NOT MONITOR MODE
00764  M00S00689.cpd     +++|          SBN    1           SET CPU OFFSET
00765  M00S00690.cpd     +++|          STD    T2
00766  M00S00691.cpd     +++|          ADO    MNMD,T2     INCREMENT MONITOR MODE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00767  M01S00692.cpd2    ---| CPU7     LDD    T1          CHECK ECS TRANSFER ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00003.v23l617 ---| CPU8     LDD    T1          CHECK ECS TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
00769  M01S00004.v23l617 +++| CPU8     LDD    T1          CHECK EXTENDED MEMORY TRANSFER
00770  M00S00693.cpd     +++|          LPN    4

Seq #  *Modification Id* Act 
----------------------------+
00771  M01S00694.v23l617 ---|          ZJN    CPUX        IF NO ECS TRANSFER ACTIVE
00772  M01S00695.v23l617 ---|          ADO    ECST        INCREMENT ECS TRANSFER COUNT

Seq #  *Modification Id* Act 
----------------------------+
00773  M01S00005.v23l617 +++|          ZJN    CPUX        IF NO EXTENDED MEMORY TRANSFER ACTIVE
00774  M01S00006.v23l617 +++|          ADO    ECST        INCREMENT EXTENDED MEMORY TRANS
00775  M00S00696.cpd     +++|
00776  M00S00697.cpd     +++| CPU      SUBR               ENTRY/EXIT
00777  M00S00698.cpd     +++|          LDN    0           INITIALIZE CPU COUNT
00778  M00S00699.cpd     +++|          STD    T2
00779  M00S00700.cpd     +++|          UJN    CPU2        CHECK CPU 0 STATUS
00780  M00S00701.cpd     +++|
00781  M00S00702.cpd     +++| CPU1     AOD    T2
00782  M00S00703.cpd     +++|          LMN    TCPSL

Seq #  *Modification Id* Act 
----------------------------+
00783  M01S00704.cpd2    ---| CPUA     ZJN    CPU6        IF ALL CPUS PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
00784  M01S00004.cpd2    +++| CPUA     ZJN    CPU7        IF ALL CPUS PROCESSED
00785  M00S00705.cpd     +++|*         ZJN    CPUX        (NO SCR ON MAINFRAME)
00786  M00S00706.cpd     +++|          LDN    CTCUL
00787  M00S00707.cpd     +++| CPU2     STD    T1          SET CPU USAGE INDEX
00788  M00S00708.cpd     +++|          LDM    TCPS,T2
00789  M00S00709.cpd     +++|          NJN    CPU1        IF CPU OFF

Seq #  *Modification Id* Act 
----------------------------+
00790  M01S00007.ns2146  +++| CPUB     LJM    CPU2.3      DETERMINE NOS CPU USAGE
00791  M01S00008.ns2146  +++|*         UJN    CPU2.1      (180 TYPE CPU)
00792  M00S00710.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
00793  M01S00711.ns2146  ---|*         SAMPLE CPU USAGE.

Seq #  *Modification Id* Act 
----------------------------+
00794  M01S00009.ns2146  +++|*         DETERMINE CODE SEGMENT FOR 180 TYPE CPU.
00795  M00S00712.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
00796  M01S00713.ns2146  ---|          LDD    T2          GET CPU CPA ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00797  M01S00010.ns2146  +++| CPU2.1   LDM    PCCC,T2     SET PROCESSOR CONNECT CODE
00798  M01S00011.ns2146  +++|          STD    EC
00799  M01S00012.ns2146  +++|          READMR PREG        READ P REGISTER
00800  M01S00013.ns2146  +++|          LDM    PREG+2      GET PROCESSOR CODE SEGMENT
00801  M01S00014.ns2146  +++|          LPN    17
00802  M01S00015.ns2146  +++|          SHN    10
00803  M01S00016.ns2146  +++|          ADM    PREG+3
00804  M01S00017.ns2146  +++|          SBN    CSNS
00805  M01S00018.ns2146  +++|          ZJN    CPU2.3      IF NOS SEGMENT
00806  M01S00019.ns2146  +++|          SBN    CSEI-CSNS
00807  M01S00020.ns2146  +++|          ZJN    CPU2.2      IF EI SEGMENT
00808  M01S00021.ns2146  +++|          SBN    CSVU-CSEI   DETERMINE NOS/VE SYSTEM OR USER SEGMENT
00809  M01S00022.ns2146  +++|          SHN    0-21
00810  M01S00023.ns2146  +++|          LMN    1
00811  M01S00024.ns2146  +++|          ADN    1
00812  M01S00025.ns2146  +++| CPU2.2   ADN    CI18        SET 180 USAGE CATEGORY
00813  M01S00026.ns2146  +++|          STD    T1
00814  M01S00027.ns2146  +++|          LJM    CPU6        INCREMENT CPU COUNT
00815  M01S00028.ns2146  +++|
00816  M01S00029.ns2146  +++|*         DETERMINE NOS CPU USAGE.
00817  M01S00030.ns2146  +++|
00818  M01S00031.ns2146  +++| CPU2.3   LDD    T2          GET CPU CPA ADDRESS
00819  M00S00714.cpd     +++|          ADC    CPAL
00820  M00S00715.cpd     +++|          CRD    CM
00821  M00S00716.cpd     +++|          LDD    CM+2
00822  M00S00717.cpd     +++|          ADN    TFSW
00823  M00S00718.cpd     +++|          CRD    CN
00824  M00S00719.cpd     +++|          SBN    TFSW-JCIW
00825  M00S00720.cpd     +++|          CRD    AB

Seq #  *Modification Id* Act 
----------------------------+
00826  M01S00721.cpd2    ---|          AOD    T1
00827  M00S00722.cpd     +++|          LDD    CM+2
00828  M00S00723.cpd     +++|          SHN    -7

Seq #  *Modification Id* Act 
----------------------------+
00829  M01S00724.cpd2    ---|          ZJN    CPU5        IF CPU ACTIVE AT CONTROL POINT ZERO

Seq #  *Modification Id* Act 
----------------------------+
00830  M02S00005.271l750 ---|          ZJN    CPU6        IF CPU IDLE
00831  M00S00725.cpd     +++|          LMD    NC

Seq #  *Modification Id* Act 
----------------------------+
00832  M01S00726.271l750 ---|          ZJN    CPU5        IF CPU ACTIVE AT SYSTEM CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00727.271l750 ---|          AOD    T1          INCREMENT CPU USAGE INDEX

Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00006.271l750 ---|          LDN    2           INCREMENT CPU USAGE INDEX

Seq #  *Modification Id* Act 
----------------------------+
00835  M01S00003.271l750 +++|          NJN    CPU2.4      IF CPU NOT ACTIVE AT SYSTEM CONTROL POINT
00836  M01S00004.271l750 +++|          LDD    CM+1        GET EXCHANGE PACKAGE TYPE
00837  M01S00005.271l750 +++|          SHN    -6
00838  M01S00006.271l750 +++|          SBN    IDXT
00839  M01S00007.271l750 +++|          PJN    CPU6        IF IDLE PACKAGE
00840  M01S00008.271l750 +++|          ADN    IDXT+1
00841  M01S00009.271l750 +++|          RAD    T1          SET INDEX FOR EXCHANGE PACKAGE
00842  M01S00010.271l750 +++|          UJN    CPU6        INCREMENT CPU USAGE COUNT
00843  M01S00011.271l750 +++|
00844  M01S00012.271l750 +++| CPU2.4   LDN    CISU        INCREMENT CPU USAGE INDEX TO SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
00845  M01S00007.cpd2    +++|          RAD    T1
00846  M00S00728.cpd     +++|          LDD    AB+2
00847  M00S00729.cpd     +++|          LMN    IRSI
00848  M00S00730.cpd     +++|          ZJN    CPU3        IF ROLLOUT INHIBITED
00849  M00S00731.cpd     +++|          LMN    IRSI
00850  M00S00732.cpd     +++|          ADC    -LSSI
00851  M00S00733.cpd     +++|          MJN    CPU4        IF NOT SUBSYSTEM
00852  M00S00734.cpd     +++| CPU3     STD    T3          INCREMENT SUBSYSTEM CPU USAGE
00853  M00S00735.cpd     +++|          ADO    SSCU,T3

Seq #  *Modification Id* Act 
----------------------------+
00854  M01S00736.cpd2    ---|          UJN    CPU5        INCREMENT USAGE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00008.cpd2    +++|          UJN    CPU6        INCREMENT USAGE COUNT
00856  M00S00737.cpd     +++|
00857  M00S00738.cpd     +++| CPU4     AOD    T1          INCREMENT CPU USAGE INDEX
00858  M00S00739.cpd     +++|          SFA    EJT,CN
00859  M00S00740.cpd     +++|          ADN    SCLE-JSNE   SET JOB ORIGIN TYPE
00860  M00S00741.cpd     +++|          CRD    CN
00861  M00S00742.cpd     +++|          LDD    CN
00862  M00S00743.cpd     +++|          LPN    17
00863  M00S00744.cpd     +++|          LMK    SYOT

Seq #  *Modification Id* Act 
----------------------------+
00864  M01S00745.cpd2    ---|          ZJN    CPU5        IF CPU ACTIVE ON SYSTEM ORIGIN JOB
00865  M01S00746.cpd2    ---|          AOD    T1          INCREMENT CPU USAGE INDEX
00866  M01S00747.cpd2    ---| CPU5     ADO    CTCU,T1     INCREMENT CPU USAGE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00867  M01S00009.cpd2    +++|          ZJN    CPU6        IF SYSTEM ORIGIN

Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00010.271l750 ---| CPU5     AOD    T1          INCREMENT CPU USAGE INDEX

Seq #  *Modification Id* Act 
----------------------------+
00869  M01S00013.271l750 +++|          AOD    T1          INCREMENT CPU USAGE INDEX

Seq #  *Modification Id* Act 
----------------------------+
00870  M01S00011.cpd2    +++| CPU6     ADO    CTCU,T1     INCREMENT CPU USAGE COUNT
00871  M00S00748.cpd     +++|          LJM    CPU1        PROCESS NEXT CPU
00872  M00S00749.cpd     +++|
00873  M00S00750.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
00874  M01S00032.ns2146  +++| MRER     EQU    CPUX        ERROR PROCESSOR ADDRESS FOR *COMPMRM*
00875  M01S00033.ns2146  +++|
00876  M01S00034.ns2146  +++| PCCC     BSS    1           PROCESSOR A CONNECT CODE
00877  M01S00035.ns2146  +++|          BSS    1           PROCESSOR B CONNECT CODE
00878  M01S00036.ns2146  +++|
00879  M00S00751.cpd     +++| TCPS     BSS    0           TABLE OF CPU STATUS (0=ON, 1=OFF)
00880  M00S00752.cpd     +++|          CON    0           CPU 0 ON/OFF FLAG
00881  M00S00753.cpd     +++|          CON    0           CPU 1 OF/OFF FLAG
00882  M00S00754.cpd     +++| TCPSL    EQU    *-TCPS      TABLE LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00883  M01S00037.ns2146  +++|
00884  M01S00038.ns2146  +++| PREG     BSS    10          P REGISTER FROM MAINTENANCE UNIT

Seq #  *Modification Id* Act 
----------------------------+
00885  M01S00755.v23l617 ---| RCS      SPACE  4,10
00886  M01S00756.v23l617 ---|**        RCS - RESET PMF COUNTER SELECTION.
00887  M01S00757.v23l617 ---|*
00888  M01S00758.v23l617 ---|*         ENTRY  (LO) = 0 IF INITIAL CALL (FROM PRESET).
00889  M01S00759.v23l617 ---|*                (TCSA0, TCSB0) = 0 IF NO PMF CACHE MEMORY.
00890  M01S00760.v23l617 ---|*
00891  M01S00761.v23l617 ---|*         EXIT   SCRT - SCRT+47D CONTAINS REGISTER 22 FOR WRITE.
00892  M01S00762.v23l617 ---|*
00893  M01S00763.v23l617 ---|*         USES   T1.
00894  M01S00764.v23l617 ---|*
00895  M01S00765.v23l617 ---|*         MACROS WRITMR.
00896  M01S00766.v23l617 ---|
00897  M01S00767.v23l617 ---|
00898  M01S00768.v23l617 ---| MRER     LDN    0           DISABLE PMF COLLECTION WHEN ERROR OCCURS
00899  M01S00769.v23l617 ---|          STM    DPPF
00900  M01S00770.v23l617 ---|          LDD    LO
00901  M01S00771.v23l617 ---|          ZJN    RCSX        IF INITIAL CALL TO *COMPMRA*
00902  M01S00772.v23l617 ---|          LJM    CPD6        PROCESS NEXT LOOP OPERATION
00903  M01S00773.v23l617 ---|
00904  M01S00774.v23l617 ---| RCS      SUBR               ENTRY/EXIT
00905  M01S00775.v23l617 ---|          LDN    PB3C+4      INITIALIZE PMF COUNTERS
00906  M01S00776.v23l617 ---|          STD    T1
00907  M01S00777.v23l617 ---| RCS1     LDN    0
00908  M01S00778.v23l617 ---|          STM    SCRT-1,T1
00909  M01S00779.v23l617 ---|          SOD    T1
00910  M01S00780.v23l617 ---|          NJN    RCS1        IF MORE COUNTERS TO INITIALIZE
00911  M01S00781.v23l617 ---| RCS2     LDM    TCTS,T1     PRESET COUNTERS *A0* THRU *B3*
00912  M01S00782.v23l617 ---|          STM    SCRT+PA0S,T1
00913  M01S00783.v23l617 ---|          AOD    T1
00914  M01S00784.v23l617 ---|          SBN    TCTSL
00915  M01S00785.v23l617 ---|          MJN    RCS2        IF MORE COUNTERS TO PRESET
00916  M01S00786.v23l617 ---|          WRITMR SCRT,,,48D  START PMF ACTIVITY
00917  M01S00787.v23l617 ---|          UJN    RCSX        RETURN
00918  M01S00788.v23l617 ---|
00919  M01S00789.v23l617 ---|
00920  M01S00790.v23l617 ---| TCTS     BSS    0           TABLE OF COUNTER SELECTIONS
00921  M01S00791.v23l617 ---|          LOC    PA0S
00922  M01S00792.v23l617 ---| TCSA0    CON    1           SELECT READS THROUGH CACHE
00923  M01S00793.v23l617 ---|*         CON    0           (NO CACHE MEMORY)
00924  M01S00794.v23l617 ---|          ERRNZ  PB0S-*      CODE DEPENDS ON LOCATION
00925  M01S00795.v23l617 ---| TCSB0    CON    5           SELECT READS NOT THROUGH CACHE
00926  M01S00796.v23l617 ---|*         CON    0           (NO CACHE MEMORY)
00927  M01S00797.v23l617 ---|          ERRNZ  PA1S-*      CODE DEPENDS ON LOCATION
00928  M01S00798.v23l617 ---|          CON    0#11        SELECT EXECUTIVE STATE COUNT
00929  M01S00799.v23l617 ---|          ERRNZ  PB1S-*      CODE DEPENDS ON LOCATION
00930  M01S00800.v23l617 ---|          CON    0#11        SELECT EXECUTIVE STATE COUNT
00931  M01S00801.v23l617 ---|          ERRNZ  PA2S-*      CODE DEPENDS ON LOCATION
00932  M01S00802.v23l617 ---|          CON    4           SELECT CM READ FOR PAGE TABLE
00933  M01S00803.v23l617 ---|          ERRNZ  PB2S-*      CODE DEPENDS ON LOCATION
00934  M01S00804.v23l617 ---|          CON    3           SELECT CM READ FOR SEGMENT TABLE
00935  M01S00805.v23l617 ---|*         ERRNZ  PA3S-*      CODE DEPENDS ON LOCATION
00936  M01S00806.v23l617 ---|*         CON    0           DISABLE A3 COUNTER
00937  M01S00807.v23l617 ---|*         ERRNZ  PB3S-*      CODE DEPENDS ON LOCATION
00938  M01S00808.v23l617 ---|*         CON    0           DISABLE B3 COUNTER
00939  M01S00809.v23l617 ---|          LOC    *O
00940  M01S00810.v23l617 ---| TCTSL    EQU    *-TCTS      TABLE LENGTH
00941  M00S00811.cpd     +++|          TITLE  RESIDENT SUBROUTINES.
00942  M00S00812.cpd     +++| ADA      SPACE  4,10
00943  M00S00813.cpd     +++|**        ADA - ADD VALUE TO BUFFER.
00944  M00S00814.cpd     +++|*
00945  M00S00815.cpd     +++|*         ENTRY  (A) = OFFSET INTO BUFFER FOR DOUBLE PRECISION WORD.
00946  M00S00816.cpd     +++|*                (BA) = BUFFER BASE ADDRESS.
00947  M00S00817.cpd     +++|*                (T8) = VALUE TO ADD TO DOUBLE PRECISION WORD.
00948  M00S00818.cpd     +++|*
00949  M00S00819.cpd     +++|*         USES   T9.
00950  M00S00820.cpd     +++|
00951  M00S00821.cpd     +++|
00952  M00S00822.cpd     +++| ADA      SUBR               ENTRY/EXIT
00953  M00S00823.cpd     +++|          ADD    BA
00954  M00S00824.cpd     +++|          STD    T9
00955  M00S00825.cpd     +++|          LDD    T8          ADD VALUE TO BUFFER
00956  M00S00826.cpd     +++|          RAM    1,T9
00957  M00S00827.cpd     +++|          SHN    -14
00958  M00S00828.cpd     +++|          RAI    T9
00959  M00S00829.cpd     +++|          UJN    ADAX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00960  M01S00001.273l780 +++| CCA      SPACE  4,10
00961  M01S00002.273l780 +++|**        CCA - COMPUTE CPA/PCPA ADDRESS.
00962  M01S00003.273l780 +++|*
00963  M01S00004.273l780 +++|*         ENTRY  (A) = CP/PCP NUMBER.
00964  M01S00005.273l780 +++|*                (NC) = NUMBER OF CONTROL POINTS.
00965  M01S00006.273l780 +++|*
00966  M01S00007.273l780 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
00967  M01S00008.273l780 +++|
00968  M01S00009.273l780 +++|
00969  M01S00010.273l780 +++| CCA1     ADD    NC
00970  M01S00011.273l780 +++|          SHN    7
00971  M01S00012.273l780 +++|
00972  M01S00013.273l780 +++| CCA      SUBR               ENTRY/EXIT
00973  M01S00014.273l780 +++|          SBD    NC
00974  M01S00015.273l780 +++|          MJN    CCA1        IF CONTROL POINT
00975  M01S00016.273l780 +++|          ZJN    CCA1        IF SYSTEM CONTROL POINT
00976  M01S00017.273l780 +++|          SHN    7
00977  M01S00018.273l780 +++| CCAA     ADC    **          (PCP AREAS BASE ADDRESS)
00978  M01S00019.273l780 +++|          UJN    CCAX        RETURN
00979  M00S00830.cpd     +++| CDS      SPACE  4,10
00980  M00S00831.cpd     +++|**        CDS - CHECK DROP STATUS.
00981  M00S00832.cpd     +++|*
00982  M00S00833.cpd     +++|*         ENTRY  (A) = 0 IF TRACK LIMIT.
00983  M00S00834.cpd     +++|*                (RC) = NUMBER OF RECORDS IN BUFFER.
00984  M00S00835.cpd     +++|*
00985  M00S00836.cpd     +++|*         EXIT   (A) = 0.
00986  M00S00837.cpd     +++|*                TO */3CS/DPP* IF PP TO BE DROPPED.
00987  M00S00838.cpd     +++|*
00988  M00S00839.cpd     +++|*         USES   CN, CM - CM+4.
00989  M00S00840.cpd     +++|*
00990  M00S00841.cpd     +++|*         CALLS  /3CR/SNO.
00991  M00S00842.cpd     +++|*
00992  M00S00843.cpd     +++|*         MACROS EXECUTE.
00993  M00S00844.cpd     +++|
00994  M00S00845.cpd     +++|
00995  M00S00846.cpd     +++| CDS      SUBR               ENTRY/EXIT
00996  M00S00847.cpd     +++|          STD    CN
00997  M00S00848.cpd     +++|          LDC    INWL        CHECK *CPD* DROP FLAG
00998  M00S00849.cpd     +++|          CRD    CM
00999  M00S00850.cpd     +++|          LDD    CM+4
01000  M00S00851.cpd     +++|          LPN    4
01001  M00S00852.cpd     +++|          ZJN    CDSX        IF NO DROP OUT
01002  M00S00853.cpd     +++|          LDD    CN

Seq #  *Modification Id* Act 
----------------------------+
01003  M01S00854.cpd3    ---|          ZJN    CDS1        IF TRACK LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01004  M01S00001.cpd3    +++|          ZJN    CDS2        IF TRACK LIMIT
01005  M00S00855.cpd     +++|          RJM    /3CR/SNO    PERFORM SNAPSHOT OPERATION
01006  M00S00856.cpd     +++|          AOD    RC          ADVANCE RECORD COUNT
01007  M00S00857.cpd     +++|          EXECUTE  3CS       LOAD FILE WRITE ROUTINES
01008  M00S00858.cpd     +++| CDS1     LJM    /3CS/DPP    DROP PP

Seq #  *Modification Id* Act 
----------------------------+
01009  M01S00002.cpd3    +++|
01010  M01S00003.cpd3    +++| CDS2     RJM    /3CS/CIS    CLEAR INTERLOCK STATUS
01011  M01S00004.cpd3    +++|          UJN    CDS1        DROP PP
01012  M00S00859.cpd     +++| RDM      SPACE  4,10
01013  M00S00860.cpd     +++|**        RDM - READ MEMORY TO BUFFER.
01014  M00S00861.cpd     +++|*
01015  M00S00862.cpd     +++|*         ENTRY  (A) = 6/ WORD COUNT, 12/ BUFFER OFFSET.
01016  M00S00863.cpd     +++|*                (T8 - T9) = CM ADDRESS TO READ FROM.
01017  M00S00864.cpd     +++|*
01018  M00S00865.cpd     +++|*         EXIT   (A) = CM LWA+1 OF DATA READ.
01019  M00S00866.cpd     +++|*
01020  M00S00867.cpd     +++|*         USES   LA.
01021  M00S00868.cpd     +++|
01022  M00S00869.cpd     +++|
01023  M00S00870.cpd     +++| RDM      SUBR               ENTRY/EXIT
01024  M00S00871.cpd     +++|          ADD    BA          CALCULATE BUFFER ADDRESS
01025  M00S00872.cpd     +++|          STM    RDMA
01026  M00S00873.cpd     +++|          SHN    -14
01027  M00S00874.cpd     +++|          STD    LA          SAVE WORD COUNT
01028  M00S00875.cpd     +++|          LDD    T8
01029  M00S00876.cpd     +++|          SHN    14
01030  M00S00877.cpd     +++|          ADD    T9
01031  M00S00878.cpd     +++|          CRM    **,LA
01032  M00S00879.cpd     +++| RDMA     EQU    *-1
01033  M00S00880.cpd     +++|          UJN    RDMX        RETURN
01034  M00S00881.cpd     +++|          SPACE  4,10
01035  M00S00882.cpd     +++|*         COMMON DECKS.
01036  M00S00883.cpd     +++|
01037  M00S00884.cpd     +++|
01038  M00S00885.cpd     +++| EJT$     EQU    1           INITIALIZE EJT PROCESSING
01039  M00S00886.cpd     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION CODE
01040  M00S00887.cpd     +++| QFT$     EQU    1           INITIALIZE QFT PROCESSING
01041  M00S00888.cpd     +++|*CALL     COMPGFP

Seq #  *Modification Id* Act 
----------------------------+
01042  M01S00039.ns2146  +++|*CALL     COMPMRA

Seq #  *Modification Id* Act 
----------------------------+
01043  M02S00006.273l780 ---|*CALL     COMPPCP

Seq #  *Modification Id* Act 
----------------------------+
01044  M01S00889.v23l617 ---|*CALL     COMPMRA
01045  M00S00890.cpd     +++|          SPACE  4,10
01046  M00S00891.cpd     +++|          USE    LITS        FLUSH LITERALS
01047  M00S00892.cpd     +++|          USE    *
01048  M00S00893.cpd     +++|          SPACE  4,10
01049  M00S00894.cpd     +++|*         CPD OVERLAY LOAD ADDRESS.
01050  M00S00895.cpd     +++|
01051  M00S00896.cpd     +++|
01052  M00S00897.cpd     +++| COVL     EQU    *+5         CPD OVERLAY LOAD ADDRESS
01053  M00S00898.cpd     +++|          TITLE  PRESET.
01054  M00S00899.cpd     +++|          QUAL   PRS
01055  M00S00900.cpd     +++|
01056  M00S00901.cpd     +++|
01057  M00S00902.cpd     +++|*         OVERLAID PRESET COMMON DECKS AND PRESET CODE.
01058  M00S00903.cpd     +++|
01059  M00S00904.cpd     +++|
01060  M00S00905.cpd     +++|*CALL     COMPCUA

Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00906.242l642 ---|*CALL     COMPSAF
01062  M01S00907.242l642 ---|*CALL     COMPSFB
01063  M00S00908.cpd     +++|
01064  M00S00909.cpd     +++|
01065  M00S00910.cpd     +++|          QUAL
01066  M00S00911.cpd     +++| IFP      HERE
01067  M00S00912.cpd     +++|          QUAL   *
01068  M00S00913.cpd     +++| PRS      SPACE  4,30
01069  M00S00914.cpd     +++|**        PRS - PRESET.
01070  M00S00915.cpd     +++|*
01071  M00S00916.cpd     +++|*         ENTRY  (IR+3 - IR+4) = FET ADDRESS.
01072  M00S00917.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01073  M01S00918.cpd6    ---|*         EXIT   (EC) = PMF ACCESS CODE.

Seq #  *Modification Id* Act 
----------------------------+
01074  M02S00919.cpd6    ---|*                (FA) = 0.

Seq #  *Modification Id* Act 
----------------------------+
01075  M02S00012.cpd6    ---|*                (FO) = 0.

Seq #  *Modification Id* Act 
----------------------------+
01076  M01S00008.cpd6    +++|*         EXIT   (FO) = 0.
01077  M00S00920.cpd     +++|*                (FITS) = 0 IF FILE INTERLOCK NOT REQUIRED.
01078  M00S00921.cpd     +++|*                (FS - FS+4) = DATA FILE FST.
01079  M00S00922.cpd     +++|*                (LE) = LAST ORDINAL + 1 OF DEFINED EST ENTRIES.
01080  M00S00923.cpd     +++|*                (LO) .NE. 0.
01081  M00S00924.cpd     +++|*                (ME) = NUMBER OF MASS STORAGE ENTRIES.
01082  M00S00925.cpd     +++|*                (NC) = NUMBER OF CONTROL POINTS.
01083  M00S00926.cpd     +++|*                (NP) = NUMBER OF PPUS.
01084  M00S00927.cpd     +++|*                (PC) = PPU COMMUNICATION AREA ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
01085  M01S00007.271l716 +++|*                (NM) = NUMBER OF MCT ENTRIES - 1.

Seq #  *Modification Id* Act 
----------------------------+
01086  M01S00928.271l750 ---|*                (RN) = PMF REGISTER NUMBER.
01087  M00S00929.cpd     +++|*                (RX) = MAXIMUM RECORD COUNT IN BUFFER.
01088  M00S00930.cpd     +++|*                (WC) = DATA RECORD WORD COUNT.
01089  M00S00931.cpd     +++|*                MAIN CODE/TABLES MODIFIED AS NEEDED.
01090  M00S00932.cpd     +++|*                TO *CPD11* TO ENTER MAIN LOOP.
01091  M00S00933.cpd     +++|*
01092  M00S00934.cpd     +++|*         ERROR  TO *ERR* IF ERROR ENCOUNTERED.
01093  M00S00935.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01094  M01S00936.242l642 ---|*         USES   BA, LI, LO, MS, SC, RC, RX, AB - AB+4,
01095  M01S00937.242l642 ---|*                CM - CM+4, CN - CN+4, FN - FN+4, T1 - T5.

Seq #  *Modification Id* Act 
----------------------------+
01096  M02S00013.273l780 ---|*         USES   BA, CP, FO, LI, LO, MD, MS, NC, NP, PC, SC, RC, RX,
01097  M02S00014.273l780 ---|*                WC, AB - AB+4, CM - CM+4, CN - CN+4, FS - FS+4,
01098  M02S00015.273l780 ---|*                IR - IR+4, T1 - T6.

Seq #  *Modification Id* Act 
----------------------------+
01099  M01S00020.273l780 +++|*         USES   BA, FO, LI, LO, MD, MS, NC, NP, PC, SC, RC, RX, WC,
01100  M01S00021.273l780 +++|*                AB - AB+4, CM - CM+4, CN - CN+4, FS - FS+4, IR - IR+4,
01101  M01S00022.273l780 +++|*                T1 - T6.
01102  M00S00938.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00939.242l642 ---|*         CALLS  CPT, CRS, CUA, DFM, IFP, RCS, RDB, RJC, SAF, SFB,
01104  M01S00940.242l642 ---|*                *3CS*, /3CS/CIS, /3CS/DPB, /3CS/RNT, /3CS/SIS,
01105  M01S00941.242l642 ---|*                /3CS/WES.

Seq #  *Modification Id* Act 
----------------------------+
01106  M01S00016.242l642 +++|*         CALLS  CPT, CRS, CUA, DFM, FAT, IFP, RCS, RDB, RJC, SAF,
01107  M01S00017.242l642 +++|*                SEI, SFB, *3CS*, /3CS/CIS, /3CS/DPB, /3CS/RNT,
01108  M01S00018.242l642 +++|*                /3CS/SIS, /3CS/WES.
01109  M00S00942.cpd     +++|*

Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00943.242l642 ---|*         MACROS ADV, EXECUTE, MONITOR, PAUSE, SFA, STA.

Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00019.271l716 ---|*         MACROS CFI, EXECUTE, MONITOR, PAUSE, SETMS, SFA, STA.

Seq #  *Modification Id* Act 
----------------------------+
01112  M02S00008.273l780 ---|*         MACROS CFI, EXECUTE, IPCP, MONITOR, PAUSE, SETMS, SFA, STA.

Seq #  *Modification Id* Act 
----------------------------+
01113  M01S00023.273l780 +++|*         MACROS CFI, EXECUTE, MONITOR, SETMS, SFA, STA.
01114  M00S00944.cpd     +++|
01115  M00S00945.cpd     +++|
01116  M00S00946.cpd     +++| PRS      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01117  M02S00009.273l780 ---|          IPCP               INITIALIZE *COMPPCP*

Seq #  *Modification Id* Act 
----------------------------+
01118  M01S00024.273l780 +++|          LDK    PCPP        SET FWA OF PCPA-S
01119  M01S00025.273l780 +++|          CRD    CM
01120  M01S00026.273l780 +++|          LDD    CM+3
01121  M01S00027.273l780 +++|          SHN    14
01122  M01S00028.273l780 +++|          LMD    CM+4
01123  M01S00029.273l780 +++|          SBK    200B
01124  M01S00030.273l780 +++|          STM    CCAA+1
01125  M01S00031.273l780 +++|          SHN    -14
01126  M01S00032.273l780 +++|          LMC    ADCI
01127  M01S00033.273l780 +++|          STM    CCAA
01128  M00S00947.cpd     +++|          RJM    IFP

Seq #  *Modification Id* Act 
----------------------------+
01129  M01S00948.242l642 ---|          LDN    0           CLEAR FST POINTER
01130  M01S00949.242l642 ---|          STD    FA

Seq #  *Modification Id* Act 
----------------------------+
01131  M01S00020.242l642 +++|          LDN    0           CLEAR FNT ORDINAL POINTER
01132  M01S00021.242l642 +++|          STD    FO
01133  M00S00950.cpd     +++|          RJM    CUA         CHECK USER ACCESS
01134  M00S00951.cpd     +++|          ZJN    PRS2        IF ACCESS ALLOWED

Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00952.v23l617 ---|          LDC    ERRA&ERRF   * CPD - ILLEGAL USER ACCESS.*

Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00007.v23l617 +++|          LDC    ERRA&ERRF   * CPD - USER ACCESS NOT VALID.*
01137  M00S00953.cpd     +++| PRS1     LMC    ERRF        * CPD - OVERLAY NOT IN RPL.*
01138  M00S00954.cpd     +++|          LJM    ERR         ISSUE ERROR MESSAGE
01139  M00S00955.cpd     +++|
01140  M00S00956.cpd     +++| PRS2     LDC    3R3CR       CHECK *3CR* IN RPL
01141  M00S00957.cpd     +++|*         LDC    3R3CS       (CHECK *3CS* IN RPL)
01142  M00S00958.cpd     +++| PRSA     EQU    *-1
01143  M00S00959.cpd     +++|          STD    CM+3
01144  M00S00960.cpd     +++|          SHN    -14
01145  M00S00961.cpd     +++|          STD    CM+2
01146  M00S00962.cpd     +++|          MONITOR  SPLM      SEARCH LIBRARY DIRECTORY
01147  M00S00963.cpd     +++|          LDD    CM+1
01148  M00S00964.cpd     +++|          SCN    77
01149  M00S00965.cpd     +++|          ZJN    PRS1        IF OVERLAY NOT IN RPL
01150  M00S00966.cpd     +++|          AOM    PRSA
01151  M00S00967.cpd     +++|          LPN    77
01152  M00S00968.cpd     +++|          SBN    1RS+1
01153  M00S00969.cpd     +++|          MJN    PRS2        IF MORE OVERLAYS TO CHECK
01154  M00S00970.cpd     +++|          LDN    1           CLEAR *CPD* DROP FLAG
01155  M00S00971.cpd     +++|          STD    CM+1
01156  M00S00972.cpd     +++|          STD    CM+2
01157  M00S00973.cpd     +++|          LDD    MA
01158  M00S00974.cpd     +++|          CWM    PRSC,ON
01159  M00S00975.cpd     +++|          MONITOR  UADM
01160  M00S00976.cpd     +++|
01161  M00S00977.cpd     +++|*         CHECK PARAMETER BLOCK ADDRESS.
01162  M00S00978.cpd     +++|
01163  M00S00979.cpd     +++|          LDD    IR+3        CHECK PARAMETER ADDRESS
01164  M00S00980.cpd     +++|          LPN    37
01165  M00S00981.cpd     +++|          STD    IR+3
01166  M00S00982.cpd     +++|          SHN    14
01167  M00S00983.cpd     +++|          LMD    IR+4
01168  M00S00984.cpd     +++|          SBN    2
01169  M00S00985.cpd     +++|          MJN    PRS3        IF ADDRESS .LT. 2
01170  M00S00986.cpd     +++|          ADN    2+FETL-1
01171  M00S00987.cpd     +++|          SHN    -6
01172  M00S00988.cpd     +++|          SBD    FL
01173  M00S00989.cpd     +++|          MJN    PRS4        IF PARAMETER BLOCK WITHIN FL
01174  M00S00990.cpd     +++| PRS3     LDC    ERRB        * CPD - PARAMETER ERROR.*
01175  M00S00991.cpd     +++|          LJM    ERR         ISSUE ERROR MESSAGE
01176  M00S00992.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
01177  M01S00993.242l642 ---|*         FIND DATA FILE.

Seq #  *Modification Id* Act 
----------------------------+
01178  M01S00022.242l642 +++|*         GET LOOP PARAMETERS.
01179  M00S00994.cpd     +++|
01180  M00S00995.cpd     +++| PRS4     LDD    IR+3        SET ARGUMENTS
01181  M00S00996.cpd     +++|          SHN    6
01182  M00S00997.cpd     +++|          ADD    RA
01183  M00S00998.cpd     +++|          SHN    6
01184  M00S00999.cpd     +++|          ADD    IR+4

Seq #  *Modification Id* Act 
----------------------------+
01185  M01S01000.242l642 ---|          CRD    FN

Seq #  *Modification Id* Act 
----------------------------+
01186  M01S01001.ns2357  ---|          ADN    5

Seq #  *Modification Id* Act 
----------------------------+
01187  M01S00005.ns2357  +++|          ADN    4           GET SAMPLE FILE OFFSET IN NFL
01188  M01S00006.ns2357  +++|          CRD    AB-1
01189  M01S00007.ns2357  +++|          ERRNZ  FO+1-AB     CODE DEPENDS ON VALUE
01190  M01S00008.ns2357  +++|          ADN    5-4
01191  M00S01002.cpd     +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
01192  M01S01003.242l642 ---|          LDC    HBUF        SET HEADER BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
01193  M01S00023.242l642 +++|          ADN    3
01194  M01S00024.242l642 +++|          CRD    CN          SET MODE
01195  M01S00025.242l642 +++|          LDD    CN+4

Seq #  *Modification Id* Act 
----------------------------+
01196  M02S00026.ns2357  ---|          ADC    4000        SET NON-ROLLABLE MODE
01197  M02S00027.ns2357  ---|          STD    MD
01198  M02S00028.ns2357  ---|          LMC    PTAP&4000

Seq #  *Modification Id* Act 
----------------------------+
01199  M01S00009.ns2357  +++|          LMN    PTAP

Seq #  *Modification Id* Act 
----------------------------+
01200  M01S00029.242l642 +++|          ZJN    PRS5        IF APPEND MODE REQUEST
01201  M01S00030.242l642 +++|          LMN    PTMD&PTAP
01202  M01S00031.242l642 +++|          ZJN    PRS5        IF MODIFY MODE
01203  M01S00032.242l642 +++|          LMN    PTWR&PTMD
01204  M01S00033.242l642 +++|          NJN    PRS3        IF NOT WRITE MODE
01205  M01S00034.242l642 +++|          STM    FITS        CLEAR INTERLOCK NEEDED
01206  M01S00035.242l642 +++| PRS5     LDC    HBUF        SET HEADER BUFFER ADDRESS
01207  M00S01004.cpd     +++|          STD    BA
01208  M00S01005.cpd     +++| .1       MICRO  1,2, "VERS" SET CPD VERSION
01209  M00S01006.cpd     +++| .2       MICRO  3,2, "VERS"
01210  M00S01007.cpd     +++|          LDC    2R".1"
01211  M00S01008.cpd     +++|          STM    CPDV,BA
01212  M00S01009.cpd     +++|          LDC    2R".2"
01213  M00S01010.cpd     +++|          STM    CPDV+1,BA
01214  M00S01011.cpd     +++|          LDD    CM+4
01215  M00S01012.cpd     +++|          STA    DLIL        SET FAST LOOP TIME
01216  M00S01013.cpd     +++|          STM    CPDB+0
01217  M00S01014.cpd     +++|          LDD    CM+3
01218  M00S01015.cpd     +++|          STA    DLML        SET MEDIUM LOOP TIME
01219  M00S01016.cpd     +++|          STM    CPDB+1
01220  M00S01017.cpd     +++|          LDD    CM+2
01221  M00S01018.cpd     +++|          STA    DLOL        SET SLOW LOOP TIME
01222  M00S01019.cpd     +++|          STM    CPDB+2
01223  M00S01020.cpd     +++|          LDD    CM+1
01224  M00S01021.cpd     +++|          STA    DLFW        SET SAMPLING/FILE WRITE LOOP TIME
01225  M00S01022.cpd     +++|          STM    CPDB+3

Seq #  *Modification Id* Act 
----------------------------+
01226  M01S01023.242l642 ---|          RJM    SAF         SEARCH FOR ASSIGNED FILE
01227  M01S01024.242l642 ---|          NJN    PRS5        IF FILE FOUND

Seq #  *Modification Id* Act 
----------------------------+
01228  M02S00036.ns2357  ---|
01229  M02S00037.ns2357  ---|*         FIND FAST ATTACH FILE.
01230  M02S00038.ns2357  ---|
01231  M02S00039.ns2357  ---|          LDD    IR+3        GET FILE NAME
01232  M02S00040.ns2357  ---|          SHN    6
01233  M02S00041.ns2357  ---|          ADD    RA
01234  M02S00042.ns2357  ---|          SHN    6
01235  M02S00043.ns2357  ---|          ADD    IR+4
01236  M02S00044.ns2357  ---|          CRD    CM
01237  M02S00045.ns2357  ---|          LDD    CP          GET USER FAMILY NAME
01238  M02S00046.ns2357  ---|          ADK    PFCW
01239  M02S00047.ns2357  ---|          CRD    CN
01240  M02S00048.ns2357  ---|          SFA    EST,CN+3    READ EQUIPMENT EST
01241  M02S00049.ns2357  ---|          ADK    EQDE
01242  M02S00050.ns2357  ---|          CRD    CN
01243  M02S00051.ns2357  ---|          LDD    CN+4        READ FAMILY NAME
01244  M02S00052.ns2357  ---|          SHN    3
01245  M02S00053.ns2357  ---|          ADN    PFGL
01246  M02S00054.ns2357  ---|          CRD    CN
01247  M02S00055.ns2357  ---|          RJM    FAT         SEARCH FOR FAST ATTACH FILE
01248  M02S00056.ns2357  ---|          ZJN    PRS7        IF FILE FOUND

Seq #  *Modification Id* Act 
----------------------------+
01249  M01S00010.ns2357  +++|          LDD    FO
01250  M01S00011.ns2357  +++|          NJN    PRS7        IF FILE FOUND
01251  M00S01025.cpd     +++|          LDC    ERRD        * CPD - FILE NOT FOUND.*

Seq #  *Modification Id* Act 
----------------------------+
01252  M01S01026.242l642 ---|          UJN    PRS7        ISSUE ERROR MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
01253  M01S00057.242l642 +++|          UJN    PRS8        ISSUE ERROR MESSAGE
01254  M00S01027.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
01255  M01S01028.242l642 ---| PRS5     RJM    SFB         SET FILE BUSY
01256  M01S01029.242l642 ---|          ZJN    PRS8        IF FILE SET BUSY
01257  M01S01030.242l642 ---|          LDN    0           SET NO FST PRESENT
01258  M01S01031.242l642 ---|          STD    FA
01259  M01S01032.242l642 ---| PRS6     LDC    ERRE        * CPD - FILE STATUS ERROR.*
01260  M01S01033.242l642 ---| PRS7     LJM    ERR         ISSUE ERROR MESSAGE
01261  M01S01034.242l642 ---|
01262  M01S01035.242l642 ---| PRS8     LDD    CM+4        CHECK FILE TYPE
01263  M01S01036.242l642 ---|          SHN    -6
01264  M01S01037.242l642 ---|          LMN    PMFT
01265  M01S01038.242l642 ---|          NJN    PRS6        IF NOT *PMFT* FILE
01266  M01S01039.242l642 ---|          LDD    CM+3        CHECK FILE MODE
01267  M01S01040.242l642 ---|          LPN    35
01268  M01S01041.242l642 ---|          ZJN    PRS9        IF W MODE
01269  M01S01042.242l642 ---|          LPN    30
01270  M01S01043.242l642 ---|          ZJN    PRS6        IF NOT M, A, RM, OR RA MODE
01271  M01S01044.242l642 ---| PRS9     STM    FITS        SET FILE INTERLOCK STATUS
01272  M01S01045.242l642 ---|          LDD    FS+2        CHECK CURRENT TRACK
01273  M01S01046.242l642 ---|          ZJN    PRS6        IF EMPTY FILE
01274  M01S01047.242l642 ---|          SFA    EST,FS      CHECK EQUIPMENT TYPE
01275  M01S01048.242l642 ---|          ADK    EQDE
01276  M01S01049.242l642 ---|          CRD    CM
01277  M01S01050.242l642 ---|          LDD    CM
01278  M01S01051.242l642 ---|          SHN    21-10
01279  M01S01052.242l642 ---|          MJN    PRS6        IF REMOVABLE EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
01280  M02S01053.242l642 ---|          LDC    SD7L        CHECK RECOVERY FST FIELD

Seq #  *Modification Id* Act 
----------------------------+
01281  M02S00008.242l642 ---|          LDC    CPDL        CHECK *CPD* ALREADY ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
01282  M01S01054.242l642 ---|          CRD    CN
01283  M01S01055.242l642 ---|          LDD    CN
01284  M01S01056.242l642 ---|          ZJN    PRS10       IF THIS COPY OF *CPD* ALLOWABLE
01285  M01S01057.242l642 ---|          LDC    ERRC        * CPD - ALREADY ACTIVE.*
01286  M01S01058.242l642 ---|          LJM    ERR         ISSUE ERROR MESSAGE AND DROP

Seq #  *Modification Id* Act 
----------------------------+
01287  M02S00058.ns2357  ---| PRS7     STD    CM+1        LOCAL FAST ATTACH FILE
01288  M02S00059.ns2357  ---|          LDD    T1          ATTACH FILE IN REQUESTED MODE
01289  M02S00060.ns2357  ---|          STD    CM+4
01290  M02S00061.ns2357  ---|          LDD    MD          SET MODE
01291  M02S00062.ns2357  ---|          STD    CM+2
01292  M02S00063.ns2357  ---|          LDN    AFAS        SET SUBFUNCTION
01293  M02S00064.ns2357  ---|          STD    CM+3
01294  M02S00065.ns2357  ---|          MONITOR  AFAM
01295  M02S00066.ns2357  ---|          LDD    CM+1
01296  M02S00067.ns2357  ---|          ZJN    PRS9        IF ATTACH COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
01297  M01S00012.ns2357  +++| PRS7     NFA    FO,R        READ FST INFORMATION
01298  M01S00013.ns2357  +++|          ADN    FSTL
01299  M01S00014.ns2357  +++|          CRD    T5          SET DIRECT CELLS
01300  M01S00015.ns2357  +++|          CRD    FS
01301  M01S00016.ns2357  +++|          LDD    IR+2
01302  M01S00017.ns2357  +++|          NJN    PRS9        IF FNT SLOT RESERVED

Seq #  *Modification Id* Act 
----------------------------+
01303  M01S00068.242l642 +++|          LDC    ERRE        * CPD - FILE STATUS ERROR.*
01304  M01S00069.242l642 +++| PRS8     LJM    ERR         ISSUE ERROR MESSAGE
01305  M01S00070.242l642 +++|

Seq #  *Modification Id* Act 
----------------------------+
01306  M02S00071.ns2357  ---| PRS9     LDD    T1          SET FILE ATTACHED
01307  M02S00072.ns2357  ---|          STD    FO
01308  M02S00073.ns2357  ---|          LDN    FNTP        GET FNT POINTER
01309  M02S00074.ns2357  ---|          CRD    T1
01310  M02S00075.ns2357  ---|          CFI    FNT,FO      GET FILE FNT
01311  M02S00076.ns2357  ---|          ADD    T1+1
01312  M02S00077.ns2357  ---|          SHN    6
01313  M02S00078.ns2357  ---|          ADD    T1
01314  M02S00079.ns2357  ---|          SHN    14
01315  M02S00080.ns2357  ---|          ADN    FSTG
01316  M02S00081.ns2357  ---|          CRD    FS
01317  M02S00082.ns2357  ---|          LDD    FS          SET EQUIPMENT
01318  M02S00083.ns2357  ---|          STD    T5
01319  M02S00084.ns2357  ---|          LDD    FS+1        SET TRACK FROM FST
01320  M02S00085.ns2357  ---|          STD    T6
01321  M02S00086.ns2357  ---|          RJM    SEI         SKIP TO END OF INFORMATION
01322  M02S00087.ns2357  ---|          LDD    T6          SET CURRENT TRACK
01323  M02S00088.ns2357  ---|          STD    FS+2

Seq #  *Modification Id* Act 
----------------------------+
01324  M01S00018.ns2357  +++| PRS9     RJM    SEI         SEARCH FOR EOI
01325  M01S00019.ns2357  +++|          LDD    T6
01326  M01S00020.ns2357  +++|          STD    FS+2        SET CURRENT TRACK

Seq #  *Modification Id* Act 
----------------------------+
01327  M01S00089.242l642 +++|          LDD    T7
01328  M01S00090.242l642 +++|          STD    FS+3
01329  M00S01059.cpd     +++|
01330  M00S01060.cpd     +++|*         DETERMINE NUMBER OF CONTROL POINTS, NUMBER OF PPUS,
01331  M00S01061.cpd     +++|*         AND FWA OF CHANNEL TABLE.
01332  M00S01062.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
01333  M01S01063.v23l617 ---| PRS10    LDN    NCPL        SET NUMBER OF CONTROL POINTS

Seq #  *Modification Id* Act 
----------------------------+
01334  M01S00009.v23l617 +++| PRS10    LDN    PPCP        SET PPU COMMUNICATION AREA ADDRESS
01335  M00S01064.cpd     +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
01336  M01S01065.v23l617 ---|          LDD    CM+1

Seq #  *Modification Id* Act 
----------------------------+
01337  M01S00010.v23l617 +++|          LDD    CM+4
01338  M01S00011.v23l617 +++|          STD    PC

Seq #  *Modification Id* Act 
----------------------------+
01339  M01S00001.252l678 +++|          LDD    CM+2        SET CURRENT USER EM SHIFT COUNT
01340  M01S00002.252l678 +++|          ERRNZ  MEFL-PPCP
01341  M01S00003.252l678 +++|          SHN    -11
01342  M01S00004.252l678 +++|          STA    UESC

Seq #  *Modification Id* Act 
----------------------------+
01343  M01S00012.v23l617 +++|          LDC    CHTP        SET FWA OF CHANNEL TABLE
01344  M01S00013.v23l617 +++|          CRD    CM
01345  M01S00014.v23l617 +++|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
01346  M02S00015.251l664 ---|          RAM    CHUB

Seq #  *Modification Id* Act 
----------------------------+
01347  M01S00027.251l664 +++|          RAM    CHUA

Seq #  *Modification Id* Act 
----------------------------+
01348  M01S00016.v23l617 +++|          LDD    CM+3

Seq #  *Modification Id* Act 
----------------------------+
01349  M02S00017.251l664 ---|          STM    CHUB+1

Seq #  *Modification Id* Act 
----------------------------+
01350  M01S00028.251l664 +++|          STM    CHUA+1

Seq #  *Modification Id* Act 
----------------------------+
01351  M01S00018.v23l617 +++|          LDN    PPUL        READ PP AND CHANNEL COUNT
01352  M01S00019.v23l617 +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
01353  M01S00029.251l664 +++|          ERRNZ  PPUL-CPPL   CODE ASSUMES NPP/CPP DATA IN SAME WORD

Seq #  *Modification Id* Act 
----------------------------+
01354  M01S00010.271l716 +++|          ADK    MCTP-CPPL   GET NUMBER OF MCT ENTRIES
01355  M01S00011.271l716 +++|          CRD    AB

Seq #  *Modification Id* Act 
----------------------------+
01356  M01S00030.251l664 +++|          LDD    CM+3        SET NUMBER OF PHYSICALLY PRESENT CPP-S
01357  M01S00031.251l664 +++|          LPN    77
01358  M01S00032.251l664 +++|          STD    T0
01359  M01S00033.251l664 +++|          STA    NCPP
01360  M01S00034.251l664 +++|          LDD    T0          SET MAXIMUM CHANNEL FOR REQUEST/RESERVE
01361  M01S00035.251l664 +++|          RAM    CHUB

Seq #  *Modification Id* Act 
----------------------------+
01362  M01S00020.v23l617 +++|          LDD    CM+1        SET NUMBER OF CONTROL POINTS

Seq #  *Modification Id* Act 
----------------------------+
01363  M01S01066.251l664 ---|          STA    MXNC

Seq #  *Modification Id* Act 
----------------------------+
01364  M01S00036.251l664 +++|          STA    NCPT
01365  M00S01067.cpd     +++|          ADN    1
01366  M00S01068.cpd     +++|          STD    NC

Seq #  *Modification Id* Act 
----------------------------+
01367  M01S00012.271l716 +++|          SOD    AB+2        SET NUMBER OF MCT ENTRIES - 1
01368  M01S00013.271l716 +++|          STD    NM
01369  M01S00014.271l716 +++|          SBD    NC          SET NUMBER OF PCP-S
01370  M01S00015.271l716 +++|          STA    NPCP

Seq #  *Modification Id* Act 
----------------------------+
01371  M01S01069.v23l617 ---|          LDN    PPCP        SET PPU COMMUNICATION AREA ADDRESS
01372  M01S01070.v23l617 ---|          CRD    CM
01373  M01S01071.v23l617 ---|          LDD    CM+4
01374  M01S01072.v23l617 ---|          STD    PC
01375  M01S01073.v23l617 ---|          LDC    CHTP        SET FWA OF CHANNEL TABLE
01376  M01S01074.v23l617 ---|          CRD    CM
01377  M01S01075.v23l617 ---|          LDD    CM+2
01378  M01S01076.v23l617 ---|          RAM    CHUB
01379  M01S01077.v23l617 ---|          LDD    CM+3
01380  M01S01078.v23l617 ---|          STM    CHUB+1
01381  M01S01079.v23l617 ---|          LDN    PPUL
01382  M01S01080.v23l617 ---|          CRD    CM
01383  M01S01081.v23l617 ---|          LDD    CM+2

Seq #  *Modification Id* Act 
----------------------------+
01384  M01S00021.v23l617 +++|          LDD    CM          SET CHANNEL COUNT
01385  M01S00022.v23l617 +++|          ADN    1

Seq #  *Modification Id* Act 
----------------------------+
01386  M02S00023.251l664 ---|          RAM    CHUA

Seq #  *Modification Id* Act 
----------------------------+
01387  M01S00037.251l664 +++|          RAM    CHUC

Seq #  *Modification Id* Act 
----------------------------+
01388  M01S00024.v23l617 +++|          LDD    CM+2        SET PP COUNT
01389  M00S01082.cpd     +++|          STD    NP
01390  M00S01083.cpd     +++|          STD    T1          CHECK INACTIVE PPS
01391  M00S01084.cpd     +++|          STD    T2

Seq #  *Modification Id* Act 
----------------------------+
01392  M01S01085.v23l617 ---|          SBN    10D+1
01393  M01S01086.v23l617 ---|          MJN    PRS11       IF 10 PP MAINFRAME
01394  M01S01087.v23l617 ---|          LDN    34-16       SET NUMBER OF CHANNELS
01395  M01S01088.v23l617 ---|          RAM    CHUA
01396  M00S01089.cpd     +++| PRS11    SOD    T2
01397  M00S01090.cpd     +++|          MJN    PRS12       IF NO MORE PPS TO CHECK
01398  M00S01091.cpd     +++|          SHN    3
01399  M00S01092.cpd     +++|          ADD    PC
01400  M00S01093.cpd     +++|          CRD    AB
01401  M00S01094.cpd     +++|          LDD    AB
01402  M00S01095.cpd     +++|          LMC    2R**
01403  M00S01096.cpd     +++|          NJN    PRS11       IF NOT INACTIVE PP
01404  M00S01097.cpd     +++|          SOD    T1          DECREMENT ACTIVE PP COUNT
01405  M00S01098.cpd     +++|          UJN    PRS11       LOOP FOR NEXT PP
01406  M00S01099.cpd     +++|
01407  M00S01100.cpd     +++| PRS12    LDD    T1          SET ACTIVE PP COUNT

Seq #  *Modification Id* Act 
----------------------------+
01408  M01S01101.251l664 ---|          STA    MXNP

Seq #  *Modification Id* Act 
----------------------------+
01409  M01S00038.251l664 +++|          STA    NNPP
01410  M00S01102.cpd     +++|

Seq #  *Modification Id* Act 
----------------------------+
01411  M01S01103.252l678 ---|*         SET CPU INFORMATION, CMR SIZE, ECS/ESM SIZE, AND MEMORY SIZE
01412  M01S01104.252l678 ---|*         IN HEADER RECORD.

Seq #  *Modification Id* Act 
----------------------------+
01413  M01S00005.252l678 +++|*         SET CPU INFORMATION, MEMORY SIZES IN HEADER RECORD.
01414  M00S01105.cpd     +++|
01415  M00S01106.cpd     +++|          LDC    MABL        READ MAINFRAME ATTRIBUTES
01416  M00S01107.cpd     +++|          CRD    CM

Seq #  *Modification Id* Act 
----------------------------+
01417  M01S00040.ns2146  +++|          ADN    EABL-MABL

Proceed to Part 1