User Tools

Site Tools


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

Deck REC

29 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.rec     +++|          IDENT  REC,REC
00002  M01S00002.rec     +++|          PERIPH
00003  M01S00003.rec     +++|          BASE   MIXED
00004  M01S00004.rec     +++|          SST
00005  M01S00005.rec     +++| EQV$     EQU    1           DEFINE NO EQUIPMENT CHECK FOR *COMPRSS*
00006  M01S00006.rec     +++| MSR$     EQU    1           SELECT ERROR PROCESSING FOR *RNS*
00007  M01S00007.rec     +++| IRA$     EQU    1           FLAG RANDOM ACCESS PROCESSORS INITIALIZED
00008  M01S00008.rec     +++| SEI$     EQU    1           SELECT TRT UPDATE FOR *COMPSEI*
00009  M01S00009.rec     +++|*COMMENT  REC - SYSTEM RECOVERY PROCESSSOR.
Line S00010 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00010.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00011.rec     +++|          TITLE  REC - SYSTEM RECOVERY PROCESSOR.
00013  M01S00012.rec     +++|          SPACE  4
00014  M01S00013.rec     +++|***       REC - SYSTEM RECOVERY PROCESSOR.
00015  M01S00014.rec     +++|*
00016  M01S00015.rec     +++|*         G. R. MANSFIELD.   70/12/17.
00017  M01S00016.rec     +++|*         J. L. WARDELL.     72/08/17.
00018  M01S00017.rec     +++|*         S. L. BETH.        74/12/17.
00019  M01S00018.rec     +++|*         P. D. HAAS.        76/08/11.
00020  M01S00019.rec     +++|          SPACE  4
00021  M01S00020.rec     +++|***              *REC* PROCESSES SYSTEM RECOVERY.
00022  M01S00021.rec     +++|          SPACE  4,10
00023  M01S00022.rec     +++|***       DAYFILE MESSAGES.
00024  M01S00023.rec     +++|*
00025  M01S00024.rec     +++|*
00026  M01S00025.rec     +++|*         THE FOLLOWING MESSAGES MAY APPEAR IN THE SYSTEM DAYFILE
00027  M01S00026.rec     +++|*         AFTER A CM RECOVERY.  EACH IS SELF EXPLANATORY AND
00028  M01S00027.rec     +++|*         INDICATES THE NUMBER OF FILES IN A GIVEN CATEGORY FOUND
00029  M01S00028.rec     +++|*         IN THE ASSOCIATED MANAGED TABLE.
00030  M01S00029.rec     +++|*
00031  M01S00030.rec     +++|*                MESSAGES ASSOCIATED WITH THE FNT.
00032  M01S00031.rec     +++|*
00033  M01S00032.rec     +++|*         *NNNN FAST ATTACH FILES RECOVERED.*
00034  M01S00033.rec     +++|*
00035  M01S00034.rec     +++|*                MESSAGES ASSOCIATED WITH THE EJT.
00036  M01S00035.rec     +++|*
00037  M01S00036.rec     +++|*         *NNNN PRE-INITIAL JOB FILES RECOVERED.*
00038  M01S00037.rec     +++|*
00039  M01S00038.rec     +++|*         *NNNN EXECUTING JOB FILES RECOVERED.*
00040  M01S00039.rec     +++|*
00041  M01S00040.rec     +++|*         *NNNN ROLLOUT FILES RECOVERED.*
00042  M01S00041.rec     +++|*
00043  M01S00042.rec     +++|*         *NNNN SCP ROLLIN FILES RECOVERED.*
00044  M01S00043.rec     +++|*
00045  M01S00044.rec     +++|*         *NNNN SCP ROLLOUT FILES RECOVERED.*
00046  M01S00045.rec     +++|*
00047  M01S00046.rec     +++|*         *NNNN T/E ROLLOUT FILES RECOVERED.*
00048  M01S00047.rec     +++|*
00049  M01S00048.rec     +++|*         *NNNN I/A ROLLOUT FILES RECOVERED.*
00050  M01S00049.rec     +++|*
00051  M01S00050.rec     +++|*         *NNNN DISABLED ROLLOUT FILES RECOVERED.*
00052  M01S00051.rec     +++|*
00053  M01S00052.rec     +++|*         *NNNN SUSPENDED ROLLOUT FILES RECOVERED.*
00054  M01S00053.rec     +++|*
00055  M01S00054.rec     +++|*         *NNNN ROLLOUT ERROR FILES RECOVERED.*
00056  M01S00001.271l716 +++|*
00057  M01S00002.271l716 +++|*         *NNNN PCP ROLLOUT FILES RECOVERED.*
00058  M01S00055.rec     +++|*
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  M01S00056.rec     +++|*                MESSAGES ASSOCIATED WITH THE QFT.
00064  M01S00057.rec     +++|*
00065  M01S00058.rec     +++|*         *NNNN INPUT FILES RECOVERED.*
00066  M01S00059.rec     +++|*
00067  M01S00060.rec     +++|*         *NNNN PUNCH FILES RECOVERED.*
00068  M01S00061.rec     +++|*
00069  M01S00062.rec     +++|*         *NNNN PLOT FILES RECOVERED.*
00070  M01S00063.rec     +++|*
00071  M01S00064.rec     +++|*         *NNNN PRINT FILES RECOVERED.*
00072  M01S00065.rec     +++|*
00073  M01S00066.rec     +++|*         *NNNN WAIT QUEUE FILES RECOVERED.*
00074  M01S00067.rec     +++|*
00075  M01S00068.rec     +++|*         *NNNN SPECIAL FILES RECOVERED.*
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  M01S00069.rec     +++|          SPACE  4
00082  M01S00070.rec     +++|***       ERROR LOG MESSAGES.
00083  M01S00071.rec     +++|*
00084  M01S00072.rec     +++|*
00085  M01S00073.rec     +++|*         *CHXX,YYYYYYYYY.* = EQUIPMENT ON CHANNEL XX IS RUNNING WITH
00086  M01S00074.rec     +++|*         FIRMWARE REVISION YYYYYYYYY.
00087  M01S00075.rec     +++|*
00088  M01S00076.rec     +++|*         *ETXXX, UYY,PS=ZZZZZZ.* = THE PACK ON PHYSICAL UNIT YY OF EST
00089  M01S00077.rec     +++|*         ORDINAL XXX OF TYPE ET HAS A SERIAL NUMBER OF ZZZZZZ.
00090  M01S00078.rec     +++|          SPACE  4
00091  M01S00079.rec     +++|***       ENTRY CONDITIONS.
00092  M01S00080.rec     +++|*
00093  M01S00081.rec     +++|*
00094  M01S00082.rec     +++|*         (IR+4) = RECOVERY STATUS.
00095  M01S00083.rec     +++|          SPACE  4
00096  M01S00084.rec     +++|**        ROUTINES USED.
00097  M01S00085.rec     +++|*
00098  M01S00086.rec     +++|*
00099  M01S00087.rec     +++|*         4DA - CLEANUP PRESERVED FILE INTERLOCKS.
00100  M01S00088.rec     +++|*         0CI - IDENTIFY FIRMWARE.
00101  M01S00089.rec     +++|*         0PI - LIST PACK SERIAL NUMBERS.
00102  M01S00090.rec     +++|*         0DQ - DEQUEUE FILE.
00103  M01S00091.rec     +++|          SPACE  4
00104  M01S00092.rec     +++|*CALL     COMPMAC
00105  M01S00093.rec     +++|*CALL     COMSACC
00106  M01S00094.rec     +++|*CALL     COMSCPS
00107  M01S00095.rec     +++|*CALL     COMSDFS
00108  M01S00001.ns2738  +++|          QUAL   DFT
00109  M01S00096.rec     +++|*CALL     COMSDFT
00110  M01S00002.ns2738  +++|          QUAL   *
00111  M01S00097.rec     +++|*CALL     COMSDSL
00112  M01S00098.rec     +++|*CALL     COMSDST
00113  M01S00099.rec     +++|*CALL     COMSEJT
00114  M01S00100.rec     +++|*CALL     COMSHIO
00115  M01S00101.rec     +++|*CALL     COMSJIO
00116  M01S00102.rec     +++|*CALL     COMSMMF
00117  M01S00103.rec     +++|*CALL     COMSMSC
00118  M01S00104.rec     +++|*CALL     COMSMSP
00119  M01S00105.rec     +++|*CALL     COMSMST
00120  M01S00001.271l750 +++|*CALL     COMSMTR
Line S00106 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00106.282l826 ---|          QUAL   COMSMTX
00122  M01S00001.282l826 +++|          QUAL   MTX
00123  M01S00107.rec     +++|*CALL     COMSMTX
00124  M01S00108.rec     +++|          QUAL   *
00125  M01S00001.ns2729  +++|          QUAL   COMSPFM
00126  M01S00109.rec     +++|*CALL     COMSPFM
00127  M01S00002.ns2729  +++|          QUAL   *
00128  M01S00110.rec     +++|*CALL     COMSPIM
00129  M01S00008.271l716 +++|*CALL     COMSPRD
00130  M01S00111.rec     +++|          QUAL   SCD
00131  M01S00112.rec     +++|*CALL     COMSSCD
00132  M01S00113.rec     +++|          QUAL   *
00133  M01S00114.rec     +++|*CALL     COMSSSD
00134  M01S00115.rec     +++|*CALL     COMSSSE
00135  M01S00116.rec     +++|*CALL     COMSWEI
00136  M01S00117.rec     +++|*CALL     COMSZOL
00137  M01S00118.rec     +++|*CALL     COMS1DS
00138  M01S00119.rec     +++|          SPACE  4
00139  M01S00120.rec     +++|****      DIRECT LOCATION ASSIGNMENTS.
00140  M01S00121.rec     +++|
00141  M01S00122.rec     +++|
00142  M01S00123.rec     +++| NT       EQU    16          TRACK COUNT
Line S00124 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00124.273l780 ---| EF       EQU    17          ERROR FLAG
00144  M01S00125.rec     +++| FS       EQU    20 - 24     FST ENTRY (5 LOCATIONS)
00145  M01S00126.rec     +++| CE       EQU    25          CHECKPOINT DEVICE EST ORDINAL
00146  M01S00127.rec     +++| QA       EQU    26          MANAGED TABLE ORDINAL
00147  M01S00128.rec     +++| ST       EQU    27          SYSTEM TRACK NUMBER
00148  M01S00129.rec     +++| CN       EQU    30 - 34     CM WORD BUFFER (5 LOCATIONS)
00149  M01S00130.rec     +++| QT       EQU    35          QUEUED FILE TRACK
00150  M01S00131.rec     +++| QS       EQU    36          QUEUED FILE SECTOR
00151  M01S00132.rec     +++| QI       EQU    37          QUEUE INDEX
00152  M01S00133.rec     +++| FN       EQU    40 - 44     FNT ENTRY (5 LOCATIONS)
00153  M01S00134.rec     +++| CR       EQU    45          CM BUFFER ADDRESS
00154  M01S00135.rec     +++| DI       EQU    46          DEVICE INITIALIZATION COUNT
Line S00136 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00136.271l716 ---|*UNUSED   EQU    47          UNUSED
00156  M01S00009.271l716 +++| NS       EQU    47          NUMBER OF CP-S + PCP-S
00157  M01S00137.rec     +++| NC       EQU    IR+2        NUMBER OF CONTROL POINTS
00158  M01S00138.rec     +++| RS       EQU    IR+4        RECOVERY STATUS
00159  M01S00139.rec     +++| FA       EQU    57          FNT ADDRESS / ORDINAL
00160  M01S00140.rec     +++| LO       EQU    60          LAST MASS STORAGE ORDINAL + 1
00161  M01S00010.271l716 +++| PN       EQU    61          CP / PCP NUMBER
00162  M01S00141.rec     +++| EO       EQU    62          EJT ORDINAL
00163  M01S00142.rec     +++| CA       EQU    63 - 67     CENTRAL ADDRESS (2 LOCATIONS)
00164  M01S00143.rec     +++| EC       EQU    CA+2        MANAGED TABLE ENTRY COUNT
00165  M01S00144.rec     +++| LM       EQU    CA+3 - CA+4 LIMIT ADDRESS (2 LOCATIONS)
00166  M01S00145.rec     +++|****
00167  M01S00146.rec     +++|          SPACE  4,10
00168  M01S00147.rec     +++|**        NFL FNT SECTOR EQUIVALENCES.
00169  M01S00148.rec     +++|
00170  M01S00149.rec     +++| TMP1     EQU    FNTN+77
00171  M01S00150.rec     +++| TMP2     EQU    FNTN/100*100
00172  M01S00151.rec     +++| FNTS     EQU    TMP1/100    FIRST SECTOR OF FNT-S IN NFL
00173  M01S00152.rec     +++| FNTT     EQU    FNTN-TMP2-LENF  NON-FNT WORDS IN FIRST FNT SECTOR
00174  M01S00153.rec     +++|
00175  M01S00154.rec     +++| SBUFL    EQU    2*500       DEFINE BUFFER SIZE
00176  M01S00155.rec     +++|          SPACE  4,10
00177  M01S00156.rec     +++|*         DEFINE UNQUALIFIED *COMSSCD* SYMBOLS.
00178  M01S00157.rec     +++|
00179  M01S00158.rec     +++| DSSC     EQU    /SCD/DSSC
00180  M01S00159.rec     +++| SSSC     EQU    /SCD/SSSC
00181  M01S00160.rec     +++| MXJC     EQU    /SCD/MXJC
00182  M01S00161.rec     +++|          TITLE  MAIN PROGRAM.
00183  M01S00162.rec     +++| REC      SPACE  4
00184  M01S00163.rec     +++|**        REC - MAIN PROGRAM.
00185  M01S00164.rec     +++|
00186  M01S00165.rec     +++|
00187  M01S00166.rec     +++|          ORG    PPFW
00188  M01S00167.rec     +++| REC      RJM    PRS         PRESET PROGRAM
00189  M01S00168.rec     +++|          LDD    RS
00190  M01S00169.rec     +++|          ZJN    REC2        IF NO RECOVERY
00191  M01S00170.rec     +++|          RJM    SYS         RECOVER SYSTEM FILE
00192  M01S00171.rec     +++|          NJN    REC1        IF JOBS NOT RECOVERED FROM CM
00193  M01S00172.rec     +++|          RJM    CCP         CLEANUP CONTROL POINTS
00194  M01S00173.rec     +++| REC1     RJM    RMT         RECOVER MANAGED TABLES
Line S00174 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00174.273l780 ---|          LDD    NC          RESET CONTROL POINT ADDRESS
Line S00175 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00175.273l780 ---|          SHN    7
Line S00176 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00176.273l780 ---|          STD    CP
00198  M01S00177.rec     +++| REC2     EXECUTE  4RA       SET UP DAYFILES
00199  M01S00178.rec     +++|          LDC    DSCP*200+MS1W
00200  M01S00179.rec     +++|          CWM    MSGA,TR     *RECOVERY COMPLETE.*
00201  M01S00180.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00202  M01S00181.rec     +++|          LPN    SYMK
00203  M01S00182.rec     +++|          NJP    REC5        IF RECOVERING SYSTEM
00204  M01S00183.rec     +++|
00205  M01S00184.rec     +++|*         START SYSTEM TAPE LOAD AND WAIT FOR COMPLETION.
00206  M01S00185.rec     +++|
Line S00186 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00186.273l780 ---|          LDC    DSCP+4000   MOVE TO DEADSTART CONTROL POINT
00208  M01S00005.273l780 +++|          LDC    DSCP+ENRS   MOVE TO DEADSTART CONTROL POINT
00209  M01S00187.rec     +++|          STD    CM+1
Line S00188 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00188.273l780 ---|          LPN    37
Line S00189 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00189.273l780 ---|          SHN    7
Line S00190 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00190.273l780 ---|          STD    CP
00213  M01S00191.rec     +++|          MONITOR CCAM
00214  M01S00192.rec     +++|*         LDN    0
00215  M01S00193.rec     +++|          ERRNZ  SYFO        SYSTEM FILE ORDINAL .NE. 0
00216  M01S00194.rec     +++|          STD    QA
00217  M01S00195.rec     +++|          SOD    IR+3        SET RECOVERY COMPLETE
00218  M01S00196.rec     +++|          LDD    IA          STORE INPUT REGISTER
00219  M01S00197.rec     +++|          CWD    IR
00220  M01S00198.rec     +++| REC3     PAUSE  NE
00221  M01S00199.rec     +++|          SFA    FNT,QA      READ SYSTEM FILE FNT
00222  M01S00200.rec     +++|          CRD    CM
00223  M01S00201.rec     +++|          LDD    CM+4        CHECK STATUS
00224  M01S00202.rec     +++|          LPN    1
00225  M01S00203.rec     +++|          NJN    REC3        IF SYSTEM FILE BUSY
00226  M01S00204.rec     +++|          LDD    NC          MOVE TO SYSTEM CONTROL POINT
00227  M01S00205.rec     +++|          STD    CM+1
Line S00206 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00206.273l780 ---|          SHN    7
Line S00207 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00207.273l780 ---|          STD    CP
00230  M01S00208.rec     +++|          MONITOR CCAM
00231  M01S00209.rec     +++| REC4     LDC    DSCP*CPAS+TFSW  CHECK CONTROL POINT ACTIVITY
00232  M01S00210.rec     +++|          CRD    CM
00233  M01S00211.rec     +++|          LDD    CM
00234  M01S00212.rec     +++|          NJN    REC4        IF DEADSTART CONTROL POINT ACTIVE
00235  M01S00213.rec     +++|
00236  M01S00214.rec     +++|*         COMPLETE RECOVERY OPERATIONS.
00237  M01S00215.rec     +++|
00238  M01S00216.rec     +++| REC5     LDN    DSCL        CHECK *DSD*
00239  M01S00217.rec     +++|          CRD    CM
00240  M01S00218.rec     +++|          LMD    CM+1
00241  M01S00219.rec     +++|          NJN    REC5        IF DATE/TIME NOT YET ENTERED
00242  M01S00220.rec     +++|          RJM    /RDB/USS    UPDATE NEW DAYFILES SYSTEM SECTORS
00243  M01S00221.rec     +++|          EXECUTE  4RE       ISSUE DEADSTART MESSAGES
00244  M01S00222.rec     +++|          LDD    RS
00245  M01S00223.rec     +++|          ZJN    REC6        IF NOT RECOVERY DEADSTART
00246  M01S00224.rec     +++|          EXECUTE  4RC       RECOVER CHANNEL/EQUIPMENT STATUS
00247  M01S00225.rec     +++|
00248  M01S00226.rec     +++|*         IDENTIFY MASS STORAGE EQUIPMENT.
00249  M01S00227.rec     +++|
00250  M01S00228.rec     +++| REC6     EXECUTE  4RG       PROCESS ERROR LOGS
00251  M01S00229.rec     +++|          RJM    SRM         SEND RECOVERY MESSAGES
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  M01S00230.rec     +++| RECA     LDN    1
00257  M01S00231.rec     +++|*         LDN    0           (MASS STORAGE VALIDATION ENABLED)
00258  M01S00232.rec     +++|          ZJN    REC7        IF MASS STORAGE VALIDATION ENABLED
00259  M01S00233.rec     +++|          LDD    RS
00260  M01S00234.rec     +++|          NJN    REC8        IF RECOVERY REQUESTED
00261  M01S00235.rec     +++| REC7     EXECUTE 4RH        RECOVER MASS STORAGE DEVICES
00262  M01S00236.rec     +++| REC8     LDN    ZERL
00263  M01S00237.rec     +++|          CRD    CM
Line S00238 Modification History
M01 (Added by) rec
M02 (Updated by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00238.ns2500  ---|          ADN    DSDL-ZERL   CLEAR *DSD* BUFFER INTERLOCK
Line S00239 Modification History
M01 (Added by) rec
M02 (Updated by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00239.ns2500  ---|          CWD    CM
00266  M01S00240.rec     +++|          LDD    MA          STORE INPUT REGISTER FOR *1DS*
00267  M01S00241.rec     +++|          CWM    RECD,ON
00268  M01S00242.rec     +++|          EXECUTE  1DS,=
00269  M01S00243.rec     +++|          MONITOR  RPPM      CREATE DEADSTART SEQUENCING JOB
00270  M01S00244.rec     +++|          LDN    DSSL
00271  M01S00245.rec     +++|          CRD    CM
00272  M01S00246.rec     +++|          LCN    4           CLEAR DEADSTART INTERLOCK
00273  M01S00247.rec     +++|          RAD    CM+4
00274  M01S00248.rec     +++|          LDN    DSSL
00275  M01S00249.rec     +++|          CWD    CM
00276  M01S00250.rec     +++|          LDN    ECRL        FETCH EXTENDED MEMORY WORD
00277  M01S00251.rec     +++|          CRD    FS
00278  M01S00252.rec     +++|          LDD    FS
00279  M01S00253.rec     +++|          ZJN    REC9        IF USER EXTENDED MEMORY UNDEFINED
00280  M01S00254.rec     +++|          EXECUTE  4RB       ALLOCATE/RECOVER USER ECS
00281  M01S00255.rec     +++| REC9     LDN    SYFO
00282  M01S00256.rec     +++|          STD    QA
00283  M01S00257.rec     +++|          SFA    FNT         READ SYSTEM FILE FNT
00284  M01S00258.rec     +++|          CRD    FN
00285  M01S00259.rec     +++|          LDD    FN+4        CLEAR SYSTEM FILE INTERLOCK
00286  M01S00260.rec     +++|          SCN    1
00287  M01S00261.rec     +++|          STD    FN+4
00288  M01S00262.rec     +++|          SFA    FNT,QA      STORE FNT ENTRY
00289  M01S00263.rec     +++|          CWD    FN
00290  M01S00264.rec     +++|          LDN    JSCL        RESET SCHEDULER CALL TIME
00291  M01S00265.rec     +++|          CRD    CM
00292  M01S00266.rec     +++|          ADN    RTCL-JSCL
00293  M01S00267.rec     +++|          CRD    CM+3
00294  M01S00268.rec     +++|          LDN    JSCL
00295  M01S00269.rec     +++|          CWD    CM
00296  M01S00270.rec     +++|          RJM    SJO         START JOBS
00297  M01S00271.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00298  M01S00272.rec     +++|          LPN    SYMK
00299  M01S00273.rec     +++|          LMN    SYCM
00300  M01S00274.rec     +++| RECB     ZJN    REC11       IF CM RECOVERY
00301  M01S00275.rec     +++|*         PSN                (DAYFILES CREATED)
00302  M01S00276.rec     +++|
00303  M01S00277.rec     +++|*         ENTER HERE TO CALL *1CK*.
00304  M01S00278.rec     +++|
00305  M01S00279.rec     +++| REC10    LDD    IA          STORE INPUT REGISTER FOR *1CK*
00306  M01S00280.rec     +++|          CWM    RECC,ON
00307  M01S00281.rec     +++|          EXECUTE  1CK,=
00308  M01S00282.rec     +++|          UJN    REC12       EXIT TO PP RESIDENT
00309  M01S00283.rec     +++|
00310  M01S00284.rec     +++| REC11    LDN    JSCL        CLEAR SCHEDULER ACTIVE
00311  M01S00285.rec     +++|          CRD    CM
00312  M01S00286.rec     +++|          LDD    CM
00313  M01S00287.rec     +++|          LPC    3777
00314  M01S00288.rec     +++|          STD    CM
00315  M01S00289.rec     +++|          LDN    JSCL        STORE SCHEDULER CONTROL
00316  M01S00290.rec     +++|          CWD    CM
Line S00291 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00317  M02S00291.271l716 ---|          MONITOR DPPM       DROP PP
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  M01S00292.rec     +++| REC12    LJM    PPR         EXIT TO PP RESIDENT
00324  M01S00293.rec     +++|
00325  M01S00294.rec     +++| RECC     VFD    60/0L1CK
00326  M01S00295.rec     +++| RECD     VFD    18/0L1DS,6/0,6/0,6/DSSF,18/0LCMS,6/0
00327  M01S00296.rec     +++| RECE     CON    0           CHECKPOINT FILE TRACK
00328  M01S00297.rec     +++| RECF     CON    0           SYSTEM DEVICE EST ORDINAL
00329  M01S00016.271l716 +++| RECG     VFD    18/3L1PP,42/0
Line S00298 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00298.271l716 ---|          TITLE  RECOVERY PROCESSORS.
00331  M01S00017.271l716 +++|          TITLE  SUBROUTINES.
00332  M01S00299.rec     +++| SJO      SPACE  4,10
00333  M01S00300.rec     +++|**        SJO - START JOB(S).
00334  M01S00301.rec     +++|*
00335  M01S00302.rec     +++|*         USES   T7, CM - CM+4, CN - CN+4.
00336  M01S00303.rec     +++|*
00337  M01S00304.rec     +++|*         MACROS MONITOR.
00338  M01S00305.rec     +++|
00339  M01S00306.rec     +++|
00340  M01S00307.rec     +++| SJO      SUBR               ENTRY/EXIT
00341  M01S00308.rec     +++|          LDD    NC
00342  M01S00309.rec     +++|          STD    T7
00343  M01S00310.rec     +++| SJO1     SOD    T7
00344  M01S00311.rec     +++|          ZJN    SJOX        IF ALL CP-S CHECKED
00345  M01S00312.rec     +++|          SHN    7
00346  M01S00313.rec     +++|          ADN    STSW
00347  M01S00314.rec     +++|          CRD    CM
00348  M01S00315.rec     +++|          ADN    TFSW-STSW
00349  M01S00316.rec     +++|          CRD    CN
00350  M01S00317.rec     +++|          LDD    CM
00351  M01S00318.rec     +++|          NJN    SJO1        IF ACTIVITY
00352  M01S00319.rec     +++|          LDD    CN
00353  M01S00320.rec     +++|          ZJN    SJO1        IF NO JOB
00354  M01S00321.rec     +++|          LDD    T7          CHANGE CP
00355  M01S00322.rec     +++|          STD    CM+1
00356  M01S00323.rec     +++|          MONITOR CCAM
00357  M01S00324.rec     +++|          LDD    CM+1
00358  M01S00325.rec     +++|          NJN    SJO1        IF CHANGE REJECTED
00359  M01S00326.rec     +++|          LDD    NC          CHANGE BACK TO SYSTEM CP
00360  M01S00327.rec     +++|          STD    CM+1
00361  M01S00328.rec     +++|          MONITOR CCAM
00362  M01S00329.rec     +++|          UJN    SJO1        LOOP
00363  M01S00330.rec     +++|          SPACE  4,10
00364  M01S00331.rec     +++|**        COMMON DECKS.
00365  M01S00332.rec     +++|
00366  M01S00333.rec     +++|
00367  M01S00018.271l716 +++|*CALL     COMPACS
00368  M01S00019.271l716 +++|*CALL     COMPC2D
00369  M01S00334.rec     +++| CLT$     EQU    0           DEFINE *COMPGFP* ACCESS TO CLT
00370  M01S00335.rec     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
00371  M01S00336.rec     +++| FNT$     EQU    0           DEFINE *COMPGFP* ACCESS TO FNT
00372  M01S00337.rec     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
00373  M01S00338.rec     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
00374  M01S00339.rec     +++|*CALL     COMPGFP
00375  M01S00340.rec     +++|*CALL     COMPIFR
00376  M01S00341.rec     +++|*CALL     COMPRNS
00377  M01S00342.rec     +++|*CALL     COMPRSS
00378  M01S00343.rec     +++|*CALL     COMPSEI
00379  M01S00344.rec     +++|*CALL     COMPSNT
00380  M01S00345.rec     +++|*CALL     COMPIRA
00381  M01S00346.rec     +++|*CALL     COMPWEI
00382  M01S00347.rec     +++| WCS$     EQU    1           CONSECUTIVE SECTOR AFTER SYSTEM SECTOR
00383  M01S00348.rec     +++|*CALL     COMPWSS
00384  M01S00349.rec     +++| TAXM     SPACE  4,10
00385  M01S00350.rec     +++|**        TAXM - EXTENDED MEMORY ALLOCATION TABLE.
00386  M01S00351.rec     +++|
00387  M01S00352.rec     +++|
00388  M01S00353.rec     +++| TAXMW    EQU    4           ALLOW ROOM FOR 4 MACHINES WITH CPU PORTS
00389  M01S00354.rec     +++| TAXM     BSS    5*TAXMW
00390  M01S00355.rec     +++| TAXML    EQU    *
00391  M01S00356.rec     +++| MSR      SPACE  4,10
00392  M01S00357.rec     +++|**        MSR - ERROR RETURN FROM *RNS*.
00393  M01S00358.rec     +++|*
00394  M01S00359.rec     +++|*         EXIT   (A) .LT. 0.
00395  M01S00360.rec     +++|*
00396  M01S00361.rec     +++|*         MACROS ENDMS.
00397  M01S00362.rec     +++|
00398  M01S00363.rec     +++|
00399  M01S00364.rec     +++| MSR      CON    0           ENTRY
00400  M01S00365.rec     +++|          ENDMS
00401  M01S00366.rec     +++|          LCN    1
00402  M01S00367.rec     +++|          LJM    /COMPRNS/RNSX  RETURN TO CALLER
Line S00368 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00368.271l716 ---|          SPACE  4,10
Line S00369 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00369.271l716 ---|**        COMMON DECKS OVERLAID BY *4DA*.
Line S00370 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00370.271l716 ---|
Line S00371 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00371.271l716 ---|
Line S00372 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00372.271l716 ---|*CALL     COMPACS
Line S00373 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00373.271l716 ---|*CALL     COMPC2D
00409  M01S00374.rec     +++| ERR      SPACE  4,10
00410  M01S00375.rec     +++|**        ERR - PROCESS ERROR.
00411  M01S00376.rec     +++|*
00412  M01S00377.rec     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00413  M01S00378.rec     +++|
00414  M01S00379.rec     +++|
00415  M01S00380.rec     +++| ERR      STM    ERRA
00416  M01S00381.rec     +++|          LDD    NC          STORE MESSAGE
00417  M01S00382.rec     +++|          SHN    7
00418  M01S00383.rec     +++|          ADN    MS2W
00419  M01S00384.rec     +++|          CWM    *,TR
00420  M01S00385.rec     +++| ERRA     EQU    *-1
00421  M01S00386.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00422  M01S00387.rec     +++|          LPN    FLMK
00423  M01S00388.rec     +++|          LMN    FLCM
00424  M01S00389.rec     +++|          NJN    *           IF FILES NOT RECOVERED FROM CM
00425  M01S00390.rec     +++|          LDN    6           SET *1CK* FUNCTION
00426  M01S00391.rec     +++|          STM    RECC+2
00427  M01S00392.rec     +++|          LJM    REC10       PROCESS OUTSTANDING CHECKPOINT REQUESTS
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  M01S00393.rec     +++| SRM      SPACE  4,10
00449  M01S00394.rec     +++|**        SRM - SEND RECOVERY MESSAGES.
00450  M01S00395.rec     +++|*
00451  M01S00396.rec     +++|*         USES   T1, T5, T6, T7.
00452  M01S00397.rec     +++|*
00453  M01S00398.rec     +++|*         CALLS  ACS, C2D, DFM.
00454  M01S00399.rec     +++|
00455  M01S00400.rec     +++|
00456  M01S00401.rec     +++| SRM3     STD    CM          CLEAR MESSAGE BUFFER
00457  M01S00402.rec     +++|          LDD    NC
00458  M01S00403.rec     +++|          SHN    7
00459  M01S00404.rec     +++|          ADN    MS1W
00460  M01S00405.rec     +++|          CWD    CM
00461  M01S00406.rec     +++|
00462  M01S00407.rec     +++| SRM      SUBR               ENTRY/EXIT
00463  M01S00408.rec     +++|          LDD    RS
00464  M01S00409.rec     +++|          ZJN    SRMX        IF NOT RECOVERY DEADSTART
00465  M01S00410.rec     +++|          LCN    0           SET MESSAGE TABLE INDEX
00466  M01S00411.rec     +++|          STD    T7
00467  M01S00412.rec     +++|          LDC    BFMS        SET ASSEMBLY BUFFER ADDRESS
00468  M01S00413.rec     +++|          STD    T5
00469  M01S00414.rec     +++|          ADN    2
00470  M01S00415.rec     +++|          STD    T6
00471  M01S00416.rec     +++| SRM1     LDD    T6
00472  M01S00417.rec     +++|          STD    T1
00473  M01S00418.rec     +++|          LDC    2L          ADD BLANK SEPARATOR
00474  M01S00419.rec     +++|          STI    T6
00475  M01S00420.rec     +++| SRM2     AOD    T7          ADVANCE INDEX
00476  M01S00421.rec     +++|          LMN    MXFC
00477  M01S00422.rec     +++|          ZJN    SRM3        IF END OF TABLE
00478  M01S00423.rec     +++|          LDM    SRMA,T7
00479  M01S00424.rec     +++|          ZJN    SRM2        IF FILE CATEGORY NOT ENCOUNTERED
00480  M01S00425.rec     +++|          SHN    -6
00481  M01S00426.rec     +++|          RJM    C2D
00482  M01S00427.rec     +++|          STI    T5
00483  M01S00428.rec     +++|          LDM    SRMA,T7     CONVERT COUNT
00484  M01S00429.rec     +++|          RJM    C2D
00485  M01S00430.rec     +++|          STM    1,T5        INSERT IN MESSAGE ASSEMBLY
00486  M01S00431.rec     +++|          LDM    SRMB,T7
00487  M01S00432.rec     +++|          ZJN    SRM2        IF KEY MESSAGE UNDEFINED
00488  M01S00433.rec     +++|          RJM    ACS
00489  M01S00434.rec     +++|          LDC    SRMC        COMPLETE MESSAGE
00490  M01S00435.rec     +++|          RJM    ACS
00491  M01S00436.rec     +++|          LDD    T5          ISSUE MESSAGE TO DAYFILE
00492  M01S00437.rec     +++|          RJM    DFM
00493  M01S00438.rec     +++|          LJM    SRM1        LOOP
00494  M01S00439.rec     +++|
00495  M01S00440.rec     +++|
00496  M01S00441.rec     +++| SRMA     BSS    0
00497  M01S00442.rec     +++| EJCT     BSS    0
00498  M01S00443.rec     +++|          CON    -0
00499  M01S00444.rec     +++|          ORG    EJCT+MXJS
00500  M01S00445.rec     +++| P1L      EQU    *-EJCT
00501  M01S00446.rec     +++|
00502  M01S00447.rec     +++| QFCT     BSS    0
00503  M01S00448.rec     +++|          CON    -0
00504  M01S00449.rec     +++|          ORG    QFCT+NRQT
00505  M01S00450.rec     +++| P2L      EQU    *-QFCT
00506  M01S00451.rec     +++|
00507  M01S00452.rec     +++| MSCT     BSS    0
00508  M01S00453.rec     +++|          LOC    0
00509  M01S00454.rec     +++| FACT     CON    0           FAST ATTACH FILE COUNT
00510  M01S00455.rec     +++| PXL      BSS    0
00511  M01S00456.rec     +++|          LOC    *O
00512  M01S00457.rec     +++| MXFC     EQU    *-SRMA
00513  M01S00458.rec     +++|
00514  M01S00459.rec     +++|
00515  M01S00460.rec     +++| SRMB     BSS    0
00516  M01S00461.rec     +++| P1       INDEX
00517  M01S00462.rec     +++|          INDEX  PRJS,(=Z*PRE-INITIAL JOB*)
00518  M01S00463.rec     +++|          INDEX  EXJS,(=Z*EXECUTING JOB*)
00519  M01S00464.rec     +++|          INDEX  ROJS,(=Z*ROLLOUT*)
00520  M01S00465.rec     +++|          INDEX  SIJS,(=Z*SCP ROLLIN*)
00521  M01S00466.rec     +++|          INDEX  SOJS,(=Z*SCP ROLLOUT*)
00522  M01S00467.rec     +++|          INDEX  TOJS,(=Z*T/E ROLLOUT*)
00523  M01S00468.rec     +++|          INDEX  IOJS,(=Z*I/A ROLLOUT*)
00524  M01S00469.rec     +++|          INDEX  DOJS,(=Z*DISABLED ROLLOUT*)
00525  M01S00470.rec     +++|          INDEX  SUJS,(=Z*SUSPENDED ROLLOUT*)
00526  M01S00006.273l780 +++|          INDEX  PCJS,(=Z*PCP ROLLOUT*)
00527  M01S00471.rec     +++|          INDEX  ERJS,(=Z*ROLLOUT ERROR*)
00528  M01S00472.rec     +++|          INDEX  NVJS,(=Z*NVE ENTRY*)
Line S00040 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00040.273l780 ---|          INDEX  PCJS,(=Z*PCP ROLLOUT*)
00530  M01S00007.273l780 +++|          INDEX  PWJS,(=Z*PRE-INITIAL WAIT*)
00531  M01S00008.273l780 +++|          INDEX  SWJS,(=Z*SERVICE LIMIT WAIT*)
00532  M01S00473.rec     +++|          INDEX  P1L
00533  M01S00474.rec     +++|
00534  M01S00475.rec     +++| P2       INDEX
00535  M01S00476.rec     +++|          INDEX  INQT,(=Z*INPUT*)
00536  M01S00477.rec     +++|          INDEX  PHQT,(=Z*PUNCH*)
00537  M01S00478.rec     +++|          INDEX  PLQT,(=Z*PLOT*)
00538  M01S00479.rec     +++|          INDEX  PRQT,(=Z*PRINT*)
00539  M01S00480.rec     +++|          INDEX  WTQT,(=Z*WAIT QUEUE*)
00540  M01S00481.rec     +++|          INDEX  SNQT,(=Z*SPECIAL*)
00541  M01S00482.rec     +++|          INDEX  P2L
00542  M01S00483.rec     +++|
00543  M01S00484.rec     +++| PX       INDEX
00544  M01S00485.rec     +++|          INDEX  FACT,(=Z*FAST ATTACH*)
00545  M01S00486.rec     +++|          INDEX  PXL
00546  M01S00487.rec     +++|
00547  M01S00488.rec     +++|          USE    LITERALS
00548  M01S00489.rec     +++|
00549  M01S00490.rec     +++| SRMC     DATA   C* FILES RECOVERED.*
00550  M01S00491.rec     +++|          SPACE  4,10
00551  M01S00492.rec     +++| OVLD     EQU    *+5         OVERLAY LOAD ADDRESS
00552  M01S00493.rec     +++|          TITLE  CONTROL POINT RECOVERY.
00553  M01S00494.rec     +++| CCP      SPACE  4,10
00554  M01S00495.rec     +++|**        CCP - CLEANUP CONTROL POINTS.
00555  M01S00496.rec     +++|*
Line S00497 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00497.271l716 ---|*         USES   CP, CN - CN+4, FN - FN+4.
00557  M01S00041.271l716 +++|*         ERROR  TO *ABT* IF CP/PCP MOVING.
00558  M01S00042.271l716 +++|*
00559  M01S00043.271l716 +++|*         USES   PN, CM - CM+4.
00560  M01S00498.rec     +++|*
Line S00499 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00499.273l780 ---|*         CALLS  CJP, PLF.
00562  M01S00009.273l780 +++|*         CALLS  CRS, PLF.
00563  M01S00500.rec     +++|*
Line S00501 Modification History
M01 (Added by) rec
M02 (Updated by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00501.ns2738c ---|*         MACROS EXECUTE, NFA.
00565  M01S00001.ns2738c +++|*         MACROS EXECUTE, MONITOR, NFA.
00566  M01S00502.rec     +++|
00567  M01S00503.rec     +++|
00568  M01S00504.rec     +++| CCP      SUBR               ENTRY/EXIT
00569  M01S00505.rec     +++|          EXECUTE  4RD       LOAD RECOVERY ROUTINES
00570  M01S00506.rec     +++|          LDN    0
Line S00507 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00507.271l716 ---|          STD    CP
Line S00508 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00508.271l716 ---|          LDN    CMRL        READ CMR LENGTH
Line S00509 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00509.271l716 ---|          CRD    CN
Line S00510 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00510.271l716 ---| CCP1     LDC    200         ADVANCE CP
Line S00511 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00575  M02S00511.271l716 ---|          RAD    CP
Line S00512 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00512.271l716 ---|          SHN    -7
Line S00513 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00513.271l716 ---|          LMD    NC
Line S00514 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00514.271l716 ---|          ZJN    CCPX        IF SYSTEM CONTROL POINT
00579  M01S00044.271l716 +++|          STD    PN
00580  M01S00045.271l716 +++| CCP1     AOD    PN          ADVANCE CP/PCP NUMBER
Line S00046 Modification History
M01 (Added by) 271l716
M02 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00046.rec33   ---|          LMD    NS
00582  M01S00001.rec33   +++|          SBD    NS
00583  M01S00002.rec33   +++|          SBN    1
00584  M01S00047.271l716 +++|          ZJN    CCPX        IF END OF CP/PCP-S
Line S00515 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00515.273l780 ---|          RJM    CJP         CHECK JOB PARAMETERS
Line S00516 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00516.273l780 ---|          ZJN    CCP1        IF NO JOB ASSIGNED
00587  M01S00010.273l780 +++|          RJM    CRS         CHECK ROLLIN/ROLLOUT STATUS
00588  M01S00011.273l780 +++|          ZJN    CCP1        IF NO JOB ASSIGNED TO CP/PCP
00589  M01S00517.rec     +++|          LDC    0           CHECK CONTROL POINT MOVING
00590  M01S00518.rec     +++| CCPA     EQU    *-1
Line S00519 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00519.271l716 ---|          LMD    CP
Line S00520 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00520.271l716 ---|          NJN    CCP3        IF NOT MOVING
Line S00521 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00521.271l716 ---| CCPB     LDN    0
Line S00522 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00522.271l716 ---|          NJN    CCP3        IF MOVING ECS
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  M01S00523.rec     +++|          LDD    CN
00601  M01S00524.rec     +++|          ZJN    CCP6        IF NO NFL ASSIGNED
Line S00525 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00525.271l716 ---| CCP2     LJM    CJP1        ABORT CM RECOVERY
Line S00526 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00526.271l716 ---|
Line S00527 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00527.271l716 ---| CCP3     LDD    CN
00605  M01S00053.271l716 +++| CCP3     LJM    ABT         ABORT CM RECOVERY
00606  M01S00054.271l716 +++|
00607  M01S00055.271l716 +++| CCP4     LDD    CN
00608  M01S00528.rec     +++|          ZJN    CCP6        IF NO NFL ASSIGNED
00609  M01S00529.rec     +++|          SBN    DNFL
Line S00530 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00530.271l716 ---|          MJN    CCP2        IF LESS THAN DEFAULT
Line S00531 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00611  M02S00531.271l716 ---|          SBN    MNFL+1-DNFL
Line S00532 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00532.271l716 ---|          PJN    CCP2        IF GREATER THAN MAXIMUM
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 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00061.rec33   ---| CCP5     PJN    CCP1        IF PSEUDO CP
Line S00003 Modification History
M01 (Added by) rec33
M02 (Updated by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00003.ns2738c ---| CCP5     PJN    CCP1        IF PSEUDO CP OR SYSTEM CP
00620  M01S00002.ns2738c +++|          PJN    CCP1        IF PSEUDO CP OR SYSTEM CP
00621  M01S00533.rec     +++|          RJM    PLF         PROCESS LOCAL FNT
00622  M01S00534.rec     +++|          NFA    DAPN+2      FETCH DAYFILE STATUS WORD
00623  M01S00535.rec     +++|          CRD    CM
00624  M01S00536.rec     +++|          LDN    3           CLEAR DAYFILE INTERLOCKS
00625  M01S00537.rec     +++|          STD    CM+4
00626  M01S00538.rec     +++|          NFA    DAPN+2      STORE DAYFILE FST
00627  M01S00539.rec     +++|          CWD    CM
Line S00540 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00540.271l716 ---| CCP6     LDD    CP          STORE CONTROL POINT STATUS
Line S00541 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00541.271l716 ---|          ADN    STSW
Line S00542 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00542.271l716 ---|          CWD    FN
Line S00543 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00543.271l716 ---|          ADN    JCIW-STSW   CLEAR *DIS* FLAG
Line S00544 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00544.271l716 ---|          CRD    CM
Line S00545 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00545.271l716 ---|          LDD    CM+3
00634  M01S00062.271l716 +++| CCP6     LDD    CP          GET JOB CONTROL INFORMATION
00635  M01S00063.271l716 +++|          ADN    JCIW
00636  M01S00064.271l716 +++|          CRD    CM
00637  M01S00003.ns2738c +++|          ADK    RFCW-JCIW   GET DM* FILE POINTERS
00638  M01S00004.ns2738c +++|          CRD    CN
00639  M01S00065.271l716 +++|          LDD    CM+3        CLEAR *DIS* FLAG
00640  M01S00546.rec     +++|          LPC    6777
00641  M01S00547.rec     +++|          STD    CM+3
00642  M01S00005.ns2738c +++|          LDN    0           CLEAR DM* FILE POINTERS
00643  M01S00006.ns2738c +++|          STD    CN
00644  M01S00007.ns2738c +++|          STD    CN+1
00645  M01S00548.rec     +++|          LDD    CP
00646  M01S00549.rec     +++|          ADN    JCIW
00647  M01S00550.rec     +++|          CWD    CM
00648  M01S00008.ns2738c +++|          ADK    RFCW-JCIW
00649  M01S00009.ns2738c +++|          CWD    CN
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 (Updated by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00015.ns2738c ---|*         LDN    0
Line S00551 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00654  M03S00551.ns2738c ---|          LJM    CCP1        LOOP FOR NEXT CONTROL POINT
Line S00066 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00066.ns2738c ---|          UJN    CCP5        LOOP FOR NEXT CP/PCP
00656  M01S00010.ns2738c +++|          LJM    CCP1        LOOP FOR NEXT CP/PCP
00657  M01S00552.rec     +++| RMT      SPACE  4,10
00658  M01S00553.rec     +++|**        RMT - RECOVER MANAGED TABLES.
00659  M01S00554.rec     +++|*
00660  M01S00555.rec     +++|*         ERROR  TO *ERR* IF ERROR RETURN FROM PROCESSOR.
00661  M01S00556.rec     +++|*
00662  M01S00557.rec     +++|*         USES   EO, LM, QA, QI, QT, ST, T3, CA - CA+4.
00663  M01S00558.rec     +++|*
00664  M01S00559.rec     +++|*         CALLS  CLT, EJT, FNT, QFT, *4RF*.
00665  M01S00560.rec     +++|*
00666  M01S00561.rec     +++|*         MACROS EXECUTE.
00667  M01S00562.rec     +++|
00668  M01S00563.rec     +++|
00669  M01S00564.rec     +++| RMT      SUBR               ENTRY/EXIT
00670  M01S00565.rec     +++|          LDC    RMTA-1      SET LIST ADDRESS
00671  M01S00566.rec     +++|          STD    ST
00672  M01S00567.rec     +++|          EXECUTE  4RF       MANAGED TABLE RECOVERY
00673  M01S00568.rec     +++| RMT1     AOD    ST          ADVANCE LIST ADDRESS
00674  M01S00569.rec     +++|          LDI    ST
00675  M01S00570.rec     +++|          ZJN    RMTX        IF END OF TABLES
00676  M01S00571.rec     +++|          CRD    CA          READ TABLE POINTER
00677  M01S00572.rec     +++|          LDN    0
00678  M01S00573.rec     +++|          STD    QT
00679  M01S00574.rec     +++|          STD    QI
00680  M01S00575.rec     +++|          STD    QA
00681  M01S00576.rec     +++|          STD    EO
00682  M01S00577.rec     +++|          LDD    EC          SET NUMBER OF ASSIGNED ENTRIES
00683  M01S00578.rec     +++|          SBD    LM
00684  M01S00579.rec     +++|          STD    LM
00685  M01S00580.rec     +++|          LDM    RMTB-RMTA,ST  SET PROCESSOR ADDRESS
00686  M01S00581.rec     +++|          STD    T3
00687  M01S00582.rec     +++|          RJM    0,T3        PROCESS MANAGED TABLE
00688  M01S00583.rec     +++|          ZJN    RMT1        IF TABLE FULLY RECOVERED
00689  M01S00584.rec     +++|          LDM    RMTC-RMTA,ST
00690  M01S00585.rec     +++|          STM    RMTD        SET TABLE IDENTIFIER
00691  M01S00586.rec     +++|          LDC    RMTD
00692  M01S00587.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
00693  M01S00588.rec     +++|
00694  M01S00589.rec     +++| RMTA     BSS    0           LIST OF TABLE POINTER ADDRESSES
00695  M01S00590.rec     +++|          CON    QFTP
00696  M01S00591.rec     +++|          CON    EJTP
00697  M01S00592.rec     +++|          CON    FNTP
00698  M01S00593.rec     +++|          CON    CLTP
00699  M01S00594.rec     +++| RMTAA    CON    LIDP
00700  M01S00595.rec     +++|          CON    FOTP
00701  M01S00596.rec     +++|          CON    0           END OF LIST
00702  M01S00597.rec     +++|
00703  M01S00598.rec     +++| RMTB     BSS    0           LIST OF PROCESSOR ADDRESSES
00704  M01S00599.rec     +++|          CON    QFT
00705  M01S00600.rec     +++|          CON    EJT
00706  M01S00601.rec     +++|          CON    FNT
00707  M01S00602.rec     +++|          CON    CLT
00708  M01S00603.rec     +++|
00709  M01S00604.rec     +++| RMTC     BSS    0           LIST OF TABLE IDENTIFIERS
00710  M01S00605.rec     +++|          CON    2RQF
00711  M01S00606.rec     +++|          CON    2REJ
00712  M01S00607.rec     +++|          CON    2RFN
00713  M01S00608.rec     +++|          CON    2RCL
00714  M01S00609.rec     +++|          CON    2RLI
00715  M01S00610.rec     +++|          CON    2RFO
00716  M01S00611.rec     +++|
00717  M01S00612.rec     +++| RMTD     DATA   C*FNT POINTER WORD ERROR.*
00718  M01S00613.rec     +++|          SPACE  4,10
00719  M01S00614.rec     +++|**        MESSAGES.
00720  M01S00615.rec     +++|
00721  M01S00616.rec     +++|
00722  M01S00617.rec     +++| MSGA     DATA   C*RECOVERY COMPLETE.*
00723  M01S00618.rec     +++|
00724  M01S00619.rec     +++| OVLA     EQU    *+5         OVERLAY LOAD ADDRESS
00725  M01S00620.rec     +++|
00726  M01S00621.rec     +++| MSGR     DATA   C*CHECKPOINT DEVICE ERROR.*
00727  M01S00622.rec     +++| MSGS     DATA   C*CMR LENGTH CHANGED.*
00728  M01S00623.rec     +++| MSGT     DATA   C*VE ENTRY REQUIRED.*
00729  M01S00624.rec     +++| MSGU     DATA   C*SECURITY MODE CHANGED.*
00730  M01S00625.rec     +++| RTB      SPACE  4,10
00731  M01S00626.rec     +++|**        RTB - READ TABLE.
00732  M01S00627.rec     +++|*
00733  M01S00628.rec     +++|*         ENTRY  (A) = LENGTH.
00734  M01S00629.rec     +++|*                (CA - CA+1) = FWA.
00735  M01S00630.rec     +++|*
00736  M01S00631.rec     +++|*         EXIT   (A) .LT. 0 IF NOT ENOUGH SPACE FOR TABLE.
00737  M01S00632.rec     +++|*                TO *SYS2* IF UNRECOVERED READ ERROR.
00738  M01S00633.rec     +++|*
00739  M01S00634.rec     +++|*         USES   T1, LM - LM+1.
00740  M01S00635.rec     +++|*
00741  M01S00636.rec     +++|*         CALLS  RNS.
00742  M01S00637.rec     +++|
00743  M01S00638.rec     +++|
Line S00639 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00744  M02S00639.ns2535  ---| RTB3     LJM    SYS2        IF READ ERROR
Line S00640 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00640.ns2535  ---|
Line S00641 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00641.ns2535  ---| RTB      SUBR               ENTRY/EXIT
Line S00642 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00642.ns2535  ---|          STD    LM+1        SET LENGTH
Line S00643 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00748  M02S00643.ns2535  ---|          SHN    -14
Line S00644 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00644.ns2535  ---|          STD    LM
Line S00645 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00645.ns2535  ---| RTB1     LDC    BUF         READ NEXT SECTOR
Line S00646 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00751  M02S00646.ns2535  ---|          RJM    RNS
Line S00647 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00647.ns2535  ---|          MJN    RTB3        IF READ ERROR
Line S00648 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00648.ns2535  ---|          ZJN    RTBX        IF EMPTY SECTOR
Line S00649 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00649.ns2535  ---|          LDD    LM          CHECK LENGTH
Line S00650 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00650.ns2535  ---|          SHN    14
00756  M01S00001.ns2535  +++| RTB2     ZJN    RTBX        IF EMPTY SECTOR
00757  M01S00002.ns2535  +++|          LDD    LM
00758  M01S00003.ns2535  +++|          SHN    14          CHECK LENGTH
00759  M01S00651.rec     +++|          ADD    LM+1
00760  M01S00652.rec     +++|          SBD    T1
00761  M01S00653.rec     +++|          MJN    RTBX        IF NO ROOM FOR SECTOR
00762  M01S00654.rec     +++|          STD    LM+1        DECREMENT LENGTH
00763  M01S00655.rec     +++|          SHN    -14
00764  M01S00656.rec     +++|          STD    LM
00765  M01S00657.rec     +++|          LDD    CA          STORE SECTOR
00766  M01S00658.rec     +++|          SHN    14
00767  M01S00659.rec     +++|          ADD    CA+1
00768  M01S00660.rec     +++|          CWM    BUF+2,T1
Line S00661 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00661.ns2535  ---|          LDD    T1          ADVANCE FWA
Line S00662 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00662.ns2535  ---|          RAD    CA+1
Line S00663 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00663.ns2535  ---|          SHN    -14
Line S00664 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00664.ns2535  ---|          RAD    CA
00773  M01S00004.ns2535  +++|          STD    CA+1        ADVANCE TABLE ADDRESS
00774  M01S00005.ns2535  +++|          SHN    -14
00775  M01S00006.ns2535  +++|          STD    CA
00776  M01S00665.rec     +++|          LDD    T1          CHECK WORD COUNT
00777  M01S00666.rec     +++|          SHN    -6
Line S00667 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00778  M02S00667.ns2535  ---|          NJN    RTB1        LOOP IF NOT EOR
Line S00668 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00668.ns2535  ---|          UJN    RTBX        RETURN
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  M01S00669.rec     +++|          SPACE  4
00791  M01S00670.rec     +++|**        COMMON DECKS WHICH ARE OVERLAID.
00792  M01S00671.rec     +++|
00793  M01S00672.rec     +++|
00794  M01S00673.rec     +++|*CALL     COMPICT
00795  M01S00674.rec     +++|*CALL     COMPLDB
00796  M01S00675.rec     +++|          TITLE  SYSTEM RECOVERY.
00797  M01S00676.rec     +++| SYS      SPACE  4
00798  M01S00677.rec     +++|**        SYS - RECOVER SYSTEM.
00799  M01S00678.rec     +++|*
00800  M01S00679.rec     +++|*         EXIT   (A) = JOB RECOVERY STATUS.
00801  M01S00680.rec     +++|
00802  M01S00681.rec     +++|
00803  M01S00682.rec     +++| SYS      SUBR               ENTRY/EXIT
00804  M01S00683.rec     +++|          LDD    CE          SET CHECKPOINT DEVICE EST ORDINAL
00805  M01S00684.rec     +++|          STD    T5
00806  M01S00685.rec     +++|          LDD    ST          SET SYSTEM TABLE TRACK
00807  M01S00686.rec     +++|          STD    T6
00808  M01S00687.rec     +++|          SETMS  IO
00809  M01S00688.rec     +++|          LDC    NSYT        SET SYSTEM TABLE ADDRESS
00810  M01S00689.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
00811  M01S00690.rec     +++|          ZJN    SYS4        IF VALID SYSTEM SECTOR
00812  M01S00691.rec     +++| SYS2     LDC    MSGR        *CHECKPOINT DEVICE ERROR.*
00813  M01S00692.rec     +++|          LJM    ERR         ISSUE MESSAGE AND HANG
00814  M01S00693.rec     +++|
00815  M01S00694.rec     +++| SYS4     AOD    T7
00816  M01S00695.rec     +++|          LDC    PBUF+500-2  READ SECOND SECTOR OF TABLE POINTERS
00817  M01S00696.rec     +++|          RJM    RNS
00818  M01S00697.rec     +++|          MJN    SYS2        IF READ ERROR
00819  M01S00698.rec     +++|          LDN    FSMS
00820  M01S00699.rec     +++|          STD    T7
00821  M01S00700.rec     +++|          LDC    PBUF-2      READ FIRST SECTOR OF TABLE POINTERS
00822  M01S00701.rec     +++|          RJM    RNS
00823  M01S00702.rec     +++|          MJN    SYS2        IF READ ERROR
00824  M01S00703.rec     +++|          AOD    T7
00825  M01S00704.rec     +++|          RJM    SKR         SKIP EST
00826  M01S00705.rec     +++|          RJM    SKR         SKIP CHANNEL TABLES
00827  M01S00706.rec     +++|
00828  M01S00707.rec     +++|*         VERIFY EST LENGTH.
00829  M01S00708.rec     +++|
00830  M01S00709.rec     +++|          LDN    ESTP
00831  M01S00710.rec     +++|          CRD    CM
00832  M01S00711.rec     +++|          LDD    CM+2        COMPARE LENGTHS
00833  M01S00712.rec     +++|          SBM    PBUF+ESTP*5+2
00834  M01S00713.rec     +++|          NJN    SYS7        IF LENGTHS DIFFER
00835  M01S00714.rec     +++|          RJM    PCT         PROCESS SUBSYSTEM TABLES
00836  M01S00715.rec     +++|
00837  M01S00716.rec     +++|*         VERIFY LENGTH OF MANAGED TABLES.
00838  M01S00717.rec     +++|
00839  M01S00718.rec     +++| SYS6     LDC    RMTA        VERIFY TABLE LENGTHS
00840  M01S00719.rec     +++|          RJM    VTL
00841  M01S00720.rec     +++|          ZJN    SYS8        IF TABLE LENGTHS VALID
00842  M01S00721.rec     +++|          LDM    RMTC-RMTA,QA
00843  M01S00722.rec     +++|          STM    SYSA        SET TABLE IDENTIFIER
00844  M01S00723.rec     +++| SYS7     ENDMS
00845  M01S00724.rec     +++|          LDC    SYSA
00846  M01S00725.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
00847  M01S00726.rec     +++|
00848  M01S00727.rec     +++| SYS8     STM    RMTAA
00849  M01S00728.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00850  M01S00729.rec     +++|          LPN    FLMK
00851  M01S00730.rec     +++|          LMN    FLCM
00852  M01S00731.rec     +++|          NJN    SYS9        IF FILES NOT RECOVERED FROM CM
00853  M01S00732.rec     +++|          RJM    SKR         SKIP MANAGED TABLES
00854  M01S00733.rec     +++|          LJM    SYS11       READ LIBRARY TABLES
00855  M01S00734.rec     +++|
00856  M01S00735.rec     +++|*         VERIFY OPERATING SYSTEM SECURITY MODE.
00857  M01S00736.rec     +++|
00858  M01S00737.rec     +++| SYS9     LDK    SSML
00859  M01S00738.rec     +++|          CRD    CM
00860  M01S00739.rec     +++|          LDM    PBUF+SSML*5
00861  M01S00740.rec     +++|          LMD    CM
00862  M01S00741.rec     +++|          LPN    7
00863  M01S00742.rec     +++|          ZJN    SYS10       IF SECURITY MODE UNCHANGED
00864  M01S00743.rec     +++|          LDC    MSGU        *SECURITY MODE CHANGED.*
00865  M01S00744.rec     +++|          LJM    ERR         PROCESS ERROR
00866  M01S00745.rec     +++|
00867  M01S00746.rec     +++| SYS10    LDK    SSML        RESTORE ACCESS CATEGORIES
00868  M01S00747.rec     +++|          CWM    PBUF+SSML*5,ON
00869  M01S00748.rec     +++|          LDK    JSNL        RESTORE JOB SEQUENCE NUMBER
00870  M01S00749.rec     +++|          CWM    PBUF+5*JSNL,ON
00871  M01S00750.rec     +++|          LDC    377777      READ MANAGED TABLES
00872  M01S00751.rec     +++|          RJM    RTB
00873  M01S00752.rec     +++|          LDN    ZERL
00874  M01S00753.rec     +++|          CRD    CM
00875  M01S00754.rec     +++|          LDN    FNTP        SET SYSTEM FILE BUSY
00876  M01S00755.rec     +++|          CRD    CM+3
00877  M01S00756.rec     +++|          ERRNZ  SYFO        SYSTEM FILE ORDINAL .NE. 0
00878  M01S00757.rec     +++|          MONITOR  UTEM
00879  M01S00758.rec     +++|*         LDN    0           INTERLOCK *PROBE* TABLE
00880  M01S00759.rec     +++|          STM    PBUF+PRBP*5
00881  M01S00760.rec     +++|          LDC    PRBP        RESTORE *PROBE* TABLE POINTER
00882  M01S00761.rec     +++|          CWM    PBUF+PRBP*5,ON
00883  M01S00762.rec     +++|          LDD    RS          CHECK RECOVERY STATUS
00884  M01S00763.rec     +++|          LPN    SYMK
00885  M01S00764.rec     +++|          NJN    SYS11       IF SYSTEM RECOVERY REQUESTED
00886  M01S00765.rec     +++|          LJM    SYS20       COMPLETE MASS STORAGE OPERATION
00887  M01S00766.rec     +++|
00888  M01S00767.rec     +++|*         READ LIBRARY TABLES.
00889  M01S00768.rec     +++|
00890  M01S00769.rec     +++| SYS11    LDC    RPLP        FETCH RPL POINTER
00891  M01S00770.rec     +++|          CRD    CN
00892  M01S00771.rec     +++|          CRD    CM
00893  M01S00772.rec     +++|          ADN    PLDP-RPLP   GET PLD POINTER
00894  M01S00773.rec     +++|          CRD    FS
00895  M01S00774.rec     +++|          LDM    PBUF+RPLP*5 CHECK LIBRARY POINTER
00896  M01S00775.rec     +++|          STD    CA
00897  M01S00776.rec     +++|          SBD    CN
00898  M01S00777.rec     +++|          SHN    14
00899  M01S00778.rec     +++|          ADM    PBUF+RPLP*5+1
00900  M01S00779.rec     +++|          STD    CA+1
00901  M01S00780.rec     +++|          SBD    CN+1
00902  M01S00781.rec     +++|          PJN    SYS12       IF CMR LENGTH HAS NOT INCREASED
00903  M01S00782.rec     +++|          ENDMS
00904  M01S00783.rec     +++|          LDC    MSGS        *CMR LENGTH CHANGED.*
00905  M01S00784.rec     +++|          LJM    ERR
00906  M01S00785.rec     +++|
00907  M01S00786.rec     +++| SYS12    RAD    CN+1        ADJUST RPL ADDRESS
00908  M01S00787.rec     +++|          SHN    -14
00909  M01S00788.rec     +++|          RAD    CN
Line S00789 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00789.ns2535  ---|          LDN    0           SET RPL LOCKED
Line S00790 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00790.ns2535  ---|          STD    CM
Line S00017 Modification History
M01 (Added by) ns2535
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00017.273l780 ---|          LDN    0           SET MOVE TO CONTROL POINT 0
Line S00018 Modification History
M01 (Added by) ns2535
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00913  M02S00018.273l780 ---|          STD    CP
00914  M01S00016.273l780 +++|          LDN    0
00915  M01S00019.ns2535  +++|          STD    CM          SET RPL LOCKED
00916  M01S00791.rec     +++|          STD    CM+1
00917  M01S00792.rec     +++|          STD    FS          SET DIRECTORY LOCKED
00918  M01S00793.rec     +++|          STD    FS+1
00919  M01S00794.rec     +++|          LDC    RPLP        STORE RESIDENT LIBRARY POINTER
00920  M01S00795.rec     +++|          CWD    CM
00921  M01S00796.rec     +++|          ADN    PLDP-RPLP   STORE PLD POINTER
00922  M01S00797.rec     +++|          CWD    FS
Line S00798 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00923  M02S00798.ns2535  ---|          DELAY  500D*10
Line S00799 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00924  M02S00799.ns2535  ---|          LDC    377777      READ LIBRARY TABLES
Line S00800 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00800.ns2535  ---|          RJM    RTB
Line S00801 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00926  M02S00801.ns2535  ---|          LDD    CA          SET CMR STORAGE
Line S00802 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00802.ns2535  ---|          SHN    14
Line S00803 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00803.ns2535  ---|          ADD    CA+1
Line S00804 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00929  M02S00804.ns2535  ---|          ADN    77
Line S00805 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00930  M02S00805.ns2535  ---|          SHN    -6
Line S00806 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00806.ns2535  ---|          STD    T1
Line S00807 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00807.ns2535  ---|          LDN    0           MOVE TO CONTROL POINT 0
Line S00808 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00808.ns2535  ---|          STD    CM+1
Line S00809 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00809.ns2535  ---|          STD    CP
Line S00810 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00935  M02S00810.ns2535  ---|          MONITOR CCAM
Line S00811 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00936  M02S00811.ns2535  ---| SYS16    LDD    T1          REQUEST STORAGE
Line S00020 Modification History
M01 (Added by) ns2535
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00937  M02S00020.273l780 ---|*         LDN    0           MOVE TO CONTROL POINT 0
Line S00021 Modification History
M01 (Added by) ns2535
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00021.273l780 ---|*         STD    CM+1
Line S00022 Modification History
M01 (Added by) ns2535
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00022.273l780 ---|          MONITOR  CCAM
00940  M01S00023.ns2535  +++| SYS16    LDM    PBUF+5*CMRL+4  REQUEST STORAGE
00941  M01S00812.rec     +++|          STD    CM+1
Line S00813 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00942  M02S00813.273l780 ---|          LDN    0
00943  M01S00017.273l780 +++|          LDC    1000        SET CMR REQUEST
00944  M01S00814.rec     +++|          STD    CM+2
00945  M01S00815.rec     +++|          MONITOR RSTM
Line S00816 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00816.273l780 ---|          LDD    FL
00947  M01S00018.273l780 +++|          LDK    CMRL
00948  M01S00019.273l780 +++|          CRD    CM
00949  M01S00020.273l780 +++|          LDD    CM+4
Line S00817 Modification History
M01 (Added by) rec
M02 (Updated by) ns2535
Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00817.ns2535  ---|          LMD    T1
00951  M01S00024.ns2535  +++|          LMM    PBUF+5*CMRL+4
00952  M01S00818.rec     +++|          NJN    SYS16       IF NOT ASSIGNED
Line S00819 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00953  M02S00819.273l780 ---|          LDD    NC
Line S00820 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00954  M02S00820.273l780 ---|          STD    CM+1
Line S00821 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00955  M02S00821.273l780 ---|          SHN    7           MOVE TO SYSTEM CONTROL POINT
Line S00822 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00956  M02S00822.273l780 ---|          STD    CP
Line S00823 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00823.273l780 ---|          MONITOR CCAM
00958  M01S00025.ns2535  +++|          LDC    377777      READ LIBRARY TABLES
00959  M01S00026.ns2535  +++|          RJM    RTB
00960  M01S00824.rec     +++|
00961  M01S00825.rec     +++|*         SET LIBRARY TABLE ADDRESSES.
00962  M01S00826.rec     +++|
00963  M01S00827.rec     +++|          LDM    PBUF+5*PLDP+1  RESTORE PLD ADDRESS
00964  M01S00828.rec     +++|          STD    FS+1
00965  M01S00829.rec     +++|          LDM    PBUF+5*PLDP
00966  M01S00830.rec     +++|          STD    FS
00967  M01S00831.rec     +++|          LDC    RPLP        UNLOCK RPL
00968  M01S00832.rec     +++|          CWD    CN
00969  M01S00833.rec     +++|          ADN    PLDP-RPLP   STORE PLD POINTER
00970  M01S00834.rec     +++|          CWD    FS
00971  M01S00835.rec     +++|          SBN    PLDP-RCLP   FETCH RCL POINTER
00972  M01S00836.rec     +++|          CRD    CM
00973  M01S00837.rec     +++|          LDM    PBUF+5*RCLP+1  RESTORE RCL ADDRESS
00974  M01S00838.rec     +++|          STD    CM+1
00975  M01S00839.rec     +++|          LDM    PBUF+5*RCLP
00976  M01S00840.rec     +++|          STD    CM
00977  M01S00841.rec     +++|          LDC    RCLP        STORE RCL POINTER
00978  M01S00842.rec     +++|          CWD    CM
00979  M01S00843.rec     +++|          LDN    DSSL        SET RECOVERY LEVEL
00980  M01S00844.rec     +++|          CRD    CM
00981  M01S00845.rec     +++|          LDM    PBUF+5*DSSL+4
00982  M01S00846.rec     +++|          LMD    CM+4
00983  M01S00847.rec     +++|          SCN    7
00984  M01S00848.rec     +++|          LMD    CM+4
00985  M01S00849.rec     +++|          STM    PBUF+5*DSSL+4
00986  M01S00850.rec     +++|          LDN    DSSL        STORE SYSTEM LABEL
00987  M01S00851.rec     +++|          CWM    PBUF+5*DSSL,ON
00988  M01S00852.rec     +++|          LDC    EPDP+PSTP*  READ EPD POINTER
00989  M01S00853.rec     +++|          CRD    CM
00990  M01S00854.rec     +++|          LDM    PBUF+5*EPDP+1  RESTORE EPD ADDRESS
00991  M01S00855.rec     +++|          STD    CM+1
00992  M01S00856.rec     +++|          LDM    PBUF+5*EPDP
00993  M01S00857.rec     +++|          STD    CM
00994  M01S00858.rec     +++|
00995  M01S00859.rec     +++|          ERRNZ  PSTP-EPDP   POINTERS NOT IN SAME WORD
00996  M01S00860.rec     +++|
00997  M01S00861.rec     +++|          LDM    PBUF+5*PSTP+3  RESTORE PST ADDRESS
00998  M01S00862.rec     +++|          STD    CM+3
00999  M01S00863.rec     +++|          LDM    PBUF+5*PSTP+2
01000  M01S00864.rec     +++|          STD    CM+2
01001  M01S00865.rec     +++|          LDC    EPDP+PSTP*  SET EPD AND PST ADDRESS
01002  M01S00866.rec     +++|          CWD    CM
01003  M01S00867.rec     +++|          SBN    EPDP-LBDP   FETCH PBD POINTER
01004  M01S00868.rec     +++|          CRD    CM
01005  M01S00869.rec     +++|          LDM    PBUF+5*LBDP+3  RESTORE LBD ADDRESS
01006  M01S00870.rec     +++|          STD    CM+3
01007  M01S00871.rec     +++|          LDM    PBUF+5*LBDP+2
01008  M01S00872.rec     +++|          STD    CM+2
01009  M01S00873.rec     +++|          LDN    SSTL        FETCH SYSTEM STATUS WORD
01010  M01S00874.rec     +++|          CRD    FS
01011  M01S00875.rec     +++|          ADN    PRBP-SSTL   GET *PROBE* TABLE ADDRESS
01012  M01S00876.rec     +++|          CRD    CN
01013  M01S00877.rec     +++|          ADN    LBDP-PRBP   STORE LBD POINTER
01014  M01S00878.rec     +++|          CWD    CM
01015  M01S00879.rec     +++|          ADN    BIOL-LBDP   READ BUFFERED I/O STATUS
01016  M01S00880.rec     +++|          CRD    FN
01017  M01S00881.rec     +++|          LDD    FS+2        CHECK *PROBE* ENABLED
01018  M01S00882.rec     +++|          SHN    21-6
01019  M01S00883.rec     +++|          MJN    SYS19       IF *PROBE* NOT ENABLED
01020  M01S00884.rec     +++|          LDD    FN+1
01021  M01S00885.rec     +++|          ADD    FN+2
01022  M01S00886.rec     +++|          ZJN    SYS18       IF NO BUFFERED I/O
01023  M01S00887.rec     +++|          LDN    0
01024  M01S00888.rec     +++|          RJM    RTB         RETRIEVE BUFFERED DEVICE POINTER TABLE
01025  M01S00889.rec     +++|          LDD    FN+1
01026  M01S00890.rec     +++|          SHN    14
01027  M01S00891.rec     +++|          LMD    FN+2
01028  M01S00892.rec     +++|          ADN    IOSP        RESET BUFFERED I/O *PROBE* DATA POINTER
01029  M01S00893.rec     +++|          CWM    BUF+2+5*IOSP,ON
01030  M01S00894.rec     +++| SYS18    LDC    4000        CLEAR *PROBE* TABLE INTERLOCK
01031  M01S00895.rec     +++|          STD    CN
01032  M01S00896.rec     +++|          LDC    PRBP        UPDATE *PROBE* TABLE POINTER
01033  M01S00897.rec     +++|          CWD    CN
01034  M01S00898.rec     +++| SYS19    RJM    LDB
01035  M01S00899.rec     +++|          LDN    1           INITIALIZE *CPUMTR* TABLES
01036  M01S00900.rec     +++|          RJM    ICT
01037  M01S00901.rec     +++| SYS20    ENDMS
01038  M01S00902.rec     +++|          LDD    RS          SET EXIT CONDITION
01039  M01S00903.rec     +++|          LPC    JBMK
01040  M01S00904.rec     +++|          LMD    HN
01041  M01S00905.rec     +++|          ERRNZ  100-JBCM    ADJUST IF VALUE CHANGES
01042  M01S00906.rec     +++|          LJM    SYSX        RETURN
01043  M01S00907.rec     +++|
01044  M01S00908.rec     +++| SYSA     DATA   C*EST LENGTH CONFLICT.*
01045  M01S00909.rec     +++|          SPACE  4,10
01046  M01S00910.rec     +++|**        SYSTEM SECTOR FNT ENTRIES.
01047  M01S00911.rec     +++|
01048  M01S00912.rec     +++|
01049  M01S00913.rec     +++| NSYT     VFD    42/0LSYSTAB,6/1,6/SYFT,6/0
01050  M01S00914.rec     +++| FDS      SPACE  4,10
01051  M01S00915.rec     +++|**        FDS - FIND DESCRIPTOR IN SAB.
01052  M01S00916.rec     +++|*
01053  M01S00917.rec     +++|*         ENTRY  (A) = DESCRIPTOR ID.
01054  M01S00918.rec     +++|*                (BUF) = SAB.
01055  M01S00919.rec     +++|*
01056  M01S00920.rec     +++|*         EXIT   (A) = 0  IF DESCRIPTOR FOUND.
01057  M01S00921.rec     +++|*                (A) .NE. 0  IF DESCRIPTOR NOT FOUND.
01058  M01S00922.rec     +++|*                (T2) = BYTE OFFSET OF DESCRIPTOR.
01059  M01S00923.rec     +++|*
01060  M01S00924.rec     +++|*         USES   T0 - T2.
01061  M01S00925.rec     +++|
01062  M01S00926.rec     +++|
01063  M01S00927.rec     +++| FDS      SUBR               ENTRY/EXIT
01064  M01S00928.rec     +++|          STD    T0          SAVE DESCRIPTOR ID
01065  M01S00929.rec     +++|          LDN    0
01066  M01S00930.rec     +++|          STD    T1
01067  M01S00931.rec     +++| FDS1     LDD    T1          SET BYTE OFFSET
01068  M01S00932.rec     +++|          SHN    2
01069  M01S00933.rec     +++|          ADD    T1
01070  M01S00934.rec     +++|          STD    T2
01071  M01S00935.rec     +++|          LDM    BUF+2,T2
01072  M01S00936.rec     +++|          SHN    14
01073  M01S00937.rec     +++|          RAD    T1          ADVANCE INDEX
01074  M01S00938.rec     +++|          SHN    -14
01075  M01S00939.rec     +++|          LMD    T0
01076  M01S00940.rec     +++|          ZJN    FDSX        IF DESCRIPTOR FOUND
01077  M01S00941.rec     +++|          LDD    T1
01078  M01S00942.rec     +++|          SBM    BUF+1
01079  M01S00943.rec     +++|          NJN    FDS1        IF NOT END OF SAB
01080  M01S00944.rec     +++|          ENDMS
01081  M01S00945.rec     +++|          LDN    1           INDICATE ERROR
01082  M01S00946.rec     +++|          UJN    FDSX        RETURN
01083  M01S00947.rec     +++| PCT      SPACE  4,10
01084  M01S00948.rec     +++|**        PCT - PROCESS CONTROL TABLES.
01085  M01S00949.rec     +++|*
01086  M01S00950.rec     +++|*         USES   CA - CA+4, CM - CM+4, CN - CN+4.
01087  M01S00951.rec     +++|*
01088  M01S00952.rec     +++|*         CALLS  RTB, SKR, VEM.
01089  M01S00953.rec     +++|*
01090  M01S00954.rec     +++|*         MACROS ENDMS.
01091  M01S00955.rec     +++|
01092  M01S00956.rec     +++|
01093  M01S00957.rec     +++| PCT3     RJM    SKR         SKIP EVENT TABLE
01094  M01S00958.rec     +++|          RJM    SKR         SKIP SSCT AND SSAT
01095  M01S00959.rec     +++|          RJM    SKR         SKIP SERVICE CLASS CONTROL TABLE
01096  M01S00960.rec     +++|          RJM    SKR         SKIP SABB INFORMATION
01097  M01S00961.rec     +++|          RJM    SKR         SKIP STATISTICAL DATA AREA
01098  M01S00962.rec     +++|
01099  M01S00963.rec     +++| PCT      SUBR               ENTRY/EXIT
01100  M01S00964.rec     +++|          LDD    RS
01101  M01S00965.rec     +++|          LPN    SYMK
01102  M01S00966.rec     +++|          LMN    SYCM
01103  M01S00967.rec     +++|          ZJN    PCT3        IF SYSTEM RECOVERED FROM CM
01104  M01S00968.rec     +++|          LDK    EVTP        FETCH EVENT TABLE FWA
01105  M01S00969.rec     +++|          CRD    CN
01106  M01S00970.rec     +++|          LDD    CN          SET ADDRESS OF TABLE
01107  M01S00971.rec     +++|          STD    CA
01108  M01S00972.rec     +++|          LDD    CN+1
01109  M01S00973.rec     +++|          STD    CA+1
01110  M01S00974.rec     +++|          LDN    EVTLL       READ EVENT TABLE
01111  M01S00975.rec     +++|          RJM    RTB
01112  M01S00976.rec     +++|          LDD    CN          CLEAR TABLE INTERLOCK
01113  M01S00977.rec     +++|          SHN    14
01114  M01S00978.rec     +++|          LMD    CN+1
01115  M01S00979.rec     +++|          CRD    CM
01116  M01S00980.rec     +++|          LDD    CM+4
01117  M01S00981.rec     +++|          SCN    1
01118  M01S00982.rec     +++|          STD    CM+4
01119  M01S00983.rec     +++|          LDD    CN
01120  M01S00984.rec     +++|          SHN    14
01121  M01S00985.rec     +++|          LMD    CN+1
01122  M01S00986.rec     +++|          CWD    CM
01123  M01S00987.rec     +++|          LDC    SSCP        FETCH SUBSYSTEM CONTROL TABLE POINTER
01124  M01S00988.rec     +++|          CRD    CM
01125  M01S00989.rec     +++|          LDD    CM+2        SET ADDRESS OF TABLES
01126  M01S00990.rec     +++|          STD    CA
01127  M01S00991.rec     +++|          LDD    CM+3
01128  M01S00992.rec     +++|          STD    CA+1
01129  M01S00993.rec     +++|          LDN    SSCTL*2     READ SSCT AND SSAT
01130  M01S00994.rec     +++|          RJM    RTB
Line S00995 Modification History
M01 (Added by) rec
M02 (Updated by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00995.ns2513  ---|          LDK    JBCP        SET FWA OF SERVICE CLASS CONTROL TABLE
01132  M01S00001.ns2513  +++|          LDK    JBCP        SET FWA OF JOB CONTROL TABLE
01133  M01S00996.rec     +++|          CRD    CA
Line S00997 Modification History
M01 (Added by) rec
M02 (Updated by) ns2513
Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00997.ns2513  ---|          LDK    SCTE        READ SERVICE CLASS CONTROL TABLE
01135  M01S00002.ns2513  +++|          LDK    JCBE*/SCD/MXJC  READ CONTROL TABLES
01136  M01S00998.rec     +++|          RJM    RTB
01137  M01S00999.rec     +++|          RJM    VEM         VERIFY MICROCODE/EI NAMES
01138  M01S01000.rec     +++|          LDC    SDAP        SET STATISTICAL DATA AREA ADDRESS
01139  M01S01001.rec     +++|          CRD    CA
01140  M01S01002.rec     +++|          LDN    SDAL        READ STATISTICAL DATA AREA
01141  M01S01003.rec     +++|          RJM    RTB
01142  M01S01004.rec     +++|
01143  M01S01005.rec     +++|*         SET RESERVED EJT ORDINAL.
01144  M01S01006.rec     +++|
01145  M01S01007.rec     +++|          LDM    PBUF+EIBP*5+3  GET PREVIOUS *EICB* ADDRESS
01146  M01S01008.rec     +++|          SHN    14
01147  M01S01009.rec     +++|          ADM    PBUF+EIBP*5+4
01148  M01S01010.rec     +++|          ZJN    PCT2        IF NO EICB PREVIOUSLY
01149  M01S01011.rec     +++|          LDN    SSTL
01150  M01S01012.rec     +++|          CRD    CM
01151  M01S01013.rec     +++|          LDD    CM+3        CHECK FOR *VE=* ENTRY
01152  M01S01014.rec     +++|          LMM    PBUF+5*SSTL+3
01153  M01S01015.rec     +++|          SHN    21-13
01154  M01S01016.rec     +++|          PJN    PCT1        IF *VE* STATUS NOT CHANGED
01155  M01S01017.rec     +++|          ENDMS
01156  M01S01018.rec     +++|          LDC    MSGT        (*VE ENTRY REQUIRED.*)
01157  M01S01019.rec     +++|          LJM    ERR         ISSUE MESSAGE AND HANG
01158  M01S01020.rec     +++|
01159  M01S01021.rec     +++| PCT1     LDK    NVOL
01160  M01S01022.rec     +++|          CRD    CM
01161  M01S01023.rec     +++|          LDM    PBUF+NVOL*5+4  SET NOS/VE EJT ORDINAL
01162  M01S01024.rec     +++|          STD    CM+4
01163  M01S01025.rec     +++|          LDK    NVOL
01164  M01S01026.rec     +++|          CWD    CM
01165  M01S01027.rec     +++| PCT2     LJM    PCTX        RETURN
01166  M01S01028.rec     +++| SKR      SPACE  4
01167  M01S01029.rec     +++|**        SKR - SKIP RECORD.
01168  M01S01030.rec     +++|*
01169  M01S01031.rec     +++|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS.
01170  M01S01032.rec     +++|*
01171  M01S01033.rec     +++|*         EXIT   (T6 - T7) UPDATED.
01172  M01S01034.rec     +++|*                TO *SYS2* IF UNRECOVERED READ ERROR.
01173  M01S01035.rec     +++|*
01174  M01S01036.rec     +++|*         CALLS  RNS.
01175  M01S01037.rec     +++|
01176  M01S01038.rec     +++|
01177  M01S01039.rec     +++| SKR2     SHN    -6
01178  M01S01040.rec     +++|          NJN    SKR1        IF NOT EOR
01179  M01S01041.rec     +++|
01180  M01S01042.rec     +++| SKR      SUBR               ENTRY/EXIT
01181  M01S01043.rec     +++| SKR1     LDC    BUF         READ NEXT SECTOR
01182  M01S01044.rec     +++|          RJM    RNS
01183  M01S01045.rec     +++|          PJN    SKR2        IF NO READ ERROR
01184  M01S01046.rec     +++|          LJM    SYS2        ISSUE ERROR MESSAGE AND HANG
01185  M01S01047.rec     +++| VEM      SPACE  4,10
Line S01048 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01186  M02S01048.rec33   ---|**        VEM - VERFIFY EI AND MICROCODE NAMES.
01187  M01S00004.rec33   +++|**        VEM - VERIFY EI AND MICROCODE NAMES.
01188  M01S01049.rec     +++|*
01189  M01S01050.rec     +++|*         EXIT   TO *ERR* IF VALUES DO NOT COMPARE.
01190  M01S01051.rec     +++|*                TO *SYS2* IF I/O ERROR.
01191  M01S01052.rec     +++|*
01192  M01S01053.rec     +++|*         USES   T0 - T2, CM - CM+4, CN - CN+4.
01193  M01S01054.rec     +++|*
01194  M01S01055.rec     +++|*         CALLS  FDS, RNS.
01195  M01S01056.rec     +++|*
01196  M01S01057.rec     +++|*         MACRO  ENDMS.
01197  M01S01058.rec     +++|
01198  M01S01059.rec     +++|
01199  M01S01060.rec     +++| VEM7     LJM    SYS2        ISSUE ERROR MESSAGE AND HANG
01200  M01S01061.rec     +++|
01201  M01S01062.rec     +++| VEM      SUBR               ENTRY/EXIT
01202  M01S01063.rec     +++|          LDC    BUF
01203  M01S01064.rec     +++|          RJM    RNS         READ NEXT SECTOR
01204  M01S01065.rec     +++|          MJN    VEM7        IF ERROR
01205  M01S01066.rec     +++|          LDK    EABL+MFEI   GET MAINFRAME DESCRIPTOR ADDRESS
01206  M01S01067.rec     +++|          CRD    CM
01207  M01S01068.rec     +++|          LDD    CM+1
01208  M01S01069.rec     +++|          SCN    77
01209  M01S01070.rec     +++|          SHN    6
01210  M01S01071.rec     +++|          LMD    CM
01211  M01S01072.rec     +++|          SHN    6
01212  M01S01073.rec     +++|          CRD    CN
01213  M01S01074.rec     +++|          ADN    1           GET EI NAME
01214  M01S01075.rec     +++|          CRD    CM
01215  M01S01076.rec     +++|          LDD    CN+1
01216  M01S01077.rec     +++|          SHN    -6
01217  M01S01078.rec     +++|          LMN    7
01218  M01S01079.rec     +++|          NJN    VEMX        IF NOT CYBER 180 MACHINE
01219  M01S01080.rec     +++|          LDN    3           FIND MAINFRAME DESCRIPTOR
01220  M01S01081.rec     +++|          RJM    FDS
01221  M01S01082.rec     +++| VEM1     NJN    VEM7        IF NOT FOUND
01222  M01S01083.rec     +++|          LDM    BUF+2+5+3,T2
01223  M01S01084.rec     +++|          STM    VEMB+6
01224  M01S01085.rec     +++|          LMD    CM+3
01225  M01S01086.rec     +++|          NJP    VEM5        IF EI MISMATCH
01226  M01S01087.rec     +++|          LDK    EABL+CPEI   GET PROCESSOR DESCRIPTOR
01227  M01S01088.rec     +++|          CRD    CM
01228  M01S01089.rec     +++|          LDD    CM+1
01229  M01S01090.rec     +++|          SCN    77
01230  M01S01091.rec     +++|          SHN    6
01231  M01S01092.rec     +++|          LMD    CM
01232  M01S01093.rec     +++|          SHN    6
01233  M01S01094.rec     +++|          ADN    2
01234  M01S01095.rec     +++|          CRD    CM
01235  M01S01096.rec     +++|          LDN    2           FIND PROCESSOR DESCRIPTOR
01236  M01S01097.rec     +++|          RJM    FDS
01237  M01S01098.rec     +++|          NJN    VEM1        IF NOT FOUND
01238  M01S01099.rec     +++|          STD    T0
01239  M01S01100.rec     +++|          LDN    3
01240  M01S01101.rec     +++|          STD    T1
01241  M01S01102.rec     +++|          RAD    T2
01242  M01S01103.rec     +++| VEM2     LDM    BUF+2+2*5,T2
01243  M01S01104.rec     +++|          STM    VEMA+12,T1
01244  M01S01105.rec     +++|          LMM    CM,T1
01245  M01S01106.rec     +++|          ZJN    VEM3        IF THIS BYTE MATCHES
01246  M01S01107.rec     +++|          AOD    T0          SET NO MATCH FLAG
01247  M01S01108.rec     +++| VEM3     SOD    T2
01248  M01S01109.rec     +++|          SOD    T1          DECREMENT INDEX
01249  M01S01110.rec     +++|          PJN    VEM2        IF MORE TO COMPARE
01250  M01S01111.rec     +++|          LDD    T0
01251  M01S01112.rec     +++|          ZJN    VEM6        IF MICROCODE MATCHES
01252  M01S01113.rec     +++| VEM4     ENDMS
01253  M01S01114.rec     +++|          LDC    VEMA        *MICROCODE MISMATCH*
01254  M01S01115.rec     +++|*         LDC    VEMB        (EI MISMATCH)
01255  M01S01116.rec     +++| VEMC     EQU    *-1
01256  M01S01117.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG PP
01257  M01S01118.rec     +++|
01258  M01S01119.rec     +++| VEM5     LDK    VEMB-VEMA
01259  M01S01120.rec     +++|          RAM    VEMC
01260  M01S01121.rec     +++|          UJN    VEM4        DISPLAY MESSAGE AND HANG
01261  M01S01122.rec     +++|
01262  M01S01123.rec     +++| VEM6     LJM    VEMX        RETURN
01263  M01S01124.rec     +++|
01264  M01S01125.rec     +++| VEMA     DATA   C*MICROCODE MISMATCH,        *
01265  M01S01126.rec     +++| VEMB     DATA   C*EI MISMATCH,  *
01266  M01S01127.rec     +++| VTL      SPACE  4,10
01267  M01S01128.rec     +++|**        VTL - VERIFY TABLE LENGTHS.
01268  M01S01129.rec     +++|*
01269  M01S01130.rec     +++|*         ENTRY  (A) = LIST ADDRESS OF TABLE POINTERS.
01270  M01S01131.rec     +++|*
01271  M01S01132.rec     +++|*         EXIT   (A) = 0 IF TABLE LENGTHS VALID.
01272  M01S01133.rec     +++|*                (CA - CA+1) = FWA OF LAST TABLE IN LIST.
01273  M01S01134.rec     +++|*
01274  M01S01135.rec     +++|*         USES   EC, QA, T2, LM - LM+1.
01275  M01S01136.rec     +++|
01276  M01S01137.rec     +++|
01277  M01S01138.rec     +++| VTL1     STD    T2
01278  M01S01139.rec     +++|          CRD    CA          READ TABLE POINTER
01279  M01S01140.rec     +++|          SHN    2
01280  M01S01141.rec     +++|          ADC    PBUF+2      SET ADDRESS OF CHECKPOINTED POINTER
01281  M01S01142.rec     +++|          RAD    T2
01282  M01S01143.rec     +++|          LDD    EC          COMPARE NUMBER OF TABLE ENTRIES
01283  M01S01144.rec     +++|          LMI    T2
01284  M01S01145.rec     +++|          NJN    VTLX        IF TABLE LENGTHS DIFFER
01285  M01S01146.rec     +++|          LDD    RS
01286  M01S01147.rec     +++|          LPN    FLMK
01287  M01S01148.rec     +++|          LMN    FLCM
01288  M01S01149.rec     +++|          ZJN    VTL2        IF FILES RECOVERED FROM CM
01289  M01S01150.rec     +++|          LDM    1,T2
01290  M01S01151.rec     +++|          STD    LM
01291  M01S01152.rec     +++|          LDM    2,T2        RESET POINTER PARAMETERS
01292  M01S01153.rec     +++|          STD    LM+1
01293  M01S01154.rec     +++|          LDI    QA          UPDATE POINTER WORD
01294  M01S01155.rec     +++|          CWD    CA
01295  M01S01156.rec     +++| VTL2     AOD    QA          ADVANCE LIST ADDRESS
01296  M01S01157.rec     +++| VTL3     LDI    QA
01297  M01S01158.rec     +++|          NJN    VTL1        IF NOT END OF LIST
01298  M01S01159.rec     +++|
01299  M01S01160.rec     +++| VTL      SUBR               ENTRY/EXIT
01300  M01S01161.rec     +++|          STD    QA
01301  M01S01162.rec     +++|          UJN    VTL3        ENTER LOOP
01302  M01S01163.rec     +++| BUFFERS  SPACE  4
01303  M01S01164.rec     +++|*         BUFFER DEFINITIONS.
01304  M01S01165.rec     +++|
01305  M01S01166.rec     +++|
01306  M01S01167.rec     +++| PBUF     EQU    *+2
01307  M01S01168.rec     +++| BUF      EQU    PBUF+5*BQRL
01308  M01S01169.rec     +++|
01309  M01S01170.rec     +++|          ERRPL  BUF+502-EPFW  BUFFER OVERFLOW
Line S01171 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01310  M02S01171.rec23   ---|
Line S01172 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01311  M02S01172.rec23   ---|
Line S01173 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01312  M02S01173.rec23   ---|*         ROLLOUT FILE FNT SECTOR BUFFER.
Line S01174 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01313  M02S01174.rec23   ---|
Line S01175 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01314  M02S01175.rec23   ---| SBUF     EQU    PBUF+LENF*5-5  LEAVE ROOM FOR FNT ENTRY - ONE WORD
Line S01176 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01315  M02S01176.rec23   ---|
Line S01177 Modification History
M01 (Added by) rec
M02 (Updated by) rec23
Seq #  *Modification Id* Act 
----------------------------+
01316  M02S01177.rec23   ---|          ERRPL  SBUF+SBUFL-EPFW  BUFFER OVERFLOW
01317  M01S01178.rec     +++|          TITLE  PRESET PROGRAM.
01318  M01S01179.rec     +++| PRS      SPACE  4
01319  M01S01180.rec     +++|**        PRS - PRESET.
01320  M01S01181.rec     +++|*
01321  M01S01182.rec     +++|*         EXIT   (RS) = RECOVERY STATUS.
01322  M01S01183.rec     +++|*                (NC) = NUMBER OF CONTROL POINTS.
Line S00067 Modification History
M01 (Added by) 271l716
M02 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01323  M02S00067.rec33   ---|*                (NS) = NUMBER OF CP-S + PCP-S.
01324  M01S00005.rec33   +++|*                (NS) = NUMBER OF CP-S + PCP-S + 1 (SYS CP).
01325  M01S01184.rec     +++|*                (CE) = CHECKPOINT DEVICE EST ORDINAL.
01326  M01S01185.rec     +++|*                (ST) = SYSTEM TRACK FOR RECOVERY.
01327  M01S01186.rec     +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
01328  M01S01187.rec     +++|*
01329  M01S01188.rec     +++|*         USES   CM - CM+4, CN - CN+4.
01330  M01S01189.rec     +++|
01331  M01S01190.rec     +++|
01332  M01S01191.rec     +++| PRS      SUBR               ENTRY/EXIT
01333  M01S01192.rec     +++|          LDN    SMRL
01334  M01S01193.rec     +++|          CRD    CM
01335  M01S01194.rec     +++|          LDD    CM+4        SET STORAGE MOVE STATUS
01336  M01S01195.rec     +++|          STM    CCPA
01337  M01S01196.rec     +++|          LDD    CM+3
01338  M01S01197.rec     +++|          LPN    77
01339  M01S01198.rec     +++|          RAM    CCPB
01340  M01S01199.rec     +++|          LDD    IR+4        SET RECOVERY STATUS
01341  M01S01200.rec     +++|*         STD    RS
01342  M01S01201.rec     +++|          STM    RECC+4
Line S01202 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01343  M02S01202.271l716 ---|          LDN    NCPL        SET NUMBER OF CONTROL POINTS
Line S01203 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01344  M02S01203.271l716 ---|          CRD    CM
Line S01204 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01345  M02S01204.271l716 ---|          AOD    CM+1
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  M01S01205.rec     +++|          STD    NC
01352  M01S01206.rec     +++|          RAM    RECC+1
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 (Updated by) rec33
Seq #  *Modification Id* Act 
----------------------------+
01361  M02S00081.rec33   ---|          SOD    CN+2        SET CP + PCP COUNT
01362  M01S00006.rec33   +++|          SOD    CN+2        SET CP + PCP + SYS CP COUNT
01363  M01S00082.271l716 +++|          STD    NS
01364  M01S01207.rec     +++|          LDD    IA
01365  M01S01208.rec     +++|          CWD    IR
01366  M01S01209.rec     +++|          MONITOR CCAM
01367  M01S01210.rec     +++|*         LDN    0
01368  M01S01211.rec     +++|          STD    ST
01369  M01S01212.rec     +++|          LDN    ESTP        READ EST POINTER
01370  M01S01213.rec     +++|          CRD    CM
01371  M01S01214.rec     +++|          LDD    CM+3        SET LAST MASS STORAGE ORDINAL + 1
01372  M01S01215.rec     +++|          STD    LO
01373  M01S01216.rec     +++|          LDN    TAXMW       SET TAXM WORD COUNT
01374  M01S01217.rec     +++|          STD    T2
01375  M01S01218.rec     +++|          LDN    ZERL
01376  M01S01219.rec     +++|          CRD    CM
01377  M01S01220.rec     +++|          ADN    DSDL+1-ZERL FETCH *TAXM* TABLE GENERATED BY *SET*
01378  M01S01221.rec     +++|          CRM    TAXM,T2
01379  M01S01222.rec     +++|          RJM    IFP         INITIALIZE TABLE ACCESS ROUTINES
01380  M01S01223.rec     +++|
01381  M01S01224.rec     +++|*         FIND SYSTEM DEVICE.
01382  M01S01225.rec     +++|
01383  M01S01226.rec     +++|          LDN    NOPE-1
01384  M01S01227.rec     +++|          STD    T5
01385  M01S01228.rec     +++| PRS1     AOD    T5          INCREMENT EST ORDINAL
01386  M01S01229.rec     +++|          STM    RECF        SET POSSIBLE SYSTEM DEVICE
01387  M01S01230.rec     +++|          LMD    LO
01388  M01S01231.rec     +++|          ZJP    PRS5        IF END OF SCAN
01389  M01S01232.rec     +++|          SFA    EST,T5
01390  M01S01233.rec     +++|          ADK    EQDE
01391  M01S01234.rec     +++|          CRD    FN          READ EST ENTRY
01392  M01S01235.rec     +++|          LDD    FN
01393  M01S01236.rec     +++|          SHN    21-13
01394  M01S01237.rec     +++|          PJN    PRS1        IF NOT MASS STORAGE
01395  M01S01238.rec     +++|          SHN    13-12
01396  M01S01239.rec     +++|          PJN    PRS1        IF NOT SYSTEM DEVICE
01397  M01S01240.rec     +++|
01398  M01S01241.rec     +++|*         FIND CHECKPOINT DEVICE.
01399  M01S01242.rec     +++|
01400  M01S01243.rec     +++|          LDN    NOPE-1
01401  M01S01244.rec     +++|          STD    CE
01402  M01S01245.rec     +++| PRS2     AOD    CE          INCREMENT EST ORDINAL
01403  M01S01246.rec     +++|          LMD    LO
01404  M01S01247.rec     +++|          ZJN    PRS4        IF END OF SCAN
01405  M01S01248.rec     +++|          SFA    EST,CE
01406  M01S01249.rec     +++|          ADK    EQDE
01407  M01S01250.rec     +++|          CRD    FN
01408  M01S01251.rec     +++|          LDD    FN
01409  M01S01252.rec     +++|          SHN    21-13
01410  M01S01253.rec     +++|          PJN    PRS2        IF NOT MASS STORAGE
01411  M01S01254.rec     +++|          SHN    13-2
01412  M01S01255.rec     +++|          PJN    PRS2        IF NOT CHECKPOINT DEVICE
01413  M01S01256.rec     +++|          LDD    FN+4        SET SYSTEM TABLE TRACK
01414  M01S01257.rec     +++|          SHN    3
01415  M01S01258.rec     +++|          ADN    DULL
01416  M01S01259.rec     +++|          CRD    FS
01417  M01S01260.rec     +++|          LDD    FS+3
01418  M01S01261.rec     +++|          SHN    21-13
01419  M01S01262.rec     +++|          PJN    PRS2        IF NOT VALID CHECKPOINT FILE
01420  M01S01263.rec     +++|          SHN    13-21
01421  M01S01264.rec     +++|          STD    ST
01422  M01S01265.rec     +++|          STM    RECE
01423  M01S01266.rec     +++| PRS3     RJM    STU         SCAN TAPE UNITS
01424  M01S01267.rec     +++|          LJM    PRSX        RETURN
01425  M01S01268.rec     +++|
01426  M01S01269.rec     +++| PRS4     LDD    RS
01427  M01S01270.rec     +++|          ZJN    PRS3        IF NOT RECOVERY DEADSTART
01428  M01S01271.rec     +++|          LDN    PRSB-PRSA
01429  M01S01272.rec     +++| PRS5     ADC    PRSA
01430  M01S01273.rec     +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
01431  M01S01274.rec     +++|
01432  M01S01275.rec     +++| PRSA     DATA   C*SYSTEM DEVICE NOT FOUND.*
01433  M01S01276.rec     +++| PRSB     DATA   C*CHECKPOINT DEVICE NOT FOUND.*
01434  M01S01277.rec     +++|
01435  M01S01278.rec     +++| IFP      HERE               DUMP *IFP* REMOTE CODE
01436  M01S01279.rec     +++| STU      SPACE  4,10
01437  M01S01280.rec     +++|**        STU - SCAN TAPE UNITS IN *MAGNET*.
01438  M01S01281.rec     +++|*
Line S01282 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01439  M02S01282.282l826 ---|*         SETS FLAG TO FORCE *MAGNET* CLEAN-UP OF UNIT DESCRIPTOR
Line S01283 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01440  M02S01283.282l826 ---|*         TABLES (UDT) CORRESPONDING TO JOBS AT CONTROL POINTS
Line S01284 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01441  M02S01284.282l826 ---|*         WITH AN OUTSTANDING *CIO* REQUEST ON THE TAPE.
01442  M01S00002.282l826 +++|*         EXIT   JOB STATUS UPDATED IN *UST1* WORD OF UDT ENTRIES.
01443  M01S01285.rec     +++|*
01444  M01S01286.rec     +++|*         USES   CM - CM+4, CN - CN+4, FN - FN+4, FS - FS+4.
01445  M01S01287.rec     +++|*
01446  M01S01288.rec     +++|*         CALLS  AST.
01447  M01S01289.rec     +++|*
Line S01290 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01448  M02S01290.282l826 ---|*         MACROS SFA.
01449  M01S00003.282l826 +++|*         MACROS PAUSE, SFA.
01450  M01S01291.rec     +++|
01451  M01S01292.rec     +++|
01452  M01S01293.rec     +++| STU      SUBR               ENTRY/EXIT
01453  M01S01294.rec     +++|          LDC    FECF*10000+MTSI  GET *MAGNET* SSCT ENTRY
01454  M01S01295.rec     +++|          RJM    AST
01455  M01S01296.rec     +++|          SHN    21-13
01456  M01S01297.rec     +++|          PJN    STUX        IF *MAGNET* NOT ACCESSIBLE
01457  M01S01298.rec     +++|          LDC    FEAF*10000+MTSI  GET *MAGNET* SSAT ENTRY
01458  M01S01299.rec     +++|          RJM    AST
01459  M01S01300.rec     +++|          ZJN    STUX        IF *MAGNET* NOT AT CONTROL POINT
01460  M01S01301.rec     +++|          SFA    EJT         GET *MAGNET* CP NUMBER
01461  M01S01302.rec     +++|          ADN    SCHE
01462  M01S01303.rec     +++|          CRD    CM
01463  M01S01304.rec     +++|          LDD    CM+3        CHECK *MAGNET* SUBSYSTEM IDENTIFICATION
01464  M01S01305.rec     +++|          SHN    7
01465  M01S01306.rec     +++|          ADN    JCIW
01466  M01S01307.rec     +++|          CRD    CM
Line S01308 Modification History
M01 (Added by) rec
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01467  M02S01308.271l750 ---|          ADN    FLSW-JCIW   GET *MAGNET* RA AND FL
01468  M01S00002.271l750 +++|          SBN    JCIW-FLSW   GET *MAGNET* RA AND FL
01469  M01S01309.rec     +++|          CRD    CN
01470  M01S01310.rec     +++|          SCN    77
01471  M01S01311.rec     +++|          LMM    CCPA
01472  M01S01312.rec     +++|          ZJN    STUX        IF *MAGNET* MOVING
01473  M01S01313.rec     +++|          LDD    CM+2
01474  M01S01314.rec     +++|          LMC    MTSI
01475  M01S01315.rec     +++|          NJN    STUX        IF NOT CORRECT SUBSYSTEM IDENTIFICATION
01476  M01S01316.rec     +++|          LDK    MABL        CHECK MAINFRAME TYPE
01477  M01S01317.rec     +++|          CRD    CM
01478  M01S01318.rec     +++|          LDD    CM+1
01479  M01S01319.rec     +++|          SHN    21-13
01480  M01S01320.rec     +++|          MJN    STU1        IF NOT CM EXTENSION
01481  M01S01321.rec     +++|          LRD    CN+2
01482  M01S01322.rec     +++|          LDC    4000
01483  M01S01323.rec     +++|          STD    CN+3
01484  M01S01324.rec     +++| STU1     LDD    CN+3        GET *MAGNET* UDT FWA AND LWA+1
01485  M01S01325.rec     +++|          SHN    6
Line S01326 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01486  M02S01326.282l826 ---|          ADN    /COMSMTX/UBUF
01487  M01S00004.282l826 +++|          ADN    /MTX/UBUF
01488  M01S01327.rec     +++|          CRD    CM
Line S01328 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01489  M02S01328.282l826 ---|          ADN    /COMSMTX/XREQ-/COMSMTX/UBUF  PENDING EXTERNAL REQUEST
Line S01329 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01490  M02S01329.282l826 ---|          CRD    FN
Line S01330 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01491  M02S01330.282l826 ---|          LDD    FN          INDICATE LEVEL THREE ON EXTERNAL REQUEST
Line S01331 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01492  M02S01331.282l826 ---|          LPC    3777
Line S01332 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01493  M02S01332.282l826 ---|          LMC    4000
Line S01333 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01494  M02S01333.282l826 ---|          STD    FN
Line S01334 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01495  M02S01334.282l826 ---|          LDD    CN+3
Line S01335 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01496  M02S01335.282l826 ---|          SHN    6
Line S01336 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01497  M02S01336.282l826 ---|          ADN    /COMSMTX/XREQ
Line S01337 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01498  M02S01337.282l826 ---|          CWD    FN
01499  M01S01338.rec     +++|          LDD    CM+4        VALIDATE UDT FWA AND LWA+1
01500  M01S01339.rec     +++|          SBN    2
01501  M01S01340.rec     +++|          MJN    STU2        IF UDT FWA .LE. 1
01502  M01S01341.rec     +++|          LDD    CN+4
01503  M01S01342.rec     +++|          SHN    6
01504  M01S01343.rec     +++|          SBD    CM+2
01505  M01S01344.rec     +++|          SBN    1
01506  M01S01345.rec     +++|          MJN    STU2        IF UDT LWA+1 .GE. FL
01507  M01S01346.rec     +++|          LDD    CM+4
01508  M01S01347.rec     +++|          SBD    CM+2
01509  M01S01348.rec     +++|          MJN    STU4        IF UDT FWA .LT. LWA+1
01510  M01S01349.rec     +++| STU2     PAUSE  NE          RESET R REGISTER FOR CME MACHINE
01511  M01S01350.rec     +++|          LJM    STUX        RETURN
01512  M01S01351.rec     +++|
Line S01352 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01513  M02S01352.282l826 ---| STU3     LDN    /COMSMTX/UNITL
01514  M01S00005.282l826 +++| STU3     LDN    /MTX/UNITL
01515  M01S01353.rec     +++|          RAD    CM+4
01516  M01S01354.rec     +++|          SBD    CM+2
01517  M01S01355.rec     +++|          PJN    STU2        IF END OF UDTS
01518  M01S01356.rec     +++| STU4     LDD    CN+3        CHECK NEXT UDT
01519  M01S01357.rec     +++|          SHN    6
01520  M01S01358.rec     +++|          ADD    CM+4
Line S01359 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01521  M02S01359.282l826 ---|          ADN    /COMSMTX/UJID
01522  M01S00006.282l826 +++|          ADK    /MTX/UST1  GET JOB STATUS
01523  M01S01360.rec     +++|          CRD    FS
Line S01361 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01524  M02S01361.282l826 ---|          LDD    FS+4
Line S01362 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01525  M02S01362.282l826 ---|          ZJN    STU3        IF UNIT NOT ASSIGNED
Line S01363 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01526  M02S01363.282l826 ---|          LDD    FS+2        CHECK JOB AT CONTROL POINT
Line S01364 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01527  M02S01364.282l826 ---|          LPN    37
Line S01365 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01528  M02S01365.282l826 ---|          SHN    14
Line S01366 Modification History
M01 (Added by) rec
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01529  M02S01366.282l826 ---|          ADD    FS+3
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  M01S01367.rec     +++|          ADK    JSNE
01537  M01S01368.rec     +++|          CRD    FN
01538  M01S01369.rec     +++|          LDD    FN+4
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/rec.txt ยท Last modified: by 127.0.0.1