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 
----------------------------+
Line S03753 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04341  M02S03753.273l780 ---|          SFA    EJT,EO
Line S03754 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04342  M02S03754.273l780 ---|          ADK    SCHE
Line S03755 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04343  M02S03755.273l780 ---|          CWD    CA
04344  M01S00108.273l780 +++| REJ      SUBR               ENTRY/EXIT
04345  M01S00018.rec33   +++|          LDD    NC
04346  M01S00019.rec33   +++|          SBD    PN
Line S00020 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04347  M02S00020.273l780 ---|          PJN    REJX        IF NOT PCP
Line S00021 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04348  M02S00021.273l780 ---|          RJM    RCP         RELEASE PSEUDO CONTROL POINT
04349  M01S00109.273l780 +++|          MJN    REJ1        IF PROCESSING PCP-S
04350  M01S00015.ns2738c +++|          LDD    CA+2        CLEAR *DMP=* ROLLOUT FLAG
04351  M01S00016.ns2738c +++|          LPC    7377
04352  M01S00017.ns2738c +++|          STD    CA+2
04353  M01S00018.ns2738c +++|          SFA    EJT,EO      UPDATE EJT ENTRY
04354  M01S00019.ns2738c +++|          ADK    SCHE
04355  M01S00020.ns2738c +++|          CWD    CA
04356  M01S00110.273l780 +++|          RJM    DEF         DETERMINE ERROR FLAG
04357  M01S00111.273l780 +++|          UJN    REJX        RETURN
04358  M01S03756.rec     +++|
Line S03757 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04359  M02S03757.273l780 ---| REJ      SUBR               ENTRY/EXIT
Line S03758 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04360  M02S03758.273l780 ---|          RJM    DEF         DETERMINE ERROR FLAG
Line S03759 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04361  M02S03759.273l780 ---|          LDD    CA
Line S03760 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04362  M02S03760.273l780 ---|          ZJN    REJ1        IF NFL NOT ROLLED
Line S03761 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04363  M02S03761.273l780 ---|          RJM    CSR         CHANGE STATUS TO ROLLOUT
Line S03762 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04364  M02S03762.273l780 ---|          UJN    REJX        RETURN
04365  M01S00112.273l780 +++|*         IF PROCESSING A PSEUDO-CONTROL POINT AND THE JOB STATE IS
04366  M01S00113.273l780 +++|*         *EXJS*, A PSEUDO-ROLLOUT IS IN PROGRESS.
04367  M01S00114.273l780 +++|
04368  M01S00115.273l780 +++| REJ1     LJM    ABT         ABORT RECOVERY
04369  M01S03763.rec     +++| RJQ      SPACE  4,10
04370  M01S03764.rec     +++|**        RJQ - RETURN JOB TO QUEUE.
04371  M01S03765.rec     +++|*
Line S03766 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04372  M02S03766.273l780 ---|*         USES   CM - CM+4.
04373  M01S00116.273l780 +++|*         EXIT   CONTROL POINT RELEASED.
04374  M01S00117.273l780 +++|*                (EO) = 0.
04375  M01S00118.273l780 +++|*                *REC* ASSIGNED TO SYSTEM CP.
04376  M01S03767.rec     +++|*
Line S03768 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04377  M02S03768.273l780 ---|*         CALLS  RCP, SET.
04378  M01S00119.273l780 +++|*         USES   EO, FS+4, CM+1.
04379  M01S03769.rec     +++|*
04380  M01S03770.rec     +++|*         MACROS MONITOR, SFA.
04381  M01S03771.rec     +++|
04382  M01S03772.rec     +++|
04383  M01S03773.rec     +++| RJQ      SUBR               ENTRY/EXIT
Line S03774 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04384  M02S03774.273l780 ---|          LDD    CA+2
Line S03775 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04385  M02S03775.273l780 ---|          SCN    77
Line S03776 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04386  M02S03776.273l780 ---|          STD    CA+2
Line S03777 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04387  M02S03777.273l780 ---|          RJM    SET         SET ENTRY TIME
Line S03778 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04388  M02S03778.273l780 ---|          SFA    EJT,EO      RETURN JOB TO QUEUE
Line S03779 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04389  M02S03779.273l780 ---|          ADK    JSNE
04390  M01S00120.273l780 +++|          LDC    100         SET JOB ADVANCE FOR *JACM* FUNCTION
04391  M01S00121.273l780 +++|          RAD    FS+4
04392  M01S00122.273l780 +++|          SFA    EJT,EO
04393  M01S03780.rec     +++|          CWD    FS
Line S03781 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04394  M02S03781.273l780 ---|          ADN    SCHE-JSNE
Line S03782 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04395  M02S03782.273l780 ---|          CWD    CA
Line S03783 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04396  M02S03783.273l780 ---|          RJM    RCP         RELEASE CONTROL POINT
Line S03784 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04397  M02S03784.273l780 ---|          LDD    EF
Line S03785 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04398  M02S03785.273l780 ---|          ZJN    RJQX        IF NO ERROR FLAG
Line S03786 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04399  M02S03786.273l780 ---|          LMC    4000
04400  M01S00123.273l780 +++|          LDN    CCPS        SET RELEASE CONTROL POINT
04401  M01S03787.rec     +++|          STD    CM+1
Line S03788 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04402  M02S03788.273l780 ---|          LDD    QA
Line S03789 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04403  M02S03789.273l780 ---|          STD    CM+2
Line S03790 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04404  M02S03790.273l780 ---|          LDD    FS          SET ERROR FLAG IN EJT ENTRY
Line S03791 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04405  M02S03791.273l780 ---|          STD    CM+3
Line S03792 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04406  M02S03792.273l780 ---|          LDD    FS+1
Line S03793 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04407  M02S03793.273l780 ---|          STD    CM+4
Line S03794 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04408  M02S03794.273l780 ---|          MONITOR  CEFM
04409  M01S00124.273l780 +++|          MONITOR  JACM      RELEASE CONTROL POINT
04410  M01S00125.273l780 +++|*         LDN    0
04411  M01S00126.273l780 +++|          STD    EO          CLEAR EJT ORDINAL TO FLAG CP RELEASED
04412  M01S00127.273l780 +++|          LDD    NC
04413  M01S00128.273l780 +++|          STD    CM+1
04414  M01S00129.273l780 +++|          MONITOR  CCAM      RETURN TO SYSTEM CP
04415  M01S03795.rec     +++|          UJN    RJQX        RETURN
04416  M01S03796.rec     +++| RPJ      SPACE  4,10
04417  M01S03797.rec     +++|**        RPJ - RECOVER PRE-INITIAL JOB.
04418  M01S03798.rec     +++|*
04419  M01S03799.rec     +++|*         USES   CM - CM+4.
04420  M01S03800.rec     +++|*
04421  M01S03801.rec     +++|*         CALLS  AST, RJQ.
04422  M01S03802.rec     +++|
04423  M01S03803.rec     +++|
04424  M01S03804.rec     +++| RPJ1     RJM    RJQ         RETURN JOB TO QUEUE
04425  M01S03805.rec     +++|
04426  M01S03806.rec     +++| RPJ      SUBR               ENTRY/EXIT
04427  M01S03807.rec     +++|          LDD    CP
04428  M01S03808.rec     +++|          ADN    JCIW
04429  M01S03809.rec     +++|          CRD    CM
04430  M01S03810.rec     +++|          LDC    LSSI        CHECK SUBSYSTEM ID
04431  M01S03811.rec     +++|          SBD    CM+2
04432  M01S03812.rec     +++|          PJN    RPJ1        IF NOT SUBSYSTEM
04433  M01S03813.rec     +++|          LDD    CM+2
04434  M01S03814.rec     +++|          LMC    CEAF*10000  CLEAR JOB ACTIVE IN *SSAT*
04435  M01S03815.rec     +++|          RJM    AST
04436  M01S03816.rec     +++|          UJN    RPJ1        RETURN JOB TO QUEUE
04437  M01S00306.271l716 +++| RSJ      SPACE  4,10
Line S00307 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04438  M02S00307.273l780 ---|**        RSJ - RECOVER JOB AT PSEUDO CP.
04439  M01S00130.273l780 +++|**        RSJ - RECOVER JOB AT PSEUDO-CP.
04440  M01S00308.271l716 +++|*
Line S00309 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S00309.273l780 ---|*         ERROR  TO *ABT* IF PSEUDO ROLLIN/ROLLOUT IN PROGRESS.
04442  M01S00131.273l780 +++|*         EXIT   TO *ABT* IF PSEUDO-ROLLIN IN PROGRESS.
04443  M01S00310.271l716 +++|
04444  M01S00311.271l716 +++|
04445  M01S00312.271l716 +++| RSJ      SUBR               ENTRY/EXIT
Line S00313 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04446  M02S00313.273l780 ---|          LDD    FS+4
Line S00314 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04447  M02S00314.273l780 ---|          SHN    21-6
Line S00315 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04448  M02S00315.273l780 ---|          PJN    RSJX        IF JOB ADVANCE NOT SET
Line S00316 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04449  M02S00316.273l780 ---|          LJM    ABT         ABORT
04450  M01S00132.273l780 +++|          LDD    NC
04451  M01S00133.273l780 +++|          SBD    PN
04452  M01S00134.273l780 +++|          MJN    RSJX        IF PROCESSING PCP-S
04453  M01S00135.273l780 +++|
04454  M01S00136.273l780 +++|*         IF PROCESSING A CONTROL POINT AND THE JOB STATE IS *PCJS*, A
04455  M01S00137.273l780 +++|*         PSEUDO-ROLLIN IS IN PROGRESS.
04456  M01S00138.273l780 +++|
04457  M01S00139.273l780 +++|          LJM    ABT         ABORT RECOVERY
04458  M01S03817.rec     +++|          TITLE  SUBROUTINES.
04459  M01S03818.rec     +++| PLF      SPACE  4,15
04460  M01S03819.rec     +++|**        PLF - PROCESS LOCAL FNT.
04461  M01S03820.rec     +++|*
04462  M01S03821.rec     +++|*         ENTRY  (CP) = CONTROL POINT ADDRESS.
04463  M01S03822.rec     +++|*                (CN - CN+4) = *FLSW* WORD.
04464  M01S03823.rec     +++|*                (FN - FN+4) = *STSW* WORD.
04465  M01S03824.rec     +++|*
04466  M01S03825.rec     +++|*         EXIT   (RA) = CONTROL POINT REFERENCE ADDRESS / 100.
04467  M01S03826.rec     +++|*
04468  M01S03827.rec     +++|*         USES   FA, QS, QT, CM - CM+4, FS - FS+4.
04469  M01S03828.rec     +++|*
04470  M01S03829.rec     +++|*         CALLS  UQE, VEI.
04471  M01S03830.rec     +++|*
Line S03831 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04472  M02S03831.273l780 ---|*         MACROS NFA, PAUSE.
04473  M01S00140.273l780 +++|*         MACROS MONITOR, NFA.
04474  M01S03832.rec     +++|
04475  M01S03833.rec     +++|
04476  M01S03834.rec     +++| PLF      SUBR               ENTRY/EXIT
Line S03835 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04477  M02S03835.273l780 ---|          PAUSE  NE          SET RA
04478  M01S03836.rec     +++|          LDD    CN          SET END OF NFL
04479  M01S03837.rec     +++|          SHN    6
04480  M01S03838.rec     +++|          ADN    1
04481  M01S03839.rec     +++|          STD    QS
04482  M01S03840.rec     +++|          LDC    FNTN-LENF
04483  M01S03841.rec     +++|          STD    FA
04484  M01S03842.rec     +++| PLF1     LDN    LENF        ADVANCE FNT ADDRESS
04485  M01S03843.rec     +++|          RAD    FA
04486  M01S03844.rec     +++|          SBD    QS
04487  M01S03845.rec     +++|          PJN    PLFX        IF END OF NFL
04488  M01S03846.rec     +++|          NFA    FA,R        READ FNT ENTRY
04489  M01S03847.rec     +++|          CRD    CM
04490  M01S03848.rec     +++|          ADN    FSTL
04491  M01S03849.rec     +++|          CRD    FS
04492  M01S03850.rec     +++|          LDD    CM
04493  M01S03851.rec     +++|          ZJN    PLF1        IF EMPTY FNT SLOT
04494  M01S03852.rec     +++|          LDD    CM+4        SET FILE TYPE
04495  M01S03853.rec     +++|          SHN    -6
04496  M01S03854.rec     +++|          STD    QT
04497  M01S03855.rec     +++|          LMN    QFFT
04498  M01S03856.rec     +++|          NJN    PLF2        IF NOT QUEUE FILE
04499  M01S03857.rec     +++|          RJM    UQE         UPDATE QFT ENTRY
04500  M01S03858.rec     +++| PLF2     LMN    ROFT&QFFT
04501  M01S03859.rec     +++|          ZJN    PLF5        IF ROLLOUT FILE
04502  M01S03860.rec     +++|          LDD    FS+4
04503  M01S03861.rec     +++|          LPN    1
04504  M01S03862.rec     +++|          NJN    PLF1        IF FILE NOT BUSY
04505  M01S03863.rec     +++| PLF3     AOD    FS+4
04506  M01S03864.rec     +++|          NFA    FA,R        UPDATE FST
04507  M01S03865.rec     +++|          ADN    FSTL
04508  M01S03866.rec     +++|          CWD    FS
04509  M01S03867.rec     +++|          LDD    FS+4        CHECK LAST OPERATION
04510  M01S03868.rec     +++|          LPN    2
04511  M01S03869.rec     +++|          ZJN    PLF4        IF NOT WRITE
04512  M01S03870.rec     +++|          RJM    VEI         VALIDATE EOI FOR FILE
04513  M01S03871.rec     +++| PLF4     LJM    PLF1        LOOP FOR NEXT FILE
04514  M01S03872.rec     +++|
04515  M01S03873.rec     +++| PLF5     LDN    LOFT-ROFT   SET FILE TYPE TO *LOFT*
04516  M01S03874.rec     +++|          SHN    6
04517  M01S03875.rec     +++|          RAD    CM+4
04518  M01S03876.rec     +++|          NFA    FA,R        UPDATE FNT
04519  M01S03877.rec     +++|          CWD    CM
04520  M01S03878.rec     +++|          LDD    FS+1        SET FIRST TRACK
04521  M01S03879.rec     +++|          ZJN    PLF4        IF TRACKS NOT ASSIGNED
04522  M01S03880.rec     +++|          STD    CM+2
04523  M01S03881.rec     +++|          LDD    FS          SET EQUIPMENT
04524  M01S00141.273l780 +++|          LMD    TH          SET RETURN ON INACCESSIBLE DEVICE
04525  M01S03882.rec     +++|          STD    CM+1
04526  M01S03883.rec     +++|          MONITOR  DTKM      RELEASE MASS STORAGE SPACE
04527  M01S03884.rec     +++|          LDN    ZERL
04528  M01S03885.rec     +++|          CRD    FS
04529  M01S03886.rec     +++|          LDN    NEEQ        ASSIGN TO NULL EQUIPMENT
04530  M01S03887.rec     +++|          STD    FS
04531  M01S03888.rec     +++|          UJP    PLF3        UPDATE FST
Line S03889 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04532  M02S03889.273l780 ---| RCP      SPACE  4,10
Line S03890 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04533  M02S03890.273l780 ---|**        RCP - RELEASE CONTROL POINT.
Line S03891 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04534  M02S03891.273l780 ---|*
Line S03892 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04535  M03S03892.273l780 ---|*         ENTRY  (CP) = CONTROL POINT ADDRESS.
Line S00317 Modification History
M01 (Added by) 271l716
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04536  M03S00317.273l780 ---|*         ENTRY  (PN) = CONTROL POINT NUMBER.
Line S00022 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04537  M02S00022.273l780 ---|*         ENTRY  (PN) = CP/PCP NUMBER.
Line S03893 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04538  M02S03893.273l780 ---|*                (FN - FN+4) = *STSW* WORD.
Line S03894 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04539  M02S03894.273l780 ---|*
Line S03895 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04540  M02S03895.273l780 ---|*         EXIT   (EO) = 0.
Line S03896 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04541  M02S03896.273l780 ---|*                (EF) = ERROR FLAG.
Line S03897 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04542  M02S03897.273l780 ---|*
Line S03898 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04543  M03S03898.273l780 ---|*         USES   CM - CM+4.
Line S00023 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04544  M02S00023.273l780 ---|*         USES   CM - CM+4, EF, EO, FN+1.
Line S03899 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04545  M02S03899.273l780 ---|*
Line S03900 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04546  M02S03900.273l780 ---|*         MACROS MONITOR.
Line S03901 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04547  M02S03901.273l780 ---|
Line S03902 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04548  M02S03902.273l780 ---|
Line S00024 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04549  M02S00024.273l780 ---| RCP1     LDD    IA          STORE INPUT REGISTER
Line S00025 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04550  M02S00025.273l780 ---|          CWD    CM
Line S00026 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04551  M02S00026.273l780 ---|          LDN    CCPS        CLEAR JOB ADVANCE AND CP INFORMATION
Line S00027 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04552  M02S00027.273l780 ---| RCP2     STD    CM+1
Line S00028 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04553  M02S00028.273l780 ---|          LDD    FN+1        SAVE ERROR FLAG
Line S00029 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04554  M02S00029.273l780 ---|          STD    EF
Line S00030 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04555  M02S00030.273l780 ---|          MONITOR  JACM
Line S00031 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04556  M02S00031.273l780 ---|*         LDN    0           CLEAR EJT ORDINAL
Line S00032 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04557  M02S00032.273l780 ---|          STD    EO
Line S00033 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04558  M02S00033.273l780 ---|          STD    FN+1
Line S00034 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04559  M02S00034.273l780 ---|          LDD    IA          RESET INPUT REGISTER
Line S00035 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04560  M02S00035.273l780 ---|          CWD    IR
Line S00036 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04561  M02S00036.273l780 ---|
Line S03903 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04562  M02S03903.273l780 ---| RCP      SUBR               ENTRY/EXIT
Line S03904 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04563  M02S03904.273l780 ---|          LDD    IA
Line S03905 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04564  M02S03905.273l780 ---|          CRD    IR
Line S03906 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04565  M02S03906.273l780 ---|          CRD    CM
Line S03907 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04566  M03S03907.273l780 ---|          LDD    CP          SET INPUT REGISTER TO CORRECT CP
Line S03908 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04567  M03S03908.273l780 ---|          SHN    -7
Line S00318 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04568  M02S00318.273l780 ---|          LDD    PN          SET INPUT REGISTER TO CORRECT CP
Line S03909 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04569  M02S03909.273l780 ---|          LMC    2L C
Line S03910 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04570  M02S03910.273l780 ---|          STD    CM+1
Line S03911 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04571  M03S03911.273l780 ---|          LDD    IA          STORE INPUT REGISTER
Line S03912 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04572  M03S03912.273l780 ---|          CWD    CM
Line S03913 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04573  M03S03913.273l780 ---|          LDD    FN+1        SAVE ERROR FLAG
Line S03914 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04574  M03S03914.273l780 ---|          STD    EF
Line S03915 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04575  M03S03915.273l780 ---|          LDN    CCPS        CLEAR JOB ADVANCE AND CP INFORMATION
Line S03916 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04576  M03S03916.273l780 ---|          STD    CM+1
Line S03917 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04577  M03S03917.273l780 ---|          MONITOR  JACM
Line S03918 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04578  M03S03918.273l780 ---|*         LDN    0           CLEAR EJT ORDINAL
Line S03919 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04579  M03S03919.273l780 ---|          STD    EO
Line S03920 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04580  M03S03920.273l780 ---|          STD    FN+1
Line S03921 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04581  M03S03921.273l780 ---|          LDD    IA          RESET INPUT REGISTER
Line S03922 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04582  M03S03922.273l780 ---|          CWD    IR
Line S03923 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) rec33
M04 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04583  M04S03923.273l780 ---|          LDD    CP          CLEAR PSEUDO PP ASSIGNMENT
Line S03924 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) rec33
M04 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04584  M04S03924.273l780 ---|          ADN    STSW
Line S03925 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
M03 (Updated by) rec33
M04 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04585  M04S03925.273l780 ---|          CWD    FN
Line S03926 Modification History
M01 (Added by) rec
M02 (Updated by) rec33
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04586  M03S03926.273l780 ---|          UJN    RCPX        RETURN
Line S00037 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04587  M02S00037.273l780 ---|          LDD    NC
Line S00038 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04588  M02S00038.273l780 ---|          SBD    PN
Line S00039 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04589  M02S00039.273l780 ---|          PJN    RCP1        IF NOT PSEUDO-CONTROL POINT
Line S00040 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04590  M02S00040.273l780 ---|          LDD    PN
Line S00041 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04591  M02S00041.273l780 ---|          STD    CM+2
Line S00042 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04592  M02S00042.273l780 ---|          LDC    1S11+CCPS   CLEAR JOB ADVANCE AND CP INFORMATION
Line S00043 Modification History
M01 (Added by) rec33
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04593  M02S00043.273l780 ---|          UJN    RCP2        ISSUE MONITOR FUNCTION
04594  M01S03927.rec     +++|          SPACE  4,10
04595  M01S03928.rec     +++|**        COMMON DECKS.
04596  M01S03929.rec     +++|
04597  M01S03930.rec     +++|
04598  M01S03931.rec     +++|          QUAL   AST
04599  M01S03932.rec     +++| QUAL$    EQU    0           DONT REQUALIFY COMMON DECK
04600  M01S03933.rec     +++| AST$     EQU    0           ASSEMBLE *SSAT* MODIFICATION ROUTINES
04601  M01S03934.rec     +++|*CALL     COMPAST
04602  M01S03935.rec     +++|          QUAL   SET
04603  M01S03936.rec     +++| QUAL$    EQU    0           DONT REQUALIFY COMMON DECK
04604  M01S03937.rec     +++|*CALL     COMPRJC
04605  M01S03938.rec     +++|
04606  M01S03939.rec     +++|
04607  M01S03940.rec     +++| CET$     EQU    0           ASSEMBLE ENTRY TIME CALCULATION ROUTINES
04608  M01S03941.rec     +++| T1       EQU    CA+3
04609  M01S03942.rec     +++| T2       EQU    CA+4
04610  M01S03943.rec     +++|*CALL     COMPCPE
Line S03944 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04611  M02S03944.273l780 ---| SET      SPACE  4,10
04612  M01S00142.273l780 +++| SET      SPACE  4,15
04613  M01S03945.rec     +++|**        SET - SET ENTRY TIME.
04614  M01S03946.rec     +++|*
04615  M01S03947.rec     +++|*         ENTRY  (EO) = EJT ORDINAL.
04616  M01S03948.rec     +++|*                (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04617  M01S03949.rec     +++|*
Line S03950 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04618  M02S03950.273l780 ---|*         USES   CM - CM+4.
04619  M01S00143.273l780 +++|*         EXIT   ENTRY TIME SET IN (CA+2 - CA+4) FOR UPPER BOUND
04620  M01S00144.273l780 +++|*                  PRIORITY OF SERVICE CLASS.
04621  M01S00145.273l780 +++|*
04622  M01S00146.273l780 +++|*         USES   T1, CA+2 - CA+4, CM - CM+4.
04623  M01S03951.rec     +++|*
04624  M01S03952.rec     +++|*         CALLS  CET.
04625  M01S03953.rec     +++|*
04626  M01S03954.rec     +++|*         MACROS SFA.
04627  M01S03955.rec     +++|
04628  M01S03956.rec     +++|
04629  M01S03957.rec     +++| SET      SUBR               ENTRY/EXIT
04630  M01S03958.rec     +++|          SFA    EJT,EO      FETCH SERVICE CLASS FROM EJT ENTRY
04631  M01S03959.rec     +++|          ADN    SCLE
04632  M01S03960.rec     +++|          CRD    CM
04633  M01S03961.rec     +++|          LCN    0           SET MAXIMUM PRIORITY
04634  M01S03962.rec     +++|          STD    T1
04635  M01S03963.rec     +++|          LDD    CM          CALCULATE ENTRY TIME
04636  M01S03964.rec     +++|          SCN    77
04637  M01S03965.rec     +++|          SHN    6
04638  M01S03966.rec     +++|          LMN    EXQT
04639  M01S03967.rec     +++|          RJM    CET
04640  M01S00147.273l780 +++|          LDD    CA+2        SET ENTRY TIME IN *SCHE*
04641  M01S00148.273l780 +++|          SCN    77
04642  M01S00149.273l780 +++|          STD    CA+2
04643  M01S00150.273l780 +++|          LDD    T1
04644  M01S00151.273l780 +++|          STD    CA+3
04645  M01S00152.273l780 +++|          LDD    T2
04646  M01S00153.273l780 +++|          STD    CA+4
04647  M01S03968.rec     +++|          UJN    SETX        RETURN
04648  M01S03969.rec     +++|
04649  M01S03970.rec     +++|
04650  M01S03971.rec     +++|          QUAL   CPR
04651  M01S03972.rec     +++| AST      EQU    /AST/AST
04652  M01S03973.rec     +++| CEAF     EQU    /AST/CEAF
04653  M01S03974.rec     +++| SET      EQU    /SET/SET
04654  M01S03975.rec     +++|          SPACE  4,10
04655  M01S03976.rec     +++|          ERRPL  *-BFMS      OVERFLOW INTO BUFFER
04656  M01S03977.rec     +++|          SPACE  4,10
04657  M01S03978.rec     +++|          QUAL
04658  M01S00319.271l716 +++| ABT      EQU    /CPR/ABT
Line S03979 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04659  M02S03979.273l780 ---| CJP      EQU    /CPR/CJP
04660  M01S00154.273l780 +++| CRS      EQU    /CPR/CRS
Line S03980 Modification History
M01 (Added by) rec
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04661  M02S03980.271l716 ---| CJP1     EQU    /CPR/CJP1
04662  M01S03981.rec     +++| OVLC     EQU    /CPR/OVLC
04663  M01S03982.rec     +++| PLF      EQU    /CPR/PLF
04664  M01S03983.rec     +++| UQE      EQU    /CPR/UQE
04665  M01S03984.rec     +++| VEI      EQU    /CPR/VEI
04666  M01S03985.rec     +++|          TTL    REC/4RE - ISSUE DEADSTART MESSAGES.
04667  M01S03986.rec     +++|          TITLE
04668  M01S03987.rec     +++|          QUAL   IDM
04669  M01S03988.rec     +++|          IDENT  4RE,IDMX
04670  M01S03989.rec     +++|*COMMENT REC - ISSUE DEADSTART MESSAGES.
Line S03990 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04671  M02S03990.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1983.
04672  M01S00006.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04673  M01S03991.rec     +++| IDF      SPACE  4,10
04674  M01S03992.rec     +++|***       4RE - ISSUE DEADSTART MESSAGES.
04675  M01S03993.rec     +++|*
04676  M01S03994.rec     +++|*         *4RE* ISSUES THE DEADSTART MESSAGES PERTAINING TO RECOVERY,
04677  M01S03995.rec     +++|*         AS SET UP BY *4RA*.
04678  M01S03996.rec     +++| IDF      SPACE  4,20
04679  M01S03997.rec     +++|***       DAYFILE MESSAGES.
04680  M01S03998.rec     +++|*
04681  M01S03999.rec     +++|*         * YY/MM/DD. DEAD START LEVEL  X.* = DATE AND LEVEL NUMBER OF
04682  M01S04000.rec     +++|*         DEADSTART.
04683  M01S04001.rec     +++|*         *X...X* = SYSTEM TITLE.
04684  M01S04002.rec     +++|*
04685  M01S04003.rec     +++|*         *X...X* = SYSTEM VERSION.
04686  M01S04004.rec     +++|*
04687  M01S04005.rec     +++|*
04688  M01S04006.rec     +++|*         *EQXXX, DAYFILE TRACK LIMIT.* = DEADSTART IS ABANDONED.
04689  M01S04007.rec     +++|*
04690  M01S04008.rec     +++|*         *EQXXX, LOCAL AREA SECTOR ERROR.* = READ ERROR OCCURRED.
04691  M01S04009.rec     +++|*
04692  M01S04010.rec     +++|*         *FILENAM   RECOVERED, EQXXX.* = SPECIFIED DAYFILE WAS
04693  M01S04011.rec     +++|*         RECOVERED ON EST ORDINAL XXX.
04694  M01S04012.rec     +++|*
04695  M01S04013.rec     +++|*         *FILENAM   CREATION DATE YY/MM/DD. * = CREATION DATE OF
04696  M01S04014.rec     +++|*         SPECIFIED DAYFILE.
04697  M01S04015.rec     +++|*
04698  M01S04016.rec     +++|*         *FILENAME   UPDATED YY/MM/DD. HH.MM.SS. * = DATE
04699  M01S04017.rec     +++|*         AND TIME LAST EOI WAS WRITTEN.
04700  M01S04018.rec     +++| IDM      SPACE  4,10
04701  M01S04019.rec     +++|***       ACCOUNT FILE MESSAGES.
04702  M01S04020.rec     +++|*
04703  M01S04021.rec     +++|*         *ABSY,  YY/MM/DD.* = ACCOUNT FILE WAS INITIALIZED.
04704  M01S04022.rec     +++|*
04705  M01S04023.rec     +++|*         *ARSY, X, YY/MM/DD.* = DAYFILES WERE RECOVERED ON A LEVEL X
04706  M01S04024.rec     +++|*         DEADSTART ON THE SPECIFIED DATE.
04707  M01S04025.rec     +++|*
04708  M01S04026.rec     +++|*         *ABST, X...X.* = SYSTEM TITLE.
04709  M01S04027.rec     +++|*
04710  M01S04028.rec     +++|*         *ABSV, X...X.* = SYSTEM VERSION.
04711  M01S04029.rec     +++| IDM      SPACE  4,10
04712  M01S04030.rec     +++|***       ERROR LOG MESSAGES.
04713  M01S04031.rec     +++|*
04714  M01S04032.rec     +++|*         *X...X* = SYSTEM TITLE.
04715  M01S04033.rec     +++|*
04716  M01S04034.rec     +++|*         *X...X* = SYSTEM VERSION.
04717  M01S04035.rec     +++|*
04718  M01S04036.rec     +++|*         *MICROCODE, XX.* = LEVEL OF LOADED MICROCODE.
04719  M01S04037.rec     +++|*
04720  M01S04038.rec     +++|*         *EI, XX* = LEVEL OF ERROR INTERFACE.
04721  M01S04039.rec     +++|*
04722  M01S04040.rec     +++|*         * BUFFERED I/O RECOVERY ERRORS.
04723  M01S04041.rec     +++|*                * WRITE LIST LINKAGE ERROR.
04724  M01S04042.rec     +++|*                * READ DATA ON WRITE LIST.
04725  M01S04043.rec     +++|*                * INTERLOCKED BUFFER ON WRITE LIST.
04726  M01S04044.rec     +++|*                * WRITE LIST BUFFER COUNT.
04727  M01S04045.rec     +++|*                * NON-LINKED WRITE BUFFER.
04728  M01S04046.rec     +++|*
04729  M01S04047.rec     +++|*         * BUFFERED I/O RECOVERY ERRORS EQXXX.
04730  M01S04048.rec     +++|*                * I/O QUEUE SIZE ERROR.
04731  M01S04049.rec     +++|*                * I/O LINKAGE ERROR.
04732  M01S04050.rec     +++|*                * I/O *PUT* ORDINAL ERROR.
04733  M01S04051.rec     +++| IDM      SPACE  4,10
04734  M01S04052.rec     +++|          ORG    OVLB
04735  M01S04053.rec     +++| IDM      SPACE  4,10
04736  M01S04054.rec     +++|**        IDM - ISSUE DEAD START MESSAGES.
04737  M01S04055.rec     +++|*
04738  M01S04056.rec     +++|*         ENTRY  (FN - FN+4) = DAYFILE EQUIPMENTS.
04739  M01S04057.rec     +++|*
04740  M01S04058.rec     +++|*         EXIT   DEAD START MESSAGE ISSUED TO SYSTEM DAYFILE.
04741  M01S04059.rec     +++|*                DEAD START MESSAGE ISSUED TO ACCOUNT DAYFILE.
04742  M01S04060.rec     +++|*                DEAD START MESSAGE ISSUED TO ERROR LOG DAYFILE.
04743  M01S00001.rec25   +++|*                DEAD START MESSAGE ISSUED TO BML.
04744  M01S04061.rec     +++|*                APPROPRIATE MESSAGES CONCERNING DAYFILE RECOVERY.
04745  M01S04062.rec     +++|*                APPROPRIATE MESSAGES CONCERNING MICROCODE AND EI.
04746  M01S04063.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO SYSTEM DAYFILE.
04747  M01S04064.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO ACCOUNT DAYFILE.
04748  M01S04065.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO ERROR LOG DAYFILE.
04749  M01S04066.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO BML.
04750  M01S04067.rec     +++|*                BUFFERED I/O RECOVERY ERRORS PROCESSED.
04751  M01S04068.rec     +++|*
04752  M01S04069.rec     +++|*         CALLS  ACS, BRM, C2D, DFM.
04753  M01S04070.rec     +++|*
04754  M01S04071.rec     +++|*         USES   QT, T1, T4, CM - CM+4.
04755  M01S04072.rec     +++|
04756  M01S04073.rec     +++|
04757  M01S04074.rec     +++| IDM      SUBR               ENTRY/EXIT
04758  M01S04075.rec     +++|          LDN    DSSL        SET RECOVERY LEVEL
04759  M01S04076.rec     +++|          CRD    CM
04760  M01S04077.rec     +++|          LDD    CM+4        CONVERT RECOVERY MODE
04761  M01S04078.rec     +++|          LPN    3
04762  M01S00002.rec25   +++|          STM    IDMG+2      SET IN BML MESSAGE
04763  M01S04079.rec     +++|          ADC    2R 0
04764  M01S04080.rec     +++|          STM    IDMF1
04765  M01S04081.rec     +++|          SHN    6
04766  M01S04082.rec     +++|          LMN    1R,
04767  M01S04083.rec     +++|          STM    RDBG+3
04768  M01S04084.rec     +++|
04769  M01S04085.rec     +++|*         ISSUE DEADSTART MESSAGES.
04770  M01S04086.rec     +++|
04771  M01S04087.rec     +++|          LDM    RDBK
04772  M01S04088.rec     +++|          STM    IDMA
04773  M01S04089.rec     +++|          LDN    DTEL        READ DATE TO MESSAGE
04774  M01S04090.rec     +++|          CRM    IDMF,ON
04775  M01S04091.rec     +++|          SBN    1
04776  M01S04092.rec     +++|          CRM    **,ON
04777  M01S04093.rec     +++| IDMA     EQU    *-1
04778  M01S04094.rec     +++|*         CRM    RDBG+3,ON   (ACCOUNT FILE INITIALIZED)
04779  M01S04095.rec     +++|*         CRM    RDBG+4,ON   (ACCOUNT FILE RECOVERED)
04780  M01S04096.rec     +++|          LDC    IDMF        ISSUE MESSAGE TO DAYFILE
04781  M01S04097.rec     +++|          RJM    DFM
04782  M01S04098.rec     +++|          LDC    ACFN+RDBG   ISSUE MESSAGE TO ACCOUNT DAYFILE
04783  M01S04099.rec     +++|          RJM    DFM
04784  M01S04100.rec     +++|          LDC    ERLN+IDMF   ISSUE MESSAGE TO ERROR LOG
04785  M01S00003.rec25   +++|          RJM    DFM
04786  M01S00004.rec25   +++|          LDM    RDBF+MLDY
04787  M01S00005.rec25   +++|          NJN    IDM0        IF MAINTENANCE LOG CREATED
04788  M01S00006.rec25   +++|          LDC    DS0104      SET RECOVERY SYMPTOM
04789  M01S00007.rec25   +++|          STM    IDMG+1
04790  M01S00008.rec25   +++| IDM0     LDN    IDMGL       SET MESSAGE LENGTH
04791  M01S00009.rec25   +++|          STD    CM+1
04792  M01S00010.rec25   +++|          LDC    BMLN+IDMG   ISSUE MESSAGE TO MAINTENANCE LOG
04793  M01S04101.rec     +++|          RJM    DFM
04794  M01S04102.rec     +++|
04795  M01S04103.rec     +++|*         ISSUE SYSTEM TITLE AND VERSION DAYFILE MESSAGES
04796  M01S04104.rec     +++|
04797  M01S04105.rec     +++|          LDN    4           READ SYSTEM TITLE
04798  M01S04106.rec     +++|          STD    T1
04799  M01S04107.rec     +++|          LDN    SYTL
04800  M01S04108.rec     +++|          CRM    IDMM2,T1
04801  M01S04109.rec     +++|          LDN    2           READ SYSTEM VERSION
04802  M01S04110.rec     +++|          STD    T1
04803  M01S04111.rec     +++|          LDN    SVNL
04804  M01S04112.rec     +++|          CRM    IDMN2,T1
04805  M01S04113.rec     +++|          LDC    IDMM2       ISSUE SYSTEM TITLE TO MASTER DAYFILE
04806  M01S04114.rec     +++|          RJM    DFM
04807  M01S04115.rec     +++|          LDC    IDMN2       ISSUE SYSTEM VERSION TO MASTER DAYFILE
04808  M01S04116.rec     +++|          RJM    DFM
04809  M01S04117.rec     +++|          LDC    ACFN+IDMM+2 ISSUE TITLE TO ACCOUNT DAYFILE
04810  M01S04118.rec     +++|          RJM    DFM
04811  M01S04119.rec     +++|          LDC    ACFN+IDMN+2 ISSUE SYSTEM VERSION TO ACCOUNT FILE
04812  M01S04120.rec     +++|          RJM    DFM
04813  M01S04121.rec     +++|          LDC    ERLN+IDMM2  ISSUE SYSTEM TITLE TO ERRLOG
04814  M01S04122.rec     +++|          RJM    DFM
04815  M01S04123.rec     +++|          LDC    ERLN+IDMN2  ISSUE SYSTEM VERSION TO ERRLOG
04816  M01S04124.rec     +++|          RJM    DFM
04817  M01S04125.rec     +++|          LDN    ZERL        CLEAR BML AREA
04818  M01S04126.rec     +++|          CRM    IDMM,ON
04819  M01S04127.rec     +++|          CRM    IDMN,ON
04820  M01S04128.rec     +++|          LDC    DM0400      INSERT BML ID
04821  M01S04129.rec     +++|          STM    IDMM
04822  M01S04130.rec     +++|          STM    IDMN
04823  M01S04131.rec     +++|          LDC    SS0100      INSERT BML SYSTEM TITLE SYMPTOM
04824  M01S04132.rec     +++|          STM    IDMM+1
04825  M01S04133.rec     +++|          LDC    SS0101      INSERT BML SYSTEM VERSION SYMPTOM
04826  M01S04134.rec     +++|          STM    IDMN+1
04827  M01S04135.rec     +++|          LDN    IDMM1L      SET SYSTEM TITLE MESSAGE LENGTH
04828  M01S04136.rec     +++|          STD    CM+1
04829  M01S04137.rec     +++|          LDC    BMLN+IDMM   ISSUE MESSAGE TO MAINTENANCE LOG
04830  M01S04138.rec     +++|          RJM    DFM
04831  M01S04139.rec     +++|          LDN    IDMN1L      SET SYSTEM VERSION MESSAGE LENGTH
04832  M01S04140.rec     +++|          STD    CM+1
04833  M01S04141.rec     +++|          LDC    BMLN+IDMN   ISSUE MESSAGE TO MAINTENANCE LOG
04834  M01S04142.rec     +++|          RJM    DFM
04835  M01S04143.rec     +++|
04836  M01S04144.rec     +++|*         COPY MICROCODE AND EI NAMES AND DATES TO MESSAGES.
04837  M01S04145.rec     +++|
04838  M01S04146.rec     +++|          LDK    EABL+MFEI   GET MESSAGE INFORMATION
04839  M01S04147.rec     +++|          CRD    CM
04840  M01S04148.rec     +++|          ADK    CPEI-MFEI
04841  M01S04149.rec     +++|          CRD    CN
04842  M01S04150.rec     +++|          LDD    CM+1        GET MF DESCRIPTOR
04843  M01S04151.rec     +++|          SCN    77
04844  M01S04152.rec     +++|          SHN    6
04845  M01S04153.rec     +++|          LMD    CM
04846  M01S04154.rec     +++|          SHN    6
04847  M01S04155.rec     +++|          CRD    CM
04848  M01S04156.rec     +++|          ADN    1           READ EI DATE/NAME
04849  M01S04157.rec     +++|          CRM    IDMH1+2*5,ON
04850  M01S04158.rec     +++|          LDD    CM+1
04851  M01S04159.rec     +++|          SHN    -6
04852  M01S04160.rec     +++|          LMN    7
04853  M01S04161.rec     +++|          NJP    IDM3        IF NOT CYBER 180 MACHINE
04854  M01S04162.rec     +++|          LDD    CM+1
04855  M01S04163.rec     +++|          LPN    1
Line S04164 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04856  M02S04164.rec25   ---|          NJN    IDM0        IF CPU-0 OFF
04857  M01S00011.rec25   +++|          NJN    IDM0.1      IF CPU-0 OFF
04858  M01S04165.rec     +++|          LDD    CN+1        GET PROCESSOR DESCRIPTOR
04859  M01S04166.rec     +++|          SCN    77
04860  M01S04167.rec     +++|          SHN    6
04861  M01S04168.rec     +++|          LMD    CN
04862  M01S04169.rec     +++|          SHN    6
04863  M01S04170.rec     +++|          UJN    IDM1        FETCH MICROCODE IDENTIFICATION
04864  M01S04171.rec     +++|
Line S04172 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04865  M02S04172.rec25   ---| IDM0     LDD    CN+1
04866  M01S00012.rec25   +++| IDM0.1   LDD    CN+1
04867  M01S04173.rec     +++|          LPN    77
04868  M01S04174.rec     +++|          SHN    14
04869  M01S04175.rec     +++|          LMD    CN+2
04870  M01S04176.rec     +++| IDM1     ADN    2
04871  M01S04177.rec     +++|          CRM    IDMH1,ON    READ MICROCODE NAME/DATE
04872  M01S04178.rec     +++|          CRM    IDMH1+5,ON
04873  M01S04179.rec     +++|          LDM    IDMH1+2*5+3 MOVE EI NAME
04874  M01S04180.rec     +++|          STM    IDMH1+4
04875  M01S04181.rec     +++|          LDM    IDMH1+2*5+4 MOVE VERIFICATION FLAG
04876  M01S04182.rec     +++|          SHN    1
04877  M01S04183.rec     +++|          RAM    IDMH1+5+4
04878  M01S04184.rec     +++|          LDN    0
04879  M01S04185.rec     +++|          STM    IDMH1+2*5+3
04880  M01S04186.rec     +++|          STM    IDMH1+2*5+4
04881  M01S04187.rec     +++|          LDN    IDMHL       SET MESSAGE LENGTH
04882  M01S04188.rec     +++|          STD    CM+1
04883  M01S04189.rec     +++|          LDC    BMLN+IDMH   ISSUE MESSAGE TO MAINTENANCE LOG
04884  M01S04190.rec     +++|          RJM    DFM
04885  M01S04191.rec     +++|          LDC    IDMJ        SET ASSEMBLY BUFFER ADDRESS
04886  M01S04192.rec     +++|          STD    T1
04887  M01S04193.rec     +++|          LDC    IDMH1       SET MICROCODE NAME
04888  M01S04194.rec     +++|          RJM    ACS
04889  M01S04195.rec     +++|          LDC    =C*, *      INSERT SEPARATOR
04890  M01S04196.rec     +++|          RJM    ACS
04891  M01S04197.rec     +++|          LDC    IDMH1+1*5+0 SET MICROCODE DATE
04892  M01S04198.rec     +++|          RJM    ACS
04893  M01S04199.rec     +++|          LDM    IDMH1+1*5+4 DETERMINE IF MICROCODE LOADED
04894  M01S04200.rec     +++|          ZJN    IDM2        IF LOADED
04895  M01S04201.rec     +++|          LDC    =C*, *      SET SEPARATOR
04896  M01S04202.rec     +++|          RJM    ACS
04897  M01S04203.rec     +++|          LCN    1
04898  M01S04204.rec     +++| IDM2     ADC    =C*NL. *+1
04899  M01S04205.rec     +++|          RJM    ACS
04900  M01S04206.rec     +++|          LDC    IDML        SET ASSEMBLY BUFFER ADDRESS
04901  M01S04207.rec     +++|          STD    T1
04902  M01S04208.rec     +++|          LDM    IDMH1+0*5+4 SET EI NAME
04903  M01S04209.rec     +++|          STI    T1
04904  M01S04210.rec     +++|          AOD    T1
04905  M01S04211.rec     +++|          LDC    =C*, *      INSERT SEPARATOR
04906  M01S04212.rec     +++|          RJM    ACS
04907  M01S04213.rec     +++|          LDC    IDMH1+2*5+0 SET EI DATE
04908  M01S04214.rec     +++|          RJM    ACS
04909  M01S04215.rec     +++|          LDC    =C*. *      INSERT TERMINATOR
04910  M01S04216.rec     +++|          RJM    ACS
04911  M01S04217.rec     +++|          LDC    ERLN+IDMI   ISSUE MESSAGE TO ERRLOG
04912  M01S04218.rec     +++|          RJM    DFM
04913  M01S04219.rec     +++|          LDC    ERLN+IDMK   ISSUE MESSAGE TO ERRLOG
04914  M01S04220.rec     +++|          RJM    DFM
04915  M01S04221.rec     +++| IDM3     LCN    0           CLEAR FILE INDEX
04916  M01S04222.rec     +++|          STD    QT
04917  M01S04223.rec     +++|
04918  M01S04224.rec     +++|*         ISSUE DAYFILE RECOVERY MESSAGES.
04919  M01S04225.rec     +++|
04920  M01S04226.rec     +++|          LDD    RS
04921  M01S04227.rec     +++|          LPN    FLMK
04922  M01S04228.rec     +++|          LMN    FLCM
Line S04229 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04923  M02S04229.rec25   ---|          NJN    IDM5        IF DAYFILES NOT RECOVERED FROM CM
04924  M01S00013.rec25   +++|          NJN    IDM6        IF DAYFILES NOT RECOVERED FROM CM
04925  M01S04230.rec     +++|          RJM    BRM         PROCESS BUFFERED I/O RECOVERY MESSAGES
04926  M01S04231.rec     +++| IDM4     LJM    IDMX        RETURN
04927  M01S04232.rec     +++|
Line S04233 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04928  M02S04233.rec25   ---| IDM5     LDM    RDBF+MLDY
Line S04234 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04929  M02S04234.rec25   ---|          ZJN    IDM6        IF MAINTENANCE LOG NOT CREATED
Line S04235 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04930  M02S04235.rec25   ---|          LDN    IDMGL       SET CREATION MESSAGE LENGTH
Line S04236 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04931  M02S04236.rec25   ---|          STD    CM+1
Line S04237 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04932  M02S04237.rec25   ---|          LDC    BMLN+IDMG   ISSUE MESSAGE TO MAINTENANCE LOG
Line S04238 Modification History
M01 (Added by) rec
M02 (Updated by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04933  M02S04238.rec25   ---|          RJM    DFM
04934  M01S04239.rec     +++| IDM6     AOD    QT          ADVANCE TO NEXT FILE
04935  M01S04240.rec     +++|          SHN    2
04936  M01S04241.rec     +++|          ADD    QT
04937  M01S04242.rec     +++|          STD    T4
04938  M01S04243.rec     +++|          ADC    RDBA        CALCULATE DATE AND TIME ADDRESSES
04939  M01S04244.rec     +++|          STM    IDMB
04940  M01S04245.rec     +++|          ADN    RDBB-RDBA
04941  M01S04246.rec     +++|          STM    IDMC
04942  M01S04247.rec     +++|          ADN    RDBC-RDBB
04943  M01S04248.rec     +++|          STM    IDMD
04944  M01S04249.rec     +++|          ADN    RDBD-RDBC
04945  M01S04250.rec     +++|          STM    IDME
04946  M01S04251.rec     +++|          LMC    RDBE
04947  M01S04252.rec     +++|          ZJN    IDM4        IF END OF DAYFILES
04948  M01S04253.rec     +++|          LDM    RDBA,T4
04949  M01S04254.rec     +++|          ZJN    IDM6        IF NO CREATION DATE
04950  M01S04255.rec     +++|          LDM    FN,QT       CONVERT UPPER DIGIT OF EST ORDINAL
04951  M01S04256.rec     +++|          SHN    -6
04952  M01S04257.rec     +++|          LPN    7
04953  M01S04258.rec     +++|          ADC    2RQ0
04954  M01S04259.rec     +++|          STM    RDBH+13
04955  M01S04260.rec     +++|          LDM    FN,QT       CONVERT LOWER TWO DIGITS OF EST ORDINAL
04956  M01S04261.rec     +++|          RJM    C2D
04957  M01S04262.rec     +++|          STM    RDBH+14
04958  M01S04263.rec     +++|
04959  M01S04264.rec     +++|*         COPY DATES AND TIMES TO MESSAGES.
04960  M01S04265.rec     +++|
04961  M01S04266.rec     +++|          LDD    MA          COPY CREATION DATE
04962  M01S04267.rec     +++|          CWM    **,ON
04963  M01S04268.rec     +++| IDMB     EQU    *-1
04964  M01S04269.rec     +++|          SBN    1
04965  M01S04270.rec     +++|          CRM    RDBI1,ON
04966  M01S04271.rec     +++|          SBN    1           COPY UPDATE DATE
04967  M01S04272.rec     +++|          CWM    **,ON
04968  M01S04273.rec     +++| IDMC     EQU    *-1
04969  M01S04274.rec     +++|          SBN    1
04970  M01S04275.rec     +++|          CRM    RDBJ1,ON
04971  M01S04276.rec     +++|          SBN    1           COPY UPDATE TIME
04972  M01S04277.rec     +++|          CWM    **,ON
04973  M01S04278.rec     +++| IDMD     EQU    *-1
04974  M01S04279.rec     +++|          SBN    1
04975  M01S04280.rec     +++|          CRM    RDBJ1+1*5,ON
04976  M01S04281.rec     +++|          SBN    1           COPY FILE NAME
04977  M01S04282.rec     +++|          CWM    **,ON
04978  M01S04283.rec     +++| IDME     EQU    *-1
04979  M01S04284.rec     +++|          SBN    1
04980  M01S04285.rec     +++|          CRM    RDBH,ON
04981  M01S04286.rec     +++|          SBN    1
04982  M01S04287.rec     +++|          CRM    RDBI,ON
04983  M01S04288.rec     +++|          SBN    1
04984  M01S04289.rec     +++|          CRM    RDBJ,ON
04985  M01S04290.rec     +++|
04986  M01S04291.rec     +++|*         ISSUE MESSAGES.
04987  M01S04292.rec     +++|
04988  M01S04293.rec     +++|          LDC    RDBH        *FILENAME   RECOVERED, EQXXX.*
04989  M01S04294.rec     +++|          RJM    DFM
04990  M01S04295.rec     +++|          LDM    RDBB,T4
04991  M01S04296.rec     +++|          ZJN    IDM7        IF FILE NOT UPDATED
04992  M01S04297.rec     +++|          LDC    RDBI
04993  M01S04298.rec     +++|          RJM    DFM         ISSUE MESSAGES
04994  M01S04299.rec     +++|          LDC    RDBJ
04995  M01S04300.rec     +++|          RJM    DFM
04996  M01S04301.rec     +++| IDM7     LJM    IDM6        ADVANCE TO NEXT FILE
04997  M01S04302.rec     +++|
04998  M01S04303.rec     +++| IDMF     DATA   H* YY/MM/DD. DEAD START LEVEL *
04999  M01S04304.rec     +++| IDMF1    DATA   C* 0.*
05000  M01S04305.rec     +++|
05001  M01S04306.rec     +++| IDMG     CON    DM0406,DS0101  MAINTENANCE LOG CREATION MESSAGE
05002  M01S04307.rec     +++|          BSSZ   IDMG+6-*
05003  M01S04308.rec     +++| IDMGL    EQU    *-IDMG      LENGTH OF MESSAGE
05004  M01S04309.rec     +++|
05005  M01S04310.rec     +++| IDMH     CON    DM0407,DS0100  MAINTENANCE LOG MICROCODE/EI MESSAGE
05006  M01S04311.rec     +++|          VFD    36/0
05007  M01S04312.rec     +++| IDMH1    BSSZ   3*5         MESSAGE
05008  M01S04313.rec     +++| IDMHL    EQU    *-IDMH
05009  M01S04314.rec     +++|
05010  M01S04315.rec     +++| IDMI     DATA   H*MICROCODE, *  ERRLOG MICROCODE/EI MESSAGES
05011  M01S04316.rec     +++| IDMJ     BSSZ   15
05012  M01S04317.rec     +++| IDMK     DATA   H*EI, *
05013  M01S04318.rec     +++| IDML     BSSZ   6
05014  M01S04319.rec     +++|
05015  M01S04320.rec     +++| IDMM     DATA   H*    ABST, *  SYSTEM TITLE MESSGE
05016  M01S04321.rec     +++| IDMM2    BSSZ   24          MESSAGE BUFFER
05017  M01S04322.rec     +++| IDMM1L   EQU    *-IDMM
05018  M01S04323.rec     +++|
05019  M01S04324.rec     +++| IDMN     DATA   H*    ABSV, *   SYSTEM VERSION MESSAGE
05020  M01S04325.rec     +++| IDMN2    BSSZ   12          MESSAGE BUFFER
05021  M01S04326.rec     +++| IDMN1L   EQU    *-IDMN
05022  M01S04327.rec     +++| BRM      SPACE  4,10
05023  M01S04328.rec     +++|**        BRM - BUFFERED I/O RECOVERY MESSAGE GENERATOR.
05024  M01S04329.rec     +++|*
05025  M01S04330.rec     +++|*         USES   CM - CM+4.
05026  M01S04331.rec     +++|*
05027  M01S04332.rec     +++|*         CALLS  IGM, IPM.
05028  M01S04333.rec     +++|
05029  M01S04334.rec     +++|
05030  M01S04335.rec     +++| BRM      SUBR               ENTRY/EXIT
05031  M01S04336.rec     +++|          LDC    BIOL
05032  M01S04337.rec     +++|          CRD    CM
05033  M01S04338.rec     +++|          LDD    CM+1
05034  M01S04339.rec     +++|          ADD    CM+2
05035  M01S04340.rec     +++|          ZJN    BRMX        IF BUFFERED I/O NOT DEFINED
05036  M01S04341.rec     +++|          RJM    IGM         ISSUE GENERAL MESSAGES
05037  M01S04342.rec     +++|          RJM    IPM         ISSUE *PUT* RELATED MESSAGES
05038  M01S04343.rec     +++|          UJN    BRMX        RETURN
05039  M01S04344.rec     +++| IGM      SPACE  4,10
05040  M01S04345.rec     +++|**        IGM - ISSUE GENERAL RECOVERY MESSAGES.
05041  M01S04346.rec     +++|*
05042  M01S04347.rec     +++|*         USES - T3, CM - CM+4, FN - FN+4.
05043  M01S04348.rec     +++|*
05044  M01S04349.rec     +++|*         CALLS  DFM.
05045  M01S04350.rec     +++|
05046  M01S04351.rec     +++|
05047  M01S04352.rec     +++| IGM      SUBR               ENTRY/EXIT
05048  M01S04353.rec     +++|          LDN    REML
05049  M01S04354.rec     +++|          CRD    FN
05050  M01S04355.rec     +++|          LDD    FN+4
05051  M01S04356.rec     +++|          ZJN    IGMX        IF NO MESSAGES TO ISSUE
05052  M01S04357.rec     +++|          LDC    IGMA+ERLN   ISSUE HEADER MESSAGE
05053  M01S04358.rec     +++|          RJM    DFM
05054  M01S04359.rec     +++|*         LDN    0           INITIALIZE POINTER
05055  M01S04360.rec     +++|          STD    T3
05056  M01S04361.rec     +++| IGM1     LDD    FN+4
05057  M01S04362.rec     +++|          SHN    21-0
05058  M01S04363.rec     +++|          STD    FN+4
05059  M01S04364.rec     +++|          PJN    IGM2        IF MESSAGE NOT SELECTED
05060  M01S04365.rec     +++|          LDM    IGMB,T3
05061  M01S04366.rec     +++|          ADC    ERLN
05062  M01S04367.rec     +++|          RJM    DFM
05063  M01S04368.rec     +++| IGM2     AOD    T3
05064  M01S04369.rec     +++|          LMN    IGMBL
05065  M01S04370.rec     +++|          ZJN    IGMX        IF END OF MESSAGES
05066  M01S04371.rec     +++|          UJN    IGM1        CHECK NEXT MESSAGE
05067  M01S04372.rec     +++|
05068  M01S04373.rec     +++|
05069  M01S04374.rec     +++| IGMA     DATA   C* BUFFERED I/O RECOVERY ERRORS.*
05070  M01S04375.rec     +++| IGMB     CON    =C*   WRITE LIST LINKAGE ERROR.*
05071  M01S04376.rec     +++|          CON    =C*   READ DATA ON WRITE LIST.*
05072  M01S04377.rec     +++|          CON    =C*   INTERLOCKED BUFFER ON WRITE LIST.*
05073  M01S04378.rec     +++|          CON    =C*   WRITE LIST BUFFER COUNT.*
05074  M01S04379.rec     +++|          CON    =C*   NON-LINKED WRITE BUFFER.*
05075  M01S04380.rec     +++| IGMBL    EQU    *-IGMB
05076  M01S04381.rec     +++| IPM      SPACE  4,10
05077  M01S04382.rec     +++|**        IPM - ISSUE *PUT* RELATED RECOVERY ERROR MESSAGES.
05078  M01S04383.rec     +++|*
05079  M01S04384.rec     +++|*         USES   T3, CM - CM+4, CN - CN+4, FN - FN+4.
05080  M01S04385.rec     +++|*
05081  M01S04386.rec     +++|*         CALLS  DFM.
05082  M01S04387.rec     +++|
05083  M01S04388.rec     +++|
05084  M01S04389.rec     +++| IPM      SUBR               ENTRY/EXIT
05085  M01S04390.rec     +++|          LDC    BIOL        SET UP *PUT* SCAN
05086  M01S04391.rec     +++|          CRD    CM
05087  M01S04392.rec     +++|          LDD    CM+1
05088  M01S04393.rec     +++|          SHN    14
05089  M01S04394.rec     +++|          LMD    CM+2
05090  M01S04395.rec     +++|          ADN    PUTP        READ *PUT* POINTERS
05091  M01S04396.rec     +++|          CRD    CN
05092  M01S00001.ns2682  +++|          LDD    CN+3        CLEAR FLAGS
05093  M01S00002.ns2682  +++|          LPN    77
05094  M01S00003.ns2682  +++|          STD    CN+3
05095  M01S04397.rec     +++|          AOD    CN
05096  M01S04398.rec     +++| IPM1     SOD    CN
05097  M01S04399.rec     +++|          ZJN    IPMX        IF END OF *PUT* ENTRIES
05098  M01S04400.rec     +++|          LDN    PUTL        INCREMENT *PUT* ADDRESS
05099  M01S04401.rec     +++|          RAD    CN+4
05100  M01S04402.rec     +++|          SHN    -14
05101  M01S04403.rec     +++|          RAD    CN+3
05102  M01S04404.rec     +++|          SHN    14
05103  M01S04405.rec     +++|          LMD    CN+4
05104  M01S04406.rec     +++|          ADK    UNCT
05105  M01S04407.rec     +++|          CRD    CM
05106  M01S04408.rec     +++|          ADN    PILL-UNCT
05107  M01S04409.rec     +++|          CRD    FN
05108  M01S04410.rec     +++|          LDD    FN
05109  M01S04411.rec     +++|          ZJN    IPM1        IF NO ERRORS FOR THIS *PUT*
05110  M01S04412.rec     +++|          LDD    CM+1        SET EST ORDINAL IN MESSAGE
05111  M01S04413.rec     +++|          RJM    C2D
05112  M01S04414.rec     +++|          STM    IPMA+21
05113  M01S04415.rec     +++|          LDD    CM+1
05114  M01S04416.rec     +++|          SHN    -6
05115  M01S04417.rec     +++|          ADC    2RQ0
05116  M01S04418.rec     +++|          STM    IPMA+20
05117  M01S04419.rec     +++|          LDC    IPMA+ERLN   ISSUE HEADER MESSAGE
05118  M01S04420.rec     +++|          RJM    DFM
05119  M01S04421.rec     +++|*         LDN    0
05120  M01S04422.rec     +++|          STD    T3
05121  M01S04423.rec     +++| IPM2     LDD    FN
05122  M01S04424.rec     +++|          SHN    21-0
05123  M01S04425.rec     +++|          STD    FN
05124  M01S04426.rec     +++|          PJN    IPM3        IF MESSAGE NOT SELECTED
05125  M01S04427.rec     +++|          LDM    IPMB,T3
05126  M01S04428.rec     +++|          ADC    ERLN
05127  M01S04429.rec     +++|          RJM    DFM
05128  M01S04430.rec     +++| IPM3     AOD    T3
05129  M01S04431.rec     +++|          LMN    IPMBL
05130  M01S04432.rec     +++|          NJN    IPM2        IF NOT END OF MESSAGES
05131  M01S04433.rec     +++|          LJM    IPM1        LOOP FOR NEXT *PUT*
05132  M01S04434.rec     +++|
05133  M01S04435.rec     +++|
05134  M01S04436.rec     +++| IPMA     DATA   C* BUFFERED I/O RECOVERY ERRORS  EQXXX.*
05135  M01S04437.rec     +++|
05136  M01S04438.rec     +++| IPMB     CON    =C*   I/O QUEUE SIZE ERROR.*
05137  M01S04439.rec     +++|          CON    =C*   I/O QUEUE LINKAGE ERROR.*
05138  M01S04440.rec     +++|          CON    =C$   I/0 QUEUE *PUT* ORDINAL ERROR.$
05139  M01S04441.rec     +++| IPMBL    EQU    *-IPMB
05140  M01S04442.rec     +++|          SPACE  4,10
05141  M01S04443.rec     +++|          USE    LITERALS
05142  M01S04444.rec     +++|          OVERFLOW IDMX
05143  M01S04445.rec     +++|          QUAL
05144  M01S04446.rec     +++|          TTL    REC/4RF - MANAGED TABLE RECOVERY.
05145  M01S04447.rec     +++|          TITLE
05146  M01S04448.rec     +++|          QUAL   MTR
05147  M01S04449.rec     +++|          IDENT  4RF,MTRX
05148  M01S04450.rec     +++|*COMMENT  REC - MANAGED TABLE RECOVERY.
Line S04451 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05149  M02S04451.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1983.
05150  M01S00007.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05151  M01S04452.rec     +++| MTR      SPACE  4,10
05152  M01S04453.rec     +++|***       MTR - MANAGED TABLE RECOVERY.
05153  M01S04454.rec     +++|          SPACE  4,10
05154  M01S04455.rec     +++|          ORG    OVLC
05155  M01S04456.rec     +++|
05156  M01S04457.rec     +++|
05157  M01S04458.rec     +++|**        MTR - MANAGED TABLE RECOVERY.
05158  M01S04459.rec     +++|*
05159  M01S04460.rec     +++|*         EXIT   (EJTA) = PRIMARY FILE VALIDATION FLAG.
05160  M01S04461.rec     +++|*                (RPFA) = MASS STORAGE VALIDATION FLAG.
05161  M01S04462.rec     +++|*
05162  M01S04463.rec     +++|*         USES   CN - CN+4.
05163  M01S04464.rec     +++|
05164  M01S04465.rec     +++|
05165  M01S04466.rec     +++| MTR      SUBR               ENTRY/EXIT
05166  M01S04467.rec     +++|          LDN    SSTL        READ SYSTEM STATUS
05167  M01S04468.rec     +++|          CRD    CN
05168  M01S04469.rec     +++|          LDD    CN
05169  M01S04470.rec     +++|          LPN    4
05170  M01S04471.rec     +++|          NJN    MTRX        IF MASS STORAGE VALIDATION NOT PRESENT
05171  M01S04472.rec     +++|          LDD    RS
05172  M01S04473.rec     +++|          SHN    21-6
05173  M01S04474.rec     +++|          ERRNZ  JBCM-100    ADJUST IF VALUE CHANGES
05174  M01S04475.rec     +++|          PJN    MTR1        IF NOT CM RECOVERY
05175  M01S04476.rec     +++|          LDD    CN
05176  M01S04477.rec     +++|          LPN    20
05177  M01S04478.rec     +++|          NJN    MTRX        IF FILE VALIDATION DISABLED
05178  M01S04479.rec     +++|          LDC    LDDI+QA     ENABLE PRIMARY FILE VALIDATION
05179  M01S04480.rec     +++|          STM    EJTA
05180  M01S00001.rec22   +++|          LDK    LDNI+PMFT
05181  M01S00002.rec22   +++|          STM    FNTA
05182  M01S04481.rec     +++| MTR1     SOM    RECA
05183  M01S04482.rec     +++|          UJN    MTRX        RETURN
05184  M01S04483.rec     +++| CNA      SPACE  4,10
05185  M01S04484.rec     +++|**        CNA - CLEAR NON-ROLLABLE ACCESS FLAG.
05186  M01S04485.rec     +++|*
05187  M01S04486.rec     +++|*         ENTRY  (FS - FS+4) = FST ENTRY.
05188  M01S04487.rec     +++|*
05189  M01S04488.rec     +++|*         USES   T5, T6, CM - CM+4.
05190  M01S04489.rec     +++|*
05191  M01S04490.rec     +++|*         CALLS  RSS, WSS.
05192  M01S04491.rec     +++|*
05193  M01S04492.rec     +++|*         MACROS ENDMS, SETMS, SFA.
05194  M01S04493.rec     +++|
05195  M01S04494.rec     +++|
05196  M01S04495.rec     +++| CNA      SUBR               ENTRY/EXIT
05197  M01S04496.rec     +++|          LDD    FS          SET EQUIPMENT
05198  M01S04497.rec     +++|          STD    T5
05199  M01S04498.rec     +++|          SFA    EST         FETCH EST ENTRY
05200  M01S04499.rec     +++|          ADK    EQDE
05201  M01S04500.rec     +++|          CRD    CM
05202  M01S04501.rec     +++|          LDD    CM
05203  M01S04502.rec     +++|          LPN    20
05204  M01S04503.rec     +++|          ZJN    CNAX        IF NOT INDEPENDENT SHARED DEVICE
05205  M01S04504.rec     +++|          SETMS  IO,RW
05206  M01S04505.rec     +++|          LDD    FS+1        SET FIRST TRACK
05207  M01S04506.rec     +++|          STD    T6
05208  M01S04507.rec     +++|          LDN    0           SET NO FILE NAME VERIFICATION
05209  M01S04508.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
05210  M01S04509.rec     +++|          NJN    CNA1        IF SYSTEM SECTOR ERROR
Line S04510 Modification History
M01 (Added by) rec
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
05211  M02S04510.ns2729  ---|          LDM    CASS        CLEAR NON-ROLLABLE ACCESS
05212  M01S00005.ns2729  +++|          LDM    /COMSPFM/CASS  CLEAR NON-ROLLABLE ACCESS
05213  M01S04511.rec     +++|          LPC    7545
Line S04512 Modification History
M01 (Added by) rec
M02 (Updated by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
05214  M02S04512.ns2729  ---|          STM    CASS
05215  M01S00006.ns2729  +++|          STM    /COMSPFM/CASS
05216  M01S04513.rec     +++|          RJM    WSS         REWRITE SYSTEM SECTOR
05217  M01S04514.rec     +++| CNA1     ENDMS
05218  M01S04515.rec     +++|          UJN    CNAX        RETURN
05219  M01S04516.rec     +++| CLT      SPACE  4,15
05220  M01S04517.rec     +++|**        CLT - PROCESS COMMON LIBRARIES TABLE RECOVERY.
05221  M01S04518.rec     +++|*
05222  M01S04519.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05223  M01S04520.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05224  M01S04521.rec     +++|*                (QA) = (QI) = 0.
05225  M01S04522.rec     +++|*
05226  M01S04523.rec     +++|*         EXIT   (A) = 0 IF VALIDATION INFORMATION CLEARED FROM TABLE.
05227  M01S04524.rec     +++|*
05228  M01S04525.rec     +++|*         USES   LM, QA, CM - CM+4, FN - FN+4, FS - FS+4.
05229  M01S04526.rec     +++|*
05230  M01S04527.rec     +++|*         MACROS SFA.
05231  M01S04528.rec     +++|
05232  M01S04529.rec     +++|
05233  M01S04530.rec     +++| CLT3     LDN    1           RETURN ERROR INDICATOR
05234  M01S04531.rec     +++|
05235  M01S04532.rec     +++| CLT      SUBR               ENTRY/EXIT
05236  M01S04533.rec     +++|          LDD    EC
05237  M01S04534.rec     +++|          ZJN    CLTX        IF NO COMMON LIBRARIES TABLE EXISTS
05238  M01S04535.rec     +++| CLT1     SOD    LM
05239  M01S04536.rec     +++|          ZJN    CLTX        IF ALL ASSIGNED ENTRIES CHECKED
05240  M01S04537.rec     +++| CLT2     AOD    QA
05241  M01S04538.rec     +++|          LMD    EC
05242  M01S04539.rec     +++|          ZJN    CLT3        IF END OF CLT
05243  M01S04540.rec     +++|          SFA    CLT,QA      READ CLT ENTRY
05244  M01S04541.rec     +++|          CRD    CM
05245  M01S04542.rec     +++|          ADN    CLTF-CLTU
05246  M01S04543.rec     +++|          CRD    FN
05247  M01S04544.rec     +++|          ADN    CLTV-CLTF
05248  M01S04545.rec     +++|          CRD    FS
05249  M01S04546.rec     +++|          LDD    CM
05250  M01S04547.rec     +++|          ZJN    CLT2        IF EMPTY ENTRY
05251  M01S04548.rec     +++|          LDD    CM+3        CLEAR USER INDEX
05252  M01S04549.rec     +++|          SCN    77
05253  M01S04550.rec     +++|          STD    CM+3
05254  M01S04551.rec     +++|          LDN    0
05255  M01S04552.rec     +++|          STD    CM+4
05256  M01S04553.rec     +++|          STD    FN+4        CLEAR FAMILY EQUIPMENT
05257  M01S04554.rec     +++|          STD    FS+4        CLEAR PF VALIDATION
05258  M01S04555.rec     +++|          SFA    CLT,QA      REWRITE COMMON LIBRARIES ENTRY
05259  M01S04556.rec     +++|          CWD    CM          WRITE USER NAME
05260  M01S04557.rec     +++|          ADN    CLTF-CLTU   WRITE FAMILY NAME
05261  M01S04558.rec     +++|          CWD    FN
05262  M01S04559.rec     +++|          ADN    CLTV-CLTF   WRITE PF VALIDATION
05263  M01S04560.rec     +++|          CWD    FS
05264  M01S04561.rec     +++|          UJN    CLT1        LOOP FOR NEXT ENTRY
05265  M01S04562.rec     +++| EJT      SPACE  4,15
05266  M01S04563.rec     +++|**        EJT - PROCESS EXECUTING JOB TABLE RECOVERY.
05267  M01S04564.rec     +++|*
05268  M01S04565.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05269  M01S04566.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05270  M01S04567.rec     +++|*                (QA) = (QI) = (QT) = 0.
05271  M01S04568.rec     +++|*
05272  M01S04569.rec     +++|*         EXIT   (A) = 0 IF TABLE FULLY RECOVERED.
05273  M01S04570.rec     +++|*
05274  M01S04571.rec     +++|*         USES   LM, QA, QI, T5 - T7, CM - CM+1, FN - FN+4,
05275  M01S04572.rec     +++|*                FS - FS+4.
05276  M01S04573.rec     +++|*
05277  M01S04574.rec     +++|*         CALLS  RRF, VEI.
05278  M01S04575.rec     +++|*
05279  M01S04576.rec     +++|*         MACROS SFA.
05280  M01S04577.rec     +++|
05281  M01S04578.rec     +++|
05282  M01S04579.rec     +++| EJT7     LDN    1           RETURN ERROR INDICATOR
05283  M01S04580.rec     +++|
05284  M01S04581.rec     +++| EJT      SUBR               ENTRY/EXIT
05285  M01S04582.rec     +++| EJT1     LDD    QI          CHECK JOB STATUS
05286  M01S04583.rec     +++| EJT2     SBN    MXJS
05287  M01S04584.rec     +++|          PJN    EJT3        IF NON-STANDARD STATUS
05288  M01S04585.rec     +++|          AOM    EJCT,QI
05289  M01S04586.rec     +++| EJT3     SOD    LM
05290  M01S04587.rec     +++|          ZJN    EJTX        IF ALL ASSIGNED ENTRIES CHECKED
05291  M01S04588.rec     +++| EJT4     AOD    QA
05292  M01S04589.rec     +++|          LMD    EC
05293  M01S04590.rec     +++|          ZJN    EJT7        IF END OF EJT
05294  M01S04591.rec     +++|          SFA    EJT,QA
05295  M01S04592.rec     +++|          ADK    JSNE
05296  M01S04593.rec     +++|          CRD    FN          READ EJT ENTRY
05297  M01S04594.rec     +++|          ADN    SCHE-JSNE
05298  M01S04595.rec     +++|          CRD    T5          READ ROLLOUT FILE POINTERS
05299  M01S04596.rec     +++|          ADN    SCLE-SCHE
05300  M01S04597.rec     +++|          CRD    FS          READ JOB ORIGIN TYPE
05301  M01S04598.rec     +++|          LDD    FN
05302  M01S04599.rec     +++|          ZJN    EJT4        IF EMPTY SLOT
05303  M01S04600.rec     +++|          LDD    FN+4
05304  M01S04601.rec     +++|          LPN    77
05305  M01S04602.rec     +++|          SHN    21-0        SET JOB STATUS
05306  M01S04603.rec     +++|          STD    QI
05307  M01S04604.rec     +++|          PJN    EJT5        IF ENTRY NOT BUSY
05308  M01S04605.rec     +++|          LDD    FN+4        CLEAR JOB ADVANCE/BUSY STATUS
05309  M01S04606.rec     +++|          LPC    7676
05310  M01S04607.rec     +++|          STD    FN+4
05311  M01S04608.rec     +++|          SFA    EJT,QA      CLEAR FILE BUSY
05312  M01S04609.rec     +++|          CWD    FN
05313  M01S04610.rec     +++|          LDD    QI          CHECK JOB STATUS
05314  M01S04611.rec     +++| EJT5     LMK    PRJS
05315  M01S04612.rec     +++|          ZJN    EJT6        IF PRE-INITIAL JOB STATUS
Line S04613 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05316  M02S04613.273l780 ---|          LMK    EXJS&PRJS
05317  M01S00155.273l780 +++|          LMK    PWJS&PRJS
05318  M01S00156.273l780 +++|          ZJN    EJT6        IF PRE-INITIAL WAIT JOB STATUS
05319  M01S00157.273l780 +++|          LMK    EXJS&PWJS
05320  M01S04614.rec     +++|          ZJN    EJT6        IF EXECUTING JOB STATUS
05321  M01S04615.rec     +++|          LMK    NVJS&EXJS
05322  M01S04616.rec     +++|          ZJN    EJT6        IF NVE ENTRY
Line S04617 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05323  M02S04617.273l780 ---|          LMK    ERJS&NVJS
Line S04618 Modification History
M01 (Added by) rec
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
05324  M02S04618.273l780 ---|          ZJN    EJT6        IF I/O ERROR ON ROLLOUT FILE
05325  M01S04619.rec     +++|          RJM    RRF         READ ROLLOUT FILE
05326  M01S04620.rec     +++| EJTA     UJN    EJT6        PROCESS NEXT ENTRY
05327  M01S04621.rec     +++|*         LDD    QA          (MS VALIDATION ENABLED ON CM RECOVERY)
05328  M01S04622.rec     +++|          SFA    EJT
05329  M01S04623.rec     +++|          ADN    PRFE        FETCH PRIMARY FILE POINTERS
05330  M01S04624.rec     +++|          CRD    FS-3
05331  M01S04625.rec     +++|          RJM    VEI         VERIFY PRIMARY FILE
05332  M01S04626.rec     +++| EJT6     LJM    EJT1        PROCESS NEXT ENTRY
05333  M01S04627.rec     +++| FNT      SPACE  4,15
05334  M01S04628.rec     +++|**        FNT - PROCESS FILE NAME TABLE RECOVERY.
05335  M01S04629.rec     +++|*
05336  M01S04630.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05337  M01S04631.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05338  M01S04632.rec     +++|*                (QA) = (QI) = 0.
05339  M01S04633.rec     +++|*
05340  M01S04634.rec     +++|*         EXIT   (A) = 0 IF TABLE FULLY RECOVERED.
05341  M01S04635.rec     +++|*
05342  M01S04636.rec     +++|*         USES   LM, QA, QT, CM - CM+4, FN - FN+4, FS - FS+4.
05343  M01S04637.rec     +++|*
05344  M01S04638.rec     +++|*         CALLS  CNA, VEI.
05345  M01S04639.rec     +++|*
05346  M01S04640.rec     +++|*         MACROS MONITOR, SFA.
05347  M01S04641.rec     +++|
05348  M01S04642.rec     +++|
05349  M01S04643.rec     +++| FNT7     LDN    1           RETURN ERROR INDICATOR
05350  M01S04644.rec     +++|
05351  M01S04645.rec     +++| FNT      SUBR               ENTRY/EXIT
05352  M01S04646.rec     +++| FNT1     SOD    LM
05353  M01S04647.rec     +++|          ZJN    FNTX        IF ALL ASSIGNED ENTRIES CHECKED
05354  M01S04648.rec     +++| FNT2     AOD    QA
05355  M01S04649.rec     +++|          LMD    EC
05356  M01S04650.rec     +++|          ZJN    FNT7        IF END OF FNT
05357  M01S04651.rec     +++|          SFA    FNT,QA
05358  M01S04652.rec     +++|          CRD    FN          READ FNT ENTRY
05359  M01S04653.rec     +++|          ADN    FSTG
05360  M01S04654.rec     +++|          CRD    FS
05361  M01S04655.rec     +++|          LDD    FN
05362  M01S04656.rec     +++|          ZJN    FNT2        IF EMPTY SLOT
05363  M01S04657.rec     +++|          LDD    FN+4
05364  M01S04658.rec     +++|          SHN    -6
05365  M01S04659.rec     +++|          LMN    SYFT
05366  M01S04660.rec     +++|          ZJN    FNT3        IF INACTIVE FAST ATTACH FILE
05367  M01S04661.rec     +++|          LMN    FAFT&SYFT
05368  M01S04662.rec     +++|          NJN    FNT5        IF NOT ACTIVE FAST ATTACH FILE
05369  M01S04663.rec     +++|          AOM    MSCT+FACT
05370  M01S04664.rec     +++|          LDD    FS+4
05371  M01S04665.rec     +++|          SHN    21-1
05372  M01S04666.rec     +++|          PJN    FNT3        IF NOT ATTACHED WITH NON-ROLLABLE OPTION
05373  M01S04667.rec     +++|          LDD    FS+4        CLEAR NON-ROLLABLE ACCESS IN FST
05374  M01S04668.rec     +++|          LPC    375
05375  M01S04669.rec     +++|          STD    FS+4
05376  M01S04670.rec     +++|          RJM    CNA         CLEAR SYSTEM SECTOR FLAG
05377  M01S04671.rec     +++| FNT3     LDD    FN+4
05378  M01S04672.rec     +++|          SCN    1
05379  M01S04673.rec     +++|          STD    FN+4
05380  M01S04674.rec     +++|          SFA    FNT,QA      CLEAR FILE BUSY
05381  M01S04675.rec     +++|          CWD    FN
05382  M01S04676.rec     +++|          ADN    FSTG
05383  M01S04677.rec     +++|          CWD    FS
05384  M01S04678.rec     +++| FNT4     LJM    FNT1        LOOP FOR NEXT ENTRY
05385  M01S04679.rec     +++|
05386  M01S04680.rec     +++| FNT5     LMN    PMFT&FAFT
05387  M01S04681.rec     +++|          ZJN    FNT6        IF *CPD* SAMPLE FILE
05388  M01S04682.rec     +++|          LDD    QA
05389  M01S04683.rec     +++|          STD    CM+1
05390  M01S04684.rec     +++|          LDN    PFNT        RELEASE FNT ENTRY
05391  M01S04685.rec     +++|          STD    CM+2
05392  M01S04686.rec     +++|          MONITOR  MTRM
05393  M01S04687.rec     +++|          UJN    FNT4        LOOP FOR NEXT ENTRY
05394  M01S04688.rec     +++|
Line S04689 Modification History
M01 (Added by) rec
M02 (Updated by) rec22
Seq #  *Modification Id* Act 
----------------------------+
05395  M02S04689.rec22   ---| FNT6     LDN    PMFT        SET UP EOI VERIFICATION
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  M01S04690.rec     +++|          STD    QT
05400  M01S04691.rec     +++|          RJM    VEI         VERIFY EOI
05401  M01S04692.rec     +++|          UJN    FNT4        LOOP FOR NEXT ENTRY
05402  M01S04693.rec     +++| LLF      SPACE  4,15
05403  M01S04694.rec     +++|**        LLF - LOCATE LIBRARY FILE.
05404  M01S04695.rec     +++|*
05405  M01S04696.rec     +++|*         ENTRY  (FS+1) = ADDRESS OF FNT ENTRY IN BUFFER.
05406  M01S04697.rec     +++|*                (QA) = EJT ORDINAL.
05407  M01S04698.rec     +++|*                (FN - FN+4) = FIRST WORD OF EJT ENTRY.
05408  M01S04699.rec     +++|*
05409  M01S04700.rec     +++|*         EXIT   ERROR FLAG SET TO *DRET* IF FILE IS *LIFT* AND
05410  M01S04701.rec     +++|*                THE TRACK INTERLOCK FLAG IS SET IN THE FST.
05411  M01S04702.rec     +++|*
05412  M01S04703.rec     +++|*         USES   CM - CM+4.
05413  M01S04704.rec     +++|*
05414  M01S04705.rec     +++|*         MACROS MONITOR.
05415  M01S04706.rec     +++|
05416  M01S04707.rec     +++|
05417  M01S04708.rec     +++| LLF      SUBR               ENTRY/EXIT
05418  M01S04709.rec     +++|          LDM    4,FS+1
05419  M01S04710.rec     +++|          SHN    -6
05420  M01S04711.rec     +++|          LMN    LIFT
05421  M01S04712.rec     +++|          NJN    LLFX        IF NOT LIBRARY TYPE FILE
05422  M01S04713.rec     +++|          LDM    11,FS+1
05423  M01S04714.rec     +++|          SHN    21-9D
05424  M01S04715.rec     +++|          PJN    LLFX        IF TRACK INTERLOCK NOT SET
05425  M01S04716.rec     +++|          LDC    4000+DRET   SET ERROR FLAG
05426  M01S04717.rec     +++|          STD    CM+1
05427  M01S04718.rec     +++|          LDD    QA          SET EJT ORDINAL
05428  M01S04719.rec     +++|          STD    CM+2
05429  M01S04720.rec     +++|          LDD    FN          SET JSN
05430  M01S04721.rec     +++|          STD    CM+3
05431  M01S04722.rec     +++|          LDD    FN+1
05432  M01S04723.rec     +++|          STD    CM+4
05433  M01S04724.rec     +++|          MONITOR  CEFM      CHANGE ERROR FLAG
05434  M01S04725.rec     +++|          UJN    LLFX        RETURN
05435  M01S04726.rec     +++| QFT      SPACE  4,15
05436  M01S04727.rec     +++|**        QFT - PROCESS QUEUE FILE TABLE RECOVERY.
05437  M01S04728.rec     +++|*
05438  M01S04729.rec     +++|*         ENTRY  (EC) = NUMBER OF TABLE ENTRIES.
05439  M01S04730.rec     +++|*                (LM) = NUMBER OF ENTRIES IN USE.
05440  M01S04731.rec     +++|*                (EO) = (QA) = (QI) = 0.
05441  M01S04732.rec     +++|*
05442  M01S04733.rec     +++|*         EXIT   (A) = 0 IF TABLE FULLY RECOVERED.
05443  M01S04734.rec     +++|*
05444  M01S04735.rec     +++|*         USES   LM, QA, QI, CM - CM+4, FN - FN+4, FS - FS+4.
05445  M01S04736.rec     +++|*
05446  M01S04737.rec     +++|*         CALLS  UQE, *0DQ*.
05447  M01S04738.rec     +++|*
05448  M01S04739.rec     +++|*         MACROS EXECUTE, SFA.
05449  M01S04740.rec     +++|
05450  M01S04741.rec     +++|
05451  M01S04742.rec     +++| QFT10    LDN    1           RETURN ERROR INDICATOR
05452  M01S04743.rec     +++|
05453  M01S04744.rec     +++| QFT      SUBR               ENTRY/EXIT
05454  M01S04745.rec     +++| QFT1     AOM    QFCT,QI
05455  M01S04746.rec     +++| QFT2     SOD    LM
05456  M01S04747.rec     +++|          ZJN    QFTX        IF ALL ASSIGNED ENTRIES CHECKED
05457  M01S04748.rec     +++| QFT3     AOD    QA
05458  M01S04749.rec     +++|          LMD    EC
05459  M01S04750.rec     +++|          ZJN    QFT10       IF END OF QFT
05460  M01S04751.rec     +++|          SFA    QFT,QA
05461  M01S04752.rec     +++|          ADK    JSNQ
05462  M01S04753.rec     +++|          CRD    FN          READ QFT ENTRY
05463  M01S04754.rec     +++|          ADN    ENTQ-JSNQ
05464  M01S04755.rec     +++|          CRD    FS
05465  M01S04756.rec     +++|          ADN    SCLQ-ENTQ
05466  M01S04757.rec     +++|          CRD    CM
05467  M01S04758.rec     +++|          LDD    FN
05468  M01S04759.rec     +++|          ZJN    QFT3        IF EMPTY SLOT
05469  M01S04760.rec     +++|          LDD    FN+4
05470  M01S04761.rec     +++|          SHN    -11
05471  M01S04762.rec     +++|          STD    QI          SET QUEUE TYPE
05472  M01S04763.rec     +++|          LDD    FN+4        CHECK FOR *SOQF* OR *SQQF* FILE
05473  M01S04764.rec     +++|          SHN    -6
05474  M01S04765.rec     +++|          LMN    SOQF
05475  M01S04766.rec     +++|          ZJN    QFT8        IF *SOQF*
05476  M01S04767.rec     +++|          LMN    SQQF&SOQF
05477  M01S04768.rec     +++|          ZJN    QFT8        IF *SQQF*
05478  M01S04769.rec     +++|          LDD    FN+4
05479  M01S04770.rec     +++|          LPN    6
05480  M01S04771.rec     +++|          NJN    QFT6        IF CREATION MODE AND/OR ASSIGNED
05481  M01S04772.rec     +++|          LDD    QI
05482  M01S04773.rec     +++|          LMK    INQT
05483  M01S04774.rec     +++|          NJN    QFT4        IF NOT INPUT FILE
05484  M01S04775.rec     +++|          LDD    CM
05485  M01S04776.rec     +++|          LPN    77
05486  M01S04777.rec     +++|          LMN    IAOT
05487  M01S04778.rec     +++|          ZJN    QFT8        IF INTERACTIVE INPUT FILE
05488  M01S04779.rec     +++| QFT4     LDD    FN+4
05489  M01S04780.rec     +++|          LPN    1
05490  M01S04781.rec     +++|          ZJN    QFT5        IF ENTRY NOT INTERLOCKED
05491  M01S04782.rec     +++|          SOD    FN+4
05492  M01S04783.rec     +++|          SFA    QFT,QA      CLEAR FILE BUSY
05493  M01S04784.rec     +++|          CWD    FN
05494  M01S04785.rec     +++| QFT5     LJM    QFT1        LOOP FOR NEXT ENTRY
05495  M01S04786.rec     +++|
05496  M01S04787.rec     +++| QFT6     LPN    4
05497  M01S04788.rec     +++|          NJN    QFT7        IF CREATION MODE
05498  M01S04789.rec     +++|          LDD    FS+4
05499  M01S04790.rec     +++|          NJN    QFT4        IF ASSIGNED TO EXECUTING JOB
05500  M01S04791.rec     +++|          RJM    UQE
05501  M01S04792.rec     +++|          UJN    QFT5        LOOP FOR NEXT ENTRY
05502  M01S04793.rec     +++|
05503  M01S04794.rec     +++| QFT7     LDN    1
05504  M01S04795.rec     +++|
05505  M01S04796.rec     +++|*         CALL *0DQ*.
05506  M01S04797.rec     +++|
05507  M01S04798.rec     +++| QFT8     STM    ZDLA-1      DEQUEUE FILE
05508  M01S04799.rec     +++|          EXECUTE  0DQ,ZDLA
05509  M01S04800.rec     +++| QFT9     LJM    QFT2        LOOP FOR NEXT ENTRY
05510  M01S04801.rec     +++| RRF      SPACE  4,15
05511  M01S04802.rec     +++|**        RRF - READ ROLLOUT FILE.
05512  M01S04803.rec     +++|*
05513  M01S04804.rec     +++|*         ENTRY  (T5) = ROLLOUT FILE EST ORDINAL.
05514  M01S04805.rec     +++|*                (T6) = ROLLOUT FILE FIRST TRACK.
05515  M01S04806.rec     +++|*                (FS - FS+4) = *SCLE* WORD OF EJT ENTRY.
05516  M01S04807.rec     +++|*                (FN - FN+4) = *JSNE* WORD OF EJT ENTRY.
05517  M01S04808.rec     +++|*
05518  M01S04809.rec     +++|*         USES   FS - FS+4, T1, T2, T7, CN.
05519  M01S04810.rec     +++|*
05520  M01S04811.rec     +++|*         CALLS  LLF, RNS, RSS.
05521  M01S04812.rec     +++|*
05522  M01S04813.rec     +++|*         MACROS ENDMS, SETMS.
05523  M01S04814.rec     +++|
05524  M01S04815.rec     +++|
05525  M01S04816.rec     +++| RRF      SUBR               ENTRY/EXIT
05526  M01S04817.rec     +++|          LDD    T5
05527  M01S04818.rec     +++|          ZJN    RRFX        IF NO ROLLOUT FILE
05528  M01S04819.rec     +++|          SETMS  IO
05529  M01S04820.rec     +++|          LDN    0
05530  M01S04821.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
05531  M01S04822.rec     +++|          NJN    RRFX        IF ERROR
05532  M01S04823.rec     +++|          LDC    BUF         READ CONTROL POINT AREA
05533  M01S04824.rec     +++|          RJM    RNS
05534  M01S04825.rec     +++|          MJN    RRFX        IF ERROR
05535  M01S04826.rec     +++|          AOD    T7          SKIP SECOND CP AREA SECTOR
05536  M01S04827.rec     +++|          LDM    BUF+2+FLSW*5  GET NFL SIZE
05537  M01S04828.rec     +++|          SBN    FNTS-1
05538  M01S04829.rec     +++|          STD    CN          SET NUMBER OF FNT SECTORS
05539  M01S04830.rec     +++|          LDD    FS          CHECK ORIGIN TYPE
05540  M01S04831.rec     +++|          LPN    17
05541  M01S04832.rec     +++|          LMN    IAOT
05542  M01S04833.rec     +++|          NJN    RRF3        IF NOT INTERACTIVE ORIGIN
05543  M01S04834.rec     +++| RRF1     LDC    BUF         SKIP TERMINAL OUTPUT
05544  M01S04835.rec     +++|          RJM    RNS
05545  M01S04836.rec     +++| RRF2     MJN    RRFX        IF ERROR
05546  M01S04837.rec     +++|          LDD    T1
05547  M01S04838.rec     +++|          SHN    -6
05548  M01S04839.rec     +++|          NJN    RRF1        IF MORE DATA SECTORS
05549  M01S04840.rec     +++| RRF3     LDC    SBUF        INITIALIZE SEARCH ADDRESS
05550  M01S04841.rec     +++|          STD    FS+1
05551  M01S04842.rec     +++|          SBN    2           INITIALIZE BUFFER POINTER
05552  M01S04843.rec     +++|          STD    FS+2
05553  M01S04844.rec     +++|          LDN    0           SET INITIAL SEARCH MODE FLAG
05554  M01S04845.rec     +++|          STD    T2
05555  M01S04846.rec     +++|          LDN    5           SET INITIAL ADVANCE COUNT
05556  M01S04847.rec     +++|          STD    FS
05557  M01S04848.rec     +++|
05558  M01S04849.rec     +++|*         FILL BUFFER WITH DATA.
05559  M01S04850.rec     +++|
05560  M01S04851.rec     +++| RRF4     LDD    FS+2
05561  M01S04852.rec     +++|          ADC    -SBUF-SBUFL+2
05562  M01S04853.rec     +++|          PJN    RRF6        IF BUFFER IS FULL
05563  M01S04854.rec     +++| RRF5     LDI    FS+2        SAVE TWO BYTES
05564  M01S04855.rec     +++|          STD    FS+3
05565  M01S04856.rec     +++|          LDM    1,FS+2
05566  M01S04857.rec     +++|          STD    FS+4
05567  M01S04858.rec     +++|          LDD    FS+2        READ SECTOR
05568  M01S04859.rec     +++|          RJM    RNS
05569  M01S04860.rec     +++|          MJN    RRF2        IF ERROR
05570  M01S04861.rec     +++|          LDD    FS+3        RESTORE TWO BYTES
05571  M01S04862.rec     +++|          STI    FS+2
05572  M01S04863.rec     +++|          LDD    FS+4
05573  M01S04864.rec     +++|          STM    1,FS+2
05574  M01S04865.rec     +++|          LDC    500         ADVANCE BUFFER POINTER
05575  M01S04866.rec     +++|          RAD    FS+2
05576  M01S04867.rec     +++|          SOD    CN          DECREMENT SECTOR COUNT
05577  M01S04868.rec     +++|          NJN    RRF4        IF MORE TO READ
05578  M01S04869.rec     +++|          LDK    -FNTT*5     ADJUST POINTER TO THE LAST FNT ENTRY
05579  M01S04870.rec     +++|          RAD    FS+2
05580  M01S04871.rec     +++|
05581  M01S04872.rec     +++|*         PROCESS FULL BUFFER.
05582  M01S04873.rec     +++|
05583  M01S04874.rec     +++| RRF6     LDD    FS+2        CHECK FOR END OF BUFFER
05584  M01S04875.rec     +++|          ADN    2
05585  M01S04876.rec     +++|          SBD    FS+1
05586  M01S04877.rec     +++|          SBN    LENF*5
05587  M01S04878.rec     +++|          MJN    RRF9        IF END OF BUFFER
05588  M01S04879.rec     +++|          LDI    FS+1
05589  M01S04880.rec     +++|          ZJN    RRF8        IF EMPTY ENTRY
05590  M01S04881.rec     +++|          LDD    T2
05591  M01S04882.rec     +++|          NJN    RRF7        IF START OF FNT-S PREVIOUSLY FOUND
05592  M01S04883.rec     +++|          AOD    T2          CHANGE SEARCH MODE FLAG
05593  M01S04884.rec     +++|          LDN    LENF*5      CHANGE ADVANCE COUNT
05594  M01S04885.rec     +++|          STD    FS
05595  M01S04886.rec     +++| RRF7     RJM    LLF         LOCATE LIBRARY FILE
05596  M01S04887.rec     +++| RRF8     LDD    FS          ADVANCE TO NEXT ENTRY
05597  M01S04888.rec     +++|          RAD    FS+1
05598  M01S04889.rec     +++|          UJN    RRF6        CHECK NEXT ENTRY
05599  M01S04890.rec     +++|
05600  M01S04891.rec     +++| RRF9     ADN    LENF*5
05601  M01S04892.rec     +++|          STD    T1          SAVE AMOUNT TO MOVE
05602  M01S04893.rec     +++|          LDD    CN
05603  M01S04894.rec     +++|          ZJN    RRF13       IF END OF FNT ENTRIES
05604  M01S04895.rec     +++|          LDD    T1
05605  M01S04896.rec     +++|          NJN    RRF10       IF NOT EXACT END OF BUFFER
05606  M01S04897.rec     +++|          LDC    SBUF        RESET START OF SEARCH
05607  M01S04898.rec     +++|          STD    FS+1
05608  M01S04899.rec     +++|          UJN    RRF12       REFILL BUFFER
05609  M01S04900.rec     +++|
05610  M01S04901.rec     +++|*         MOVE PARTIAL ENTRY TO TOP OF BUFFER.
05611  M01S04902.rec     +++|
05612  M01S04903.rec     +++| RRF10    LDD    FS+1        SET ADDRESS TO MOVE FROM
05613  M01S04904.rec     +++|          STM    RRFA
05614  M01S04905.rec     +++|          LDC    SBUF        SET ADDRESS TO MOVE TO
05615  M01S04906.rec     +++|          SBD    T1
05616  M01S04907.rec     +++|          STM    RRFB
05617  M01S04908.rec     +++|          STD    FS+1        RESET START OF SEARCH
05618  M01S04909.rec     +++|          SOD    T1
05619  M01S04910.rec     +++| RRF11    LDM    **,T1       MOVE PARTIAL ENTRY TO TOP
05620  M01S04911.rec     +++| RRFA     EQU    *-1         (ADDRESS TO MOVE FROM)
05621  M01S04912.rec     +++|          STM    **,T1
05622  M01S04913.rec     +++| RRFB     EQU    *-1         (ADDRESS TO MOVE TO)
05623  M01S04914.rec     +++|          SOD    T1
05624  M01S04915.rec     +++|          PJN    RRF11       IF MORE TO MOVE
05625  M01S04916.rec     +++| RRF12    LDC    SBUF-2      RESET BUFFER POINTER
05626  M01S04917.rec     +++|          STD    FS+2
05627  M01S04918.rec     +++|          LJM    RRF5        REFILL BUFFER
05628  M01S04919.rec     +++|
05629  M01S04920.rec     +++| RRF13    ENDMS              RELEASE MS RESERVATIONS
05630  M01S04921.rec     +++|          LJM    RRFX        RETURN
05631  M01S04922.rec     +++|
05632  M01S04923.rec     +++|
05633  M01S04924.rec     +++| ZDLA     EQU    *+1         *0DQ* LOAD ADDRESS
05634  M01S04925.rec     +++|
05635  M01S04926.rec     +++|          ERRPL  ZDLA+ZDQL-BFMS  OVERFLOW INTO BUFFER
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  M01S04927.rec     +++|          SPACE  4,10
05644  M01S04928.rec     +++|          QUAL
05645  M01S04929.rec     +++| CLT      EQU    /MTR/CLT
05646  M01S04930.rec     +++| EJT      EQU    /MTR/EJT
05647  M01S04931.rec     +++| FNT      EQU    /MTR/FNT
05648  M01S04932.rec     +++| QFT      EQU    /MTR/QFT
05649  M01S04933.rec     +++|          QUAL   *
05650  M01S04934.rec     +++|          TTL    REC/4RG - PROCESS ERROR LOGS.
05651  M01S04935.rec     +++|          TITLE
05652  M01S04936.rec     +++|          QUAL   PEL
05653  M01S04937.rec     +++|          IDENT  4RG,PELX
05654  M01S04938.rec     +++|*COMMENT  REC - PROCESS ERROR LOGS.
Line S04939 Modification History
M01 (Added by) rec
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
05655  M02S04939.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1984.
05656  M01S00008.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
05657  M01S04940.rec     +++| CEL      SPACE  4,10
05658  M01S04941.rec     +++|***       PEL - PROCESS ERROR LOGS.
05659  M01S04942.rec     +++| CEL      SPACE  4,10
05660  M01S04943.rec     +++|*         COMMON DECKS.
05661  M01S04944.rec     +++|
05662  M01S04945.rec     +++|
05663  M01S04946.rec     +++|*CALL     COMPCHM
05664  M01S04947.rec     +++| CEL      SPACE  4,10
05665  M01S04948.rec     +++|*         DIRECT CELL DEFINITIONS.
05666  M01S04949.rec     +++|
05667  M01S04950.rec     +++|
05668  M01S04951.rec     +++| AP       EQU    20 - 24     *DSAL*
05669  M01S04952.rec     +++| SC       EQU    61          ERROR STATUS
05670  M01S04953.rec     +++| EA       EQU    62          ERROR MESSAGE ADDRESS
05671  M01S04954.rec     +++| WX       EQU    63          ASSEMBLY BUFFER INDEX
05672  M01S04955.rec     +++| BX       EQU    64          SUPPLEMENT INDEX
05673  M01S04956.rec     +++| CX       EQU    65          CEL BUFFER INDEX
05674  M01S04957.rec     +++| CEL      SPACE  4,10
05675  M01S04958.rec     +++|*         CONSTANTS.
05676  M01S04959.rec     +++|
05677  M01S04960.rec     +++|
05678  M01S04961.rec     +++| AC       EQU    0           *APP* INTERFACE CHANNEL
05679  M01S04962.rec     +++| CEL      SPACE  4,10
05680  M01S04963.rec     +++|          ORG    OVLD
05681  M01S04964.rec     +++|
05682  M01S04965.rec     +++| PEL      SUBR               ENTRY/EXIT
Line S04966 Modification History
M01 (Added by) rec
M02 (Updated by) rec27
Seq #  *Modification Id* Act 
----------------------------+
05683  M02S04966.rec27   ---|          RJM    IEL         INITIATE *DFT* ERROR LOGGING
05684  M01S04967.rec     +++|          LDC    OVL0        SET MASS STORAGE IDENT LOAD ADDRESS
05685  M01S04968.rec     +++|          STD    LA
05686  M01S04969.rec     +++|          LDN    3           ISSUE BOTH ERRLOG AND BML MESSAGES
05687  M01S04970.rec     +++|          RJM    IME         IDENTIFY MASS STORAGE EQUIPMENT
05688  M01S04971.rec     +++|          RJM    CEL         DUMP DEADSTART ERROR LOG
05689  M01S00001.rec27   +++|          RJM    IEL         INITIATE *DFT* ERROR LOGGING
05690  M01S04972.rec     +++|          UJN    PELX        RETURN
05691  M01S04973.rec     +++| CEL      SPACE  4,10
05692  M01S04974.rec     +++|**        CEL - DUMP CRITICAL ERROR LOG.
05693  M01S04975.rec     +++|*
05694  M01S04976.rec     +++|*         USES   CM+1, EA, AP - AP+4.
05695  M01S04977.rec     +++|*
05696  M01S04978.rec     +++|*         CALLS  AAP, DAP, DFM, LPR, PCL.
05697  M01S04979.rec     +++|*
05698  M01S04980.rec     +++|*         MACROS MONITOR.
05699  M01S04981.rec     +++|
05700  M01S04982.rec     +++|
05701  M01S04983.rec     +++| CEL      SUBR               ENTRY/EXIT
05702  M01S04984.rec     +++|          LDK    DSAL        READ *APP* PARAMETERS
05703  M01S04985.rec     +++|          CRD    AP
05704  M01S04986.rec     +++|          RJM    LPR         PLACE *PPR* IN *DBUF*
05705  M01S04987.rec     +++|          RJM    AAP         ACTIVATE *APP*
05706  M01S04988.rec     +++|          MJN    CEL1        IF *APP* NOT RESPONDING
05707  M01S04989.rec     +++|          RJM    PCL         PROCESS CRITICAL ERROR LOG
05708  M01S04990.rec     +++|          MJN    CEL2        IF *APP* NOT RESPONDING
05709  M01S04991.rec     +++|          RJM    DAP         TERMINATE *APP* AND LOAD *PPR*
05710  M01S04992.rec     +++|          ZJN    CEL2        IF NO ERRORS
05711  M01S04993.rec     +++| CEL1     STD    EA
05712  M01S04994.rec     +++| CEL2     LDN    0           DROP *APP* INTERFACE CHANNEL
05713  M01S04995.rec     +++| CELA     EQU    CEL2
05714  M01S04996.rec     +++|          ZJN    CEL3        IF CHANNEL NOT RESERVED
05715  M01S04997.rec     +++|          STD    CM+1
05716  M01S04998.rec     +++|          MONITOR  DCHM
05717  M01S04999.rec     +++| CEL3     LDD    EA
05718  M01S05000.rec     +++|          ZJN    CELX        IF NO ERROR
Line S05001 Modification History
M01 (Added by) rec
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05719  M02S05001.253l688 ---|          STM    CELB
05720  M01S05002.rec     +++|          LMC    ERLN        ISSUE MESSAGE TO ERROR LOG
05721  M01S05003.rec     +++|          RJM    DFM
Line S05004 Modification History
M01 (Added by) rec
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05722  M02S05004.253l688 ---|          LDD    NC          POST MESSAGE AT SYSTEM CP
Line S05005 Modification History
M01 (Added by) rec
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05723  M02S05005.253l688 ---|          SHN    7
Line S05006 Modification History
M01 (Added by) rec
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05724  M02S05006.253l688 ---|          ADK    MS2W
Line S05007 Modification History
M01 (Added by) rec
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05725  M02S05007.253l688 ---|          CWM    **,TR
Line S05008 Modification History
M01 (Added by) rec
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
05726  M02S05008.253l688 ---| CELB     EQU    *-1
05727  M01S05009.rec     +++|          LJM    CELX        RETURN
05728  M01S05010.rec     +++| AAP      SPACE  4,10
05729  M01S05011.rec     +++|**        AAP - ACTIVATE *APP*.
05730  M01S05012.rec     +++|*
05731  M01S05013.rec     +++|*         ENTRY  (AP - AP+4) = *DSAL*.
05732  M01S05014.rec     +++|*
05733  M01S05015.rec     +++|*         EXIT   (A) = 1/1, 5/0, 12/MESSAGE ADDRESS IF *APP* NOT
05734  M01S05016.rec     +++|*                      RESPONDING.
05735  M01S05017.rec     +++|*         (EA) = (SC) = 0.
05736  M01S05018.rec     +++|*
05737  M01S05019.rec     +++|*         CALLS  ECI, PRS.
05738  M01S05020.rec     +++|*
05739  M01S05021.rec     +++|*         USES   CM - CM+4.
05740  M01S05022.rec     +++|*
05741  M01S05023.rec     +++|*         MACROS MONITOR.
05742  M01S05024.rec     +++|
05743  M01S05025.rec     +++|
05744  M01S05026.rec     +++| AAP      SUBR               ENTRY/EXIT
05745  M01S05027.rec     +++|          LDC    CHTP
05746  M01S05028.rec     +++|          CRD    CM
05747  M01S05029.rec     +++|          LDN    NCTAL       SET CHANNEL TABLE LENGTH
05748  M01S05030.rec     +++|          STD    CM
05749  M01S05031.rec     +++|          LDD    CM+2        READ UP CHANNEL TABLE
05750  M01S05032.rec     +++|          SHN    14
05751  M01S05033.rec     +++|          LMD    CM+3
05752  M01S05034.rec     +++|          CRM    BFMS,CM
05753  M01S05035.rec     +++|          LDM    BFMS,AP     CHECK *APP* CHANNEL
05754  M01S05036.rec     +++|          LPN    40
05755  M01S05037.rec     +++|          NJN    APP1        IF CHANNEL DOWN
05756  M01S05038.rec     +++|          LDD    AP
05757  M01S05039.rec     +++|          STD    CM+1        SET CHANNEL IN REQUEST
05758  M01S00001.rec24   +++|          STD    CM+2
05759  M01S05040.rec     +++|          RAM    CELA
05760  M01S05041.rec     +++|          MONITOR  RCHM      RESERVE THE CHANNEL
05761  M01S05042.rec     +++| APP1     LDN    0
05762  M01S05043.rec     +++|          STD    EA          INITIALIZE MESSAGE ADDRESS
05763  M01S05044.rec     +++|          STD    SC
05764  M01S05045.rec     +++|          LDN    DSCL        FETCH DEADSTART CONTROL WORD
05765  M01S05046.rec     +++|          CRD    CM
05766  M01S05047.rec     +++|          LDD    AP
05767  M01S05048.rec     +++|          LMC    4000        ACTIVATE ALTERNATE PP
05768  M01S05049.rec     +++|          STD    CM
05769  M01S05050.rec     +++|          LDK    DSCL        POST REQUEST
05770  M01S05051.rec     +++|          CWD    CM
05771  M01S05052.rec     +++|          LDD    AP          PRESET CHANNEL INSTRUCTIONS
05772  M01S05053.rec     +++|          RJM    /COMPAPI/PRS
05773  M01S05054.rec     +++|          LDC    IJMI        WAIT FOR CHANNEL ACTIVE
05774  M01S05055.rec     +++|          RJM    /COMPAPI/ECI
05775  M01S05056.rec     +++|          SHN    0-13
05776  M01S05057.rec     +++|          ZJN    AAP2        IF NO ERROR
05777  M01S05058.rec     +++|          LDC    /COMPAPI/CAIA+400000
05778  M01S05059.rec     +++| AAP2     UJP    AAPX        RETURN
05779  M01S05060.rec     +++| CCF      SPACE  4,10
05780  M01S05061.rec     +++|**        CCF - CLEAR CEL FLAG IN DEADSTART SECTOR.
05781  M01S05062.rec     +++|*
05782  M01S05063.rec     +++|*         EXIT   (A) = 0  IF CEL FLAG CLEARED.
05783  M01S05064.rec     +++|*                    .NE. 0  IF I/O ERROR.
05784  M01S05065.rec     +++|*
05785  M01S05066.rec     +++|*         CALLS  FEE, WDS, *0PI*.
05786  M01S05067.rec     +++|*
05787  M01S05068.rec     +++|*         MACROS ENDMS, EXECUTE.
05788  M01S05069.rec     +++|
05789  M01S05070.rec     +++|
05790  M01S05071.rec     +++| CCF2     LDC    =C*DEADSTART SECTOR ERROR.*
05791  M01S05072.rec     +++|
05792  M01S05073.rec     +++| CCF      SUBR               ENTRY/EXIT
05793  M01S05074.rec     +++|          RJM    FEE         FIND EST ENTRY OF DEADSTART DISK
05794  M01S05075.rec     +++|          NJN    CCFX        IF EST ENTRY NOT FOUND
05795  M01S05076.rec     +++|          LDD    T5          SET *0PI* PARAMETERS
05796  M01S05077.rec     +++|          LMC    4000
05797  M01S05078.rec     +++|          STM    OVL0-1
05798  M01S05079.rec     +++|          EXECUTE  0PI,OVL0  READ DEADSTART SECTOR
05799  M01S05080.rec     +++| CCF1     NJN    CCF2        IF NOT A VALID DEADSTART SECTOR
05800  M01S05081.rec     +++|          LDM    BFMS+CFBP
05801  M01S05082.rec     +++|          SCN    20          CLEAR CEL FLAG
05802  M01S05083.rec     +++|          STM    BFMS+CFBP
05803  M01S05084.rec     +++|          LDC    BFMS+WLSF   REWRITE DEADSTART SECTOR
05804  M01S05085.rec     +++|          RJM    WDS
05805  M01S05086.rec     +++|          MJN    CCF1        IF I/O ERROR
05806  M01S05087.rec     +++|          ENDMS
05807  M01S05088.rec     +++|*         LDN    0
05808  M01S05089.rec     +++|          LJM    CCFX        RETURN
05809  M01S05090.rec     +++| CSC      SPACE  4,10
05810  M01S05091.rec     +++|**        CSC - COMPUTE SYMPTOM CODE.
05811  M01S05092.rec     +++|*
05812  M01S05093.rec     +++|*         ENTRY  (CX) = CEL BUFFER INDEX.
05813  M01S05094.rec     +++|*
05814  M01S05095.rec     +++|*         EXIT   (A) = SYMPTOM CODE.
05815  M01S05096.rec     +++|*
05816  M01S05097.rec     +++|*         USES   T0.
05817  M01S05098.rec     +++|
05818  M01S05099.rec     +++|
05819  M01S05100.rec     +++| CSC      SUBR               ENTRY/EXIT
05820  M01S05101.rec     +++|          LDM    BFMS+APDL,CX
05821  M01S05102.rec     +++|          SHN    -10
05822  M01S05103.rec     +++|          STD    T0
05823  M01S05104.rec     +++|          LDN    2
05824  M01S05105.rec     +++|          SBD    T0
05825  M01S05106.rec     +++|          SHN    10
05826  M01S05107.rec     +++|          ADK    /COMSDFS/HS0001
05827  M01S05108.rec     +++|          UJN    CSCX        RETURN
05828  M01S05109.rec     +++| DAP      SPACE  4,10
05829  M01S05110.rec     +++|**        DAP - DEADSTART *APP*.
05830  M01S05111.rec     +++|*
05831  M01S05112.rec     +++|*         EXIT   (A) = 0 IF NO ERROR LOADING *PPR*.
05832  M01S05113.rec     +++|
05833  M01S05114.rec     +++|
05834  M01S05115.rec     +++| DAP      SUBR               ENTRY/EXIT
05835  M01S05116.rec     +++|          LDC    **          (ERROR MESSAGE ADDRESS)
05836  M01S05117.rec     +++| DAPA     EQU    *-1
05837  M01S05118.rec     +++|          NJN    DAPX        IF *PPR* LOAD FAILURE
05838  M01S05119.rec     +++|          LDK    MSFW+1      OUTPUT P ADDRESS
05839  M01S05120.rec     +++|          OAN    AC
05840  M01S05121.rec     +++|          LDK    PPFW-1      OUTPUT *PPR*
05841  M01S05122.rec     +++|          OAM    DBUF+6,AC
05842  M01S05123.rec     +++|          FJM    *,AC        IF CHANNEL FULL
05843  M01S05124.rec     +++|          DCN    AC
05844  M01S05125.rec     +++|*         LDN    0
05845  M01S05126.rec     +++|          UJN    DAPX        RETURN
05846  M01S05127.rec     +++| FAB      SPACE  4,10
05847  M01S05128.rec     +++|**        FAB - FLUSH ASSEMBLY BUFFER.
05848  M01S05129.rec     +++|*
05849  M01S05130.rec     +++|*         EXIT   (WX) = 0.
05850  M01S05131.rec     +++|*
05851  M01S05132.rec     +++|*         USES   T1, WX.
05852  M01S05133.rec     +++|*
05853  M01S05134.rec     +++|*         CALLS  DFM.
05854  M01S05135.rec     +++|
05855  M01S05136.rec     +++|
05856  M01S05137.rec     +++| FAB      SUBR               ENTRY/EXIT
05857  M01S05138.rec     +++|          LDN    6*5         SET MESSAGE LENGTH
05858  M01S05139.rec     +++|          STD    CM+1
05859  M01S05140.rec     +++|          LDC    MBUF+BMLN   ISSUE BML MESSAGE
05860  M01S05141.rec     +++|          RJM    DFM
05861  M01S05142.rec     +++|*         LDN    0           RESET ASSEMBLY BUFFER INDEX
05862  M01S05143.rec     +++|          STD    WX
05863  M01S05144.rec     +++|          LDN    3*5+4       CLEAR REGISTER AREA OF BUFFER
05864  M01S05145.rec     +++|          STD    T1
05865  M01S05146.rec     +++| FAB1     LDN    0
05866  M01S05147.rec     +++|          STM    MBUF+2*5,T1
05867  M01S05148.rec     +++|          SOD    T1
05868  M01S05149.rec     +++|          PJN    FAB1        IF MORE BYTES TO CLEAR
05869  M01S05150.rec     +++|          UJN    FABX        RETURN
05870  M01S05151.rec     +++| FEE      SPACE  4,10
05871  M01S05152.rec     +++|**        FEE - FIND EST ENTRY OF DEADSTART DISK.
05872  M01S05153.rec     +++|*
05873  M01S05154.rec     +++|*         ENTRY  (AP+4) = 6/UNIT, 6/CHANNEL.
05874  M01S05155.rec     +++|*
05875  M01S05156.rec     +++|*         EXIT   (A) = 0  IF EST ENTRY FOUND.
05876  M01S05157.rec     +++|*                    = ERROR MESSAGE ADDRESS IF EST ENTRY NOT FOUND.
05877  M01S05158.rec     +++|*                (T5) = DEADSTART DISK EST ORDINAL.
05878  M01S05159.rec     +++|*
05879  M01S05160.rec     +++|*         USES   T2 - T6, CM - CM+4.
05880  M01S05161.rec     +++|*
05881  M01S05162.rec     +++|*         MACROS SFA.
05882  M01S05163.rec     +++|
05883  M01S05164.rec     +++|
05884  M01S05165.rec     +++| FEE4     LDC    =C*CEL DEVICE UNDEFINED.*
05885  M01S05166.rec     +++|
05886  M01S05167.rec     +++| FEE      SUBR               ENTRY/EXIT
05887  M01S05168.rec     +++|          LDK    ESTP
05888  M01S05169.rec     +++|          CRD    T2
05889  M01S05170.rec     +++| FEE1     SOD    T5          DECREMENT EST ORDINAL
05890  M01S05171.rec     +++|          LMK    NOPE-1
05891  M01S05172.rec     +++|          ZJN    FEE4        IF END OF EST SCAN
05892  M01S05173.rec     +++|          LMK    NOPE-1
05893  M01S05174.rec     +++|          SFA    EST
05894  M01S05175.rec     +++|          ADK    EQDE
05895  M01S05176.rec     +++|          CRD    CM
05896  M01S05177.rec     +++|          LDD    CM
05897  M01S05178.rec     +++|          SHN    -6
05898  M01S05179.rec     +++|          LPN    42
05899  M01S05180.rec     +++|          LMN    42
05900  M01S05181.rec     +++|          NJN    FEE1        IF NOT MASS STORAGE/*LDAM* DEVICE
05901  M01S05182.rec     +++|          LDD    CM+1
05902  M01S05183.rec     +++|          LMD    AP+4
05903  M01S05184.rec     +++|          LPN    77
05904  M01S05185.rec     +++|          ZJN    FEE3        IF MATCH ON PRIMARY CHANNEL
05905  M01S05186.rec     +++|          LDD    CM+2
05906  M01S05187.rec     +++|          ZJN    FEE1        IF NO ALTERNATE ACCESS
05907  M01S05188.rec     +++|          LMD    AP+4
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/rec.003.txt ยท Last modified: by 127.0.0.1