User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1pp

Deck 1PP

7 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1pp     +++|          IDENT  1PP,PPF
00002  M01S00002.1pp     +++|          PERIPH
00003  M01S00003.1pp     +++|          BASE   MIXED
00004  M01S00004.1pp     +++|          LIST   F
00005  M01S00005.1pp     +++|          SST
00006  M01S00006.1pp     +++|*COMMENT  1PP - PERIODIC FUNCTION PROCESSOR.
Line S00007 Modification History
M01 (Added by) 1pp
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.  1988.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1pp     +++|          TITLE  1PP - PERIODIC FUNCTION PROCESSOR.
00010  M01S00009.1pp     +++|          SPACE  4,10
00011  M01S00010.1pp     +++|***       1PP - PERIODIC FUNCTION PROCESSOR.
00012  M01S00011.1pp     +++|*         R. M. DANISCH.     88/06/27.
00013  M01S00012.1pp     +++|          SPACE  4,10
00014  M01S00013.1pp     +++|***              *1PP* IS RESPONSIBLE FOR PROCESSING A VARIETY OF
00015  M01S00014.1pp     +++|*         FUNCTIONS THAT ARE PERIODIC IN NATURE.  FUNCTIONS PROCESSED
00016  M01S00015.1pp     +++|*         INCLUDE THE FOLLOWING -
00017  M01S00016.1pp     +++|*
00018  M01S00017.1pp     +++|*              - TIMED/EVENT ROLLOUT PROCESSING.
00019  M01S00018.1pp     +++|*
00020  M01S00019.1pp     +++|*              - CHECK FOR EXPIRED CM/CPU TIME SLICES.
00021  M01S00020.1pp     +++|*
00022  M01S00021.1pp     +++|*              - CHECK WAIT RESPONSE/CONNECTION INDICATORS.
00023  M01S00022.1pp     +++|*
00024  M01S00023.1pp     +++|*              - PROCESS ACCUMULATOR OVERFLOW FLAGS.
00025  M01S00001.274l797 +++|*
00026  M01S00002.274l797 +++|*              - SCAN OPTICAL DISK EQUIPMENT AND UPDATE THE OPTICAL
00027  M01S00003.274l797 +++|*                STORAGE STATUS TABLE *OST*.
00028  M01S00004.274l797 +++|*
00029  M01S00005.274l797 +++|*              - SCAN OPTICAL DISK REQUESTS FOR MOUNTED DISKS AND
00030  M01S00006.274l797 +++|*                ORPHAN REQUESTS.
00031  M01S00024.1pp     +++|*
00032  M01S00025.1pp     +++|*              - CHECK FOR MASS STORAGE CHECKPOINT AND LABEL
00033  M01S00026.1pp     +++|*                INITIALIZATION REQUESTS.
00034  M01S00027.1pp     +++|*
00035  M01S00028.1pp     +++|*              - INITIATE SWEEP CYCLE PROCESSING.
00036  M01S00029.1pp     +++|*
00037  M01S00030.1pp     +++|*              - INITIATE MASS STORAGE CONFIDENCE TESTING.
00038  M01S00031.1pp     +++|          SPACE  4,10
00039  M01S00032.1pp     +++|***       CALL.
00040  M01S00033.1pp     +++|*
00041  M01S00034.1pp     +++|*
00042  M01S00035.1pp     +++|*T        18/  *1PP*,6/  CP,36/
Figure

029303536414259 CP *1PP*

00043  M01S00036.1pp     +++|*         CP     SYSTEM CONTROL POINT NUMBER.
00044  M01S00037.1pp     +++|          SPACE  4,10
00045  M01S00038.1pp     +++|***       ERROR LOG MESSAGES.
00046  M01S00039.1pp     +++|*
00047  M01S00040.1pp     +++|*
00048  M01S00041.1pp     +++|*         *XXYYY,   RECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
00049  M01S00042.1pp     +++|*                OF RECOVERED ERRORS ON DEVICE TYPE XX WITH EST ORDINAL
00050  M01S00043.1pp     +++|*                YYY IS GREATER THAN THE THRESHOLD DEFINED FOR THAT
00051  M01S00044.1pp     +++|*                DEVICE TYPE.
00052  M01S00045.1pp     +++|*
00053  M01S00046.1pp     +++|*         *XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
00054  M01S00047.1pp     +++|*                OF UNRECOVERED ERRORS ON DEVICE TYPE XX WITH EST
00055  M01S00048.1pp     +++|*                ORDINAL YYY IS GREATER THAN THE THRESHOLD DEFINED FOR
00056  M01S00049.1pp     +++|*                THAT DEVICE TYPE.
00057  M01S00050.1pp     +++|          SPACE  4,10
00058  M01S00051.1pp     +++|**        ROUTINES USED.
00059  M01S00052.1pp     +++|*
00060  M01S00053.1pp     +++|*
00061  M01S00054.1pp     +++|*         0AU - PROCESS ACCUMULATOR OVERFLOW FLAGS.
00062  M01S00055.1pp     +++|          SPACE  4,10
00063  M01S00056.1pp     +++|**        PROGRAMS CALLED.
00064  M01S00057.1pp     +++|*
00065  M01S00058.1pp     +++|*
00066  M01S00059.1pp     +++|*         CMS - MASS STORAGE LABEL INITIALIZATION.
00067  M01S00060.1pp     +++|*         1CK - MASS STORAGE CHECKPOINT.
00068  M01S00061.1pp     +++|*         1MV - MASS STORAGE VERIFICATION.
00069  M01S00062.1pp     +++|          SPACE  4,10
00070  M01S00063.1pp     +++|**        COMMON DECKS.
00071  M01S00064.1pp     +++|
00072  M01S00065.1pp     +++|
00073  M01S00066.1pp     +++|*CALL     COMPMAC
00074  M01S00067.1pp     +++|          QUAL   CPS
00075  M01S00068.1pp     +++|*CALL     COMSCPS
00076  M01S00069.1pp     +++|          QUAL    *
00077  M01S00070.1pp     +++|          QUAL   DSL
00078  M01S00071.1pp     +++|*CALL     COMSDSL
00079  M01S00072.1pp     +++|          QUAL   *
00080  M01S00073.1pp     +++|*CALL     COMSDST
00081  M01S00074.1pp     +++|*CALL     COMSEJT
00082  M01S00075.1pp     +++|*CALL     COMSEVT
00083  M01S00076.1pp     +++|*CALL     COMSJIO
00084  M01S00077.1pp     +++|*CALL     COMSMSC
Line S00078 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00078.273l780 ---| CPA$     EQU    1           SELECT CPA/PCPA ACCESS
Line S00079 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00079.273l780 ---| IPC$     EQU    1           SELECT *COMPPCP* INITIALIZATION
Line S00080 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00080.273l780 ---|*CALL     COMSPCP
00088  M01S00081.1pp     +++|*CALL     COMSMSP
00089  M01S00082.1pp     +++|*CALL     COMSMST
00090  M01S00083.1pp     +++|*CALL     COMSPIM
00091  M01S00084.1pp     +++|*CALL     COMSSCD
00092  M01S00085.1pp     +++|*CALL     COMSSCP
00093  M01S00086.1pp     +++|*CALL     COMSSSD
00094  M01S00087.1pp     +++|*CALL     COMSZOL
00095  M01S00088.1pp     +++|          QUAL   1DS
00096  M01S00089.1pp     +++|*CALL     COMS1DS
00097  M01S00090.1pp     +++|          QUAL   *
00098  M01S00091.1pp     +++|*CALL     COMS1MV
00099  M01S00092.1pp     +++| MACROS   SPACE  4,10
00100  M01S00093.1pp     +++|**        MACRO DEFINITIONS.
00101  M01S00094.1pp     +++|
00102  M01S00095.1pp     +++|
00103  M01S00096.1pp     +++|**        DFLIM - CONSTRUCT DAYFILE SIZE THRESHOLD PROCESSING ENTRY FOR
00104  M01S00097.1pp     +++|*                 *TDFP* TABLE.
00105  M01S00098.1pp     +++|*
00106  M01S00099.1pp     +++|*         DFLIM  A,B,C,D,E
00107  M01S00100.1pp     +++|,
00108  M01S00101.1pp     +++|*                A     TABLE NAME IF PRESENT.
00109  M01S00102.1pp     +++|*                B     DAYFILE IDENTIFIER/INDEX.
00110  M01S00103.1pp     +++|*                C     CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER
00111  M01S00104.1pp     +++|*                      POINTER BLOCK RELATIVE TO FWA OF DAYFILE BUFFER
00112  M01S00105.1pp     +++|*                      POINTER BLOCKS.
00113  M01S00106.1pp     +++|*                D     THRESHOLD SIZE IN PRUS.
00114  M01S00107.1pp     +++|*                E     EVENT TO ISSUE IF THRESHOLD EXCEEDED.
00115  M01S00108.1pp     +++|
00116  M01S00109.1pp     +++|
00117  M01S00110.1pp     +++|          PURGMAC DFLIM
00118  M01S00111.1pp     +++|
00119  M01S00112.1pp     +++|          MACRO  DFLIM,A,B,C,D,E
00120  M01S00113.1pp     +++|          MACREF DFLIM
00121  M01S00114.1pp     +++| .X       IFC    NE,$A$$
00122  M01S00115.1pp     +++| A        BSS    0
00123  M01S00116.1pp     +++| .1       SET    A
00124  M01S00117.1pp     +++| .X       ELSE
00125  M01S00118.1pp     +++|          ORG    .1+4*B
00126  M01S00119.1pp     +++| .Y       IFC    NE,$C$$
00127  M01S00120.1pp     +++|          LOC    B
00128  M01S00121.1pp     +++|          CON    C
00129  M01S00122.1pp     +++|          VFD    24/D
00130  M01S00123.1pp     +++|          CON    E
00131  M01S00124.1pp     +++| .Y       ELSE
00132  M01S00125.1pp     +++|          VFD    48/0
00133  M01S00126.1pp     +++| .Y       ENDIF
00134  M01S00127.1pp     +++| .X       ENDIF
00135  M01S00128.1pp     +++|          ENDM
00136  M01S00129.1pp     +++| JOBSTAT  SPACE  4,15
00137  M01S00130.1pp     +++|**        JOBSTAT - DEFINE JOB STATE ATTRIBUTES.
00138  M01S00131.1pp     +++|*
00139  M01S00132.1pp     +++|*         JOBSTAT NAME,STATUS,SS,ES,FR,TE,PI
00140  M01S00133.1pp     +++|*                NAME        TABLE NAME IF PRESENT.
00141  M01S00134.1pp     +++|*                STATUS      JOB STATUS.
00142  M01S00135.1pp     +++|*                SS          NON-BLANK IF SCHEDULABLE JOB STATUS.
00143  M01S00136.1pp     +++|*                ES          NON-BLANK IF ERROR FLAG SET CAUSES JOB
00144  M01S00137.1pp     +++|*                            STATUS TO BECOME SCHEDULABLE.
00145  M01S00138.1pp     +++|*                FR          NON-BLANK IF JOB MAY BE FORCED ROLLED IN.
00146  M01S00139.1pp     +++|*                TE          NON-BLANK IF TIMED/EVENT TYPE JOB STATUS.
00147  M01S00140.1pp     +++|*                PI          NON-BLANK IF PRE-INITIAL JOB STEP TYPE
00148  M01S00141.1pp     +++|*                            STATUS.
00149  M01S00142.1pp     +++|*         JOBSTAT A,B,C,D,E,F,G
00150  M01S00143.1pp     +++|*
00151  M01S00144.1pp     +++|*         NOTE - ANY CHANGE TO THIS MACRO MUST BE ACCOMPANIED BY A
00152  M01S00145.1pp     +++|*                CORRESPONDING CHANGE TO THE *JOBSTAT* MACRO DEFINED
00153  M01S00146.1pp     +++|*                IN *1SJ*.
00154  M01S00147.1pp     +++|
00155  M01S00148.1pp     +++|
00156  M01S00149.1pp     +++|          PURGMAC JOBSTAT
00157  M01S00150.1pp     +++|
00158  M01S00151.1pp     +++|          MACRO  JOBSTAT,NAME,STATUS,SS,ES,FR,TE,PI
00159  M01S00152.1pp     +++|          MACREF JOBSTAT
00160  M01S00153.1pp     +++|.1        IFC    NE,$NAME$$
00161  M01S00154.1pp     +++|NAME      INDEX
00162  M01S00155.1pp     +++|.1        ELSE
00163  M01S00156.1pp     +++|.V        SET    0
00164  M01S00157.1pp     +++|          IFC    NE,$SS$$,1
00165  M01S00158.1pp     +++|.V        SET    .V+4000
00166  M01S00159.1pp     +++|          IFC    NE,$ES$$,1
00167  M01S00160.1pp     +++|.V        SET    .V+2000
00168  M01S00161.1pp     +++|          IFC    NE,$FR$$,1
00169  M01S00162.1pp     +++|.V        SET    .V+1000
00170  M01S00163.1pp     +++|          IFC    NE,$TE$$,1
00171  M01S00164.1pp     +++|.V        SET    .V+400
00172  M01S00165.1pp     +++|          IFC    NE,$PI$$,1
00173  M01S00166.1pp     +++|.V        SET    .V+200
00174  M01S00167.1pp     +++|          INDEX  STATUS,.V
00175  M01S00168.1pp     +++|.1        ENDIF
00176  M01S00169.1pp     +++|          ENDM
00177  M01S00170.1pp     +++|          TITLE  DIRECT CELL ASSIGNMENTS.
00178  M01S00171.1pp     +++|****      DIRECT CELL ASSIGNMENTS.
00179  M01S00172.1pp     +++|
00180  M01S00173.1pp     +++|
00181  M01S00174.1pp     +++| T8       EQU    16          SCRATCH
00182  M01S00175.1pp     +++| T9       EQU    17          SCRATCH
00183  M01S00176.1pp     +++| AA       EQU    20 - 24     SCRATCH (5 CELLS)
00184  M01S00177.1pp     +++| TM       EQU    25 - 26     SECONDS PORTION OF *RTCL* (2 CELLS)
00185  M01S00178.1pp     +++| BB       EQU    27 - 33     SCRATCH (5 CELLS)
00186  M01S00179.1pp     +++| EO       EQU    34          EJT ORDINAL
00187  M01S00180.1pp     +++| CF       EQU    35          SCHEDULER CONTROL FLAGS
00188  M01S00181.1pp     +++| PN       EQU    36          NUMBER OF MCT ENTRIES
00189  M01S00182.1pp     +++|*         EQU    37 - 47     UNUSED
00190  M01S00183.1pp     +++| EJ       EQU    50 - 54     EJT BUFFER (5 CELLS)
00191  M01S00184.1pp     +++| SC       EQU    57          SERVICE CLASS
00192  M01S00185.1pp     +++|*         EQU    60 - 65     UNUSED
00193  M01S00186.1pp     +++| NC       EQU    66          NUMBER OF CONTROL POINTS
00194  M01S00187.1pp     +++| TP       EQU    67          SCRATCH
00195  M01S00188.1pp     +++|
00196  M01S00189.1pp     +++|
00197  M01S00190.1pp     +++|****
00198  M01S00191.1pp     +++| PPF      TITLE  MAIN PROGRAM.
00199  M01S00192.1pp     +++|**        PPF - MAIN PROGRAM.
00200  M01S00193.1pp     +++|
00201  M01S00194.1pp     +++|
00202  M01S00195.1pp     +++|          ORG    PPFW
00203  M01S00196.1pp     +++|
00204  M01S00197.1pp     +++| PPF      BSS    0
00205  M01S00198.1pp     +++|          RJM    PRS         PRESET
00206  M01S00199.1pp     +++|          RJM    PCA         PROCESS CONTROL POINT AREAS
00207  M01S00200.1pp     +++|          RJM    CFS         CHECK FILE SIZES
00208  M01S00201.1pp     +++|          RJM    SEJ         SCAN EJT
00209  M01S00007.274l797 +++|          RJM    OSS         SCAN OPTICAL STORAGE DEVICES AND REQUESTS
00210  M01S00202.1pp     +++|          RJM    CMS         CHECK MASS STORAGE DEVICES
00211  M01S00203.1pp     +++|
00212  M01S00204.1pp     +++|*         PROCESS OVERFLOW FLAGS.  THIS PROCESSING MUST BE PERFORMED
00213  M01S00205.1pp     +++|*         AFTER ROUTINE *SEJ* COMPLETES SO THAT *0AU* MAY OVERLAY THE
00214  M01S00206.1pp     +++|*         *TJAM* AND *TEPB* TABLES.  ROUTINE *PSL* (CALLED BY *SEJ*)
00215  M01S00207.1pp     +++|*         USES THE *TJAM* TABLE AND ROUTINE *SRS* (CALLED BY *PSL*)
00216  M01S00208.1pp     +++|*         USES THE *TEPB* TABLE.  *POF* MUST BE CALLED AFTER *PCA*
00217  M01S00209.1pp     +++|*         SINCE THE *TOVF* TABLE IS BUILT BY *PCA* AND USED BY *POF*.
00218  M01S00210.1pp     +++|*         ALSO, *PCA* USES THE *TEPB* TABLE.
00219  M01S00211.1pp     +++|
00220  M01S00212.1pp     +++|          RJM    POF         PROCESS OVERFLOW FLAGS
00221  M01S00213.1pp     +++|          RJM    COR         CHECK FOR OPERATOR ACTION REQUIRED
00222  M01S00214.1pp     +++|          LDD    IA          READ PP INPUT REGISTER
00223  M01S00215.1pp     +++|          CRD    CM
00224  M01S00216.1pp     +++|          LDD    MA          PLACE PP CALL IN MESSAGE BUFFER
00225  M01S00217.1pp     +++|          CWD    CM
00226  M01S00218.1pp     +++|          LDK    ZERL
00227  M01S00219.1pp     +++|          CRD    CM
00228  M01S00220.1pp     +++|          LDK    /CPS/PTMF   SET SUBFUNCTION
00229  M01S00221.1pp     +++|          STD    CM+1
00230  M01S00222.1pp     +++|          LDC    1000D       SET RECALL TIME TO 1 SECOND
00231  M01S00223.1pp     +++|          STD    CM+4
00232  M01S00224.1pp     +++|          MONITOR RECM       DROP PP
00233  M01S00225.1pp     +++|          LJM    PPR         ENTER IDLE LOOP
00234  M01S00226.1pp     +++|          TITLE  PRIMARY SUBROUTINES.
00235  M01S00227.1pp     +++| CFS      SPACE  4,10
00236  M01S00228.1pp     +++|**        CFS - CHECK FILE SIZES.
00237  M01S00229.1pp     +++|*
00238  M01S00230.1pp     +++|*         CHECK FOR FILE SIZE LIMIT EXCEEDED FOR SYSTEM DAYFILE, ERROR
00239  M01S00231.1pp     +++|*         LOG, ACCOUNT FILE AND BINARY MAINTENANCE LOG.
00240  M01S00232.1pp     +++|*
00241  M01S00233.1pp     +++|*         USES   T2, T3, T5 - CM+4, AA - AA+4.
00242  M01S00234.1pp     +++|*
00243  M01S00235.1pp     +++|*         CALLS  SEI.
00244  M01S00236.1pp     +++|*
00245  M01S00237.1pp     +++|*         MACROS MONITOR.
00246  M01S00238.1pp     +++|
00247  M01S00239.1pp     +++|
00248  M01S00240.1pp     +++| CFSA     MAX    MSDY,ACDY,ELDY,MLDY
00249  M01S00241.1pp     +++|
00250  M01S00242.1pp     +++| CFS      SUBR               ENTRY/EXIT
00251  M01S00243.1pp     +++|          LDN    DFPP        GET FWA OF BUFFER POINTER WORDS
00252  M01S00244.1pp     +++|          CRD    AA
00253  M01S00245.1pp     +++|          LDN    CFSA*TDFPE+TDFPE  INITIALIZE INDEX
00254  M01S00246.1pp     +++|          STD    AA+2
00255  M01S00247.1pp     +++| CFS1     LCN    TDFPE       DECREMENT INDEX
00256  M01S00248.1pp     +++|          RAD    AA+2
00257  M01S00249.1pp     +++|          MJN    CFSX        IF ALL DAYFILES HAVE BEEN PROCESSED
00258  M01S00250.1pp     +++|          LDM    TDFP,AA+2
00259  M01S00251.1pp     +++|          ZJN    CFS1        IF THIS DAYFILE SHOULD NOT BE PROCESSED
00260  M01S00252.1pp     +++|          SHN    6
00261  M01S00253.1pp     +++|          ADD    AA
00262  M01S00254.1pp     +++|          SHN    14
00263  M01S00255.1pp     +++|          ADD    AA+1
00264  M01S00256.1pp     +++|          CRD    T5
00265  M01S00257.1pp     +++|          SBN    2           GET THRESHOLD INCREMENT
00266  M01S00258.1pp     +++|          CRD    CM
00267  M01S00259.1pp     +++|          LDD    CM+2
00268  M01S00260.1pp     +++|          LPN    7
00269  M01S00261.1pp     +++|          STD    AA+4
00270  M01S00262.1pp     +++|          ADN    1
00271  M01S00263.1pp     +++|          STM    CFSB+4
00272  M01S00264.1pp     +++|          LDD    T5
00273  M01S00265.1pp     +++|          ZJN    CFS1        IF ZERO LENGTH DAYFILE
00274  M01S00266.1pp     +++|          RJM    SEI         SEARCH FOR EOI
00275  M01S00267.1pp     +++| CFS2     LDM    TDFP+2,AA+2
00276  M01S00268.1pp     +++|          RAD    T3
00277  M01S00269.1pp     +++|          SHN    -14
00278  M01S00270.1pp     +++|          ADM    TDFP+1,AA+2
00279  M01S00271.1pp     +++|          RAD    T2
00280  M01S00272.1pp     +++|          SHN    -14
00281  M01S00273.1pp     +++|          RAD    T3
00282  M01S00274.1pp     +++|          LDD    T2
00283  M01S00275.1pp     +++|          SHN    0-13
00284  M01S00276.1pp     +++| CFS3     NJP    CFS1        IF SIZE NOT EXCEEDED
00285  M01S00277.1pp     +++|          SOD    AA+4
00286  M01S00278.1pp     +++|          PJN    CFS2        IF NOT END OF THRESHOLD INCREMENT
00287  M01S00279.1pp     +++|
00288  M01S00280.1pp     +++|*         ISSUE *EATM* TO POST OPERATOR ACTION EVENT.
00289  M01S00281.1pp     +++|
00290  M01S00282.1pp     +++|          LDN    0           SELECT *EATM* ENTER EVENT OPTION
00291  M01S00283.1pp     +++|          STD    CM+1
00292  M01S00284.1pp     +++|          STD    CM+3        STORE EVENT DESCRIPTOR
00293  M01S00285.1pp     +++|          LDM    TDFP+3,AA+2
00294  M01S00286.1pp     +++|          STD    CM+4
00295  M01S00287.1pp     +++|          MONITOR  EATM
00296  M01S00288.1pp     +++|          LDM    CFSB+4
00297  M01S00289.1pp     +++|          LMN    10
00298  M01S00290.1pp     +++|          ZJN    CFS3        IF MAXIMUM THRESHOLD INCREMENT
00299  M01S00291.1pp     +++|          LDD    AA          SET NEW THRESHOLD INCREMENT
00300  M01S00292.1pp     +++|          SHN    14
00301  M01S00293.1pp     +++|          ADD    AA+1
00302  M01S00294.1pp     +++|          ADM    TDFP,AA+2
00303  M01S00295.1pp     +++|          SBN    2
00304  M01S00296.1pp     +++|          STD    CM+4
00305  M01S00297.1pp     +++|          SHN    -14
00306  M01S00298.1pp     +++|          STD    CM+3
00307  M01S00299.1pp     +++|          LDN    1
00308  M01S00300.1pp     +++|          STD    CM+1
00309  M01S00301.1pp     +++|          LDD    MA
00310  M01S00302.1pp     +++|          CWM    CFSB,CM+1
00311  M01S00303.1pp     +++|          MONITOR  UTEM
00312  M01S00304.1pp     +++|          LJM    CFS1        LOOP FOR NEXT DAYFILE
00313  M01S00305.1pp     +++|
00314  M01S00306.1pp     +++|
00315  M01S00307.1pp     +++|*         *UTEM* PARAMETERS TO SET DAYFILE THRESHOLD INCREMENT.
00316  M01S00308.1pp     +++|
00317  M01S00309.1pp     +++| CFSB     VFD    6/0,6/3,6/24D,42/0
00318  M01S00310.1pp     +++| TDFP     SPACE  4,10
00319  M01S00311.1pp     +++|**        TDFP - DAYFILE PROCESSING PARAMETERS.
00320  M01S00312.1pp     +++|*         ENTRY = 4 WORDS.
00321  M01S00313.1pp     +++|*         INDEXED BY DAYFILE TYPE.
00322  M01S00314.1pp     +++|*
00323  M01S00315.1pp     +++|*T        12/ WO,24/ TH,12/ EV
Figure

0111229 EV TH30353647 TH WO

00324  M01S00316.1pp     +++|*         WO     CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER POINTER
00325  M01S00317.1pp     +++|*                BLOCK RELATIVE TO FWA OF DAYFILE BUFFER POINTER
00326  M01S00318.1pp     +++|*                BLOCKS.
00327  M01S00319.1pp     +++|*         TH     THRESHOLD SIZE IN PRUS.
00328  M01S00320.1pp     +++|*         EV     EVENT TO ISSUE IF THRESHOLD EXCEEDED.
00329  M01S00321.1pp     +++|
00330  M01S00322.1pp     +++|
00331  M01S00323.1pp     +++| TDFP     DFLIM
00332  M01S00324.1pp     +++|          DFLIM  MSDY,(3*MSDY+2),-DFDL,DFDE
00333  M01S00325.1pp     +++|          DFLIM  ACDY,(3*ACDY+2),-AFDL,ALDE
00334  M01S00326.1pp     +++|          DFLIM  ELDY,(3*ELDY+2),-ELDL,ELDE
00335  M01S00327.1pp     +++|          DFLIM  MLDY,(3*MLDY+2),-BLTL,BMLE
00336  M01S00328.1pp     +++|
00337  M01S00329.1pp     +++|          LOC    *O
00338  M01S00330.1pp     +++|
00339  M01S00331.1pp     +++| .1       SET    *-TDFP
00340  M01S00332.1pp     +++| .2       SET    CFSA+1
00341  M01S00333.1pp     +++| TDFPE    EQU    .1/.2       *TDFP* ENTRY LENGTH
00342  M01S00334.1pp     +++| CMS      SPACE  4,15
00343  M01S00335.1pp     +++|**        CMS - CHECK MASS STORAGE.
00344  M01S00336.1pp     +++|*
00345  M01S00337.1pp     +++|*         THIS ROUTINE SCANS THE EST LOOKING FOR THE FOLLOWING.
00346  M01S00338.1pp     +++|*         1.     CHECKPOINT REQUESTS.                   *1CK* CALLED.
00347  M01S00339.1pp     +++|*         2.     INITIALIZATION/REDEFINITION REQUESTS.  *CMS* CALLED.
00348  M01S00340.1pp     +++|*         3.     SUSPECT DEVICES OR FLAWED TRACKS.      *1MV* CALLED.
00349  M01S00341.1pp     +++|*         4.     DEVICES WHOSE RESTRICT NEW ACTIVITY THRESHOLD
00350  M01S00342.1pp     +++|*                DOES NOT MATCH THE RESTRICT NEW ACTIVITY BIT FOR THE
00351  M01S00343.1pp     +++|*                DEVICE.  THE RESTRICT NEW ACTIVITY BIT IS ADJUSTED
00352  M01S00344.1pp     +++|*                TO REFLECT THE THRESHOLD BEING EXCEEDED OR NOT.
00353  M01S00345.1pp     +++|*         5.     DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS
00354  M01S00346.1pp     +++|*                GREATER THAN THE TRACKS AVAILABLE.  IF ANY SUCH
00355  M01S00347.1pp     +++|*                DEVICES ARE FOUND AND THE OPERATOR NOTIFICATION
00356  M01S00348.1pp     +++|*                EVENT HAS NOT BEEN ISSUED (AS NOTED IN *OPRL*), THEN
00357  M01S00349.1pp     +++|*                ISSUE THE OPERATOR NOTIFICATION EVENT (*TKSL*).
00358  M01S00350.1pp     +++|*         6.     DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS
00359  M01S00351.1pp     +++|*                LESS THAN THE TRACKS AVAILABLE BY AT LEAST 5.  IF
00360  M01S00352.1pp     +++|*                ALL DEVICES HAVE AVAILABLE TRACKS AT LEAST 5 GREATER
00361  M01S00353.1pp     +++|*                THAN THE OPERATOR NOTIFICATION THRESHOLD AND THE
00362  M01S00354.1pp     +++|*                OPERATOR NOTIFICATION FLAG FOR TRACKS LOW IS SET IN
00363  M01S00355.1pp     +++|*                *OPRL*, THEN CLEAR THE TRACKS LOW NOTIFICATION FLAG.
00364  M01S00356.1pp     +++|*
00365  M01S00357.1pp     +++|*         EXIT   IF *CMS* OR *1CK* MUST BE CALLED BUT NO PP IS
00366  M01S00358.1pp     +++|*                AVAILABLE, THE TIMERS IN *RDSL* WILL REMAIN UNCHANGED
00367  M01S00359.1pp     +++|*                SO THE SAME PROCESSING WILL OCCUR IN THE NEXT
00368  M01S00360.1pp     +++|*                SCHEDULING CYCLE.
00369  M01S00361.1pp     +++|*
00370  M01S00362.1pp     +++|*         USES   T8, T9, AA - AA+4, BB - BB+4, CM - CM+4, EJ - EJ+4,
00371  M01S00363.1pp     +++|*                TM - TM+4, T0 - T7.
00372  M01S00364.1pp     +++|*
00373  M01S00365.1pp     +++|*         CALLS  AST, CPP, CSC, CTF, SME.
00374  M01S00366.1pp     +++|*
00375  M01S00367.1pp     +++|*         MACROS MONITOR, SFA, SMSTF.
00376  M01S00368.1pp     +++|
00377  M01S00369.1pp     +++|
00378  M01S00370.1pp     +++| CMS13    LDN    SSTL
00379  M01S00371.1pp     +++|          CRD    EJ
00380  M01S00372.1pp     +++|          ADN    RDSL-SSTL
00381  M01S00373.1pp     +++|          CRD    BB
00382  M01S00374.1pp     +++|          ADN    OPRL-RDSL
00383  M01S00375.1pp     +++|          CRD    AA
00384  M01S00376.1pp     +++|          SOD    BB+1
00385  M01S00377.1pp     +++|          PJN    CMS14       IF NOT TIME FOR *1CK* CALL
00386  M01S00378.1pp     +++|          LDN    15D         RESET *1CK* TIMER
00387  M01S00379.1pp     +++|          STD    BB+1
00388  M01S00380.1pp     +++|          LDC    0
00389  M01S00381.1pp     +++| CMSA     EQU    *-1
00390  M01S00382.1pp     +++|          ZJN    CMS14       IF NO *1CK* CALL REQUIRED
00391  M01S00383.1pp     +++|          LDN    C1CK        CALL *1CK*
00392  M01S00384.1pp     +++|          RJM    CPP
00393  M01S00385.1pp     +++|          NJN    CMS14       IF *1CK* ASSIGNED
00394  M01S00386.1pp     +++|          STD    BB+1        RESET TIMER TO TRY ON NEXT CYCLE
00395  M01S00387.1pp     +++|
00396  M01S00388.1pp     +++|*         CHECK FOR *CMS* CALL REQUIRED.
00397  M01S00389.1pp     +++|
00398  M01S00390.1pp     +++| CMS14    SOD    BB          DECREMENT *CMS* TIMER
00399  M01S00391.1pp     +++|          PJN    CMS15       IF NOT TIME FOR *CMS* LABEL CHECK
00400  M01S00392.1pp     +++|          LDN    60D         RESET LABEL CHECK TIMER
00401  M01S00393.1pp     +++|          STD    BB
00402  M01S00394.1pp     +++|          LDD    EJ+1
00403  M01S00395.1pp     +++|          SHN    21-6
00404  M01S00396.1pp     +++|          PJN    CMS16       IF LABEL CHECK NOT DISABLED
00405  M01S00397.1pp     +++| CMS15    LDC    0           CHECK IF *CMS* CALL REQUIRED
00406  M01S00398.1pp     +++| CMSB     EQU    *-1
00407  M01S00399.1pp     +++|          ZJN    CMS17       IF NO *CMS* CALL REQUIRED
00408  M01S00400.1pp     +++| CMS16    LDC    MSSI+FEAF*10000
00409  M01S00401.1pp     +++|          RJM    AST         GET SSCT ENTRY FOR *MSM* SUBSYSTEM
00410  M01S00402.1pp     +++|          NJN    CMS17       IF *CMS* IS ALREADY ACTIVE
00411  M01S00403.1pp     +++|          LDN    CCMS        CALL *CMS*
00412  M01S00404.1pp     +++|          RJM    CPP
00413  M01S00405.1pp     +++|          NJN    CMS17       IF PP AVAILABLE
00414  M01S00406.1pp     +++|          STD    BB          RESET TIMER TO TRY ON NEXT CYCLE
00415  M01S00407.1pp     +++| CMS17    LDC    RDSL        UPDATE *1CK*/*CMS* TIMERS
00416  M01S00408.1pp     +++|          CWD    BB
00417  M01S00409.1pp     +++|
00418  M01S00410.1pp     +++|*         CHECK FOR OPERATOR NOTIFICATION OF LOW SPACE.
00419  M01S00411.1pp     +++|
00420  M01S00412.1pp     +++|          LDC    0           OPERATOR NOTIFICATION REQUIRED FLAG
00421  M01S00413.1pp     +++| CMSC     EQU    *-1
00422  M01S00414.1pp     +++|          ZJN    CMS18       IF NO OPERATOR NOTIFICATION REQUIRED
00423  M01S00415.1pp     +++|          LDD    AA+3
00424  M01S00416.1pp     +++|          SHN    21-LSPE+1+14
00425  M01S00417.1pp     +++|          MJN    CMSX        IF NOTIFICATION ALREADY SET
00426  M01S00418.1pp     +++|          LDN    LSPE        SET OPERATOR NOTIFICATION EVENT
00427  M01S00419.1pp     +++|          STD    CM+4
00428  M01S00420.1pp     +++|          LDN    0           ENTER EVENT
00429  M01S00421.1pp     +++|          STD    CM+3
00430  M01S00422.1pp     +++|          STD    CM+1
00431  M01S00423.1pp     +++|          MONITOR  EATM
00432  M01S00424.1pp     +++|          UJN    CMSX        RETURN
00433  M01S00425.1pp     +++|
00434  M01S00426.1pp     +++|*         CHECK FOR CLEARING OF LOW SPACE NOTIFICATION.
00435  M01S00427.1pp     +++|
00436  M01S00428.1pp     +++| CMS18    LDC    0
00437  M01S00429.1pp     +++| CMSD     EQU    *-1
00438  M01S00430.1pp     +++|          NJN    CMSX        IF TO AVOID CLEARING NOTIFICATION
00439  M01S00431.1pp     +++|          LDD    AA+3
00440  M01S00432.1pp     +++|          SHN    21-LSPE+1+14
00441  M01S00433.1pp     +++|          PJN    CMSX        IF NOTIFICATION NOT SET
00442  M01S00434.1pp     +++|          LDK    OPRL        SET BIT IN *OPRL*
00443  M01S00435.1pp     +++|          STD    CM+4
00444  M01S00436.1pp     +++|          LDN    0
00445  M01S00437.1pp     +++|          STD    CM+3
00446  M01S00438.1pp     +++|          STD    CM+2
00447  M01S00439.1pp     +++|          LDN    1
00448  M01S00440.1pp     +++|          STD    CM+1
00449  M01S00441.1pp     +++|          LDD    MA
00450  M01S00442.1pp     +++|          CWM    CMSE,ON
00451  M01S00443.1pp     +++|          MONITOR  UTEM
00452  M01S00444.1pp     +++|
00453  M01S00445.1pp     +++| CMS      SUBR               ENTRY/EXIT
00454  M01S00446.1pp     +++|          LDN    ESTP
00455  M01S00447.1pp     +++|          CRD    AA
00456  M01S00448.1pp     +++|          ADK    RTCL-ESTP
00457  M01S00449.1pp     +++|          CRD    TM
00458  M01S00450.1pp     +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL FOR SEARCH
00459  M01S00451.1pp     +++|          STD    T8
00460  M01S00452.1pp     +++|          LDD    AA+3
00461  M01S00453.1pp     +++|          STD    T9
00462  M01S00454.1pp     +++|
00463  M01S00455.1pp     +++|*         SCAN EST FOR INITIALIZE AND CHECKPOINT REQUESTS.
00464  M01S00456.1pp     +++|
00465  M01S00457.1pp     +++| CMS1     AOD    T8
00466  M01S00458.1pp     +++|          LMD    T9
00467  M01S00459.1pp     +++|          NJN    CMS2        IF EST SEARCH NOT COMPLETE
00468  M01S00460.1pp     +++|          LJM    CMS13       CALL *1CK/CMS*
00469  M01S00461.1pp     +++|
00470  M01S00462.1pp     +++| CMS2     SFA    EST,T8      READ EST ENTRY
00471  M01S00463.1pp     +++|          ADK    EQDE
00472  M01S00464.1pp     +++|          CRD    EJ
00473  M01S00465.1pp     +++|          LDD    EJ          CHECK DEVICE TYPE
00474  M01S00466.1pp     +++|          SHN    21-13
00475  M01S00467.1pp     +++|          PJN    CMS1        IF NOT MASS STORAGE DEVICE
00476  M01S00468.1pp     +++|          SHN    21-1-21+13
00477  M01S00469.1pp     +++|          MJN    CMS1        IF DEVICE IS *OFF* OR *DOWN*
00478  M01S00470.1pp     +++|          LDD    EJ+4
00479  M01S00471.1pp     +++|          SHN    3
00480  M01S00472.1pp     +++|          ADK    TDGL        READ TRACKS AVAILABLE
00481  M01S00473.1pp     +++|          CRD    T0
00482  M01S00474.1pp     +++|          ADN    ACGL-TDGL   READ REDEFINITION REQUEST
00483  M01S00475.1pp     +++|          CRD    CM
00484  M01S00476.1pp     +++|          ADN    NVGL-ACGL   READ FLAW REQUEST
00485  M01S00477.1pp     +++|          CRD    T6
00486  M01S00478.1pp     +++|          ADN    DALL-NVGL   READ DEVICE STATE BITS
00487  M01S00479.1pp     +++|          CRD    T7
00488  M01S00480.1pp     +++|          ADN    STLL-DALL   READ CHECKPOINT, *1MV*, INITIALIZE
00489  M01S00481.1pp     +++|          CRD    BB
00490  M01S00482.1pp     +++|          ADN    THLL-STLL   READ DEVICE THRESHOLDS
00491  M01S00483.1pp     +++|          CRD    AA
00492  M01S00484.1pp     +++|
00493  M01S00485.1pp     +++|*         CHECK FOR *CMS* CALL REQUIRED.
00494  M01S00486.1pp     +++|
00495  M01S00487.1pp     +++|          LDD    CM+4
00496  M01S00488.1pp     +++|          LPC    MGRDR
00497  M01S00489.1pp     +++|          NJN    CMS3        IF REDEFINITION REQUESTED
00498  M01S00490.1pp     +++|          LDD    BB
00499  M01S00491.1pp     +++|          LPN    MLIRP
00500  M01S00492.1pp     +++|          ZJN    CMS4        IF INITIALIZE IS NOT REQUESTED
00501  M01S00493.1pp     +++|          LDD    BB
00502  M01S00494.1pp     +++|          LPC    MLFPR+MLUNL
00503  M01S00495.1pp     +++|          NJN    CMS4        IF PACK FORMAT/UNLOAD REQUESTED
00504  M01S00496.1pp     +++|          LDD    BB
00505  M01S00497.1pp     +++|          LPC    MLIAL+MLIHD+MLIFD+MLIPF
00506  M01S00498.1pp     +++|          ZJN    CMS3        IF NOT TOTAL/PF INITIALIZE
00507  M01S00499.1pp     +++|          LDD    BB+3
00508  M01S00500.1pp     +++|          NJN    CMS4        IF ACTIVITY ON DEVICE
00509  M01S00501.1pp     +++| CMS3     AOM    CMSB        SET *CMS* CALL REQUIRED
00510  M01S00502.1pp     +++|
00511  M01S00503.1pp     +++|*         CHECK FOR *1CK* CALL REQUIRED.
00512  M01S00504.1pp     +++|
00513  M01S00505.1pp     +++| CMS4     LDD    BB          (TIME TO PROCESS CHECKPOINT REQUESTS)
00514  M01S00506.1pp     +++|          LPN    MLCKP
00515  M01S00507.1pp     +++|          ZJN    CMS5        IF CHECKPOINT NOT REQUESTED ON DEVICE
00516  M01S00508.1pp     +++|          AOM    CMSA        NOTE CHECKPOINT BIT SET
00517  M01S00509.1pp     +++|
00518  M01S00510.1pp     +++|*         CHECK FOR *1MV* CALL REQUIRED.
00519  M01S00511.1pp     +++|
00520  M01S00512.1pp     +++| CMS5     LDD    T7
00521  M01S00513.1pp     +++|          LPC    200
00522  M01S00514.1pp     +++|          NJN    CMS7        IF SUSPECT DEVICE
00523  M01S00515.1pp     +++|          RJM    CTF         CHECK TRACK FLAW
00524  M01S00516.1pp     +++|          ZJN    CMS6        IF TRACK FLAWED
00525  M01S00517.1pp     +++|          RJM    CSC         CHECK SWEEP CYCLING
00526  M01S00518.1pp     +++|          MJN    CMS8        IF NO SWEEP CYCLING CALL REQUIRED
00527  M01S00519.1pp     +++|          SOM    CSCA        DECREMENT REMAINING CALL COUNT
00528  M01S00520.1pp     +++|          LDN    SCFC&MVFC   SET SWEEP CYCLING
00529  M01S00521.1pp     +++| CMS6     LMK    MVFC&DVFC   SET MEDIA VERIFICATION
00530  M01S00522.1pp     +++| CMS7     LMK    DVFC        SET DEVICE VERIFICATION
00531  M01S00523.1pp     +++|          SHN    6
00532  M01S00524.1pp     +++|          STM    TCPP+C1MV+3
00533  M01S00525.1pp     +++|          LDD    BB+1
00534  M01S00526.1pp     +++|          SHN    21-7
00535  M01S00527.1pp     +++|          MJN    CMS8        IF *1MV* ACTIVE
00536  M01S00528.1pp     +++|          LDD    T8          SET EQUIPMENT IN REQUEST
00537  M01S00529.1pp     +++|          STD    T5
00538  M01S00530.1pp     +++|          STM    TCPP+C1MV+2
00539  M01S00531.1pp     +++|          LDN    C1MV
00540  M01S00532.1pp     +++|          RJM    CPP
00541  M01S00533.1pp     +++|          ZJN    CMS8        IF PP NOT ASSIGNED
00542  M01S00534.1pp     +++|          SMSTF  L1MV        SET *1MV* ACTIVE
00543  M01S00535.1pp     +++|
00544  M01S00536.1pp     +++|*         PROCESS LOW SPACE, RESTRICT NEW ACTIVITY FLAG.
00545  M01S00537.1pp     +++|
00546  M01S00538.1pp     +++| CMS8     LDD    T0+4
00547  M01S00539.1pp     +++|          SBD    AA+1
00548  M01S00540.1pp     +++|          SHN    -21+6       (A) BIT 6 = 0, IF THRESHOLD NOT EXCEEDED
00549  M01S00541.1pp     +++|          LMD    T7
00550  M01S00542.1pp     +++|          SHN    21-6
00551  M01S00543.1pp     +++|          PJN    CMS9        IF RESTRICT NEW ACTIVITY BIT CORRECT
00552  M01S00544.1pp     +++|          LDD    T7
00553  M01S00545.1pp     +++|          SHN    -6
00554  M01S00546.1pp     +++|          LPN    1
00555  M01S00547.1pp     +++|          LMN    1
00556  M01S00548.1pp     +++|          ADN    /CPS/CRES   SET/CLEAR RESTRICT NEW ACTIVITY BIT
00557  M01S00549.1pp     +++|          ERRNZ  /CPS/SRES-/CPS/CRES-1  CODE DEPENDS ON VALUE OF TAGS
00558  M01S00550.1pp     +++|          STD    CM+2
00559  M01S00551.1pp     +++|          LDD    T8          SET EQUIPMENT
00560  M01S00552.1pp     +++|          STD    CM+1
00561  M01S00553.1pp     +++|          MONITOR  SEQM
00562  M01S00554.1pp     +++|
00563  M01S00555.1pp     +++|*         PROCESS LOW TRACK NOTIFICATION THRESHOLD.
00564  M01S00556.1pp     +++|
00565  M01S00557.1pp     +++| CMS9     LDD    AA+2        CHECK FOR LOW SPACE THRESHOLD EXCEEDED
00566  M01S00558.1pp     +++|          LPC    3777
00567  M01S00559.1pp     +++|          SBN    1
00568  M01S00560.1pp     +++|          SBD    T0+4
00569  M01S00561.1pp     +++|          PJN    CMS10       IF THRESHOLD EXCEEDED
00570  M01S00562.1pp     +++|          ADN    5+1
00571  M01S00563.1pp     +++|          PJN    CMS11       IF INSUFFICIENT SPACE TO CLEAR *OPRL*
00572  M01S00564.1pp     +++|          LDD    AA+2        CLEAR *OPERATOR NOTIFIED* FLAG
00573  M01S00565.1pp     +++|          LPC    3777
00574  M01S00566.1pp     +++|          STD    AA+2
00575  M01S00567.1pp     +++|          LDD    EJ+4        REWRITE *THLL* IN MST
00576  M01S00568.1pp     +++|          SHN    3
00577  M01S00569.1pp     +++|          ADN    THLL
00578  M01S00570.1pp     +++|          CWD    AA
00579  M01S00571.1pp     +++|          UJN    CMS12       CONTINUE
00580  M01S00572.1pp     +++|
00581  M01S00573.1pp     +++| CMS10    LDD    AA+2
00582  M01S00574.1pp     +++|          SHN    21-13
00583  M01S00575.1pp     +++|          MJN    CMS11       IF OPERATOR PREVIOUSLY NOTIFIED
00584  M01S00576.1pp     +++|          LDC    4000        SET *OPERATOR NOTIFIED* FLAG
00585  M01S00577.1pp     +++|          RAD    AA+2
00586  M01S00578.1pp     +++|          LDD    EJ+4        REWRITE *THLL* IN MST
00587  M01S00579.1pp     +++|          SHN    3
00588  M01S00580.1pp     +++|          ADN    THLL
00589  M01S00581.1pp     +++|          CWD    AA
00590  M01S00582.1pp     +++|          AOM    CMSC        NOTIFY OPERATOR
00591  M01S00583.1pp     +++| CMS11    AOM    CMSD        PREVENT CLEARING *OPRL* LOW SPACE STATUS
00592  M01S00584.1pp     +++| CMS12    RJM    SME         CHECK MST ERROR COUNTS
00593  M01S00585.1pp     +++|          LJM    CMS1        PROCESS NEXT EQUIPMENT
00594  M01S00586.1pp     +++|
00595  M01S00587.1pp     +++|
00596  M01S00588.1pp     +++| CMSE     VFD    1/0,5/0,6/1
00597  M01S00589.1pp     +++|          VFD    6/LSPE-1,6/0
00598  M01S00590.1pp     +++|          CON    0,0,0
00599  M01S00591.1pp     +++| COR      SPACE  4,15
00600  M01S00592.1pp     +++|**        COR - CHECK IF OPERATOR ACTION IS REQUIRED.
00601  M01S00593.1pp     +++|*
00602  M01S00594.1pp     +++|*         WHEN RUNNING IN A DUAL STATE ENVIROMENT, *COR* SETS BIT 56
00603  M01S00595.1pp     +++|*         IN WORD *D7ST* OF THE *EICB* BLOCK TO INDICATE THAT ACTION
00604  M01S00596.1pp     +++|*         IS REQUIRED BY THE CONSOLE OPERATOR.
00605  M01S00597.1pp     +++|*
00606  M01S00598.1pp     +++|*         USES   EO, T7, AA - AA+4, BB - BB+4, CM - CM+4, T1 - T5.
00607  M01S00599.1pp     +++|*
00608  M01S00600.1pp     +++|*         CALLS  AST, EJA.
00609  M01S00601.1pp     +++|
00610  M01S00602.1pp     +++|
00611  M01S00603.1pp     +++|*         SET BIT INDICATING THAT ACTION IS REQUIRED OF THE CONSOLE
00612  M01S00604.1pp     +++|*         OPERATOR.
00613  M01S00605.1pp     +++|
00614  M01S00606.1pp     +++| COR6     LDD    AA
00615  M01S00607.1pp     +++|          LPC    7377
00616  M01S00608.1pp     +++|          LMC    400
00617  M01S00609.1pp     +++| CORA     EQU    *-1
00618  M01S00610.1pp     +++|*         LMC    0           (CLEAR BIT IF NO ACTION IS REQUIRED)
00619  M01S00611.1pp     +++|          STD    AA
00620  M01S00612.1pp     +++|          LDK    EIBP
00621  M01S00613.1pp     +++|          CRD    CM
00622  M01S00614.1pp     +++|          LDD    CM+3        REPLACE WORD *D7ST*
00623  M01S00615.1pp     +++|          SHN    14
00624  M01S00616.1pp     +++|          LMD    CM+4
00625  M01S00617.1pp     +++|          ADK    D7ST
00626  M01S00618.1pp     +++|          CWD    AA
00627  M01S00619.1pp     +++|          ADK    D8ST-D7ST
00628  M01S00620.1pp     +++|          CRD    AA
00629  M01S00621.1pp     +++|          SBN    D8ST-D8TY
00630  M01S00622.1pp     +++|          CRD    CM
00631  M01S00623.1pp     +++|          LDC    **          *NVE* CONTROL POINT ADDRESS
00632  M01S00624.1pp     +++| CORB     EQU    *-1
00633  M01S00625.1pp     +++|          ZJN    CORX        IF NOS/VE NOT ACTIVE
00634  M01S00626.1pp     +++|          LDD    CM+3        CHECK NOS/VE STATUS
00635  M01S00627.1pp     +++|          LPN    77
00636  M01S00628.1pp     +++|          LMN    2
00637  M01S00629.1pp     +++|          NJN    CORX        IF NOS/VE NOT RUNNING
00638  M01S00630.1pp     +++|          LDD    AA
00639  M01S00631.1pp     +++|          SHN    21-10
00640  M01S00632.1pp     +++|          MJN    COR7        IF NOS/VE REQUESTING OPERATOR ATTENTION
00641  M01S00633.1pp     +++|          LDN    0           CLEAR MESSAGE AT *NVE* CONTROL POINT
00642  M01S00634.1pp     +++|          STM    CORC
00643  M01S00635.1pp     +++| COR7     LDM    CORB        ISSUE/CLEAR MESSAGE AT *NVE* CONTROL POINT
00644  M01S00636.1pp     +++|          ADK    MS2W
00645  M01S00637.1pp     +++|          CWM    CORC,TR
00646  M01S00638.1pp     +++|
00647  M01S00639.1pp     +++| COR      SUBR               ENTRY/EXIT
00648  M01S00640.1pp     +++|          LDK    EIBP
00649  M01S00641.1pp     +++|          CRD    CM
00650  M01S00642.1pp     +++|          LDD    CM+3
00651  M01S00643.1pp     +++|          SHN    14
00652  M01S00644.1pp     +++|          LMD    CM+4
00653  M01S00645.1pp     +++|          ZJN    CORX        IF *EICB* NOT DEFINED
00654  M01S00646.1pp     +++|          ADK    D7ST
00655  M01S00647.1pp     +++|          CRD    AA          SAVE CONTENTS OF *D7ST*
00656  M01S00648.1pp     +++|          LDK    NVOL
00657  M01S00649.1pp     +++|          CRD    CM
00658  M01S00650.1pp     +++|          LDD    CM+4
00659  M01S00651.1pp     +++|          ZJN    CORX        IF NOS/VE NOT ACTIVE
00660  M01S00652.1pp     +++|          LDD    EO          SAVE EJT ORDINAL
00661  M01S00653.1pp     +++|          STD    BB
00662  M01S00654.1pp     +++|          LDC    SSCP        READ *SSAT* POINTER
00663  M01S00655.1pp     +++|          CRD    CM
00664  M01S00656.1pp     +++|          LDD    CM+2
00665  M01S00657.1pp     +++|          LPN    37
00666  M01S00658.1pp     +++|          SHN    14
00667  M01S00659.1pp     +++|          LMD    CM+3
00668  M01S00660.1pp     +++|
00669  M01S00661.1pp     +++| .W       SET    MXSI-NVSI   CALCULATE WORD OFFSET IN *SSAT*
00670  M01S00662.1pp     +++| .W       SET    .W/5
00671  M01S00663.1pp     +++| .B       SET    MXSI-5*.W-NVSI  CALCULATE BYTE OFFSET IN *SSAT* WORD
00672  M01S00664.1pp     +++|
00673  M01S00665.1pp     +++|          ADK    SSCTL+.W    READ *SSAT* WORD FOR *NVE* SUBSYSTEM
00674  M01S00666.1pp     +++|          CRD    CM
00675  M01S00667.1pp     +++|          LDD    CM+.B       SET *NVE* EJT ORDINAL
00676  M01S00668.1pp     +++|          STD    EO
00677  M01S00669.1pp     +++|          RJM    EJA         GET ADDRESS OF EJT ENTRY
00678  M01S00670.1pp     +++|          ADK    SCHE
00679  M01S00671.1pp     +++|          CRD    CM
00680  M01S00672.1pp     +++|          LDD    BB          RESTORE EJT ORDINAL
00681  M01S00673.1pp     +++|          STD    EO
00682  M01S00674.1pp     +++|          LDD    CM+3        SAVE CP ADDRESS OF *NVE*
00683  M01S00675.1pp     +++|          LPN    77
00684  M01S00676.1pp     +++|          SHN    7
00685  M01S00677.1pp     +++|          STM    CORB
00686  M01S00678.1pp     +++|
00687  M01S00679.1pp     +++|*         CHECK FOR SYSTEM PROBLEMS.
00688  M01S00680.1pp     +++|
00689  M01S00681.1pp     +++|          LDN    0
00690  M01S00682.1pp     +++|          CRD    CM
00691  M01S00683.1pp     +++|          LDD    CM
00692  M01S00684.1pp     +++|          ADD    CM+1
00693  M01S00685.1pp     +++|          ADD    CM+2
00694  M01S00686.1pp     +++|          ADD    CM+3
00695  M01S00687.1pp     +++|          ADD    CM+4
00696  M01S00688.1pp     +++|          NJN    COR2        IF WORD ZERO OF LOW CORE IS NON-ZERO
00697  M01S00689.1pp     +++|          LDK    OPRL
00698  M01S00690.1pp     +++|          CRD    CM
00699  M01S00691.1pp     +++|          LDD    CM
00700  M01S00692.1pp     +++|          ADD    CM+1
00701  M01S00693.1pp     +++|          ADD    CM+2
00702  M01S00694.1pp     +++|          ADD    CM+3
00703  M01S00695.1pp     +++|          ADD    CM+4
00704  M01S00696.1pp     +++|          NJN    COR2        IF OPERATOR MESSAGE IS PRESENT
00705  M01S00697.1pp     +++|
00706  M01S00698.1pp     +++|*         SCAN CONTROL POINTS FOR REQUIRED ACTION BY OPERATOR.
00707  M01S00699.1pp     +++|
00708  M01S00700.1pp     +++|          LDD    CP          INITIALIZE CP ADDRESS FOR BACKWARD SCAN
00709  M01S00701.1pp     +++|          STD    T7
00710  M01S00702.1pp     +++|          ADK    MS2W
00711  M01S00703.1pp     +++|          CRD    CM
00712  M01S00704.1pp     +++|          LDD    CM
00713  M01S00705.1pp     +++|          NJN    COR2        IF MESSAGE AT SYSTEM CONTROL POINT
00714  M01S00706.1pp     +++| COR1     LDC    -200        DECREMENT CONTROL POINT ADDRESS
00715  M01S00707.1pp     +++|          RAD    T7
00716  M01S00708.1pp     +++|          NJN    COR3        IF NOT END OF CONTROL POINTS
00717  M01S00709.1pp     +++|          STM    CORA        CLEAR BIT IN *D7ST*
00718  M01S00710.1pp     +++| COR2     LJM    COR6        RESET BIT IN *D7ST*
00719  M01S00711.1pp     +++|
00720  M01S00712.1pp     +++| COR3     ADK    TFSW
00721  M01S00713.1pp     +++|          CRD    CM
00722  M01S00714.1pp     +++|          LDD    CM
00723  M01S00715.1pp     +++|          ZJN    COR1        IF NO JOB AT CONTROL POINT
00724  M01S00716.1pp     +++|          LDD    T7
00725  M01S00717.1pp     +++|          ADK    SNSW
00726  M01S00718.1pp     +++|          CRD    CM
00727  M01S00719.1pp     +++|          ADK    MS1W-SNSW
00728  M01S00720.1pp     +++|          CRD    T1
00729  M01S00721.1pp     +++|          ADK    MS2W-MS1W
00730  M01S00722.1pp     +++|          CRD    BB
00731  M01S00723.1pp     +++|          LDD    CM+3
00732  M01S00724.1pp     +++|          SHN    21-0
00733  M01S00725.1pp     +++|          PJN    COR4        IF PAUSE FLAG NOT SET
00734  M01S00726.1pp     +++|          LDD    T1
00735  M01S00727.1pp     +++|          ADD    BB
00736  M01S00728.1pp     +++|          NJN    COR2        IF MESSAGE IS PRESENT
00737  M01S00729.1pp     +++| COR4     LDD    BB
00738  M01S00730.1pp     +++|          ZJN    COR1        IF NO MESSAGE IN *MS2W*
00739  M01S00731.1pp     +++|          SHN    -6
00740  M01S00732.1pp     +++|          LMN    1R$
00741  M01S00733.1pp     +++| COR5     NJN    COR1        IF NOT FLASHING MESSAGE
00742  M01S00734.1pp     +++|          LDD    T7
00743  M01S00735.1pp     +++|          ADK    JOTW
00744  M01S00736.1pp     +++|          CRD    BB
00745  M01S00737.1pp     +++|          LDD    BB+3
00746  M01S00738.1pp     +++|          LMK    SYOT
00747  M01S00739.1pp     +++|          NJN    COR5        IF NOT SYSTEM ORIGIN JOB
00748  M01S00740.1pp     +++|          UJN    COR2        SET BIT IN *D7ST*
00749  M01S00741.1pp     +++|
00750  M01S00742.1pp     +++|
00751  M01S00743.1pp     +++| CORC     DATA   C*$SEE NOS/VE DISPLAY*
00752  M01S00008.274l797 +++| OSS      SPACE  4,16
00753  M01S00009.274l797 +++|**        OSS - OPTICAL STORAGE SCANNER.
00754  M01S00010.274l797 +++|*
00755  M01S00011.274l797 +++|*         UPDATES THE OPTICAL DISK STATUS TABLE AND SCANS THE
00756  M01S00012.274l797 +++|*         OPTICAL DISK REQUEST TABLE FOR MOUNTED DISKS.
00757  M01S00013.274l797 +++|*
00758  M01S00014.274l797 +++|*         ENTRY  NONE.
00759  M01S00015.274l797 +++|*
00760  M01S00016.274l797 +++|*         EXIT   INTERVAL COUNTER UPDATED.
00761  M01S00017.274l797 +++|*
00762  M01S00018.274l797 +++|*         USES   CM+1, AA - AA+4.
00763  M01S00019.274l797 +++|*
00764  M01S00020.274l797 +++|*         CALLS  *1OS*.
00765  M01S00021.274l797 +++|*
00766  M01S00022.274l797 +++|*         MACROS MONITOR.
00767  M01S00023.274l797 +++|
00768  M01S00024.274l797 +++|
00769  M01S00025.274l797 +++| OSS      SUBR               ENTRY/EXIT
00770  M01S00026.274l797 +++|          LDC    OSTP        READ OST POINTER WORD
00771  M01S00027.274l797 +++|          CRD    AA
00772  M01S00028.274l797 +++|          LDD    AA+2
00773  M01S00029.274l797 +++|          ZJN    OSSX        IF NO OPTICAL DEVICES DEFINED
00774  M01S00030.274l797 +++|          LDD    AA+4
00775  M01S00031.274l797 +++|          SHN    21-13
00776  M01S00032.274l797 +++|          MJN    OSSX        IF SCANNER DISABLED OR *1OS* ACTIVE
00777  M01S00033.274l797 +++|          SOD    AA+4        DECREMENT INTERVAL COUNTER
00778  M01S00034.274l797 +++| OSS1     LDC    OSTP        UPDATE *OST* POINTER WORD
00779  M01S00035.274l797 +++|          CWD    AA
00780  M01S00036.274l797 +++|          LDD    AA+4
00781  M01S00037.274l797 +++|          NJN    OSSX        IF INTERVAL COUNT NOT EXHAUSTED
00782  M01S00038.274l797 +++|          LDC    4000        SET *1OS* ACTIVE
00783  M01S00039.274l797 +++|          STD    AA+4
00784  M01S00040.274l797 +++|          LDC    OSTP        UPDATE *OST* POINTER WORD
00785  M01S00041.274l797 +++|          CWD    AA
00786  M01S00042.274l797 +++|          LDD    MA
00787  M01S00043.274l797 +++|          CWM    OSSA,ON     WRITE INPUT REGISTER
00788  M01S00044.274l797 +++|          LDD    IR+1        SET CP NUMBER
00789  M01S00045.274l797 +++|          LPN    37
00790  M01S00046.274l797 +++|          RAM    OSSA+1
00791  M01S00047.274l797 +++|          LDN    10          ASSIGN TO SYSTEM CP
00792  M01S00048.274l797 +++|          STD    CM+1
00793  M01S00049.274l797 +++|          MONITOR RPPM       REQUEST PP
00794  M01S00050.274l797 +++|          LDD    CM+1
00795  M01S00051.274l797 +++|          NJP    OSSX        IF PP ASSIGNED
00796  M01S00052.274l797 +++|          LDN    1           SET INTERVAL COUNTER FOR RETRY
00797  M01S00053.274l797 +++|          STD    AA+4
00798  M01S00054.274l797 +++|          UJN    OSS1        UPDATE *OST* POINTER WORD
00799  M01S00055.274l797 +++|
00800  M01S00056.274l797 +++| OSSA     VFD    18/0L1OS,42/0         *1OS* PP INPUT REGISTER
00801  M01S00744.1pp     +++| PCA      SPACE  4,20
00802  M01S00745.1pp     +++|**        PCA - PROCESS CONTROL POINT AREAS.
00803  M01S00746.1pp     +++|*
00804  M01S00747.1pp     +++|*         SCAN THE CPA-S AND PCPA-S CHECKING FOR ACCUMULATOR
00805  M01S00748.1pp     +++|*         OVERFLOW AND EXPIRED CM/CP TIME SLICES.  THE *TOVF* TABLE
00806  M01S00749.1pp     +++|*         IS BUILT CONTAINING ACCUMULATOR OVERFLOW FLAGS FROM WORD
00807  M01S00750.1pp     +++|*         *SRUW* OF EACH ACTIVE CPA.  FOR JOBS HAVING AN EXPIRED CM
00808  M01S00751.1pp     +++|*         TIME SLICE, THE SCHEDULING PRIORITY WILL BE REDUCED TO THE
00809  M01S00752.1pp     +++|*         LOWER BOUND OF THE JOB-S SERVICE CLASS.  JOBS HAVING AN
00810  M01S00753.1pp     +++|*         EXPIRED CONTROL POINT TIME SLICE WILL HAVE THEIR SCHEDULING
00811  M01S00754.1pp     +++|*         PRIORITY REDUCED TO THE CP SLICE PRIORITY FOR THEIR
00812  M01S00755.1pp     +++|*         RESPECTIVE SERVICE CLASSES.
00813  M01S00756.1pp     +++|*
00814  M01S00757.1pp     +++|*         ENTRY  (NC) = NUMBER OF CONTROL POINTS.
00815  M01S00758.1pp     +++|*                (PN) = NUMBER OF MCT ENTRIES.
00816  M01S00759.1pp     +++|*
Line S00760 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00760.273l780 ---|*         USES   EO, SC, T3, T6, T7, AA - AA+4, BB - BB+4, CM - CM+4,
00818  M01S00001.273l780 +++|*         USES   EO, SC, T3, T7, AA - AA+4, BB - BB+4, CM - CM+4,
00819  M01S00761.1pp     +++|*                EJ - EJ+4.
00820  M01S00762.1pp     +++|*
Line S00763 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00763.273l780 ---|*         CALLS  CCS, CET, CPS, CWR, EJA, IRR, IUT, PIS, SSA.
Line S00764 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00764.273l780 ---|*
Line S00765 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00765.273l780 ---|*         MACROS LCPA.
00824  M01S00002.273l780 +++|*         CALLS  CCA, CCS, CET, CPS, CWR, EJA, IRR, IUT, PIS, SSA.
00825  M01S00766.1pp     +++|
00826  M01S00767.1pp     +++|
00827  M01S00768.1pp     +++| PCA19    RJM    SSA         WRITE TIME SLICE COUNT STATISTICS
00828  M01S00769.1pp     +++|          CWM    PCAE,ON
00829  M01S00770.1pp     +++|
00830  M01S00771.1pp     +++| PCA      SUBR               ENTRY/EXIT
00831  M01S00772.1pp     +++|          RJM    SSA         READ TIME SLICE COUNT STATISTICS
00832  M01S00773.1pp     +++|          CRM    PCAE,ON
00833  M01S00774.1pp     +++|          LDN    0           INITIALIZE CP/PCP NUMBER
00834  M01S00775.1pp     +++|          STD    T7
00835  M01S00776.1pp     +++| PCA1     AOD    T7          ADVANCE TO NEXT CP/PCP
00836  M01S00777.1pp     +++|          LMD    NC
00837  M01S00778.1pp     +++|          ZJN    PCA1        IF SYSTEM CONTROL POINT
00838  M01S00779.1pp     +++|          LMD    NC
00839  M01S00780.1pp     +++|          LMD    PN
00840  M01S00781.1pp     +++|          ZJN    PCA19       IF END OF SCAN
Line S00782 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00782.273l780 ---|          LCPA   SRUW,T7
00842  M01S00003.273l780 +++|          LDD    T7          SET CP/PCP ADDRESS
00843  M01S00004.273l780 +++|          RJM    CCA
00844  M01S00005.273l780 +++|          ADK    SRUW
00845  M01S00783.1pp     +++|          CRD    BB
00846  M01S00784.1pp     +++|          ADN    TFSW-SRUW
00847  M01S00785.1pp     +++|          CRD    AA
00848  M01S00786.1pp     +++|          LDD    T7
00849  M01S00787.1pp     +++|          SBD    NC
00850  M01S00788.1pp     +++|          PJN    PCA2        IF PCP
00851  M01S00789.1pp     +++|          LDN    0           PRESET OVERFLOW FLAGS TABLE ENTRY
00852  M01S00790.1pp     +++|          STM    TOVF-1,T7
00853  M01S00791.1pp     +++| PCA2     LDD    AA
00854  M01S00792.1pp     +++|          ZJN    PCA1        IF NO JOB AT CP/PCP
00855  M01S00793.1pp     +++|          STD    EO          EJT ORDINAL
00856  M01S00794.1pp     +++|          RJM    EJA         CALCULATE EJT ENTRY ADDRESS
00857  M01S00795.1pp     +++|          ADK    JSNE
00858  M01S00796.1pp     +++|          CRD    EJ          READ *JSNE* WORD OF EJT ENTRY
00859  M01S00797.1pp     +++|          ADN    SCLE-JSNE
00860  M01S00798.1pp     +++|          CRD    AA          READ *SCLE* WORD OF EJT ENTRY
00861  M01S00799.1pp     +++|          LDD    AA
00862  M01S00800.1pp     +++|          SHN    -6
00863  M01S00801.1pp     +++|          STD    SC
00864  M01S00802.1pp     +++|          LDD    EJ+4
00865  M01S00803.1pp     +++|          SHN    -1
00866  M01S00804.1pp     +++|          LPN    77
00867  M01S00805.1pp     +++|          LMK    PCJS
00868  M01S00806.1pp     +++|          ZJN    PCA4        IF PCP JOB AND ADVANCE CLEAR
00869  M01S00807.1pp     +++|          LMK    EXJS&PCJS
00870  M01S00808.1pp     +++| PCA3     NJP    PCA1        IF ADVANCE SET OR NOT *EXJS* STATUS
00871  M01S00809.1pp     +++|          LDD    BB          SAVE OVERFLOW FLAGS
Line S00810 Modification History
M01 (Added by) 1pp
M02 (Updated by) ns2753
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00810.ns2753  ---|          LPN    1
00873  M01S00001.ns2753  +++|          LPN    3
00874  M01S00811.1pp     +++|          SHN    14
00875  M01S00812.1pp     +++|          ADD    BB+1
00876  M01S00813.1pp     +++|          SHN    -5
00877  M01S00814.1pp     +++|          STM    TOVF-1,T7
Line S00815 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00878  M02S00815.273l780 ---| PCA4     LCPA   JCIW,T7
00879  M01S00006.273l780 +++| PCA4     LDD    T7          SET CP/PCP ADDRESS
00880  M01S00007.273l780 +++|          RJM    CCA
00881  M01S00008.273l780 +++|          ADK    JCIW
00882  M01S00816.1pp     +++|          CRD    CM
00883  M01S00817.1pp     +++|          LDD    CM+2
00884  M01S00818.1pp     +++|          ZJN    PCA6        IF ROLLOUT ALLOWED
00885  M01S00819.1pp     +++|          LMN    ORSI        CHECK FOR OPERATOR ROLLOUT ALLOWED
00886  M01S00820.1pp     +++| PCA5     NJN    PCA3        IF ROLLOUT INHIBITED OR SUBSYSTEM
00887  M01S00821.1pp     +++| PCA6     LDD    AA
00888  M01S00822.1pp     +++|          SHN    21-5
00889  M01S00823.1pp     +++|          PJN    PCA7        IF NOT FORCED ROLLOUT
00890  M01S00824.1pp     +++|          LDN    0
00891  M01S00825.1pp     +++|          UJN    PCA10       REQUEST ROLLOUT
00892  M01S00826.1pp     +++|
00893  M01S00827.1pp     +++| PCA7     SHN    5-4
00894  M01S00828.1pp     +++|          MJN    PCA5        IF FORCED ROLLIN
00895  M01S00829.1pp     +++|          LDD    BB
00896  M01S00830.1pp     +++|          SHN    21-10+1
00897  M01S00831.1pp     +++|          LPN    5
00898  M01S00832.1pp     +++|          ZJN    PCA12       IF RESOURCE LIMIT NOT REACHED
00899  M01S00833.1pp     +++|          AOM    PCAE+2      INCREMENT RESOURCE LIMIT ROLLOUT COUNT
00900  M01S00834.1pp     +++|          SHN    -14
00901  M01S00835.1pp     +++|          RAM    PCAE+1
00902  M01S00836.1pp     +++|          LDD    EJ+4
00903  M01S00837.1pp     +++|          SHN    0-7
00904  M01S00838.1pp     +++|          LPN    17
00905  M01S00839.1pp     +++|          LMK    OLCS
00906  M01S00840.1pp     +++|          ZJN    PCA8        IF ON-LINE INTERACTIVE JOB
00907  M01S00841.1pp     +++|          LMK    OLCS&DTCS
00908  M01S00842.1pp     +++|          ZJN    PCA9        IF DETACHED INTERACTIVE JOB
00909  M01S00843.1pp     +++|          LDN    0           ROLLOUT ALL OTHER JOBS
00910  M01S00844.1pp     +++|          UJN    PCA10       REQUEST ROLLOUT
00911  M01S00845.1pp     +++|
00912  M01S00846.1pp     +++| PCA8     LDN    /CPS/ROSU&/CPS/ROSR  SELECT *ROSR* SCHEDULER ROLLOUT
00913  M01S00847.1pp     +++| PCA9     LMN    /CPS/ROSU   SELECT *ROCM* SUSPEND OPTION
00914  M01S00848.1pp     +++|          SHN    14
00915  M01S00849.1pp     +++| PCA10    LMD    T7
00916  M01S00850.1pp     +++|          RJM    IRR         ISSUE ROLLOUT REQUEST
00917  M01S00851.1pp     +++| PCA11    LJM    PCA1        CONTINUE CONTROL POINT SCAN
00918  M01S00852.1pp     +++|
00919  M01S00853.1pp     +++| PCA12    RJM    CWR         CHECK WAIT RESPONSE/CONNECTION INDICATORS
Line S00854 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00920  M02S00854.273l780 ---| PCAA     LCPA   ECSW,T7
00921  M01S00009.273l780 +++| PCAA     LDD    T7          SET CP/PCP ADDRESS
00922  M01S00855.1pp     +++|*         UJN    PCA13       (USER ECS IS ENABLED)
00923  M01S00010.273l780 +++|          RJM    CCA
00924  M01S00011.273l780 +++|          ADK    ECSW
00925  M01S00856.1pp     +++|          CRD    CM
00926  M01S00857.1pp     +++|          LDD    CM+4
00927  M01S00858.1pp     +++|          ZJN    PCA13       IF NO ECS IS ASSIGNED TO JOB
00928  M01S00859.1pp     +++|          LDN    0
00929  M01S00860.1pp     +++|          UJN    PCA10       REQUEST ROLLOUT
00930  M01S00861.1pp     +++|
00931  M01S00862.1pp     +++| PCA13    LDD    T7
00932  M01S00863.1pp     +++|          SBD    NC
00933  M01S00864.1pp     +++|          PJN    PCA11       IF PCP JOB
00934  M01S00865.1pp     +++|          LDD    AA+2        SAVE SLICE FLAG
00935  M01S00866.1pp     +++|          SHN    14
00936  M01S00867.1pp     +++|          STD    T3
00937  M01S00868.1pp     +++|          SHN    -14
00938  M01S00869.1pp     +++|          STD    AA+2
00939  M01S00870.1pp     +++|          RJM    CCS         CHECK FOR EXPIRED CM SLICE
00940  M01S00871.1pp     +++|          PJN    PCA14       IF CM SLICE IS EXPIRED
00941  M01S00872.1pp     +++|          LDD    PN
00942  M01S00873.1pp     +++|          SBD    NC
00943  M01S00874.1pp     +++|          SBN    1
00944  M01S00875.1pp     +++|          ZJN    PCA11       IF NO PCP-S
00945  M01S00876.1pp     +++|          RJM    CPS         CHECK FOR EXPIRED CONTROL POINT SLICE
00946  M01S00877.1pp     +++|          MJP    PCA1        IF CP SLICE NOT EXPIRED
00947  M01S00878.1pp     +++|          LDN    2
00948  M01S00879.1pp     +++|          STD    T3
00949  M01S00880.1pp     +++| PCA14    LDM    PCAD,T3
00950  M01S00881.1pp     +++|          STM    PCAB
00951  M01S00882.1pp     +++|          LDD    T3
00952  M01S00883.1pp     +++|          NJN    PCA15       IF EITHER CP SLICE OR NOT INITIAL SLICE
00953  M01S00884.1pp     +++|          RJM    PIS         PROCESS INITIAL SLICE
00954  M01S00885.1pp     +++| PCA15    RJM    EJA         CALCULATE EJT ENTRY ADDRESS
00955  M01S00886.1pp     +++|          ADN    SCHE
00956  M01S00887.1pp     +++|          CRD    CM
00957  M01S00888.1pp     +++|          LDM    TEPB+1*MXJC,SC  PUT PRIORITY IN *UTEM* CALL
00958  M01S00889.1pp     +++| PCAB     EQU    *-1
00959  M01S00890.1pp     +++|          STM    PCAC+14D
00960  M01S00891.1pp     +++|          LDD    CM+3
00961  M01S00892.1pp     +++|          STM    PCAC+13D
00962  M01S00893.1pp     +++|          LDD    EJ+4        STORE JOB STATUS IN *UTEM* BLOCK
00963  M01S00894.1pp     +++|          LPN    76
00964  M01S00895.1pp     +++|          STM    PCAC+9D
00965  M01S00896.1pp     +++|          LDD    T7
00966  M01S00897.1pp     +++|          SBD    NC
00967  M01S00898.1pp     +++|          MJN    PCA16       IF NOT PCP
00968  M01S00899.1pp     +++|          LDM    PCAC+14D
00969  M01S00900.1pp     +++|          STD    T1
00970  M01S00901.1pp     +++|          LDD    SC
00971  M01S00902.1pp     +++|          SHN    14
00972  M01S00903.1pp     +++|          LMK    EXQT
00973  M01S00904.1pp     +++|          RJM    CET
00974  M01S00905.1pp     +++|          LDD    T1          STORE ENTRY TIME IN *UTEM* BLOCK
00975  M01S00906.1pp     +++|          STM    PCAC+13D
00976  M01S00907.1pp     +++|          LDD    T2
00977  M01S00908.1pp     +++|          STM    PCAC+14D
00978  M01S00909.1pp     +++|          UJN    PCA17       REDUCE PRIORITY TO LOWER BOUND
00979  M01S00910.1pp     +++|
00980  M01S00911.1pp     +++| PCA16    LDM    PCAC+14D
00981  M01S00912.1pp     +++|          SBD    CM+4
00982  M01S00913.1pp     +++|          PJN    PCA18       IF PRIORITY ALREADY REDUCED
00983  M01S00914.1pp     +++|
00984  M01S00915.1pp     +++|*         REDUCE SCHEDULING PRIORITY.
00985  M01S00916.1pp     +++|
00986  M01S00917.1pp     +++| PCA17    LDD    SC          PUT SERVICE CLASS IN *UTEM* CALL
00987  M01S00918.1pp     +++|          STM    PCAC+4
00988  M01S00919.1pp     +++|          LDC    PCAC+3*10000
00989  M01S00920.1pp     +++|          RJM    IUT         ISSUE *UTEM* MONITOR FUNCTION
00990  M01S00921.1pp     +++|          NJN    PCA18       IF *UTEM* REJECTED
00991  M01S00922.1pp     +++|          LDD    T3
00992  M01S00923.1pp     +++|          SBN    2
00993  M01S00924.1pp     +++|          PJN    PCA18       IF CP SLICE EXPIRED
00994  M01S00925.1pp     +++|          AOM    PCAE+4      INCREMENT SLICE COUNT
00995  M01S00926.1pp     +++|          SHN    -14
00996  M01S00927.1pp     +++|          RAM    PCAE+3
00997  M01S00928.1pp     +++| PCA18    LJM    PCA1        CONTINUE CONTROL POINT SCAN
00998  M01S00929.1pp     +++|
00999  M01S00930.1pp     +++|
01000  M01S00931.1pp     +++|*         *UTEM* PARAMETERS FOR CHANGING SCHEDULING PRIORITY.
01001  M01S00932.1pp     +++|
01002  M01S00933.1pp     +++| PCAC     VFD    1/1,5/SCLE,6/6  VERIFY SERVICE CLASS
01003  M01S00934.1pp     +++|          VFD    6/54D,6/0
01004  M01S00935.1pp     +++|          CON    0
01005  M01S00936.1pp     +++|          CON    0
01006  M01S00937.1pp     +++|          CON    0
01007  M01S00938.1pp     +++|
01008  M01S00939.1pp     +++|          VFD    1/1,5/JSNE,6/6  VERIFY UNCHANGED JOB STATE, CLEAR I/L
01009  M01S00940.1pp     +++|          VFD    6/0,6/0
01010  M01S00941.1pp     +++|          CON    0
01011  M01S00942.1pp     +++|          CON    0
01012  M01S00943.1pp     +++|          CON    0
01013  M01S00944.1pp     +++|
01014  M01S00945.1pp     +++|          VFD    1/0,5/SCHE,6/24D  SET SCHEDULING PRIORITY
01015  M01S00946.1pp     +++|          VFD    6/0,6/0
01016  M01S00947.1pp     +++|          CON    0
01017  M01S00948.1pp     +++|          CON    0
01018  M01S00949.1pp     +++|          CON    0
01019  M01S00950.1pp     +++|
01020  M01S00951.1pp     +++| PCAD     CON    TEPB
01021  M01S00952.1pp     +++|          CON    TEPB+1*MXJC
01022  M01S00953.1pp     +++|          CON    TEPB+3*MXJC
01023  M01S00954.1pp     +++|
01024  M01S00955.1pp     +++| PCAE     BSS    5           *PF0S* BUFFER
01025  M01S00956.1pp     +++| POF      SPACE  4,15
01026  M01S00957.1pp     +++|**        POF - PROCESS OVERFLOW FLAGS.
01027  M01S00958.1pp     +++|*
01028  M01S00959.1pp     +++|*         CALL *0AU* FOR EACH CONTROL POINT HAVING ACCUMULATOR
01029  M01S00960.1pp     +++|*         OVERFLOW.
01030  M01S00961.1pp     +++|*
01031  M01S00962.1pp     +++|*         ENTRY  (NC) = SYSTEM CONTROL POINT NUMBER.
01032  M01S00963.1pp     +++|*                *TOVF* TABLE CONTAINS ACCUMULATOR OVERFLOW FLAGS.
01033  M01S00964.1pp     +++|*
Line S00965 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01034  M02S00965.273l780 ---|*         USES   CP, EO, TP, CM - CM+4, (*0AU* USES CELLS 0 - 17B).
01035  M01S00012.273l780 +++|*         USES   EO, TP, CM - CM+4.
01036  M01S00966.1pp     +++|*
01037  M01S00967.1pp     +++|*         CALLS  EJA, 0AU.
01038  M01S00968.1pp     +++|*
01039  M01S00969.1pp     +++|*         MACROS EXECUTE, MONITOR.
01040  M01S00970.1pp     +++|
01041  M01S00971.1pp     +++|
01042  M01S00972.1pp     +++| POF      SUBR               ENTRY/EXIT
01043  M01S00973.1pp     +++|          LDD    NC          INITIALIZE CONTROL POINT NUMBER
01044  M01S00974.1pp     +++|          STD    TP
01045  M01S00975.1pp     +++| POF1     SOD    TP          DECREMENT CONTROL POINT NUMBER
01046  M01S00976.1pp     +++|          ZJN    POFX        IF ALL CONTROL POINTS HAVE BEEN PROCESSED
01047  M01S00977.1pp     +++|          LDM    TOVF-1,TP
01048  M01S00978.1pp     +++|          ZJN    POF1        IF NO ACCUMULATOR OVERFLOW AT THIS CP
01049  M01S00979.1pp     +++|          LDD    TP          SAVE CONTROL POINT NUMBER FOR *CCAM*
01050  M01S00980.1pp     +++|          STD    CM+1
01051  M01S00981.1pp     +++|          MONITOR  CCAM      CHANGE CONTROL POINT ASSIGNMENT
01052  M01S00982.1pp     +++|          LDD    CM+1
01053  M01S00983.1pp     +++|          NJN    POF1        IF FUNCTION REJECTED
01054  M01S00984.1pp     +++|
01055  M01S00985.1pp     +++|*         SET UP *0AU* PARAMETERS.
01056  M01S00986.1pp     +++|
Line S00987 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01057  M02S00987.273l780 ---|          LDD    TP          PLACE *SRU* ACCUMULATOR IN PARAMETER BLOCK
Line S00988 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01058  M02S00988.273l780 ---|          SHN    7
Line S00989 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00989.273l780 ---|          STD    CP
01060  M01S00013.273l780 +++|          LDD    CP
01061  M01S00990.1pp     +++|          ADN    SRUW
01062  M01S00991.1pp     +++|          CRM    P0AU+5,ON
01063  M01S00992.1pp     +++|          ADN    FPFW-SRUW-1
01064  M01S00993.1pp     +++|          CRM    OVL0,ON
01065  M01S00994.1pp     +++|          ADN    TFSW-FPFW-1
01066  M01S00995.1pp     +++|          CRD    CM
01067  M01S00996.1pp     +++|          LDM    P0AU+6
01068  M01S00997.1pp     +++|          SCN    37
01069  M01S00998.1pp     +++|          NJN    POF2        IF OVERFLOW
01070  M01S00999.1pp     +++|          LDM    P0AU+5
Line S01000 Modification History
M01 (Added by) 1pp
M02 (Updated by) ns2753
Seq #  *Modification Id* Act 
----------------------------+
01071  M02S01000.ns2753  ---|          LPN    1
01072  M01S00002.ns2753  +++|          LPN    3
01073  M01S01001.1pp     +++|          ZJN    POF3        IF NO OVERFLOW FLAGS SET
01074  M01S01002.1pp     +++| POF2     LDD    CM          PLACE JSN IN PARAMETER BLOCK
01075  M01S01003.1pp     +++|          STD    EO
01076  M01S01004.1pp     +++|          RJM    EJA         CALCULATE EJT ENTRY ADDRESS
01077  M01S01005.1pp     +++|          ADK    JSNE
01078  M01S01006.1pp     +++|          CRM    P0AU,ON
01079  M01S01007.1pp     +++|          ADK    SCLE-JSNE-1 SET SERVICE CLASS FOR *0AU*
01080  M01S01008.1pp     +++|          CRD    CM
01081  M01S01009.1pp     +++|          LDD    CM
01082  M01S01010.1pp     +++|          SCN    77
01083  M01S01011.1pp     +++|          STM    P0AU+4
01084  M01S01012.1pp     +++|          LDC    P0AU        SET PARAMETER BLOCK ADDRESS
01085  M01S01013.1pp     +++|          STM    OVL0+1
01086  M01S01014.1pp     +++|          LDM    OVL0        SET *0AU* FUNCTION CODE
01087  M01S01015.1pp     +++|          SCN    77
01088  M01S01016.1pp     +++|          ADN    1
01089  M01S01017.1pp     +++|          STM    OVL0
01090  M01S01018.1pp     +++|
01091  M01S01019.1pp     +++|*         EXECUTE *0AU*.  NOTE THAT *0AU* USES DIRECT CELLS 0 - 17B.
01092  M01S01020.1pp     +++|
01093  M01S01021.1pp     +++|          EXECUTE  0AU,OVL0+5
01094  M01S01022.1pp     +++| POF3     LDD    NC          SAVE SYSTEM CP NUMBER FOR *CCAM*
01095  M01S01023.1pp     +++|          STD    CM+1
Line S01024 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01096  M02S01024.273l780 ---|          SHN    7
Line S01025 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01097  M02S01025.273l780 ---|          STD    CP
01098  M01S01026.1pp     +++|          MONITOR  CCAM      CHANGE PP ASSIGNMENT TO SYSTEM CP
01099  M01S01027.1pp     +++|          LJM    POF1        CONTINUE
01100  M01S01028.1pp     +++|          SPACE  4,10
01101  M01S01029.1pp     +++| SEJ      SPACE  4,20
01102  M01S01030.1pp     +++|**        SEJ - SCAN EJT.
01103  M01S01031.1pp     +++|*
01104  M01S01032.1pp     +++|*         SET FLAGS IN WORD *OPRL* FOR POSTED OPERATOR ACTION EVENTS.
01105  M01S01033.1pp     +++|*         SCAN THE EJT LOOKING FOR JOBS HAVING TIMED/EVENT ROLLOUT JOB
01106  M01S01034.1pp     +++|*         STATUS, AND FOR JOBS WITH ACCESS LEVEL LIMITS OUTSIDE THEIR
01107  M01S01035.1pp     +++|*         JOB ORIGIN ACCESS LEVEL LIMITS.  IF A JOB-S ROLLOUT TIME HAS
01108  M01S01036.1pp     +++|*         EXPIRED OR ITS EVENT IS POSTED, CHANGE THE JOB STATUS TO
01109  M01S01037.1pp     +++|*         SCHEDULER ROLLOUT (*ROJS*).  IF A JOB-S ACCESS LEVEL LIMITS
01110  M01S01038.1pp     +++|*         ARE OUTSIDE ITS ORIGIN TYPE LIMIT, ABORT THE JOB WITH AN
01111  M01S01039.1pp     +++|*         *SYET* ERROR FLAG.  SUBSYSTEMS ARE NOT ABORTED.
01112  M01S01040.1pp     +++|*         SCAN THE EJT LOOKING FOR JOBS IN SERVICE LIMIT WAIT STATUS
01113  M01S01041.1pp     +++|*         AND SET *ROJS* STATUS ON THE JOBS IF THEY ARE NOW WITHIN
01114  M01S01042.1pp     +++|*         THE SERVICE LIMIT CONSTRAINTS.
01115  M01S01043.1pp     +++|*
01116  M01S01044.1pp     +++|*         USES   EO, SC, AA - AA+4, BB - BB+4, CM - CM+4,
01117  M01S01045.1pp     +++|*                EJ - EJ+4, T0 - T0+4.
01118  M01S01046.1pp     +++|*
01119  M01S01047.1pp     +++|*         CALLS  CAL, OAE, PSL, PTE, RTE.
01120  M01S01048.1pp     +++|*
01121  M01S01049.1pp     +++|*         MACROS CFI, MONITOR.
01122  M01S01050.1pp     +++|
01123  M01S01051.1pp     +++|
01124  M01S01052.1pp     +++| SEJ5     LDD    CF
01125  M01S01053.1pp     +++|          LPN    4
01126  M01S01054.1pp     +++|          ZJN    SEJX        IF SYSTEM LIMITS HAVE NOT CHANGED
01127  M01S01055.1pp     +++|          LDN    1           CLEAR SYSTEM LIMITS CHANGED FLAG
01128  M01S01056.1pp     +++|          STD    CM+1
01129  M01S01057.1pp     +++|          STD    CM+2
01130  M01S01058.1pp     +++|          LDD    MA
01131  M01S01059.1pp     +++|          CWM    SEJD,ON
01132  M01S01060.1pp     +++|          MONITOR  UADM
01133  M01S01061.1pp     +++|
01134  M01S01062.1pp     +++| SEJ      SUBR               ENTRY/EXIT
01135  M01S01063.1pp     +++|          RJM    RTE         READ TABLE OF EVENTS
01136  M01S01064.1pp     +++|          LDD    T7          GET EVENT COUNT
01137  M01S01065.1pp     +++|
01138  M01S01066.1pp     +++|*         CHECK FOR OPERATOR ACTION EVENTS.
01139  M01S01067.1pp     +++|
01140  M01S01068.1pp     +++|          RJM    OAE         PROCESS OPERATOR ACTION EVENTS
01141  M01S01069.1pp     +++|
01142  M01S01070.1pp     +++|*         SCAN THE EJT.
01143  M01S01071.1pp     +++|
01144  M01S01072.1pp     +++|          LDD    CF          GET SYSTEM LIMITS CHANGED STATUS
01145  M01S01073.1pp     +++|          LPN    4
01146  M01S01074.1pp     +++|          STM    SEJC
01147  M01S01075.1pp     +++|          LDC    **          PRESET EJT ORDINAL FOR BACKWARD SCAN
01148  M01S01076.1pp     +++| SEJA     EQU    *-1         (LARGEST EJT ORDINAL + 1)
01149  M01S01077.1pp     +++|          STD    EO
01150  M01S01078.1pp     +++| SEJ1     SOD    EO          DECREMENT EJT ORDINAL
01151  M01S01079.1pp     +++|          ZJP    SEJ5        IF EJT SCAN COMPLETE
01152  M01S01080.1pp     +++|          CFI    EJT,,EO     GET EJT ENTRY OFFSET
01153  M01S01081.1pp     +++|          ADC    **          ADD EJT FWA (SET BY *PRS*)
01154  M01S01082.1pp     +++| SEJB     EQU    *-1         (EJT FWA)
01155  M01S01083.1pp     +++|          ADK    JSNE
01156  M01S01084.1pp     +++|          CRD    EJ
01157  M01S01085.1pp     +++|          ADN    SCHE-JSNE
01158  M01S01086.1pp     +++|          CRD    AA
01159  M01S01087.1pp     +++|          ADN    PRFE-SCHE
01160  M01S01088.1pp     +++|          CRD    BB
01161  M01S01089.1pp     +++|          ADN    SCLE-PRFE
01162  M01S01090.1pp     +++|          CRD    T0
01163  M01S01091.1pp     +++|          LDD    EJ
01164  M01S01092.1pp     +++|          ZJN    SEJ1        IF EMPTY ENTRY
01165  M01S01093.1pp     +++|          LDD    T0          GET SERVICE CLASS
01166  M01S01094.1pp     +++|          STM    PTEA
01167  M01S01095.1pp     +++|          SHN    -6
01168  M01S01096.1pp     +++|          STD    SC
01169  M01S01097.1pp     +++|          LMN    DSSC
01170  M01S01098.1pp     +++|          NJN    SEJ2        IF NOT DEADSTART SEQUENCING JOB
01171  M01S01099.1pp     +++|          SOM    CPPA        SET D/S SEQUENCING FLAG
01172  M01S01100.1pp     +++| SEJ2     LDC    **
01173  M01S01101.1pp     +++| SEJC     EQU    *-1         (SYSTEM LIMITS CHANGED FLAG)
01174  M01S01102.1pp     +++|          ZJN    SEJ3        IF SYSTEM LIMITS HAVE NOT CHANGED
01175  M01S01103.1pp     +++|          RJM    CAL         CHECK ACCESS LEVEL LIMITS
01176  M01S01104.1pp     +++|          NJN    SEJ4        IF JOB ABORTED OR IN TERMINATION
01177  M01S01105.1pp     +++| SEJ3     RJM    PTE         PROCESS TIMED/EVENT ROLLOUT JOBS
01178  M01S01106.1pp     +++|          RJM    PSL         PROCESS SERVICE LIMITS
01179  M01S01107.1pp     +++| SEJ4     LJM    SEJ1        PROCESS NEXT EJT ENTRY
01180  M01S01108.1pp     +++|
01181  M01S01109.1pp     +++|
01182  M01S01110.1pp     +++|*         *UADM* PARAMETERS TO CLEAR SYSTEM LIMITS CHANGED FLAG.
01183  M01S01111.1pp     +++|
01184  M01S01112.1pp     +++| SEJD     CON    /CPS/LDOS   DECREMENT BY ONE
01185  M01S01113.1pp     +++|          CON    INWL
01186  M01S01114.1pp     +++|          CON    14D*100+1   BIT ADDRESS AND FIELD WIDTH
01187  M01S01115.1pp     +++|          TITLE  SECONDARY SUBROUTINES.
01188  M01S01116.1pp     +++| CAL      SPACE  4,20
01189  M01S01117.1pp     +++|**        CAL - CHECK ACCESS LEVEL LIMITS.
01190  M01S01118.1pp     +++|*
01191  M01S01119.1pp     +++|*         CHECK IF THE JOB-S ACCESS LEVEL LIMITS ARE OUTSIDE THE
01192  M01S01120.1pp     +++|*         LIMITS FOR THE JOB-S ORIGIN TYPE.  IF SO, ABORT THE JOB
01193  M01S01121.1pp     +++|*         WITH AN *SYET* ERROR.  SUBSYSTEMS WILL NOT BE ABORTED.
01194  M01S01122.1pp     +++|*         IGNORE ALL JOBS THAT ALREADY HAVE *SYET* OR *TJET* ERROR
01195  M01S01123.1pp     +++|*         FLAGS, AS WELL AS JOBS ALREADY IN JOB TERMINATION.
01196  M01S01124.1pp     +++|*
01197  M01S01125.1pp     +++|*         ENTRY  (EO) = EJT ORDINAL OF JOB.
01198  M01S01126.1pp     +++|*                (SC) = SERVICE CLASS OF JOB.
01199  M01S01127.1pp     +++|*                (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
01200  M01S01128.1pp     +++|*                (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
01201  M01S01129.1pp     +++|*                (BB - BB+4) = *PRFE* WORD OF EJT ENTRY.
01202  M01S01130.1pp     +++|*                (T0 - T0+4) = *SCLE* WORD OF EJT ENTRY.
01203  M01S01131.1pp     +++|*
01204  M01S01132.1pp     +++|*         EXIT   (A) .NE. 0 IF JOB ABORTED OR IN TERMINATION.
01205  M01S01133.1pp     +++|*
01206  M01S01134.1pp     +++|*         USES   CM - CM+4.
01207  M01S01135.1pp     +++|*
01208  M01S01136.1pp     +++|*         MACROS DELAY, MONITOR.
01209  M01S01137.1pp     +++|
01210  M01S01138.1pp     +++|
01211  M01S01139.1pp     +++| CAL3     LDN    1           SET ERROR RETURN STATUS
01212  M01S01140.1pp     +++|
01213  M01S01141.1pp     +++| CAL      SUBR               ENTRY/EXIT
01214  M01S01142.1pp     +++|          LDD    AA+2
01215  M01S01143.1pp     +++|          SHN    21-12
01216  M01S01144.1pp     +++|          MJN    CALX        IF JOB TERMINATION IN PROGRESS
01217  M01S01145.1pp     +++|          LDD    BB+1
01218  M01S01146.1pp     +++|          LMK    SYET
01219  M01S01147.1pp     +++|          ZJN    CAL3        IF JOB ALREADY HAS *SYET* ERROR
01220  M01S01148.1pp     +++|          LDD    BB+2
01221  M01S01149.1pp     +++|          LPN    77
01222  M01S01150.1pp     +++|          SHN    -3+22
01223  M01S01151.1pp     +++|          STD    CM+4        SET LOWER ACCESS LEVEL LIMIT
01224  M01S01152.1pp     +++|          SHN    -22+3
01225  M01S01153.1pp     +++|          STD    CM+3        SET UPPER ACCESS LEVEL LIMIT
01226  M01S01154.1pp     +++|          LDD    T0          SET ORIGIN TYPE
01227  M01S01155.1pp     +++|          LPN    17
01228  M01S01156.1pp     +++|          STD    CM+2
01229  M01S01157.1pp     +++|          LDN    /CPS/VJLS   VALIDATE JOB LIMITS
01230  M01S01158.1pp     +++|          STD    CM+1
01231  M01S01159.1pp     +++|          MONITOR  VSAM
01232  M01S01160.1pp     +++|          LDD    CM+1
01233  M01S01161.1pp     +++|          ZJN    CALX        IF JOB LIMITS VALID
01234  M01S01162.1pp     +++|
01235  M01S01163.1pp     +++|*         SET *SYET* ERROR FLAG FOR ALL JOBS EXCEPT SUBSYSTEMS.
01236  M01S01164.1pp     +++|
01237  M01S01165.1pp     +++|          LDD    SC
01238  M01S01166.1pp     +++|          LMK    SSSC
01239  M01S01167.1pp     +++|          ZJN    CALX        IF JOB IS SUBSYSTEM
01240  M01S01168.1pp     +++| CAL1     LDC    SYET+4000   SET ERROR FLAG
01241  M01S01169.1pp     +++|          STD    CM+1
01242  M01S01170.1pp     +++|          LDD    EO          SET EJT ORDINAL
01243  M01S01171.1pp     +++|          STD    CM+2
01244  M01S01172.1pp     +++|          LDD    EJ          SET JSN
01245  M01S01173.1pp     +++|          STD    CM+3
01246  M01S01174.1pp     +++|          LDD    EJ+1
01247  M01S01175.1pp     +++|          STD    CM+4
01248  M01S01176.1pp     +++|          MONITOR  CEFM
01249  M01S01177.1pp     +++|          LDD    CM+1
01250  M01S01178.1pp     +++|          ZJP    CAL3        IF ERROR FLAG SET
01251  M01S01179.1pp     +++|          DELAY
01252  M01S01180.1pp     +++|          UJN    CAL1        RETRY
01253  M01S00014.273l780 +++| CCA      SPACE  4,10
01254  M01S00015.273l780 +++|**        CCA - COMPUTE CPA/PCPA ADDRESS.
01255  M01S00016.273l780 +++|*
01256  M01S00017.273l780 +++|*         ENTRY  (A) = CP/PCP NUMBER.
01257  M01S00018.273l780 +++|*                (NC) = NUMBER OF CONTROL POINTS.
01258  M01S00019.273l780 +++|*
01259  M01S00020.273l780 +++|*         EXIT   (A) = CPA/PCPA ADDRESS.
01260  M01S00021.273l780 +++|
01261  M01S00022.273l780 +++|
01262  M01S00023.273l780 +++| CCA1     ADD    NC
01263  M01S00024.273l780 +++|          SHN    7
01264  M01S00025.273l780 +++|
01265  M01S00026.273l780 +++| CCA      SUBR               ENTRY/EXIT
01266  M01S00027.273l780 +++|          SBD    NC
01267  M01S00028.273l780 +++|          MJN    CCA1        IF CONTROL POINT
01268  M01S00029.273l780 +++|          ZJN    CCA1        IF SYSTEM CONTROL POINT
01269  M01S00030.273l780 +++|          SHN    7
01270  M01S00031.273l780 +++| CCAA     ADC    **          (PCP AREAS BASE ADDRESS)
01271  M01S00032.273l780 +++|          UJN    CCAX        RETURN
01272  M01S01181.1pp     +++| CCS      SPACE  4,10
01273  M01S01182.1pp     +++|**        CCS - CHECK CM SLICE.
01274  M01S01183.1pp     +++|*
01275  M01S01184.1pp     +++|*         CHECK FOR EXPIRED CM TIME SLICE.
01276  M01S01185.1pp     +++|*
01277  M01S01186.1pp     +++|*         ENTRY  (AA - AA+4) = WORD *TSCW* OF CPA/PCPA.
01278  M01S01187.1pp     +++|*                (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*.
01279  M01S01188.1pp     +++|*
01280  M01S01189.1pp     +++|*         EXIT   (A) .GE. 0  IF CM TIME SLICE EXPIRED.
01281  M01S01190.1pp     +++|
01282  M01S01191.1pp     +++|
01283  M01S01192.1pp     +++| CCS      SUBR               ENTRY/EXIT
01284  M01S01193.1pp     +++|          LDD    TM          CALCULATE REAL TIME - CM SLICE TIME
01285  M01S01194.1pp     +++|          SBD    AA
01286  M01S01195.1pp     +++|          NJN    CCSX        IF NO NEED TO CHECK LOWER BITS
01287  M01S01196.1pp     +++|          LDD    TM+1
01288  M01S01197.1pp     +++|          SBD    AA+1
01289  M01S01198.1pp     +++|          UJN    CCSX        RETURN
01290  M01S01199.1pp     +++| CPP      SPACE  4,10
01291  M01S01200.1pp     +++|**        CPP - CALL PP.
01292  M01S01201.1pp     +++|*
01293  M01S01202.1pp     +++|*         THIS ROUTINE CALLS THE REQUESTED PP TO THE SYSTEM CONTROL
01294  M01S01203.1pp     +++|*         POINT.
01295  M01S01204.1pp     +++|*
01296  M01S01205.1pp     +++|*         ENTRY  (A) = RELATIVE PP CALL INDEX FROM TCPP.
01297  M01S01206.1pp     +++|*
01298  M01S01207.1pp     +++|*         EXIT   (A) = 0, IF NO PP AVAILABLE.
01299  M01S01208.1pp     +++|*
01300  M01S01209.1pp     +++|*         USES   T1, CM - CM+4.
01301  M01S01210.1pp     +++|
01302  M01S01211.1pp     +++|
01303  M01S01212.1pp     +++| CPP2     LDN    0           INDICATE NO PP AVAILABLE
01304  M01S01213.1pp     +++|
01305  M01S01214.1pp     +++| CPP      SUBR               ENTRY/EXIT
01306  M01S01215.1pp     +++|          ADC    TCPP        SET ABSOLUTE TABLE ADDRESS
01307  M01S01216.1pp     +++|          STD    T1
01308  M01S01217.1pp     +++|          STM    CPPB
01309  M01S01218.1pp     +++|          SBM    CPPC
01310  M01S01219.1pp     +++|          PJN    CPP2        IF PP CALL DISABLED
01311  M01S01220.1pp     +++|          LDD    T1
01312  M01S01221.1pp     +++|          ADC    -C1MV-TCPP
01313  M01S01222.1pp     +++|          ZJN    CPP1        IF *1MV* REQUESTED
01314  M01S01223.1pp     +++| CPPA     LDN    1
01315  M01S01224.1pp     +++|*         LDN    0           (D/S SEQUENCING)
01316  M01S01225.1pp     +++|          ZJN    CPPX        IF D/S SEQUENCING
01317  M01S01226.1pp     +++| CPP1     LDM    1,T1        SET SYSTEM CP NUMBER
01318  M01S01227.1pp     +++|          SCN    77
01319  M01S01228.1pp     +++|          LMD    NC
01320  M01S01229.1pp     +++|          STM    1,T1
01321  M01S01230.1pp     +++|          LDD    MA
01322  M01S01231.1pp     +++|          CWM    TCPP,ON
01323  M01S01232.1pp     +++| CPPB     EQU    *-1
01324  M01S01233.1pp     +++|          EXECUTE  1CK,=
01325  M01S01234.1pp     +++|          EXECUTE  1DS,=
01326  M01S01235.1pp     +++|          EXECUTE  1MV,=
01327  M01S01236.1pp     +++|          LDN    1           SET PRIORITY PP FLAG
01328  M01S01237.1pp     +++|          STD    CM+1
01329  M01S01238.1pp     +++|          MONITOR  RPPM
01330  M01S01239.1pp     +++|          LDD    CM+1
Line S01240 Modification History
M01 (Added by) 1pp
M02 (Updated by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
01331  M02S01240.283l840 ---|          UJN    CPPX        RETURN
01332  M01S00001.283l840 +++|          UJP    CPPX        RETURN
01333  M01S01241.1pp     +++|
01334  M01S01242.1pp     +++|
01335  M01S01243.1pp     +++| CPPC     CON    TCPP+C1MV+1
01336  M01S01244.1pp     +++| TCPP     BSS    0           TABLE OF PP CALLS
01337  M01S01245.1pp     +++|          LOC    0
01338  M01S01246.1pp     +++| C1CK     VFD    18/0L1CK,6/0,12/2,24/0
01339  M01S01247.1pp     +++| CCMS     VFD    18/0L1DS,6/0,12//1DS/ISSF,18/0LCMS,6/0
01340  M01S01248.1pp     +++| C1MV     VFD    18/0L1MV,6/0,12/0,6/0,18/0
01341  M01S01249.1pp     +++|          LOC    *O
01342  M01S01250.1pp     +++| CPS      SPACE  4,10
01343  M01S01251.1pp     +++|**        CPS - CHECK CONTROL POINT SLICE.
01344  M01S01252.1pp     +++|*
01345  M01S01253.1pp     +++|*         CHECK FOR EXPIRED CONTROL POINT SLICE.
01346  M01S01254.1pp     +++|*
01347  M01S01255.1pp     +++|*         ENTRY  (AA - AA+4) = WORD *TSCW* OF CONTROL POINT AREA.
01348  M01S01256.1pp     +++|*                (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*.
01349  M01S01257.1pp     +++|*
01350  M01S01258.1pp     +++|*         EXIT   (A) .GE. 0 IF CONTROL POINT SLICE EXPIRED.
01351  M01S01259.1pp     +++|
01352  M01S01260.1pp     +++|
01353  M01S01261.1pp     +++| CPS      SUBR               ENTRY/EXIT
01354  M01S01262.1pp     +++|          LDD    TM
01355  M01S01263.1pp     +++|          SBD    AA+3
01356  M01S01264.1pp     +++|          NJN    CPSX        IF NO NEED TO CHECK LOWER BITS
01357  M01S01265.1pp     +++|          LDD    TM+1
01358  M01S01266.1pp     +++|          SBD    AA+4
01359  M01S01267.1pp     +++|          UJN    CPSX        RETURN
01360  M01S01268.1pp     +++| CSC      SPACE  4,10
01361  M01S01269.1pp     +++|**        CSC - CHECK SWEEP CYCLING.
01362  M01S01270.1pp     +++|*
01363  M01S01271.1pp     +++|*         ENTRY  (EJ - EJ+4) = *EQDE* WORD OF EST ENTRY.
01364  M01S01272.1pp     +++|*                (TM - TM+1) = SECONDS PORTION OF *RTCL*.
01365  M01S01273.1pp     +++|*
01366  M01S01274.1pp     +++|*         EXIT   (A) .GE. 0 IF SWEEP CYCLING CALL IS REQUIRED.
01367  M01S01275.1pp     +++|*
01368  M01S01276.1pp     +++|*         USES   CM - CM+5.
01369  M01S01277.1pp     +++|
01370  M01S01278.1pp     +++|
01371  M01S01279.1pp     +++| CSC3     LCN    0           SET REPLY STATUS
01372  M01S01280.1pp     +++|
01373  M01S01281.1pp     +++| CSC      SUBR               ENTRY/EXIT
01374  M01S01282.1pp     +++|          LDN    1
01375  M01S01283.1pp     +++| CSCA     EQU    *-1
01376  M01S01284.1pp     +++|          ZJN    CSC3        IF SWEEP CYCLING CALL LIMIT REACHED
01377  M01S01285.1pp     +++|          LDD    EJ
01378  M01S01286.1pp     +++|          LPN    3
01379  M01S01287.1pp     +++|          LMN    3
01380  M01S01288.1pp     +++|          ZJN    CSC3        IF DEVICE IS DOWN
01381  M01S01289.1pp     +++|          LDD    EJ+4
01382  M01S01290.1pp     +++|          SHN    3
01383  M01S01291.1pp     +++|          ADN    SCLL        READ SWEEP CYCLING CONTROL WORD
01384  M01S01292.1pp     +++|          CRD    CM
01385  M01S01293.1pp     +++|          LDC    CSCB-1
01386  M01S01294.1pp     +++|          STD    T1
01387  M01S01295.1pp     +++| CSC1     AOD    T1
01388  M01S01296.1pp     +++|          LDI    T1
01389  M01S01297.1pp     +++|          ZJN    CSC3        IF SWEEP CYCLING NOT SUPPORTED ON DEVICE
01390  M01S01298.1pp     +++|          LMD    EJ+3
01391  M01S01299.1pp     +++|          NJN    CSC1        IF NOT THIS DEVICE TYPE
01392  M01S01300.1pp     +++|          LDD    TM+1
01393  M01S01301.1pp     +++|          SBD    CM+1
01394  M01S01302.1pp     +++|          PJN    CSC2        IF NO ROLLOVER
01395  M01S01303.1pp     +++|          ADC    10000
01396  M01S01304.1pp     +++| CSC2     SBK    SCDT*60D
01397  M01S01305.1pp     +++|          UJP    CSCX        RETURN
01398  M01S01306.1pp     +++|
01399  M01S01307.1pp     +++|
01400  M01S01308.1pp     +++| CSCB     BSS    0           TABLE OF DEVICES SUPPORTING SWEEP CYCLING
01401  M01S01309.1pp     +++|
01402  M01S01310.1pp     +++|          CON    2RDB        DEVICE TYPE *DB*
01403  M01S01311.1pp     +++|          CON    2RDD        DEVICE TYPE *DD*
01404  M01S01312.1pp     +++|          CON    2RDG        DEVICE TYPE *DG*
01405  M01S01313.1pp     +++|          CON    2RDM        DEVICE TYPE *DM*
01406  M01S01314.1pp     +++|          CON    2RDQ        DEVICE TYPE *DQ*
01407  M01S01315.1pp     +++|
01408  M01S01316.1pp     +++|          CON    0           END OF TABLE
01409  M01S01317.1pp     +++| CTF      SPACE  4,10
01410  M01S01318.1pp     +++|**        CTF - CHECK TRACK FLAWED.
01411  M01S01319.1pp     +++|*
01412  M01S01320.1pp     +++|*         THIS ROUTINE CHECKS FOR A TRACK BEING FLAWED.
01413  M01S01321.1pp     +++|*
01414  M01S01322.1pp     +++|*         ENTRY  (T6) = TRACK TO CHECK FOR BEING FLAWED.
01415  M01S01323.1pp     +++|*                (EJ - EJ+4) = EST ENTRY FOR EQUIPMENT.
01416  M01S01324.1pp     +++|*
01417  M01S01325.1pp     +++|*         EXIT   (A) = 0, IF TRACK IS FLAWED.
01418  M01S01326.1pp     +++|*
01419  M01S01327.1pp     +++|*         USES   T0, T1, CM - CM+4.
01420  M01S01328.1pp     +++|
01421  M01S01329.1pp     +++|
01422  M01S01330.1pp     +++| CTF      SUBR               ENTRY/EXIT
01423  M01S01331.1pp     +++|          LDD    T6
01424  M01S01332.1pp     +++|          STM    TCPP+C1MV+4
01425  M01S01333.1pp     +++|          ZJN    CTF1        IF NO TRACK PRESENT
01426  M01S01334.1pp     +++|          SHN    21-1
01427  M01S01335.1pp     +++|          STD    T0          TRT RELATIVE WORD + 1000
01428  M01S01336.1pp     +++|          SHN    0-20
01429  M01S01337.1pp     +++|          STD    T1          TRACK BYTE INDEX
01430  M01S01338.1pp     +++|          LDD    EJ+4        READ TRT WORD
01431  M01S01339.1pp     +++|          SHN    3
01432  M01S01340.1pp     +++|          ADK    TRLL
01433  M01S01341.1pp     +++|          CRD    CM
01434  M01S01342.1pp     +++|          LDD    CM+3
01435  M01S01343.1pp     +++|          SHN    14
01436  M01S01344.1pp     +++|          ADD    CM+4
01437  M01S01345.1pp     +++|          ADD    T0
01438  M01S01346.1pp     +++|          SBD    TH
01439  M01S01347.1pp     +++|          CRD    CM
01440  M01S01348.1pp     +++|          LDM    CM,T1       GET TRACK BYTE
01441  M01S01349.1pp     +++| CTF1     LMC    3777
01442  M01S01350.1pp     +++|          UJN    CTFX        RETURN
01443  M01S01351.1pp     +++| CWR      SPACE  4,20
01444  M01S01352.1pp     +++|**        CWR - CHECK WAIT RESPONSE INDICATORS.
01445  M01S01353.1pp     +++|*
01446  M01S01354.1pp     +++|*         FOR THE SPECIFIED CP/PCP, IF ANY SCP WAIT RESPONSE
01447  M01S01355.1pp     +++|*         INDICATOR IN WORD *SSCW* IS NON-ZERO AND THE CORRESPONDING
01448  M01S01356.1pp     +++|*         ROLLOUT ALLOWABLE BIT IS CLEAR, ADD THE INSTALLATION DEFINED
01449  M01S01357.1pp     +++|*         MULTIPLE OF CM TIME SLICES TO THE JOB-S SLICE TIME IN CELLS
01450  M01S01358.1pp     +++|*         *AA - AA+4* TO REDUCE THE CHANCE OF ROLLING THIS JOB.
01451  M01S01359.1pp     +++|*
01452  M01S01360.1pp     +++|*         ENTRY  (SC) = SERVICE CLASS.
01453  M01S01361.1pp     +++|*                (EO) = EJT ORDINAL.
Line S01362 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01454  M02S01362.273l780 ---|*                (T7) = CONTROL POINT AREA ADDRESS.
01455  M01S00033.273l780 +++|*                (T7) = CP OR PCP NUMBER.
01456  M01S01363.1pp     +++|*
01457  M01S01364.1pp     +++|*         EXIT   (AA - AA+4) = *TSCW*.
01458  M01S01365.1pp     +++|*
01459  M01S01366.1pp     +++|*         USES   T4, CM - CM+4, AA - AA+4.
01460  M01S01367.1pp     +++|*
Line S01368 Modification History
M01 (Added by) 1pp
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01461  M02S01368.271l750 ---|*         CALLS  RJC.
Line S01369 Modification History
M01 (Added by) 1pp
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01462  M02S01369.271l750 ---|*
Line S01370 Modification History
M01 (Added by) 1pp
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01463  M02S01370.271l750 ---|*         MACROS LCPA.
Line S00001 Modification History
M01 (Added by) 271l750
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01464  M02S00001.273l780 ---|*         MACROS LCPA, SFA.
01465  M01S00034.273l780 +++|*         CALLS  CCA.
01466  M01S00035.273l780 +++|*
01467  M01S00036.273l780 +++|*         MACROS SFA.
01468  M01S01371.1pp     +++|
01469  M01S01372.1pp     +++|
01470  M01S01373.1pp     +++| CWR      SUBR               ENTRY/EXIT
Line S01374 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01471  M02S01374.273l780 ---|          LCPA   SSCW,T7
01472  M01S00037.273l780 +++|          LDD    T7          SET CP/PCP ADDRESS
01473  M01S00038.273l780 +++|          RJM    CCA
01474  M01S00039.273l780 +++|          ADK    SSCW
01475  M01S01375.1pp     +++|          CRD    CM
01476  M01S01376.1pp     +++|          ADN    TSCW-SSCW
01477  M01S01377.1pp     +++|          CRD    AA
01478  M01S01378.1pp     +++|          LDN    5           INITIALIZE BYTE INDEX
01479  M01S01379.1pp     +++|          STD    T4
01480  M01S01380.1pp     +++| CWR1     SOD    T4
01481  M01S01381.1pp     +++|          MJN    CWRX        IF NO MORE INDICATORS TO CHECK
01482  M01S01382.1pp     +++|          LDM    CM,T4
01483  M01S01383.1pp     +++|          LPN    27          MASK ROLLOUT ALLOWABLE/WAIT RESPONSE
01484  M01S01384.1pp     +++|          ZJN    CWR1        IF NO INDICATORS SET
01485  M01S01385.1pp     +++|          LPN    20
01486  M01S01386.1pp     +++|          NJN    CWR1        IF ROLLOUT ALLOWABLE SET
01487  M01S01387.1pp     +++|          LDN    CMSL        INSTALLATION DEFINED CM SLICE MULTIPLIER
01488  M01S01388.1pp     +++|          STD    T4
Line S01389 Modification History
M01 (Added by) 1pp
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01489  M02S01389.271l750 ---|          LDD    SC          GET CM TIME SLICE FROM JCB
Line S01390 Modification History
M01 (Added by) 1pp
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01490  M02S01390.271l750 ---|          RJM    RJC         CALCULATE JCB ADDRESS
01491  M01S00002.271l750 +++|          SFA    JCB,SC      GET CM TIME SLICE FOR JOB
01492  M01S01391.1pp     +++|          ADN    SVJT
01493  M01S01392.1pp     +++|          CRD    CM
01494  M01S01393.1pp     +++| CWR2     LDD    CM+2        INCREASE CM TIME SLICE
01495  M01S01394.1pp     +++|          RAD    AA+1
01496  M01S01395.1pp     +++|          SHN    -14
01497  M01S01396.1pp     +++|          RAD    AA
01498  M01S01397.1pp     +++|          SOD    T4
01499  M01S01398.1pp     +++|          NJN    CWR2        IF NOT FINISHED INCREASING TIME SLICE
01500  M01S01399.1pp     +++|          LJM    CWRX        RETURN
01501  M01S01400.1pp     +++| EJA      SPACE  4,10
01502  M01S01401.1pp     +++|**        EJA - CALCULATE EJT ENTRY ADDRESS.
01503  M01S01402.1pp     +++|*
01504  M01S01403.1pp     +++|*         ENTRY  (EO) = EJT ORDINAL.
01505  M01S01404.1pp     +++|*
01506  M01S01405.1pp     +++|*         EXIT   (A) = EJT ENTRY ADDRESS.
01507  M01S01406.1pp     +++|*
01508  M01S01407.1pp     +++|*         MACROS CFI.
01509  M01S01408.1pp     +++|
01510  M01S01409.1pp     +++|
01511  M01S01410.1pp     +++| EJA      SUBR               ENTRY/EXIT
01512  M01S01411.1pp     +++|          CFI    EJT,EO      CALCULATE ENTRY OFFSET
01513  M01S01412.1pp     +++|          ADC    **
01514  M01S01413.1pp     +++| EJAA     EQU    *-1         (EJT FWA)
01515  M01S01414.1pp     +++|          UJN    EJAX        RETURN
01516  M01S01415.1pp     +++| IRR      SPACE  4,15
01517  M01S01416.1pp     +++|**        IRR - ISSUE ROLLOUT REQUEST.
01518  M01S01417.1pp     +++|*
01519  M01S01418.1pp     +++|*         ENTRY  (A) = 6/  OP,12/  CP.
01520  M01S01419.1pp     +++|*                      OP    *ROCM* OPTIONS.
01521  M01S01420.1pp     +++|*                      CP    CP/PCP TO ROLL.
01522  M01S01421.1pp     +++|*
01523  M01S01422.1pp     +++|*         EXIT   (A) = 0 IF ROLLOUT REQUEST WAS ACCEPTED.
01524  M01S01423.1pp     +++|*                JOBS PREEMPTED STATISTIC UPDATED.
01525  M01S01424.1pp     +++|*
01526  M01S01425.1pp     +++|*         USES   CM - CM+4.
01527  M01S01426.1pp     +++|*
01528  M01S01427.1pp     +++|*         MACROS MONITOR.
01529  M01S01428.1pp     +++|
01530  M01S01429.1pp     +++|
01531  M01S01430.1pp     +++| IRR      SUBR               ENTRY/EXIT
01532  M01S01431.1pp     +++|          STD    CM+2        STORE CP/PCP NUMBER
01533  M01S01432.1pp     +++|          SHN    -14
01534  M01S01433.1pp     +++|          LMC    4000        SET ALTERNATE CP/PCP OPTION
01535  M01S01434.1pp     +++|          STD    CM+1
01536  M01S01435.1pp     +++|          MONITOR  ROCM      REQUEST ROLLOUT
01537  M01S01436.1pp     +++|          LDD    CM+1
01538  M01S01437.1pp     +++|          UJN    IRRX        RETURN
01539  M01S01438.1pp     +++| IUT      SPACE  4,20
01540  M01S01439.1pp     +++|**        IUT - ISSUE *UTEM* MONITOR FUNCTION.
01541  M01S01440.1pp     +++|*
01542  M01S01441.1pp     +++|*         ENTRY  (A) = 1/ 0,1/ I,1/ 0,3/ C,12/ P
01543  M01S01442.1pp     +++|*                      I = 0 IF INTERLOCK SHOULD BE SET.
01544  M01S01443.1pp     +++|*                        = 1 IF INTERLOCK SHOULD BE CLEARED.
01545  M01S01444.1pp     +++|*                      C = NUMBER OF *UTEM* PARAMETER WORDS.
01546  M01S01445.1pp     +++|*                        = 0 IF INTERLOCK REQUEST.
01547  M01S01446.1pp     +++|*                      P = PARAMETER LIST ADDRESS.
01548  M01S01447.1pp     +++|*
01549  M01S01448.1pp     +++|*         EXIT   (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL.
01550  M01S01449.1pp     +++|*                    .NE. 0 IF *UTEM* VERIFICATION FAILED.
01551  M01S01450.1pp     +++|*
01552  M01S01451.1pp     +++|*         USES   CM - CM+4.
01553  M01S01452.1pp     +++|*
01554  M01S01453.1pp     +++|*         CALLS  EJA.
01555  M01S01454.1pp     +++|*
01556  M01S01455.1pp     +++|*         MACROS MONITOR.
01557  M01S01456.1pp     +++|
01558  M01S01457.1pp     +++|
01559  M01S01458.1pp     +++| IUT      SUBR               ENTRY/EXIT
01560  M01S01459.1pp     +++|          STM    IUTA        PARAMETER LIST ADDRESS
01561  M01S01460.1pp     +++|          LPC    -7777
01562  M01S01461.1pp     +++|          SHN    1
01563  M01S01462.1pp     +++|          STD    CM          TABLE INDICATOR
01564  M01S01463.1pp     +++|          SCN    1           SAVE INTERLOCK FLAG
01565  M01S01464.1pp     +++|          SHN    1
01566  M01S01465.1pp     +++|          STD    CM+2
01567  M01S01466.1pp     +++|          SHN    -14-2
01568  M01S01467.1pp     +++|          STD    CM+1        NUMBER OF PARAMETER WORDS
01569  M01S01468.1pp     +++|          RJM    EJA         CALCULATE TABLE ADDRESS
01570  M01S01469.1pp     +++|          STD    CM+4
01571  M01S01470.1pp     +++|          SHN    -14
01572  M01S01471.1pp     +++|          STD    CM+3
01573  M01S01472.1pp     +++|          LDD    CM+1
01574  M01S01473.1pp     +++|          ZJN    IUT1        IF NO PARAMETER WORDS
01575  M01S01474.1pp     +++|          LDD    MA          WRITE PARAMETERS TO MESSAGE BUFFER
01576  M01S01475.1pp     +++|          CWM    **,CM+1
01577  M01S01476.1pp     +++| IUTA     EQU    *-1
01578  M01S01477.1pp     +++| IUT1     LDD    CM+2        SET/CLEAR INTERLOCK FLAG
01579  M01S01478.1pp     +++|          SHN    5
01580  M01S01479.1pp     +++|          RAD    CM+1
01581  M01S01480.1pp     +++|          LDN    0
01582  M01S01481.1pp     +++|          STD    CM+2
01583  M01S01482.1pp     +++|          MONITOR  UTEM
01584  M01S01483.1pp     +++|          LDD    CM+1
01585  M01S01484.1pp     +++|          LJM    IUTX        RETURN
01586  M01S01485.1pp     +++| OAE      SPACE  4,15
01587  M01S01486.1pp     +++|**        OAE - PROCESS OPERATOR ACTION EVENTS.
01588  M01S01487.1pp     +++|*
01589  M01S01488.1pp     +++|*         FOR EACH POSTED OPERATOR ACTION EVENT FOUND IN THE *TEVT*
01590  M01S01489.1pp     +++|*         TABLE, SET THE CORRESPONDING BIT IN WORD *OPRL*.
01591  M01S01490.1pp     +++|*
01592  M01S01491.1pp     +++|*         ENTRY  (A) = NUMBER OF EVENTS IN *TEVT* TABLE.
01593  M01S01492.1pp     +++|*
01594  M01S01493.1pp     +++|*         USES   T1, CM - CM+4.
01595  M01S01494.1pp     +++|*
01596  M01S01495.1pp     +++|*         MACROS MONITOR.
01597  M01S01496.1pp     +++|
01598  M01S01497.1pp     +++|
01599  M01S01498.1pp     +++| OAE      SUBR               ENTRY/EXIT
01600  M01S01499.1pp     +++|          SHN    1           INITIALIZE INDEX
01601  M01S01500.1pp     +++|          STD    T1
01602  M01S01501.1pp     +++| OAE1     LCN    2           DECREMENT *TEVT* INDEX
01603  M01S01502.1pp     +++|          RAD    T1
01604  M01S01503.1pp     +++|          MJN    OAEX        IF END OF *TEVT* SCAN
01605  M01S01504.1pp     +++|          LDM    TEVT,T1
01606  M01S01505.1pp     +++|          NJN    OAE1        IF NOT SYSTEM EVENT
01607  M01S01506.1pp     +++|          STD    CM+2
01608  M01S01507.1pp     +++|          LDM    TEVT+1,T1
01609  M01S01508.1pp     +++|          ZJN    OAE1        IF NULL EVENT
01610  M01S01509.1pp     +++|          SBK    MXOE
01611  M01S01510.1pp     +++|          PJN    OAE1        IF NOT OPERATOR ACTION EVENT
01612  M01S01511.1pp     +++|          ADK    MXOE-1      STORE BIT NUMBER IN *UTEM* BLOCK
01613  M01S01512.1pp     +++|          SHN    6
01614  M01S01513.1pp     +++|          STM    OAEA+1
01615  M01S01514.1pp     +++|          LDN    1
01616  M01S01515.1pp     +++|          STD    CM+1
01617  M01S01516.1pp     +++|          LDK    OPRL
01618  M01S01517.1pp     +++|          STD    CM+4
01619  M01S01518.1pp     +++|          SHN    -14
01620  M01S01519.1pp     +++|          STD    CM+3
01621  M01S01520.1pp     +++|          LDD    MA          WRITE PARAMETER WORDS TO MESSAGE BUFFER
01622  M01S01521.1pp     +++|          CWM    OAEA,CM+1
01623  M01S01522.1pp     +++|          MONITOR  UTEM      SET OPERATOR ACTION FLAG
01624  M01S01523.1pp     +++|          UJN    OAE1        CONTINUE *TEVT* SCAN
01625  M01S01524.1pp     +++|
01626  M01S01525.1pp     +++|
01627  M01S01526.1pp     +++|*         *UTEM* PARAMETER BLOCK FOR *OPRL* UPDATE.
01628  M01S01527.1pp     +++|
01629  M01S01528.1pp     +++| OAEA     VFD    1/0,5/0,6/1
01630  M01S01529.1pp     +++|          VFD    6/0,6/0
01631  M01S01530.1pp     +++|          CON    0,0,1
01632  M01S01531.1pp     +++| PIS      SPACE  4,10
01633  M01S01532.1pp     +++|**        PIS - PROCESS INITIAL SLICE.
01634  M01S01533.1pp     +++|*
01635  M01S01534.1pp     +++|*         ENTRY  (SC) = SERVICE CLASS.
Line S01535 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01636  M02S01535.273l780 ---|*                (T7) = CPA ADDRESS.
01637  M01S00040.273l780 +++|*                (T7) = CP OR PCP NUMBER.
01638  M01S01536.1pp     +++|*                (TM - TM+1) = SECONDS PORTION OF *RTCL*.
01639  M01S01537.1pp     +++|*
01640  M01S01538.1pp     +++|*         USES   AA - AA+4, CM - CM+4.
01641  M01S01539.1pp     +++|*
Line S01540 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01642  M02S01540.273l780 ---|*         CALLS  RJC.
Line S01541 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01643  M02S01541.273l780 ---|*
Line S01542 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01644  M02S01542.273l780 ---|*         MACROS LCPA.
01645  M01S00041.273l780 +++|*         CALLS  CCA, RJC.
01646  M01S01543.1pp     +++|
01647  M01S01544.1pp     +++|
01648  M01S01545.1pp     +++| PIS      SUBR               ENTRY/EXIT
Line S01546 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01649  M02S01546.273l780 ---|          LCPA   TSCW,T7
01650  M01S00042.273l780 +++|          LDD    T7          SET CP/PCP ADDRESS
01651  M01S00043.273l780 +++|          RJM    CCA
01652  M01S00044.273l780 +++|          ADK    TSCW
01653  M01S01547.1pp     +++|          CRD    AA
01654  M01S01548.1pp     +++|          LDD    SC
01655  M01S01549.1pp     +++|          RJM    RJC         CALCULATE JCB ADDRESS
01656  M01S01550.1pp     +++|          ZJN    PIS2        IF NO JCB FOR SERVICE CLASS
01657  M01S01551.1pp     +++|          ADK    SVJT        READ *SVJT* WORD OF JCB
01658  M01S01552.1pp     +++|          CRD    CM
01659  M01S01553.1pp     +++|          LDD    CM+2        CALCULATE CM SLICE TIME
01660  M01S01554.1pp     +++|          STD    AA+1
01661  M01S01555.1pp     +++|          ZJN    PIS1        IF CM SLICE = 0
01662  M01S01556.1pp     +++|          LDD    TM+1
01663  M01S01557.1pp     +++|          RAD    AA+1
01664  M01S01558.1pp     +++|          SHN    -14
01665  M01S01559.1pp     +++|          ADD    TM
01666  M01S01560.1pp     +++| PIS1     STD    AA
01667  M01S01561.1pp     +++| PIS2     LDD    HN          SET POST-INITIAL SLICE FLAG
01668  M01S01562.1pp     +++|          STD    AA+2
Line S01563 Modification History
M01 (Added by) 1pp
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
01669  M02S01563.273l780 ---|          LCPA   TSCW,T7
01670  M01S00045.273l780 +++|          LDD    T7          SET CP/PCP ADDRESS
01671  M01S00046.273l780 +++|          RJM    CCA
01672  M01S00047.273l780 +++|          ADK    TSCW
01673  M01S01564.1pp     +++|          CWD    AA
01674  M01S01565.1pp     +++|          UJP    PISX        RETURN
01675  M01S01566.1pp     +++| PSL      SPACE  4,10
01676  M01S01567.1pp     +++|**        PSL - PROCESS SERVICE LIMITS.
01677  M01S01568.1pp     +++|*
01678  M01S01569.1pp     +++|*         ENTRY  (EJ - EJ+4) = *JSNE* EJT WORD.
01679  M01S01570.1pp     +++|*                (T0 - T0+4) = *SCLE* EJT WORD.
01680  M01S01571.1pp     +++|*                (SC) = SERVICE CLASS.
01681  M01S01572.1pp     +++|*
01682  M01S01573.1pp     +++|*         EXIT   JOB STATUS CHANGED IF SERVICE LIMITS NOT EXCEEDED.
01683  M01S01574.1pp     +++|*
01684  M01S01575.1pp     +++|*         CALLS  SRS.
01685  M01S01576.1pp     +++|
01686  M01S01577.1pp     +++|
01687  M01S01578.1pp     +++| PSL      SUBR               ENTRY/EXIT
01688  M01S01579.1pp     +++|          LDD    EJ+4
01689  M01S01580.1pp     +++|          LPN    76
01690  M01S01581.1pp     +++|          STM    SRSA+4      SAVE CURRENT JOB STATUS
01691  M01S01582.1pp     +++|          LMN    SWJS*2
01692  M01S01583.1pp     +++|          NJN    PSLX        IF NOT SERVICE WAIT STATUS
01693  M01S01584.1pp     +++|          LDM    TJAM,SC
01694  M01S01585.1pp     +++|          SBD    T0+4
01695  M01S01586.1pp     +++|          MJN    PSLX        IF CM EXCEEDS SERVICE LIMIT
01696  M01S01587.1pp     +++|          LDM    TJAM+1*MXJC,SC
01697  M01S01588.1pp     +++|          SBD    T0+3
01698  M01S01589.1pp     +++|          MJN    PSLX        IF EM EXCEEDS SERVICE LIMIT
01699  M01S01590.1pp     +++|          RJM    SRS         SET ROLLOUT STATUS
01700  M01S01591.1pp     +++|          UJN    PSLX        RETURN
01701  M01S01592.1pp     +++| PTE      SPACE  4,20
01702  M01S01593.1pp     +++|**        PTE - PROCESS TIMED/EVENT ROLLOUT JOBS.
01703  M01S01594.1pp     +++|*
01704  M01S01595.1pp     +++|*         CHECK FOR JOBS HAVING TIMED/EVENT ROLLOUT STATUS.
01705  M01S01596.1pp     +++|*         DECREMENT ROLLOUT TIMES OF SUCH JOBS AND SEE IF
01706  M01S01597.1pp     +++|*         THEIR EVENTS ARE POSTED YET.
01707  M01S01598.1pp     +++|*
01708  M01S01599.1pp     +++|*         ENTRY  (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
01709  M01S01600.1pp     +++|*                (BB - BB+4) = *PRFE* WORD OF EJT ENTRY.
01710  M01S01601.1pp     +++|*                (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
01711  M01S01602.1pp     +++|*                (T7) = NUMBER OF EVENTS IN EVENT TABLE.
01712  M01S01603.1pp     +++|*                (PTEA) = BYTE 0 OF *SCLE* WORD OF EJT ENTRY.
01713  M01S01604.1pp     +++|*                CURRENT EVENTS SET IN *TEVT*.
01714  M01S01605.1pp     +++|*
01715  M01S01606.1pp     +++|*         USES   AA+3, AA+4, T1, T2, CM - CM+4.
01716  M01S01607.1pp     +++|*
01717  M01S01608.1pp     +++|*         CALLS  SRS, IUT.
01718  M01S01609.1pp     +++|*
01719  M01S01610.1pp     +++|*         MACROS MONITOR.
01720  M01S01611.1pp     +++|
01721  M01S01612.1pp     +++|
01722  M01S01613.1pp     +++| PTE      SUBR               ENTRY/EXIT
01723  M01S01614.1pp     +++|          LDD    EJ+4
01724  M01S01615.1pp     +++|          LPN    77
01725  M01S01616.1pp     +++|          STM    SRSA+4      SAVE CURRENT JOB STATUS
01726  M01S01617.1pp     +++|          SHN    21-0        CHECK FOR EJT INTERLOCK
01727  M01S01618.1pp     +++|          MJN    PTEX        IF EJT INTERLOCKED
01728  M01S01619.1pp     +++|          STD    T2          SAVE JOB STATUS
01729  M01S00001.1pp1    +++|          STM    PTEH+4
01730  M01S01620.1pp     +++|          LMK    PWJS
01731  M01S01621.1pp     +++|          NJN    PTE1        IF NOT PRE-INITIAL WAIT JOB STATUS
01732  M01S01622.1pp     +++|          LDD    BB+1
01733  M01S01623.1pp     +++|          LMK    ORET
01734  M01S01624.1pp     +++|          ZJN    PTE2        IF OPERATOR OVERRIDE, CHANGE JOB STATUS
01735  M01S01625.1pp     +++| PTE1     LDM    TJST,T2
01736  M01S01626.1pp     +++|          SHN    21-10
01737  M01S01627.1pp     +++|          PJN    PTEX        IF NOT TIMED/EVENT ROLLOUT STATUS
01738  M01S01628.1pp     +++|          LDC    *           GET SERVICE CLASS
01739  M01S01629.1pp     +++| PTEA     EQU    *-1         (BYTE 0 OF *SCLE* WORD OF EJT ENTRY)
01740  M01S01630.1pp     +++|          LPN    60          MASK FORCED ROLLOUT/ROLLIN BITS
01741  M01S01631.1pp     +++|          LMN    20
01742  M01S01632.1pp     +++|          STM    PTED        SET/CLEAR *EATM* REISSUE FLAG
01743  M01S01633.1pp     +++|          NJN    PTE3        IF NOT FORCED ROLLIN
01744  M01S01634.1pp     +++| PTE2     LJM    PTE11       GO CHANGE JOB STATUS AND SET PRIORITY
01745  M01S01635.1pp     +++|
01746  M01S01636.1pp     +++| PTE3     LDD    AA+3
01747  M01S01637.1pp     +++|          LPC    777
01748  M01S01638.1pp     +++|          LMN    EXTM/10000
01749  M01S01639.1pp     +++|          STM    PTEC        SET/CLEAR EXTENDED TIMED ROLLOUT FLAG
01750  M01S01640.1pp     +++|          NJN    PTE5        IF NOT EXTENDED TIMED ROLLOUT
01751  M01S01641.1pp     +++|          SOD    AA+4        DECREMENT ROLLOUT TIME (2ND BYTE)
01752  M01S01642.1pp     +++|          STM    PTEF+4
01753  M01S01643.1pp     +++|          ZJN    PTE4        IF 2ND BYTE OF ROLLOUT TIME EXHAUSTED
01754  M01S01644.1pp     +++|          LDC    PTEF+10000*1
01755  M01S01645.1pp     +++|          UJN    PTE8        GO ISSUE *UTEM* TO UPDATE EJT ENTRY
01756  M01S01646.1pp     +++|
01757  M01S01647.1pp     +++| PTE4     LCN    0           RESET 2ND BYTE OF ROLLOUT TIME
01758  M01S01648.1pp     +++|          STM    PTEF+4
01759  M01S01649.1pp     +++| PTE5     LDD    AA+2
01760  M01S01650.1pp     +++|          LPN    77
01761  M01S01651.1pp     +++|          SHN    14
01762  M01S01652.1pp     +++|          LMD    AA+3
01763  M01S01653.1pp     +++|          SHN    10-21
01764  M01S01654.1pp     +++|          STM    PTED        SET/CLEAR EVENT FLAG
01765  M01S01655.1pp     +++|          ZJN    PTE2        IF ROLLOUT TIME EXPIRED
01766  M01S01656.1pp     +++|          SBN    1           DECREMENT COUNTER
01767  M01S01657.1pp     +++|          STM    PTEE+4
01768  M01S01658.1pp     +++|          LDC    **
01769  M01S01659.1pp     +++| PTEC     EQU    *-1         (EXTENDED TIMED/ROLLOUT FLAG)
01770  M01S01660.1pp     +++|          NJN    PTE6        IF NOT EXTENDED TIMED ROLLOUT
01771  M01S01661.1pp     +++|          LDC    PTEE+10000*2
01772  M01S01662.1pp     +++|          UJN    PTE8        GO ISSUE *UTEM* TO UPDATE EJT ENTRY
01773  M01S01663.1pp     +++|
01774  M01S01664.1pp     +++| PTE6     LDD    AA+3        CHECK FOR EVENT
01775  M01S01665.1pp     +++|          LPC    777
01776  M01S01666.1pp     +++|          STD    AA+3
01777  M01S01667.1pp     +++|          ADD    AA+4
01778  M01S01668.1pp     +++|          NJN    PTE9        IF EVENT EXISTS
01779  M01S01669.1pp     +++|
01780  M01S01670.1pp     +++|*         EVENT EXISTS BUT HAS NOT BEEN POSTED YET AND ROLLOUT TIME HAS
01781  M01S01671.1pp     +++|*         NOT EXPIRED, OR NO EVENT EXISTS AND ROLLOUT TIME HAS NOT
01782  M01S01672.1pp     +++|*         EXPIRED.  DECREMENT ROLLOUT TIME VIA *UTEM*.
01783  M01S01673.1pp     +++|
01784  M01S01674.1pp     +++| PTE7     LDC    PTEE+10000*1
Line S01675 Modification History
M01 (Added by) 1pp
M02 (Updated by) 1pp1
Seq #  *Modification Id* Act 
----------------------------+
01785  M02S01675.1pp1    ---| PTE8     RJM    IUT         ISSUE *UTEM* MONITOR FUNCTION
01786  M01S00002.1pp1    +++|
01787  M01S00003.1pp1    +++|*         VERIFY AND UPDATE *SCHE* WORD.
01788  M01S00004.1pp1    +++|
01789  M01S00005.1pp1    +++| PTE8     STM    PTEG        PARAMETER ADDRESS
01790  M01S00006.1pp1    +++|          SHN    -14
01791  M01S00007.1pp1    +++|          LPN    3
01792  M01S00008.1pp1    +++|          STD    T1          SAVE WORD COUNT
01793  M01S00009.1pp1    +++|          LDD    MA          MOVE PARAMETER WORDS
01794  M01S00010.1pp1    +++|          CWM    **,T1
01795  M01S00011.1pp1    +++| PTEG     EQU    *-1
01796  M01S00012.1pp1    +++|          LDD    MA
01797  M01S00013.1pp1    +++|          CRM    PTEI,T1
01798  M01S00014.1pp1    +++|          AOD    T1          INCREMENT WORD COUNT
01799  M01S00015.1pp1    +++|          SHN    14
01800  M01S00016.1pp1    +++|          ADK    PTEH        PARAMETER WORDS
01801  M01S00017.1pp1    +++|          RJM    IUT         ISSUE *UTEM* FUNCTION
01802  M01S01676.1pp     +++|          LJM    PTEX        CONTINUE EJT SCAN
01803  M01S01677.1pp     +++|
01804  M01S01678.1pp     +++|*         SCAN *TEVT* TABLE TO SEE IF THIS JOB-S EVENT HAS BEEN POSTED.
01805  M01S01679.1pp     +++|
01806  M01S01680.1pp     +++| PTE9     LDD    T7          INITIALIZE INDEX
01807  M01S01681.1pp     +++|          SHN    1
01808  M01S01682.1pp     +++|          STD    T2
01809  M01S01683.1pp     +++| PTE10    LCN    2           DECREMENT INDEX
01810  M01S01684.1pp     +++|          RAD    T2
01811  M01S01685.1pp     +++|          MJN    PTE7        IF *TEVT* SCAN COMPLETE, EVENT NOT FOUND
01812  M01S01686.1pp     +++|          LDM    TEVT,T2
01813  M01S01687.1pp     +++|          LMD    AA+3
01814  M01S01688.1pp     +++|          NJN    PTE10       IF NO MATCH
01815  M01S01689.1pp     +++|          LDM    TEVT+1,T2
01816  M01S01690.1pp     +++|          LMD    AA+4
01817  M01S01691.1pp     +++|          NJN    PTE10       IF NO MATCH
01818  M01S01692.1pp     +++|
01819  M01S01693.1pp     +++|*         EVENT WAS FOUND IN *TEVT* OR ROLLOUT TIME HAS EXPIRED.
01820  M01S01694.1pp     +++|*         CHANGE JOB STATUS TO *ROJS* IF JOB STATUS WAS *TOJS* OR
01821  M01S01695.1pp     +++|*         *ERJS* OR TO *PRJS* IF JOB STATUS WAS *PWJS*.  SET PRIORITY
01822  M01S01696.1pp     +++|*         TO UPPER BOUND OF SERVICE CLASS.
01823  M01S01697.1pp     +++|
01824  M01S01698.1pp     +++| PTE11    RJM    SRS         SET ROLLOUT STATUS AND PRIORITY
01825  M01S01699.1pp     +++|          ZJN    PTE12       IF FUNCTION ACCEPTED
01826  M01S01700.1pp     +++|          LDC    **
01827  M01S01701.1pp     +++| PTED     EQU    *-1         (*EATM* REISSUE FLAG)
01828  M01S01702.1pp     +++|          ZJN    PTE12       IF ROLLOUT TIME EXPIRED OR FORCED ROLLIN
01829  M01S01703.1pp     +++|          LDN    0           SET *EATM* SUBFUNCTION
01830  M01S01704.1pp     +++|          STD    CM+1
01831  M01S01705.1pp     +++|          LDD    AA+3        STORE EVENT IN *EATM* CALL
01832  M01S01706.1pp     +++|          STD    CM+3
01833  M01S01707.1pp     +++|          LDD    AA+4
01834  M01S01708.1pp     +++|          STD    CM+4
01835  M01S01709.1pp     +++|          MONITOR  EATM      REISSUE EVENT
01836  M01S01710.1pp     +++| PTE12    LJM    PTEX        CONTINUE EJT SCAN
01837  M01S01711.1pp     +++|
01838  M01S01712.1pp     +++|
01839  M01S01713.1pp     +++|*         *UTEM* PARAMETERS FOR DECREMENTING ROLLOUT TIME.
01840  M01S01714.1pp     +++|
01841  M01S01715.1pp     +++| PTEE     VFD    1/0,5/SCHE,6/9D
01842  M01S01716.1pp     +++|          VFD    6/21D,6/0
01843  M01S01717.1pp     +++|          CON    0
01844  M01S01718.1pp     +++|          CON    0
01845  M01S01719.1pp     +++|          CON    0
01846  M01S01720.1pp     +++|
01847  M01S01721.1pp     +++| PTEF     VFD    1/0,5/SCHE,6/12D
01848  M01S01722.1pp     +++|          VFD    6/0,6/0
01849  M01S01723.1pp     +++|          CON    0
01850  M01S01724.1pp     +++|          CON    0
01851  M01S01725.1pp     +++|          CON    0
01852  M01S00018.1pp1    +++|
01853  M01S00019.1pp1    +++|*         *UTEM* PARAMETERS FOR VERIFY AND DECREMENT ROLLOUT TIME.
01854  M01S00020.1pp1    +++|
01855  M01S00021.1pp1    +++| PTEH     VFD    1/1,5/JSNE,6/5
01856  M01S00022.1pp1    +++|          VFD    6/1,6/0
01857  M01S00023.1pp1    +++|          CON    0
01858  M01S00024.1pp1    +++|          CON    0
01859  M01S00025.1pp1    +++|          CON    TOJS
01860  M01S00026.1pp1    +++|
01861  M01S00027.1pp1    +++| PTEI     BSS    5*2         UPDATE PARAMETER WORDS
01862  M01S01726.1pp     +++| TJST     SPACE  4,15
01863  M01S01727.1pp     +++|**        TJST - TABLE OF JOB STATE ATTRIBUTES.
01864  M01S01728.1pp     +++|*         ENTRY = 1 WORD.
01865  M01S01729.1pp     +++|*         INDEXED BY JOB STATUS.
01866  M01S01730.1pp     +++|*
01867  M01S01731.1pp     +++|*T        1/ SS, 1/ ES, 1/ FR, 1/ TE, 1/ PI
Figure

01234 PI TE FR ES SS

01868  M01S01732.1pp     +++|*         SS     SET IF SCHEDULABLE JOB STATE.
01869  M01S01733.1pp     +++|*         ES     SET IF SCHEDULABLE JOB STATE WHEN ERROR FLAG IS SET.
01870  M01S01734.1pp     +++|*         FR     SET IF JOB IN THIS STATE MAY BE FORCED ROLLED IN.
01871  M01S01735.1pp     +++|*         TE     SET IF TIMED/EVENT TYPE JOB STATE.
01872  M01S01736.1pp     +++|*         PI     SET IF PRE-INITIAL TYPE JOB STATE.
01873  M01S01737.1pp     +++|*
01874  M01S01738.1pp     +++|*         NOTE - ANY CHANGES TO THIS TABLE MUST BE COUPLED WITH
01875  M01S01739.1pp     +++|*                CORRESPONDING CHANGES TO THE *TJST* TABLE IN *1SJ*.
01876  M01S01740.1pp     +++|
01877  M01S01741.1pp     +++| TJST     JOBSTAT
01878  M01S01742.1pp     +++|          JOBSTAT PRJS,SS,ES,FR,,PI
01879  M01S01743.1pp     +++|          JOBSTAT EXJS
01880  M01S01744.1pp     +++|          JOBSTAT ROJS,SS,ES,FR
01881  M01S01745.1pp     +++|          JOBSTAT SIJS,SS,ES,FR
01882  M01S01746.1pp     +++|          JOBSTAT SOJS,,ES,FR
01883  M01S01747.1pp     +++|          JOBSTAT TOJS,,ES,,TE
01884  M01S01748.1pp     +++|          JOBSTAT IOJS
01885  M01S01749.1pp     +++|          JOBSTAT DOJS
01886  M01S01750.1pp     +++|          JOBSTAT SUJS,,ES
01887  M01S01751.1pp     +++|          JOBSTAT PCJS,SS,ES,FR
01888  M01S01752.1pp     +++|          JOBSTAT ERJS,,,FR,TE
01889  M01S01753.1pp     +++|          JOBSTAT NVJS
01890  M01S01754.1pp     +++|          JOBSTAT PWJS,,,,TE,PI
01891  M01S01755.1pp     +++|          JOBSTAT SWJS,,ES
01892  M01S01756.1pp     +++|
01893  M01S01757.1pp     +++|          INDEX   MXJS       TERMINATE TABLE
01894  M01S01758.1pp     +++| RTE      SPACE  4,10
01895  M01S01759.1pp     +++|**        RTE - READ TABLE OF EVENTS.
01896  M01S01760.1pp     +++|*
01897  M01S01761.1pp     +++|*         EXIT   EVENTS READ INTO *TEVT* TWO BYTES PER EVENT.
01898  M01S01762.1pp     +++|*                EVENT COUNT IN EVT TABLE CLEARED.
01899  M01S01763.1pp     +++|*                (T7) = NUMBER OF EVENTS.
01900  M01S01764.1pp     +++|*
01901  M01S01765.1pp     +++|*         USES   AA - AA+4, CM - CM+4, T1 - T7.
01902  M01S01766.1pp     +++|*
01903  M01S01767.1pp     +++|*         MACROS MONITOR.
01904  M01S01768.1pp     +++|
01905  M01S01769.1pp     +++|
01906  M01S01770.1pp     +++| RTE      SUBR               ENTRY/EXIT
01907  M01S01771.1pp     +++|          LDK    ZERL
01908  M01S01772.1pp     +++|          CRD    AA
01909  M01S01773.1pp     +++|          ADK    EVTP-ZERL   GET EVENT TABLE POINTER
01910  M01S01774.1pp     +++|          CRD    T1
01911  M01S01775.1pp     +++|          CRD    T1+2
01912  M01S01776.1pp     +++|          LDN    /CPS/SEIS   SET EVENT TABLE INTERLOCK
01913  M01S01777.1pp     +++|          STD    CM+1
01914  M01S01778.1pp     +++|          MONITOR  EATM
01915  M01S01779.1pp     +++|          LDD    CM+1        SAVE NUMBER OF EVENTS
01916  M01S01780.1pp     +++|          STD    T7
01917  M01S01781.1pp     +++|          ZJN    RTE2        IF NO EVENTS
01918  M01S01782.1pp     +++|          SOD    CM+1
01919  M01S01783.1pp     +++| RTE1     LDD    T1          GET TABLE ADDRESS
01920  M01S01784.1pp     +++|          SHN    14
01921  M01S01785.1pp     +++|          LMD    T1+1
01922  M01S01786.1pp     +++|          CRM    TEVT,ON
01923  M01S01787.1pp     +++| RTEA     EQU    *-1         (ADDRESS INCREMENTED IN LOOP)
01924  M01S01788.1pp     +++|          STD    T1+1
01925  M01S01789.1pp     +++|          SHN    -14
01926  M01S01790.1pp     +++|          STD    T1
01927  M01S01791.1pp     +++|          LDN    4           INCREMENT *TEVT* ADDRESS
01928  M01S01792.1pp     +++|          RAM    RTEA
01929  M01S01793.1pp     +++|          LCN    2
01930  M01S01794.1pp     +++|          RAD    CM+1
01931  M01S01795.1pp     +++|          PJN    RTE1        IF NOT END OF EVENTS
01932  M01S01796.1pp     +++| RTE2     LDD    T1+2        CLEAR COUNT AND INTERLOCK
01933  M01S01797.1pp     +++|          SHN    14
01934  M01S01798.1pp     +++|          LMD    T1+2+1
01935  M01S01799.1pp     +++|          CWD    AA
01936  M01S01800.1pp     +++|          LJM    RTEX        RETURN
01937  M01S01801.1pp     +++| SME      SPACE  4,15
01938  M01S01802.1pp     +++|**        SME - SCAN MST ERROR COUNTS.
01939  M01S01803.1pp     +++|*
01940  M01S01804.1pp     +++|*         ENTRY  (T8) = EQUIPMENT EST ORDINAL TO CHECK.
01941  M01S01805.1pp     +++|*                (EJ - EJ+4) = EQDE WORD OF EST ENTRY.
01942  M01S01806.1pp     +++|*
01943  M01S01807.1pp     +++|*         EXIT   IF A RECOVERED OR UNRECOVERED ERROR COUNT IN THE MST
01944  M01S01808.1pp     +++|*                IS GREATER THAN OR EQUAL TO THE APPROPRIATE DEVICE
01945  M01S01809.1pp     +++|*                TYPE THRESHOLD, AN *ERRLOG ALERT* SYSTEM EVENT AND
01946  M01S01810.1pp     +++|*                A CORRESPONDING ERRLOG MESSAGE ARE ISSUED.
01947  M01S01811.1pp     +++|*
01948  M01S01812.1pp     +++|*         USES   BB - BB+4, CM - CM+4.
01949  M01S01813.1pp     +++|*
01950  M01S01814.1pp     +++|*         CALLS  C2D, DFM.
01951  M01S01815.1pp     +++|*
01952  M01S01816.1pp     +++|*         MACROS MONITOR.
01953  M01S01817.1pp     +++|
01954  M01S01818.1pp     +++|
01955  M01S01819.1pp     +++| SME      SUBR               ENTRY/EXIT
01956  M01S01820.1pp     +++|          LDD    EJ+4        READ MST WORD
01957  M01S01821.1pp     +++|          SHN    3
01958  M01S01822.1pp     +++|          ADN    THLL
01959  M01S01823.1pp     +++|          CRD    BB
01960  M01S01824.1pp     +++|          ADN    CTLL-THLL
01961  M01S01825.1pp     +++|          CRD    CM
01962  M01S01826.1pp     +++|          LDD    CM+4
01963  M01S01827.1pp     +++|          SHN    0-13
01964  M01S01828.1pp     +++|          NJN    SME1        IF CONDITION ALREADY PROCESSED
01965  M01S01829.1pp     +++|          LDD    CM+4        CHECK UNRECOVERED ERROR COUNT
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1pp.txt ยท Last modified: by 127.0.0.1