Seq # *Modification Id* Act
----------------------------+
09098 M00S05597.1aj +++| RJM ISD
09099 M00S05598.1aj +++| IST1 LDN 0
09100 M00S05599.1aj +++| ISTA EQU IST1
09101 M00S05600.1aj +++|* LDN 1 (START JOB STEP)
09102 M00S05601.1aj +++| ZJN IST2 IF NOT STARTING JOB STEP
09103 M00S05602.1aj +++| LDN RLJS START JOB STEP
09104 M00S05603.1aj +++| STD CM+1
09105 M00S05604.1aj +++| MONITOR RLMM
09106 M00S05605.1aj +++| IST2 LDD EF
09107 M00S05606.1aj +++| ZJN IST4 IF ERROR FLAG NOT SET
09108 M00S05607.1aj +++| RJM DFM ERROR MESSAGE TO DAYFILE
09109 M00S05608.1aj +++| ISTB LDN PPET SET ERROR FLAG = PP ABORT
| Line S00005 Modification History |
M01 (Added by) | ns2114 |
M02 (Removed by) | 1aj62 |
Seq # *Modification Id* Act
----------------------------+
09110 M02S00005.1aj62 ---|* LDN SYET (*SHELL* ABORT OPTION NOT SET)
| Line S00001 Modification History |
M01 (Added by) | 1aj62 |
Seq # *Modification Id* Act
----------------------------+
09111 M01S00001.1aj62 +++|* LDN SYET (*SHELL* ABORT OR COMMAND LIMIT)
| Line S05609 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09112 M01S05609.v23l617 ---|* UJN IST4 (INVALID *DMP=* CALL)
| Line S00597 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09113 M01S00597.v23l617 +++|* UJN IST4 (INCORRECT *DMP=* CALL)
09114 M00S05610.1aj +++| STD CM+1
09115 M00S05611.1aj +++| MONITOR CEFM
| Line S05612 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09116 M01S05612.v23l617 ---| IST3 LDD CP STORE STATEMENT POINTER
| Line S00598 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09117 M01S00598.v23l617 +++| IST3 LDD CP STORE COMMAND POINTER
09118 M00S05613.1aj +++| ADN CSPW
09119 M00S05614.1aj +++| CWD SP
09120 M00S05615.1aj +++| JMP PPR EXIT TO PP RESIDENT
09121 M00S05616.1aj +++|
09122 M00S05617.1aj +++| IST4 LDD PF CHECK PROGRAM FORMAT
09123 M00S05618.1aj +++| ZJN IST5 IF PROGRAM NOT LOADED
09124 M00S05619.1aj +++| LMN 10
09125 M00S05620.1aj +++| NJN DPP IF NOT PPU PROGRAM
09126 M00S05621.1aj +++| STD CM+1 CLEAR JOB ADVANCEMENT FLAG
09127 M00S05622.1aj +++| ISTC MONITOR JACM
| Line S05623 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09128 M01S05623.v23l617 ---|* UJN IST3 (IF RA+1 *TCS* REQUEST)
| Line S00599 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
09129 M02S00599.273l780 ---|* UJN IST3 (IF *TCS* REQUEST)
09130 M00S05624.1aj +++| UJN IST3 EXIT
09131 M00S05625.1aj +++|
| Line S05626 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09132 M01S05626.v23l617 ---| IST5 LDD CP STORE STATEMENT POINTER
| Line S00600 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09133 M01S00600.v23l617 +++| IST5 LDD CP STORE COMMAND POINTER
09134 M00S05627.1aj +++| ADN CSPW
09135 M00S05628.1aj +++| CWD SP
09136 M00S05629.1aj +++|* UJN DPP DROP PPU
| Line S00461 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09137 M01S00461.ns21000 +++|
09138 M01S00462.ns21000 +++|
09139 M01S00463.ns21000 +++| ERRNG 37+IST-IST1 JUMP OUT OF RANGE
09140 M00S05630.1aj +++| DPP SPACE 4,10
09141 M00S05631.1aj +++|** DPP - DROP PP.
09142 M00S05632.1aj +++|*
09143 M00S05633.1aj +++|* EXIT TO *PPR*.
09144 M00S05634.1aj +++|*
09145 M00S05635.1aj +++|* MACROS MONITOR.
09146 M00S05636.1aj +++|
09147 M00S05637.1aj +++|
09148 M00S05638.1aj +++| DPP LDN DPPS
09149 M00S05639.1aj +++| STD CM+1 CLEAR JOB ADVANCE FLAG
09150 M00S05640.1aj +++| DPPA MONITOR JACM
| Line S05641 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09151 M01S05641.v23l617 ---|* MONITOR DPPM (IF RA+1 *TCS* REQUEST)
| Line S00601 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09152 M01S00601.v23l617 +++|* MONITOR DPPM (IF *TCS* REQUEST)
09153 M00S05642.1aj +++| JMP PPR EXIT TO PP RESIDENT
09154 M00S05643.1aj +++| CPP SPACE 4,10
09155 M00S05644.1aj +++|** CPP - CALL PP PROGRAM.
09156 M00S05645.1aj +++|*
09157 M00S05646.1aj +++|* ENTRY (A) = NAME OF PP PROGRAM TO BE CALLED.
09158 M00S05647.1aj +++|*
09159 M00S05648.1aj +++|* EXIT TO *PPR*.
09160 M00S05649.1aj +++|
09161 M00S05650.1aj +++|
09162 M00S05651.1aj +++| CPP SHN 14 SET PP NAME IN INPUT REGISTER
09163 M00S05652.1aj +++| STD IR
09164 M00S05653.1aj +++| SHN -6
09165 M00S05654.1aj +++| LMD IR+1
09166 M00S05655.1aj +++| SCN 77
09167 M00S05656.1aj +++| LMD IR+1
09168 M00S05657.1aj +++| STD IR+1
09169 M00S05658.1aj +++| LDD IA STORE INPUT REGISTER
09170 M00S05659.1aj +++| CWD IR
09171 M00S05660.1aj +++| JMP PPR EXIT TO PP RESIDENT
| Line S00012 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09172 M01S00012.ns2031 +++|
09173 M01S00013.ns2031 +++|* *CSEB* LOCATED HERE FOR GLOBAL ACCESS.
09174 M01S00014.ns2031 +++|
09175 M01S00015.ns2031 +++| CSEB BSSZ 5 SPECIAL ENTRY POINT WORD
09176 M01S00016.ns2031 +++| SPACE 4
09177 M01S00017.ns2031 +++| EOVL EQU *+5 LOAD ADDRESS FOR *3AM*
09178 M00S05661.1aj +++| CGL SPACE 4,15
| Line S05662 Modification History |
M01 (Removed by) | ns2218 |
Seq # *Modification Id* Act
----------------------------+
09179 M01S05662.ns2218 ---|** CGL - CHECK FOR GLOBAL LIBRARIDS.
| Line S00001 Modification History |
M01 (Added by) | ns2218 |
Seq # *Modification Id* Act
----------------------------+
09180 M01S00001.ns2218 +++|** CGL - CHECK FOR GLOBAL LIBRARIES.
09181 M00S05663.1aj +++|*
09182 M00S05664.1aj +++|* ENTRY (AB - AB+3) = 7 CHARACTER NAME LEFT JUSTIFIED.
09183 M00S05665.1aj +++|*
09184 M00S05666.1aj +++|* EXIT RETURN TO CALLER IF GLOBAL LIBRARY BIT IN *LB1W*
09185 M00S05667.1aj +++|* IS CLEAR OR THE ENTRY IS NOT FOUND.
09186 M00S05668.1aj +++|* TO *SSC* IF PROGRAM RELOCATABLE OR *CCL* PROC.
09187 M00S05669.1aj +++|* TO *SCL* TO CHECK FIELD LENGTH FOR ABS LOAD.
09188 M00S05670.1aj +++|*
09189 M00S05671.1aj +++|* USES CM - CM+4.
09190 M00S05672.1aj +++|*
09191 M00S05673.1aj +++|* CALLS SCL, *3AI*.
09192 M00S05674.1aj +++|*
09193 M00S05675.1aj +++|* MACROS EXECUTE.
09194 M00S05676.1aj +++|
09195 M00S05677.1aj +++|
09196 M00S05678.1aj +++| CGL SUBR ENTRY/EXIT
09197 M00S05679.1aj +++| LDD CP
09198 M00S05680.1aj +++| ADC LB1W
09199 M00S05681.1aj +++| CRD CM GET FIRST LOADER CONTROL WORD
09200 M00S05682.1aj +++| LDD CM
09201 M00S05683.1aj +++| SHN 21-12 CHECK GLOBAL LIBRARY BIT
09202 M00S05684.1aj +++| PJN CGLX IF NO GLOBAL DIRECTORY TO SEARCH
09203 M00S05685.1aj +++| EXECUTE 3AI SEARCH GLOBAL LIBRARY DIRECTORY
09204 M00S05686.1aj +++| LDC ** SYSTEM CALL FROM *3AI/SGD*
09205 M00S05687.1aj +++| CGLA EQU *-1
09206 M00S05688.1aj +++| LJM CGLX ENTRY NOT FOUND, RETURN
09207 M00S05689.1aj +++| CGLB EQU *-1
09208 M00S05690.1aj +++|* LJM SSC IF PROGRAM IS RELOCATABLE OR *CCL*
09209 M00S05691.1aj +++|* RJM SCL PROGRAM IS ABSOLUTE
| Line S00022 Modification History |
M01 (Added by) | 1aj92 |
Seq # *Modification Id* Act
----------------------------+
09210 M01S00022.1aj92 +++|
09211 M01S00023.1aj92 +++|
09212 M01S00024.1aj92 +++| CGLC CON 0,0 RANDOM INDEX SET BY *SGD*
09213 M00S05692.1aj +++| TITLE PROGRAM CALL PROCESSORS.
09214 M00S05693.1aj +++| SPF SPACE 4,15
09215 M00S05694.1aj +++|** SPF - SEARCH FOR PROGRAM FILE.
09216 M00S05695.1aj +++|*
09217 M00S05696.1aj +++|* ENTRY (AB - AB+3) = 7 CHARACTER NAME LEFT JUSTIFIED.
09218 M00S05697.1aj +++|*
09219 M00S05698.1aj +++|* EXIT IF FILE NOT FOUND, RETURN.
| Line S00002 Modification History |
M01 (Added by) | ns2218 |
M02 (Removed by) | 1aj89 |
Seq # *Modification Id* Act
----------------------------+
09220 M02S00002.1aj89 ---|* IF FILE NOT ON MASS STORAGE, RETURN.
09221 M00S05699.1aj +++|* IF FILE FOUND, EXIT TO *SSC*.
| Line S00001 Modification History |
M01 (Added by) | 1aj89 |
Seq # *Modification Id* Act
----------------------------+
09222 M01S00001.1aj89 +++|* TO *ERR1* IF FILE NOT ON MASS STORAGE OR EMPTY.
09223 M00S05700.1aj +++|*
| Line S05701 Modification History |
M01 (Removed by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09224 M01S05701.1aj28 ---|* USES CM - CM+4, FS - FS+4.
| Line S00001 Modification History |
M01 (Added by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09225 M01S00001.1aj28 +++|* USES CM - CM+4, FS - FS+4, CW - CW+5.
09226 M00S05702.1aj +++|*
09227 M00S05703.1aj +++|* CALLS SAF.
09228 M00S05704.1aj +++|*
09229 M00S05705.1aj +++|* MACROS NFA.
09230 M00S05706.1aj +++|
| Line S00002 Modification History |
M01 (Added by) | 1aj89 |
Seq # *Modification Id* Act
----------------------------+
09231 M01S00002.1aj89 +++|
09232 M01S00003.1aj89 +++| SPF2 LDC /ERR/EM27 * PROGRAM FILE EMPTY.*
09233 M01S00004.1aj89 +++| LJM ERR1 EXIT TO PROCESS ERROR
09234 M00S05707.1aj +++|
09235 M00S05708.1aj +++| SPF SUBR ENTRY/EXIT
09236 M00S05709.1aj +++| RJM SAF SEARCH FOR ASSIGNED FILE
09237 M00S05710.1aj +++| ZJN SPFX IF NOT FOUND
| Line S05711 Modification History |
M01 (Removed by) | 1aj13 |
Seq # *Modification Id* Act
----------------------------+
09238 M01S05711.1aj13 ---| LDC UJNI+SCL5-SCLD
09239 M01S05712.1aj13 ---| STM SCLD DONT ALLOW CHANGE OF CRACKING PARAMETER
09240 M00S05713.1aj +++| NFA FA,R READ FNT
09241 M00S05714.1aj +++| CRD FS
| Line S00002 Modification History |
M01 (Added by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09242 M01S00002.1aj28 +++| ADN FSTL SET EQUIPMENT AND FIRST TRACK
09243 M01S00003.1aj28 +++| CRD CW+1
| Line S00003 Modification History |
M01 (Added by) | ns2218 |
Seq # *Modification Id* Act
----------------------------+
09244 M01S00003.ns2218 +++| LDD CW+1 CHECK FOR FILE ON MASS STORAGE
09245 M01S00004.ns2218 +++| SFA EST
09246 M01S00005.ns2218 +++| ADK EQDE
09247 M01S00006.ns2218 +++| CRD CM
09248 M01S00007.ns2218 +++| LDD CM
09249 M01S00008.ns2218 +++| SHN 21-13
| Line S00009 Modification History |
M01 (Added by) | ns2218 |
M02 (Removed by) | 1aj89 |
Seq # *Modification Id* Act
----------------------------+
09250 M02S00009.1aj89 ---| PJN SPFX IF NOT MASS STORAGE
| Line S00005 Modification History |
M01 (Added by) | 1aj89 |
Seq # *Modification Id* Act
----------------------------+
09251 M01S00005.1aj89 +++| PJN SPF2 IF NOT MASS STORAGE
09252 M01S00006.1aj89 +++| LDD CW+1+2
09253 M01S00007.1aj89 +++| ZJN SPF2 IF NO CURRENT TRACK
09254 M00S05715.1aj +++| LDD FS+4
09255 M00S05716.1aj +++| LPN 77
| Line S05717 Modification History |
M01 (Removed by) | 1aj13 |
Seq # *Modification Id* Act
----------------------------+
09256 M01S05717.1aj13 ---| LMN AAST
| Line S00001 Modification History |
M01 (Added by) | 1aj13 |
Seq # *Modification Id* Act
----------------------------+
09257 M01S00001.1aj13 +++| LMN UPST
09258 M01S00002.1aj13 +++| ZJN SPFX IF USER FILE PRIVACY SET
09259 M01S00003.1aj13 +++| LMN AAST&UPST
09260 M00S05718.1aj +++| NJN SPF1 IF NOT APPLICATION ACCOUNTING FILE
09261 M00S05719.1aj +++| LDD CP READ APPLICATION ACCOUNTING CONTROL WORD
09262 M00S05720.1aj +++| ADN FPFW
09263 M00S05721.1aj +++| CRD CM
09264 M00S05722.1aj +++| LDD CM
09265 M00S05723.1aj +++| ADC 400 SET VALIDATED FOR APPLICATION ACCOUNTING
09266 M00S05724.1aj +++| STD CM
09267 M00S05725.1aj +++| LDD CP REWRITE APPLICATION CONTROL WORD
09268 M00S05726.1aj +++| ADN FPFW
09269 M00S05727.1aj +++| CWD CM
| Line S05728 Modification History |
M01 (Removed by) | 1aj13 |
Seq # *Modification Id* Act
----------------------------+
09270 M01S05728.1aj13 ---| SPF1 LDN LDR= SET SYSTEM CALL = *LDR=*
| Line S00004 Modification History |
M01 (Added by) | 1aj13 |
Seq # *Modification Id* Act
----------------------------+
09271 M01S00004.1aj13 +++| SPF1 LDC UJNI+SCL5-SCLD NO CHANGE IN PARAMETER CRACKING
09272 M01S00005.1aj13 +++| STM SCLD
| Line S00464 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09273 M02S00464.1aj28 ---| LDC LDNI+0 ENABLE *SCL*
09274 M02S00465.1aj28 ---| STM SCLE
| Line S00006 Modification History |
M01 (Added by) | 1aj13 |
Seq # *Modification Id* Act
----------------------------+
09275 M01S00006.1aj13 +++| LDN LDR= SET SYSTEM CALL = *LDR=*
| Line S05729 Modification History |
M01 (Removed by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09276 M01S05729.1aj28 ---| LJM SSC SET SYSTEM CALL
| Line S00004 Modification History |
M01 (Added by) | 1aj28 |
M02 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
09277 M02S00004.242l642 ---| SFPA LJM SSC SET SYSTEM CALL
| Line S00368 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
09278 M01S00368.242l642 +++| SPFA LJM SSC SET SYSTEM CALL
| Line S00005 Modification History |
M01 (Added by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09279 M01S00005.1aj28 +++|* PSNI (*SHELL* FILE LOAD)
09280 M01S00006.1aj28 +++|
09281 M01S00007.1aj28 +++| EXECUTE 3AE LOAD COPY ROUTINES
| Line S00369 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
09282 M02S00369.273l780 ---| LDC 0
09283 M02S00370.273l780 ---|* LDC 1 (JOB ADVANCE NOT SET)
09284 M02S00371.273l780 ---| SPFB EQU *-1
09285 M02S00372.273l780 ---| STM /3AE/MSRA
| Line S00008 Modification History |
M01 (Added by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09286 M01S00008.1aj28 +++| LDC 6000 SET FL CONTROL TO JOB STEP FL
09287 M01S00009.1aj28 +++| STD CW
09288 M01S00010.1aj28 +++| LDN 0 SET LOCAL FILE LOAD
09289 M01S00011.1aj28 +++| STM /3AE/SLPD
09290 M01S00012.1aj28 +++| STD FS
09291 M01S00013.1aj28 +++| LDN FSMS
09292 M01S00014.1aj28 +++| STD CW+4
09293 M01S00015.1aj28 +++| LDD CW+2
09294 M01S00016.1aj28 +++| STD FS+4
09295 M01S00017.1aj28 +++| LDC /3AE/LDU SET CALL TO *LDU*
09296 M01S00018.1aj28 +++| STM BCPB
| Line S00019 Modification History |
M01 (Added by) | 1aj28 |
M02 (Removed by) | 1aj28a |
Seq # *Modification Id* Act
----------------------------+
09297 M02S00019.1aj28a ---| SETMS READ
| Line S00020 Modification History |
M01 (Added by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09298 M01S00020.1aj28 +++| LJM SCL7 LOAD PROGRAM
09299 M00S05730.1aj +++| SCL SPACE 4,15
09300 M00S05731.1aj +++|** SCL - SEARCH CENTRAL LIBRARY.
09301 M00S05732.1aj +++|*
09302 M00S05733.1aj +++|* ENTRY (AB - AB+3) = 7 CHARACTER NAME LEFT JUSTIFIED.
09303 M00S05734.1aj +++|*
09304 M00S05735.1aj +++|* EXIT RETURN IF PROGRAM NOT FOUND.
09305 M00S05736.1aj +++|* (FA) = 0.
09306 M00S05737.1aj +++|* TO *BCP* IF FOUND.
09307 M00S05738.1aj +++|* TO *SSC* IF SYSTEM CALL.
09308 M00S05739.1aj +++|*
09309 M00S05740.1aj +++|* ERROR TO *ERR1* IF RFL=/MFL= .GT. MFL.
| Line S05741 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09310 M01S05741.v23l617 ---|* TO *ERR8* IF IMPROPER VALIDATION.
| Line S00602 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09311 M01S00602.v23l617 +++|* TO *ERR8* IF CHARGE REQUIRED.
09312 M00S05742.1aj +++|*
09313 M00S05743.1aj +++|* USES FA, CM - CM+4, CN - CN+4, CW - CW+4, AB - AB+4.
09314 M00S05744.1aj +++|*
09315 M00S05745.1aj +++|* CALLS CLD, CSE, *3AE*.
09316 M00S05746.1aj +++|*
09317 M00S05747.1aj +++|* MACROS EXECUTE.
09318 M00S05748.1aj +++|
09319 M00S05749.1aj +++|
09320 M00S05750.1aj +++| SCL14 LDM TCSA
| Line S05751 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09321 M01S05751.v23l617 ---| ZJN SCLX IF NO VALIDATION REQUIRED
| Line S05752 Modification History |
M01 (Removed by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09322 M02S05752.v23l617 ---| LJM ERR8 PROCESS IMPROPER VALIDATION
| Line S00018 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09323 M02S00018.v23l617 ---| LDC /ERR/EM06 * IMPROPER VALIDATION.*
| Line S00603 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09324 M01S00603.v23l617 +++| ZJN SCLX IF NO CHARGE REQUIRED
| Line S00604 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09325 M02S00604.1aj90 ---| LDC /ERR/EM06 * CHARGE COMMAND REQUIRED.*
| Line S00001 Modification History |
M01 (Added by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09326 M01S00001.1aj90 +++| SCL14.1 LDC /ERR/EM06 * CHARGE COMMAND REQUIRED.*
| Line S00019 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09327 M01S00019.ns2031 +++| LJM ERR1 PROCESS ERROR
09328 M00S05753.1aj +++|
09329 M00S05754.1aj +++| SCL15 LDN ZERL CLEAR SPECIAL CALL
09330 M00S05755.1aj +++| CRD CM
09331 M00S05756.1aj +++| LDD CP
09332 M00S05757.1aj +++| ADC SPCW
09333 M00S05758.1aj +++| CWD CM
09334 M00S05759.1aj +++|
09335 M00S05760.1aj +++| SCL SUBR ENTRY/EXIT
09336 M00S05761.1aj +++| EXECUTE 3AE LOAD COPY ROUTINES
| Line S00373 Modification History |
M01 (Added by) | 242l642 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
09337 M02S00373.273l780 ---| LDM SPFB GET JOB ADVANCE FLAG
09338 M02S00374.273l780 ---| STM /3AE/MSRA
| Line S05762 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09339 M01S05762.ns21000 ---| LDN 0 CLEAR FNT ORDINAL
| Line S00466 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09340 M01S00466.ns21000 +++| SCLE LDN 0 CLEAR FNT ORDINAL
09341 M01S00467.ns21000 +++|* UJN SCLX (*SHELL* SYSTEM FILE LOAD DISABLED)
09342 M00S05763.1aj +++| STD FA
09343 M00S05764.1aj +++|* LJM SCL7 SET BY *3AI*
09344 M00S05765.1aj +++| SCLA EQU *-2
09345 M00S05766.1aj +++| RJM /3AE/CLD SEARCH CLD
09346 M00S05767.1aj +++| SCLB ZJN SCL14 IF NOT FOUND
| Line S05768 Modification History |
M01 (Removed by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09347 M01S05768.ns2050 ---|* ZJN SCLX (TERMINATE IF POSSIBLE CONTINUATION
| Line S00001 Modification History |
M01 (Added by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09348 M01S00001.ns2050 +++|* ZJN SCLX (TERMINATE IF POSSIBLE CONTINUATION)
| Line S05769 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09349 M01S05769.v23l617 ---|* CONTROL CARD AND *ARG=* NOT PRESENT)
| Line S00605 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09350 M01S00605.v23l617 +++|* COMMAND AND *ARG=* NOT PRESENT)
09351 M00S05770.1aj +++|* ZJN SCL15 (*DMP=* PROGRAM INITIALIZED)
09352 M00S05771.1aj +++| CRD CW READ CONTROL WORD
09353 M00S05772.1aj +++| SBN 1
09354 M00S05773.1aj +++| CRD CN
| Line S00025 Modification History |
M01 (Added by) | 1aj92 |
Seq # *Modification Id* Act
----------------------------+
09355 M01S00025.1aj92 +++| LDC UJNI+/3AE/SPF4.2-/3AE/SPFB
09356 M01S00026.1aj92 +++| STM /3AE/SPFB INDICATE SYSTEM FILE LOAD
09357 M00S05774.1aj +++| LDD MA SET ENTRY POINT NAME
09358 M00S05775.1aj +++| CWD AB
09359 M00S05776.1aj +++| CRM /3AE/CL,ON
09360 M00S05777.1aj +++| LDD CW+2 SET ALTERNATE EQUIPMENT
09361 M00S05778.1aj +++| STD T5
09362 M00S05779.1aj +++| LDD CN+3 SET ADDRESS ON SYSTEM FILE
09363 M00S05780.1aj +++| STM /3AE/CL+4
09364 M00S05781.1aj +++| LDD CN+4
09365 M00S05782.1aj +++| STM /3AE/CL+5
09366 M00S05783.1aj +++| LDD CW+1
09367 M00S05784.1aj +++| LPN 37
09368 M00S05785.1aj +++| LMN RLRT
09369 M00S05786.1aj +++| NJN SCL1 IF NOT RELOCATABLE ROUTINE
09370 M00S05787.1aj +++| LDN SLDR SET SYSTEM CALL = *SLDR=*
| Line S05788 Modification History |
M01 (Removed by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09371 M01S05788.ns2050 ---| UJN SCL6 SAVE SYSTEM CALL REQUEST
| Line S00002 Modification History |
M01 (Added by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09372 M01S00002.ns2050 +++| UJN SCL1.1 CONTINUE
09373 M00S05789.1aj +++|
| Line S05790 Modification History |
M01 (Removed by) | 1aj106 |
Seq # *Modification Id* Act
----------------------------+
09374 M01S05790.1aj106 ---| SCL1 LMN CLRT&RLRT
| Line S00002 Modification History |
M01 (Added by) | 1aj106 |
Seq # *Modification Id* Act
----------------------------+
09375 M01S00002.1aj106 +++| SCL1 LMN PRRT&RLRT
09376 M00S05791.1aj +++| NJN SCL2 IF NOT A *CCL* PROCEDURE
09377 M00S05792.1aj +++| LDN BEGI SET SYSTEM CALL = *BEGIN*
| Line S00001 Modification History |
M01 (Added by) | 1aj55 |
Seq # *Modification Id* Act
----------------------------+
09378 M01S00001.1aj55 +++| UJN SCL1.2 CONTINUE
09379 M01S00002.1aj55 +++|
| Line S05793 Modification History |
M01 (Removed by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09380 M01S05793.ns2050 ---| UJN SCL6 SAVE SYSTEM CALL REQUEST
| Line S00003 Modification History |
M01 (Added by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09381 M01S00003.ns2050 +++| SCL1.1 STD T0
09382 M01S00004.ns2050 +++| LDM SCLC
| Line S00005 Modification History |
M01 (Added by) | ns2050 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09383 M02S00005.v23l617 ---| ZJN SCL3 IF POSSIBLE CONTINUATION CONTROL CARD
| Line S00606 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09384 M01S00606.v23l617 +++| ZJN SCL3 IF POSSIBLE CONTINUATION COMMAND
| Line S00006 Modification History |
M01 (Added by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09385 M01S00006.ns2050 +++| LDD T0
| Line S00007 Modification History |
M01 (Added by) | ns2050 |
M02 (Removed by) | 1aj55 |
Seq # *Modification Id* Act
----------------------------+
09386 M02S00007.1aj55 ---| LJM SSC SET SYSTEM CALL
| Line S00003 Modification History |
M01 (Added by) | 1aj55 |
Seq # *Modification Id* Act
----------------------------+
09387 M01S00003.1aj55 +++| SCL1.2 LJM SSC SET SYSTEM CALL
09388 M00S05794.1aj +++|
09389 M00S05795.1aj +++| SCL2 RJM CSE CHECK FOR SPECIAL ENTRY POINTS
| Line S05796 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09390 M01S05796.v23l617 ---| SCLC UJN SCL4 NO CONTINUATION CARD
09391 M01S05797.v23l617 ---|* PSN (IF CONTINUATION CONTROL CARD POSSIBLE)
| Line S00607 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09392 M01S00607.v23l617 +++| SCLC UJN SCL4 NO CONTINUATION COMMAND
09393 M01S00608.v23l617 +++|* PSN (IF CONTINUATION COMMAND POSSIBLE)
09394 M00S05798.1aj +++| LDM CSEB
09395 M00S05799.1aj +++| SHN 21-5
09396 M00S05800.1aj +++| MJN SCL4 IF *ARG=* PROCESS
09397 M00S05801.1aj +++| SCL3 LJM SCLX RETURN
09398 M00S05802.1aj +++|
09399 M00S05803.1aj +++| SCL4 LDD CW+1
09400 M00S05804.1aj +++| SHN 21-11
09401 M00S05805.1aj +++| MJN SCL5 IF SCOPE FORMAT
09402 M00S05806.1aj +++| SCLD AOM ARGA SET KRONOS FORMAT
09403 M00S05807.1aj +++|* UJN SCL5 (IF FILE LOAD)
| Line S05808 Modification History |
M01 (Removed by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09404 M01S05808.ns2050 ---| SCL5 LDD CW+1
09405 M01S05809.ns2050 ---| SHN 21-12
09406 M01S05810.ns2050 ---| MJN SCL7 IF PROGRAM CM RESIDENT
09407 M01S05811.ns2050 ---| LDD CW+3 CHECK TRACK
09408 M01S05812.ns2050 ---| SHN 6
09409 M01S05813.ns2050 ---| MJN SCL7 IF NOT SPECIAL FORMAT
09410 M01S05814.ns2050 ---| LDN CALL SET SYSTEM CALL = *CALL*
09411 M01S05815.ns2050 ---| SCL6 STD T0 SAVE SYSTEM CALL REQUEST
09412 M01S05816.ns2050 ---| LDM SCLC
09413 M01S05817.ns2050 ---| ZJN SCL3 IF CONTINUATION CONTROL CARD POSSIBLE
09414 M01S05818.ns2050 ---| LDD T0
09415 M01S05819.ns2050 ---| LJM SSC SET SYSTEM CALL
09416 M01S05820.ns2050 ---|
| Line S00008 Modification History |
M01 (Added by) | ns2050 |
Seq # *Modification Id* Act
----------------------------+
09417 M01S00008.ns2050 +++|
09418 M01S00009.ns2050 +++| SCL5 BSS 0
| Line S05821 Modification History |
M01 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09419 M01S05821.1aj90 ---| SCL7 LDD CP READ FL CONTROL WORD
| Line S00002 Modification History |
M01 (Added by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09420 M01S00002.1aj90 +++| SCL7 LDM TCSA CHECK CHARGE REQUIRED
09421 M01S00003.1aj90 +++| NJP SCL14.1 IF CHARGE REQUIRED
09422 M01S00004.1aj90 +++| LDD CP READ FL CONTROL WORD
09423 M00S05822.1aj +++| ADN FLCW
09424 M00S05823.1aj +++| CRD CM
09425 M00S05824.1aj +++| LDD CM+1 CLEAR ONE JOB STEP RFL FLAG
09426 M00S05825.1aj +++| LPC 3777
09427 M00S05826.1aj +++| STD CM+1
09428 M00S05827.1aj +++| LDD CW CHECK CLD FL SPECIFICATION
09429 M00S05828.1aj +++| NJN SCL8 IF FL SPECIFIED
09430 M00S05829.1aj +++| LJM BCP BEGIN CENTRAL PROGRAM
09431 M00S05830.1aj +++|
| Line S05831 Modification History |
M01 (Removed by) | 1aj52 |
Seq # *Modification Id* Act
----------------------------+
09432 M01S05831.1aj52 ---| SCL8 LPC 1777 SET FL REQUEST
| Line S00001 Modification History |
M01 (Added by) | 1aj52 |
Seq # *Modification Id* Act
----------------------------+
09433 M01S00001.1aj52 +++| SCL8 LPC 3777
09434 M00S05832.1aj +++| STM RQSD
09435 M00S05833.1aj +++| LDD CW CHECK FL REQUEST TYPE
09436 M00S05834.1aj +++| SHN 21-13
| Line S05835 Modification History |
M01 (Removed by) | 1aj52 |
Seq # *Modification Id* Act
----------------------------+
09437 M01S05835.1aj52 ---| PJN SCL13 IF RFL=/DEFL
09438 M01S05836.1aj52 ---| SHN 1
| Line S00002 Modification History |
M01 (Added by) | 1aj52 |
Seq # *Modification Id* Act
----------------------------+
09439 M01S00002.1aj52 +++| PJN SCL11.1 IF RFL=/DEFL
09440 M01S00003.1aj52 +++| LDD CW SET MFL= VALUE
09441 M01S00004.1aj52 +++| LPC 1777
09442 M01S00005.1aj52 +++| STM RQSD
09443 M01S00006.1aj52 +++| LDD CW
09444 M01S00007.1aj52 +++| SHN 21-12
09445 M00S05837.1aj +++| PJN SCL11 IF USING MFL= DEFINED FIELD LENGTH
09446 M00S05838.1aj +++| LDD CW+1 CHECK 5400 TABLE FLAG
09447 M00S05839.1aj +++| SHN 21-7
09448 M00S05840.1aj +++| PJN SCL9 IF NO 5400 TABLE CHECK
09449 M00S05841.1aj +++| LDC ZJNI+BCP7-BCPC
09450 M00S05842.1aj +++| STM BCPC SET 54 TABLE CHECK INSTRUCTION
| Line S05843 Modification History |
M01 (Removed by) | 1aj110 |
Seq # *Modification Id* Act
----------------------------+
09451 M01S05843.1aj110 ---| LDD CM+1
09452 M01S05844.1aj110 ---| NJN SCL10 IF RFL SPECIFIED
| Line S05845 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09453 M01S05845.v23l617 ---| SCL9 LDD CW CHECK LAST JOB CARD FIELD LENGTH
| Line S00609 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09454 M01S00609.v23l617 +++| SCL9 LDD CW CHECK LAST JOB COMMAND FIELD LENGTH
09455 M00S05846.1aj +++| LPC 1777
09456 M00S05847.1aj +++| SBD CM+1
| Line S05848 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09457 M01S05848.v23l617 ---| PJN SCL13 IF LAST JOB CARD FL .LT. MFL=
| Line S00610 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09458 M01S00610.v23l617 +++| PJN SCL13 IF LAST JOB COMMAND FL .LT. MFL=
| Line S05849 Modification History |
M01 (Removed by) | 1aj110 |
Seq # *Modification Id* Act
----------------------------+
09459 M01S05849.1aj110 ---| SCL10 LDD CM+1
| Line S00001 Modification History |
M01 (Added by) | 1aj110 |
Seq # *Modification Id* Act
----------------------------+
09460 M01S00001.1aj110 +++| LDD CM+1
| Line S05850 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09461 M01S05850.v23l617 ---| UJN SCL12 SET LAST JOB CARD FL
| Line S00611 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09462 M01S00611.v23l617 +++| UJN SCL12 SET LAST JOB COMMAND FL
09463 M00S05851.1aj +++|
09464 M00S05852.1aj +++| SCL11 LDD CW SET MFL= FL
09465 M00S05853.1aj +++| LPC 1777
09466 M00S05854.1aj +++| SBD FL
| Line S05855 Modification History |
M01 (Removed by) | 1aj52 |
Seq # *Modification Id* Act
----------------------------+
09467 M01S05855.1aj52 ---| PJN SCL13 IF CURRENT FL .LT. MINIMUM FL
| Line S00008 Modification History |
M01 (Added by) | 1aj52 |
Seq # *Modification Id* Act
----------------------------+
09468 M01S00008.1aj52 +++| SCL11.1 PJN SCL13 IF LAST JOB CARD FL .LT. MFL=
09469 M00S05856.1aj +++| LDD FL
| Line S05857 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09470 M01S05857.v23l617 ---| SCL12 STM RQSD SET CURRENT FL/LAST JOB CARD FL
| Line S00612 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09471 M01S00612.v23l617 +++| SCL12 STM RQSD SET CURRENT FL/LAST JOB COMMAND FL
09472 M00S05858.1aj +++| SCL13 LDD CM CHECK REQUESTED FL AGAINST MFL
09473 M00S05859.1aj +++| SBM RQSD
09474 M00S05860.1aj +++| PJN BCP IF REQUESTED FL .LE. MFL
| Line S05861 Modification History |
M01 (Removed by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09475 M01S05861.ns2031 ---| LDC =C* FL BEYOND MFL.*
| Line S00020 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09476 M01S00020.ns2031 +++| LDC /ERR/EM01 * FL BEYOND MFL.*
09477 M00S05862.1aj +++| LJM ERR1 PROCESS ERROR
09478 M00S05863.1aj +++|
| Line S00468 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09479 M01S00468.ns21000 +++| ERRNG 37+SCLX-SCLE JUMP OUT OF RANGE
09480 M00S05864.1aj +++| ERRNG 37+SCL15-SCLB IF JUMP OUT OF RANGE
09481 M00S05865.1aj +++| ERRNG 37+SCLX-SCLB IF JUMP OUT OF RANGE
09482 M00S05866.1aj +++| ERRNG 37+SCL5-SCLD IF JUMP OUT OF RANGE
09483 M00S05867.1aj +++| BCP SPACE 4,15
09484 M00S05868.1aj +++|** BCP - BEGIN CENTRAL PROGRAM.
09485 M00S05869.1aj +++|*
09486 M00S05870.1aj +++|* ENTRY (FA) = FST ADDRESS.
09487 M00S05871.1aj +++|* (AB - AB+4) = PROGRAM NAME.
09488 M00S05872.1aj +++|* (CW - CW+4) = LIBRARY CONTROL WORD.
09489 M00S05873.1aj +++|* (BCPJ - BCPJ+1) = JSN (FOR *0AU*).
09490 M00S05874.1aj +++|* (BCPJ+4) = 6/SC,6/0 (FOR *0AU*).
09491 M00S05875.1aj +++|*
09492 M00S05876.1aj +++|* EXIT TO *IST* AT COMPLETION OF LOAD.
09493 M00S05877.1aj +++|* TO */3AF/SDP* IF TO INITIATE *DMP=* PROGRAM.
09494 M00S05878.1aj +++|*
| Line S05879 Modification History |
M01 (Removed by) | 1aj14 |
Seq # *Modification Id* Act
----------------------------+
09495 M01S05879.1aj14 ---|* ERROR TO *ERR1* IF LOAD ERROR.
| Line S00001 Modification History |
M01 (Added by) | 1aj14 |
Seq # *Modification Id* Act
----------------------------+
09496 M01S00001.1aj14 +++|* ERROR TO *ERR1* IF PREVIOUS ERROR PENDING.
09497 M00S05880.1aj +++|*
| Line S05881 Modification History |
M01 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09498 M01S05881.ns2719 ---|* USES T1, CM - CM+4, CN - CN+4, AB - AB+4.
| Line S00026 Modification History |
M01 (Added by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09499 M01S00026.ns2719 +++|* USES CA, IR+4, T1, T2, T7, AB - AB+4, CM - CM+4, CN - CN+4.
09500 M00S05882.1aj +++|*
09501 M00S05883.1aj +++|* CALLS ARG, ASN, CAT, CLX, CST, /3AE/LCP, /3AE/LDU,
| Line S05884 Modification History |
M01 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09502 M01S05884.ns2719 ---|* RQS, STK, /3AF/TCA, *0AU*, *3AF*, *3AG*, *3AH*.
| Line S00027 Modification History |
M01 (Added by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09503 M01S00027.ns2719 +++|* RQS, STK, /3AF/TCA, *0AU*, *3AF*, *3AH*.
09504 M00S05885.1aj +++|*
09505 M00S05886.1aj +++|* MACROS EXECUTE.
09506 M00S05887.1aj +++|
09507 M00S05888.1aj +++|
| Line S05889 Modification History |
M01 (Removed by) | 1aj14 |
Seq # *Modification Id* Act
----------------------------+
09508 M01S05889.1aj14 ---| BCP RJM RQS REQUEST STORAGE
| Line S00002 Modification History |
M01 (Added by) | 1aj14 |
Seq # *Modification Id* Act
----------------------------+
09509 M01S00002.1aj14 +++| BCP BSS 0 ENTRY
| Line S00003 Modification History |
M01 (Added by) | 1aj14 |
M02 (Removed by) | ns2388 |
Seq # *Modification Id* Act
----------------------------+
09510 M02S00003.ns2388 ---| LDC ** CHECK PREVIOUS ERROR CONDITION
09511 M02S00004.ns2388 ---| BCPM EQU *-1
09512 M02S00005.ns2388 ---| ZJN BCP0 IF NO ERROR HAS OCCURED
09513 M02S00006.ns2388 ---| LJM ERR1 PROCESS ERROR
09514 M02S00007.ns2388 ---|
09515 M02S00008.ns2388 ---| BCP0 RJM RQS REQUEST STORAGE
| Line S00076 Modification History |
M01 (Added by) | ns2388 |
Seq # *Modification Id* Act
----------------------------+
09516 M01S00076.ns2388 +++| RJM RQS REQUEST STORAGE
09517 M00S05890.1aj +++| LDN ZERL CLEAR *CYBER LOADER* FIELDS
09518 M00S05891.1aj +++| CRD CM
09519 M00S05892.1aj +++| LDD RA
09520 M00S05893.1aj +++| SHN 6
09521 M00S05894.1aj +++| ADN LWPR
09522 M00S05895.1aj +++| CWD CM
09523 M00S05896.1aj +++| ADN FWPR-LWPR
09524 M00S05897.1aj +++| CWD CM
09525 M00S05898.1aj +++| LDM CSEB
09526 M00S05899.1aj +++| SHN 21-4
09527 M00S05900.1aj +++| PJN BCP1 IF NOT *DMP=* ENTRY POINT
09528 M00S05901.1aj +++| BCPA LJM BCP4 LOAD CENTRAL PROGRAM
| Line S05902 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09529 M01S05902.v23l617 ---|* LJM BCP3 (CONTROL CARD LOAD AFTER *DMP=* ROLLOUT)
| Line S00613 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09530 M01S00613.v23l617 +++|* LJM BCP3 (COMMAND LOAD AFTER *DMP=* ROLLOUT)
09531 M00S05903.1aj +++|
09532 M00S05904.1aj +++|* ENTER PRELIMINARY PROGRAM DATA.
09533 M00S05905.1aj +++|
09534 M00S05906.1aj +++| BCP1 LDD IR+2
09535 M00S05907.1aj +++| LMN 2
09536 M00S05908.1aj +++| NJN BCP2 IF NOT *DIS* CALL
09537 M00S05909.1aj +++| LDD IR+4 SET *RSS* BIT
09538 M00S05910.1aj +++| LPN 1
09539 M00S05911.1aj +++| ADN 2 SET *DIS* BIT
09540 M00S05912.1aj +++| SHN 6
09541 M00S05913.1aj +++| STM /3AE/SLPE
09542 M00S05914.1aj +++| BCP2 LDD AB+4 CHECK LOADER CALL
09543 M00S05915.1aj +++| ZJN BCP3 IF NOT LOADER CALL
09544 M00S05916.1aj +++| LDD KA ASSEMBLE PROGRAM NAME
09545 M00S05917.1aj +++| STD CA
09546 M00S05918.1aj +++| RJM ASN
09547 M00S05919.1aj +++| LDD IR+4
09548 M00S05920.1aj +++| SCN 1 CLEAR *RSS* FLAG
09549 M00S05921.1aj +++| STD IR+4
09550 M00S05922.1aj +++| BCP3 LDD RA STORE PROGRAM NAME
09551 M00S05923.1aj +++| SHN 6
09552 M00S05924.1aj +++| ADN PGNR
09553 M00S05925.1aj +++| CWD AB
09554 M00S05926.1aj +++| UJN BCP5 LOAD CENTRAL PROGRAM
09555 M00S05927.1aj +++|
09556 M00S05928.1aj +++|* LOAD PROGRAM.
09557 M00S05929.1aj +++|
| Line S05930 Modification History |
M01 (Removed by) | ns2578 |
Seq # *Modification Id* Act
----------------------------+
09558 M01S05930.ns2578 ---| BCP4 LDN ZERL CLEAR PROGRAM NAME
09559 M01S05931.ns2578 ---| CRD CM
| Line S00001 Modification History |
M01 (Added by) | ns2578 |
Seq # *Modification Id* Act
----------------------------+
09560 M01S00001.ns2578 +++| BCP4 LDM CSEB+1 CHECK FOR *DPA=* ENTRY POINT
09561 M01S00002.ns2578 +++| SHN 21-13
09562 M01S00003.ns2578 +++| PJN BCP4.1 IF NO ARGUMENTS EXPECTED
09563 M00S05932.1aj +++| LDD RA
| Line S00004 Modification History |
M01 (Added by) | ns2578 |
Seq # *Modification Id* Act
----------------------------+
09564 M01S00004.ns2578 +++| SHN 6
09565 M01S00005.ns2578 +++| ADN PGNR
09566 M01S00006.ns2578 +++| CRD CN
09567 M01S00007.ns2578 +++| LDD CN+4 SAVE ARGUMENT COUNT
09568 M01S00008.ns2578 +++| STD CM+4
09569 M01S00009.ns2578 +++| BCP4.1 LDD RA
09570 M00S05933.1aj +++| SHN 6
09571 M00S05934.1aj +++| ADN PGNR
09572 M00S05935.1aj +++| CWD CM
09573 M00S05936.1aj +++| BCP5 RJM /3AE/LCP LOAD CENTRAL PROGRAM
09574 M00S05937.1aj +++| BCPB EQU *-1
| Line S05938 Modification History |
M01 (Removed by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09575 M01S05938.1aj28 ---|* RJM /3AE/LDU (LOAD FROM USER LIBRARY)
| Line S00021 Modification History |
M01 (Added by) | 1aj28 |
Seq # *Modification Id* Act
----------------------------+
09576 M01S00021.1aj28 +++|* RJM /3AE/LDU (USER LIBRARY OR LOCAL *SHELL* FILE LOAD)
09577 M00S05939.1aj +++| NJN BCP6 IF LOAD ERROR
09578 M00S05940.1aj +++| LDM /3AE/SPFA
09579 M00S05941.1aj +++| BCPC UJN BCP7 NO 54 TABLE CHECK
09580 M00S05942.1aj +++|* ZJN BCP7 (IF NO MINFL IN 54 TABLE)
09581 M00S05943.1aj +++| SBD FL
09582 M00S05944.1aj +++| SBN 1
09583 M00S05945.1aj +++| MJN BCP7 IF MINFL .LE. FL
| Line S05946 Modification History |
M01 (Removed by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09584 M01S05946.ns2031 ---| LDC =C* FL TOO SHORT FOR PROGRAM.*
| Line S00021 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09585 M01S00021.ns2031 +++| LDC /ERR/EM02 * FL TOO SHORT FOR PROGRAM.*
09586 M00S05947.1aj +++| BCP6 LJM ERR1 PROCESS ERROR
09587 M00S05948.1aj +++|
09588 M00S05949.1aj +++| BCP7 LDD CP CLEAR ONE JOB STEP RFL IN TXOT JOBS
09589 M00S05950.1aj +++| ADN FLCW
09590 M00S05951.1aj +++| CRD CN
09591 M00S05952.1aj +++| STD T1
09592 M00S05953.1aj +++| LDD CN+1
09593 M00S05954.1aj +++| SHN 21-13
09594 M00S05955.1aj +++| PJN BCP8 IF NOT ONE JOB STEP RFL
09595 M00S05956.1aj +++| LDN 0 CLEAR ONE JOB STEP RFL
09596 M00S05957.1aj +++| STD CN+1
09597 M00S05958.1aj +++| LDD T1
09598 M00S05959.1aj +++| CWD CN
09599 M00S05960.1aj +++|
09600 M00S05961.1aj +++|* CLEAR EXCHANGE PACKAGE AND ENTER ARGUMENTS.
09601 M00S05962.1aj +++|
09602 M00S05963.1aj +++| BCP8 LDD CM+3 CLEAR EXCHANGE PACKAGE
09603 M00S05964.1aj +++| LPN 37
09604 M00S05965.1aj +++| SHN 14
09605 M00S05966.1aj +++| LMD CM+4
09606 M00S05967.1aj +++| RJM CLX
09607 M00S05968.1aj +++| BCPD RJM ARG ENTER ARGUMENTS
| Line S05969 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09608 M01S05969.v23l617 ---|* LJM BCP22 (*DMP=* PROCESSING ON RA+1 REQUEST)
| Line S00614 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09609 M01S00614.v23l617 +++|* LJM BCP22 (*DMP=* PROCESSING ON SYSTEM REQUEST
09610 M00S05970.1aj +++| LDD PF CHECK PROGRAM FORMAT
09611 M00S05971.1aj +++| SBN 3
| Line S05972 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09612 M01S05972.ns21000 ---| MJN BCP9 IF TYPE OVL OR ABS
| Line S00469 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09613 M01S00469.ns21000 +++| BCPL MJN BCP9 IF TYPE OVL OR ABS
09614 M01S00470.ns21000 +++|* MJN BCP9.1 IF *SHELL* LOAD
09615 M00S05973.1aj +++| LJM BCP11 START PROGRAM
09616 M00S05974.1aj +++|
09617 M00S05975.1aj +++| BCP9 RJM STK SKIP SEQUENCE NUMBER
09618 M00S05976.1aj +++| RAM BCPE MODIFY BUFFER ADDRESS
| Line S05977 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09619 M01S05977.ns21000 ---| LDN 10 SET STATEMENT WORD COUNT
| Line S00471 Modification History |
M01 (Added by) | ns21000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09620 M02S00471.v23l617 ---| BCP9.1 LDN 10 SET STATEMENT WORD COUNT
| Line S00615 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09621 M01S00615.v23l617 +++| BCP9.1 LDN 10 SET COMMAND WORD COUNT
09622 M00S05978.1aj +++| STD T1
09623 M00S05979.1aj +++| LDD RA READ PROGRAM NAME
09624 M00S05980.1aj +++| SHN 6
09625 M00S05981.1aj +++| ADN ACTR
09626 M00S05982.1aj +++| CRD AB
09627 M00S05983.1aj +++| LDD T2 SET ARGUMENT COUNT
09628 M00S05984.1aj +++| STD AB+4
09629 M00S05985.1aj +++| LDD AB+3
09630 M00S05986.1aj +++| SCN 77
09631 M00S05987.1aj +++| STD AB+3
09632 M00S05988.1aj +++| LDD RA STORE PROGRAM NAME
09633 M00S05989.1aj +++| SHN 6
09634 M00S05990.1aj +++| ADN ACTR
09635 M00S05991.1aj +++| CWD AB
| Line S05992 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09636 M01S05992.v23l617 ---| ADN CCDR-ACTR STORE CONTROL STATEMENT
| Line S00616 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09637 M01S00616.v23l617 +++| ADN CCDR-ACTR STORE COMMAND
09638 M00S05993.1aj +++| CWM STMT,T1
09639 M00S05994.1aj +++| BCPE EQU *-1
| Line S00472 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09640 M01S00472.ns21000 +++| BCPK UJN BCP9.2 CONTINUE
09641 M01S00473.ns21000 +++|* LDN MS2W-MS1W (*MS1W* COPY ENABLED)
09642 M01S00474.ns21000 +++| STD T1
09643 M01S00475.ns21000 +++| LDD CP COPY *MS1W* TO RA+2
09644 M01S00476.ns21000 +++| ADN MS1W
09645 M01S00477.ns21000 +++| CRM STMT,T1
09646 M01S00478.ns21000 +++| LDD RA
09647 M01S00479.ns21000 +++| SHN 6
09648 M01S00480.ns21000 +++| ADN ARGR
09649 M01S00481.ns21000 +++| CWM STMT,T1
| Line S00001 Modification History |
M01 (Added by) | 1aj37 |
Seq # *Modification Id* Act
----------------------------+
09650 M01S00001.1aj37 +++| LPN 77 ADJUST THE *CSTM* PARAMETERS
09651 M01S00002.1aj37 +++| STM BCPI+5*2+4
09652 M01S00003.1aj37 +++| LDN PGNR-ARGR
09653 M01S00004.1aj37 +++| SBD T1
09654 M01S00005.1aj37 +++| STM BCPI+5*2+2
| Line S00482 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
09655 M01S00482.ns21000 +++| BCP9.2 BSS 0
09656 M00S05995.1aj +++| BCPF UJN BCP10 CHECK *SSJ=*
| Line S05996 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09657 M01S05996.v23l617 ---|* LDN CCDR (PROCESSING *TCS* EXECUTE STATEMENT
| Line S00617 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09658 M01S00617.v23l617 +++|* LDN CCDR (PROCESSING *TCS* EXECUTE COMMAND
09659 M00S05997.1aj +++| STM ISDA
09660 M00S05998.1aj +++| LDN 0
09661 M00S05999.1aj +++| STM ISDB+3
09662 M00S06000.1aj +++| BCP10 LDM CSEB CHECK *SSJ=*
09663 M00S06001.1aj +++| SHN 21-2
09664 M00S06002.1aj +++| PJN BCP11 IF NOT SPECIAL SYSTEM JOB
09665 M00S06003.1aj +++| LDM CSEB+3
09666 M00S06004.1aj +++| LPN 37
09667 M00S06005.1aj +++| ADM CSEB+4
09668 M00S06006.1aj +++| ZJN BCP11 IF NO PARAMETER BLOCK
09669 M00S06007.1aj +++| EXECUTE 3AF
09670 M00S06008.1aj +++| RJM /3AF/TCA TRANSFER CONTROL POINT AREA FIELDS
09671 M00S06009.1aj +++|
09672 M00S06010.1aj +++|* START PROGRAM.
09673 M00S06011.1aj +++|
| Line S06012 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09674 M01S06012.v23l617 ---| BCP11 RJM CAT CLEAR EXECUTE STATEMENT ADDRESS
| Line S00618 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09675 M01S00618.v23l617 +++| BCP11 RJM CAT CLEAR EXECUTE COMMAND ADDRESS
09676 M00S06013.1aj +++| ADK SRUW-RFCW READ SRU ACCUMULATOR
09677 M00S06014.1aj +++| CRD CM
| Line S06015 Modification History |
M01 (Removed by) | 1aj3 |
Seq # *Modification Id* Act
----------------------------+
09678 M01S06015.1aj3 ---| ADN FPFW-SRUW-1
| Line S00001 Modification History |
M01 (Added by) | 1aj3 |
Seq # *Modification Id* Act
----------------------------+
09679 M01S00001.1aj3 +++| ADN FPFW-SRUW
09680 M00S06016.1aj +++| CRM OVL,ON
09681 M00S06017.1aj +++| LDD CM+1 CHECK IF OVERFLOW OCCURRED
09682 M00S06018.1aj +++| SCN 37
| Line S00193 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09683 M01S00193.ns22000 +++| NJN BCP11.1 IF OVERFLOW
09684 M01S00194.ns22000 +++| LDD CM
| Line S00195 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | ns2753 |
Seq # *Modification Id* Act
----------------------------+
09685 M02S00195.ns2753 ---| LPN 1
| Line S00001 Modification History |
M01 (Added by) | ns2753 |
Seq # *Modification Id* Act
----------------------------+
09686 M01S00001.ns2753 +++| LPN 3
09687 M00S06019.1aj +++| ZJN BCP12 IF NO OVERFLOW
| Line S06020 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09688 M01S06020.ns22000 ---| LDC BCPJ SET PARAMETER BLOCK ADDRESS
| Line S00196 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09689 M01S00196.ns22000 +++| BCP11.1 LDC BCPJ SET PARAMETER BLOCK ADDRESS
09690 M00S06021.1aj +++| STM OVL+1
09691 M00S06022.1aj +++| LDM OVL SET OVERFLOW FUNCTION CALL
09692 M00S06023.1aj +++| SCN 77
09693 M00S06024.1aj +++| ADN 1
09694 M00S06025.1aj +++| STM OVL
09695 M00S06026.1aj +++| EXECUTE 0AU,OVL+5
09696 M00S06027.1aj +++| BCP12 LDD CP
09697 M00S06028.1aj +++| ADC SEPW
09698 M00S06029.1aj +++| CWM CSEB,ON
09699 M00S06030.1aj +++| ADK SPCW-SEPW-1
09700 M00S06031.1aj +++| CRD CN
09701 M00S06032.1aj +++| STD T2
09702 M00S06033.1aj +++| LDM CSEB
09703 M00S06034.1aj +++| SHN 21-4
09704 M00S06035.1aj +++| PJN BCP13 IF NOT *DMP=*
09705 M00S06036.1aj +++| LDD CN+1 CLEAR *1RO* CALLED FLAG
09706 M00S06037.1aj +++| SCN 2
09707 M00S06038.1aj +++| STD CN+1
09708 M00S06039.1aj +++| LDD T2
09709 M00S06040.1aj +++| CWD CN
09710 M00S06041.1aj +++| BCP13 LDD CP
| Line S06042 Modification History |
M01 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09711 M01S06042.ns2719 ---| ADN JCIW CHECK FOR USER FILE PRIVACY
| Line S06043 Modification History |
M01 (Removed by) | ns2358 |
M02 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09712 M02S06043.ns2719 ---| CRD CM
| Line S00015 Modification History |
M01 (Added by) | ns2358 |
M02 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09713 M02S00015.ns2719 ---| CRD CW
| Line S06044 Modification History |
M01 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09714 M01S06044.ns2719 ---| ADN OAEW-JCIW GET OPERATOR ASSIGNED EQUIPMENT
| Line S00028 Modification History |
M01 (Added by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09715 M01S00028.ns2719 +++| ADN OAEW GET OPERATOR ASSIGNED EQUIPMENT
09716 M00S06045.1aj +++| CRD CN
| Line S06046 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09717 M01S06046.v23l617 ---| ADN CSPW-OAEW STORE STATEMENT POINTER
| Line S00619 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09718 M01S00619.v23l617 +++| ADN CSPW-OAEW STORE COMMAND POINTER
09719 M00S06047.1aj +++| CWD SP
| Line S06048 Modification History |
M01 (Removed by) | ns2358 |
Seq # *Modification Id* Act
----------------------------+
09720 M01S06048.ns2358 ---| LDD CM+3
| Line S00016 Modification History |
M01 (Added by) | ns2358 |
M02 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09721 M02S00016.ns2719 ---| LDD CW+3
| Line S06049 Modification History |
M01 (Removed by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09722 M01S06049.ns2719 ---| SHN 21-10
09723 M01S06050.ns2719 ---| PJN BCP14 IF NO USER FILE PRIVACY SELECTED
09724 M01S06051.ns2719 ---| EXECUTE 3AG
09725 M01S06052.ns2719 ---|
09726 M01S06053.ns2719 ---| BCP14 LDD CN+4 CHECK ASSIGNED EQUIPMENT
| Line S00029 Modification History |
M01 (Added by) | ns2719 |
Seq # *Modification Id* Act
----------------------------+
09727 M01S00029.ns2719 +++| LDD CN+4 CHECK ASSIGNED EQUIPMENT
09728 M00S06054.1aj +++| ZJN BCP15 IF NO EQUIPMENT ASSIGNED
09729 M00S06055.1aj +++| LDN 0 CLEAR ASSIGNMENT
09730 M00S06056.1aj +++| STD CN+4
09731 M00S06057.1aj +++| LDD CP
09732 M00S06058.1aj +++| ADN OAEW
09733 M00S06059.1aj +++| CWD CN
09734 M00S06060.1aj +++| BCP15 LDM CSEB CHECK *CLB=* ENTRY POINT
09735 M00S06061.1aj +++| SHN 21-6
09736 M00S06062.1aj +++| PJN BCP16 IF NO *CLB=*
09737 M00S06063.1aj +++| EXECUTE 3AH
09738 M00S06064.1aj +++| BCP16 LDD CP GET SECURE MEMORY STATUS OF LAST JOB STEP
09739 M00S06065.1aj +++| ADC DBAW
09740 M00S06066.1aj +++| STD T1
09741 M00S06067.1aj +++| CRD T7
09742 M00S06068.1aj +++| LDN ZERL
09743 M00S06069.1aj +++| CRD CM
09744 M00S06070.1aj +++| LDD MA WRITE *CSTM* LIST TO MESSAGE BUFFER
09745 M00S06071.1aj +++| CWM BCPI,TR
09746 M00S06072.1aj +++| CWD CM TERMINATE LIST
09747 M00S06073.1aj +++| LDM CSEB CHECK *SSJ=* OR *SSM=* ENTRY POINTS
09748 M00S06074.1aj +++| LPN 5
09749 M00S06075.1aj +++| ZJN BCP17 IF NOT *SSJ=* OR *SSM=*
09750 M00S06076.1aj +++| LDC 4000 SET SECURE MEMORY STATUS FOR THIS JOB STEP
09751 M00S06077.1aj +++| STD CM
09752 M00S06078.1aj +++| BCP17 LDD T1 SET SSM STATUS AND CLEAR (DBAW)
09753 M00S06079.1aj +++| CWD CM
09754 M00S06080.1aj +++| BCPG LDD T7
09755 M00S06081.1aj +++|* UJN BCP19 (SUBSYSTEM, END OF JOB, OR *DMP=*)
| Line S06082 Modification History |
M01 (Removed by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09756 M01S06082.ns2031 ---| SHN 6
09757 M01S06083.ns2031 ---| MJN BCP18 IF LAST JOB STEP SECURE
| Line S00022 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09758 M01S00022.ns2031 +++| LPC 5000
09759 M01S00023.ns2031 +++| NJN BCP18 IF LAST JOB STEP SECURE OR INTERACTIVE
09760 M00S06084.1aj +++| BCPH UJN BCP19 CONTINUE PROCESSING
09761 M00S06085.1aj +++|* PSN IF FL INCREASE
| Line S06086 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09762 M01S06086.ns22000 ---| BCP18 LDM CSEB CHECK *SSM=* ENTRY POINT
| Line S00197 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09763 M01S00197.ns22000 +++| BCP18 LDK SSTL
09764 M01S00198.ns22000 +++| CRD CN
09765 M01S00199.ns22000 +++| LDD CN
09766 M01S00200.ns22000 +++| SHN 21-12
09767 M01S00201.ns22000 +++| PJN BCP18.1 IF MEMORY CLEARING ENABLED
09768 M01S00202.ns22000 +++| LDM CSEB
| Line S06087 Modification History |
M01 (Removed by) | 1aj60 |
Seq # *Modification Id* Act
----------------------------+
09769 M01S06087.1aj60 ---| LPN 1
| Line S00001 Modification History |
M01 (Added by) | 1aj60 |
Seq # *Modification Id* Act
----------------------------+
09770 M01S00001.1aj60 +++| BCPN LPN 1
09771 M01S00002.1aj60 +++|* LPN 0 (EXECUTE ONLY GLOBAL LIBRARY ROUTINE)
| Line S00001 Modification History |
M01 (Added by) | 1aj85 |
Seq # *Modification Id* Act
----------------------------+
09772 M01S00001.1aj85 +++|* LPN 0 (ECS FL INCREASE)
09773 M00S06088.1aj +++| NJN BCP19 IF *SSM=* ENTRY POINT
| Line S06089 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09774 M01S06089.ns22000 ---| RJM CST CLEAR STORAGE
| Line S00203 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
09775 M01S00203.ns22000 +++| BCP18.1 RJM CST CLEAR STORAGE
09776 M00S06090.1aj +++| BCP19 LDD IR+2
09777 M00S06091.1aj +++| LMN 2
09778 M00S06092.1aj +++| NJN BCP20 IF NOT DIS CALL
09779 M00S06093.1aj +++| LDD IR+4
09780 M00S06094.1aj +++| LPN 1
09781 M00S06095.1aj +++| NJN BCP21 IF RSS
09782 M00S06096.1aj +++| BCP20 AOM ISTA ENABLE START JOB STEP
| Line S06097 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09783 M01S06097.v23l617 ---| BCP21 LJM IST ISSUE STATEMENT TO DAYFILE
| Line S00620 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09784 M01S00620.v23l617 +++| BCP21 LJM IST ISSUE COMMAND TO DAYFILE
09785 M00S06098.1aj +++|
09786 M00S06099.1aj +++| BCP22 EXECUTE 3AF
09787 M00S06100.1aj +++| LJM /3AF/SDP START *DMP=* PROGRAM
09788 M00S06101.1aj +++|
09789 M00S06102.1aj +++|
09790 M00S06103.1aj +++| BCPI CON 0,0,0,0,0 CLEAR FROM LWA+1 TO FL-1
09791 M00S06104.1aj +++| CON 0,0,0,0,100 CLEAR FROM 100B TO FWA-1
09792 M00S06105.1aj +++| CON 0,0,0,0,0 CLEAR UNLOADED ARGUMENT AREA
09793 M00S06106.1aj +++|
09794 M00S06107.1aj +++| BCPJ BSS 5 *0AU* PARAMETER BUFFER
09795 M00S06108.1aj +++|
09796 M00S06109.1aj +++| ERRNG 37+BCPC-BCP7 IF JUMP OUT OF RANGE
09797 M00S06110.1aj +++| ERRNG 37+BCPG-BCP19 IF JUMP OUT OF RANGE
| Line S00024 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09798 M01S00024.ns2031 +++| ARG TITLE OVERLAID BY *3AM*.
09799 M01S00025.ns2031 +++|*** ARG - ENTER ARGUMENTS.
09800 M01S00026.ns2031 +++|*
09801 M01S00027.ns2031 +++|* ARGUMENTS STORED 1/WORD LEFT JUSTIFIED STARTING AT (RA+ARGR).
09802 M01S00028.ns2031 +++|* KRONOS FORMAT-
09803 M01S00029.ns2031 +++|* LOWER 6 BITS = SEPARATOR CHARACTER. (EXCEPT A COMMA IS
09804 M01S00030.ns2031 +++|* PASSED AS 6 BITS OF ZEROS.)
09805 M01S00031.ns2031 +++|* SCOPE FORMAT-
09806 M01S00032.ns2031 +++|* LOWER 4 BITS = SEPARATOR CODE.
09807 M01S00033.ns2031 +++|*
09808 M01S00034.ns2031 +++|* ENTRY (PF) = PROGRAM FORMAT.
09809 M01S00035.ns2031 +++|*
09810 M01S00036.ns2031 +++|* EXIT (T2) = ARGUMENT COUNT.
09811 M01S00037.ns2031 +++|*
09812 M01S00038.ns2031 +++|* ERROR TO *ERR1* IF ERROR.
09813 M01S00039.ns2031 +++|*
09814 M01S00040.ns2031 +++|* USES T2, AB - AB+4, CM - CM+4.
09815 M01S00041.ns2031 +++|*
09816 M01S00042.ns2031 +++|* CALLS ASN, TSS.
09817 M01S00043.ns2031 +++|
09818 M01S00044.ns2031 +++|
09819 M01S00045.ns2031 +++| ARG6 LDN ZERL SET BLANK ARGUMENT
09820 M01S00046.ns2031 +++| CRD CM
09821 M01S00047.ns2031 +++| LDD RA
09822 M01S00048.ns2031 +++| SHN 6
09823 M01S00049.ns2031 +++| ADN ARGR
09824 M01S00050.ns2031 +++| ADD T2
09825 M01S00051.ns2031 +++| CWD CM
09826 M01S00052.ns2031 +++| LPN 77 SET FWA OF ARGUMENT AREA CLEAR
09827 M01S00053.ns2031 +++| STM BCPI+5*2+4
09828 M01S00054.ns2031 +++| LDN PGNR-2 SET WORD COUNT OF ARGUMENT AREA CLEAR
09829 M01S00055.ns2031 +++| SBD T2
09830 M01S00056.ns2031 +++| STM BCPI+5*2+2
09831 M01S00057.ns2031 +++|
09832 M01S00058.ns2031 +++| ARG SUBR ENTRY/EXIT
09833 M01S00059.ns2031 +++| LDN 0 CLEAR ARGUMENT COUNTER
09834 M01S00060.ns2031 +++| STD T2
09835 M01S00061.ns2031 +++| LDM CSEB
09836 M01S00062.ns2031 +++| SHN 21-5
09837 M01S00063.ns2031 +++| MJN ARGX IF *ARG=* PRESENT
09838 M01S00064.ns2031 +++|* UJN ARG6 (*SHELL* PROCESSING)
09839 M01S00065.ns2031 +++| ARGC EQU *-1
09840 M01S00066.ns2031 +++| ARG1 LDI CA CHECK NEXT CHARACTER
09841 M01S00067.ns2031 +++| ZJN ARG6 IF TERMINATOR
09842 M01S00068.ns2031 +++| AOD CA SKIP SEPARATOR
09843 M01S00069.ns2031 +++| RJM ASN ASSEMBLE ARGUMENT
09844 M01S00070.ns2031 +++| LDC 0 PARAMETER CRACKING FORMAT
09845 M01S00071.ns2031 +++| ARGA EQU *-1
09846 M01S00072.ns2031 +++| NJN ARG2 IF KRONOS FORMAT
09847 M01S00073.ns2031 +++| RJM TSS TRANSLATE SCOPE FORMAT
09848 M01S00074.ns2031 +++| UJN ARG3 STORE ARGUMENT
09849 M01S00075.ns2031 +++|
09850 M01S00076.ns2031 +++| ARG2 LDI CA CHECK SEPARATOR
09851 M01S00077.ns2031 +++| LMN 1R,
09852 M01S00078.ns2031 +++| ZJN ARG4 IF *,*
09853 M01S00079.ns2031 +++| LMN 1R, ENTER SEPARATOR
09854 M01S00080.ns2031 +++| ARG3 STD AB+4
09855 M01S00081.ns2031 +++| ARG4 LDD RA STORE ARGUMENT
09856 M01S00082.ns2031 +++| SHN 6
09857 M01S00083.ns2031 +++| ADN ARGR
09858 M01S00084.ns2031 +++| ADD T2
09859 M01S00085.ns2031 +++| CWD AB
09860 M01S00086.ns2031 +++| AOD T2 ADVANCE ARGUMENT COUNT
09861 M01S00087.ns2031 +++| SBN 1
09862 M01S00088.ns2031 +++| LMC 60 CHECK ARGUMENT LIMIT
09863 M01S00089.ns2031 +++| ARGB EQU *-1
09864 M01S00090.ns2031 +++| NJN ARG1 IF NOT ARGUMENT LIMIT
09865 M01S00091.ns2031 +++| LDN ZERL ENSURE ZERO TERMINATED ARGUMENT LIST
09866 M01S00092.ns2031 +++| CRD CM
09867 M01S00093.ns2031 +++| LDD RA
09868 M01S00094.ns2031 +++| SHN 6
09869 M01S00095.ns2031 +++| ADN ARGR+60+1
09870 M01S00096.ns2031 +++| CWD CM
09871 M01S00097.ns2031 +++| LDC /ERR/EM11 * TOO MANY ARGUMENTS.*
09872 M01S00098.ns2031 +++| LJM ERR1 PROCESS ERROR
09873 M01S00099.ns2031 +++|
09874 M01S00100.ns2031 +++|
09875 M01S00101.ns2031 +++| ERRNG 37+ARG6-ARGC JUMP OUT OF RANGE
09876 M01S00102.ns2031 +++| CSE SPACE 4,10
09877 M01S00103.ns2031 +++|** CSE - CHECK FOR SPECIAL ENTRY POINTS.
09878 M01S00104.ns2031 +++|*
09879 M01S00105.ns2031 +++|* ENTRY (T1 - T2) ADDRESS OF DIRECTORY ENTRY.
09880 M01S00106.ns2031 +++|* (CW - CW+4) = LIBRARY CONTROL WORD.
09881 M01S00107.ns2031 +++|*
09882 M01S00108.ns2031 +++|* EXIT (CSEB - CSEB+4) SPECIAL ENTRY POINT WORD.
| Line S00109 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09883 M02S00109.v23l617 ---|* TO *CPP* TO CALL *1AJ* IF *DMP=* STATEMENT CALL.
| Line S00621 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09884 M01S00621.v23l617 +++|* TO *CPP* TO CALL *1AJ* IF *DMP=* COMMAND CALL.
| Line S00110 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09885 M01S00110.ns2031 +++|*
09886 M01S00111.ns2031 +++|* ERROR TO *ERR1* IF VALIDATION VIOLATION.
09887 M01S00112.ns2031 +++|*
09888 M01S00113.ns2031 +++|* USES T1, T2, FS - FS+4.
09889 M01S00114.ns2031 +++|*
09890 M01S00115.ns2031 +++|* CALLS CVD, *1AJ*.
09891 M01S00116.ns2031 +++|*
09892 M01S00117.ns2031 +++|* MACROS EXECUTE.
09893 M01S00118.ns2031 +++|
09894 M01S00119.ns2031 +++|
09895 M01S00120.ns2031 +++| CSE SUBR ENTRY/EXIT
09896 M01S00121.ns2031 +++| LDD CW+1
09897 M01S00122.ns2031 +++| SHN 21-10
09898 M01S00123.ns2031 +++| PJN CSE1 IF NO SPECIAL ENTRY POINTS
09899 M01S00124.ns2031 +++| LDD T1 READ SPECIAL ENTRY POINT WORD FROM PST
09900 M01S00125.ns2031 +++| SHN 14
09901 M01S00126.ns2031 +++| LMD T2
09902 M01S00127.ns2031 +++| ADN 1
09903 M01S00128.ns2031 +++| CRM CSEB,ON
09904 M01S00129.ns2031 +++| UJN CSE2 START PROCESSING
09905 M01S00130.ns2031 +++|
09906 M01S00131.ns2031 +++| CSE1 LDN ZERL CLEAR SPECIAL ENTRY POINT WORD BUFFER
09907 M01S00132.ns2031 +++| CRM CSEB,ON
09908 M01S00133.ns2031 +++| CSE2 LDM CSEB
09909 M01S00134.ns2031 +++| SHN 21-6
09910 M01S00135.ns2031 +++| PJN CSE4 IF NO *CLB=*
09911 M01S00136.ns2031 +++| LDD FL
09912 M01S00137.ns2031 +++| ZJN CSE3 IF NO FL
09913 M01S00138.ns2031 +++| ADD RA CHECK WORD COUNT
09914 M01S00139.ns2031 +++| SBN 1
09915 M01S00140.ns2031 +++| SHN 6
09916 M01S00141.ns2031 +++| CRD FS
09917 M01S00142.ns2031 +++| LDD FS+4
09918 M01S00143.ns2031 +++| ZJN CSE3 IF NO DATA
09919 M01S00144.ns2031 +++| LDM IPLB+4 CHECK TERMINAL NUMBER
09920 M01S00145.ns2031 +++| ZJN CSE3 IF NOT ON-LINE INTERACTIVE JOB
09921 M01S00146.ns2031 +++| AOM /3AE/SLPF
09922 M01S00147.ns2031 +++| UJN CSE4 ALL CONDITIONS MET FOR *CLB=*
09923 M01S00148.ns2031 +++|
09924 M01S00149.ns2031 +++| CSE3 LDC -100 CLEAR *CLB=* STATUS
09925 M01S00150.ns2031 +++| RAM CSEB
09926 M01S00151.ns2031 +++| CSE4 LDM CSEB
09927 M01S00152.ns2031 +++| SHN 21-1
| Line S00153 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09928 M02S00153.1aj90 ---| MJN CSE5 IF *VAL=* PRESENT
09929 M02S00154.1aj90 ---| LDM TCSA
| Line S00155 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
M03 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09930 M03S00155.1aj90 ---| ZJN CSE5 IF NO VALIDATION REQUIRED
09931 M03S00156.1aj90 ---| LDC /ERR/EM06 * IMPROPER VALIDATION.*
| Line S00622 Modification History |
M01 (Added by) | v23l617 |
M02 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09932 M02S00622.1aj90 ---| ZJN CSE5 IF NO CHARGE REQUIRED
09933 M02S00623.1aj90 ---| LDC /ERR/EM06 * CHARGE COMMAND REQUIRED.*
| Line S00157 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | 1aj65 |
M03 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09934 M03S00157.1aj90 ---| LJM ERR1 PROCESS ERROR
| Line S00001 Modification History |
M01 (Added by) | 1aj65 |
M02 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09935 M02S00001.1aj90 ---| CSE4.1 LJM ERR1 PROCESS ERROR
| Line S00158 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09936 M02S00158.1aj90 ---|
| Line S00005 Modification History |
M01 (Added by) | 1aj90 |
Seq # *Modification Id* Act
----------------------------+
09937 M01S00005.1aj90 +++| PJN CSE5 IF *VAL=* NOT PRESENT
09938 M01S00006.1aj90 +++| LDN 0 CLEAR CHARGE REQUIRED
09939 M01S00007.1aj90 +++| STM TCSA
| Line S00159 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09940 M01S00159.ns2031 +++| CSE5 LDM CSEB
09941 M01S00160.ns2031 +++| SHN 21-4
09942 M01S00161.ns2031 +++| PJN CSE6 IF *DMP=* NOT PRESENT
09943 M01S00162.ns2031 +++| LDD CP CHECK IF SPECIAL CALL PRESENT
09944 M01S00163.ns2031 +++| ADC SPCW
09945 M01S00164.ns2031 +++| CRD FS
09946 M01S00165.ns2031 +++| LDD FS
09947 M01S00166.ns2031 +++| NJN CSE6 IF CALL PRESENT
09948 M01S00167.ns2031 +++| LDM CSEB+2
09949 M01S00168.ns2031 +++| SHN 21-11
| Line S00169 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09950 M02S00169.v23l617 ---| PJN CSE7 IF *DMP=* NOT SUPPRESSED ON CONTROL CARDS
| Line S00624 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09951 M01S00624.v23l617 +++| PJN CSE7 IF *DMP=* NOT SUPPRESSED ON COMMANDS
| Line S00170 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09952 M01S00170.ns2031 +++| LDM CSEB CLEAR *DMP=*
09953 M01S00171.ns2031 +++| LMN 20
09954 M01S00172.ns2031 +++| STM CSEB
09955 M01S00173.ns2031 +++| CSE6 LJM CSEX RETURN
09956 M01S00174.ns2031 +++|
09957 M01S00175.ns2031 +++|
09958 M01S00176.ns2031 +++| CSEA BSS 0
| Line S00177 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09959 M02S00177.v23l617 ---| CSE7 LDN 0 IF NOT POSSIBLE CONTINUATION CARD
09960 M02S00178.v23l617 ---|* LDN 1 (POSSIBLE CONTINUATION CARD)
09961 M02S00179.v23l617 ---| NJN CSE6 IF POSSIBLE CONTINUATION CARD
| Line S00625 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
09962 M01S00625.v23l617 +++| CSE7 LDN 0 IF NOT POSSIBLE CONTINUATION COMMAND
09963 M01S00626.v23l617 +++|* LDN 1 (POSSIBLE CONTINUATION COMMAND)
09964 M01S00627.v23l617 +++| NJN CSE6 IF POSSIBLE CONTINUATION COMMAND
| Line S00002 Modification History |
M01 (Added by) | 1aj65 |
M02 (Removed by) | ns2388 |
Seq # *Modification Id* Act
----------------------------+
09965 M02S00002.ns2388 ---| LDM BCPM CHECK FOR PREVIOUSLY SET ERROR CONDITION
09966 M02S00003.ns2388 ---| NJN CSE4.1 IF ERROR
| Line S00001 Modification History |
M01 (Added by) | 1aj48 |
Seq # *Modification Id* Act
----------------------------+
09967 M01S00001.1aj48 +++| LDM CSEB+2 CHECK *DMP=* ENTRY POINT VALUE
09968 M01S00002.1aj48 +++| SHN 21-13
09969 M01S00003.1aj48 +++| MJN CSE8 IF *RESTART*
| Line S00180 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09970 M01S00180.ns2031 +++| RJM CVD CHECK VALID *DMP=* CALL
| Line S00181 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | 1aj48 |
Seq # *Modification Id* Act
----------------------------+
09971 M02S00181.1aj48 ---| LDD CP SAVE INPUT REGISTER
| Line S00004 Modification History |
M01 (Added by) | 1aj48 |
Seq # *Modification Id* Act
----------------------------+
09972 M01S00004.1aj48 +++| CSE8 LDD CP SAVE INPUT REGISTER
| Line S00182 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
09973 M01S00182.ns2031 +++| ADC SEPW
09974 M01S00183.ns2031 +++| CWD IR
09975 M01S00184.ns2031 +++| LDN 0
09976 M01S00185.ns2031 +++| STD IR+2 CLEAR INPUT REGISTER
09977 M01S00186.ns2031 +++| STD IR+3
09978 M01S00187.ns2031 +++| STD IR+4
09979 M01S00188.ns2031 +++| LDN 77 SET CALL PRESENT
09980 M01S00189.ns2031 +++| STD FS
09981 M01S00190.ns2031 +++| LDN 24 SET *DMP=* AND NO RA+1 CLEAR FLAGS
09982 M01S00191.ns2031 +++| STD FS+1
09983 M01S00192.ns2031 +++| LDD CP SET *DMP=* CALL
09984 M01S00193.ns2031 +++| ADC SPCW
09985 M01S00194.ns2031 +++| CWD FS
09986 M01S00195.ns2031 +++| SBN SPCW-TERW
09987 M01S00196.ns2031 +++| CRD FS
09988 M01S00197.ns2031 +++| LDM CSEB+2
09989 M01S00198.ns2031 +++| STD FS+3
09990 M01S00199.ns2031 +++| LDM CSEB+3
09991 M01S00200.ns2031 +++| STD FS+4
09992 M01S00201.ns2031 +++| LDD CP
09993 M01S00202.ns2031 +++| ADN TERW
09994 M01S00203.ns2031 +++| CWD FS
09995 M01S00204.ns2031 +++| EXECUTE 1AJ,* RE-CALL *1AJ*
09996 M01S00205.ns2031 +++| LJM CPP CALL PP PROGRAM
09997 M01S00206.ns2031 +++| CST SPACE 4,10
09998 M01S00207.ns2031 +++|** CST - CLEAR STORAGE.
09999 M01S00208.ns2031 +++|*
| Line S00209 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10000 M02S00209.v23l617 ---|* ENTRY (CSTB) = 0 IF ECS TO BE CLEARED.
10001 M02S00210.v23l617 ---|* (CSTC) = FWA OF ECS TO CLEAR.
10002 M02S00211.v23l617 ---|* (CSTD) = WORD COUNT OF ECS TO CLEAR.
| Line S00628 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10003 M01S00628.v23l617 +++|* ENTRY (CSTB) = 0 IF EXTENDED MEMORY TO BE CLEARED.
10004 M01S00629.v23l617 +++|* (CSTC) = FWA OF EXTENDED MEMORY TO CLEAR.
10005 M01S00630.v23l617 +++|* (CSTD) = WORD COUNT OF EXTENDED MEMORY TO CLEAR.
| Line S00212 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10006 M01S00212.ns2031 +++|*
| Line S00213 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10007 M02S00213.v23l617 ---|* EXIT CM AND ECS CLEARED AS NECESSARY.
| Line S00631 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10008 M01S00631.v23l617 +++|* EXIT CM AND EXTENDED MEMORY CLEARED AS NECESSARY.
| Line S00214 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10009 M01S00214.ns2031 +++|*
10010 M01S00215.ns2031 +++|* USES CM - CM+4.
10011 M01S00216.ns2031 +++|*
10012 M01S00217.ns2031 +++|* MACROS MONITOR.
10013 M01S00218.ns2031 +++|
10014 M01S00219.ns2031 +++|
10015 M01S00220.ns2031 +++| CST SUBR ENTRY/EXIT
10016 M01S00221.ns2031 +++| CSTA LDD HN SET CM RELATIVE *CSTM* ADDRESSES
10017 M01S00222.ns2031 +++|* UJN CSTB (IF LOADING *LDR=* OR *SLDR=*)
10018 M01S00223.ns2031 +++| STD CM+1
10019 M01S00224.ns2031 +++| MONITOR CSTM
| Line S00225 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10020 M02S00225.v23l617 ---| CSTB UJN CSTX IF ECS NOT TO BE CLEARED
10021 M02S00226.v23l617 ---|* PSN (IF ALSO CLEARING ECS)
| Line S00632 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10022 M01S00632.v23l617 +++| CSTB UJN CSTX IF EXTENDED MEMORY NOT TO BE CLEARED
10023 M01S00633.v23l617 +++|* PSN (IF ALSO CLEARING EXTENDED MEMORY)
| Line S00227 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10024 M01S00227.ns2031 +++|
| Line S00228 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10025 M02S00228.v23l617 ---| LDC ** FWA OF ECS TO CLEAR
| Line S00634 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10026 M01S00634.v23l617 +++| LDC ** FWA OF EXTENDED MEMORY TO CLEAR
| Line S00229 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10027 M01S00229.ns2031 +++| CSTC EQU *-1
10028 M01S00230.ns2031 +++| STD CM+4
10029 M01S00231.ns2031 +++| LDC ** WORD COUNT TO CLEAR
10030 M01S00232.ns2031 +++| CSTD EQU *-1
10031 M01S00233.ns2031 +++| STD CM+2
10032 M01S00234.ns2031 +++| LDN 0
10033 M01S00235.ns2031 +++| STD CM+3
10034 M01S00236.ns2031 +++| LDC 300 SET ECS RELATIVE *CSTM* ADDRESSES
10035 M01S00237.ns2031 +++| STD CM+1
10036 M01S00238.ns2031 +++| MONITOR CSTM
10037 M01S00239.ns2031 +++| UJN CSTX RETURN
10038 M01S00240.ns2031 +++|
10039 M01S00241.ns2031 +++|* DEFINE THE END OF CODE OVERLAYED BY *3AM*.
10040 M01S00242.ns2031 +++|
10041 M01S00243.ns2031 +++| ECA EQU * END OF CURRENT CODE
10042 M01S00244.ns2031 +++| ECB EQU EOVL+502B*2+5 END OF *3AM*
10043 M01S00245.ns2031 +++| ECC MAX ECA,ECB REQUIRED ORIGIN OF NON-OVERLAYED CODE
10044 M01S00246.ns2031 +++| ORG ECC
10045 M00S06111.1aj +++| TITLE SUBROUTINES.
10046 M00S06112.1aj +++| AKW SPACE 4,15
10047 M00S06113.1aj +++|** AKW - ASSEMBLE KEYWORD.
10048 M00S06114.1aj +++|*
| Line S06115 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10049 M01S06115.v23l617 ---|* ENTRY (CHAR) = STATEMENT STRING.
| Line S00635 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10050 M01S00635.v23l617 +++|* ENTRY (CHAR) = COMMAND STRING.
10051 M00S06116.1aj +++|* (FA) = 0.
10052 M00S06117.1aj +++|*
10053 M00S06118.1aj +++|* EXIT (A) = 0 IF NO KEYWORD.
| Line S06119 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10054 M01S06119.v23l617 ---|* (A) = -0, IF COMMENT CARD.
| Line S00636 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10055 M01S00636.v23l617 +++|* (A) = -0, IF COMMENT COMMAND.
10056 M00S06120.1aj +++|* (CA) = CHARACTER ADDRESS.
10057 M00S06121.1aj +++|* (KA) = ADDRESS OF START OF KEYWORD.
10058 M00S06122.1aj +++|* (AB - AB+4) = KEYWORD.
| Line S06123 Modification History |
M01 (Removed by) | 1aj92 |
Seq # *Modification Id* Act
----------------------------+
10059 M01S06123.1aj92 ---|* (FA) " 0 IF FIRST CHARACTER = *$*.
10060 M01S06124.1aj92 ---|* (ARGA) " 0 IF FIRST CHARACTER = */*.
| Line S00027 Modification History |
M01 (Added by) | 1aj92 |
Seq # *Modification Id* Act
----------------------------+
10061 M01S00027.1aj92 +++|* (FA) .NE. 0 IF FIRST CHARACTER = *$*.
10062 M01S00028.1aj92 +++|* (ARGA) .NE. 0 IF FIRST CHARACTER = */*.
| Line S06125 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10063 M01S06125.v23l617 ---|* (ISDA) = 0 IF COMMENT STATEMENT.
| Line S00637 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10064 M01S00637.v23l617 +++|* (ISDA) = 0 IF COMMENT COMMAND.
10065 M00S06126.1aj +++|*
10066 M00S06127.1aj +++|* CALLS ASN.
10067 M00S06128.1aj +++|
10068 M00S06129.1aj +++|
| Line S00001 Modification History |
M01 (Added by) | 1aj108 |
Seq # *Modification Id* Act
----------------------------+
10069 M01S00001.1aj108 +++| AKW2 LMN 1R*&1R/
10070 M01S00002.1aj108 +++| NJN AKW5 IF NOT */*
10071 M01S00003.1aj108 +++| AOM ARGA SET KRONOS FORMAT
10072 M01S00004.1aj108 +++| UJN AKW4 SKIP PREFIX CHARACTER
10073 M01S00005.1aj108 +++|
10074 M00S06130.1aj +++| AKW3 AOD FA SET PROGRAM FILE BYPASS
10075 M00S06131.1aj +++| AKW4 AOD CA SKIP PREFIX CHARACTER
10076 M00S06132.1aj +++| STD KA
10077 M00S06133.1aj +++| AKW5 RJM ASN ASSEMBLE NAME
| Line S00006 Modification History |
M01 (Added by) | 1aj108 |
Seq # *Modification Id* Act
----------------------------+
10078 M01S00006.1aj108 +++| LDI CA CHECK SEPARATOR
10079 M01S00007.1aj108 +++| LMN 1R$
10080 M01S00008.1aj108 +++| ZJN AKWX IF INCORRECT SEPARATOR
10081 M00S06134.1aj +++| LDD AB RETURN WITH KEYWORD STATUS
10082 M00S06135.1aj +++|
10083 M00S06136.1aj +++| AKW SUBR ENTRY/EXIT
10084 M00S06137.1aj +++| LDC CHAR SET CHARACTER ADDRESS
10085 M00S06138.1aj +++| STD CA
10086 M00S06139.1aj +++| STD KA
10087 M00S06140.1aj +++| LDI CA CHECK CHARACTER
10088 M00S06141.1aj +++| SBN 1R0
10089 M00S06142.1aj +++| MJN AKW5 IF ALPHA
10090 M00S06143.1aj +++| SBN 1R9+1-1R0
10091 M00S06144.1aj +++| PJN AKW1 IF NOT DIGIT
10092 M00S06145.1aj +++| RJM ASN ASSEMBLE NAME
10093 M00S06146.1aj +++| AOD CA SKIP SEPARATOR
10094 M00S06147.1aj +++| STD KA
10095 M00S06148.1aj +++| AKW1 LDI CA CHECK CHARACTER
10096 M00S06149.1aj +++| LMN 1R$
10097 M00S06150.1aj +++| ZJN AKW3 IF *$*
10098 M00S06151.1aj +++| LMN 1R*&1R$
| Line S06152 Modification History |
M01 (Removed by) | 1aj108 |
Seq # *Modification Id* Act
----------------------------+
10099 M01S06152.1aj108 ---| NJN AKW2 IF NOT (*)
| Line S00009 Modification History |
M01 (Added by) | 1aj108 |
Seq # *Modification Id* Act
----------------------------+
10100 M01S00009.1aj108 +++| NJP AKW2 IF NOT (*)
10101 M00S06153.1aj +++| STM ISDA
10102 M00S06154.1aj +++| LDN ZERL
10103 M00S06155.1aj +++| CRD AB
| Line S06156 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10104 M01S06156.v23l617 ---| LCN 0 INDICATE COMMENT CARD
| Line S00638 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10105 M01S00638.v23l617 +++| LCN 0 INDICATE COMMENT COMMAND
10106 M00S06157.1aj +++| UJN AKWX RETURN
| Line S06158 Modification History |
M01 (Removed by) | 1aj108 |
Seq # *Modification Id* Act
----------------------------+
10107 M01S06158.1aj108 ---|
10108 M01S06159.1aj108 ---| AKW2 LMN 1R*&1R/
10109 M01S06160.1aj108 ---| NJN AKW5 IF NOT */*
10110 M01S06161.1aj108 ---| AOM ARGA SET KRONOS FORMAT
10111 M01S06162.1aj108 ---| LJM AKW4 SKIP PREFIX CHARACTER
| Line S06163 Modification History |
M01 (Removed by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10112 M01S06163.ns2031 ---| ARG SPACE 4,20
10113 M01S06164.ns2031 ---|*** ARG - ENTER ARGUMENTS.
10114 M01S06165.ns2031 ---|*
10115 M01S06166.ns2031 ---|* ARGUMENTS STORED 1/WORD LEFT JUSTIFIED STARTING AT (RA+ARGR).
10116 M01S06167.ns2031 ---|* KRONOS FORMAT-
10117 M01S06168.ns2031 ---|* LOWER 6 BITS = SEPARATOR CHARACTER. (EXCEPT A COMMA IS
10118 M01S06169.ns2031 ---|* PASSED AS 6 BITS OF ZEROS.)
10119 M01S06170.ns2031 ---|* SCOPE FORMAT-
10120 M01S06171.ns2031 ---|* LOWER 4 BITS = SEPARATOR CODE.
10121 M01S06172.ns2031 ---|*
10122 M01S06173.ns2031 ---|* ENTRY (PF) = PROGRAM FORMAT.
10123 M01S06174.ns2031 ---|*
10124 M01S06175.ns2031 ---|* EXIT (T2) = ARGUMENT COUNT.
10125 M01S06176.ns2031 ---|*
10126 M01S06177.ns2031 ---|* ERROR TO *ERR1* IF ERROR.
10127 M01S06178.ns2031 ---|*
10128 M01S06179.ns2031 ---|* USES T2, AB - AB+4, CM - CM+4.
10129 M01S06180.ns2031 ---|*
10130 M01S06181.ns2031 ---|* CALLS ASN, TSS.
10131 M01S06182.ns2031 ---|
10132 M01S06183.ns2031 ---|
10133 M01S06184.ns2031 ---| ARG6 LDN ZERL SET BLANK ARGUMENT
10134 M01S06185.ns2031 ---| CRD CM
10135 M01S06186.ns2031 ---| LDD RA
10136 M01S06187.ns2031 ---| SHN 6
10137 M01S06188.ns2031 ---| ADN ARGR
10138 M01S06189.ns2031 ---| ADD T2
10139 M01S06190.ns2031 ---| CWD CM
10140 M01S06191.ns2031 ---| LPN 77 SET FWA OF ARGUMENT AREA CLEAR
10141 M01S06192.ns2031 ---| STM BCPI+5*2+4
10142 M01S06193.ns2031 ---| LDN PGNR-2 SET WORD COUNT OF ARGUMENT AREA CLEAR
10143 M01S06194.ns2031 ---| SBD T2
10144 M01S06195.ns2031 ---| STM BCPI+5*2+2
10145 M01S06196.ns2031 ---|
10146 M01S06197.ns2031 ---| ARG SUBR ENTRY/EXIT
10147 M01S06198.ns2031 ---| LDN 0 CLEAR ARGUMENT COUNTER
10148 M01S06199.ns2031 ---| STD T2
10149 M01S06200.ns2031 ---| LDM CSEB
10150 M01S06201.ns2031 ---| SHN 21-5
10151 M01S06202.ns2031 ---| MJN ARGX IF *ARG=* PRESENT
10152 M01S06203.ns2031 ---| ARG1 LDI CA CHECK NEXT CHARACTER
10153 M01S06204.ns2031 ---| ZJN ARG6 IF TERMINATOR
10154 M01S06205.ns2031 ---| AOD CA SKIP SEPARATOR
10155 M01S06206.ns2031 ---| RJM ASN ASSEMBLE ARGUMENT
10156 M01S06207.ns2031 ---| LDC 0 PARAMETER CRACKING FORMAT
10157 M01S06208.ns2031 ---| ARGA EQU *-1
10158 M01S06209.ns2031 ---| NJN ARG2 IF KRONOS FORMAT
10159 M01S06210.ns2031 ---| RJM TSS TRANSLATE SCOPE FORMAT
10160 M01S06211.ns2031 ---| UJN ARG3 STORE ARGUMENT
10161 M01S06212.ns2031 ---|
10162 M01S06213.ns2031 ---| ARG2 LDI CA CHECK SEPARATOR
10163 M01S06214.ns2031 ---| LMN 1R,
10164 M01S06215.ns2031 ---| ZJN ARG4 IF *,*
10165 M01S06216.ns2031 ---| LMN 1R, ENTER SEPARATOR
10166 M01S06217.ns2031 ---| ARG3 STD AB+4
10167 M01S06218.ns2031 ---| ARG4 LDD RA STORE ARGUMENT
10168 M01S06219.ns2031 ---| SHN 6
10169 M01S06220.ns2031 ---| ADN ARGR
10170 M01S06221.ns2031 ---| ADD T2
10171 M01S06222.ns2031 ---| CWD AB
10172 M01S06223.ns2031 ---| AOD T2 ADVANCE ARGUMENT COUNT
10173 M01S06224.ns2031 ---| SBN 1
10174 M01S06225.ns2031 ---| LMC 60 CHECK ARGUMENT LIMIT
10175 M01S06226.ns2031 ---| ARGB EQU *-1
10176 M01S06227.ns2031 ---| NJN ARG1 IF NOT ARGUMENT LIMIT
10177 M01S06228.ns2031 ---| LDN ZERL ENSURE ZERO TERMINATED ARGUMENT LIST
10178 M01S06229.ns2031 ---| CRD CM
10179 M01S06230.ns2031 ---| LDD RA
10180 M01S06231.ns2031 ---| SHN 6
10181 M01S06232.ns2031 ---| ADN ARGR+60+1
10182 M01S06233.ns2031 ---| CWD CM
10183 M01S06234.ns2031 ---| LDC =C* TOO MANY ARGUMENTS.*
10184 M01S06235.ns2031 ---| LJM ERR1 PROCESS ERROR
10185 M00S06236.1aj +++| ASN SPACE 4,15
10186 M00S06237.1aj +++|** ASN - ASSEMBLE NAME.
10187 M00S06238.1aj +++|*
10188 M00S06239.1aj +++|* ENTRY (CA) = FIRST ADDRESS OF CHARACTER STRING.
10189 M00S06240.1aj +++|* (ARGA) = 0 IF SCOPE FORMAT.
10190 M00S06241.1aj +++|*
10191 M00S06242.1aj +++|* EXIT (AB - AB+4) = ASSEMBLED NAME.
10192 M00S06243.1aj +++|*
10193 M00S06244.1aj +++|* ERROR TO *ERR* IF ERROR.
10194 M00S06245.1aj +++|* TO *ATX1* IF ERROR AND EXIT FLAG SET.
10195 M00S06246.1aj +++|* TO *RCA10* IF ERROR ON *ARG=* READ AHEAD.
10196 M00S06247.1aj +++|*
10197 M00S06248.1aj +++|* USES T1.
10198 M00S06249.1aj +++|*
10199 M00S06250.1aj +++|* CALLS IOC.
10200 M00S06251.1aj +++|
10201 M00S06252.1aj +++|
10202 M00S06253.1aj +++| ASN SUBR ENTRY/EXIT
10203 M00S06254.1aj +++| LDN ZERL CLEAR ASSEMBLY
10204 M00S06255.1aj +++| CRD AB
10205 M00S06256.1aj +++| LDN AB SET BYTE ADDRESS
10206 M00S06257.1aj +++| STD T1
10207 M00S06258.1aj +++| ASN1 RJM IOC INTERROGATE ONE CHARACTER
10208 M00S06259.1aj +++| ZJN ASNX IF END OF STRING
10209 M00S06260.1aj +++| SHN 6
10210 M00S06261.1aj +++| STI T1
10211 M00S06262.1aj +++| RJM IOC INTERROGATE ONE CHARACTER
10212 M00S06263.1aj +++| ZJN ASNX IF END OF STRING
10213 M00S06264.1aj +++| RAI T1
10214 M00S06265.1aj +++| AOD T1 ADVANCE BYTE
10215 M00S06266.1aj +++| LMN AB+4
10216 M00S06267.1aj +++| NJN ASN1 IF MORE CHARACTERS TO PROCESS
10217 M00S06268.1aj +++| LJM ERR FORMAT ERROR
10218 M00S06269.1aj +++| ASNA EQU *-1 (ATX)
10219 M00S06270.1aj +++|* LJM RCA10 (*ARG=* ON READ AHEAD)
10220 M00S06271.1aj +++|* LJM ATX1 (EXIT FLAG SET)
10221 M00S06272.1aj +++|* LJM ERR (END OF EXIT. CARD SEARCH, EXIT FLAG SET)
10222 M00S06273.1aj +++| CAT SPACE 4,10
| Line S06274 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10223 M01S06274.v23l617 ---|** CAT - CLEAR ADDRESS FOR *TCS* EXECUTE CONTROL STATEMENT.
| Line S00639 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10224 M01S00639.v23l617 +++|** CAT - CLEAR ADDRESS FOR *TCS* EXECUTE COMMAND.
10225 M00S06275.1aj +++|*
10226 M00S06276.1aj +++|* EXIT (A) = (T1) = (CP) + *RFCW*.
10227 M00S06277.1aj +++|* (CM - CM+4) = (*RFCW*).
10228 M00S06278.1aj +++|*
10229 M00S06279.1aj +++|* USES T1, CM - CM+4.
10230 M00S06280.1aj +++|
10231 M00S06281.1aj +++|
10232 M00S06282.1aj +++| CAT SUBR ENTRY/EXIT
| Line S06283 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10233 M01S06283.v23l617 ---| LDD CP READ ADDRESS FOR EXECUTE STATEMENT FROM CM
| Line S00640 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10234 M01S00640.v23l617 +++| LDD CP READ ADDRESS FOR EXECUTE COMMAND FROM CM
10235 M00S06284.1aj +++| ADN RFCW
10236 M00S06285.1aj +++| STD T1
10237 M00S06286.1aj +++| CRD CM
10238 M00S06287.1aj +++| LDN 0 CLEAR ADDRESS
10239 M00S06288.1aj +++| STD CM+2
10240 M00S06289.1aj +++| LDD CM+3
10241 M00S06290.1aj +++| LPN 77
10242 M00S06291.1aj +++| STD CM+3
10243 M00S06292.1aj +++| LDD T1
10244 M00S06293.1aj +++| CWD CM
10245 M00S06294.1aj +++| UJN CATX RETURN
| Line S06295 Modification History |
M01 (Removed by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10246 M01S06295.ns2031 ---| CSE SPACE 4,20
10247 M01S06296.ns2031 ---|** CSE - CHECK FOR SPECIAL ENTRY POINTS.
10248 M01S06297.ns2031 ---|*
10249 M01S06298.ns2031 ---|* ENTRY (T1 - T2) ADDRESS OF DIRECTORY ENTRY.
10250 M01S06299.ns2031 ---|* (CW - CW+4) = LIBRARY CONTROL WORD.
10251 M01S06300.ns2031 ---|*
10252 M01S06301.ns2031 ---|* EXIT (CSEB - CSEB+4) SPECIAL ENTRY POINT WORD.
10253 M01S06302.ns2031 ---|* TO *CPP* TO CALL *1AJ* IF *DMP=* STATEMENT CALL.
10254 M01S06303.ns2031 ---|*
10255 M01S06304.ns2031 ---|* ERROR TO *ERR8* IF VALIDATION VIOLATION.
10256 M01S06305.ns2031 ---|*
10257 M01S06306.ns2031 ---|* USES T1, T2, FS - FS+4.
10258 M01S06307.ns2031 ---|*
10259 M01S06308.ns2031 ---|* CALLS CVD, *1AJ*.
10260 M01S06309.ns2031 ---|*
10261 M01S06310.ns2031 ---|* MACROS EXECUTE.
10262 M01S06311.ns2031 ---|
10263 M01S06312.ns2031 ---|
10264 M01S06313.ns2031 ---| CSE SUBR ENTRY/EXIT
10265 M01S06314.ns2031 ---| LDD CW+1
10266 M01S06315.ns2031 ---| SHN 21-10
10267 M01S06316.ns2031 ---| PJN CSE1 IF NO SPECIAL ENTRY POINTS
10268 M01S06317.ns2031 ---| LDD T1 READ SPECIAL ENTRY POINT WORD FROM PST
10269 M01S06318.ns2031 ---| SHN 14
10270 M01S06319.ns2031 ---| LMD T2
10271 M01S06320.ns2031 ---| ADN 1
10272 M01S06321.ns2031 ---| CRM CSEB,ON
10273 M01S06322.ns2031 ---| UJN CSE2 START PROCESSING
10274 M01S06323.ns2031 ---|
10275 M01S06324.ns2031 ---| CSE1 LDN ZERL CLEAR SPECIAL ENTRY POINT WORD BUFFER
10276 M01S06325.ns2031 ---| CRM CSEB,ON
10277 M01S06326.ns2031 ---| CSE2 LDM CSEB
10278 M01S06327.ns2031 ---| SHN 21-6
10279 M01S06328.ns2031 ---| PJN CSE3 IF NO *CLB=*
10280 M01S06329.ns2031 ---| LDD FL
10281 M01S06330.ns2031 ---| ZJN CSE2.1 IF NO FL
10282 M01S06331.ns2031 ---| ADD RA CHECK WORD COUNT
10283 M01S06332.ns2031 ---| SBN 1
10284 M01S06333.ns2031 ---| SHN 6
10285 M01S06334.ns2031 ---| CRD FS
10286 M01S06335.ns2031 ---| LDD FS+4
10287 M01S06336.ns2031 ---| ZJN CSE2.1 IF NO DATA
10288 M01S06337.ns2031 ---| LDM IPLB+4 CHECK TERMINAL NUMBER
10289 M01S06338.ns2031 ---| ZJN CSE2.1 IF NOT ON-LINE INTERACTIVE JOB
10290 M01S06339.ns2031 ---| AOM /3AE/SLPF
10291 M01S06340.ns2031 ---| UJN CSE3 ALL CONDITIONS MET FOR *CLB=*
10292 M01S06341.ns2031 ---|
10293 M01S06342.ns2031 ---| CSE2.1 LDC -100 CLEAR *CLB=* STATUS
10294 M01S06343.ns2031 ---| RAM CSEB
10295 M01S06344.ns2031 ---| CSE3 LDM CSEB
10296 M01S06345.ns2031 ---| SHN 21-1
10297 M01S06346.ns2031 ---| MJN CSE4 IF *VAL=* PRESENT
10298 M01S06347.ns2031 ---| LDM TCSA
10299 M01S06348.ns2031 ---| ZJN CSE4 IF NO VALIDATION REQUIRED
10300 M01S06349.ns2031 ---| LJM ERR8 PROCESS IMPROPER VALIDATION
10301 M01S06350.ns2031 ---|
10302 M01S06351.ns2031 ---| CSE4 LDM CSEB
10303 M01S06352.ns2031 ---| SHN 21-4
10304 M01S06353.ns2031 ---| PJN CSE5 IF *DMP=* NOT PRESENT
10305 M01S06354.ns2031 ---| LDD CP CHECK IF SPECIAL CALL PRESENT
10306 M01S06355.ns2031 ---| ADC SPCW
10307 M01S06356.ns2031 ---| CRD FS
10308 M01S06357.ns2031 ---| LDD FS
10309 M01S06358.ns2031 ---| NJN CSE5 IF CALL PRESENT
10310 M01S06359.ns2031 ---| LDM CSEB+2
10311 M01S06360.ns2031 ---| SHN 21-11
10312 M01S06361.ns2031 ---| PJN CSE6 IF *DMP=* NOT SUPPRESSED ON CONTROL CARDS
10313 M01S06362.ns2031 ---| LDM CSEB CLEAR *DMP=*
10314 M01S06363.ns2031 ---| LMN 20
10315 M01S06364.ns2031 ---| STM CSEB
10316 M01S06365.ns2031 ---| CSE5 LJM CSEX RETURN
10317 M01S06366.ns2031 ---|
10318 M01S06367.ns2031 ---|
10319 M01S06368.ns2031 ---| CSEA BSS 0
10320 M01S06369.ns2031 ---| CSE6 LDN 0 IF NOT POSSIBLE CONTINUATION CARD
10321 M01S06370.ns2031 ---|* LDN 1 (POSSIBLE CONTINUATION CARD)
10322 M01S06371.ns2031 ---| NJN CSE5 IF POSSIBLE CONTINUATION CARD
10323 M01S06372.ns2031 ---| RJM CVD CHECK VALID *DMP=* CALL
10324 M01S06373.ns2031 ---| LDD CP SAVE INPUT REGISTER
10325 M01S06374.ns2031 ---| ADC SEPW
10326 M01S06375.ns2031 ---| CWD IR
10327 M01S06376.ns2031 ---| LDN 0
10328 M01S06377.ns2031 ---| STD IR+2 CLEAR INPUT REGISTER
10329 M01S06378.ns2031 ---| STD IR+3
10330 M01S06379.ns2031 ---| STD IR+4
10331 M01S06380.ns2031 ---| LDN 77 SET CALL PRESENT
10332 M01S06381.ns2031 ---| STD FS
10333 M01S06382.ns2031 ---| LDN 24 SET *DMP=* AND NO RA+1 CLEAR FLAGS
10334 M01S06383.ns2031 ---| STD FS+1
10335 M01S06384.ns2031 ---| LDD CP SET *DMP=* CALL
10336 M01S06385.ns2031 ---| ADC SPCW
10337 M01S06386.ns2031 ---| CWD FS
10338 M01S06387.ns2031 ---| SBN SPCW-TERW
10339 M01S06388.ns2031 ---| CRD FS
10340 M01S06389.ns2031 ---| LDM CSEB+2
10341 M01S06390.ns2031 ---| STD FS+3
10342 M01S06391.ns2031 ---| LDM CSEB+3
10343 M01S06392.ns2031 ---| STD FS+4
10344 M01S06393.ns2031 ---| LDD CP
10345 M01S06394.ns2031 ---| ADN TERW
10346 M01S06395.ns2031 ---| CWD FS
10347 M01S06396.ns2031 ---| EXECUTE 1AJ,* RE-CALL *1AJ*
10348 M01S06397.ns2031 ---| LJM CPP CALL PP PROGRAM
10349 M01S06398.ns2031 ---|
10350 M01S06399.ns2031 ---|
10351 M01S06400.ns2031 ---| CSEB BSSZ 5 SPECIAL ENTRY POINT WORD
10352 M01S06401.ns2031 ---| CST SPACE 4,10
10353 M01S06402.ns2031 ---|** CST - CLEAR STORAGE.
10354 M01S06403.ns2031 ---|*
10355 M01S06404.ns2031 ---|* ENTRY (CSTB) = 0 IF ECS TO BE CLEARED.
10356 M01S06405.ns2031 ---|* (CSTC) = FWA OF ECS TO CLEAR.
10357 M01S06406.ns2031 ---|* (CSTD) = WORD COUNT OF ECS TO CLEAR.
10358 M01S06407.ns2031 ---|*
10359 M01S06408.ns2031 ---|* EXIT CM AND ECS CLEARED AS NECESSARY.
10360 M01S06409.ns2031 ---|*
10361 M01S06410.ns2031 ---|* USES CM - CM+4.
10362 M01S06411.ns2031 ---|*
10363 M01S06412.ns2031 ---|* MACROS MONITOR.
10364 M01S06413.ns2031 ---|
10365 M01S06414.ns2031 ---|
10366 M01S06415.ns2031 ---| CST SUBR ENTRY/EXIT
10367 M01S06416.ns2031 ---| CSTA LDD HN SET CM RELATIVE *CSTM* ADDRESSES
10368 M01S06417.ns2031 ---|* UJN CSTB (IF LOADING *LDR=* OR *SLDR=*)
10369 M01S06418.ns2031 ---| STD CM+1
10370 M01S06419.ns2031 ---| MONITOR CSTM
10371 M01S06420.ns2031 ---| CSTB UJN CSTX IF ECS NOT TO BE CLEARED
10372 M01S06421.ns2031 ---|* PSN (IF ALSO CLEARING ECS)
10373 M01S06422.ns2031 ---|
10374 M01S06423.ns2031 ---| LDC ** FWA OF ECS TO CLEAR
10375 M01S06424.ns2031 ---| CSTC EQU *-1
10376 M01S06425.ns2031 ---| STD CM+4
10377 M01S06426.ns2031 ---| LDC ** WORD COUNT TO CLEAR
10378 M01S06427.ns2031 ---| CSTD EQU *-1
10379 M01S06428.ns2031 ---| STD CM+2
10380 M01S06429.ns2031 ---| LDN 0
10381 M01S06430.ns2031 ---| STD CM+3
10382 M01S06431.ns2031 ---| LDC 300 SET ECS RELATIVE *CSTM* ADDRESSES
10383 M01S06432.ns2031 ---| STD CM+1
10384 M01S06433.ns2031 ---| MONITOR CSTM
10385 M01S06434.ns2031 ---| UJN CSTX RETURN
10386 M00S06435.1aj +++| CVD SPACE 4,10
10387 M00S06436.1aj +++|** CVD - CHECK VALID *DMP=* CALL
10388 M00S06437.1aj +++|*
10389 M00S06438.1aj +++|* EXIT TO CALLING ROUTINE IF *DMP=* CALL VALID.
10390 M00S06439.1aj +++|*
| Line S06440 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10391 M01S06440.v23l617 ---|* ERROR TO *ERR1* IF *DMP=* CALL INVALID.
| Line S00641 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
10392 M01S00641.v23l617 +++|* ERROR TO *ERR1* IF *DMP=* CALL INCORRECT.
10393 M00S06441.1aj +++|*
10394 M00S06442.1aj +++|* USES CM - CM+4.
| Line S06443 Modification History |
M01 (Removed by) | 1aj92 |
Seq # *Modification Id* Act
----------------------------+
10395 M01S06443.1aj92 ---|*
10396 M01S06444.1aj92 ---|* CALLS CUA.
10397 M00S06445.1aj +++|
10398 M00S06446.1aj +++|
10399 M00S06447.1aj +++| CVD SUBR ENTRY/EXIT
| Line S00247 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10400 M01S00247.ns2031 +++| LDD FL
10401 M01S00248.ns2031 +++| ZJN CVD2 IF NO FL PRESENT
10402 M00S06448.1aj +++| LDD CP CHECK SSM STATUS
10403 M00S06449.1aj +++| ADC DBAW
10404 M00S06450.1aj +++| CRD CM
10405 M00S06451.1aj +++| LDD CM
10406 M00S06452.1aj +++| SHN 21-13
| Line S06453 Modification History |
M01 (Removed by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10407 M01S06453.ns2031 ---| PJN CVDX IF NOT SECURE MEMORY
10408 M01S06454.ns2031 ---| RJM CUA CHECK USER ACESS
| Line S00249 Modification History |
M01 (Added by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10409 M01S00249.ns2031 +++| MJN CVD1 IF SECURE MEMORY
10410 M01S00250.ns2031 +++| SHN 21-11-21+13
10411 M01S00251.ns2031 +++| PJN CVDX IF NOT INTERACTIVE JOB STEP INITIATION
10412 M01S00252.ns2031 +++| LDC /ERR/EM04 * INTERACTIVE JOB STEP, DUMP DISABLED.*
10413 M01S00253.ns2031 +++| STM CVDA
| Line S00254 Modification History |
M01 (Added by) | ns2031 |
M02 (Removed by) | 1aj92 |
Seq # *Modification Id* Act
----------------------------+
10414 M02S00254.1aj92 ---| CVD1 RJM CUA CHECK USER ACCESS
| Line S00029 Modification History |
M01 (Added by) | 1aj92 |
Seq # *Modification Id* Act
----------------------------+
10415 M01S00029.1aj92 +++| CVD1 LDM TCSD CHECK USER ACCESS
10416 M00S06455.1aj +++| ZJN CVDX IF ACCESS ALLOWED
10417 M00S06456.1aj +++| LDC UJNI+IST4-ISTB
10418 M00S06457.1aj +++| STM ISTB SET JUMP
| Line S06458 Modification History |
M01 (Removed by) | ns2031 |
Seq # *Modification Id* Act
----------------------------+
10419 M01S06458.ns2031 ---| LDC =C* SECURE MEMORY, DUMP DISABLED.*