User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:rec.002

Deck REC Part 002

29 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03648  M00S03251.rec     +++|          LMC    7777
03649  M00S03252.rec     +++|          NJN    RSE1        IF NOT SYSTEM
03650  M00S03253.rec     +++|          STD    CM+4
03651  M00S03254.rec     +++|          STD    FS          CLEAR EQUIPMENT ASSIGNED COUNT
03652  M00S03255.rec     +++|          SFA    EST,T7
03653  M00S03256.rec     +++|          ADK    EQAE        CLEAR SYSTEM ASSIGNMENT
03654  M00S03257.rec     +++|          CWD    CM
03655  M00S03258.rec     +++|          UJN    RSE1        CONTINUE EST SCAN
Line S03259 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03656  M01S03259.rec21   ---| SCD      SPACE  4,10
03657  M01S03260.rec21   ---|**        SCD - SET CHANNEL DOWN.
03658  M01S03261.rec21   ---|*
03659  M01S03262.rec21   ---|*         ENTRY  (FN) = CHANNEL NUMBER.
03660  M01S03263.rec21   ---|*
03661  M01S03264.rec21   ---|*         EXIT   FOR EACH EQUIPMENT THAT HAS THIS CHANNEL
03662  M01S03265.rec21   ---|*                DEFINED, AND FOR WHICH IT IS LEGAL TO DOWN
03663  M01S03266.rec21   ---|*                THE CHANNEL, A *SEQM* FUNCTION WILL BE USED
03664  M01S03267.rec21   ---|*                TO RESET THE CHANNEL DOWN STATUS.
03665  M01S03268.rec21   ---|*
Line S03269 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03666  M02S03269.rec21   ---|*         USES   EO, T1, T6, T7, CM - CM+4.
Line S00001 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03667  M02S00001.rec21   ---|*         USES   EO, T1, T6, T7, CM - CM+4, CN - CN+4.
Line S03270 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03668  M01S03270.rec21   ---|*
03669  M01S03271.rec21   ---|*         CALLS  ISF.
03670  M01S03272.rec21   ---|*
03671  M01S03273.rec21   ---|*         MACROS MONITOR, PAUSE, SFA.
03672  M01S03274.rec21   ---|
03673  M01S03275.rec21   ---|
03674  M01S03276.rec21   ---| SCD      SUBR               ENTRY/EXIT
03675  M01S03277.rec21   ---|          LDN    ESTP
03676  M01S03278.rec21   ---|          CRD    T6
03677  M01S03279.rec21   ---|          LDD    T6+2        SET LAST EST ORDINAL + 1
03678  M01S03280.rec21   ---|          STD    T6
03679  M01S03281.rec21   ---|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
03680  M01S03282.rec21   ---|          STD    EO
03681  M01S03283.rec21   ---| SCD1     AOD    EO          ADVANCE EST ORDINAL
03682  M01S03284.rec21   ---|          LMD    T6
03683  M01S03285.rec21   ---|          ZJN    SCDX        IF END OF EST
03684  M01S03286.rec21   ---|          SFA    EST,EO
03685  M01S03287.rec21   ---|          ADK    EQDE        READ EST ENTRY
Line S03288 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03686  M02S03288.rec21   ---|          CRD    CM
03687  M02S03289.rec21   ---|          LDD    CM
Line S00002 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03688  M02S00002.rec21   ---|          CRD    CN
03689  M02S00003.rec21   ---|          LDD    CN
Line S03290 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03690  M01S03290.rec21   ---|          SHN    21-13
03691  M01S03291.rec21   ---|          MJN    SCD2        IF MASS STORAGE
Line S03292 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03692  M02S03292.rec21   ---|          LDD    CM+3
Line S00004 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03693  M02S00004.rec21   ---|          LDD    CN+3
Line S03293 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03694  M01S03293.rec21   ---|          LMC    2RNT
03695  M01S03294.rec21   ---|          ZJN    SCD2        IF TYPE *NT*
03696  M01S03295.rec21   ---|          LMC    2RMT&2RNT
03697  M01S03296.rec21   ---|          NJN    SCD1        IF NOT TYPE *MT*
Line S03297 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03698  M02S03297.rec21   ---| SCD2     LDN    CM          INITIALIZE CHANNEL BYTE ADDRESS
Line S00005 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03699  M02S00005.rec21   ---| SCD2     LDN    CN          INITIALIZE CHANNEL BYTE ADDRESS
Line S03298 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03700  M01S03298.rec21   ---|          STD    T1
03701  M01S03299.rec21   ---| SCD3     AOD    T1          ADVANCE DESCRIPTOR ADDRESS
Line S03300 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03702  M02S03300.rec21   ---|          LMN    CM+3
Line S00006 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03703  M02S00006.rec21   ---|          LMN    CN+3
Line S03301 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03704  M01S03301.rec21   ---| SCD4     ZJN    SCD1        IF BOTH ACCESSES CHECKED
03705  M01S03302.rec21   ---|          LDI    T1
03706  M01S03303.rec21   ---|          ZJN    SCD3        IF NO PATH
03707  M01S03304.rec21   ---|          LMD    FN
03708  M01S03305.rec21   ---|          LPN    77
03709  M01S03306.rec21   ---|          NJN    SCD3        IF NOT MATCHING CHANNEL
Line S03307 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03710  M02S03307.rec21   ---|          LDD    CM
Line S00007 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03711  M02S00007.rec21   ---|          LDD    CN
Line S03308 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03712  M01S03308.rec21   ---|          SHN    21-13
03713  M01S03309.rec21   ---|          PJN    SCD6        IF NOT MASS STORAGE
03714  M01S03310.rec21   ---|          LDI    T1
03715  M01S03311.rec21   ---|          SHN    0-11        CHECK CHANNEL STATE
03716  M01S03312.rec21   ---|          LPN    3
03717  M01S03313.rec21   ---|          LMN    3
03718  M01S03314.rec21   ---|          ZJN    SCD4        IF ACCESS ALREADY DOWN
03719  M01S03315.rec21   ---|          LDD    T1
Line S03316 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03720  M02S03316.rec21   ---|          ERRNZ  CM/10*10-CM  CODE DEPENDS ON VALUE
Line S00008 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03721  M02S00008.rec21   ---|          ERRNZ  CN/10*10-CN  CODE DEPENDS ON VALUE
Line S03317 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03722  M01S03317.rec21   ---|          LMN    3
03723  M01S03318.rec21   ---|          STD    T0          SET ALTERNATE CHANNEL BYTE ADDRESS
03724  M01S03319.rec21   ---|          LDI    T0
03725  M01S03320.rec21   ---|          ZJN    SCD5        IF SINGLE ACCESS DEVICE
03726  M01S03321.rec21   ---|          SHN    0-11
03727  M01S03322.rec21   ---|          LMN    4
03728  M01S03323.rec21   ---|          ZJN    SCD6        IF BOTH CHANNELS UP
Line S03324 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03729  M02S03324.rec21   ---| SCD5     LDD    CM
Line S00009 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03730  M02S00009.rec21   ---| SCD5     LDD    CN
Line S03325 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03731  M01S03325.rec21   ---|          LPN    3
03732  M01S03326.rec21   ---|          LMN    3
03733  M01S03327.rec21   ---|          NJN    SCD8        IF DEVICE NOT DOWN
03734  M01S03328.rec21   ---| SCD6     LDD    FN
03735  M01S03329.rec21   ---|          STD    CM+1        REQUEST THE CHANNEL
03736  M01S03330.rec21   ---|          MONITOR  RCHM
Line S03331 Modification History
M01 (Removed by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03737  M02S03331.rec21   ---| SCD7     PAUSE
Line S00010 Modification History
M01 (Added by) rec20
M02 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03738  M02S00010.rec21   ---| SCD7     PAUSE  NE
Line S03332 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03739  M01S03332.rec21   ---|          LDN    DNCS        DOWN THE CHANNEL
03740  M01S03333.rec21   ---|          RJM    ISF
03741  M01S03334.rec21   ---|          LDD    CM+1
03742  M01S03335.rec21   ---|          ZJN    SCD7        IF REJECT
03743  M01S03336.rec21   ---|          LDD    FN
03744  M01S03337.rec21   ---|          STD    CM+1        RELEASE THE CHANNEL
03745  M01S03338.rec21   ---|          MONITOR  DCHM
03746  M01S03339.rec21   ---| SCD8     LJM    SCD1        PROCESS NEXT EST ENTRY
03747  M00S03340.rec     +++| SES      SPACE  4,10
03748  M00S03341.rec     +++|**        SES - SET EQUIPMENT STATE.
03749  M00S03342.rec     +++|*
03750  M00S03343.rec     +++|*         ENTRY  (EO) = EST ORDINAL.
03751  M00S03344.rec     +++|*                (CA) = BUFFER ADDRESS OF EST ENTRY.
03752  M00S03345.rec     +++|*                (CN - CN+4) = EST ENTRY FROM CMR.
03753  M00S03346.rec     +++|*
03754  M00S03347.rec     +++|*         USES   CM - CM+4.
03755  M00S03348.rec     +++|*
03756  M00S03349.rec     +++|*         MACROS MONITOR.
03757  M00S03350.rec     +++|
03758  M00S03351.rec     +++|
03759  M00S03352.rec     +++| SES      SUBR               ENTRY/EXIT
03760  M00S03353.rec     +++|          LDI    CA
03761  M00S03354.rec     +++|          LMD    CN          COMPARE EQUIPMENT STATE
03762  M00S03355.rec     +++|          LPN    3
03763  M00S03356.rec     +++|          ZJN    SESX        IF NO CHANGE
03764  M00S03357.rec     +++|          LDI    CA
03765  M00S03358.rec     +++|          LPN    3           EXTRACT PREVIOUS STATE
03766  M00S03359.rec     +++|          STD    CM+2
03767  M00S03360.rec     +++|          ERRNZ  ONES        CODE DEPENDS ON VALUE
03768  M00S03361.rec     +++|          ERRNZ  IDES-1      CODE DEPENDS ON VALUE
03769  M00S03362.rec     +++|          ERRNZ  OFES-2      CODE DEPENDS ON VALUE
03770  M00S03363.rec     +++|          ERRNZ  DWES-3      CODE DEPENDS ON VALUE
03771  M00S03364.rec     +++|          LDD    EO
03772  M00S03365.rec     +++|          STD    CM+1        RESTORE EQUIPMENT STATE
03773  M00S03366.rec     +++|          MONITOR  SEQM
03774  M00S03367.rec     +++|          UJN    SESX        RETURN
Line S03368 Modification History
M01 (Removed by) rec21
Seq #  *Modification Id* Act 
----------------------------+
03775  M01S03368.rec21   ---| SKR      SPACE  4,10
03776  M01S03369.rec21   ---|**        SKR - SKIP RECORD.
03777  M01S03370.rec21   ---|*
03778  M01S03371.rec21   ---|*         ENTRY  (T4 - T7) = MASS STORAGE PARAMETERS.
03779  M01S03372.rec21   ---|*
03780  M01S03373.rec21   ---|*         EXIT   (T6 - T7) ADVANCED.
03781  M01S03374.rec21   ---|*
03782  M01S03375.rec21   ---|*         CALLS  RNS.
03783  M01S03376.rec21   ---|
03784  M01S03377.rec21   ---|
03785  M01S03378.rec21   ---| SKR2     SHN    -6
03786  M01S03379.rec21   ---|          NJN    SKR1        IF NOT EOR
03787  M01S03380.rec21   ---|
03788  M01S03381.rec21   ---| SKR      SUBR               ENTRY/EXIT
03789  M01S03382.rec21   ---| SKR1     LDC    BFMS        READ NEXT SECTOR
03790  M01S03383.rec21   ---|          RJM    RNS
03791  M01S03384.rec21   ---|
03792  M01S03385.rec21   ---|*         PROCESS MASS STORAGE ERROR.
03793  M01S03386.rec21   ---|
03794  M01S03387.rec21   ---|          PJN    SKR2        IF NO ERROR
03795  M01S03388.rec21   ---|          LDC    RCEA        *SYSTEM FILE PARITY ERROR.*
03796  M01S03389.rec21   ---|          LJM    ERR         ISSUE MESSAGE AND HANG
03797  M00S03390.rec     +++|          SPACE  4,10
03798  M00S03391.rec     +++|**        COMMON DECKS.
03799  M00S03392.rec     +++|
03800  M00S03393.rec     +++| QUAL$    EQU    1           DO NOT QUALIFY COMMON DECKS
03801  M00S03394.rec     +++|*CALL     COMPTGB
03802  M00S03395.rec     +++|*CALL     COMPTLB
03803  M00S03396.rec     +++|          SPACE  4,10
03804  M00S03397.rec     +++|          ERRPL  *-BFMS      OVERFLOW INTO BUFFER
03805  M00S03398.rec     +++|          SPACE  4,10
03806  M00S03399.rec     +++|          QUAL
03807  M00S03400.rec     +++|          TTL    REC/4RD - CONTROL POINT RECOVERY ROUTINES.
03808  M00S03401.rec     +++|          TITLE
03809  M00S03402.rec     +++|          QUAL   CPR
03810  M00S03403.rec     +++|          IDENT  4RD,CPRX
03811  M00S03404.rec     +++|*COMMENT  REC - CONTROL POINT RECOVERY ROUTINES.
Line S03405 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
03812  M01S03405.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00005 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
03813  M01S00005.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03814  M00S03406.rec     +++| CPR      SPACE  4,10
03815  M00S03407.rec     +++|***       CPR - CONTROL POINT RECOVERY ROUTINES.
03816  M00S03408.rec     +++| CPR      SPACE  4,10
03817  M00S03409.rec     +++|          ORG    OVLA
03818  M00S03410.rec     +++|
03819  M00S03411.rec     +++|
03820  M00S03412.rec     +++| CPR      SUBR               ENTRY/EXIT
03821  M00S03413.rec     +++|          UJN    CPRX        RETURN AFTER LOAD
03822  M00S03414.rec     +++|          SPACE  4,10
03823  M00S03415.rec     +++|**        COMMON DECKS.
03824  M00S03416.rec     +++|
03825  M00S03417.rec     +++|
03826  M00S03418.rec     +++|          LIST   X
03827  M00S03419.rec     +++|*CALL     COMPVEI
03828  M00S03420.rec     +++|          LIST   *
03829  M00S03421.rec     +++|          TITLE  SUBROUTINES.
03830  M00S03422.rec     +++| UQE      SPACE  4,15
03831  M00S03423.rec     +++|**        UQE - UPDATE QFT ENTRY.
03832  M00S03424.rec     +++|*
03833  M00S03425.rec     +++|*         ENTRY  (EO) = EJT ORDINAL IF PROCESSING CONTROL POINTS.
03834  M00S03426.rec     +++|*                     = 0 IF PROCESSING QFT.
03835  M00S03427.rec     +++|*                (FS - FS+4) = FST INFORMATION.
03836  M00S03428.rec     +++|*
03837  M00S03429.rec     +++|*         USES   T5, T6.
03838  M00S03430.rec     +++|*
03839  M00S03431.rec     +++|*         CALLS  RSS.
03840  M00S03432.rec     +++|*
03841  M00S03433.rec     +++|*         MACROS ENDMS, SETMS, SFA.
03842  M00S03434.rec     +++|
03843  M00S03435.rec     +++|
03844  M00S03436.rec     +++| UQE      SUBR               ENTRY/EXIT
03845  M00S03437.rec     +++|          LDD    FS          SET EQUIPMENT
03846  M00S03438.rec     +++|          STD    T5
03847  M00S03439.rec     +++|          LDD    FS+1        SET FIRST TRACK
03848  M00S03440.rec     +++|          STD    T6
03849  M00S03441.rec     +++|          SETMS  IO
03850  M00S03442.rec     +++|          LDN    0           READ SYSTEM SECTOR
03851  M00S03443.rec     +++|          RJM    RSS
03852  M00S03444.rec     +++|          NJN    UQEX        IF SYSTEM SECTOR ERROR
03853  M00S03445.rec     +++|          ENDMS
03854  M00S03446.rec     +++|          LDD    EO
03855  M00S03447.rec     +++|          ZJN    UQE1        IF PROCESSING QFT
03856  M00S03448.rec     +++|          STM    IOSS+5*ENTQ+4
03857  M00S03449.rec     +++|          LDN    2
03858  M00S03450.rec     +++| UQE1     STD    T5
03859  M00S03451.rec     +++|          LDM    IOSS+5*JSNQ+4  SET/CLEAR EJT ASSIGNMENT
03860  M00S03452.rec     +++|          SCN    7
03861  M00S03453.rec     +++|          LMD    T5
03862  M00S03454.rec     +++|          STM    IOSS+5*JSNQ+4
03863  M00S03455.rec     +++|          LDN    QFTE        LENGTH OF QFT ENTRY
03864  M00S03456.rec     +++|          STD    T6
03865  M00S03457.rec     +++|          SFA    QFT,GQSS    STORE QFT ENTRY
03866  M00S03458.rec     +++|          CWM    IOSS,T6
03867  M00S03459.rec     +++|          LJM    UQEX        RETURN
03868  M00S03460.rec     +++| VEI      SPACE  4,15
03869  M00S03461.rec     +++|**        VEI - VALIDATE EOI FOR MASS STORAGE FILE.
03870  M00S03462.rec     +++|*
03871  M00S03463.rec     +++|*         ENTRY  (FA) = FNT INDEX.
03872  M00S03464.rec     +++|*                (QT) = FILE TYPE.
03873  M00S03465.rec     +++|*                (FS - FS+4) = FST INFORMATION.
03874  M00S03466.rec     +++|*
03875  M00S03467.rec     +++|*         USES   QI, T6.
03876  M00S03468.rec     +++|*
03877  M00S03469.rec     +++|*         CALLS  CLF, C2D, IRA, RDC, RSS, WEI, WSS.
03878  M00S03470.rec     +++|*
03879  M00S03471.rec     +++|*         MACROS ENDMS, SETMS, SFA.
03880  M00S03472.rec     +++|
03881  M00S03473.rec     +++|
03882  M00S03474.rec     +++| VEI5     LDD    QI          RESTORE FNT ORDINAL
03883  M00S03475.rec     +++|          STD    FA
03884  M00S03476.rec     +++| VEI6     ENDMS              RELEASE CHANNEL
03885  M00S03477.rec     +++|
03886  M00S03478.rec     +++| VEI      SUBR               ENTRY/EXIT
03887  M00S03479.rec     +++|          LDD    FS
03888  M00S03480.rec     +++|          ZJN    VEIX        IF NULL EQUIPMENT
03889  M00S03481.rec     +++|          STD    T5
03890  M00S03482.rec     +++|          SFA    EST         READ EST ENTRY
03891  M00S03483.rec     +++|          ADK    EQDE
03892  M00S03484.rec     +++|          CRD    CM
03893  M00S03485.rec     +++|          LDD    CM
03894  M00S03486.rec     +++|          SHN    0-13
03895  M00S03487.rec     +++|          ZJN    VEIX        IF NOT MASS STORAGE
03896  M00S03488.rec     +++|          LDD    FS+1
03897  M00S03489.rec     +++|          ZJN    VEIX        IF FILE NOT USED
03898  M00S03490.rec     +++|          STD    T6          SET FIRST TRACK
03899  M00S03491.rec     +++|          SHN    -6          PUT STARTING TRACK IN MESSAGE
03900  M00S03492.rec     +++|          RJM    C2D
03901  M00S03493.rec     +++|          STM    VEIC
03902  M00S03494.rec     +++|          LDD    T6
03903  M00S03495.rec     +++|          RJM    C2D
03904  M00S03496.rec     +++|          STM    VEIC+1
03905  M00S03497.rec     +++|          LDD    T5          PUT EST ORDINAL IN MESSAGE
03906  M00S03498.rec     +++|          SHN    -3
03907  M00S03499.rec     +++|          RJM    C2D
03908  M00S03500.rec     +++|          STM    VEIB
03909  M00S03501.rec     +++|          LDD    T5
03910  M00S03502.rec     +++|          LPN    7
03911  M00S03503.rec     +++|          SHN    6
03912  M00S03504.rec     +++|          ADC    2R0,
03913  M00S03505.rec     +++|          STM    VEIB+1
03914  M00S03506.rec     +++|          LDC    DSCP*CPAS+MS1W  DISPLAY MESSAGE
03915  M00S03507.rec     +++|          CWM    VEIA,TR
03916  M00S03508.rec     +++|          SBN    1           SAVE ADDRESS FOR *RDC* MESSAGE
03917  M00S03509.rec     +++|          STM    RDCA
03918  M00S03510.rec     +++|          RJM    IRA         INITIALIZE RANDOM ACCESS PROCESSORS
Line S00003 Modification History
M01 (Added by) ns2669
Seq #  *Modification Id* Act 
----------------------------+
03919  M01S00003.ns2669  +++|          SETMS  IO,RW
03920  M00S03511.rec     +++|          LCN    1           READ DISK CHAIN
03921  M00S03512.rec     +++|          RJM    RDC
Line S03513 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03922  M01S03513.ns2788  ---|          ZJN    VEI1        IF EOI ON DISK MATCHES TRT EOI
03923  M01S03514.ns2788  ---|          RJM    CLF         CHANGE LENGTH OF FILE IN TRT
03924  M01S03515.ns2788  ---| VEI1     LDD    FS+4
03925  M01S03516.ns2788  ---|          ZJN    VEI3        IF REWRITE OF EOI REQUIRED
03926  M01S03517.ns2788  ---| VEI2     LJM    VEI6        RETURN
Line S00001 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03927  M01S00001.ns2788  +++|          NJN    VEI2        IF LENGTH/LINKAGE/DISK ERROR
03928  M01S00002.ns2788  +++| VEI1     LJM    VEI6        RETURN
03929  M00S03518.rec     +++|
Line S03519 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03930  M01S03519.ns2788  ---| VEI3     RJM    WEI         WRITE EOI
03931  M01S03520.ns2788  ---|          LDD    QT
Line S00003 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03932  M01S00003.ns2788  +++| VEI2     RJM    CLF         CHANGE LENGTH OF FILE IN TRT
03933  M01S00004.ns2788  +++|          LDD    FS+4
03934  M01S00005.ns2788  +++|          NJN    VEI3        IF NO REWRITE OF EOI REQUIRED
03935  M01S00006.ns2788  +++|          RJM    WEI         WRITE EOI
03936  M01S00007.ns2788  +++| VEI3     LDD    QT          CHECK FILE TYPE
03937  M00S03521.rec     +++|          LMN    PMFT
Line S03522 Modification History
M01 (Removed by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03938  M01S03522.ns2788  ---|          NJN    VEI2        IF NOT DIRECT ACCESS PERMANENT FILE
Line S00008 Modification History
M01 (Added by) ns2788
Seq #  *Modification Id* Act 
----------------------------+
03939  M01S00008.ns2788  +++|          NJN    VEI1        IF NOT DIRECT ACCESS PERMANENT FILE
03940  M00S03523.rec     +++|          LDD    FS+1        SET FIRST TRACK
03941  M00S03524.rec     +++|          STD    T6
03942  M00S03525.rec     +++|          LDD    FA          SAVE FNT ORDINAL
03943  M00S03526.rec     +++|          STD    QI
03944  M00S03527.rec     +++|          SETMS  POSITION
03945  M00S03528.rec     +++|*         LDN    0           SELECT NO FILE NAME VERIFICATION
03946  M00S03529.rec     +++|          STD    FA
03947  M00S03530.rec     +++|          RJM    RSS         READ SYSTEM SECTOR
03948  M00S03531.rec     +++|          NJN    VEI4        IF SYSTEM SECTOR ERROR
Line S03532 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
03949  M01S03532.ns2729  ---|          LDM    CTSS+FCEC   SET ERROR FLAG IN SYSTEM SECTOR
Line S00003 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
03950  M01S00003.ns2729  +++|          LDM    /COMSPFM/CTSS+/COMSPFM/FCEC  SET ERROR FLAG IN SS
03951  M00S03533.rec     +++|          LPC    7077
03952  M00S03534.rec     +++|          LMC    400
Line S03535 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
03953  M01S03535.ns2729  ---|          STM    CTSS+FCEC
Line S00004 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
03954  M01S00004.ns2729  +++|          STM    /COMSPFM/CTSS+/COMSPFM/FCEC
03955  M00S03536.rec     +++|          RJM    WSS         REWRITE SYSTEM SECTOR
03956  M00S03537.rec     +++| VEI4     LJM    VEI5        RESTORE FNT ORDINAL
03957  M00S03538.rec     +++|
03958  M00S03539.rec     +++|
03959  M00S03540.rec     +++| VEIA     DATA   H* VERIFY EQ*
03960  M00S03541.rec     +++| VEIB     DATA   H*000, A*
03961  M00S03542.rec     +++| VEIC     DATA   C*0000.*
Line S03543 Modification History
M01 (Removed by) rec23
Seq #  *Modification Id* Act 
----------------------------+
03962  M01S03543.rec23   ---|
03963  M01S03544.rec23   ---|
03964  M01S03545.rec23   ---|          ERRNG  SBUF-*      ROLLOUT FILE BUFFER OVERFLOW
03965  M00S03546.rec     +++|          SPACE  4,10
03966  M00S03547.rec     +++| OVLC     EQU    *+5         ORIGIN FOR *4RF*
Line S03548 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03967  M01S03548.271l716 ---|
Line S00249 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03968  M01S00249.271l716 +++| ABT      SPACE  4,10
Line S00250 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
03969  M02S00250.rec33   ---|**        ABR - ABORT CM RECOVERY.
Line S00007 Modification History
M01 (Added by) rec33
Seq #  *Modification Id* Act 
----------------------------+
03970  M01S00007.rec33   +++|**        ABT - ABORT CM RECOVERY.
Line S00251 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03971  M01S00251.271l716 +++|*
03972  M01S00252.271l716 +++|*         ENTRY  (PN) = CP/PCP NUMBER.
03973  M01S00253.271l716 +++|*
03974  M01S00254.271l716 +++|*         EXIT   TO *ERR*.
03975  M01S00255.271l716 +++|*
03976  M01S00256.271l716 +++|*         USES   PN.
03977  M01S00257.271l716 +++|*
03978  M01S00258.271l716 +++|*         CALLS  C2D.
03979  M01S00259.271l716 +++|
03980  M01S00260.271l716 +++|
03981  M01S00261.271l716 +++| ABT      LDD    PN          CHECK CP NUMBER
03982  M01S00262.271l716 +++|          SBD    NC
Line S00263 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
03983  M02S00263.rec33   ---|          MJN    ABT1        IF NOT PSEUDO CP
Line S00008 Modification History
M01 (Added by) rec33
Seq #  *Modification Id* Act 
----------------------------+
03984  M01S00008.rec33   +++|          MJN    ABT1        IF REAL CP
03985  M01S00009.rec33   +++|          ZJN    ABT1        IF SYSTEM CP
Line S00264 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03986  M01S00264.271l716 +++|          SBN    1
03987  M01S00265.271l716 +++|          STD    PN          SAVE PCP OFFSET
03988  M01S00266.271l716 +++|          SOM    ABTA
03989  M01S00267.271l716 +++| ABT1     LDD    PN          CONVERT CP/PCP NUMBER
03990  M01S00268.271l716 +++|          RJM    C2D
03991  M01S00269.271l716 +++|          STM    ABTB+1      SET NUMBER IN MESSAGE
03992  M01S00270.271l716 +++|          LDC    ABTB
03993  M01S00271.271l716 +++| ABTA     EQU    *-1
03994  M01S00272.271l716 +++|          LJM    ERR         DISPLAY ERROR AND HANG
03995  M01S00273.271l716 +++|
03996  M01S00274.271l716 +++|
03997  M01S00275.271l716 +++|          DATA   2H P
03998  M01S00276.271l716 +++| ABTB     DATA   C*CP00 CPA/MOVING.*
Line S03549 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03999  M01S03549.273l780 ---| CJP      SPACE  4,20
04000  M01S03550.273l780 ---|**        CJP - CHECK JOB PARAMETERS.
Line S00021 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04001  M01S00021.273l780 +++| CRS      SPACE  4,20
04002  M01S00022.273l780 +++|**        CRS - CHECK ROLLIN/ROLLOUT STATUS.
04003  M00S03551.rec     +++|*
Line S03552 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04004  M01S03552.271l716 ---|*         ENTRY  (CP) = ADDRESS OF CONTROL POINT BEING PROCESSED.
04005  M01S03553.271l716 ---|*                (NC) = NUMBER OF CONTROL POINTS.
04006  M01S03554.271l716 ---|*                (CN - CN+4) = *FLSW* WORD OF PREVIOUS CP.
Line S00277 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04007  M01S00277.271l716 +++|*         ENTRY  (PN) = CP/PCP NUMBER.
04008  M00S03555.rec     +++|*
Line S03556 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04009  M01S03556.273l780 ---|*         EXIT   (A) = (EO) = BYTE 0 OF *TFSW*.
Line S00023 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04010  M01S00023.273l780 +++|*         EXIT   CONTROL POINT RELEASED IF JOB ROLLING IN.
04011  M01S00024.273l780 +++|*                TO *ABT* IF PSEUDO-ROLLIN OR PSEUDO-ROLLOUT IN
04012  M01S00025.273l780 +++|*                  PROGRESS.
04013  M01S00026.273l780 +++|*                *REC* ASSIGNED TO CP IF CP BEING RECOVERED.
04014  M01S00027.273l780 +++|*                (A) = (EO) = EJT ORDINAL IF CP/PCP ASSIGNED.
04015  M01S00028.273l780 +++|*                (A) = (EO) = 0 IF CP/PCP NOT ASSIGNED.
Line S00278 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04016  M01S00278.271l716 +++|*                (CP) = REAL CPA ADDRESS.
Line S03557 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04017  M01S03557.271l716 ---|*                (CN - CN+4) = *FLSW* WORD OF CURRENT CP.
Line S00279 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04018  M01S00279.271l716 +++|*                (CN - CN+4) = *FLSW* WORD FROM CP/PCP AREA.
04019  M00S03558.rec     +++|*                (FN - FN+4) = *STSW* WORD WITH -
Line S03559 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04020  M01S03559.273l780 ---|*                              PSEUDO PP ASSIGNMENTS CLEARED.
04021  M00S03560.rec     +++|*                              ERROR FLAG SET AS REQUIRED.
04022  M00S03561.rec     +++|*                              ROLLOUT FLAGS CLEARED.
04023  M00S03562.rec     +++|*
Line S03563 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04024  M01S03563.271l716 ---|*         ERROR  TO *ERR* IF ABORTING CM RECOVERY.
04025  M01S03564.271l716 ---|*
04026  M01S03565.271l716 ---|*         USES   CM - CM+4.
04027  M01S03566.271l716 ---|*
04028  M01S03567.271l716 ---|*         CALLS  CRS, C2D.
Line S00280 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04029  M02S00280.273l780 ---|*         USES   CP, EO - EO+4.
Line S00029 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04030  M01S00029.273l780 +++|*         USES   EO, QA, T6, T7, CA - CA+4, CN - CN+4, FN - FN+4,
04031  M01S00030.273l780 +++|*                  FS - FS+4.
Line S00281 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04032  M01S00281.271l716 +++|*
Line S00282 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04033  M02S00282.273l780 ---|*         CALLS  CRS, SCA.
Line S00031 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04034  M01S00031.273l780 +++|*         CALLS  CSR, DEF, REJ, RJQ, RPJ, RSJ, SCA.
04035  M01S00032.273l780 +++|*
04036  M01S00033.273l780 +++|*         MACROS MONITOR, SFA.
04037  M00S03568.rec     +++|
04038  M00S03569.rec     +++|
Line S03570 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04039  M01S03570.271l716 ---| CJP2     LDD    CP          FETCH EJT ORDINAL
Line S00283 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04040  M02S00283.273l780 ---| CJP      SUBR               ENTRY/EXIT
Line S00284 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04041  M03S00284.273l780 ---|          LDD    T5
Line S03571 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04042  M02S03571.273l780 ---|          ADN    TFSW
Line S00285 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04043  M02S00285.273l780 ---|          LDD    PN
04044  M02S00286.273l780 ---|          RJM    SCA         SET CP/PCP AREA ADDRESS
04045  M02S00287.273l780 ---|          STD    CP
Line S00034 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04046  M01S00034.273l780 +++| CRS      SUBR               ENTRY/EXIT
04047  M01S00035.273l780 +++|
04048  M01S00036.273l780 +++|*         GET CP/PCP PARAMETERS.
04049  M01S00037.273l780 +++|
04050  M01S00038.273l780 +++|          LDD    PN          SET CP/PCP ADDRESS
04051  M01S00039.273l780 +++|          RJM    SCA
Line S00288 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04052  M01S00288.271l716 +++|          ADN    TFSW        FETCH EJT ORDINAL
04053  M00S03572.rec     +++|          CRD    EO
04054  M00S03573.rec     +++|          ERRNZ  EO+1-CA     CODE DEPENDS ON VALUE
Line S03574 Modification History
M01 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
04055  M01S03574.rec33   ---|
04056  M00S03575.rec     +++|          SBN    TFSW-STSW   READ CONTROL POINT STATUS WORD
04057  M00S03576.rec     +++|          CRD    FN
04058  M00S03577.rec     +++|          ADN    FLSW-STSW   READ FL PARAMETERS
04059  M00S03578.rec     +++|          CRD    CN
Line S03579 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04060  M01S03579.273l780 ---|          LDN    0           CLEAR PSEUDO PP ASSIGNMENT
04061  M01S03580.273l780 ---|          STD    FN
04062  M00S03581.rec     +++|          LDD    EO
Line S03582 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04063  M01S03582.273l780 ---|          ZJN    CJPX        IF CONTROL POINT UNASSIGNED
04064  M01S03583.273l780 ---|          RJM    CRS         CHECK ROLLIN STATUS
Line S00040 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04065  M01S00040.273l780 +++|          ZJN    CRSX        IF CONTROL POINT UNASSIGNED
04066  M01S00041.273l780 +++|
04067  M01S00042.273l780 +++|*         GET EJT PARAMETERS AND CLEAR ROLLOUT FLAGS IF NOT PCP.
04068  M01S00043.273l780 +++|
04069  M01S00044.273l780 +++|          STD    QA
04070  M01S00045.273l780 +++|          SFA    EJT         READ EJT PARAMETERS
04071  M01S00046.273l780 +++|          ADK    JSNE
04072  M01S00047.273l780 +++|          CRD    FS
04073  M01S00048.273l780 +++|          ADN    SCHE-JSNE
04074  M01S00049.273l780 +++|          CRD    CA
04075  M01S00050.273l780 +++|          LDD    NC
04076  M01S00051.273l780 +++|          SBD    PN
04077  M01S00052.273l780 +++|          MJN    CRS1        IF PCP
04078  M01S00053.273l780 +++|          LDN    0           CLEAR ROLLOUT FLAGS
04079  M01S00054.273l780 +++|          STD    FN+2
04080  M01S00055.273l780 +++|          LDD    PN          SET CP/PCP ADDRESS
04081  M01S00056.273l780 +++|          RJM    SCA         UPDATE *STSW*
04082  M01S00057.273l780 +++|          ADN    STSW
04083  M01S00058.273l780 +++|          CWD    FN
04084  M01S00059.273l780 +++|          LDD    FS+4        CLEAR JOB ADVANCE TO ALLOW *CCAM*
04085  M01S00060.273l780 +++|          LPC    7677
04086  M01S00061.273l780 +++|          STD    FS+4
04087  M01S00062.273l780 +++|          SFA    EJT,EO
04088  M01S00063.273l780 +++|          ADK    JSNE
04089  M01S00064.273l780 +++|          CWD    FS
Line S03584 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04090  M01S03584.271l716 ---|          LDD    EO
04091  M01S03585.271l716 ---|
04092  M01S03586.271l716 ---| CJP      SUBR               ENTRY/EXIT
04093  M01S03587.271l716 ---|          LDD    CP          READ FL CONTROL WORD
04094  M01S03588.271l716 ---|          ADN    FLSW
04095  M01S03589.271l716 ---|          CRD    CM
04096  M01S03590.271l716 ---|          LDD    CN+4        CHECK NFL + PREVIOUS FL .LE. RA
04097  M01S03591.271l716 ---|          ADD    CM
04098  M01S03592.271l716 ---|          RAD    CN+3
04099  M01S03593.271l716 ---|          SHN    -14
04100  M01S03594.271l716 ---|          RAD    CN+2
04101  M01S03595.271l716 ---|          SBD    CM+2
04102  M01S03596.271l716 ---|          SHN    14
04103  M01S03597.271l716 ---|          ADD    CN+3
04104  M01S03598.271l716 ---|          SBD    CM+3
04105  M01S03599.271l716 ---|          MJN    CJP2        IF .LT. RA
04106  M01S03600.271l716 ---|          ZJN    CJP2        IF NFL + FL = RA
04107  M01S03601.271l716 ---|
04108  M01S03602.271l716 ---|*         ENTER HERE TO ABORT CM RECOVERY.
04109  M01S03603.271l716 ---|
04110  M01S03604.271l716 ---| CJP1     LDD    CP          CONVERT CP NUMBER
04111  M01S03605.271l716 ---|          SHN    -7
04112  M01S03606.271l716 ---|          RJM    C2D
04113  M01S03607.271l716 ---|          STM    CJPA+1      SET NUMBER IN MESSAGE
04114  M01S03608.271l716 ---|          LDC    CJPA
04115  M01S03609.271l716 ---|          LJM    ERR         DISPLAY MESSAGE AND HANG
04116  M01S03610.271l716 ---|
04117  M01S03611.271l716 ---| CJPA     DATA   C*CP00 RA/CPA/MOVING.*
Line S00289 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04118  M01S00289.271l716 +++|          LDD    PN
Line S00290 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04119  M02S00290.273l780 ---|          RJM    SCA         SET CP/PCP AREA ADDRESS
04120  M02S00291.273l780 ---|          ADN    STSW
04121  M02S00292.273l780 ---|          CWD    FN          UPDATE CP STATUS
04122  M02S00293.273l780 ---|          LDD    EO
04123  M02S00294.273l780 ---|          UJN    CJPX        RETURN
Line S03612 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04124  M01S03612.273l780 ---| CRS      SPACE  4,15
04125  M01S03613.273l780 ---|**        CRS - CHECK ROLLIN STATUS.
04126  M01S03614.273l780 ---|*
04127  M01S03615.273l780 ---|*         ENTRY  (A) = (EO) = EJT ORDINAL.
Line S03616 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04128  M02S03616.273l780 ---|*                (CP) = CONTROL POINT AREA ADDRESS.
Line S00295 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04129  M02S00295.273l780 ---|*                (PN) = CP/PCP NUMBER.
04130  M02S00296.273l780 ---|*                (CP) = CPA ADDRESS IF REAL CP.
Line S03617 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04131  M01S03617.273l780 ---|*                (CN - CN+4) = CONTROL POINT AREA *FLSW* WORD.
04132  M01S03618.273l780 ---|*                (FN - FN+4) = CONTROL POINT AREA *STSW* WORD.
04133  M01S03619.273l780 ---|*
04134  M01S03620.273l780 ---|*         USES   QA, T6, T7, CM - CM+4, FS - FS+4.
04135  M01S03621.273l780 ---|*
Line S03622 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04136  M02S03622.273l780 ---|*         CALLS  CSR, DEF, REJ, RJQ, RPJ.
Line S00297 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04137  M02S00297.273l780 ---|*         CALLS  CSR, DEF, REJ, RJQ, RPJ, RSJ.
Line S03623 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04138  M01S03623.273l780 ---|*
04139  M01S03624.273l780 ---|*         MACROS SFA.
Line S00065 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04140  M01S00065.273l780 +++|          STD    CM+1
04141  M01S00066.273l780 +++|          MONITOR  CCAM      CHANGE ASSIGNMENT TO CP BEING RECOVERED
04142  M00S03625.rec     +++|
Line S00067 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04143  M01S00067.273l780 +++|*         CALL JOB STATUS PROCESSOR.
04144  M00S03626.rec     +++|
Line S03627 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04145  M01S03627.273l780 ---| CRS1     LDM    TJRP,T6
04146  M01S03628.273l780 ---|          ZJN    CRSX        IF PROCESSOR UNDEFINED
Line S00068 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04147  M01S00068.273l780 +++| CRS1     LDD    FS+4        EXTRACT JOB STATUS
04148  M01S00069.273l780 +++|          SHN    -1
04149  M01S00070.273l780 +++|          LPN    37
04150  M01S00071.273l780 +++|          STD    T6
04151  M01S00072.273l780 +++|          SBN    MXJS
04152  M01S00073.273l780 +++|          MJN    CRS2        IF VALID STATUS
04153  M01S00074.273l780 +++|          RJM    DEF         DETERMINE ERROR FLAG
04154  M01S00075.273l780 +++|          UJN    CRS3        UPDATE CP/PCP STATUS
04155  M01S00076.273l780 +++|
04156  M01S00077.273l780 +++| CRS2     LDM    TJRP,T6
04157  M01S00078.273l780 +++|          ZJN    CRS3        IF PROCESSOR UNDEFINED
04158  M00S03629.rec     +++|          STD    T7
04159  M00S03630.rec     +++|
04160  M00S03631.rec     +++|*         EXIT TO PROCESSOR WITH -
Line S03632 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04161  M01S03632.271l716 ---|*                (CP) = CONTROL POINT AREA ADDRESS.
Line S00298 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04162  M01S00298.271l716 +++|*                (PN) = CP/PCP NUMBER.
04163  M01S00299.271l716 +++|*                (CP) = CPA ADDRESS IF REAL CP.
04164  M00S03633.rec     +++|*                (EO) = (QA) = EJT ORDINAL.
04165  M00S03634.rec     +++|*                (FS - FS+4) = *JSNE* WORD OF EJT ENTRY.
04166  M00S03635.rec     +++|*                (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04167  M00S03636.rec     +++|*                (FN - FN+4) = CONTROL POINT AREA *STSW* WORD.
04168  M00S03637.rec     +++|
04169  M00S03638.rec     +++|          RJM    0,T7        RECOVER JOB
04170  M00S03639.rec     +++|
Line S03640 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04171  M01S03640.273l780 ---| CRS      SUBR               ENTRY/EXIT
04172  M01S03641.273l780 ---|          STD    QA
04173  M01S03642.273l780 ---|          SFA    EJT         READ EJT
04174  M01S03643.273l780 ---|          ADK    JSNE
04175  M01S03644.273l780 ---|          CRD    FS
04176  M01S03645.273l780 ---|          ADN    SCHE-JSNE
04177  M01S03646.273l780 ---|          CRD    CA
Line S00010 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04178  M02S00010.273l780 ---|          LDD    FN+2        SAVE CPU STATUS PRESENT AT ROLLOUT FLAG
04179  M02S00011.273l780 ---|          LPN    2
04180  M02S00012.273l780 ---|          STD    FN+2
04181  M02S00013.273l780 ---|          LDD    NC
04182  M02S00014.273l780 ---|          SBD    PN
04183  M02S00015.273l780 ---|          MJN    CRS0        IF PCP
Line S03647 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04184  M01S03647.273l780 ---|          LDN    0           CLEAR ROLLOUT FLAGS
04185  M01S03648.273l780 ---|          STD    FN+2
Line S03649 Modification History
M01 (Removed by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04186  M02S03649.273l780 ---|          LDD    FS+4        EXTRACT JOB STATUS
Line S00016 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04187  M02S00016.273l780 ---| CRS0     LDD    FS+4        EXTRACT JOB STATUS
Line S03650 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04188  M01S03650.273l780 ---|          SHN    -1
04189  M01S03651.273l780 ---|          LPN    37
04190  M01S03652.273l780 ---|          STD    T6
04191  M01S03653.273l780 ---|          SBN    MXJS
04192  M01S03654.273l780 ---|          MJN    CRS1        IF VALID STATUS
04193  M01S03655.273l780 ---|          RJM    DEF         DETERMINE ERROR FLAG
04194  M01S03656.273l780 ---|          UJN    CRSX        RETURN
Line S00079 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04195  M01S00079.273l780 +++|*         RETURN WITH CONTROL POINT ASSIGNED STATUS.
04196  M01S00080.273l780 +++|
04197  M01S00081.273l780 +++| CRS3     LDD    EO
04198  M01S00082.273l780 +++|          LJM    CRSX        RETURN
04199  M00S03657.rec     +++| TJRP     SPACE  4,10
04200  M00S03658.rec     +++|**        TJRP - TABLE OF JOB RECOVERY PROCESSORS.
04201  M00S03659.rec     +++|
04202  M00S03660.rec     +++|
04203  M00S03661.rec     +++| TJRP     INDEX
04204  M00S03662.rec     +++|          INDEX  PRJS,RPJ
04205  M00S03663.rec     +++|          INDEX  EXJS,REJ
04206  M00S03664.rec     +++|          INDEX  ROJS,RJQ
04207  M00S03665.rec     +++|          INDEX  SIJS,CSR
04208  M00S03666.rec     +++|          INDEX  SOJS,RJQ
Line S03667 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04209  M01S03667.273l780 ---|          INDEX  TOJS,CSR
Line S00083 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04210  M01S00083.273l780 +++|          INDEX  TOJS,RJQ
04211  M00S03668.rec     +++|          INDEX  IOJS,RJQ
04212  M00S03669.rec     +++|          INDEX  DOJS,RJQ
04213  M00S03670.rec     +++|          INDEX  SUJS,RJQ
Line S00084 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04214  M01S00084.273l780 +++|          INDEX  PCJS,RSJ
04215  M00S03671.rec     +++|          INDEX  ERJS,RJQ
Line S00300 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04216  M02S00300.273l780 ---|          INDEX  PCJS,RSJ
Line S00085 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04217  M01S00085.273l780 +++|          INDEX  PWJS,RPJ
04218  M01S00086.273l780 +++|          INDEX  SWJS,RJQ
04219  M00S03672.rec     +++|          INDEX  MXJS
Line S03673 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04220  M01S03673.273l780 ---| DEF      SPACE  4,10
Line S00087 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04221  M01S00087.273l780 +++| DEF      SPACE  4,20
04222  M00S03674.rec     +++|**        DEF - DETERMINE ERROR FLAG.
04223  M00S03675.rec     +++|*
04224  M00S03676.rec     +++|*         ENTRY  (EO) = EJT ORDINAL.
Line S03677 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04225  M01S03677.271l716 ---|*                (CA - CA+1) = *SCHE* WORD OF EJT ENTRY.
Line S00301 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04226  M01S00301.271l716 +++|*                (PN) = CONTROL POINT NUMBER.
04227  M01S00302.271l716 +++|*                (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04228  M00S03678.rec     +++|*                (CN - CN+4) = *FLSW* WORD.
04229  M00S03679.rec     +++|*                (FN - FN+4) = *STSW* WORD.
04230  M00S03680.rec     +++|*                (FS - FS+4) = *JSNE* WORD OF EJT ENTRY.
04231  M00S03681.rec     +++|*
04232  M00S03682.rec     +++|*         EXIT   (FN+1) = ERROR FLAG.
Line S00088 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04233  M01S00088.273l780 +++|*                ERROR FLAG SET IN CONTROL POINT AREA.
Line S00001 Modification History
M01 (Added by) rec28
Seq #  *Modification Id* Act 
----------------------------+
04234  M01S00001.rec28   +++|*                *JCRW* CLEARED IF RECOVERED SUBSYSTEM.
04235  M00S03683.rec     +++|*
Line S03684 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04236  M01S03684.273l780 ---|*         USES   CM - CM+4.
Line S00089 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04237  M01S00089.273l780 +++|*         USES   FN+1, FS+4, CM - CM+4.
04238  M01S00090.273l780 +++|*
04239  M01S00091.273l780 +++|*         MACROS DELAY, MONITOR, SFA.
04240  M00S03685.rec     +++|
04241  M00S03686.rec     +++|
04242  M00S03687.rec     +++| DEF3     LDD    CA+2        CHECK *NORERUN* STATUS
04243  M00S03688.rec     +++|          SHN    0-13
04244  M00S03689.rec     +++|          ZJN    DEF4        IF JOB IN RERUN STATE
04245  M00S03690.rec     +++|          LDN    RAET&DRET
04246  M00S03691.rec     +++| DEF4     LMN    DRET        SET ERROR FLAG
04247  M00S03692.rec     +++| DEF5     STD    FN+1
Line S00092 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04248  M01S00092.273l780 +++|          STD    CM+1
04249  M01S00093.273l780 +++|          MONITOR  CEFM
04250  M00S03693.rec     +++|
04251  M00S03694.rec     +++| DEF      SUBR               ENTRY/EXIT
Line S00094 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04252  M01S00094.273l780 +++|          LDD    CA+2
04253  M01S00095.273l780 +++|          LPC    3000
04254  M01S00096.273l780 +++|          NJN    DEFX        IF JOB TERMINATION IN PROGRESS
04255  M00S03695.rec     +++|          LDD    FN+1
04256  M00S03696.rec     +++|          LMN    PEET
04257  M00S03697.rec     +++|          ZJN    DEF2        IF *PEET* ERROR FLAG SET
04258  M00S03698.rec     +++|          LDD    CN+4
04259  M00S03699.rec     +++|          ZJN    DEF3        IF NOT RECOVERED SUBSYSTEM
Line S00002 Modification History
M01 (Added by) rec28
Seq #  *Modification Id* Act 
----------------------------+
04260  M01S00002.rec28   +++|          LDN    ZERL        CLEAR *JCRW*
04261  M01S00003.rec28   +++|          CRD    CM
04262  M01S00004.rec28   +++|          LDD    CP
04263  M01S00005.rec28   +++|          ADK    JCRW
04264  M01S00006.rec28   +++|          CWD    CM
04265  M00S03700.rec     +++|          LDN    RSET        SET RECOVERED SUBSYSTEM ERROR
04266  M00S03701.rec     +++|          UJN    DEF5        RETURN
04267  M00S03702.rec     +++|
04268  M00S03703.rec     +++| DEF1     DELAY
Line S03704 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04269  M01S03704.271l716 ---| DEF2     LDD    CP
04270  M01S03705.271l716 ---|          SHN    -7
Line S00303 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04271  M01S00303.271l716 +++| DEF2     LDD    PN
04272  M00S03706.rec     +++|          STD    CM+1
04273  M00S03707.rec     +++|          MONITOR  VFLM      CALL CPUMTR TO VALIDATE FL
04274  M00S03708.rec     +++|          SOD    CM+1
04275  M00S03709.rec     +++|          ZJN    DEFX        IF FL VERIFICATION FAILED
04276  M00S03710.rec     +++|          PJN    DEF1        IF FUNCTION WAS IN USE
04277  M00S03711.rec     +++|          LDD    FS+4        CLEAR JOB ADVANCE FLAG
04278  M00S03712.rec     +++|          LPC    -100
04279  M00S03713.rec     +++|          STD    FS+4
04280  M00S03714.rec     +++|          SFA    EJT,EO
04281  M00S03715.rec     +++|          ADK    JSNE
04282  M00S03716.rec     +++|          CWD    FS
Line S03717 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04283  M01S03717.271l716 ---|          LDD    CP          SET CPU PRIORITY = 1
Line S00304 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04284  M01S00304.271l716 +++|          LDD    CP          SET CPU PRIORITY = *LJCS*
Line S03718 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04285  M01S03718.271l750 ---|          ADK    JCIW
Line S00003 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04286  M01S00003.271l750 +++|          ADK    CWQW
04287  M00S03719.rec     +++|          CRD    CM
Line S03720 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04288  M01S03720.271l716 ---|          LDN    1*2
Line S00305 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04289  M01S00305.271l716 +++|          LDK    LJCS
Line S00004 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04290  M01S00004.271l750 +++|          SHN    3
04291  M01S00005.271l750 +++|          ADC    2000
04292  M00S03721.rec     +++|          STD    CM
04293  M00S03722.rec     +++|          LDD    CP
Line S03723 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04294  M01S03723.271l750 ---|          ADK    JCIW
Line S00006 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
04295  M01S00006.271l750 +++|          ADK    CWQW
04296  M00S03724.rec     +++|          CWD    CM
04297  M00S03725.rec     +++|          UJP    DEF3        SET ERROR FLAG
04298  M00S03726.rec     +++|          TITLE  JOB RECOVERY PROCESSORS.
04299  M00S03727.rec     +++| CSR      SPACE  4,10
04300  M00S03728.rec     +++|**        CSR - CHANGE STATUS TO ROLLOUT.
04301  M00S03729.rec     +++|*
Line S03730 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04302  M01S03730.273l780 ---|*         CALLS  RJQ.
Line S00097 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04303  M01S00097.273l780 +++|*         USES   FS+4.
04304  M01S00098.273l780 +++|*
04305  M01S00099.273l780 +++|*         CALLS  RJQ, SET.
04306  M00S03731.rec     +++|
04307  M00S03732.rec     +++|
04308  M00S03733.rec     +++| CSR      SUBR               ENTRY/EXIT
04309  M00S03734.rec     +++|          LDD    FS+4
04310  M00S03735.rec     +++|          SCN    76
04311  M00S03736.rec     +++|          LMN    ROJS*2      CHANGE JOB STATUS
04312  M00S03737.rec     +++|          STD    FS+4
Line S00100 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04313  M01S00100.273l780 +++|          RJM    SET         SET ENTRY TIME IN *SCHE*
04314  M01S00101.273l780 +++|          SFA    EJT,EO      UPDATE EJT ENTRY
04315  M01S00102.273l780 +++|          ADK    JSNE
04316  M01S00103.273l780 +++|          CWD    FS
04317  M01S00104.273l780 +++|          ADN    SCHE-JSNE
04318  M01S00105.273l780 +++|          CWD    CA
04319  M00S03738.rec     +++|          RJM    RJQ         RETURN JOB TO QUEUE
04320  M00S03739.rec     +++|          UJN    CSRX        RETURN
04321  M00S03740.rec     +++| REJ      SPACE  4,10
04322  M00S03741.rec     +++|**        REJ - RECOVER EXECUTING JOB.
Line S03742 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04323  M01S03742.271l716 ---|*
04324  M01S03743.271l716 ---|*         ENTRY  (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04325  M00S03744.rec     +++|*
Line S00011 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
04326  M01S00011.ns2738c +++|*         USES   CA+2.
04327  M01S00012.ns2738c +++|*
Line S03745 Modification History
M01 (Removed by) rec33
Seq #  *Modification Id* Act 
----------------------------+
04328  M01S03745.rec33   ---|*         CALLS  CSR, DEF.
Line S00017 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04329  M02S00017.273l780 ---|*         CALLS  CSR, DEF, RCP.
Line S00106 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04330  M01S00106.273l780 +++|*         CALLS  DEF.
Line S00013 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
04331  M01S00013.ns2738c +++|*
04332  M01S00014.ns2738c +++|*         MACROS SFA.
04333  M00S03746.rec     +++|*
Line S03747 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04334  M01S03747.273l780 ---|*         MACROS SFA.
Line S00107 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04335  M01S00107.273l780 +++|*         EXIT   TO *ABT* IF PSEUDO-ROLLOUT IN PROGRESS.
04336  M00S03748.rec     +++|
04337  M00S03749.rec     +++|
Line S03750 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04338  M01S03750.273l780 ---| REJ1     LDD    CA+2        CLEAR END-OF-JOB PROCESSING FLAG
04339  M01S03751.273l780 ---|          LPC    4777
04340  M01S03752.273l780 ---|          STD    CA+2
04341  M01S03753.273l780 ---|          SFA    EJT,EO
04342  M01S03754.273l780 ---|          ADK    SCHE
04343  M01S03755.273l780 ---|          CWD    CA
Line S00108 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04344  M01S00108.273l780 +++| REJ      SUBR               ENTRY/EXIT
Line S00018 Modification History
M01 (Added by) rec33
Seq #  *Modification Id* Act 
----------------------------+
04345  M01S00018.rec33   +++|          LDD    NC
04346  M01S00019.rec33   +++|          SBD    PN
Line S00020 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04347  M02S00020.273l780 ---|          PJN    REJX        IF NOT PCP
04348  M02S00021.273l780 ---|          RJM    RCP         RELEASE PSEUDO CONTROL POINT
Line S00109 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04349  M01S00109.273l780 +++|          MJN    REJ1        IF PROCESSING PCP-S
Line S00015 Modification History
M01 (Added by) ns2738c
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00110 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04356  M01S00110.273l780 +++|          RJM    DEF         DETERMINE ERROR FLAG
04357  M01S00111.273l780 +++|          UJN    REJX        RETURN
04358  M00S03756.rec     +++|
Line S03757 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04359  M01S03757.273l780 ---| REJ      SUBR               ENTRY/EXIT
04360  M01S03758.273l780 ---|          RJM    DEF         DETERMINE ERROR FLAG
04361  M01S03759.273l780 ---|          LDD    CA
04362  M01S03760.273l780 ---|          ZJN    REJ1        IF NFL NOT ROLLED
04363  M01S03761.273l780 ---|          RJM    CSR         CHANGE STATUS TO ROLLOUT
04364  M01S03762.273l780 ---|          UJN    REJX        RETURN
Line S00112 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
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  M00S03763.rec     +++| RJQ      SPACE  4,10
04370  M00S03764.rec     +++|**        RJQ - RETURN JOB TO QUEUE.
04371  M00S03765.rec     +++|*
Line S03766 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04372  M01S03766.273l780 ---|*         USES   CM - CM+4.
Line S00116 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04373  M01S00116.273l780 +++|*         EXIT   CONTROL POINT RELEASED.
04374  M01S00117.273l780 +++|*                (EO) = 0.
04375  M01S00118.273l780 +++|*                *REC* ASSIGNED TO SYSTEM CP.
04376  M00S03767.rec     +++|*
Line S03768 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04377  M01S03768.273l780 ---|*         CALLS  RCP, SET.
Line S00119 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04378  M01S00119.273l780 +++|*         USES   EO, FS+4, CM+1.
04379  M00S03769.rec     +++|*
04380  M00S03770.rec     +++|*         MACROS MONITOR, SFA.
04381  M00S03771.rec     +++|
04382  M00S03772.rec     +++|
04383  M00S03773.rec     +++| RJQ      SUBR               ENTRY/EXIT
Line S03774 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04384  M01S03774.273l780 ---|          LDD    CA+2
04385  M01S03775.273l780 ---|          SCN    77
04386  M01S03776.273l780 ---|          STD    CA+2
04387  M01S03777.273l780 ---|          RJM    SET         SET ENTRY TIME
04388  M01S03778.273l780 ---|          SFA    EJT,EO      RETURN JOB TO QUEUE
04389  M01S03779.273l780 ---|          ADK    JSNE
Line S00120 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04390  M01S00120.273l780 +++|          LDC    100         SET JOB ADVANCE FOR *JACM* FUNCTION
04391  M01S00121.273l780 +++|          RAD    FS+4
04392  M01S00122.273l780 +++|          SFA    EJT,EO
04393  M00S03780.rec     +++|          CWD    FS
Line S03781 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04394  M01S03781.273l780 ---|          ADN    SCHE-JSNE
04395  M01S03782.273l780 ---|          CWD    CA
04396  M01S03783.273l780 ---|          RJM    RCP         RELEASE CONTROL POINT
04397  M01S03784.273l780 ---|          LDD    EF
04398  M01S03785.273l780 ---|          ZJN    RJQX        IF NO ERROR FLAG
04399  M01S03786.273l780 ---|          LMC    4000
Line S00123 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04400  M01S00123.273l780 +++|          LDN    CCPS        SET RELEASE CONTROL POINT
04401  M00S03787.rec     +++|          STD    CM+1
Line S03788 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04402  M01S03788.273l780 ---|          LDD    QA
04403  M01S03789.273l780 ---|          STD    CM+2
04404  M01S03790.273l780 ---|          LDD    FS          SET ERROR FLAG IN EJT ENTRY
04405  M01S03791.273l780 ---|          STD    CM+3
04406  M01S03792.273l780 ---|          LDD    FS+1
04407  M01S03793.273l780 ---|          STD    CM+4
04408  M01S03794.273l780 ---|          MONITOR  CEFM
Line S00124 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
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  M00S03795.rec     +++|          UJN    RJQX        RETURN
04416  M00S03796.rec     +++| RPJ      SPACE  4,10
04417  M00S03797.rec     +++|**        RPJ - RECOVER PRE-INITIAL JOB.
04418  M00S03798.rec     +++|*
04419  M00S03799.rec     +++|*         USES   CM - CM+4.
04420  M00S03800.rec     +++|*
04421  M00S03801.rec     +++|*         CALLS  AST, RJQ.
04422  M00S03802.rec     +++|
04423  M00S03803.rec     +++|
04424  M00S03804.rec     +++| RPJ1     RJM    RJQ         RETURN JOB TO QUEUE
04425  M00S03805.rec     +++|
04426  M00S03806.rec     +++| RPJ      SUBR               ENTRY/EXIT
04427  M00S03807.rec     +++|          LDD    CP
04428  M00S03808.rec     +++|          ADN    JCIW
04429  M00S03809.rec     +++|          CRD    CM
04430  M00S03810.rec     +++|          LDC    LSSI        CHECK SUBSYSTEM ID
04431  M00S03811.rec     +++|          SBD    CM+2
04432  M00S03812.rec     +++|          PJN    RPJ1        IF NOT SUBSYSTEM
04433  M00S03813.rec     +++|          LDD    CM+2
04434  M00S03814.rec     +++|          LMC    CEAF*10000  CLEAR JOB ACTIVE IN *SSAT*
04435  M00S03815.rec     +++|          RJM    AST
04436  M00S03816.rec     +++|          UJN    RPJ1        RETURN JOB TO QUEUE
Line S00306 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04437  M01S00306.271l716 +++| RSJ      SPACE  4,10
Line S00307 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04438  M02S00307.273l780 ---|**        RSJ - RECOVER JOB AT PSEUDO CP.
Line S00130 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04439  M01S00130.273l780 +++|**        RSJ - RECOVER JOB AT PSEUDO-CP.
Line S00308 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04440  M01S00308.271l716 +++|*
Line S00309 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S00309.273l780 ---|*         ERROR  TO *ABT* IF PSEUDO ROLLIN/ROLLOUT IN PROGRESS.
Line S00131 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04442  M01S00131.273l780 +++|*         EXIT   TO *ABT* IF PSEUDO-ROLLIN IN PROGRESS.
Line S00310 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04443  M01S00310.271l716 +++|
04444  M01S00311.271l716 +++|
04445  M01S00312.271l716 +++| RSJ      SUBR               ENTRY/EXIT
Line S00313 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04446  M02S00313.273l780 ---|          LDD    FS+4
04447  M02S00314.273l780 ---|          SHN    21-6
04448  M02S00315.273l780 ---|          PJN    RSJX        IF JOB ADVANCE NOT SET
04449  M02S00316.273l780 ---|          LJM    ABT         ABORT
Line S00132 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
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  M00S03817.rec     +++|          TITLE  SUBROUTINES.
04459  M00S03818.rec     +++| PLF      SPACE  4,15
04460  M00S03819.rec     +++|**        PLF - PROCESS LOCAL FNT.
04461  M00S03820.rec     +++|*
04462  M00S03821.rec     +++|*         ENTRY  (CP) = CONTROL POINT ADDRESS.
04463  M00S03822.rec     +++|*                (CN - CN+4) = *FLSW* WORD.
04464  M00S03823.rec     +++|*                (FN - FN+4) = *STSW* WORD.
04465  M00S03824.rec     +++|*
04466  M00S03825.rec     +++|*         EXIT   (RA) = CONTROL POINT REFERENCE ADDRESS / 100.
04467  M00S03826.rec     +++|*
04468  M00S03827.rec     +++|*         USES   FA, QS, QT, CM - CM+4, FS - FS+4.
04469  M00S03828.rec     +++|*
04470  M00S03829.rec     +++|*         CALLS  UQE, VEI.
04471  M00S03830.rec     +++|*
Line S03831 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04472  M01S03831.273l780 ---|*         MACROS NFA, PAUSE.
Line S00140 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04473  M01S00140.273l780 +++|*         MACROS MONITOR, NFA.
04474  M00S03832.rec     +++|
04475  M00S03833.rec     +++|
04476  M00S03834.rec     +++| PLF      SUBR               ENTRY/EXIT
Line S03835 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04477  M01S03835.273l780 ---|          PAUSE  NE          SET RA
04478  M00S03836.rec     +++|          LDD    CN          SET END OF NFL
04479  M00S03837.rec     +++|          SHN    6
04480  M00S03838.rec     +++|          ADN    1
04481  M00S03839.rec     +++|          STD    QS
04482  M00S03840.rec     +++|          LDC    FNTN-LENF
04483  M00S03841.rec     +++|          STD    FA
04484  M00S03842.rec     +++| PLF1     LDN    LENF        ADVANCE FNT ADDRESS
04485  M00S03843.rec     +++|          RAD    FA
04486  M00S03844.rec     +++|          SBD    QS
04487  M00S03845.rec     +++|          PJN    PLFX        IF END OF NFL
04488  M00S03846.rec     +++|          NFA    FA,R        READ FNT ENTRY
04489  M00S03847.rec     +++|          CRD    CM
04490  M00S03848.rec     +++|          ADN    FSTL
04491  M00S03849.rec     +++|          CRD    FS
04492  M00S03850.rec     +++|          LDD    CM
04493  M00S03851.rec     +++|          ZJN    PLF1        IF EMPTY FNT SLOT
04494  M00S03852.rec     +++|          LDD    CM+4        SET FILE TYPE
04495  M00S03853.rec     +++|          SHN    -6
04496  M00S03854.rec     +++|          STD    QT
04497  M00S03855.rec     +++|          LMN    QFFT
04498  M00S03856.rec     +++|          NJN    PLF2        IF NOT QUEUE FILE
04499  M00S03857.rec     +++|          RJM    UQE         UPDATE QFT ENTRY
04500  M00S03858.rec     +++| PLF2     LMN    ROFT&QFFT
04501  M00S03859.rec     +++|          ZJN    PLF5        IF ROLLOUT FILE
04502  M00S03860.rec     +++|          LDD    FS+4
04503  M00S03861.rec     +++|          LPN    1
04504  M00S03862.rec     +++|          NJN    PLF1        IF FILE NOT BUSY
04505  M00S03863.rec     +++| PLF3     AOD    FS+4
04506  M00S03864.rec     +++|          NFA    FA,R        UPDATE FST
04507  M00S03865.rec     +++|          ADN    FSTL
04508  M00S03866.rec     +++|          CWD    FS
04509  M00S03867.rec     +++|          LDD    FS+4        CHECK LAST OPERATION
04510  M00S03868.rec     +++|          LPN    2
04511  M00S03869.rec     +++|          ZJN    PLF4        IF NOT WRITE
04512  M00S03870.rec     +++|          RJM    VEI         VALIDATE EOI FOR FILE
04513  M00S03871.rec     +++| PLF4     LJM    PLF1        LOOP FOR NEXT FILE
04514  M00S03872.rec     +++|
04515  M00S03873.rec     +++| PLF5     LDN    LOFT-ROFT   SET FILE TYPE TO *LOFT*
04516  M00S03874.rec     +++|          SHN    6
04517  M00S03875.rec     +++|          RAD    CM+4
04518  M00S03876.rec     +++|          NFA    FA,R        UPDATE FNT
04519  M00S03877.rec     +++|          CWD    CM
04520  M00S03878.rec     +++|          LDD    FS+1        SET FIRST TRACK
04521  M00S03879.rec     +++|          ZJN    PLF4        IF TRACKS NOT ASSIGNED
04522  M00S03880.rec     +++|          STD    CM+2
04523  M00S03881.rec     +++|          LDD    FS          SET EQUIPMENT
Line S00141 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04524  M01S00141.273l780 +++|          LMD    TH          SET RETURN ON INACCESSIBLE DEVICE
04525  M00S03882.rec     +++|          STD    CM+1
04526  M00S03883.rec     +++|          MONITOR  DTKM      RELEASE MASS STORAGE SPACE
04527  M00S03884.rec     +++|          LDN    ZERL
04528  M00S03885.rec     +++|          CRD    FS
04529  M00S03886.rec     +++|          LDN    NEEQ        ASSIGN TO NULL EQUIPMENT
04530  M00S03887.rec     +++|          STD    FS
04531  M00S03888.rec     +++|          UJP    PLF3        UPDATE FST
Line S03889 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04532  M01S03889.273l780 ---| RCP      SPACE  4,10
04533  M01S03890.273l780 ---|**        RCP - RELEASE CONTROL POINT.
04534  M01S03891.273l780 ---|*
Line S03892 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04535  M02S03892.273l780 ---|*         ENTRY  (CP) = CONTROL POINT ADDRESS.
Line S00317 Modification History
M01 (Added by) 271l716
M02 (Removed by) rec33
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04536  M03S00317.273l780 ---|*         ENTRY  (PN) = CONTROL POINT NUMBER.
Line S00022 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04537  M02S00022.273l780 ---|*         ENTRY  (PN) = CP/PCP NUMBER.
Line S03893 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04538  M01S03893.273l780 ---|*                (FN - FN+4) = *STSW* WORD.
04539  M01S03894.273l780 ---|*
04540  M01S03895.273l780 ---|*         EXIT   (EO) = 0.
04541  M01S03896.273l780 ---|*                (EF) = ERROR FLAG.
04542  M01S03897.273l780 ---|*
Line S03898 Modification History
M01 (Removed by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04543  M02S03898.273l780 ---|*         USES   CM - CM+4.
Line S00023 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04544  M02S00023.273l780 ---|*         USES   CM - CM+4, EF, EO, FN+1.
Line S03899 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04545  M01S03899.273l780 ---|*
04546  M01S03900.273l780 ---|*         MACROS MONITOR.
04547  M01S03901.273l780 ---|
04548  M01S03902.273l780 ---|
Line S00024 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04549  M02S00024.273l780 ---| RCP1     LDD    IA          STORE INPUT REGISTER
04550  M02S00025.273l780 ---|          CWD    CM
04551  M02S00026.273l780 ---|          LDN    CCPS        CLEAR JOB ADVANCE AND CP INFORMATION
04552  M02S00027.273l780 ---| RCP2     STD    CM+1
04553  M02S00028.273l780 ---|          LDD    FN+1        SAVE ERROR FLAG
04554  M02S00029.273l780 ---|          STD    EF
04555  M02S00030.273l780 ---|          MONITOR  JACM
04556  M02S00031.273l780 ---|*         LDN    0           CLEAR EJT ORDINAL
04557  M02S00032.273l780 ---|          STD    EO
04558  M02S00033.273l780 ---|          STD    FN+1
04559  M02S00034.273l780 ---|          LDD    IA          RESET INPUT REGISTER
04560  M02S00035.273l780 ---|          CWD    IR
04561  M02S00036.273l780 ---|
Line S03903 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04562  M01S03903.273l780 ---| RCP      SUBR               ENTRY/EXIT
04563  M01S03904.273l780 ---|          LDD    IA
04564  M01S03905.273l780 ---|          CRD    IR
04565  M01S03906.273l780 ---|          CRD    CM
Line S03907 Modification History
M01 (Removed by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04566  M02S03907.273l780 ---|          LDD    CP          SET INPUT REGISTER TO CORRECT CP
04567  M02S03908.273l780 ---|          SHN    -7
Line S00318 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04568  M02S00318.273l780 ---|          LDD    PN          SET INPUT REGISTER TO CORRECT CP
Line S03909 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04569  M01S03909.273l780 ---|          LMC    2L C
04570  M01S03910.273l780 ---|          STD    CM+1
Line S03911 Modification History
M01 (Removed by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04571  M02S03911.273l780 ---|          LDD    IA          STORE INPUT REGISTER
04572  M02S03912.273l780 ---|          CWD    CM
04573  M02S03913.273l780 ---|          LDD    FN+1        SAVE ERROR FLAG
04574  M02S03914.273l780 ---|          STD    EF
04575  M02S03915.273l780 ---|          LDN    CCPS        CLEAR JOB ADVANCE AND CP INFORMATION
04576  M02S03916.273l780 ---|          STD    CM+1
04577  M02S03917.273l780 ---|          MONITOR  JACM
04578  M02S03918.273l780 ---|*         LDN    0           CLEAR EJT ORDINAL
04579  M02S03919.273l780 ---|          STD    EO
04580  M02S03920.273l780 ---|          STD    FN+1
04581  M02S03921.273l780 ---|          LDD    IA          RESET INPUT REGISTER
04582  M02S03922.273l780 ---|          CWD    IR
Line S03923 Modification History
M01 (Removed by) 271l716
M02 (Removed by) rec33
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04583  M03S03923.273l780 ---|          LDD    CP          CLEAR PSEUDO PP ASSIGNMENT
04584  M03S03924.273l780 ---|          ADN    STSW
04585  M03S03925.273l780 ---|          CWD    FN
Line S03926 Modification History
M01 (Removed by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04586  M02S03926.273l780 ---|          UJN    RCPX        RETURN
Line S00037 Modification History
M01 (Added by) rec33
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04587  M02S00037.273l780 ---|          LDD    NC
04588  M02S00038.273l780 ---|          SBD    PN
04589  M02S00039.273l780 ---|          PJN    RCP1        IF NOT PSEUDO-CONTROL POINT
04590  M02S00040.273l780 ---|          LDD    PN
04591  M02S00041.273l780 ---|          STD    CM+2
04592  M02S00042.273l780 ---|          LDC    1S11+CCPS   CLEAR JOB ADVANCE AND CP INFORMATION
04593  M02S00043.273l780 ---|          UJN    RCP2        ISSUE MONITOR FUNCTION
04594  M00S03927.rec     +++|          SPACE  4,10
04595  M00S03928.rec     +++|**        COMMON DECKS.
04596  M00S03929.rec     +++|
04597  M00S03930.rec     +++|
04598  M00S03931.rec     +++|          QUAL   AST
04599  M00S03932.rec     +++| QUAL$    EQU    0           DONT REQUALIFY COMMON DECK
04600  M00S03933.rec     +++| AST$     EQU    0           ASSEMBLE *SSAT* MODIFICATION ROUTINES
04601  M00S03934.rec     +++|*CALL     COMPAST
04602  M00S03935.rec     +++|          QUAL   SET
04603  M00S03936.rec     +++| QUAL$    EQU    0           DONT REQUALIFY COMMON DECK
04604  M00S03937.rec     +++|*CALL     COMPRJC
04605  M00S03938.rec     +++|
04606  M00S03939.rec     +++|
04607  M00S03940.rec     +++| CET$     EQU    0           ASSEMBLE ENTRY TIME CALCULATION ROUTINES
04608  M00S03941.rec     +++| T1       EQU    CA+3
04609  M00S03942.rec     +++| T2       EQU    CA+4
04610  M00S03943.rec     +++|*CALL     COMPCPE
Line S03944 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04611  M01S03944.273l780 ---| SET      SPACE  4,10
Line S00142 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04612  M01S00142.273l780 +++| SET      SPACE  4,15
04613  M00S03945.rec     +++|**        SET - SET ENTRY TIME.
04614  M00S03946.rec     +++|*
04615  M00S03947.rec     +++|*         ENTRY  (EO) = EJT ORDINAL.
04616  M00S03948.rec     +++|*                (CA - CA+4) = *SCHE* WORD OF EJT ENTRY.
04617  M00S03949.rec     +++|*
Line S03950 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04618  M01S03950.273l780 ---|*         USES   CM - CM+4.
Line S00143 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
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  M00S03951.rec     +++|*
04624  M00S03952.rec     +++|*         CALLS  CET.
04625  M00S03953.rec     +++|*
04626  M00S03954.rec     +++|*         MACROS SFA.
04627  M00S03955.rec     +++|
04628  M00S03956.rec     +++|
04629  M00S03957.rec     +++| SET      SUBR               ENTRY/EXIT
04630  M00S03958.rec     +++|          SFA    EJT,EO      FETCH SERVICE CLASS FROM EJT ENTRY
04631  M00S03959.rec     +++|          ADN    SCLE
04632  M00S03960.rec     +++|          CRD    CM
04633  M00S03961.rec     +++|          LCN    0           SET MAXIMUM PRIORITY
04634  M00S03962.rec     +++|          STD    T1
04635  M00S03963.rec     +++|          LDD    CM          CALCULATE ENTRY TIME
04636  M00S03964.rec     +++|          SCN    77
04637  M00S03965.rec     +++|          SHN    6
04638  M00S03966.rec     +++|          LMN    EXQT
04639  M00S03967.rec     +++|          RJM    CET
Line S00147 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
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  M00S03968.rec     +++|          UJN    SETX        RETURN
04648  M00S03969.rec     +++|
04649  M00S03970.rec     +++|
04650  M00S03971.rec     +++|          QUAL   CPR
04651  M00S03972.rec     +++| AST      EQU    /AST/AST
04652  M00S03973.rec     +++| CEAF     EQU    /AST/CEAF
04653  M00S03974.rec     +++| SET      EQU    /SET/SET
04654  M00S03975.rec     +++|          SPACE  4,10
04655  M00S03976.rec     +++|          ERRPL  *-BFMS      OVERFLOW INTO BUFFER
04656  M00S03977.rec     +++|          SPACE  4,10
04657  M00S03978.rec     +++|          QUAL
Line S00319 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04658  M01S00319.271l716 +++| ABT      EQU    /CPR/ABT
Line S03979 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04659  M01S03979.273l780 ---| CJP      EQU    /CPR/CJP
Line S00154 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
04660  M01S00154.273l780 +++| CRS      EQU    /CPR/CRS
Line S03980 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04661  M01S03980.271l716 ---| CJP1     EQU    /CPR/CJP1
04662  M00S03981.rec     +++| OVLC     EQU    /CPR/OVLC
04663  M00S03982.rec     +++| PLF      EQU    /CPR/PLF
04664  M00S03983.rec     +++| UQE      EQU    /CPR/UQE
04665  M00S03984.rec     +++| VEI      EQU    /CPR/VEI
04666  M00S03985.rec     +++|          TTL    REC/4RE - ISSUE DEADSTART MESSAGES.
04667  M00S03986.rec     +++|          TITLE
04668  M00S03987.rec     +++|          QUAL   IDM
04669  M00S03988.rec     +++|          IDENT  4RE,IDMX
04670  M00S03989.rec     +++|*COMMENT REC - ISSUE DEADSTART MESSAGES.
Line S03990 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04671  M01S03990.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1983.
Line S00006 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04672  M01S00006.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04673  M00S03991.rec     +++| IDF      SPACE  4,10
04674  M00S03992.rec     +++|***       4RE - ISSUE DEADSTART MESSAGES.
04675  M00S03993.rec     +++|*
04676  M00S03994.rec     +++|*         *4RE* ISSUES THE DEADSTART MESSAGES PERTAINING TO RECOVERY,
04677  M00S03995.rec     +++|*         AS SET UP BY *4RA*.
04678  M00S03996.rec     +++| IDF      SPACE  4,20
04679  M00S03997.rec     +++|***       DAYFILE MESSAGES.
04680  M00S03998.rec     +++|*
04681  M00S03999.rec     +++|*         * YY/MM/DD. DEAD START LEVEL  X.* = DATE AND LEVEL NUMBER OF
04682  M00S04000.rec     +++|*         DEADSTART.
04683  M00S04001.rec     +++|*         *X...X* = SYSTEM TITLE.
04684  M00S04002.rec     +++|*
04685  M00S04003.rec     +++|*         *X...X* = SYSTEM VERSION.
04686  M00S04004.rec     +++|*
04687  M00S04005.rec     +++|*
04688  M00S04006.rec     +++|*         *EQXXX, DAYFILE TRACK LIMIT.* = DEADSTART IS ABANDONED.
04689  M00S04007.rec     +++|*
04690  M00S04008.rec     +++|*         *EQXXX, LOCAL AREA SECTOR ERROR.* = READ ERROR OCCURRED.
04691  M00S04009.rec     +++|*
04692  M00S04010.rec     +++|*         *FILENAM   RECOVERED, EQXXX.* = SPECIFIED DAYFILE WAS
04693  M00S04011.rec     +++|*         RECOVERED ON EST ORDINAL XXX.
04694  M00S04012.rec     +++|*
04695  M00S04013.rec     +++|*         *FILENAM   CREATION DATE YY/MM/DD. * = CREATION DATE OF
04696  M00S04014.rec     +++|*         SPECIFIED DAYFILE.
04697  M00S04015.rec     +++|*
04698  M00S04016.rec     +++|*         *FILENAME   UPDATED YY/MM/DD. HH.MM.SS. * = DATE
04699  M00S04017.rec     +++|*         AND TIME LAST EOI WAS WRITTEN.
04700  M00S04018.rec     +++| IDM      SPACE  4,10
04701  M00S04019.rec     +++|***       ACCOUNT FILE MESSAGES.
04702  M00S04020.rec     +++|*
04703  M00S04021.rec     +++|*         *ABSY,  YY/MM/DD.* = ACCOUNT FILE WAS INITIALIZED.
04704  M00S04022.rec     +++|*
04705  M00S04023.rec     +++|*         *ARSY, X, YY/MM/DD.* = DAYFILES WERE RECOVERED ON A LEVEL X
04706  M00S04024.rec     +++|*         DEADSTART ON THE SPECIFIED DATE.
04707  M00S04025.rec     +++|*
04708  M00S04026.rec     +++|*         *ABST, X...X.* = SYSTEM TITLE.
04709  M00S04027.rec     +++|*
04710  M00S04028.rec     +++|*         *ABSV, X...X.* = SYSTEM VERSION.
04711  M00S04029.rec     +++| IDM      SPACE  4,10
04712  M00S04030.rec     +++|***       ERROR LOG MESSAGES.
04713  M00S04031.rec     +++|*
04714  M00S04032.rec     +++|*         *X...X* = SYSTEM TITLE.
04715  M00S04033.rec     +++|*
04716  M00S04034.rec     +++|*         *X...X* = SYSTEM VERSION.
04717  M00S04035.rec     +++|*
04718  M00S04036.rec     +++|*         *MICROCODE, XX.* = LEVEL OF LOADED MICROCODE.
04719  M00S04037.rec     +++|*
04720  M00S04038.rec     +++|*         *EI, XX* = LEVEL OF ERROR INTERFACE.
04721  M00S04039.rec     +++|*
04722  M00S04040.rec     +++|*         * BUFFERED I/O RECOVERY ERRORS.
04723  M00S04041.rec     +++|*                * WRITE LIST LINKAGE ERROR.
04724  M00S04042.rec     +++|*                * READ DATA ON WRITE LIST.
04725  M00S04043.rec     +++|*                * INTERLOCKED BUFFER ON WRITE LIST.
04726  M00S04044.rec     +++|*                * WRITE LIST BUFFER COUNT.
04727  M00S04045.rec     +++|*                * NON-LINKED WRITE BUFFER.
04728  M00S04046.rec     +++|*
04729  M00S04047.rec     +++|*         * BUFFERED I/O RECOVERY ERRORS EQXXX.
04730  M00S04048.rec     +++|*                * I/O QUEUE SIZE ERROR.
04731  M00S04049.rec     +++|*                * I/O LINKAGE ERROR.
04732  M00S04050.rec     +++|*                * I/O *PUT* ORDINAL ERROR.
04733  M00S04051.rec     +++| IDM      SPACE  4,10
04734  M00S04052.rec     +++|          ORG    OVLB
04735  M00S04053.rec     +++| IDM      SPACE  4,10
04736  M00S04054.rec     +++|**        IDM - ISSUE DEAD START MESSAGES.
04737  M00S04055.rec     +++|*
04738  M00S04056.rec     +++|*         ENTRY  (FN - FN+4) = DAYFILE EQUIPMENTS.
04739  M00S04057.rec     +++|*
04740  M00S04058.rec     +++|*         EXIT   DEAD START MESSAGE ISSUED TO SYSTEM DAYFILE.
04741  M00S04059.rec     +++|*                DEAD START MESSAGE ISSUED TO ACCOUNT DAYFILE.
04742  M00S04060.rec     +++|*                DEAD START MESSAGE ISSUED TO ERROR LOG DAYFILE.
Line S00001 Modification History
M01 (Added by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04743  M01S00001.rec25   +++|*                DEAD START MESSAGE ISSUED TO BML.
04744  M00S04061.rec     +++|*                APPROPRIATE MESSAGES CONCERNING DAYFILE RECOVERY.
04745  M00S04062.rec     +++|*                APPROPRIATE MESSAGES CONCERNING MICROCODE AND EI.
04746  M00S04063.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO SYSTEM DAYFILE.
04747  M00S04064.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO ACCOUNT DAYFILE.
04748  M00S04065.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO ERROR LOG DAYFILE.
04749  M00S04066.rec     +++|*                SYSTEM TITLE AND VERSION ISSUED TO BML.
04750  M00S04067.rec     +++|*                BUFFERED I/O RECOVERY ERRORS PROCESSED.
04751  M00S04068.rec     +++|*
04752  M00S04069.rec     +++|*         CALLS  ACS, BRM, C2D, DFM.
04753  M00S04070.rec     +++|*
04754  M00S04071.rec     +++|*         USES   QT, T1, T4, CM - CM+4.
04755  M00S04072.rec     +++|
04756  M00S04073.rec     +++|
04757  M00S04074.rec     +++| IDM      SUBR               ENTRY/EXIT
04758  M00S04075.rec     +++|          LDN    DSSL        SET RECOVERY LEVEL
04759  M00S04076.rec     +++|          CRD    CM
04760  M00S04077.rec     +++|          LDD    CM+4        CONVERT RECOVERY MODE
04761  M00S04078.rec     +++|          LPN    3
Line S00002 Modification History
M01 (Added by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04762  M01S00002.rec25   +++|          STM    IDMG+2      SET IN BML MESSAGE
04763  M00S04079.rec     +++|          ADC    2R 0
04764  M00S04080.rec     +++|          STM    IDMF1
04765  M00S04081.rec     +++|          SHN    6
04766  M00S04082.rec     +++|          LMN    1R,
04767  M00S04083.rec     +++|          STM    RDBG+3
04768  M00S04084.rec     +++|
04769  M00S04085.rec     +++|*         ISSUE DEADSTART MESSAGES.
04770  M00S04086.rec     +++|
04771  M00S04087.rec     +++|          LDM    RDBK
04772  M00S04088.rec     +++|          STM    IDMA
04773  M00S04089.rec     +++|          LDN    DTEL        READ DATE TO MESSAGE
04774  M00S04090.rec     +++|          CRM    IDMF,ON
04775  M00S04091.rec     +++|          SBN    1
04776  M00S04092.rec     +++|          CRM    **,ON
04777  M00S04093.rec     +++| IDMA     EQU    *-1
04778  M00S04094.rec     +++|*         CRM    RDBG+3,ON   (ACCOUNT FILE INITIALIZED)
04779  M00S04095.rec     +++|*         CRM    RDBG+4,ON   (ACCOUNT FILE RECOVERED)
04780  M00S04096.rec     +++|          LDC    IDMF        ISSUE MESSAGE TO DAYFILE
04781  M00S04097.rec     +++|          RJM    DFM
04782  M00S04098.rec     +++|          LDC    ACFN+RDBG   ISSUE MESSAGE TO ACCOUNT DAYFILE
04783  M00S04099.rec     +++|          RJM    DFM
04784  M00S04100.rec     +++|          LDC    ERLN+IDMF   ISSUE MESSAGE TO ERROR LOG
Line S00003 Modification History
M01 (Added by) rec25
Seq #  *Modification Id* Act 
----------------------------+
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  M00S04101.rec     +++|          RJM    DFM
04794  M00S04102.rec     +++|
04795  M00S04103.rec     +++|*         ISSUE SYSTEM TITLE AND VERSION DAYFILE MESSAGES
04796  M00S04104.rec     +++|
04797  M00S04105.rec     +++|          LDN    4           READ SYSTEM TITLE
04798  M00S04106.rec     +++|          STD    T1
04799  M00S04107.rec     +++|          LDN    SYTL
04800  M00S04108.rec     +++|          CRM    IDMM2,T1
04801  M00S04109.rec     +++|          LDN    2           READ SYSTEM VERSION
04802  M00S04110.rec     +++|          STD    T1
04803  M00S04111.rec     +++|          LDN    SVNL
04804  M00S04112.rec     +++|          CRM    IDMN2,T1
04805  M00S04113.rec     +++|          LDC    IDMM2       ISSUE SYSTEM TITLE TO MASTER DAYFILE
04806  M00S04114.rec     +++|          RJM    DFM
04807  M00S04115.rec     +++|          LDC    IDMN2       ISSUE SYSTEM VERSION TO MASTER DAYFILE
04808  M00S04116.rec     +++|          RJM    DFM
04809  M00S04117.rec     +++|          LDC    ACFN+IDMM+2 ISSUE TITLE TO ACCOUNT DAYFILE
04810  M00S04118.rec     +++|          RJM    DFM
04811  M00S04119.rec     +++|          LDC    ACFN+IDMN+2 ISSUE SYSTEM VERSION TO ACCOUNT FILE
04812  M00S04120.rec     +++|          RJM    DFM
04813  M00S04121.rec     +++|          LDC    ERLN+IDMM2  ISSUE SYSTEM TITLE TO ERRLOG
04814  M00S04122.rec     +++|          RJM    DFM
04815  M00S04123.rec     +++|          LDC    ERLN+IDMN2  ISSUE SYSTEM VERSION TO ERRLOG
04816  M00S04124.rec     +++|          RJM    DFM
04817  M00S04125.rec     +++|          LDN    ZERL        CLEAR BML AREA
04818  M00S04126.rec     +++|          CRM    IDMM,ON
04819  M00S04127.rec     +++|          CRM    IDMN,ON
04820  M00S04128.rec     +++|          LDC    DM0400      INSERT BML ID
04821  M00S04129.rec     +++|          STM    IDMM
04822  M00S04130.rec     +++|          STM    IDMN
04823  M00S04131.rec     +++|          LDC    SS0100      INSERT BML SYSTEM TITLE SYMPTOM
04824  M00S04132.rec     +++|          STM    IDMM+1
04825  M00S04133.rec     +++|          LDC    SS0101      INSERT BML SYSTEM VERSION SYMPTOM
04826  M00S04134.rec     +++|          STM    IDMN+1
04827  M00S04135.rec     +++|          LDN    IDMM1L      SET SYSTEM TITLE MESSAGE LENGTH
04828  M00S04136.rec     +++|          STD    CM+1
04829  M00S04137.rec     +++|          LDC    BMLN+IDMM   ISSUE MESSAGE TO MAINTENANCE LOG
04830  M00S04138.rec     +++|          RJM    DFM
04831  M00S04139.rec     +++|          LDN    IDMN1L      SET SYSTEM VERSION MESSAGE LENGTH
04832  M00S04140.rec     +++|          STD    CM+1
04833  M00S04141.rec     +++|          LDC    BMLN+IDMN   ISSUE MESSAGE TO MAINTENANCE LOG
04834  M00S04142.rec     +++|          RJM    DFM
04835  M00S04143.rec     +++|
04836  M00S04144.rec     +++|*         COPY MICROCODE AND EI NAMES AND DATES TO MESSAGES.
04837  M00S04145.rec     +++|
04838  M00S04146.rec     +++|          LDK    EABL+MFEI   GET MESSAGE INFORMATION
04839  M00S04147.rec     +++|          CRD    CM
04840  M00S04148.rec     +++|          ADK    CPEI-MFEI
04841  M00S04149.rec     +++|          CRD    CN
04842  M00S04150.rec     +++|          LDD    CM+1        GET MF DESCRIPTOR
04843  M00S04151.rec     +++|          SCN    77
04844  M00S04152.rec     +++|          SHN    6
04845  M00S04153.rec     +++|          LMD    CM
04846  M00S04154.rec     +++|          SHN    6
04847  M00S04155.rec     +++|          CRD    CM
04848  M00S04156.rec     +++|          ADN    1           READ EI DATE/NAME
04849  M00S04157.rec     +++|          CRM    IDMH1+2*5,ON
04850  M00S04158.rec     +++|          LDD    CM+1
04851  M00S04159.rec     +++|          SHN    -6
04852  M00S04160.rec     +++|          LMN    7
04853  M00S04161.rec     +++|          NJP    IDM3        IF NOT CYBER 180 MACHINE
04854  M00S04162.rec     +++|          LDD    CM+1
04855  M00S04163.rec     +++|          LPN    1
Line S04164 Modification History
M01 (Removed by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04856  M01S04164.rec25   ---|          NJN    IDM0        IF CPU-0 OFF
Line S00011 Modification History
M01 (Added by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04857  M01S00011.rec25   +++|          NJN    IDM0.1      IF CPU-0 OFF
04858  M00S04165.rec     +++|          LDD    CN+1        GET PROCESSOR DESCRIPTOR
04859  M00S04166.rec     +++|          SCN    77
04860  M00S04167.rec     +++|          SHN    6
04861  M00S04168.rec     +++|          LMD    CN
04862  M00S04169.rec     +++|          SHN    6
04863  M00S04170.rec     +++|          UJN    IDM1        FETCH MICROCODE IDENTIFICATION
04864  M00S04171.rec     +++|
Line S04172 Modification History
M01 (Removed by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04865  M01S04172.rec25   ---| IDM0     LDD    CN+1
Line S00012 Modification History
M01 (Added by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04866  M01S00012.rec25   +++| IDM0.1   LDD    CN+1
04867  M00S04173.rec     +++|          LPN    77
04868  M00S04174.rec     +++|          SHN    14
04869  M00S04175.rec     +++|          LMD    CN+2
04870  M00S04176.rec     +++| IDM1     ADN    2
04871  M00S04177.rec     +++|          CRM    IDMH1,ON    READ MICROCODE NAME/DATE
04872  M00S04178.rec     +++|          CRM    IDMH1+5,ON
04873  M00S04179.rec     +++|          LDM    IDMH1+2*5+3 MOVE EI NAME
04874  M00S04180.rec     +++|          STM    IDMH1+4
04875  M00S04181.rec     +++|          LDM    IDMH1+2*5+4 MOVE VERIFICATION FLAG
04876  M00S04182.rec     +++|          SHN    1
04877  M00S04183.rec     +++|          RAM    IDMH1+5+4
04878  M00S04184.rec     +++|          LDN    0
04879  M00S04185.rec     +++|          STM    IDMH1+2*5+3
04880  M00S04186.rec     +++|          STM    IDMH1+2*5+4
04881  M00S04187.rec     +++|          LDN    IDMHL       SET MESSAGE LENGTH
04882  M00S04188.rec     +++|          STD    CM+1
04883  M00S04189.rec     +++|          LDC    BMLN+IDMH   ISSUE MESSAGE TO MAINTENANCE LOG
04884  M00S04190.rec     +++|          RJM    DFM
04885  M00S04191.rec     +++|          LDC    IDMJ        SET ASSEMBLY BUFFER ADDRESS
04886  M00S04192.rec     +++|          STD    T1
04887  M00S04193.rec     +++|          LDC    IDMH1       SET MICROCODE NAME
04888  M00S04194.rec     +++|          RJM    ACS
04889  M00S04195.rec     +++|          LDC    =C*, *      INSERT SEPARATOR
04890  M00S04196.rec     +++|          RJM    ACS
04891  M00S04197.rec     +++|          LDC    IDMH1+1*5+0 SET MICROCODE DATE
04892  M00S04198.rec     +++|          RJM    ACS
04893  M00S04199.rec     +++|          LDM    IDMH1+1*5+4 DETERMINE IF MICROCODE LOADED
04894  M00S04200.rec     +++|          ZJN    IDM2        IF LOADED
04895  M00S04201.rec     +++|          LDC    =C*, *      SET SEPARATOR
04896  M00S04202.rec     +++|          RJM    ACS
04897  M00S04203.rec     +++|          LCN    1
04898  M00S04204.rec     +++| IDM2     ADC    =C*NL. *+1
04899  M00S04205.rec     +++|          RJM    ACS
04900  M00S04206.rec     +++|          LDC    IDML        SET ASSEMBLY BUFFER ADDRESS
04901  M00S04207.rec     +++|          STD    T1
04902  M00S04208.rec     +++|          LDM    IDMH1+0*5+4 SET EI NAME
04903  M00S04209.rec     +++|          STI    T1
04904  M00S04210.rec     +++|          AOD    T1
04905  M00S04211.rec     +++|          LDC    =C*, *      INSERT SEPARATOR
04906  M00S04212.rec     +++|          RJM    ACS
04907  M00S04213.rec     +++|          LDC    IDMH1+2*5+0 SET EI DATE
04908  M00S04214.rec     +++|          RJM    ACS
04909  M00S04215.rec     +++|          LDC    =C*. *      INSERT TERMINATOR
04910  M00S04216.rec     +++|          RJM    ACS
04911  M00S04217.rec     +++|          LDC    ERLN+IDMI   ISSUE MESSAGE TO ERRLOG
04912  M00S04218.rec     +++|          RJM    DFM
04913  M00S04219.rec     +++|          LDC    ERLN+IDMK   ISSUE MESSAGE TO ERRLOG
04914  M00S04220.rec     +++|          RJM    DFM
04915  M00S04221.rec     +++| IDM3     LCN    0           CLEAR FILE INDEX
04916  M00S04222.rec     +++|          STD    QT
04917  M00S04223.rec     +++|
04918  M00S04224.rec     +++|*         ISSUE DAYFILE RECOVERY MESSAGES.
04919  M00S04225.rec     +++|
04920  M00S04226.rec     +++|          LDD    RS
04921  M00S04227.rec     +++|          LPN    FLMK
04922  M00S04228.rec     +++|          LMN    FLCM
Line S04229 Modification History
M01 (Removed by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04923  M01S04229.rec25   ---|          NJN    IDM5        IF DAYFILES NOT RECOVERED FROM CM
Line S00013 Modification History
M01 (Added by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04924  M01S00013.rec25   +++|          NJN    IDM6        IF DAYFILES NOT RECOVERED FROM CM
04925  M00S04230.rec     +++|          RJM    BRM         PROCESS BUFFERED I/O RECOVERY MESSAGES
04926  M00S04231.rec     +++| IDM4     LJM    IDMX        RETURN
04927  M00S04232.rec     +++|
Line S04233 Modification History
M01 (Removed by) rec25
Seq #  *Modification Id* Act 
----------------------------+
04928  M01S04233.rec25   ---| IDM5     LDM    RDBF+MLDY
04929  M01S04234.rec25   ---|          ZJN    IDM6        IF MAINTENANCE LOG NOT CREATED
04930  M01S04235.rec25   ---|          LDN    IDMGL       SET CREATION MESSAGE LENGTH
04931  M01S04236.rec25   ---|          STD    CM+1
04932  M01S04237.rec25   ---|          LDC    BMLN+IDMG   ISSUE MESSAGE TO MAINTENANCE LOG
04933  M01S04238.rec25   ---|          RJM    DFM
04934  M00S04239.rec     +++| IDM6     AOD    QT          ADVANCE TO NEXT FILE
04935  M00S04240.rec     +++|          SHN    2
04936  M00S04241.rec     +++|          ADD    QT
04937  M00S04242.rec     +++|          STD    T4
04938  M00S04243.rec     +++|          ADC    RDBA        CALCULATE DATE AND TIME ADDRESSES
04939  M00S04244.rec     +++|          STM    IDMB
04940  M00S04245.rec     +++|          ADN    RDBB-RDBA
04941  M00S04246.rec     +++|          STM    IDMC
04942  M00S04247.rec     +++|          ADN    RDBC-RDBB
04943  M00S04248.rec     +++|          STM    IDMD
04944  M00S04249.rec     +++|          ADN    RDBD-RDBC
04945  M00S04250.rec     +++|          STM    IDME
04946  M00S04251.rec     +++|          LMC    RDBE
04947  M00S04252.rec     +++|          ZJN    IDM4        IF END OF DAYFILES
04948  M00S04253.rec     +++|          LDM    RDBA,T4
04949  M00S04254.rec     +++|          ZJN    IDM6        IF NO CREATION DATE
04950  M00S04255.rec     +++|          LDM    FN,QT       CONVERT UPPER DIGIT OF EST ORDINAL
04951  M00S04256.rec     +++|          SHN    -6
04952  M00S04257.rec     +++|          LPN    7
04953  M00S04258.rec     +++|          ADC    2RQ0
04954  M00S04259.rec     +++|          STM    RDBH+13
04955  M00S04260.rec     +++|          LDM    FN,QT       CONVERT LOWER TWO DIGITS OF EST ORDINAL
04956  M00S04261.rec     +++|          RJM    C2D
04957  M00S04262.rec     +++|          STM    RDBH+14
04958  M00S04263.rec     +++|
04959  M00S04264.rec     +++|*         COPY DATES AND TIMES TO MESSAGES.
04960  M00S04265.rec     +++|
04961  M00S04266.rec     +++|          LDD    MA          COPY CREATION DATE
04962  M00S04267.rec     +++|          CWM    **,ON
04963  M00S04268.rec     +++| IDMB     EQU    *-1
04964  M00S04269.rec     +++|          SBN    1
04965  M00S04270.rec     +++|          CRM    RDBI1,ON
04966  M00S04271.rec     +++|          SBN    1           COPY UPDATE DATE
04967  M00S04272.rec     +++|          CWM    **,ON
04968  M00S04273.rec     +++| IDMC     EQU    *-1
04969  M00S04274.rec     +++|          SBN    1
04970  M00S04275.rec     +++|          CRM    RDBJ1,ON
04971  M00S04276.rec     +++|          SBN    1           COPY UPDATE TIME
04972  M00S04277.rec     +++|          CWM    **,ON
04973  M00S04278.rec     +++| IDMD     EQU    *-1
04974  M00S04279.rec     +++|          SBN    1
04975  M00S04280.rec     +++|          CRM    RDBJ1+1*5,ON
04976  M00S04281.rec     +++|          SBN    1           COPY FILE NAME
04977  M00S04282.rec     +++|          CWM    **,ON
04978  M00S04283.rec     +++| IDME     EQU    *-1
04979  M00S04284.rec     +++|          SBN    1
04980  M00S04285.rec     +++|          CRM    RDBH,ON
04981  M00S04286.rec     +++|          SBN    1
04982  M00S04287.rec     +++|          CRM    RDBI,ON
04983  M00S04288.rec     +++|          SBN    1
04984  M00S04289.rec     +++|          CRM    RDBJ,ON
04985  M00S04290.rec     +++|
04986  M00S04291.rec     +++|*         ISSUE MESSAGES.
04987  M00S04292.rec     +++|
04988  M00S04293.rec     +++|          LDC    RDBH        *FILENAME   RECOVERED, EQXXX.*
04989  M00S04294.rec     +++|          RJM    DFM
04990  M00S04295.rec     +++|          LDM    RDBB,T4
04991  M00S04296.rec     +++|          ZJN    IDM7        IF FILE NOT UPDATED
04992  M00S04297.rec     +++|          LDC    RDBI
04993  M00S04298.rec     +++|          RJM    DFM         ISSUE MESSAGES
04994  M00S04299.rec     +++|          LDC    RDBJ
04995  M00S04300.rec     +++|          RJM    DFM
04996  M00S04301.rec     +++| IDM7     LJM    IDM6        ADVANCE TO NEXT FILE
04997  M00S04302.rec     +++|
04998  M00S04303.rec     +++| IDMF     DATA   H* YY/MM/DD. DEAD START LEVEL *
04999  M00S04304.rec     +++| IDMF1    DATA   C* 0.*
05000  M00S04305.rec     +++|
05001  M00S04306.rec     +++| IDMG     CON    DM0406,DS0101  MAINTENANCE LOG CREATION MESSAGE
05002  M00S04307.rec     +++|          BSSZ   IDMG+6-*
05003  M00S04308.rec     +++| IDMGL    EQU    *-IDMG      LENGTH OF MESSAGE
05004  M00S04309.rec     +++|
05005  M00S04310.rec     +++| IDMH     CON    DM0407,DS0100  MAINTENANCE LOG MICROCODE/EI MESSAGE
05006  M00S04311.rec     +++|          VFD    36/0
05007  M00S04312.rec     +++| IDMH1    BSSZ   3*5         MESSAGE
05008  M00S04313.rec     +++| IDMHL    EQU    *-IDMH
05009  M00S04314.rec     +++|
05010  M00S04315.rec     +++| IDMI     DATA   H*MICROCODE, *  ERRLOG MICROCODE/EI MESSAGES
05011  M00S04316.rec     +++| IDMJ     BSSZ   15
05012  M00S04317.rec     +++| IDMK     DATA   H*EI, *
05013  M00S04318.rec     +++| IDML     BSSZ   6
05014  M00S04319.rec     +++|
05015  M00S04320.rec     +++| IDMM     DATA   H*    ABST, *  SYSTEM TITLE MESSGE
05016  M00S04321.rec     +++| IDMM2    BSSZ   24          MESSAGE BUFFER
05017  M00S04322.rec     +++| IDMM1L   EQU    *-IDMM
05018  M00S04323.rec     +++|
05019  M00S04324.rec     +++| IDMN     DATA   H*    ABSV, *   SYSTEM VERSION MESSAGE
05020  M00S04325.rec     +++| IDMN2    BSSZ   12          MESSAGE BUFFER
05021  M00S04326.rec     +++| IDMN1L   EQU    *-IDMN
05022  M00S04327.rec     +++| BRM      SPACE  4,10
05023  M00S04328.rec     +++|**        BRM - BUFFERED I/O RECOVERY MESSAGE GENERATOR.
05024  M00S04329.rec     +++|*
05025  M00S04330.rec     +++|*         USES   CM - CM+4.
05026  M00S04331.rec     +++|*
05027  M00S04332.rec     +++|*         CALLS  IGM, IPM.
05028  M00S04333.rec     +++|
05029  M00S04334.rec     +++|
05030  M00S04335.rec     +++| BRM      SUBR               ENTRY/EXIT
05031  M00S04336.rec     +++|          LDC    BIOL
05032  M00S04337.rec     +++|          CRD    CM
05033  M00S04338.rec     +++|          LDD    CM+1
05034  M00S04339.rec     +++|          ADD    CM+2
05035  M00S04340.rec     +++|          ZJN    BRMX        IF BUFFERED I/O NOT DEFINED
05036  M00S04341.rec     +++|          RJM    IGM         ISSUE GENERAL MESSAGES
05037  M00S04342.rec     +++|          RJM    IPM         ISSUE *PUT* RELATED MESSAGES
05038  M00S04343.rec     +++|          UJN    BRMX        RETURN
05039  M00S04344.rec     +++| IGM      SPACE  4,10
05040  M00S04345.rec     +++|**        IGM - ISSUE GENERAL RECOVERY MESSAGES.
05041  M00S04346.rec     +++|*
05042  M00S04347.rec     +++|*         USES - T3, CM - CM+4, FN - FN+4.
05043  M00S04348.rec     +++|*
05044  M00S04349.rec     +++|*         CALLS  DFM.
05045  M00S04350.rec     +++|
05046  M00S04351.rec     +++|
05047  M00S04352.rec     +++| IGM      SUBR               ENTRY/EXIT
05048  M00S04353.rec     +++|          LDN    REML
05049  M00S04354.rec     +++|          CRD    FN
05050  M00S04355.rec     +++|          LDD    FN+4
05051  M00S04356.rec     +++|          ZJN    IGMX        IF NO MESSAGES TO ISSUE
05052  M00S04357.rec     +++|          LDC    IGMA+ERLN   ISSUE HEADER MESSAGE
05053  M00S04358.rec     +++|          RJM    DFM
05054  M00S04359.rec     +++|*         LDN    0           INITIALIZE POINTER
05055  M00S04360.rec     +++|          STD    T3
05056  M00S04361.rec     +++| IGM1     LDD    FN+4
05057  M00S04362.rec     +++|          SHN    21-0
05058  M00S04363.rec     +++|          STD    FN+4
05059  M00S04364.rec     +++|          PJN    IGM2        IF MESSAGE NOT SELECTED
05060  M00S04365.rec     +++|          LDM    IGMB,T3
05061  M00S04366.rec     +++|          ADC    ERLN
05062  M00S04367.rec     +++|          RJM    DFM
05063  M00S04368.rec     +++| IGM2     AOD    T3
05064  M00S04369.rec     +++|          LMN    IGMBL
05065  M00S04370.rec     +++|          ZJN    IGMX        IF END OF MESSAGES
05066  M00S04371.rec     +++|          UJN    IGM1        CHECK NEXT MESSAGE
05067  M00S04372.rec     +++|
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/rec.002.txt ยท Last modified: by 127.0.0.1