cdc:nos2.source:opl.opl871:deck:stage
Deck STAGE
1 Modification
Listing Sections
- Deck STAGE Start
- Deck STAGE Part 1 (Line 1198)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.stage +++|*NOSEQ
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Updated by) | 274l797 |
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.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Updated by) | 274l797 |
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
| Line S09033 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @019333 |
M02 (Yanked) (Updated by) | @021778 |
Seq # *Modification Id* Act ----------------------------+ 00018 M02S09033.@021778 ---|6 00019 M01S86383.stage +++|E
| Line S06979 Modification History | |
|---|---|
M01 (Yanked) (Updated by) | @062607 |
M02 (Yanked) (Updated by) | @064347 |
M03 (Yanked) (Updated by) | @009966 |
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.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00027 M02S00017.@000003 ---| SPACE 4 00028 M01S00003.@000003 +++| SPACE 4,25 00029 M01S00018.stage +++|*** CALL. 00030 M01S00019.stage +++|*
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00046 M02S00027.@000005 ---|* EXPLICITLY DONE WITH /REWIND CONTROL CARDS. 00047 M01S00001.@000005 +++|* EXPLICITLY DONE WITH /REWIND DIRECTIVES.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00048 M02S00028.@000013 ---|* Q INPUT QUEUE TYPE.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00029.@000013 ---|* B OR BC = BATCH.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00030.@000013 ---|* N OR NO = BATCH, WITH OUTPUT NOT TO BE PRINTED.
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00031.@000013 ---|* E OR RB = REMOTE BATCH.
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
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 -
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00056 M02S00036.@000013 ---|* Q=B OR BC, FOR NON-TXOT JOBS.
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00057 M02S00037.@000013 ---|* Q=N OR NO, FOR TXOT JOBS.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
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=/
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00065 M02S00040.@000003 ---| SPACE 4,25 00066 M01S00004.@000003 +++| SPACE 4,35 00067 M01S00041.stage +++|*** DAYFILE MESSAGES. 00068 M01S00042.stage +++|*
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000011 |
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 +++|*
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00073 M02S00046.@000005 ---|* *ILLEGAL QUEUE SPECIFIED.* = QUEUE TYPE SPECIFIED NOT A LEGAL
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00047.@000005 ---|* TYPE FOR *SUBMIT*.
| Line S00002 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000005 |
M02 (Yanked) (Updated by) | @000011 |
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 +++|*
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00079 M02S00049.@000005 ---|* *NO READ FILE FOUND- LFN .* = LFN ON /READ CONTROL CARD COULD
| Line S00004 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000005 |
M02 (Yanked) (Updated by) | @000011 |
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 +++|*
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000011 |
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 +++|*
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00087 M02S00054.@000005 ---|* *READ FILE BUSY- LFN .* = LFN ON /READ CONTROL CARD WAS BUSY.
| Line S00005 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000005 |
M02 (Yanked) (Updated by) | @000011 |
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 +++|*
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
Seq # *Modification Id* Act ----------------------------+ 00091 M02S00056.@000001 ---|* *SUBMIT COMPLETE. JOBNAME IS XXXXXXX* = THE JOB WAS
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00057.@000001 ---|* SUBMITTED WITH THE NAME XXXXXXX.
| Line S00001 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000001 |
M02 (Yanked) (Updated by) | @000011 |
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 +++|*
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000011 |
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 +++|*
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000011 |
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
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00103 M02S00063.@000005 ---|* THE CONTROL STATEMENT. 00104 M01S00006.@000005 +++|* THE COMMAND.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|*
| Line S00010 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00012 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000006 |
Seq # *Modification Id* Act ----------------------------+ 00114 M02S00012.@000006 ---|* ISSUED A *USER* COMMAND, OR BECAUSE IT WAS NOT THE THIRD
| Line S00013 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000006 |
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
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000009 |
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.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00193 M02S00120.@000013 ---| BSSZ 5 00194 M01S00014.@000013 +++| BSSZ DPBL-*+TDSP 00195 M01S00024.@000003 +++| VFD 42/0,18/EFNV
| Line S00025 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000013 |
Seq # *Modification Id* Act ----------------------------+ 00196 M02S00025.@000013 ---| BSSZ 7 00197 M01S00015.@000013 +++| BSSZ EPBL-*+TDSP 00198 M01S00121.stage +++| TITLE MAIN PROGRAM.
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00133.@000005 ---|* A. IF THE FIRST CARD IS NOT *C*JOB THE INPUT
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00213 M02S00134.@000005 ---|* FILE IS COPIED AS IS TO BECOME THE ACTUAL
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00214 M02S00135.@000005 ---|* SUBMIT FILE.
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00215 M02S00136.@000005 ---|*
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00216 M02S00137.@000005 ---|* B. IF THE FIRST CARD IS *C*JOB THE INPUT FILE
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00217 M02S00138.@000005 ---|* WILL BE REFORMATTED TO BECOME THE SUBMIT
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Updated by) | 274l797 |
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 +++|*
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00240 M02S00151.@000005 ---|* EXAMINED FOR CONTROL CARDS.
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00241 M02S00152.@000005 ---|* DEFAULT MODE WITH *C*JOB CARD.
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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.
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00251 M02S00158.@000005 ---|* CONTROL CARD FORMAT *C*TRANS 00252 M01S00022.@000005 +++|* DIRECTIVE FORMAT *C*TRANS 00253 M01S00159.stage +++|*
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00292 M02S00182.@000005 ---|* WITH *C*JOB CARD. 00293 M01S00039.@000005 +++|* WITH *C*JOB DIRECTIVE. 00294 M01S00183.stage +++|*
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00305 M02S00192.@000005 ---|* CONTROL CARD FORMAT *C*PACK
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|*
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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*
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|
| Line S00219 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00229 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000011 |
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
| Line S00249 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00253 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
Seq # *Modification Id* Act ----------------------------+ 00391 M02S00253.@000001 ---| MX3 42 00392 M01S00003.@000001 +++| MX3 24 00393 M01S00254.stage +++| BX6 X3*X1
| Line S00255 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
Seq # *Modification Id* Act ----------------------------+ 00394 M02S00255.@000001 ---| SX3 B1
| Line S00256 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
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
| Line S00260 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
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
| Line S00265 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00412 M02S00265.@000003 ---| SX6 X3-TXOT
| Line S00266 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00273 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
Seq # *Modification Id* Act ----------------------------+ 00422 M02S00273.@000001 ---| SBMB DATA H* SUBMIT COMPLETE. JOBNAME IS*
| Line S00274 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000001 |
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.
| Line S00276 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00282 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000011 |
Seq # *Modification Id* Act ----------------------------+ 00433 M02S00282.@000011 ---| ABT RECALL
| Line S00283 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000011 |
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
| Line S00285 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|*
| Line S00288 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act ----------------------------+ 00442 M02S00288.@000008 ---|* USES X - 1.
| Line S00289 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
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 +++|
| Line S00292 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00299 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act ----------------------------+ 00456 M02S00299.@000008 ---| NG X1,CPF4 IF EOF
| Line S00300 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act ----------------------------+ 00457 M02S00300.@000008 ---| NZ X1,CPF3 IF EOR
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
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 +++|
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act ----------------------------+ 00466 M02S00304.@000008 ---| CPF3 WRITEW F,BUF,X1-BUF
| Line S00305 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
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 +++|
| Line S00308 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act ----------------------------+ 00472 M02S00308.@000008 ---| CPF4 SA1 I CHECK STATUS
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act ----------------------------+ 00473 M02S00309.@000008 ---| LX1 59-9
| Line S00310 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
M03 (Yanked) (Updated by) | @000008 |
Seq # *Modification Id* Act ----------------------------+ 00474 M03S00310.@000008 ---| NG X1,CPF RETURN IF EOI
| Line S00050 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000008 |
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
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00327 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000006 |
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
| Line S00334 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00506 M02S00334.@000003 ---| NZ X3,CSF1 LOOP TO END OF TABLE
| Line S00335 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00507 M02S00335.@000003 ---| SPACE 1
| Line S00336 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00351 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00353 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00356 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00534 M02S00356.@000003 ---| ZR X3,CSF RETURN
| Line S00357 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000006 |
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
| Line S00369 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00372 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00554 M02S00372.@000003 ---| NG X3,CSF READ ALREADY ACTIVE, DISREGARD 2ND /READ
| Line S00061 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000006 |
Seq # *Modification Id* Act ----------------------------+ 00555 M02S00061.@000006 ---| NG X3,CSFX IF READ ALREADY ACTIVE (DISREGARD /READ)
| Line S00373 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000006 |
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
| Line S00374 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00609 M02S00420.@000003 ---| RFM SPACE 4,10 00610 M01S00063.@000003 +++| RFM SPACE 4,40 00611 M01S00421.stage +++|** RFM - REFORMAT FILE.
| Line S00422 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00612 M02S00422.@000005 ---|* RFM PROCESSES THE INPUT FILE WHENEVER A *C*JOB CARD
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00426 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00619 M02S00426.@000005 ---|* AFTER *C*JOB CARD OR *C*NOTRANS* CARD
| Line S00427 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00620 M02S00427.@000005 ---|* EACH UNIT RECORD OF THE INPUT FILE IS CHECKED FOR
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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).
| Line S00432 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00628 M02S00432.@000005 ---|* B. OTHER CONTROL CARDS
| Line S00433 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00443 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
Seq # *Modification Id* Act ----------------------------+ 00641 M02S00443.@000005 ---|* AFTER *C*TRANS CARD HAS BEEN PROCESSED
| Line S00444 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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 +++|
| Line S00461 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00494 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00498 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00540 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00545 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00549 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00572 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00579 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|*
| Line S00582 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00623 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00636 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000007 |
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
| Line S00644 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00861 M02S00644.@000003 ---| EQ SUBEO REGULAR RETURN 00862 M01S00079.@000003 +++| EQ SUBEOX REGULAR RETURN 00863 M01S00645.stage +++|
| Line S00646 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00687 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|*
| Line S00695 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00915 M02S00695.@000003 ---|* USES A - 6
| Line S00696 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00699 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00704 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00927 M02S00704.@000003 ---| EQ SUBUFS
| Line S00705 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|
| Line S00714 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00717 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00943 M02S00717.@000003 ---| EQ SUBUFR 00944 M01S00088.@000003 +++| EQ SUBUFRX RETURN 00945 M01S00718.stage +++| 00946 M01S00719.stage +++| SUBTR BSSZ 1
| Line S00720 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 00947 M02S00720.@000003 ---| TITLE SPECIAL CONTROL STATEMENT PROCESSORS.
| Line S00721 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00730 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00739 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00748 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00760 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00772 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00786 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00800 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00814 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00828 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00100 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000006 |
Seq # *Modification Id* Act ----------------------------+ 01112 M02S00100.@000006 ---| SA1 LCNT DECREMENT LINE COUNT (DON-T COUNT /REWIND)
| Line S00101 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000006 |
Seq # *Modification Id* Act ----------------------------+ 01113 M02S00101.@000006 ---| SX6 X1-1
| Line S00102 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000006 |
Seq # *Modification Id* Act ----------------------------+ 01114 M02S00102.@000006 ---| SA6 A1 01115 M01S00839.stage +++| RJ GLF GET LOCAL FILE NEME
| Line S00840 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01116 M02S00840.@000003 ---| NZ X4,RWD6 IF NOT BLANK,PUT OUT AS DATA
| Line S00103 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000005 |
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
| Line S00879 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01157 M02S00879.@000003 ---| USER SPACE 4
| Line S00880 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|*
| Line S00882 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01162 M02S00882.@000003 ---|* USES X - 0, 1, 2.
| Line S00883 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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 +++|*
| Line S00888 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01170 M02S00888.@000003 ---|* MACROS RECALL, WRITEC.
| Line S00108 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000004 |
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
| Line S00892 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01176 M02S00892.@000003 ---| SA1 USEB
| Line S00893 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
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
| Line S00111 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act ----------------------------+ 01180 M02S00111.@000004 ---| BX1 X0*X1
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
M03 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act ----------------------------+ 01181 M03S00894.@000004 ---| MESSAGE (=C* USER STATEMENT NOT EXECUTED.*),,R
| Line S00895 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
M03 (Yanked) (Updated by) | @000004 |
Seq # *Modification Id* Act ----------------------------+ 01182 M03S00895.@000004 ---| MESSAGE (=C* USER DIRECTIVE INVALID.*),,R
| Line S00112 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000004 |
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
| Line S00114 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000005 |
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 +++|
| Line S00898 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01191 M02S00898.@000003 ---| USE1 MX0 42
| Line S00899 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01192 M02S00899.@000003 ---| SA1 GJSB+UNI SET USER NUMBER IN CONTROL STATEMENT
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01193 M02S00900.@000003 ---| BX1 X0*X1
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01194 M02S00901.@000003 ---| SB2 1R*
| Line S00902 Modification History | |
|---|---|
M01 (Added by) | stage |
M02 (Yanked) (Updated by) | @000003 |
Seq # *Modification Id* Act ----------------------------+ 01195 M02S00902.@000003 ---| SB5 USEA 01196 M01S00115.@000003 +++| USE2 SA2 LCNT CHECK LINE COUNT
| Line S00116 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @000003 |
M02 (Yanked) (Updated by) | @000006 |
Seq # *Modification Id* Act ----------------------------+ 01197 M02S00116.@000006 ---| SX6 X2-3
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/stage.txt · Last modified: by 127.0.0.1