Deck STAGE

1 Modification

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.stage   +++|*NOSEQ

Seq #  *Modification Id* Act 
----------------------------+
00002  M02S00002.274l797 ---|.PROC,STAGE,S=OFF/ON.
00003  M01S00001.274l797 +++|.PROC,STAGE*I,S=(*A,*K,*N=).
00004  M01S00003.stage   +++|.*        STAGE - PROCEDURE TO STAGE PERMANENT FILE FROM TAPE.
00005  M01S00004.stage   +++|.*
00006  M01S00005.stage   +++|.*        *STAGE.* - STAGE PERMANENT FILE FROM TAPE ALTERNATE STORAGE.
00007  M01S00002.274l797 +++|.*        *STAGE,O.* - STAGE PERMANENT FILE FROM OPTICAL DISK STORAGE.
00008  M01S00006.stage   +++|.*        *STAGE,S.* - INITIATE *PFHELPR* JOB.

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00007.274l797 ---|.IF,$S$.EQ.$ON$,SIF.
00010  M01S00003.274l797 +++|.IF,STR($S$,1,1).EQ.STR($#S$),SIF.
00011  M01S00008.stage   +++|PFHELPR.
00012  M01S00004.274l797 +++|.ELSEIF,STR($S$,1,1).EQ.STR($O$),SIF.
00013  M01S00005.274l797 +++|PFROD.
00014  M01S00009.stage   +++|.ELSE,SIF.
00015  M01S00010.stage   +++|PFRES.
00016  M01S00011.stage   +++|.ENDIF,SIF.
00017  M01S00014.stage   +++|SUBMIT

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S09033.@021778 ---|6
00019  M01S86383.stage   +++|E

Seq #  *Modification Id* Act 
----------------------------+
00020  M03S06979.@009966 ---|-
00021  M01S00012.stage   +++|***       SUBMIT - ENTER JOB IN INPUT QUEUE.
00022  M01S00013.stage   +++|*         G. R. MANSFIELD.  70/10/29.

Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00014.@000003 ---|          SPACE  4
00024  M01S00002.@000003 +++|          SPACE  4,10
00025  M01S00015.stage   +++|***              SUBMIT PLACES THE REQUESTED FILE IN THE REQUESTED
00026  M01S00016.stage   +++|*         INPUT QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00017.@000003 ---|          SPACE  4
00028  M01S00003.@000003 +++|          SPACE  4,25
00029  M01S00018.stage   +++|***       CALL.
00030  M01S00019.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00020.@000003 ---|*CALL     COMSSSD
00032  M01S00021.stage   +++|*         SUBMIT (LFN,Q)C
00033  M01S00022.stage   +++|*         OR
00034  M01S00023.stage   +++|*         SUBMIT (LFN,Q,NR)C
00035  M01S00024.stage   +++|*
00036  M01S00025.stage   +++|*         LFN    SOURCE FILE NAME.
00037  M01S00001.@000013 +++|*         Q      INPUT QUEUE TYPE.
00038  M01S00002.@000013 +++|*                B OR BC = BATCH.
00039  M01S00003.@000013 +++|*                N OR NO = BATCH, WITH OUTPUT NOT TO BE PRINTED.
00040  M01S00004.@000013 +++|*                E=UN OR RB=UN = REMOTE BATCH, WITH OUTPUT TO BE SENT
00041  M01S00005.@000013 +++|*                  TO THE SPECIFIED USER NAME.  IF OMITTED, *UN*
00042  M01S00006.@000013 +++|*                  DEFAULTS TO THE USER NAME ASSOCIATED WITH THE
00043  M01S00007.@000013 +++|*                  SUBMITTING JOB.
00044  M01S00008.@000013 +++|*                TO = BATCH, WITH OUTPUT TO BE SENT TO THE WAIT QUEUE.
00045  M01S00026.stage   +++|*         NR     IF SPECIFIED, NO FILES ARE REWOUND UNLESS

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00027.@000005 ---|*                EXPLICITLY DONE WITH /REWIND CONTROL CARDS.
00047  M01S00001.@000005 +++|*                EXPLICITLY DONE WITH /REWIND DIRECTIVES.

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00028.@000013 ---|*         Q      INPUT QUEUE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00029.@000013 ---|*         B OR BC = BATCH.

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00030.@000013 ---|*         N OR NO = BATCH, WITH OUTPUT NOT TO BE PRINTED.

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00031.@000013 ---|*         E OR RB = REMOTE BATCH.

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00032.@000013 ---|*         TO = BATCH, WITH OUTPUT TO BE HELD IN TT QUEUE.
00053  M01S00033.stage   +++|*         C      ESCAPE CHARACTER FOR REFORMAT.
00054  M01S00034.stage   +++|*
00055  M01S00035.stage   +++|*         ASSUMED -

Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00036.@000013 ---|*         Q=B OR BC, FOR NON-TXOT JOBS.

Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00037.@000013 ---|*         Q=N OR NO, FOR TXOT JOBS.

Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00038.@000013 ---|*         LFN=INPUT
00059  M01S00009.@000013 +++|*         Q=B OR BC, IF SUBMITTED FROM NON-*IAOT* JOB.
00060  M01S00010.@000013 +++|*         Q=N OR NO, IF SUBMITTED FROM *IAOT* JOB.
00061  M01S00011.@000013 +++|*         LFN=NO DEFAULT (HOWEVER, *IAF* WILL EDIT THE COMMAND TO
00062  M01S00012.@000013 +++|*                INSERT THE PRIMARY FILE NAME IF *SUBMIT.* IS ENTERED
00063  M01S00013.@000013 +++|*                IN RESPONSE TO A COMMAND LINE PROMPT).
00064  M01S00039.stage   +++|*         C=/

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00040.@000003 ---|          SPACE  4,25
00066  M01S00004.@000003 +++|          SPACE  4,35
00067  M01S00041.stage   +++|***       DAYFILE MESSAGES.
00068  M01S00042.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00043.@000011 ---|*         *CONFLICTING PARAMETERS.* = INPUT QUEUE TYPE SPECIFIED MORE
00070  M01S00001.@000011 +++|*         * CONFLICTING PARAMETERS.* = INPUT QUEUE TYPE SPECIFIED MORE
00071  M01S00044.stage   +++|*         THAN ONCE.
00072  M01S00045.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00073  M02S00046.@000005 ---|*         *ILLEGAL QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A LEGAL

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00047.@000005 ---|*         TYPE FOR *SUBMIT*.

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00002.@000011 ---|*         *INCORRECT QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A
00076  M01S00002.@000011 +++|*         * INCORRECT QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A
00077  M01S00003.@000005 +++|*         CORRECT TYPE FOR *SUBMIT*.
00078  M01S00048.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00049.@000005 ---|*         *NO READ FILE FOUND- LFN .* = LFN ON /READ CONTROL CARD COULD

Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00004.@000011 ---|*         *NO READ FILE FOUND- LFN .* = LFN ON /READ DIRECTIVE COULD
00081  M01S00003.@000011 +++|*         * NO READ FILE FOUND- LFN .* = LFN ON /READ DIRECTIVE COULD
00082  M01S00050.stage   +++|*         NOT BE FOUND.
00083  M01S00051.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00052.@000011 ---|*         *NO SOURCE FILE SPECIFIED.* = NO SOURCE FILE NAME GIVEN.
00085  M01S00004.@000011 +++|*         * NO SOURCE FILE SPECIFIED.* = NO SOURCE FILE NAME GIVEN.
00086  M01S00053.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00054.@000005 ---|*         *READ FILE BUSY- LFN .* = LFN ON /READ CONTROL CARD WAS BUSY.

Seq #  *Modification Id* Act 
----------------------------+
00088  M02S00005.@000011 ---|*         *READ FILE BUSY- LFN .* = LFN ON /READ DIRECTIVE WAS BUSY.
00089  M01S00005.@000011 +++|*         * READ FILE BUSY- LFN .* = LFN ON /READ DIRECTIVE WAS BUSY.
00090  M01S00055.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00056.@000001 ---|*         *SUBMIT COMPLETE.  JOBNAME IS XXXXXXX* = THE JOB WAS

Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00057.@000001 ---|*         SUBMITTED WITH THE NAME XXXXXXX.

Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00001.@000011 ---|*         *SUBMIT COMPLETE.  JSN IS XXXX.* = THE JOB WAS
00094  M01S00006.@000011 +++|*         * SUBMIT COMPLETE.  JSN IS XXXX.* = THE JOB WAS
00095  M01S00002.@000001 +++|*         SUBMITTED WITH THE JSN XXXX.
00096  M01S00058.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00059.@000011 ---|*         *SUBMIT FILE EMPTY.* = EOR/EOF FOUND ON FIRST READ OF SUBMIT
00098  M01S00007.@000011 +++|*         * SUBMIT FILE EMPTY.* = EOR/EOF FOUND ON FIRST READ OF SUBMIT
00099  M01S00060.stage   +++|*         FILE.
00100  M01S00061.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00062.@000011 ---|*         *TOO MANY ARGUMENTS.* = TOO MANY ARGUMENTS WERE PRESENT ON
00102  M01S00008.@000011 +++|*         * TOO MANY ARGUMENTS.* = TOO MANY ARGUMENTS WERE PRESENT ON

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00063.@000005 ---|*         THE CONTROL STATEMENT.
00104  M01S00006.@000005 +++|*         THE COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00064.@000003 ---|          SPACE  4
00106  M01S00005.@000003 +++|*
00107  M01S00006.@000003 +++|*         * USER COMMAND HAS NOT BEEN EXECUTED.* = A */USER* DIRECTIVE
00108  M01S00007.@000003 +++|*         HAS BEEN SPECIFIED, BUT THE CALLING JOB HAS NEVER EXECUTED
00109  M01S00008.@000003 +++|*         A *USER* COMMAND.
00110  M01S00009.@000003 +++|*

Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00010.@000005 ---|*         * USER DIRECTIVE NOT VALID.* = A */USER* DIRECTIVE COULD
00112  M01S00007.@000005 +++|*         * USER DIRECTIVE INCORRECT.* = A */USER* DIRECTIVE COULD
00113  M01S00011.@000003 +++|*         NOT BE PROCESSED, EITHER BECAUSE THE CALLING JOB HAS NEVER

Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00012.@000006 ---|*         ISSUED A *USER* COMMAND, OR BECAUSE IT WAS NOT THE THIRD

Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00013.@000006 ---|*         LINE IN THE FILE.
00116  M01S00001.@000006 +++|*         ISSUED A *USER* COMMAND, OR BECAUSE THE DIRECTIVE DID NOT
00117  M01S00002.@000006 +++|*         FOLLOW BOTH A *JOB* DIRECTIVE AND A *JOB* COMMAND.
00118  M01S00014.@000003 +++|          SPACE  4,10
00119  M01S00065.stage   +++|*CALL     COMCCMD
00120  M01S00066.stage   +++|*CALL     COMCMAC
00121  M01S00067.stage   +++|*CALL     COMSDSP
00122  M01S00068.stage   +++|*CALL     COMSIOQ
00123  M01S00015.@000003 +++|*CALL     COMSMLS
00124  M01S00016.@000003 +++|*CALL     COMSPFM
00125  M01S00069.stage   +++|*CALL     COMSSFM
00126  M01S00017.@000003 +++|*CALL     COMSSSD

Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00070.@000003 ---|          SPACE  4
00128  M01S00018.@000003 +++|          SPACE  4,10
00129  M01S00071.stage   +++|****      ASSEMBLY CONSTANTS.
00130  M01S00072.stage   +++|
00131  M01S00073.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00074.@000009 ---| BUFL     EQU    150D        WORKING BUFFER
00133  M01S00001.@000009 +++| BUFL     EQU    320D        WORKING BUFFER
00134  M01S00075.stage   +++| IBUFL    EQU    2001B       INPUT FILE BUFFER
00135  M01S00076.stage   +++| FBUFL    EQU    2001B
00136  M01S00077.stage   +++| RBUFL    EQU    2001B       READ FILE BUFFER
00137  M01S00001.@000004 +++| SBUFL    EQU    100B        *SFM* BUFFER LENGTH
00138  M01S00078.stage   +++| TBUFL    EQU    BUFL/10+1   NO LINE TERMINATOR DATA BUFFER LENGTH
00139  M01S00079.stage   +++| WBUFL    EQU    1
00140  M01S00080.stage   +++|****
00141  M01S00081.stage   +++|          TITLE  COMMON DATA.

Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00082.@000003 ---| DATA     SPACE  4
00143  M01S00019.@000003 +++| DATA     SPACE  4,10
00144  M01S00083.stage   +++|**        COMMON DATA.
00145  M01S00084.stage   +++|
00146  M01S00085.stage   +++|
00147  M01S00086.stage   +++|          ORG    110B
00148  M01S00087.stage   +++| FETS     BSS    0
00149  M01S00088.stage   +++|
00150  M01S00089.stage   +++| I        BSS    0
00151  M01S00090.stage   +++| INPUT    FILEB  IBUF,IBUFL,(FET=8)
00152  M01S00091.stage   +++|
00153  M01S00092.stage   +++| F        BSS    0
00154  M01S00093.stage   +++| SCR      FILEB  FBUF,FBUFL,(FET=8)
00155  M01S00094.stage   +++|
00156  M01S00095.stage   +++| R        BSS    0
00157  M01S00096.stage   +++| TAPE1    FILEB  RBUF,RBUFL,(FET=8)
00158  M01S00097.stage   +++|
00159  M01S00098.stage   +++| RR       BSS    0
00160  M01S00099.stage   +++| PFMFIL   FILEB  RBUF,RBUFL,EPR,(FET=13B)
00161  M01S00100.stage   +++|
00162  M01S00101.stage   +++| W        BSS    0
00163  M01S00102.stage   +++| SCR2     FILEB  WBUF,WBUFL
00164  M01S00103.stage   +++|
00165  M01S00104.stage   +++|
00166  M01S00020.@000003 +++| ALVL     CON    0           FILE ACCESS LEVEL
00167  M01S00105.stage   +++| EORBIT   CON    0           BIT59=EOR BIT, BIT47=/READ ACTIVE BIT
00168  M01S00106.stage   +++| FLAGS    CON    0           BIT59=NOSEQ, BIT47=TRANS, BIT35=NOPACK
00169  M01S00107.stage   +++| NRFLG    DATA   2RNR        NO REWIND FLAG
00170  M01S00108.stage   +++| IPTR     CON    0           INPUT FET *IN* POINTER
00171  M01S00109.stage   +++| IPTR2    CON    0           READ FILE FET *IN* POINTER
00172  M01S00021.@000003 +++| LCNT     CON    1           LINE COUNTER
00173  M01S00110.stage   +++| OPTR     CON    0           INPUT FET OUT POINTER
00174  M01S00111.stage   +++| OPTR2    CON    0           READ FILE FET OUT POINTER
00175  M01S00112.stage   +++| RJ       CON    0           RETURN JUMP ADDRESS
00176  M01S00113.stage   +++| RJ2      CON    0           READ FILE ORIGINAL RETURN JUMP ADDRESS
00177  M01S00022.@000003 +++| USRF     CON    0           A */USER* DIRECTIVE HAS BEEN PROCESSED
00178  M01S00001.@000002 +++| TFUN     SPACE  4,10
00179  M01S00002.@000002 +++|**        TFUN - FAMILY NAME AND USER NAME TABLE FOR *DSP*.
00180  M01S00003.@000002 +++|*
00181  M01S00004.@000002 +++|*T W0     42/ FAMILY NAME,18/0

Figure W0

00182  M01S00005.@000002 +++|*T,W1     42/ USER NAME,18/0

Figure W1

00183  M01S00006.@000002 +++|
00184  M01S00007.@000002 +++|
00185  M01S00008.@000002 +++| TFUN     BSSZ   2
00186  M01S00114.stage   +++| TDSP     SPACE  4,10
00187  M01S00115.stage   +++|*         TDSP - *DSP* PARAMETER BLOCK.
00188  M01S00116.stage   +++|
00189  M01S00117.stage   +++|
00190  M01S00118.stage   +++| TDSP     VFD    42/0LSCR,18/0

Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00119.@000003 ---|          VFD    24/0,12/0LIN,6/0,18/FRDC+FRFN+FRCS
00192  M01S00023.@000003 +++|          VFD    24/0,12/0LIN,6/0,18/FRFN+FREB+FRDC+FRCS

Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00120.@000013 ---|          BSSZ   5
00194  M01S00014.@000013 +++|          BSSZ   DPBL-*+TDSP
00195  M01S00024.@000003 +++|          VFD    42/0,18/EFNV

Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00025.@000013 ---|          BSSZ   7
00197  M01S00015.@000013 +++|          BSSZ   EPBL-*+TDSP
00198  M01S00121.stage   +++|          TITLE  MAIN PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00122.@000003 ---| SUBMIT   SPACE  4
00200  M01S00026.@000003 +++| SUBMIT   SPACE  4,100
00201  M01S00123.stage   +++|**        SUBMIT - MAIN PROGRAM
00202  M01S00124.stage   +++|*
00203  M01S00125.stage   +++|*                THE ESCAPE CODE (*C* PARAMETER) IS A UNIQUE CHARACTER
00204  M01S00126.stage   +++|*                THAT ENABLES THE SUBMIT PROCESSOR TO RECOGNIZE SPECIAL

Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00127.@000005 ---|*                CONTROL CARDS THAT AFFECT THE FINAL FORMAT OF THE
00206  M01S00008.@000005 +++|*                DIRECTIVES THAT AFFECT THE FINAL FORMAT OF THE
00207  M01S00128.stage   +++|*                SUBMIT FILE.  DEFAULT CHARACTER IS /.
00208  M01S00129.stage   +++|*
00209  M01S00130.stage   +++|*         FUNCTIONS
00210  M01S00131.stage   +++|*
00211  M01S00132.stage   +++|*         1.     READS FIRST UNIT RECORD AND CHECKS FOR *C*JOB

Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00133.@000005 ---|*                A.          IF THE FIRST CARD IS NOT *C*JOB THE INPUT

Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00134.@000005 ---|*                            FILE IS COPIED AS IS TO BECOME THE ACTUAL

Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00135.@000005 ---|*                            SUBMIT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00136.@000005 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00137.@000005 ---|*                B.          IF THE FIRST CARD IS *C*JOB THE INPUT FILE

Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00138.@000005 ---|*                            WILL BE REFORMATTED TO BECOME THE SUBMIT

Seq #  *Modification Id* Act 
----------------------------+
00218  M02S00139.@000005 ---|*                            FILE.
00219  M01S00009.@000005 +++|*                A.          IF THE FIRST DIRECTIVE IS NOT *C*JOB THE
00220  M01S00010.@000005 +++|*                            INPUT FILE IS COPIED AS IS TO BECOME THE
00221  M01S00011.@000005 +++|*                            ACTUAL SUBMIT FILE.
00222  M01S00012.@000005 +++|*
00223  M01S00013.@000005 +++|*                B.          IF THE FIRST DIRECTIVE IS *C*JOB THE INPUT
00224  M01S00014.@000005 +++|*                            FILE WILL BE REFORMATTED TO BECOME THE
00225  M01S00015.@000005 +++|*                            SUBMIT FILE.
00226  M01S00140.stage   +++|*                  NOTE      REFORMATTING IS ACCOMPLISHED BY PLACING

Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00141.@000005 ---|*                            SUBMIT CONTROL CARDS IN THE INPUT FILE.
00228  M01S00016.@000005 +++|*                            SUBMIT DIRECTIVES IN THE INPUT FILE.
00229  M01S00142.stage   +++|*         2.     SETS QUEUE FOR EVENTUAL DISPOSAL OF OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00230  M02S00143.274l797 ---|*         3.     SUBMIT FILE IS PASSED TO THE SYSTEM *SUBMIT MACRO*
00231  M01S00001.274l797 +++|*         3.     SUBMIT FILE IS PASSED TO THE SYSTEM *ROUTE* MACRO
00232  M01S00144.stage   +++|*         4.     MESSAGE IS ISSUED TO DAYFILE/INTERACTIVE TERMINAL
00233  M01S00145.stage   +++|*
00234  M01S00146.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00147.@000005 ---|*         HOW CONTROL CARDS INFLUENCE THE SUBMIT FILE.
00236  M01S00017.@000005 +++|*         HOW DIRECTIVES INFLUENCE THE SUBMIT FILE.
00237  M01S00148.stage   +++|*
00238  M01S00149.stage   +++|*         1. MODES           EDITING IS DONE UNDER TWO MODES
00239  M01S00150.stage   +++|*             A. NON-TRANSPARENT       EACH LINE OF THE INPUT FILE IS

Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00151.@000005 ---|*                                      EXAMINED FOR CONTROL CARDS.

Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00152.@000005 ---|*                                      DEFAULT MODE WITH *C*JOB CARD.

Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00153.@000005 ---|*         CONTROL CARD FORMAT  *C*NOTRANS
00243  M01S00018.@000005 +++|*                                      EXAMINED FOR DIRECTIVES. DEFAULT
00244  M01S00019.@000005 +++|*                                      MODE WITH *C*JOB DIRECTIVE.
00245  M01S00020.@000005 +++|*         DIRECTIVE FORMAT  *C*NOTRANS
00246  M01S00154.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00155.@000005 ---|*             B. TRANSPARENT           ONLY GROUPS OF CONTROL CARDS AT
00248  M01S00021.@000005 +++|*             B. TRANSPARENT           ONLY GROUPS OF DIRECTIVES AT
00249  M01S00156.stage   +++|*                                      THE BEGINNING OF EACH RECORD MAY
00250  M01S00157.stage   +++|*                                      BE EXAMINED.

Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00158.@000005 ---|*         CONTROL CARD FORMAT  *C*TRANS
00252  M01S00022.@000005 +++|*         DIRECTIVE FORMAT  *C*TRANS
00253  M01S00159.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00160.@000005 ---|*         2. OPTIONS         EACH CONTROL CARD ENABLES THE USER TO
00255  M01S00023.@000005 +++|*         2. OPTIONS         EACH DIRECTIVE ENABLES THE USER TO
00256  M01S00161.stage   +++|*                            DICTATE SOME ASPECT OF THE FINAL FORMAT OF
00257  M01S00162.stage   +++|*                            THE SUBMIT FILE.
00258  M01S00024.@000005 +++|*
00259  M01S00025.@000005 +++|*         DIRECTIVE FORMAT   *C*CHARGE
00260  M01S00026.@000005 +++|*                            REPLACES THE DIRECTIVE WITH A *CHARGE*
00261  M01S00027.@000005 +++|*                            COMMAND USING THE CURRENTLY ACTIVE
00262  M01S00028.@000005 +++|*                            CHARGE AND PROJECT NUMBER IF THE CHARGE
00263  M01S00029.@000005 +++|*                            AND PROJECT NUMBERS HAVE BEEN VALIDATED.
00264  M01S00030.@000005 +++|*                            IF NO CHARGE NUMBER IS IN EFFECT OR IF
00265  M01S00031.@000005 +++|*                            THE CURRENT CHARGE AND PROJECT NUMBERS
00266  M01S00032.@000005 +++|*                            HAVE NOT BEEN VALIDATED NO ACTION IS
00267  M01S00033.@000005 +++|*                            TAKEN.
00268  M01S00163.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00164.@000005 ---|*         CONTROL CARD FORMAT  *C*EOR
00270  M01S00034.@000005 +++|*         DIRECTIVE FORMAT  *C*EOR
00271  M01S00165.stage   +++|*                            END OF RECORD IS WRITTEN ON SUBMIT FILE
00272  M01S00166.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00167.@000005 ---|*         CONTROL CARD FORMAT  *C*EOF
00274  M01S00035.@000005 +++|*         DIRECTIVE FORMAT  *C*EOF
00275  M01S00168.stage   +++|*                            END OF FILE IS WRITTEN ON SUBMIT FILE
00276  M01S00169.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00170.@000005 ---|*         CONTROL CARD FORMAT  *C*EC=A
00278  M01S00036.@000005 +++|*         DIRECTIVE FORMAT  *C*EC=A
00279  M01S00171.stage   +++|*                            CHANGES ESCAPE CHARACTER FROM *C* TO A.
00280  M01S00172.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00173.@000005 ---|*         CONTROL CARD FORMAT  *C*NOSEQ
00282  M01S00037.@000005 +++|*         DIRECTIVE FORMAT  *C*NOSEQ
00283  M01S00174.stage   +++|*                            WILL AFFECT FORMAT ONLY UNDER NON-TRANS-
00284  M01S00175.stage   +++|*                            PARENT MODE.  NO ATTEMPT WILL BE MADE TO
00285  M01S00176.stage   +++|*                            STRIP LINE NUMBERS FROM INPUT FILE LINES.
00286  M01S00177.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00178.@000005 ---|*         CONTROL CARD FORMAT  *C*SEQ
00288  M01S00038.@000005 +++|*         DIRECTIVE FORMAT  *C*SEQ
00289  M01S00179.stage   +++|*                            WILL AFFECT FORMAT ONLY UNDER NON-TRANS-
00290  M01S00180.stage   +++|*                            PARENT MODE.  LINE NUMBERS WILL BE
00291  M01S00181.stage   +++|*                            STRIPPED OFF INPUT FILE LINES.  DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00182.@000005 ---|*                            WITH *C*JOB CARD.
00293  M01S00039.@000005 +++|*                            WITH *C*JOB DIRECTIVE.
00294  M01S00183.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00184.@000005 ---|*         CONTROL CARD FORMAT  *C*REWIND,FILENAME
00296  M01S00040.@000005 +++|*         DIRECTIVE FORMAT  *C*REWIND,FILENAME
00297  M01S00185.stage   +++|*                            REWINDS ONE OF USER S LOCAL FILES
00298  M01S00186.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00187.@000005 ---|*         CONTROL CARD FORMAT  *C*READ,FILENAME
00300  M01S00041.@000005 +++|*         DIRECTIVE FORMAT  *C*READ,FILENAME
00301  M01S00188.stage   +++|*                            COPIES USER,S LOCAL FILE TO SUBMIT FILE.
00302  M01S00189.stage   +++|*                            EDITING IS DONE ON THE FILE AS THOUGH IT
00303  M01S00190.stage   +++|*                            WERE SOURCE CODE OF THE INPUT FILE.
00304  M01S00191.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00192.@000005 ---|*         CONTROL CARD FORMAT  *C*PACK

Seq #  *Modification Id* Act 
----------------------------+
00306  M02S00193.@000005 ---|*                            DEFAULT WHEN *C*JOB CARD IS DETECTED.
00307  M01S00042.@000005 +++|*         DIRECTIVE FORMAT  *C*PACK
00308  M01S00043.@000005 +++|*                            DEFAULT WHEN *C*JOB DIRECTIVE IS DETECTED.
00309  M01S00194.stage   +++|*                            ALL EOR MARKS ARE REMOVED FROM A FILE.
00310  M01S00195.stage   +++|*                            ALL EOF MARKS REMOVED FROM A MULTI-FILE
00311  M01S00196.stage   +++|*                            FILE. AN EOF MARK WILL BE WRITTEN TO THE
00312  M01S00197.stage   +++|*                            SUBMIT FILE ONLY WHEN EOI IS ENCOUNTERED
00313  M01S00198.stage   +++|*                            IN THE INPUT FILE. EDITING STOPS AT THAT
00314  M01S00199.stage   +++|*                            POINT.
00315  M01S00200.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00316  M02S00201.@000005 ---|*         CONTROL CARD FORMAT  *C*NOPACK
00317  M01S00044.@000005 +++|*         DIRECTIVE FORMAT  *C*NOPACK
00318  M01S00202.stage   +++|*                            INTERNAL FILE STRUCTURES ARE PRESERVED
00319  M01S00203.stage   +++|*                            INTACT.  EACH INTERNAL EOR OR EOF MARK IS
00320  M01S00204.stage   +++|*                            COPIED TO THE SUBMIT FILE.  FILES COPIED
00321  M01S00205.stage   +++|*                            WITH *C*READ HAVE EOF AND EOI MARKS
00322  M01S00206.stage   +++|*                            CONVERTED TO EOR MARKS.  WHEN EOI IS
00323  M01S00207.stage   +++|*                            ENCOUNTERED ON THE INPUT FILE AN EOF IS
00324  M01S00208.stage   +++|*                            WRITTEN TO THE SUBMIT FILE AND EDITING
00325  M01S00209.stage   +++|*                            STOPS.
00326  M01S00210.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00211.@000005 ---|*         CONTROL CARD FORMAT  *C*USER
00328  M01S00045.@000005 +++|*         DIRECTIVE FORMAT  *C*USER
00329  M01S00212.stage   +++|*                            READS *VALIDUS* FILE FOR THE PASSWORD OF

Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00213.@000005 ---|*                            THE USER NUMBER CURRENTLY IN EFFECT AND
00331  M01S00046.@000005 +++|*                            THE USER NAME CURRENTLY IN EFFECT AND
00332  M01S00214.stage   +++|*                            REPLACES THE DIRECTIVE WITH A *USER*

Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00215.@000005 ---|*                            STATEMENT USING THE CURRENT USER NUMBER
00334  M01S00047.@000005 +++|*                            DIRECTIVE USING THE CURRENT USER NAME
00335  M01S00216.stage   +++|*                            AND PASSWORD.
00336  M01S00217.stage   +++|
00337  M01S00218.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00219.@000003 ---| SUBMIT   SB1    1           PRESET PROGRAM
00339  M01S00027.@000003 +++| SUBMIT   BSS    0           ENTRY
00340  M01S00028.@000003 +++|          SB1    1
00341  M01S00220.stage   +++|          MX6    0           SET NO READ FILE YET
00342  M01S00221.stage   +++|          SA6    RR
00343  M01S00222.stage   +++|          RJ     PRS
00344  M01S00223.stage   +++|          RETURN F,R
00345  M01S00224.stage   +++|          SA2    NRFLG
00346  M01S00225.stage   +++|          ZR     X2,SBM0     IF NO REWIND
00347  M01S00226.stage   +++|          REWIND I
00348  M01S00227.stage   +++| SBM0     READ   I
00349  M01S00228.stage   +++|          READS  I,BUF,BUFL  READ FIRST LINE

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00229.@000011 ---|          SX0    =C*SUBMIT FILE EMPTY.*
00351  M01S00009.@000011 +++|          SX0    =C* SUBMIT FILE EMPTY.*
00352  M01S00230.stage   +++|          NZ     X1,ABT      IF EOR/EOF
00353  M01S00231.stage   +++|          SA1    BUF         SKIP SEQUENCE NUMBERS
00354  M01S00232.stage   +++|          RJ     SSN
00355  M01S00233.stage   +++|          RJ     CSF         CHECK SPECIAL FORMAT
00356  M01S00234.stage   +++|          SA1    F+1         ASSIGN FILE TO INPUT DEVICE
00357  M01S00235.stage   +++|          MX0    -48
00358  M01S00236.stage   +++|          BX6    -X0*X1
00359  M01S00237.stage   +++|          SX1    2RIN
00360  M01S00029.@000003 +++|          MX0    1           FILE ACCESS LEVEL BIT
00361  M01S00030.@000003 +++|          LX0    39-59
00362  M01S00238.stage   +++|          LX1    59-11
00363  M01S00239.stage   +++|          BX7    X6+X1
00364  M01S00031.@000003 +++|          BX7    X0+X7       MERGE ACCESS LEVEL BIT
00365  M01S00240.stage   +++|          SA7    A1
00366  M01S00032.@000003 +++|          SA1    F+CFAL      GET ACCESS LEVEL FIELD
00367  M01S00033.@000003 +++|          MX0    -3
00368  M01S00034.@000003 +++|          LX0    36
00369  M01S00035.@000003 +++|          SA2    ALVL
00370  M01S00036.@000003 +++|          BX1    X0*X1       CLEAR OLD ACCESS LEVEL
00371  M01S00037.@000003 +++|          LX2    36
00372  M01S00038.@000003 +++|          BX6    X1+X2       MERGE NEW ACCESS LEVEL
00373  M01S00039.@000003 +++|          SA6    A1
00374  M01S00241.stage   +++|          REQUEST  F,U,N     REQUEST EQUIPMENT WITH NO DAYFILE MESSAGE
00375  M01S00242.stage   +++|          SX6    B2-JOB
00376  M01S00243.stage   +++|          NZ     X6,SBM1     IF NOT JOB IDENTIFIER
00377  M01S00244.stage   +++|          RJ     RFM         REFORMAT
00378  M01S00245.stage   +++|          EQ     SBM2
00379  M01S00246.stage   +++|
00380  M01S00247.stage   +++| SBM1     RJ     CPF         COPY FILE
00381  M01S00248.stage   +++| SBM2     RECALL F

Seq #  *Modification Id* Act 
----------------------------+
00382  M02S00249.@000003 ---|          ROUTE  TDSP,RECALL
00383  M01S00040.@000003 +++|          SA1    USRF
00384  M01S00041.@000003 +++|          NZ     X1,SBM3     IF */USER* SPECIFIED
00385  M01S00042.@000003 +++|          SX6    B0+
00386  M01S00043.@000003 +++|          SA6    TDSP+7      CLEAR *NO VALIDATE* BIT
00387  M01S00044.@000003 +++| SBM3     ROUTE  TDSP,RECALL
00388  M01S00250.stage   +++|          CLOCK  SBMA        BUILD OUTPUT MESSAGE FOR TERMINAL
00389  M01S00251.stage   +++|          SA1    TDSP
00390  M01S00252.stage   +++|          SA2    =0LOUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00253.@000001 ---|          MX3    42
00392  M01S00003.@000001 +++|          MX3    24
00393  M01S00254.stage   +++|          BX6    X3*X1

Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00255.@000001 ---|          SX3    B1

Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00256.@000001 ---|          SA6    SBMC
00396  M01S00004.@000001 +++|          SA1    SBMB+2
00397  M01S00005.@000001 +++|          LX3    24
00398  M01S00006.@000001 +++|          BX1    -X3*X1
00399  M01S00007.@000001 +++|          LX6    24
00400  M01S00008.@000001 +++|          BX6    X1+X6
00401  M01S00009.@000001 +++|          SA6    SBMB+2
00402  M01S00010.@000001 +++|          SX3    B1
00403  M01S00257.stage   +++|          BX6    X2+X3
00404  M01S00258.stage   +++|          SA6    F
00405  M01S00259.stage   +++|          WRITEW F,SBMA,5

Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00260.@000001 ---|          MESSAGE  SBMB,3,R   SEND JOBNAME MESSAGE
00407  M01S00011.@000001 +++|          MESSAGE  SBMB,3,R  SEND JSN MESSAGE
00408  M01S00261.stage   +++|          MX0    -6
00409  M01S00262.stage   +++|          SA1    FWPR
00410  M01S00263.stage   +++|          AX1    24
00411  M01S00264.stage   +++|          BX3    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00265.@000003 ---|          SX6    X3-TXOT

Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00266.@000003 ---|          NZ     X6,SBM5     IF NOT *TXOT* ORIGIN
00414  M01S00045.@000003 +++|          SX6    X3-IAOT
00415  M01S00046.@000003 +++|          NZ     X6,SBM5     IF NOT INTERACTIVE JOB
00416  M01S00267.stage   +++|          MESSAGE NOFIL+2,1  CLEAR CONTROL POINT MESSAGE
00417  M01S00268.stage   +++|          WRITER F
00418  M01S00269.stage   +++| SBM5     ENDRUN
00419  M01S00270.stage   +++|
00420  M01S00271.stage   +++|
00421  M01S00272.stage   +++| SBMA     BSS    1

Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00273.@000001 ---| SBMB     DATA   H* SUBMIT COMPLETE.  JOBNAME IS*

Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00274.@000001 ---| SBMC     DATA   1C
00424  M01S00012.@000001 +++| SBMB     DATA   C* SUBMIT COMPLETE.  JSN IS XXXX.*
00425  M01S00275.stage   +++|          TITLE  SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00276.@000003 ---| ABT      SPACE  4
00427  M01S00047.@000003 +++| ABT      SPACE  4,10
00428  M01S00277.stage   +++|**        ABT - ABORT JOB.
00429  M01S00278.stage   +++|*
00430  M01S00279.stage   +++|*         ENTRY  (X0) = MESSAGE ADDRESS.
00431  M01S00280.stage   +++|
00432  M01S00281.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00282.@000011 ---| ABT      RECALL

Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00283.@000011 ---|          MESSAGE X0
00435  M01S00010.@000011 +++| ABT      BSS    0
00436  M01S00011.@000011 +++|          MESSAGE X0,,R
00437  M01S00284.stage   +++|          ABORT

Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00285.@000003 ---| CPF      SPACE  4
00439  M01S00048.@000003 +++| CPF      SPACE  4,10
00440  M01S00286.stage   +++|**        CPF -  COPY INPUT FILE TO SUBMIT FILE.
00441  M01S00287.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00288.@000008 ---|*         USES   X - 1.

Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00289.@000008 ---|*                A - 1.
00444  M01S00001.@000008 +++|*         USES   X - 0, 1, 5.
00445  M01S00002.@000008 +++|*                B - 1, 6.
00446  M01S00290.stage   +++|
00447  M01S00291.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00292.@000003 ---| CPF      PS                 ENTRY/EXIT
00449  M01S00049.@000003 +++| CPF      SUBR               ENTRY/EXIT
00450  M01S00293.stage   +++|          WRITES F,BUF,BUFL
00451  M01S00294.stage   +++|          EQ     CPF2
00452  M01S00295.stage   +++|
00453  M01S00296.stage   +++| CPF1     READ   I
00454  M01S00297.stage   +++|          RECALL F
00455  M01S00298.stage   +++| CPF2     READW  I,BUF,BUFL

Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00299.@000008 ---|          NG     X1,CPF4     IF EOF

Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00300.@000008 ---|          NZ     X1,CPF3     IF EOR

Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00301.@000008 ---|          WRITEW F,BUF,BUFL
00459  M01S00003.@000008 +++|          SX0    X1
00460  M01S00004.@000008 +++|          SX5    B6-BUF
00461  M01S00005.@000008 +++|          WRITEW F,BUF,X5
00462  M01S00006.@000008 +++|          NG     X0,CPF4     IF EOF/EOI
00463  M01S00007.@000008 +++|          NZ     X0,CPF3     IF EOR
00464  M01S00302.stage   +++|          EQ     CPF2
00465  M01S00303.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00466  M02S00304.@000008 ---| CPF3     WRITEW F,BUF,X1-BUF

Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00305.@000008 ---|          WRITER F
00468  M01S00008.@000008 +++| CPF3     WRITER F
00469  M01S00009.@000008 +++|          NG     X0,CPFX     IF EOI
00470  M01S00306.stage   +++|          EQ     CPF1
00471  M01S00307.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00472  M02S00308.@000008 ---| CPF4     SA1    I           CHECK STATUS

Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00309.@000008 ---|          LX1    59-9

Seq #  *Modification Id* Act 
----------------------------+
00474  M03S00310.@000008 ---|          NG     X1,CPF      RETURN IF EOI

Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00050.@000008 ---|          NG     X1,CPFX     IF EOI
00476  M01S00010.@000008 +++| CPF4     SX0    X0+B1
00477  M01S00011.@000008 +++|          NG     X0,CPF5     IF EOI
00478  M01S00311.stage   +++|          WRITEF F
00479  M01S00312.stage   +++|          EQ     CPF1
00480  M01S00012.@000008 +++|
00481  M01S00013.@000008 +++| CPF5     NZ     X5,CPF3     IF DATA IN BUFFER
00482  M01S00014.@000008 +++|          EQ     CPFX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00313.@000003 ---| CSF      SPACE  4
00484  M01S00051.@000003 +++| CSF      SPACE  4,15
00485  M01S00314.stage   +++|**        CSF - CHECK SPECIAL FORMAT.
00486  M01S00315.stage   +++|*
00487  M01S00316.stage   +++|*         ENTRY  (A1) = ADDRESS OF FIRST CHARACTER.
00488  M01S00317.stage   +++|*                (X1) = FIRST CHARACTER.
00489  M01S00318.stage   +++|*
00490  M01S00319.stage   +++|*         EXIT   (B2) = 0 IF NOT SPECIAL FORMAT.
00491  M01S00320.stage   +++|*                     = ADDRESS OF PROCESSOR OTHERWISE.
00492  M01S00321.stage   +++|*
00493  M01S00322.stage   +++|*         USES   X - 2, 3, 4, 5, 6, 7.
00494  M01S00323.stage   +++|*                B - 2, 5, 7.
00495  M01S00324.stage   +++|*                A - 2, 3, 5.
00496  M01S00325.stage   +++|
00497  M01S00326.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00327.@000006 ---| CSF6     BX7    X3-X6
00499  M01S00003.@000006 +++| CSF7     BX7    X3-X6
00500  M01S00328.stage   +++|          BX4    X2*X7
00501  M01S00329.stage   +++|          MX2    48D
00502  M01S00330.stage   +++|          BX7    -X2*X7
00503  M01S00331.stage   +++|          SA3    A3+1
00504  M01S00332.stage   +++|          SA5    A5+1
00505  M01S00333.stage   +++|          ZR     X4,CSF4     IF MATCH FOUND

Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00334.@000003 ---|          NZ     X3,CSF1     LOOP TO END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00335.@000003 ---|          SPACE  1

Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00336.@000003 ---| CSF      PS     0           ENTRY/EXIT
00509  M01S00052.@000003 +++|          NZ     X3,CSF1     IF NOT END OF TABLE
00510  M01S00053.@000003 +++|
00511  M01S00054.@000003 +++|
00512  M01S00055.@000003 +++| CSF      SUBR               ENTRY/EXIT
00513  M01S00337.stage   +++|          SA5    TCCFL
00514  M01S00338.stage   +++|          SA3    TCCF
00515  M01S00339.stage   +++| CSF1     BX6    X6-X6       CLEAR ASSEMBLY
00516  M01S00340.stage   +++|          SA2    A1          FIRST CHARACTER
00517  M01S00341.stage   +++|          MX4    48D
00518  M01S00342.stage   +++|          BX4    -X4*X5
00519  M01S00343.stage   +++|          SB7    X4          SAVE SHIFT COUNT PER CC FORMAT
00520  M01S00344.stage   +++|          SB2    B0          CLEAR RESPONSE
00521  M01S00345.stage   +++| CSF2     LX6    6           ADVANCE ASSEMBLY
00522  M01S00346.stage   +++|          BX6    X6+X2
00523  M01S00347.stage   +++|          LX5    1           SHIFT CHARACTER COUNT
00524  M01S00348.stage   +++|          SA2    A2+B1       NEXT CHARACTER
00525  M01S00349.stage   +++|          NG     X5,CSF2     LOOP FOR X5 CHARACTERS
00526  M01S00350.stage   +++|          SB5    A3-TCCFR

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00351.@000003 ---|          PL     B5,CSF3     SKIP TEST FOR BLANK IF /EC=,/READ,/REWIND
00528  M01S00056.@000003 +++|          PL     B5,CSF3     IF /EC=,/READ,/REWIND
00529  M01S00352.stage   +++|          SX2    X2-1R

Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00353.@000003 ---|          ZR     X2,CSF3
00531  M01S00057.@000003 +++|          ZR     X2,CSF3     IF BLANK
00532  M01S00354.stage   +++|          SA3    A3+1
00533  M01S00355.stage   +++|          SA5    A5+1

Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00356.@000003 ---|          ZR     X3,CSF      RETURN

Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00357.@000003 ---|          EQ     CSF1
00536  M01S00058.@000003 +++|          ZR     X3,CSFX     IF END OF LINE
00537  M01S00059.@000003 +++|          EQ     CSF1        LOOP
00538  M01S00358.stage   +++|
00539  M01S00359.stage   +++| CSF3     LX6    B7,X6
00540  M01S00360.stage   +++|          SX4    59D
00541  M01S00361.stage   +++|          SX2    B7
00542  M01S00362.stage   +++|          IX4    X4-X2
00543  M01S00363.stage   +++|          SB7    X4
00544  M01S00364.stage   +++|          MX2    1
00545  M01S00365.stage   +++|          AX2    B7,X2

Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00366.@000006 ---|          EQ     CSF6
00547  M01S00004.@000006 +++|          EQ     CSF7        CHECK FOR DIRECTIVE FORMAT
00548  M01S00367.stage   +++|
00549  M01S00368.stage   +++| CSF4     SB5    A3-1-TCCFR  TEST FOR /READ

Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00369.@000003 ---|          NZ     B5,CSF5     NOT /READ
00551  M01S00060.@000003 +++|          NZ     B5,CSF5     IF NOT /READ
00552  M01S00370.stage   +++|          SA3    EORBIT      TEST READ ACTIVE BIT
00553  M01S00371.stage   +++|          LX3    12D

Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00372.@000003 ---|          NG     X3,CSF      READ ALREADY ACTIVE, DISREGARD 2ND /READ

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

Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00373.@000006 ---| CSF5     SB2    X7          SET PROCESSOR
00557  M01S00005.@000006 +++|          NG     X3,CSF6     IF READ ALREADY ACTIVE (DISREGARD /READ)
00558  M01S00006.@000006 +++| CSF5     SB2    X7+         SET PROCESSOR ADDRESS
00559  M01S00007.@000006 +++| CSF6     SA1    LCNT        DECREMENT COUNT OF COMMANDS
00560  M01S00008.@000006 +++|          SX6    X1-1
00561  M01S00009.@000006 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00374.@000003 ---|          EQ     CSF         RETURN
00563  M01S00062.@000003 +++|          EQ     CSFX        RETURN
00564  M01S00375.stage   +++| NLT      SPACE  4,10
00565  M01S00376.stage   +++|**        NLT - WRITE NO LINE TERMINATOR DATA TO BUFFER.
00566  M01S00377.stage   +++|*
00567  M01S00378.stage   +++|*         ENTRY  (X1) = STATUS FROM *READS*.
00568  M01S00379.stage   +++|*                (B6) = LWA+1 OF DATA TRANSFERRED ON *READS*.
00569  M01S00380.stage   +++|*
00570  M01S00381.stage   +++|*         EXIT   (X1) = SAME AS ENTRY.
00571  M01S00382.stage   +++|*
00572  M01S00383.stage   +++|*         USES   A - 2, 3, 7.
00573  M01S00384.stage   +++|*                B - 4, 5, 7.
00574  M01S00385.stage   +++|*                X - 0, 1, 2, 3, 7.
00575  M01S00386.stage   +++|
00576  M01S00387.stage   +++|
00577  M01S00388.stage   +++| NLT      SUBR               ENTRY/EXIT
00578  M01S00389.stage   +++|          SB7    B6-BUF
00579  M01S00390.stage   +++|          ZR     B7,NLTX     IF NO DATA TRANSFERRED
00580  M01S00391.stage   +++|          SB7    BUF         SET CHARACTER BUFFER ADDRESS
00581  M01S00392.stage   +++|          SB4    TBUF        SET WORD BUFFER ADDRESS
00582  M01S00393.stage   +++| NLT1     SB5    10          INITIALIZE NUMBER OF CHARACTERS IN WORD
00583  M01S00394.stage   +++|          SX7    B0+         CLEAR CHARACTER BUFFER WORD
00584  M01S00395.stage   +++| NLT2     SA2    B7+         MERGE NEXT CHARACTER
00585  M01S00396.stage   +++|          LX7    6
00586  M01S00397.stage   +++|          SB7    B7+B1       INCREMENT CHARACTER BUFFER ADDRESS
00587  M01S00398.stage   +++|          BX7    X7+X2
00588  M01S00399.stage   +++|          EQ     B7,B6,NLT3  IF ALL CHARACTERS PROCESSED
00589  M01S00400.stage   +++|          SB5    B5-B1       DECREMENT CHARACTERS IN WORD
00590  M01S00401.stage   +++|          NZ     B5,NLT2     IF NOT END OF WORD
00591  M01S00402.stage   +++|          SA7    B4          STORE WORD
00592  M01S00403.stage   +++|          SB4    B4+B1       INCREMENT WORD BUFFER ADDRESS
00593  M01S00404.stage   +++|          EQ     NLT1        PROCESS NEXT 10 CHARACTERS
00594  M01S00405.stage   +++|
00595  M01S00406.stage   +++| NLT3     SA7    B4          STORE LAST WORD
00596  M01S00407.stage   +++|          SB4    B4+B1       SET NUMBER OF WORDS
00597  M01S00408.stage   +++|          SB7    B4-TBUF
00598  M01S00409.stage   +++|          BX0    X1          SAVE READ STATUS
00599  M01S00410.stage   +++|          WRITEW F,TBUF,B7   WRITE DATA WITH NO TERMINATOR
00600  M01S00411.stage   +++|          SA2    FLAGS       CHECK PACK MODE
00601  M01S00412.stage   +++|          SA3    I           CHECK EOI STATUS
00602  M01S00413.stage   +++|          LX2    59-35
00603  M01S00414.stage   +++|          LX3    59-9
00604  M01S00415.stage   +++|          PL     X2,NLT4     IF PACK MODE
00605  M01S00416.stage   +++|          PL     X3,NLT4     IF NOT EOI
00606  M01S00417.stage   +++|          WRITEF F           FLUSH BUFFER IF EOI IN NOPACK MODE
00607  M01S00418.stage   +++| NLT4     BX1    X0          RESTORE READ STATUS
00608  M01S00419.stage   +++|          EQ     NLTX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00420.@000003 ---| RFM      SPACE  4,10
00610  M01S00063.@000003 +++| RFM      SPACE  4,40
00611  M01S00421.stage   +++|**        RFM - REFORMAT FILE.

Seq #  *Modification Id* Act 
----------------------------+
00612  M02S00422.@000005 ---|*                RFM PROCESSES THE INPUT FILE WHENEVER A *C*JOB CARD

Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00423.@000005 ---|*                IS DETECTED AS THE FIRST UNIT RECORD OF THE FILE.
00614  M01S00048.@000005 +++|*                *RFM* PROCESSES THE INPUT FILE WHENEVER A *C*JOB
00615  M01S00049.@000005 +++|*                DIRECTIVE IS DETECTED AS THE FIRST UNIT RECORD OF
00616  M01S00050.@000005 +++|*                THE FILE.
00617  M01S00424.stage   +++|*                            PROCESSING IS DONE IN ONE OF TWO MODES
00618  M01S00425.stage   +++|*         1.     NONTRANSPARENT MODE

Seq #  *Modification Id* Act 
----------------------------+
00619  M02S00426.@000005 ---|*                            AFTER *C*JOB CARD OR *C*NOTRANS* CARD

Seq #  *Modification Id* Act 
----------------------------+
00620  M02S00427.@000005 ---|*                EACH UNIT RECORD OF THE INPUT FILE IS CHECKED FOR

Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00428.@000005 ---|*                SPECIAL SUBMIT CONTROL CARDS
00622  M01S00051.@000005 +++|*                            AFTER *C*JOB DIRECTIVE OR *C*NOTRANS*
00623  M01S00052.@000005 +++|*                DIRECTIVE EACH UNIT RECORD OF THE INPUT FILE IS
00624  M01S00053.@000005 +++|*                CHECKED FOR SPECIAL SUBMIT DIRECTIVES
00625  M01S00429.stage   +++|*                A.          *C*TRANS FOUND
00626  M01S00430.stage   +++|*                            EDITING REVERTS IMMEDIATELY TO TRANSPARENT
00627  M01S00431.stage   +++|*                            MODE.  (SEE BELOW).

Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00432.@000005 ---|*                B.          OTHER CONTROL CARDS

Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00433.@000005 ---|*                            THE CONTROL CARD APPEARANCE IS MARKED AND
00630  M01S00054.@000005 +++|*                B.          OTHER DIRECTIVES
00631  M01S00055.@000005 +++|*                            THE DIRECTIVE APPEARANCE IS MARKED AND
00632  M01S00434.stage   +++|*                            IT TAKES EFFECT WITH THE NEXT UNIT RECORD
00633  M01S00435.stage   +++|*                C.          TEXT LINE
00634  M01S00436.stage   +++|*                            TEXT LINES ARE EDITED ACCORDING TO THE
00635  M01S00437.stage   +++|*                            CURRENT SETTING OF THE SUBMIT CONTROL
00636  M01S00438.stage   +++|*                            OPTIONS.
00637  M01S00439.stage   +++|*                D.          EOR/EOF/EOI
00638  M01S00440.stage   +++|*                            SEE COMMENTS IN SUBROUTINE *SUBEO*.
00639  M01S00441.stage   +++|*
00640  M01S00442.stage   +++|*         2.     TRANSPARENT MODE

Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00443.@000005 ---|*                            AFTER *C*TRANS CARD HAS BEEN PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00444.@000005 ---|*                THE FIRST UNIT RECORD IS EXAMINED
00643  M01S00056.@000005 +++|*                            AFTER *C*TRANS DIRECTIVE HAS BEEN
00644  M01S00057.@000005 +++|*                PROCESSED THE FIRST UNIT RECORD IS EXAMINED
00645  M01S00445.stage   +++|*                A.          TEXT
00646  M01S00446.stage   +++|*                            THE WHOLE RECORD IS TRANSFERED TO THE
00647  M01S00447.stage   +++|*                            SUBMIT FILE AS IS
00648  M01S00448.stage   +++|*                B.          *C*NOTRANS FOUND
00649  M01S00449.stage   +++|*                            PROCESSING REVERTS IMMEDIATELY TO
00650  M01S00450.stage   +++|*                            NON-TRANSPARENT MODE.  (SEE ABOVE).
00651  M01S00451.stage   +++|*                C.          SUBMIT CONTROL OPTION
00652  M01S00452.stage   +++|*                            THE CONTROL OPTION OCCURENCE IS MARKED
00653  M01S00453.stage   +++|*                            EVEN IF IT MAY NOT INFLUENCE THE EDITING
00654  M01S00454.stage   +++|*                            UNDER THIS MODE.  IF MODE REVERTS TO NON-
00655  M01S00455.stage   +++|*                            TRANSPARENT, ALL OPTIONS USED UNDER
00656  M01S00456.stage   +++|*                            TRANSPARENT MODE WILL TAKE EFFECT.
00657  M01S00457.stage   +++|*                D.          EOR/EOF/EOI
00658  M01S00458.stage   +++|*                            SEE COMMENTS IN SUBROUTINE *SUBEO*.
00659  M01S00459.stage   +++|
00660  M01S00460.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00461.@000003 ---| RFM      PS
00662  M01S00064.@000003 +++| RFM      SUBR               ENTRY/EXIT
00663  M01S00462.stage   +++|
00664  M01S00463.stage   +++|*         PROCESS NONTRANSPARENT MODE
00665  M01S00464.stage   +++|
00666  M01S00465.stage   +++| PNM      BSS    0           NOTRANS
00667  M01S00466.stage   +++|          EQ     PNM2        SKIP ADDITIONAL READ
00668  M01S00467.stage   +++|
00669  M01S00468.stage   +++| PNM1     READ   I,R
00670  M01S00469.stage   +++|          RECALL F
00671  M01S00470.stage   +++| PNM2     SA1    I+3         SAVE OUTPTR(I)
00672  M01S00471.stage   +++|          SA2    I+2         SAVE INPUT FET *IN* POINTER
00673  M01S00472.stage   +++|          BX6    X1
00674  M01S00473.stage   +++|          LX7    X2
00675  M01S00474.stage   +++|          SA6    OPTR
00676  M01S00475.stage   +++|          SA7    IPTR
00677  M01S00476.stage   +++|          READS  I,BUF,BUFL  READ UNIT RECORD
00678  M01S00477.stage   +++|          ZR     X1,PNM2.1   IF NO EOR/EOF/EOI
00679  M01S00478.stage   +++|          SB7    B6-BUF
00680  M01S00479.stage   +++|          ZR     B7,PNM2.0   IF END OF RECORD
00681  M01S00480.stage   +++|          SA2    FLAGS       CHECK TRANS MODE BIT
00682  M01S00481.stage   +++|          LX2    59-47
00683  M01S00482.stage   +++|          PL     X2,PNM2.0   IF TRANS NOT SET
00684  M01S00483.stage   +++|          SA2    OPTR        RESTORE POINTERS FOR TRANS DATA
00685  M01S00484.stage   +++|          SA3    IPTR
00686  M01S00485.stage   +++|          BX6    X2
00687  M01S00486.stage   +++|          LX7    X3
00688  M01S00487.stage   +++|          SA6    I+3
00689  M01S00488.stage   +++|          SA7    I+2
00690  M01S00489.stage   +++|          EQ     PTM6        SWITCH TO TRANS MODE
00691  M01S00490.stage   +++|
00692  M01S00491.stage   +++| PNM2.0   RJ     NLT         WRITE NO LINE TERMINATOR DATA TO BUFFER
00693  M01S00492.stage   +++|          SX0    B0          INPUT FILE
00694  M01S00493.stage   +++|          SX7    B0          NO WRITE REMAINDER

Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00494.@000003 ---|          SX5    RFM         RETURN ADDRESS FOR EOI
00696  M01S00065.@000003 +++|          SX5    RFMX        RETURN ADDRESS FOR EOI
00697  M01S00495.stage   +++|          RJ     SUBEO       PROCESS EOF/EOR
00698  M01S00496.stage   +++|          EQ     PNM1        PROCESS NEXT RECORD
00699  M01S00497.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00498.@000003 ---| PNM2.1   SA1    BUF         SET BEGINNING ADDRESS
00701  M01S00066.@000003 +++| PNM2.1   SA1    LCNT        INCREMENT LINE COUNT
00702  M01S00067.@000003 +++|          SX6    X1+B1
00703  M01S00068.@000003 +++|          SA6    A1
00704  M01S00069.@000003 +++|          SA1    BUF         SET BEGINNING ADDRESS
00705  M01S00499.stage   +++|          RJ     CSF         CHECK SPECIAL FORMAT
00706  M01S00500.stage   +++|          NZ     B2,PNM3     IF SPECIAL FORMAT
00707  M01S00501.stage   +++|          RJ     SSN         STRIP SEQUENCE NUMBER
00708  M01S00502.stage   +++|          SB6    A1          SAVE BEGINNING ADDRESS AFTER STRIPPING
00709  M01S00503.stage   +++|          SB3    B2          SAVE BEGINNING ADDRESS BEFORE STRIPPING
00710  M01S00504.stage   +++|          RJ     CSF         CHECK SPECIAL FORMAT
00711  M01S00505.stage   +++|          ZR     B2,PNM4     IF NOT SPECIAL FORMAT
00712  M01S00506.stage   +++| PNM3     SX7    PNM2        SAVE RETURN ADDRESS
00713  M01S00507.stage   +++|          SA7    RJ
00714  M01S00508.stage   +++|          JP     B2
00715  M01S00509.stage   +++|
00716  M01S00510.stage   +++| PNM4     SA2    FLAGS       TEST TRANS BIT
00717  M01S00511.stage   +++|          LX2    12D
00718  M01S00512.stage   +++|          PL     X2,PNM5     TRANS NOT SET
00719  M01S00513.stage   +++|          SA1    OPTR        RESTORE *IN* AND *OUT* POINTERS
00720  M01S00514.stage   +++|          SA2    IPTR
00721  M01S00515.stage   +++|          BX6    X1
00722  M01S00516.stage   +++|          LX7    X2
00723  M01S00517.stage   +++|          SA6    I+3
00724  M01S00518.stage   +++|          SA7    I+2
00725  M01S00519.stage   +++|          EQ     PTM6        SWITCH TO TRANS MODE
00726  M01S00520.stage   +++|
00727  M01S00521.stage   +++| PNM5     SB2    BUF+BUFL
00728  M01S00522.stage   +++|          SA2    FLAGS       TEST NOSEQ BIT
00729  M01S00523.stage   +++|          PL     X2,PNM6     STRIP SEQUENCE NUMBERS
00730  M01S00524.stage   +++|          SB6    B3          NO SEQUENCE NUMBER STRIPPING
00731  M01S00525.stage   +++| PNM6     SB7    B2-B6       CALCULATE WRITE LENGTH
00732  M01S00526.stage   +++|          WRITES F,B6,B7
00733  M01S00527.stage   +++|          EQ     PNM2        LOOP TO NEXT RECORD
00734  M01S00528.stage   +++|
00735  M01S00529.stage   +++|*         PROCESS TRANSPARENT MODE
00736  M01S00530.stage   +++|
00737  M01S00531.stage   +++| PTM      BSS    0
00738  M01S00532.stage   +++| PTM1     READ   I
00739  M01S00533.stage   +++|          RECALL F
00740  M01S00534.stage   +++| PTM2     SA1    I+3         SAVE OUTPTR(I)
00741  M01S00535.stage   +++|          BX6    X1
00742  M01S00536.stage   +++|          SA6    OPTR
00743  M01S00537.stage   +++|          SA1    X6          CHECK FOR END OF LINE BYTE
00744  M01S00538.stage   +++|          MX7    -12
00745  M01S00539.stage   +++|          BX7    -X7*X1

Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00540.@000005 ---|          NZ     X7,PTM5     IF NOT A POSSIBLE SPECIAL FORMAT CARD
00747  M01S00058.@000005 +++|          NZ     X7,PTM5     IF NOT A POSSIBLE SPECIAL FORMAT DIRECTIVE
00748  M01S00541.stage   +++|          READS  I,BUF,BUFL  READ UNIT RECORD FROM INPUT FILE
00749  M01S00542.stage   +++|          ZR     X1,PTM3     IF NO EOR/EOF
00750  M01S00543.stage   +++|          SX0    B0          INPUT FILE
00751  M01S00544.stage   +++|          SX7    B0          NO RECORD REMAINDER

Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00545.@000003 ---|          SX5    RFM         RETURN ADDRESS FOR EOI
00753  M01S00070.@000003 +++|          SX5    RFMX        RETURN ADDRESS FOR EOI
00754  M01S00546.stage   +++|          RJ     SUBEO       PROCESS TERMINATION CONDITION
00755  M01S00547.stage   +++|          EQ     PTM1        PROCESS NEXT RECORD
00756  M01S00548.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00549.@000003 ---| PTM3     SA1    BUF         SET STARTING ADDRESS
00758  M01S00071.@000003 +++| PTM3     SA1    LCNT        INCREMENT LINE COUNT
00759  M01S00072.@000003 +++|          SX6    X1+B1
00760  M01S00073.@000003 +++|          SA6    A1
00761  M01S00074.@000003 +++|          SA1    BUF         SET BEGINNING ADDRESS
00762  M01S00550.stage   +++|          RJ     CSF         CHECK SPECIAL FORMAT WITH NO SEQ NO STRIP
00763  M01S00551.stage   +++|          NZ     B2,PTM4     IF SPECIAL FORMAT
00764  M01S00552.stage   +++|          RJ     SSN         STRIP SEQUENCE NUMBER
00765  M01S00553.stage   +++|          SB6    A1          SAVE BEGINNING ADDRESS AFTER STRIPPING
00766  M01S00554.stage   +++|          SB3    B2          SAVE BEGINNING ADDRESS BEFORE STRIPPING
00767  M01S00555.stage   +++|          RJ     CSF         CHECK SPECIAL FORMAT
00768  M01S00556.stage   +++|          ZR     B2,PTM5     IF NOT SPECIAL FORMAT
00769  M01S00557.stage   +++| PTM4     SX7    PTM2        SAVE RETURN ADDRESS
00770  M01S00558.stage   +++|          SA7    RJ
00771  M01S00559.stage   +++|          JP     B2
00772  M01S00560.stage   +++|
00773  M01S00561.stage   +++| PTM5     SA2    FLAGS       TEST FOR TRANS BIT SET
00774  M01S00562.stage   +++|          LX2    12D
00775  M01S00563.stage   +++|          SA3    OPTR        RESTORE OUT POINTER
00776  M01S00564.stage   +++|          BX6    X3
00777  M01S00565.stage   +++|          SA6    I+3
00778  M01S00566.stage   +++|          PL     X2,PNM2     IF NOT SET, SWITCH TO NONTRANSPARENT MODE
00779  M01S00567.stage   +++| PTM6     READW  I,BUF,BUFL
00780  M01S00568.stage   +++|          RJ     SUBUFS      SET TRANSFER TO BUF
00781  M01S00569.stage   +++|          ZR     X1,PTM7     IF NO EOR/EOF
00782  M01S00570.stage   +++|          SX0    B0          INPUT FILE
00783  M01S00571.stage   +++|          SX7    B1          PROCESS INCOMPLETE RECORD

Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00572.@000003 ---|          SX5    RFM         RETURN ADDRESS FOR EOI
00785  M01S00075.@000003 +++|          SX5    RFMX        RETURN ADDRESS FOR EOI
00786  M01S00573.stage   +++|          RJ     SUBEO       PROCESS TERMINATION CONDITION
00787  M01S00574.stage   +++|          EQ     PTM1        PROCESS NEXT RECORD
00788  M01S00575.stage   +++|
00789  M01S00576.stage   +++| PTM7     WRITEW F,BUF,BUFL
00790  M01S00577.stage   +++|          RJ     SUBUFR      CLEAR TRANSFER TO BUF
00791  M01S00578.stage   +++|          EQ     PTM6        LOOP

Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00579.@000003 ---| SUBEO    SPACE  4
00793  M01S00076.@000003 +++| SUBEO    SPACE  4,40
00794  M01S00580.stage   +++|**        SUBEO  PROCESS FILE TERMINATION CONDITION.
00795  M01S00581.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00582.@000003 ---|*         ENTRY  I  FILE FET ADDRESS
00797  M01S00077.@000003 +++|*         ENTRY  (I) = FILE FET ADDRESS.
00798  M01S00583.stage   +++|*                (X1) = EOR/EOF/EOI STATUS FROM READW OR READS
00799  M01S00584.stage   +++|*                (X0) IF 0 - FILE IS INPUT FILE
00800  M01S00585.stage   +++|*                        1 - FILE FROM /READ,....
00801  M01S00586.stage   +++|*                (X5) = ALTERNATE RETURN ADDRESS
00802  M01S00587.stage   +++|*                (X7) = 0 IF ENTIRE RECORD.
00803  M01S00588.stage   +++|*                     = 1 IF PARTIAL RECORD POSSIBLE.
00804  M01S00589.stage   +++|*
00805  M01S00590.stage   +++|*         EXIT   THE ROUTINE WILL RETURN VIA REGULAR LINKAGE WHEN
00806  M01S00591.stage   +++|*                     EOR/EOF ON INPUT FILE
00807  M01S00592.stage   +++|*                     EOR ON READ FILE
00808  M01S00593.stage   +++|*                THE ROUTINE WILL RETURN TO THE ALTERNATE RETURN
00809  M01S00594.stage   +++|*                ADDRESS WHEN
00810  M01S00595.stage   +++|*                     EOI ON INPUT FILE
00811  M01S00596.stage   +++|*                     EOF ON READ FILE
00812  M01S00597.stage   +++|*
00813  M01S00598.stage   +++|*
00814  M01S00599.stage   +++|*                THIS ROUTINE PROCESSES A TERMINAL CONDITION FOR A FILE
00815  M01S00600.stage   +++|*                AS FOLLOWS
00816  M01S00601.stage   +++|*         1.     END-OF-INFORMATION
00817  M01S00602.stage   +++|*                A. INPUT FILE
00818  M01S00603.stage   +++|*                             THE REFORMATTING ROUTINE IS TERMINATED BUT
00819  M01S00604.stage   +++|*                             THE SUBMIT BUFFER F IS FLUSHED IF NOT
00820  M01S00605.stage   +++|*                             EMPTY WITH A WRITEF MACRO.
00821  M01S00606.stage   +++|*         2.     END OF FILE
00822  M01S00607.stage   +++|*                A. INPUT FILE
00823  M01S00608.stage   +++|*                             IF THE PACK CONTROL OPTION IS
00824  M01S00609.stage   +++|*                             IN EFFECT  THE FILE MARK IS IGNORED.
00825  M01S00610.stage   +++|*                             ELSE A FILE MARK IS WRITTEN TO THE OUTPUT
00826  M01S00611.stage   +++|*                             FILE F
00827  M01S00612.stage   +++|*                B. READ FILE
00828  M01S00613.stage   +++|*                            READING FROM FILE IS TERMINATED, EDITING
00829  M01S00614.stage   +++|*                            WILL BE THE SAME AS IF EOR WAS DETECTED.
00830  M01S00615.stage   +++|*         3.     END OF RECORD
00831  M01S00616.stage   +++|*                A. INPUT FILE
00832  M01S00617.stage   +++|*                B. READ FILE
00833  M01S00618.stage   +++|*                             IF THE PACK OPTION IS IN EFFECT THE RECORD
00834  M01S00619.stage   +++|*                             MARK IS IGNORED, ELSE A RECORD MARK IS
00835  M01S00620.stage   +++|*                             WRITTEN TO THE OUTPUT FILE F.
00836  M01S00621.stage   +++|
00837  M01S00622.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00623.@000003 ---| SUBEO    PS                  ENTRY/EXIT
00839  M01S00078.@000003 +++| SUBEO    SUBR               ENTRY/EXIT
00840  M01S00624.stage   +++|          SA2    FLAGS       PACK/NOPAK
00841  M01S00625.stage   +++|          LX2    59-35
00842  M01S00626.stage   +++|
00843  M01S00627.stage   +++|*         SEPARATE EOR FROM EOF.
00844  M01S00628.stage   +++|
00845  M01S00629.stage   +++|          PL     X1,SUB6     IF EOR
00846  M01S00630.stage   +++|          NZ     X0,SUB4     IF EOF ON READ FILE
00847  M01S00631.stage   +++|
00848  M01S00632.stage   +++|*         END OF FILE.
00849  M01S00633.stage   +++|
00850  M01S00634.stage   +++|          SA4    SUBTR
00851  M01S00001.@000007 +++|          BX0    X2
00852  M01S00635.stage   +++|          ZR     X4,SUB1     IF BUFFER EMPTY

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00636.@000007 ---|          BX0    X2
00854  M01S00637.stage   +++|          WRITEW F,BUF,X4
00855  M01S00638.stage   +++|          RJ     SUBUFR      CLEAR TRANSFER COUNT
00856  M01S00639.stage   +++| SUB1     SA3    I           CHECK EOI STATUS
00857  M01S00640.stage   +++|          LX3    59-9
00858  M01S00641.stage   +++|          PL     X0,SUB2     IF PACK MODE
00859  M01S00642.stage   +++|          NG     X3,SUB3     IF EOI/INPUT/NOPACK
00860  M01S00643.stage   +++|          WRITEF F           EOF/NOPACK, FLUSH FILE

Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00644.@000003 ---|          EQ     SUBEO       REGULAR RETURN
00862  M01S00079.@000003 +++|          EQ     SUBEOX      REGULAR RETURN
00863  M01S00645.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00646.@000003 ---| SUB2     PL     X3,SUBEO    IF NOT EOI
00865  M01S00080.@000003 +++| SUB2     PL     X3,SUBEOX   IF NOT EOI
00866  M01S00647.stage   +++|          WRITEF F           ON EOI,FLUSH OUTPUT BUFFER
00867  M01S00648.stage   +++| SUB3     SB7    X5          SET ALTERNATE RETURN ADDRESS
00868  M01S00649.stage   +++|          JP     B7
00869  M01S00650.stage   +++|
00870  M01S00651.stage   +++|*         READ FILE EOF OR EOI.
00871  M01S00652.stage   +++|
00872  M01S00653.stage   +++| SUB4     ZR     X7,SUB5     IF NO PARTIAL RECORD READ
00873  M01S00654.stage   +++|          SA4    SUBTR
00874  M01S00655.stage   +++|          ZR     X4,SUB5     IF NO DATA
00875  M01S00656.stage   +++|          BX0    X2
00876  M01S00657.stage   +++|          WRITEW F,BUF,X4    WRITE LAST AMOUNT OF DATA
00877  M01S00658.stage   +++|          RJ     SUBUFR      CLEAR TRANSFER COUNT
00878  M01S00659.stage   +++|          BX2    X0
00879  M01S00660.stage   +++|          SX0    B0          SET EOF
00880  M01S00661.stage   +++|          EQ     SUB8
00881  M01S00662.stage   +++|
00882  M01S00663.stage   +++| SUB5     SA3    F+2         *IN*
00883  M01S00664.stage   +++|          SX0    B0          X0  SET TO EOF
00884  M01S00665.stage   +++|          SA4    A3+B1       OUT
00885  M01S00666.stage   +++|          BX6    X3-X4       IN-OUT
00886  M01S00667.stage   +++|          ZR     X6,SUB9     IF OUTPUT BUFFER EMPTY
00887  M01S00668.stage   +++|          EQ     SUB8        READ FILE TERMINATED WITH EOR
00888  M01S00669.stage   +++|
00889  M01S00670.stage   +++|*         END OF RECORD.
00890  M01S00671.stage   +++|
00891  M01S00672.stage   +++| SUB6     ZR     X7,SUB7     IF NO PARTIAL RECORD READ
00892  M01S00673.stage   +++|          BX0    X2
00893  M01S00674.stage   +++|          SA4    SUBTR
00894  M01S00675.stage   +++|          ZR     X4,SUB6.1   IF NO DATA
00895  M01S00676.stage   +++|          WRITEW F,BUF,X1-BUF
00896  M01S00677.stage   +++|          RJ     SUBUFR      CLEAR TRANSFER TO BUF
00897  M01S00678.stage   +++|          BX2    X0
00898  M01S00679.stage   +++| SUB6.1   SX1    B1          FORCE EOR FLAG
00899  M01S00680.stage   +++|
00900  M01S00681.stage   +++|*         PROCESS READ FILE EOR OR EOF.
00901  M01S00682.stage   +++|
00902  M01S00683.stage   +++| SUB7     SX0    X1+         RESTORE EOR/EOF FLAG
00903  M01S00684.stage   +++| SUB8     PL     X2,SUB9     IF PACK MODE
00904  M01S00685.stage   +++|          WRITER F           NOPACK PRESERVES THE RECORD MARK
00905  M01S00686.stage   +++| SUB9     ZR     X0,SUB3     IF EOF ON READ FILE

Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00687.@000003 ---|          EQ     SUBEO       IF EOR
00907  M01S00081.@000003 +++|          EQ     SUBEOX      EOR
00908  M01S00688.stage   +++| SUBUFS   SPACE  4,10
00909  M01S00689.stage   +++|**        SUBUFS - SET NUMBER OF WORDS TRANSFERRED TO BUF FROM I.
00910  M01S00690.stage   +++|*
00911  M01S00691.stage   +++|*         ENTRY  (B6) = LWA+1 OF DATA TRANSFERRED.
00912  M01S00692.stage   +++|*
00913  M01S00693.stage   +++|*         EXIT   (SUBTR) = NUMBER OF WORDS TRANSFERRED.
00914  M01S00694.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00695.@000003 ---|*         USES   A - 6

Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00696.@000003 ---|*                X - 4, 6
00917  M01S00082.@000003 +++|*         USES   A - 6.
00918  M01S00083.@000003 +++|*                X - 4, 6.
00919  M01S00697.stage   +++|
00920  M01S00698.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00921  M02S00699.@000003 ---| SUBUFS   PS                 ENTRY/EXIT
00922  M01S00084.@000003 +++| SUBUFS   SUBR               ENTRY/EXIT
00923  M01S00700.stage   +++|          SX4    B6
00924  M01S00701.stage   +++|          SX6    BUF
00925  M01S00702.stage   +++|          IX6    X4-X6
00926  M01S00703.stage   +++|          SA6    SUBTR

Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00704.@000003 ---|          EQ     SUBUFS

Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00705.@000003 ---| SUBUFR   SPACE  4
00929  M01S00085.@000003 +++|          EQ     SUBUFSX     RETURN
00930  M01S00086.@000003 +++| SUBUFR   SPACE  4,10
00931  M01S00706.stage   +++|**        SUBUFR - RESET TRANSFER CELL TO ZERO.
00932  M01S00707.stage   +++|*
00933  M01S00708.stage   +++|*         EXIT   (SUBTR) = 0.
00934  M01S00709.stage   +++|*
00935  M01S00710.stage   +++|*         USES   A - 6.
00936  M01S00711.stage   +++|*                X - 6.
00937  M01S00712.stage   +++|
00938  M01S00713.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00714.@000003 ---| SUBUFR   PS     0
00940  M01S00087.@000003 +++| SUBUFR   SUBR               ENTRY/EXIT
00941  M01S00715.stage   +++|          SX6    B0+
00942  M01S00716.stage   +++|          SA6    SUBTR

Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00717.@000003 ---|          EQ     SUBUFR
00944  M01S00088.@000003 +++|          EQ     SUBUFRX     RETURN
00945  M01S00718.stage   +++|
00946  M01S00719.stage   +++| SUBTR    BSSZ   1

Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00720.@000003 ---|          TITLE  SPECIAL CONTROL STATEMENT PROCESSORS.

Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00721.@000003 ---| JOB      TITLE  SPECIAL CONTROL CARD PROCESSOR SUBROUTINES.
00949  M01S00089.@000003 +++|          TITLE  SPECIAL DIRECTIVE PROCESSORS.
00950  M01S00059.@000005 +++| CHARGE   SPACE  4,10
00951  M01S00060.@000005 +++|**        CHARGE - PROCESS CHARGE.
00952  M01S00061.@000005 +++|*
00953  M01S00062.@000005 +++|*         USES   A - 1, 2.
00954  M01S00063.@000005 +++|*                X - 1, 2.
00955  M01S00064.@000005 +++|*                B - 2, 5.
00956  M01S00065.@000005 +++|*
00957  M01S00066.@000005 +++|*         CALLS  SNM.
00958  M01S00067.@000005 +++|*
00959  M01S00068.@000005 +++|*         MACROS GETCN, WRITEC.
00960  M01S00069.@000005 +++|
00961  M01S00070.@000005 +++|
00962  M01S00071.@000005 +++| CHARGE   BSS    0
00963  M01S00072.@000005 +++|          SA1    CHGA
00964  M01S00073.@000005 +++|          NZ     X1,CHG1     IF NOT FIRST *CHARGE* DIRECTIVE
00965  M01S00074.@000005 +++|          GETCN  CHGA        GET CHARGE INFORMATION
00966  M01S00075.@000005 +++|          SA1    CHGA        READ CHARGE NUMBER
00967  M01S00076.@000005 +++|          SB5    CHGB        SET COMMAND TEMPLATE ADDRESS
00968  M01S00077.@000005 +++|          SB2    1R#
00969  M01S00078.@000005 +++|          RJ     SNM         SET CHARGE NUMBER
00970  M01S00079.@000005 +++|          SA1    CHGA+1      READ FIRST PART OF PROJECT NUMBER
00971  M01S00080.@000005 +++|          SB2    1R<
00972  M01S00081.@000005 +++|          RJ     SNM         SET PROJECT NUMBER
00973  M01S00082.@000005 +++|          SA1    CHGA+2      READ SECOND PART OF PROJECT NUMBER
00974  M01S00083.@000005 +++|          SB2    1R>
00975  M01S00084.@000005 +++|          RJ     SNM         SET PROJECT NUMBER
00976  M01S00085.@000005 +++| CHG1     SA1    CHGA+3
00977  M01S00086.@000005 +++|          PL     X1,CHG2     IF CHARGE NOT VALIDATED
00978  M01S00087.@000005 +++|          WRITEC F,CHGB      WRITE COMMAND TO SUBMIT FILE
00979  M01S00088.@000005 +++| CHG2     SA2    RJ          SET RETURN ADDRESS
00980  M01S00089.@000005 +++|          SB2    X2
00981  M01S00090.@000005 +++|          JP     B2          RETURN
00982  M01S00091.@000005 +++|
00983  M01S00092.@000005 +++| CHGA     BSSZ   4           *GETCN* BLOCK
00984  M01S00093.@000005 +++| CHGB     DATA   C/$CHARGE,##########,<<<<<<<<<<>>>>>>>>>>./
00985  M01S00090.@000003 +++| JOB      SPACE  4,10
00986  M01S00722.stage   +++|**        JOB - PROCESS JOB.
00987  M01S00723.stage   +++|
00988  M01S00724.stage   +++|
00989  M01S00725.stage   +++| JOB      BSS    0
00990  M01S00726.stage   +++|          WRITER F,R
00991  M01S00727.stage   +++|          SA2    RJ
00992  M01S00728.stage   +++|          SB2    X2
00993  M01S00729.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00730.@000003 ---| EOR      SPACE  4
00995  M01S00091.@000003 +++| EOR      SPACE  4,10
00996  M01S00731.stage   +++|**        EOR - PROCESS EOR.
00997  M01S00732.stage   +++|
00998  M01S00733.stage   +++|
00999  M01S00734.stage   +++| EOR      BSS    0
01000  M01S00735.stage   +++|          WRITER F,R
01001  M01S00736.stage   +++|          SA2    RJ
01002  M01S00737.stage   +++|          SB2    X2
01003  M01S00738.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00739.@000003 ---| EOF      SPACE  4
01005  M01S00092.@000003 +++| EOF      SPACE  4,10
01006  M01S00740.stage   +++|**        EOF - PROCESS EOF.
01007  M01S00741.stage   +++|
01008  M01S00742.stage   +++|
01009  M01S00743.stage   +++| EOF      BSS    0
01010  M01S00744.stage   +++|          WRITEF F,R
01011  M01S00745.stage   +++|          SA2    RJ
01012  M01S00746.stage   +++|          SB2    X2
01013  M01S00747.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01014  M02S00748.@000003 ---| TCCF     SPACE  4
01015  M01S00093.@000003 +++| SEQ      SPACE  4,10
01016  M01S00749.stage   +++|**        SEQ - PROCESS SEQ.
01017  M01S00750.stage   +++|
01018  M01S00751.stage   +++|
01019  M01S00752.stage   +++| SEQ      BSS    0
01020  M01S00753.stage   +++|          SA1    FLAGS
01021  M01S00754.stage   +++|          MX2    1
01022  M01S00755.stage   +++|          BX6    -X2*X1
01023  M01S00756.stage   +++|          SA6    FLAGS
01024  M01S00757.stage   +++|          SA2    RJ
01025  M01S00758.stage   +++|          SB2    X2
01026  M01S00759.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01027  M02S00760.@000003 ---| NOSEQ    SPACE  4
01028  M01S00094.@000003 +++| NOSEQ    SPACE  4,10
01029  M01S00761.stage   +++|**        NOSEQ - PROCESS NOSEQ.
01030  M01S00762.stage   +++|
01031  M01S00763.stage   +++|
01032  M01S00764.stage   +++| NOSEQ    BSS    0
01033  M01S00765.stage   +++|          SA1    FLAGS
01034  M01S00766.stage   +++|          MX2    1
01035  M01S00767.stage   +++|          BX6    X2+X1
01036  M01S00768.stage   +++|          SA6    FLAGS
01037  M01S00769.stage   +++|          SA2    RJ
01038  M01S00770.stage   +++|          SB2    X2
01039  M01S00771.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00772.@000003 ---| TRANS    SPACE  4
01041  M01S00095.@000003 +++| TRANS    SPACE  4,10
01042  M01S00773.stage   +++|**        TRANS - PROCESS TRANS.
01043  M01S00774.stage   +++|
01044  M01S00775.stage   +++|
01045  M01S00776.stage   +++| TRANS    BSS    0
01046  M01S00777.stage   +++|          SA1    FLAGS
01047  M01S00778.stage   +++|          LX1    12D
01048  M01S00779.stage   +++|          MX2    1
01049  M01S00780.stage   +++|          BX6    X2+X1
01050  M01S00781.stage   +++|          LX6    48D
01051  M01S00782.stage   +++|          SA6    FLAGS
01052  M01S00783.stage   +++|          SA2    RJ
01053  M01S00784.stage   +++|          SB2    X2
01054  M01S00785.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01055  M02S00786.@000003 ---| NOTRANS  SPACE  4
01056  M01S00096.@000003 +++| NOTRANS  SPACE  4,10
01057  M01S00787.stage   +++|**        NOTRANS - PROCESS NOTRANS.
01058  M01S00788.stage   +++|
01059  M01S00789.stage   +++|
01060  M01S00790.stage   +++| NOTRANS  BSS    0
01061  M01S00791.stage   +++|          SA1    FLAGS
01062  M01S00792.stage   +++|          LX1    12D
01063  M01S00793.stage   +++|          MX2    1
01064  M01S00794.stage   +++|          BX6    -X2*X1
01065  M01S00795.stage   +++|          LX6    48D
01066  M01S00796.stage   +++|          SA6    FLAGS
01067  M01S00797.stage   +++|          SA2    RJ
01068  M01S00798.stage   +++|          SB2    X2
01069  M01S00799.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01070  M02S00800.@000003 ---| NOPACK   SPACE  4
01071  M01S00097.@000003 +++| NOPACK   SPACE  4,10
01072  M01S00801.stage   +++|**        NOPACK - PROCESS NOPACK.
01073  M01S00802.stage   +++|
01074  M01S00803.stage   +++|
01075  M01S00804.stage   +++| NOPACK   BSS    0
01076  M01S00805.stage   +++|          SA1    FLAGS
01077  M01S00806.stage   +++|          LX1    24D
01078  M01S00807.stage   +++|          MX2    1
01079  M01S00808.stage   +++|          BX6    X2+X1
01080  M01S00809.stage   +++|          LX6    36D
01081  M01S00810.stage   +++|          SA6    FLAGS
01082  M01S00811.stage   +++|          SA2    RJ
01083  M01S00812.stage   +++|          SB2    X2
01084  M01S00813.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00814.@000003 ---| PACK     SPACE  4
01086  M01S00098.@000003 +++| PACK     SPACE  4,10
01087  M01S00815.stage   +++|**        PACK - PROCESS PACK.
01088  M01S00816.stage   +++|
01089  M01S00817.stage   +++|
01090  M01S00818.stage   +++| PACK     BSS    0
01091  M01S00819.stage   +++|          SA1    FLAGS
01092  M01S00820.stage   +++|          LX1    24D
01093  M01S00821.stage   +++|          MX2    1
01094  M01S00822.stage   +++|          BX6    -X2*X1
01095  M01S00823.stage   +++|          LX6    36D
01096  M01S00824.stage   +++|          SA6    FLAGS
01097  M01S00825.stage   +++|          SA2    RJ
01098  M01S00826.stage   +++|          SB2    X2
01099  M01S00827.stage   +++|          JP     B2

Seq #  *Modification Id* Act 
----------------------------+
01100  M02S00828.@000003 ---| REWIND   SPACE  4
01101  M01S00099.@000003 +++| REWIND   SPACE  4,10
01102  M01S00829.stage   +++|**        REWIND - REWIND FILE.
01103  M01S00830.stage   +++|*
01104  M01S00831.stage   +++|*         USES   A - 1, 2, 6.
01105  M01S00832.stage   +++|*                B - 2.
01106  M01S00833.stage   +++|*                X - 1, 2, 3, 6.
01107  M01S00834.stage   +++|*
01108  M01S00835.stage   +++|*         CALLS  GLF, SFN.
01109  M01S00836.stage   +++|
01110  M01S00837.stage   +++|
01111  M01S00838.stage   +++| REWIND   BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01112  M02S00100.@000006 ---|          SA1    LCNT        DECREMENT LINE COUNT (DON-T COUNT /REWIND)

Seq #  *Modification Id* Act 
----------------------------+
01113  M02S00101.@000006 ---|          SX6    X1-1

Seq #  *Modification Id* Act 
----------------------------+
01114  M02S00102.@000006 ---|          SA6    A1
01115  M01S00839.stage   +++|          RJ     GLF         GET LOCAL FILE NEME

Seq #  *Modification Id* Act 
----------------------------+
01116  M02S00840.@000003 ---|          NZ     X4,RWD6     IF NOT BLANK,PUT OUT AS DATA

Seq #  *Modification Id* Act 
----------------------------+
01117  M02S00103.@000005 ---|          NZ     X4,RWD6     IF ILLEGAL SEPARATOR, PUT OUT AS DATA
01118  M01S00094.@000005 +++|          NZ     X4,RWD6     IF INCORRECT SEPARATOR, PUT OUT AS DATA
01119  M01S00841.stage   +++|          NZ     B2,RWD1     IF VALID CHARACTERS IN FILEMAME
01120  M01S00842.stage   +++|          SA2    =0LTAPE1    SET DEFAULT FILENAME IN FET
01121  M01S00843.stage   +++|          BX6    X2
01122  M01S00844.stage   +++|          SA1    EORBIT      TEST READ ACTIVE BIT
01123  M01S00845.stage   +++|          LX1    12D
01124  M01S00846.stage   +++|          PL     X1,RWD3     NOT ACTIVE
01125  M01S00847.stage   +++|          EQ     RWD6        ACTIVE,PUT OUT AS DATA
01126  M01S00848.stage   +++|
01127  M01S00849.stage   +++| RWD1     RJ     SFN         SHIFT FILENAME, TEST FOR SUBMIT FILENAME
01128  M01S00850.stage   +++|          ZR     X2,RWD6     IF EQUAL,PUT OUT AS DATA
01129  M01S00851.stage   +++| RWD2     SA1    EORBIT      TEST FOR READ ACTIVE
01130  M01S00852.stage   +++|          LX1    12D
01131  M01S00853.stage   +++|          PL     X1,RWD3     READ NOT ACTIVE
01132  M01S00854.stage   +++|          SA1    R           TEST FOR READ FILENAME
01133  M01S00855.stage   +++|          MX3    42D
01134  M01S00856.stage   +++|          BX2    X3*X1
01135  M01S00857.stage   +++|          BX2    X2-X6
01136  M01S00858.stage   +++|          ZR     X2,RWD6     IF EQUAL,PUT OUT AS DATA
01137  M01S00859.stage   +++| RWD3     SX1    1
01138  M01S00860.stage   +++|          IX6    X6+X1
01139  M01S00861.stage   +++|          SA6    W           STORE FILENAME IN FET
01140  M01S00862.stage   +++|          REWIND W,R         REWIND FILE
01141  M01S00863.stage   +++|          SA1    RJ          GET RETURN ADDRESS
01142  M01S00864.stage   +++|          SB2    X1
01143  M01S00865.stage   +++|          JP     B2          RETURN
01144  M01S00866.stage   +++|
01145  M01S00867.stage   +++| RWD6     SA1    RJ          TEST RETURN ADDRESS = TO NONTRANS
01146  M01S00868.stage   +++|                             PARENT MODE ROUTINE
01147  M01S00869.stage   +++|          SX2    PNM2
01148  M01S00870.stage   +++|          BX2    X1-X2
01149  M01S00871.stage   +++|          ZR     X2,PNM4     RETURN TO NONTRANSPARENT MODE ROUTINE
01150  M01S00872.stage   +++|          SX2    PTM2
01151  M01S00873.stage   +++|          BX2    X1-X2
01152  M01S00874.stage   +++|          ZR     X2,PTM5
01153  M01S00875.stage   +++|          SX2    RTM1
01154  M01S00876.stage   +++|          BX2    X1-X2
01155  M01S00877.stage   +++|          ZR     X2,RTM5
01156  M01S00878.stage   +++|          EQ     RNM3

Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00879.@000003 ---| USER     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00880.@000003 ---|**        USER - PROCESS USER STATEMENT.
01159  M01S00104.@000003 +++| USER     SPACE  4,10
01160  M01S00105.@000003 +++|**        USER - PROCESS USER.
01161  M01S00881.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00882.@000003 ---|*         USES   X - 0, 1, 2.

Seq #  *Modification Id* Act 
----------------------------+
01163  M02S00883.@000003 ---|*                A - 1, 2.
01164  M01S00106.@000003 +++|*         USES   X - 0, 1, 2, 6.
01165  M01S00107.@000003 +++|*                A - 1, 2, 6.
01166  M01S00884.stage   +++|*                B - 2, 5.
01167  M01S00885.stage   +++|*
01168  M01S00886.stage   +++|*         CALLS  SNM.
01169  M01S00887.stage   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01170  M02S00888.@000003 ---|*         MACROS RECALL, WRITEC.

Seq #  *Modification Id* Act 
----------------------------+
01171  M02S00108.@000004 ---|*         MACROS ABORT, MESSAGE, RECALL, WRITEC.
01172  M01S00002.@000004 +++|*         MACROS ABORT, MESSAGE, RECALL, SYSTEM, WRITEC.
01173  M01S00889.stage   +++|
01174  M01S00890.stage   +++|
01175  M01S00891.stage   +++| USER     BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
01176  M02S00892.@000003 ---|          SA1    USEB

Seq #  *Modification Id* Act 
----------------------------+
01177  M02S00893.@000003 ---|          ZR     X1,USE1     IF USER STATEMENT EXECUTED
01178  M01S00109.@000003 +++|          SA1    PFPB+2
01179  M01S00110.@000003 +++|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00111.@000004 ---|          BX1    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
01181  M03S00894.@000004 ---|          MESSAGE  (=C* USER STATEMENT NOT EXECUTED.*),,R

Seq #  *Modification Id* Act 
----------------------------+
01182  M03S00895.@000004 ---|          MESSAGE  (=C* USER DIRECTIVE INVALID.*),,R

Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00112.@000004 ---|          NZ     X1,USE2     IF *USER* COMMAND HAS BEEN EXECUTED
01184  M01S00003.@000004 +++|          BX5    X0*X1
01185  M01S00004.@000004 +++|          NZ     X5,USE2     IF *USER* COMMAND HAS BEEN EXECUTED
01186  M01S00113.@000003 +++|          MESSAGE  (=C* USER COMMAND HAS NOT BEEN EXECUTED.*),,R

Seq #  *Modification Id* Act 
----------------------------+
01187  M02S00114.@000005 ---| USE1     MESSAGE  (=C* USER DIRECTIVE NOT VALID.*),,R
01188  M01S00095.@000005 +++| USE1     MESSAGE  (=C* USER DIRECTIVE INCORRECT.*),,R
01189  M01S00896.stage   +++|          ABORT
01190  M01S00897.stage   +++|

Seq #  *Modification Id* Act 
----------------------------+
01191  M02S00898.@000003 ---| USE1     MX0    42

Seq #  *Modification Id* Act 
----------------------------+
01192  M02S00899.@000003 ---|          SA1    GJSB+UNI    SET USER NUMBER IN CONTROL STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
01193  M02S00900.@000003 ---|          BX1    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
01194  M02S00901.@000003 ---|          SB2    1R*

Seq #  *Modification Id* Act 
----------------------------+
01195  M02S00902.@000003 ---|          SB5    USEA
01196  M01S00115.@000003 +++| USE2     SA2    LCNT        CHECK LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01197  M02S00116.@000006 ---|          SX6    X2-3

Proceed to Part 1