User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:rec

Deck REC

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.rec     +++|          IDENT  REC,REC
00002  M00S00002.rec     +++|          PERIPH
00003  M00S00003.rec     +++|          BASE   MIXED
00004  M00S00004.rec     +++|          SST
00005  M00S00005.rec     +++| EQV$     EQU    1           DEFINE NO EQUIPMENT CHECK FOR *COMPRSS*
00006  M00S00006.rec     +++| MSR$     EQU    1           SELECT ERROR PROCESSING FOR *RNS*
00007  M00S00007.rec     +++| IRA$     EQU    1           FLAG RANDOM ACCESS PROCESSORS INITIALIZED
00008  M00S00008.rec     +++| SEI$     EQU    1           SELECT TRT UPDATE FOR *COMPSEI*
00009  M00S00009.rec     +++|*COMMENT  REC - SYSTEM RECOVERY PROCESSSOR.
Line S00010 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00010.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M00S00011.rec     +++|          TITLE  REC - SYSTEM RECOVERY PROCESSOR.
00013  M00S00012.rec     +++|          SPACE  4
00014  M00S00013.rec     +++|***       REC - SYSTEM RECOVERY PROCESSOR.
00015  M00S00014.rec     +++|*
00016  M00S00015.rec     +++|*         G. R. MANSFIELD.   70/12/17.
00017  M00S00016.rec     +++|*         J. L. WARDELL.     72/08/17.
00018  M00S00017.rec     +++|*         S. L. BETH.        74/12/17.
00019  M00S00018.rec     +++|*         P. D. HAAS.        76/08/11.
00020  M00S00019.rec     +++|          SPACE  4
00021  M00S00020.rec     +++|***              *REC* PROCESSES SYSTEM RECOVERY.
00022  M00S00021.rec     +++|          SPACE  4,10
00023  M00S00022.rec     +++|***       DAYFILE MESSAGES.
00024  M00S00023.rec     +++|*
00025  M00S00024.rec     +++|*
00026  M00S00025.rec     +++|*         THE FOLLOWING MESSAGES MAY APPEAR IN THE SYSTEM DAYFILE
00027  M00S00026.rec     +++|*         AFTER A CM RECOVERY.  EACH IS SELF EXPLANATORY AND
00028  M00S00027.rec     +++|*         INDICATES THE NUMBER OF FILES IN A GIVEN CATEGORY FOUND
00029  M00S00028.rec     +++|*         IN THE ASSOCIATED MANAGED TABLE.
00030  M00S00029.rec     +++|*
00031  M00S00030.rec     +++|*                MESSAGES ASSOCIATED WITH THE FNT.
00032  M00S00031.rec     +++|*
00033  M00S00032.rec     +++|*         *NNNN FAST ATTACH FILES RECOVERED.*
00034  M00S00033.rec     +++|*
00035  M00S00034.rec     +++|*                MESSAGES ASSOCIATED WITH THE EJT.
00036  M00S00035.rec     +++|*
00037  M00S00036.rec     +++|*         *NNNN PRE-INITIAL JOB FILES RECOVERED.*
00038  M00S00037.rec     +++|*
00039  M00S00038.rec     +++|*         *NNNN EXECUTING JOB FILES RECOVERED.*
00040  M00S00039.rec     +++|*
00041  M00S00040.rec     +++|*         *NNNN ROLLOUT FILES RECOVERED.*
00042  M00S00041.rec     +++|*
00043  M00S00042.rec     +++|*         *NNNN SCP ROLLIN FILES RECOVERED.*
00044  M00S00043.rec     +++|*
00045  M00S00044.rec     +++|*         *NNNN SCP ROLLOUT FILES RECOVERED.*
00046  M00S00045.rec     +++|*
00047  M00S00046.rec     +++|*         *NNNN T/E ROLLOUT FILES RECOVERED.*
00048  M00S00047.rec     +++|*
00049  M00S00048.rec     +++|*         *NNNN I/A ROLLOUT FILES RECOVERED.*
00050  M00S00049.rec     +++|*
00051  M00S00050.rec     +++|*         *NNNN DISABLED ROLLOUT FILES RECOVERED.*
00052  M00S00051.rec     +++|*
00053  M00S00052.rec     +++|*         *NNNN SUSPENDED ROLLOUT FILES RECOVERED.*
00054  M00S00053.rec     +++|*
00055  M00S00054.rec     +++|*         *NNNN ROLLOUT ERROR FILES RECOVERED.*
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00056  M01S00001.271l716 +++|*
00057  M01S00002.271l716 +++|*         *NNNN PCP ROLLOUT FILES RECOVERED.*
00058  M00S00055.rec     +++|*
Line S00001 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00001.273l780 +++|*         *NNNN PRE-INITIAL WAIT FILES RECOVERED.*
00060  M01S00002.273l780 +++|*
00061  M01S00003.273l780 +++|*         *NNNN SERVICE LIMIT WAIT FILES RECOVERED.*
00062  M01S00004.273l780 +++|*
00063  M00S00056.rec     +++|*                MESSAGES ASSOCIATED WITH THE QFT.
00064  M00S00057.rec     +++|*
00065  M00S00058.rec     +++|*         *NNNN INPUT FILES RECOVERED.*
00066  M00S00059.rec     +++|*
00067  M00S00060.rec     +++|*         *NNNN PUNCH FILES RECOVERED.*
00068  M00S00061.rec     +++|*
00069  M00S00062.rec     +++|*         *NNNN PLOT FILES RECOVERED.*
00070  M00S00063.rec     +++|*
00071  M00S00064.rec     +++|*         *NNNN PRINT FILES RECOVERED.*
00072  M00S00065.rec     +++|*
00073  M00S00066.rec     +++|*         *NNNN WAIT QUEUE FILES RECOVERED.*
00074  M00S00067.rec     +++|*
00075  M00S00068.rec     +++|*         *NNNN SPECIAL FILES RECOVERED.*
Line S00003 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00003.271l716 +++|*
00077  M01S00004.271l716 +++|*         THE FOLLOWING MESSAGE INDICATES CM RECOVERY IS ABORTED DUE TO
00078  M01S00005.271l716 +++|*         PCP ROLLIN/ROLLOUT IN PROGRESS.
00079  M01S00006.271l716 +++|*
00080  M01S00007.271l716 +++|*         * PCPNN CPA/MOVING.*
00081  M00S00069.rec     +++|          SPACE  4
00082  M00S00070.rec     +++|***       ERROR LOG MESSAGES.
00083  M00S00071.rec     +++|*
00084  M00S00072.rec     +++|*
00085  M00S00073.rec     +++|*         *CHXX,YYYYYYYYY.* = EQUIPMENT ON CHANNEL XX IS RUNNING WITH
00086  M00S00074.rec     +++|*         FIRMWARE REVISION YYYYYYYYY.
00087  M00S00075.rec     +++|*
00088  M00S00076.rec     +++|*         *ETXXX, UYY,PS=ZZZZZZ.* = THE PACK ON PHYSICAL UNIT YY OF EST
00089  M00S00077.rec     +++|*         ORDINAL XXX OF TYPE ET HAS A SERIAL NUMBER OF ZZZZZZ.
00090  M00S00078.rec     +++|          SPACE  4
00091  M00S00079.rec     +++|***       ENTRY CONDITIONS.
00092  M00S00080.rec     +++|*
00093  M00S00081.rec     +++|*
00094  M00S00082.rec     +++|*         (IR+4) = RECOVERY STATUS.
00095  M00S00083.rec     +++|          SPACE  4
00096  M00S00084.rec     +++|**        ROUTINES USED.
00097  M00S00085.rec     +++|*
00098  M00S00086.rec     +++|*
00099  M00S00087.rec     +++|*         4DA - CLEANUP PRESERVED FILE INTERLOCKS.
00100  M00S00088.rec     +++|*         0CI - IDENTIFY FIRMWARE.
00101  M00S00089.rec     +++|*         0PI - LIST PACK SERIAL NUMBERS.
00102  M00S00090.rec     +++|*         0DQ - DEQUEUE FILE.
00103  M00S00091.rec     +++|          SPACE  4
00104  M00S00092.rec     +++|*CALL     COMPMAC
00105  M00S00093.rec     +++|*CALL     COMSACC
00106  M00S00094.rec     +++|*CALL     COMSCPS
00107  M00S00095.rec     +++|*CALL     COMSDFS
Line S00001 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00108  M01S00001.ns2738  +++|          QUAL   DFT
00109  M00S00096.rec     +++|*CALL     COMSDFT
Line S00002 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00002.ns2738  +++|          QUAL   *
00111  M00S00097.rec     +++|*CALL     COMSDSL
00112  M00S00098.rec     +++|*CALL     COMSDST
00113  M00S00099.rec     +++|*CALL     COMSEJT
00114  M00S00100.rec     +++|*CALL     COMSHIO
00115  M00S00101.rec     +++|*CALL     COMSJIO
00116  M00S00102.rec     +++|*CALL     COMSMMF
00117  M00S00103.rec     +++|*CALL     COMSMSC
00118  M00S00104.rec     +++|*CALL     COMSMSP
00119  M00S00105.rec     +++|*CALL     COMSMST
Line S00001 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00120  M01S00001.271l750 +++|*CALL     COMSMTR
Line S00106 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00121  M01S00106.282l826 ---|          QUAL   COMSMTX
Line S00001 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00122  M01S00001.282l826 +++|          QUAL   MTX
00123  M00S00107.rec     +++|*CALL     COMSMTX
00124  M00S00108.rec     +++|          QUAL   *
Line S00001 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00001.ns2729  +++|          QUAL   COMSPFM
00126  M00S00109.rec     +++|*CALL     COMSPFM
Line S00002 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00002.ns2729  +++|          QUAL   *
00128  M00S00110.rec     +++|*CALL     COMSPIM
Line S00008 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00129  M01S00008.271l716 +++|*CALL     COMSPRD
00130  M00S00111.rec     +++|          QUAL   SCD
00131  M00S00112.rec     +++|*CALL     COMSSCD
00132  M00S00113.rec     +++|          QUAL   *
00133  M00S00114.rec     +++|*CALL     COMSSSD
00134  M00S00115.rec     +++|*CALL     COMSSSE
00135  M00S00116.rec     +++|*CALL     COMSWEI
00136  M00S00117.rec     +++|*CALL     COMSZOL
00137  M00S00118.rec     +++|*CALL     COMS1DS
00138  M00S00119.rec     +++|          SPACE  4
00139  M00S00120.rec     +++|****      DIRECT LOCATION ASSIGNMENTS.
00140  M00S00121.rec     +++|
00141  M00S00122.rec     +++|
00142  M00S00123.rec     +++| NT       EQU    16          TRACK COUNT
Line S00124 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00143  M01S00124.273l780 ---| EF       EQU    17          ERROR FLAG
00144  M00S00125.rec     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00145  M00S00126.rec     +++| CE       EQU    25          CHECKPOINT DEVICE EST ORDINAL
00146  M00S00127.rec     +++| QA       EQU    26          MANAGED TABLE ORDINAL
00147  M00S00128.rec     +++| ST       EQU    27          SYSTEM TRACK NUMBER
00148  M00S00129.rec     +++| CN       EQU    30 - 34     CM WORD BUFFER (5 LOCATIONS)
00149  M00S00130.rec     +++| QT       EQU    35          QUEUED FILE TRACK
00150  M00S00131.rec     +++| QS       EQU    36          QUEUED FILE SECTOR
00151  M00S00132.rec     +++| QI       EQU    37          QUEUE INDEX
00152  M00S00133.rec     +++| FN       EQU    40 - 44     FNT ENTRY (5 LOCATIONS)
00153  M00S00134.rec     +++| CR       EQU    45          CM BUFFER ADDRESS
00154  M00S00135.rec     +++| DI       EQU    46          DEVICE INITIALIZATION COUNT
Line S00136 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00136.271l716 ---|*UNUSED   EQU    47          UNUSED
Line S00009 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00009.271l716 +++| NS       EQU    47          NUMBER OF CP-S + PCP-S
00157  M00S00137.rec     +++| NC       EQU    IR+2        NUMBER OF CONTROL POINTS
00158  M00S00138.rec     +++| RS       EQU    IR+4        RECOVERY STATUS
00159  M00S00139.rec     +++| FA       EQU    57          FNT ADDRESS / ORDINAL
00160  M00S00140.rec     +++| LO       EQU    60          LAST MASS STORAGE ORDINAL + 1
Line S00010 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00161  M01S00010.271l716 +++| PN       EQU    61          CP / PCP NUMBER
00162  M00S00141.rec     +++| EO       EQU    62          EJT ORDINAL
00163  M00S00142.rec     +++| CA       EQU    63 - 67     CENTRAL ADDRESS (2 LOCATIONS)
00164  M00S00143.rec     +++| EC       EQU    CA+2        MANAGED TABLE ENTRY COUNT
00165  M00S00144.rec     +++| LM       EQU    CA+3 - CA+4 LIMIT ADDRESS (2 LOCATIONS)
00166  M00S00145.rec     +++|****
00167  M00S00146.rec     +++|          SPACE  4,10
00168  M00S00147.rec     +++|**        NFL FNT SECTOR EQUIVALENCES.
00169  M00S00148.rec     +++|
00170  M00S00149.rec     +++| TMP1     EQU    FNTN+77
00171  M00S00150.rec     +++| TMP2     EQU    FNTN/100*100
00172  M00S00151.rec     +++| FNTS     EQU    TMP1/100    FIRST SECTOR OF FNT-S IN NFL
00173  M00S00152.rec     +++| FNTT     EQU    FNTN-TMP2-LENF  NON-FNT WORDS IN FIRST FNT SECTOR
00174  M00S00153.rec     +++|
00175  M00S00154.rec     +++| SBUFL    EQU    2*500       DEFINE BUFFER SIZE
00176  M00S00155.rec     +++|          SPACE  4,10
00177  M00S00156.rec     +++|*         DEFINE UNQUALIFIED *COMSSCD* SYMBOLS.
00178  M00S00157.rec     +++|
00179  M00S00158.rec     +++| DSSC     EQU    /SCD/DSSC
00180  M00S00159.rec     +++| SSSC     EQU    /SCD/SSSC
00181  M00S00160.rec     +++| MXJC     EQU    /SCD/MXJC
00182  M00S00161.rec     +++|          TITLE  MAIN PROGRAM.
00183  M00S00162.rec     +++| REC      SPACE  4
00184  M00S00163.rec     +++|**        REC - MAIN PROGRAM.
00185  M00S00164.rec     +++|
00186  M00S00165.rec     +++|
00187  M00S00166.rec     +++|          ORG    PPFW
00188  M00S00167.rec     +++| REC      RJM    PRS         PRESET PROGRAM
00189  M00S00168.rec     +++|          LDD    RS
00190  M00S00169.rec     +++|          ZJN    REC2        IF NO RECOVERY
00191  M00S00170.rec     +++|          RJM    SYS         RECOVER SYSTEM FILE
00192  M00S00171.rec     +++|          NJN    REC1        IF JOBS NOT RECOVERED FROM CM
00193  M00S00172.rec     +++|          RJM    CCP         CLEANUP CONTROL POINTS
00194  M00S00173.rec     +++| REC1     RJM    RMT         RECOVER MANAGED TABLES
Line S00174 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00195  M01S00174.273l780 ---|          LDD    NC          RESET CONTROL POINT ADDRESS
00196  M01S00175.273l780 ---|          SHN    7
00197  M01S00176.273l780 ---|          STD    CP
00198  M00S00177.rec     +++| REC2     EXECUTE  4RA       SET UP DAYFILES
00199  M00S00178.rec     +++|          LDC    DSCP*200+MS1W
00200  M00S00179.rec     +++|          CWM    MSGA,TR     *RECOVERY COMPLETE.*
00201  M00S00180.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00202  M00S00181.rec     +++|          LPN    SYMK
00203  M00S00182.rec     +++|          NJP    REC5        IF RECOVERING SYSTEM
00204  M00S00183.rec     +++|
00205  M00S00184.rec     +++|*         START SYSTEM TAPE LOAD AND WAIT FOR COMPLETION.
00206  M00S00185.rec     +++|
Line S00186 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00207  M01S00186.273l780 ---|          LDC    DSCP+4000   MOVE TO DEADSTART CONTROL POINT
Line S00005 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00208  M01S00005.273l780 +++|          LDC    DSCP+ENRS   MOVE TO DEADSTART CONTROL POINT
00209  M00S00187.rec     +++|          STD    CM+1
Line S00188 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00210  M01S00188.273l780 ---|          LPN    37
00211  M01S00189.273l780 ---|          SHN    7
00212  M01S00190.273l780 ---|          STD    CP
00213  M00S00191.rec     +++|          MONITOR CCAM
00214  M00S00192.rec     +++|*         LDN    0
00215  M00S00193.rec     +++|          ERRNZ  SYFO        SYSTEM FILE ORDINAL .NE. 0
00216  M00S00194.rec     +++|          STD    QA
00217  M00S00195.rec     +++|          SOD    IR+3        SET RECOVERY COMPLETE
00218  M00S00196.rec     +++|          LDD    IA          STORE INPUT REGISTER
00219  M00S00197.rec     +++|          CWD    IR
00220  M00S00198.rec     +++| REC3     PAUSE  NE
00221  M00S00199.rec     +++|          SFA    FNT,QA      READ SYSTEM FILE FNT
00222  M00S00200.rec     +++|          CRD    CM
00223  M00S00201.rec     +++|          LDD    CM+4        CHECK STATUS
00224  M00S00202.rec     +++|          LPN    1
00225  M00S00203.rec     +++|          NJN    REC3        IF SYSTEM FILE BUSY
00226  M00S00204.rec     +++|          LDD    NC          MOVE TO SYSTEM CONTROL POINT
00227  M00S00205.rec     +++|          STD    CM+1
Line S00206 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00206.273l780 ---|          SHN    7
00229  M01S00207.273l780 ---|          STD    CP
00230  M00S00208.rec     +++|          MONITOR CCAM
00231  M00S00209.rec     +++| REC4     LDC    DSCP*CPAS+TFSW  CHECK CONTROL POINT ACTIVITY
00232  M00S00210.rec     +++|          CRD    CM
00233  M00S00211.rec     +++|          LDD    CM
00234  M00S00212.rec     +++|          NJN    REC4        IF DEADSTART CONTROL POINT ACTIVE
00235  M00S00213.rec     +++|
00236  M00S00214.rec     +++|*         COMPLETE RECOVERY OPERATIONS.
00237  M00S00215.rec     +++|
00238  M00S00216.rec     +++| REC5     LDN    DSCL        CHECK *DSD*
00239  M00S00217.rec     +++|          CRD    CM
00240  M00S00218.rec     +++|          LMD    CM+1
00241  M00S00219.rec     +++|          NJN    REC5        IF DATE/TIME NOT YET ENTERED
00242  M00S00220.rec     +++|          RJM    /RDB/USS    UPDATE NEW DAYFILES SYSTEM SECTORS
00243  M00S00221.rec     +++|          EXECUTE  4RE       ISSUE DEADSTART MESSAGES
00244  M00S00222.rec     +++|          LDD    RS
00245  M00S00223.rec     +++|          ZJN    REC6        IF NOT RECOVERY DEADSTART
00246  M00S00224.rec     +++|          EXECUTE  4RC       RECOVER CHANNEL/EQUIPMENT STATUS
00247  M00S00225.rec     +++|
00248  M00S00226.rec     +++|*         IDENTIFY MASS STORAGE EQUIPMENT.
00249  M00S00227.rec     +++|
00250  M00S00228.rec     +++| REC6     EXECUTE  4RG       PROCESS ERROR LOGS
00251  M00S00229.rec     +++|          RJM    SRM         SEND RECOVERY MESSAGES
Line S00001 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
00252  M01S00001.ns2500  +++|          LDN    ZERL
00253  M01S00002.ns2500  +++|          CRD    CM
00254  M01S00003.ns2500  +++|          ADN    DSDL-ZERL   CLEAR *DSD* BUFFER INTERLOCK
00255  M01S00004.ns2500  +++|          CWD    CM
00256  M00S00230.rec     +++| RECA     LDN    1
00257  M00S00231.rec     +++|*         LDN    0           (MASS STORAGE VALIDATION ENABLED)
00258  M00S00232.rec     +++|          ZJN    REC7        IF MASS STORAGE VALIDATION ENABLED
00259  M00S00233.rec     +++|          LDD    RS
00260  M00S00234.rec     +++|          NJN    REC8        IF RECOVERY REQUESTED
00261  M00S00235.rec     +++| REC7     EXECUTE 4RH        RECOVER MASS STORAGE DEVICES
00262  M00S00236.rec     +++| REC8     LDN    ZERL
00263  M00S00237.rec     +++|          CRD    CM
Line S00238 Modification History
M01 (Removed by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
00264  M01S00238.ns2500  ---|          ADN    DSDL-ZERL   CLEAR *DSD* BUFFER INTERLOCK
00265  M01S00239.ns2500  ---|          CWD    CM
00266  M00S00240.rec     +++|          LDD    MA          STORE INPUT REGISTER FOR *1DS*
00267  M00S00241.rec     +++|          CWM    RECD,ON
00268  M00S00242.rec     +++|          EXECUTE  1DS,=
00269  M00S00243.rec     +++|          MONITOR  RPPM      CREATE DEADSTART SEQUENCING JOB
00270  M00S00244.rec     +++|          LDN    DSSL
00271  M00S00245.rec     +++|          CRD    CM
00272  M00S00246.rec     +++|          LCN    4           CLEAR DEADSTART INTERLOCK
00273  M00S00247.rec     +++|          RAD    CM+4
00274  M00S00248.rec     +++|          LDN    DSSL
00275  M00S00249.rec     +++|          CWD    CM
00276  M00S00250.rec     +++|          LDN    ECRL        FETCH EXTENDED MEMORY WORD
00277  M00S00251.rec     +++|          CRD    FS
00278  M00S00252.rec     +++|          LDD    FS
00279  M00S00253.rec     +++|          ZJN    REC9        IF USER EXTENDED MEMORY UNDEFINED
00280  M00S00254.rec     +++|          EXECUTE  4RB       ALLOCATE/RECOVER USER ECS
00281  M00S00255.rec     +++| REC9     LDN    SYFO
00282  M00S00256.rec     +++|          STD    QA
00283  M00S00257.rec     +++|          SFA    FNT         READ SYSTEM FILE FNT
00284  M00S00258.rec     +++|          CRD    FN
00285  M00S00259.rec     +++|          LDD    FN+4        CLEAR SYSTEM FILE INTERLOCK
00286  M00S00260.rec     +++|          SCN    1
00287  M00S00261.rec     +++|          STD    FN+4
00288  M00S00262.rec     +++|          SFA    FNT,QA      STORE FNT ENTRY
00289  M00S00263.rec     +++|          CWD    FN
00290  M00S00264.rec     +++|          LDN    JSCL        RESET SCHEDULER CALL TIME
00291  M00S00265.rec     +++|          CRD    CM
00292  M00S00266.rec     +++|          ADN    RTCL-JSCL
00293  M00S00267.rec     +++|          CRD    CM+3
00294  M00S00268.rec     +++|          LDN    JSCL
00295  M00S00269.rec     +++|          CWD    CM
00296  M00S00270.rec     +++|          RJM    SJO         START JOBS
00297  M00S00271.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00298  M00S00272.rec     +++|          LPN    SYMK
00299  M00S00273.rec     +++|          LMN    SYCM
00300  M00S00274.rec     +++| RECB     ZJN    REC11       IF CM RECOVERY
00301  M00S00275.rec     +++|*         PSN                (DAYFILES CREATED)
00302  M00S00276.rec     +++|
00303  M00S00277.rec     +++|*         ENTER HERE TO CALL *1CK*.
00304  M00S00278.rec     +++|
00305  M00S00279.rec     +++| REC10    LDD    IA          STORE INPUT REGISTER FOR *1CK*
00306  M00S00280.rec     +++|          CWM    RECC,ON
00307  M00S00281.rec     +++|          EXECUTE  1CK,=
00308  M00S00282.rec     +++|          UJN    REC12       EXIT TO PP RESIDENT
00309  M00S00283.rec     +++|
00310  M00S00284.rec     +++| REC11    LDN    JSCL        CLEAR SCHEDULER ACTIVE
00311  M00S00285.rec     +++|          CRD    CM
00312  M00S00286.rec     +++|          LDD    CM
00313  M00S00287.rec     +++|          LPC    3777
00314  M00S00288.rec     +++|          STD    CM
00315  M00S00289.rec     +++|          LDN    JSCL        STORE SCHEDULER CONTROL
00316  M00S00290.rec     +++|          CWD    CM
Line S00291 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00317  M01S00291.271l716 ---|          MONITOR DPPM       DROP PP
Line S00011 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00011.271l716 +++|          LDD    MA
00319  M01S00012.271l716 +++|          CWM    RECG,ON
00320  M01S00013.271l716 +++|          LDN    2           SELECT DROP PP OPTION
00321  M01S00014.271l716 +++|          STD    CM+1
00322  M01S00015.271l716 +++|          MONITOR  RPPM      CALL *1PP*
00323  M00S00292.rec     +++| REC12    LJM    PPR         EXIT TO PP RESIDENT
00324  M00S00293.rec     +++|
00325  M00S00294.rec     +++| RECC     VFD    60/0L1CK
00326  M00S00295.rec     +++| RECD     VFD    18/0L1DS,6/0,6/0,6/DSSF,18/0LCMS,6/0
00327  M00S00296.rec     +++| RECE     CON    0           CHECKPOINT FILE TRACK
00328  M00S00297.rec     +++| RECF     CON    0           SYSTEM DEVICE EST ORDINAL
Line S00016 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00329  M01S00016.271l716 +++| RECG     VFD    18/3L1PP,42/0
Line S00298 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00330  M01S00298.271l716 ---|          TITLE  RECOVERY PROCESSORS.
Line S00017 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00331  M01S00017.271l716 +++|          TITLE  SUBROUTINES.
00332  M00S00299.rec     +++| SJO      SPACE  4,10
00333  M00S00300.rec     +++|**        SJO - START JOB(S).
00334  M00S00301.rec     +++|*
00335  M00S00302.rec     +++|*         USES   T7, CM - CM+4, CN - CN+4.
00336  M00S00303.rec     +++|*
00337  M00S00304.rec     +++|*         MACROS MONITOR.
00338  M00S00305.rec     +++|
00339  M00S00306.rec     +++|
00340  M00S00307.rec     +++| SJO      SUBR               ENTRY/EXIT
00341  M00S00308.rec     +++|          LDD    NC
00342  M00S00309.rec     +++|          STD    T7
00343  M00S00310.rec     +++| SJO1     SOD    T7
00344  M00S00311.rec     +++|          ZJN    SJOX        IF ALL CP-S CHECKED
00345  M00S00312.rec     +++|          SHN    7
00346  M00S00313.rec     +++|          ADN    STSW
00347  M00S00314.rec     +++|          CRD    CM
00348  M00S00315.rec     +++|          ADN    TFSW-STSW
00349  M00S00316.rec     +++|          CRD    CN
00350  M00S00317.rec     +++|          LDD    CM
00351  M00S00318.rec     +++|          NJN    SJO1        IF ACTIVITY
00352  M00S00319.rec     +++|          LDD    CN
00353  M00S00320.rec     +++|          ZJN    SJO1        IF NO JOB
00354  M00S00321.rec     +++|          LDD    T7          CHANGE CP
00355  M00S00322.rec     +++|          STD    CM+1
00356  M00S00323.rec     +++|          MONITOR CCAM
00357  M00S00324.rec     +++|          LDD    CM+1
00358  M00S00325.rec     +++|          NJN    SJO1        IF CHANGE REJECTED
00359  M00S00326.rec     +++|          LDD    NC          CHANGE BACK TO SYSTEM CP
00360  M00S00327.rec     +++|          STD    CM+1
00361  M00S00328.rec     +++|          MONITOR CCAM
00362  M00S00329.rec     +++|          UJN    SJO1        LOOP
00363  M00S00330.rec     +++|          SPACE  4,10
00364  M00S00331.rec     +++|**        COMMON DECKS.
00365  M00S00332.rec     +++|
00366  M00S00333.rec     +++|
Line S00018 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00367  M01S00018.271l716 +++|*CALL     COMPACS
00368  M01S00019.271l716 +++|*CALL     COMPC2D
00369  M00S00334.rec     +++| CLT$     EQU    0           DEFINE *COMPGFP* ACCESS TO CLT
00370  M00S00335.rec     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
00371  M00S00336.rec     +++| FNT$     EQU    0           DEFINE *COMPGFP* ACCESS TO FNT
00372  M00S00337.rec     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
00373  M00S00338.rec     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
00374  M00S00339.rec     +++|*CALL     COMPGFP
00375  M00S00340.rec     +++|*CALL     COMPIFR
00376  M00S00341.rec     +++|*CALL     COMPRNS
00377  M00S00342.rec     +++|*CALL     COMPRSS
00378  M00S00343.rec     +++|*CALL     COMPSEI
00379  M00S00344.rec     +++|*CALL     COMPSNT
00380  M00S00345.rec     +++|*CALL     COMPIRA
00381  M00S00346.rec     +++|*CALL     COMPWEI
00382  M00S00347.rec     +++| WCS$     EQU    1           CONSECUTIVE SECTOR AFTER SYSTEM SECTOR
00383  M00S00348.rec     +++|*CALL     COMPWSS
00384  M00S00349.rec     +++| TAXM     SPACE  4,10
00385  M00S00350.rec     +++|**        TAXM - EXTENDED MEMORY ALLOCATION TABLE.
00386  M00S00351.rec     +++|
00387  M00S00352.rec     +++|
00388  M00S00353.rec     +++| TAXMW    EQU    4           ALLOW ROOM FOR 4 MACHINES WITH CPU PORTS
00389  M00S00354.rec     +++| TAXM     BSS    5*TAXMW
00390  M00S00355.rec     +++| TAXML    EQU    *
00391  M00S00356.rec     +++| MSR      SPACE  4,10
00392  M00S00357.rec     +++|**        MSR - ERROR RETURN FROM *RNS*.
00393  M00S00358.rec     +++|*
00394  M00S00359.rec     +++|*         EXIT   (A) .LT. 0.
00395  M00S00360.rec     +++|*
00396  M00S00361.rec     +++|*         MACROS ENDMS.
00397  M00S00362.rec     +++|
00398  M00S00363.rec     +++|
00399  M00S00364.rec     +++| MSR      CON    0           ENTRY
00400  M00S00365.rec     +++|          ENDMS
00401  M00S00366.rec     +++|          LCN    1
00402  M00S00367.rec     +++|          LJM    /COMPRNS/RNSX  RETURN TO CALLER
Line S00368 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00403  M01S00368.271l716 ---|          SPACE  4,10
00404  M01S00369.271l716 ---|**        COMMON DECKS OVERLAID BY *4DA*.
00405  M01S00370.271l716 ---|
00406  M01S00371.271l716 ---|
00407  M01S00372.271l716 ---|*CALL     COMPACS
00408  M01S00373.271l716 ---|*CALL     COMPC2D
00409  M00S00374.rec     +++| ERR      SPACE  4,10
00410  M00S00375.rec     +++|**        ERR - PROCESS ERROR.
00411  M00S00376.rec     +++|*
00412  M00S00377.rec     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00413  M00S00378.rec     +++|
00414  M00S00379.rec     +++|
00415  M00S00380.rec     +++| ERR      STM    ERRA
00416  M00S00381.rec     +++|          LDD    NC          STORE MESSAGE
00417  M00S00382.rec     +++|          SHN    7
00418  M00S00383.rec     +++|          ADN    MS2W
00419  M00S00384.rec     +++|          CWM    *,TR
00420  M00S00385.rec     +++| ERRA     EQU    *-1
00421  M00S00386.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00422  M00S00387.rec     +++|          LPN    FLMK
00423  M00S00388.rec     +++|          LMN    FLCM
00424  M00S00389.rec     +++|          NJN    *           IF FILES NOT RECOVERED FROM CM
00425  M00S00390.rec     +++|          LDN    6           SET *1CK* FUNCTION
00426  M00S00391.rec     +++|          STM    RECC+2
00427  M00S00392.rec     +++|          LJM    REC10       PROCESS OUTSTANDING CHECKPOINT REQUESTS
Line S00020 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00428  M01S00020.271l716 +++| SCA      SPACE  4,10
00429  M01S00021.271l716 +++|**        SCA - SET CP/PCP AREA ADDRESS.
00430  M01S00022.271l716 +++|*
00431  M01S00023.271l716 +++|*         ENTRY  (A) = CP/PCP NUMBER.
00432  M01S00024.271l716 +++|*                (NC) = SYSTEM CP NUMBER.
00433  M01S00025.271l716 +++|*
00434  M01S00026.271l716 +++|*         EXIT   (A) = CP/PCP AREA ADDRESS.
00435  M01S00027.271l716 +++|
00436  M01S00028.271l716 +++|
00437  M01S00029.271l716 +++| SCA1     ADD    NC          SET REAL CP AREA ADDRESS
00438  M01S00030.271l716 +++|          SHN    7
00439  M01S00031.271l716 +++|
00440  M01S00032.271l716 +++| SCA      SUBR               ENTRY/EXIT
00441  M01S00033.271l716 +++|          SBD    NC
00442  M01S00034.271l716 +++|          MJN    SCA1        IF REAL CP
00443  M01S00035.271l716 +++|          ZJN    SCA1        IF SYSTEM CP
00444  M01S00036.271l716 +++|          SHN    7
00445  M01S00037.271l716 +++|          ADC    0           ADD BASE PCPA ADDRESS - CPA LENGTH
00446  M01S00038.271l716 +++| SCAA     EQU    *-1
00447  M01S00039.271l716 +++|          UJN    SCAX        RETURN
00448  M00S00393.rec     +++| SRM      SPACE  4,10
00449  M00S00394.rec     +++|**        SRM - SEND RECOVERY MESSAGES.
00450  M00S00395.rec     +++|*
00451  M00S00396.rec     +++|*         USES   T1, T5, T6, T7.
00452  M00S00397.rec     +++|*
00453  M00S00398.rec     +++|*         CALLS  ACS, C2D, DFM.
00454  M00S00399.rec     +++|
00455  M00S00400.rec     +++|
00456  M00S00401.rec     +++| SRM3     STD    CM          CLEAR MESSAGE BUFFER
00457  M00S00402.rec     +++|          LDD    NC
00458  M00S00403.rec     +++|          SHN    7
00459  M00S00404.rec     +++|          ADN    MS1W
00460  M00S00405.rec     +++|          CWD    CM
00461  M00S00406.rec     +++|
00462  M00S00407.rec     +++| SRM      SUBR               ENTRY/EXIT
00463  M00S00408.rec     +++|          LDD    RS
00464  M00S00409.rec     +++|          ZJN    SRMX        IF NOT RECOVERY DEADSTART
00465  M00S00410.rec     +++|          LCN    0           SET MESSAGE TABLE INDEX
00466  M00S00411.rec     +++|          STD    T7
00467  M00S00412.rec     +++|          LDC    BFMS        SET ASSEMBLY BUFFER ADDRESS
00468  M00S00413.rec     +++|          STD    T5
00469  M00S00414.rec     +++|          ADN    2
00470  M00S00415.rec     +++|          STD    T6
00471  M00S00416.rec     +++| SRM1     LDD    T6
00472  M00S00417.rec     +++|          STD    T1
00473  M00S00418.rec     +++|          LDC    2L          ADD BLANK SEPARATOR
00474  M00S00419.rec     +++|          STI    T6
00475  M00S00420.rec     +++| SRM2     AOD    T7          ADVANCE INDEX
00476  M00S00421.rec     +++|          LMN    MXFC
00477  M00S00422.rec     +++|          ZJN    SRM3        IF END OF TABLE
00478  M00S00423.rec     +++|          LDM    SRMA,T7
00479  M00S00424.rec     +++|          ZJN    SRM2        IF FILE CATEGORY NOT ENCOUNTERED
00480  M00S00425.rec     +++|          SHN    -6
00481  M00S00426.rec     +++|          RJM    C2D
00482  M00S00427.rec     +++|          STI    T5
00483  M00S00428.rec     +++|          LDM    SRMA,T7     CONVERT COUNT
00484  M00S00429.rec     +++|          RJM    C2D
00485  M00S00430.rec     +++|          STM    1,T5        INSERT IN MESSAGE ASSEMBLY
00486  M00S00431.rec     +++|          LDM    SRMB,T7
00487  M00S00432.rec     +++|          ZJN    SRM2        IF KEY MESSAGE UNDEFINED
00488  M00S00433.rec     +++|          RJM    ACS
00489  M00S00434.rec     +++|          LDC    SRMC        COMPLETE MESSAGE
00490  M00S00435.rec     +++|          RJM    ACS
00491  M00S00436.rec     +++|          LDD    T5          ISSUE MESSAGE TO DAYFILE
00492  M00S00437.rec     +++|          RJM    DFM
00493  M00S00438.rec     +++|          LJM    SRM1        LOOP
00494  M00S00439.rec     +++|
00495  M00S00440.rec     +++|
00496  M00S00441.rec     +++| SRMA     BSS    0
00497  M00S00442.rec     +++| EJCT     BSS    0
00498  M00S00443.rec     +++|          CON    -0
00499  M00S00444.rec     +++|          ORG    EJCT+MXJS
00500  M00S00445.rec     +++| P1L      EQU    *-EJCT
00501  M00S00446.rec     +++|
00502  M00S00447.rec     +++| QFCT     BSS    0
00503  M00S00448.rec     +++|          CON    -0
00504  M00S00449.rec     +++|          ORG    QFCT+NRQT
00505  M00S00450.rec     +++| P2L      EQU    *-QFCT
00506  M00S00451.rec     +++|
00507  M00S00452.rec     +++| MSCT     BSS    0
00508  M00S00453.rec     +++|          LOC    0
00509  M00S00454.rec     +++| FACT     CON    0           FAST ATTACH FILE COUNT
00510  M00S00455.rec     +++| PXL      BSS    0
00511  M00S00456.rec     +++|          LOC    *O
00512  M00S00457.rec     +++| MXFC     EQU    *-SRMA
00513  M00S00458.rec     +++|
00514  M00S00459.rec     +++|
00515  M00S00460.rec     +++| SRMB     BSS    0
00516  M00S00461.rec     +++| P1       INDEX
00517  M00S00462.rec     +++|          INDEX  PRJS,(=Z*PRE-INITIAL JOB*)
00518  M00S00463.rec     +++|          INDEX  EXJS,(=Z*EXECUTING JOB*)
00519  M00S00464.rec     +++|          INDEX  ROJS,(=Z*ROLLOUT*)
00520  M00S00465.rec     +++|          INDEX  SIJS,(=Z*SCP ROLLIN*)
00521  M00S00466.rec     +++|          INDEX  SOJS,(=Z*SCP ROLLOUT*)
00522  M00S00467.rec     +++|          INDEX  TOJS,(=Z*T/E ROLLOUT*)
00523  M00S00468.rec     +++|          INDEX  IOJS,(=Z*I/A ROLLOUT*)
00524  M00S00469.rec     +++|          INDEX  DOJS,(=Z*DISABLED ROLLOUT*)
00525  M00S00470.rec     +++|          INDEX  SUJS,(=Z*SUSPENDED ROLLOUT*)
Line S00006 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00006.273l780 +++|          INDEX  PCJS,(=Z*PCP ROLLOUT*)
00527  M00S00471.rec     +++|          INDEX  ERJS,(=Z*ROLLOUT ERROR*)
00528  M00S00472.rec     +++|          INDEX  NVJS,(=Z*NVE ENTRY*)
Line S00040 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00040.273l780 ---|          INDEX  PCJS,(=Z*PCP ROLLOUT*)
Line S00007 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00530  M01S00007.273l780 +++|          INDEX  PWJS,(=Z*PRE-INITIAL WAIT*)
00531  M01S00008.273l780 +++|          INDEX  SWJS,(=Z*SERVICE LIMIT WAIT*)
00532  M00S00473.rec     +++|          INDEX  P1L
00533  M00S00474.rec     +++|
00534  M00S00475.rec     +++| P2       INDEX
00535  M00S00476.rec     +++|          INDEX  INQT,(=Z*INPUT*)
00536  M00S00477.rec     +++|          INDEX  PHQT,(=Z*PUNCH*)
00537  M00S00478.rec     +++|          INDEX  PLQT,(=Z*PLOT*)
00538  M00S00479.rec     +++|          INDEX  PRQT,(=Z*PRINT*)
00539  M00S00480.rec     +++|          INDEX  WTQT,(=Z*WAIT QUEUE*)
00540  M00S00481.rec     +++|          INDEX  SNQT,(=Z*SPECIAL*)
00541  M00S00482.rec     +++|          INDEX  P2L
00542  M00S00483.rec     +++|
00543  M00S00484.rec     +++| PX       INDEX
00544  M00S00485.rec     +++|          INDEX  FACT,(=Z*FAST ATTACH*)
00545  M00S00486.rec     +++|          INDEX  PXL
00546  M00S00487.rec     +++|
00547  M00S00488.rec     +++|          USE    LITERALS
00548  M00S00489.rec     +++|
00549  M00S00490.rec     +++| SRMC     DATA   C* FILES RECOVERED.*
00550  M00S00491.rec     +++|          SPACE  4,10
00551  M00S00492.rec     +++| OVLD     EQU    *+5         OVERLAY LOAD ADDRESS
00552  M00S00493.rec     +++|          TITLE  CONTROL POINT RECOVERY.
00553  M00S00494.rec     +++| CCP      SPACE  4,10
00554  M00S00495.rec     +++|**        CCP - CLEANUP CONTROL POINTS.
00555  M00S00496.rec     +++|*
Line S00497 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00497.271l716 ---|*         USES   CP, CN - CN+4, FN - FN+4.
Line S00041 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00557  M01S00041.271l716 +++|*         ERROR  TO *ABT* IF CP/PCP MOVING.
00558  M01S00042.271l716 +++|*
00559  M01S00043.271l716 +++|*         USES   PN, CM - CM+4.
00560  M00S00498.rec     +++|*
Line S00499 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00561  M01S00499.273l780 ---|*         CALLS  CJP, PLF.
Line S00009 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00009.273l780 +++|*         CALLS  CRS, PLF.
00563  M00S00500.rec     +++|*
Line S00501 Modification History
M01 (Removed by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00501.ns2738c ---|*         MACROS EXECUTE, NFA.
Line S00001 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00565  M01S00001.ns2738c +++|*         MACROS EXECUTE, MONITOR, NFA.
00566  M00S00502.rec     +++|
00567  M00S00503.rec     +++|
00568  M00S00504.rec     +++| CCP      SUBR               ENTRY/EXIT
00569  M00S00505.rec     +++|          EXECUTE  4RD       LOAD RECOVERY ROUTINES
00570  M00S00506.rec     +++|          LDN    0
Line S00507 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00571  M01S00507.271l716 ---|          STD    CP
00572  M01S00508.271l716 ---|          LDN    CMRL        READ CMR LENGTH
00573  M01S00509.271l716 ---|          CRD    CN
00574  M01S00510.271l716 ---| CCP1     LDC    200         ADVANCE CP
00575  M01S00511.271l716 ---|          RAD    CP
00576  M01S00512.271l716 ---|          SHN    -7
00577  M01S00513.271l716 ---|          LMD    NC
00578  M01S00514.271l716 ---|          ZJN    CCPX        IF SYSTEM CONTROL POINT
Line S00044 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00579  M01S00044.271l716 +++|          STD    PN
00580  M01S00045.271l716 +++| CCP1     AOD    PN          ADVANCE CP/PCP NUMBER
Line S00046 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00046.rec33   ---|          LMD    NS
Line S00001 Modification History
M01 (Added by) rec33
Seq #  *Modification Id* Act 
----------------------------+
00582  M01S00001.rec33   +++|          SBD    NS
00583  M01S00002.rec33   +++|          SBN    1
Line S00047 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00584  M01S00047.271l716 +++|          ZJN    CCPX        IF END OF CP/PCP-S
Line S00515 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00585  M01S00515.273l780 ---|          RJM    CJP         CHECK JOB PARAMETERS
00586  M01S00516.273l780 ---|          ZJN    CCP1        IF NO JOB ASSIGNED
Line S00010 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00587  M01S00010.273l780 +++|          RJM    CRS         CHECK ROLLIN/ROLLOUT STATUS
00588  M01S00011.273l780 +++|          ZJN    CCP1        IF NO JOB ASSIGNED TO CP/PCP
00589  M00S00517.rec     +++|          LDC    0           CHECK CONTROL POINT MOVING
00590  M00S00518.rec     +++| CCPA     EQU    *-1
Line S00519 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00591  M01S00519.271l716 ---|          LMD    CP
00592  M01S00520.271l716 ---|          NJN    CCP3        IF NOT MOVING
00593  M01S00521.271l716 ---| CCPB     LDN    0
00594  M01S00522.271l716 ---|          NJN    CCP3        IF MOVING ECS
Line S00048 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00595  M01S00048.271l716 +++|          LMD    PN
00596  M01S00049.271l716 +++|          NJN    CCP4        IF NOT MOVING
00597  M01S00050.271l716 +++| CCPB     LDN    0
00598  M01S00051.271l716 +++|*         LDN    1           (IF MOVING EM)
00599  M01S00052.271l716 +++|          NJN    CCP4        IF MOVING EXTENDED MEMORY
00600  M00S00523.rec     +++|          LDD    CN
00601  M00S00524.rec     +++|          ZJN    CCP6        IF NO NFL ASSIGNED
Line S00525 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00525.271l716 ---| CCP2     LJM    CJP1        ABORT CM RECOVERY
00603  M01S00526.271l716 ---|
00604  M01S00527.271l716 ---| CCP3     LDD    CN
Line S00053 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00605  M01S00053.271l716 +++| CCP3     LJM    ABT         ABORT CM RECOVERY
00606  M01S00054.271l716 +++|
00607  M01S00055.271l716 +++| CCP4     LDD    CN
00608  M00S00528.rec     +++|          ZJN    CCP6        IF NO NFL ASSIGNED
00609  M00S00529.rec     +++|          SBN    DNFL
Line S00530 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00610  M01S00530.271l716 ---|          MJN    CCP2        IF LESS THAN DEFAULT
00611  M01S00531.271l716 ---|          SBN    MNFL+1-DNFL
00612  M01S00532.271l716 ---|          PJN    CCP2        IF GREATER THAN MAXIMUM
Line S00056 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00056.271l716 +++|          MJN    CCP3        IF LESS THAN DEFAULT
00614  M01S00057.271l716 +++|          SBN    MNFL+1-DNFL
00615  M01S00058.271l716 +++|          PJN    CCP3        IF GREATER THAN MAXIMUM
00616  M01S00059.271l716 +++|          LDD    PN
00617  M01S00060.271l716 +++|          SBD    NC
Line S00061 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00061.rec33   ---| CCP5     PJN    CCP1        IF PSEUDO CP
Line S00003 Modification History
M01 (Added by) rec33
M02 (Removed by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00003.ns2738c ---| CCP5     PJN    CCP1        IF PSEUDO CP OR SYSTEM CP
Line S00002 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00620  M01S00002.ns2738c +++|          PJN    CCP1        IF PSEUDO CP OR SYSTEM CP
00621  M00S00533.rec     +++|          RJM    PLF         PROCESS LOCAL FNT
00622  M00S00534.rec     +++|          NFA    DAPN+2      FETCH DAYFILE STATUS WORD
00623  M00S00535.rec     +++|          CRD    CM
00624  M00S00536.rec     +++|          LDN    3           CLEAR DAYFILE INTERLOCKS
00625  M00S00537.rec     +++|          STD    CM+4
00626  M00S00538.rec     +++|          NFA    DAPN+2      STORE DAYFILE FST
00627  M00S00539.rec     +++|          CWD    CM
Line S00540 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00628  M01S00540.271l716 ---| CCP6     LDD    CP          STORE CONTROL POINT STATUS
00629  M01S00541.271l716 ---|          ADN    STSW
00630  M01S00542.271l716 ---|          CWD    FN
00631  M01S00543.271l716 ---|          ADN    JCIW-STSW   CLEAR *DIS* FLAG
00632  M01S00544.271l716 ---|          CRD    CM
00633  M01S00545.271l716 ---|          LDD    CM+3
Line S00062 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00634  M01S00062.271l716 +++| CCP6     LDD    CP          GET JOB CONTROL INFORMATION
00635  M01S00063.271l716 +++|          ADN    JCIW
00636  M01S00064.271l716 +++|          CRD    CM
Line S00003 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00637  M01S00003.ns2738c +++|          ADK    RFCW-JCIW   GET DM* FILE POINTERS
00638  M01S00004.ns2738c +++|          CRD    CN
Line S00065 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00639  M01S00065.271l716 +++|          LDD    CM+3        CLEAR *DIS* FLAG
00640  M00S00546.rec     +++|          LPC    6777
00641  M00S00547.rec     +++|          STD    CM+3
Line S00005 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00642  M01S00005.ns2738c +++|          LDN    0           CLEAR DM* FILE POINTERS
00643  M01S00006.ns2738c +++|          STD    CN
00644  M01S00007.ns2738c +++|          STD    CN+1
00645  M00S00548.rec     +++|          LDD    CP
00646  M00S00549.rec     +++|          ADN    JCIW
00647  M00S00550.rec     +++|          CWD    CM
Line S00008 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00648  M01S00008.ns2738c +++|          ADK    RFCW-JCIW
00649  M01S00009.ns2738c +++|          CWD    CN
Line S00012 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00650  M01S00012.273l780 +++|          LDD    NC
00651  M01S00013.273l780 +++|          STD    CM+1
00652  M01S00014.273l780 +++|          MONITOR CCAM       RETURN TO SYSTEM CP
Line S00015 Modification History
M01 (Added by) 273l780
M02 (Removed by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00015.ns2738c ---|*         LDN    0
Line S00551 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00551.ns2738c ---|          LJM    CCP1        LOOP FOR NEXT CONTROL POINT
Line S00066 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00066.ns2738c ---|          UJN    CCP5        LOOP FOR NEXT CP/PCP
Line S00010 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00656  M01S00010.ns2738c +++|          LJM    CCP1        LOOP FOR NEXT CP/PCP
00657  M00S00552.rec     +++| RMT      SPACE  4,10
00658  M00S00553.rec     +++|**        RMT - RECOVER MANAGED TABLES.
00659  M00S00554.rec     +++|*
00660  M00S00555.rec     +++|*         ERROR  TO *ERR* IF ERROR RETURN FROM PROCESSOR.
00661  M00S00556.rec     +++|*
00662  M00S00557.rec     +++|*         USES   EO, LM, QA, QI, QT, ST, T3, CA - CA+4.
00663  M00S00558.rec     +++|*
00664  M00S00559.rec     +++|*         CALLS  CLT, EJT, FNT, QFT, *4RF*.
00665  M00S00560.rec     +++|*
00666  M00S00561.rec     +++|*         MACROS EXECUTE.
00667  M00S00562.rec     +++|
00668  M00S00563.rec     +++|
00669  M00S00564.rec     +++| RMT      SUBR               ENTRY/EXIT
00670  M00S00565.rec     +++|          LDC    RMTA-1      SET LIST ADDRESS
00671  M00S00566.rec     +++|          STD    ST
00672  M00S00567.rec     +++|          EXECUTE  4RF       MANAGED TABLE RECOVERY
00673  M00S00568.rec     +++| RMT1     AOD    ST          ADVANCE LIST ADDRESS
00674  M00S00569.rec     +++|          LDI    ST
00675  M00S00570.rec     +++|          ZJN    RMTX        IF END OF TABLES
00676  M00S00571.rec     +++|          CRD    CA          READ TABLE POINTER
00677  M00S00572.rec     +++|          LDN    0
00678  M00S00573.rec     +++|          STD    QT
00679  M00S00574.rec     +++|          STD    QI
00680  M00S00575.rec     +++|          STD    QA
00681  M00S00576.rec     +++|          STD    EO
00682  M00S00577.rec     +++|          LDD    EC          SET NUMBER OF ASSIGNED ENTRIES
00683  M00S00578.rec     +++|          SBD    LM
00684  M00S00579.rec     +++|          STD    LM
00685  M00S00580.rec     +++|          LDM    RMTB-RMTA,ST  SET PROCESSOR ADDRESS
00686  M00S00581.rec     +++|          STD    T3
00687  M00S00582.rec     +++|          RJM    0,T3        PROCESS MANAGED TABLE
00688  M00S00583.rec     +++|          ZJN    RMT1        IF TABLE FULLY RECOVERED
00689  M00S00584.rec     +++|          LDM    RMTC-RMTA,ST
00690  M00S00585.rec     +++|          STM    RMTD        SET TABLE IDENTIFIER
00691  M00S00586.rec     +++|          LDC    RMTD
00692  M00S00587.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
00693  M00S00588.rec     +++|
00694  M00S00589.rec     +++| RMTA     BSS    0           LIST OF TABLE POINTER ADDRESSES
00695  M00S00590.rec     +++|          CON    QFTP
00696  M00S00591.rec     +++|          CON    EJTP
00697  M00S00592.rec     +++|          CON    FNTP
00698  M00S00593.rec     +++|          CON    CLTP
00699  M00S00594.rec     +++| RMTAA    CON    LIDP
00700  M00S00595.rec     +++|          CON    FOTP
00701  M00S00596.rec     +++|          CON    0           END OF LIST
00702  M00S00597.rec     +++|
00703  M00S00598.rec     +++| RMTB     BSS    0           LIST OF PROCESSOR ADDRESSES
00704  M00S00599.rec     +++|          CON    QFT
00705  M00S00600.rec     +++|          CON    EJT
00706  M00S00601.rec     +++|          CON    FNT
00707  M00S00602.rec     +++|          CON    CLT
00708  M00S00603.rec     +++|
00709  M00S00604.rec     +++| RMTC     BSS    0           LIST OF TABLE IDENTIFIERS
00710  M00S00605.rec     +++|          CON    2RQF
00711  M00S00606.rec     +++|          CON    2REJ
00712  M00S00607.rec     +++|          CON    2RFN
00713  M00S00608.rec     +++|          CON    2RCL
00714  M00S00609.rec     +++|          CON    2RLI
00715  M00S00610.rec     +++|          CON    2RFO
00716  M00S00611.rec     +++|
00717  M00S00612.rec     +++| RMTD     DATA   C*FNT POINTER WORD ERROR.*
00718  M00S00613.rec     +++|          SPACE  4,10
00719  M00S00614.rec     +++|**        MESSAGES.
00720  M00S00615.rec     +++|
00721  M00S00616.rec     +++|
00722  M00S00617.rec     +++| MSGA     DATA   C*RECOVERY COMPLETE.*
00723  M00S00618.rec     +++|
00724  M00S00619.rec     +++| OVLA     EQU    *+5         OVERLAY LOAD ADDRESS
00725  M00S00620.rec     +++|
00726  M00S00621.rec     +++| MSGR     DATA   C*CHECKPOINT DEVICE ERROR.*
00727  M00S00622.rec     +++| MSGS     DATA   C*CMR LENGTH CHANGED.*
00728  M00S00623.rec     +++| MSGT     DATA   C*VE ENTRY REQUIRED.*
00729  M00S00624.rec     +++| MSGU     DATA   C*SECURITY MODE CHANGED.*
00730  M00S00625.rec     +++| RTB      SPACE  4,10
00731  M00S00626.rec     +++|**        RTB - READ TABLE.
00732  M00S00627.rec     +++|*
00733  M00S00628.rec     +++|*         ENTRY  (A) = LENGTH.
00734  M00S00629.rec     +++|*                (CA - CA+1) = FWA.
00735  M00S00630.rec     +++|*
00736  M00S00631.rec     +++|*         EXIT   (A) .LT. 0 IF NOT ENOUGH SPACE FOR TABLE.
00737  M00S00632.rec     +++|*                TO *SYS2* IF UNRECOVERED READ ERROR.
00738  M00S00633.rec     +++|*
00739  M00S00634.rec     +++|*         USES   T1, LM - LM+1.
00740  M00S00635.rec     +++|*
00741  M00S00636.rec     +++|*         CALLS  RNS.
00742  M00S00637.rec     +++|
00743  M00S00638.rec     +++|
Line S00639 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00744  M01S00639.ns2535  ---| RTB3     LJM    SYS2        IF READ ERROR
00745  M01S00640.ns2535  ---|
00746  M01S00641.ns2535  ---| RTB      SUBR               ENTRY/EXIT
00747  M01S00642.ns2535  ---|          STD    LM+1        SET LENGTH
00748  M01S00643.ns2535  ---|          SHN    -14
00749  M01S00644.ns2535  ---|          STD    LM
00750  M01S00645.ns2535  ---| RTB1     LDC    BUF         READ NEXT SECTOR
00751  M01S00646.ns2535  ---|          RJM    RNS
00752  M01S00647.ns2535  ---|          MJN    RTB3        IF READ ERROR
00753  M01S00648.ns2535  ---|          ZJN    RTBX        IF EMPTY SECTOR
00754  M01S00649.ns2535  ---|          LDD    LM          CHECK LENGTH
00755  M01S00650.ns2535  ---|          SHN    14
Line S00001 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00756  M01S00001.ns2535  +++| RTB2     ZJN    RTBX        IF EMPTY SECTOR
00757  M01S00002.ns2535  +++|          LDD    LM
00758  M01S00003.ns2535  +++|          SHN    14          CHECK LENGTH
00759  M00S00651.rec     +++|          ADD    LM+1
00760  M00S00652.rec     +++|          SBD    T1
00761  M00S00653.rec     +++|          MJN    RTBX        IF NO ROOM FOR SECTOR
00762  M00S00654.rec     +++|          STD    LM+1        DECREMENT LENGTH
00763  M00S00655.rec     +++|          SHN    -14
00764  M00S00656.rec     +++|          STD    LM
00765  M00S00657.rec     +++|          LDD    CA          STORE SECTOR
00766  M00S00658.rec     +++|          SHN    14
00767  M00S00659.rec     +++|          ADD    CA+1
00768  M00S00660.rec     +++|          CWM    BUF+2,T1
Line S00661 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00769  M01S00661.ns2535  ---|          LDD    T1          ADVANCE FWA
00770  M01S00662.ns2535  ---|          RAD    CA+1
00771  M01S00663.ns2535  ---|          SHN    -14
00772  M01S00664.ns2535  ---|          RAD    CA
Line S00004 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00773  M01S00004.ns2535  +++|          STD    CA+1        ADVANCE TABLE ADDRESS
00774  M01S00005.ns2535  +++|          SHN    -14
00775  M01S00006.ns2535  +++|          STD    CA
00776  M00S00665.rec     +++|          LDD    T1          CHECK WORD COUNT
00777  M00S00666.rec     +++|          SHN    -6
Line S00667 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00778  M01S00667.ns2535  ---|          NJN    RTB1        LOOP IF NOT EOR
00779  M01S00668.ns2535  ---|          UJN    RTBX        RETURN
Line S00007 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00780  M01S00007.ns2535  +++|          NJN    RTB1        IF NOT EOR
00781  M01S00008.ns2535  +++|
00782  M01S00009.ns2535  +++| RTB      SUBR               ENTRY/EXIT
00783  M01S00010.ns2535  +++|          STD    LM+1
00784  M01S00011.ns2535  +++|          SHN    -14         SET LENGTH
00785  M01S00012.ns2535  +++|          STD    LM
00786  M01S00013.ns2535  +++| RTB1     LDC    BUF         READ NEXT SECTOR
00787  M01S00014.ns2535  +++|          RJM    RNS
00788  M01S00015.ns2535  +++|          PJN    RTB2        IF SUCCESSFUL READ
00789  M01S00016.ns2535  +++|          LJM    SYS2        PROCESS READ ERROR
00790  M00S00669.rec     +++|          SPACE  4
00791  M00S00670.rec     +++|**        COMMON DECKS WHICH ARE OVERLAID.
00792  M00S00671.rec     +++|
00793  M00S00672.rec     +++|
00794  M00S00673.rec     +++|*CALL     COMPICT
00795  M00S00674.rec     +++|*CALL     COMPLDB
00796  M00S00675.rec     +++|          TITLE  SYSTEM RECOVERY.
00797  M00S00676.rec     +++| SYS      SPACE  4
00798  M00S00677.rec     +++|**        SYS - RECOVER SYSTEM.
00799  M00S00678.rec     +++|*
00800  M00S00679.rec     +++|*         EXIT   (A) = JOB RECOVERY STATUS.
00801  M00S00680.rec     +++|
00802  M00S00681.rec     +++|
00803  M00S00682.rec     +++| SYS      SUBR               ENTRY/EXIT
00804  M00S00683.rec     +++|          LDD    CE          SET CHECKPOINT DEVICE EST ORDINAL
00805  M00S00684.rec     +++|          STD    T5
00806  M00S00685.rec     +++|          LDD    ST          SET SYSTEM TABLE TRACK
00807  M00S00686.rec     +++|          STD    T6
00808  M00S00687.rec     +++|          SETMS  IO
00809  M00S00688.rec     +++|          LDC    NSYT        SET SYSTEM TABLE ADDRESS
00810  M00S00689.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
00811  M00S00690.rec     +++|          ZJN    SYS4        IF VALID SYSTEM SECTOR
00812  M00S00691.rec     +++| SYS2     LDC    MSGR        *CHECKPOINT DEVICE ERROR.*
00813  M00S00692.rec     +++|          LJM    ERR         ISSUE MESSAGE AND HANG
00814  M00S00693.rec     +++|
00815  M00S00694.rec     +++| SYS4     AOD    T7
00816  M00S00695.rec     +++|          LDC    PBUF+500-2  READ SECOND SECTOR OF TABLE POINTERS
00817  M00S00696.rec     +++|          RJM    RNS
00818  M00S00697.rec     +++|          MJN    SYS2        IF READ ERROR
00819  M00S00698.rec     +++|          LDN    FSMS
00820  M00S00699.rec     +++|          STD    T7
00821  M00S00700.rec     +++|          LDC    PBUF-2      READ FIRST SECTOR OF TABLE POINTERS
00822  M00S00701.rec     +++|          RJM    RNS
00823  M00S00702.rec     +++|          MJN    SYS2        IF READ ERROR
00824  M00S00703.rec     +++|          AOD    T7
00825  M00S00704.rec     +++|          RJM    SKR         SKIP EST
00826  M00S00705.rec     +++|          RJM    SKR         SKIP CHANNEL TABLES
00827  M00S00706.rec     +++|
00828  M00S00707.rec     +++|*         VERIFY EST LENGTH.
00829  M00S00708.rec     +++|
00830  M00S00709.rec     +++|          LDN    ESTP
00831  M00S00710.rec     +++|          CRD    CM
00832  M00S00711.rec     +++|          LDD    CM+2        COMPARE LENGTHS
00833  M00S00712.rec     +++|          SBM    PBUF+ESTP*5+2
00834  M00S00713.rec     +++|          NJN    SYS7        IF LENGTHS DIFFER
00835  M00S00714.rec     +++|          RJM    PCT         PROCESS SUBSYSTEM TABLES
00836  M00S00715.rec     +++|
00837  M00S00716.rec     +++|*         VERIFY LENGTH OF MANAGED TABLES.
00838  M00S00717.rec     +++|
00839  M00S00718.rec     +++| SYS6     LDC    RMTA        VERIFY TABLE LENGTHS
00840  M00S00719.rec     +++|          RJM    VTL
00841  M00S00720.rec     +++|          ZJN    SYS8        IF TABLE LENGTHS VALID
00842  M00S00721.rec     +++|          LDM    RMTC-RMTA,QA
00843  M00S00722.rec     +++|          STM    SYSA        SET TABLE IDENTIFIER
00844  M00S00723.rec     +++| SYS7     ENDMS
00845  M00S00724.rec     +++|          LDC    SYSA
00846  M00S00725.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
00847  M00S00726.rec     +++|
00848  M00S00727.rec     +++| SYS8     STM    RMTAA
00849  M00S00728.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00850  M00S00729.rec     +++|          LPN    FLMK
00851  M00S00730.rec     +++|          LMN    FLCM
00852  M00S00731.rec     +++|          NJN    SYS9        IF FILES NOT RECOVERED FROM CM
00853  M00S00732.rec     +++|          RJM    SKR         SKIP MANAGED TABLES
00854  M00S00733.rec     +++|          LJM    SYS11       READ LIBRARY TABLES
00855  M00S00734.rec     +++|
00856  M00S00735.rec     +++|*         VERIFY OPERATING SYSTEM SECURITY MODE.
00857  M00S00736.rec     +++|
00858  M00S00737.rec     +++| SYS9     LDK    SSML
00859  M00S00738.rec     +++|          CRD    CM
00860  M00S00739.rec     +++|          LDM    PBUF+SSML*5
00861  M00S00740.rec     +++|          LMD    CM
00862  M00S00741.rec     +++|          LPN    7
00863  M00S00742.rec     +++|          ZJN    SYS10       IF SECURITY MODE UNCHANGED
00864  M00S00743.rec     +++|          LDC    MSGU        *SECURITY MODE CHANGED.*
00865  M00S00744.rec     +++|          LJM    ERR         PROCESS ERROR
00866  M00S00745.rec     +++|
00867  M00S00746.rec     +++| SYS10    LDK    SSML        RESTORE ACCESS CATEGORIES
00868  M00S00747.rec     +++|          CWM    PBUF+SSML*5,ON
00869  M00S00748.rec     +++|          LDK    JSNL        RESTORE JOB SEQUENCE NUMBER
00870  M00S00749.rec     +++|          CWM    PBUF+5*JSNL,ON
00871  M00S00750.rec     +++|          LDC    377777      READ MANAGED TABLES
00872  M00S00751.rec     +++|          RJM    RTB
00873  M00S00752.rec     +++|          LDN    ZERL
00874  M00S00753.rec     +++|          CRD    CM
00875  M00S00754.rec     +++|          LDN    FNTP        SET SYSTEM FILE BUSY
00876  M00S00755.rec     +++|          CRD    CM+3
00877  M00S00756.rec     +++|          ERRNZ  SYFO        SYSTEM FILE ORDINAL .NE. 0
00878  M00S00757.rec     +++|          MONITOR  UTEM
00879  M00S00758.rec     +++|*         LDN    0           INTERLOCK *PROBE* TABLE
00880  M00S00759.rec     +++|          STM    PBUF+PRBP*5
00881  M00S00760.rec     +++|          LDC    PRBP        RESTORE *PROBE* TABLE POINTER
00882  M00S00761.rec     +++|          CWM    PBUF+PRBP*5,ON
00883  M00S00762.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00884  M00S00763.rec     +++|          LPN    SYMK
00885  M00S00764.rec     +++|          NJN    SYS11       IF SYSTEM RECOVERY REQUESTED
00886  M00S00765.rec     +++|          LJM    SYS20       COMPLETE MASS STORAGE OPERATION
00887  M00S00766.rec     +++|
00888  M00S00767.rec     +++|*         READ LIBRARY TABLES.
00889  M00S00768.rec     +++|
00890  M00S00769.rec     +++| SYS11    LDC    RPLP        FETCH RPL POINTER
00891  M00S00770.rec     +++|          CRD    CN
00892  M00S00771.rec     +++|          CRD    CM
00893  M00S00772.rec     +++|          ADN    PLDP-RPLP   GET PLD POINTER
00894  M00S00773.rec     +++|          CRD    FS
00895  M00S00774.rec     +++|          LDM    PBUF+RPLP*5 CHECK LIBRARY POINTER
00896  M00S00775.rec     +++|          STD    CA
00897  M00S00776.rec     +++|          SBD    CN
00898  M00S00777.rec     +++|          SHN    14
00899  M00S00778.rec     +++|          ADM    PBUF+RPLP*5+1
00900  M00S00779.rec     +++|          STD    CA+1
00901  M00S00780.rec     +++|          SBD    CN+1
00902  M00S00781.rec     +++|          PJN    SYS12       IF CMR LENGTH HAS NOT INCREASED
00903  M00S00782.rec     +++|          ENDMS
00904  M00S00783.rec     +++|          LDC    MSGS        *CMR LENGTH CHANGED.*
00905  M00S00784.rec     +++|          LJM    ERR
00906  M00S00785.rec     +++|
00907  M00S00786.rec     +++| SYS12    RAD    CN+1        ADJUST RPL ADDRESS
00908  M00S00787.rec     +++|          SHN    -14
00909  M00S00788.rec     +++|          RAD    CN
Line S00789 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00910  M01S00789.ns2535  ---|          LDN    0           SET RPL LOCKED
00911  M01S00790.ns2535  ---|          STD    CM
Line S00017 Modification History
M01 (Added by) ns2535
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00017.273l780 ---|          LDN    0           SET MOVE TO CONTROL POINT 0
00913  M02S00018.273l780 ---|          STD    CP
Line S00016 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00914  M01S00016.273l780 +++|          LDN    0
Line S00019 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00915  M01S00019.ns2535  +++|          STD    CM          SET RPL LOCKED
00916  M00S00791.rec     +++|          STD    CM+1
00917  M00S00792.rec     +++|          STD    FS          SET DIRECTORY LOCKED
00918  M00S00793.rec     +++|          STD    FS+1
00919  M00S00794.rec     +++|          LDC    RPLP        STORE RESIDENT LIBRARY POINTER
00920  M00S00795.rec     +++|          CWD    CM
00921  M00S00796.rec     +++|          ADN    PLDP-RPLP   STORE PLD POINTER
00922  M00S00797.rec     +++|          CWD    FS
Line S00798 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00923  M01S00798.ns2535  ---|          DELAY  500D*10
00924  M01S00799.ns2535  ---|          LDC    377777      READ LIBRARY TABLES
00925  M01S00800.ns2535  ---|          RJM    RTB
00926  M01S00801.ns2535  ---|          LDD    CA          SET CMR STORAGE
00927  M01S00802.ns2535  ---|          SHN    14
00928  M01S00803.ns2535  ---|          ADD    CA+1
00929  M01S00804.ns2535  ---|          ADN    77
00930  M01S00805.ns2535  ---|          SHN    -6
00931  M01S00806.ns2535  ---|          STD    T1
00932  M01S00807.ns2535  ---|          LDN    0           MOVE TO CONTROL POINT 0
00933  M01S00808.ns2535  ---|          STD    CM+1
00934  M01S00809.ns2535  ---|          STD    CP
00935  M01S00810.ns2535  ---|          MONITOR CCAM
00936  M01S00811.ns2535  ---| SYS16    LDD    T1          REQUEST STORAGE
Line S00020 Modification History
M01 (Added by) ns2535
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00020.273l780 ---|*         LDN    0           MOVE TO CONTROL POINT 0
00938  M02S00021.273l780 ---|*         STD    CM+1
00939  M02S00022.273l780 ---|          MONITOR  CCAM
Line S00023 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00023.ns2535  +++| SYS16    LDM    PBUF+5*CMRL+4  REQUEST STORAGE
00941  M00S00812.rec     +++|          STD    CM+1
Line S00813 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00942  M01S00813.273l780 ---|          LDN    0
Line S00017 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00943  M01S00017.273l780 +++|          LDC    1000        SET CMR REQUEST
00944  M00S00814.rec     +++|          STD    CM+2
00945  M00S00815.rec     +++|          MONITOR RSTM
Line S00816 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00946  M01S00816.273l780 ---|          LDD    FL
Line S00018 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00947  M01S00018.273l780 +++|          LDK    CMRL
00948  M01S00019.273l780 +++|          CRD    CM
00949  M01S00020.273l780 +++|          LDD    CM+4
Line S00817 Modification History
M01 (Removed by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00950  M01S00817.ns2535  ---|          LMD    T1
Line S00024 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00951  M01S00024.ns2535  +++|          LMM    PBUF+5*CMRL+4
00952  M00S00818.rec     +++|          NJN    SYS16       IF NOT ASSIGNED
Line S00819 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00953  M01S00819.273l780 ---|          LDD    NC
00954  M01S00820.273l780 ---|          STD    CM+1
00955  M01S00821.273l780 ---|          SHN    7           MOVE TO SYSTEM CONTROL POINT
00956  M01S00822.273l780 ---|          STD    CP
00957  M01S00823.273l780 ---|          MONITOR CCAM
Line S00025 Modification History
M01 (Added by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00958  M01S00025.ns2535  +++|          LDC    377777      READ LIBRARY TABLES
00959  M01S00026.ns2535  +++|          RJM    RTB
00960  M00S00824.rec     +++|
00961  M00S00825.rec     +++|*         SET LIBRARY TABLE ADDRESSES.
00962  M00S00826.rec     +++|
00963  M00S00827.rec     +++|          LDM    PBUF+5*PLDP+1  RESTORE PLD ADDRESS
00964  M00S00828.rec     +++|          STD    FS+1
00965  M00S00829.rec     +++|          LDM    PBUF+5*PLDP
00966  M00S00830.rec     +++|          STD    FS
00967  M00S00831.rec     +++|          LDC    RPLP        UNLOCK RPL
00968  M00S00832.rec     +++|          CWD    CN
00969  M00S00833.rec     +++|          ADN    PLDP-RPLP   STORE PLD POINTER
00970  M00S00834.rec     +++|          CWD    FS
00971  M00S00835.rec     +++|          SBN    PLDP-RCLP   FETCH RCL POINTER
00972  M00S00836.rec     +++|          CRD    CM
00973  M00S00837.rec     +++|          LDM    PBUF+5*RCLP+1  RESTORE RCL ADDRESS
00974  M00S00838.rec     +++|          STD    CM+1
00975  M00S00839.rec     +++|          LDM    PBUF+5*RCLP
00976  M00S00840.rec     +++|          STD    CM
00977  M00S00841.rec     +++|          LDC    RCLP        STORE RCL POINTER
00978  M00S00842.rec     +++|          CWD    CM
00979  M00S00843.rec     +++|          LDN    DSSL        SET RECOVERY LEVEL
00980  M00S00844.rec     +++|          CRD    CM
00981  M00S00845.rec     +++|          LDM    PBUF+5*DSSL+4
00982  M00S00846.rec     +++|          LMD    CM+4
00983  M00S00847.rec     +++|          SCN    7
00984  M00S00848.rec     +++|          LMD    CM+4
00985  M00S00849.rec     +++|          STM    PBUF+5*DSSL+4
00986  M00S00850.rec     +++|          LDN    DSSL        STORE SYSTEM LABEL
00987  M00S00851.rec     +++|          CWM    PBUF+5*DSSL,ON
00988  M00S00852.rec     +++|          LDC    EPDP+PSTP*  READ EPD POINTER
00989  M00S00853.rec     +++|          CRD    CM
00990  M00S00854.rec     +++|          LDM    PBUF+5*EPDP+1  RESTORE EPD ADDRESS
00991  M00S00855.rec     +++|          STD    CM+1
00992  M00S00856.rec     +++|          LDM    PBUF+5*EPDP
00993  M00S00857.rec     +++|          STD    CM
00994  M00S00858.rec     +++|
00995  M00S00859.rec     +++|          ERRNZ  PSTP-EPDP   POINTERS NOT IN SAME WORD
00996  M00S00860.rec     +++|
00997  M00S00861.rec     +++|          LDM    PBUF+5*PSTP+3  RESTORE PST ADDRESS
00998  M00S00862.rec     +++|          STD    CM+3
00999  M00S00863.rec     +++|          LDM    PBUF+5*PSTP+2
01000  M00S00864.rec     +++|          STD    CM+2
01001  M00S00865.rec     +++|          LDC    EPDP+PSTP*  SET EPD AND PST ADDRESS
01002  M00S00866.rec     +++|          CWD    CM
01003  M00S00867.rec     +++|          SBN    EPDP-LBDP   FETCH PBD POINTER
01004  M00S00868.rec     +++|          CRD    CM
01005  M00S00869.rec     +++|          LDM    PBUF+5*LBDP+3  RESTORE LBD ADDRESS
01006  M00S00870.rec     +++|          STD    CM+3
01007  M00S00871.rec     +++|          LDM    PBUF+5*LBDP+2
01008  M00S00872.rec     +++|          STD    CM+2
01009  M00S00873.rec     +++|          LDN    SSTL        FETCH SYSTEM STATUS WORD
01010  M00S00874.rec     +++|          CRD    FS
01011  M00S00875.rec     +++|          ADN    PRBP-SSTL   GET *PROBE* TABLE ADDRESS
01012  M00S00876.rec     +++|          CRD    CN
01013  M00S00877.rec     +++|          ADN    LBDP-PRBP   STORE LBD POINTER
01014  M00S00878.rec     +++|          CWD    CM
01015  M00S00879.rec     +++|          ADN    BIOL-LBDP   READ BUFFERED I/O STATUS
01016  M00S00880.rec     +++|          CRD    FN
01017  M00S00881.rec     +++|          LDD    FS+2        CHECK *PROBE* ENABLED
01018  M00S00882.rec     +++|          SHN    21-6
01019  M00S00883.rec     +++|          MJN    SYS19       IF *PROBE* NOT ENABLED
01020  M00S00884.rec     +++|          LDD    FN+1
01021  M00S00885.rec     +++|          ADD    FN+2
01022  M00S00886.rec     +++|          ZJN    SYS18       IF NO BUFFERED I/O
01023  M00S00887.rec     +++|          LDN    0
01024  M00S00888.rec     +++|          RJM    RTB         RETRIEVE BUFFERED DEVICE POINTER TABLE
01025  M00S00889.rec     +++|          LDD    FN+1
01026  M00S00890.rec     +++|          SHN    14
01027  M00S00891.rec     +++|          LMD    FN+2
01028  M00S00892.rec     +++|          ADN    IOSP        RESET BUFFERED I/O *PROBE* DATA POINTER
01029  M00S00893.rec     +++|          CWM    BUF+2+5*IOSP,ON
01030  M00S00894.rec     +++| SYS18    LDC    4000        CLEAR *PROBE* TABLE INTERLOCK
01031  M00S00895.rec     +++|          STD    CN
01032  M00S00896.rec     +++|          LDC    PRBP        UPDATE *PROBE* TABLE POINTER
01033  M00S00897.rec     +++|          CWD    CN
01034  M00S00898.rec     +++| SYS19    RJM    LDB
01035  M00S00899.rec     +++|          LDN    1           INITIALIZE *CPUMTR* TABLES
01036  M00S00900.rec     +++|          RJM    ICT
01037  M00S00901.rec     +++| SYS20    ENDMS
01038  M00S00902.rec     +++|          LDD    RS          SET EXIT CONDITION
01039  M00S00903.rec     +++|          LPC    JBMK
01040  M00S00904.rec     +++|          LMD    HN
01041  M00S00905.rec     +++|          ERRNZ  100-JBCM    ADJUST IF VALUE CHANGES
01042  M00S00906.rec     +++|          LJM    SYSX        RETURN
01043  M00S00907.rec     +++|
01044  M00S00908.rec     +++| SYSA     DATA   C*EST LENGTH CONFLICT.*
01045  M00S00909.rec     +++|          SPACE  4,10
01046  M00S00910.rec     +++|**        SYSTEM SECTOR FNT ENTRIES.
01047  M00S00911.rec     +++|
01048  M00S00912.rec     +++|
01049  M00S00913.rec     +++| NSYT     VFD    42/0LSYSTAB,6/1,6/SYFT,6/0
01050  M00S00914.rec     +++| FDS      SPACE  4,10
01051  M00S00915.rec     +++|**        FDS - FIND DESCRIPTOR IN SAB.
01052  M00S00916.rec     +++|*
01053  M00S00917.rec     +++|*         ENTRY  (A) = DESCRIPTOR ID.
01054  M00S00918.rec     +++|*                (BUF) = SAB.
01055  M00S00919.rec     +++|*
01056  M00S00920.rec     +++|*         EXIT   (A) = 0  IF DESCRIPTOR FOUND.
01057  M00S00921.rec     +++|*                (A) .NE. 0  IF DESCRIPTOR NOT FOUND.
01058  M00S00922.rec     +++|*                (T2) = BYTE OFFSET OF DESCRIPTOR.
01059  M00S00923.rec     +++|*
01060  M00S00924.rec     +++|*         USES   T0 - T2.
01061  M00S00925.rec     +++|
01062  M00S00926.rec     +++|
01063  M00S00927.rec     +++| FDS      SUBR               ENTRY/EXIT
01064  M00S00928.rec     +++|          STD    T0          SAVE DESCRIPTOR ID
01065  M00S00929.rec     +++|          LDN    0
01066  M00S00930.rec     +++|          STD    T1
01067  M00S00931.rec     +++| FDS1     LDD    T1          SET BYTE OFFSET
01068  M00S00932.rec     +++|          SHN    2
01069  M00S00933.rec     +++|          ADD    T1
01070  M00S00934.rec     +++|          STD    T2
01071  M00S00935.rec     +++|          LDM    BUF+2,T2
01072  M00S00936.rec     +++|          SHN    14
01073  M00S00937.rec     +++|          RAD    T1          ADVANCE INDEX
01074  M00S00938.rec     +++|          SHN    -14
01075  M00S00939.rec     +++|          LMD    T0
01076  M00S00940.rec     +++|          ZJN    FDSX        IF DESCRIPTOR FOUND
01077  M00S00941.rec     +++|          LDD    T1
01078  M00S00942.rec     +++|          SBM    BUF+1
01079  M00S00943.rec     +++|          NJN    FDS1        IF NOT END OF SAB
01080  M00S00944.rec     +++|          ENDMS
01081  M00S00945.rec     +++|          LDN    1           INDICATE ERROR
01082  M00S00946.rec     +++|          UJN    FDSX        RETURN
01083  M00S00947.rec     +++| PCT      SPACE  4,10
01084  M00S00948.rec     +++|**        PCT - PROCESS CONTROL TABLES.
01085  M00S00949.rec     +++|*
01086  M00S00950.rec     +++|*         USES   CA - CA+4, CM - CM+4, CN - CN+4.
01087  M00S00951.rec     +++|*
01088  M00S00952.rec     +++|*         CALLS  RTB, SKR, VEM.
01089  M00S00953.rec     +++|*
01090  M00S00954.rec     +++|*         MACROS ENDMS.
01091  M00S00955.rec     +++|
01092  M00S00956.rec     +++|
01093  M00S00957.rec     +++| PCT3     RJM    SKR         SKIP EVENT TABLE
01094  M00S00958.rec     +++|          RJM    SKR         SKIP SSCT AND SSAT
01095  M00S00959.rec     +++|          RJM    SKR         SKIP SERVICE CLASS CONTROL TABLE
01096  M00S00960.rec     +++|          RJM    SKR         SKIP SABB INFORMATION
01097  M00S00961.rec     +++|          RJM    SKR         SKIP STATISTICAL DATA AREA
01098  M00S00962.rec     +++|
01099  M00S00963.rec     +++| PCT      SUBR               ENTRY/EXIT
01100  M00S00964.rec     +++|          LDD    RS
01101  M00S00965.rec     +++|          LPN    SYMK
01102  M00S00966.rec     +++|          LMN    SYCM
01103  M00S00967.rec     +++|          ZJN    PCT3        IF SYSTEM RECOVERED FROM CM
01104  M00S00968.rec     +++|          LDK    EVTP        FETCH EVENT TABLE FWA
01105  M00S00969.rec     +++|          CRD    CN
01106  M00S00970.rec     +++|          LDD    CN          SET ADDRESS OF TABLE
01107  M00S00971.rec     +++|          STD    CA
01108  M00S00972.rec     +++|          LDD    CN+1
01109  M00S00973.rec     +++|          STD    CA+1
01110  M00S00974.rec     +++|          LDN    EVTLL       READ EVENT TABLE
01111  M00S00975.rec     +++|          RJM    RTB
01112  M00S00976.rec     +++|          LDD    CN          CLEAR TABLE INTERLOCK
01113  M00S00977.rec     +++|          SHN    14
01114  M00S00978.rec     +++|          LMD    CN+1
01115  M00S00979.rec     +++|          CRD    CM
01116  M00S00980.rec     +++|          LDD    CM+4
01117  M00S00981.rec     +++|          SCN    1
01118  M00S00982.rec     +++|          STD    CM+4
01119  M00S00983.rec     +++|          LDD    CN
01120  M00S00984.rec     +++|          SHN    14
01121  M00S00985.rec     +++|          LMD    CN+1
01122  M00S00986.rec     +++|          CWD    CM
01123  M00S00987.rec     +++|          LDC    SSCP        FETCH SUBSYSTEM CONTROL TABLE POINTER
01124  M00S00988.rec     +++|          CRD    CM
01125  M00S00989.rec     +++|          LDD    CM+2        SET ADDRESS OF TABLES
01126  M00S00990.rec     +++|          STD    CA
01127  M00S00991.rec     +++|          LDD    CM+3
01128  M00S00992.rec     +++|          STD    CA+1
01129  M00S00993.rec     +++|          LDN    SSCTL*2     READ SSCT AND SSAT
01130  M00S00994.rec     +++|          RJM    RTB
Line S00995 Modification History
M01 (Removed by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
01131  M01S00995.ns2513  ---|          LDK    JBCP        SET FWA OF SERVICE CLASS CONTROL TABLE
Line S00001 Modification History
M01 (Added by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
01132  M01S00001.ns2513  +++|          LDK    JBCP        SET FWA OF JOB CONTROL TABLE
01133  M00S00996.rec     +++|          CRD    CA
Line S00997 Modification History
M01 (Removed by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
01134  M01S00997.ns2513  ---|          LDK    SCTE        READ SERVICE CLASS CONTROL TABLE
Line S00002 Modification History
M01 (Added by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00002.ns2513  +++|          LDK    JCBE*/SCD/MXJC  READ CONTROL TABLES
01136  M00S00998.rec     +++|          RJM    RTB
01137  M00S00999.rec     +++|          RJM    VEM         VERIFY MICROCODE/EI NAMES
01138  M00S01000.rec     +++|          LDC    SDAP        SET STATISTICAL DATA AREA ADDRESS
01139  M00S01001.rec     +++|          CRD    CA
01140  M00S01002.rec     +++|          LDN    SDAL        READ STATISTICAL DATA AREA
01141  M00S01003.rec     +++|          RJM    RTB
01142  M00S01004.rec     +++|
01143  M00S01005.rec     +++|*         SET RESERVED EJT ORDINAL.
01144  M00S01006.rec     +++|
01145  M00S01007.rec     +++|          LDM    PBUF+EIBP*5+3  GET PREVIOUS *EICB* ADDRESS
01146  M00S01008.rec     +++|          SHN    14
01147  M00S01009.rec     +++|          ADM    PBUF+EIBP*5+4
01148  M00S01010.rec     +++|          ZJN    PCT2        IF NO EICB PREVIOUSLY
01149  M00S01011.rec     +++|          LDN    SSTL
01150  M00S01012.rec     +++|          CRD    CM
01151  M00S01013.rec     +++|          LDD    CM+3        CHECK FOR *VE=* ENTRY
01152  M00S01014.rec     +++|          LMM    PBUF+5*SSTL+3
01153  M00S01015.rec     +++|          SHN    21-13
01154  M00S01016.rec     +++|          PJN    PCT1        IF *VE* STATUS NOT CHANGED
01155  M00S01017.rec     +++|          ENDMS
01156  M00S01018.rec     +++|          LDC    MSGT        (*VE ENTRY REQUIRED.*)
01157  M00S01019.rec     +++|          LJM    ERR         ISSUE MESSAGE AND HANG
01158  M00S01020.rec     +++|
01159  M00S01021.rec     +++| PCT1     LDK    NVOL
01160  M00S01022.rec     +++|          CRD    CM
01161  M00S01023.rec     +++|          LDM    PBUF+NVOL*5+4  SET NOS/VE EJT ORDINAL
01162  M00S01024.rec     +++|          STD    CM+4
01163  M00S01025.rec     +++|          LDK    NVOL
01164  M00S01026.rec     +++|          CWD    CM
01165  M00S01027.rec     +++| PCT2     LJM    PCTX        RETURN
01166  M00S01028.rec     +++| SKR      SPACE  4
01167  M00S01029.rec     +++|**        SKR - SKIP RECORD.
01168  M00S01030.rec     +++|*
01169  M00S01031.rec     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS.
01170  M00S01032.rec     +++|*
01171  M00S01033.rec     +++|*         EXIT   (T6 - T7) UPDATED.
01172  M00S01034.rec     +++|*                TO *SYS2* IF UNRECOVERED READ ERROR.
01173  M00S01035.rec     +++|*
01174  M00S01036.rec     +++|*         CALLS  RNS.
01175  M00S01037.rec     +++|
01176  M00S01038.rec     +++|
01177  M00S01039.rec     +++| SKR2     SHN    -6
01178  M00S01040.rec     +++|          NJN    SKR1        IF NOT EOR
01179  M00S01041.rec     +++|
01180  M00S01042.rec     +++| SKR      SUBR               ENTRY/EXIT
01181  M00S01043.rec     +++| SKR1     LDC    BUF         READ NEXT SECTOR
01182  M00S01044.rec     +++|          RJM    RNS
01183  M00S01045.rec     +++|          PJN    SKR2        IF NO READ ERROR
01184  M00S01046.rec     +++|          LJM    SYS2        ISSUE ERROR MESSAGE AND HANG
01185  M00S01047.rec     +++| VEM      SPACE  4,10
Line S01048 Modification History
M01 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01186  M01S01048.rec33   ---|**        VEM - VERFIFY EI AND MICROCODE NAMES.
Line S00004 Modification History
M01 (Added by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01187  M01S00004.rec33   +++|**        VEM - VERIFY EI AND MICROCODE NAMES.
01188  M00S01049.rec     +++|*
01189  M00S01050.rec     +++|*         EXIT   TO *ERR* IF VALUES DO NOT COMPARE.
01190  M00S01051.rec     +++|*                TO *SYS2* IF I/O ERROR.
01191  M00S01052.rec     +++|*
01192  M00S01053.rec     +++|*         USES   T0 - T2, CM - CM+4, CN - CN+4.
01193  M00S01054.rec     +++|*
01194  M00S01055.rec     +++|*         CALLS  FDS, RNS.
01195  M00S01056.rec     +++|*
01196  M00S01057.rec     +++|*         MACRO  ENDMS.
01197  M00S01058.rec     +++|
01198  M00S01059.rec     +++|
01199  M00S01060.rec     +++| VEM7     LJM    SYS2        ISSUE ERROR MESSAGE AND HANG
01200  M00S01061.rec     +++|
01201  M00S01062.rec     +++| VEM      SUBR               ENTRY/EXIT
01202  M00S01063.rec     +++|          LDC    BUF
01203  M00S01064.rec     +++|          RJM    RNS         READ NEXT SECTOR
01204  M00S01065.rec     +++|          MJN    VEM7        IF ERROR
01205  M00S01066.rec     +++|          LDK    EABL+MFEI   GET MAINFRAME DESCRIPTOR ADDRESS
01206  M00S01067.rec     +++|          CRD    CM
01207  M00S01068.rec     +++|          LDD    CM+1
01208  M00S01069.rec     +++|          SCN    77
01209  M00S01070.rec     +++|          SHN    6
01210  M00S01071.rec     +++|          LMD    CM
01211  M00S01072.rec     +++|          SHN    6
01212  M00S01073.rec     +++|          CRD    CN
01213  M00S01074.rec     +++|          ADN    1           GET EI NAME
01214  M00S01075.rec     +++|          CRD    CM
01215  M00S01076.rec     +++|          LDD    CN+1
01216  M00S01077.rec     +++|          SHN    -6
01217  M00S01078.rec     +++|          LMN    7
01218  M00S01079.rec     +++|          NJN    VEMX        IF NOT CYBER 180 MACHINE
01219  M00S01080.rec     +++|          LDN    3           FIND MAINFRAME DESCRIPTOR
01220  M00S01081.rec     +++|          RJM    FDS
01221  M00S01082.rec     +++| VEM1     NJN    VEM7        IF NOT FOUND
01222  M00S01083.rec     +++|          LDM    BUF+2+5+3,T2
01223  M00S01084.rec     +++|          STM    VEMB+6
01224  M00S01085.rec     +++|          LMD    CM+3
01225  M00S01086.rec     +++|          NJP    VEM5        IF EI MISMATCH
01226  M00S01087.rec     +++|          LDK    EABL+CPEI   GET PROCESSOR DESCRIPTOR
01227  M00S01088.rec     +++|          CRD    CM
01228  M00S01089.rec     +++|          LDD    CM+1
01229  M00S01090.rec     +++|          SCN    77
01230  M00S01091.rec     +++|          SHN    6
01231  M00S01092.rec     +++|          LMD    CM
01232  M00S01093.rec     +++|          SHN    6
01233  M00S01094.rec     +++|          ADN    2
01234  M00S01095.rec     +++|          CRD    CM
01235  M00S01096.rec     +++|          LDN    2           FIND PROCESSOR DESCRIPTOR
01236  M00S01097.rec     +++|          RJM    FDS
01237  M00S01098.rec     +++|          NJN    VEM1        IF NOT FOUND
01238  M00S01099.rec     +++|          STD    T0
01239  M00S01100.rec     +++|          LDN    3
01240  M00S01101.rec     +++|          STD    T1
01241  M00S01102.rec     +++|          RAD    T2
01242  M00S01103.rec     +++| VEM2     LDM    BUF+2+2*5,T2
01243  M00S01104.rec     +++|          STM    VEMA+12,T1
01244  M00S01105.rec     +++|          LMM    CM,T1
01245  M00S01106.rec     +++|          ZJN    VEM3        IF THIS BYTE MATCHES
01246  M00S01107.rec     +++|          AOD    T0          SET NO MATCH FLAG
01247  M00S01108.rec     +++| VEM3     SOD    T2
01248  M00S01109.rec     +++|          SOD    T1          DECREMENT INDEX
01249  M00S01110.rec     +++|          PJN    VEM2        IF MORE TO COMPARE
01250  M00S01111.rec     +++|          LDD    T0
01251  M00S01112.rec     +++|          ZJN    VEM6        IF MICROCODE MATCHES
01252  M00S01113.rec     +++| VEM4     ENDMS
01253  M00S01114.rec     +++|          LDC    VEMA        *MICROCODE MISMATCH*
01254  M00S01115.rec     +++|*         LDC    VEMB        (EI MISMATCH)
01255  M00S01116.rec     +++| VEMC     EQU    *-1
01256  M00S01117.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG PP
01257  M00S01118.rec     +++|
01258  M00S01119.rec     +++| VEM5     LDK    VEMB-VEMA
01259  M00S01120.rec     +++|          RAM    VEMC
01260  M00S01121.rec     +++|          UJN    VEM4        DISPLAY MESSAGE AND HANG
01261  M00S01122.rec     +++|
01262  M00S01123.rec     +++| VEM6     LJM    VEMX        RETURN
01263  M00S01124.rec     +++|
01264  M00S01125.rec     +++| VEMA     DATA   C*MICROCODE MISMATCH,        *
01265  M00S01126.rec     +++| VEMB     DATA   C*EI MISMATCH,  *
01266  M00S01127.rec     +++| VTL      SPACE  4,10
01267  M00S01128.rec     +++|**        VTL - VERIFY TABLE LENGTHS.
01268  M00S01129.rec     +++|*
01269  M00S01130.rec     +++|*         ENTRY  (A) = LIST ADDRESS OF TABLE POINTERS.
01270  M00S01131.rec     +++|*
01271  M00S01132.rec     +++|*         EXIT   (A) = 0 IF TABLE LENGTHS VALID.
01272  M00S01133.rec     +++|*                (CA - CA+1) = FWA OF LAST TABLE IN LIST.
01273  M00S01134.rec     +++|*
01274  M00S01135.rec     +++|*         USES   EC, QA, T2, LM - LM+1.
01275  M00S01136.rec     +++|
01276  M00S01137.rec     +++|
01277  M00S01138.rec     +++| VTL1     STD    T2
01278  M00S01139.rec     +++|          CRD    CA          READ TABLE POINTER
01279  M00S01140.rec     +++|          SHN    2
01280  M00S01141.rec     +++|          ADC    PBUF+2      SET ADDRESS OF CHECKPOINTED POINTER
01281  M00S01142.rec     +++|          RAD    T2
01282  M00S01143.rec     +++|          LDD    EC          COMPARE NUMBER OF TABLE ENTRIES
01283  M00S01144.rec     +++|          LMI    T2
01284  M00S01145.rec     +++|          NJN    VTLX        IF TABLE LENGTHS DIFFER
01285  M00S01146.rec     +++|          LDD    RS
01286  M00S01147.rec     +++|          LPN    FLMK
01287  M00S01148.rec     +++|          LMN    FLCM
01288  M00S01149.rec     +++|          ZJN    VTL2        IF FILES RECOVERED FROM CM
01289  M00S01150.rec     +++|          LDM    1,T2
01290  M00S01151.rec     +++|          STD    LM
01291  M00S01152.rec     +++|          LDM    2,T2        RESET POINTER PARAMETERS
01292  M00S01153.rec     +++|          STD    LM+1
01293  M00S01154.rec     +++|          LDI    QA          UPDATE POINTER WORD
01294  M00S01155.rec     +++|          CWD    CA
01295  M00S01156.rec     +++| VTL2     AOD    QA          ADVANCE LIST ADDRESS
01296  M00S01157.rec     +++| VTL3     LDI    QA
01297  M00S01158.rec     +++|          NJN    VTL1        IF NOT END OF LIST
01298  M00S01159.rec     +++|
01299  M00S01160.rec     +++| VTL      SUBR               ENTRY/EXIT
01300  M00S01161.rec     +++|          STD    QA
01301  M00S01162.rec     +++|          UJN    VTL3        ENTER LOOP
01302  M00S01163.rec     +++| BUFFERS  SPACE  4
01303  M00S01164.rec     +++|*         BUFFER DEFINITIONS.
01304  M00S01165.rec     +++|
01305  M00S01166.rec     +++|
01306  M00S01167.rec     +++| PBUF     EQU    *+2
01307  M00S01168.rec     +++| BUF      EQU    PBUF+5*BQRL
01308  M00S01169.rec     +++|
01309  M00S01170.rec     +++|          ERRPL  BUF+502-EPFW  BUFFER OVERFLOW
Line S01171 Modification History
M01 (Removed by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01310  M01S01171.rec23   ---|
01311  M01S01172.rec23   ---|
01312  M01S01173.rec23   ---|*         ROLLOUT FILE FNT SECTOR BUFFER.
01313  M01S01174.rec23   ---|
01314  M01S01175.rec23   ---| SBUF     EQU    PBUF+LENF*5-5  LEAVE ROOM FOR FNT ENTRY - ONE WORD
01315  M01S01176.rec23   ---|
01316  M01S01177.rec23   ---|          ERRPL  SBUF+SBUFL-EPFW  BUFFER OVERFLOW
01317  M00S01178.rec     +++|          TITLE  PRESET PROGRAM.
01318  M00S01179.rec     +++| PRS      SPACE  4
01319  M00S01180.rec     +++|**        PRS - PRESET.
01320  M00S01181.rec     +++|*
01321  M00S01182.rec     +++|*         EXIT   (RS) = RECOVERY STATUS.
01322  M00S01183.rec     +++|*                (NC) = NUMBER OF CONTROL POINTS.
Line S00067 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01323  M02S00067.rec33   ---|*                (NS) = NUMBER OF CP-S + PCP-S.
Line S00005 Modification History
M01 (Added by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01324  M01S00005.rec33   +++|*                (NS) = NUMBER OF CP-S + PCP-S + 1 (SYS CP).
01325  M00S01184.rec     +++|*                (CE) = CHECKPOINT DEVICE EST ORDINAL.
01326  M00S01185.rec     +++|*                (ST) = SYSTEM TRACK FOR RECOVERY.
01327  M00S01186.rec     +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
01328  M00S01187.rec     +++|*
01329  M00S01188.rec     +++|*         USES   CM - CM+4, CN - CN+4.
01330  M00S01189.rec     +++|
01331  M00S01190.rec     +++|
01332  M00S01191.rec     +++| PRS      SUBR               ENTRY/EXIT
01333  M00S01192.rec     +++|          LDN    SMRL
01334  M00S01193.rec     +++|          CRD    CM
01335  M00S01194.rec     +++|          LDD    CM+4        SET STORAGE MOVE STATUS
01336  M00S01195.rec     +++|          STM    CCPA
01337  M00S01196.rec     +++|          LDD    CM+3
01338  M00S01197.rec     +++|          LPN    77
01339  M00S01198.rec     +++|          RAM    CCPB
01340  M00S01199.rec     +++|          LDD    IR+4        SET RECOVERY STATUS
01341  M00S01200.rec     +++|*         STD    RS
01342  M00S01201.rec     +++|          STM    RECC+4
Line S01202 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01343  M01S01202.271l716 ---|          LDN    NCPL        SET NUMBER OF CONTROL POINTS
01344  M01S01203.271l716 ---|          CRD    CM
01345  M01S01204.271l716 ---|          AOD    CM+1
Line S00068 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01346  M01S00068.271l716 +++|          LDN    NCPL        FETCH CONTROL POINT COUNT
01347  M01S00069.271l716 +++|          CRD    CM
01348  M01S00070.271l716 +++|          ADN    MCTP-NCPL   GET MCT POINTER
01349  M01S00071.271l716 +++|          CRD    CN
01350  M01S00072.271l716 +++|          AOD    CM+1        SET SYSTEM CP
01351  M00S01205.rec     +++|          STD    NC
01352  M00S01206.rec     +++|          RAM    RECC+1
Line S00073 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01353  M01S00073.271l716 +++|          ERRNZ  MCTP-PCPP   CODE DEPENDS ON VALUE
01354  M01S00074.271l716 +++|          LDD    CN+3
01355  M01S00075.271l716 +++|          SHN    14          FORM BASE PCPA ADDRESS
01356  M01S00076.271l716 +++|          LMD    CN+4
01357  M01S00077.271l716 +++|          SBK    CPAS
01358  M01S00078.271l716 +++|          STM    SCAA        SET ADDRESS - CPA LENGTH
01359  M01S00079.271l716 +++|          SHN    -14
01360  M01S00080.271l716 +++|          RAM    SCAA-1
Line S00081 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01361  M02S00081.rec33   ---|          SOD    CN+2        SET CP + PCP COUNT
Line S00006 Modification History
M01 (Added by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01362  M01S00006.rec33   +++|          SOD    CN+2        SET CP + PCP + SYS CP COUNT
Line S00082 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01363  M01S00082.271l716 +++|          STD    NS
01364  M00S01207.rec     +++|          LDD    IA
01365  M00S01208.rec     +++|          CWD    IR
01366  M00S01209.rec     +++|          MONITOR CCAM
01367  M00S01210.rec     +++|*         LDN    0
01368  M00S01211.rec     +++|          STD    ST
01369  M00S01212.rec     +++|          LDN    ESTP        READ EST POINTER
01370  M00S01213.rec     +++|          CRD    CM
01371  M00S01214.rec     +++|          LDD    CM+3        SET LAST MASS STORAGE ORDINAL + 1
01372  M00S01215.rec     +++|          STD    LO
01373  M00S01216.rec     +++|          LDN    TAXMW       SET TAXM WORD COUNT
01374  M00S01217.rec     +++|          STD    T2
01375  M00S01218.rec     +++|          LDN    ZERL
01376  M00S01219.rec     +++|          CRD    CM
01377  M00S01220.rec     +++|          ADN    DSDL+1-ZERL FETCH *TAXM* TABLE GENERATED BY *SET*
01378  M00S01221.rec     +++|          CRM    TAXM,T2
01379  M00S01222.rec     +++|          RJM    IFP         INITIALIZE TABLE ACCESS ROUTINES
01380  M00S01223.rec     +++|
01381  M00S01224.rec     +++|*         FIND SYSTEM DEVICE.
01382  M00S01225.rec     +++|
01383  M00S01226.rec     +++|          LDN    NOPE-1
01384  M00S01227.rec     +++|          STD    T5
01385  M00S01228.rec     +++| PRS1     AOD    T5          INCREMENT EST ORDINAL
01386  M00S01229.rec     +++|          STM    RECF        SET POSSIBLE SYSTEM DEVICE
01387  M00S01230.rec     +++|          LMD    LO
01388  M00S01231.rec     +++|          ZJP    PRS5        IF END OF SCAN
01389  M00S01232.rec     +++|          SFA    EST,T5
01390  M00S01233.rec     +++|          ADK    EQDE
01391  M00S01234.rec     +++|          CRD    FN          READ EST ENTRY
01392  M00S01235.rec     +++|          LDD    FN
01393  M00S01236.rec     +++|          SHN    21-13
01394  M00S01237.rec     +++|          PJN    PRS1        IF NOT MASS STORAGE
01395  M00S01238.rec     +++|          SHN    13-12
01396  M00S01239.rec     +++|          PJN    PRS1        IF NOT SYSTEM DEVICE
01397  M00S01240.rec     +++|
01398  M00S01241.rec     +++|*         FIND CHECKPOINT DEVICE.
01399  M00S01242.rec     +++|
01400  M00S01243.rec     +++|          LDN    NOPE-1
01401  M00S01244.rec     +++|          STD    CE
01402  M00S01245.rec     +++| PRS2     AOD    CE          INCREMENT EST ORDINAL
01403  M00S01246.rec     +++|          LMD    LO
01404  M00S01247.rec     +++|          ZJN    PRS4        IF END OF SCAN
01405  M00S01248.rec     +++|          SFA    EST,CE
01406  M00S01249.rec     +++|          ADK    EQDE
01407  M00S01250.rec     +++|          CRD    FN
01408  M00S01251.rec     +++|          LDD    FN
01409  M00S01252.rec     +++|          SHN    21-13
01410  M00S01253.rec     +++|          PJN    PRS2        IF NOT MASS STORAGE
01411  M00S01254.rec     +++|          SHN    13-2
01412  M00S01255.rec     +++|          PJN    PRS2        IF NOT CHECKPOINT DEVICE
01413  M00S01256.rec     +++|          LDD    FN+4        SET SYSTEM TABLE TRACK
01414  M00S01257.rec     +++|          SHN    3
01415  M00S01258.rec     +++|          ADN    DULL
01416  M00S01259.rec     +++|          CRD    FS
01417  M00S01260.rec     +++|          LDD    FS+3
01418  M00S01261.rec     +++|          SHN    21-13
01419  M00S01262.rec     +++|          PJN    PRS2        IF NOT VALID CHECKPOINT FILE
01420  M00S01263.rec     +++|          SHN    13-21
01421  M00S01264.rec     +++|          STD    ST
01422  M00S01265.rec     +++|          STM    RECE
01423  M00S01266.rec     +++| PRS3     RJM    STU         SCAN TAPE UNITS
01424  M00S01267.rec     +++|          LJM    PRSX        RETURN
01425  M00S01268.rec     +++|
01426  M00S01269.rec     +++| PRS4     LDD    RS
01427  M00S01270.rec     +++|          ZJN    PRS3        IF NOT RECOVERY DEADSTART
01428  M00S01271.rec     +++|          LDN    PRSB-PRSA
01429  M00S01272.rec     +++| PRS5     ADC    PRSA
01430  M00S01273.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
01431  M00S01274.rec     +++|
01432  M00S01275.rec     +++| PRSA     DATA   C*SYSTEM DEVICE NOT FOUND.*
01433  M00S01276.rec     +++| PRSB     DATA   C*CHECKPOINT DEVICE NOT FOUND.*
01434  M00S01277.rec     +++|
01435  M00S01278.rec     +++| IFP      HERE               DUMP *IFP* REMOTE CODE
01436  M00S01279.rec     +++| STU      SPACE  4,10
01437  M00S01280.rec     +++|**        STU - SCAN TAPE UNITS IN *MAGNET*.
01438  M00S01281.rec     +++|*
Line S01282 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01439  M01S01282.282l826 ---|*         SETS FLAG TO FORCE *MAGNET* CLEAN-UP OF UNIT DESCRIPTOR
01440  M01S01283.282l826 ---|*         TABLES (UDT) CORRESPONDING TO JOBS AT CONTROL POINTS
01441  M01S01284.282l826 ---|*         WITH AN OUTSTANDING *CIO* REQUEST ON THE TAPE.
Line S00002 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01442  M01S00002.282l826 +++|*         EXIT   JOB STATUS UPDATED IN *UST1* WORD OF UDT ENTRIES.
01443  M00S01285.rec     +++|*
01444  M00S01286.rec     +++|*         USES   CM - CM+4, CN - CN+4, FN - FN+4, FS - FS+4.
01445  M00S01287.rec     +++|*
01446  M00S01288.rec     +++|*         CALLS  AST.
01447  M00S01289.rec     +++|*
Line S01290 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01448  M01S01290.282l826 ---|*         MACROS SFA.
Line S00003 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01449  M01S00003.282l826 +++|*         MACROS PAUSE, SFA.
01450  M00S01291.rec     +++|
01451  M00S01292.rec     +++|
01452  M00S01293.rec     +++| STU      SUBR               ENTRY/EXIT
01453  M00S01294.rec     +++|          LDC    FECF*10000+MTSI  GET *MAGNET* SSCT ENTRY
01454  M00S01295.rec     +++|          RJM    AST
01455  M00S01296.rec     +++|          SHN    21-13
01456  M00S01297.rec     +++|          PJN    STUX        IF *MAGNET* NOT ACCESSIBLE
01457  M00S01298.rec     +++|          LDC    FEAF*10000+MTSI  GET *MAGNET* SSAT ENTRY
01458  M00S01299.rec     +++|          RJM    AST
01459  M00S01300.rec     +++|          ZJN    STUX        IF *MAGNET* NOT AT CONTROL POINT
01460  M00S01301.rec     +++|          SFA    EJT         GET *MAGNET* CP NUMBER
01461  M00S01302.rec     +++|          ADN    SCHE
01462  M00S01303.rec     +++|          CRD    CM
01463  M00S01304.rec     +++|          LDD    CM+3        CHECK *MAGNET* SUBSYSTEM IDENTIFICATION
01464  M00S01305.rec     +++|          SHN    7
01465  M00S01306.rec     +++|          ADN    JCIW
01466  M00S01307.rec     +++|          CRD    CM
Line S01308 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01467  M01S01308.271l750 ---|          ADN    FLSW-JCIW   GET *MAGNET* RA AND FL
Line S00002 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01468  M01S00002.271l750 +++|          SBN    JCIW-FLSW   GET *MAGNET* RA AND FL
01469  M00S01309.rec     +++|          CRD    CN
01470  M00S01310.rec     +++|          SCN    77
01471  M00S01311.rec     +++|          LMM    CCPA
01472  M00S01312.rec     +++|          ZJN    STUX        IF *MAGNET* MOVING
01473  M00S01313.rec     +++|          LDD    CM+2
01474  M00S01314.rec     +++|          LMC    MTSI
01475  M00S01315.rec     +++|          NJN    STUX        IF NOT CORRECT SUBSYSTEM IDENTIFICATION
01476  M00S01316.rec     +++|          LDK    MABL        CHECK MAINFRAME TYPE
01477  M00S01317.rec     +++|          CRD    CM
01478  M00S01318.rec     +++|          LDD    CM+1
01479  M00S01319.rec     +++|          SHN    21-13
01480  M00S01320.rec     +++|          MJN    STU1        IF NOT CM EXTENSION
01481  M00S01321.rec     +++|          LRD    CN+2
01482  M00S01322.rec     +++|          LDC    4000
01483  M00S01323.rec     +++|          STD    CN+3
01484  M00S01324.rec     +++| STU1     LDD    CN+3        GET *MAGNET* UDT FWA AND LWA+1
01485  M00S01325.rec     +++|          SHN    6
Line S01326 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01486  M01S01326.282l826 ---|          ADN    /COMSMTX/UBUF
Line S00004 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01487  M01S00004.282l826 +++|          ADN    /MTX/UBUF
01488  M00S01327.rec     +++|          CRD    CM
Line S01328 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01489  M01S01328.282l826 ---|          ADN    /COMSMTX/XREQ-/COMSMTX/UBUF  PENDING EXTERNAL REQUEST
01490  M01S01329.282l826 ---|          CRD    FN
01491  M01S01330.282l826 ---|          LDD    FN          INDICATE LEVEL THREE ON EXTERNAL REQUEST
01492  M01S01331.282l826 ---|          LPC    3777
01493  M01S01332.282l826 ---|          LMC    4000
01494  M01S01333.282l826 ---|          STD    FN
01495  M01S01334.282l826 ---|          LDD    CN+3
01496  M01S01335.282l826 ---|          SHN    6
01497  M01S01336.282l826 ---|          ADN    /COMSMTX/XREQ
01498  M01S01337.282l826 ---|          CWD    FN
01499  M00S01338.rec     +++|          LDD    CM+4        VALIDATE UDT FWA AND LWA+1
01500  M00S01339.rec     +++|          SBN    2
01501  M00S01340.rec     +++|          MJN    STU2        IF UDT FWA .LE. 1
01502  M00S01341.rec     +++|          LDD    CN+4
01503  M00S01342.rec     +++|          SHN    6
01504  M00S01343.rec     +++|          SBD    CM+2
01505  M00S01344.rec     +++|          SBN    1
01506  M00S01345.rec     +++|          MJN    STU2        IF UDT LWA+1 .GE. FL
01507  M00S01346.rec     +++|          LDD    CM+4
01508  M00S01347.rec     +++|          SBD    CM+2
01509  M00S01348.rec     +++|          MJN    STU4        IF UDT FWA .LT. LWA+1
01510  M00S01349.rec     +++| STU2     PAUSE  NE          RESET R REGISTER FOR CME MACHINE
01511  M00S01350.rec     +++|          LJM    STUX        RETURN
01512  M00S01351.rec     +++|
Line S01352 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01513  M01S01352.282l826 ---| STU3     LDN    /COMSMTX/UNITL
Line S00005 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01514  M01S00005.282l826 +++| STU3     LDN    /MTX/UNITL
01515  M00S01353.rec     +++|          RAD    CM+4
01516  M00S01354.rec     +++|          SBD    CM+2
01517  M00S01355.rec     +++|          PJN    STU2        IF END OF UDTS
01518  M00S01356.rec     +++| STU4     LDD    CN+3        CHECK NEXT UDT
01519  M00S01357.rec     +++|          SHN    6
01520  M00S01358.rec     +++|          ADD    CM+4
Line S01359 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01521  M01S01359.282l826 ---|          ADN    /COMSMTX/UJID
Line S00006 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01522  M01S00006.282l826 +++|          ADK    /MTX/UST1  GET JOB STATUS
01523  M00S01360.rec     +++|          CRD    FS
Line S01361 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01524  M01S01361.282l826 ---|          LDD    FS+4
01525  M01S01362.282l826 ---|          ZJN    STU3        IF UNIT NOT ASSIGNED
01526  M01S01363.282l826 ---|          LDD    FS+2        CHECK JOB AT CONTROL POINT
01527  M01S01364.282l826 ---|          LPN    37
01528  M01S01365.282l826 ---|          SHN    14
01529  M01S01366.282l826 ---|          ADD    FS+3
Line S00007 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01530  M01S00007.282l826 +++|          ADK    /MTX/UVRI-/MTX/UST1  GET EJT ORDINAL
01531  M01S00008.282l826 +++|          CRD    FN
01532  M01S00009.282l826 +++|          LDD    FS          CLEAR JOB ROLLED OUT FLAG
01533  M01S00010.282l826 +++|          SCN    1
01534  M01S00011.282l826 +++|          STD    FS
01535  M01S00012.282l826 +++|          SFA    EJT,FN      GET JOB STATUS
01536  M00S01367.rec     +++|          ADK    JSNE
01537  M00S01368.rec     +++|          CRD    FN
01538  M00S01369.rec     +++|          LDD    FN+4
01539  M00S01370.rec     +++|          LPN    76
Line S01371 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01540  M01S01371.282l826 ---|          SBN    EXJS*2
01541  M01S01372.282l826 ---|          NJN    STU3        IF JOB NOT AT CONTROL POINT
01542  M01S01373.282l826 ---|          LDD    FS          INDICATE JOB ACTIVITY LOST
01543  M01S01374.282l826 ---|          LPC    5777
01544  M01S01375.282l826 ---|          LMC    2000
01545  M01S01376.282l826 ---|          STD    FS
01546  M01S01377.282l826 ---|          LDD    CN+3
Line S00013 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01547  M01S00013.282l826 +++|          LMN    EXJS*2
01548  M01S00014.282l826 +++|          ZJN    STU5        IF UNIT NOT ASSIGNED OR JOB AT CP
01549  M01S00015.282l826 +++|          AOD    FS          INDICATE JOB ROLLED OUT
01550  M01S00016.282l826 +++| STU5     LDD    CN+3
01551  M00S01378.rec     +++|          SHN    6
01552  M00S01379.rec     +++|          ADD    CM+4
Line S01380 Modification History
M01 (Removed by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01553  M01S01380.282l826 ---|          ADN    /COMSMTX/UJID
Line S00017 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01554  M01S00017.282l826 +++|          ADN    /MTX/UST1
01555  M00S01381.rec     +++|          CWD    FS
01556  M00S01382.rec     +++|          UJN    STU3        PROCESS NEXT UDT
01557  M00S01383.rec     +++|          SPACE  4,10
01558  M00S01384.rec     +++|**        PRESET COMMON DECKS.
01559  M00S01385.rec     +++|
01560  M00S01386.rec     +++|
01561  M00S01387.rec     +++|*CALL     COMPAST
01562  M00S01388.rec     +++|          TTL    REC/4RA - RECOVER DAYFILES.
01563  M00S01389.rec     +++|          TITLE
01564  M00S01390.rec     +++|          QUAL   RDB
01565  M00S01391.rec     +++|          IDENT  4RA,RDFX
01566  M00S01392.rec     +++| QUAL$    EQU    1           DONT QUALIFY COMMON DECKS
01567  M00S01393.rec     +++|*COMMENT  REC - RECOVER DAYFILES.
Line S01394 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
01568  M01S01394.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
Line S00002 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
01569  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
01570  M00S01395.rec     +++|          SPACE  4
01571  M00S01396.rec     +++|**        4RA - RECOVER DAYFILES.
01572  M00S01397.rec     +++|*
01573  M00S01398.rec     +++|*                *4RA* USES THE DAYFILE RECOVERY INFORMATION DEVELOPED
01574  M00S01399.rec     +++|*         BY *RMS* TO SETUP THE DAYFILE FST ENTRIES.  IT ALSO SETS
01575  M00S01400.rec     +++|*         THE RECOVERED DAYFILES LENGTH IN THE CORRESPONDING
01576  M00S01401.rec     +++|*         SYSTEM SECTOR.  IF A DAYFILE IS NOT RECOVERED, *4RA*
01577  M00S01402.rec     +++|*         WILL START A NEW DAYFILE ON THE DEVICE DEFINED BY
01578  M00S01403.rec     +++|*         THE DAYFILE CMRDECK DIRECTIVES.
01579  M00S01404.rec     +++|          SPACE  4,3
01580  M00S01405.rec     +++|***       ENTRY CONDITIONS.
01581  M00S01406.rec     +++|*
01582  M00S01407.rec     +++|*         (SE) = SYSTEM EQUIPMENT.
01583  M00S01408.rec     +++|          SPACE  4,3
01584  M00S01409.rec     +++|***       OPERATOR MESSAGES.
01585  M00S01410.rec     +++|*
01586  M00S01411.rec     +++|*         *FILENAM   UNRECOVERABLE.*  = DAYFILE SPECIFIED
01587  M00S01412.rec     +++|*         NOT RECOVERABLE.
01588  M00S01413.rec     +++|          SPACE  4
01589  M00S01414.rec     +++|          ORG    OVLA
01590  M00S01415.rec     +++|
01591  M00S01416.rec     +++|
01592  M00S01417.rec     +++| RDF      SUBR               ENTRY/EXIT
01593  M00S01418.rec     +++|          RJM    IDF         INITIALIZE DAYFILES
01594  M00S01419.rec     +++|          UJN    RDFX        RETURN
01595  M00S01420.rec     +++| RDB      SPACE  4,10
01596  M00S01421.rec     +++|          QUAL
01597  M00S01422.rec     +++|
01598  M00S01423.rec     +++|*         *4RA*/*4RE* COMMUNICATION BLOCK.
01599  M00S01424.rec     +++|
01600  M00S01425.rec     +++|
01601  M00S01426.rec     +++| RDBA     BSS    0           CREATION DATE BUFFERS
01602  M00S01427.rec     +++|          BSSZ   5           SYSTEM DAYFILE
01603  M00S01428.rec     +++|          BSSZ   5           ACCOUNT DAYFILE
01604  M00S01429.rec     +++|          BSSZ   5           ERRLOG DAYFILE
01605  M00S01430.rec     +++|          BSSZ   5           MAINTENANCE LOG DAYFILE
01606  M00S01431.rec     +++|
01607  M00S01432.rec     +++| RDBB     BSS    0           EOI DATE BUFFERS
01608  M00S01433.rec     +++|          BSSZ   5           SYSTEM DAYFILE
01609  M00S01434.rec     +++|          BSSZ   5           ACCOUNT DAYFILE
01610  M00S01435.rec     +++|          BSSZ   5           ERRLOG DAYFILE
01611  M00S01436.rec     +++|          BSSZ   5           MAINTENANCE LOG DAYFILE
01612  M00S01437.rec     +++|
01613  M00S01438.rec     +++| RDBC     BSS    0           EOI TIME BUFFERS
01614  M00S01439.rec     +++|          BSSZ   5           SYSTEM DAYFILE
01615  M00S01440.rec     +++|          BSSZ   5           ACCOUNT DAYFILE
01616  M00S01441.rec     +++|          BSSZ   5           ERRLOG DAYFILE
01617  M00S01442.rec     +++|          BSSZ   5           MAINTENANCE LOG DAYFILE
01618  M00S01443.rec     +++|
01619  M00S01444.rec     +++| RDBD     BSS    0
01620  M00S01445.rec     +++|          DATA   H*DAYFILE   *
01621  M00S01446.rec     +++|          DATA   H*ACCOUNT   *
01622  M00S01447.rec     +++|          DATA   H*ERRLOG    *
01623  M00S01448.rec     +++|          DATA   H*MAINLOG   *
01624  M00S01449.rec     +++| RDBE     BSS    0
01625  M00S01450.rec     +++|
01626  M00S01451.rec     +++| RDBF     BSSZ   EXDF        FIRST TRACK OF CREATED DAYFILES
01627  M00S01452.rec     +++|
01628  M00S01453.rec     +++|*         THE FOLLOWING MESSAGE, *ARSY, LN, YY/MM/DD.* IS ISSUED WHEN
01629  M00S01454.rec     +++|*         THE ACCOUNT DAYFILE IS RECOVERED ON DEADSTART LEVEL *LN*.
01630  M00S01455.rec     +++|*         THE MESSAGE *ABSY,  YY/MM/DD.* IS ISSUED WHEN THE ACCOUNT
01631  M00S01456.rec     +++|*         DAYFILE IS INITIALIZED.
01632  M00S01457.rec     +++|
01633  M00S01458.rec     +++| RDBG     DATA   H*ARSY, 0, YY/MM/D*
01634  M00S01459.rec     +++|          CON    0,0
01635  M00S01460.rec     +++| RDBH     DATA   C*FILENAM   RECOVERED, EQXXX.*
01636  M00S01461.rec     +++| RDBI     DATA   C*FILENAM   CREATION DATE YY/MM/DD. *
01637  M00S01462.rec     +++| RDBI1    EQU    *-6
01638  M00S01463.rec     +++| RDBJ     DATA   C*FILENAM   UPDATED YY/MM/DD. HH.MM.SS. *
01639  M00S01464.rec     +++| RDBJ1    EQU    *-13
01640  M00S01465.rec     +++| RDBK     CON    RDBG+4      MESSAGE ADDRESS FOR DATE
01641  M00S01466.rec     +++|          SPACE  4,10
01642  M00S01467.rec     +++| OVLB     EQU    *+5         ORIGIN FOR *4RE*
01643  M00S01468.rec     +++|          QUAL   RDB
01644  M00S01469.rec     +++|          TITLE  SUBROUTINES.
01645  M00S01470.rec     +++| IDF      SPACE  4,9
01646  M00S01471.rec     +++|**        IDF - INITIALIZE DAYFILES.
01647  M00S01472.rec     +++|*
01648  M00S01473.rec     +++|*         ENTRY  (RS) = RECOVERY STATUS.
01649  M00S01474.rec     +++|*                (RECF) = SYSTEM EQUIPMENT.
01650  M00S01475.rec     +++|*
01651  M00S01476.rec     +++|*         EXIT   (USST) = EQUIPMENT AND FIRST TRACK OF NEW DAYFILES.
01652  M00S01477.rec     +++|*
01653  M00S01478.rec     +++|*         USES   T1 - T7, CM - CM+4, CN - CN+4, FN - FN+4,
01654  M00S01479.rec     +++|*                FS - FS+4, USST, QT, QS, FA.
01655  M00S01480.rec     +++|*
01656  M00S01481.rec     +++|*         CALLS  C2D, FMM, GDT, IEM, IRA, RDS, RSS, SEI, TLM, WEI, WSS.
01657  M00S01482.rec     +++|*
01658  M00S01483.rec     +++|*         MACROS ENDMS, MONITOR, SETMS, SFA.
01659  M00S01484.rec     +++|
01660  M00S01485.rec     +++|
01661  M00S01486.rec     +++| IDF      SUBR               ENTRY/EXIT
01662  M00S01487.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
01663  M00S01488.rec     +++|          LPN    FLMK
01664  M00S01489.rec     +++|          LMN    FLCM
01665  M00S01490.rec     +++|          ZJN    IDFX        IF FILES RECOVERED FROM CM
01666  M00S01491.rec     +++|          LDN    0           CLEAR FST ADDRESS
01667  M00S01492.rec     +++|          STD    FA
01668  M00S01493.rec     +++|          STD    QS          CLEAR *USST* INDEX
01669  M00S01494.rec     +++|          LDN    ZERL
01670  M00S01495.rec     +++|          CRD    CM
01671  M00S01496.rec     +++|
01672  M00S01497.rec     +++|*         THE FIRST WORD OF THE SYSTEM DAYFILES BUFFER CONTAINS
01673  M00S01498.rec     +++|*         THE DAYFILE RECOVERY INFORMATION.
01674  M00S01499.rec     +++|
01675  M00S01500.rec     +++|          LDN    DFPP        SET FWA OF DAYFILE POINTERS
01676  M00S01501.rec     +++|          CRD    CN
01677  M00S01502.rec     +++|          LDD    CN
01678  M00S01503.rec     +++|          SHN    14
01679  M00S01504.rec     +++|          ADD    CN+1
01680  M00S01505.rec     +++|          CRD    FS
01681  M00S01506.rec     +++|          SBN    1           INITIALIZE DAYFILE STATUS WORD ADDRESS
01682  M00S01507.rec     +++|          STD    CN+1
01683  M00S01508.rec     +++|          SHN    -14
01684  M00S01509.rec     +++|          STD    CN
01685  M00S01510.rec     +++|          LCN    0           INITIALIZE DAYFILE INDEX
01686  M00S01511.rec     +++|          STD    CN+3
01687  M00S01512.rec     +++|          LDD    FS
01688  M00S01513.rec     +++|          SHN    14
01689  M00S01514.rec     +++|          LMD    FS+1
01690  M00S01515.rec     +++|          CRD    FN
01691  M00S01516.rec     +++|          CWD    CM
01692  M00S01517.rec     +++|          LDD    FN+1        CHECK ACCOUNT FILE RECOVERY INFORMATION
01693  M00S01518.rec     +++|          SHN    21-13
01694  M00S01519.rec     +++|          PJN    IDF1        IF RECOVERY SELECTED
01695  M00S01520.rec     +++|          SOM    RDBK
01696  M00S01521.rec     +++|          LCN    1RR-1RB     SET *ABSY* IN MESSAGE
01697  M00S01522.rec     +++|          RAM    RDBG
01698  M00S01523.rec     +++|
01699  M00S01524.rec     +++|*         LOOP TO PROCESS EACH DAYFILE.
01700  M00S01525.rec     +++|
01701  M00S01526.rec     +++| IDF1     AOD    CN+3        ADVANCE DAYFILE INDEX
01702  M00S01527.rec     +++|          LMN    EXDF
01703  M00S01528.rec     +++|          NJN    IDF2        IF NOT LAST OF EXCESS DAYFILES
01704  M00S01529.rec     +++|          LJM    IDFX        RETURN
01705  M00S01530.rec     +++|
01706  M00S01531.rec     +++| IDF2     LDN    3           SET STATUS WORD ADDRESS
01707  M00S01532.rec     +++|          RAD    CN+1
01708  M00S01533.rec     +++|          SHN    -14
01709  M00S01534.rec     +++|          RAD    CN
01710  M00S01535.rec     +++|          SHN    14
01711  M00S01536.rec     +++|          ADD    CN+1
01712  M00S01537.rec     +++|          CRD    FS          READ DAYFILE STATUS WORD
01713  M00S01538.rec     +++|          SBN    1           READ DAYFILE BUFFER LENGTH WORD
01714  M00S01539.rec     +++|          CRD    CM
01715  M00S01540.rec     +++|          LDD    CM+3
01716  M00S01541.rec     +++|          ZJN    IDF1        IF ZERO LENGTH BUFFER
01717  M00S01542.rec     +++|          STD    CM+2
01718  M00S01543.rec     +++|          LDN    0
01719  M00S01544.rec     +++|          STD    CM+3
01720  M00S01545.rec     +++|          LDD    CN          ACTIVATE DAYFILE
01721  M00S01546.rec     +++|          SHN    14
01722  M00S01547.rec     +++|          ADD    CN+1
01723  M00S01548.rec     +++|          SBN    1
01724  M00S01549.rec     +++|          CWD    CM
01725  M00S01550.rec     +++|
01726  M00S01551.rec     +++|*         PROCESS DAYFILE RECOVERY.
01727  M00S01552.rec     +++|
01728  M00S01553.rec     +++|          LDM    FN,CN+3     SET DAYFILE EST ORDINAL
01729  M00S01554.rec     +++|          LPC    777
01730  M00S01555.rec     +++|          STD    T5
01731  M00S01556.rec     +++|          LMN    NEEQ
01732  M00S01557.rec     +++|          ZJN    IDF3        IF DEFAULT EQUIPMENT
01733  M00S01558.rec     +++|          SFA    EST,T5      READ EST ENTRY
01734  M00S01559.rec     +++|          ADK    EQDE
01735  M00S01560.rec     +++|          CRD    CM
01736  M00S01561.rec     +++|          LDD    CM          CHECK EQUIPMENT
01737  M00S01562.rec     +++|          SHN    -6
01738  M00S01563.rec     +++|          LPN    45
01739  M00S01564.rec     +++|          LMN    40
01740  M00S01565.rec     +++|          ZJN    IDF4        IF MASS STORAGE, NOT REMOVABLE, AVAILABLE
01741  M00S01566.rec     +++| IDF3     LDM    RECF        DEFAULT TO SYSTEM DEVICE
01742  M00S01567.rec     +++|          STD    T5
01743  M00S01568.rec     +++| IDF4     RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
01744  M00S01569.rec     +++|          LDD    T5          SET EQUIPMENT IN FST
01745  M00S01570.rec     +++|          STD    FS
01746  M00S01571.rec     +++|          RJM    GDT         GET DAYFILE TRACKS
01747  M00S01572.rec     +++|          LDM    FN,CN+3
01748  M00S01573.rec     +++|          SHN    21-13
01749  M00S01574.rec     +++|          PJN    IDF6        IF RECOVERY OF DAYFILE SELECTED
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/rec.txt ยท Last modified: (external edit)