Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.submit  +++|          IDENT  SUBMIT,FETS
00002  M00S00002.submit  +++|          ABS
00003  M00S00003.submit  +++|          ENTRY  SUBMIT
00004  M00S00004.submit  +++|          ENTRY  RFL=
00005  M00S00005.submit  +++|          ENTRY  SSJ=
00006  M00S00006.submit  +++|          SYSCOM B1
00007  M00S00007.submit  +++|          SST
00008  M00S00008.submit  +++|*COMMENT  SUBMIT - ENTER JOB IN INPUT QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M00S00010.submit  +++|          TITLE  SUBMIT - ENTER JOB IN INPUT QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00011.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00001.ns22000 +++|          SPACE  4,10
00014  M00S00012.submit  +++|***       SUBMIT - ENTER JOB IN INPUT QUEUE.
00015  M00S00013.submit  +++|*         G. R. MANSFIELD.  70/10/29.

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00014.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00002.ns22000 +++|          SPACE  4,10
00018  M00S00015.submit  +++|***              SUBMIT PLACES THE REQUESTED FILE IN THE REQUESTED
00019  M00S00016.submit  +++|*         INPUT QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00017.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00003.ns22000 +++|          SPACE  4,25
00022  M00S00018.submit  +++|***       CALL.
00023  M00S00019.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00020.ns22000 ---|*CALL     COMSSSD
00025  M00S00021.submit  +++|*         SUBMIT (LFN,Q)C
00026  M00S00022.submit  +++|*         OR
00027  M00S00023.submit  +++|*         SUBMIT (LFN,Q,NR)C
00028  M00S00024.submit  +++|*
00029  M00S00025.submit  +++|*         LFN    SOURCE FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00001.submit8 +++|*         Q      INPUT QUEUE TYPE.
00031  M01S00002.submit8 +++|*                B OR BC = BATCH.
00032  M01S00003.submit8 +++|*                N OR NO = BATCH, WITH OUTPUT NOT TO BE PRINTED.
00033  M01S00004.submit8 +++|*                E=UN OR RB=UN = REMOTE BATCH, WITH OUTPUT TO BE SENT
00034  M01S00005.submit8 +++|*                  TO THE SPECIFIED USER NAME.  IF OMITTED, *UN*
00035  M01S00006.submit8 +++|*                  DEFAULTS TO THE USER NAME ASSOCIATED WITH THE
00036  M01S00007.submit8 +++|*                  SUBMITTING JOB.
00037  M01S00008.submit8 +++|*                TO = BATCH, WITH OUTPUT TO BE SENT TO THE WAIT QUEUE.
00038  M00S00026.submit  +++|*         NR     IF SPECIFIED, NO FILES ARE REWOUND UNLESS

Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00027.v23l617 ---|*                EXPLICITLY DONE WITH /REWIND CONTROL CARDS.

Seq #  *Modification Id* Act 
----------------------------+
00040  M01S00001.v23l617 +++|*                EXPLICITLY DONE WITH /REWIND DIRECTIVES.

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00028.submit8 ---|*         Q      INPUT QUEUE TYPE.
00042  M01S00029.submit8 ---|*         B OR BC = BATCH.
00043  M01S00030.submit8 ---|*         N OR NO = BATCH, WITH OUTPUT NOT TO BE PRINTED.
00044  M01S00031.submit8 ---|*         E OR RB = REMOTE BATCH.
00045  M01S00032.submit8 ---|*         TO = BATCH, WITH OUTPUT TO BE HELD IN TT QUEUE.
00046  M00S00033.submit  +++|*         C      ESCAPE CHARACTER FOR REFORMAT.
00047  M00S00034.submit  +++|*
00048  M00S00035.submit  +++|*         ASSUMED -

Seq #  *Modification Id* Act 
----------------------------+
00049  M01S00036.submit8 ---|*         Q=B OR BC, FOR NON-TXOT JOBS.
00050  M01S00037.submit8 ---|*         Q=N OR NO, FOR TXOT JOBS.
00051  M01S00038.submit8 ---|*         LFN=INPUT

Seq #  *Modification Id* Act 
----------------------------+
00052  M01S00009.submit8 +++|*         Q=B OR BC, IF SUBMITTED FROM NON-*IAOT* JOB.
00053  M01S00010.submit8 +++|*         Q=N OR NO, IF SUBMITTED FROM *IAOT* JOB.
00054  M01S00011.submit8 +++|*         LFN=NO DEFAULT (HOWEVER, *IAF* WILL EDIT THE COMMAND TO
00055  M01S00012.submit8 +++|*                INSERT THE PRIMARY FILE NAME IF *SUBMIT.* IS ENTERED
00056  M01S00013.submit8 +++|*                IN RESPONSE TO A COMMAND LINE PROMPT).
00057  M00S00039.submit  +++|*         C=/

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00040.ns22000 ---|          SPACE  4,25

Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00004.ns22000 +++|          SPACE  4,35
00060  M00S00041.submit  +++|***       DAYFILE MESSAGES.
00061  M00S00042.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00043.271l716 ---|*         *CONFLICTING PARAMETERS.* = INPUT QUEUE TYPE SPECIFIED MORE

Seq #  *Modification Id* Act 
----------------------------+
00063  M01S00001.271l716 +++|*         * CONFLICTING PARAMETERS.* = INPUT QUEUE TYPE SPECIFIED MORE
00064  M00S00044.submit  +++|*         THAN ONCE.
00065  M00S00045.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00046.v23l617 ---|*         *ILLEGAL QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A LEGAL
00067  M01S00047.v23l617 ---|*         TYPE FOR *SUBMIT*.

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00002.271l716 ---|*         *INCORRECT QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A

Seq #  *Modification Id* Act 
----------------------------+
00069  M01S00002.271l716 +++|*         * INCORRECT QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00003.v23l617 +++|*         CORRECT TYPE FOR *SUBMIT*.
00071  M00S00048.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00049.v23l617 ---|*         *NO READ FILE FOUND- LFN .* = LFN ON /READ CONTROL CARD COULD

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00004.271l716 ---|*         *NO READ FILE FOUND- LFN .* = LFN ON /READ DIRECTIVE COULD

Seq #  *Modification Id* Act 
----------------------------+
00074  M01S00003.271l716 +++|*         * NO READ FILE FOUND- LFN .* = LFN ON /READ DIRECTIVE COULD
00075  M00S00050.submit  +++|*         NOT BE FOUND.
00076  M00S00051.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00077  M01S00052.271l716 ---|*         *NO SOURCE FILE SPECIFIED.* = NO SOURCE FILE NAME GIVEN.

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00004.271l716 +++|*         * NO SOURCE FILE SPECIFIED.* = NO SOURCE FILE NAME GIVEN.
00079  M00S00053.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00054.v23l617 ---|*         *READ FILE BUSY- LFN .* = LFN ON /READ CONTROL CARD WAS BUSY.

Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00005.271l716 ---|*         *READ FILE BUSY- LFN .* = LFN ON /READ DIRECTIVE WAS BUSY.

Seq #  *Modification Id* Act 
----------------------------+
00082  M01S00005.271l716 +++|*         * READ FILE BUSY- LFN .* = LFN ON /READ DIRECTIVE WAS BUSY.
00083  M00S00055.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00056.submi1  ---|*         *SUBMIT COMPLETE.  JOBNAME IS XXXXXXX* = THE JOB WAS
00085  M01S00057.submi1  ---|*         SUBMITTED WITH THE NAME XXXXXXX.

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00001.271l716 ---|*         *SUBMIT COMPLETE.  JSN IS XXXX.* = THE JOB WAS

Seq #  *Modification Id* Act 
----------------------------+
00087  M01S00006.271l716 +++|*         * SUBMIT COMPLETE.  JSN IS XXXX.* = THE JOB WAS

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00002.submi1  +++|*         SUBMITTED WITH THE JSN XXXX.
00089  M00S00058.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00090  M01S00059.271l716 ---|*         *SUBMIT FILE EMPTY.* = EOR/EOF FOUND ON FIRST READ OF SUBMIT

Seq #  *Modification Id* Act 
----------------------------+
00091  M01S00007.271l716 +++|*         * SUBMIT FILE EMPTY.* = EOR/EOF FOUND ON FIRST READ OF SUBMIT
00092  M00S00060.submit  +++|*         FILE.
00093  M00S00061.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00094  M01S00062.271l716 ---|*         *TOO MANY ARGUMENTS.* = TOO MANY ARGUMENTS WERE PRESENT ON

Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00008.271l716 +++|*         * TOO MANY ARGUMENTS.* = TOO MANY ARGUMENTS WERE PRESENT ON

Seq #  *Modification Id* Act 
----------------------------+
00096  M01S00063.v23l617 ---|*         THE CONTROL STATEMENT.

Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00006.v23l617 +++|*         THE COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00064.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00099  M01S00005.ns22000 +++|*
00100  M01S00006.ns22000 +++|*         * USER COMMAND HAS NOT BEEN EXECUTED.* = A */USER* DIRECTIVE
00101  M01S00007.ns22000 +++|*         HAS BEEN SPECIFIED, BUT THE CALLING JOB HAS NEVER EXECUTED
00102  M01S00008.ns22000 +++|*         A *USER* COMMAND.
00103  M01S00009.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00010.v23l617 ---|*         * USER DIRECTIVE NOT VALID.* = A */USER* DIRECTIVE COULD

Seq #  *Modification Id* Act 
----------------------------+
00105  M01S00007.v23l617 +++|*         * USER DIRECTIVE INCORRECT.* = A */USER* DIRECTIVE COULD

Seq #  *Modification Id* Act 
----------------------------+
00106  M01S00011.ns22000 +++|*         NOT BE PROCESSED, EITHER BECAUSE THE CALLING JOB HAS NEVER

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00012.submi3  ---|*         ISSUED A *USER* COMMAND, OR BECAUSE IT WAS NOT THE THIRD
00108  M02S00013.submi3  ---|*         LINE IN THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00109  M01S00001.submi3  +++|*         ISSUED A *USER* COMMAND, OR BECAUSE THE DIRECTIVE DID NOT
00110  M01S00002.submi3  +++|*         FOLLOW BOTH A *JOB* DIRECTIVE AND A *JOB* COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00014.ns22000 +++|          SPACE  4,10
00112  M00S00065.submit  +++|*CALL     COMCCMD
00113  M00S00066.submit  +++|*CALL     COMCMAC
00114  M00S00067.submit  +++|*CALL     COMSDSP
00115  M00S00068.submit  +++|*CALL     COMSIOQ

Seq #  *Modification Id* Act 
----------------------------+
00116  M01S00015.ns22000 +++|*CALL     COMSMLS
00117  M01S00016.ns22000 +++|*CALL     COMSPFM
00118  M00S00069.submit  +++|*CALL     COMSSFM

Seq #  *Modification Id* Act 
----------------------------+
00119  M01S00017.ns22000 +++|*CALL     COMSSSD

Seq #  *Modification Id* Act 
----------------------------+
00120  M01S00070.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00121  M01S00018.ns22000 +++|          SPACE  4,10
00122  M00S00071.submit  +++|****      ASSEMBLY CONSTANTS.
00123  M00S00072.submit  +++|
00124  M00S00073.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00074.submi6  ---| BUFL     EQU    150D        WORKING BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00126  M01S00001.submi6  +++| BUFL     EQU    320D        WORKING BUFFER
00127  M00S00075.submit  +++| IBUFL    EQU    2001B       INPUT FILE BUFFER
00128  M00S00076.submit  +++| FBUFL    EQU    2001B
00129  M00S00077.submit  +++| RBUFL    EQU    2001B       READ FILE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00130  M01S00001.ns2140  +++| SBUFL    EQU    100B        *SFM* BUFFER LENGTH
00131  M00S00078.submit  +++| TBUFL    EQU    BUFL/10+1   NO LINE TERMINATOR DATA BUFFER LENGTH
00132  M00S00079.submit  +++| WBUFL    EQU    1
00133  M00S00080.submit  +++|****
00134  M00S00081.submit  +++|          TITLE  COMMON DATA.

Seq #  *Modification Id* Act 
----------------------------+
00135  M01S00082.ns22000 ---| DATA     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00136  M01S00019.ns22000 +++| DATA     SPACE  4,10
00137  M00S00083.submit  +++|**        COMMON DATA.
00138  M00S00084.submit  +++|
00139  M00S00085.submit  +++|
00140  M00S00086.submit  +++|          ORG    110B
00141  M00S00087.submit  +++| FETS     BSS    0
00142  M00S00088.submit  +++|
00143  M00S00089.submit  +++| I        BSS    0
00144  M00S00090.submit  +++| INPUT    FILEB  IBUF,IBUFL,(FET=8)
00145  M00S00091.submit  +++|
00146  M00S00092.submit  +++| F        BSS    0
00147  M00S00093.submit  +++| SCR      FILEB  FBUF,FBUFL,(FET=8)
00148  M00S00094.submit  +++|
00149  M00S00095.submit  +++| R        BSS    0
00150  M00S00096.submit  +++| TAPE1    FILEB  RBUF,RBUFL,(FET=8)
00151  M00S00097.submit  +++|
00152  M00S00098.submit  +++| RR       BSS    0
00153  M00S00099.submit  +++| PFMFIL   FILEB  RBUF,RBUFL,EPR,(FET=13B)
00154  M00S00100.submit  +++|
00155  M00S00101.submit  +++| W        BSS    0
00156  M00S00102.submit  +++| SCR2     FILEB  WBUF,WBUFL
00157  M00S00103.submit  +++|
00158  M00S00104.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00159  M01S00020.ns22000 +++| ALVL     CON    0           FILE ACCESS LEVEL
00160  M00S00105.submit  +++| EORBIT   CON    0           BIT59=EOR BIT, BIT47=/READ ACTIVE BIT
00161  M00S00106.submit  +++| FLAGS    CON    0           BIT59=NOSEQ, BIT47=TRANS, BIT35=NOPACK
00162  M00S00107.submit  +++| NRFLG    DATA   2RNR        NO REWIND FLAG
00163  M00S00108.submit  +++| IPTR     CON    0           INPUT FET *IN* POINTER
00164  M00S00109.submit  +++| IPTR2    CON    0           READ FILE FET *IN* POINTER

Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00021.ns22000 +++| LCNT     CON    1           LINE COUNTER
00166  M00S00110.submit  +++| OPTR     CON    0           INPUT FET OUT POINTER
00167  M00S00111.submit  +++| OPTR2    CON    0           READ FILE FET OUT POINTER
00168  M00S00112.submit  +++| RJ       CON    0           RETURN JUMP ADDRESS
00169  M00S00113.submit  +++| RJ2      CON    0           READ FILE ORIGINAL RETURN JUMP ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00022.ns22000 +++| USRF     CON    0           A */USER* DIRECTIVE HAS BEEN PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
00171  M01S00001.submit2 +++| TFUN     SPACE  4,10
00172  M01S00002.submit2 +++|**        TFUN - FAMILY NAME AND USER NAME TABLE FOR *DSP*.
00173  M01S00003.submit2 +++|*
00174  M01S00004.submit2 +++|*T W0     42/ FAMILY NAME,18/0

Figure W0

00175  M01S00005.submit2 +++|*T,W1     42/ USER NAME,18/0

Figure W1

00176  M01S00006.submit2 +++|
00177  M01S00007.submit2 +++|
00178  M01S00008.submit2 +++| TFUN     BSSZ   2
00179  M00S00114.submit  +++| TDSP     SPACE  4,10
00180  M00S00115.submit  +++|*         TDSP - *DSP* PARAMETER BLOCK.
00181  M00S00116.submit  +++|
00182  M00S00117.submit  +++|
00183  M00S00118.submit  +++| TDSP     VFD    42/0LSCR,18/0

Seq #  *Modification Id* Act 
----------------------------+
00184  M01S00119.ns22000 ---|          VFD    24/0,12/0LIN,6/0,18/FRDC+FRFN+FRCS

Seq #  *Modification Id* Act 
----------------------------+
00185  M01S00023.ns22000 +++|          VFD    24/0,12/0LIN,6/0,18/FRFN+FREB+FRDC+FRCS

Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00120.submit8 ---|          BSSZ   5

Seq #  *Modification Id* Act 
----------------------------+
00187  M01S00014.submit8 +++|          BSSZ   DPBL-*+TDSP

Seq #  *Modification Id* Act 
----------------------------+
00188  M01S00024.ns22000 +++|          VFD    42/0,18/EFNV

Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00025.submit8 ---|          BSSZ   7

Seq #  *Modification Id* Act 
----------------------------+
00190  M01S00015.submit8 +++|          BSSZ   EPBL-*+TDSP
00191  M00S00121.submit  +++|          TITLE  MAIN PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
00192  M01S00122.ns22000 ---| SUBMIT   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00193  M01S00026.ns22000 +++| SUBMIT   SPACE  4,100
00194  M00S00123.submit  +++|**        SUBMIT - MAIN PROGRAM
00195  M00S00124.submit  +++|*
00196  M00S00125.submit  +++|*                THE ESCAPE CODE (*C* PARAMETER) IS A UNIQUE CHARACTER
00197  M00S00126.submit  +++|*                THAT ENABLES THE SUBMIT PROCESSOR TO RECOGNIZE SPECIAL

Seq #  *Modification Id* Act 
----------------------------+
00198  M01S00127.v23l617 ---|*                CONTROL CARDS THAT AFFECT THE FINAL FORMAT OF THE

Seq #  *Modification Id* Act 
----------------------------+
00199  M01S00008.v23l617 +++|*                DIRECTIVES THAT AFFECT THE FINAL FORMAT OF THE
00200  M00S00128.submit  +++|*                SUBMIT FILE.  DEFAULT CHARACTER IS /.
00201  M00S00129.submit  +++|*
00202  M00S00130.submit  +++|*         FUNCTIONS
00203  M00S00131.submit  +++|*
00204  M00S00132.submit  +++|*         1.     READS FIRST UNIT RECORD AND CHECKS FOR *C*JOB

Seq #  *Modification Id* Act 
----------------------------+
00205  M01S00133.v23l617 ---|*                A.          IF THE FIRST CARD IS NOT *C*JOB THE INPUT
00206  M01S00134.v23l617 ---|*                            FILE IS COPIED AS IS TO BECOME THE ACTUAL
00207  M01S00135.v23l617 ---|*                            SUBMIT FILE.
00208  M01S00136.v23l617 ---|*
00209  M01S00137.v23l617 ---|*                B.          IF THE FIRST CARD IS *C*JOB THE INPUT FILE
00210  M01S00138.v23l617 ---|*                            WILL BE REFORMATTED TO BECOME THE SUBMIT
00211  M01S00139.v23l617 ---|*                            FILE.

Seq #  *Modification Id* Act 
----------------------------+
00212  M01S00009.v23l617 +++|*                A.          IF THE FIRST DIRECTIVE IS NOT *C*JOB THE
00213  M01S00010.v23l617 +++|*                            INPUT FILE IS COPIED AS IS TO BECOME THE
00214  M01S00011.v23l617 +++|*                            ACTUAL SUBMIT FILE.
00215  M01S00012.v23l617 +++|*
00216  M01S00013.v23l617 +++|*                B.          IF THE FIRST DIRECTIVE IS *C*JOB THE INPUT
00217  M01S00014.v23l617 +++|*                            FILE WILL BE REFORMATTED TO BECOME THE
00218  M01S00015.v23l617 +++|*                            SUBMIT FILE.
00219  M00S00140.submit  +++|*                  NOTE      REFORMATTING IS ACCOMPLISHED BY PLACING

Seq #  *Modification Id* Act 
----------------------------+
00220  M01S00141.v23l617 ---|*                            SUBMIT CONTROL CARDS IN THE INPUT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00221  M01S00016.v23l617 +++|*                            SUBMIT DIRECTIVES IN THE INPUT FILE.
00222  M00S00142.submit  +++|*         2.     SETS QUEUE FOR EVENTUAL DISPOSAL OF OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00223  M01S00143.dok201  ---|*         3.     SUBMIT FILE IS PASSED TO THE SYSTEM *SUBMIT MACRO*

Seq #  *Modification Id* Act 
----------------------------+
00224  M01S00001.dok201  +++|*         3.     SUBMIT FILE IS PASSED TO THE SYSTEM *ROUTE* MACRO
00225  M00S00144.submit  +++|*         4.     MESSAGE IS ISSUED TO DAYFILE/INTERACTIVE TERMINAL
00226  M00S00145.submit  +++|*
00227  M00S00146.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00147.v23l617 ---|*         HOW CONTROL CARDS INFLUENCE THE SUBMIT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00229  M01S00017.v23l617 +++|*         HOW DIRECTIVES INFLUENCE THE SUBMIT FILE.
00230  M00S00148.submit  +++|*
00231  M00S00149.submit  +++|*         1. MODES           EDITING IS DONE UNDER TWO MODES
00232  M00S00150.submit  +++|*             A. NON-TRANSPARENT       EACH LINE OF THE INPUT FILE IS

Seq #  *Modification Id* Act 
----------------------------+
00233  M01S00151.v23l617 ---|*                                      EXAMINED FOR CONTROL CARDS.
00234  M01S00152.v23l617 ---|*                                      DEFAULT MODE WITH *C*JOB CARD.
00235  M01S00153.v23l617 ---|*         CONTROL CARD FORMAT  *C*NOTRANS

Seq #  *Modification Id* Act 
----------------------------+
00236  M01S00018.v23l617 +++|*                                      EXAMINED FOR DIRECTIVES. DEFAULT
00237  M01S00019.v23l617 +++|*                                      MODE WITH *C*JOB DIRECTIVE.
00238  M01S00020.v23l617 +++|*         DIRECTIVE FORMAT  *C*NOTRANS
00239  M00S00154.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00240  M01S00155.v23l617 ---|*             B. TRANSPARENT           ONLY GROUPS OF CONTROL CARDS AT

Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00021.v23l617 +++|*             B. TRANSPARENT           ONLY GROUPS OF DIRECTIVES AT
00242  M00S00156.submit  +++|*                                      THE BEGINNING OF EACH RECORD MAY
00243  M00S00157.submit  +++|*                                      BE EXAMINED.

Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00158.v23l617 ---|*         CONTROL CARD FORMAT  *C*TRANS

Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00022.v23l617 +++|*         DIRECTIVE FORMAT  *C*TRANS
00246  M00S00159.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00247  M01S00160.v23l617 ---|*         2. OPTIONS         EACH CONTROL CARD ENABLES THE USER TO

Seq #  *Modification Id* Act 
----------------------------+
00248  M01S00023.v23l617 +++|*         2. OPTIONS         EACH DIRECTIVE ENABLES THE USER TO
00249  M00S00161.submit  +++|*                            DICTATE SOME ASPECT OF THE FINAL FORMAT OF
00250  M00S00162.submit  +++|*                            THE SUBMIT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00251  M01S00024.v23l617 +++|*
00252  M01S00025.v23l617 +++|*         DIRECTIVE FORMAT   *C*CHARGE
00253  M01S00026.v23l617 +++|*                            REPLACES THE DIRECTIVE WITH A *CHARGE*
00254  M01S00027.v23l617 +++|*                            COMMAND USING THE CURRENTLY ACTIVE
00255  M01S00028.v23l617 +++|*                            CHARGE AND PROJECT NUMBER IF THE CHARGE
00256  M01S00029.v23l617 +++|*                            AND PROJECT NUMBERS HAVE BEEN VALIDATED.
00257  M01S00030.v23l617 +++|*                            IF NO CHARGE NUMBER IS IN EFFECT OR IF
00258  M01S00031.v23l617 +++|*                            THE CURRENT CHARGE AND PROJECT NUMBERS
00259  M01S00032.v23l617 +++|*                            HAVE NOT BEEN VALIDATED NO ACTION IS
00260  M01S00033.v23l617 +++|*                            TAKEN.
00261  M00S00163.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00262  M01S00164.v23l617 ---|*         CONTROL CARD FORMAT  *C*EOR

Seq #  *Modification Id* Act 
----------------------------+
00263  M01S00034.v23l617 +++|*         DIRECTIVE FORMAT  *C*EOR
00264  M00S00165.submit  +++|*                            END OF RECORD IS WRITTEN ON SUBMIT FILE
00265  M00S00166.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00266  M01S00167.v23l617 ---|*         CONTROL CARD FORMAT  *C*EOF

Seq #  *Modification Id* Act 
----------------------------+
00267  M01S00035.v23l617 +++|*         DIRECTIVE FORMAT  *C*EOF
00268  M00S00168.submit  +++|*                            END OF FILE IS WRITTEN ON SUBMIT FILE
00269  M00S00169.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00170.v23l617 ---|*         CONTROL CARD FORMAT  *C*EC=A

Seq #  *Modification Id* Act 
----------------------------+
00271  M01S00036.v23l617 +++|*         DIRECTIVE FORMAT  *C*EC=A
00272  M00S00171.submit  +++|*                            CHANGES ESCAPE CHARACTER FROM *C* TO A.
00273  M00S00172.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00274  M01S00173.v23l617 ---|*         CONTROL CARD FORMAT  *C*NOSEQ

Seq #  *Modification Id* Act 
----------------------------+
00275  M01S00037.v23l617 +++|*         DIRECTIVE FORMAT  *C*NOSEQ
00276  M00S00174.submit  +++|*                            WILL AFFECT FORMAT ONLY UNDER NON-TRANS-
00277  M00S00175.submit  +++|*                            PARENT MODE.  NO ATTEMPT WILL BE MADE TO
00278  M00S00176.submit  +++|*                            STRIP LINE NUMBERS FROM INPUT FILE LINES.
00279  M00S00177.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00280  M01S00178.v23l617 ---|*         CONTROL CARD FORMAT  *C*SEQ

Seq #  *Modification Id* Act 
----------------------------+
00281  M01S00038.v23l617 +++|*         DIRECTIVE FORMAT  *C*SEQ
00282  M00S00179.submit  +++|*                            WILL AFFECT FORMAT ONLY UNDER NON-TRANS-
00283  M00S00180.submit  +++|*                            PARENT MODE.  LINE NUMBERS WILL BE
00284  M00S00181.submit  +++|*                            STRIPPED OFF INPUT FILE LINES.  DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00285  M01S00182.v23l617 ---|*                            WITH *C*JOB CARD.

Seq #  *Modification Id* Act 
----------------------------+
00286  M01S00039.v23l617 +++|*                            WITH *C*JOB DIRECTIVE.
00287  M00S00183.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00288  M01S00184.v23l617 ---|*         CONTROL CARD FORMAT  *C*REWIND,FILENAME

Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00040.v23l617 +++|*         DIRECTIVE FORMAT  *C*REWIND,FILENAME
00290  M00S00185.submit  +++|*                            REWINDS ONE OF USER S LOCAL FILES
00291  M00S00186.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00292  M01S00187.v23l617 ---|*         CONTROL CARD FORMAT  *C*READ,FILENAME

Seq #  *Modification Id* Act 
----------------------------+
00293  M01S00041.v23l617 +++|*         DIRECTIVE FORMAT  *C*READ,FILENAME
00294  M00S00188.submit  +++|*                            COPIES USER,S LOCAL FILE TO SUBMIT FILE.
00295  M00S00189.submit  +++|*                            EDITING IS DONE ON THE FILE AS THOUGH IT
00296  M00S00190.submit  +++|*                            WERE SOURCE CODE OF THE INPUT FILE.
00297  M00S00191.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00298  M01S00192.v23l617 ---|*         CONTROL CARD FORMAT  *C*PACK
00299  M01S00193.v23l617 ---|*                            DEFAULT WHEN *C*JOB CARD IS DETECTED.

Seq #  *Modification Id* Act 
----------------------------+
00300  M01S00042.v23l617 +++|*         DIRECTIVE FORMAT  *C*PACK
00301  M01S00043.v23l617 +++|*                            DEFAULT WHEN *C*JOB DIRECTIVE IS DETECTED.
00302  M00S00194.submit  +++|*                            ALL EOR MARKS ARE REMOVED FROM A FILE.
00303  M00S00195.submit  +++|*                            ALL EOF MARKS REMOVED FROM A MULTI-FILE
00304  M00S00196.submit  +++|*                            FILE. AN EOF MARK WILL BE WRITTEN TO THE
00305  M00S00197.submit  +++|*                            SUBMIT FILE ONLY WHEN EOI IS ENCOUNTERED
00306  M00S00198.submit  +++|*                            IN THE INPUT FILE. EDITING STOPS AT THAT
00307  M00S00199.submit  +++|*                            POINT.
00308  M00S00200.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00309  M01S00201.v23l617 ---|*         CONTROL CARD FORMAT  *C*NOPACK

Seq #  *Modification Id* Act 
----------------------------+
00310  M01S00044.v23l617 +++|*         DIRECTIVE FORMAT  *C*NOPACK
00311  M00S00202.submit  +++|*                            INTERNAL FILE STRUCTURES ARE PRESERVED
00312  M00S00203.submit  +++|*                            INTACT.  EACH INTERNAL EOR OR EOF MARK IS
00313  M00S00204.submit  +++|*                            COPIED TO THE SUBMIT FILE.  FILES COPIED
00314  M00S00205.submit  +++|*                            WITH *C*READ HAVE EOF AND EOI MARKS
00315  M00S00206.submit  +++|*                            CONVERTED TO EOR MARKS.  WHEN EOI IS
00316  M00S00207.submit  +++|*                            ENCOUNTERED ON THE INPUT FILE AN EOF IS
00317  M00S00208.submit  +++|*                            WRITTEN TO THE SUBMIT FILE AND EDITING
00318  M00S00209.submit  +++|*                            STOPS.
00319  M00S00210.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00320  M01S00211.v23l617 ---|*         CONTROL CARD FORMAT  *C*USER

Seq #  *Modification Id* Act 
----------------------------+
00321  M01S00045.v23l617 +++|*         DIRECTIVE FORMAT  *C*USER
00322  M00S00212.submit  +++|*                            READS *VALIDUS* FILE FOR THE PASSWORD OF

Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00213.v23l617 ---|*                            THE USER NUMBER CURRENTLY IN EFFECT AND

Seq #  *Modification Id* Act 
----------------------------+
00324  M01S00046.v23l617 +++|*                            THE USER NAME CURRENTLY IN EFFECT AND
00325  M00S00214.submit  +++|*                            REPLACES THE DIRECTIVE WITH A *USER*

Seq #  *Modification Id* Act 
----------------------------+
00326  M01S00215.v23l617 ---|*                            STATEMENT USING THE CURRENT USER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00327  M01S00047.v23l617 +++|*                            DIRECTIVE USING THE CURRENT USER NAME
00328  M00S00216.submit  +++|*                            AND PASSWORD.
00329  M00S00217.submit  +++|
00330  M00S00218.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00331  M01S00219.ns22000 ---| SUBMIT   SB1    1           PRESET PROGRAM

Seq #  *Modification Id* Act 
----------------------------+
00332  M01S00027.ns22000 +++| SUBMIT   BSS    0           ENTRY
00333  M01S00028.ns22000 +++|          SB1    1
00334  M00S00220.submit  +++|          MX6    0           SET NO READ FILE YET
00335  M00S00221.submit  +++|          SA6    RR
00336  M00S00222.submit  +++|          RJ     PRS
00337  M00S00223.submit  +++|          RETURN F,R
00338  M00S00224.submit  +++|          SA2    NRFLG
00339  M00S00225.submit  +++|          ZR     X2,SBM0     IF NO REWIND
00340  M00S00226.submit  +++|          REWIND I
00341  M00S00227.submit  +++| SBM0     READ   I
00342  M00S00228.submit  +++|          READS  I,BUF,BUFL  READ FIRST LINE

Seq #  *Modification Id* Act 
----------------------------+
00343  M01S00229.271l716 ---|          SX0    =C*SUBMIT FILE EMPTY.*

Seq #  *Modification Id* Act 
----------------------------+
00344  M01S00009.271l716 +++|          SX0    =C* SUBMIT FILE EMPTY.*
00345  M00S00230.submit  +++|          NZ     X1,ABT      IF EOR/EOF
00346  M00S00231.submit  +++|          SA1    BUF         SKIP SEQUENCE NUMBERS
00347  M00S00232.submit  +++|          RJ     SSN
00348  M00S00233.submit  +++|          RJ     CSF         CHECK SPECIAL FORMAT
00349  M00S00234.submit  +++|          SA1    F+1         ASSIGN FILE TO INPUT DEVICE
00350  M00S00235.submit  +++|          MX0    -48
00351  M00S00236.submit  +++|          BX6    -X0*X1
00352  M00S00237.submit  +++|          SX1    2RIN

Seq #  *Modification Id* Act 
----------------------------+
00353  M01S00029.ns22000 +++|          MX0    1           FILE ACCESS LEVEL BIT
00354  M01S00030.ns22000 +++|          LX0    39-59
00355  M00S00238.submit  +++|          LX1    59-11
00356  M00S00239.submit  +++|          BX7    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00031.ns22000 +++|          BX7    X0+X7       MERGE ACCESS LEVEL BIT
00358  M00S00240.submit  +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
00359  M01S00032.ns22000 +++|          SA1    F+CFAL      GET ACCESS LEVEL FIELD
00360  M01S00033.ns22000 +++|          MX0    -3
00361  M01S00034.ns22000 +++|          LX0    36
00362  M01S00035.ns22000 +++|          SA2    ALVL
00363  M01S00036.ns22000 +++|          BX1    X0*X1       CLEAR OLD ACCESS LEVEL
00364  M01S00037.ns22000 +++|          LX2    36
00365  M01S00038.ns22000 +++|          BX6    X1+X2       MERGE NEW ACCESS LEVEL
00366  M01S00039.ns22000 +++|          SA6    A1
00367  M00S00241.submit  +++|          REQUEST  F,U,N     REQUEST EQUIPMENT WITH NO DAYFILE MESSAGE
00368  M00S00242.submit  +++|          SX6    B2-JOB
00369  M00S00243.submit  +++|          NZ     X6,SBM1     IF NOT JOB IDENTIFIER
00370  M00S00244.submit  +++|          RJ     RFM         REFORMAT
00371  M00S00245.submit  +++|          EQ     SBM2
00372  M00S00246.submit  +++|
00373  M00S00247.submit  +++| SBM1     RJ     CPF         COPY FILE
00374  M00S00248.submit  +++| SBM2     RECALL F

Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00249.ns22000 ---|          ROUTE  TDSP,RECALL

Seq #  *Modification Id* Act 
----------------------------+
00376  M01S00040.ns22000 +++|          SA1    USRF
00377  M01S00041.ns22000 +++|          NZ     X1,SBM3     IF */USER* SPECIFIED
00378  M01S00042.ns22000 +++|          SX6    B0+
00379  M01S00043.ns22000 +++|          SA6    TDSP+7      CLEAR *NO VALIDATE* BIT
00380  M01S00044.ns22000 +++| SBM3     ROUTE  TDSP,RECALL
00381  M00S00250.submit  +++|          CLOCK  SBMA        BUILD OUTPUT MESSAGE FOR TERMINAL
00382  M00S00251.submit  +++|          SA1    TDSP
00383  M00S00252.submit  +++|          SA2    =0LOUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00253.submi1  ---|          MX3    42

Seq #  *Modification Id* Act 
----------------------------+
00385  M01S00003.submi1  +++|          MX3    24
00386  M00S00254.submit  +++|          BX6    X3*X1

Seq #  *Modification Id* Act 
----------------------------+
00387  M01S00255.submi1  ---|          SX3    B1
00388  M01S00256.submi1  ---|          SA6    SBMC

Seq #  *Modification Id* Act 
----------------------------+
00389  M01S00004.submi1  +++|          SA1    SBMB+2
00390  M01S00005.submi1  +++|          LX3    24
00391  M01S00006.submi1  +++|          BX1    -X3*X1
00392  M01S00007.submi1  +++|          LX6    24
00393  M01S00008.submi1  +++|          BX6    X1+X6
00394  M01S00009.submi1  +++|          SA6    SBMB+2
00395  M01S00010.submi1  +++|          SX3    B1
00396  M00S00257.submit  +++|          BX6    X2+X3
00397  M00S00258.submit  +++|          SA6    F
00398  M00S00259.submit  +++|          WRITEW F,SBMA,5

Seq #  *Modification Id* Act 
----------------------------+
00399  M01S00260.submi1  ---|          MESSAGE  SBMB,3,R   SEND JOBNAME MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00400  M01S00011.submi1  +++|          MESSAGE  SBMB,3,R  SEND JSN MESSAGE
00401  M00S00261.submit  +++|          MX0    -6
00402  M00S00262.submit  +++|          SA1    FWPR
00403  M00S00263.submit  +++|          AX1    24
00404  M00S00264.submit  +++|          BX3    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00405  M01S00265.ns22000 ---|          SX6    X3-TXOT
00406  M01S00266.ns22000 ---|          NZ     X6,SBM5     IF NOT *TXOT* ORIGIN

Seq #  *Modification Id* Act 
----------------------------+
00407  M01S00045.ns22000 +++|          SX6    X3-IAOT
00408  M01S00046.ns22000 +++|          NZ     X6,SBM5     IF NOT INTERACTIVE JOB
00409  M00S00267.submit  +++|          MESSAGE NOFIL+2,1  CLEAR CONTROL POINT MESSAGE
00410  M00S00268.submit  +++|          WRITER F
00411  M00S00269.submit  +++| SBM5     ENDRUN
00412  M00S00270.submit  +++|
00413  M00S00271.submit  +++|
00414  M00S00272.submit  +++| SBMA     BSS    1

Seq #  *Modification Id* Act 
----------------------------+
00415  M01S00273.submi1  ---| SBMB     DATA   H* SUBMIT COMPLETE.  JOBNAME IS*
00416  M01S00274.submi1  ---| SBMC     DATA   1C

Seq #  *Modification Id* Act 
----------------------------+
00417  M01S00012.submi1  +++| SBMB     DATA   C* SUBMIT COMPLETE.  JSN IS XXXX.*
00418  M00S00275.submit  +++|          TITLE  SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
00419  M01S00276.ns22000 ---| ABT      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00420  M01S00047.ns22000 +++| ABT      SPACE  4,10
00421  M00S00277.submit  +++|**        ABT - ABORT JOB.
00422  M00S00278.submit  +++|*
00423  M00S00279.submit  +++|*         ENTRY  (X0) = MESSAGE ADDRESS.
00424  M00S00280.submit  +++|
00425  M00S00281.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00426  M01S00282.271l716 ---| ABT      RECALL
00427  M01S00283.271l716 ---|          MESSAGE X0

Seq #  *Modification Id* Act 
----------------------------+
00428  M01S00010.271l716 +++| ABT      BSS    0
00429  M01S00011.271l716 +++|          MESSAGE X0,,R
00430  M00S00284.submit  +++|          ABORT

Seq #  *Modification Id* Act 
----------------------------+
00431  M01S00285.ns22000 ---| CPF      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00432  M01S00048.ns22000 +++| CPF      SPACE  4,10
00433  M00S00286.submit  +++|**        CPF -  COPY INPUT FILE TO SUBMIT FILE.
00434  M00S00287.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00435  M01S00288.submi5  ---|*         USES   X - 1.
00436  M01S00289.submi5  ---|*                A - 1.

Seq #  *Modification Id* Act 
----------------------------+
00437  M01S00001.submi5  +++|*         USES   X - 0, 1, 5.
00438  M01S00002.submi5  +++|*                B - 1, 6.
00439  M00S00290.submit  +++|
00440  M00S00291.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00441  M01S00292.ns22000 ---| CPF      PS                 ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00442  M01S00049.ns22000 +++| CPF      SUBR               ENTRY/EXIT
00443  M00S00293.submit  +++|          WRITES F,BUF,BUFL
00444  M00S00294.submit  +++|          EQ     CPF2
00445  M00S00295.submit  +++|
00446  M00S00296.submit  +++| CPF1     READ   I
00447  M00S00297.submit  +++|          RECALL F
00448  M00S00298.submit  +++| CPF2     READW  I,BUF,BUFL

Seq #  *Modification Id* Act 
----------------------------+
00449  M01S00299.submi5  ---|          NG     X1,CPF4     IF EOF
00450  M01S00300.submi5  ---|          NZ     X1,CPF3     IF EOR
00451  M01S00301.submi5  ---|          WRITEW F,BUF,BUFL

Seq #  *Modification Id* Act 
----------------------------+
00452  M01S00003.submi5  +++|          SX0    X1
00453  M01S00004.submi5  +++|          SX5    B6-BUF
00454  M01S00005.submi5  +++|          WRITEW F,BUF,X5
00455  M01S00006.submi5  +++|          NG     X0,CPF4     IF EOF/EOI
00456  M01S00007.submi5  +++|          NZ     X0,CPF3     IF EOR
00457  M00S00302.submit  +++|          EQ     CPF2
00458  M00S00303.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00459  M01S00304.submi5  ---| CPF3     WRITEW F,BUF,X1-BUF
00460  M01S00305.submi5  ---|          WRITER F

Seq #  *Modification Id* Act 
----------------------------+
00461  M01S00008.submi5  +++| CPF3     WRITER F
00462  M01S00009.submi5  +++|          NG     X0,CPFX     IF EOI
00463  M00S00306.submit  +++|          EQ     CPF1
00464  M00S00307.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00465  M01S00308.submi5  ---| CPF4     SA1    I           CHECK STATUS
00466  M01S00309.submi5  ---|          LX1    59-9

Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00310.submi5  ---|          NG     X1,CPF      RETURN IF EOI

Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00050.submi5  ---|          NG     X1,CPFX     IF EOI

Seq #  *Modification Id* Act 
----------------------------+
00469  M01S00010.submi5  +++| CPF4     SX0    X0+B1
00470  M01S00011.submi5  +++|          NG     X0,CPF5     IF EOI
00471  M00S00311.submit  +++|          WRITEF F
00472  M00S00312.submit  +++|          EQ     CPF1

Seq #  *Modification Id* Act 
----------------------------+
00473  M01S00012.submi5  +++|
00474  M01S00013.submi5  +++| CPF5     NZ     X5,CPF3     IF DATA IN BUFFER
00475  M01S00014.submi5  +++|          EQ     CPFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00476  M01S00313.ns22000 ---| CSF      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00477  M01S00051.ns22000 +++| CSF      SPACE  4,15
00478  M00S00314.submit  +++|**        CSF - CHECK SPECIAL FORMAT.
00479  M00S00315.submit  +++|*
00480  M00S00316.submit  +++|*         ENTRY  (A1) = ADDRESS OF FIRST CHARACTER.
00481  M00S00317.submit  +++|*                (X1) = FIRST CHARACTER.
00482  M00S00318.submit  +++|*
00483  M00S00319.submit  +++|*         EXIT   (B2) = 0 IF NOT SPECIAL FORMAT.
00484  M00S00320.submit  +++|*                     = ADDRESS OF PROCESSOR OTHERWISE.
00485  M00S00321.submit  +++|*
00486  M00S00322.submit  +++|*         USES   X - 2, 3, 4, 5, 6, 7.
00487  M00S00323.submit  +++|*                B - 2, 5, 7.
00488  M00S00324.submit  +++|*                A - 2, 3, 5.
00489  M00S00325.submit  +++|
00490  M00S00326.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00491  M01S00327.submi3  ---| CSF6     BX7    X3-X6

Seq #  *Modification Id* Act 
----------------------------+
00492  M01S00003.submi3  +++| CSF7     BX7    X3-X6
00493  M00S00328.submit  +++|          BX4    X2*X7
00494  M00S00329.submit  +++|          MX2    48D
00495  M00S00330.submit  +++|          BX7    -X2*X7
00496  M00S00331.submit  +++|          SA3    A3+1
00497  M00S00332.submit  +++|          SA5    A5+1
00498  M00S00333.submit  +++|          ZR     X4,CSF4     IF MATCH FOUND

Seq #  *Modification Id* Act 
----------------------------+
00499  M01S00334.ns22000 ---|          NZ     X3,CSF1     LOOP TO END OF TABLE
00500  M01S00335.ns22000 ---|          SPACE  1
00501  M01S00336.ns22000 ---| CSF      PS     0           ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00502  M01S00052.ns22000 +++|          NZ     X3,CSF1     IF NOT END OF TABLE
00503  M01S00053.ns22000 +++|
00504  M01S00054.ns22000 +++|
00505  M01S00055.ns22000 +++| CSF      SUBR               ENTRY/EXIT
00506  M00S00337.submit  +++|          SA5    TCCFL
00507  M00S00338.submit  +++|          SA3    TCCF
00508  M00S00339.submit  +++| CSF1     BX6    X6-X6       CLEAR ASSEMBLY
00509  M00S00340.submit  +++|          SA2    A1          FIRST CHARACTER
00510  M00S00341.submit  +++|          MX4    48D
00511  M00S00342.submit  +++|          BX4    -X4*X5
00512  M00S00343.submit  +++|          SB7    X4          SAVE SHIFT COUNT PER CC FORMAT
00513  M00S00344.submit  +++|          SB2    B0          CLEAR RESPONSE
00514  M00S00345.submit  +++| CSF2     LX6    6           ADVANCE ASSEMBLY
00515  M00S00346.submit  +++|          BX6    X6+X2
00516  M00S00347.submit  +++|          LX5    1           SHIFT CHARACTER COUNT
00517  M00S00348.submit  +++|          SA2    A2+B1       NEXT CHARACTER
00518  M00S00349.submit  +++|          NG     X5,CSF2     LOOP FOR X5 CHARACTERS
00519  M00S00350.submit  +++|          SB5    A3-TCCFR

Seq #  *Modification Id* Act 
----------------------------+
00520  M01S00351.ns22000 ---|          PL     B5,CSF3     SKIP TEST FOR BLANK IF /EC=,/READ,/REWIND

Seq #  *Modification Id* Act 
----------------------------+
00521  M01S00056.ns22000 +++|          PL     B5,CSF3     IF /EC=,/READ,/REWIND
00522  M00S00352.submit  +++|          SX2    X2-1R

Seq #  *Modification Id* Act 
----------------------------+
00523  M01S00353.ns22000 ---|          ZR     X2,CSF3

Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00057.ns22000 +++|          ZR     X2,CSF3     IF BLANK
00525  M00S00354.submit  +++|          SA3    A3+1
00526  M00S00355.submit  +++|          SA5    A5+1

Seq #  *Modification Id* Act 
----------------------------+
00527  M01S00356.ns22000 ---|          ZR     X3,CSF      RETURN
00528  M01S00357.ns22000 ---|          EQ     CSF1

Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00058.ns22000 +++|          ZR     X3,CSFX     IF END OF LINE
00530  M01S00059.ns22000 +++|          EQ     CSF1        LOOP
00531  M00S00358.submit  +++|
00532  M00S00359.submit  +++| CSF3     LX6    B7,X6
00533  M00S00360.submit  +++|          SX4    59D
00534  M00S00361.submit  +++|          SX2    B7
00535  M00S00362.submit  +++|          IX4    X4-X2
00536  M00S00363.submit  +++|          SB7    X4
00537  M00S00364.submit  +++|          MX2    1
00538  M00S00365.submit  +++|          AX2    B7,X2

Seq #  *Modification Id* Act 
----------------------------+
00539  M01S00366.submi3  ---|          EQ     CSF6

Seq #  *Modification Id* Act 
----------------------------+
00540  M01S00004.submi3  +++|          EQ     CSF7        CHECK FOR DIRECTIVE FORMAT
00541  M00S00367.submit  +++|
00542  M00S00368.submit  +++| CSF4     SB5    A3-1-TCCFR  TEST FOR /READ

Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00369.ns22000 ---|          NZ     B5,CSF5     NOT /READ

Seq #  *Modification Id* Act 
----------------------------+
00544  M01S00060.ns22000 +++|          NZ     B5,CSF5     IF NOT /READ
00545  M00S00370.submit  +++|          SA3    EORBIT      TEST READ ACTIVE BIT
00546  M00S00371.submit  +++|          LX3    12D

Seq #  *Modification Id* Act 
----------------------------+
00547  M01S00372.ns22000 ---|          NG     X3,CSF      READ ALREADY ACTIVE, DISREGARD 2ND /READ

Seq #  *Modification Id* Act 
----------------------------+
00548  M02S00061.submi3  ---|          NG     X3,CSFX     IF READ ALREADY ACTIVE (DISREGARD /READ)

Seq #  *Modification Id* Act 
----------------------------+
00549  M01S00373.submi3  ---| CSF5     SB2    X7          SET PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
00550  M01S00005.submi3  +++|          NG     X3,CSF6     IF READ ALREADY ACTIVE (DISREGARD /READ)
00551  M01S00006.submi3  +++| CSF5     SB2    X7+         SET PROCESSOR ADDRESS
00552  M01S00007.submi3  +++| CSF6     SA1    LCNT        DECREMENT COUNT OF COMMANDS
00553  M01S00008.submi3  +++|          SX6    X1-1
00554  M01S00009.submi3  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
00555  M01S00374.ns22000 ---|          EQ     CSF         RETURN

Seq #  *Modification Id* Act 
----------------------------+
00556  M01S00062.ns22000 +++|          EQ     CSFX        RETURN
00557  M00S00375.submit  +++| NLT      SPACE  4,10
00558  M00S00376.submit  +++|**        NLT - WRITE NO LINE TERMINATOR DATA TO BUFFER.
00559  M00S00377.submit  +++|*
00560  M00S00378.submit  +++|*         ENTRY  (X1) = STATUS FROM *READS*.
00561  M00S00379.submit  +++|*                (B6) = LWA+1 OF DATA TRANSFERRED ON *READS*.
00562  M00S00380.submit  +++|*
00563  M00S00381.submit  +++|*         EXIT   (X1) = SAME AS ENTRY.
00564  M00S00382.submit  +++|*
00565  M00S00383.submit  +++|*         USES   A - 2, 3, 7.
00566  M00S00384.submit  +++|*                B - 4, 5, 7.
00567  M00S00385.submit  +++|*                X - 0, 1, 2, 3, 7.
00568  M00S00386.submit  +++|
00569  M00S00387.submit  +++|
00570  M00S00388.submit  +++| NLT      SUBR               ENTRY/EXIT
00571  M00S00389.submit  +++|          SB7    B6-BUF
00572  M00S00390.submit  +++|          ZR     B7,NLTX     IF NO DATA TRANSFERRED
00573  M00S00391.submit  +++|          SB7    BUF         SET CHARACTER BUFFER ADDRESS
00574  M00S00392.submit  +++|          SB4    TBUF        SET WORD BUFFER ADDRESS
00575  M00S00393.submit  +++| NLT1     SB5    10          INITIALIZE NUMBER OF CHARACTERS IN WORD
00576  M00S00394.submit  +++|          SX7    B0+         CLEAR CHARACTER BUFFER WORD
00577  M00S00395.submit  +++| NLT2     SA2    B7+         MERGE NEXT CHARACTER
00578  M00S00396.submit  +++|          LX7    6
00579  M00S00397.submit  +++|          SB7    B7+B1       INCREMENT CHARACTER BUFFER ADDRESS
00580  M00S00398.submit  +++|          BX7    X7+X2
00581  M00S00399.submit  +++|          EQ     B7,B6,NLT3  IF ALL CHARACTERS PROCESSED
00582  M00S00400.submit  +++|          SB5    B5-B1       DECREMENT CHARACTERS IN WORD
00583  M00S00401.submit  +++|          NZ     B5,NLT2     IF NOT END OF WORD
00584  M00S00402.submit  +++|          SA7    B4          STORE WORD
00585  M00S00403.submit  +++|          SB4    B4+B1       INCREMENT WORD BUFFER ADDRESS
00586  M00S00404.submit  +++|          EQ     NLT1        PROCESS NEXT 10 CHARACTERS
00587  M00S00405.submit  +++|
00588  M00S00406.submit  +++| NLT3     SA7    B4          STORE LAST WORD
00589  M00S00407.submit  +++|          SB4    B4+B1       SET NUMBER OF WORDS
00590  M00S00408.submit  +++|          SB7    B4-TBUF
00591  M00S00409.submit  +++|          BX0    X1          SAVE READ STATUS
00592  M00S00410.submit  +++|          WRITEW F,TBUF,B7   WRITE DATA WITH NO TERMINATOR
00593  M00S00411.submit  +++|          SA2    FLAGS       CHECK PACK MODE
00594  M00S00412.submit  +++|          SA3    I           CHECK EOI STATUS
00595  M00S00413.submit  +++|          LX2    59-35
00596  M00S00414.submit  +++|          LX3    59-9
00597  M00S00415.submit  +++|          PL     X2,NLT4     IF PACK MODE
00598  M00S00416.submit  +++|          PL     X3,NLT4     IF NOT EOI
00599  M00S00417.submit  +++|          WRITEF F           FLUSH BUFFER IF EOI IN NOPACK MODE
00600  M00S00418.submit  +++| NLT4     BX1    X0          RESTORE READ STATUS
00601  M00S00419.submit  +++|          EQ     NLTX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00602  M01S00420.ns22000 ---| RFM      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00603  M01S00063.ns22000 +++| RFM      SPACE  4,40
00604  M00S00421.submit  +++|**        RFM - REFORMAT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00605  M01S00422.v23l617 ---|*                RFM PROCESSES THE INPUT FILE WHENEVER A *C*JOB CARD
00606  M01S00423.v23l617 ---|*                IS DETECTED AS THE FIRST UNIT RECORD OF THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
00607  M01S00048.v23l617 +++|*                *RFM* PROCESSES THE INPUT FILE WHENEVER A *C*JOB
00608  M01S00049.v23l617 +++|*                DIRECTIVE IS DETECTED AS THE FIRST UNIT RECORD OF
00609  M01S00050.v23l617 +++|*                THE FILE.
00610  M00S00424.submit  +++|*                            PROCESSING IS DONE IN ONE OF TWO MODES
00611  M00S00425.submit  +++|*         1.     NONTRANSPARENT MODE

Seq #  *Modification Id* Act 
----------------------------+
00612  M01S00426.v23l617 ---|*                            AFTER *C*JOB CARD OR *C*NOTRANS* CARD
00613  M01S00427.v23l617 ---|*                EACH UNIT RECORD OF THE INPUT FILE IS CHECKED FOR
00614  M01S00428.v23l617 ---|*                SPECIAL SUBMIT CONTROL CARDS

Seq #  *Modification Id* Act 
----------------------------+
00615  M01S00051.v23l617 +++|*                            AFTER *C*JOB DIRECTIVE OR *C*NOTRANS*
00616  M01S00052.v23l617 +++|*                DIRECTIVE EACH UNIT RECORD OF THE INPUT FILE IS
00617  M01S00053.v23l617 +++|*                CHECKED FOR SPECIAL SUBMIT DIRECTIVES
00618  M00S00429.submit  +++|*                A.          *C*TRANS FOUND
00619  M00S00430.submit  +++|*                            EDITING REVERTS IMMEDIATELY TO TRANSPARENT
00620  M00S00431.submit  +++|*                            MODE.  (SEE BELOW).

Seq #  *Modification Id* Act 
----------------------------+
00621  M01S00432.v23l617 ---|*                B.          OTHER CONTROL CARDS
00622  M01S00433.v23l617 ---|*                            THE CONTROL CARD APPEARANCE IS MARKED AND

Seq #  *Modification Id* Act 
----------------------------+
00623  M01S00054.v23l617 +++|*                B.          OTHER DIRECTIVES
00624  M01S00055.v23l617 +++|*                            THE DIRECTIVE APPEARANCE IS MARKED AND
00625  M00S00434.submit  +++|*                            IT TAKES EFFECT WITH THE NEXT UNIT RECORD
00626  M00S00435.submit  +++|*                C.          TEXT LINE
00627  M00S00436.submit  +++|*                            TEXT LINES ARE EDITED ACCORDING TO THE
00628  M00S00437.submit  +++|*                            CURRENT SETTING OF THE SUBMIT CONTROL
00629  M00S00438.submit  +++|*                            OPTIONS.
00630  M00S00439.submit  +++|*                D.          EOR/EOF/EOI
00631  M00S00440.submit  +++|*                            SEE COMMENTS IN SUBROUTINE *SUBEO*.
00632  M00S00441.submit  +++|*
00633  M00S00442.submit  +++|*         2.     TRANSPARENT MODE

Seq #  *Modification Id* Act 
----------------------------+
00634  M01S00443.v23l617 ---|*                            AFTER *C*TRANS CARD HAS BEEN PROCESSED
00635  M01S00444.v23l617 ---|*                THE FIRST UNIT RECORD IS EXAMINED

Seq #  *Modification Id* Act 
----------------------------+
00636  M01S00056.v23l617 +++|*                            AFTER *C*TRANS DIRECTIVE HAS BEEN
00637  M01S00057.v23l617 +++|*                PROCESSED THE FIRST UNIT RECORD IS EXAMINED
00638  M00S00445.submit  +++|*                A.          TEXT
00639  M00S00446.submit  +++|*                            THE WHOLE RECORD IS TRANSFERED TO THE
00640  M00S00447.submit  +++|*                            SUBMIT FILE AS IS
00641  M00S00448.submit  +++|*                B.          *C*NOTRANS FOUND
00642  M00S00449.submit  +++|*                            PROCESSING REVERTS IMMEDIATELY TO
00643  M00S00450.submit  +++|*                            NON-TRANSPARENT MODE.  (SEE ABOVE).
00644  M00S00451.submit  +++|*                C.          SUBMIT CONTROL OPTION
00645  M00S00452.submit  +++|*                            THE CONTROL OPTION OCCURENCE IS MARKED
00646  M00S00453.submit  +++|*                            EVEN IF IT MAY NOT INFLUENCE THE EDITING
00647  M00S00454.submit  +++|*                            UNDER THIS MODE.  IF MODE REVERTS TO NON-
00648  M00S00455.submit  +++|*                            TRANSPARENT, ALL OPTIONS USED UNDER
00649  M00S00456.submit  +++|*                            TRANSPARENT MODE WILL TAKE EFFECT.
00650  M00S00457.submit  +++|*                D.          EOR/EOF/EOI
00651  M00S00458.submit  +++|*                            SEE COMMENTS IN SUBROUTINE *SUBEO*.
00652  M00S00459.submit  +++|
00653  M00S00460.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00654  M01S00461.ns22000 ---| RFM      PS

Seq #  *Modification Id* Act 
----------------------------+
00655  M01S00064.ns22000 +++| RFM      SUBR               ENTRY/EXIT
00656  M00S00462.submit  +++|
00657  M00S00463.submit  +++|*         PROCESS NONTRANSPARENT MODE
00658  M00S00464.submit  +++|
00659  M00S00465.submit  +++| PNM      BSS    0           NOTRANS
00660  M00S00466.submit  +++|          EQ     PNM2        SKIP ADDITIONAL READ
00661  M00S00467.submit  +++|
00662  M00S00468.submit  +++| PNM1     READ   I,R
00663  M00S00469.submit  +++|          RECALL F
00664  M00S00470.submit  +++| PNM2     SA1    I+3         SAVE OUTPTR(I)
00665  M00S00471.submit  +++|          SA2    I+2         SAVE INPUT FET *IN* POINTER
00666  M00S00472.submit  +++|          BX6    X1
00667  M00S00473.submit  +++|          LX7    X2
00668  M00S00474.submit  +++|          SA6    OPTR
00669  M00S00475.submit  +++|          SA7    IPTR
00670  M00S00476.submit  +++|          READS  I,BUF,BUFL  READ UNIT RECORD
00671  M00S00477.submit  +++|          ZR     X1,PNM2.1   IF NO EOR/EOF/EOI
00672  M00S00478.submit  +++|          SB7    B6-BUF
00673  M00S00479.submit  +++|          ZR     B7,PNM2.0   IF END OF RECORD
00674  M00S00480.submit  +++|          SA2    FLAGS       CHECK TRANS MODE BIT
00675  M00S00481.submit  +++|          LX2    59-47
00676  M00S00482.submit  +++|          PL     X2,PNM2.0   IF TRANS NOT SET
00677  M00S00483.submit  +++|          SA2    OPTR        RESTORE POINTERS FOR TRANS DATA
00678  M00S00484.submit  +++|          SA3    IPTR
00679  M00S00485.submit  +++|          BX6    X2
00680  M00S00486.submit  +++|          LX7    X3
00681  M00S00487.submit  +++|          SA6    I+3
00682  M00S00488.submit  +++|          SA7    I+2
00683  M00S00489.submit  +++|          EQ     PTM6        SWITCH TO TRANS MODE
00684  M00S00490.submit  +++|
00685  M00S00491.submit  +++| PNM2.0   RJ     NLT         WRITE NO LINE TERMINATOR DATA TO BUFFER
00686  M00S00492.submit  +++|          SX0    B0          INPUT FILE
00687  M00S00493.submit  +++|          SX7    B0          NO WRITE REMAINDER

Seq #  *Modification Id* Act 
----------------------------+
00688  M01S00494.ns22000 ---|          SX5    RFM         RETURN ADDRESS FOR EOI

Seq #  *Modification Id* Act 
----------------------------+
00689  M01S00065.ns22000 +++|          SX5    RFMX        RETURN ADDRESS FOR EOI
00690  M00S00495.submit  +++|          RJ     SUBEO       PROCESS EOF/EOR
00691  M00S00496.submit  +++|          EQ     PNM1        PROCESS NEXT RECORD
00692  M00S00497.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00693  M01S00498.ns22000 ---| PNM2.1   SA1    BUF         SET BEGINNING ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00694  M01S00066.ns22000 +++| PNM2.1   SA1    LCNT        INCREMENT LINE COUNT
00695  M01S00067.ns22000 +++|          SX6    X1+B1
00696  M01S00068.ns22000 +++|          SA6    A1
00697  M01S00069.ns22000 +++|          SA1    BUF         SET BEGINNING ADDRESS
00698  M00S00499.submit  +++|          RJ     CSF         CHECK SPECIAL FORMAT
00699  M00S00500.submit  +++|          NZ     B2,PNM3     IF SPECIAL FORMAT
00700  M00S00501.submit  +++|          RJ     SSN         STRIP SEQUENCE NUMBER
00701  M00S00502.submit  +++|          SB6    A1          SAVE BEGINNING ADDRESS AFTER STRIPPING
00702  M00S00503.submit  +++|          SB3    B2          SAVE BEGINNING ADDRESS BEFORE STRIPPING
00703  M00S00504.submit  +++|          RJ     CSF         CHECK SPECIAL FORMAT
00704  M00S00505.submit  +++|          ZR     B2,PNM4     IF NOT SPECIAL FORMAT
00705  M00S00506.submit  +++| PNM3     SX7    PNM2        SAVE RETURN ADDRESS
00706  M00S00507.submit  +++|          SA7    RJ
00707  M00S00508.submit  +++|          JP     B2
00708  M00S00509.submit  +++|
00709  M00S00510.submit  +++| PNM4     SA2    FLAGS       TEST TRANS BIT
00710  M00S00511.submit  +++|          LX2    12D
00711  M00S00512.submit  +++|          PL     X2,PNM5     TRANS NOT SET
00712  M00S00513.submit  +++|          SA1    OPTR        RESTORE *IN* AND *OUT* POINTERS
00713  M00S00514.submit  +++|          SA2    IPTR
00714  M00S00515.submit  +++|          BX6    X1
00715  M00S00516.submit  +++|          LX7    X2
00716  M00S00517.submit  +++|          SA6    I+3
00717  M00S00518.submit  +++|          SA7    I+2
00718  M00S00519.submit  +++|          EQ     PTM6        SWITCH TO TRANS MODE
00719  M00S00520.submit  +++|
00720  M00S00521.submit  +++| PNM5     SB2    BUF+BUFL
00721  M00S00522.submit  +++|          SA2    FLAGS       TEST NOSEQ BIT
00722  M00S00523.submit  +++|          PL     X2,PNM6     STRIP SEQUENCE NUMBERS
00723  M00S00524.submit  +++|          SB6    B3          NO SEQUENCE NUMBER STRIPPING
00724  M00S00525.submit  +++| PNM6     SB7    B2-B6       CALCULATE WRITE LENGTH
00725  M00S00526.submit  +++|          WRITES F,B6,B7
00726  M00S00527.submit  +++|          EQ     PNM2        LOOP TO NEXT RECORD
00727  M00S00528.submit  +++|
00728  M00S00529.submit  +++|*         PROCESS TRANSPARENT MODE
00729  M00S00530.submit  +++|
00730  M00S00531.submit  +++| PTM      BSS    0
00731  M00S00532.submit  +++| PTM1     READ   I
00732  M00S00533.submit  +++|          RECALL F
00733  M00S00534.submit  +++| PTM2     SA1    I+3         SAVE OUTPTR(I)
00734  M00S00535.submit  +++|          BX6    X1
00735  M00S00536.submit  +++|          SA6    OPTR
00736  M00S00537.submit  +++|          SA1    X6          CHECK FOR END OF LINE BYTE
00737  M00S00538.submit  +++|          MX7    -12
00738  M00S00539.submit  +++|          BX7    -X7*X1

Seq #  *Modification Id* Act 
----------------------------+
00739  M01S00540.v23l617 ---|          NZ     X7,PTM5     IF NOT A POSSIBLE SPECIAL FORMAT CARD

Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00058.v23l617 +++|          NZ     X7,PTM5     IF NOT A POSSIBLE SPECIAL FORMAT DIRECTIVE
00741  M00S00541.submit  +++|          READS  I,BUF,BUFL  READ UNIT RECORD FROM INPUT FILE
00742  M00S00542.submit  +++|          ZR     X1,PTM3     IF NO EOR/EOF
00743  M00S00543.submit  +++|          SX0    B0          INPUT FILE
00744  M00S00544.submit  +++|          SX7    B0          NO RECORD REMAINDER

Seq #  *Modification Id* Act 
----------------------------+
00745  M01S00545.ns22000 ---|          SX5    RFM         RETURN ADDRESS FOR EOI

Seq #  *Modification Id* Act 
----------------------------+
00746  M01S00070.ns22000 +++|          SX5    RFMX        RETURN ADDRESS FOR EOI
00747  M00S00546.submit  +++|          RJ     SUBEO       PROCESS TERMINATION CONDITION
00748  M00S00547.submit  +++|          EQ     PTM1        PROCESS NEXT RECORD
00749  M00S00548.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00750  M01S00549.ns22000 ---| PTM3     SA1    BUF         SET STARTING ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00071.ns22000 +++| PTM3     SA1    LCNT        INCREMENT LINE COUNT
00752  M01S00072.ns22000 +++|          SX6    X1+B1
00753  M01S00073.ns22000 +++|          SA6    A1
00754  M01S00074.ns22000 +++|          SA1    BUF         SET BEGINNING ADDRESS
00755  M00S00550.submit  +++|          RJ     CSF         CHECK SPECIAL FORMAT WITH NO SEQ NO STRIP
00756  M00S00551.submit  +++|          NZ     B2,PTM4     IF SPECIAL FORMAT
00757  M00S00552.submit  +++|          RJ     SSN         STRIP SEQUENCE NUMBER
00758  M00S00553.submit  +++|          SB6    A1          SAVE BEGINNING ADDRESS AFTER STRIPPING
00759  M00S00554.submit  +++|          SB3    B2          SAVE BEGINNING ADDRESS BEFORE STRIPPING
00760  M00S00555.submit  +++|          RJ     CSF         CHECK SPECIAL FORMAT
00761  M00S00556.submit  +++|          ZR     B2,PTM5     IF NOT SPECIAL FORMAT
00762  M00S00557.submit  +++| PTM4     SX7    PTM2        SAVE RETURN ADDRESS
00763  M00S00558.submit  +++|          SA7    RJ
00764  M00S00559.submit  +++|          JP     B2
00765  M00S00560.submit  +++|
00766  M00S00561.submit  +++| PTM5     SA2    FLAGS       TEST FOR TRANS BIT SET
00767  M00S00562.submit  +++|          LX2    12D
00768  M00S00563.submit  +++|          SA3    OPTR        RESTORE OUT POINTER
00769  M00S00564.submit  +++|          BX6    X3
00770  M00S00565.submit  +++|          SA6    I+3
00771  M00S00566.submit  +++|          PL     X2,PNM2     IF NOT SET, SWITCH TO NONTRANSPARENT MODE
00772  M00S00567.submit  +++| PTM6     READW  I,BUF,BUFL
00773  M00S00568.submit  +++|          RJ     SUBUFS      SET TRANSFER TO BUF
00774  M00S00569.submit  +++|          ZR     X1,PTM7     IF NO EOR/EOF
00775  M00S00570.submit  +++|          SX0    B0          INPUT FILE
00776  M00S00571.submit  +++|          SX7    B1          PROCESS INCOMPLETE RECORD

Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00572.ns22000 ---|          SX5    RFM         RETURN ADDRESS FOR EOI

Seq #  *Modification Id* Act 
----------------------------+
00778  M01S00075.ns22000 +++|          SX5    RFMX        RETURN ADDRESS FOR EOI
00779  M00S00573.submit  +++|          RJ     SUBEO       PROCESS TERMINATION CONDITION
00780  M00S00574.submit  +++|          EQ     PTM1        PROCESS NEXT RECORD
00781  M00S00575.submit  +++|
00782  M00S00576.submit  +++| PTM7     WRITEW F,BUF,BUFL
00783  M00S00577.submit  +++|          RJ     SUBUFR      CLEAR TRANSFER TO BUF
00784  M00S00578.submit  +++|          EQ     PTM6        LOOP

Seq #  *Modification Id* Act 
----------------------------+
00785  M01S00579.ns22000 ---| SUBEO    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00786  M01S00076.ns22000 +++| SUBEO    SPACE  4,40
00787  M00S00580.submit  +++|**        SUBEO  PROCESS FILE TERMINATION CONDITION.
00788  M00S00581.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00582.ns22000 ---|*         ENTRY  I  FILE FET ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00790  M01S00077.ns22000 +++|*         ENTRY  (I) = FILE FET ADDRESS.
00791  M00S00583.submit  +++|*                (X1) = EOR/EOF/EOI STATUS FROM READW OR READS
00792  M00S00584.submit  +++|*                (X0) IF 0 - FILE IS INPUT FILE
00793  M00S00585.submit  +++|*                        1 - FILE FROM /READ,....
00794  M00S00586.submit  +++|*                (X5) = ALTERNATE RETURN ADDRESS
00795  M00S00587.submit  +++|*                (X7) = 0 IF ENTIRE RECORD.
00796  M00S00588.submit  +++|*                     = 1 IF PARTIAL RECORD POSSIBLE.
00797  M00S00589.submit  +++|*
00798  M00S00590.submit  +++|*         EXIT   THE ROUTINE WILL RETURN VIA REGULAR LINKAGE WHEN
00799  M00S00591.submit  +++|*                     EOR/EOF ON INPUT FILE
00800  M00S00592.submit  +++|*                     EOR ON READ FILE
00801  M00S00593.submit  +++|*                THE ROUTINE WILL RETURN TO THE ALTERNATE RETURN
00802  M00S00594.submit  +++|*                ADDRESS WHEN
00803  M00S00595.submit  +++|*                     EOI ON INPUT FILE
00804  M00S00596.submit  +++|*                     EOF ON READ FILE
00805  M00S00597.submit  +++|*
00806  M00S00598.submit  +++|*
00807  M00S00599.submit  +++|*                THIS ROUTINE PROCESSES A TERMINAL CONDITION FOR A FILE
00808  M00S00600.submit  +++|*                AS FOLLOWS
00809  M00S00601.submit  +++|*         1.     END-OF-INFORMATION
00810  M00S00602.submit  +++|*                A. INPUT FILE
00811  M00S00603.submit  +++|*                             THE REFORMATTING ROUTINE IS TERMINATED BUT
00812  M00S00604.submit  +++|*                             THE SUBMIT BUFFER F IS FLUSHED IF NOT
00813  M00S00605.submit  +++|*                             EMPTY WITH A WRITEF MACRO.
00814  M00S00606.submit  +++|*         2.     END OF FILE
00815  M00S00607.submit  +++|*                A. INPUT FILE
00816  M00S00608.submit  +++|*                             IF THE PACK CONTROL OPTION IS
00817  M00S00609.submit  +++|*                             IN EFFECT  THE FILE MARK IS IGNORED.
00818  M00S00610.submit  +++|*                             ELSE A FILE MARK IS WRITTEN TO THE OUTPUT
00819  M00S00611.submit  +++|*                             FILE F
00820  M00S00612.submit  +++|*                B. READ FILE
00821  M00S00613.submit  +++|*                            READING FROM FILE IS TERMINATED, EDITING
00822  M00S00614.submit  +++|*                            WILL BE THE SAME AS IF EOR WAS DETECTED.
00823  M00S00615.submit  +++|*         3.     END OF RECORD
00824  M00S00616.submit  +++|*                A. INPUT FILE
00825  M00S00617.submit  +++|*                B. READ FILE
00826  M00S00618.submit  +++|*                             IF THE PACK OPTION IS IN EFFECT THE RECORD
00827  M00S00619.submit  +++|*                             MARK IS IGNORED, ELSE A RECORD MARK IS
00828  M00S00620.submit  +++|*                             WRITTEN TO THE OUTPUT FILE F.
00829  M00S00621.submit  +++|
00830  M00S00622.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00831  M01S00623.ns22000 ---| SUBEO    PS                  ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00832  M01S00078.ns22000 +++| SUBEO    SUBR               ENTRY/EXIT
00833  M00S00624.submit  +++|          SA2    FLAGS       PACK/NOPAK
00834  M00S00625.submit  +++|          LX2    59-35
00835  M00S00626.submit  +++|
00836  M00S00627.submit  +++|*         SEPARATE EOR FROM EOF.
00837  M00S00628.submit  +++|
00838  M00S00629.submit  +++|          PL     X1,SUB6     IF EOR
00839  M00S00630.submit  +++|          NZ     X0,SUB4     IF EOF ON READ FILE
00840  M00S00631.submit  +++|
00841  M00S00632.submit  +++|*         END OF FILE.
00842  M00S00633.submit  +++|
00843  M00S00634.submit  +++|          SA4    SUBTR

Seq #  *Modification Id* Act 
----------------------------+
00844  M01S00001.submi4  +++|          BX0    X2
00845  M00S00635.submit  +++|          ZR     X4,SUB1     IF BUFFER EMPTY

Seq #  *Modification Id* Act 
----------------------------+
00846  M01S00636.submi4  ---|          BX0    X2
00847  M00S00637.submit  +++|          WRITEW F,BUF,X4
00848  M00S00638.submit  +++|          RJ     SUBUFR      CLEAR TRANSFER COUNT
00849  M00S00639.submit  +++| SUB1     SA3    I           CHECK EOI STATUS
00850  M00S00640.submit  +++|          LX3    59-9
00851  M00S00641.submit  +++|          PL     X0,SUB2     IF PACK MODE
00852  M00S00642.submit  +++|          NG     X3,SUB3     IF EOI/INPUT/NOPACK
00853  M00S00643.submit  +++|          WRITEF F           EOF/NOPACK, FLUSH FILE

Seq #  *Modification Id* Act 
----------------------------+
00854  M01S00644.ns22000 ---|          EQ     SUBEO       REGULAR RETURN

Seq #  *Modification Id* Act 
----------------------------+
00855  M01S00079.ns22000 +++|          EQ     SUBEOX      REGULAR RETURN
00856  M00S00645.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00857  M01S00646.ns22000 ---| SUB2     PL     X3,SUBEO    IF NOT EOI

Seq #  *Modification Id* Act 
----------------------------+
00858  M01S00080.ns22000 +++| SUB2     PL     X3,SUBEOX   IF NOT EOI
00859  M00S00647.submit  +++|          WRITEF F           ON EOI,FLUSH OUTPUT BUFFER
00860  M00S00648.submit  +++| SUB3     SB7    X5          SET ALTERNATE RETURN ADDRESS
00861  M00S00649.submit  +++|          JP     B7
00862  M00S00650.submit  +++|
00863  M00S00651.submit  +++|*         READ FILE EOF OR EOI.
00864  M00S00652.submit  +++|
00865  M00S00653.submit  +++| SUB4     ZR     X7,SUB5     IF NO PARTIAL RECORD READ
00866  M00S00654.submit  +++|          SA4    SUBTR
00867  M00S00655.submit  +++|          ZR     X4,SUB5     IF NO DATA
00868  M00S00656.submit  +++|          BX0    X2
00869  M00S00657.submit  +++|          WRITEW F,BUF,X4    WRITE LAST AMOUNT OF DATA
00870  M00S00658.submit  +++|          RJ     SUBUFR      CLEAR TRANSFER COUNT
00871  M00S00659.submit  +++|          BX2    X0
00872  M00S00660.submit  +++|          SX0    B0          SET EOF
00873  M00S00661.submit  +++|          EQ     SUB8
00874  M00S00662.submit  +++|
00875  M00S00663.submit  +++| SUB5     SA3    F+2         *IN*
00876  M00S00664.submit  +++|          SX0    B0          X0  SET TO EOF
00877  M00S00665.submit  +++|          SA4    A3+B1       OUT
00878  M00S00666.submit  +++|          BX6    X3-X4       IN-OUT
00879  M00S00667.submit  +++|          ZR     X6,SUB9     IF OUTPUT BUFFER EMPTY
00880  M00S00668.submit  +++|          EQ     SUB8        READ FILE TERMINATED WITH EOR
00881  M00S00669.submit  +++|
00882  M00S00670.submit  +++|*         END OF RECORD.
00883  M00S00671.submit  +++|
00884  M00S00672.submit  +++| SUB6     ZR     X7,SUB7     IF NO PARTIAL RECORD READ
00885  M00S00673.submit  +++|          BX0    X2
00886  M00S00674.submit  +++|          SA4    SUBTR
00887  M00S00675.submit  +++|          ZR     X4,SUB6.1   IF NO DATA
00888  M00S00676.submit  +++|          WRITEW F,BUF,X1-BUF
00889  M00S00677.submit  +++|          RJ     SUBUFR      CLEAR TRANSFER TO BUF
00890  M00S00678.submit  +++|          BX2    X0
00891  M00S00679.submit  +++| SUB6.1   SX1    B1          FORCE EOR FLAG
00892  M00S00680.submit  +++|
00893  M00S00681.submit  +++|*         PROCESS READ FILE EOR OR EOF.
00894  M00S00682.submit  +++|
00895  M00S00683.submit  +++| SUB7     SX0    X1+         RESTORE EOR/EOF FLAG
00896  M00S00684.submit  +++| SUB8     PL     X2,SUB9     IF PACK MODE
00897  M00S00685.submit  +++|          WRITER F           NOPACK PRESERVES THE RECORD MARK
00898  M00S00686.submit  +++| SUB9     ZR     X0,SUB3     IF EOF ON READ FILE

Seq #  *Modification Id* Act 
----------------------------+
00899  M01S00687.ns22000 ---|          EQ     SUBEO       IF EOR

Seq #  *Modification Id* Act 
----------------------------+
00900  M01S00081.ns22000 +++|          EQ     SUBEOX      EOR
00901  M00S00688.submit  +++| SUBUFS   SPACE  4,10
00902  M00S00689.submit  +++|**        SUBUFS - SET NUMBER OF WORDS TRANSFERRED TO BUF FROM I.
00903  M00S00690.submit  +++|*
00904  M00S00691.submit  +++|*         ENTRY  (B6) = LWA+1 OF DATA TRANSFERRED.
00905  M00S00692.submit  +++|*
00906  M00S00693.submit  +++|*         EXIT   (SUBTR) = NUMBER OF WORDS TRANSFERRED.
00907  M00S00694.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00695.ns22000 ---|*         USES   A - 6
00909  M01S00696.ns22000 ---|*                X - 4, 6

Seq #  *Modification Id* Act 
----------------------------+
00910  M01S00082.ns22000 +++|*         USES   A - 6.
00911  M01S00083.ns22000 +++|*                X - 4, 6.
00912  M00S00697.submit  +++|
00913  M00S00698.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00914  M01S00699.ns22000 ---| SUBUFS   PS                 ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
00915  M01S00084.ns22000 +++| SUBUFS   SUBR               ENTRY/EXIT
00916  M00S00700.submit  +++|          SX4    B6
00917  M00S00701.submit  +++|          SX6    BUF
00918  M00S00702.submit  +++|          IX6    X4-X6
00919  M00S00703.submit  +++|          SA6    SUBTR

Seq #  *Modification Id* Act 
----------------------------+
00920  M01S00704.ns22000 ---|          EQ     SUBUFS
00921  M01S00705.ns22000 ---| SUBUFR   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00922  M01S00085.ns22000 +++|          EQ     SUBUFSX     RETURN
00923  M01S00086.ns22000 +++| SUBUFR   SPACE  4,10
00924  M00S00706.submit  +++|**        SUBUFR - RESET TRANSFER CELL TO ZERO.
00925  M00S00707.submit  +++|*
00926  M00S00708.submit  +++|*         EXIT   (SUBTR) = 0.
00927  M00S00709.submit  +++|*
00928  M00S00710.submit  +++|*         USES   A - 6.
00929  M00S00711.submit  +++|*                X - 6.
00930  M00S00712.submit  +++|
00931  M00S00713.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
00932  M01S00714.ns22000 ---| SUBUFR   PS     0

Seq #  *Modification Id* Act 
----------------------------+
00933  M01S00087.ns22000 +++| SUBUFR   SUBR               ENTRY/EXIT
00934  M00S00715.submit  +++|          SX6    B0+
00935  M00S00716.submit  +++|          SA6    SUBTR

Seq #  *Modification Id* Act 
----------------------------+
00936  M01S00717.ns22000 ---|          EQ     SUBUFR

Seq #  *Modification Id* Act 
----------------------------+
00937  M01S00088.ns22000 +++|          EQ     SUBUFRX     RETURN
00938  M00S00718.submit  +++|
00939  M00S00719.submit  +++| SUBTR    BSSZ   1

Seq #  *Modification Id* Act 
----------------------------+
00940  M01S00720.ns22000 ---|          TITLE  SPECIAL CONTROL STATEMENT PROCESSORS.
00941  M01S00721.ns22000 ---| JOB      TITLE  SPECIAL CONTROL CARD PROCESSOR SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
00942  M01S00089.ns22000 +++|          TITLE  SPECIAL DIRECTIVE PROCESSORS.

Seq #  *Modification Id* Act 
----------------------------+
00943  M01S00059.v23l617 +++| CHARGE   SPACE  4,10
00944  M01S00060.v23l617 +++|**        CHARGE - PROCESS CHARGE.
00945  M01S00061.v23l617 +++|*
00946  M01S00062.v23l617 +++|*         USES   A - 1, 2.
00947  M01S00063.v23l617 +++|*                X - 1, 2.
00948  M01S00064.v23l617 +++|*                B - 2, 5.
00949  M01S00065.v23l617 +++|*
00950  M01S00066.v23l617 +++|*         CALLS  SNM.
00951  M01S00067.v23l617 +++|*
00952  M01S00068.v23l617 +++|*         MACROS GETCN, WRITEC.
00953  M01S00069.v23l617 +++|
00954  M01S00070.v23l617 +++|
00955  M01S00071.v23l617 +++| CHARGE   BSS    0
00956  M01S00072.v23l617 +++|          SA1    CHGA
00957  M01S00073.v23l617 +++|          NZ     X1,CHG1     IF NOT FIRST *CHARGE* DIRECTIVE
00958  M01S00074.v23l617 +++|          GETCN  CHGA        GET CHARGE INFORMATION
00959  M01S00075.v23l617 +++|          SA1    CHGA        READ CHARGE NUMBER
00960  M01S00076.v23l617 +++|          SB5    CHGB        SET COMMAND TEMPLATE ADDRESS
00961  M01S00077.v23l617 +++|          SB2    1R#
00962  M01S00078.v23l617 +++|          RJ     SNM         SET CHARGE NUMBER
00963  M01S00079.v23l617 +++|          SA1    CHGA+1      READ FIRST PART OF PROJECT NUMBER
00964  M01S00080.v23l617 +++|          SB2    1R<
00965  M01S00081.v23l617 +++|          RJ     SNM         SET PROJECT NUMBER
00966  M01S00082.v23l617 +++|          SA1    CHGA+2      READ SECOND PART OF PROJECT NUMBER
00967  M01S00083.v23l617 +++|          SB2    1R>
00968  M01S00084.v23l617 +++|          RJ     SNM         SET PROJECT NUMBER
00969  M01S00085.v23l617 +++| CHG1     SA1    CHGA+3
00970  M01S00086.v23l617 +++|          PL     X1,CHG2     IF CHARGE NOT VALIDATED
00971  M01S00087.v23l617 +++|          WRITEC F,CHGB      WRITE COMMAND TO SUBMIT FILE
00972  M01S00088.v23l617 +++| CHG2     SA2    RJ          SET RETURN ADDRESS
00973  M01S00089.v23l617 +++|          SB2    X2
00974  M01S00090.v23l617 +++|          JP     B2          RETURN
00975  M01S00091.v23l617 +++|
00976  M01S00092.v23l617 +++| CHGA     BSSZ   4           *GETCN* BLOCK
00977  M01S00093.v23l617 +++| CHGB     DATA   C/$CHARGE,##########,<<<<<<<<<<>>>>>>>>>>./

Seq #  *Modification Id* Act 
----------------------------+
00978  M01S00090.ns22000 +++| JOB      SPACE  4,10
00979  M00S00722.submit  +++|**        JOB - PROCESS JOB.
00980  M00S00723.submit  +++|
00981  M00S00724.submit  +++|
00982  M00S00725.submit  +++| JOB      BSS    0
00983  M00S00726.submit  +++|          WRITER F,R
00984  M00S00727.submit  +++|          SA2    RJ
00985  M00S00728.submit  +++|          SB2    X2
00986  M00S00729.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
00987  M01S00730.ns22000 ---| EOR      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00988  M01S00091.ns22000 +++| EOR      SPACE  4,10
00989  M00S00731.submit  +++|**        EOR - PROCESS EOR.
00990  M00S00732.submit  +++|
00991  M00S00733.submit  +++|
00992  M00S00734.submit  +++| EOR      BSS    0
00993  M00S00735.submit  +++|          WRITER F,R
00994  M00S00736.submit  +++|          SA2    RJ
00995  M00S00737.submit  +++|          SB2    X2
00996  M00S00738.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
00997  M01S00739.ns22000 ---| EOF      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00998  M01S00092.ns22000 +++| EOF      SPACE  4,10
00999  M00S00740.submit  +++|**        EOF - PROCESS EOF.
01000  M00S00741.submit  +++|
01001  M00S00742.submit  +++|
01002  M00S00743.submit  +++| EOF      BSS    0
01003  M00S00744.submit  +++|          WRITEF F,R
01004  M00S00745.submit  +++|          SA2    RJ
01005  M00S00746.submit  +++|          SB2    X2
01006  M00S00747.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01007  M01S00748.ns22000 ---| TCCF     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01008  M01S00093.ns22000 +++| SEQ      SPACE  4,10
01009  M00S00749.submit  +++|**        SEQ - PROCESS SEQ.
01010  M00S00750.submit  +++|
01011  M00S00751.submit  +++|
01012  M00S00752.submit  +++| SEQ      BSS    0
01013  M00S00753.submit  +++|          SA1    FLAGS
01014  M00S00754.submit  +++|          MX2    1
01015  M00S00755.submit  +++|          BX6    -X2*X1
01016  M00S00756.submit  +++|          SA6    FLAGS
01017  M00S00757.submit  +++|          SA2    RJ
01018  M00S00758.submit  +++|          SB2    X2
01019  M00S00759.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00760.ns22000 ---| NOSEQ    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01021  M01S00094.ns22000 +++| NOSEQ    SPACE  4,10
01022  M00S00761.submit  +++|**        NOSEQ - PROCESS NOSEQ.
01023  M00S00762.submit  +++|
01024  M00S00763.submit  +++|
01025  M00S00764.submit  +++| NOSEQ    BSS    0
01026  M00S00765.submit  +++|          SA1    FLAGS
01027  M00S00766.submit  +++|          MX2    1
01028  M00S00767.submit  +++|          BX6    X2+X1
01029  M00S00768.submit  +++|          SA6    FLAGS
01030  M00S00769.submit  +++|          SA2    RJ
01031  M00S00770.submit  +++|          SB2    X2
01032  M00S00771.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01033  M01S00772.ns22000 ---| TRANS    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01034  M01S00095.ns22000 +++| TRANS    SPACE  4,10
01035  M00S00773.submit  +++|**        TRANS - PROCESS TRANS.
01036  M00S00774.submit  +++|
01037  M00S00775.submit  +++|
01038  M00S00776.submit  +++| TRANS    BSS    0
01039  M00S00777.submit  +++|          SA1    FLAGS
01040  M00S00778.submit  +++|          LX1    12D
01041  M00S00779.submit  +++|          MX2    1
01042  M00S00780.submit  +++|          BX6    X2+X1
01043  M00S00781.submit  +++|          LX6    48D
01044  M00S00782.submit  +++|          SA6    FLAGS
01045  M00S00783.submit  +++|          SA2    RJ
01046  M00S00784.submit  +++|          SB2    X2
01047  M00S00785.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01048  M01S00786.ns22000 ---| NOTRANS  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01049  M01S00096.ns22000 +++| NOTRANS  SPACE  4,10
01050  M00S00787.submit  +++|**        NOTRANS - PROCESS NOTRANS.
01051  M00S00788.submit  +++|
01052  M00S00789.submit  +++|
01053  M00S00790.submit  +++| NOTRANS  BSS    0
01054  M00S00791.submit  +++|          SA1    FLAGS
01055  M00S00792.submit  +++|          LX1    12D
01056  M00S00793.submit  +++|          MX2    1
01057  M00S00794.submit  +++|          BX6    -X2*X1
01058  M00S00795.submit  +++|          LX6    48D
01059  M00S00796.submit  +++|          SA6    FLAGS
01060  M00S00797.submit  +++|          SA2    RJ
01061  M00S00798.submit  +++|          SB2    X2
01062  M00S00799.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00800.ns22000 ---| NOPACK   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01064  M01S00097.ns22000 +++| NOPACK   SPACE  4,10
01065  M00S00801.submit  +++|**        NOPACK - PROCESS NOPACK.
01066  M00S00802.submit  +++|
01067  M00S00803.submit  +++|
01068  M00S00804.submit  +++| NOPACK   BSS    0
01069  M00S00805.submit  +++|          SA1    FLAGS
01070  M00S00806.submit  +++|          LX1    24D
01071  M00S00807.submit  +++|          MX2    1
01072  M00S00808.submit  +++|          BX6    X2+X1
01073  M00S00809.submit  +++|          LX6    36D
01074  M00S00810.submit  +++|          SA6    FLAGS
01075  M00S00811.submit  +++|          SA2    RJ
01076  M00S00812.submit  +++|          SB2    X2
01077  M00S00813.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01078  M01S00814.ns22000 ---| PACK     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01079  M01S00098.ns22000 +++| PACK     SPACE  4,10
01080  M00S00815.submit  +++|**        PACK - PROCESS PACK.
01081  M00S00816.submit  +++|
01082  M00S00817.submit  +++|
01083  M00S00818.submit  +++| PACK     BSS    0
01084  M00S00819.submit  +++|          SA1    FLAGS
01085  M00S00820.submit  +++|          LX1    24D
01086  M00S00821.submit  +++|          MX2    1
01087  M00S00822.submit  +++|          BX6    -X2*X1
01088  M00S00823.submit  +++|          LX6    36D
01089  M00S00824.submit  +++|          SA6    FLAGS
01090  M00S00825.submit  +++|          SA2    RJ
01091  M00S00826.submit  +++|          SB2    X2
01092  M00S00827.submit  +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01093  M01S00828.ns22000 ---| REWIND   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01094  M01S00099.ns22000 +++| REWIND   SPACE  4,10
01095  M00S00829.submit  +++|**        REWIND - REWIND FILE.
01096  M00S00830.submit  +++|*
01097  M00S00831.submit  +++|*         USES   A - 1, 2, 6.
01098  M00S00832.submit  +++|*                B - 2.
01099  M00S00833.submit  +++|*                X - 1, 2, 3, 6.
01100  M00S00834.submit  +++|*
01101  M00S00835.submit  +++|*         CALLS  GLF, SFN.
01102  M00S00836.submit  +++|
01103  M00S00837.submit  +++|
01104  M00S00838.submit  +++| REWIND   BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00100.submi3  ---|          SA1    LCNT        DECREMENT LINE COUNT (DON-T COUNT /REWIND)
01106  M02S00101.submi3  ---|          SX6    X1-1
01107  M02S00102.submi3  ---|          SA6    A1
01108  M00S00839.submit  +++|          RJ     GLF         GET LOCAL FILE NEME

Seq #  *Modification Id* Act 
----------------------------+
01109  M01S00840.ns22000 ---|          NZ     X4,RWD6     IF NOT BLANK,PUT OUT AS DATA

Seq #  *Modification Id* Act 
----------------------------+
01110  M02S00103.v23l617 ---|          NZ     X4,RWD6     IF ILLEGAL SEPARATOR, PUT OUT AS DATA

Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00094.v23l617 +++|          NZ     X4,RWD6     IF INCORRECT SEPARATOR, PUT OUT AS DATA
01112  M00S00841.submit  +++|          NZ     B2,RWD1     IF VALID CHARACTERS IN FILEMAME
01113  M00S00842.submit  +++|          SA2    =0LTAPE1    SET DEFAULT FILENAME IN FET
01114  M00S00843.submit  +++|          BX6    X2
01115  M00S00844.submit  +++|          SA1    EORBIT      TEST READ ACTIVE BIT
01116  M00S00845.submit  +++|          LX1    12D
01117  M00S00846.submit  +++|          PL     X1,RWD3     NOT ACTIVE
01118  M00S00847.submit  +++|          EQ     RWD6        ACTIVE,PUT OUT AS DATA
01119  M00S00848.submit  +++|
01120  M00S00849.submit  +++| RWD1     RJ     SFN         SHIFT FILENAME, TEST FOR SUBMIT FILENAME
01121  M00S00850.submit  +++|          ZR     X2,RWD6     IF EQUAL,PUT OUT AS DATA
01122  M00S00851.submit  +++| RWD2     SA1    EORBIT      TEST FOR READ ACTIVE
01123  M00S00852.submit  +++|          LX1    12D
01124  M00S00853.submit  +++|          PL     X1,RWD3     READ NOT ACTIVE
01125  M00S00854.submit  +++|          SA1    R           TEST FOR READ FILENAME
01126  M00S00855.submit  +++|          MX3    42D
01127  M00S00856.submit  +++|          BX2    X3*X1
01128  M00S00857.submit  +++|          BX2    X2-X6
01129  M00S00858.submit  +++|          ZR     X2,RWD6     IF EQUAL,PUT OUT AS DATA
01130  M00S00859.submit  +++| RWD3     SX1    1
01131  M00S00860.submit  +++|          IX6    X6+X1
01132  M00S00861.submit  +++|          SA6    W           STORE FILENAME IN FET
01133  M00S00862.submit  +++|          REWIND W,R         REWIND FILE
01134  M00S00863.submit  +++|          SA1    RJ          GET RETURN ADDRESS
01135  M00S00864.submit  +++|          SB2    X1
01136  M00S00865.submit  +++|          JP     B2          RETURN
01137  M00S00866.submit  +++|
01138  M00S00867.submit  +++| RWD6     SA1    RJ          TEST RETURN ADDRESS = TO NONTRANS
01139  M00S00868.submit  +++|                             PARENT MODE ROUTINE
01140  M00S00869.submit  +++|          SX2    PNM2
01141  M00S00870.submit  +++|          BX2    X1-X2
01142  M00S00871.submit  +++|          ZR     X2,PNM4     RETURN TO NONTRANSPARENT MODE ROUTINE
01143  M00S00872.submit  +++|          SX2    PTM2
01144  M00S00873.submit  +++|          BX2    X1-X2
01145  M00S00874.submit  +++|          ZR     X2,PTM5
01146  M00S00875.submit  +++|          SX2    RTM1
01147  M00S00876.submit  +++|          BX2    X1-X2
01148  M00S00877.submit  +++|          ZR     X2,RTM5
01149  M00S00878.submit  +++|          EQ     RNM3

Seq #  *Modification Id* Act 
----------------------------+
01150  M01S00879.ns22000 ---| USER     SPACE  4
01151  M01S00880.ns22000 ---|**        USER - PROCESS USER STATEMENT.

Seq #  *Modification Id* Act 
----------------------------+
01152  M01S00104.ns22000 +++| USER     SPACE  4,10
01153  M01S00105.ns22000 +++|**        USER - PROCESS USER.
01154  M00S00881.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01155  M01S00882.ns22000 ---|*         USES   X - 0, 1, 2.
01156  M01S00883.ns22000 ---|*                A - 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
01157  M01S00106.ns22000 +++|*         USES   X - 0, 1, 2, 6.
01158  M01S00107.ns22000 +++|*                A - 1, 2, 6.
01159  M00S00884.submit  +++|*                B - 2, 5.
01160  M00S00885.submit  +++|*
01161  M00S00886.submit  +++|*         CALLS  SNM.
01162  M00S00887.submit  +++|*

Seq #  *Modification Id* Act 
----------------------------+
01163  M01S00888.ns22000 ---|*         MACROS RECALL, WRITEC.

Seq #  *Modification Id* Act 
----------------------------+
01164  M02S00108.ns2140  ---|*         MACROS ABORT, MESSAGE, RECALL, WRITEC.

Seq #  *Modification Id* Act 
----------------------------+
01165  M01S00002.ns2140  +++|*         MACROS ABORT, MESSAGE, RECALL, SYSTEM, WRITEC.
01166  M00S00889.submit  +++|
01167  M00S00890.submit  +++|
01168  M00S00891.submit  +++| USER     BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01169  M01S00892.ns22000 ---|          SA1    USEB
01170  M01S00893.ns22000 ---|          ZR     X1,USE1     IF USER STATEMENT EXECUTED

Seq #  *Modification Id* Act 
----------------------------+
01171  M01S00109.ns22000 +++|          SA1    PFPB+2
01172  M01S00110.ns22000 +++|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
01173  M02S00111.ns2140  ---|          BX1    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
01174  M02S00894.ns2140  ---|          MESSAGE  (=C* USER STATEMENT NOT EXECUTED.*),,R
01175  M02S00895.ns2140  ---|          MESSAGE  (=C* USER DIRECTIVE INVALID.*),,R

Seq #  *Modification Id* Act 
----------------------------+
01176  M02S00112.ns2140  ---|          NZ     X1,USE2     IF *USER* COMMAND HAS BEEN EXECUTED

Seq #  *Modification Id* Act 
----------------------------+
01177  M01S00003.ns2140  +++|          BX5    X0*X1
01178  M01S00004.ns2140  +++|          NZ     X5,USE2     IF *USER* COMMAND HAS BEEN EXECUTED

Seq #  *Modification Id* Act 
----------------------------+
01179  M01S00113.ns22000 +++|          MESSAGE  (=C* USER COMMAND HAS NOT BEEN EXECUTED.*),,R

Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00114.v23l617 ---| USE1     MESSAGE  (=C* USER DIRECTIVE NOT VALID.*),,R

Seq #  *Modification Id* Act 
----------------------------+
01181  M01S00095.v23l617 +++| USE1     MESSAGE  (=C* USER DIRECTIVE INCORRECT.*),,R
01182  M00S00896.submit  +++|          ABORT
01183  M00S00897.submit  +++|

Seq #  *Modification Id* Act 
----------------------------+
01184  M01S00898.ns22000 ---| USE1     MX0    42

Proceed to Part 1