User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ck.003

Deck 1CK Part 003

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03193  M01S00074.271l716 +++|          UJN    DRJ1        CHECK NEXT JOB
03194  M01S02313.1ck     +++| FJO      SPACE  4,20
03195  M01S02314.1ck     +++|**        FJO - FIND JOB.
03196  M01S02315.1ck     +++|*
Line S02316 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03197  M02S02316.271l716 ---|*         *FJO* SCANS THE CONTROL POINTS IN REVERSE ORDER LOOKING FOR
Line S02317 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03198  M02S02317.271l716 ---|*         JOBS.  WHEN ONE IS FOUND, CONTROL POINT ASSIGNMENT IS
Line S02318 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03199  M02S02318.271l716 ---|*         CHANGED VIA *CCAM* AND THE ROUTINE IS EXITED.  IF NO JOB IS
Line S02319 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03200  M02S02319.271l716 ---|*         FOUND, *FJO* RETURNS WITH (A) = 0.
Line S02320 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03201  M02S02320.271l716 ---|*
Line S02321 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03202  M02S02321.271l716 ---|*         ENTRY  (T7) = STARTING CP NUMBER + 1.
Line S02322 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03203  M02S02322.271l716 ---|*
Line S02323 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03204  M02S02323.271l716 ---|*         EXIT   (A) = (T7) = NUMBER OF CP WITH ACTIVE JOB.
Line S02324 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03205  M02S02324.271l716 ---|*                (A) = (T7) = 0 IF END OF SCAN REACHED.
Line S02325 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03206  M02S02325.271l716 ---|*                (CN - CN+4) = *JCIW* OF CP .
Line S02326 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03207  M02S02326.271l716 ---|*
Line S02327 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03208  M02S02327.271l716 ---|*         USES   CM - CM+4, CN - CN+4, FS - FS+4.
Line S02328 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03209  M02S02328.271l716 ---|*
Line S02329 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03210  M02S02329.271l716 ---|*         CALLS  CSC, DEL.
Line S02330 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03211  M02S02330.271l716 ---|*
Line S02331 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03212  M02S02331.271l716 ---|*         MACROS MONITOR.
03213  M01S00075.271l716 +++|*         THIS ROUTINE LOOKS FOR JOBS ASSIGNED TO CONTROL POINTS OR
03214  M01S00076.271l716 +++|*         PSEUDO-CONTROL POINTS.  IT WILL RETURN TO THE CALLER ONLY
03215  M01S00077.271l716 +++|*         UPON FINDING AN ACTIVE CP/PCP OR REACHING THE END OF ITS
03216  M01S00078.271l716 +++|*         SCAN.
03217  M01S00079.271l716 +++|*
03218  M01S00080.271l716 +++|*         ENTRY  (T7) = STARTING CP/PCP NUMBER - 1.
03219  M01S00081.271l716 +++|*
03220  M01S00082.271l716 +++|*         EXIT   (A) .NE. 0 IF ACTIVE CP/PCP FOUND.
03221  M01S00083.271l716 +++|*                    = 0 IF END OF SCAN REACHED AND NO ACTIVE CP/PCP
03222  M01S00084.271l716 +++|*                      FOUND.
03223  M01S00085.271l716 +++|*                (NC) = NUMBER OF CONTROL POINTS.
03224  M01S00086.271l716 +++|*                (T7) = CP/PCP NUMBER IF ACTIVE ONE FOUND.
03225  M01S00087.271l716 +++|*                (CA - CA+4) = WORD *TFSW* OF CPA/PCPA.
03226  M01S00088.271l716 +++|*                (CN - CN+4) = WORD *JCIW* OF CPA/PCPA.
03227  M01S00089.271l716 +++|*                (FS - FS+4) = WORD *STSW* OF CPA/PCPA.
03228  M01S00090.271l716 +++|*
03229  M01S00091.271l716 +++|*         USES   T7, CA - CA+4, CN - CN+4, FS - FS+4.
03230  M01S00092.271l716 +++|*
Line S00093 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03231  M02S00093.273l780 ---|*         MACROS LCPA.
03232  M01S00020.273l780 +++|*         CALLS  CCA.
03233  M01S02332.1ck     +++|
03234  M01S02333.1ck     +++|
03235  M01S02334.1ck     +++| FJO      SUBR               ENTRY/EXIT
Line S02335 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03236  M02S02335.271l716 ---| FJO1     SOD    T7          DECREMENT CURRENT CP NUMBER
03237  M01S00094.271l716 +++| FJO1     AOD    T7          ADVANCE CP/PCP NUMBER
03238  M01S00095.271l716 +++|          LMD    NC
03239  M01S00096.271l716 +++|          ZJN    FJO1        IF SYSTEM CONTROL POINT
03240  M01S00097.271l716 +++|          LMD    NC
03241  M01S00098.271l716 +++|          LMC    **
03242  M01S00099.271l716 +++| FJOB     EQU    *-1         (SCAN LIMIT)
03243  M01S02336.1ck     +++|          ZJN    FJOX        IF END OF SCAN
Line S02337 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03244  M02S02337.271l716 ---| FJO2     LDD    T7
Line S02338 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03245  M02S02338.271l716 ---|          SHN    7
Line S02339 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03246  M02S02339.271l716 ---|          ADN    STSW
Line S00100 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03247  M02S00100.273l780 ---| FJO2     LCPA   STSW,T7
03248  M01S00021.273l780 +++| FJO2     LDD    T7          SET CP/PCP ADDRESS
03249  M01S00022.273l780 +++|          RJM    CCA
03250  M01S00023.273l780 +++|          ADK    STSW
03251  M01S02340.1ck     +++|          CRD    FS
03252  M01S02341.1ck     +++|          ADN    JCIW-STSW
03253  M01S02342.1ck     +++|          CRD    CN
03254  M01S02343.1ck     +++|          ADN    TFSW-JCIW
Line S02344 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03255  M02S02344.271l716 ---|          CRD    CM
Line S02345 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03256  M02S02345.271l716 ---|          LDD    CM
03257  M01S00101.271l716 +++|          CRD    CA
03258  M01S00102.271l716 +++|          LDD    CA
03259  M01S02346.1ck     +++|          ZJN    FJO1        IF NO JOB
03260  M01S02347.1ck     +++|          LDD    FS+1
03261  M01S02348.1ck     +++|          LMK    PEET
03262  M01S02349.1ck     +++|          ZJN    FJO1        IF CM PARITY ERROR
03263  M01S02350.1ck     +++|          LDN    0
03264  M01S02351.1ck     +++|*         LDN    1           (WAIT MODE)
03265  M01S02352.1ck     +++| FJOA     EQU    *-1
Line S02353 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03266  M02S02353.271l716 ---|          NJN    FJO3        IF WAIT MODE
03267  M01S00103.271l716 +++|          NJN    FJOX        IF WAIT MODE
03268  M01S02354.1ck     +++|          LDD    FS+1
03269  M01S02355.1ck     +++|          LMN    SSET
03270  M01S02356.1ck     +++|          ZJN    FJO1        IF *SSET* ALREADY SET
03271  M01S02357.1ck     +++|          LDD    FS+2
03272  M01S02358.1ck     +++|          LPN    1
03273  M01S02359.1ck     +++|          NJN    FJO1        IF ROLLOUT REQUESTED
Line S02360 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03274  M02S02360.271l716 ---| FJO3     LDD    T7
Line S02361 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03275  M02S02361.271l716 ---|          STD    CM+1
Line S02362 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03276  M02S02362.271l716 ---|          MONITOR  CCAM
Line S02363 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03277  M02S02363.271l716 ---|          LDD    CM+1
Line S02364 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03278  M02S02364.271l716 ---|          ZJN    FJO4        IF CHANGE NOT REJECTED
Line S02365 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03279  M02S02365.271l716 ---|          RJM    DEL         DELAY 50 MS
Line S02366 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03280  M02S02366.271l716 ---|          UJN    FJO2        RETRY CHANGE
Line S02367 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03281  M02S02367.271l716 ---|
Line S02368 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03282  M02S02368.271l716 ---| FJO4     LDD    T7
Line S02369 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03283  M02S02369.271l716 ---|          SHN    7
Line S02370 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03284  M02S02370.271l716 ---|          ADN    TFSW
Line S02371 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03285  M02S02371.271l716 ---|          CRD    CM
Line S02372 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03286  M02S02372.271l716 ---|          LDD    CM
Line S02373 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03287  M02S02373.271l716 ---|          ZJN    FJO5        IF JOB GONE
Line S02374 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03288  M02S02374.271l716 ---|          LDD    T7
Line S02375 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03289  M02S02375.271l716 ---|          LJM    FJOX        RETURN
Line S02376 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03290  M02S02376.271l716 ---|
Line S02377 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03291  M02S02377.271l716 ---| FJO5     RJM    CSC         CHANGE TO SYSTEM CP
Line S02378 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03292  M02S02378.271l716 ---|          LJM    FJO1        LOOP FOR NEXT CP
03293  M01S00104.271l716 +++|          LDN    1           INDICATE ACTIVE CP/PCP FOUND
03294  M01S00105.271l716 +++|          UJP    FJOX        RETURN
03295  M01S02379.1ck     +++| ROJ      SPACE  4,15
03296  M01S02380.1ck     +++|**        ROJ - ROLLOUT NON-SUBSYSTEM JOBS.
03297  M01S02381.1ck     +++|*
Line S02382 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03298  M02S02382.271l716 ---|*         ENTRY  (NC) = NUMBER OF CONTROL POINTS.
03299  M01S00106.271l716 +++|*         ENTRY  (A) = 0.
03300  M01S02383.1ck     +++|*
03301  M01S02384.1ck     +++|*         EXIT   (A) = 0.
03302  M01S02385.1ck     +++|*
Line S02386 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03303  M02S02386.271l716 ---|*         USES   T7, CM+1.
03304  M01S00107.271l716 +++|*         USES   T1, T7, CM+1, CM+2.
03305  M01S02387.1ck     +++|*
Line S02388 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03306  M02S02388.271l716 ---|*         CALLS  CSC, FJO.
03307  M01S00108.271l716 +++|*         CALLS  DEL, FJO.
03308  M01S02389.1ck     +++|*
03309  M01S02390.1ck     +++|*         MACROS MONITOR.
03310  M01S02391.1ck     +++|
03311  M01S02392.1ck     +++|
03312  M01S02393.1ck     +++| ROJ      SUBR               ENTRY/EXIT
Line S02394 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03313  M02S02394.271l716 ---|          LDD    NC
03314  M01S00109.271l716 +++|*         LDN    0
03315  M01S02395.1ck     +++|          STD    T7
03316  M01S02396.1ck     +++| ROJ1     RJM    FJO         FIND JOB
03317  M01S02397.1ck     +++|          ZJN    ROJX        IF END OF SCAN
03318  M01S02398.1ck     +++|          LDD    CN+2
03319  M01S02399.1ck     +++|          SBK    LSSI+1
Line S02400 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03320  M02S02400.271l716 ---|          PJN    ROJ2        IF NOT TO BE ROLLED
Line S02401 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03321  M02S02401.271l716 ---|          LDN    ROSR
03322  M01S00110.271l716 +++|          PJN    ROJ1        IF NOT TO BE ROLLED
03323  M01S00111.271l716 +++|          LDN    10D         SET *ROCM* RETRY COUNT
03324  M01S00112.271l716 +++|          STD    T1
03325  M01S00113.271l716 +++| ROJ2     LDC    ROSR+4000   SELECT JOB SCHEDULER, ALTERNATE CP/PCP
03326  M01S02402.1ck     +++|          STD    CM+1
03327  M01S00114.271l716 +++|          LDD    T7          SET CP/PCP NUMBER
03328  M01S00115.271l716 +++|          STD    CM+2
03329  M01S02403.1ck     +++|          MONITOR  ROCM
Line S02404 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03330  M02S02404.271l716 ---| ROJ2     RJM    CSC         CHANGE TO SYSTEM CP
Line S02405 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03331  M02S02405.271l716 ---|          UJN    ROJ1        FIND NEXT JOB
03332  M01S00116.271l716 +++|          LDD    CM+1
03333  M01S00117.271l716 +++|          ZJN    ROJ1        IF *ROCM* ACCEPTED
03334  M01S00118.271l716 +++|          SOD    T1
03335  M01S00119.271l716 +++|          MJN    ROJ1        IF RETRY LIMIT REACHED
03336  M01S00120.271l716 +++|          RJM    DEL         DELAY 50 MS
03337  M01S00121.271l716 +++|          UJN    ROJ2        RETRY
03338  M01S02406.1ck     +++| WFJ      SPACE  4,20
03339  M01S02407.1ck     +++|**        WFJ - WAIT FOR JOBS TO ROLLOUT OR TERMINATE.
03340  M01S02408.1ck     +++|*
03341  M01S02409.1ck     +++|*         THIS ROUTINE ALLOWS ALL JOBS *MXTT*
03342  M01S02410.1ck     +++|*         SECONDS TO TERMINATE.  ANY JOB STILL AT A
03343  M01S02411.1ck     +++|*         CONTROL POINT AND NOT ROLLING AFTER *MXTT*
03344  M01S02412.1ck     +++|*         SECONDS HAVE ELAPSED WILL BE ROLLED.  THIS
03345  M01S02413.1ck     +++|*         ROUTINE WILL NOT BE EXITED UNTIL ALL
03346  M01S02414.1ck     +++|*         CONTROL POINTS ARE CLEAR (JOBS WITH
03347  M01S02415.1ck     +++|*         *PEET* ERROR FLAG SET MAY BE LEFT AT CONTROL
03348  M01S02416.1ck     +++|*         POINT).
03349  M01S02417.1ck     +++|*
Line S02418 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03350  M02S02418.271l716 ---|*         ENTRY  (NC) = NUMBER OF CONTROL POINTS.
Line S02419 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03351  M02S02419.271l716 ---|*
03352  M01S02420.1ck     +++|*         EXIT   (A) = 0.
03353  M01S02421.1ck     +++|*
03354  M01S02422.1ck     +++|*         USES   T7, CM - CM+4, ES - ES+4.
03355  M01S02423.1ck     +++|*
Line S02424 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03356  M02S02424.271l716 ---|*         CALLS  CET, CSC, CSS, DEL, FJO.
03357  M01S00122.271l716 +++|*         CALLS  CET, CSS, DEL, FJO.
03358  M01S02425.1ck     +++|*
03359  M01S02426.1ck     +++|*         MACROS DELAY, MONITOR.
03360  M01S02427.1ck     +++|
03361  M01S02428.1ck     +++|
03362  M01S02429.1ck     +++| WFJ      SUBR               ENTRY/EXIT
03363  M01S02430.1ck     +++|          LDK    RTCL        SET TIMEOUT
03364  M01S02431.1ck     +++|          CRD    ES
03365  M01S02432.1ck     +++|          AOM    FJOA        INDICATE WAIT MODE
Line S02433 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03366  M02S02433.271l716 ---| WFJ1     LDD    NC
03367  M01S00123.271l716 +++| WFJ1     LDN    0
03368  M01S02434.1ck     +++|          STD    T7
03369  M01S02435.1ck     +++| WFJ2     RJM    FJO         FIND JOB
03370  M01S02436.1ck     +++|          NJN    WFJ3        IF JOB FOUND
03371  M01S02437.1ck     +++|          UJN    WFJX        RETURN
03372  M01S02438.1ck     +++|*         UJN    *+1         (TIMEOUT)
03373  M01S02439.1ck     +++| WFJA     EQU    *-1
03374  M01S02440.1ck     +++|          ERRPL  WFJ6-WFJB-40  RANGE ERROR
03375  M01S02441.1ck     +++|          LDC    UJNI+WFJ6-WFJB
03376  M01S02442.1ck     +++|          STM    WFJB
03377  M01S02443.1ck     +++|          LDN    77-WFJA+WFJX-1
03378  M01S02444.1ck     +++|          ERRNG  40-WFJA+WFJX  RANGE ERROR
03379  M01S02445.1ck     +++|          RAM    WFJA
03380  M01S02446.1ck     +++|          UJN    WFJ1        WAIT FOR CLEAR CONTROL POINTS
03381  M01S02447.1ck     +++|
03382  M01S02448.1ck     +++| WFJ3     RJM    CSS         CHECK FOR SELECTED SUBSYSTEM
03383  M01S02449.1ck     +++|*         UJN    WFJ6        (TIMEOUT/ONLY SELECTED SUBSYSTEMS REMAIN)
03384  M01S02450.1ck     +++| WFJB     EQU    *-2
03385  M01S02451.1ck     +++|          ZJN    WFJ4        IF NOT SELECTED SUBSYSTEM
03386  M01S02452.1ck     +++|          LDC    UJNI+1
03387  M01S02453.1ck     +++|          STM    WFJA
Line S02454 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03388  M02S02454.271l716 ---|          RJM    CSC         CHANGE BACK TO SYSTEM CONTROL POINT
03389  M01S02455.1ck     +++|          UJN    WFJ2        CHECK NEXT JOB
03390  M01S02456.1ck     +++|
03391  M01S02457.1ck     +++|*         CALCULATE ELAPSED TIME.
03392  M01S02458.1ck     +++|
03393  M01S02459.1ck     +++| WFJ4     RJM    CET         COMPUTE ELAPSED TIME
03394  M01S02460.1ck     +++|          MJN    WFJ7        IF NOT TIMEOUT YET
03395  M01S02461.1ck     +++|          LDC    UJNI+1
03396  M01S02462.1ck     +++|          STM    WFJA
03397  M01S02463.1ck     +++| WFJ6     LDD    FS+2
03398  M01S02464.1ck     +++|          LPN    1
03399  M01S02465.1ck     +++|          ADD    FS+1
03400  M01S02466.1ck     +++|          NJN    WFJ7        IF ROLLOUT REQUESTED OR ERROR FLAG SET
Line S02467 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03401  M02S02467.271l716 ---|          LDN    ROSR        ROLLOUT JOB
03402  M01S00124.271l716 +++|          LDC    ROSR+4000   SELECT SCHEDULER ROLLOUT, ALTERNATE CP/PCP
03403  M01S02468.1ck     +++|          STD    CM+1
03404  M01S00125.271l716 +++|          LDD    T7          SET CP/PCP NUMBER
03405  M01S00126.271l716 +++|          STD    CM+2
03406  M01S02469.1ck     +++|          MONITOR ROCM
Line S02470 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03407  M02S02470.271l716 ---| WFJ7     RJM    CSC         CHANGE BACK TO SYSTEM CP
Line S02471 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03408  M02S02471.271l716 ---|          RJM    DEL         DELAY 50 MS
03409  M01S00127.271l716 +++| WFJ7     RJM    DEL         DELAY 50 MS
03410  M01S02472.1ck     +++|          LJM    WFJ1        FIND JOB
03411  M01S00041.1ck11   +++|          TITLE  PRESET.
03412  M01S02473.1ck     +++| PRS      SPACE  4,10
03413  M01S02474.1ck     +++|**        PRS - PRESET.
03414  M01S02475.1ck     +++|*
Line S02476 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03415  M02S02476.271l716 ---|*         USES   CM - CM+4.
Line S00128 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03416  M02S00128.1ck11   ---|*         USES   CM - CM+4, CN - CN+4.
03417  M01S00042.1ck11   +++|*         USES   T1, T2, CM - CM+4, ES - ES+4, T3 - T3+4.
03418  M01S02477.1ck     +++|*
Line S02478 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03419  M02S02478.271l716 ---|*         MACROS SFA.
03420  M01S00129.271l716 +++|*         CALLS  IFP.
03421  M01S00130.271l716 +++|*
Line S00131 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03422  M02S00131.273l780 ---|*         MACROS IPCP, SFA.
03423  M01S00024.273l780 +++|*         MACROS SFA.
03424  M01S02479.1ck     +++|
03425  M01S02480.1ck     +++|
03426  M01S02481.1ck     +++| PRS      SUBR               ENTRY/EXIT
03427  M01S00132.271l716 +++|          RJM    IFP         INITIALIZE *COMPGFP*
Line S00133 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03428  M02S00133.273l780 ---|          IPCP               INITIALIZE *COMPPCP*
03429  M01S00025.273l780 +++|          LDK    PCPP        SET FWA OF PCPA-S
03430  M01S00026.273l780 +++|          CRD    CM
03431  M01S00027.273l780 +++|          LDD    CM+3
03432  M01S00028.273l780 +++|          SHN    14
03433  M01S00029.273l780 +++|          LMD    CM+4
03434  M01S00030.273l780 +++|          SBK    200B
03435  M01S00031.273l780 +++|          STM    CCAA+1
03436  M01S00032.273l780 +++|          SHN    -14
03437  M01S00033.273l780 +++|          RAM    CCAA
03438  M01S00134.271l716 +++|          LDD    CM+2
03439  M01S00135.271l716 +++|          ERRNZ  MCTP-PCPP   CODE DEPENDS ON VALUE
03440  M01S00136.271l716 +++|          STM    FJOB        STORE TOTAL OF CP-S + PCP-S + 2
Line S02482 Modification History
M01 (Added by) 1ck
M02 (Updated by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
03441  M02S02482.243l647 ---|          LDC    UJNI+2      ENABLE SETTING *VALID CHECKPOINT FILE*
Line S00043 Modification History
M01 (Added by) 243l647
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03442  M02S00043.1ck11   ---|          LDD    IR+2
Line S00044 Modification History
M01 (Added by) 243l647
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03443  M02S00044.1ck11   ---|          LMN    10
Line S00022 Modification History
M01 (Added by) ns2593
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03444  M02S00022.1ck11   ---|          ZJN    PRS0        IF CALLED FROM *1MB*
Line S00023 Modification History
M01 (Added by) ns2593
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03445  M02S00023.1ck11   ---|          LMN    13&10
Line S00045 Modification History
M01 (Added by) 243l647
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03446  M02S00045.1ck11   ---|          NJN    PRS1        IF NOT CALLED FROM *1MB*
Line S00046 Modification History
M01 (Added by) 243l647
M02 (Updated by) ns2593
M03 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03447  M03S00046.1ck11   ---|          LDC    SCK8        SET EXIT PROCESSING ADDRESS
Line S00024 Modification History
M01 (Added by) ns2593
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03448  M02S00024.1ck11   ---| PRS0     LDC    SCK8        SET EXIT PROCESSING ADDRESS
03449  M01S00043.1ck11   +++|          ISTORE SMDA,(UJN SMD4)  CHECKPOINT REQUESTED FLAG IMMATERIAL
03450  M01S00044.1ck11   +++|          ISTORE SMDB,(UJN SMD6)  SKIP UTILITY INTERLOCK
03451  M01S00045.1ck11   +++|          LDD    NC          SET CONTROL POINT NUMBER IN *1MB* CALL
03452  M01S00046.1ck11   +++|          RAM    SCKE+1
03453  M01S00047.1ck11   +++|          LDD    IR+3        SET *1MB* FUNCTION CODE
03454  M01S00048.1ck11   +++|          STM    SCKE+2
03455  M01S00049.1ck11   +++|          LDK    MEFL        GET TRACK SHIFT COUNT AND USER EM SHIFT
03456  M01S00050.1ck11   +++|          CRD    CM
03457  M01S00051.1ck11   +++|          LDD    CM+2        TRACK SHIFT COUNT (EMSC)
03458  M01S00052.1ck11   +++|          SHN    -5
03459  M01S00053.1ck11   +++|          LPN    3
03460  M01S00054.1ck11   +++|          STD    T1
03461  M01S00055.1ck11   +++|          RAM    CUAB
03462  M01S00056.1ck11   +++|          LDD    T1
03463  M01S00057.1ck11   +++|          RAM    CUAA
03464  M01S00058.1ck11   +++|          LDD    T1
03465  M01S00059.1ck11   +++|          SBN    2           SET ROUND UP
03466  M01S00060.1ck11   +++|          PJN    PRS1        IF NO ROUND UP NEEDED
03467  M01S00061.1ck11   +++|          STD    T0
03468  M01S00062.1ck11   +++|          SHN    1
03469  M01S00063.1ck11   +++|          LPN    3           3 IF EMSC=0, 1 IF EMSC=1
03470  M01S00064.1ck11   +++|          RAM    CCSB
03471  M01S00065.1ck11   +++|          LDD    T0
03472  M01S00066.1ck11   +++|          LPN    77
03473  M01S00067.1ck11   +++| PRS1     RAM    CCSC
03474  M01S00068.1ck11   +++|          LDD    CM+2        USER SHIFT COUNT (UESC)
03475  M01S00069.1ck11   +++|          SHN    -11
03476  M01S00070.1ck11   +++|          STD    T2
03477  M01S00071.1ck11   +++|          SBD    T1
03478  M01S00072.1ck11   +++|          RAM    UCPB
03479  M01S00073.1ck11   +++|          LDD    T2
03480  M01S00074.1ck11   +++|          RAM    CCSE
03481  M01S00075.1ck11   +++|          LDN    0
03482  M01S00076.1ck11   +++|          SBD    T2
03483  M01S00077.1ck11   +++|          RAM    CCSD
03484  M01S00078.1ck11   +++|          LDD    IR+2        CHECK FUNCTION CODE
03485  M01S00079.1ck11   +++|          SBN    2
03486  M01S00080.1ck11   +++|          MJN    PRS3        IF FUNCTION 0 OR 1
03487  M01S00081.1ck11   +++|          SBN    10-2
03488  M01S00082.1ck11   +++|          ZJN    PRS2        IF FUNCTION 10
03489  M01S00083.1ck11   +++|          SBN    13-10
03490  M01S00084.1ck11   +++|          NJP    PRSX        IF NOT FUNCTION 13
03491  M01S00085.1ck11   +++| PRS2     LDC    SCK8        SET EXIT PROCESSING ADDRESS
03492  M01S00047.243l647 +++|          STM    DPPA
Line S00048 Modification History
M01 (Added by) 243l647
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03493  M02S00048.1ck11   ---| PRS1     LDC    UJNI+2      ENABLE SETTING *VALID CHECKPOINT FILE*
03494  M01S00086.1ck11   +++| PRS3     LDC    UJNI+2      ENABLE SETTING *VALID CHECKPOINT FILE*
03495  M01S02483.1ck     +++|          STM    WLAG
Line S02484 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03496  M02S02484.252l678 ---|          LDN    EMEQ
Line S02485 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03497  M02S02485.252l678 ---|          SFA    EST
03498  M01S00119.252l678 +++|          LDN    ESTP        SEARCH FOR UEM EQUIPMENT
03499  M01S00120.252l678 +++|          CRD    T3
03500  M01S00121.252l678 +++|          LDN    NOPE-1
03501  M01S00122.252l678 +++|          STD    T5
Line S00123 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03502  M02S00123.1ck11   ---| PRS2     AOD    T5
03503  M01S00087.1ck11   +++| PRS4     AOD    T5
03504  M01S00124.252l678 +++|          LMD    T6
Line S00125 Modification History
M01 (Added by) 252l678
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03505  M02S00125.271l716 ---|          ZJN    PRSX        IF NO UEM EQUIPMENT
Line S00137 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03506  M02S00137.1ck11   ---|          ZJN    PRS3        IF NO UEM EQUIPMENT
03507  M01S00088.1ck11   +++|          ZJN    PRS5        IF NO UEM EQUIPMENT
03508  M01S00126.252l678 +++|          SFA    EST,T5
03509  M01S02486.1ck     +++|          ADK    EQDE
03510  M01S00127.252l678 +++|          CRD    ES
03511  M01S00128.252l678 +++|          LDD    ES
03512  M01S00129.252l678 +++|          SHN    21-13
Line S00130 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03513  M02S00130.1ck11   ---|          PJN    PRS2        IF NOT MASS STORAGE
03514  M01S00089.1ck11   +++|          PJN    PRS4        IF NOT MASS STORAGE
03515  M01S00131.252l678 +++|          LDD    ES+4        CHECK MEMORY TYPE
03516  M01S00132.252l678 +++|          SHN    3
03517  M01S00133.252l678 +++|          ADN    DILL
03518  M01S02487.1ck     +++|          CRD    CM
03519  M01S02488.1ck     +++|          LDD    CM+3
Line S02489 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03520  M02S02489.252l678 ---|          ZJN    PRSX        IF NO UEM PRESENT
Line S02490 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03521  M02S02490.252l678 ---|          LDN    EXML
Line S02491 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03522  M02S02491.252l678 ---|          CRD    CM
Line S02492 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03523  M02S02492.252l678 ---|          LDD    CM+4
03524  M01S02493.1ck     +++|          SHN    -6
03525  M01S02494.1ck     +++|          LPN    7
03526  M01S02495.1ck     +++|          LMN    4
Line S02496 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03527  M02S02496.252l678 ---|          NJN    PRSX        IF NO UEM PRESENT
Line S00134 Modification History
M01 (Added by) 252l678
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03528  M02S00134.1ck11   ---|          NJN    PRS2        IF NOT UEM MEMORY TYPE
03529  M01S00090.1ck11   +++|          NJN    PRS4        IF NOT UEM MEMORY TYPE
03530  M01S02497.1ck     +++|          LDC    LDDI+ST     ENABLE UEM CHECKPOINT
Line S02498 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2477
Seq #  *Modification Id* Act 
----------------------------+
03531  M02S02498.ns2477  ---|          STM    WSTB
03532  M01S00021.ns2477  +++|          STM    WSTA
Line S02499 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03533  M02S02499.252l678 ---|          LDC    LDDI+ES+3   ENABLE UEM COMPUTATION
Line S02500 Modification History
M01 (Added by) 1ck
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
03534  M02S02500.252l678 ---|          STM    CCSA
03535  M01S00135.252l678 +++|          LDD    ES+4        SET UEM MST ADDRESS
03536  M01S00136.252l678 +++|          STM    UCPA
Line S02501 Modification History
M01 (Added by) 1ck
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03537  M02S02501.271l716 ---|          LJM    PRSX        RETURN
Line S00138 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03538  M02S00138.1ck11   ---| PRS3     LJM    PRSX        RETURN
Line S00139 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03539  M02S00139.1ck11   ---|          SPACE  4
03540  M01S00091.1ck11   +++| PRS5     LJM    PRSX        RETURN
03541  M01S00092.1ck11   +++|          SPACE  4,10
03542  M01S00140.271l716 +++| IFP      HERE               REMOTE *IFP* ASSEMBLY
Line S00141 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03543  M02S00141.1ck11   ---|          SPACE  4
03544  M01S00093.1ck11   +++|          SPACE  4,10
Line S00142 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03545  M02S00142.273l780 ---|*         COMMON DECKS.
Line S00143 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03546  M02S00143.273l780 ---|
Line S00144 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ck11
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03547  M03S00144.273l780 ---|          LIST   X
Line S00094 Modification History
M01 (Added by) 1ck11
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03548  M02S00094.273l780 ---|
Line S00145 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03549  M02S00145.273l780 ---|*CALL     COMPPCP
Line S00146 Modification History
M01 (Added by) 271l716
M02 (Updated by) 1ck11
M03 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03550  M03S00146.273l780 ---|          LIST   *
Line S02502 Modification History
M01 (Added by) 1ck
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
03551  M02S02502.273l780 ---|          SPACE  4,10
03552  M01S02503.1ck     +++|*         OVERFLOW CHECKS.
03553  M01S02504.1ck     +++|
03554  M01S02505.1ck     +++|
Line S02506 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2439
Seq #  *Modification Id* Act 
----------------------------+
03555  M02S02506.ns2439  ---|          OVERFLOW
Line S00001 Modification History
M01 (Added by) ns2439
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03556  M02S00001.1ck11   ---|          OVERFLOW ENTX
Line S02507 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03557  M02S02507.1ck11   ---|          ERRPL  OVL+ZTDL-10000  0TD WRAPS PP
Line S02508 Modification History
M01 (Added by) 1ck
M02 (Updated by) 1ck11
Seq #  *Modification Id* Act 
----------------------------+
03558  M02S02508.1ck11   ---|          ERRPL  OVL+ZSDL-10000  0SD WRAPS PP
03559  M01S00095.1ck11   +++|          ERRNG  EPFW-OVL0-ZTDL  *0TD* OVERFLOW
03560  M01S00096.1ck11   +++|          ERRNG  EPFW-OVL0-ZSDL  *0SD* OVERFLOW
03561  M01S00097.1ck11   +++|
03562  M01S00098.1ck11   +++|
03563  M01S00099.1ck11   +++|          OVERFLOW  OVLA,EPFW
03564  M01S00244.ns2780  +++|          TTL    1CK/3CL - ADDITIONAL CHECKPOINT FUNCTIONS.
03565  M01S00245.ns2780  +++|          TITLE
03566  M01S00246.ns2780  +++|          QUAL   3CL
03567  M01S00247.ns2780  +++|          IDENT  3CL,OVLA
03568  M01S00248.ns2780  +++|*COMMENT  1CK - ADDITIONAL CHECKPOINT FUNCTIONS.
03569  M01S00249.ns2780  +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1995.
03570  M01S00250.ns2780  +++|          SPACE  4,10
03571  M01S00251.ns2780  +++|***       3CL - ADDITIONAL CHECKPOINT FUNCTIONS.
03572  M01S00252.ns2780  +++|          SPACE  4,10
03573  M01S00253.ns2780  +++|          ORG    OVLA
03574  M01S00254.ns2780  +++|          SPACE  4,10
03575  M01S00255.ns2780  +++| ENT      SUBR               ENTRY
03576  M01S00256.ns2780  +++|          LJM    0,PA        PROCESS SELECTED FUNCTION
03577  M01S00257.ns2780  +++|          TITLE  MAIN ROUTINES.
03578  M01S00258.ns2780  +++| IDC      SPACE  4,10
03579  M01S00259.ns2780  +++|**        FUNCTION 5.
03580  M01S00260.ns2780  +++|*         INITIALIZED DEVICE CHECKPOINT.
03581  M01S00261.ns2780  +++|*
03582  M01S00262.ns2780  +++|*         ENTRY  (IR+3) = EST ORDINAL.
03583  M01S00263.ns2780  +++|*                (IR+4) = PREVIOUS ACCESS STATUS (MMF).
03584  M01S00264.ns2780  +++|
03585  M01S00265.ns2780  +++|
03586  M01S00266.ns2780  +++| IDC      BSS    0           ENTRY
03587  M01S00267.ns2780  +++|          RJM    SDP         SET DEVICE PARAMETERS
03588  M01S00268.ns2780  +++|          NJP    DPP         IF DEVICE IS INACCESSIBLE
03589  M01S00269.ns2780  +++|          RJM    WTT         WRITE TRT
03590  M01S00270.ns2780  +++|          SETMS  IO,(ND,NS),WBUF
03591  M01S00271.ns2780  +++|          RJM    WLS         WRITE LABEL SECTORS
03592  M01S00272.ns2780  +++|          RJM    IDI         INITIALIZE DEVICE INFORMATION SECTOR
03593  M01S00273.ns2780  +++|          RJM    FIB         FLUSH I/O BUFFERS
03594  M01S00274.ns2780  +++|          RJM    CIL         CLEAR INTERLOCKS
03595  M01S00275.ns2780  +++|          CMSTF  LIPF        CLEAR PF INITIALIZATION FLAG
03596  M01S00276.ns2780  +++|          CMSTF  LIAL        CLEAR FULL INITIALIZE FLAG
03597  M01S00277.ns2780  +++|          CMSTF  LIHD        CLEAR HALF TRACK INITIALIZE FLAG
03598  M01S00278.ns2780  +++|          CMSTF  LIFD        CLEAR FULL TRACK INITIALIZE FLAG
03599  M01S00279.ns2780  +++|          RJM    SDA         SET DEVICE AVAILABLE
03600  M01S00280.ns2780  +++|          LDD    ES+4        READ FAMILY NAME
03601  M01S00281.ns2780  +++|          SHN    3
03602  M01S00282.ns2780  +++|          ADN    PFGL
03603  M01S00283.ns2780  +++|          CRD    CA
03604  M01S00284.ns2780  +++|          ADN    MDGL-PFGL   GET PF STATUS OF DEVICE
03605  M01S00285.ns2780  +++|          CRD    CM
03606  M01S00286.ns2780  +++|          LDD    CM
03607  M01S00287.ns2780  +++|          LPC    2000
03608  M01S00288.ns2780  +++|          NJN    IDC1        IF AUXILIARY DEVICE
03609  M01S00289.ns2780  +++|          RJM    GFO         ENTER FAMILY NAME IN FOT
03610  M01S00290.ns2780  +++|          SCN    1
03611  M01S00291.ns2780  +++|          ZJN    IDC1        IF ENTRY FOUND/CREATED
03612  M01S00292.ns2780  +++|          LDN    STFF        SET ERROR FLAG = *FOT FULL*
03613  M01S00293.ns2780  +++|          RJM    SES
03614  M01S00294.ns2780  +++| IDC1     LDC    MMFL        READ MMF STATUS WORD
03615  M01S00295.ns2780  +++|          CRD    CN
03616  M01S00296.ns2780  +++|          SOD    CN+2        DECREMENT INITIALIZED DEVICE COUNT
03617  M01S00297.ns2780  +++|          MJN    IDC3        IF NOT MMF SYSTEM
03618  M01S00298.ns2780  +++|          LMC    4000
03619  M01S00299.ns2780  +++|          NJN    IDC2        IF NOT END OF DEVICE INITIALIZATION
03620  M01S00300.ns2780  +++|          STD    CN+2
03621  M01S00301.ns2780  +++|          LCN    DATI        CLEAR FLAG REGISTER INTERLOCK
03622  M01S00302.ns2780  +++|          RJM    IFR
03623  M01S00303.ns2780  +++| IDC2     LDC    MMFL        STORE MMF STATUS WORD
03624  M01S00304.ns2780  +++|          CWD    CN
03625  M01S00305.ns2780  +++|          LDD    IR+4
03626  M01S00306.ns2780  +++|          ZJN    IDC3        IF NO PREVIOUS ACCESS IN DAT
03627  M01S00307.ns2780  +++|          LDD    ES          CHECK DEVICE STATUS
03628  M01S00308.ns2780  +++|          SHN    21-11
03629  M01S00309.ns2780  +++|          PJN    IDC4        IF NON-SHARED DEVICE
03630  M01S00310.ns2780  +++|          LDD    ES+4        READ MST ACTIVITY WORD
03631  M01S00311.ns2780  +++|          SHN    3
03632  M01S00312.ns2780  +++|          ADN    SDGL
03633  M01S00313.ns2780  +++|          CRD    CM
03634  M01S00314.ns2780  +++|          LDD    CM          CHECK ECS POINTER
03635  M01S00315.ns2780  +++|          ADD    CM+1
03636  M01S00316.ns2780  +++| IDC3     NJN    IDC4        IF MST/TRT ECS RESIDENT
03637  M01S00317.ns2780  +++|          LDD    IR+3
03638  M01S00318.ns2780  +++|          STD    CM+1
03639  M01S00319.ns2780  +++|          LDN    SB0S
03640  M01S00320.ns2780  +++|          STD    CM+2
03641  M01S00321.ns2780  +++|          LDD    HN          SET DEVICE UNAVAILABLE
03642  M01S00322.ns2780  +++|          STD    CM+4
03643  M01S00323.ns2780  +++|          LMC    -0
03644  M01S00324.ns2780  +++|          STD    CM+3
03645  M01S00325.ns2780  +++|          MONITOR  SEQM
03646  M01S00326.ns2780  +++| IDC4     LJM    DPP         DROP PP
03647  M01S00327.ns2780  +++| RAC      SPACE  4,10
03648  M01S00328.ns2780  +++|**        FUNCTIONS 6 AND 7.
03649  M01S00329.ns2780  +++|*         RECOVERY ABORT CHECKPOINT.
03650  M01S00330.ns2780  +++|
03651  M01S00331.ns2780  +++|
03652  M01S00332.ns2780  +++| RAC      BSS    0           ENTRY
03653  M01S00333.ns2780  +++|          LDC    4000        FLAG CHECKPOINT ABORT PROCESSING
03654  M01S00334.ns2780  +++|          STD    TS
03655  M01S00335.ns2780  +++|          LDC    RAC1        SET RETURN FROM *PFC*
03656  M01S00336.ns2780  +++|          STM    PFCB
03657  M01S00337.ns2780  +++|          LJM    PFC         CHECKPOINT ALL DEVICES
03658  M01S00338.ns2780  +++|
03659  M01S00339.ns2780  +++| RAC1     LDN    MS2W-MS1W
03660  M01S00340.ns2780  +++|          STD    T1
03661  M01S00341.ns2780  +++|          LDD    IR+2
03662  M01S00342.ns2780  +++|          LMN    7
03663  M01S00343.ns2780  +++|          NJN    RAC2        IF BUFFERED DEVICES CHECKPOINTED
03664  M01S00344.ns2780  +++|          LDC    =C*NON-BUFFERED EQ-S CHECKPOINTED.*
03665  M01S00345.ns2780  +++|          STM    RACA
03666  M01S00346.ns2780  +++| RAC2     LDC    DSCP*CPAS+MS1W
03667  M01S00347.ns2780  +++|          CWM    =C*ALL EQ-S CHECKPOINTED.*,T1
03668  M01S00348.ns2780  +++| RACA     EQU    *-1
03669  M01S00349.ns2780  +++|          CWM    RACB,TR     *RECOVERY ABORTED.*
03670  M01S00350.ns2780  +++|          UJN    *           HANG DEADSTART
03671  M01S00351.ns2780  +++|
03672  M01S00352.ns2780  +++| RACB     DATA   C*RECOVERY ABORTED.*
03673  M01S00353.ns2780  +++| RLT      SPACE  4,10
03674  M01S00354.ns2780  +++|***       FUNCTION 12.
03675  M01S00355.ns2780  +++|*         REPAIR LABEL TRACK.
03676  M01S00356.ns2780  +++|*
03677  M01S00357.ns2780  +++|*         ENTRY  (IR+3) = EST ORDINAL.
03678  M01S00358.ns2780  +++|
03679  M01S00359.ns2780  +++|
03680  M01S00360.ns2780  +++| RLT      BSS    0           ENTRY
03681  M01S00361.ns2780  +++|          RJM    SDP         SET DEVICE PARAMETERS
03682  M01S00362.ns2780  +++|          SETMS  IO,(AD,DF,ND,RW),WBUF
03683  M01S00363.ns2780  +++|          RJM    WTT         WRITE TRT
03684  M01S00364.ns2780  +++|          SETMS  IO,(AD,DF,ND),WBUF
03685  M01S00365.ns2780  +++|          RJM    WLS         WRITE LABEL SECTORS
03686  M01S00366.ns2780  +++|          ENDMS
03687  M01S00367.ns2780  +++|
03688  M01S00368.ns2780  +++| RLT1     RJM    CIL         CLEAR INTERLOCKS
03689  M01S00369.ns2780  +++|          LDD    IA          SET REPAIR-ATTEMPTED FLAG FOR *1MV*
03690  M01S00370.ns2780  +++|          CRD    IR
03691  M01S00371.ns2780  +++|          LDD    IR+3
03692  M01S00372.ns2780  +++|          SCN    40
03693  M01S00373.ns2780  +++|          LMN    40
03694  M01S00374.ns2780  +++|          STD    IR+3
03695  M01S00375.ns2780  +++|          LDD    IA
03696  M01S00376.ns2780  +++|          CWD    IR
03697  M01S00377.ns2780  +++|          LJM    PPR         RETURN TO *1MV*
03698  M01S00378.ns2780  +++|          TITLE  SUBROUTINES.
03699  M01S00379.ns2780  +++| IDI      SPACE  4,10
03700  M01S00380.ns2780  +++|**        IDI - INITIALIZE DEVICE INFORMATION SECTOR.
03701  M01S00381.ns2780  +++|*
03702  M01S00382.ns2780  +++|*         ENTRY  (T4) = CHANNEL.
03703  M01S00383.ns2780  +++|*                (T5) = EQUIPMENT.
03704  M01S00384.ns2780  +++|*                (T6) = LABEL TRACK.
03705  M01S00385.ns2780  +++|*                LABEL TRACK INTERLOCKED.
03706  M01S00386.ns2780  +++|*
03707  M01S00387.ns2780  +++|*         USES   T1, T7.
03708  M01S00388.ns2780  +++|*
03709  M01S00389.ns2780  +++|*         CALLS  WMS.
03710  M01S00390.ns2780  +++|*
03711  M01S00391.ns2780  +++|*         MACROS ENDMS, SETMS.
03712  M01S00392.ns2780  +++|
03713  M01S00393.ns2780  +++|
03714  M01S00394.ns2780  +++| IDI      SUBR               ENTRY/EXIT
03715  M01S00395.ns2780  +++|          LDC    100*5       CLEAR SECTOR
03716  M01S00396.ns2780  +++|          STD    T1
03717  M01S00397.ns2780  +++| IDI1     LDN    0
03718  M01S00398.ns2780  +++|          STM    BFMS+2-1,T1
03719  M01S00399.ns2780  +++|          SOD    T1
03720  M01S00400.ns2780  +++|          NJN    IDI1        IF NOT COMPLETE
03721  M01S00401.ns2780  +++|          LDN    DILT        SET SECTOR
03722  M01S00402.ns2780  +++|          STD    T7
03723  M01S00403.ns2780  +++|          ADN    1           SET CONTROL BYTES
03724  M01S00404.ns2780  +++|          STM    BFMS
03725  M01S00405.ns2780  +++|          LDD    HN
03726  M01S00406.ns2780  +++|          STM    BFMS+1
03727  M01S00407.ns2780  +++|          SETMS  IO,(ND,NS,RW)
03728  M01S00408.ns2780  +++|          LDC    BFMS+WLSF   WRITE SECTOR
03729  M01S00409.ns2780  +++|          RJM    WMS
03730  M01S00410.ns2780  +++|          ENDMS
03731  M01S00411.ns2780  +++|          UJN    IDIX        RETURN
03732  M01S00412.ns2780  +++|          SPACE  4,10
03733  M01S00413.ns2780  +++|**        COMMON DECKS.
03734  M01S00414.ns2780  +++|
03735  M01S00415.ns2780  +++|
03736  M01S00416.ns2780  +++|*CALL     COMPIFR
03737  M01S00417.ns2780  +++|*CALL     COMPSDA
03738  M01S00418.ns2780  +++|          QUAL   UFT
03739  M01S00419.ns2780  +++| QUAL$    EQU    0           DONT REQUALIFY COMMON DECK
03740  M01S00420.ns2780  +++| GFO$     EQU    0           DEFINE FOT ACCESS ROUTINE
03741  M01S00421.ns2780  +++| FN       EQU    CA          CM WORD BUFFER (5 LOCATIONS)
03742  M01S00422.ns2780  +++|*CALL     COMPUFT
03743  M01S00423.ns2780  +++|          QUAL   *
03744  M01S00424.ns2780  +++| GFO      EQU    /UFT/GFO
03745  M01S00425.ns2780  +++|          SPACE  4,10
03746  M01S00426.ns2780  +++|*         OVERFLOW CHECKS.
03747  M01S00427.ns2780  +++|
03748  M01S00428.ns2780  +++|          ERRNG  BUF-*       OVERFLOW INTO COMMON BUFFER AREA
03749  M01S00429.ns2780  +++|
03750  M01S00430.ns2780  +++|          OVERFLOW  OVLA,EPFW
03751  M01S02509.1ck     +++|          SPACE  4
Line S02510 Modification History
M01 (Added by) 1ck
M02 (Updated by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
03752  M02S02510.ns2780  ---|          TTL    1CK - SYSTEM CHECK POINT.
03753  M01S00431.ns2780  +++|          TTL    1CK - SYSTEM CHECKPOINT.
03754  M01S02511.1ck     +++|          END
cdc/nos2.source/opl.opl871/deck/1ck.003.txt ยท Last modified: by 127.0.0.1