User Tools

Site Tools


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

Deck 1AJ

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1aj     +++|          IDENT  1AJ,AJS     ADVANCE JOB STATUS
00002  M00S00002.1aj     +++|          PERIPH
00003  M00S00003.1aj     +++|          BASE   MIXED
00004  M00S00004.1aj     +++|          SST
00005  M00S00005.1aj     +++| QUAL$    EQU    1           DEFINE UNQUALIFIED COMMON DECKS
00006  M00S00006.1aj     +++|*COMMENT  1AJ - ADVANCE JOB STATUS.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00008.1aj     +++|          TITLE  1AJ - ADVANCE JOB STATUS.
00010  M00S00009.1aj     +++|          SPACE  4,10
00011  M00S00010.1aj     +++|***       1AJ - ADVANCE JOB STATUS.
00012  M00S00011.1aj     +++|*
00013  M00S00012.1aj     +++|*         G. R. MANSFIELD.   70/12/20.
00014  M00S00013.1aj     +++|*         R. E. TATE.        70/12/20.
00015  M00S00014.1aj     +++|*         D. A. HIVELEY.     72/11/20.
Line S00001 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00001.ns22000 +++|*         P. D. FARRELL.     81/03/17.
00017  M00S00015.1aj     +++|          SPACE  4,25
00018  M00S00016.1aj     +++|***       *1AJ* IS CALLED TO ADVANCE THE STATUS OF AN EXECUTING
00019  M00S00017.1aj     +++|*         JOB.  THE TYPE OF CALL MAY BE ANY ONE OF THE FOLLOWING:
00020  M00S00018.1aj     +++|*
00021  M00S00019.1aj     +++|*                1.   JOB INITIATION - CALLED BY *1SJ* TO STARTUP
00022  M00S00020.1aj     +++|*                     A JOB AT THE CONTROL POINT.
00023  M00S00021.1aj     +++|*
00024  M00S00022.1aj     +++|*                2.   JOB ADVANCEMENT - CALLED BY *CPUMTR* WHEN
00025  M00S00023.1aj     +++|*                     THERE IS NO ACTIVITY AT THE CONTROL POINT.
00026  M00S00024.1aj     +++|*
00027  M00S00025.1aj     +++|*                3.   ROLLOUT REQUEST - CALLED BY *CPUMTR* WHEN
00028  M00S00026.1aj     +++|*                     A PPU HAS REQUESTED THAT THE CONTROL POINT
00029  M00S00027.1aj     +++|*                     BE ROLLED OUT (E.G. *ROCM* REQUEST).
00030  M00S00028.1aj     +++|*
00031  M00S00029.1aj     +++|*                4.   *SSJ=* AND *DMP=* PROCESSING - CALLED BY *1RO*,
00032  M00S00030.1aj     +++|*                     *1RI*, AND *DIS*.
00033  M00S00031.1aj     +++|*
00034  M00S00032.1aj     +++|*                5.   ERROR PROCESSING - CALLED BY *CPUMTR* WHEN
00035  M00S00033.1aj     +++|*                     AN ERROR FLAG IS SET FOR THE JOB.
00036  M00S00034.1aj     +++|*
Line S00035 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00035.v23l617 ---|*                6.   CONTROL STATEMENT PROCESSING - CALLED BY *DIS*
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00001.v23l617 +++|*                6.   COMMAND PROCESSING - CALLED BY *DIS*
00039  M00S00036.1aj     +++|*                     AND OTHER PPU PROGRAMS TO EXECUTE A CONTROL
Line S00037 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00037.v23l617 ---|*                     STATEMENT FOR THE JOB.
Line S00002 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00002.v23l617 +++|*                     COMMAND FOR THE JOB.
00042  M00S00038.1aj     +++|          SPACE  4,10
00043  M00S00039.1aj     +++|***       CALL.
00044  M00S00040.1aj     +++|*
00045  M00S00041.1aj     +++|*T        18/ *1AJ* OR *TCS*, 1/, 5/CP, 12/FC, 24/P
Figure

0232429PFC30353640414259FCCP *1AJ* OR *TCS*

00046  M00S00042.1aj     +++|*
00047  M00S00043.1aj     +++|*                CP = CONTROL POINT NUMBER.
00048  M00S00044.1aj     +++|*                FC = *1AJ* FUNCTION CODE.
00049  M00S00045.1aj     +++|*                P  = FUNCTION PARAMETERS.
00050  M00S00046.1aj     +++|          SPACE  4,10
00051  M00S00047.1aj     +++|***       FUNCTION CODE 0 - *CPUMTR* CALL.
00052  M00S00048.1aj     +++|*
00053  M00S00049.1aj     +++|*T        18/*1AJ*, 1/, 5/CP, 12/0, 12/R, 12/N
Figure

01112232429NR0303536404142590CP*1AJ*

00054  M00S00050.1aj     +++|*
00055  M00S00051.1aj     +++|*                R = 1       SET BY *1AJ* DURING *DMP=* PROCESSING
00056  M00S00052.1aj     +++|*                            IN CASE OF RECALL.
00057  M00S00053.1aj     +++|*                N = 1       SET BY *1RO* UPON COMPLETION OF *DMP=*
00058  M00S00054.1aj     +++|*                            PROCESSING.
00059  M00S00055.1aj     +++|*                N = 2       SET BY *DIS* FOR *SSJ=* AND *DMP=*
00060  M00S00056.1aj     +++|*                            PROCESSING.
00061  M00S00057.1aj     +++|          SPACE  4,10
00062  M00S00058.1aj     +++|***       FUNCTION CODE 1 - JOB SCHEDULER CALL.
00063  M00S00059.1aj     +++|*
00064  M00S00060.1aj     +++|*T        18/*1AJ*, 1/, 5/CP, 12/1, 12/0, 12/JO
Figure

01112232429JO01303536404142591CP*1AJ*

00065  M00S00061.1aj     +++|*
00066  M00S00062.1aj     +++|*                JO          JOB EJT ORDINAL.
00067  M00S00063.1aj     +++|          SPACE  4,15
00068  M00S00064.1aj     +++|***       FUNCTION CODE 2 - *DIS* OR OTHER PP CALL.
00069  M00S00065.1aj     +++|*
00070  M00S00066.1aj     +++|*T        12/*1AJ*, 1/, 5/CP, 12/2, 12/0, 12/DC
Figure

01112232429DC02303536404142532CP*1AJ*

00071  M00S00067.1aj     +++|*
Line S00068 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00068.v23l617 ---|*                DC BIT 0    INDICATES READ CONTROL STATEMENT
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00003.v23l617 +++|*                DC BIT 0    INDICATES READ COMMAND
00074  M00S00069.1aj     +++|*                            AND STOP PRIOR TO EXECUTION (*RSS*
00075  M00S00070.1aj     +++|*                            INDICATOR).
00076  M00S00071.1aj     +++|*
00077  M00S00072.1aj     +++|*                   BIT 1    INDICATES RETURN ERROR MESSAGE TO
Line S00073 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00073.v23l617 ---|*                            *MS2W* WITH NO ERROR FLAG IF INVALID
00079  M01S00074.v23l617 ---|*                            CONTROL CARD.
Line S00004 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00004.v23l617 +++|*                            *MS2W* WITH NO ERROR FLAG IF INCORRECT
00081  M01S00005.v23l617 +++|*                            COMMAND.
00082  M00S00075.1aj     +++|*
Line S00076 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00083  M01S00076.v23l617 ---|*                   BIT 2    INDICATES TAKE CONTROL STATEMENT
Line S00006 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00006.v23l617 +++|*                   BIT 2    INDICATES TAKE COMMAND
00085  M00S00077.1aj     +++|*                            FROM *MS1W* OF CONTROL POINT AREA.
00086  M00S00078.1aj     +++|          SPACE  4,10
00087  M00S00079.1aj     +++|***       FUNCTION CODE 3 - FROM OTHER PPU PROGRAMS.
00088  M00S00080.1aj     +++|*
00089  M00S00081.1aj     +++|*T        18/*1AJ*, 1/, 5/CP, 12/3, 12/0, 12/0
Figure

01112232429003303536404142593CP*1AJ*

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

01718232429ADDRSF4303536404142594CP*TCS*

00095  M00S00086.1aj     +++|*
00096  M00S00087.1aj     +++|*                SF =        SUBFUNCTION NUMBER FOR READING CONTROL
Line S00088 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00088.v23l617 ---|*                            STATEMENT:
Line S00008 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00008.v23l617 +++|*                            COMMAND:
00099  M00S00089.1aj     +++|*                   = 0      ADVANCE POINTERS.
00100  M00S00090.1aj     +++|*                   = 1      READ ONLY IF NOT A LOCAL FILE LOAD,
00101  M00S00091.1aj     +++|*                            DO NOT ADVANCE POINTERS.
00102  M00S00092.1aj     +++|*                   = 2      SET BIT 17 IN ARGUMENT COUNT IF
00103  M00S00093.1aj     +++|*                            LOCAL FILE LOAD, DO NOT ADVANCE POINTERS.
00104  M00S00094.1aj     +++|*                   = 4+     IF PARAMETERS ARE TO BE CRACKED IN
00105  M00S00095.1aj     +++|*                            *SCOPE* FORMAT.
00106  M00S00096.1aj     +++|*                ADDR =      ADDRESS TO READ/WRITE CONTROL
Line S00097 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00107  M01S00097.v23l617 ---|*                            STATEMENT FROM/TO.
Line S00009 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00108  M01S00009.v23l617 +++|*                            COMMAND FROM/TO.
00109  M00S00098.1aj     +++|          SPACE  4,10
Line S00099 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00099.v23l617 ---|***       FUNCTION CODE 5 - CONTROL CARD READ AND EXECUTE.
Line S00010 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00010.v23l617 +++|***       FUNCTION CODE 5 - COMMAND READ AND EXECUTE.
00112  M00S00100.1aj     +++|*
00113  M00S00101.1aj     +++|*T        18/*TCS*, 1/, 5/CP, 12/5, 6/, 18/ADDR
Figure

01718232429ADDR5303536404142595CP*TCS*

00114  M00S00102.1aj     +++|*
00115  M00S00103.1aj     +++|*                ADDR =      ADDRESS WITHIN USER FL FROM WHICH TO
Line S00104 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00116  M01S00104.v23l617 ---|*                            READ CONTROL STATEMENT.
Line S00011 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00117  M01S00011.v23l617 +++|*                            READ COMMAND.
00118  M00S00105.1aj     +++|          SPACE  4,10
00119  M00S00106.1aj     +++|***       DAYFILE MESSAGES.
00120  M00S00107.1aj     +++|*
00121  M00S00108.1aj     +++|*         * SECURE MEMORY, DUMP DISABLED.* = ATTEMPT TO DUMP
00122  M00S00109.1aj     +++|*         SECURE MEMORY.
00123  M00S00110.1aj     +++|*
00124  M00S00111.1aj     +++|*         * SPCW CALL ERROR.* = A *DMP=* TYPE CALL WAS MADE AND THE
00125  M00S00112.1aj     +++|*         PROGRAM CALLED IS EITHER NOT IN THE CLD OR DOES NOT HAVE A
00126  M00S00113.1aj     +++|*         *DMP=* ENTRY POINT DEFINED.
00127  M00S00114.1aj     +++|          SPACE  4,10
00128  M00S00115.1aj     +++|**        PROGRAMS CALLED.
00129  M00S00116.1aj     +++|*
00130  M00S00117.1aj     +++|*         *1RI* - *DMP=* ROLLIN.
00131  M00S00118.1aj     +++|*         *1RO* - ROLLOUT JOB, NORMAL ROLLOUT AND *DMP=* ROLLOUT.
00132  M00S00119.1aj     +++|*         *CIO* - COMPLETE SPECIAL FILES ON ERRORS.
00133  M00S00120.1aj     +++|          SPACE  4,10
00134  M00S00121.1aj     +++|**        ROUTINES USED.
00135  M00S00122.1aj     +++|*
00136  M00S00123.1aj     +++|*         *0ST* - TERMINATE SCP CONNECTIONS.
00137  M00S00124.1aj     +++|          TITLE  COMMON DECKS AND MACRO DEFINITIONS.
00138  M00S00125.1aj     +++|          SPACE  4,10
00139  M00S00126.1aj     +++|**        PRESET QUALIFICATION BLOCK ORDER.
00140  M00S00127.1aj     +++|
00141  M00S00128.1aj     +++|
00142  M00S00129.1aj     +++|          QUAL
00143  M00S00130.1aj     +++|          QUAL   IJB
00144  M00S00131.1aj     +++|          QUAL   PEF
Line S00001 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00145  M01S00001.ns21000 +++|          QUAL   EFX
00146  M00S00132.1aj     +++|          QUAL   TCS
00147  M00S00133.1aj     +++|          QUAL   LDR
00148  M00S00134.1aj     +++|          QUAL   3AE
00149  M00S00135.1aj     +++|          QUAL   3AF
00150  M00S00136.1aj     +++|          QUAL   3AG
00151  M00S00137.1aj     +++|          QUAL   3AH
00152  M00S00138.1aj     +++|          QUAL   3AI
00153  M00S00139.1aj     +++|          QUAL   3AJ
00154  M00S00140.1aj     +++|          QUAL   3AK
Line S00001 Modification History
M01 (Added by) ns2031
Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00001.ns2031  +++|          QUAL   ERR
00156  M00S00141.1aj     +++|          QUAL   PFM
00157  M00S00142.1aj     +++|          QUAL   REM
00158  M00S00143.1aj     +++|          QUAL   MACRO$
00159  M00S00144.1aj     +++|          QUAL
00160  M00S00145.1aj     +++|          SPACE  4,10
00161  M00S00146.1aj     +++|**        DEFINE SYSTEM COMMUNICATIONS SYMBOLS.
00162  M00S00147.1aj     +++|
00163  M00S00148.1aj     +++|
00164  M00S00149.1aj     +++|          SYSCOM             DEFINE SYSTEM COMMUNICATIONS SYMBOLS
00165  M00S00150.1aj     +++|          SPACE  4,10
00166  M00S00151.1aj     +++|**        DEFINITION COMMON DECKS.
00167  M00S00152.1aj     +++|
00168  M00S00153.1aj     +++|
00169  M00S00154.1aj     +++|*CALL     COMPMAC
00170  M00S00155.1aj     +++|*CALL     COMSACC
00171  M00S00156.1aj     +++|*CALL     COMSCPS
00172  M00S00157.1aj     +++|*CALL     COMSDSP
00173  M00S00158.1aj     +++|*CALL     COMSEJT
Line S00012 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00174  M01S00012.v23l617 +++|*CALL     COMSEVT
00175  M00S00159.1aj     +++|*CALL     COMSJCE
00176  M00S00160.1aj     +++|*CALL     COMSJIO
00177  M00S00161.1aj     +++|*CALL     COMSJRO
00178  M00S00162.1aj     +++|*CALL     COMSLFD
00179  M00S00163.1aj     +++|*CALL     COMSMSC
00180  M00S00164.1aj     +++|*CALL     COMSMSP
00181  M00S00165.1aj     +++|*CALL     COMSPIM
00182  M00S00166.1aj     +++|*CALL     COMSPRD
00183  M00S00167.1aj     +++|          QUAL   PFM
00184  M00S00168.1aj     +++|*CALL     COMSPFM
00185  M00S00169.1aj     +++|          QUAL   *
00186  M00S00170.1aj     +++|          QUAL   REM
00187  M00S00171.1aj     +++|*CALL     COMSREM
00188  M00S00172.1aj     +++|          QUAL   *
00189  M00S00173.1aj     +++|*CALL     COMSRPV
Line S00002 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00002.ns22000 +++|*CALL     COMSSCD
00191  M00S00174.1aj     +++|*CALL     COMSSCP
Line S00001 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00192  M01S00001.272l774 +++|          QUAL   SCR
00193  M00S00175.1aj     +++|*CALL     COMSSCR
Line S00002 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00194  M01S00002.272l774 +++|          QUAL   *
Line S00001 Modification History
M01 (Added by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00195  M01S00001.1aj106  +++|*CALL     COMSSRT
00196  M00S00176.1aj     +++|*CALL     COMSSRU
00197  M00S00177.1aj     +++|*CALL     COMSSSD
00198  M00S00178.1aj     +++|*CALL     COMSSSE
00199  M00S00179.1aj     +++|*CALL     COMSSSJ
00200  M00S00180.1aj     +++|*CALL     COMSZOL
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00001.253l688 +++|          TITLE  MACRO DEFINITIONS.
00202  M00S00181.1aj     +++| JMP      SPACE  4,10
00203  M00S00182.1aj     +++|**        JMP - THREADED JUMP.
00204  M00S00183.1aj     +++|*
00205  M00S00184.1aj     +++|*         JMP    ADDR
00206  M00S00185.1aj     +++|*
00207  M00S00186.1aj     +++|*         ENTRY  *ADDR* = JUMP DESTINATION ADDRESS.
00208  M00S00187.1aj     +++|*
00209  M00S00188.1aj     +++|*         NOTE   THIS MACRO WILL THREAD BACKWARDS ONLY.
00210  M00S00189.1aj     +++|
00211  M00S00190.1aj     +++|
00212  M00S00191.1aj     +++| JMP      MACRO  ADDR
00213  M00S00192.1aj     +++|          NOREF  .ADDR
00214  M00S00193.1aj     +++| .A       IF     -DEF,.ADDR
00215  M00S00194.1aj     +++| .ADDR    MAX    ADDR,*-40
00216  M00S00195.1aj     +++| .A       ENDIF
00217  M00S00196.1aj     +++| .B       IFGT   .ADDR,*-40
00218  M00S00197.1aj     +++|          UJN    .ADDR       ASSEMBLE SHORT JUMP
00219  M00S00198.1aj     +++| .ADDR    SET    *-1
00220  M00S00199.1aj     +++| .B       ELSE
00221  M00S00200.1aj     +++| .ADDR    SET    *
00222  M00S00201.1aj     +++|          LJM    ADDR        ASSEMBLE LONG JUMP
00223  M00S00202.1aj     +++| .B       ENDIF
00224  M00S00203.1aj     +++| JMP      ENDM
00225  M00S00204.1aj     +++| LDA      SPACE  4,10
00226  M00S00205.1aj     +++|**        LDA - LOAD ABSOLUTE CM ADDRESS.
00227  M00S00206.1aj     +++|*
00228  M00S00207.1aj     +++|*         LDA    X,M
00229  M00S00208.1aj     +++|*
00230  M00S00209.1aj     +++|*         ENTRY  *X* = FIRST OF TWO DIRECT CELLS CONTAINING
00231  M00S00210.1aj     +++|*                      RELATIVE CM ADDRESS.
00232  M00S00211.1aj     +++|*                *M* = (OPTIONAL) IF NON-BLANK, MASK (X) WITH
00233  M00S00212.1aj     +++|*                      5-BIT MASK.
00234  M00S00213.1aj     +++|*
00235  M00S00214.1aj     +++|*         EXIT   (A) = ABSOLUTE CM ADDRESS.
00236  M00S00215.1aj     +++|
00237  M00S00216.1aj     +++|
Line S00002 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00238  M01S00002.ns21000 +++|          PURGMAC  LDA
00239  M01S00003.ns21000 +++|
00240  M00S00217.1aj     +++| LDA      MACRO  X,M
00241  M00S00218.1aj     +++|          LDD    X
00242  M00S00219.1aj     +++|          IFC    NE,$M$$,1
00243  M00S00220.1aj     +++|          LPN    37
00244  M00S00221.1aj     +++|          SHN    6
00245  M00S00222.1aj     +++|          ADD    RA
00246  M00S00223.1aj     +++|          SHN    6
00247  M00S00224.1aj     +++|          ADD    X+1
00248  M00S00225.1aj     +++|          ENDM
Line S00002 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2620
Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00024.ns2620  ---|          SBN    10
Line S00001 Modification History
M01 (Added by) ns2620
Seq #  *Modification Id* Act 
----------------------------+
00272  M01S00001.ns2620  +++|          SBN    QFBL
Line S00025 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00001 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00004.271l750 ---|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
Line S00001 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00306  M01S00001.271l750 +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT,CPU
Line S00005 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00315  M02S00013.271l750 ---| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
Line S00002 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00316  M01S00002.271l750 +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB,CPU
00317  M01S00003.271l750 +++|          LOCAL  C
Line S00014 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
00318  M01S00014.v22l602 +++| .SUB     RMT
Line S00004 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00004.271l750 +++| C        SET    0
00320  M01S00005.271l750 +++|          IFC    NE,$CPU$$,1
00321  M01S00006.271l750 +++| C        SET    1
Line S00015 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00018.271l750 ---|          INDEX  (2*MXSI-2*ID),(2L"PPMIC1",1L"PPMIC2")
Line S00007 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00326  M01S00007.271l750 +++|          INDEX  (2*MXSI-2*ID),(2L"PPMIC1",1L"PPMIC2"+C)
Line S00019 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
00327  M01S00019.v22l602 +++| .A       ELSE
Line S00020 Modification History
M01 (Added by) v22l602
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00328  M02S00020.271l750 ---|          INDEX  (2*MXSI-2*ID),(0,0)
Line S00008 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00329  M01S00008.271l750 +++|          INDEX  (2*MXSI-2*ID),(0,C)
Line S00021 Modification History
M01 (Added by) v22l602
Seq #  *Modification Id* Act 
----------------------------+
00330  M01S00021.v22l602 +++| .A       ENDIF
00331  M01S00022.v22l602 +++| .SUB     RMT
00332  M01S00023.v22l602 +++| SUBSYST  ENDM
00333  M00S00226.1aj     +++|          TITLE  LOCAL DEFINITIONS.
00334  M00S00227.1aj     +++|****      COMMON DIRECT LOCATION ASSIGNMENTS.
00335  M00S00228.1aj     +++|
00336  M00S00229.1aj     +++|
00337  M00S00230.1aj     +++| T8       EQU    16          SCRATCH
00338  M00S00231.1aj     +++| T9       EQU    17          SCRATCH
Line S00232 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
00339  M01S00232.ns2358  ---| AB       EQU    20 - 24     ASSEMBLY BUFFER
00340  M01S00233.ns2358  ---| CN       EQU    25 - 31     CM WORD BUFFER
00341  M01S00234.ns2358  ---| FS       EQU    32 - 36     FST ENTRY
Line S00001 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00235.1aj     +++| EP       EQU    37          ENTRY POINT POINTER
Line S00236 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00346  M01S00236.v23l617 ---| SP       EQU    40 - 44     STATEMENT POINTER
Line S00013 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00347  M01S00013.v23l617 +++| SP       EQU    40 - 44     COMMAND POINTER
00348  M00S00237.1aj     +++| JO       EQU    45          JOB EJT ORDINAL
00349  M00S00238.1aj     +++| EF       EQU    46          ERROR FLAG
00350  M00S00239.1aj     +++| RO       EQU    47          ROLLOUT FLAG
00351  M00S00240.1aj     +++| FA       EQU    57          ADDRESS OF FNT ENTRY
00352  M00S00241.1aj     +++| CW       EQU    60 - 64     LIBRARY CONTROL WORD
00353  M00S00242.1aj     +++| RF       EQU    65          REPRIEVE ERROR FLAG
00354  M00S00243.1aj     +++|                             = 0 IF NO REPRIEVE.
00355  M00S00244.1aj     +++|                             = MASK BITS IF EXTENDED REPRIEVE.
00356  M00S00245.1aj     +++|                             = ERROR OPTIONS IF REGULAR REPRIEVE.
00357  M00S00246.1aj     +++| SC       EQU    67          SCP ACTIVITY FLAG BITS (*0ST*)
00358  M00S00247.1aj     +++|****
Line S00248 Modification History
M01 (Removed by) 1aj106
Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00248.1aj106  ---|          SPACE  4,10
00360  M01S00249.1aj106  ---|**        RECORD TYPES.
00361  M01S00250.1aj106  ---|
00362  M01S00251.1aj106  ---|
00363  M01S00252.1aj106  ---| RLRT     EQU    3           RELOCATABLE PROGRAM
00364  M01S00253.1aj106  ---| OVRT     EQU    4           OVERLAY
00365  M01S00254.1aj106  ---| ABRT     EQU    11          ABSOLUTE PROGRAM
00366  M01S00255.1aj106  ---| CLRT     EQU    20          *CCL* PROCEDURE
00367  M00S00256.1aj     +++|          TITLE  MAIN PROGRAM.
00368  M00S00257.1aj     +++| AJS      SPACE  4,10
00369  M00S00258.1aj     +++|**        AJS - MAIN PROGRAM.
00370  M00S00259.1aj     +++|*
00371  M00S00260.1aj     +++|*         ENTRY  (IR+2) = FUNCTION CODE.
00372  M00S00261.1aj     +++|*
00373  M00S00262.1aj     +++|*         EXIT   TO FUNCTION CODE PROCESSOR.
00374  M00S00263.1aj     +++|*
00375  M00S00264.1aj     +++|*         USES   T9.
00376  M00S00265.1aj     +++|*
00377  M00S00266.1aj     +++|*         CALLS  PRS.
00378  M00S00267.1aj     +++|
00379  M00S00268.1aj     +++|
00380  M00S00269.1aj     +++|          ORG    PPFW
00381  M00S00270.1aj     +++|
00382  M00S00271.1aj     +++| AJS      BSS    0           ENTRY
00383  M00S00272.1aj     +++|          RJM    PRS         PRESET PROGRAM
00384  M00S00273.1aj     +++|
00385  M00S00274.1aj     +++|*         EXECUTE FUNCTION CODE PROCESSOR.
00386  M00S00275.1aj     +++|
00387  M00S00276.1aj     +++|          STD    T9          SET PROCESSOR ADDRESS
00388  M00S00277.1aj     +++|          LJM    0,T9        ENTER FUNCTION CODE PROCESSOR
00389  M00S00278.1aj     +++| AJS      SPACE  4,10
00390  M00S00279.1aj     +++|**        AJS - GLOBAL DATA STORAGE.
00391  M00S00280.1aj     +++|
00392  M00S00281.1aj     +++|
00393  M00S00282.1aj     +++| JBSC     CON    0           JOB SERVICE CLASS
00394  M00S00283.1aj     +++| JBOT     CON    0           JOB ORIGIN TYPE
00395  M00S00284.1aj     +++| JBCS     CON    0           JOB CONNECTION STATUS
00396  M00S00285.1aj     +++| JTOP     CON    0           JOB TERMINATION OPTION
Line S00286 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00397  M01S00286.242l642 ---| JTFG     CON    0           JOB TERMINATION FLAG
Line S00001 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00001.242l642 +++| JTFG     CON    0           JOB TERMINATION FLAGS
Line S00001 Modification History
M01 (Added by) ns2323
M02 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00001.261l700 ---| PRCF     CON    0           PROLOGUE/EPILOGUE CONTROL FLAGS:
00400  M02S00002.261l700 ---|                             0 = NO PROCESSING REQUIRED.
00401  M02S00003.261l700 ---|                             1 = CLEAR CONTROL FLAGS.
00402  M02S00004.261l700 ---|                             2 = SET CHARGE REQUIRED.
00403  M02S00005.261l700 ---|                             3 = SET CHARGE REQUIRED ON ABORT.
00404  M02S00006.261l700 ---|                             4 = TERMINATE JOB.
Line S00001 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00405  M01S00001.261l700 +++| PRCF     CON    0           PROLOGUE/EPILOGUE CONTROL FLAG
00406  M00S00287.1aj     +++| SCAF     CON    0           SCP ACTIVITY FLAGS:
00407  M00S00288.1aj     +++|                             BIT 0 = UCP WITH CONNECTION TO AN SCP.
00408  M00S00289.1aj     +++|                             BIT 1 = SCP WITH CONNECTION TO UCP(S).
00409  M00S00290.1aj     +++|                             BIT 3 = *SSIW* IDENTIFICATION MUST
00410  M00S00291.1aj     +++|                                     BE CLEARED.
Line S00001 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00411  M01S00001.ns2433b +++| TSAF     CON    0           *IAF* CP NUMBER/ACCESSIBILITY FLAG
00412  M00S00292.1aj     +++|          TITLE  MAIN FUNCTION CODE PROCESSORS.
00413  M00S00293.1aj     +++| MTR      SPACE  4,10
00414  M00S00294.1aj     +++|**        MTR - MONITOR CALL (FUNCTION CODE 0).
00415  M00S00295.1aj     +++|*
00416  M00S00296.1aj     +++|*         EXIT   TO *CSR*.
00417  M00S00297.1aj     +++|
00418  M00S00298.1aj     +++|
00419  M00S00299.1aj     +++|* MTR     LJM    CSR         CHECK FOR SPECIAL SYSTEM REQUEST
00420  M00S00300.1aj     +++| SCH      SPACE  4,15
00421  M00S00301.1aj     +++|**        SCH - SCHEDULER CALL (FUNCTION CODE 1).
00422  M00S00302.1aj     +++|*
00423  M00S00303.1aj     +++|*         EXIT   TO EXIT PROCESSOR DEFINED BY (A) ON RETURN
00424  M00S00304.1aj     +++|*                FROM OVERLAY *3AA*.
00425  M00S00305.1aj     +++|*
00426  M00S00306.1aj     +++|*         USES   T9.
00427  M00S00307.1aj     +++|*
00428  M00S00308.1aj     +++|*         CALLS  *3AA*.
00429  M00S00309.1aj     +++|*
00430  M00S00310.1aj     +++|*         MACROS EXECUTE.
00431  M00S00311.1aj     +++|
00432  M00S00312.1aj     +++|
00433  M00S00313.1aj     +++| SCH      BSS    0           ENTRY
00434  M00S00314.1aj     +++|          EXECUTE  3AA       EXECUTE BEGIN-JOB PROCESSOR
00435  M00S00315.1aj     +++|          STD    T9          STORE *3AA* EXIT CODE
00436  M00S00316.1aj     +++|          LDM    SCHA,T9     SET *3AA* EXIT PROCESSOR ADDRESS
00437  M00S00317.1aj     +++|          STD    T9
00438  M00S00318.1aj     +++|          LJM    0,T9        ENTER *3AA* EXIT PROCESSOR
00439  M00S00319.1aj     +++|
00440  M00S00320.1aj     +++|
00441  M00S00321.1aj     +++| SCHA     INDEX              TABLE OF *3AA* EXIT PROCESSORS
00442  M00S00322.1aj     +++|          INDEX  0,ADJ       ADVANCE JOB
00443  M00S00323.1aj     +++|          INDEX  1,ENJ       END JOB
00444  M00S00324.1aj     +++|          INDEX  2
00445  M00S00325.1aj     +++| DIS      SPACE  4,10
00446  M00S00326.1aj     +++|**        DIS - *DIS* CALL (FUNCTION CODE 2).
00447  M00S00327.1aj     +++|*
00448  M00S00328.1aj     +++|*         EXIT   TO *CSR*.
00449  M00S00329.1aj     +++|
00450  M00S00330.1aj     +++|
00451  M00S00331.1aj     +++|* DIS     LJM    CSR         CHECK FOR SPECIAL SYSTEM REQUEST
00452  M00S00332.1aj     +++| PPC      SPACE  4,10
00453  M00S00333.1aj     +++|**        PPC - PP CALLS (FUNCTION CODES 2 AND 3).
00454  M00S00334.1aj     +++|*
00455  M00S00335.1aj     +++|*         EXIT   TO *DPP* TO DROP PP.
Line S00336 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00456  M01S00336.v23l617 ---|*                TO *XCS* TO EXECUTE CONTROL STATEMENT.
Line S00014 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00457  M01S00014.v23l617 +++|*                TO *XCS* TO EXECUTE COMMAND.
00458  M00S00337.1aj     +++|*
00459  M00S00338.1aj     +++|*         USES   CM.
00460  M00S00339.1aj     +++|*
Line S00340 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00461  M01S00340.ns2009  ---|*         CALLS  SCP, *3AB*.
00462  M01S00341.ns2009  ---|*
00463  M01S00342.ns2009  ---|*         MACROS EXECUTE.
Line S00001 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00464  M01S00001.ns2009  +++|*         CALLS  PES.
00465  M00S00343.1aj     +++|
00466  M00S00344.1aj     +++|
00467  M00S00345.1aj     +++| PPC      BSS    0           ENTRY
00468  M00S00346.1aj     +++|          LDD    RF          CHECK REPRIEVE FLAG
00469  M00S00347.1aj     +++|          LPC    100
00470  M00S00348.1aj     +++|          ADD    EF
Line S00349 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00471  M01S00349.ns2323  ---|          ZJN    PPC1        IF NO REPRIEVE OR ERROR FLAG
Line S00007 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00472  M01S00007.ns2323  +++|          ADM    PRCF
00473  M01S00008.ns2323  +++|          ZJN    PPC1        IF NO ERROR FLAG OR JOB STEP PROCESSING
Line S00350 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00474  M01S00350.ns2009  ---|          EXECUTE  3AB       EXECUTE ERROR PROCESSOR
00475  M01S00351.ns2009  ---|          RJM    SCP         CHECK SCP ACTIVITY
Line S00002 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00002.ns2009  +++|          RJM    PES         PROCESS ERROR AND SCP CONNECTIONS
00477  M00S00352.1aj     +++|          LJM    DPP         DROP PP
00478  M00S00353.1aj     +++|
00479  M00S00354.1aj     +++| PPC1     STD    CM          CLEAR ERROR MESSAGE
00480  M00S00355.1aj     +++|          LDD    IR+4
00481  M00S00356.1aj     +++|          SHN    21-1
00482  M00S00357.1aj     +++|          PJN    PPC2        IF NO RETURN OF ERROR MESSAGE
00483  M00S00358.1aj     +++|          LDD    CP
00484  M00S00359.1aj     +++|          ADN    MS2W
00485  M00S00360.1aj     +++|          CWD    CM
Line S00361 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00486  M01S00361.v23l617 ---| PPC2     LJM    XCS         EXECUTE CONTROL STATEMENT
Line S00015 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00487  M01S00015.v23l617 +++| PPC2     LJM    XCS         EXECUTE COMMAND
00488  M00S00362.1aj     +++|          TITLE  RESIDENT SUBROUTINES.
00489  M00S00363.1aj     +++| ADJ      SPACE  4,15
00490  M00S00364.1aj     +++|**        ADJ - ADVANCE JOB.
00491  M00S00365.1aj     +++|*
00492  M00S00366.1aj     +++|*         PROCESSES ERROR FLAG OR REPRIEVE, IF SET, AND
Line S00367 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00493  M01S00367.v23l617 ---|*         EXECUTES THE NEXT CONTROL STATEMENT, IF PRESENT.
00494  M01S00368.v23l617 ---|*         IF NO CONTROL STATEMENTS REMAIN, THE END-OF-JOB
Line S00016 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00016.v23l617 +++|*         EXECUTES THE NEXT COMMAND, IF PRESENT.
00496  M01S00017.v23l617 +++|*         IF NO COMMANDS REMAIN, THE END-OF-JOB
00497  M00S00369.1aj     +++|*         PROCESSOR WILL BE CALLED.
00498  M00S00370.1aj     +++|*
00499  M00S00371.1aj     +++|*         EXIT   TO *ENJ* TO END JOB.
Line S00372 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00372.v23l617 ---|*                TO *XCS* TO EXECUTE CONTROL STATEMENT.
Line S00018 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00501  M01S00018.v23l617 +++|*                TO *XCS* TO EXECUTE COMMAND.
Line S00373 Modification History
M01 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00502  M01S00373.ns2433b ---|*                TO *RTJ* TO ROLLOUT ON-LINE INTERACTIVE JOB.
00503  M00S00374.1aj     +++|*                TO *ROJ* TO ROLLOUT JOB.
00504  M00S00375.1aj     +++|*
Line S00376 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00505  M01S00376.ns2009  ---|*         CALLS  /3AF/RCF, SCP, *3AB*, *3AF*.
Line S00003 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00506  M01S00003.ns2009  +++|*         CALLS  PES, /3AF/RCF, *3AF*.
00507  M00S00377.1aj     +++|*
00508  M00S00378.1aj     +++|*         MACROS EXECUTE.
00509  M00S00379.1aj     +++|
00510  M00S00380.1aj     +++|
00511  M00S00381.1aj     +++| ADJ      BSS    0           ENTRY
00512  M00S00382.1aj     +++|          LDD    RO          CHECK ROLLOUT FLAG
00513  M00S00383.1aj     +++|          ZJN    ADJ1        IF ROLLOUT NOT SET
00514  M00S00384.1aj     +++|          LDN    0           DO NOT PASS ERROR FLAG
00515  M00S00385.1aj     +++|          STD    EF
00516  M00S00386.1aj     +++|          LJM    ROJ         ROLLOUT JOB
00517  M00S00387.1aj     +++|
00518  M00S00388.1aj     +++|*         PROCESS REPRIEVE OR ERROR FLAG.
00519  M00S00389.1aj     +++|
00520  M00S00390.1aj     +++| ADJ1     LDD    RF          CHECK REPRIEVE FLAG
00521  M00S00391.1aj     +++|          LPC    100
00522  M00S00392.1aj     +++|          ADD    EF
Line S00393 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00393.ns2323  ---|          ZJN    ADJ3        IF NO REPRIEVE OR ERROR FLAG
Line S00009 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00009.ns2323  +++|          ADM    PRCF
00525  M01S00010.ns2323  +++|          ZJN    ADJ3        IF NO ERROR FLAG OR JOB STEP PROCESSING
Line S00394 Modification History
M01 (Removed by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00394.ns2009  ---|          EXECUTE  3AB
00527  M01S00395.ns2009  ---|          RJM    SCP         CHECK SCP ACTIVITY
Line S00004 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
00528  M01S00004.ns2009  +++|          RJM    PES         PROCESS ERROR AND SCP CONNECTIONS
00529  M00S00396.1aj     +++|          LDD    CP
00530  M00S00397.1aj     +++|          ADC    SEPW
00531  M00S00398.1aj     +++|          CRD    CM
00532  M00S00399.1aj     +++|          LDD    CM          CHECK *SSJ=* JOB
00533  M00S00400.1aj     +++|          SHN    21-2
00534  M00S00401.1aj     +++|          PJN    ADJ2        IF NOT *SSJ=*
00535  M00S00402.1aj     +++|          EXECUTE  3AF
00536  M00S00403.1aj     +++|          LDN    0           INDICATE JOB NOT BOTH *SSJ=* AND *DMP=*
00537  M00S00404.1aj     +++|          RJM    /3AF/RCF    RESTORE CONTROL POINT FIELDS
Line S00405 Modification History
M01 (Removed by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
00538  M01S00405.ns2044  ---| ADJ2     LDC    0           CHECK TERMINAL NUMBER
Line S00001 Modification History
M01 (Added by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00004.243l647 ---|          NJP    TER4        IF CM/CPU PARITY ERROR, FREEZE JOB
Line S00001 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00001.243l647 +++|          NJP    TER5        IF CM/CPU PARITY ERROR, FREEZE JOB
Line S00005 Modification History
M01 (Added by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
00544  M01S00005.ns2044  +++|          LDC    **          CHECK FOR TERMINAL JOB
Line S00406 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00545  M01S00406.v23l617 ---| TSTN     EQU    *-1         TIMESHARING TERMINAL NUMBER
00546  M01S00407.v23l617 ---|                             = 0 IF NOT ONLINE, TIMESHARING JOB
Line S00019 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00547  M01S00019.v23l617 +++| TSTN     EQU    *-1         INTERACTIVE TERMINAL NUMBER
00548  M01S00020.v23l617 +++|                             = 0 IF NOT ONLINE, INTERACTIVE JOB
Line S00408 Modification History
M01 (Removed by) 1aj31
Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00408.1aj31   ---|          ZJN    ADJ3        IF NOT TIMESHARING JOB
00550  M01S00409.1aj31   ---|          LJM    RTJ         ROLLOUT TIMESHARING JOB
Line S00001 Modification History
M01 (Added by) 1aj31
Seq #  *Modification Id* Act 
----------------------------+
00551  M01S00001.1aj31   +++|          NJN    ADJ5        IF INTERACTIVE JOB
00552  M00S00410.1aj     +++|
Line S00411 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00553  M01S00411.v23l617 ---|*         ADVANCE TO NEXT CONTROL STATEMENT.
Line S00021 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00554  M01S00021.v23l617 +++|*         ADVANCE TO NEXT COMMAND.
00555  M00S00412.1aj     +++|
Line S00413 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00413.v23l617 ---| ADJ3     LDD    CP          READ CONTROL STATEMENT POINTERS
Line S00022 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00557  M02S00022.ns2323  ---| ADJ3     LDD    CP          READ COMMAND POINTERS
Line S00414 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00558  M01S00414.ns2323  ---|          ADK    CSPW
00559  M01S00415.ns2323  ---|          CRD    SP
Line S00416 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00416.ns2323  ---|          LDD    SP+3        CHECK CONTROL STATEMENT BUFFER
Line S00023 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00023.ns2323  ---|          LDD    SP+3        CHECK COMMAND BUFFER
Line S00417 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00417.ns2323  ---|          LMD    SP+4
00563  M01S00418.ns2323  ---|          NJN    ADJ4        IF NOT EMPTY
00564  M01S00419.ns2323  ---|          LDD    SP+1        CHECK RECORD STATUS
00565  M01S00420.ns2323  ---|          SHN    21-13
00566  M01S00421.ns2323  ---|          PJN    ADJ4        IF NOT EOR
Line S00422 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00422.ns2323  ---|          LDD    CP          CHECK FOR *TCS* EXECUTE CONTROL STATEMENT
Line S00024 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00024.ns2323  ---|          LDD    CP          CHECK FOR *TCS* EXECUTE COMMAND
Line S00423 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00423.ns2323  ---|          ADK    RFCW
00570  M01S00424.ns2323  ---|          CRD    CM
00571  M01S00425.ns2323  ---|          LDD    CM+3
00572  M01S00426.ns2323  ---|          SCN    77
00573  M01S00427.ns2323  ---|          ADD    CM+2
Line S00428 Modification History
M01 (Removed by) ns21000
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00428.ns2323  ---|          ZJP    ENJ         IF NO EXECUTE STATEMENT FROM CM
Line S00004 Modification History
M01 (Added by) ns21000
M02 (Removed by) v23l617
M03 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00575  M03S00004.ns2323  ---|          ZJN    ADJ5        IF NO EXECUTE STATEMENT FROM CM
Line S00429 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00429.ns2323  ---| ADJ4     LJM    XCS         EXECUTE CONTROL STATEMENT
Line S00025 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00025.ns2323  ---|          ZJN    ADJ5        IF NO EXECUTE COMMAND FROM CM
Line S00011 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00026 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00582  M01S00026.v23l617 +++| ADJ4     LJM    XCS         EXECUTE COMMAND
Line S00005 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00583  M01S00005.ns21000 +++|
Line S00006 Modification History
M01 (Added by) ns21000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00006.242l642 ---| ADJ5     NFA    SHCN        CHECK *SHELL* CONTROL
Line S00002 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2429
Seq #  *Modification Id* Act 
----------------------------+
00589  M02S00006.ns2429  ---|          NFA    SHCN        CHECK *SHELL* CONTROL
Line S00001 Modification History
M01 (Added by) ns2429
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00007 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00014.v23l617 ---|          MJN    ADJ4        IF INTERACTIVE STATEMENTS MONITORED
Line S00027 Modification History
M01 (Added by) v23l617
M02 (Removed by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00027.1aj116  ---|          MJN    ADJ4        IF INTERACTIVE COMMANDS MONITORED
Line S00001 Modification History
M01 (Added by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00015 Modification History
M01 (Added by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00608  M01S00015.ns21000 +++| ADJ6     LJM    ENJ         END JOB
00609  M00S00430.1aj     +++| CPP      SPACE  4,10
00610  M00S00431.1aj     +++|**        CPP - CALL PP PROGRAM.
00611  M00S00432.1aj     +++|*
00612  M00S00433.1aj     +++|*         ENTRY  (A) = NAME OF PP PROGRAM TO BE CALLED.
00613  M00S00434.1aj     +++|*                (IR+2 - IR+4) = PROGRAM PARAMETERS.
00614  M00S00435.1aj     +++|*
00615  M00S00436.1aj     +++|*         EXIT   TO *PPR* TO EXECUTE PP PROGRAM.
00616  M00S00437.1aj     +++|
00617  M00S00438.1aj     +++|
00618  M00S00439.1aj     +++| CPP      BSS    0           ENTRY
00619  M00S00440.1aj     +++|          SHN    14          SET PP NAME IN INPUT REGISTER
00620  M00S00441.1aj     +++|          STD    IR
00621  M00S00442.1aj     +++|          SHN    -6
00622  M00S00443.1aj     +++|          LMD    IR+1
00623  M00S00444.1aj     +++|          SCN    77
00624  M00S00445.1aj     +++|          LMD    IR+1
00625  M00S00446.1aj     +++|          STD    IR+1
00626  M00S00447.1aj     +++|          LDD    IA          STORE INPUT REGISTER
00627  M00S00448.1aj     +++|          CWD    IR
00628  M00S00449.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
00629  M00S00450.1aj     +++| CSR      SPACE  4,15
00630  M00S00451.1aj     +++|**        CSR - CHECK FOR SPECIAL SYSTEM REQUEST.
00631  M00S00452.1aj     +++|*
00632  M00S00453.1aj     +++|*         EXIT   TO *ADJ* TO ADVANCE JOB.
00633  M00S00454.1aj     +++|*                TO *DPP* TO DROP PP.
00634  M00S00455.1aj     +++|*                TO *PPC* TO PROCESS ERROR REPRIEVE ON *DMP=* JOB.
00635  M00S00456.1aj     +++|*                TO */3AF/PSR* OR */3AF/PSR2* TO PROCESS SPECIAL
00636  M00S00457.1aj     +++|*                PROCESSOR REQUEST.
Line S00458 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00637  M01S00458.v23l617 ---|*                TO *TCS* TO TRANSLATE CONTROL STATEMENT.
Line S00028 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00638  M01S00028.v23l617 +++|*                TO *TCS* TO TRANSLATE COMMAND.
00639  M00S00459.1aj     +++|*
Line S00460 Modification History
M01 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00640  M01S00460.ns2738  ---|*         USES   CM - CM+4, CN - CN+4, AB - AB+4, EF, RO.
Line S00001 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00641  M01S00001.ns2738  +++|*         USES   EF, RO ,T3 , CM - CM+4, CN - CN+4, AB - AB+4.
00642  M00S00461.1aj     +++|*
00643  M00S00462.1aj     +++|*         CALLS  /3AE/CLD, CUA, DFM, /3AF/PSR, /3AF/RCF, SCP, TCS.
00644  M00S00463.1aj     +++|*
Line S00464 Modification History
M01 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00645  M01S00464.ns2738  ---|*         MACROS EXECUTE.
Line S00002 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00646  M01S00002.ns2738  +++|*         MACROS EXECUTE, MONITOR.
00647  M00S00465.1aj     +++|
00648  M00S00466.1aj     +++|
00649  M00S00467.1aj     +++| CSR      BSS    0           ENTRY
00650  M00S00468.1aj     +++|          LDD    CP          READ SPECIAL ENTRY POINT WORD
00651  M00S00469.1aj     +++|          ADK    SEPW
00652  M00S00470.1aj     +++|          CRD    CM
00653  M00S00471.1aj     +++|          ADN    SPCW-SEPW   READ SPECIAL CALL WORD
00654  M00S00472.1aj     +++|          CRD    CN
00655  M00S00473.1aj     +++|          LDD    CN
Line S00474 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00656  M01S00474.ns2323  ---|          NJN    CSR2        IF REQUEST PRESENT
Line S00015 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00657  M01S00015.ns2323  +++|          NJP    CSR2        IF DMP= REQUEST PRESENT
00658  M00S00475.1aj     +++|          LDD    FS
00659  M00S00476.1aj     +++|          ADD    RO
00660  M00S00477.1aj     +++|          NJN    CSR1        IF JOB ACTIVITY OR ROLLOUT REQUESTED
00661  M00S00478.1aj     +++|          LDD    RF
00662  M00S00479.1aj     +++|          LPC    100
00663  M00S00480.1aj     +++|          ADD    EF
Line S00481 Modification History
M01 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00664  M01S00481.ns2323  ---|          NJN    CSR1        IF REPRIEVE OR ERROR FLAG
Line S00016 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00665  M01S00016.ns2323  +++|          ADM    PRCF
00666  M01S00017.ns2323  +++|          NJN    CSR1        IF ERROR FLAG OR JOB STEP PROCESSING
00667  M00S00482.1aj     +++|          LDD    CM
00668  M00S00483.1aj     +++|          SHN    21-2
00669  M00S00484.1aj     +++|          PJN    CSR1        IF NOT *SSJ=*
00670  M00S00485.1aj     +++|          EXECUTE  3AF
00671  M00S00486.1aj     +++|          LDN    0           JOB IS NOT BOTH *SSJ=* AND *DMP=*
00672  M00S00487.1aj     +++|          RJM    /3AF/RCF    RESTORE CONTROL POINT FIELDS
00673  M00S00488.1aj     +++| CSR1     LDD    IR+2
00674  M00S00489.1aj     +++|          NJP    PPC         IF NOT FUNCTION 0
00675  M00S00490.1aj     +++|          LDD    IR+4
00676  M00S00491.1aj     +++|          LMN    2
00677  M00S00492.1aj     +++|          ZJP    DPP         IF *DIS* CALL
00678  M00S00493.1aj     +++|          LJM    ADJ         ADVANCE JOB
00679  M00S00494.1aj     +++|
00680  M00S00495.1aj     +++| CSR2     LDD    IR+4
00681  M00S00496.1aj     +++|          LMN    1
00682  M00S00497.1aj     +++|          NJN    CSR4        IF *1RO* NOT ALREADY CALLED
00683  M00S00498.1aj     +++| CSR3     EXECUTE  TCS
00684  M00S00499.1aj     +++|
00685  M00S00500.1aj     +++| CSR4     LDD    CN+1
00686  M00S00501.1aj     +++|          SHN    21-5
00687  M00S00502.1aj     +++|          PJN    CSR6        IF NO SPECIAL REQUEST ACTIVE
00688  M00S00503.1aj     +++|          LDD    RO
00689  M00S00504.1aj     +++|          NJN    CSR1        IF ROLLOUT SET
00690  M00S00505.1aj     +++|          LDD    EF
00691  M00S00506.1aj     +++|          ZJN    CSR5        IF NO ERROR
Line S00507 Modification History
M01 (Removed by) 1aj98
Seq #  *Modification Id* Act 
----------------------------+
00692  M01S00507.1aj98   ---|          LDD    T1          CHECK FOR EXTENDED REPRIEVE PROCESSING
00693  M01S00508.1aj98   ---|          SHN    21-12
00694  M01S00509.1aj98   ---|          PJN    CSR5        IF NOT EXTENDED REPRIEVE
Line S00001 Modification History
M01 (Added by) 1aj98
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00510.1aj     +++|          LDD    RF
00699  M00S00511.1aj     +++|          ZJN    CSR5        IF ERROR MASK NOT SET
00700  M00S00512.1aj     +++|          LJM    PPC         PROCESS ERROR REPRIEVE ON *DMP=* JOB
00701  M00S00513.1aj     +++|
Line S00514 Modification History
M01 (Removed by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00702  M01S00514.ns2738  ---| CSR5     LDD    CN+2
00703  M01S00515.ns2738  ---|          SHN    21-13
00704  M01S00516.ns2738  ---|          PJN    CSR3        IF *DMP=* JOB WAS NEVER UCP
00705  M01S00517.ns2738  ---|          RJM    SCP         CLEAR ANY OUTSTANDING SCP CONNECTIONS
Line S00003 Modification History
M01 (Added by) ns2738
Seq #  *Modification Id* Act 
----------------------------+
00706  M01S00003.ns2738  +++| CSR5     RJM    SCP         CLEAR ANY OUTSTANDING SCP CONNECTIONS
00707  M00S00518.1aj     +++|          UJN    CSR3        RESTART ORIGINAL JOB
00708  M00S00519.1aj     +++|
00709  M00S00520.1aj     +++| CSR6     LDD    CN
00710  M00S00521.1aj     +++|          LMN    77
Line S00522 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00711  M01S00522.v23l617 ---|          NJN    CSR7        IF NOT CONTROL STATEMENT CALL
Line S00029 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00712  M01S00029.v23l617 +++|          NJN    CSR7        IF NOT COMMAND CALL
00713  M00S00523.1aj     +++|          LDD    FL
00714  M00S00524.1aj     +++|          ZJP    CSR8        IF NO FL ASSIGNED
00715  M00S00525.1aj     +++|          EXECUTE  3AF
00716  M00S00526.1aj     +++|          LJM    /3AF/PSR2   PROCESS SPECIAL PROCESSOR REQUEST
00717  M00S00527.1aj     +++|
00718  M00S00528.1aj     +++|
00719  M00S00529.1aj     +++|*         CHECK IF *DMP=* PROGRAM CAN BE CALLED FROM PROGRAM WITH
00720  M00S00530.1aj     +++|*         SECURE MEMORY SET.
00721  M00S00531.1aj     +++|
00722  M00S00532.1aj     +++| CSR7     LDC    TLCN-2      CHECK TABLE OF LEGAL CALL NAMES
00723  M00S00533.1aj     +++|          STD    T3
00724  M00S00534.1aj     +++| CSR7.1   LDN    2           CHECK NEXT NAME
00725  M00S00535.1aj     +++|          RAD    T3
00726  M00S00536.1aj     +++|          LDI    T3          COMPARE FIRST PART OF CALL NAME
00727  M00S00537.1aj     +++|          ZJN    CSR7.2      IF END OF TABLE
00728  M00S00538.1aj     +++|          LMD    CN
00729  M00S00539.1aj     +++|          NJN    CSR7.1      IF NOT A MATCH
00730  M00S00540.1aj     +++|          LDM    1,T3        COMPARE SECOND PART OF CALL NAME
00731  M00S00541.1aj     +++|          LMD    CN+1
00732  M00S00542.1aj     +++|          SCN    77
00733  M00S00543.1aj     +++|          NJN    CSR7.1      IF NOT A MATCH
00734  M00S00544.1aj     +++|          UJN    CSR9        PROCESS CALL
00735  M00S00545.1aj     +++|
00736  M00S00546.1aj     +++| CSR7.2   LDD    CM
00737  M00S00547.1aj     +++|          SHN    21-2
00738  M00S00548.1aj     +++|          MJN    CSR9        IF *SSJ=* JOB
00739  M00S00549.1aj     +++|          LDD    CP          CHECK SSM STATUS
00740  M00S00550.1aj     +++|          ADC    DBAW
00741  M00S00551.1aj     +++|          CRD    CM
00742  M00S00552.1aj     +++|          LDD    CM
00743  M00S00553.1aj     +++|          SHN    21-13
00744  M00S00554.1aj     +++|          PJN    CSR9        IF NOT SECURE MEMORY
00745  M00S00555.1aj     +++|          RJM    CUA         CHECK USER ACESS
00746  M00S00556.1aj     +++|          ZJN    CSR9        IF ACCESS ALLOWED
00747  M00S00557.1aj     +++| CSR8     LDC    LDNI+PPET   CHANGE ERROR TO *PPET*
00748  M00S00558.1aj     +++|          STM    CSRA
00749  M00S00559.1aj     +++|          LDC    =C* SECURE MEMORY, DUMP DISABLED.*
00750  M00S00560.1aj     +++|          UJN    CSR11       ISSUE ERROR MESSAGE
00751  M00S00561.1aj     +++|
00752  M00S00562.1aj     +++| CSR9     LDN    ZERL        CLEAR NAME
00753  M00S00563.1aj     +++|          CRD    AB
00754  M00S00564.1aj     +++|          LDD    CN          SET CALL NAME
00755  M00S00565.1aj     +++|          STD    AB
00756  M00S00566.1aj     +++|          LDD    CN+1
00757  M00S00567.1aj     +++|          SCN    77
00758  M00S00568.1aj     +++|          STD    AB+1
00759  M00S00569.1aj     +++|          EXECUTE  3AE
00760  M00S00570.1aj     +++|          RJM    /3AE/CLD    SEARCH CLD
Line S00571 Modification History
M01 (Removed by) 1aj34
Seq #  *Modification Id* Act 
----------------------------+
00761  M01S00571.1aj34   ---|          NJN    CSR12       IF FOUND
Line S00001 Modification History
M01 (Added by) 1aj34
Seq #  *Modification Id* Act 
----------------------------+
00762  M01S00001.1aj34   +++|          NJP    CSR12       IF FOUND
00763  M00S00572.1aj     +++| CSR10    LDC    =C* SPCW CALL ERROR.*
00764  M00S00573.1aj     +++|
00765  M00S00574.1aj     +++|*         ISSUE ERROR MESSAGE.
00766  M00S00575.1aj     +++|
00767  M00S00576.1aj     +++| CSR11    RJM    DFM
00768  M00S00577.1aj     +++|          LDN    ZERL
00769  M00S00578.1aj     +++|          CRD    AB
00770  M00S00579.1aj     +++|          LDD    CP          CLEAR SPECIAL CALL WORD
00771  M00S00580.1aj     +++|          ADC    SPCW
00772  M00S00581.1aj     +++|          CWD    AB
00773  M00S00582.1aj     +++|          LDD    FL
00774  M00S00583.1aj     +++|          ZJN    CSR11.1     IF NO FL ASSIGNED
Line S00584 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00775  M01S00584.v23l617 ---|          LDD    RA          CLEAR RA+1
Line S00030 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00776  M01S00030.v23l617 +++|          LDD    RA          CLEAR SYSTEM REQUEST
00777  M00S00585.1aj     +++|          SHN    6
00778  M00S00586.1aj     +++|          ADN    1
00779  M00S00587.1aj     +++|          CWD    AB
Line S00588 Modification History
M01 (Removed by) 1aj34
Seq #  *Modification Id* Act 
----------------------------+
00780  M01S00588.1aj34   ---|          LDN    0           CLEAR ROLLOUT
Line S00002 Modification History
M01 (Added by) 1aj34
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00589.1aj     +++| CSR11.1  STD    RO
00792  M00S00590.1aj     +++| CSRA     LDN    SYET        SET ERROR FLAG
Line S00591 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00793  M01S00591.v23l617 ---|*         LDN    PPET        (INVALID *DMP=* CALL)
Line S00031 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00794  M01S00031.v23l617 +++|*         LDN    PPET        (INCORRECT *DMP=* CALL)
00795  M00S00592.1aj     +++|          STD    EF
00796  M00S00593.1aj     +++|          LJM    CSR1        DROP PP
00797  M00S00594.1aj     +++|
00798  M00S00595.1aj     +++| CSR12    CRD    CM          READ PST CONTROL WORD ENTRY
00799  M00S00596.1aj     +++|          LDD    MA          SET ENTRY POINT NAME
00800  M00S00597.1aj     +++|          CWD    AB
00801  M00S00598.1aj     +++|          CRM    /3AE/CL,ON
00802  M00S00599.1aj     +++|          LDD    T2          SAVE PST ADDRESS
00803  M00S00600.1aj     +++|          STD    AB+2
00804  M00S00601.1aj     +++|          LDD    T1
00805  M00S00602.1aj     +++|          STD    AB+1
00806  M00S00603.1aj     +++|          EXECUTE  3AF
00807  M00S00604.1aj     +++|          LJM    /3AF/PSR    PROCESS SPECIAL PROCESSOR REQUEST
Line S00012 Modification History
M01 (Added by) 1aj34
Seq #  *Modification Id* Act 
----------------------------+
00808  M01S00012.1aj34   +++|
00809  M01S00013.1aj34   +++|
00810  M01S00014.1aj34   +++| CSRB     VFD    6/STSW,6/2,6/24D,42/0  CLEAR ROLLOUT STATUS
00811  M00S00605.1aj     +++| TLCN     SPACE  4,10
00812  M00S00606.1aj     +++|**        TLCN - TABLE OF LEGAL *DMP=* PROGRAM CALL NAMES
00813  M00S00607.1aj     +++|*         FOR PROGRAMS WITH SECURE MEMORY SET.
00814  M00S00608.1aj     +++|
00815  M00S00609.1aj     +++| TLCN     BSS    0
Line S00032 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00816  M01S00032.v23l617 +++|          DATA   3LCPF
00817  M00S00610.1aj     +++|          DATA   3LCVL
00818  M00S00611.1aj     +++|          DATA   3LLFM
00819  M00S00612.1aj     +++|          DATA   3LPFM
00820  M00S00613.1aj     +++|          DATA   3LREQ
00821  M00S00614.1aj     +++|          CON    0
00822  M00S00615.1aj     +++| DPP      SPACE  4,10
00823  M00S00616.1aj     +++|**        DPP - DROP PP.
00824  M00S00617.1aj     +++|*
00825  M00S00618.1aj     +++|*         ISSUES *JACM* REQUEST TO CLEAR THE JOB ADVANCE FLAG
00826  M00S00619.1aj     +++|*         AND TO DROP THE PPU.
00827  M00S00620.1aj     +++|*
00828  M00S00621.1aj     +++|*         EXIT   TO *PPR*.
00829  M00S00622.1aj     +++|*
00830  M00S00623.1aj     +++|*         MACROS MONITOR.
00831  M00S00624.1aj     +++|
00832  M00S00625.1aj     +++|
00833  M00S00626.1aj     +++| DPP      LDN    DPPS        CLEAR JOB ADVANCE AND DROP PP
00834  M00S00627.1aj     +++|          STD    CM+1
00835  M00S00628.1aj     +++|          MONITOR  JACM
00836  M00S00629.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
00837  M00S00630.1aj     +++| ENJ      SPACE  4,10
00838  M00S00631.1aj     +++|**        ENJ - END JOB.
00839  M00S00632.1aj     +++|*
00840  M00S00633.1aj     +++|*         ENTRY  (TSTN) = TERMINAL NUMBER IF ONLINE.
00841  M00S00634.1aj     +++|*
Line S00635 Modification History
M01 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00842  M01S00635.ns2433b ---|*         EXIT   TO *RTJ* IF ON-LINE INTERACTIVE JOB.
Line S00002 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00843  M01S00002.ns2433b +++|*         EXIT   TO *ROJ1* IF ON-LINE INTERACTIVE JOB.
00844  M00S00636.1aj     +++|*                TO *TER* OTHERWISE.
Line S00001 Modification History
M01 (Added by) 1aj76
Seq #  *Modification Id* Act 
----------------------------+
00845  M01S00001.1aj76   +++|*
Line S00002 Modification History
M01 (Added by) 1aj76
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
00846  M02S00002.ns2719  ---|*         CALLS  SCP.
Line S00001 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
00847  M01S00001.ns2719  +++|*         CALLS  RJF, SCP.
00848  M00S00637.1aj     +++|
00849  M00S00638.1aj     +++|
00850  M00S00639.1aj     +++| ENJ      BSS    0           ENTRY
Line S00003 Modification History
M01 (Added by) 1aj76
Seq #  *Modification Id* Act 
----------------------------+
00851  M01S00003.1aj76   +++|          RJM    SCP         CHECK SCP ACTIVITY
Line S00002 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
00852  M01S00002.ns2719  +++|          RJM    RJF         RETURN JOB STEP FILES
00853  M00S00640.1aj     +++|          LDM    TSTN        CHECK TERMINAL NUMBER
Line S00007 Modification History
M01 (Added by) 242l642
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00007.ns2433b ---|          NJN    ENJ2        IF ONLINE
Line S00003 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00003.ns2433b +++|          NJN    ROJ1        IF ONLINE
Line S00641 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00856  M01S00641.ns22000 ---|          NJP    RTJ         IF ONLINE, ROLLOUT JOB
Line S00003 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00003.ns2323  ---|          NJN    ENJ1        IF ONLINE
Line S00008 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00858  M01S00008.242l642 +++|*         PSN                (NO NFL)
00859  M01S00009.242l642 +++| ENJB     EQU    *-1
Line S00018 Modification History
M01 (Added by) ns2323
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00018.242l642 ---|          NJN    ENJ2        IF ONLINE
00861  M00S00642.1aj     +++|          LJM    TER         TERMINATE JOB
Line S00004 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00004.ns2433b ---|
Line S00005 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2323
M03 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00863  M03S00005.ns2433b ---| ENJ1     LDC    0
00864  M03S00006.ns2433b ---|*         LDC    SYET        (LOGOUT EPILOGUE EXECUTING)
00865  M03S00007.ns2433b ---| ENJA     EQU    *-1         (LOGOUT EPILOGUE FLAG)
00866  M03S00008.ns2433b ---|          ZJN    ENJ2        IF NOT LOGOUT EPILOGUE ABORT
00867  M03S00009.ns2433b ---|          STD    CM+1
00868  M03S00010.ns2433b ---|          MONITOR  CEFM      SET ERROR TO FORCE LOGOUT
00869  M03S00011.ns2433b ---|          UJN    DPP         CLEAR JOB ADVANCE AND DROP PPU
00870  M03S00012.ns2433b ---|
Line S00013 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2308
M03 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00871  M03S00013.ns2433b ---| ENJ2     UJN    RTJ         ROLLOUT TERMINAL JOB
Line S00001 Modification History
M01 (Added by) ns2308
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00001.ns2433b ---| ENJ2     LJM    RTJ         ROLLOUT TERMINAL JOB
Line S00004 Modification History
M01 (Added by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00643.1aj     +++| IRO      SPACE  4,15
00887  M00S00644.1aj     +++|**        IRO - EXECUTE *1RO*.
00888  M00S00645.1aj     +++|*
00889  M00S00646.1aj     +++|*         LOADS AND EXECUTES *1RO* IN THIS PP.
00890  M00S00647.1aj     +++|*
Line S00648 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00891  M01S00648.v23l617 ---|*         ENTRY  (A) = TIMESHARING ERROR FLAG.
Line S00033 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00892  M01S00033.v23l617 +++|*         ENTRY  (A) = INTERACTIVE ERROR FLAG.
00893  M00S00649.1aj     +++|*
00894  M00S00650.1aj     +++|*         EXIT   TO *CPP*.
00895  M00S00651.1aj     +++|*
00896  M00S00652.1aj     +++|*         USES   IR+2, IR+4, CM - CM+4.
00897  M00S00653.1aj     +++|*
00898  M00S00654.1aj     +++|*         CALLS  *1RO*.
00899  M00S00655.1aj     +++|*
00900  M00S00656.1aj     +++|*         MACROS EXECUTE.
00901  M00S00657.1aj     +++|
00902  M00S00658.1aj     +++|
00903  M00S00659.1aj     +++| IRO      BSS    0           ENTRY
Line S00660 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00904  M01S00660.v23l617 ---|          STD    IR+4        SET TIMESHARING ERROR FLAG
Line S00034 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00905  M01S00034.v23l617 +++|          STD    IR+4        SET INTERACTIVE ERROR FLAG
00906  M00S00661.1aj     +++|          LDN    0           INDICATE NORMAL ROLLOUT
00907  M00S00662.1aj     +++|          STD    IR+2
00908  M00S00663.1aj     +++|          LDM    JTOP
00909  M00S00664.1aj     +++|          LMN    SUJT
00910  M00S00665.1aj     +++|          ZJN    IRO1        IF SUSPEND TERMINATION OPTION
00911  M00S00666.1aj     +++|          LDD    CP          UNCONDITIONALLY CLEAR SUSPEND FLAG
00912  M00S00667.1aj     +++|          ADN    STSW
00913  M00S00668.1aj     +++|          CRD    CM
Line S00669 Modification History
M01 (Removed by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00914  M01S00669.ns2696  ---|          LDD    CM+2        CHECK SUSPEND OPTION
00915  M01S00670.ns2696  ---|          SHN    21-6
00916  M01S00671.ns2696  ---|          PJN    IRO1        IF SUSPEND FLAG NOT SET
Line S00002 Modification History
M01 (Added by) ns2308
M02 (Removed by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00917  M02S00002.ns2696  ---|          LDD    CM+4
00918  M02S00003.ns2696  ---|          LPK    360
00919  M02S00004.ns2696  ---|          NJN    IRO1        IF PP RECALL QUEUE ENTRIES
00920  M00S00672.1aj     +++|          LDD    CM+2
00921  M00S00673.1aj     +++|          LPC    -100
00922  M00S00674.1aj     +++|          ERRNZ  ROSU*10-100 CODE ASSUMES SUSPENSION FLAG IS BIT 30D
00923  M00S00675.1aj     +++|          STD    CM+2
00924  M00S00676.1aj     +++|          LDD    CP
00925  M00S00677.1aj     +++|          ADN    STSW
00926  M00S00678.1aj     +++|          CWD    CM
Line S00679 Modification History
M01 (Removed by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
00927  M01S00679.ns2696  ---|          LJM    TER         TERMINATE JOB
00928  M01S00680.ns2696  ---|
00929  M00S00681.1aj     +++| IRO1     EXECUTE  1RO,*
00930  M00S00682.1aj     +++|          LJM    CPP         EXECUTE *1RO*
Line S00001 Modification History
M01 (Added by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00009.271l716 ---|*         USES   T1.
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00001.271l716 +++|*         USES   T1, CM - CM+4.
Line S00010 Modification History
M01 (Added by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00015.271l716 ---| ITF1     MONITOR  TSEM
Line S00002 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00947  M01S00002.271l716 +++| ITF1     LDK    ZERL
00948  M01S00003.271l716 +++|          CRD    CM
00949  M01S00004.271l716 +++|          MONITOR  TSEM
Line S00016 Modification History
M01 (Added by) ns2467
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00961  M01S00683.ns2433b ---| ROJ      SPACE  4,10
00962  M01S00684.ns2433b ---|**        ROJ - ROLLOUT JOB.
00963  M01S00685.ns2433b ---|*
00964  M01S00686.ns2433b ---|*         SETS UP LINKAGE TO ROLLOUT JOB.
00965  M01S00687.ns2433b ---|*
00966  M01S00688.ns2433b ---|*         EXIT   TO *RTJ* IF ON-LINE INTERACTIVE JOB.
00967  M01S00689.ns2433b ---|*                TO *IRO* OTHERWISE.
00968  M01S00690.ns2433b ---|
00969  M01S00691.ns2433b ---|
00970  M01S00692.ns2433b ---| ROJ      BSS    0           ENTRY
00971  M01S00693.ns2433b ---|          LDM    TSTN        CHECK TERMINAL NUMBER
Line S00694 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00694.ns2433b ---|          ZJN    IRO         IF NOT TIMESHARING JOB
Line S00035 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2308
M03 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00973  M03S00035.ns2433b ---|          ZJN    IRO         IF NOT INTERACTIVE JOB
Line S00005 Modification History
M01 (Added by) ns2308
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00974  M02S00005.ns2433b ---|          ZJN    RTJ1        IF NOT INTERACTIVE JOB
Line S00695 Modification History
M01 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00975  M01S00695.ns2433b ---|*         UJN    RTJ         ROLLOUT TERMINAL JOB
00976  M01S00696.ns2433b ---| RTJ      SPACE  4,10
Line S00697 Modification History
M01 (Removed by) v23l617
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00977  M02S00697.ns2433b ---|**        RTJ - ROLLOUT TIMESHARING JOB.
Line S00036 Modification History
M01 (Added by) v23l617
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00978  M02S00036.ns2433b ---|**        RTJ - ROLLOUT INTERACTIVE JOB.
Line S00698 Modification History
M01 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00979  M01S00698.ns2433b ---|*
00980  M01S00699.ns2433b ---|*         EXIT   TO *IRO* TO CALL *1RO* TO ROLLOUT JOB.
00981  M01S00700.ns2433b ---|*                TO *SUS* IF *IAF* INACCESSIBLE.
00982  M01S00701.ns2433b ---|
00983  M01S00702.ns2433b ---|
00984  M01S00703.ns2433b ---| RTJ      BSS    0           ENTRY
Line S00001 Modification History
M01 (Added by) ns2433
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00001.ns2433b ---|          LDD    CP          CHECK *IAF* REQUEST BIT
00986  M02S00002.ns2433b ---|          ADK    SNSW
00987  M02S00003.ns2433b ---|          CRD    CM
00988  M02S00004.ns2433b ---|          LDD    CM+4
00989  M02S00005.ns2433b ---|          LPN    1
00990  M02S00006.ns2433b ---|          ZJN    RTJ0        IF NO *IAF* REQUEST SINCE LAST ROLLOUT
00991  M02S00007.ns2433b ---|          LMD    CM+4        CLEAR BIT
00992  M02S00008.ns2433b ---|          STD    CM+4
00993  M02S00009.ns2433b ---|          LDD    CP
00994  M02S00010.ns2433b ---|          ADK    SNSW
00995  M02S00011.ns2433b ---|          CWD    CM
Line S00704 Modification History
M01 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00996  M01S00704.ns2433b ---|          LDC    0
00997  M01S00705.ns2433b ---| TSAF     EQU    *-1         (*IAF* ACCESSIBILITY FLAG)
00998  M01S00706.ns2433b ---|          ZJN    SUS         IF *IAF* INACCESSIBLE, SUSPEND JOB
Line S00707 Modification History
M01 (Removed by) ns2433
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
00999  M02S00707.ns2433b ---|          LDD    EF          SET ERROR FLAG FOR *1RO*
Line S00012 Modification History
M01 (Added by) ns2433
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
01000  M02S00012.ns2433b ---| RTJ0     LDD    EF          SET ERROR FLAG FOR *1RO*
Line S00708 Modification History
M01 (Removed by) ns2308
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00708.ns2433b ---|          UJP    IRO         ROLLOUT JOB
Line S00006 Modification History
M01 (Added by) ns2308
M02 (Removed by) ns2433b
Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00006.ns2433b ---| RTJ1     UJP    IRO         ROLLOUT JOB
Line S00005 Modification History
M01 (Added by) ns2009
Seq #  *Modification Id* Act 
----------------------------+
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
Line S00003 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00709.1aj     +++| SCP      SPACE  4,20
01036  M00S00710.1aj     +++|**        SCP - CHECK SYSTEM CONTROL POINT (SCP) ACTIVITY.
01037  M00S00711.1aj     +++|*
01038  M00S00712.1aj     +++|*         ENTRY  (SCAF) = SCP ACTIVITY FLAGS:
01039  M00S00713.1aj     +++|*                         BIT 0 = UCP WITH CONNECTION TO SCP.
01040  M00S00714.1aj     +++|*                         BIT 1 = SCP WITH CONNECTION TO UCP.
01041  M00S00715.1aj     +++|*                         BIT 2 = *SF.EXIT* REQUEST ISSUED.
01042  M00S00716.1aj     +++|*                         BIT 3 = *SSIW* IDENTIFICATION MUST
01043  M00S00717.1aj     +++|*                                 BE CLEARED.
01044  M00S00718.1aj     +++|*
Line S00719 Modification History
M01 (Removed by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01045  M01S00719.ns2696  ---|*         USES   SC.
Line S00001 Modification History
M01 (Added by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01046  M01S00001.ns2696  +++|*         EXIT   TO *DPP* IF ROLLOUT CPU STATUS PRESENT AND SYSTEM
01047  M01S00002.ns2696  +++|*                  DEBUG MODE NOT ENABLED.
01048  M00S00720.1aj     +++|*
Line S00003 Modification History
M01 (Added by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01049  M01S00003.ns2696  +++|*         USES   CM - CM+4, SC.
01050  M01S00004.ns2696  +++|*
01051  M00S00721.1aj     +++|*         CALLS  *0ST*.
01052  M00S00722.1aj     +++|*
Line S00723 Modification History
M01 (Removed by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01053  M01S00723.ns2696  ---|*         MACROS EXECUTE.
Line S00005 Modification History
M01 (Added by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01054  M01S00005.ns2696  +++|*         MACROS EXECUTE, MONITOR.
01055  M00S00724.1aj     +++|
01056  M00S00725.1aj     +++|
01057  M00S00726.1aj     +++| SCP      SUBR               ENTRY/EXIT
01058  M00S00727.1aj     +++|          LDM    SCAF        CHECK SCP ACTIVITY FLAGS
01059  M00S00728.1aj     +++|          ZJN    SCPX        IF NO SCP ACTIVITY, RETURN
01060  M00S00729.1aj     +++|          STD    SC          SET FLAGS FOR *0ST*
Line S00730 Modification History
M01 (Removed by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00730.ns2696  ---|          EXECUTE  0ST,E1AJ  EXECUTE *0ST*
Line S00006 Modification History
M01 (Added by) ns2696
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00731.1aj     +++|          LDD    SC          RESET SCP FLAGS
01077  M00S00732.1aj     +++|          STM    SCAF
01078  M00S00733.1aj     +++|          UJP    SCPX        RETURN
01079  M00S00734.1aj     +++| SUS      SPACE  4,10
01080  M00S00735.1aj     +++|**        SUS - SUSPEND JOB.
01081  M00S00736.1aj     +++|*
01082  M00S00737.1aj     +++|*         SETS THE SUSPENSION-REQUESTED FLAG IN THE CONTROL
01083  M00S00738.1aj     +++|*         POINT AREA AND CALLS *1RO* TO ROLLOUT THE JOB.
01084  M00S00739.1aj     +++|*
01085  M00S00740.1aj     +++|*         EXIT   TO *IRO*.
01086  M00S00741.1aj     +++|*
01087  M00S00742.1aj     +++|*         USES   CM - CM+4.
01088  M00S00743.1aj     +++|
01089  M00S00744.1aj     +++|
01090  M00S00745.1aj     +++| SUS      BSS    0           ENTRY
01091  M00S00746.1aj     +++|          LDD    CP          READ CP STATUS WORD
01092  M00S00747.1aj     +++|          ADN    STSW
01093  M00S00748.1aj     +++|          CRD    CM
01094  M00S00749.1aj     +++|          LDD    CM+2        SET SUSPENSION-REQUESTED FLAG
01095  M00S00750.1aj     +++|          LPC    -100
01096  M00S00751.1aj     +++|          LMD    HN
01097  M00S00752.1aj     +++|          STD    CM+2
01098  M00S00753.1aj     +++|          LDD    CP          REWRITE STATUS WORD
01099  M00S00754.1aj     +++|          ADN    STSW
01100  M00S00755.1aj     +++|          CWD    CM
01101  M00S00756.1aj     +++|          LDN    0           CLEAR INTERACTIVE ERROR FLAG
01102  M00S00757.1aj     +++|          UJP    IRO         ROLLOUT JOB
01103  M00S00758.1aj     +++| TER      SPACE  4,20
01104  M00S00759.1aj     +++|**        TER - TERMINATE JOB.
01105  M00S00760.1aj     +++|*
01106  M00S00761.1aj     +++|*         EXECUTES JOB TERMINATION PROCESSOR OVERLAYS.
01107  M00S00762.1aj     +++|*
01108  M00S00763.1aj     +++|*         ENTRY  (EF) = JOB ERROR FLAG.
01109  M00S00764.1aj     +++|*
01110  M00S00765.1aj     +++|*         EXIT   (JTOP) = JOB TERMINATION OPTION.
Line S00766 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00766.v23l617 ---|*                TO *XCS* TO EXECUTE CONTROL STATEMENTS.
Line S00037 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01112  M01S00037.v23l617 +++|*                TO *XCS* TO EXECUTE COMMANDS.
01113  M00S00767.1aj     +++|*                TO *SUS* TO SUSPEND JOB.
01114  M00S00768.1aj     +++|*                TO *PPR* TO DROP PPU.
01115  M00S00769.1aj     +++|*
01116  M00S00770.1aj     +++|*         USES   CM+1.
01117  M00S00771.1aj     +++|*
01118  M00S00772.1aj     +++|*         CALLS  RLS, SCP, *3AJ*, *3AK*.
01119  M00S00773.1aj     +++|*
01120  M00S00774.1aj     +++|*         MACROS EXECUTE, MONITOR.
01121  M00S00775.1aj     +++|
01122  M00S00776.1aj     +++|
01123  M00S00777.1aj     +++| TER      BSS    0           ENTRY
01124  M00S00778.1aj     +++|          RJM    SCP         CHECK SCP ACTIVITY
01125  M00S00779.1aj     +++|          LDM    JTFG
Line S00780 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01126  M01S00780.242l642 ---|          SHN    21-13
01127  M01S00781.242l642 ---|          MJN    TER3        IF TERMINATION IN PROGRESS
Line S00010 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01128  M01S00010.242l642 +++|          LPC    3000
01129  M01S00011.242l642 +++|          LMK    NOTM*1000
01130  M01S00012.242l642 +++|          NJN    TER3        IF TERMINATION IN PROGRESS
01131  M00S00782.1aj     +++|          LDM    JTOP
01132  M00S00783.1aj     +++|          LMN    SUJT
01133  M00S00784.1aj     +++|          NJN    TER2        IF NOT SUSPEND TERMINATION OPTION
Line S00014 Modification History
M01 (Added by) ns22000
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00014.ns2323  ---|          LDM    ENJA
01135  M02S00015.ns2323  ---|          NJN    TER2        IF LOGOUT IN PROGRESS
01136  M00S00785.1aj     +++|          LDM    JBCS
01137  M00S00786.1aj     +++|          LMK    DTCS
01138  M00S00787.1aj     +++| TER1     ZJP    SUS         IF DETACHED INTERACTIVE JOB
01139  M00S00788.1aj     +++|          LMK    OLCS&DTCS
01140  M00S00789.1aj     +++|          ZJN    TER1        IF ON-LINE INTERACTIVE JOB
01141  M00S00790.1aj     +++| TER2     EXECUTE  3AJ       INITIATE JOB TERMINATION
Line S00791 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01142  M01S00791.v23l617 ---|          NJN    XCS         IF CONTROL STATEMENTS TO BE EXECUTED
Line S00038 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01143  M01S00038.v23l617 +++|          NJN    XCS         IF COMMANDS TO BE EXECUTED
01144  M00S00792.1aj     +++|
01145  M00S00793.1aj     +++|*         COMPLETE JOB TERMINATION PROCESSING.
01146  M00S00794.1aj     +++|
Line S00795 Modification History
M01 (Removed by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
01147  M01S00795.ns2044  ---| TER3     LDD    EF
01148  M01S00796.ns2044  ---|          LMK    PEET
01149  M01S00797.ns2044  ---|          ZJN    TER4        IF CPU PARITY ERROR
01150  M01S00798.ns2044  ---|          RJM    RLS         RELEASE CM/ECS STORAGE
01151  M01S00799.ns2044  ---| TER4     EXECUTE  3AK       COMPLETE JOB TERMINATION
01152  M01S00800.ns2044  ---|          LDK    CCPS+DPPS+CJES  SET *JACM* OPTIONS
Line S00006 Modification History
M01 (Added by) ns2044
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00801.1aj     +++|          STD    CM+1
01157  M00S00802.1aj     +++|          MONITOR  JACM
01158  M00S00803.1aj     +++|          LJM    PPR         EXIT TO PP RESIDENT
Line S00002 Modification History
M01 (Added by) 243l647
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00804.1aj     +++| XCS      SPACE  4,10
Line S00805 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00805.v23l617 ---|**        XCS - EXECUTE CONTROL STATEMENT.
Line S00039 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01170  M01S00039.v23l617 +++|**        XCS - EXECUTE COMMAND.
01171  M00S00806.1aj     +++|*
01172  M00S00807.1aj     +++|*         LOADS AND EXECUTES OVERLAY *TCS* TO PROCESS CONTROL
Line S00808 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01173  M01S00808.v23l617 ---|*         STATEMENT.
Line S00040 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01174  M01S00040.v23l617 +++|*         COMMAND.
01175  M00S00809.1aj     +++|*
Line S00810 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01176  M01S00810.ns2358  ---|*         USES   CM - CM+4.
01177  M01S00811.ns2358  ---|*
01178  M01S00812.ns2358  ---|*         CALLS  SCP, TCS.
Line S00004 Modification History
M01 (Added by) ns2358
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01179  M02S00004.ns2719  ---|*         USES   CM - CM+4, CW - CW+4.
Line S00022 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01180  M01S00022.ns2719  +++|*         USES   CM - CM+4.
Line S00005 Modification History
M01 (Added by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01181  M01S00005.ns2358  +++|*
Line S00006 Modification History
M01 (Added by) ns2358
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01182  M02S00006.ns2719  ---|*         CALLS  SCP, *TCS*, *3AG*.
Line S00023 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01183  M01S00023.ns2719  +++|*         CALLS  RJF, SCP, *TCS*.
01184  M00S00813.1aj     +++|*
01185  M00S00814.1aj     +++|*         MACROS EXECUTE.
01186  M00S00815.1aj     +++|
01187  M00S00816.1aj     +++|
01188  M00S00817.1aj     +++| XCS      BSS    0           ENTRY
Line S00818 Modification History
M01 (Removed by) ns2358
Seq #  *Modification Id* Act 
----------------------------+
01189  M01S00818.ns2358  ---|          LDN    ZERL        CLEAR *SPCW* WORD
Line S00007 Modification History
M01 (Added by) ns2358
M02 (Removed by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01190  M02S00007.ns2719  ---|          LDD    CP
01191  M02S00008.ns2719  ---|          ADN    JCIW        FETCH JOB CONTROL FLAGS
01192  M02S00009.ns2719  ---|          CRD    CW
01193  M02S00010.ns2719  ---|          LDD    CW+3        CHECK JOB ADVANCE INHIBITED
01194  M02S00011.ns2719  ---|          SHN    21-13
01195  M02S00012.ns2719  ---|          PJN    XCS1        IF FLAG NOT SET
01196  M02S00013.ns2719  ---|          EXECUTE  3AG
01197  M02S00014.ns2719  ---| XCS1     LDN    ZERL        CLEAR *SPCW* WORD
Line S00024 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01198  M01S00024.ns2719  +++|          LDN    ZERL        CLEAR *SPCW* WORD
01199  M00S00819.1aj     +++|          CRD    CM
01200  M00S00820.1aj     +++|          LDD    CP
01201  M00S00821.1aj     +++|          ADK    SPCW
01202  M00S00822.1aj     +++|          CWD    CM
01203  M00S00823.1aj     +++|          RJM    SCP         CHECK SCP STATUS
Line S00025 Modification History
M01 (Added by) ns2719
Seq #  *Modification Id* Act 
----------------------------+
01204  M01S00025.ns2719  +++|          RJM    RJF         RETURN JOB STEP PRIVATE FILES
01205  M00S00824.1aj     +++|          EXECUTE  TCS       EXECUTE *TCS*
01206  M00S00825.1aj     +++|          SPACE  4,10
01207  M00S00826.1aj     +++|**        ASSEMBLY OPTIONS FOR EXECUTABLE COMMON DECKS.
01208  M00S00827.1aj     +++|
01209  M00S00828.1aj     +++|
01210  M00S00829.1aj     +++| EJT$     EQU    1           ASSEMBLE EJT ADDRESSING (COMPGFP)
01211  M00S00830.1aj     +++| FNT$     EQU    1           ASSEMBLE FNT ADDRESSING (COMPGFP)
01212  M00S00831.1aj     +++| IFP$     EQU    1           ASSEMBLE REMOTE INITIALIZATION (COMPGFP)
01213  M00S00832.1aj     +++| QFT$     EQU    1           ASSEMBLE QFT ADDRESSING (COMPGFP)
01214  M00S00833.1aj     +++|          SPACE  4,10
01215  M00S00834.1aj     +++|**        EXECUTABLE COMMON DECKS.
01216  M00S00835.1aj     +++|
01217  M00S00836.1aj     +++|
01218  M00S00837.1aj     +++|*CALL     COMPAST
01219  M00S00838.1aj     +++|*CALL     COMPGFP
Line S00839 Modification History
M01 (Removed by) 1aj105
M02 (Removed by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01220  M02S00839.261l700 ---|*CALL     COMPRJC
01221  M00S00840.1aj     +++|*CALL     COMPRLS
01222  M00S00841.1aj     +++|          TITLE  OVERLAID PRESET CODE.
01223  M00S00842.1aj     +++|          USE    OVERLAY
01224  M00S00843.1aj     +++| E1AJ     EQU    *+5
01225  M00S00844.1aj     +++|
01226  M00S00845.1aj     +++|          ERRNG  BFMS-E1AJ-ZSTL  CHECK LENGTH OF *0ST*
Line S00846 Modification History
M01 (Removed by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
01227  M01S00846.1aj116  ---| PRS      SPACE  4,25
Line S00005 Modification History
M01 (Added by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
01228  M01S00005.1aj116  +++| PRS      SPACE  4,30
01229  M00S00847.1aj     +++|**        PRS - PRESET PROGRAM
01230  M00S00848.1aj     +++|*
01231  M00S00849.1aj     +++|*         ENTRY  (IR+2) = FUNCTION CODE.
01232  M00S00850.1aj     +++|*
01233  M00S00851.1aj     +++|*         EXIT   (A)    = FUNCTION PROCESSOR ADDRESS.
Line S00019 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01234  M01S00019.ns2323  +++|*                (ADJB) = COMMANDS PENDING FLAG.
Line S00006 Modification History
M01 (Added by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
01235  M01S00006.1aj116  +++|*                (CRQF) = CHARGE REQUIRED STATUS.
01236  M00S00852.1aj     +++|*                (EF)   = JOB ERROR FLAG.
01237  M00S00853.1aj     +++|*                (FS)   = JOB ACTIVITY FLAGS.
01238  M00S00854.1aj     +++|*                (JTFG) = JOB TERMINATION FLAGS.
01239  M00S00855.1aj     +++|*                (JTOP) = JOB TERMINATION OPTION.
01240  M00S00856.1aj     +++|*                (JO)   = JOB EJT ORDINAL.
Line S00020 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01241  M01S00020.ns2323  +++|*                (PRCF) = PROLOGUE/EPILOGUE CONTROL FLAGS.
01242  M00S00857.1aj     +++|*                (RF)   = REPRIEVE OPTION FLAGS.
01243  M00S00858.1aj     +++|*                (RO)   = ROLLOUT FLAG.
01244  M00S00859.1aj     +++|*                (JBCS) = JOB CONNECTION STATUS.
01245  M00S00860.1aj     +++|*                (JBSC) = JOB SERVICE CLASS.
01246  M00S00861.1aj     +++|*                (JBOT) = JOB ORIGIN TYPE.
01247  M00S00862.1aj     +++|*                (SCAF) = SUBSYSTEM ACTIVITY FLAGS.
Line S00863 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01248  M01S00863.v23l617 ---|*                (TSTN) = TIMESHARING JOB TERMINAL NUMBER.
01249  M01S00864.v23l617 ---|*                       = ZERO IF NOT TIMESHARING JOB.
Line S00041 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01250  M01S00041.v23l617 +++|*                (TSTN) = INTERACTIVE JOB TERMINAL NUMBER.
01251  M01S00042.v23l617 +++|*                       = ZERO IF NOT INTERACTIVE JOB.
Line S00004 Modification History
M01 (Added by) 1aj98
Seq #  *Modification Id* Act 
----------------------------+
01252  M01S00004.1aj98   +++|*                (CSRC) = 1, IF EXTENDED REPRIEVE PROCESSING.
01253  M00S00865.1aj     +++|*
Line S00866 Modification History
M01 (Removed by) 1aj29
Seq #  *Modification Id* Act 
----------------------------+
01254  M01S00866.1aj29   ---|*         USES   T1 - T5, CM - CM+4, AB - AB+4, CN - CN+4,
01255  M01S00867.1aj29   ---|*                FS, JO, RF, RO.
Line S00001 Modification History
M01 (Added by) 1aj29
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01256  M02S00001.242l642 ---|*         USES   FS, RF, RO, CM - CM+4, CN - CN+4, T1 - T5.
Line S00013 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
01257  M02S00013.1aj116  ---|*         USES   FS, RF, RO, AB - AB+4, CM - CM+4, CN - CN+4, T1 - T5.
Line S00007 Modification History
M01 (Added by) 1aj116
Seq #  *Modification Id* Act 
----------------------------+
01258  M01S00007.1aj116  +++|*         USES   FS, RF, RO, AB - AB+4, CM - CM+4, CN - CN+4,
01259  M01S00008.1aj116  +++|*                SP - SP+4, T1 - T5.
01260  M00S00868.1aj     +++|*
Line S00869 Modification History
M01 (Removed by) 1aj29
Seq #  *Modification Id* Act 
----------------------------+
01261  M01S00869.1aj29   ---|*         CALLS  IFP, SCS, SEF, STS.
Line S00002 Modification History
M01 (Added by) 1aj29
M02 (Removed by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01262  M02S00002.ns2323  ---|*         CALLS  CJS, IFP, SCS, SEF, STS.
Line S00021 Modification History
M01 (Added by) ns2323
Seq #  *Modification Id* Act 
----------------------------+
01263  M01S00021.ns2323  +++|*         CALLS  CJS, IFP, SCS, SEF, SPF, STS.
01264  M00S00870.1aj     +++|*
01265  M00S00871.1aj     +++|*         MACROS MONITOR, SFA.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1aj.txt ยท Last modified: by 127.0.0.1