User Tools

Site Tools


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

Deck REC Part 003

29 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
05068  M00S04373.rec     +++|
05069  M00S04374.rec     +++| IGMA     DATA   C* BUFFERED I/O RECOVERY ERRORS.*
05070  M00S04375.rec     +++| IGMB     CON    =C*   WRITE LIST LINKAGE ERROR.*
05071  M00S04376.rec     +++|          CON    =C*   READ DATA ON WRITE LIST.*
05072  M00S04377.rec     +++|          CON    =C*   INTERLOCKED BUFFER ON WRITE LIST.*
05073  M00S04378.rec     +++|          CON    =C*   WRITE LIST BUFFER COUNT.*
05074  M00S04379.rec     +++|          CON    =C*   NON-LINKED WRITE BUFFER.*
05075  M00S04380.rec     +++| IGMBL    EQU    *-IGMB
05076  M00S04381.rec     +++| IPM      SPACE  4,10
05077  M00S04382.rec     +++|**        IPM - ISSUE *PUT* RELATED RECOVERY ERROR MESSAGES.
05078  M00S04383.rec     +++|*
05079  M00S04384.rec     +++|*         USES   T3, CM - CM+4, CN - CN+4, FN - FN+4.
05080  M00S04385.rec     +++|*
05081  M00S04386.rec     +++|*         CALLS  DFM.
05082  M00S04387.rec     +++|
05083  M00S04388.rec     +++|
05084  M00S04389.rec     +++| IPM      SUBR               ENTRY/EXIT
05085  M00S04390.rec     +++|          LDC    BIOL        SET UP *PUT* SCAN
05086  M00S04391.rec     +++|          CRD    CM
05087  M00S04392.rec     +++|          LDD    CM+1
05088  M00S04393.rec     +++|          SHN    14
05089  M00S04394.rec     +++|          LMD    CM+2
05090  M00S04395.rec     +++|          ADN    PUTP        READ *PUT* POINTERS
05091  M00S04396.rec     +++|          CRD    CN
Line S00001 Modification History
M01 (Added by) ns2682
Seq #  *Modification Id* Act 
----------------------------+
05092  M01S00001.ns2682  +++|          LDD    CN+3        CLEAR FLAGS
05093  M01S00002.ns2682  +++|          LPN    77
05094  M01S00003.ns2682  +++|          STD    CN+3
05095  M00S04397.rec     +++|          AOD    CN
05096  M00S04398.rec     +++| IPM1     SOD    CN
05097  M00S04399.rec     +++|          ZJN    IPMX        IF END OF *PUT* ENTRIES
05098  M00S04400.rec     +++|          LDN    PUTL        INCREMENT *PUT* ADDRESS
05099  M00S04401.rec     +++|          RAD    CN+4
05100  M00S04402.rec     +++|          SHN    -14
05101  M00S04403.rec     +++|          RAD    CN+3
05102  M00S04404.rec     +++|          SHN    14
05103  M00S04405.rec     +++|          LMD    CN+4
05104  M00S04406.rec     +++|          ADK    UNCT
05105  M00S04407.rec     +++|          CRD    CM
05106  M00S04408.rec     +++|          ADN    PILL-UNCT
05107  M00S04409.rec     +++|          CRD    FN
05108  M00S04410.rec     +++|          LDD    FN
05109  M00S04411.rec     +++|          ZJN    IPM1        IF NO ERRORS FOR THIS *PUT*
05110  M00S04412.rec     +++|          LDD    CM+1        SET EST ORDINAL IN MESSAGE
05111  M00S04413.rec     +++|          RJM    C2D
05112  M00S04414.rec     +++|          STM    IPMA+21
05113  M00S04415.rec     +++|          LDD    CM+1
05114  M00S04416.rec     +++|          SHN    -6
05115  M00S04417.rec     +++|          ADC    2RQ0
05116  M00S04418.rec     +++|          STM    IPMA+20
05117  M00S04419.rec     +++|          LDC    IPMA+ERLN   ISSUE HEADER MESSAGE
05118  M00S04420.rec     +++|          RJM    DFM
05119  M00S04421.rec     +++|*         LDN    0
05120  M00S04422.rec     +++|          STD    T3
05121  M00S04423.rec     +++| IPM2     LDD    FN
05122  M00S04424.rec     +++|          SHN    21-0
05123  M00S04425.rec     +++|          STD    FN
05124  M00S04426.rec     +++|          PJN    IPM3        IF MESSAGE NOT SELECTED
05125  M00S04427.rec     +++|          LDM    IPMB,T3
05126  M00S04428.rec     +++|          ADC    ERLN
05127  M00S04429.rec     +++|          RJM    DFM
05128  M00S04430.rec     +++| IPM3     AOD    T3
05129  M00S04431.rec     +++|          LMN    IPMBL
05130  M00S04432.rec     +++|          NJN    IPM2        IF NOT END OF MESSAGES
05131  M00S04433.rec     +++|          LJM    IPM1        LOOP FOR NEXT *PUT*
05132  M00S04434.rec     +++|
05133  M00S04435.rec     +++|
05134  M00S04436.rec     +++| IPMA     DATA   C* BUFFERED I/O RECOVERY ERRORS  EQXXX.*
05135  M00S04437.rec     +++|
05136  M00S04438.rec     +++| IPMB     CON    =C*   I/O QUEUE SIZE ERROR.*
05137  M00S04439.rec     +++|          CON    =C*   I/O QUEUE LINKAGE ERROR.*
05138  M00S04440.rec     +++|          CON    =C$   I/0 QUEUE *PUT* ORDINAL ERROR.$
05139  M00S04441.rec     +++| IPMBL    EQU    *-IPMB
05140  M00S04442.rec     +++|          SPACE  4,10
05141  M00S04443.rec     +++|          USE    LITERALS
05142  M00S04444.rec     +++|          OVERFLOW IDMX
05143  M00S04445.rec     +++|          QUAL
05144  M00S04446.rec     +++|          TTL    REC/4RF - MANAGED TABLE RECOVERY.
05145  M00S04447.rec     +++|          TITLE
05146  M00S04448.rec     +++|          QUAL   MTR
05147  M00S04449.rec     +++|          IDENT  4RF,MTRX
05148  M00S04450.rec     +++|*COMMENT  REC - MANAGED TABLE RECOVERY.
Line S04451 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05149  M01S04451.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1983.
Line S00007 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05150  M01S00007.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05151  M00S04452.rec     +++| MTR      SPACE  4,10
05152  M00S04453.rec     +++|***       MTR - MANAGED TABLE RECOVERY.
05153  M00S04454.rec     +++|          SPACE  4,10
05154  M00S04455.rec     +++|          ORG    OVLC
05155  M00S04456.rec     +++|
05156  M00S04457.rec     +++|
05157  M00S04458.rec     +++|**        MTR - MANAGED TABLE RECOVERY.
05158  M00S04459.rec     +++|*
05159  M00S04460.rec     +++|*         EXIT   (EJTA) = PRIMARY FILE VALIDATION FLAG.
05160  M00S04461.rec     +++|*                (RPFA) = MASS STORAGE VALIDATION FLAG.
05161  M00S04462.rec     +++|*
05162  M00S04463.rec     +++|*         USES   CN - CN+4.
05163  M00S04464.rec     +++|
05164  M00S04465.rec     +++|
05165  M00S04466.rec     +++| MTR      SUBR               ENTRY/EXIT
05166  M00S04467.rec     +++|          LDN    SSTL        READ SYSTEM STATUS
05167  M00S04468.rec     +++|          CRD    CN
05168  M00S04469.rec     +++|          LDD    CN
05169  M00S04470.rec     +++|          LPN    4
05170  M00S04471.rec     +++|          NJN    MTRX        IF MASS STORAGE VALIDATION NOT PRESENT
05171  M00S04472.rec     +++|          LDD    RS
05172  M00S04473.rec     +++|          SHN    21-6
05173  M00S04474.rec     +++|          ERRNZ  JBCM-100    ADJUST IF VALUE CHANGES
05174  M00S04475.rec     +++|          PJN    MTR1        IF NOT CM RECOVERY
05175  M00S04476.rec     +++|          LDD    CN
05176  M00S04477.rec     +++|          LPN    20
05177  M00S04478.rec     +++|          NJN    MTRX        IF FILE VALIDATION DISABLED
05178  M00S04479.rec     +++|          LDC    LDDI+QA     ENABLE PRIMARY FILE VALIDATION
05179  M00S04480.rec     +++|          STM    EJTA
Line S00001 Modification History
M01 (Added by) rec22
Seq #  *Modification Id* Act 
----------------------------+
05180  M01S00001.rec22   +++|          LDK    LDNI+PMFT
05181  M01S00002.rec22   +++|          STM    FNTA
05182  M00S04481.rec     +++| MTR1     SOM    RECA
05183  M00S04482.rec     +++|          UJN    MTRX        RETURN
05184  M00S04483.rec     +++| CNA      SPACE  4,10
05185  M00S04484.rec     +++|**        CNA - CLEAR NON-ROLLABLE ACCESS FLAG.
05186  M00S04485.rec     +++|*
05187  M00S04486.rec     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
05188  M00S04487.rec     +++|*
05189  M00S04488.rec     +++|*         USES   T5, T6, CM - CM+4.
05190  M00S04489.rec     +++|*
05191  M00S04490.rec     +++|*         CALLS  RSS, WSS.
05192  M00S04491.rec     +++|*
05193  M00S04492.rec     +++|*         MACROS ENDMS, SETMS, SFA.
05194  M00S04493.rec     +++|
05195  M00S04494.rec     +++|
05196  M00S04495.rec     +++| CNA      SUBR               ENTRY/EXIT
05197  M00S04496.rec     +++|          LDD    FS          SET EQUIPMENT
05198  M00S04497.rec     +++|          STD    T5
05199  M00S04498.rec     +++|          SFA    EST         FETCH EST ENTRY
05200  M00S04499.rec     +++|          ADK    EQDE
05201  M00S04500.rec     +++|          CRD    CM
05202  M00S04501.rec     +++|          LDD    CM
05203  M00S04502.rec     +++|          LPN    20
05204  M00S04503.rec     +++|          ZJN    CNAX        IF NOT INDEPENDENT SHARED DEVICE
05205  M00S04504.rec     +++|          SETMS  IO,RW
05206  M00S04505.rec     +++|          LDD    FS+1        SET FIRST TRACK
05207  M00S04506.rec     +++|          STD    T6
05208  M00S04507.rec     +++|          LDN    0           SET NO FILE NAME VERIFICATION
05209  M00S04508.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
05210  M00S04509.rec     +++|          NJN    CNA1        IF SYSTEM SECTOR ERROR
Line S04510 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
05211  M01S04510.ns2729  ---|          LDM    CASS        CLEAR NON-ROLLABLE ACCESS
Line S00005 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
05212  M01S00005.ns2729  +++|          LDM    /COMSPFM/CASS  CLEAR NON-ROLLABLE ACCESS
05213  M00S04511.rec     +++|          LPC    7545
Line S04512 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
05214  M01S04512.ns2729  ---|          STM    CASS
Line S00006 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
05215  M01S00006.ns2729  +++|          STM    /COMSPFM/CASS
05216  M00S04513.rec     +++|          RJM    WSS         REWRITE SYSTEM SECTOR
05217  M00S04514.rec     +++| CNA1     ENDMS
05218  M00S04515.rec     +++|          UJN    CNAX        RETURN
05219  M00S04516.rec     +++| CLT      SPACE  4,15
05220  M00S04517.rec     +++|**        CLT - PROCESS COMMON LIBRARIES TABLE RECOVERY.
05221  M00S04518.rec     +++|*
05222  M00S04519.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05223  M00S04520.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05224  M00S04521.rec     +++|*                (QA) = (QI) = 0.
05225  M00S04522.rec     +++|*
05226  M00S04523.rec     +++|*         EXIT   (A) = 0 IF VALIDATION INFORMATION CLEARED FROM TABLE.
05227  M00S04524.rec     +++|*
05228  M00S04525.rec     +++|*         USES   LM, QA, CM - CM+4, FN - FN+4, FS - FS+4.
05229  M00S04526.rec     +++|*
05230  M00S04527.rec     +++|*         MACROS SFA.
05231  M00S04528.rec     +++|
05232  M00S04529.rec     +++|
05233  M00S04530.rec     +++| CLT3     LDN    1           RETURN ERROR INDICATOR
05234  M00S04531.rec     +++|
05235  M00S04532.rec     +++| CLT      SUBR               ENTRY/EXIT
05236  M00S04533.rec     +++|          LDD    EC
05237  M00S04534.rec     +++|          ZJN    CLTX        IF NO COMMON LIBRARIES TABLE EXISTS
05238  M00S04535.rec     +++| CLT1     SOD    LM
05239  M00S04536.rec     +++|          ZJN    CLTX        IF ALL ASSIGNED ENTRIES CHECKED
05240  M00S04537.rec     +++| CLT2     AOD    QA
05241  M00S04538.rec     +++|          LMD    EC
05242  M00S04539.rec     +++|          ZJN    CLT3        IF END OF CLT
05243  M00S04540.rec     +++|          SFA    CLT,QA      READ CLT ENTRY
05244  M00S04541.rec     +++|          CRD    CM
05245  M00S04542.rec     +++|          ADN    CLTF-CLTU
05246  M00S04543.rec     +++|          CRD    FN
05247  M00S04544.rec     +++|          ADN    CLTV-CLTF
05248  M00S04545.rec     +++|          CRD    FS
05249  M00S04546.rec     +++|          LDD    CM
05250  M00S04547.rec     +++|          ZJN    CLT2        IF EMPTY ENTRY
05251  M00S04548.rec     +++|          LDD    CM+3        CLEAR USER INDEX
05252  M00S04549.rec     +++|          SCN    77
05253  M00S04550.rec     +++|          STD    CM+3
05254  M00S04551.rec     +++|          LDN    0
05255  M00S04552.rec     +++|          STD    CM+4
05256  M00S04553.rec     +++|          STD    FN+4        CLEAR FAMILY EQUIPMENT
05257  M00S04554.rec     +++|          STD    FS+4        CLEAR PF VALIDATION
05258  M00S04555.rec     +++|          SFA    CLT,QA      REWRITE COMMON LIBRARIES ENTRY
05259  M00S04556.rec     +++|          CWD    CM          WRITE USER NAME
05260  M00S04557.rec     +++|          ADN    CLTF-CLTU   WRITE FAMILY NAME
05261  M00S04558.rec     +++|          CWD    FN
05262  M00S04559.rec     +++|          ADN    CLTV-CLTF   WRITE PF VALIDATION
05263  M00S04560.rec     +++|          CWD    FS
05264  M00S04561.rec     +++|          UJN    CLT1        LOOP FOR NEXT ENTRY
05265  M00S04562.rec     +++| EJT      SPACE  4,15
05266  M00S04563.rec     +++|**        EJT - PROCESS EXECUTING JOB TABLE RECOVERY.
05267  M00S04564.rec     +++|*
05268  M00S04565.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05269  M00S04566.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05270  M00S04567.rec     +++|*                (QA) = (QI) = (QT) = 0.
05271  M00S04568.rec     +++|*
05272  M00S04569.rec     +++|*         EXIT   (A) = 0 IF TABLE FULLY RECOVERED.
05273  M00S04570.rec     +++|*
05274  M00S04571.rec     +++|*         USES   LM, QA, QI, T5 - T7, CM - CM+1, FN - FN+4,
05275  M00S04572.rec     +++|*                FS - FS+4.
05276  M00S04573.rec     +++|*
05277  M00S04574.rec     +++|*         CALLS  RRF, VEI.
05278  M00S04575.rec     +++|*
05279  M00S04576.rec     +++|*         MACROS SFA.
05280  M00S04577.rec     +++|
05281  M00S04578.rec     +++|
05282  M00S04579.rec     +++| EJT7     LDN    1           RETURN ERROR INDICATOR
05283  M00S04580.rec     +++|
05284  M00S04581.rec     +++| EJT      SUBR               ENTRY/EXIT
05285  M00S04582.rec     +++| EJT1     LDD    QI          CHECK JOB STATUS
05286  M00S04583.rec     +++| EJT2     SBN    MXJS
05287  M00S04584.rec     +++|          PJN    EJT3        IF NON-STANDARD STATUS
05288  M00S04585.rec     +++|          AOM    EJCT,QI
05289  M00S04586.rec     +++| EJT3     SOD    LM
05290  M00S04587.rec     +++|          ZJN    EJTX        IF ALL ASSIGNED ENTRIES CHECKED
05291  M00S04588.rec     +++| EJT4     AOD    QA
05292  M00S04589.rec     +++|          LMD    EC
05293  M00S04590.rec     +++|          ZJN    EJT7        IF END OF EJT
05294  M00S04591.rec     +++|          SFA    EJT,QA
05295  M00S04592.rec     +++|          ADK    JSNE
05296  M00S04593.rec     +++|          CRD    FN          READ EJT ENTRY
05297  M00S04594.rec     +++|          ADN    SCHE-JSNE
05298  M00S04595.rec     +++|          CRD    T5          READ ROLLOUT FILE POINTERS
05299  M00S04596.rec     +++|          ADN    SCLE-SCHE
05300  M00S04597.rec     +++|          CRD    FS          READ JOB ORIGIN TYPE
05301  M00S04598.rec     +++|          LDD    FN
05302  M00S04599.rec     +++|          ZJN    EJT4        IF EMPTY SLOT
05303  M00S04600.rec     +++|          LDD    FN+4
05304  M00S04601.rec     +++|          LPN    77
05305  M00S04602.rec     +++|          SHN    21-0        SET JOB STATUS
05306  M00S04603.rec     +++|          STD    QI
05307  M00S04604.rec     +++|          PJN    EJT5        IF ENTRY NOT BUSY
05308  M00S04605.rec     +++|          LDD    FN+4        CLEAR JOB ADVANCE/BUSY STATUS
05309  M00S04606.rec     +++|          LPC    7676
05310  M00S04607.rec     +++|          STD    FN+4
05311  M00S04608.rec     +++|          SFA    EJT,QA      CLEAR FILE BUSY
05312  M00S04609.rec     +++|          CWD    FN
05313  M00S04610.rec     +++|          LDD    QI          CHECK JOB STATUS
05314  M00S04611.rec     +++| EJT5     LMK    PRJS
05315  M00S04612.rec     +++|          ZJN    EJT6        IF PRE-INITIAL JOB STATUS
Line S04613 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05316  M01S04613.273l780 ---|          LMK    EXJS&PRJS
Line S00155 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05317  M01S00155.273l780 +++|          LMK    PWJS&PRJS
05318  M01S00156.273l780 +++|          ZJN    EJT6        IF PRE-INITIAL WAIT JOB STATUS
05319  M01S00157.273l780 +++|          LMK    EXJS&PWJS
05320  M00S04614.rec     +++|          ZJN    EJT6        IF EXECUTING JOB STATUS
05321  M00S04615.rec     +++|          LMK    NVJS&EXJS
05322  M00S04616.rec     +++|          ZJN    EJT6        IF NVE ENTRY
Line S04617 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05323  M01S04617.273l780 ---|          LMK    ERJS&NVJS
05324  M01S04618.273l780 ---|          ZJN    EJT6        IF I/O ERROR ON ROLLOUT FILE
05325  M00S04619.rec     +++|          RJM    RRF         READ ROLLOUT FILE
05326  M00S04620.rec     +++| EJTA     UJN    EJT6        PROCESS NEXT ENTRY
05327  M00S04621.rec     +++|*         LDD    QA          (MS VALIDATION ENABLED ON CM RECOVERY)
05328  M00S04622.rec     +++|          SFA    EJT
05329  M00S04623.rec     +++|          ADN    PRFE        FETCH PRIMARY FILE POINTERS
05330  M00S04624.rec     +++|          CRD    FS-3
05331  M00S04625.rec     +++|          RJM    VEI         VERIFY PRIMARY FILE
05332  M00S04626.rec     +++| EJT6     LJM    EJT1        PROCESS NEXT ENTRY
05333  M00S04627.rec     +++| FNT      SPACE  4,15
05334  M00S04628.rec     +++|**        FNT - PROCESS FILE NAME TABLE RECOVERY.
05335  M00S04629.rec     +++|*
05336  M00S04630.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05337  M00S04631.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05338  M00S04632.rec     +++|*                (QA) = (QI) = 0.
05339  M00S04633.rec     +++|*
05340  M00S04634.rec     +++|*         EXIT   (A) = 0 IF TABLE FULLY RECOVERED.
05341  M00S04635.rec     +++|*
05342  M00S04636.rec     +++|*         USES   LM, QA, QT, CM - CM+4, FN - FN+4, FS - FS+4.
05343  M00S04637.rec     +++|*
05344  M00S04638.rec     +++|*         CALLS  CNA, VEI.
05345  M00S04639.rec     +++|*
05346  M00S04640.rec     +++|*         MACROS MONITOR, SFA.
05347  M00S04641.rec     +++|
05348  M00S04642.rec     +++|
05349  M00S04643.rec     +++| FNT7     LDN    1           RETURN ERROR INDICATOR
05350  M00S04644.rec     +++|
05351  M00S04645.rec     +++| FNT      SUBR               ENTRY/EXIT
05352  M00S04646.rec     +++| FNT1     SOD    LM
05353  M00S04647.rec     +++|          ZJN    FNTX        IF ALL ASSIGNED ENTRIES CHECKED
05354  M00S04648.rec     +++| FNT2     AOD    QA
05355  M00S04649.rec     +++|          LMD    EC
05356  M00S04650.rec     +++|          ZJN    FNT7        IF END OF FNT
05357  M00S04651.rec     +++|          SFA    FNT,QA
05358  M00S04652.rec     +++|          CRD    FN          READ FNT ENTRY
05359  M00S04653.rec     +++|          ADN    FSTG
05360  M00S04654.rec     +++|          CRD    FS
05361  M00S04655.rec     +++|          LDD    FN
05362  M00S04656.rec     +++|          ZJN    FNT2        IF EMPTY SLOT
05363  M00S04657.rec     +++|          LDD    FN+4
05364  M00S04658.rec     +++|          SHN    -6
05365  M00S04659.rec     +++|          LMN    SYFT
05366  M00S04660.rec     +++|          ZJN    FNT3        IF INACTIVE FAST ATTACH FILE
05367  M00S04661.rec     +++|          LMN    FAFT&SYFT
05368  M00S04662.rec     +++|          NJN    FNT5        IF NOT ACTIVE FAST ATTACH FILE
05369  M00S04663.rec     +++|          AOM    MSCT+FACT
05370  M00S04664.rec     +++|          LDD    FS+4
05371  M00S04665.rec     +++|          SHN    21-1
05372  M00S04666.rec     +++|          PJN    FNT3        IF NOT ATTACHED WITH NON-ROLLABLE OPTION
05373  M00S04667.rec     +++|          LDD    FS+4        CLEAR NON-ROLLABLE ACCESS IN FST
05374  M00S04668.rec     +++|          LPC    375
05375  M00S04669.rec     +++|          STD    FS+4
05376  M00S04670.rec     +++|          RJM    CNA         CLEAR SYSTEM SECTOR FLAG
05377  M00S04671.rec     +++| FNT3     LDD    FN+4
05378  M00S04672.rec     +++|          SCN    1
05379  M00S04673.rec     +++|          STD    FN+4
05380  M00S04674.rec     +++|          SFA    FNT,QA      CLEAR FILE BUSY
05381  M00S04675.rec     +++|          CWD    FN
05382  M00S04676.rec     +++|          ADN    FSTG
05383  M00S04677.rec     +++|          CWD    FS
05384  M00S04678.rec     +++| FNT4     LJM    FNT1        LOOP FOR NEXT ENTRY
05385  M00S04679.rec     +++|
05386  M00S04680.rec     +++| FNT5     LMN    PMFT&FAFT
05387  M00S04681.rec     +++|          ZJN    FNT6        IF *CPD* SAMPLE FILE
05388  M00S04682.rec     +++|          LDD    QA
05389  M00S04683.rec     +++|          STD    CM+1
05390  M00S04684.rec     +++|          LDN    PFNT        RELEASE FNT ENTRY
05391  M00S04685.rec     +++|          STD    CM+2
05392  M00S04686.rec     +++|          MONITOR  MTRM
05393  M00S04687.rec     +++|          UJN    FNT4        LOOP FOR NEXT ENTRY
05394  M00S04688.rec     +++|
Line S04689 Modification History
M01 (Removed by) rec22
Seq #  *Modification Id* Act 
----------------------------+
05395  M01S04689.rec22   ---| FNT6     LDN    PMFT        SET UP EOI VERIFICATION
Line S00003 Modification History
M01 (Added by) rec22
Seq #  *Modification Id* Act 
----------------------------+
05396  M01S00003.rec22   +++| FNT6     UJN    FNT4        SKIP EOI VERIFICATION
05397  M01S00004.rec22   +++|*         LDN    PMFT        (MS VALIDATION ENABLED ON CM RECOVERY)
05398  M01S00005.rec22   +++| FNTA     EQU    *-1
05399  M00S04690.rec     +++|          STD    QT
05400  M00S04691.rec     +++|          RJM    VEI         VERIFY EOI
05401  M00S04692.rec     +++|          UJN    FNT4        LOOP FOR NEXT ENTRY
05402  M00S04693.rec     +++| LLF      SPACE  4,15
05403  M00S04694.rec     +++|**        LLF - LOCATE LIBRARY FILE.
05404  M00S04695.rec     +++|*
05405  M00S04696.rec     +++|*         ENTRY  (FS+1) = ADDRESS OF FNT ENTRY IN BUFFER.
05406  M00S04697.rec     +++|*                (QA) = EJT ORDINAL.
05407  M00S04698.rec     +++|*                (FN - FN+4) = FIRST WORD OF EJT ENTRY.
05408  M00S04699.rec     +++|*
05409  M00S04700.rec     +++|*         EXIT   ERROR FLAG SET TO *DRET* IF FILE IS *LIFT* AND
05410  M00S04701.rec     +++|*                THE TRACK INTERLOCK FLAG IS SET IN THE FST.
05411  M00S04702.rec     +++|*
05412  M00S04703.rec     +++|*         USES   CM - CM+4.
05413  M00S04704.rec     +++|*
05414  M00S04705.rec     +++|*         MACROS MONITOR.
05415  M00S04706.rec     +++|
05416  M00S04707.rec     +++|
05417  M00S04708.rec     +++| LLF      SUBR               ENTRY/EXIT
05418  M00S04709.rec     +++|          LDM    4,FS+1
05419  M00S04710.rec     +++|          SHN    -6
05420  M00S04711.rec     +++|          LMN    LIFT
05421  M00S04712.rec     +++|          NJN    LLFX        IF NOT LIBRARY TYPE FILE
05422  M00S04713.rec     +++|          LDM    11,FS+1
05423  M00S04714.rec     +++|          SHN    21-9D
05424  M00S04715.rec     +++|          PJN    LLFX        IF TRACK INTERLOCK NOT SET
05425  M00S04716.rec     +++|          LDC    4000+DRET   SET ERROR FLAG
05426  M00S04717.rec     +++|          STD    CM+1
05427  M00S04718.rec     +++|          LDD    QA          SET EJT ORDINAL
05428  M00S04719.rec     +++|          STD    CM+2
05429  M00S04720.rec     +++|          LDD    FN          SET JSN
05430  M00S04721.rec     +++|          STD    CM+3
05431  M00S04722.rec     +++|          LDD    FN+1
05432  M00S04723.rec     +++|          STD    CM+4
05433  M00S04724.rec     +++|          MONITOR  CEFM      CHANGE ERROR FLAG
05434  M00S04725.rec     +++|          UJN    LLFX        RETURN
05435  M00S04726.rec     +++| QFT      SPACE  4,15
05436  M00S04727.rec     +++|**        QFT - PROCESS QUEUE FILE TABLE RECOVERY.
05437  M00S04728.rec     +++|*
05438  M00S04729.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05439  M00S04730.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05440  M00S04731.rec     +++|*                (EO) = (QA) = (QI) = 0.
05441  M00S04732.rec     +++|*
05442  M00S04733.rec     +++|*         EXIT   (A) = 0 IF TABLE FULLY RECOVERED.
05443  M00S04734.rec     +++|*
05444  M00S04735.rec     +++|*         USES   LM, QA, QI, CM - CM+4, FN - FN+4, FS - FS+4.
05445  M00S04736.rec     +++|*
05446  M00S04737.rec     +++|*         CALLS  UQE, *0DQ*.
05447  M00S04738.rec     +++|*
05448  M00S04739.rec     +++|*         MACROS EXECUTE, SFA.
05449  M00S04740.rec     +++|
05450  M00S04741.rec     +++|
05451  M00S04742.rec     +++| QFT10    LDN    1           RETURN ERROR INDICATOR
05452  M00S04743.rec     +++|
05453  M00S04744.rec     +++| QFT      SUBR               ENTRY/EXIT
05454  M00S04745.rec     +++| QFT1     AOM    QFCT,QI
05455  M00S04746.rec     +++| QFT2     SOD    LM
05456  M00S04747.rec     +++|          ZJN    QFTX        IF ALL ASSIGNED ENTRIES CHECKED
05457  M00S04748.rec     +++| QFT3     AOD    QA
05458  M00S04749.rec     +++|          LMD    EC
05459  M00S04750.rec     +++|          ZJN    QFT10       IF END OF QFT
05460  M00S04751.rec     +++|          SFA    QFT,QA
05461  M00S04752.rec     +++|          ADK    JSNQ
05462  M00S04753.rec     +++|          CRD    FN          READ QFT ENTRY
05463  M00S04754.rec     +++|          ADN    ENTQ-JSNQ
05464  M00S04755.rec     +++|          CRD    FS
05465  M00S04756.rec     +++|          ADN    SCLQ-ENTQ
05466  M00S04757.rec     +++|          CRD    CM
05467  M00S04758.rec     +++|          LDD    FN
05468  M00S04759.rec     +++|          ZJN    QFT3        IF EMPTY SLOT
05469  M00S04760.rec     +++|          LDD    FN+4
05470  M00S04761.rec     +++|          SHN    -11
05471  M00S04762.rec     +++|          STD    QI          SET QUEUE TYPE
05472  M00S04763.rec     +++|          LDD    FN+4        CHECK FOR *SOQF* OR *SQQF* FILE
05473  M00S04764.rec     +++|          SHN    -6
05474  M00S04765.rec     +++|          LMN    SOQF
05475  M00S04766.rec     +++|          ZJN    QFT8        IF *SOQF*
05476  M00S04767.rec     +++|          LMN    SQQF&SOQF
05477  M00S04768.rec     +++|          ZJN    QFT8        IF *SQQF*
05478  M00S04769.rec     +++|          LDD    FN+4
05479  M00S04770.rec     +++|          LPN    6
05480  M00S04771.rec     +++|          NJN    QFT6        IF CREATION MODE AND/OR ASSIGNED
05481  M00S04772.rec     +++|          LDD    QI
05482  M00S04773.rec     +++|          LMK    INQT
05483  M00S04774.rec     +++|          NJN    QFT4        IF NOT INPUT FILE
05484  M00S04775.rec     +++|          LDD    CM
05485  M00S04776.rec     +++|          LPN    77
05486  M00S04777.rec     +++|          LMN    IAOT
05487  M00S04778.rec     +++|          ZJN    QFT8        IF INTERACTIVE INPUT FILE
05488  M00S04779.rec     +++| QFT4     LDD    FN+4
05489  M00S04780.rec     +++|          LPN    1
05490  M00S04781.rec     +++|          ZJN    QFT5        IF ENTRY NOT INTERLOCKED
05491  M00S04782.rec     +++|          SOD    FN+4
05492  M00S04783.rec     +++|          SFA    QFT,QA      CLEAR FILE BUSY
05493  M00S04784.rec     +++|          CWD    FN
05494  M00S04785.rec     +++| QFT5     LJM    QFT1        LOOP FOR NEXT ENTRY
05495  M00S04786.rec     +++|
05496  M00S04787.rec     +++| QFT6     LPN    4
05497  M00S04788.rec     +++|          NJN    QFT7        IF CREATION MODE
05498  M00S04789.rec     +++|          LDD    FS+4
05499  M00S04790.rec     +++|          NJN    QFT4        IF ASSIGNED TO EXECUTING JOB
05500  M00S04791.rec     +++|          RJM    UQE
05501  M00S04792.rec     +++|          UJN    QFT5        LOOP FOR NEXT ENTRY
05502  M00S04793.rec     +++|
05503  M00S04794.rec     +++| QFT7     LDN    1
05504  M00S04795.rec     +++|
05505  M00S04796.rec     +++|*         CALL *0DQ*.
05506  M00S04797.rec     +++|
05507  M00S04798.rec     +++| QFT8     STM    ZDLA-1      DEQUEUE FILE
05508  M00S04799.rec     +++|          EXECUTE  0DQ,ZDLA
05509  M00S04800.rec     +++| QFT9     LJM    QFT2        LOOP FOR NEXT ENTRY
05510  M00S04801.rec     +++| RRF      SPACE  4,15
05511  M00S04802.rec     +++|**        RRF - READ ROLLOUT FILE.
05512  M00S04803.rec     +++|*
05513  M00S04804.rec     +++|*         ENTRY  (T5) = ROLLOUT FILE EST ORDINAL.
05514  M00S04805.rec     +++|*                (T6) = ROLLOUT FILE FIRST TRACK.
05515  M00S04806.rec     +++|*                (FS - FS+4) = *SCLE* WORD OF EJT ENTRY.
05516  M00S04807.rec     +++|*                (FN - FN+4) = *JSNE* WORD OF EJT ENTRY.
05517  M00S04808.rec     +++|*
05518  M00S04809.rec     +++|*         USES   FS - FS+4, T1, T2, T7, CN.
05519  M00S04810.rec     +++|*
05520  M00S04811.rec     +++|*         CALLS  LLF, RNS, RSS.
05521  M00S04812.rec     +++|*
05522  M00S04813.rec     +++|*         MACROS ENDMS, SETMS.
05523  M00S04814.rec     +++|
05524  M00S04815.rec     +++|
05525  M00S04816.rec     +++| RRF      SUBR               ENTRY/EXIT
05526  M00S04817.rec     +++|          LDD    T5
05527  M00S04818.rec     +++|          ZJN    RRFX        IF NO ROLLOUT FILE
05528  M00S04819.rec     +++|          SETMS  IO
05529  M00S04820.rec     +++|          LDN    0
05530  M00S04821.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
05531  M00S04822.rec     +++|          NJN    RRFX        IF ERROR
05532  M00S04823.rec     +++|          LDC    BUF         READ CONTROL POINT AREA
05533  M00S04824.rec     +++|          RJM    RNS
05534  M00S04825.rec     +++|          MJN    RRFX        IF ERROR
05535  M00S04826.rec     +++|          AOD    T7          SKIP SECOND CP AREA SECTOR
05536  M00S04827.rec     +++|          LDM    BUF+2+FLSW*5  GET NFL SIZE
05537  M00S04828.rec     +++|          SBN    FNTS-1
05538  M00S04829.rec     +++|          STD    CN          SET NUMBER OF FNT SECTORS
05539  M00S04830.rec     +++|          LDD    FS          CHECK ORIGIN TYPE
05540  M00S04831.rec     +++|          LPN    17
05541  M00S04832.rec     +++|          LMN    IAOT
05542  M00S04833.rec     +++|          NJN    RRF3        IF NOT INTERACTIVE ORIGIN
05543  M00S04834.rec     +++| RRF1     LDC    BUF         SKIP TERMINAL OUTPUT
05544  M00S04835.rec     +++|          RJM    RNS
05545  M00S04836.rec     +++| RRF2     MJN    RRFX        IF ERROR
05546  M00S04837.rec     +++|          LDD    T1
05547  M00S04838.rec     +++|          SHN    -6
05548  M00S04839.rec     +++|          NJN    RRF1        IF MORE DATA SECTORS
05549  M00S04840.rec     +++| RRF3     LDC    SBUF        INITIALIZE SEARCH ADDRESS
05550  M00S04841.rec     +++|          STD    FS+1
05551  M00S04842.rec     +++|          SBN    2           INITIALIZE BUFFER POINTER
05552  M00S04843.rec     +++|          STD    FS+2
05553  M00S04844.rec     +++|          LDN    0           SET INITIAL SEARCH MODE FLAG
05554  M00S04845.rec     +++|          STD    T2
05555  M00S04846.rec     +++|          LDN    5           SET INITIAL ADVANCE COUNT
05556  M00S04847.rec     +++|          STD    FS
05557  M00S04848.rec     +++|
05558  M00S04849.rec     +++|*         FILL BUFFER WITH DATA.
05559  M00S04850.rec     +++|
05560  M00S04851.rec     +++| RRF4     LDD    FS+2
05561  M00S04852.rec     +++|          ADC    -SBUF-SBUFL+2
05562  M00S04853.rec     +++|          PJN    RRF6        IF BUFFER IS FULL
05563  M00S04854.rec     +++| RRF5     LDI    FS+2        SAVE TWO BYTES
05564  M00S04855.rec     +++|          STD    FS+3
05565  M00S04856.rec     +++|          LDM    1,FS+2
05566  M00S04857.rec     +++|          STD    FS+4
05567  M00S04858.rec     +++|          LDD    FS+2        READ SECTOR
05568  M00S04859.rec     +++|          RJM    RNS
05569  M00S04860.rec     +++|          MJN    RRF2        IF ERROR
05570  M00S04861.rec     +++|          LDD    FS+3        RESTORE TWO BYTES
05571  M00S04862.rec     +++|          STI    FS+2
05572  M00S04863.rec     +++|          LDD    FS+4
05573  M00S04864.rec     +++|          STM    1,FS+2
05574  M00S04865.rec     +++|          LDC    500         ADVANCE BUFFER POINTER
05575  M00S04866.rec     +++|          RAD    FS+2
05576  M00S04867.rec     +++|          SOD    CN          DECREMENT SECTOR COUNT
05577  M00S04868.rec     +++|          NJN    RRF4        IF MORE TO READ
05578  M00S04869.rec     +++|          LDK    -FNTT*5     ADJUST POINTER TO THE LAST FNT ENTRY
05579  M00S04870.rec     +++|          RAD    FS+2
05580  M00S04871.rec     +++|
05581  M00S04872.rec     +++|*         PROCESS FULL BUFFER.
05582  M00S04873.rec     +++|
05583  M00S04874.rec     +++| RRF6     LDD    FS+2        CHECK FOR END OF BUFFER
05584  M00S04875.rec     +++|          ADN    2
05585  M00S04876.rec     +++|          SBD    FS+1
05586  M00S04877.rec     +++|          SBN    LENF*5
05587  M00S04878.rec     +++|          MJN    RRF9        IF END OF BUFFER
05588  M00S04879.rec     +++|          LDI    FS+1
05589  M00S04880.rec     +++|          ZJN    RRF8        IF EMPTY ENTRY
05590  M00S04881.rec     +++|          LDD    T2
05591  M00S04882.rec     +++|          NJN    RRF7        IF START OF FNT-S PREVIOUSLY FOUND
05592  M00S04883.rec     +++|          AOD    T2          CHANGE SEARCH MODE FLAG
05593  M00S04884.rec     +++|          LDN    LENF*5      CHANGE ADVANCE COUNT
05594  M00S04885.rec     +++|          STD    FS
05595  M00S04886.rec     +++| RRF7     RJM    LLF         LOCATE LIBRARY FILE
05596  M00S04887.rec     +++| RRF8     LDD    FS          ADVANCE TO NEXT ENTRY
05597  M00S04888.rec     +++|          RAD    FS+1
05598  M00S04889.rec     +++|          UJN    RRF6        CHECK NEXT ENTRY
05599  M00S04890.rec     +++|
05600  M00S04891.rec     +++| RRF9     ADN    LENF*5
05601  M00S04892.rec     +++|          STD    T1          SAVE AMOUNT TO MOVE
05602  M00S04893.rec     +++|          LDD    CN
05603  M00S04894.rec     +++|          ZJN    RRF13       IF END OF FNT ENTRIES
05604  M00S04895.rec     +++|          LDD    T1
05605  M00S04896.rec     +++|          NJN    RRF10       IF NOT EXACT END OF BUFFER
05606  M00S04897.rec     +++|          LDC    SBUF        RESET START OF SEARCH
05607  M00S04898.rec     +++|          STD    FS+1
05608  M00S04899.rec     +++|          UJN    RRF12       REFILL BUFFER
05609  M00S04900.rec     +++|
05610  M00S04901.rec     +++|*         MOVE PARTIAL ENTRY TO TOP OF BUFFER.
05611  M00S04902.rec     +++|
05612  M00S04903.rec     +++| RRF10    LDD    FS+1        SET ADDRESS TO MOVE FROM
05613  M00S04904.rec     +++|          STM    RRFA
05614  M00S04905.rec     +++|          LDC    SBUF        SET ADDRESS TO MOVE TO
05615  M00S04906.rec     +++|          SBD    T1
05616  M00S04907.rec     +++|          STM    RRFB
05617  M00S04908.rec     +++|          STD    FS+1        RESET START OF SEARCH
05618  M00S04909.rec     +++|          SOD    T1
05619  M00S04910.rec     +++| RRF11    LDM    **,T1       MOVE PARTIAL ENTRY TO TOP
05620  M00S04911.rec     +++| RRFA     EQU    *-1         (ADDRESS TO MOVE FROM)
05621  M00S04912.rec     +++|          STM    **,T1
05622  M00S04913.rec     +++| RRFB     EQU    *-1         (ADDRESS TO MOVE TO)
05623  M00S04914.rec     +++|          SOD    T1
05624  M00S04915.rec     +++|          PJN    RRF11       IF MORE TO MOVE
05625  M00S04916.rec     +++| RRF12    LDC    SBUF-2      RESET BUFFER POINTER
05626  M00S04917.rec     +++|          STD    FS+2
05627  M00S04918.rec     +++|          LJM    RRF5        REFILL BUFFER
05628  M00S04919.rec     +++|
05629  M00S04920.rec     +++| RRF13    ENDMS              RELEASE MS RESERVATIONS
05630  M00S04921.rec     +++|          LJM    RRFX        RETURN
05631  M00S04922.rec     +++|
05632  M00S04923.rec     +++|
05633  M00S04924.rec     +++| ZDLA     EQU    *+1         *0DQ* LOAD ADDRESS
05634  M00S04925.rec     +++|
05635  M00S04926.rec     +++|          ERRPL  ZDLA+ZDQL-BFMS  OVERFLOW INTO BUFFER
Line S00001 Modification History
M01 (Added by) rec23
Seq #  *Modification Id* Act 
----------------------------+
05636  M01S00001.rec23   +++|
05637  M01S00002.rec23   +++|
05638  M01S00003.rec23   +++|*         ROLLOUT FILE FNT SECTOR BUFFER.
05639  M01S00004.rec23   +++|
05640  M01S00005.rec23   +++| SBUF     EQU    *+LENF*5-5  LEAVE ROOM FOR FNT ENTRY - ONE WORD
05641  M01S00006.rec23   +++|
05642  M01S00007.rec23   +++|          ERRPL  SBUF+SBUFL-EPFW  BUFFER OVERFLOW
05643  M00S04927.rec     +++|          SPACE  4,10
05644  M00S04928.rec     +++|          QUAL
05645  M00S04929.rec     +++| CLT      EQU    /MTR/CLT
05646  M00S04930.rec     +++| EJT      EQU    /MTR/EJT
05647  M00S04931.rec     +++| FNT      EQU    /MTR/FNT
05648  M00S04932.rec     +++| QFT      EQU    /MTR/QFT
05649  M00S04933.rec     +++|          QUAL   *
05650  M00S04934.rec     +++|          TTL    REC/4RG - PROCESS ERROR LOGS.
05651  M00S04935.rec     +++|          TITLE
05652  M00S04936.rec     +++|          QUAL   PEL
05653  M00S04937.rec     +++|          IDENT  4RG,PELX
05654  M00S04938.rec     +++|*COMMENT  REC - PROCESS ERROR LOGS.
Line S04939 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05655  M01S04939.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
Line S00008 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05656  M01S00008.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05657  M00S04940.rec     +++| CEL      SPACE  4,10
05658  M00S04941.rec     +++|***       PEL - PROCESS ERROR LOGS.
05659  M00S04942.rec     +++| CEL      SPACE  4,10
05660  M00S04943.rec     +++|*         COMMON DECKS.
05661  M00S04944.rec     +++|
05662  M00S04945.rec     +++|
05663  M00S04946.rec     +++|*CALL     COMPCHM
05664  M00S04947.rec     +++| CEL      SPACE  4,10
05665  M00S04948.rec     +++|*         DIRECT CELL DEFINITIONS.
05666  M00S04949.rec     +++|
05667  M00S04950.rec     +++|
05668  M00S04951.rec     +++| AP       EQU    20 - 24     *DSAL*
05669  M00S04952.rec     +++| SC       EQU    61          ERROR STATUS
05670  M00S04953.rec     +++| EA       EQU    62          ERROR MESSAGE ADDRESS
05671  M00S04954.rec     +++| WX       EQU    63          ASSEMBLY BUFFER INDEX
05672  M00S04955.rec     +++| BX       EQU    64          SUPPLEMENT INDEX
05673  M00S04956.rec     +++| CX       EQU    65          CEL BUFFER INDEX
05674  M00S04957.rec     +++| CEL      SPACE  4,10
05675  M00S04958.rec     +++|*         CONSTANTS.
05676  M00S04959.rec     +++|
05677  M00S04960.rec     +++|
05678  M00S04961.rec     +++| AC       EQU    0           *APP* INTERFACE CHANNEL
05679  M00S04962.rec     +++| CEL      SPACE  4,10
05680  M00S04963.rec     +++|          ORG    OVLD
05681  M00S04964.rec     +++|
05682  M00S04965.rec     +++| PEL      SUBR               ENTRY/EXIT
Line S04966 Modification History
M01 (Removed by) rec27
Seq #  *Modification Id* Act 
----------------------------+
05683  M01S04966.rec27   ---|          RJM    IEL         INITIATE *DFT* ERROR LOGGING
05684  M00S04967.rec     +++|          LDC    OVL0        SET MASS STORAGE IDENT LOAD ADDRESS
05685  M00S04968.rec     +++|          STD    LA
05686  M00S04969.rec     +++|          LDN    3           ISSUE BOTH ERRLOG AND BML MESSAGES
05687  M00S04970.rec     +++|          RJM    IME         IDENTIFY MASS STORAGE EQUIPMENT
05688  M00S04971.rec     +++|          RJM    CEL         DUMP DEADSTART ERROR LOG
Line S00001 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
05689  M01S00001.rec27   +++|          RJM    IEL         INITIATE *DFT* ERROR LOGGING
05690  M00S04972.rec     +++|          UJN    PELX        RETURN
05691  M00S04973.rec     +++| CEL      SPACE  4,10
05692  M00S04974.rec     +++|**        CEL - DUMP CRITICAL ERROR LOG.
05693  M00S04975.rec     +++|*
05694  M00S04976.rec     +++|*         USES   CM+1, EA, AP - AP+4.
05695  M00S04977.rec     +++|*
05696  M00S04978.rec     +++|*         CALLS  AAP, DAP, DFM, LPR, PCL.
05697  M00S04979.rec     +++|*
05698  M00S04980.rec     +++|*         MACROS MONITOR.
05699  M00S04981.rec     +++|
05700  M00S04982.rec     +++|
05701  M00S04983.rec     +++| CEL      SUBR               ENTRY/EXIT
05702  M00S04984.rec     +++|          LDK    DSAL        READ *APP* PARAMETERS
05703  M00S04985.rec     +++|          CRD    AP
05704  M00S04986.rec     +++|          RJM    LPR         PLACE *PPR* IN *DBUF*
05705  M00S04987.rec     +++|          RJM    AAP         ACTIVATE *APP*
05706  M00S04988.rec     +++|          MJN    CEL1        IF *APP* NOT RESPONDING
05707  M00S04989.rec     +++|          RJM    PCL         PROCESS CRITICAL ERROR LOG
05708  M00S04990.rec     +++|          MJN    CEL2        IF *APP* NOT RESPONDING
05709  M00S04991.rec     +++|          RJM    DAP         TERMINATE *APP* AND LOAD *PPR*
05710  M00S04992.rec     +++|          ZJN    CEL2        IF NO ERRORS
05711  M00S04993.rec     +++| CEL1     STD    EA
05712  M00S04994.rec     +++| CEL2     LDN    0           DROP *APP* INTERFACE CHANNEL
05713  M00S04995.rec     +++| CELA     EQU    CEL2
05714  M00S04996.rec     +++|          ZJN    CEL3        IF CHANNEL NOT RESERVED
05715  M00S04997.rec     +++|          STD    CM+1
05716  M00S04998.rec     +++|          MONITOR  DCHM
05717  M00S04999.rec     +++| CEL3     LDD    EA
05718  M00S05000.rec     +++|          ZJN    CELX        IF NO ERROR
Line S05001 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05719  M01S05001.253l688 ---|          STM    CELB
05720  M00S05002.rec     +++|          LMC    ERLN        ISSUE MESSAGE TO ERROR LOG
05721  M00S05003.rec     +++|          RJM    DFM
Line S05004 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05722  M01S05004.253l688 ---|          LDD    NC          POST MESSAGE AT SYSTEM CP
05723  M01S05005.253l688 ---|          SHN    7
05724  M01S05006.253l688 ---|          ADK    MS2W
05725  M01S05007.253l688 ---|          CWM    **,TR
05726  M01S05008.253l688 ---| CELB     EQU    *-1
05727  M00S05009.rec     +++|          LJM    CELX        RETURN
05728  M00S05010.rec     +++| AAP      SPACE  4,10
05729  M00S05011.rec     +++|**        AAP - ACTIVATE *APP*.
05730  M00S05012.rec     +++|*
05731  M00S05013.rec     +++|*         ENTRY  (AP - AP+4) = *DSAL*.
05732  M00S05014.rec     +++|*
05733  M00S05015.rec     +++|*         EXIT   (A) = 1/1, 5/0, 12/MESSAGE ADDRESS IF *APP* NOT
05734  M00S05016.rec     +++|*                      RESPONDING.
05735  M00S05017.rec     +++|*         (EA) = (SC) = 0.
05736  M00S05018.rec     +++|*
05737  M00S05019.rec     +++|*         CALLS  ECI, PRS.
05738  M00S05020.rec     +++|*
05739  M00S05021.rec     +++|*         USES   CM - CM+4.
05740  M00S05022.rec     +++|*
05741  M00S05023.rec     +++|*         MACROS MONITOR.
05742  M00S05024.rec     +++|
05743  M00S05025.rec     +++|
05744  M00S05026.rec     +++| AAP      SUBR               ENTRY/EXIT
05745  M00S05027.rec     +++|          LDC    CHTP
05746  M00S05028.rec     +++|          CRD    CM
05747  M00S05029.rec     +++|          LDN    NCTAL       SET CHANNEL TABLE LENGTH
05748  M00S05030.rec     +++|          STD    CM
05749  M00S05031.rec     +++|          LDD    CM+2        READ UP CHANNEL TABLE
05750  M00S05032.rec     +++|          SHN    14
05751  M00S05033.rec     +++|          LMD    CM+3
05752  M00S05034.rec     +++|          CRM    BFMS,CM
05753  M00S05035.rec     +++|          LDM    BFMS,AP     CHECK *APP* CHANNEL
05754  M00S05036.rec     +++|          LPN    40
05755  M00S05037.rec     +++|          NJN    APP1        IF CHANNEL DOWN
05756  M00S05038.rec     +++|          LDD    AP
05757  M00S05039.rec     +++|          STD    CM+1        SET CHANNEL IN REQUEST
Line S00001 Modification History
M01 (Added by) rec24
Seq #  *Modification Id* Act 
----------------------------+
05758  M01S00001.rec24   +++|          STD    CM+2
05759  M00S05040.rec     +++|          RAM    CELA
05760  M00S05041.rec     +++|          MONITOR  RCHM      RESERVE THE CHANNEL
05761  M00S05042.rec     +++| APP1     LDN    0
05762  M00S05043.rec     +++|          STD    EA          INITIALIZE MESSAGE ADDRESS
05763  M00S05044.rec     +++|          STD    SC
05764  M00S05045.rec     +++|          LDN    DSCL        FETCH DEADSTART CONTROL WORD
05765  M00S05046.rec     +++|          CRD    CM
05766  M00S05047.rec     +++|          LDD    AP
05767  M00S05048.rec     +++|          LMC    4000        ACTIVATE ALTERNATE PP
05768  M00S05049.rec     +++|          STD    CM
05769  M00S05050.rec     +++|          LDK    DSCL        POST REQUEST
05770  M00S05051.rec     +++|          CWD    CM
05771  M00S05052.rec     +++|          LDD    AP          PRESET CHANNEL INSTRUCTIONS
05772  M00S05053.rec     +++|          RJM    /COMPAPI/PRS
05773  M00S05054.rec     +++|          LDC    IJMI        WAIT FOR CHANNEL ACTIVE
05774  M00S05055.rec     +++|          RJM    /COMPAPI/ECI
05775  M00S05056.rec     +++|          SHN    0-13
05776  M00S05057.rec     +++|          ZJN    AAP2        IF NO ERROR
05777  M00S05058.rec     +++|          LDC    /COMPAPI/CAIA+400000
05778  M00S05059.rec     +++| AAP2     UJP    AAPX        RETURN
05779  M00S05060.rec     +++| CCF      SPACE  4,10
05780  M00S05061.rec     +++|**        CCF - CLEAR CEL FLAG IN DEADSTART SECTOR.
05781  M00S05062.rec     +++|*
05782  M00S05063.rec     +++|*         EXIT   (A) = 0  IF CEL FLAG CLEARED.
05783  M00S05064.rec     +++|*                    .NE. 0  IF I/O ERROR.
05784  M00S05065.rec     +++|*
05785  M00S05066.rec     +++|*         CALLS  FEE, WDS, *0PI*.
05786  M00S05067.rec     +++|*
05787  M00S05068.rec     +++|*         MACROS ENDMS, EXECUTE.
05788  M00S05069.rec     +++|
05789  M00S05070.rec     +++|
05790  M00S05071.rec     +++| CCF2     LDC    =C*DEADSTART SECTOR ERROR.*
05791  M00S05072.rec     +++|
05792  M00S05073.rec     +++| CCF      SUBR               ENTRY/EXIT
05793  M00S05074.rec     +++|          RJM    FEE         FIND EST ENTRY OF DEADSTART DISK
05794  M00S05075.rec     +++|          NJN    CCFX        IF EST ENTRY NOT FOUND
05795  M00S05076.rec     +++|          LDD    T5          SET *0PI* PARAMETERS
05796  M00S05077.rec     +++|          LMC    4000
05797  M00S05078.rec     +++|          STM    OVL0-1
05798  M00S05079.rec     +++|          EXECUTE  0PI,OVL0  READ DEADSTART SECTOR
05799  M00S05080.rec     +++| CCF1     NJN    CCF2        IF NOT A VALID DEADSTART SECTOR
05800  M00S05081.rec     +++|          LDM    BFMS+CFBP
05801  M00S05082.rec     +++|          SCN    20          CLEAR CEL FLAG
05802  M00S05083.rec     +++|          STM    BFMS+CFBP
05803  M00S05084.rec     +++|          LDC    BFMS+WLSF   REWRITE DEADSTART SECTOR
05804  M00S05085.rec     +++|          RJM    WDS
05805  M00S05086.rec     +++|          MJN    CCF1        IF I/O ERROR
05806  M00S05087.rec     +++|          ENDMS
05807  M00S05088.rec     +++|*         LDN    0
05808  M00S05089.rec     +++|          LJM    CCFX        RETURN
05809  M00S05090.rec     +++| CSC      SPACE  4,10
05810  M00S05091.rec     +++|**        CSC - COMPUTE SYMPTOM CODE.
05811  M00S05092.rec     +++|*
05812  M00S05093.rec     +++|*         ENTRY  (CX) = CEL BUFFER INDEX.
05813  M00S05094.rec     +++|*
05814  M00S05095.rec     +++|*         EXIT   (A) = SYMPTOM CODE.
05815  M00S05096.rec     +++|*
05816  M00S05097.rec     +++|*         USES   T0.
05817  M00S05098.rec     +++|
05818  M00S05099.rec     +++|
05819  M00S05100.rec     +++| CSC      SUBR               ENTRY/EXIT
05820  M00S05101.rec     +++|          LDM    BFMS+APDL,CX
05821  M00S05102.rec     +++|          SHN    -10
05822  M00S05103.rec     +++|          STD    T0
05823  M00S05104.rec     +++|          LDN    2
05824  M00S05105.rec     +++|          SBD    T0
05825  M00S05106.rec     +++|          SHN    10
05826  M00S05107.rec     +++|          ADK    /COMSDFS/HS0001
05827  M00S05108.rec     +++|          UJN    CSCX        RETURN
05828  M00S05109.rec     +++| DAP      SPACE  4,10
05829  M00S05110.rec     +++|**        DAP - DEADSTART *APP*.
05830  M00S05111.rec     +++|*
05831  M00S05112.rec     +++|*         EXIT   (A) = 0 IF NO ERROR LOADING *PPR*.
05832  M00S05113.rec     +++|
05833  M00S05114.rec     +++|
05834  M00S05115.rec     +++| DAP      SUBR               ENTRY/EXIT
05835  M00S05116.rec     +++|          LDC    **          (ERROR MESSAGE ADDRESS)
05836  M00S05117.rec     +++| DAPA     EQU    *-1
05837  M00S05118.rec     +++|          NJN    DAPX        IF *PPR* LOAD FAILURE
05838  M00S05119.rec     +++|          LDK    MSFW+1      OUTPUT P ADDRESS
05839  M00S05120.rec     +++|          OAN    AC
05840  M00S05121.rec     +++|          LDK    PPFW-1      OUTPUT *PPR*
05841  M00S05122.rec     +++|          OAM    DBUF+6,AC
05842  M00S05123.rec     +++|          FJM    *,AC        IF CHANNEL FULL
05843  M00S05124.rec     +++|          DCN    AC
05844  M00S05125.rec     +++|*         LDN    0
05845  M00S05126.rec     +++|          UJN    DAPX        RETURN
05846  M00S05127.rec     +++| FAB      SPACE  4,10
05847  M00S05128.rec     +++|**        FAB - FLUSH ASSEMBLY BUFFER.
05848  M00S05129.rec     +++|*
05849  M00S05130.rec     +++|*         EXIT   (WX) = 0.
05850  M00S05131.rec     +++|*
05851  M00S05132.rec     +++|*         USES   T1, WX.
05852  M00S05133.rec     +++|*
05853  M00S05134.rec     +++|*         CALLS  DFM.
05854  M00S05135.rec     +++|
05855  M00S05136.rec     +++|
05856  M00S05137.rec     +++| FAB      SUBR               ENTRY/EXIT
05857  M00S05138.rec     +++|          LDN    6*5         SET MESSAGE LENGTH
05858  M00S05139.rec     +++|          STD    CM+1
05859  M00S05140.rec     +++|          LDC    MBUF+BMLN   ISSUE BML MESSAGE
05860  M00S05141.rec     +++|          RJM    DFM
05861  M00S05142.rec     +++|*         LDN    0           RESET ASSEMBLY BUFFER INDEX
05862  M00S05143.rec     +++|          STD    WX
05863  M00S05144.rec     +++|          LDN    3*5+4       CLEAR REGISTER AREA OF BUFFER
05864  M00S05145.rec     +++|          STD    T1
05865  M00S05146.rec     +++| FAB1     LDN    0
05866  M00S05147.rec     +++|          STM    MBUF+2*5,T1
05867  M00S05148.rec     +++|          SOD    T1
05868  M00S05149.rec     +++|          PJN    FAB1        IF MORE BYTES TO CLEAR
05869  M00S05150.rec     +++|          UJN    FABX        RETURN
05870  M00S05151.rec     +++| FEE      SPACE  4,10
05871  M00S05152.rec     +++|**        FEE - FIND EST ENTRY OF DEADSTART DISK.
05872  M00S05153.rec     +++|*
05873  M00S05154.rec     +++|*         ENTRY  (AP+4) = 6/UNIT, 6/CHANNEL.
05874  M00S05155.rec     +++|*
05875  M00S05156.rec     +++|*         EXIT   (A) = 0  IF EST ENTRY FOUND.
05876  M00S05157.rec     +++|*                    = ERROR MESSAGE ADDRESS IF EST ENTRY NOT FOUND.
05877  M00S05158.rec     +++|*                (T5) = DEADSTART DISK EST ORDINAL.
05878  M00S05159.rec     +++|*
05879  M00S05160.rec     +++|*         USES   T2 - T6, CM - CM+4.
05880  M00S05161.rec     +++|*
05881  M00S05162.rec     +++|*         MACROS SFA.
05882  M00S05163.rec     +++|
05883  M00S05164.rec     +++|
05884  M00S05165.rec     +++| FEE4     LDC    =C*CEL DEVICE UNDEFINED.*
05885  M00S05166.rec     +++|
05886  M00S05167.rec     +++| FEE      SUBR               ENTRY/EXIT
05887  M00S05168.rec     +++|          LDK    ESTP
05888  M00S05169.rec     +++|          CRD    T2
05889  M00S05170.rec     +++| FEE1     SOD    T5          DECREMENT EST ORDINAL
05890  M00S05171.rec     +++|          LMK    NOPE-1
05891  M00S05172.rec     +++|          ZJN    FEE4        IF END OF EST SCAN
05892  M00S05173.rec     +++|          LMK    NOPE-1
05893  M00S05174.rec     +++|          SFA    EST
05894  M00S05175.rec     +++|          ADK    EQDE
05895  M00S05176.rec     +++|          CRD    CM
05896  M00S05177.rec     +++|          LDD    CM
05897  M00S05178.rec     +++|          SHN    -6
05898  M00S05179.rec     +++|          LPN    42
05899  M00S05180.rec     +++|          LMN    42
05900  M00S05181.rec     +++|          NJN    FEE1        IF NOT MASS STORAGE/*LDAM* DEVICE
05901  M00S05182.rec     +++|          LDD    CM+1
05902  M00S05183.rec     +++|          LMD    AP+4
05903  M00S05184.rec     +++|          LPN    77
05904  M00S05185.rec     +++|          ZJN    FEE3        IF MATCH ON PRIMARY CHANNEL
05905  M00S05186.rec     +++|          LDD    CM+2
05906  M00S05187.rec     +++|          ZJN    FEE1        IF NO ALTERNATE ACCESS
05907  M00S05188.rec     +++|          LMD    AP+4
05908  M00S05189.rec     +++|          LPN    77
05909  M00S05190.rec     +++| FEE2     NJN    FEE1        IF NOT A MATCH ON SECONDARY CHANNEL
05910  M00S05191.rec     +++| FEE3     LDD    CM+4
05911  M00S05192.rec     +++|          SHN    3
05912  M00S05193.rec     +++|          ADK    DDLL
05913  M00S05194.rec     +++|          CRD    CM
05914  M00S05195.rec     +++|          LDD    AP+4
05915  M00S05196.rec     +++|          SHN    -6
05916  M00S05197.rec     +++|          LMD    CM+4
05917  M00S05198.rec     +++|          LPN    77
05918  M00S05199.rec     +++|          NJN    FEE2        IF NOT A MATCH ON UNIT
05919  M00S05200.rec     +++|          LJM    FEEX        RETURN
05920  M00S05201.rec     +++| IBM      SPACE  4,15
05921  M00S05202.rec     +++|**        IBM - ISSUE BML MESSAGES.
05922  M00S05203.rec     +++|*
05923  M00S05204.rec     +++|*         ENTRY  (BFMS) = WORD COUNT.
05924  M00S05205.rec     +++|*                (BFMS+1 - BFMS+477) = CEL SECTOR.
05925  M00S05206.rec     +++|*
05926  M00S05207.rec     +++|*         EXIT   (EA) = ERROR MESSAGE ADDRESS IF BAD WORD COUNT.
05927  M00S05208.rec     +++|*
05928  M00S05209.rec     +++|*         USES   BX, CX, EA, EI, T6, T7, WX, CM - CM+4, CN - CN+4.
05929  M00S05210.rec     +++|*
05930  M00S05211.rec     +++|*         CALLS  CSC, FAB, MSW, TRS.
05931  M00S05212.rec     +++|
05932  M00S05213.rec     +++|
05933  M00S05214.rec     +++| IBM      SUBR               ENTRY/EXIT
05934  M00S05215.rec     +++|          LDC    MMFL        SET MACHINE ID INTO BML
05935  M00S05216.rec     +++|          CRD    CN
05936  M00S05217.rec     +++|          LDD    CN
05937  M00S05218.rec     +++|          STM    MBUF+5+3
05938  M00S05219.rec     +++|          LDK    PPCP
05939  M00S05220.rec     +++|          CRD    CN
05940  M00S05221.rec     +++|          LDD    IA          DETERMINE PP NUMBER
05941  M00S05222.rec     +++|          SBD    CN+4
05942  M00S05223.rec     +++|          SHN    3
05943  M00S05224.rec     +++|          RAM    MBUF+2
05944  M00S05225.rec     +++|          LDK    ZERL        INITIALIZE SUPPLEMENT WORD
05945  M00S05226.rec     +++|          CRD    CN
05946  M00S05227.rec     +++|          LDN    0           INITIALIZE INDEX CELLS
05947  M00S05228.rec     +++|          STD    WX
05948  M00S05229.rec     +++|          STD    BX
05949  M00S05230.rec     +++|          STD    CX
05950  M00S05231.rec     +++| IBM1     RJM    CSC         COMPUTE SYMPTOM CODE
05951  M00S05232.rec     +++|          STM    MBUF+1
05952  M00S05233.rec     +++|          LDN    4           SET CONTINUATION FLAG
05953  M00S05234.rec     +++|          STM    MBUF+5+1
05954  M00S05235.rec     +++|          LDM    BFMS+APDL+6,CX  SET ELEMENT NUMBER
05955  M00S05236.rec     +++|          LPN    7
05956  M00S05237.rec     +++|          STD    T7          SAVE ELEMENT NUMBER
05957  M00S05238.rec     +++| IBM2     LDC    BFMS+APDL+1  STORE BITS 0 - 59 OF REGISTER
05958  M00S05239.rec     +++|          ADD    CX
05959  M00S05240.rec     +++|          STM    IBMA
05960  M00S05241.rec     +++|          LDD    WX
05961  M00S05242.rec     +++|          SHN    2
05962  M00S05243.rec     +++|          ADD    WX
05963  M00S05244.rec     +++|          ADC    MBUF+2*5
05964  M00S05245.rec     +++|          STM    IBMB
05965  M00S05246.rec     +++|          LDD    MA
05966  M00S05247.rec     +++|          CWM    **,ON
05967  M00S05248.rec     +++| IBMA     EQU    *-1
05968  M00S05249.rec     +++|          SBN    1
05969  M00S05250.rec     +++|          CRM    **,ON
05970  M00S05251.rec     +++| IBMB     EQU    *-1
05971  M00S05252.rec     +++|          AOD    WX          INCREMENT ASSEMBLY BUFFER INDEX
05972  M00S05253.rec     +++|          LDM    BFMS+APDL+6,CX  STORE REGISTER NUMBER AND UPPER BITS
05973  M00S05254.rec     +++|          SCN    7
05974  M00S05255.rec     +++|          STM    CN,BX
05975  M00S05256.rec     +++|          LDM    BFMS+APDL,CX
05976  M00S05257.rec     +++|          LPC    377
05977  M00S05258.rec     +++|          RAM    CN,BX
05978  M00S05259.rec     +++|          AOD    BX          INCREMENT SUPPLEMENT BYTE INDEX
05979  M00S05260.rec     +++| IBM3     LDD    WX
05980  M00S05261.rec     +++|          LMN    4
05981  M00S05262.rec     +++|          NJN    IBM4        IF NOT FULL ASSEMBLY BUFFER
05982  M00S05263.rec     +++|          RJM    FAB         FLUSH ASSEMBLY BUFFER
05983  M00S05264.rec     +++|          LDM    MBUF+5+1    SET NOT FIRST BLOCK BIT
05984  M00S05265.rec     +++|          SCN    10
05985  M00S05266.rec     +++|          LMN    10
05986  M00S05267.rec     +++|          STM    MBUF+5+1
05987  M00S05268.rec     +++| IBM4     LDD    BX
05988  M00S05269.rec     +++|          LMN    4
05989  M00S05270.rec     +++|          NJN    IBM5        IF SUPPLEMENT WORD NOT FULL
05990  M00S05271.rec     +++|          RJM    MSW         MOVE SUPPLEMENT WORD TO ASSEMBLY BUFFER
05991  M00S05272.rec     +++|          UJN    IBM3        CHECK FOR ASSEMBLY BUFFER FULL
05992  M00S05273.rec     +++|
05993  M00S05274.rec     +++| IBM5     LDN    7           ADVANCE CEL BUFFER INDEX
05994  M00S05275.rec     +++|          RAD    CX
05995  M00S05276.rec     +++|          SBM    BFMS
05996  M00S05277.rec     +++|          NJN    IBM7        IF NOT END OF CEL BUFFER
05997  M00S05278.rec     +++| IBM6     RJM    TRS         TERMINATE REGISTER SET
05998  M00S05279.rec     +++|          LJM    IBMX        RETURN
05999  M00S05280.rec     +++|
06000  M00S05281.rec     +++| IBM7     PJN    IBM10       IF BAD WORD COUNT
06001  M00S05282.rec     +++|          RJM    CSC         COMPUTE SYMPTOM CODE
06002  M00S05283.rec     +++|          LMM    MBUF+1
06003  M00S05284.rec     +++|          NJN    IBM8        IF SYMPTOM CODE CHANGED
06004  M00S05285.rec     +++|          LDM    BFMS+APDL+6,CX
06005  M00S05286.rec     +++|          LPN    7
06006  M00S05287.rec     +++|          LMD    T7
06007  M00S05288.rec     +++|          ZJN    IBM9        IF ELEMENT NUMBER UNCHANGED
06008  M00S05289.rec     +++|
06009  M00S05290.rec     +++|*         CHECK IF NEXT REGISTER IS FOR THE SECOND PROCESSOR.
06010  M00S05291.rec     +++|
06011  M00S05292.rec     +++|          LDM    BFMS+APDL,CX
06012  M00S05293.rec     +++|          SHN    0-10
06013  M00S05294.rec     +++|          NJN    IBM8        IF NOT A PROCESSOR ERROR
06014  M00S05295.rec     +++|
06015  M00S05296.rec     +++|*         CHANGE ELEMENT NUMBER IN BITS 32 - 39 OF ELEMENT ID REGISTER
06016  M00S05297.rec     +++|*         TO 10(16) TO INDICATE SECOND PROCESSOR.
06017  M00S05298.rec     +++|
06018  M00S05299.rec     +++|          LDM    BFMS+APDL+3,CX
06019  M00S05300.rec     +++|          SCN    17
06020  M00S05301.rec     +++|          ADK    0#10S-4     SET ELEMENT NUMBER TO 10(16)
06021  M00S05302.rec     +++|          STM    BFMS+APDL+3,CX
06022  M00S05303.rec     +++| IBM8     RJM    TRS         TERMINATE REGISTER SET
06023  M00S05304.rec     +++|          LJM    IBM1        PROCESS NEXT REGISTER SET
06024  M00S05305.rec     +++|
06025  M00S05306.rec     +++| IBM9     LJM    IBM2        PROCESS NEXT REGISTER
06026  M00S05307.rec     +++|
06027  M00S05308.rec     +++| IBM10    LDC    =C*BAD CEL WORD COUNT.*
06028  M00S05309.rec     +++|          STD    EA
06029  M00S05310.rec     +++|          LJM    IBM6        TERMINATE REGISTER SET AND RETURN
06030  M00S05311.rec     +++|
06031  M00S05312.rec     +++|
06032  M00S05313.rec     +++| MBUF     BSS    0           BML MESSAGE HEADER
06033  M00S05314.rec     +++|
06034  M00S05315.rec     +++|          VFD    12//COMSDFS/HM0250  MESSAGE ID
06035  M00S05316.rec     +++|          VFD    12/0        SYMPTOM CODE
06036  M00S05317.rec     +++|          VFD    6/0         PP NUMBER
06037  M00S05318.rec     +++|          VFD    6/17        MAINTENANCE CHANNEL
06038  M00S05319.rec     +++|          VFD    24/0        UNUSED
06039  M00S05320.rec     +++|
06040  M00S05321.rec     +++|          VFD    12/0        UNUSED
06041  M00S05322.rec     +++|          VFD    12/4        CONTINUATION FLAG
06042  M00S05323.rec     +++|          VFD    12/0        UNUSED
06043  M00S05324.rec     +++|          VFD    12/0        MACHINE ID
06044  M00S05325.rec     +++|          VFD    12/0        UNUSED
06045  M00S05326.rec     +++|
06046  M00S05327.rec     +++|          BSSZ   4*5         MESSAGE ASSEMBLY BUFFER
Line S00002 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06047  M01S00002.rec27   +++| IEL      SPACE  4,10
06048  M01S00003.rec27   +++|**        IEL - INITIATE ERROR LOGGING BY *DFT*.
06049  M01S00004.rec27   +++|*
06050  M01S00005.rec27   +++|*         EXIT   TO *ERR* IF *DFT* DETERMINES THE REVISION LEVEL OF THE
06051  M01S00006.rec27   +++|*                *DFT/OS* INTERFACE IS INCORRECT.
06052  M01S00007.rec27   +++|*                *1MB* INHIBIT FLAG IN *SCRL* CLEARED.
06053  M01S00008.rec27   +++|*
Line S00009 Modification History
M01 (Added by) rec27
M02 (Removed by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06054  M02S00009.ns2713  ---|*         USES   CM - CM+4.
Line S00001 Modification History
M01 (Added by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06055  M01S00001.ns2713  +++|*         USES   T1, T2, CM - CM+4.
Line S00010 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06056  M01S00010.rec27   +++|*
Line S00011 Modification History
M01 (Added by) rec27
M02 (Removed by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06057  M02S00011.ns2713  ---|*         MACROS DELAY, EXECUTE, MONITOR.
Line S00002 Modification History
M01 (Added by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06058  M01S00002.ns2713  +++|*         MACROS DCHAN, DELAY, EXECUTE, MONITOR, RCHAN.
Line S00012 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06059  M01S00012.rec27   +++|
06060  M01S00013.rec27   +++|
06061  M01S00014.rec27   +++| IEL      SUBR               ENTRY/EXIT
06062  M01S00015.rec27   +++|          LDK    EIBP        READ *EICB* POINTER WORD
06063  M01S00016.rec27   +++|          CRD    CM
06064  M01S00017.rec27   +++|          LDD    CM+3
06065  M01S00018.rec27   +++|          SHN    14
06066  M01S00019.rec27   +++|          LMD    CM+4
06067  M01S00020.rec27   +++|          ZJP    IEL2        IF NO *DFT* VERIFICATION REQUIRED
06068  M01S00021.rec27   +++|          ADN    DSCM+3
06069  M01S00022.rec27   +++|          CRD    CM
06070  M01S00023.rec27   +++|          LDD    CM+2        SAVE ADDRESS OF *DFT* CONTROL WORD
06071  M01S00024.rec27   +++|          SHN    14
06072  M01S00025.rec27   +++|          LMD    CM+3
06073  M01S00026.rec27   +++|          SHN    -4
06074  M01S00027.rec27   +++|          SHN    6
06075  M01S00028.rec27   +++|          LMD    CM
Line S00003 Modification History
M01 (Added by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06076  M01S00003.ns2713  +++|          CRD    CM          READ *DFT* CONTROL WORD
Line S00029 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06077  M01S00029.rec27   +++|          STM    IELA
06078  M01S00030.rec27   +++|          SHN    -14
06079  M01S00031.rec27   +++|          RAM    IELA-1
Line S00032 Modification History
M01 (Added by) rec27
M02 (Removed by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06080  M02S00032.ns2713  ---|          LDD    MA
Line S00004 Modification History
M01 (Added by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06081  M01S00004.ns2713  +++|          LDD    CM+4
Line S00005 Modification History
M01 (Added by) ns2713
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06082  M02S00005.ns2738  ---|          SHN    21-DCDM
Line S00003 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06083  M01S00003.ns2738  +++|          SHN    21-/DFT/DCDM
Line S00006 Modification History
M01 (Added by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06084  M01S00006.ns2713  +++|          MJN    IEL0        IF NOT DEDICATED *DFT*
06085  M01S00007.ns2713  +++|          LDN    DSAL        RESERVE *CIP* CHANNEL
06086  M01S00008.ns2713  +++|          CRD    CM
06087  M01S00009.ns2713  +++|          LDD    CM+4
06088  M01S00010.ns2713  +++|          LPN    77
06089  M01S00011.ns2713  +++|          STD    T1          SAVE CHANNEL
06090  M01S00012.ns2713  +++|          RCHAN
06091  M01S00013.ns2713  +++| IEL0     LDD    MA
Line S00033 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06092  M01S00033.rec27   +++|          CWM    IELB,ON     WRITE PP CALL TO MESSAGE BUFFER
06093  M01S00034.rec27   +++|          LDN    0
06094  M01S00035.rec27   +++|          STD    CM+1
06095  M01S00036.rec27   +++|          EXECUTE  1MP,=
06096  M01S00037.rec27   +++|          MONITOR  RPPM      REQUEST PP FOR *1MB*
06097  M01S00038.rec27   +++| IEL1     DELAY
06098  M01S00039.rec27   +++|          LDC    **          READ *DFT* CONTROL WORD
06099  M01S00040.rec27   +++| IELA     EQU    *-1
06100  M01S00041.rec27   +++|          CRD    CM
Line S00042 Modification History
M01 (Added by) rec27
M02 (Removed by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06101  M02S00042.ns2713  ---|          LDD    CM+4        CHECK VERIFICATION FLAG
06102  M02S00043.ns2713  ---|          SHN    21-DCVR
Line S00014 Modification History
M01 (Added by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06103  M01S00014.ns2713  +++|          LDD    CM+4        CHECK RESPONSE
06104  M01S00015.ns2713  +++|          STD    T2
Line S00016 Modification History
M01 (Added by) ns2713
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06105  M02S00016.ns2738  ---|          SHN    21-DCVR     CHECK VERIFICATION FLAG
Line S00004 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06106  M01S00004.ns2738  +++|          SHN    21-/DFT/DCVR  CHECK VERIFICATION FLAG
Line S00044 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06107  M01S00044.rec27   +++|          PJN    IEL1        IF NO REPLY FROM *DFT*
Line S00045 Modification History
M01 (Added by) rec27
M02 (Removed by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06108  M02S00045.ns2713  ---|          SHN    DCVR-DCRJ
Line S00017 Modification History
M01 (Added by) ns2713
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06109  M02S00017.ns2738  ---|          SHN    DCVR-DCDM
Line S00005 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06110  M01S00005.ns2738  +++|          SHN    /DFT/DCVR-/DFT/DCDM
Line S00018 Modification History
M01 (Added by) ns2713
Seq #  *Modification Id* Act 
----------------------------+
06111  M01S00018.ns2713  +++|          MJN    IEL1.1      IF NOT DEDICATED *DFT*
06112  M01S00019.ns2713  +++|          LDD    T1          RELEASE *CIP* CHANNEL
06113  M01S00020.ns2713  +++|          DCHAN
06114  M01S00021.ns2713  +++| IEL1.1   LDD    T2          CHECK RESPONSE
Line S00022 Modification History
M01 (Added by) ns2713
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06115  M02S00022.ns2738  ---|          SHN    21-DCRJ
Line S00006 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06116  M01S00006.ns2738  +++|          SHN    21-/DFT/DCRJ
Line S00046 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06117  M01S00046.rec27   +++|          MJN    IEL4        IF REVISION LEVEL REJECTED BY *DFT*
Line S00047 Modification History
M01 (Added by) rec27
M02 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06118  M02S00047.ns2738  ---|          SHN    DCRJ-DCDM
Line S00007 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
06119  M01S00007.ns2738  +++|          SHN    /DFT/DCRJ-/DFT/DCDM
Line S00048 Modification History
M01 (Added by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06120  M01S00048.rec27   +++|          MJN    IEL3        IF NOT DEDICATED *DFT*
06121  M01S00049.rec27   +++|
06122  M01S00050.rec27   +++|*         CLEAR *1MB* INHIBIT FLAG IN *SCRL*.
06123  M01S00051.rec27   +++|
06124  M01S00052.rec27   +++| IEL2     LDC    SCRL        READ *SCRL*
06125  M01S00053.rec27   +++|          CRD    CM
06126  M01S00054.rec27   +++|          LDD    CM          CLEAR *1MB* INHIBIT FLAG
06127  M01S00055.rec27   +++|          LPC    3777
06128  M01S00056.rec27   +++|          STD    CM
06129  M01S00057.rec27   +++|          LDC    SCRL        REWRITE *SCRL*
06130  M01S00058.rec27   +++|          CWD    CM
06131  M01S00059.rec27   +++| IEL3     LJM    IELX        RETURN
06132  M01S00060.rec27   +++|
06133  M01S00061.rec27   +++|*         PROCESS *DFT* REJECT.
06134  M01S00062.rec27   +++|
06135  M01S00063.rec27   +++| IEL4     LDC    IELC        *DFT REVISION LEVEL MISMATCH*
06136  M01S00064.rec27   +++|          LJM    ERR         DISPLAY MESSAGE AND HANG
06137  M01S00065.rec27   +++|
06138  M01S00066.rec27   +++|
06139  M01S00067.rec27   +++| IELB     VFD    18/3L1MP,6/**,12/0,24/0
06140  M01S00068.rec27   +++| IELC     DATA   C*DFT REVISION LEVEL MISMATCH.*
06141  M00S05328.rec     +++| LPR      SPACE  4,10
06142  M00S05329.rec     +++|**        LPR - LOAD AND PREPARE *PPR* IN *DBUF*.
06143  M00S05330.rec     +++|*
06144  M00S05331.rec     +++|*         ENTRY  (AP - AP+4) = *DSAL*.
06145  M00S05332.rec     +++|*
06146  M00S05333.rec     +++|*         EXIT   (DBUF - DBUF+PPFW-1) = *PPR*.
06147  M00S05334.rec     +++|*
06148  M00S05335.rec     +++|*         USES   T1, T2, T5 - T7, CM - CM+4, CN - CN+4.
06149  M00S05336.rec     +++|*
06150  M00S05337.rec     +++|*         CALLS  RNS.
06151  M00S05338.rec     +++|*
06152  M00S05339.rec     +++|*         MACROS ENDMS, MONITOR, SETMS.
06153  M00S05340.rec     +++|
06154  M00S05341.rec     +++|
06155  M00S05342.rec     +++| LPR      SUBR               ENTRY/EXIT
06156  M00S05343.rec     +++|          LDC    0L1PR       SET *PPR* NAME
06157  M00S05344.rec     +++|          STD    CM+3
06158  M00S05345.rec     +++|          SHN    -14
06159  M00S05346.rec     +++|          STD    CM+2
06160  M00S05347.rec     +++|          MONITOR  SPLM      SEARCH PERIPHERAL LIBRARY
06161  M00S05348.rec     +++|          LDD    CM+1        SET EST ORDINAL
06162  M00S05349.rec     +++|          LPC    777
06163  M00S05350.rec     +++|          STD    T5
06164  M00S05351.rec     +++|          LDD    CM+2        SET TRACK NUMBER
06165  M00S05352.rec     +++|          STD    T6
06166  M00S05353.rec     +++|          LDD    CM+3        SET SECTOR NUMBER
06167  M00S05354.rec     +++|          STD    T7
06168  M00S05355.rec     +++|          SETMS  READSYS,ND
06169  M00S05356.rec     +++|          LDC    DBUF-2
06170  M00S05357.rec     +++|          STD    T2
06171  M00S05358.rec     +++| LPR1     LDI    T2          SAVE TWO WORDS
06172  M00S05359.rec     +++|          STD    CN
06173  M00S05360.rec     +++|          LDM    1,T2
06174  M00S05361.rec     +++|          STD    CN+1
06175  M00S05362.rec     +++|          LDD    T2
06176  M00S05363.rec     +++|          RJM    RNS         READ NEXT SECTOR
06177  M00S05364.rec     +++|          MJN    LPR3        IF I/O ERROR
06178  M00S05365.rec     +++|          LDD    CN          RESTORE TWO WORDS
06179  M00S05366.rec     +++|          STI    T2
06180  M00S05367.rec     +++|          LDD    CN+1
06181  M00S05368.rec     +++|          STM    1,T2
06182  M00S05369.rec     +++|          LDC    500         ADVANCE BUFFER ADDRESS
06183  M00S05370.rec     +++|          RAD    T2
06184  M00S05371.rec     +++|          LDD    T1
06185  M00S05372.rec     +++|          SHN    -6
06186  M00S05373.rec     +++|          NJN    LPR1        IF NOT END OF *PPR*
06187  M00S05374.rec     +++|          ENDMS
06188  M00S05375.rec     +++|          LDK    PPCP        GET FWA OF PP COMMUNICATIONS AREA
06189  M00S05376.rec     +++|          CRD    CM
06190  M00S05377.rec     +++|          LDD    AP          *APP* PP NUMBER
06191  M00S05378.rec     +++|          SHN    3
06192  M00S05379.rec     +++|          ADD    CM+4
06193  M00S05380.rec     +++|          STM    DBUF+IA+5   SET UP *IA*
06194  M00S05381.rec     +++|          ADN    1
06195  M00S05382.rec     +++|          STM    DBUF+OA+5   SET UP *OA*
06196  M00S05383.rec     +++|          ADN    1
06197  M00S05384.rec     +++|          STM    DBUF+MA+5   SET UP *MA*
06198  M00S05385.rec     +++| LPR2     LJM    LPRX        RETURN
06199  M00S05386.rec     +++|
06200  M00S05387.rec     +++| LPR3     LDC    =C* PPR LOAD ERROR.*
06201  M00S05388.rec     +++|          STM    DAPA
06202  M00S05389.rec     +++|          UJN    LPR2        RETURN
06203  M00S05390.rec     +++| MSW      SPACE  4,10
06204  M00S05391.rec     +++|**        MSW - MOVE SUPPLEMENT WORD TO ASSEMBLY BUFFER.
06205  M00S05392.rec     +++|*
06206  M00S05393.rec     +++|*         ENTRY  (WX) = ASSEMBLY BUFFER INDEX.
06207  M00S05394.rec     +++|*                (CN - CN+4) = SUPPLEMENT WORD.
06208  M00S05395.rec     +++|*
06209  M00S05396.rec     +++|*         EXIT   (BX) = 0.
06210  M00S05397.rec     +++|*                (CN - CN+4) = 0.
06211  M00S05398.rec     +++|*
06212  M00S05399.rec     +++|*         USES   BX, WX, CN - CN+4.
06213  M00S05400.rec     +++|
06214  M00S05401.rec     +++|
06215  M00S05402.rec     +++| MSW      SUBR               ENTRY/EXIT
06216  M00S05403.rec     +++|          LDD    WX          MOVE SUPPLEMENT WORD
06217  M00S05404.rec     +++|          SHN    2
06218  M00S05405.rec     +++|          ADD    WX
06219  M00S05406.rec     +++|          ADC    MBUF+2*5
06220  M00S05407.rec     +++|          STM    MSWA
06221  M00S05408.rec     +++|          LDD    MA
06222  M00S05409.rec     +++|          CWD    CN
06223  M00S05410.rec     +++|          CRM    **,ON
06224  M00S05411.rec     +++| MSWA     EQU    *-1
06225  M00S05412.rec     +++|          AOD    WX          INCREMENT ASSEMBLY BUFFER INDEX
06226  M00S05413.rec     +++|          LDK    ZERL        CLEAR SUPPLEMENT WORD
06227  M00S05414.rec     +++|          CRD    CN
06228  M00S05415.rec     +++|          LDN    0           RESET BYTE INDEX
06229  M00S05416.rec     +++|          STD    BX
06230  M00S05417.rec     +++|          UJN    MSWX        RETURN
06231  M00S05418.rec     +++| PCL      SPACE  4,15
06232  M00S05419.rec     +++|**        PCL - PROCESS CRITICAL ERROR LOG.
06233  M00S05420.rec     +++|*
06234  M00S05421.rec     +++|*         ENTRY  (AP - AP+4) = *DSAL*.
06235  M00S05422.rec     +++|*
06236  M00S05423.rec     +++|*         EXIT   (A) = 0  IF CRITICAL ERROR LOG NOT PRESENT OR READ
06237  M00S05424.rec     +++|*                         WITHOUT ERROR.
06238  M00S05425.rec     +++|*                    .GT. 0  IF ERROR OTHER THAN *APP* NOT RESPONDING.
06239  M00S05426.rec     +++|*                    .LT. 0  IF *APP* NOT RESPONDING.
06240  M00S05427.rec     +++|*
06241  M00S05428.rec     +++|*         USES   EA, SC, CM+1.
06242  M00S05429.rec     +++|*
06243  M00S05430.rec     +++|*         CALLS  CCF, CDA, IBM.
06244  M00S05431.rec     +++|*
06245  M00S05432.rec     +++|*         MACROS MONITOR.
06246  M00S05433.rec     +++|
06247  M00S05434.rec     +++|
06248  M00S05435.rec     +++| PCL3     LDD    SC          SET EXIT CONDITION
06249  M00S05436.rec     +++|          SHN    14
06250  M00S05437.rec     +++|
06251  M00S05438.rec     +++| PCL      SUBR               ENTRY/EXIT
06252  M00S05439.rec     +++|          LDD    AP+3
06253  M00S05440.rec     +++|          ZJN    PCLX        IF CRITICAL ERROR LOG NOT PRESENT
06254  M00S05441.rec     +++|          LDD    AP+4        REQUEST DEADSTART CHANNEL
06255  M00S05442.rec     +++|          LPN    37
06256  M00S05443.rec     +++|          STD    CM+1
06257  M00S05444.rec     +++|          LDN    0
06258  M00S05445.rec     +++|          STD    CM+2
06259  M00S05446.rec     +++|          MONITOR  RCHM
06260  M00S05447.rec     +++|          LDC    3RLCE       SET PROGRAM NAME
06261  M00S05448.rec     +++|          STM    BFMS
06262  M00S05449.rec     +++|          SHN    -6
06263  M00S05450.rec     +++|          SCN    77
06264  M00S05451.rec     +++|          STM    BFMS+1
06265  M00S05452.rec     +++|          LDK    CDAS*10000+BFMS  REQUEST CRITICAL ERROR LOG
06266  M00S05453.rec     +++|          RJM    CDA         COMMON DISK AREA REQUEST
06267  M00S05454.rec     +++|          ZJN    PCL1        IF NO ERROR
06268  M00S05455.rec     +++|          STD    EA          SAVE STATUS
06269  M00S05456.rec     +++|          SHN    -14
06270  M00S05457.rec     +++|          STD    SC
06271  M00S05458.rec     +++| PCL1     MONITOR  DCHM
06272  M00S05459.rec     +++|          LDM    BFMS
06273  M00S05460.rec     +++|          SHN    21-13
06274  M00S05461.rec     +++|          PJN    PCL2        IF NO DATA OR ERROR
06275  M00S05462.rec     +++|          SHN    3
06276  M00S05463.rec     +++|          SHN    13-21-3
06277  M00S05464.rec     +++|          STM    BFMS
06278  M00S05465.rec     +++|          RJM    IBM         ISSUE BML MESSAGES
06279  M00S05466.rec     +++|          RJM    CCF         CLEAR CEL FLAG IN DEADSTART SECTOR
06280  M00S05467.rec     +++|          ZJN    PCL2        IF NO ERROR
06281  M00S05468.rec     +++|          STD    EA
06282  M00S05469.rec     +++|          SHN    -14
06283  M00S05470.rec     +++|          STD    SC
06284  M00S05471.rec     +++| PCL2     LJM    PCL3        RETURN
06285  M00S05472.rec     +++| TRS      SPACE  4,10
06286  M00S05473.rec     +++|**        TRS - TERMINATE REGISTER SET.
06287  M00S05474.rec     +++|*
06288  M00S05475.rec     +++|*         ENTRY  (BX) = SUPPLEMENT BYTE INDEX.
06289  M00S05476.rec     +++|*                (WX) = ASSEMBLY BUFFER INDEX.
06290  M00S05477.rec     +++|*
06291  M00S05478.rec     +++|*         USES   T6, WX.
06292  M00S05479.rec     +++|*
06293  M00S05480.rec     +++|*         CALLS  FAB, MSW.
06294  M00S05481.rec     +++|
06295  M00S05482.rec     +++|
06296  M00S05483.rec     +++| TRS      SUBR               ENTRY/EXIT
06297  M00S05484.rec     +++|          LDD    BX
06298  M00S05485.rec     +++|          ZJN    TRS3        IF SUPPLEMENT WORD IN CURRENT BLOCK
06299  M00S05486.rec     +++|          LDD    WX
06300  M00S05487.rec     +++|          SBD    BX
06301  M00S05488.rec     +++|          STD    T6
06302  M00S05489.rec     +++|          PJN    TRS1        IF SUPPLEMENT WORD NOT IN CURRENT BLOCK
06303  M00S05490.rec     +++|          ADN    4
06304  M00S05491.rec     +++|          UJN    TRS2        PROCESS SUPPLEMENT WORD IN CURRENT BLOCK
06305  M00S05492.rec     +++|
06306  M00S05493.rec     +++| TRS1     RJM    FAB         FLUSH ASSEMBLY BUFFER
06307  M00S05494.rec     +++|          LDD    T6
06308  M00S05495.rec     +++| TRS2     STD    WX
06309  M00S05496.rec     +++|          RJM    MSW         MOVE SUPPLEMENT WORD TO ASSEMBLY BUFFER
06310  M00S05497.rec     +++| TRS3     LDM    MBUF+5+1    CLEAR CONTINUATION BIT
06311  M00S05498.rec     +++|          SCN    4
06312  M00S05499.rec     +++|          STM    MBUF+5+1
06313  M00S05500.rec     +++|          RJM    FAB         FLUSH ASSEMBLY BUFFER
06314  M00S05501.rec     +++|          UJN    TRSX        RETURN
06315  M00S05502.rec     +++| CEL      SPACE  4,10
06316  M00S05503.rec     +++|*         COMMON DECKS.
06317  M00S05504.rec     +++|
06318  M00S05505.rec     +++|
06319  M00S05506.rec     +++|          QUAL
06320  M00S05507.rec     +++| CDA$     SET    1           SELECT *COMPAPI* COMMON DISK AREA ROUTINE
06321  M00S05508.rec     +++| PRS$     SET    1           SELECT *COMPAPI* PRESET PROCESSOR
06322  M00S05509.rec     +++|          QUAL   *
06323  M00S05510.rec     +++|          LIST   X
06324  M00S05511.rec     +++|*CALL     COMPAPI
06325  M00S05512.rec     +++|          LIST   *
06326  M00S05513.rec     +++| CEL      SPACE  4,10
06327  M00S05514.rec     +++|          RSTC               RESTORE CHANNEL I/O INSTRUCTIONS
06328  M00S05515.rec     +++| CEL      SPACE  4,10
06329  M00S05516.rec     +++|          USE    BUFFER
06330  M00S05517.rec     +++|
06331  M00S05518.rec     +++|*         DATA BUFFER.
06332  M00S05519.rec     +++|
06333  M00S05520.rec     +++| DBUF     EQU    *+2
06334  M00S05521.rec     +++|          SPACE  4,10
06335  M00S05522.rec     +++|**        OVERLAID COMMON DECKS.
06336  M00S05523.rec     +++|
06337  M00S05524.rec     +++|
06338  M00S05525.rec     +++|          LIST   X
06339  M00S05526.rec     +++|*CALL     COMPPDI
06340  M00S05527.rec     +++|          LIST   *
06341  M00S05528.rec     +++|          SPACE  4,10
06342  M00S05529.rec     +++|*         OVERLAY ORIGINS.
06343  M00S05530.rec     +++|
06344  M00S05531.rec     +++|
06345  M00S05532.rec     +++| OVL0     EQU    DBUF+PPFW   *0PI* ORIGIN
06346  M00S05533.rec     +++|          ERRPL  OVL0+500-BFMS  BUFFER OVERFLOW
Line S05534 Modification History
M01 (Removed by) rec27
Seq #  *Modification Id* Act 
----------------------------+
06347  M01S05534.rec27   ---| IEL      SPACE  4,10
06348  M01S05535.rec27   ---|**        IEL - INITIATE ERROR LOGGING BY *DFT*.
06349  M01S05536.rec27   ---|*
06350  M01S05537.rec27   ---|*         EXIT   TO *ERR* IF *DFT* DETERMINES THE REVISION LEVEL OF THE
06351  M01S05538.rec27   ---|*                *DFT/OS* INTERFACE IS INCORRECT.
06352  M01S05539.rec27   ---|*                *1MB* INHIBIT FLAG IN *SCRL* CLEARED.
06353  M01S05540.rec27   ---|*
06354  M01S05541.rec27   ---|*         USES   CM - CM+4.
06355  M01S05542.rec27   ---|*
06356  M01S05543.rec27   ---|*         MACROS DELAY, EXECUTE, MONITOR.
06357  M01S05544.rec27   ---|
06358  M01S05545.rec27   ---|
06359  M01S05546.rec27   ---| IEL      SUBR               ENTRY/EXIT
06360  M01S05547.rec27   ---|          LDK    EIBP        READ *EICB* POINTER WORD
06361  M01S05548.rec27   ---|          CRD    CM
06362  M01S05549.rec27   ---|          LDD    CM+3
06363  M01S05550.rec27   ---|          SHN    14
06364  M01S05551.rec27   ---|          LMD    CM+4
06365  M01S05552.rec27   ---|          ZJP    IEL2        IF NO *DFT* VERIFICATION REQUIRED
06366  M01S05553.rec27   ---|          ADN    DSCM+3
06367  M01S05554.rec27   ---|          CRD    CM
06368  M01S05555.rec27   ---|          LDD    CM+2        SAVE ADDRESS OF *DFT* CONTROL WORD
06369  M01S05556.rec27   ---|          SHN    14
06370  M01S05557.rec27   ---|          LMD    CM+3
06371  M01S05558.rec27   ---|          SHN    -4
06372  M01S05559.rec27   ---|          SHN    6
06373  M01S05560.rec27   ---|          LMD    CM
06374  M01S05561.rec27   ---|          STM    IELA
06375  M01S05562.rec27   ---|          SHN    -14
06376  M01S05563.rec27   ---|          RAM    IELA-1
06377  M01S05564.rec27   ---|          LDD    MA
06378  M01S05565.rec27   ---|          CWM    IELB,ON     WRITE PP CALL TO MESSAGE BUFFER
06379  M01S05566.rec27   ---|          LDN    0
06380  M01S05567.rec27   ---|          STD    CM+1
06381  M01S05568.rec27   ---|          EXECUTE  1MP,=
06382  M01S05569.rec27   ---|          MONITOR  RPPM      REQUEST PP FOR *1MB*
06383  M01S05570.rec27   ---| IEL1     DELAY
06384  M01S05571.rec27   ---|          LDC    **          READ *DFT* CONTROL WORD
06385  M01S05572.rec27   ---| IELA     EQU    *-1
06386  M01S05573.rec27   ---|          CRD    CM
06387  M01S05574.rec27   ---|          LDD    CM+4        CHECK VERIFICATION FLAG
06388  M01S05575.rec27   ---|          SHN    21-DCVR
06389  M01S05576.rec27   ---|          PJN    IEL1        IF NO REPLY FROM *DFT*
06390  M01S05577.rec27   ---|          SHN    DCVR-DCRJ
06391  M01S05578.rec27   ---|          MJN    IEL4        IF REVISION LEVEL REJECTED BY *DFT*
06392  M01S05579.rec27   ---|          SHN    DCRJ-DCDM
06393  M01S05580.rec27   ---|          MJN    IEL3        IF NOT DEDICATED *DFT*
06394  M01S05581.rec27   ---|
06395  M01S05582.rec27   ---|*         CLEAR *1MB* INHIBIT FLAG IN *SCRL*.
06396  M01S05583.rec27   ---|
06397  M01S05584.rec27   ---| IEL2     LDC    SCRL        READ *SCRL*
06398  M01S05585.rec27   ---|          CRD    CM
06399  M01S05586.rec27   ---|          LDD    CM          CLEAR *1MB* INHIBIT FLAG
06400  M01S05587.rec27   ---|          LPC    3777
06401  M01S05588.rec27   ---|          STD    CM
06402  M01S05589.rec27   ---|          LDC    SCRL        REWRITE *SCRL*
06403  M01S05590.rec27   ---|          CWD    CM
06404  M01S05591.rec27   ---| IEL3     LJM    IELX        RETURN
06405  M01S05592.rec27   ---|
06406  M01S05593.rec27   ---|*         PROCESS *DFT* REJECT.
06407  M01S05594.rec27   ---|
06408  M01S05595.rec27   ---| IEL4     LDC    IELC        *DFT REVISION LEVEL MISMATCH*
06409  M01S05596.rec27   ---|          LJM    ERR         DISPLAY MESSAGE AND HANG
06410  M01S05597.rec27   ---|
06411  M01S05598.rec27   ---|
06412  M01S05599.rec27   ---| IELB     VFD    18/3L1MP,6/**,12/0,24/0
06413  M01S05600.rec27   ---| IELC     DATA   C*DFT REVISION LEVEL MISMATCH.*
06414  M00S05601.rec     +++| CEL      SPACE  4,10
06415  M00S05602.rec     +++|*         OVERFLOW CHECKS.
06416  M00S05603.rec     +++|
06417  M00S05604.rec     +++|
06418  M00S05605.rec     +++|          ERRPL  OVL0+ZPXL-BFMS  BUFFER OVERFLOW
06419  M00S05606.rec     +++|          TTL    REC/4RH - RECOVER MASS STORAGE DEVICES.
06420  M00S05607.rec     +++|          TITLE
06421  M00S05608.rec     +++|          QUAL   RMD
06422  M00S05609.rec     +++|          IDENT  4RH,RMDX
06423  M00S05610.rec     +++|*COMMENT  REC - RECOVER MASS STORAGE DEVICES.
Line S05611 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
06424  M01S05611.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1986.
Line S00009 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
06425  M01S00009.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
06426  M00S05612.rec     +++| RMD      SPACE  4,10
06427  M00S05613.rec     +++|***       RMD - RECOVER MASS STORAGE DEVICES.
06428  M00S05614.rec     +++|*
06429  M00S05615.rec     +++|*         *RMD* SCANS THE EST FOR MASS STORAGE DEVICES
06430  M00S05616.rec     +++|*         AND INITIATES A COPY OF *1RF* FOR EACH ONE.
06431  M00S05617.rec     +++| RMD      SPACE  4,10
06432  M00S05618.rec     +++|          ORG    OVLA
06433  M00S05619.rec     +++|
06434  M00S05620.rec     +++|
06435  M00S05621.rec     +++|**        RMD - RECOVER MASS STORAGE DEVICES.
06436  M00S05622.rec     +++|*
06437  M00S05623.rec     +++|*         ENTRY  (RS) = RECOVERY STATUS.
06438  M00S05624.rec     +++|*                (NC) = SYSTEM CONTROL POINT NUMBER.
06439  M00S05625.rec     +++|
06440  M00S05626.rec     +++|
06441  M00S05627.rec     +++| RMD      SUBR               ENTRY/EXIT
06442  M00S05628.rec     +++|          LDD    RS          SET RECOVERY STATUS IN PP CALL
06443  M00S05629.rec     +++|          STM    RMDA+4
06444  M00S05630.rec     +++|          LDN    ESTP        GET ORDINAL OF LAST MS EQUIPMENT + 1
06445  M00S05631.rec     +++|          CRD    T7-3
06446  M00S05632.rec     +++|          LDN    NOPE-1      SET BEGINNING OF EST SEARCH
06447  M00S05633.rec     +++|          STD    T6
06448  M00S05634.rec     +++|          LDN    0           CLEAR PP COUNT
06449  M00S05635.rec     +++|          STD    T5
06450  M00S05636.rec     +++|          STD    T4
06451  M00S05637.rec     +++|          STD    DI          CLEAR INITIALIZE COUNT
Line S00005 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06452  M01S00005.ns2500  +++|          LDN    EJTE
06453  M01S00006.ns2500  +++|          STD    T3
06454  M01S00007.ns2500  +++|          LDN    EJTP        FETCH EJT POINTER
06455  M01S00008.ns2500  +++|          CRD    CA
06456  M01S00009.ns2500  +++|          LDD    CA          GET SYSTEM EJT ENTRY
06457  M01S00010.ns2500  +++|          SHN    14
06458  M01S00011.ns2500  +++|          LMD    CA+1
06459  M01S00012.ns2500  +++|          CRM    BUFM,T3
06460  M01S00013.ns2500  +++| .EO      EQU    DSEO-1
06461  M01S00014.ns2500  +++|          ADK    .EO*EJTE    SAVE DEADSTART EJT ENTRY SLOT
06462  M01S00015.ns2500  +++|          CRM    RMDC,T3
06463  M01S00016.ns2500  +++|          SBN    EJTE        STORE DEADSTART EJT ENTRY
06464  M01S00017.ns2500  +++|          CWM    BUFM,T3
06465  M00S05638.rec     +++|
06466  M00S05639.rec     +++|*         REQUEST PP-S TO PROCESS DEVICES.
06467  M00S05640.rec     +++|
06468  M00S05641.rec     +++| RMD1     RJM    GND         GET NEXT DEVICE
06469  M00S05642.rec     +++|          ZJN    RMD3        IF NO MORE DEVICES
06470  M00S05643.rec     +++|          STM    RMDA+2      SET EST ORDINAL TO RECOVER
06471  M00S05644.rec     +++|          LDK    PPAL
06472  M00S05645.rec     +++|          CRD    CM
06473  M00S05646.rec     +++|          LDD    CM+4        CHECK NUMBER OF REMAINING PP-S
Line S05647 Modification History
M01 (Removed by) rec32
Seq #  *Modification Id* Act 
----------------------------+
06474  M01S05647.rec32   ---|          SHN    -1
06475  M01S05648.rec32   ---|          ZJN    RMD4        IF LESS THAN 2 FREE
Line S00001 Modification History
M01 (Added by) rec32
Seq #  *Modification Id* Act 
----------------------------+
06476  M01S00001.rec32   +++|          SBN    3
06477  M01S00002.rec32   +++|          MJN    RMD4        IF LESS THAN 3 FREE
06478  M00S05649.rec     +++|          EXECUTE  1RF,=
06479  M00S05650.rec     +++|          LDD    MA          REQUEST ANOTHER COPY OF *1RF*
06480  M00S05651.rec     +++|          CWM    RMDA,ON
06481  M00S05652.rec     +++|          LDN    1           SET PRIORITY REQUEST
06482  M00S05653.rec     +++|          STD    CM+1
06483  M00S05654.rec     +++|          MONITOR  RPPM      REQUEST PP
06484  M00S05655.rec     +++|          LDD    CM+1
06485  M00S05656.rec     +++|          ZJN    RMD4        IF NO PP AVAILABLE
06486  M00S05657.rec     +++|          STM    RMDB,T5
06487  M00S05658.rec     +++|          AOD    T5
06488  M00S05659.rec     +++|          AOM    RMDA+3      ADVANCE CONTROL POINT NUMBER
06489  M00S05660.rec     +++|          SBD    NC
06490  M00S05661.rec     +++|          NJN    RMD1        IF MORE CONTROL POINTS AVAILABLE
06491  M00S05662.rec     +++|
06492  M00S05663.rec     +++|*         AS PP-S COMPLETE, START THEM ON ANOTHER DEVICE.
06493  M00S05664.rec     +++|
06494  M00S05665.rec     +++| RMD2     RJM    GND         GET NEXT DEVICE
06495  M00S05666.rec     +++| RMD3     ZJN    RMD5        IF NO MORE DEVICES
06496  M00S05667.rec     +++| RMD4     RJM    CRP         CHECK RUNNING PP-S
06497  M00S05668.rec     +++|          LDD    T6
Line S05669 Modification History
M01 (Removed by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06498  M01S05669.ns2500  ---|          STD    CM+2
06499  M01S05670.ns2500  ---|          LDM    RMDB,T1     TELL PP TO START NEXT DEVICE
06500  M01S05671.ns2500  ---|          CWD    CM
Line S00018 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06501  M01S00018.ns2500  +++|          STD    CN+2
06502  M01S00019.ns2500  +++|          LDM    RMDB,T1     TELL PP TO START NEXT DEVICE
06503  M01S00020.ns2500  +++|          CWD    CN
06504  M00S05672.rec     +++|          UJN    RMD2        LOOP
06505  M00S05673.rec     +++|
06506  M00S05674.rec     +++|*         AS PP-S FINISH, TELL THEM TO DROP.
06507  M00S05675.rec     +++|
06508  M00S05676.rec     +++| RMD5     RJM    CRP         CHECK RUNNING PP-S
06509  M00S05677.rec     +++|          LDC    4000
Line S05678 Modification History
M01 (Removed by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06510  M01S05678.ns2500  ---|          STD    CM+2
06511  M01S05679.ns2500  ---|          LDM    RMDB,T1     TELL PP TO DROP
06512  M01S05680.ns2500  ---|          CWD    CM
Line S00021 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06513  M01S00021.ns2500  +++|          STD    CN+2
06514  M01S00022.ns2500  +++|          LDM    RMDB,T1     TELL PP TO DROP
06515  M01S00023.ns2500  +++|          CWD    CN
06516  M00S05681.rec     +++|          LDN    0           INDICATE THAT PP HAS DROPPED
06517  M00S05682.rec     +++|          STM    RMDB,T1
06518  M00S05683.rec     +++|          AOD    T4          INCREMENT COUNT OF DROPPED PP-S
06519  M00S05684.rec     +++|          LMD    T5
06520  M00S05685.rec     +++|          NJN    RMD5        IF PP-S STILL RUNNING
06521  M00S05686.rec     +++|          LDC    MMFL
06522  M00S05687.rec     +++|          CRD    CN          READ MMF STATUS WORD
06523  M00S05688.rec     +++|          LDD    CN+2
06524  M00S05689.rec     +++|          ZJN    RMD6        IF DAT NOT INTERLOCKED
06525  M00S05690.rec     +++|          LDD    DI
06526  M00S05691.rec     +++|          NJN    RMD6        IF INITIALIZATION REQUESTS PENDING
06527  M00S05692.rec     +++|          STD    CN+2
06528  M00S05693.rec     +++|          LDC    MMFL        CLEAR INTERLOCK STATUS
06529  M00S05694.rec     +++|          CWD    CN
06530  M00S05695.rec     +++|          LCN    DATI        RELEASE FLAG REGISTER INTERLOCK
06531  M00S05696.rec     +++|          RJM    IFR
Line S05697 Modification History
M01 (Removed by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06532  M01S05697.ns2500  ---| RMD6     LJM    RMDX        RETURN
Line S00024 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06533  M01S00024.ns2500  +++| RMD6     LDD    CA          EJT BASE ADDRESS
06534  M01S00025.ns2500  +++|          SHN    14
06535  M01S00026.ns2500  +++|          LMD    CA+1
06536  M01S00027.ns2500  +++|          ADK    DSEO*EJTE   RESTORE DEADSTART EJT ENTRY SLOT
06537  M01S00028.ns2500  +++|          CWM    RMDC,T3
06538  M01S00029.ns2500  +++|          LJM    RMDX        RETURN
06539  M00S05698.rec     +++|
06540  M00S05699.rec     +++|
06541  M00S05700.rec     +++| RMDA     VFD    18/3R1RF,6/0,12/0,12/1,12/0
06542  M00S05701.rec     +++| RMDB     BSSZ   20D-4       PP INPUT REGISTER LIST
Line S00030 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06543  M01S00030.ns2500  +++| RMDC     BSS    5*EJTE      EJT ENTRY SAVE AREA
06544  M00S05702.rec     +++| CRP      SPACE  4,10
06545  M00S05703.rec     +++|**        CRP - CHECK RUNNING PP-S.
06546  M00S05704.rec     +++|*
06547  M00S05705.rec     +++|*         EXIT   (T1) = INDEX INTO PP TABLE.
Line S05706 Modification History
M01 (Removed by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06548  M01S05706.ns2500  ---|*                (CM - CM+4) = CONTENTS OF PP INPUT REGISTER.
06549  M01S05707.ns2500  ---|*
06550  M01S05708.ns2500  ---|*         USES   T1, T2, CM - CM+4, FN - FN+4.
Line S00031 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06551  M01S00031.ns2500  +++|*                (T5) = ASSIGNED PP COUNT.
06552  M01S00032.ns2500  +++|*                (CN - CN+4) = CONTENTS OF PP INPUT REGISTER.
06553  M01S00033.ns2500  +++|*
06554  M01S00034.ns2500  +++|*         USES   T1, T2, FN - FN+4.
06555  M00S05709.rec     +++|
06556  M00S05710.rec     +++|
06557  M00S05711.rec     +++| CRP      SUBR               ENTRY/EXIT
06558  M00S05712.rec     +++| CRP1     LDN    0
06559  M00S05713.rec     +++|          STD    T1
06560  M00S05714.rec     +++| CRP2     LDM    RMDB,T1
06561  M00S05715.rec     +++|          ZJN    CRP3        IF PP HAS ALREADY DROPPED
Line S05716 Modification History
M01 (Removed by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06562  M01S05716.ns2500  ---|          CRD    CM
06563  M01S05717.ns2500  ---|          LDD    CM+2
06564  M01S05718.ns2500  ---|          ZJN    CRPX        IF PP IS DONE
06565  M01S05719.ns2500  ---|          LDD    CM+3
Line S00035 Modification History
M01 (Added by) ns2500
Seq #  *Modification Id* Act 
----------------------------+
06566  M01S00035.ns2500  +++|          CRD    CN
06567  M01S00036.ns2500  +++|          LDD    CN+2
06568  M01S00037.ns2500  +++|          ZJN    CRPX        IF PP DONE
Line S00038 Modification History
M01 (Added by) ns2500
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06569  M02S00038.ns2788  ---|          LDD    CN+3
Line S05720 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06570  M01S05720.ns2788  ---|          SHN    21-13
06571  M01S05721.ns2788  ---|          MJN    CRP4        IF PP ENCOUNTERED ERROR
06572  M00S05722.rec     +++| CRP3     AOD    T1
06573  M00S05723.rec     +++|          LMD    T5
06574  M00S05724.rec     +++|          NJN    CRP2        IF MORE PP-S TO CHECK
06575  M00S05725.rec     +++|          UJN    CRP1        LOOP
06576  M00S05726.rec     +++|
Line S05727 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06577  M01S05727.ns2788  ---| CRP4     LDM    RMDB,T1     GET THE MESSAGE
06578  M01S05728.ns2788  ---|          ADN    2
06579  M01S05729.ns2788  ---|          CRM    BUFM,TR
06580  M01S05730.ns2788  ---|          LDD    CP          FETCH SENSE SWITCH WORD
06581  M01S05731.ns2788  ---|          ADN    SNSW
06582  M01S05732.ns2788  ---|          STD    T2
06583  M01S05733.ns2788  ---|          CRD    FN
06584  M01S05734.ns2788  ---|          LDN    3           SET PAUSE + NOGO FLAGS
06585  M01S05735.ns2788  ---|          STD    FN+3
06586  M01S05736.ns2788  ---|          LDD    T2
06587  M01S05737.ns2788  ---|          CWD    FN
06588  M01S05738.ns2788  ---|          ADN    MS2W-SNSW   DISPLAY MESSAGE
06589  M01S05739.ns2788  ---|          CWM    BUFM,TR
06590  M01S05740.ns2788  ---| CRP5     PAUSE  NE
06591  M01S05741.ns2788  ---|          LDD    T2          READ SENSE SWITCH WORD
06592  M01S05742.ns2788  ---|          CRD    FN
06593  M01S05743.ns2788  ---|          LDD    FN+3        CHECK PAUSE FLAG
Line S05744 Modification History
M01 (Removed by) ns2500
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06594  M02S05744.ns2788  ---|          STD    CM+3
Line S00039 Modification History
M01 (Added by) ns2500
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06595  M02S00039.ns2788  ---|          STD    CN+3
Line S05745 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06596  M01S05745.ns2788  ---|          LPN    2
06597  M01S05746.ns2788  ---|          NJN    CRP5        IF NO OPERATOR RESPONSE
06598  M01S05747.ns2788  ---|          LDM    RMDB,T1     RETURN RESPONSE TO *1RF*
Line S05748 Modification History
M01 (Removed by) ns2500
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06599  M02S05748.ns2788  ---|          CWD    CM
Line S00040 Modification History
M01 (Added by) ns2500
M02 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06600  M02S00040.ns2788  ---|          CWD    CN
Line S05749 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
06601  M01S05749.ns2788  ---|          UJP    CRP3        CHECK NEXT PP
06602  M00S05750.rec     +++| GND      SPACE  4,10
06603  M00S05751.rec     +++|**        GND - GET NEXT DEVICE.
06604  M00S05752.rec     +++|*
06605  M00S05753.rec     +++|*         ENTRY  (T6) = ORDINAL OF LAST DEVICE PROCESSED.
06606  M00S05754.rec     +++|*
06607  M00S05755.rec     +++|*         EXIT   (A) = 0 IF NO MORE DEVICES.
06608  M00S05756.rec     +++|*                    = (T6) = ORDINAL OF NEXT DEVICE TO PROCESS.
06609  M00S05757.rec     +++|*
06610  M00S05758.rec     +++|*         USES   FN - FN+4.
06611  M00S05759.rec     +++|
06612  M00S05760.rec     +++|
06613  M00S05761.rec     +++| GND      SUBR               ENTRY/EXIT
06614  M00S05762.rec     +++| GND1     AOD    T6
06615  M00S05763.rec     +++|          LMD    T7
06616  M00S05764.rec     +++|          ZJN    GNDX        IF END OF MASS STORAGE DEVICES
06617  M00S05765.rec     +++|          SFA    EST,T6
06618  M00S05766.rec     +++|          ADK    EQDE        READ EST ENTRY
06619  M00S05767.rec     +++|          CRD    FN
06620  M00S05768.rec     +++|          LDD    FN          CHECK DEVICE AVAILABILITY
06621  M00S05769.rec     +++|          SHN    -6
06622  M00S05770.rec     +++|          LPN    41
06623  M00S05771.rec     +++|          LMN    40
06624  M00S05772.rec     +++|          NJN    GND1        IF NOT AVAILABLE MS DEVICE
Line S00001 Modification History
M01 (Added by) rec31
Seq #  *Modification Id* Act 
----------------------------+
06625  M01S00001.rec31   +++|          LDD    FN
06626  M01S00002.rec31   +++|          LPN    3
06627  M01S00003.rec31   +++|          LMN    DWES
06628  M01S00004.rec31   +++|          ZJN    GND1        IF DEVICE IS *DOWN*
06629  M00S05773.rec     +++|          LDD    FN+4
06630  M00S05774.rec     +++|          SHN    3
06631  M00S05775.rec     +++|          ADK    STLL        FETCH LOCAL MST STATUS
06632  M00S05776.rec     +++|          CRD    FN
06633  M00S05777.rec     +++|          LDD    FN
06634  M00S05778.rec     +++|          SHN    22-LIAL+LIAL/12D*12D
06635  M00S05779.rec     +++|          LPN    1
06636  M00S05780.rec     +++|          RAD    DI          COUNT INITIALIZED DEVICES
06637  M00S05781.rec     +++|          LDD    T6
06638  M00S05782.rec     +++|          UJP    GNDX        RETURN
06639  M00S05783.rec     +++|          SPACE  4,10
06640  M00S05784.rec     +++| BUFM     BSS    0           MESSAGE HOLDING BUFFER
06641  M00S05785.rec     +++|          SPACE  4,10
06642  M00S05786.rec     +++|**        OVERFLOW CHECK.
06643  M00S05787.rec     +++|
06644  M00S05788.rec     +++|
06645  M00S05789.rec     +++|          ERRPL  BUFM+5*3-10001  MESSAGE WRAPS PP MEMORY
06646  M00S05790.rec     +++|          TTL    REC - SYSTEM RECOVERY PROCESSOR.
06647  M00S05791.rec     +++|          TTL    REC - SYSTEM RECOVERY PROCESSOR.
06648  M00S05792.rec     +++|          SPACE  4,10
06649  M00S05793.rec     +++|          END
cdc/nos2.source/opl.opl871/deck/rec.003.txt ยท Last modified: by 127.0.0.1