User Tools

Site Tools


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

Deck 1AJ

214 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1aj     +++|          IDENT  1AJ,AJS     ADVANCE JOB STATUS
00002  M01S00002.1aj     +++|          PERIPH
00003  M01S00003.1aj     +++|          BASE   MIXED
00004  M01S00004.1aj     +++|          SST
00005  M01S00005.1aj     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00006  M01S00006.1aj     +++|*COMMENT  1AJ - ADVANCE JOB STATUS.
Line S00007 Modification History
M01 (Added by) 1aj
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1aj     +++|          TITLE  1AJ - ADVANCE JOB STATUS.
00010  M01S00009.1aj     +++|          SPACE  4,10
00011  M01S00010.1aj     +++|***       1AJ - ADVANCE JOB STATUS.
00012  M01S00011.1aj     +++|*
00013  M01S00012.1aj     +++|*         G. R. MANSFIELD.   70/12/20.
00014  M01S00013.1aj     +++|*         R. E. TATE.        70/12/20.
00015  M01S00014.1aj     +++|*         D. A. HIVELEY.     72/11/20.
00016  M01S00001.ns22000 +++|*         P. D. FARRELL.     81/03/17.
00017  M01S00015.1aj     +++|          SPACE  4,25
00018  M01S00016.1aj     +++|***       *1AJ* IS CALLED TO ADVANCE THE STATUS OF AN EXECUTING
00019  M01S00017.1aj     +++|*         JOB.  THE TYPE OF CALL MAY BE ANY ONE OF THE FOLLOWING:
00020  M01S00018.1aj     +++|*
00021  M01S00019.1aj     +++|*                1.   JOB INITIATION - CALLED BY *1SJ* TO STARTUP
00022  M01S00020.1aj     +++|*                     A JOB AT THE CONTROL POINT.
00023  M01S00021.1aj     +++|*
00024  M01S00022.1aj     +++|*                2.   JOB ADVANCEMENT - CALLED BY *CPUMTR* WHEN
00025  M01S00023.1aj     +++|*                     THERE IS NO ACTIVITY AT THE CONTROL POINT.
00026  M01S00024.1aj     +++|*
00027  M01S00025.1aj     +++|*                3.   ROLLOUT REQUEST - CALLED BY *CPUMTR* WHEN
00028  M01S00026.1aj     +++|*                     A PPU HAS REQUESTED THAT THE CONTROL POINT
00029  M01S00027.1aj     +++|*                     BE ROLLED OUT (E.G. *ROCM* REQUEST).
00030  M01S00028.1aj     +++|*
00031  M01S00029.1aj     +++|*                4.   *SSJ=* AND *DMP=* PROCESSING - CALLED BY *1RO*,
00032  M01S00030.1aj     +++|*                     *1RI*, AND *DIS*.
00033  M01S00031.1aj     +++|*
00034  M01S00032.1aj     +++|*                5.   ERROR PROCESSING - CALLED BY *CPUMTR* WHEN
00035  M01S00033.1aj     +++|*                     AN ERROR FLAG IS SET FOR THE JOB.
00036  M01S00034.1aj     +++|*
Line S00035 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00035.v23l617 ---|*                6.   CONTROL STATEMENT PROCESSING - CALLED BY *DIS*
00038  M01S00001.v23l617 +++|*                6.   COMMAND PROCESSING - CALLED BY *DIS*
00039  M01S00036.1aj     +++|*                     AND OTHER PPU PROGRAMS TO EXECUTE A CONTROL
Line S00037 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00037.v23l617 ---|*                     STATEMENT FOR THE JOB.
00041  M01S00002.v23l617 +++|*                     COMMAND FOR THE JOB.
00042  M01S00038.1aj     +++|          SPACE  4,10
00043  M01S00039.1aj     +++|***       CALL.
00044  M01S00040.1aj     +++|*
00045  M01S00041.1aj     +++|*T        18/ *1AJ* OR *TCS*, 1/, 5/CP, 12/FC, 24/P
Figure

0232429PFC30353640414259FCCP *1AJ* OR *TCS*

00046  M01S00042.1aj     +++|*
00047  M01S00043.1aj     +++|*                CP = CONTROL POINT NUMBER.
00048  M01S00044.1aj     +++|*                FC = *1AJ* FUNCTION CODE.
00049  M01S00045.1aj     +++|*                P  = FUNCTION PARAMETERS.
00050  M01S00046.1aj     +++|          SPACE  4,10
00051  M01S00047.1aj     +++|***       FUNCTION CODE 0 - *CPUMTR* CALL.
00052  M01S00048.1aj     +++|*
00053  M01S00049.1aj     +++|*T        18/*1AJ*, 1/, 5/CP, 12/0, 12/R, 12/N
Figure

01112232429NR0303536404142590CP*1AJ*

00054  M01S00050.1aj     +++|*
00055  M01S00051.1aj     +++|*                R = 1       SET BY *1AJ* DURING *DMP=* PROCESSING
00056  M01S00052.1aj     +++|*                            IN CASE OF RECALL.
00057  M01S00053.1aj     +++|*                N = 1       SET BY *1RO* UPON COMPLETION OF *DMP=*
00058  M01S00054.1aj     +++|*                            PROCESSING.
00059  M01S00055.1aj     +++|*                N = 2       SET BY *DIS* FOR *SSJ=* AND *DMP=*
00060  M01S00056.1aj     +++|*                            PROCESSING.
00061  M01S00057.1aj     +++|          SPACE  4,10
00062  M01S00058.1aj     +++|***       FUNCTION CODE 1 - JOB SCHEDULER CALL.
00063  M01S00059.1aj     +++|*
00064  M01S00060.1aj     +++|*T        18/*1AJ*, 1/, 5/CP, 12/1, 12/0, 12/JO
Figure

01112232429JO01303536404142591CP*1AJ*

00065  M01S00061.1aj     +++|*
00066  M01S00062.1aj     +++|*                JO          JOB EJT ORDINAL.
00067  M01S00063.1aj     +++|          SPACE  4,15
00068  M01S00064.1aj     +++|***       FUNCTION CODE 2 - *DIS* OR OTHER PP CALL.
00069  M01S00065.1aj     +++|*
00070  M01S00066.1aj     +++|*T        12/*1AJ*, 1/, 5/CP, 12/2, 12/0, 12/DC
Figure

01112232429DC02303536404142532CP*1AJ*

00071  M01S00067.1aj     +++|*
Line S00068 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00068.v23l617 ---|*                DC BIT 0    INDICATES READ CONTROL STATEMENT
00073  M01S00003.v23l617 +++|*                DC BIT 0    INDICATES READ COMMAND
00074  M01S00069.1aj     +++|*                            AND STOP PRIOR TO EXECUTION (*RSS*
00075  M01S00070.1aj     +++|*                            INDICATOR).
00076  M01S00071.1aj     +++|*
00077  M01S00072.1aj     +++|*                   BIT 1    INDICATES RETURN ERROR MESSAGE TO
Line S00073 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00073.v23l617 ---|*                            *MS2W* WITH NO ERROR FLAG IF INVALID
Line S00074 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00074.v23l617 ---|*                            CONTROL CARD.
00080  M01S00004.v23l617 +++|*                            *MS2W* WITH NO ERROR FLAG IF INCORRECT
00081  M01S00005.v23l617 +++|*                            COMMAND.
00082  M01S00075.1aj     +++|*
Line S00076 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00076.v23l617 ---|*                   BIT 2    INDICATES TAKE CONTROL STATEMENT
00084  M01S00006.v23l617 +++|*                   BIT 2    INDICATES TAKE COMMAND
00085  M01S00077.1aj     +++|*                            FROM *MS1W* OF CONTROL POINT AREA.
00086  M01S00078.1aj     +++|          SPACE  4,10
00087  M01S00079.1aj     +++|***       FUNCTION CODE 3 - FROM OTHER PPU PROGRAMS.
00088  M01S00080.1aj     +++|*
00089  M01S00081.1aj     +++|*T        18/*1AJ*, 1/, 5/CP, 12/3, 12/0, 12/0
Figure

01112232429003303536404142593CP*1AJ*

00090  M01S00082.1aj     +++|          SPACE  4,15
Line S00083 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00083.v23l617 ---|***       FUNCTION CODE 4 - CONTROL CARD FETCH.
00092  M01S00007.v23l617 +++|***       FUNCTION CODE 4 - COMMAND FETCH.
00093  M01S00084.1aj     +++|*
00094  M01S00085.1aj     +++|*T        18/*TCS*, 1/, 5/CP, 12/4, 6/SF, 18/ADDR
Figure

01718232429ADDRSF4303536404142594CP*TCS*

00095  M01S00086.1aj     +++|*
00096  M01S00087.1aj     +++|*                SF =        SUBFUNCTION NUMBER FOR READING CONTROL
Line S00088 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00088.v23l617 ---|*                            STATEMENT:
00098  M01S00008.v23l617 +++|*                            COMMAND:
00099  M01S00089.1aj     +++|*                   = 0      ADVANCE POINTERS.
00100  M01S00090.1aj     +++|*                   = 1      READ ONLY IF NOT A LOCAL FILE LOAD,
00101  M01S00091.1aj     +++|*                            DO NOT ADVANCE POINTERS.
00102  M01S00092.1aj     +++|*                   = 2      SET BIT 17 IN ARGUMENT COUNT IF
00103  M01S00093.1aj     +++|*                            LOCAL FILE LOAD, DO NOT ADVANCE POINTERS.
00104  M01S00094.1aj     +++|*                   = 4+     IF PARAMETERS ARE TO BE CRACKED IN
00105  M01S00095.1aj     +++|*                            *SCOPE* FORMAT.
00106  M01S00096.1aj     +++|*                ADDR =      ADDRESS TO READ/WRITE CONTROL
Line S00097 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00097.v23l617 ---|*                            STATEMENT FROM/TO.
00108  M01S00009.v23l617 +++|*                            COMMAND FROM/TO.
00109  M01S00098.1aj     +++|          SPACE  4,10
Line S00099 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00099.v23l617 ---|***       FUNCTION CODE 5 - CONTROL CARD READ AND EXECUTE.
00111  M01S00010.v23l617 +++|***       FUNCTION CODE 5 - COMMAND READ AND EXECUTE.
00112  M01S00100.1aj     +++|*
00113  M01S00101.1aj     +++|*T        18/*TCS*, 1/, 5/CP, 12/5, 6/, 18/ADDR
Figure

01718232429ADDR5303536404142595CP*TCS*

00114  M01S00102.1aj     +++|*
00115  M01S00103.1aj     +++|*                ADDR =      ADDRESS WITHIN USER FL FROM WHICH TO
Line S00104 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00104.v23l617 ---|*                            READ CONTROL STATEMENT.
00117  M01S00011.v23l617 +++|*                            READ COMMAND.
00118  M01S00105.1aj     +++|          SPACE  4,10
00119  M01S00106.1aj     +++|***       DAYFILE MESSAGES.
00120  M01S00107.1aj     +++|*
00121  M01S00108.1aj     +++|*         * SECURE MEMORY, DUMP DISABLED.* = ATTEMPT TO DUMP
00122  M01S00109.1aj     +++|*         SECURE MEMORY.
00123  M01S00110.1aj     +++|*
00124  M01S00111.1aj     +++|*         * SPCW CALL ERROR.* = A *DMP=* TYPE CALL WAS MADE AND THE
00125  M01S00112.1aj     +++|*         PROGRAM CALLED IS EITHER NOT IN THE CLD OR DOES NOT HAVE A
00126  M01S00113.1aj     +++|*         *DMP=* ENTRY POINT DEFINED.
00127  M01S00114.1aj     +++|          SPACE  4,10
00128  M01S00115.1aj     +++|**        PROGRAMS CALLED.
00129  M01S00116.1aj     +++|*
00130  M01S00117.1aj     +++|*         *1RI* - *DMP=* ROLLIN.
00131  M01S00118.1aj     +++|*         *1RO* - ROLLOUT JOB, NORMAL ROLLOUT AND *DMP=* ROLLOUT.
00132  M01S00119.1aj     +++|*         *CIO* - COMPLETE SPECIAL FILES ON ERRORS.
00133  M01S00120.1aj     +++|          SPACE  4,10
00134  M01S00121.1aj     +++|**        ROUTINES USED.
00135  M01S00122.1aj     +++|*
00136  M01S00123.1aj     +++|*         *0ST* - TERMINATE SCP CONNECTIONS.
00137  M01S00124.1aj     +++|          TITLE  COMMON DECKS AND MACRO DEFINITIONS.
00138  M01S00125.1aj     +++|          SPACE  4,10
00139  M01S00126.1aj     +++|**        PRESET QUALIFICATION BLOCK ORDER.
00140  M01S00127.1aj     +++|
00141  M01S00128.1aj     +++|
00142  M01S00129.1aj     +++|          QUAL
00143  M01S00130.1aj     +++|          QUAL   IJB
00144  M01S00131.1aj     +++|          QUAL   PEF
00145  M01S00001.ns21000 +++|          QUAL   EFX
00146  M01S00132.1aj     +++|          QUAL   TCS
00147  M01S00133.1aj     +++|          QUAL   LDR
00148  M01S00134.1aj     +++|          QUAL   3AE
00149  M01S00135.1aj     +++|          QUAL   3AF
00150  M01S00136.1aj     +++|          QUAL   3AG
00151  M01S00137.1aj     +++|          QUAL   3AH
00152  M01S00138.1aj     +++|          QUAL   3AI
00153  M01S00139.1aj     +++|          QUAL   3AJ
00154  M01S00140.1aj     +++|          QUAL   3AK
00155  M01S00001.ns2031  +++|          QUAL   ERR
00156  M01S00141.1aj     +++|          QUAL   PFM
00157  M01S00142.1aj     +++|          QUAL   REM
00158  M01S00143.1aj     +++|          QUAL   MACRO$
00159  M01S00144.1aj     +++|          QUAL
00160  M01S00145.1aj     +++|          SPACE  4,10
00161  M01S00146.1aj     +++|**        DEFINE SYSTEM COMMUNICATIONS SYMBOLS.
00162  M01S00147.1aj     +++|
00163  M01S00148.1aj     +++|
00164  M01S00149.1aj     +++|          SYSCOM             DEFINE SYSTEM COMMUNICATIONS SYMBOLS
00165  M01S00150.1aj     +++|          SPACE  4,10
00166  M01S00151.1aj     +++|**        DEFINITION COMMON DECKS.
00167  M01S00152.1aj     +++|
00168  M01S00153.1aj     +++|
00169  M01S00154.1aj     +++|*CALL     COMPMAC
00170  M01S00155.1aj     +++|*CALL     COMSACC
00171  M01S00156.1aj     +++|*CALL     COMSCPS
00172  M01S00157.1aj     +++|*CALL     COMSDSP
00173  M01S00158.1aj     +++|*CALL     COMSEJT
00174  M01S00012.v23l617 +++|*CALL     COMSEVT
00175  M01S00159.1aj     +++|*CALL     COMSJCE
00176  M01S00160.1aj     +++|*CALL     COMSJIO
00177  M01S00161.1aj     +++|*CALL     COMSJRO
00178  M01S00162.1aj     +++|*CALL     COMSLFD
00179  M01S00163.1aj     +++|*CALL     COMSMSC
00180  M01S00164.1aj     +++|*CALL     COMSMSP
00181  M01S00165.1aj     +++|*CALL     COMSPIM
00182  M01S00166.1aj     +++|*CALL     COMSPRD
00183  M01S00167.1aj     +++|          QUAL   PFM
00184  M01S00168.1aj     +++|*CALL     COMSPFM
00185  M01S00169.1aj     +++|          QUAL   *
00186  M01S00170.1aj     +++|          QUAL   REM
00187  M01S00171.1aj     +++|*CALL     COMSREM
00188  M01S00172.1aj     +++|          QUAL   *
00189  M01S00173.1aj     +++|*CALL     COMSRPV
00190  M01S00002.ns22000 +++|*CALL     COMSSCD
00191  M01S00174.1aj     +++|*CALL     COMSSCP
00192  M01S00001.272l774 +++|          QUAL   SCR
00193  M01S00175.1aj     +++|*CALL     COMSSCR
00194  M01S00002.272l774 +++|          QUAL   *
00195  M01S00001.1aj106  +++|*CALL     COMSSRT
00196  M01S00176.1aj     +++|*CALL     COMSSRU
00197  M01S00177.1aj     +++|*CALL     COMSSSD
00198  M01S00178.1aj     +++|*CALL     COMSSSE
00199  M01S00179.1aj     +++|*CALL     COMSSSJ
00200  M01S00180.1aj     +++|*CALL     COMSZOL
00201  M01S00001.253l688 +++|          TITLE  MACRO DEFINITIONS.
00202  M01S00181.1aj     +++| JMP      SPACE  4,10
00203  M01S00182.1aj     +++|**        JMP - THREADED JUMP.
00204  M01S00183.1aj     +++|*
00205  M01S00184.1aj     +++|*         JMP    ADDR
00206  M01S00185.1aj     +++|*
00207  M01S00186.1aj     +++|*         ENTRY  *ADDR* = JUMP DESTINATION ADDRESS.
00208  M01S00187.1aj     +++|*
00209  M01S00188.1aj     +++|*         NOTE   THIS MACRO WILL THREAD BACKWARDS ONLY.
00210  M01S00189.1aj     +++|
00211  M01S00190.1aj     +++|
00212  M01S00191.1aj     +++| JMP      MACRO  ADDR
00213  M01S00192.1aj     +++|          NOREF  .ADDR
00214  M01S00193.1aj     +++| .A       IF     -DEF,.ADDR
00215  M01S00194.1aj     +++| .ADDR    MAX    ADDR,*-40
00216  M01S00195.1aj     +++| .A       ENDIF
00217  M01S00196.1aj     +++| .B       IFGT   .ADDR,*-40
00218  M01S00197.1aj     +++|          UJN    .ADDR       ASSEMBLE SHORT JUMP
00219  M01S00198.1aj     +++| .ADDR    SET    *-1
00220  M01S00199.1aj     +++| .B       ELSE
00221  M01S00200.1aj     +++| .ADDR    SET    *
00222  M01S00201.1aj     +++|          LJM    ADDR        ASSEMBLE LONG JUMP
00223  M01S00202.1aj     +++| .B       ENDIF
00224  M01S00203.1aj     +++| JMP      ENDM
00225  M01S00204.1aj     +++| LDA      SPACE  4,10
00226  M01S00205.1aj     +++|**        LDA - LOAD ABSOLUTE CM ADDRESS.
00227  M01S00206.1aj     +++|*
00228  M01S00207.1aj     +++|*         LDA    X,M
00229  M01S00208.1aj     +++|*
00230  M01S00209.1aj     +++|*         ENTRY  *X* = FIRST OF TWO DIRECT CELLS CONTAINING
00231  M01S00210.1aj     +++|*                      RELATIVE CM ADDRESS.
00232  M01S00211.1aj     +++|*                *M* = (OPTIONAL) IF NON-BLANK, MASK (X) WITH
00233  M01S00212.1aj     +++|*                      5-BIT MASK.
00234  M01S00213.1aj     +++|*
00235  M01S00214.1aj     +++|*         EXIT   (A) = ABSOLUTE CM ADDRESS.
00236  M01S00215.1aj     +++|
00237  M01S00216.1aj     +++|
00238  M01S00002.ns21000 +++|          PURGMAC  LDA
00239  M01S00003.ns21000 +++|
00240  M01S00217.1aj     +++| LDA      MACRO  X,M
00241  M01S00218.1aj     +++|          LDD    X
00242  M01S00219.1aj     +++|          IFC    NE,$M$$,1
00243  M01S00220.1aj     +++|          LPN    37
00244  M01S00221.1aj     +++|          SHN    6
00245  M01S00222.1aj     +++|          ADD    RA
00246  M01S00223.1aj     +++|          SHN    6
00247  M01S00224.1aj     +++|          ADD    X+1
00248  M01S00225.1aj     +++|          ENDM
00249  M01S00002.253l688 +++| PROQF    SPACE  4,15
00250  M01S00003.253l688 +++|**        PROQF - PROCESS QUEUED FUNCTIONS.
00251  M01S00004.253l688 +++|*
00252  M01S00005.253l688 +++|*         PROQF  NFL
00253  M01S00006.253l688 +++|*
00254  M01S00007.253l688 +++|*         ENTRY  *NFL* = LOCATION CONTAINING ZERO IF NO NFL ASSIGNED.
00255  M01S00008.253l688 +++|*
00256  M01S00009.253l688 +++|*         EXIT   (A) = 0.
00257  M01S00010.253l688 +++|*                (AB) = NUMBER OF FUNCTIONS STILL QUEUED.
00258  M01S00011.253l688 +++|*
00259  M01S00012.253l688 +++|*         USES   AB, AB+1, CM - CM+4.
00260  M01S00013.253l688 +++|*
00261  M01S00014.253l688 +++|*         CALLS  FTN.
00262  M01S00015.253l688 +++|*
00263  M01S00016.253l688 +++|*         MACROS NFA.
00264  M01S00017.253l688 +++|
00265  M01S00018.253l688 +++|
00266  M01S00019.253l688 +++|          PURGMAC  PROQF
00267  M01S00020.253l688 +++|
00268  M01S00021.253l688 +++| PROQF    MACRO  NFL
00269  M01S00022.253l688 +++| PQF2     AOD    AB          INCREMENT COUNT OF FUNCTIONS STILL QUEUED
00270  M01S00023.253l688 +++| PQF3     AOD    AB+1
Line S00024 Modification History
M01 (Added by) 253l688
M02 (Updated by) ns2620
Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00024.ns2620  ---|          SBN    10
00272  M01S00001.ns2620  +++|          SBN    QFBL
00273  M01S00025.253l688 +++|          MJN    PQF1        IF MORE ENTRIES TO CHECK
00274  M01S00026.253l688 +++|
00275  M01S00027.253l688 +++| PQF      SUBR               ENTRY/EXIT
00276  M01S00028.253l688 +++| PQF      EQU    *-1
00277  M01S00029.253l688 +++|          LDD    NFL
00278  M01S00030.253l688 +++|          STD    AB          PRESET REPLY
00279  M01S00031.253l688 +++|          ZJN    PQFX        IF NO NEGATIVE FL ASSIGNED
00280  M01S00032.253l688 +++|          LDN    0
00281  M01S00033.253l688 +++|          STD    AB
00282  M01S00034.253l688 +++|          STD    AB+1
00283  M01S00035.253l688 +++| PQF1     NFA    QFBN        CHECK FOR QUEUED FUNCTION
00284  M01S00036.253l688 +++|          ADD    AB+1
00285  M01S00037.253l688 +++|          CRD    CM
00286  M01S00038.253l688 +++|          LDD    CM+1        GET EST ORDINAL
00287  M01S00039.253l688 +++|          ZJN    PQF3        IF NO FUNCTION
00288  M01S00040.253l688 +++|          LPC    -1000
00289  M01S00041.253l688 +++|          LMD    TH
00290  M01S00042.253l688 +++|          STD    CM+1        SET RETURN-ON-INACCESSIBLE
00291  M01S00043.253l688 +++|          LDD    CM
00292  M01S00044.253l688 +++|          RJM    FTN         ISSUE FUNCTION
00293  M01S00045.253l688 +++|          LDD    CM+1
00294  M01S00046.253l688 +++|          NJN    PQF2        IF DEVICE INACCESSIBLE
00295  M01S00047.253l688 +++|          LDN    ZERL        CLEAR QUEUE ENTRY
00296  M01S00048.253l688 +++|          CRD    CM
00297  M01S00049.253l688 +++|          NFA    QFBN
00298  M01S00050.253l688 +++|          ADD    AB+1
00299  M01S00051.253l688 +++|          CWD    CM
00300  M01S00052.253l688 +++|          LJM    PQF3        CHECK NEXT ENTRY
00301  M01S00053.253l688 +++| PROQF    ENDM
00302  M01S00001.v22l602 +++| SUBSYST  SPACE  4,10
00303  M01S00002.v22l602 +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00304  M01S00003.v22l602 +++|*
Line S00004 Modification History
M01 (Added by) v22l602
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00004.271l750 ---|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00306  M01S00001.271l750 +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT,CPU
00307  M01S00005.v22l602 +++|*
00308  M01S00006.v22l602 +++|*         ENTRY  *PP* = NAME OF PP PROGRAM TO INITIATE SUBSYSTEM.
00309  M01S00007.v22l602 +++|*
00310  M01S00008.v22l602 +++|*         GENERATE TABLE OF PP NAMES FOR PP-INITIATED SUBSYTEMS.
00311  M01S00009.v22l602 +++|
00312  M01S00010.v22l602 +++|
00313  M01S00011.v22l602 +++|          PURGMAC  SUBSYST
00314  M01S00012.v22l602 +++|
Line S00013 Modification History
M01 (Added by) v22l602
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00315  M02S00013.271l750 ---| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00316  M01S00002.271l750 +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB,CPU
00317  M01S00003.271l750 +++|          LOCAL  C
00318  M01S00014.v22l602 +++| .SUB     RMT
00319  M01S00004.271l750 +++| C        SET    0
00320  M01S00005.271l750 +++|          IFC    NE,$CPU$$,1
00321  M01S00006.271l750 +++| C        SET    1
00322  M01S00015.v22l602 +++| .A       IFC    NE,$PP$$
00323  M01S00016.v22l602 +++| PPMIC1   MICRO  1,2,$PP$
00324  M01S00017.v22l602 +++| PPMIC2   MICRO  3,3,$PP$
Line S00018 Modification History
M01 (Added by) v22l602
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00018.271l750 ---|          INDEX  (2*MXSI-2*ID),(2L"PPMIC1",1L"PPMIC2")
00326  M01S00007.271l750 +++|          INDEX  (2*MXSI-2*ID),(2L"PPMIC1",1L"PPMIC2"+C)
00327  M01S00019.v22l602 +++| .A       ELSE
Line S00020 Modification History
M01 (Added by) v22l602
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00328  M02S00020.271l750 ---|          INDEX  (2*MXSI-2*ID),(0,0)
00329  M01S00008.271l750 +++|          INDEX  (2*MXSI-2*ID),(0,C)
00330  M01S00021.v22l602 +++| .A       ENDIF
00331  M01S00022.v22l602 +++| .SUB     RMT
00332  M01S00023.v22l602 +++| SUBSYST  ENDM
00333  M01S00226.1aj     +++|          TITLE  LOCAL DEFINITIONS.
00334  M01S00227.1aj     +++|****      COMMON DIRECT LOCATION ASSIGNMENTS.
00335  M01S00228.1aj     +++|
00336  M01S00229.1aj     +++|
00337  M01S00230.1aj     +++| T8       EQU    16          SCRATCH
00338  M01S00231.1aj     +++| T9       EQU    17          SCRATCH
Line S00232 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00232.ns2358  ---| AB       EQU    20 - 24     ASSEMBLY BUFFER
Line S00233 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00233.ns2358  ---| CN       EQU    25 - 31     CM WORD BUFFER
Line S00234 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00234.ns2358  ---| FS       EQU    32 - 36     FST ENTRY
00342  M01S00001.ns2358  +++| FS       EQU    20 - 24     FST INFORMATION (5 LOCATIONS)
00343  M01S00002.ns2358  +++| CN       EQU    25 - 31     CM WORD BUFFER (5 LOCATIONS)
00344  M01S00003.ns2358  +++| AB       EQU    32 - 36     ASSEMBLY BUFFER (5 LOCATIONS)
00345  M01S00235.1aj     +++| EP       EQU    37          ENTRY POINT POINTER
Line S00236 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00236.v23l617 ---| SP       EQU    40 - 44     STATEMENT POINTER
00347  M01S00013.v23l617 +++| SP       EQU    40 - 44     COMMAND POINTER
00348  M01S00237.1aj     +++| JO       EQU    45          JOB EJT ORDINAL
00349  M01S00238.1aj     +++| EF       EQU    46          ERROR FLAG
00350  M01S00239.1aj     +++| RO       EQU    47          ROLLOUT FLAG
00351  M01S00240.1aj     +++| FA       EQU    57          ADDRESS OF FNT ENTRY
00352  M01S00241.1aj     +++| CW       EQU    60 - 64     LIBRARY CONTROL WORD
00353  M01S00242.1aj     +++| RF       EQU    65          REPRIEVE ERROR FLAG
00354  M01S00243.1aj     +++|                             = 0 IF NO REPRIEVE.
00355  M01S00244.1aj     +++|                             = MASK BITS IF EXTENDED REPRIEVE.
00356  M01S00245.1aj     +++|                             = ERROR OPTIONS IF REGULAR REPRIEVE.
00357  M01S00246.1aj     +++| SC       EQU    67          SCP ACTIVITY FLAG BITS (*0ST*)
00358  M01S00247.1aj     +++|****
Line S00248 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00248.1aj106  ---|          SPACE  4,10
Line S00249 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00249.1aj106  ---|**        RECORD TYPES.
Line S00250 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00250.1aj106  ---|
Line S00251 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00251.1aj106  ---|
Line S00252 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00252.1aj106  ---| RLRT     EQU    3           RELOCATABLE PROGRAM
Line S00253 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00253.1aj106  ---| OVRT     EQU    4           OVERLAY
Line S00254 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00254.1aj106  ---| ABRT     EQU    11          ABSOLUTE PROGRAM
Line S00255 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00255.1aj106  ---| CLRT     EQU    20          *CCL* PROCEDURE
00367  M01S00256.1aj     +++|          TITLE  MAIN PROGRAM.
00368  M01S00257.1aj     +++| AJS      SPACE  4,10
00369  M01S00258.1aj     +++|**        AJS - MAIN PROGRAM.
00370  M01S00259.1aj     +++|*
00371  M01S00260.1aj     +++|*         ENTRY  (IR+2) = FUNCTION CODE.
00372  M01S00261.1aj     +++|*
00373  M01S00262.1aj     +++|*         EXIT   TO FUNCTION CODE PROCESSOR.
00374  M01S00263.1aj     +++|*
00375  M01S00264.1aj     +++|*         USES   T9.
00376  M01S00265.1aj     +++|*
00377  M01S00266.1aj     +++|*         CALLS  PRS.
00378  M01S00267.1aj     +++|
00379  M01S00268.1aj     +++|
00380  M01S00269.1aj     +++|          ORG    PPFW
00381  M01S00270.1aj     +++|
00382  M01S00271.1aj     +++| AJS      BSS    0           ENTRY
00383  M01S00272.1aj     +++|          RJM    PRS         PRESET PROGRAM
00384  M01S00273.1aj     +++|
00385  M01S00274.1aj     +++|*         EXECUTE FUNCTION CODE PROCESSOR.
00386  M01S00275.1aj     +++|
00387  M01S00276.1aj     +++|          STD    T9          SET PROCESSOR ADDRESS
00388  M01S00277.1aj     +++|          LJM    0,T9        ENTER FUNCTION CODE PROCESSOR
00389  M01S00278.1aj     +++| AJS      SPACE  4,10
00390  M01S00279.1aj     +++|**        AJS - GLOBAL DATA STORAGE.
00391  M01S00280.1aj     +++|
00392  M01S00281.1aj     +++|
00393  M01S00282.1aj     +++| JBSC     CON    0           JOB SERVICE CLASS
00394  M01S00283.1aj     +++| JBOT     CON    0           JOB ORIGIN TYPE
00395  M01S00284.1aj     +++| JBCS     CON    0           JOB CONNECTION STATUS
00396  M01S00285.1aj     +++| JTOP     CON    0           JOB TERMINATION OPTION
Line S00286 Modification History
M01 (Added by) 1aj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00286.242l642 ---| JTFG     CON    0           JOB TERMINATION FLAG
00398  M01S00001.242l642 +++| JTFG     CON    0           JOB TERMINATION FLAGS
Line S00001 Modification History
M01 (Added by) ns2323
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00001.261l700 ---| PRCF     CON    0           PROLOGUE/EPILOGUE CONTROL FLAGS:
Line S00002 Modification History
M01 (Added by) ns2323
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00400  M02S00002.261l700 ---|                             0 = NO PROCESSING REQUIRED.
Line S00003 Modification History
M01 (Added by) ns2323
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00003.261l700 ---|                             1 = CLEAR CONTROL FLAGS.
Line S00004 Modification History
M01 (Added by) ns2323
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00004.261l700 ---|                             2 = SET CHARGE REQUIRED.
Line S00005 Modification History
M01 (Added by) ns2323
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00005.261l700 ---|                             3 = SET CHARGE REQUIRED ON ABORT.
Line S00006 Modification History
M01 (Added by) ns2323
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00006.261l700 ---|                             4 = TERMINATE JOB.
00405  M01S00001.261l700 +++| PRCF     CON    0           PROLOGUE/EPILOGUE CONTROL FLAG
00406  M01S00287.1aj     +++| SCAF     CON    0           SCP ACTIVITY FLAGS:
00407  M01S00288.1aj     +++|                             BIT 0 = UCP WITH CONNECTION TO AN SCP.
00408  M01S00289.1aj     +++|                             BIT 1 = SCP WITH CONNECTION TO UCP(S).
00409  M01S00290.1aj     +++|                             BIT 3 = *SSIW* IDENTIFICATION MUST
00410  M01S00291.1aj     +++|                                     BE CLEARED.
00411  M01S00001.ns2433b +++| TSAF     CON    0           *IAF* CP NUMBER/ACCESSIBILITY FLAG
00412  M01S00292.1aj     +++|          TITLE  MAIN FUNCTION CODE PROCESSORS.
00413  M01S00293.1aj     +++| MTR      SPACE  4,10
00414  M01S00294.1aj     +++|**        MTR - MONITOR CALL (FUNCTION CODE 0).
00415  M01S00295.1aj     +++|*
00416  M01S00296.1aj     +++|*         EXIT   TO *CSR*.
00417  M01S00297.1aj     +++|
00418  M01S00298.1aj     +++|
00419  M01S00299.1aj     +++|* MTR     LJM    CSR         CHECK FOR SPECIAL SYSTEM REQUEST
00420  M01S00300.1aj     +++| SCH      SPACE  4,15
00421  M01S00301.1aj     +++|**        SCH - SCHEDULER CALL (FUNCTION CODE 1).
00422  M01S00302.1aj     +++|*
00423  M01S00303.1aj     +++|*         EXIT   TO EXIT PROCESSOR DEFINED BY (A) ON RETURN
00424  M01S00304.1aj     +++|*                FROM OVERLAY *3AA*.
00425  M01S00305.1aj     +++|*
00426  M01S00306.1aj     +++|*         USES   T9.
00427  M01S00307.1aj     +++|*
00428  M01S00308.1aj     +++|*         CALLS  *3AA*.
00429  M01S00309.1aj     +++|*
00430  M01S00310.1aj     +++|*         MACROS EXECUTE.
00431  M01S00311.1aj     +++|
00432  M01S00312.1aj     +++|
00433  M01S00313.1aj     +++| SCH      BSS    0           ENTRY
00434  M01S00314.1aj     +++|          EXECUTE  3AA       EXECUTE BEGIN-JOB PROCESSOR
00435  M01S00315.1aj     +++|          STD    T9          STORE *3AA* EXIT CODE
00436  M01S00316.1aj     +++|          LDM    SCHA,T9     SET *3AA* EXIT PROCESSOR ADDRESS
00437  M01S00317.1aj     +++|          STD    T9
00438  M01S00318.1aj     +++|          LJM    0,T9        ENTER *3AA* EXIT PROCESSOR
00439  M01S00319.1aj     +++|
00440  M01S00320.1aj     +++|
00441  M01S00321.1aj     +++| SCHA     INDEX              TABLE OF *3AA* EXIT PROCESSORS
00442  M01S00322.1aj     +++|          INDEX  0,ADJ       ADVANCE JOB
00443  M01S00323.1aj     +++|          INDEX  1,ENJ       END JOB
00444  M01S00324.1aj     +++|          INDEX  2
00445  M01S00325.1aj     +++| DIS      SPACE  4,10
00446  M01S00326.1aj     +++|**        DIS - *DIS* CALL (FUNCTION CODE 2).
00447  M01S00327.1aj     +++|*
00448  M01S00328.1aj     +++|*         EXIT   TO *CSR*.
00449  M01S00329.1aj     +++|
00450  M01S00330.1aj     +++|
00451  M01S00331.1aj     +++|* DIS     LJM    CSR         CHECK FOR SPECIAL SYSTEM REQUEST
00452  M01S00332.1aj     +++| PPC      SPACE  4,10
00453  M01S00333.1aj     +++|**        PPC - PP CALLS (FUNCTION CODES 2 AND 3).
00454  M01S00334.1aj     +++|*
00455  M01S00335.1aj     +++|*         EXIT   TO *DPP* TO DROP PP.
Line S00336 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00336.v23l617 ---|*                TO *XCS* TO EXECUTE CONTROL STATEMENT.
00457  M01S00014.v23l617 +++|*                TO *XCS* TO EXECUTE COMMAND.
00458  M01S00337.1aj     +++|*
00459  M01S00338.1aj     +++|*         USES   CM.
00460  M01S00339.1aj     +++|*
Line S00340 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00340.ns2009  ---|*         CALLS  SCP, *3AB*.
Line S00341 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00341.ns2009  ---|*
Line S00342 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00342.ns2009  ---|*         MACROS EXECUTE.
00464  M01S00001.ns2009  +++|*         CALLS  PES.
00465  M01S00343.1aj     +++|
00466  M01S00344.1aj     +++|
00467  M01S00345.1aj     +++| PPC      BSS    0           ENTRY
00468  M01S00346.1aj     +++|          LDD    RF          CHECK REPRIEVE FLAG
00469  M01S00347.1aj     +++|          LPC    100
00470  M01S00348.1aj     +++|          ADD    EF
Line S00349 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00471  M02S00349.ns2323  ---|          ZJN    PPC1        IF NO REPRIEVE OR ERROR FLAG
00472  M01S00007.ns2323  +++|          ADM    PRCF
00473  M01S00008.ns2323  +++|          ZJN    PPC1        IF NO ERROR FLAG OR JOB STEP PROCESSING
Line S00350 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00350.ns2009  ---|          EXECUTE  3AB       EXECUTE ERROR PROCESSOR
Line S00351 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00351.ns2009  ---|          RJM    SCP         CHECK SCP ACTIVITY
00476  M01S00002.ns2009  +++|          RJM    PES         PROCESS ERROR AND SCP CONNECTIONS
00477  M01S00352.1aj     +++|          LJM    DPP         DROP PP
00478  M01S00353.1aj     +++|
00479  M01S00354.1aj     +++| PPC1     STD    CM          CLEAR ERROR MESSAGE
00480  M01S00355.1aj     +++|          LDD    IR+4
00481  M01S00356.1aj     +++|          SHN    21-1
00482  M01S00357.1aj     +++|          PJN    PPC2        IF NO RETURN OF ERROR MESSAGE
00483  M01S00358.1aj     +++|          LDD    CP
00484  M01S00359.1aj     +++|          ADN    MS2W
00485  M01S00360.1aj     +++|          CWD    CM
Line S00361 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00361.v23l617 ---| PPC2     LJM    XCS         EXECUTE CONTROL STATEMENT
00487  M01S00015.v23l617 +++| PPC2     LJM    XCS         EXECUTE COMMAND
00488  M01S00362.1aj     +++|          TITLE  RESIDENT SUBROUTINES.
00489  M01S00363.1aj     +++| ADJ      SPACE  4,15
00490  M01S00364.1aj     +++|**        ADJ - ADVANCE JOB.
00491  M01S00365.1aj     +++|*
00492  M01S00366.1aj     +++|*         PROCESSES ERROR FLAG OR REPRIEVE, IF SET, AND
Line S00367 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00367.v23l617 ---|*         EXECUTES THE NEXT CONTROL STATEMENT, IF PRESENT.
Line S00368 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00368.v23l617 ---|*         IF NO CONTROL STATEMENTS REMAIN, THE END-OF-JOB
00495  M01S00016.v23l617 +++|*         EXECUTES THE NEXT COMMAND, IF PRESENT.
00496  M01S00017.v23l617 +++|*         IF NO COMMANDS REMAIN, THE END-OF-JOB
00497  M01S00369.1aj     +++|*         PROCESSOR WILL BE CALLED.
00498  M01S00370.1aj     +++|*
00499  M01S00371.1aj     +++|*         EXIT   TO *ENJ* TO END JOB.
Line S00372 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00500  M02S00372.v23l617 ---|*                TO *XCS* TO EXECUTE CONTROL STATEMENT.
00501  M01S00018.v23l617 +++|*                TO *XCS* TO EXECUTE COMMAND.
Line S00373 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00502  M02S00373.ns2433b ---|*                TO *RTJ* TO ROLLOUT ON-LINE INTERACTIVE JOB.
00503  M01S00374.1aj     +++|*                TO *ROJ* TO ROLLOUT JOB.
00504  M01S00375.1aj     +++|*
Line S00376 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00376.ns2009  ---|*         CALLS  /3AF/RCF, SCP, *3AB*, *3AF*.
00506  M01S00003.ns2009  +++|*         CALLS  PES, /3AF/RCF, *3AF*.
00507  M01S00377.1aj     +++|*
00508  M01S00378.1aj     +++|*         MACROS EXECUTE.
00509  M01S00379.1aj     +++|
00510  M01S00380.1aj     +++|
00511  M01S00381.1aj     +++| ADJ      BSS    0           ENTRY
00512  M01S00382.1aj     +++|          LDD    RO          CHECK ROLLOUT FLAG
00513  M01S00383.1aj     +++|          ZJN    ADJ1        IF ROLLOUT NOT SET
00514  M01S00384.1aj     +++|          LDN    0           DO NOT PASS ERROR FLAG
00515  M01S00385.1aj     +++|          STD    EF
00516  M01S00386.1aj     +++|          LJM    ROJ         ROLLOUT JOB
00517  M01S00387.1aj     +++|
00518  M01S00388.1aj     +++|*         PROCESS REPRIEVE OR ERROR FLAG.
00519  M01S00389.1aj     +++|
00520  M01S00390.1aj     +++| ADJ1     LDD    RF          CHECK REPRIEVE FLAG
00521  M01S00391.1aj     +++|          LPC    100
00522  M01S00392.1aj     +++|          ADD    EF
Line S00393 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00393.ns2323  ---|          ZJN    ADJ3        IF NO REPRIEVE OR ERROR FLAG
00524  M01S00009.ns2323  +++|          ADM    PRCF
00525  M01S00010.ns2323  +++|          ZJN    ADJ3        IF NO ERROR FLAG OR JOB STEP PROCESSING
Line S00394 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00394.ns2009  ---|          EXECUTE  3AB
Line S00395 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00395.ns2009  ---|          RJM    SCP         CHECK SCP ACTIVITY
00528  M01S00004.ns2009  +++|          RJM    PES         PROCESS ERROR AND SCP CONNECTIONS
00529  M01S00396.1aj     +++|          LDD    CP
00530  M01S00397.1aj     +++|          ADC    SEPW
00531  M01S00398.1aj     +++|          CRD    CM
00532  M01S00399.1aj     +++|          LDD    CM          CHECK *SSJ=* JOB
00533  M01S00400.1aj     +++|          SHN    21-2
00534  M01S00401.1aj     +++|          PJN    ADJ2        IF NOT *SSJ=*
00535  M01S00402.1aj     +++|          EXECUTE  3AF
00536  M01S00403.1aj     +++|          LDN    0           INDICATE JOB NOT BOTH *SSJ=* AND *DMP=*
00537  M01S00404.1aj     +++|          RJM    /3AF/RCF    RESTORE CONTROL POINT FIELDS
Line S00405 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00405.ns2044  ---| ADJ2     LDC    0           CHECK TERMINAL NUMBER
00539  M01S00001.ns2044  +++| ADJ2     LDN    0
00540  M01S00002.ns2044  +++|*         LDN    1           (CM/CPU PARITY ERROR)
00541  M01S00003.ns2044  +++| ADJA     EQU    *-1         (CM/CPU PARITY ERROR FLAG)
Line S00004 Modification History
M01 (Added by) ns2044
M02 (Updated by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00004.243l647 ---|          NJP    TER4        IF CM/CPU PARITY ERROR, FREEZE JOB
00543  M01S00001.243l647 +++|          NJP    TER5        IF CM/CPU PARITY ERROR, FREEZE JOB
00544  M01S00005.ns2044  +++|          LDC    **          CHECK FOR TERMINAL JOB
Line S00406 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00545  M02S00406.v23l617 ---| TSTN     EQU    *-1         TIMESHARING TERMINAL NUMBER
Line S00407 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00407.v23l617 ---|                             = 0 IF NOT ONLINE, TIMESHARING JOB
00547  M01S00019.v23l617 +++| TSTN     EQU    *-1         INTERACTIVE TERMINAL NUMBER
00548  M01S00020.v23l617 +++|                             = 0 IF NOT ONLINE, INTERACTIVE JOB
Line S00408 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj31
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00408.1aj31   ---|          ZJN    ADJ3        IF NOT TIMESHARING JOB
Line S00409 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj31
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00409.1aj31   ---|          LJM    RTJ         ROLLOUT TIMESHARING JOB
00551  M01S00001.1aj31   +++|          NJN    ADJ5        IF INTERACTIVE JOB
00552  M01S00410.1aj     +++|
Line S00411 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00411.v23l617 ---|*         ADVANCE TO NEXT CONTROL STATEMENT.
00554  M01S00021.v23l617 +++|*         ADVANCE TO NEXT COMMAND.
00555  M01S00412.1aj     +++|
Line S00413 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00413.v23l617 ---| ADJ3     LDD    CP          READ CONTROL STATEMENT POINTERS
Line S00022 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00022.ns2323  ---| ADJ3     LDD    CP          READ COMMAND POINTERS
Line S00414 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00414.ns2323  ---|          ADK    CSPW
Line S00415 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00415.ns2323  ---|          CRD    SP
Line S00416 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
M03 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00560  M03S00416.ns2323  ---|          LDD    SP+3        CHECK CONTROL STATEMENT BUFFER
Line S00023 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00023.ns2323  ---|          LDD    SP+3        CHECK COMMAND BUFFER
Line S00417 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00417.ns2323  ---|          LMD    SP+4
Line S00418 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00418.ns2323  ---|          NJN    ADJ4        IF NOT EMPTY
Line S00419 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00419.ns2323  ---|          LDD    SP+1        CHECK RECORD STATUS
Line S00420 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00565  M02S00420.ns2323  ---|          SHN    21-13
Line S00421 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00421.ns2323  ---|          PJN    ADJ4        IF NOT EOR
Line S00422 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
M03 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00567  M03S00422.ns2323  ---|          LDD    CP          CHECK FOR *TCS* EXECUTE CONTROL STATEMENT
Line S00024 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00024.ns2323  ---|          LDD    CP          CHECK FOR *TCS* EXECUTE COMMAND
Line S00423 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00423.ns2323  ---|          ADK    RFCW
Line S00424 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00424.ns2323  ---|          CRD    CM
Line S00425 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00571  M02S00425.ns2323  ---|          LDD    CM+3
Line S00426 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00572  M02S00426.ns2323  ---|          SCN    77
Line S00427 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00427.ns2323  ---|          ADD    CM+2
Line S00428 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns21000
M03 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00574  M03S00428.ns2323  ---|          ZJP    ENJ         IF NO EXECUTE STATEMENT FROM CM
Line S00004 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
M03 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00575  M03S00004.ns2323  ---|          ZJN    ADJ5        IF NO EXECUTE STATEMENT FROM CM
Line S00429 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
M03 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00576  M03S00429.ns2323  ---| ADJ4     LJM    XCS         EXECUTE CONTROL STATEMENT
Line S00025 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00025.ns2323  ---|          ZJN    ADJ5        IF NO EXECUTE COMMAND FROM CM
00578  M01S00011.ns2323  +++| ADJ3     LDC    0
00579  M01S00012.ns2323  +++|*         LDC    1           (COMMANDS REMAINING IN BUFFER OR CM)
00580  M01S00013.ns2323  +++| ADJB     EQU    *-1         (PENDING COMMANDS FLAG)
00581  M01S00014.ns2323  +++|          ZJN    ADJ5        IF NO COMMANDS PENDING IN BUFFER OR CM
00582  M01S00026.v23l617 +++| ADJ4     LJM    XCS         EXECUTE COMMAND
00583  M01S00005.ns21000 +++|
Line S00006 Modification History
M01 (Added by) ns21000
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00006.242l642 ---| ADJ5     NFA    SHCN        CHECK *SHELL* CONTROL
00585  M01S00002.242l642 +++| ADJ5     LDN    0
00586  M01S00003.242l642 +++|*         LDN    1           (NO NFL)
00587  M01S00004.242l642 +++| ADJC     EQU    *-1
00588  M01S00005.242l642 +++|          NJN    ADJ6        IF NO NFL
Line S00006 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2429
Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00006.ns2429  ---|          NFA    SHCN        CHECK *SHELL* CONTROL
00590  M01S00001.ns2429  +++|          LDD    EF
00591  M01S00002.ns2429  +++|          ZJN    ADJ5.1      IF NO ERROR FLAG SET
00592  M01S00003.ns2429  +++|          SBN    TAET+1
00593  M01S00004.ns2429  +++|          MJN    ADJ6        IF TERMINAL INTERRUPT
00594  M01S00005.ns2429  +++| ADJ5.1   NFA    SHCN        CHECK *SHELL* CONTROL
00595  M01S00007.ns21000 +++|          CRD    CM
00596  M01S00008.ns21000 +++|          LDD    CM
00597  M01S00009.ns21000 +++|          ZJN    ADJ6        IF NO *SHELL* CONTROL
00598  M01S00010.ns21000 +++|          LDM    TSTN
00599  M01S00011.ns21000 +++|          ZJN    ADJ6        IF NOT INTERACTIVE
00600  M01S00012.ns21000 +++|          LDD    CM+4
00601  M01S00013.ns21000 +++|          SHN    21-2
Line S00014 Modification History
M01 (Added by) ns21000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00014.v23l617 ---|          MJN    ADJ4        IF INTERACTIVE STATEMENTS MONITORED
Line S00027 Modification History
M01 (Added by) v23l617
M02 (Updated by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00027.1aj116  ---|          MJN    ADJ4        IF INTERACTIVE COMMANDS MONITORED
00604  M01S00001.1aj116  +++|          PJN    ADJ6        IF INTERACTIVE COMMANDS NOT MONITORED
00605  M01S00002.1aj116  +++|          LDC    0
00606  M01S00003.1aj116  +++| CRQF     EQU    *-1         (CHARGE REQUIRED FLAG)
00607  M01S00004.1aj116  +++|          ZJN    ADJ4        IF CHARGE NOT REQUIRED
00608  M01S00015.ns21000 +++| ADJ6     LJM    ENJ         END JOB
00609  M01S00430.1aj     +++| CPP      SPACE  4,10
00610  M01S00431.1aj     +++|**        CPP - CALL PP PROGRAM.
00611  M01S00432.1aj     +++|*
00612  M01S00433.1aj     +++|*         ENTRY  (A) = NAME OF PP PROGRAM TO BE CALLED.
00613  M01S00434.1aj     +++|*                (IR+2 - IR+4) = PROGRAM PARAMETERS.
00614  M01S00435.1aj     +++|*
00615  M01S00436.1aj     +++|*         EXIT   TO *PPR* TO EXECUTE PP PROGRAM.
00616  M01S00437.1aj     +++|
00617  M01S00438.1aj     +++|
00618  M01S00439.1aj     +++| CPP      BSS    0           ENTRY
00619  M01S00440.1aj     +++|          SHN    14          SET PP NAME IN INPUT REGISTER
00620  M01S00441.1aj     +++|          STD    IR
00621  M01S00442.1aj     +++|          SHN    -6
00622  M01S00443.1aj     +++|          LMD    IR+1
00623  M01S00444.1aj     +++|          SCN    77
00624  M01S00445.1aj     +++|          LMD    IR+1
00625  M01S00446.1aj     +++|          STD    IR+1
00626  M01S00447.1aj     +++|          LDD    IA          STORE INPUT REGISTER
00627  M01S00448.1aj     +++|          CWD    IR
00628  M01S00449.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
00629  M01S00450.1aj     +++| CSR      SPACE  4,15
00630  M01S00451.1aj     +++|**        CSR - CHECK FOR SPECIAL SYSTEM REQUEST.
00631  M01S00452.1aj     +++|*
00632  M01S00453.1aj     +++|*         EXIT   TO *ADJ* TO ADVANCE JOB.
00633  M01S00454.1aj     +++|*                TO *DPP* TO DROP PP.
00634  M01S00455.1aj     +++|*                TO *PPC* TO PROCESS ERROR REPRIEVE ON *DMP=* JOB.
00635  M01S00456.1aj     +++|*                TO */3AF/PSR* OR */3AF/PSR2* TO PROCESS SPECIAL
00636  M01S00457.1aj     +++|*                PROCESSOR REQUEST.
Line S00458 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00458.v23l617 ---|*                TO *TCS* TO TRANSLATE CONTROL STATEMENT.
00638  M01S00028.v23l617 +++|*                TO *TCS* TO TRANSLATE COMMAND.
00639  M01S00459.1aj     +++|*
Line S00460 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00460.ns2738  ---|*         USES   CM - CM+4, CN - CN+4, AB - AB+4, EF, RO.
00641  M01S00001.ns2738  +++|*         USES   EF, RO ,T3 , CM - CM+4, CN - CN+4, AB - AB+4.
00642  M01S00461.1aj     +++|*
00643  M01S00462.1aj     +++|*         CALLS  /3AE/CLD, CUA, DFM, /3AF/PSR, /3AF/RCF, SCP, TCS.
00644  M01S00463.1aj     +++|*
Line S00464 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00464.ns2738  ---|*         MACROS EXECUTE.
00646  M01S00002.ns2738  +++|*         MACROS EXECUTE, MONITOR.
00647  M01S00465.1aj     +++|
00648  M01S00466.1aj     +++|
00649  M01S00467.1aj     +++| CSR      BSS    0           ENTRY
00650  M01S00468.1aj     +++|          LDD    CP          READ SPECIAL ENTRY POINT WORD
00651  M01S00469.1aj     +++|          ADK    SEPW
00652  M01S00470.1aj     +++|          CRD    CM
00653  M01S00471.1aj     +++|          ADN    SPCW-SEPW   READ SPECIAL CALL WORD
00654  M01S00472.1aj     +++|          CRD    CN
00655  M01S00473.1aj     +++|          LDD    CN
Line S00474 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00474.ns2323  ---|          NJN    CSR2        IF REQUEST PRESENT
00657  M01S00015.ns2323  +++|          NJP    CSR2        IF DMP= REQUEST PRESENT
00658  M01S00475.1aj     +++|          LDD    FS
00659  M01S00476.1aj     +++|          ADD    RO
00660  M01S00477.1aj     +++|          NJN    CSR1        IF JOB ACTIVITY OR ROLLOUT REQUESTED
00661  M01S00478.1aj     +++|          LDD    RF
00662  M01S00479.1aj     +++|          LPC    100
00663  M01S00480.1aj     +++|          ADD    EF
Line S00481 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00481.ns2323  ---|          NJN    CSR1        IF REPRIEVE OR ERROR FLAG
00665  M01S00016.ns2323  +++|          ADM    PRCF
00666  M01S00017.ns2323  +++|          NJN    CSR1        IF ERROR FLAG OR JOB STEP PROCESSING
00667  M01S00482.1aj     +++|          LDD    CM
00668  M01S00483.1aj     +++|          SHN    21-2
00669  M01S00484.1aj     +++|          PJN    CSR1        IF NOT *SSJ=*
00670  M01S00485.1aj     +++|          EXECUTE  3AF
00671  M01S00486.1aj     +++|          LDN    0           JOB IS NOT BOTH *SSJ=* AND *DMP=*
00672  M01S00487.1aj     +++|          RJM    /3AF/RCF    RESTORE CONTROL POINT FIELDS
00673  M01S00488.1aj     +++| CSR1     LDD    IR+2
00674  M01S00489.1aj     +++|          NJP    PPC         IF NOT FUNCTION 0
00675  M01S00490.1aj     +++|          LDD    IR+4
00676  M01S00491.1aj     +++|          LMN    2
00677  M01S00492.1aj     +++|          ZJP    DPP         IF *DIS* CALL
00678  M01S00493.1aj     +++|          LJM    ADJ         ADVANCE JOB
00679  M01S00494.1aj     +++|
00680  M01S00495.1aj     +++| CSR2     LDD    IR+4
00681  M01S00496.1aj     +++|          LMN    1
00682  M01S00497.1aj     +++|          NJN    CSR4        IF *1RO* NOT ALREADY CALLED
00683  M01S00498.1aj     +++| CSR3     EXECUTE  TCS
00684  M01S00499.1aj     +++|
00685  M01S00500.1aj     +++| CSR4     LDD    CN+1
00686  M01S00501.1aj     +++|          SHN    21-5
00687  M01S00502.1aj     +++|          PJN    CSR6        IF NO SPECIAL REQUEST ACTIVE
00688  M01S00503.1aj     +++|          LDD    RO
00689  M01S00504.1aj     +++|          NJN    CSR1        IF ROLLOUT SET
00690  M01S00505.1aj     +++|          LDD    EF
00691  M01S00506.1aj     +++|          ZJN    CSR5        IF NO ERROR
Line S00507 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj98
Seq #  *Modification Id* Act 
----------------------------+
00692  M02S00507.1aj98   ---|          LDD    T1          CHECK FOR EXTENDED REPRIEVE PROCESSING
Line S00508 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj98
Seq #  *Modification Id* Act 
----------------------------+
00693  M02S00508.1aj98   ---|          SHN    21-12
Line S00509 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj98
Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00509.1aj98   ---|          PJN    CSR5        IF NOT EXTENDED REPRIEVE
00695  M01S00001.1aj98   +++| CSRC     LDN    0           CHECK FOR EXTENDED REPRIEVE PROCESSING
00696  M01S00002.1aj98   +++|*         LDN    1           (IF EXTENDED REPRIEVE PROCESSING)
00697  M01S00003.1aj98   +++|          ZJN    CSR5        IF NOT EXTENDED REPRIEVE PROCESSING
00698  M01S00510.1aj     +++|          LDD    RF
00699  M01S00511.1aj     +++|          ZJN    CSR5        IF ERROR MASK NOT SET
00700  M01S00512.1aj     +++|          LJM    PPC         PROCESS ERROR REPRIEVE ON *DMP=* JOB
00701  M01S00513.1aj     +++|
Line S00514 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00514.ns2738  ---| CSR5     LDD    CN+2
Line S00515 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00515.ns2738  ---|          SHN    21-13
Line S00516 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00516.ns2738  ---|          PJN    CSR3        IF *DMP=* JOB WAS NEVER UCP
Line S00517 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00517.ns2738  ---|          RJM    SCP         CLEAR ANY OUTSTANDING SCP CONNECTIONS
00706  M01S00003.ns2738  +++| CSR5     RJM    SCP         CLEAR ANY OUTSTANDING SCP CONNECTIONS
00707  M01S00518.1aj     +++|          UJN    CSR3        RESTART ORIGINAL JOB
00708  M01S00519.1aj     +++|
00709  M01S00520.1aj     +++| CSR6     LDD    CN
00710  M01S00521.1aj     +++|          LMN    77
Line S00522 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00522.v23l617 ---|          NJN    CSR7        IF NOT CONTROL STATEMENT CALL
00712  M01S00029.v23l617 +++|          NJN    CSR7        IF NOT COMMAND CALL
00713  M01S00523.1aj     +++|          LDD    FL
00714  M01S00524.1aj     +++|          ZJP    CSR8        IF NO FL ASSIGNED
00715  M01S00525.1aj     +++|          EXECUTE  3AF
00716  M01S00526.1aj     +++|          LJM    /3AF/PSR2   PROCESS SPECIAL PROCESSOR REQUEST
00717  M01S00527.1aj     +++|
00718  M01S00528.1aj     +++|
00719  M01S00529.1aj     +++|*         CHECK IF *DMP=* PROGRAM CAN BE CALLED FROM PROGRAM WITH
00720  M01S00530.1aj     +++|*         SECURE MEMORY SET.
00721  M01S00531.1aj     +++|
00722  M01S00532.1aj     +++| CSR7     LDC    TLCN-2      CHECK TABLE OF LEGAL CALL NAMES
00723  M01S00533.1aj     +++|          STD    T3
00724  M01S00534.1aj     +++| CSR7.1   LDN    2           CHECK NEXT NAME
00725  M01S00535.1aj     +++|          RAD    T3
00726  M01S00536.1aj     +++|          LDI    T3          COMPARE FIRST PART OF CALL NAME
00727  M01S00537.1aj     +++|          ZJN    CSR7.2      IF END OF TABLE
00728  M01S00538.1aj     +++|          LMD    CN
00729  M01S00539.1aj     +++|          NJN    CSR7.1      IF NOT A MATCH
00730  M01S00540.1aj     +++|          LDM    1,T3        COMPARE SECOND PART OF CALL NAME
00731  M01S00541.1aj     +++|          LMD    CN+1
00732  M01S00542.1aj     +++|          SCN    77
00733  M01S00543.1aj     +++|          NJN    CSR7.1      IF NOT A MATCH
00734  M01S00544.1aj     +++|          UJN    CSR9        PROCESS CALL
00735  M01S00545.1aj     +++|
00736  M01S00546.1aj     +++| CSR7.2   LDD    CM
00737  M01S00547.1aj     +++|          SHN    21-2
00738  M01S00548.1aj     +++|          MJN    CSR9        IF *SSJ=* JOB
00739  M01S00549.1aj     +++|          LDD    CP          CHECK SSM STATUS
00740  M01S00550.1aj     +++|          ADC    DBAW
00741  M01S00551.1aj     +++|          CRD    CM
00742  M01S00552.1aj     +++|          LDD    CM
00743  M01S00553.1aj     +++|          SHN    21-13
00744  M01S00554.1aj     +++|          PJN    CSR9        IF NOT SECURE MEMORY
00745  M01S00555.1aj     +++|          RJM    CUA         CHECK USER ACESS
00746  M01S00556.1aj     +++|          ZJN    CSR9        IF ACCESS ALLOWED
00747  M01S00557.1aj     +++| CSR8     LDC    LDNI+PPET   CHANGE ERROR TO *PPET*
00748  M01S00558.1aj     +++|          STM    CSRA
00749  M01S00559.1aj     +++|          LDC    =C* SECURE MEMORY, DUMP DISABLED.*
00750  M01S00560.1aj     +++|          UJN    CSR11       ISSUE ERROR MESSAGE
00751  M01S00561.1aj     +++|
00752  M01S00562.1aj     +++| CSR9     LDN    ZERL        CLEAR NAME
00753  M01S00563.1aj     +++|          CRD    AB
00754  M01S00564.1aj     +++|          LDD    CN          SET CALL NAME
00755  M01S00565.1aj     +++|          STD    AB
00756  M01S00566.1aj     +++|          LDD    CN+1
00757  M01S00567.1aj     +++|          SCN    77
00758  M01S00568.1aj     +++|          STD    AB+1
00759  M01S00569.1aj     +++|          EXECUTE  3AE
00760  M01S00570.1aj     +++|          RJM    /3AE/CLD    SEARCH CLD
Line S00571 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj34
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00571.1aj34   ---|          NJN    CSR12       IF FOUND
00762  M01S00001.1aj34   +++|          NJP    CSR12       IF FOUND
00763  M01S00572.1aj     +++| CSR10    LDC    =C* SPCW CALL ERROR.*
00764  M01S00573.1aj     +++|
00765  M01S00574.1aj     +++|*         ISSUE ERROR MESSAGE.
00766  M01S00575.1aj     +++|
00767  M01S00576.1aj     +++| CSR11    RJM    DFM
00768  M01S00577.1aj     +++|          LDN    ZERL
00769  M01S00578.1aj     +++|          CRD    AB
00770  M01S00579.1aj     +++|          LDD    CP          CLEAR SPECIAL CALL WORD
00771  M01S00580.1aj     +++|          ADC    SPCW
00772  M01S00581.1aj     +++|          CWD    AB
00773  M01S00582.1aj     +++|          LDD    FL
00774  M01S00583.1aj     +++|          ZJN    CSR11.1     IF NO FL ASSIGNED
Line S00584 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00775  M02S00584.v23l617 ---|          LDD    RA          CLEAR RA+1
00776  M01S00030.v23l617 +++|          LDD    RA          CLEAR SYSTEM REQUEST
00777  M01S00585.1aj     +++|          SHN    6
00778  M01S00586.1aj     +++|          ADN    1
00779  M01S00587.1aj     +++|          CWD    AB
Line S00588 Modification History
M01 (Added by) 1aj
M02 (Updated by) 1aj34
Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00588.1aj34   ---|          LDN    0           CLEAR ROLLOUT
00781  M01S00002.1aj34   +++|          LDN    ZERL        CLEAR *STSW* ROLLOUT STATUS
00782  M01S00003.1aj34   +++|          CRD    CM
00783  M01S00004.1aj34   +++|          LDN    1
00784  M01S00005.1aj34   +++|          STD    CM+1
00785  M01S00006.1aj34   +++|          LDD    CP
00786  M01S00007.1aj34   +++|          STD    CM+4
00787  M01S00008.1aj34   +++|          LDD    MA
00788  M01S00009.1aj34   +++|          CWM    CSRB,ON
00789  M01S00010.1aj34   +++|          MONITOR  UTEM
00790  M01S00011.1aj34   +++|*         LDN    0           CLEAR ROLLOUT STATUS
00791  M01S00589.1aj     +++| CSR11.1  STD    RO
00792  M01S00590.1aj     +++| CSRA     LDN    SYET        SET ERROR FLAG
Line S00591 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00591.v23l617 ---|*         LDN    PPET        (INVALID *DMP=* CALL)
00794  M01S00031.v23l617 +++|*         LDN    PPET        (INCORRECT *DMP=* CALL)
00795  M01S00592.1aj     +++|          STD    EF
00796  M01S00593.1aj     +++|          LJM    CSR1        DROP PP
00797  M01S00594.1aj     +++|
00798  M01S00595.1aj     +++| CSR12    CRD    CM          READ PST CONTROL WORD ENTRY
00799  M01S00596.1aj     +++|          LDD    MA          SET ENTRY POINT NAME
00800  M01S00597.1aj     +++|          CWD    AB
00801  M01S00598.1aj     +++|          CRM    /3AE/CL,ON
00802  M01S00599.1aj     +++|          LDD    T2          SAVE PST ADDRESS
00803  M01S00600.1aj     +++|          STD    AB+2
00804  M01S00601.1aj     +++|          LDD    T1
00805  M01S00602.1aj     +++|          STD    AB+1
00806  M01S00603.1aj     +++|          EXECUTE  3AF
00807  M01S00604.1aj     +++|          LJM    /3AF/PSR    PROCESS SPECIAL PROCESSOR REQUEST
00808  M01S00012.1aj34   +++|
00809  M01S00013.1aj34   +++|
00810  M01S00014.1aj34   +++| CSRB     VFD    6/STSW,6/2,6/24D,42/0  CLEAR ROLLOUT STATUS
00811  M01S00605.1aj     +++| TLCN     SPACE  4,10
00812  M01S00606.1aj     +++|**        TLCN - TABLE OF LEGAL *DMP=* PROGRAM CALL NAMES
00813  M01S00607.1aj     +++|*         FOR PROGRAMS WITH SECURE MEMORY SET.
00814  M01S00608.1aj     +++|
00815  M01S00609.1aj     +++| TLCN     BSS    0
00816  M01S00032.v23l617 +++|          DATA   3LCPF
00817  M01S00610.1aj     +++|          DATA   3LCVL
00818  M01S00611.1aj     +++|          DATA   3LLFM
00819  M01S00612.1aj     +++|          DATA   3LPFM
00820  M01S00613.1aj     +++|          DATA   3LREQ
00821  M01S00614.1aj     +++|          CON    0
00822  M01S00615.1aj     +++| DPP      SPACE  4,10
00823  M01S00616.1aj     +++|**        DPP - DROP PP.
00824  M01S00617.1aj     +++|*
00825  M01S00618.1aj     +++|*         ISSUES *JACM* REQUEST TO CLEAR THE JOB ADVANCE FLAG
00826  M01S00619.1aj     +++|*         AND TO DROP THE PPU.
00827  M01S00620.1aj     +++|*
00828  M01S00621.1aj     +++|*         EXIT   TO *PPR*.
00829  M01S00622.1aj     +++|*
00830  M01S00623.1aj     +++|*         MACROS MONITOR.
00831  M01S00624.1aj     +++|
00832  M01S00625.1aj     +++|
00833  M01S00626.1aj     +++| DPP      LDN    DPPS        CLEAR JOB ADVANCE AND DROP PP
00834  M01S00627.1aj     +++|          STD    CM+1
00835  M01S00628.1aj     +++|          MONITOR  JACM
00836  M01S00629.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
00837  M01S00630.1aj     +++| ENJ      SPACE  4,10
00838  M01S00631.1aj     +++|**        ENJ - END JOB.
00839  M01S00632.1aj     +++|*
00840  M01S00633.1aj     +++|*         ENTRY  (TSTN) = TERMINAL NUMBER IF ONLINE.
00841  M01S00634.1aj     +++|*
Line S00635 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00842  M02S00635.ns2433b ---|*         EXIT   TO *RTJ* IF ON-LINE INTERACTIVE JOB.
00843  M01S00002.ns2433b +++|*         EXIT   TO *ROJ1* IF ON-LINE INTERACTIVE JOB.
00844  M01S00636.1aj     +++|*                TO *TER* OTHERWISE.
00845  M01S00001.1aj76   +++|*
Line S00002 Modification History
M01 (Added by) 1aj76
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
00846  M02S00002.ns2719  ---|*         CALLS  SCP.
00847  M01S00001.ns2719  +++|*         CALLS  RJF, SCP.
00848  M01S00637.1aj     +++|
00849  M01S00638.1aj     +++|
00850  M01S00639.1aj     +++| ENJ      BSS    0           ENTRY
00851  M01S00003.1aj76   +++|          RJM    SCP         CHECK SCP ACTIVITY
00852  M01S00002.ns2719  +++|          RJM    RJF         RETURN JOB STEP FILES
00853  M01S00640.1aj     +++|          LDM    TSTN        CHECK TERMINAL NUMBER
Line S00007 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00007.ns2433b ---|          NJN    ENJ2        IF ONLINE
00855  M01S00003.ns2433b +++|          NJN    ROJ1        IF ONLINE
Line S00641 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00641.ns22000 ---|          NJP    RTJ         IF ONLINE, ROLLOUT JOB
Line S00003 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00003.ns2323  ---|          NJN    ENJ1        IF ONLINE
00858  M01S00008.242l642 +++|*         PSN                (NO NFL)
00859  M01S00009.242l642 +++| ENJB     EQU    *-1
Line S00018 Modification History
M01 (Added by) ns2323
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00018.242l642 ---|          NJN    ENJ2        IF ONLINE
00861  M01S00642.1aj     +++|          LJM    TER         TERMINATE JOB
Line S00004 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00004.ns2433b ---|
Line S00005 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00863  M03S00005.ns2433b ---| ENJ1     LDC    0
Line S00006 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00864  M03S00006.ns2433b ---|*         LDC    SYET        (LOGOUT EPILOGUE EXECUTING)
Line S00007 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00865  M03S00007.ns2433b ---| ENJA     EQU    *-1         (LOGOUT EPILOGUE FLAG)
Line S00008 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00866  M03S00008.ns2433b ---|          ZJN    ENJ2        IF NOT LOGOUT EPILOGUE ABORT
Line S00009 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00867  M03S00009.ns2433b ---|          STD    CM+1
Line S00010 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00868  M03S00010.ns2433b ---|          MONITOR  CEFM      SET ERROR TO FORCE LOGOUT
Line S00011 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00869  M03S00011.ns2433b ---|          UJN    DPP         CLEAR JOB ADVANCE AND DROP PPU
Line S00012 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00870  M03S00012.ns2433b ---|
Line S00013 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2308
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00871  M03S00013.ns2433b ---| ENJ2     UJN    RTJ         ROLLOUT TERMINAL JOB
Line S00001 Modification History
M01 (Added by) ns2308
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00001.ns2433b ---| ENJ2     LJM    RTJ         ROLLOUT TERMINAL JOB
00873  M01S00004.ns2433b +++| ROJ      SPACE  4,10
00874  M01S00005.ns2433b +++|**        ROJ - ROLLOUT JOB.
00875  M01S00006.ns2433b +++|*
00876  M01S00007.ns2433b +++|*         SETS UP LINKAGE TO ROLLOUT JOB.
00877  M01S00008.ns2433b +++|*
00878  M01S00009.ns2433b +++|*         EXIT   TO *IRO*.
00879  M01S00010.ns2433b +++|
00880  M01S00011.ns2433b +++|
00881  M01S00012.ns2433b +++| ROJ      BSS    0           ENTRY
00882  M01S00013.ns2433b +++|          LDM    TSTN        CHECK TERMINAL NUMBER
00883  M01S00014.ns2433b +++|          ZJN    IRO         IF NOT INTERACTIVE JOB
00884  M01S00015.ns2433b +++| ROJ1     LDD    EF          SET ERROR FLAG FOR *1RO*
00885  M01S00016.ns2433b +++|*         UJN    IRO         ROLLOUT INTERACTIVE JOB
00886  M01S00643.1aj     +++| IRO      SPACE  4,15
00887  M01S00644.1aj     +++|**        IRO - EXECUTE *1RO*.
00888  M01S00645.1aj     +++|*
00889  M01S00646.1aj     +++|*         LOADS AND EXECUTES *1RO* IN THIS PP.
00890  M01S00647.1aj     +++|*
Line S00648 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00648.v23l617 ---|*         ENTRY  (A) = TIMESHARING ERROR FLAG.
00892  M01S00033.v23l617 +++|*         ENTRY  (A) = INTERACTIVE ERROR FLAG.
00893  M01S00649.1aj     +++|*
00894  M01S00650.1aj     +++|*         EXIT   TO *CPP*.
00895  M01S00651.1aj     +++|*
00896  M01S00652.1aj     +++|*         USES   IR+2, IR+4, CM - CM+4.
00897  M01S00653.1aj     +++|*
00898  M01S00654.1aj     +++|*         CALLS  *1RO*.
00899  M01S00655.1aj     +++|*
00900  M01S00656.1aj     +++|*         MACROS EXECUTE.
00901  M01S00657.1aj     +++|
00902  M01S00658.1aj     +++|
00903  M01S00659.1aj     +++| IRO      BSS    0           ENTRY
Line S00660 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00660.v23l617 ---|          STD    IR+4        SET TIMESHARING ERROR FLAG
00905  M01S00034.v23l617 +++|          STD    IR+4        SET INTERACTIVE ERROR FLAG
00906  M01S00661.1aj     +++|          LDN    0           INDICATE NORMAL ROLLOUT
00907  M01S00662.1aj     +++|          STD    IR+2
00908  M01S00663.1aj     +++|          LDM    JTOP
00909  M01S00664.1aj     +++|          LMN    SUJT
00910  M01S00665.1aj     +++|          ZJN    IRO1        IF SUSPEND TERMINATION OPTION
00911  M01S00666.1aj     +++|          LDD    CP          UNCONDITIONALLY CLEAR SUSPEND FLAG
00912  M01S00667.1aj     +++|          ADN    STSW
00913  M01S00668.1aj     +++|          CRD    CM
Line S00669 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00669.ns2696  ---|          LDD    CM+2        CHECK SUSPEND OPTION
Line S00670 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00670.ns2696  ---|          SHN    21-6
Line S00671 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00671.ns2696  ---|          PJN    IRO1        IF SUSPEND FLAG NOT SET
Line S00002 Modification History
M01 (Added by) ns2308
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00917  M02S00002.ns2696  ---|          LDD    CM+4
Line S00003 Modification History
M01 (Added by) ns2308
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00003.ns2696  ---|          LPK    360
Line S00004 Modification History
M01 (Added by) ns2308
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00004.ns2696  ---|          NJN    IRO1        IF PP RECALL QUEUE ENTRIES
00920  M01S00672.1aj     +++|          LDD    CM+2
00921  M01S00673.1aj     +++|          LPC    -100
00922  M01S00674.1aj     +++|          ERRNZ  ROSU*10-100 CODE ASSUMES SUSPENSION FLAG IS BIT 30D
00923  M01S00675.1aj     +++|          STD    CM+2
00924  M01S00676.1aj     +++|          LDD    CP
00925  M01S00677.1aj     +++|          ADN    STSW
00926  M01S00678.1aj     +++|          CWD    CM
Line S00679 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00679.ns2696  ---|          LJM    TER         TERMINATE JOB
Line S00680 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00680.ns2696  ---|
00929  M01S00681.1aj     +++| IRO1     EXECUTE  1RO,*
00930  M01S00682.1aj     +++|          LJM    CPP         EXECUTE *1RO*
00931  M01S00001.ns2467  +++| ITF      SPACE  4,10
00932  M01S00002.ns2467  +++|**        ITF - ISSUE *TSEM* FUNCTION.
00933  M01S00003.ns2467  +++|*
00934  M01S00004.ns2467  +++|*         ENTRY  *TSEM* PARAMETERS WRITTEN TO MESSAGE BUFFER.
00935  M01S00005.ns2467  +++|*
00936  M01S00006.ns2467  +++|*         EXIT   (A) = 0, IF IAF INACCESSIBLE OR ERROR.
00937  M01S00007.ns2467  +++|*                (A) .NE. 0, IF REQUEST COMPLETE.
00938  M01S00008.ns2467  +++|*
Line S00009 Modification History
M01 (Added by) ns2467
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00009.271l716 ---|*         USES   T1.
00940  M01S00001.271l716 +++|*         USES   T1, CM - CM+4.
00941  M01S00010.ns2467  +++|*
00942  M01S00011.ns2467  +++|*         MACROS DELAY, MONITOR, PAUSE.
00943  M01S00012.ns2467  +++|
00944  M01S00013.ns2467  +++|
00945  M01S00014.ns2467  +++| ITF      SUBR               ENTRY/EXIT
Line S00015 Modification History
M01 (Added by) ns2467
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00015.271l716 ---| ITF1     MONITOR  TSEM
00947  M01S00002.271l716 +++| ITF1     LDK    ZERL
00948  M01S00003.271l716 +++|          CRD    CM
00949  M01S00004.271l716 +++|          MONITOR  TSEM
00950  M01S00016.ns2467  +++|          LDD    CM+1
00951  M01S00017.ns2467  +++|          ZJN    ITFX        IF IAF INACCESSIBLE OR ERROR
00952  M01S00018.ns2467  +++|          LMC    7777
00953  M01S00019.ns2467  +++|          NJN    ITFX        IF REQUEST COMPLETE
00954  M01S00020.ns2467  +++|          PAUSE  ST          *TSEM* QUEUE FULL - DELAY AND RETRY
00955  M01S00021.ns2467  +++|          LDC    3600
00956  M01S00022.ns2467  +++|          STD    T1
00957  M01S00023.ns2467  +++| ITF2     DELAY
00958  M01S00024.ns2467  +++|          SOD    T1
00959  M01S00025.ns2467  +++|          ZJN    ITF1        IF TIME TO REISSUE REQUEST
00960  M01S00026.ns2467  +++|          UJN    ITF2        CONTINUE TO DELAY
Line S00683 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00961  M02S00683.ns2433b ---| ROJ      SPACE  4,10
Line S00684 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00962  M02S00684.ns2433b ---|**        ROJ - ROLLOUT JOB.
Line S00685 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00685.ns2433b ---|*
Line S00686 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00686.ns2433b ---|*         SETS UP LINKAGE TO ROLLOUT JOB.
Line S00687 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00687.ns2433b ---|*
Line S00688 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00966  M02S00688.ns2433b ---|*         EXIT   TO *RTJ* IF ON-LINE INTERACTIVE JOB.
Line S00689 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00967  M02S00689.ns2433b ---|*                TO *IRO* OTHERWISE.
Line S00690 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00968  M02S00690.ns2433b ---|
Line S00691 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00969  M02S00691.ns2433b ---|
Line S00692 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00970  M02S00692.ns2433b ---| ROJ      BSS    0           ENTRY
Line S00693 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00971  M02S00693.ns2433b ---|          LDM    TSTN        CHECK TERMINAL NUMBER
Line S00694 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00972  M03S00694.ns2433b ---|          ZJN    IRO         IF NOT TIMESHARING JOB
Line S00035 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2308
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00973  M03S00035.ns2433b ---|          ZJN    IRO         IF NOT INTERACTIVE JOB
Line S00005 Modification History
M01 (Added by) ns2308
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00005.ns2433b ---|          ZJN    RTJ1        IF NOT INTERACTIVE JOB
Line S00695 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00975  M02S00695.ns2433b ---|*         UJN    RTJ         ROLLOUT TERMINAL JOB
Line S00696 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00976  M02S00696.ns2433b ---| RTJ      SPACE  4,10
Line S00697 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00977  M03S00697.ns2433b ---|**        RTJ - ROLLOUT TIMESHARING JOB.
Line S00036 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00036.ns2433b ---|**        RTJ - ROLLOUT INTERACTIVE JOB.
Line S00698 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00698.ns2433b ---|*
Line S00699 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00699.ns2433b ---|*         EXIT   TO *IRO* TO CALL *1RO* TO ROLLOUT JOB.
Line S00700 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00700.ns2433b ---|*                TO *SUS* IF *IAF* INACCESSIBLE.
Line S00701 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00982  M02S00701.ns2433b ---|
Line S00702 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00702.ns2433b ---|
Line S00703 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00703.ns2433b ---| RTJ      BSS    0           ENTRY
Line S00001 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00001.ns2433b ---|          LDD    CP          CHECK *IAF* REQUEST BIT
Line S00002 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00002.ns2433b ---|          ADK    SNSW
Line S00003 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00987  M02S00003.ns2433b ---|          CRD    CM
Line S00004 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00004.ns2433b ---|          LDD    CM+4
Line S00005 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00005.ns2433b ---|          LPN    1
Line S00006 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00990  M02S00006.ns2433b ---|          ZJN    RTJ0        IF NO *IAF* REQUEST SINCE LAST ROLLOUT
Line S00007 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00007.ns2433b ---|          LMD    CM+4        CLEAR BIT
Line S00008 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00008.ns2433b ---|          STD    CM+4
Line S00009 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00993  M02S00009.ns2433b ---|          LDD    CP
Line S00010 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00010.ns2433b ---|          ADK    SNSW
Line S00011 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00995  M02S00011.ns2433b ---|          CWD    CM
Line S00704 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00704.ns2433b ---|          LDC    0
Line S00705 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00997  M02S00705.ns2433b ---| TSAF     EQU    *-1         (*IAF* ACCESSIBILITY FLAG)
Line S00706 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00998  M02S00706.ns2433b ---|          ZJN    SUS         IF *IAF* INACCESSIBLE, SUSPEND JOB
Line S00707 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2433
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00999  M03S00707.ns2433b ---|          LDD    EF          SET ERROR FLAG FOR *1RO*
Line S00012 Modification History
M01 (Added by) ns2433
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
01000  M02S00012.ns2433b ---| RTJ0     LDD    EF          SET ERROR FLAG FOR *1RO*
Line S00708 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2308
M03 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
01001  M03S00708.ns2433b ---|          UJP    IRO         ROLLOUT JOB
Line S00006 Modification History
M01 (Added by) ns2308
M02 (Updated by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00006.ns2433b ---| RTJ1     UJP    IRO         ROLLOUT JOB
01003  M01S00005.ns2009  +++| PES      SPACE  4,10
01004  M01S00006.ns2009  +++|**        PES - PROCESS ERROR FLAG AND SCP CONNECTIONS.
01005  M01S00007.ns2009  +++|*
01006  M01S00008.ns2009  +++|*         CALLS  SCP, *3AB*.
01007  M01S00009.ns2009  +++|*
01008  M01S00010.ns2009  +++|*         MACROS EXECUTE.
01009  M01S00011.ns2009  +++|
01010  M01S00012.ns2009  +++|
01011  M01S00013.ns2009  +++| PES      SUBR               ENTRY/EXIT
01012  M01S00014.ns2009  +++| PES1     EXECUTE  3AB       EXECUTE ERROR PROCESSOR
01013  M01S00015.ns2009  +++|          ZJN    PESX        IF ERROR PROCESSING COMPLETE
01014  M01S00016.ns2009  +++|          RJM    SCP         PROCESS SCP CONNECTIONS
01015  M01S00017.ns2009  +++|          UJN    PES1        CONTINUE ERROR PROCESSING
01016  M01S00003.ns2719  +++| RJF      SPACE  4,10
01017  M01S00004.ns2719  +++|**        RJF - RETURN JOB STEP PRIVATE FILES.
01018  M01S00005.ns2719  +++|*
01019  M01S00006.ns2719  +++|*         USES   CM - CM+4.
01020  M01S00007.ns2719  +++|*
01021  M01S00008.ns2719  +++|*         CALLS  /3AG/RJF.
01022  M01S00009.ns2719  +++|*
01023  M01S00010.ns2719  +++|*         MACROS EXECUTE.
01024  M01S00011.ns2719  +++|
01025  M01S00012.ns2719  +++|
01026  M01S00013.ns2719  +++| RJF      SUBR               ENTRY/EXIT
01027  M01S00014.ns2719  +++|          LDD    CP
01028  M01S00015.ns2719  +++|          ADN    JCIW        GET JOB CONTROL FLAGS
01029  M01S00016.ns2719  +++|          CRD    CM
01030  M01S00017.ns2719  +++|          LDD    CM+3
01031  M01S00018.ns2719  +++|          SHN    21-10
01032  M01S00019.ns2719  +++|          PJN    RJFX        IF NO JOB STEP FILES TO RETURN
01033  M01S00020.ns2719  +++|          EXECUTE  3AG       RETURN JOB STEP FILES
01034  M01S00021.ns2719  +++|          UJN    RJFX        RETURN
01035  M01S00709.1aj     +++| SCP      SPACE  4,20
01036  M01S00710.1aj     +++|**        SCP - CHECK SYSTEM CONTROL POINT (SCP) ACTIVITY.
01037  M01S00711.1aj     +++|*
01038  M01S00712.1aj     +++|*         ENTRY  (SCAF) = SCP ACTIVITY FLAGS:
01039  M01S00713.1aj     +++|*                         BIT 0 = UCP WITH CONNECTION TO SCP.
01040  M01S00714.1aj     +++|*                         BIT 1 = SCP WITH CONNECTION TO UCP.
01041  M01S00715.1aj     +++|*                         BIT 2 = *SF.EXIT* REQUEST ISSUED.
01042  M01S00716.1aj     +++|*                         BIT 3 = *SSIW* IDENTIFICATION MUST
01043  M01S00717.1aj     +++|*                                 BE CLEARED.
01044  M01S00718.1aj     +++|*
Line S00719 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00719.ns2696  ---|*         USES   SC.
01046  M01S00001.ns2696  +++|*         EXIT   TO *DPP* IF ROLLOUT CPU STATUS PRESENT AND SYSTEM
01047  M01S00002.ns2696  +++|*                  DEBUG MODE NOT ENABLED.
01048  M01S00720.1aj     +++|*
01049  M01S00003.ns2696  +++|*         USES   CM - CM+4, SC.
01050  M01S00004.ns2696  +++|*
01051  M01S00721.1aj     +++|*         CALLS  *0ST*.
01052  M01S00722.1aj     +++|*
Line S00723 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01053  M02S00723.ns2696  ---|*         MACROS EXECUTE.
01054  M01S00005.ns2696  +++|*         MACROS EXECUTE, MONITOR.
01055  M01S00724.1aj     +++|
01056  M01S00725.1aj     +++|
01057  M01S00726.1aj     +++| SCP      SUBR               ENTRY/EXIT
01058  M01S00727.1aj     +++|          LDM    SCAF        CHECK SCP ACTIVITY FLAGS
01059  M01S00728.1aj     +++|          ZJN    SCPX        IF NO SCP ACTIVITY, RETURN
01060  M01S00729.1aj     +++|          STD    SC          SET FLAGS FOR *0ST*
Line S00730 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00730.ns2696  ---|          EXECUTE  0ST,E1AJ  EXECUTE *0ST*
01062  M01S00006.ns2696  +++|          LDD    CP
01063  M01S00007.ns2696  +++|          ADN    STSW
01064  M01S00008.ns2696  +++|          CRD    CM
01065  M01S00009.ns2696  +++|          LDD    CM+2
01066  M01S00010.ns2696  +++|          LPN    2
01067  M01S00011.ns2696  +++|          ZJN    SCP1        IF NO ROLLOUT CPU STATUS PRESENT
01068  M01S00012.ns2696  +++|          LDC    *           SET ADDRESS WHERE ERROR DETECTED
01069  M01S00013.ns2696  +++|          STD    CM+1
01070  M01S00014.ns2696  +++|          LDK    SWET        SET SOFTWARE ERROR
01071  M01S00015.ns2696  +++|          STD    CM+2
01072  M01S00016.ns2696  +++|          MONITOR  CHGM      CONDITIONALLY HANG PP
01073  M01S00017.ns2696  +++|          LJM    DPP         CLEAR JOB ADVANCE AND DROP PP
01074  M01S00018.ns2696  +++|
01075  M01S00019.ns2696  +++| SCP1     EXECUTE  0ST,E1AJ  EXECUTE *0ST*
01076  M01S00731.1aj     +++|          LDD    SC          RESET SCP FLAGS
01077  M01S00732.1aj     +++|          STM    SCAF
01078  M01S00733.1aj     +++|          UJP    SCPX        RETURN
01079  M01S00734.1aj     +++| SUS      SPACE  4,10
01080  M01S00735.1aj     +++|**        SUS - SUSPEND JOB.
01081  M01S00736.1aj     +++|*
01082  M01S00737.1aj     +++|*         SETS THE SUSPENSION-REQUESTED FLAG IN THE CONTROL
01083  M01S00738.1aj     +++|*         POINT AREA AND CALLS *1RO* TO ROLLOUT THE JOB.
01084  M01S00739.1aj     +++|*
01085  M01S00740.1aj     +++|*         EXIT   TO *IRO*.
01086  M01S00741.1aj     +++|*
01087  M01S00742.1aj     +++|*         USES   CM - CM+4.
01088  M01S00743.1aj     +++|
01089  M01S00744.1aj     +++|
01090  M01S00745.1aj     +++| SUS      BSS    0           ENTRY
01091  M01S00746.1aj     +++|          LDD    CP          READ CP STATUS WORD
01092  M01S00747.1aj     +++|          ADN    STSW
01093  M01S00748.1aj     +++|          CRD    CM
01094  M01S00749.1aj     +++|          LDD    CM+2        SET SUSPENSION-REQUESTED FLAG
01095  M01S00750.1aj     +++|          LPC    -100
01096  M01S00751.1aj     +++|          LMD    HN
01097  M01S00752.1aj     +++|          STD    CM+2
01098  M01S00753.1aj     +++|          LDD    CP          REWRITE STATUS WORD
01099  M01S00754.1aj     +++|          ADN    STSW
01100  M01S00755.1aj     +++|          CWD    CM
01101  M01S00756.1aj     +++|          LDN    0           CLEAR INTERACTIVE ERROR FLAG
01102  M01S00757.1aj     +++|          UJP    IRO         ROLLOUT JOB
01103  M01S00758.1aj     +++| TER      SPACE  4,20
01104  M01S00759.1aj     +++|**        TER - TERMINATE JOB.
01105  M01S00760.1aj     +++|*
01106  M01S00761.1aj     +++|*         EXECUTES JOB TERMINATION PROCESSOR OVERLAYS.
01107  M01S00762.1aj     +++|*
01108  M01S00763.1aj     +++|*         ENTRY  (EF) = JOB ERROR FLAG.
01109  M01S00764.1aj     +++|*
01110  M01S00765.1aj     +++|*         EXIT   (JTOP) = JOB TERMINATION OPTION.
Line S00766 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00766.v23l617 ---|*                TO *XCS* TO EXECUTE CONTROL STATEMENTS.
01112  M01S00037.v23l617 +++|*                TO *XCS* TO EXECUTE COMMANDS.
01113  M01S00767.1aj     +++|*                TO *SUS* TO SUSPEND JOB.
01114  M01S00768.1aj     +++|*                TO *PPR* TO DROP PPU.
01115  M01S00769.1aj     +++|*
01116  M01S00770.1aj     +++|*         USES   CM+1.
01117  M01S00771.1aj     +++|*
01118  M01S00772.1aj     +++|*         CALLS  RLS, SCP, *3AJ*, *3AK*.
01119  M01S00773.1aj     +++|*
01120  M01S00774.1aj     +++|*         MACROS EXECUTE, MONITOR.
01121  M01S00775.1aj     +++|
01122  M01S00776.1aj     +++|
01123  M01S00777.1aj     +++| TER      BSS    0           ENTRY
01124  M01S00778.1aj     +++|          RJM    SCP         CHECK SCP ACTIVITY
01125  M01S00779.1aj     +++|          LDM    JTFG
Line S00780 Modification History
M01 (Added by) 1aj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01126  M02S00780.242l642 ---|          SHN    21-13
Line S00781 Modification History
M01 (Added by) 1aj
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01127  M02S00781.242l642 ---|          MJN    TER3        IF TERMINATION IN PROGRESS
01128  M01S00010.242l642 +++|          LPC    3000
01129  M01S00011.242l642 +++|          LMK    NOTM*1000
01130  M01S00012.242l642 +++|          NJN    TER3        IF TERMINATION IN PROGRESS
01131  M01S00782.1aj     +++|          LDM    JTOP
01132  M01S00783.1aj     +++|          LMN    SUJT
01133  M01S00784.1aj     +++|          NJN    TER2        IF NOT SUSPEND TERMINATION OPTION
Line S00014 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00014.ns2323  ---|          LDM    ENJA
Line S00015 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01135  M02S00015.ns2323  ---|          NJN    TER2        IF LOGOUT IN PROGRESS
01136  M01S00785.1aj     +++|          LDM    JBCS
01137  M01S00786.1aj     +++|          LMK    DTCS
01138  M01S00787.1aj     +++| TER1     ZJP    SUS         IF DETACHED INTERACTIVE JOB
01139  M01S00788.1aj     +++|          LMK    OLCS&DTCS
01140  M01S00789.1aj     +++|          ZJN    TER1        IF ON-LINE INTERACTIVE JOB
01141  M01S00790.1aj     +++| TER2     EXECUTE  3AJ       INITIATE JOB TERMINATION
Line S00791 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01142  M02S00791.v23l617 ---|          NJN    XCS         IF CONTROL STATEMENTS TO BE EXECUTED
01143  M01S00038.v23l617 +++|          NJN    XCS         IF COMMANDS TO BE EXECUTED
01144  M01S00792.1aj     +++|
01145  M01S00793.1aj     +++|*         COMPLETE JOB TERMINATION PROCESSING.
01146  M01S00794.1aj     +++|
Line S00795 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
01147  M02S00795.ns2044  ---| TER3     LDD    EF
Line S00796 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
01148  M02S00796.ns2044  ---|          LMK    PEET
Line S00797 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
01149  M02S00797.ns2044  ---|          ZJN    TER4        IF CPU PARITY ERROR
Line S00798 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
01150  M02S00798.ns2044  ---|          RJM    RLS         RELEASE CM/ECS STORAGE
Line S00799 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
01151  M02S00799.ns2044  ---| TER4     EXECUTE  3AK       COMPLETE JOB TERMINATION
Line S00800 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00800.ns2044  ---|          LDK    CCPS+DPPS+CJES  SET *JACM* OPTIONS
01153  M01S00006.ns2044  +++| TER3     RJM    RLS         RELEASE CM/EXTENDED MEMORY STORAGE
01154  M01S00007.ns2044  +++|          EXECUTE  3AK       COMPLETE JOB TERMINATION
01155  M01S00008.ns2044  +++| TER4     LDK    CCPS+DPPS+CJES  SET *JACM* OPTIONS
01156  M01S00801.1aj     +++|          STD    CM+1
01157  M01S00802.1aj     +++|          MONITOR  JACM
01158  M01S00803.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
01159  M01S00002.243l647 +++|
01160  M01S00003.243l647 +++| TER5     LDN    0
01161  M01S00004.243l647 +++|*         LDN    1           (180 CLASS MACHINE)
01162  M01S00005.243l647 +++| TERA     EQU    *-1
01163  M01S00006.243l647 +++|          ZJN    TER4        IF NOT 180 CLASS MACHINE
01164  M01S00007.243l647 +++|          LDK    CKPS        FORCE SYSTEM CHECKPOINT
01165  M01S00008.243l647 +++|          STD    CM+2
01166  M01S00009.243l647 +++|          MONITOR  SEQM
01167  M01S00010.243l647 +++|          UJN    TER4        SET *JACM* OPTIONS
01168  M01S00804.1aj     +++| XCS      SPACE  4,10
Line S00805 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01169  M02S00805.v23l617 ---|**        XCS - EXECUTE CONTROL STATEMENT.
01170  M01S00039.v23l617 +++|**        XCS - EXECUTE COMMAND.
01171  M01S00806.1aj     +++|*
01172  M01S00807.1aj     +++|*         LOADS AND EXECUTES OVERLAY *TCS* TO PROCESS CONTROL
Line S00808 Modification History
M01 (Added by) 1aj
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01173  M02S00808.v23l617 ---|*         STATEMENT.
01174  M01S00040.v23l617 +++|*         COMMAND.
01175  M01S00809.1aj     +++|*
Line S00810 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01176  M02S00810.ns2358  ---|*         USES   CM - CM+4.
Line S00811 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01177  M02S00811.ns2358  ---|*
Line S00812 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01178  M02S00812.ns2358  ---|*         CALLS  SCP, TCS.
Line S00004 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01179  M02S00004.ns2719  ---|*         USES   CM - CM+4, CW - CW+4.
01180  M01S00022.ns2719  +++|*         USES   CM - CM+4.
01181  M01S00005.ns2358  +++|*
Line S00006 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01182  M02S00006.ns2719  ---|*         CALLS  SCP, *TCS*, *3AG*.
01183  M01S00023.ns2719  +++|*         CALLS  RJF, SCP, *TCS*.
01184  M01S00813.1aj     +++|*
01185  M01S00814.1aj     +++|*         MACROS EXECUTE.
01186  M01S00815.1aj     +++|
01187  M01S00816.1aj     +++|
01188  M01S00817.1aj     +++| XCS      BSS    0           ENTRY
Line S00818 Modification History
M01 (Added by) 1aj
M02 (Updated by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01189  M02S00818.ns2358  ---|          LDN    ZERL        CLEAR *SPCW* WORD
Line S00007 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01190  M02S00007.ns2719  ---|          LDD    CP
Line S00008 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01191  M02S00008.ns2719  ---|          ADN    JCIW        FETCH JOB CONTROL FLAGS
Line S00009 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00009.ns2719  ---|          CRD    CW
Line S00010 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01193  M02S00010.ns2719  ---|          LDD    CW+3        CHECK JOB ADVANCE INHIBITED
Line S00011 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01194  M02S00011.ns2719  ---|          SHN    21-13
Line S00012 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01195  M02S00012.ns2719  ---|          PJN    XCS1        IF FLAG NOT SET
Line S00013 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01196  M02S00013.ns2719  ---|          EXECUTE  3AG
Line S00014 Modification History
M01 (Added by) ns2358
M02 (Updated by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01197  M02S00014.ns2719  ---| XCS1     LDN    ZERL        CLEAR *SPCW* WORD
01198  M01S00024.ns2719  +++|          LDN    ZERL        CLEAR *SPCW* WORD
01199  M01S00819.1aj     +++|          CRD    CM
01200  M01S00820.1aj     +++|          LDD    CP
01201  M01S00821.1aj     +++|          ADK    SPCW
01202  M01S00822.1aj     +++|          CWD    CM
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1aj.txt ยท Last modified: by 127.0.0.1