cdc:nos2.source:opl.opl871:deck:profile.002
Deck PROFILE Part 002
21 Modifications
Listing Sections
- Deck PROFILE Start
- Deck PROFILE Part 1 (Line 1458)
- Deck PROFILE Part 2 (Line 3110)
- Deck PROFILE Part 3 (Line 4966)
- Deck PROFILE Part 4 (Line 6276)
Source
Seq # *Modification Id* Act ----------------------------+ 03110 M01S02685.profile +++|* 03111 M01S02686.profile +++|* CALLS ADB, ATS, CDD, CDV, DQP, ILR, KOP, MQE, MVE, MWS, PDE,
| Line S02687 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03112 M02S02687.v23l617 ---|* PEI, RCE, UPC, WDL. 03113 M01S00116.v23l617 +++|* PEI, RCE, SPT, UPC, WDL. 03114 M01S02688.profile +++|* 03115 M01S02689.profile +++|* USES ALL REGISTERS. 03116 M01S02690.profile +++| 03117 M01S02691.profile +++| 03118 M01S02692.profile +++| PND BSS 0 03119 M01S02693.profile +++| BX6 X6-X6 CLEAR PROJECT NUMBER FLAG 03120 M01S02694.profile +++| SA6 FPNP 03121 M01S00117.v23l617 +++| BX6 X1 SAVE REGISTER CONTENTS 03122 M01S00118.v23l617 +++| BX7 X2 03123 M01S00119.v23l617 +++| SA6 PNDA 03124 M01S00120.v23l617 +++| BX1 X1-X1 03125 M01S00121.v23l617 +++| SA7 PNDB 03126 M01S00122.v23l617 +++| RJ SPT SET PAGE TABLE TO CHARGE DISPLAY 03127 M01S00123.v23l617 +++| SA1 PNDA RESTORE REGISTERS 03128 M01S00124.v23l617 +++| SA2 PNDB
| Line S02695 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03129 M02S02695.v23l617 ---| SA6 DSPN DISABLE K-DISPLAY FOR PROJECT NUMBER 03130 M01S02696.profile +++| RJ CDV CHECK DIRECTIVE AND VALUE 03131 M01S02697.profile +++| SA3 FCNP 03132 M01S02698.profile +++| ZR X3,PND13 IF NO CHARGE NUMBER PRESENT 03133 M01S02699.profile +++| SA3 UF 03134 M01S02700.profile +++| NZ X3,PND2 IF *UPDATE* MODE 03135 M01S02701.profile +++| SX1 X1-XDPN 03136 M01S02702.profile +++| ZR X1,PND14 IF *DPN* 03137 M01S02703.profile +++| RJ WDL WRITE DATA LEVEL 03138 M01S02704.profile +++| SA0 B1+B1 03139 M01S02705.profile +++| BX1 X1-X1 03140 M01S02706.profile +++| SB6 CBUF 03141 M01S02707.profile +++| FUNC MWST SEARCH TABLE 2 03142 M01S02708.profile +++| ZR X2,PND15 IF PROJECT NUMBER FOUND 03143 M01S02709.profile +++| SX1 XAPN 03144 M01S02710.profile +++| RJ UPC UPDATE PROJECT COUNT 03145 M01S02711.profile +++| LX6 18 VALIDATE AGAINST *PCL* VALUE 03146 M01S02712.profile +++| MX3 -12 03147 M01S02713.profile +++| BX3 -X3*X6 03148 M01S02714.profile +++| ZR X3,PND1 IF NO RESTRICTION 03149 M01S02715.profile +++| IX3 X3-X4 03150 M01S02716.profile +++| NG X3,PND19 IF *PCL* VALUE EXCEEDED 03151 M01S02717.profile +++| PND1 LX6 -18 03152 M01S02718.profile +++| SA6 A2 03153 M01S02719.profile +++| SX6 B1 INDICATE NEED TO UPDATE LEVELS 2 AND 3 03154 M01S02720.profile +++| SA6 FUP2 03155 M01S02721.profile +++| SA6 A6+B1 03156 M01S02722.profile +++| SA5 L.TAB2 TABLE 2 INDEX OF ENTRY 03157 M01S02723.profile +++| BX6 X5 03158 M01S02724.profile +++| SA6 T2IE 03159 M01S02725.profile +++| SA1 CBUF 03160 M01S02726.profile +++| ADDWRD TAB2,X1 03161 M01S02727.profile +++| SA1 CBUF+1 03162 M01S02728.profile +++| ADDWRD TAB2,X1 03163 M01S02729.profile +++| BX1 X1-X1 03164 M01S02730.profile +++| ADDWRD TAB2,X1 03165 M01S02731.profile +++| SX0 N 03166 M01S02732.profile +++| RJ PDE PROCESS DATA LEVEL ENTRY 03167 M01S02733.profile +++| RJ ILR INITIALIZE INSTALLATION LIMIT REGISTERS 03168 M01S02734.profile +++| MOVE C.TAB3,D3AA,X0 03169 M01S02735.profile +++| SX6 B1 INDICATE PROJECT NUMBER PRESENT 03170 M01S02736.profile +++| SA6 FPNP 03171 M01S02737.profile +++| MOVE 2,CBUF,X0+PRJW PROJECT NUMBER 03172 M01S02738.profile +++| MOVE 2,CBUF,PN 03173 M01S02739.profile +++| EQ DIP1 *MAIN* LOOP* RETURN 03174 M01S02740.profile +++| 03175 M01S02741.profile +++|* *UPDATE* MODE. 03176 M01S02742.profile +++| 03177 M01S02743.profile +++| PND2 RJ DQP DIRECTIVE QUEUE PROCESSOR 03178 M01S02744.profile +++| BX6 X6-X6 RE-SET FIELD SIZE 03179 M01S02745.profile +++| SA6 DF+2 03180 M01S02746.profile +++| RJ RCE REGENERATE CHARGE NUMBER QUEUE ENTRY 03181 M01S02747.profile +++| MOVE 2,CBUF,PN PROJECT NUMBER 03182 M01S02748.profile +++| RJ PEI PROJECT ENTRY INITIALIZATION 03183 M01S02749.profile +++| SA1 OP 03184 M01S02750.profile +++| SB2 X1-COPT 03185 M01S02751.profile +++| NZ X4,PND6 IF PROJECT NUMBER NOT FOUND 03186 M01S02752.profile +++| ZR B2,PND15 IF *CREATE* OPTION 03187 M01S02753.profile +++| SX7 X5 03188 M01S02754.profile +++| SX0 N 03189 M01S02755.profile +++| RJ ADB ADD DATA LEVEL BLOCK 03190 M01S02756.profile +++| MX0 1 03191 M01S02757.profile +++| SA1 DTII 03192 M01S02758.profile +++| SA2 A5+PTMW 03193 M01S02759.profile +++| SB3 X1-XPND 03194 M01S02760.profile +++| ZR B3,PND4 IF *PN* 03195 M01S02761.profile +++| SB3 X1-XAPN 03196 M01S02762.profile +++| ZR B3,PND3 IF *APN* 03197 M01S02763.profile +++| NG X2,PND16 IF PROJECT NUMBER INACTIVE 03198 M01S02764.profile +++| BX6 X0+X2 DEACTIVATE PROJECT NUMBER 03199 M01S02765.profile +++| SA6 A2 03200 M01S02766.profile +++| RJ UPC UPDATE PROJECT COUNT 03201 M01S02767.profile +++| SA6 A2 03202 M01S02768.profile +++| BX1 X4 UPDATE K-DISPLAY PROJECT COUNT 03203 M01S02769.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION 03204 M01S02770.profile +++| BX6 X4 03205 M01S02771.profile +++| SA6 DSCO+2 03206 M01S02772.profile +++| EQ PND12 03207 M01S02773.profile +++| 03208 M01S02774.profile +++| PND3 NG X2,PND5 IF PROJECT NUMBER INACTIVE 03209 M01S02775.profile +++| EQ PND17 ERROR 03210 M01S02776.profile +++| 03211 M01S02777.profile +++| PND4 PL X2,PND11 IF PROJECT NUMBER ACTIVE
| Line S02778 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03212 M02S02778.ns22000 ---| SA3 CV
| Line S02779 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03213 M02S02779.ns22000 ---| ZR X3,PND16 IF NOT *CV* OPTION
| Line S02780 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03214 M02S02780.ns22000 ---| SX6 XAPN SET TO *APN*
| Line S02781 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03215 M02S02781.ns22000 ---| SA6 DTII 03216 M01S00209.ns22000 +++| EQ PND16 ERROR 03217 M01S00210.ns22000 +++| 03218 M01S02782.profile +++| PND5 BX6 -X0*X2 ACTIVATE PROJECT NUMBER 03219 M01S02783.profile +++| SA6 A2 03220 M01S02784.profile +++| EQ PND9 03221 M01S02785.profile +++| 03222 M01S02786.profile +++| PND6 SA1 DTII 03223 M01S02787.profile +++| SB3 X1-XAPN 03224 M01S02788.profile +++| ZR B3,PND8 IF *APN* 03225 M01S02789.profile +++| SB3 X1-XDPN 03226 M01S02790.profile +++| ZR B3,PND18 IF *DPN*
| Line S02791 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03227 M02S02791.ns22000 ---| ZR B2,PND7 IF *CREATE* OPTION
| Line S02792 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03228 M02S02792.ns22000 ---| SA2 CV
| Line S02793 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03229 M02S02793.ns22000 ---| ZR X2,PND18 IF NOT *CV* OPTION 03230 M01S00211.ns22000 +++| NZ B2,PND18 IF NOT *CREATE* OPTION 03231 M01S02794.profile +++| PND7 SX6 XAPN SET TO *APN* 03232 M01S02795.profile +++| SA6 DTII 03233 M01S02796.profile +++| PND8 BX6 X6-X6 03234 M01S02797.profile +++| SA6 T3IE TABLE 3 INDEX OF ENTRY 03235 M01S02798.profile +++| SA6 L.TAB3 EMPTY TABLE 3 03236 M01S02799.profile +++| ALLOC TAB3,PUNW 03237 M01S02800.profile +++| SA5 X2 03238 M01S02801.profile +++| RJ ILR INITIALIZE INSTALLATION LIMIT REGISTERS 03239 M01S02802.profile +++| MOVE 2,PN,D3AA+PRJW 03240 M01S02803.profile +++| MOVE PUNW,D3AA,A5 INITIALIZE ENTRY TO DEFAULT 03241 M01S02804.profile +++| 03242 M01S02805.profile +++| PND9 SX1 XAPN 03243 M01S02806.profile +++| RJ UPC UPDATE PROJECT COUNT 03244 M01S02807.profile +++| LX6 18 VALIDATE AGAINST *PCL* VALUE 03245 M01S02808.profile +++| MX3 -12 03246 M01S02809.profile +++| BX3 -X3*X6 03247 M01S02810.profile +++| ZR X3,PND10 IF NO RESTRICTION 03248 M01S02811.profile +++| IX3 X3-X4 03249 M01S02812.profile +++| NG X3,PND19 IF *PCL* VALUE EXCEEDED 03250 M01S02813.profile +++| PND10 LX6 -18 03251 M01S02814.profile +++| SA6 A2 03252 M01S02815.profile +++| BX1 X4 UPDATE K-DISPLAY PROJECT COUNT 03253 M01S02816.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION 03254 M01S02817.profile +++| BX6 X4 03255 M01S02818.profile +++| SA6 DSCO+2 03256 M01S02819.profile +++| PND11 SX6 B1 INDICATE PROJECT NUMBER PRESENT 03257 M01S02820.profile +++| SA6 FPNP 03258 M01S02821.profile +++| PND12 RJ KOP K-DISPLAY OUTPUT FOR PROJECT NUMBER 03259 M01S02822.profile +++| BX6 X6-X6 RE-SET FIELD SIZE 03260 M01S02823.profile +++| SA6 DF+2 03261 M01S02824.profile +++| SA1 DTII 03262 M01S02825.profile +++| SA2 X1+TOPR 03263 M01S02826.profile +++| BX5 X5-X5 03264 M01S02827.profile +++| RJ MQE MAKE QUEUE ENTRY 03265 M01S02828.profile +++| JP DIP1 *MAIN LOOP* RETURN 03266 M01S02829.profile +++| 03267 M01S02830.profile +++| PND13 SB3 ERUH 03268 M01S02831.profile +++| EQ PND20 03269 M01S02832.profile +++| PND14 SB3 ERUA 03270 M01S02833.profile +++| EQ PND20 03271 M01S02834.profile +++| PND15 SB3 ERUS 03272 M01S02835.profile +++| EQ PND20 03273 M01S02836.profile +++| PND16 SB3 ERUO 03274 M01S02837.profile +++| EQ PND20 03275 M01S02838.profile +++| PND17 SB3 ERUJ 03276 M01S02839.profile +++| EQ PND20 03277 M01S02840.profile +++| PND18 SB3 ERUI 03278 M01S02841.profile +++| EQ PND20 03279 M01S02842.profile +++| PND19 SB3 ERUN 03280 M01S02843.profile +++| PND20 RJ ERU USER ERROR 03281 M01S02844.profile +++| JP DIP1 *MAIN LOOP* RETURN 03282 M01S00125.v23l617 +++| 03283 M01S00126.v23l617 +++| 03284 M01S00127.v23l617 +++| PNDA BSS 1 HOLD REGISTER CONTENTS 03285 M01S00128.v23l617 +++| PNDB BSS 1 HOLD REGISTER CONTENTS 03286 M01S02845.profile +++| TMD SPACE 4,10 03287 M01S02846.profile +++|** TMD - TIME DIRECTIVES. 03288 M01S02847.profile +++|* 03289 M01S02848.profile +++|* *TI*, *TO* DIRECTIVES. 03290 M01S02849.profile +++|* CONVERT TIME TO PACKED FORMAT PRODUCED BY *PDATE*. 03291 M01S02850.profile +++|* 03292 M01S02851.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR). 03293 M01S02852.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE. 03294 M01S02853.profile +++|* (DTII) = TABLE INDEX. 03295 M01S02854.profile +++|* 03296 M01S02855.profile +++|* EXIT TO DIP1. 03297 M01S02856.profile +++|* 03298 M01S02857.profile +++|* CALLS CCP, CDV, CNV, MQE. 03299 M01S02858.profile +++|* 03300 M01S02859.profile +++|* USES ALL REGISTERS. 03301 M01S02860.profile +++| 03302 M01S02861.profile +++| 03303 M01S02862.profile +++| TMD BSS 0 03304 M01S02863.profile +++| RJ CDV CHECK DIRECTIVE AND VALUE 03305 M01S02864.profile +++| RJ CNV CONVERT NUMERIC VALUE 03306 M01S02865.profile +++| SA1 DTII 03307 M01S02866.profile +++| SA2 X1+TOPR 03308 M01S02867.profile +++| RJ CCP CHECK FOR CHARGE/PROJECT NUMBER REQUIRED 03309 M01S02868.profile +++| ZR X5,TMD1 IF ZERO VALUE 03310 M01S02869.profile +++| SX0 100 CALCULATE HOURS 03311 M01S02870.profile +++| BX3 X5 03312 M01S02871.profile +++| IX3 X3/X0 03313 M01S02872.profile +++| SX0 100 03314 M01S02873.profile +++| IX4 X0*X3 CALCULATE MINUTES 03315 M01S02874.profile +++| IX4 X5-X4 03316 M01S02875.profile +++| SX7 X4-60 03317 M01S02876.profile +++| PL X7,TMD2 IF TOO LARGE 03318 M01S02877.profile +++| LX3 6 POSITION HOURS 03319 M01S02878.profile +++| BX5 X3+X4 MERGE HOURS AND MINUTES 03320 M01S02879.profile +++| LX5 6 ASSUME ZERO SECONDS 03321 M01S02880.profile +++| TMD1 RJ MQE MAKE QUEUE ENTRY 03322 M01S02881.profile +++| JP DIP1 *MAIN LOOP* RETURN 03323 M01S02882.profile +++| 03324 M01S02883.profile +++| TMD2 SB3 ERUK 03325 M01S02884.profile +++| RJ ERU USER ERROR 03326 M01S02885.profile +++| JP DIP1 *MAIN LOOP* RETURN 03327 M01S02886.profile +++| UND SPACE 4,10
| Line S02887 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03328 M02S02887.v23l617 ---|** UND - USER NUMBER DIRECTIVE. 03329 M01S00129.v23l617 +++|** UND - USER NAME DIRECTIVE. 03330 M01S02888.profile +++|* 03331 M01S02889.profile +++|* *MU*, *AUN*, *DUN* DIRECTIVES. 03332 M01S02890.profile +++|* 03333 M01S02891.profile +++|* ENTRY (X1) = TABLE INDEX. 03334 M01S02892.profile +++|* (X2) = TABLE ENTRY (TOPR). 03335 M01S02893.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE. 03336 M01S02894.profile +++|* 03337 M01S02895.profile +++|* EXIT TO DIP1. 03338 M01S02896.profile +++|* 03339 M01S02897.profile +++|* CALLS AUN, CCP, CDV, MQE. 03340 M01S02898.profile +++|* 03341 M01S02899.profile +++|* USES ALL REGISTERS. 03342 M01S02900.profile +++| 03343 M01S02901.profile +++| 03344 M01S02902.profile +++| UND BSS 0
| Line S02903 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | profi13 |
Seq # *Modification Id* Act ----------------------------+ 03345 M02S02903.profi13 ---| RJ CDV CHECK DIRECTIVE AND VALUE 03346 M01S00043.profi13 +++| NZ X4,UND0.1 IF ENTERED VALUE NOT NULL 03347 M01S00044.profi13 +++| SB2 X1-XMUN 03348 M01S00045.profi13 +++| NZ B2,UND0.1 IF NOT *MU* 03349 M01S00046.profi13 +++| SX4 1 ALLOW NULL VALUE 03350 M01S00047.profi13 +++| UND0.1 RJ CDV CHECK DIRECTIVE AND VALUE 03351 M01S02904.profile +++| RJ CCP CHECK FOR CHARGE/PROJECT NUMBER REQUIRED
| Line S02905 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03352 M02S02905.v23l617 ---| SA5 CBUF RIGHT JUSTIFY USER NUMBER 03353 M01S00130.v23l617 +++| SA5 CBUF RIGHT JUSTIFY USER NAME 03354 M01S02906.profile +++| LX5 -18 03355 M01S02907.profile +++| SB2 X1-XMUN 03356 M01S02908.profile +++| ZR B2,UND2 IF *MU* 03357 M01S02909.profile +++| SB2 X1-XDUN 03358 M01S02910.profile +++| ZR B2,UND1 IF *DUN* 03359 M01S02911.profile +++| SA3 UF 03360 M01S02912.profile +++| NZ X3,UND2 IF *UPDATE* MODE 03361 M01S02913.profile +++| BX1 X5
| Line S02914 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03362 M02S02914.v23l617 ---| RJ AUN ADD USER NUMBER 03363 M01S00131.v23l617 +++| RJ AUN ADD USER NAME 03364 M01S02915.profile +++| EQ DIP1 03365 M01S02916.profile +++| 03366 M01S02917.profile +++| UND1 SA3 OP 03367 M01S02918.profile +++| SB2 X3-COPT 03368 M01S02919.profile +++| ZR B2,UND3 IF *CREATE* OPTION 03369 M01S02920.profile +++| UND2 RJ MQE MAKE QUEUE ENTRY 03370 M01S02921.profile +++| JP DIP1 *MAIN LOOP* RETURN 03371 M01S02922.profile +++| 03372 M01S02923.profile +++| UND3 SB3 ERUA 03373 M01S02924.profile +++| RJ ERU USER ERROR 03374 M01S02925.profile +++| JP DIP1 *MAIN LOOP* RETURN 03375 M01S02926.profile +++| TITLE UPDATE/CREATE SUBROUTINES - INPUT PROCESSOR ROUTINES. 03376 M01S02927.profile +++| AMQ SPACE 4,10 03377 M01S02928.profile +++|** AMQ - ALLOCATE MEMORY TO DIRECTIVE QUEUE. 03378 M01S02929.profile +++|* 03379 M01S02930.profile +++|* THE DIRECTIVE QUEUE IS DYNAMICALLY EXPANDABLE, BEGINS 03380 M01S02931.profile +++|* AT LOCATION *MEML*, AND PRECEDES TABLE 0. 03381 M01S02932.profile +++|* *QINC* WORDS ARE ALLOCATED PER CALL. 03382 M01S02933.profile +++|* 03383 M01S02934.profile +++|* CALLS ATS, MVE. 03384 M01S02935.profile +++|* 03385 M01S02936.profile +++|* USES ALL REGISTERS EXCEPT X0. 03386 M01S02937.profile +++| 03387 M01S02938.profile +++| 03388 M01S02939.profile +++| AMQ SUBR ENTRY/EXIT 03389 M01S02940.profile +++| SA5 L.TAB0 SAVE TABLE 0 LENGTH 03390 M01S02941.profile +++| ALLOC TAB0,QINC 03391 M01S02942.profile +++| SB2 X2+QINC 03392 M01S02943.profile +++| MOVE X5,X2,B2 03393 M01S02944.profile +++| SX6 B2 UPDATE TABLE 0 FWA AND LOWER MEMORY LIMIT 03394 M01S02945.profile +++| SA6 F.TAB0 03395 M01S02946.profile +++| SA6 LM 03396 M01S02947.profile +++| BX6 X5 RESTORE TABLE 0 LENGTH 03397 M01S02948.profile +++| SA6 A5 03398 M01S02949.profile +++| SA1 QMAX UPDATE QUEUE MAXIMUM SIZE 03399 M01S02950.profile +++| SX6 X1+QINC 03400 M01S02951.profile +++| SA6 A1 03401 M01S02952.profile +++| EQ AMQX 03402 M01S02953.profile +++| CCP SPACE 4,10 03403 M01S02954.profile +++|** CCP - CHECK FOR CHARGE/PROJECT NUMBER REQUIRED. 03404 M01S02955.profile +++|* 03405 M01S02956.profile +++|* LEVEL-1 DIRECTIVES REQUIRE A CHARGE NUMBER IN EFFECT, 03406 M01S02957.profile +++|* AND LEVEL-3 DIRECTIVES A PROJECT NUMBER. 03407 M01S02958.profile +++|* IF AN ERROR IS DETECTED THE APPROPRIATE MESSAGE IS ISSUED. 03408 M01S02959.profile +++|* 03409 M01S02960.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR). 03410 M01S02961.profile +++|* 03411 M01S02962.profile +++|* EXIT TO CCPX, IF NO ERROR. 03412 M01S02963.profile +++|* TO DIP1, IF ERROR DETECTED. 03413 M01S02964.profile +++|* 03414 M01S02965.profile +++|* CALLS NONE, IF NO ERROR. 03415 M01S02966.profile +++|* 03416 M01S02967.profile +++|* USES IF NO ERROR- 03417 M01S02968.profile +++|* X - 3, 4. 03418 M01S02969.profile +++|* A - 4. 03419 M01S02970.profile +++| 03420 M01S02971.profile +++| 03421 M01S02972.profile +++| CCP SUBR ENTRY/EXIT 03422 M01S02973.profile +++| BX3 X2 03423 M01S02974.profile +++| LX3 5 03424 M01S02975.profile +++| PL X3,CCP1 IF NOT LEVEL-3 DIRECTIVE 03425 M01S02976.profile +++| SA4 FPNP 03426 M01S02977.profile +++| NZ X4,CCPX IF PROJECT NUMBER PRESENT 03427 M01S02978.profile +++| EQ CCP2 ERROR 03428 M01S02979.profile +++| 03429 M01S02980.profile +++| CCP1 SA4 FCNP 03430 M01S02981.profile +++| NZ X4,CCPX IF CHARGE NUMBER PRESENT 03431 M01S02982.profile +++| 03432 M01S02983.profile +++| SB3 ERUH ERROR 03433 M01S02984.profile +++| EQ CCP3 03434 M01S02985.profile +++| 03435 M01S02986.profile +++| CCP2 SB3 ERUM 03436 M01S02987.profile +++| CCP3 RJ ERU USER ERROR 03437 M01S02988.profile +++| JP DIP1 *MAIN LOOP* RETURN 03438 M01S02989.profile +++| CDV SPACE 4,10 03439 M01S02990.profile +++|** CDV - CHECK DIRECTIVE AND VALUE. 03440 M01S02991.profile +++|* 03441 M01S02992.profile +++|* CHECK NUMBER OF CHARACTERS IN DIRECTIVE,S PARAMETER VALUE 03442 M01S02993.profile +++|* AND DIRECTIVE,S AUTHORIZATION. IF AN ERROR IS DETECTED, 03443 M01S02994.profile +++|* THE APPROPRIATE MESSAGE IS ISSUED. 03444 M01S02995.profile +++|* 03445 M01S02996.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR). 03446 M01S02997.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE. 03447 M01S02998.profile +++|* 03448 M01S02999.profile +++|* EXIT TO CDVX, IF NO ERROR. 03449 M01S03000.profile +++|* TO DIP1, IF ERROR DETECTED. 03450 M01S03001.profile +++|* 03451 M01S03002.profile +++|* CALLS NONE, IF NO ERROR. 03452 M01S03003.profile +++|* 03453 M01S03004.profile +++|* USES IF NO ERROR- 03454 M01S03005.profile +++|* X - 3, 4, 5, 6. 03455 M01S03006.profile +++|* A - 4. 03456 M01S03007.profile +++| 03457 M01S03008.profile +++| 03458 M01S03009.profile +++| CDV SUBR ENTRY/EXIT 03459 M01S03010.profile +++| ZR X4,CDV1 IF NO CHARACTERS ASSEMBLED 03460 M01S03011.profile +++| BX3 X2 03461 M01S03012.profile +++| LX3 -42 03462 M01S03013.profile +++| MX5 -6 03463 M01S03014.profile +++| BX6 -X5*X3 03464 M01S03015.profile +++| IX6 X6-X4 03465 M01S03016.profile +++| NG X6,CDV2 IF TOO MANY CHARACTERS 03466 M01S03017.profile +++| LX3 -6 03467 M01S03018.profile +++| BX3 -X5*X3 03468 M01S03019.profile +++| SA4 ACCC 03469 M01S03020.profile +++| IX3 X3-X4 03470 M01S03021.profile +++| PL X3,CDVX IF DIRECTIVE AUTHORIZED 03471 M01S03022.profile +++| 03472 M01S03023.profile +++| SB3 ERUC 03473 M01S03024.profile +++| EQ CDV3 03474 M01S03025.profile +++| CDV1 SB3 ERUQ 03475 M01S03026.profile +++| EQ CDV3 03476 M01S03027.profile +++| CDV2 SB3 ERUB 03477 M01S03028.profile +++| CDV3 RJ ERU USER ERROR 03478 M01S03029.profile +++| EQ DIP1 *MAIN LOOP* RETURN 03479 M01S03030.profile +++| CKU SPACE 4,10 03480 M01S03031.profile +++|** CKU - CHECK FOR K-DISPLAY UPDATE. 03481 M01S03032.profile +++|* 03482 M01S03033.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX. 03483 M01S03034.profile +++|* (B7) = FWA OF PERTINENT TABLE OF INDICES (TOI). 03484 M01S03035.profile +++|* (X5) = FIELD,S NEW VALUE. 03485 M01S03036.profile +++|*
| Line S03037 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03486 M02S03037.ns22000 ---|* CALLS CED, PVF. 03487 M01S00212.ns22000 +++|* CALLS CED, PVF, SFN. 03488 M01S03038.profile +++|* 03489 M01S03039.profile +++|* USES ALL REGISTERS EXCEPT A0. RESTORES X5, X1 IF USED. 03490 M01S03040.profile +++| 03491 M01S03041.profile +++| 03492 M01S03042.profile +++| CKU5 BX1 X0 03493 M01S03043.profile +++| SA4 CBUF 03494 M01S03044.profile +++| RJ CED CONVERT ENTRY TO DISPLAY CODE 03495 M01S03045.profile +++| RJ PVF PLACE DISPLAY CODE VALUE IN FIELD 03496 M01S03046.profile +++| CKU6 BX5 X0 RESTORE 03497 M01S03047.profile +++| SA1 DTII 03498 M01S03048.profile +++| 03499 M01S03049.profile +++| CKU SUBR ENTRY/EXIT 03500 M01S03050.profile +++| SA3 OP 03501 M01S03051.profile +++| SX3 X3-KOPT 03502 M01S03052.profile +++| NZ X3,CKUX IF NOT *K-DISPLAY* OPTION 03503 M01S03053.profile +++| BX0 X5 SAVE 03504 M01S03054.profile +++| MX7 12 03505 M01S03055.profile +++| LX7 -12 03506 M01S03056.profile +++| CKU1 SA5 B7 03507 M01S03057.profile +++| ZR X5,CKU2 IF END OF TABLE 03508 M01S03058.profile +++| BX3 X7*X5 03509 M01S03059.profile +++| LX3 24 03510 M01S03060.profile +++| BX3 X1-X3 03511 M01S03061.profile +++| SB7 B7+B1 03512 M01S03062.profile +++| NZ X3,CKU1 IF NO MATCH 03513 M01S03063.profile +++| EQ CKU5 03514 M01S03064.profile +++| 03515 M01S03065.profile +++| CKU2 SB6 DSCE+2 PRESET DISPLAY ADDRESS 03516 M01S03066.profile +++| SX3 X1-XCEX 03517 M01S03067.profile +++| ZR X3,CKU3 IF *CEX* 03518 M01S03068.profile +++| SX3 X1-XPEX
| Line S03069 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03519 M02S03069.ns22000 ---| NZ X3,ERD9 IF NOT *PEX* 03520 M01S00213.ns22000 +++| NZ X3,CKU4.1 IF NOT *PEX* 03521 M01S03070.profile +++| SB6 DSPE+2 03522 M01S03071.profile +++| CKU3 SA1 =10H UNDEFINED 03523 M01S03072.profile +++| BX6 X1 03524 M01S03073.profile +++| ZR X0,CKU4 IF ZERO VALUE 03525 M01S03074.profile +++| EDATE X0 03526 M01S03075.profile +++| CKU4 SA6 B6 03527 M01S03076.profile +++| EQ CKU6 03528 M01S00214.ns22000 +++| 03529 M01S00215.ns22000 +++| CKU4.1 SB6 DSPP+1 CHECK *PPW* DIRECTIVE 03530 M01S00216.ns22000 +++| SX3 X1-XPPW 03531 M01S00217.ns22000 +++| ZR X3,CKU4.2 IF *PPW* DIRECTIVE 03532 M01S00218.ns22000 +++| SB6 DSEP+1 CHECK *EPW* DIRECTIVE 03533 M01S00219.ns22000 +++| SX3 X1-XEPW 03534 M01S00220.ns22000 +++| ZR X3,CKU4.2 IF *EPW* DIRECTIVE 03535 M01S00221.ns22000 +++| SB6 DSPO+1 CHECK *PCR* DIRECTIVE 03536 M01S00222.ns22000 +++| SX3 X1-XPCR 03537 M01S00223.ns22000 +++| ZR X3,CKU4.4 IF *PCR* DIRECTIVE 03538 M01S00224.ns22000 +++| EQ ERD9 DATA BASE ERROR 03539 M01S00225.ns22000 +++| 03540 M01S00226.ns22000 +++| CKU4.2 SA1 CBUF PROCESS PASSWORD 03541 M01S00227.ns22000 +++| SA2 =10H 03542 M01S00228.ns22000 +++| ZR X1,CKU4.3 IF EMPTY INPUT 03543 M01S00229.ns22000 +++| SA2 =10H******* 03544 M01S00230.ns22000 +++| CKU4.3 BX6 X2 03545 M01S00231.ns22000 +++| EQ CKU4.5 SET VALUE IN DISPLAY BUFFER 03546 M01S00232.ns22000 +++| 03547 M01S00233.ns22000 +++| CKU4.4 SA1 CBUF 03548 M01S00234.ns22000 +++| RJ SFN SPACE FILL NAME 03549 M01S00235.ns22000 +++| CKU4.5 SA6 B6 03550 M01S00236.ns22000 +++| EQ CKU6 RESTORE 03551 M01S03077.profile +++| CNV SPACE 4,10 03552 M01S03078.profile +++|** CNV - CONVERT NUMERIC VALUE FROM DISPLAY CODE TO BINARY. 03553 M01S03079.profile +++|* 03554 M01S03080.profile +++|* VALUES ALLOWED AND HAVING SIGNS ARE INCREMENTED OR 03555 M01S03081.profile +++|* DECREMENTED FROM FIELD,S CURRENT VALUE. 03556 M01S03082.profile +++|* IF AN ERROR IS DETECTED THE APPROPRIATE MESSAGE IS ISSUED. 03557 M01S03083.profile +++|* 03558 M01S03084.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX. 03559 M01S03085.profile +++|* (X2) = TABLE ENTRY (TOPR). 03560 M01S03086.profile +++|* (DF) = MAXIMUM VALUE. 03561 M01S03087.profile +++|* (CBUF) = VALUE TO CONVERT (LEFT JUSTIFIED). 03562 M01S03088.profile +++|* 03563 M01S03089.profile +++|* EXIT TO CNVX, IF NO ERROR. 03564 M01S03090.profile +++|* (X5) = FIELD,S NEW VALUE. 03565 M01S03091.profile +++|* TO DIP1, IF ERROR DETECTED. 03566 M01S03092.profile +++|* 03567 M01S03093.profile +++|* CALLS DXB, GFV. 03568 M01S03094.profile +++|* 03569 M01S03095.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 03570 M01S03096.profile +++| 03571 M01S03097.profile +++| 03572 M01S03098.profile +++| CNV8 MX1 -42 INSURE 42 BIT FIELD 03573 M01S03099.profile +++| BX5 -X1*X6 03574 M01S03100.profile +++| 03575 M01S03101.profile +++| CNV SUBR ENTRY/EXIT 03576 M01S03102.profile +++| SB6 B0 PRESET NO INCREMENT-DECREMENT 03577 M01S03103.profile +++| SA5 CBUF 03578 M01S03104.profile +++| LX2 1 03579 M01S03105.profile +++| PL X2,CNV3 IF SIGN NOT ALLOWED 03580 M01S03106.profile +++| MX7 6 03581 M01S03107.profile +++| BX2 X7*X5 03582 M01S03108.profile +++| SA3 =1L+ 03583 M01S03109.profile +++| BX3 X2-X3 03584 M01S03110.profile +++| ZR X3,CNV1 IF *+* SIGN 03585 M01S03111.profile +++| SA3 =1L- 03586 M01S03112.profile +++| BX3 X2-X3 03587 M01S03113.profile +++| NZ X3,CNV3 IF NOT *-* SIGN 03588 M01S03114.profile +++| SB6 -B1 DECREMENT 03589 M01S03115.profile +++| EQ CNV2 03590 M01S03116.profile +++| 03591 M01S03117.profile +++| CNV1 SB6 B1 INCREMENT 03592 M01S03118.profile +++| CNV2 BX5 -X7*X5 TAKE OUT SIGN 03593 M01S03119.profile +++| LX5 6 03594 M01S03120.profile +++| CNV3 SB7 B1 03595 M01S03121.profile +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION 03596 M01S03122.profile +++| NZ X4,CNV7 IF ERROR 03597 M01S03123.profile +++| ZR B6,CNV6 IF NO INCREMENT/DECREMENT 03598 M01S03124.profile +++| SA1 DTII 03599 M01S03125.profile +++| SX7 X1 03600 M01S03126.profile +++| RJ GFV GET FIELD,S VALUE 03601 M01S03127.profile +++| NG B6,CNV5 IF DECREMENT 03602 M01S03128.profile +++| IX6 X1+X6 INCREMENT 03603 M01S03129.profile +++| MX2 -12 03604 M01S03130.profile +++| NZ X1,CNV6 IF NOT PREVIOUSLY UNLIMITED 03605 M01S03131.profile +++| SA1 X7+TOPR GET TABLE ENTRY 03606 M01S03132.profile +++| SA3 TOIA-1 SEARCH FOR TOI TABLE ENTRY 03607 M01S03133.profile +++| LX1 3 03608 M01S03134.profile +++| NG X1,CNV4 IF LEVEL-1 ENTRY 03609 M01S03135.profile +++| SA3 TOIC-1 SEARCH LEVEL-3 TABLE 03610 M01S03136.profile +++| CNV4 SA3 A3+B1 03611 M01S03137.profile +++| ZR X3,CNV6 IF END OF TABLE 03612 M01S03138.profile +++| LX3 24 03613 M01S03139.profile +++| BX1 -X2*X3 03614 M01S03140.profile +++| IX1 X1-X7 03615 M01S03141.profile +++| NZ X1,CNV4 IF NO MATCH 03616 M01S03142.profile +++| LX3 -20 03617 M01S03143.profile +++| PL X3,CNV6 IF ZERO VALUE NOT UNLIMITED 03618 M01S03144.profile +++| BX6 X6-X6 LEAVE REGISTER UNLIMITED 03619 M01S03145.profile +++| EQ CNV6 03620 M01S03146.profile +++| 03621 M01S03147.profile +++| CNV5 IX6 X1-X6 03622 M01S03148.profile +++| PL X6,CNV6 IF NOT NEGATIVE RESULT 03623 M01S03149.profile +++| BX6 X6-X6 SET RESULT OF ZERO 03624 M01S03150.profile +++| CNV6 SA1 DF MAXIMUM VALUE 03625 M01S03151.profile +++| ZR X1,CNV8 IF INFINITE VALUE ALLOWED 03626 M01S03152.profile +++| IX1 X1-X6 03627 M01S03153.profile +++| PL X1,CNV8 IF MAXIMUM VALUE NOT EXCEEDED 03628 M01S03154.profile +++| 03629 M01S03155.profile +++| CNV7 SB3 ERUK 03630 M01S03156.profile +++| RJ ERU USER ERROR 03631 M01S03157.profile +++| JP DIP1 *MAIN LOOP* RETURN 03632 M01S03158.profile +++| ILR SPACE 4,10 03633 M01S03159.profile +++|** ILR - INITIALIZE INSTALLATION LIMIT REGISTERS. 03634 M01S03160.profile +++|* 03635 M01S03161.profile +++|* CALLS CIV. 03636 M01S03162.profile +++|* 03637 M01S03163.profile +++|* USES X - 1, 2, 3, 4, 6, 7. 03638 M01S03164.profile +++|* A - 1, 2, 3, 4, 6. 03639 M01S03165.profile +++|* B - 2. 03640 M01S03166.profile +++| 03641 M01S03167.profile +++| 03642 M01S03168.profile +++| ILR SUBR ENTRY/EXIT 03643 M01S03169.profile +++| SA2 F.TAB1 LEVEL-1 INDICES 03644 M01S03170.profile +++| SA3 T1IE 03645 M01S03171.profile +++| IX2 X2+X3 03646 M01S03172.profile +++| SA2 X2+CLCW 03647 M01S00001.profi4 +++| BX6 X2 03648 M01S03173.profile +++| SB2 8
| Line S03174 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | profi4 |
Seq # *Modification Id* Act ----------------------------+ 03649 M02S03174.profi4 ---| ILR1 LX2 -6 03650 M01S00002.profi4 +++| SA6 ILRA SAVE LIMIT REGISTERS DEFAULT INDICES 03651 M01S00003.profi4 +++| ILR1 SA2 ILRA 03652 M01S00004.profi4 +++| LX2 -6 03653 M01S03175.profile +++| MX7 -6 03654 M01S00005.profi4 +++| BX6 X2 03655 M01S03176.profile +++| BX3 -X7*X2 03656 M01S03177.profile +++| SA4 B2+TISL 03657 M01S00006.profi4 +++| SA6 A2 03658 M01S03178.profile +++| RJ CIV CONVERT INDEX TO VALUE 03659 M01S03179.profile +++| PL X1,ILR2 IF NOT UNLIMITED 03660 M01S03180.profile +++| SX1 B0+ 03661 M01S03181.profile +++| ILR2 LX1 30 03662 M01S03182.profile +++| MX7 30 03663 M01S03183.profile +++| BX6 X7*X1 03664 M01S03184.profile +++| SA6 B2+D3AA+PISW 03665 M01S03185.profile +++| SB2 B2-B1 03666 M01S03186.profile +++| PL B2,ILR1 IF MORE REGISTERS TO INITIALIZE 03667 M01S03187.profile +++| EQ ILRX 03668 M01S00007.profi4 +++| 03669 M01S00008.profi4 +++| 03670 M01S00009.profi4 +++| ILRA BSS 1 LIMIT REGISTERS DEFAULT INDICES 03671 M01S03188.profile +++| KOC SPACE 4,10 03672 M01S03189.profile +++|** KOC - K-DISPLAY OUTPUT FOR CHARGE NUMBER ENTRY. 03673 M01S03190.profile +++|* 03674 M01S03191.profile +++|* ENTRY (X3) = FWA OF CHARGE ENTRY. 03675 M01S03192.profile +++|* (CN) = CHARGE NUMBER. 03676 M01S03193.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY. 03677 M01S03194.profile +++|*
| Line S03195 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03678 M02S03195.v23l617 ---|* CALLS CPV, SFC, SFN. 03679 M01S00132.v23l617 +++|* CALLS CPV, SFC, SFN, SPT. 03680 M01S03196.profile +++|* 03681 M01S03197.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 03682 M01S03198.profile +++| 03683 M01S03199.profile +++| 03684 M01S03200.profile +++| KOC SUBR ENTRY/EXIT 03685 M01S03201.profile +++| SA1 OP 03686 M01S03202.profile +++| SX6 X1-KOPT 03687 M01S03203.profile +++| NZ X6,KOCX IF NOT *K-DISPLAY* OPTION
| Line S03204 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03688 M02S03204.v23l617 ---| SA6 DSPN DISABLE K-DISPLAY FOR PROJECT NUMBER 03689 M01S03205.profile +++| RJ SFC CHARGE ENTRY SPECIAL FIELDS 03690 M01S03206.profile +++| SA1 CN CHARGE NUMBER 03691 M01S03207.profile +++| RJ SFN SPACE FILL NAME 03692 M01S03208.profile +++| SA6 DSCN+2 03693 M01S03209.profile +++| SA5 TOIA 03694 M01S03210.profile +++| RJ CPV CONVERT AND PLACE VALUES 03695 M01S03211.profile +++| SA1 KSAV+1 ENABLE K-DISPLAY FOR CHARGE NUMBER 03696 M01S03212.profile +++| BX6 X1 03697 M01S03213.profile +++| SA6 DSCN 03698 M01S00133.v23l617 +++| SX1 B0+ 03699 M01S00134.v23l617 +++| RJ SPT SET PAGE TABLE 03700 M01S03214.profile +++| EQ KOCX 03701 M01S03215.profile +++| KOP SPACE 4,10 03702 M01S03216.profile +++|** KOP - K-DISPLAY OUTPUT FOR PROJECT NUMBER ENTRY. 03703 M01S03217.profile +++|* 03704 M01S03218.profile +++|* ENTRY (A5) = FWA OF PROJECT ENTRY. 03705 M01S03219.profile +++|* (PN - PN+1) = PROJECT NUMBER. 03706 M01S03220.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY. 03707 M01S03221.profile +++|*
| Line S03222 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03708 M02S03222.v23l617 ---|* CALLS CPV, SFN, SFP. 03709 M01S00135.v23l617 +++|* CALLS CPV, SFN, SFP, SPT. 03710 M01S03223.profile +++|* 03711 M01S03224.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 03712 M01S03225.profile +++| 03713 M01S03226.profile +++| 03714 M01S03227.profile +++| KOP SUBR ENTRY/EXIT 03715 M01S03228.profile +++| SA1 OP 03716 M01S03229.profile +++| SX6 X1-KOPT 03717 M01S03230.profile +++| NZ X6,KOPX IF NOT *K-DISPLAY* OPTION 03718 M01S03231.profile +++| RJ SFP PROJECT ENTRY SPECIAL FIELDS
| Line S03232 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03719 M02S03232.v23l617 ---| SA1 PN PROJECT NUMBER 03720 M01S00136.v23l617 +++| SA1 PN SET PROJECT NUMBER IN K-DISPLAY FIELDS 03721 M01S03233.profile +++| RJ SFN SPACE FILL NAME 03722 M01S03234.profile +++| SA6 DSPN+2 03723 M01S00137.v23l617 +++| SA6 DSP2+2 03724 M01S03235.profile +++| SA1 A1+B1 03725 M01S03236.profile +++| RJ SFN SPACE FILL NAME
| Line S03237 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03726 M02S03237.v23l617 ---| SA6 A6+B1 03727 M01S00138.v23l617 +++| SA6 DSPN+3 03728 M01S00139.v23l617 +++| SA6 DSP2+3 03729 M01S03238.profile +++| SA5 TOID 03730 M01S03239.profile +++| RJ CPV CONVERT AND PLACE VALUES
| Line S03240 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03731 M02S03240.v23l617 ---| SA1 KSAV ENABLE K-DISPLAY FOR PROJECT NUMBER
| Line S03241 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03732 M02S03241.v23l617 ---| BX6 X1
| Line S03242 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03733 M02S03242.v23l617 ---| SA6 DSPN 03734 M01S00140.v23l617 +++| SX1 B1+ 03735 M01S00141.v23l617 +++| RJ SPT SET PAGE TABLE 03736 M01S03243.profile +++| EQ KOPX 03737 M01S00142.v23l617 +++| SPT SPACE 4,10 03738 M01S00143.v23l617 +++|** SPT - SET PAGE TABLE. 03739 M01S00144.v23l617 +++|* 03740 M01S00145.v23l617 +++|* ENTRY (X1) = 0, INITIAL/CHARGE PAGE TABLE. 03741 M01S00146.v23l617 +++|* = 1, CHARGE/PROJECT PAGE TABLE. 03742 M01S00147.v23l617 +++|* 03743 M01S00148.v23l617 +++|* USES X - 1, 2, 3, 6, 7. 03744 M01S00149.v23l617 +++|* A - 1, 2, 3, 6, 7. 03745 M01S00150.v23l617 +++| 03746 M01S00151.v23l617 +++| 03747 M01S00152.v23l617 +++| SPT SUBR ENTRY/EXIT 03748 M01S00153.v23l617 +++| SX6 SPTA SET CURRENT PAGE TABLE TO INITIAL/CHARGE 03749 M01S00154.v23l617 +++| MX2 42 03750 M01S00155.v23l617 +++| ZR X1,SPT1 IF INITIAL/CHARGE PAGE TABLE 03751 M01S00156.v23l617 +++| SA3 SPTB RESET PAGE TABLE HEADER TO PAGE ONE 03752 M01S00157.v23l617 +++| LX3 30 03753 M01S00158.v23l617 +++| BX3 X2*X3 03754 M01S00159.v23l617 +++| SX6 B1 03755 M01S00160.v23l617 +++| BX6 X6+X3 03756 M01S00161.v23l617 +++| LX6 30 03757 M01S00162.v23l617 +++| SA6 A3 03758 M01S00163.v23l617 +++| SA1 KSAV RESTORE PAGE NUMBER LINE 03759 M01S00164.v23l617 +++| SX6 SPTB SET CURRENT PAGE TABLE TO PROJECT DISPLAY 03760 M01S00165.v23l617 +++| SPT1 BX7 X1 FORMAT PAGE NUMBER LINE 03761 M01S00166.v23l617 +++| SA6 KPAG 03762 M01S00167.v23l617 +++| SA7 KPLN 03763 M01S00168.v23l617 +++| SA1 KIA SET CURRENT MESSAGE AREAS 03764 M01S00169.v23l617 +++| SX3 DSA 03765 M01S00170.v23l617 +++| BX6 X1*X2 03766 M01S00171.v23l617 +++| BX6 X3+X6 03767 M01S00172.v23l617 +++| SA6 A1+ 03768 M01S00173.v23l617 +++| SX6 MESA+1 03769 M01S00174.v23l617 +++| SX7 INPA+1 03770 M01S00175.v23l617 +++| SA6 M1 03771 M01S00176.v23l617 +++| SA7 IL 03772 M01S00177.v23l617 +++| EQ SPTX RETURN 03773 M01S00178.v23l617 +++| 03774 M01S00179.v23l617 +++| 03775 M01S00180.v23l617 +++|* INITIAL AND CHARGE DISPLAY PAGE TABLE. 03776 M01S00181.v23l617 +++| 03777 M01S00182.v23l617 +++| SPTA PAGT DSA,MESA+1,INPA+1 LEFT SCREEN PAGE 1 03778 M01S00183.v23l617 +++| PAGT 03779 M01S00184.v23l617 +++| PAGT DSD RIGHT SCREEN 03780 M01S00185.v23l617 +++| PAGT * 03781 M01S00186.v23l617 +++| 03782 M01S00187.v23l617 +++|* PROJECT DISPLAY PAGE TABLE. 03783 M01S00188.v23l617 +++| 03784 M01S00189.v23l617 +++| SPTB PAGT DSA,MESA+1,INPA+1 LEFT SCREEN PAGE 1 03785 M01S00190.v23l617 +++| PAGT DSB,MESB+1,INPB+1 LEFT SCREEN PAGE 2 03786 M01S00191.v23l617 +++| PAGT DSC,MESC+1,INPC+1 LEFT SCREEN PAGE 3 03787 M01S00192.v23l617 +++| PAGT 03788 M01S00193.v23l617 +++| PAGT DSD RIGHT SCREEN 03789 M01S00194.v23l617 +++| PAGT * 03790 M01S03244.profile +++| MQE SPACE 4,10 03791 M01S03245.profile +++|** MQE - MAKE QUEUE ENTRY. 03792 M01S03246.profile +++|* 03793 M01S03247.profile +++|* A NEW QUEUE ENTRY IS APPENDED TO END OF DIRECTIVE QUEUE 03794 M01S03248.profile +++|* (NOT PERTINENT FOR *CREATE* MODE). IF NECESSARY, QUEUE 03795 M01S03249.profile +++|* MAXIMUM SIZE IS INCREASED TO MAKE ROOM FOR ENTRY. 03796 M01S03250.profile +++|* IN ADDITION, DIRECTIVE,S CORRESPONDING TABLE 1 OR 3 FIELD 03797 M01S03251.profile +++|* IS UPDATED (PERTINENT WHEN FIELD SIZE VALUE .NE. 0), AND 03798 M01S03252.profile +++|* K-DISPLAY UPDATED (PERTINENT WHEN *K-DISPLAY* OPTION). 03799 M01S03253.profile +++|* ONE WORD QUEUE ENTRY GENERATED IS IN FORM- 03800 M01S03254.profile +++|* 12/A, 6/, 42/B 03801 M01S03255.profile +++|* WHERE 03802 M01S03256.profile +++|* A = TABLE INDEX. 03803 M01S03257.profile +++|* B = VALUE. 03804 M01S03258.profile +++|* 03805 M01S03259.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX. 03806 M01S03260.profile +++|* (X2) = TABLE ENTRY (TOPR). 03807 M01S03261.profile +++|* (X5) = VALUE FIELD OF ENTRY. 03808 M01S03262.profile +++|* 03809 M01S03263.profile +++|* CALLS AMQ, CKU, SDF. 03810 M01S03264.profile +++|* 03811 M01S03265.profile +++|* USES ALL REGISTERS. 03812 M01S03266.profile +++| 03813 M01S03267.profile +++| 03814 M01S03268.profile +++| MQE SUBR ENTRY/EXIT 03815 M01S03269.profile +++| SX6 B1 03816 M01S03270.profile +++| LX2 3 03817 M01S03271.profile +++| PL X2,MQE1 IF NO LEVEL-1 UPDATE NEEDED 03818 M01S03272.profile +++| SA6 FUP1 03819 M01S03273.profile +++| MQE1 LX2 1 03820 M01S03274.profile +++| PL X2,MQE2 IF NO LEVEL-2 UPDATE NEEDED 03821 M01S03275.profile +++| SA6 FUP2 03822 M01S03276.profile +++| MQE2 LX2 1 03823 M01S03277.profile +++| PL X2,MQE3 IF NO LEVEL-3 UPDATE NEEDED 03824 M01S03278.profile +++| SA6 FUP3 03825 M01S03279.profile +++| MQE3 SA4 DF+2 FIELD SIZE 03826 M01S03280.profile +++| ZR X4,MQE5 IF SET DATA IN FIELD NOT PERTINENT 03827 M01S03281.profile +++| BX6 X5 03828 M01S03282.profile +++| SA3 F.TAB3 PRESET LEVEL-3 DIRECTIVE 03829 M01S03283.profile +++| SA4 T3IE 03830 M01S03284.profile +++| SB7 TOIC 03831 M01S03285.profile +++| NG X2,MQE4 IF LEVEL-3 DIRECTIVE 03832 M01S03286.profile +++| SA3 F.TAB1 03833 M01S03287.profile +++| SA4 T1IE 03834 M01S03288.profile +++| SB7 TOIA 03835 M01S03289.profile +++| MQE4 IX3 X3+X4 03836 M01S03290.profile +++| FUNC SDFT SET DATA IN FIELD 03837 M01S03291.profile +++| SA1 DTII 03838 M01S03292.profile +++| RJ CKU CHECK FOR K-DISPLAY UPDATE 03839 M01S03293.profile +++| 03840 M01S03294.profile +++| MQE5 SA2 UF 03841 M01S03295.profile +++| ZR X2,MQEX IF QUEUE ENTRY NOT PERTINENT 03842 M01S03296.profile +++| LX1 -12 MERGE INTO QUEUE ENTRY 03843 M01S03297.profile +++| BX7 X1+X5 03844 M01S03298.profile +++| SA1 QSIZ CHECK FOR FULL QUEUE 03845 M01S03299.profile +++| SA2 QMAX 03846 M01S03300.profile +++| IX3 X1-X2 03847 M01S03301.profile +++| NG X3,MQE6 IF NO NEED TO ALLOCATE MORE TO QUEUE 03848 M01S03302.profile +++| NZ X3,ERD4 IF ERROR 03849 M01S03303.profile +++| BX0 X7 PRESERVE 03850 M01S03304.profile +++| RJ AMQ ALLOCATE MEMORY TO QUEUE 03851 M01S03305.profile +++| SA1 QSIZ RESTORE 03852 M01S03306.profile +++| BX7 X0 03853 M01S03307.profile +++| MQE6 SX6 X1+B1 UPDATE QUEUE SIZE AND STORE ENTRY 03854 M01S03308.profile +++| SA6 A1 03855 M01S03309.profile +++| SA7 X1+MEML 03856 M01S03310.profile +++| EQ MQEX 03857 M01S03311.profile +++| RCE SPACE 4,10 03858 M01S03312.profile +++|** RCE - REGENERATE CHARGE NUMBER QUEUE ENTRY. 03859 M01S03313.profile +++|* 03860 M01S03314.profile +++|* *CN* ENTRY IS MADE IN DIRECTIVE QUEUE. 03861 M01S03315.profile +++|* 03862 M01S03316.profile +++|* ENTRY (DTII) = TABLE INDEX. 03863 M01S03317.profile +++|* 03864 M01S03318.profile +++|* CALLS MQE, SPB. 03865 M01S03319.profile +++|* 03866 M01S03320.profile +++|* USES ALL REGISTERS. 03867 M01S03321.profile +++| 03868 M01S03322.profile +++| 03869 M01S03323.profile +++| RCE SUBR ENTRY/EXIT 03870 M01S03324.profile +++| SA1 DTII SAVE TABLE INDEX 03871 M01S03325.profile +++| BX6 X1 03872 M01S03326.profile +++| SA6 RCEA 03873 M01S03327.profile +++| SX1 XCND TABLE INDEX FOR QUEUE ENTRY 03874 M01S03328.profile +++| BX7 X1 03875 M01S03329.profile +++| SA7 A1 03876 M01S03330.profile +++| SA2 X1+TOPR 03877 M01S03331.profile +++| BX5 X5-X5 03878 M01S03332.profile +++| RJ MQE MAKE QUEUE ENTRY 03879 M01S03333.profile +++| SA1 RCEA RESTORE TABLE INDEX 03880 M01S03334.profile +++| BX6 X1 03881 M01S03335.profile +++| SA6 DTII 03882 M01S03336.profile +++| SX1 CN 03883 M01S03337.profile +++| SX0 N 03884 M01S03338.profile +++| FUNC SPBT SET PRIMARY BLOCK 03885 M01S03339.profile +++| NZ X6,ERD5 IF ERROR 03886 M01S03340.profile +++| NZ X4,ERD6 IF ENTRY NOT FOUND 03887 M01S03341.profile +++| SA1 F.TAB1 TABLE 1 INDEX OF ENTRY 03888 M01S03342.profile +++| IX6 X3-X1 03889 M01S03343.profile +++| SA6 T1IE 03890 M01S03344.profile +++| EQ RCEX 03891 M01S03345.profile +++| 03892 M01S03346.profile +++| RCEA BSS 1 HOLD LOCATION 03893 M01S03347.profile +++| TITLE UPDATE/CREATE SUBROUTINES - MAIN QUEUE ROUTINE. 03894 M01S03348.profile +++| DQP SPACE 4,10 03895 M01S03349.profile +++|** DQP - DIRECTIVE QUEUE PROCESSOR. 03896 M01S03350.profile +++|* 03897 M01S03351.profile +++|* EACH QUEUE ENTRY IS PROCESSED BY CALLING THE APPROPRIATE 03898 M01S03352.profile +++|* QUEUE PROCESSOR. QUEUE PROCESSING CONTINUES UNTIL ALL 03899 M01S03353.profile +++|* ENTRIES HAVE BEEN PROCESSED. PROFILE FILE IS INTERLOCKED 03900 M01S03354.profile +++|* IN MODIFY MODE WHILE QUEUE PROCESSING (NOT NECESSARY IF 03901 M01S03355.profile +++|* *CREATE* OPTION). QUEUE PROCESSING IS INITIATED WHEN A 03902 M01S03356.profile +++|* DIFFERENT CHARGE OR PROJECT NUMBER ENTRY IS ENCOUNTERED 03903 M01S03357.profile +++|* DURING DIRECTIVE INPUT PROCESSING, WHEN DIRECTIVE INPUT 03904 M01S03358.profile +++|* PROCESSING IS TERMINATED, OR WHEN *END* DIRECTIVE ISSUED 03905 M01S03359.profile +++|* (WHEN *K-DISPLAY* OPTION). 03906 M01S03360.profile +++|* 03907 M01S03361.profile +++|* ENTRY (QSIZ) = QUEUE SIZE. 03908 M01S03362.profile +++|* (CN) = CHARGE NUMBER. 03909 M01S03363.profile +++|* (PN - PN+1) = PROJECT NUMBER, IF PERTINENT. 03910 M01S03364.profile +++|* 03911 M01S03365.profile +++|* EXIT TO QUEUE PROCESSORS- 03912 M01S03366.profile +++|* (X1) = QUEUE ENTRY. 03913 M01S03367.profile +++|* (X7) = (DTIQ) = TABLE INDEX. 03914 M01S03368.profile +++|* 03915 M01S03369.profile +++|* CALLS IPP, MSG, UDD, WCL, WDL, WPL, QUEUE PROCESSORS. 03916 M01S03370.profile +++|* 03917 M01S03371.profile +++|* USES ALL REGISTERS. 03918 M01S03372.profile +++| 03919 M01S03373.profile +++| 03920 M01S03374.profile +++| DQP4 SX0 P 03921 M01S03375.profile +++| SX5 P 03922 M01S03376.profile +++| BX6 X6-X6 03923 M01S03377.profile +++| FUNC UDDT UPDATE DIRECTORY 03924 M01S03378.profile +++| NZ X6,ERD45 IF ERROR 03925 M01S03379.profile +++| DQP5 RETURN P,R 03926 M01S03380.profile +++| SA1 IPPD RESET CPU PRIORITY 03927 M01S03381.profile +++| SETPR X1 03928 M01S03382.profile +++| SETRNR ROLL ALLOW JOB ROLLOUT 03929 M01S03383.profile +++| MESSAGE DQPB,1,R B-DISPLAY MESSAGE 03930 M01S03384.profile +++| DQP6 BX6 X6-X6 EMPTY QUEUE 03931 M01S03385.profile +++| SA6 QSIZ 03932 M01S03386.profile +++| 03933 M01S03387.profile +++| DQP SUBR ENTRY/EXIT 03934 M01S03388.profile +++| SA1 OP 03935 M01S03389.profile +++| SX1 X1-COPT 03936 M01S03390.profile +++| SA2 FUP1 03937 M01S03391.profile +++| SA3 A2+B1 03938 M01S03392.profile +++| SA4 A3+B1 03939 M01S03393.profile +++| BX6 X2+X3 03940 M01S03394.profile +++| BX6 X4+X6 03941 M01S03395.profile +++| NZ X6,DQP1 IF NEED TO PROCESS QUEUE 03942 M01S03396.profile +++| SA2 ET 03943 M01S03397.profile +++| PL X2,DQP6 IF NO LEVEL-0 UPDATE 03944 M01S03398.profile +++| SA2 DQPA 03945 M01S03399.profile +++| ZR X2,DQP6 IF NEVER PROCESSED QUEUE 03946 M01S03400.profile +++| ZR X1,DQP6 IF *CREATE* OPTION 03947 M01S03401.profile +++| RJ IPP INTERLOCK PROFILE FILE 03948 M01S03402.profile +++| EQ DQP4 03949 M01S03403.profile +++| 03950 M01S03404.profile +++| DQP1 BX7 X7-X7 CLEAR QUEUE POINTER 03951 M01S03405.profile +++| SA7 QPTR 03952 M01S03406.profile +++| ZR X1,DQP2 IF *CREATE* OPTION 03953 M01S03407.profile +++| SA6 DQPA INDICATE PROCESS OF QUEUE 03954 M01S03408.profile +++| RJ IPP INTERLOCK PROFILE FILE 03955 M01S03409.profile +++| 03956 M01S03410.profile +++|* *MAIN LOOP* 03957 M01S03411.profile +++| 03958 M01S03412.profile +++| DQP2 BSS 0 03959 M01S03413.profile +++| SA1 QPTR QUEUE POINTER 03960 M01S03414.profile +++| SA2 QSIZ QUEUE SIZE 03961 M01S03415.profile +++| IX3 X1-X2 03962 M01S03416.profile +++| ZR X3,DQP3 IF THRU PROCESSING QUEUE 03963 M01S03417.profile +++| PL X3,ERD26 IF ERROR 03964 M01S03418.profile +++| SX6 X1+B1 INCREMENT QUEUE POINTER 03965 M01S03419.profile +++| SA6 A1 03966 M01S03420.profile +++| SA1 X1+MEML NEXT QUEUE ENTRY TO PROCESS 03967 M01S03421.profile +++| MX2 12 03968 M01S03422.profile +++| BX7 X2*X1 03969 M01S03423.profile +++| LX7 12 03970 M01S03424.profile +++| SA7 DTIQ TABLE INDEX 03971 M01S03425.profile +++| SA2 X7+TOPR TABLE ENTRY 03972 M01S03426.profile +++| SB2 X2 03973 M01S03427.profile +++| JP B2 QUEUE PROCESSOR 03974 M01S03428.profile +++| 03975 M01S03429.profile +++| DQP3 SA1 OP 03976 M01S03430.profile +++| SX1 X1-COPT 03977 M01S03431.profile +++| NZ X1,DQP3.1 IF NOT *CREATE* OPTION 03978 M01S03432.profile +++| RECALL N COMPLETE I/O ON DUPLICATE FET 03979 M01S03433.profile +++| DQP3.1 RJ WDL WRITE DATA LEVEL 03980 M01S03434.profile +++| RJ WPL WRITE PROJECT LEVEL 03981 M01S03435.profile +++| RJ WCL WRITE CHARGE LEVEL 03982 M01S03436.profile +++| SA1 OP 03983 M01S03437.profile +++| SX6 X1-COPT 03984 M01S03438.profile +++| ZR X6,DQP3.2 IF *CREATE* OPTION 03985 M01S03439.profile +++| SA1 ET 03986 M01S03440.profile +++| PL X1,DQP5 IF NO LEVEL-0 UPDATE 03987 M01S03441.profile +++| EQ DQP4 03988 M01S03442.profile +++| 03989 M01S03443.profile +++| DQP3.2 RECALL P COMPLETE I/O ON DUPLICATE FET 03990 M01S03444.profile +++| EQ DQP6 SET QUEUE EMPTY AND RETURN 03991 M01S03445.profile +++| 03992 M01S03446.profile +++| 03993 M01S03447.profile +++| DQPA CON 0 QUEUE PROCESSED FLAG 03994 M01S03448.profile +++| DQPB DATA L* PROFILE FILE RELEASED * 03995 M01S03449.profile +++| TITLE UPDATE/CREATE SUBROUTINES - QUEUE PROCESSORS. 03996 M01S03450.profile +++| AUP SPACE 4,10 03997 M01S03451.profile +++|** AUP - *AUN* PROCESSOR. 03998 M01S03452.profile +++|* 03999 M01S03453.profile +++|* ENTRY (X1) = QUEUE ENTRY. 04000 M01S03454.profile +++|* 04001 M01S03455.profile +++|* EXIT TO DQP2. 04002 M01S03456.profile +++|* 04003 M01S03457.profile +++|* CALLS AUN. 04004 M01S03458.profile +++|* 04005 M01S03459.profile +++|* USES ALL REGISTERS. 04006 M01S03460.profile +++| 04007 M01S03461.profile +++| 04008 M01S03462.profile +++| AUP BSS 0 04009 M01S03463.profile +++| MX3 -42 04010 M01S03464.profile +++| BX1 -X3*X1
| Line S03465 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04011 M02S03465.v23l617 ---| RJ AUN ADD USER NUMBER 04012 M01S00195.v23l617 +++| RJ AUN ADD USER NAME 04013 M01S03466.profile +++| JP DQP2 *MAIN LOOP* RETURN 04014 M01S03467.profile +++| CNP SPACE 4,10 04015 M01S03468.profile +++|** CNP - CHARGE NUMBER PROCESSOR. 04016 M01S03469.profile +++|* 04017 M01S03470.profile +++|* PROCESSES *ACN*, *CN*, *DCN*. 04018 M01S03471.profile +++|* 04019 M01S03472.profile +++|* ENTRY (DTIQ) = TABLE INDEX. 04020 M01S03473.profile +++|* (CN) = CHARGE NUMBER. 04021 M01S03474.profile +++|* 04022 M01S03475.profile +++|* EXIT TO DQP2. 04023 M01S03476.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY. 04024 M01S03477.profile +++|* 04025 M01S03478.profile +++|* CALLS ATS, MVE, MWS, SPB. 04026 M01S03479.profile +++|* 04027 M01S03480.profile +++|* USES ALL REGISTERS. 04028 M01S03481.profile +++| 04029 M01S03482.profile +++| 04030 M01S03483.profile +++| CNP BSS 0 04031 M01S03484.profile +++| SX1 CN 04032 M01S03485.profile +++| SX0 N 04033 M01S03486.profile +++| FUNC SPBT SET PRIMARY BLOCK 04034 M01S03487.profile +++| NZ X6,ERD10 IF ERROR 04035 M01S03488.profile +++| SA1 DTIQ 04036 M01S03489.profile +++| NZ X4,CNP2 IF CHARGE NUMBER NOT FOUND 04037 M01S03490.profile +++| SA2 F.TAB1 TABLE 1 INDEX OF ENTRY 04038 M01S03491.profile +++| IX6 X3-X2 04039 M01S03492.profile +++| SA6 T1IE 04040 M01S03493.profile +++| SB2 X1-XCND 04041 M01S03494.profile +++| ZR B2,DQP2 IF *CN* 04042 M01S03495.profile +++| MX2 1 04043 M01S03496.profile +++| SA3 X3+CSRW 04044 M01S03497.profile +++| SB2 X1-XDCN 04045 M01S03498.profile +++| ZR B2,CNP1 IF *DCN* 04046 M01S03499.profile +++| BX6 -X2*X3 ACTIVATE CHARGE NUMBER 04047 M01S03500.profile +++| SA6 A3 04048 M01S03501.profile +++| EQ DQP2 04049 M01S03502.profile +++| 04050 M01S03503.profile +++| CNP1 BX6 X2+X3 DEACTIVATE CHARGE NUMBER 04051 M01S03504.profile +++| SA6 A3 04052 M01S03505.profile +++| EQ DQP2 04053 M01S03506.profile +++| 04054 M01S03507.profile +++| CNP2 SB2 X1-XACN 04055 M01S03508.profile +++| NZ B2,ERD11 IF NOT *ACN* 04056 M01S03509.profile +++| SA5 L.TAB1 04057 M01S03510.profile +++| ALLOC TAB1,C.TAB1 04058 M01S03511.profile +++| IX5 X2+X5 04059 M01S03512.profile +++| MOVE C.TAB1,D1AA,X5 INITIALIZE ENTRY TO DEFAULT 04060 M01S03513.profile +++| SA0 B1 04061 M01S03514.profile +++| FUNC STBT SORT TABLE 1 04062 M01S03515.profile +++| SX1 B1 04063 M01S03516.profile +++| SB6 CN 04064 M01S03517.profile +++| FUNC MWST SEARCH TABLE 1 04065 M01S03518.profile +++| NZ X2,ERD7 IF CHARGE NUMBER NOT FOUND 04066 M01S03519.profile +++| SB3 X4 TABLE 1 INDEX OF ENTRY 04067 M01S03520.profile +++| SX6 B2-B3 04068 M01S03521.profile +++| SA6 T1IE 04069 M01S03522.profile +++| JP DQP2 *MAIN LOOP* RETURN 04070 M01S03523.profile +++| DUP SPACE 4,10 04071 M01S03524.profile +++|** DUP - *DUN* PROCESSOR. 04072 M01S03525.profile +++|* 04073 M01S03526.profile +++|* ENTRY (X1) = QUEUE ENTRY. 04074 M01S03527.profile +++|* 04075 M01S03528.profile +++|* EXIT TO DQP2. 04076 M01S03529.profile +++|* 04077 M01S03530.profile +++|* USES A - 1, 2, 6. 04078 M01S03531.profile +++|* B - 2, 3. 04079 M01S03532.profile +++|* X - 1, 2, 3, 4, 6. 04080 M01S03533.profile +++|* 04081 M01S03534.profile +++|* CALLS GES, NUE. 04082 M01S03535.profile +++| 04083 M01S03536.profile +++| 04084 M01S03537.profile +++| DUP BSS 0
| Line S03538 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04085 M02S03538.v23l617 ---| MX3 -42 SEARCH FOR USER NUMBER 04086 M01S00196.v23l617 +++| MX3 -42 SEARCH FOR USER NAME 04087 M01S03539.profile +++| BX6 -X3*X1 04088 M01S03540.profile +++| LX6 18 04089 M01S03541.profile +++| SA6 UNUM
| Line S03542 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04090 M02S03542.v23l617 ---| DUP1 RJ NUE GET NEXT USER NUMBER ENTRY 04091 M01S00197.v23l617 +++| DUP1 RJ NUE GET NEXT USER NAME ENTRY 04092 M01S03543.profile +++| NZ B2,DUP2 IF END OF LEVEL-3 CHAIN 04093 M01S03544.profile +++| SX2 X1 04094 M01S03545.profile +++| NZ X2,DUP2 IF END OF LIST 04095 M01S03546.profile +++| SA2 UNUM 04096 M01S03547.profile +++| BX6 X1-X2 04097 M01S03548.profile +++| BX1 X1-X1 04098 M01S03549.profile +++| NZ X6,DUP1 IF NO MATCH 04099 M01S03550.profile +++| SA6 A1 CLEAR ENTRY FROM TABLE
| Line S03551 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04100 M02S03551.v23l617 ---| SA1 F.TAB3 DECREMENT USER NUMBER COUNT FIELD 04101 M01S00198.v23l617 +++| SA1 F.TAB3 DECREMENT USER NAME COUNT FIELD 04102 M01S03552.profile +++| SA2 T3IE 04103 M01S03553.profile +++| IX1 X1+X2 04104 M01S03554.profile +++| SA2 X1 04105 M01S03555.profile +++| LX2 -24 04106 M01S03556.profile +++| MX3 -12 04107 M01S03557.profile +++| BX4 -X3*X2 04108 M01S03558.profile +++| SX4 X4-1 04109 M01S03559.profile +++| NG X4,ERD27 IF ERROR 04110 M01S03560.profile +++| BX2 X3*X2 04111 M01S03561.profile +++| BX6 X2+X4 04112 M01S03562.profile +++| LX6 24 04113 M01S03563.profile +++| SA6 A2 04114 M01S03564.profile +++| EQ DQP2 *MAIN LOOP* RETURN 04115 M01S03565.profile +++|
| Line S03566 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04116 M02S03566.v23l617 ---| DUP2 SB3 ERUL **** DELETE NON-EXISTENT USER NUMBER. 04117 M01S00199.v23l617 +++| DUP2 SB3 ERUL **** DELETE NON-EXISTENT USER NAME. 04118 M01S03567.profile +++| RJ ERU USER ERROR 04119 M01S03568.profile +++| EQ DQP2 RETURN TO MAIN LOOP 04120 M01S03569.profile +++| MDP SPACE 4,10 04121 M01S03570.profile +++|** MDP - MISCELLANEOUS DIRECTIVE PROCESSOR. 04122 M01S03571.profile +++|* 04123 M01S03572.profile +++|* PROCESSES *MU*, *PCL*, *M1*,..., *M4*, *AD*, *CEX*,
| Line S03573 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04124 M02S03573.ns22000 ---|* *ISL*, *IR1*,..., *IR8*, *PEX*, *TI*, *TO*, *ISV*, *SML*, 04125 M01S00237.ns22000 +++|* *ISL*, *IR1*,...,*IR8*, *PEX*, *TI*, *TO*, *PFN*, *PUN*, 04126 M01S00238.ns22000 +++|* *PPW*, *PCR*, *EFN*, *EUN*, *EPW*, *ISV*, *SML*, 04127 M01S03574.profile +++|* *SMA*, *SIL*, *SIA*, *LR1*, *AR1*,..., *LR8*, *AR8*. 04128 M01S03575.profile +++|* 04129 M01S03576.profile +++|* ENTRY (X1) = QUEUE ENTRY. 04130 M01S03577.profile +++|* (X7) = TABLE INDEX. 04131 M01S03578.profile +++|* TO MDP1, IF LEVEL-1 DIRECTIVE. 04132 M01S03579.profile +++|* TO MDP3, IF LEVEL-3 DIRECTIVE. 04133 M01S03580.profile +++|* 04134 M01S03581.profile +++|* EXIT TO DQP2. 04135 M01S03582.profile +++|* 04136 M01S03583.profile +++|* CALLS DFS, SDF. 04137 M01S03584.profile +++|* 04138 M01S03585.profile +++|* USES ALL REGISTERS. 04139 M01S03586.profile +++| 04140 M01S03587.profile +++| 04141 M01S03588.profile +++| MDP BSS 0 04142 M01S03589.profile +++| MDP1 SA2 F.TAB1 04143 M01S03590.profile +++| SA5 T1IE 04144 M01S03591.profile +++| EQ MDP3 04145 M01S03592.profile +++| 04146 M01S03593.profile +++| MDP2 SA2 F.TAB3 04147 M01S03594.profile +++| SA5 T3IE 04148 M01S03595.profile +++| 04149 M01S03596.profile +++| MDP3 RJ DFS (DF) - (DF+4) SET-UP 04150 M01S03597.profile +++| MX3 -42 04151 M01S03598.profile +++| BX6 -X3*X1 04152 M01S03599.profile +++| IX3 X2+X5 FWA OF ENTRY 04153 M01S03600.profile +++| FUNC SDFT SET DATA IN FIELD 04154 M01S03601.profile +++| JP DQP2 *MAIN LOOP* RETURN 04155 M01S03602.profile +++| PNP SPACE 4,10 04156 M01S03603.profile +++|** PNP - PROJECT NUMBER PROCESSOR. 04157 M01S03604.profile +++|* 04158 M01S03605.profile +++|* PROCESSES *APN*, *DPN*, *PN*. 04159 M01S03606.profile +++|* 04160 M01S03607.profile +++|* ENTRY (DTIQ) = TABLE INDEX. 04161 M01S03608.profile +++|* (PN - PN+1) = PROJECT NUMBER. 04162 M01S03609.profile +++|* 04163 M01S03610.profile +++|* EXIT TO DQP2. 04164 M01S03611.profile +++|* (RA3) = 0, IF NEW LEVEL-3 BLOCK. 04165 M01S03612.profile +++|* = LEVEL-3 RANDOM ADDRESS, ELSE. 04166 M01S03613.profile +++|* (T2IE) = TABLE 2 INDEX OF ENTRY. 04167 M01S03614.profile +++|* PROJECT COUNT UPDATED, IF *APN* OR *DPN*. 04168 M01S03615.profile +++|* 04169 M01S03616.profile +++|* CALLS ADB, ATS, MVE, MWS, PDE, PEI, STB, UPC. 04170 M01S03617.profile +++|* 04171 M01S03618.profile +++|* USES ALL REGISTERS. 04172 M01S03619.profile +++| 04173 M01S03620.profile +++| 04174 M01S03621.profile +++| PNP BSS 0 04175 M01S03622.profile +++| RJ PEI PROJECT ENTRY INITIALIZATION 04176 M01S03623.profile +++| NZ X4,PNP2 IF PROJECT NUMBER NOT FOUND 04177 M01S03624.profile +++| SA1 F.TAB2 TABLE 2 INDEX OF ENTRY 04178 M01S03625.profile +++| IX6 X3-X1 04179 M01S03626.profile +++| SA6 T2IE 04180 M01S03627.profile +++| SX7 X5 LEVEL-3 RANDOM ADDRESS 04181 M01S03628.profile +++| SA7 RA3 04182 M01S03629.profile +++| SX0 N 04183 M01S03630.profile +++| RJ ADB ADD DATA LEVEL BLOCK 04184 M01S03631.profile +++| SA1 DTIQ 04185 M01S03632.profile +++| SB2 X1-XPND 04186 M01S03633.profile +++| ZR B2,DQP2 IF *PN* 04187 M01S03634.profile +++| MX2 1 04188 M01S03635.profile +++| SA3 A5+PTMW 04189 M01S03636.profile +++| SB2 X1-XDPN 04190 M01S03637.profile +++| ZR B2,PNP1 IF *DPN* 04191 M01S03638.profile +++| PL X3,DQP2 IF ALREADY ACTIVE 04192 M01S03639.profile +++| BX6 -X2*X3 ACTIVATE PROJECT NUMBER 04193 M01S03640.profile +++| SA6 A3 04194 M01S03641.profile +++| EQ PNP3 04195 M01S03642.profile +++| 04196 M01S03643.profile +++| PNP1 NG X3,DQP2 IF ALREADY INACTIVE 04197 M01S03644.profile +++| BX6 X2+X3 DEACTIVATE PROJECT NUMBER 04198 M01S03645.profile +++| SA6 A3 04199 M01S03646.profile +++| EQ PNP3 04200 M01S03647.profile +++| 04201 M01S03648.profile +++| PNP2 SA1 DTIQ 04202 M01S03649.profile +++| SX1 X1-XAPN 04203 M01S03650.profile +++| NZ X1,ERD13 IF NOT *APN* 04204 M01S03651.profile +++| SA5 L.TAB2 04205 M01S03652.profile +++| SA1 PN 04206 M01S03653.profile +++| ADDWRD TAB2,X1 04207 M01S03654.profile +++| SA1 PN+1 04208 M01S03655.profile +++| ADDWRD TAB2,X1 04209 M01S03656.profile +++| BX1 X1-X1 04210 M01S03657.profile +++| ADDWRD TAB2,X1 04211 M01S03658.profile +++| SX0 N 04212 M01S03659.profile +++| RJ PDE PROCESS DATA LEVEL ENTRY 04213 M01S03660.profile +++| MOVE C.TAB3,D3AA,X0 04214 M01S03661.profile +++| SA0 B1+B1 04215 M01S03662.profile +++| FUNC STBT SORT TABLE 2 04216 M01S03663.profile +++| SX1 B1 04217 M01S03664.profile +++| SB6 PN 04218 M01S03665.profile +++| FUNC MWST SEARCH TABLE 2 04219 M01S03666.profile +++| NZ X2,ERD8 IF PROJECT NUMBER NOT FOUND 04220 M01S03667.profile +++| SB3 X4 TABLE 2 INDEX OF ENTRY 04221 M01S03668.profile +++| SX6 B2-B3 04222 M01S03669.profile +++| SA6 T2IE 04223 M01S03670.profile +++| SX1 XAPN 04224 M01S03671.profile +++| 04225 M01S03672.profile +++| PNP3 RJ UPC UPDATE PROJECT COUNT 04226 M01S03673.profile +++| SA6 A2 04227 M01S03674.profile +++| JP DQP2 *MAIN LOOP* RETURN 04228 M01S03675.profile +++| TITLE UPDATE/CREATE SUBROUTINES - QUEUE PROCESSOR ROUTINES. 04229 M01S03676.profile +++| IPP SPACE 4,10 04230 M01S03677.profile +++|** IPP - INTERLOCK PROFILE FILE. 04231 M01S03678.profile +++|* 04232 M01S03679.profile +++|* PROFILE FILE IS ATTACHED IN MODIFY MODE. IF FILE BUSY, 04233 M01S03680.profile +++|* A ROLLOUT IS PERFORMED AND ANOTHER ATTEMPT MADE. 04234 M01S03681.profile +++|* 04235 M01S03682.profile +++|* EXIT TO IPPX, IF ATTACH SUCCESSFUL. 04236 M01S03683.profile +++|* TO ABT1, IF PFM ERROR. 04237 M01S03684.profile +++|* 04238 M01S03685.profile +++|* CALLS CFS, MSG. 04239 M01S03686.profile +++|* 04240 M01S03687.profile +++|* USES ALL REGISTERS. 04241 M01S03688.profile +++| 04242 M01S03689.profile +++| 04243 M01S03690.profile +++| IPP2 MESSAGE IPPB,1,R B-DISPLAY MESSAGE 04244 M01S03691.profile +++| SETRNR NOROLL PREVENT JOB ROLLOUT
| Line S03692 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 04245 M02S03692.271l716 ---| SETPR 50B 04246 M01S00002.271l716 +++| SETPR LSCS 04247 M01S03693.profile +++| 04248 M01S03694.profile +++| IPP SUBR ENTRY/EXIT 04249 M01S03695.profile +++| GETPR IPPD
| Line S03696 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2729 |
Seq # *Modification Id* Act ----------------------------+ 04250 M02S03696.ns2729 ---| IPP1 ATTACH P,,,,M,,,IP 04251 M01S00001.ns2729 +++| IPP1 ATTACH P,,,,M,,,IP,MA 04252 M01S03697.profile +++| SB2 P 04253 M01S03698.profile +++| RJ CFS CHECK FILE STATUS 04254 M01S03699.profile +++| ZR X2,IPP2 IF NO PFM ERROR 04255 M01S03700.profile +++| SX3 X2-1
| Line S03701 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | profi9 |
Seq # *Modification Id* Act ----------------------------+ 04256 M02S03701.profi9 ---| NZ X3,ABT1 IF ERROR IS NOT *FILE BUSY* 04257 M01S00003.profi9 +++| NZ X3,ABT3 IF ERROR IS NOT *FILE BUSY* 04258 M01S03702.profile +++| ROLLOUT =0 04259 M01S03703.profile +++| EQ IPP1 TRY AGAIN 04260 M01S03704.profile +++| 04261 M01S03705.profile +++| IPPB DATA L* PROFILE FILE INTERLOCKED* 04262 M01S03706.profile +++| 04263 M01S03707.profile +++| IPPD CON 0 CPU PRIORITY 04264 M01S03708.profile +++| WCL SPACE 4,10 04265 M01S03709.profile +++|** WCL - WRITE CHARGE LEVEL (LEVEL-1). 04266 M01S03710.profile +++|* 04267 M01S03711.profile +++|* ENTRY (FUP1) .NE. 0, IF UPDATE OF LEVEL-1 NECESSARY. 04268 M01S03712.profile +++|* 04269 M01S03713.profile +++|* CALLS WTB. 04270 M01S03714.profile +++|* 04271 M01S03715.profile +++|* USES ALL REGISTERS. 04272 M01S03716.profile +++| 04273 M01S03717.profile +++| 04274 M01S03718.profile +++| WCL SUBR ENTRY/EXIT 04275 M01S03719.profile +++| SA1 FUP1 04276 M01S03720.profile +++| ZR X1,WCLX IF NO LEVEL-1 UPDATE NEEDED 04277 M01S03721.profile +++| BX6 X6-X6 CLEAR LEVEL-1 UPDATE FLAG 04278 M01S03722.profile +++| SA6 A1 04279 M01S03723.profile +++| SA0 B1 04280 M01S03724.profile +++| SX5 P 04281 M01S03725.profile +++| FUNC WTBT WRITE TABLE 1 04282 M01S03726.profile +++| EQ WCLX 04283 M01S03727.profile +++| TITLE COMMON SUBROUTINES. 04284 M01S03728.profile +++| ACI SPACE 4,10 04285 M01S03729.profile +++| ACI SPACE 4,18 04286 M01S03730.profile +++|** ACI - ASSEMBLE CHARACTERS INTERFACE. 04287 M01S03731.profile +++|* 04288 M01S03732.profile +++|* ENTRY (X1) = BIT STRING OF CHARACTERS TO PERMIT. 04289 M01S03733.profile +++|* 04290 M01S03734.profile +++|* EXIT (CBUF - CBUF+CBUFL) = LEFT-JUSTIFIED ASSEMBLED 04291 M01S03735.profile +++|* CHARACTERS. 04292 M01S03736.profile +++|* (X4) = NUMBER OF CHARACTERS. 04293 M01S03737.profile +++|* (B5) = SEPARATOR (0 IF END OF LINE). 04294 M01S03738.profile +++|* (B6) = 0, IF ENTRY TERMINATION. 04295 M01S03739.profile +++|* (B6) .NE. 0, IF ASSEMBLY COMPLETE. 04296 M01S03740.profile +++|* (ET) = -1, IF EOF. 04297 M01S03741.profile +++|* (ET) = 1, IF */* ENTRY TERMINATION. 04298 M01S03742.profile +++|* 04299 M01S03743.profile +++|* CALLS ASC. 04300 M01S03744.profile +++|* 04301 M01S03745.profile +++|* USES A - 1, 2, 6, 7. 04302 M01S03746.profile +++|* X - 0, 1, 2, 3, 4, 6, 7. 04303 M01S03747.profile +++|* B - 2, 4. 04304 M01S03748.profile +++| 04305 M01S03749.profile +++| 04306 M01S03750.profile +++| ACI SUBR ENTRY/EXIT 04307 M01S03751.profile +++| BX6 X1 04308 M01S03752.profile +++| SA6 ACIB SAVE BIT STRING 04309 M01S03753.profile +++| BX6 X6-X6 04310 M01S03754.profile +++| SA6 ACIA CLEAR CHARACTER COUNT 04311 M01S03755.profile +++| SA6 ACIC CLEAR CHARACTER BUFFER INDEX 04312 M01S03756.profile +++| SB2 CBUFL-1 04313 M01S03757.profile +++| ACI1 SA6 B2+CBUF CLEAR CHARACTER BUFFER 04314 M01S03758.profile +++| SB2 B2-1 04315 M01S03759.profile +++| PL B2,ACI1 04316 M01S03760.profile +++| ACI2 SX0 I INPUT FET ADDRESS 04317 M01S03761.profile +++| SA2 BS BLANK SUPPRESSION 04318 M01S03762.profile +++| BX6 X2 04319 M01S03763.profile +++| SA1 ACIB BIT STRING OF CHARACTERS TO PERMIT 04320 M01S03764.profile +++| FUNC ASCT ASSEMBLE CHARACTERS 04321 M01S03765.profile +++| SA2 ACIC 04322 M01S03766.profile +++| SA6 CBUF+X2 STORE ASSEMBLED CHARACTERS 04323 M01S03767.profile +++| SA1 ACIA 04324 M01S03768.profile +++| SB4 X4-10 04325 M01S03769.profile +++| IX4 X1+X4 INCREMENT CHARACTER COUNT 04326 M01S03770.profile +++| NG B4,ACIX RETURN IF SEPARATOR ENCOUNTERED 04327 M01S03771.profile +++| BX7 X4 04328 M01S03772.profile +++| SA7 A1 04329 M01S03773.profile +++| SX3 X2-CBUFL-1 04330 M01S03774.profile +++| PL X3,ACI2 IF BUFFER FULL 04331 M01S03775.profile +++| SX7 X2+B1 04332 M01S03776.profile +++| SA7 A2 INCREMENT CHARACTER BUFFER INDEX 04333 M01S03777.profile +++| EQ ACI2 04334 M01S03778.profile +++| 04335 M01S03779.profile +++| 04336 M01S03780.profile +++| ACIA CON 0 CHARACTER COUNT 04337 M01S03781.profile +++| ACIB CON 0 BIT STRING OF CHARACTERS TO PERMIT 04338 M01S03782.profile +++| ACIC CON 0 CHARACTER BUFFER INDEX 04339 M01S00003.ns2417 +++| COB SPACE 4,15 04340 M01S00004.ns2417 +++|** COB - CHECK OUTPUT BUFFER. 04341 M01S00005.ns2417 +++|* 04342 M01S00006.ns2417 +++|* EXIT OUTPUT BUFFER FLUSHED IF NECESSARY AND *SSST* STATUS 04343 M01S00007.ns2417 +++|* REMOVED FROM OUTPUT FILE. 04344 M01S00008.ns2417 +++|* 04345 M01S00009.ns2417 +++|* USES X - 1, 2, 3. 04346 M01S00010.ns2417 +++|* A - 1, 2, 3. 04347 M01S00011.ns2417 +++|* 04348 M01S00012.ns2417 +++|* MACROS SETFS, STATUS, WRITER. 04349 M01S00013.ns2417 +++| 04350 M01S00014.ns2417 +++| 04351 M01S00015.ns2417 +++| COB SUBR ENTRY/ EXIT 04352 M01S00016.ns2417 +++| SA3 PO 04353 M01S00017.ns2417 +++| SA1 PGLC 04354 M01S00018.ns2417 +++| ZR X3,COB1 IF TERMINAL FILE 04355 M01S00019.ns2417 +++| SX1 X1-99999 04356 M01S00020.ns2417 +++| ZR X1,COBX IF NO DATA WRITTEN 04357 M01S00021.ns2417 +++| COB1 WRITER O,R FLUSH OUTPUT 04358 M01S00022.ns2417 +++| ZR X3,COBX IF TERMINAL FILE 04359 M01S00023.ns2417 +++| STATUS O,P 04360 M01S00024.ns2417 +++| SA2 O+5 GET FNT 04361 M01S00025.ns2417 +++| MX1 -6 04362 M01S00026.ns2417 +++| BX2 -X1*X2 GET FILE STATUS 04363 M01S00027.ns2417 +++| SX1 X2-SSST 04364 M01S00028.ns2417 +++| NZ X1,COBX IF PRIOR OUTPUT ID 04365 M01S00029.ns2417 +++| SETFS O,0 CLEAR FILE STATUS 04366 M01S00030.ns2417 +++| EQ COBX RETURN 04367 M01S03783.profile +++| SIN SPACE 4,11 04368 M01S03784.profile +++|** SIN - SUBROUTINE INTERFACE. 04369 M01S03785.profile +++|* 04370 M01S03786.profile +++|* ENTRY (B7) SUBROUTINE ADDRESS. 04371 M01S03787.profile +++|* 04372 M01S03788.profile +++|* EXIT TO ROUTINE WITH RETURN ADDRESS SET. 04373 M01S03789.profile +++|* 04374 M01S03790.profile +++|* CALLS NONE. 04375 M01S03791.profile +++|* 04376 M01S03792.profile +++|* USES A - 1, 6. 04377 M01S03793.profile +++|* X - 1, 6. 04378 M01S03794.profile +++|* B - 7. 04379 M01S03795.profile +++| 04380 M01S03796.profile +++| 04381 M01S03797.profile +++| SIN SUBR ENTRY/EXIT 04382 M01S03798.profile +++| SA1 SIN SET RETURN ADDRESS 04383 M01S03799.profile +++| BX6 X1 04384 M01S03800.profile +++| SA6 B7 04385 M01S03801.profile +++| JP B7+1 JUMP TO ROUTINE 04386 M01S03802.profile +++| ABT SPACE 4 04387 M01S03803.profile +++|** ABT - ABORT EXIT. 04388 M01S03804.profile +++| 04389 M01S03805.profile +++| 04390 M01S03806.profile +++| ABM SA1 CN ABORT AFTER ISSUING OUTPUT FILE MESSAGE 04391 M01S03807.profile +++| SA2 PN 04392 M01S03808.profile +++| BX6 X1 04393 M01S03809.profile +++| LX7 X2 04394 M01S03810.profile +++| SA6 FCNP SET CHARGE PRESENT INDICATOR 04395 M01S03811.profile +++| SA7 FPNP SET PROJECT PRESENT INDICATOR 04396 M01S03812.profile +++| RJ ERU ISSUE ERROR MESSAGE 04397 M01S03813.profile +++| SX2 PROB *DIRECTIVE ERRORS.* 04398 M01S03814.profile +++| EQ ABT ABORT AFTER CLEAN UP 04399 M01S03815.profile +++| 04400 M01S03816.profile +++| ABE SX2 =C* PROFILE ABORTED.* 04401 M01S03817.profile +++| ABT MESSAGE X2 04402 M01S03818.profile +++| ABT1 BX6 X6-X6 CLEAR K-DISPLAY 04403 M01S03819.profile +++| SA6 DSA+1 04404 M01S03820.profile +++| RECALL N 04405 M01S03821.profile +++| RETURN P 04406 M01S03822.profile +++| RETURN N
| Line S03823 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 04407 M02S03823.ns2417 ---| ABT2 WRITER O,R
| Line S03824 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 04408 M02S03824.ns2417 ---| SETFS X2,0 SET ID CODE 04409 M01S00031.ns2417 +++| RJ COB CHECK OUTPUT FILE BUFFER 04410 M01S03825.profile +++| RJ CAF CHECK ALTERNATE FAMILY 04411 M01S03826.profile +++| ABORT 04412 M01S00004.profi9 +++| 04413 M01S00005.profi9 +++| ABT3 SX2 EBUF 04414 M01S00006.profi9 +++| EQ ABT ISSUE *PFM* ERROR MESSAGE AND ABORT 04415 M01S03827.profile +++| TOV SPACE 4 04416 M01S03828.profile +++|** TOV - TABLE OVERFLOW. 04417 M01S03829.profile +++|* 04418 M01S03830.profile +++|* ENTRY FROM *ATS* ONLY. 04419 M01S03831.profile +++|* (B6) = EXIT ADDRESS IN *COMCMTP* TO CONTINUE 04420 M01S03832.profile +++|* PROCESSING. 04421 M01S03833.profile +++|* 04422 M01S03834.profile +++|* EXIT TO (B6).
| Line S03835 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04423 M02S03835.ns2290 ---|* FIELD LENGTH INCREASED BY 1000B WORDS. 04424 M01S00001.ns2290 +++|* FIELD LENGTH INCREASED BY *FLIN* WORDS. 04425 M01S03836.profile +++|* (TV) .NE. 0, IF FIELD LENGTH LIMIT REACHED. 04426 M01S03837.profile +++|*
| Line S03838 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04427 M02S03838.ns2290 ---|* USES A - 3, 6.
| Line S03839 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04428 M02S03839.ns2290 ---|* X - 3, 4, 6. 04429 M01S00002.ns2290 +++|* USES X - 3, 4, 6. 04430 M01S00003.ns2290 +++|* A - 3, 4, 6. 04431 M01S03840.profile +++|* 04432 M01S03841.profile +++|* MACROS MEMORY. 04433 M01S03842.profile +++| 04434 M01S03843.profile +++| 04435 M01S03844.profile +++| TOV BSS 0 ENTRY 04436 M01S00004.ns2290 +++| SA4 FLM MAXIMUM FIELD LENGTH 04437 M01S03845.profile +++| SA3 ML CURRENT FIELD LENGTH
| Line S03846 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04438 M02S03846.ns2290 ---| SX3 X3+1000B
| Line S03847 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04439 M02S03847.ns2290 ---| SX4 X3-FLLM LIMIT FIELD LENGTH 04440 M01S00005.ns2290 +++| SX3 X3+FLIN 04441 M01S00006.ns2290 +++| IX4 X3-X4 LIMIT FIELD LENGTH 04442 M01S03848.profile +++| NG X4,TOV1 IF ADEQUATE FIELD LENGTH 04443 M01S03849.profile +++| SX6 B1 INDICATE OVERFLOW 04444 M01S03850.profile +++| SA6 TV 04445 M01S03851.profile +++| TOV1 MEMORY CM,TOVB,R,X3 04446 M01S03852.profile +++| SA3 TOVB GET FIELD LENGTH ASSIGNED 04447 M01S03853.profile +++| AX3 30 04448 M01S03854.profile +++| BX6 X3 04449 M01S03855.profile +++| SA6 ML SET NEW FIELD LENGTH 04450 M01S03856.profile +++| SX6 X6-10B 04451 M01S03857.profile +++| SA6 F.TEND ADJUST TABLE LENGTH 04452 M01S03858.profile +++| JP B6 EXIT 04453 M01S03859.profile +++| 04454 M01S03860.profile +++|
| Line S03861 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04455 M02S03861.ns2290 ---| TO CON TOV 04456 M01S03862.profile +++| TOVB CON 0 FIELD LENGTH STATUS RETURN 04457 M01S03863.profile +++| HDR SPACE 4 04458 M01S03864.profile +++|** HDR - WRITE HEADER. 04459 M01S03865.profile +++|* 04460 M01S03866.profile +++|* ENTRY NONE. 04461 M01S03867.profile +++|* 04462 M01S03868.profile +++|* EXIT HEADER LINES WRITTEN TO OUTPUT FILE. 04463 M01S03869.profile +++|* (X2) = OUTPUT FILE FET ADDRESS. 04464 M01S03870.profile +++|* 04465 M01S03871.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5 AND X5. 04466 M01S03872.profile +++|* 04467 M01S03873.profile +++|* CALLS CDD, SFN. 04468 M01S03874.profile +++|* 04469 M01S03875.profile +++|* MACROS WRITEH, WRITEW. 04470 M01S03876.profile +++| 04471 M01S03877.profile +++| 04472 M01S03878.profile +++| HDR5 SA7 PGLC DISABLE FURTHER PAGING 04473 M01S03879.profile +++| ZR X1,HDRX IF TERMINAL OUTPUT 04474 M01S03880.profile +++| SA3 HDRL 04475 M01S03881.profile +++| SA1 CCDR+8 04476 M01S03882.profile +++| BX6 X3
| Line S03883 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04477 M02S03883.v23l617 ---| HDR6 SA1 A1-B1 BLANK FILL CONTROL CARD IMAGE 04478 M01S00200.v23l617 +++| HDR6 SA1 A1-B1 BLANK FILL COMMAND IMAGE 04479 M01S03884.profile +++| SA6 A1
| Line S03885 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04480 M02S03885.v23l617 ---| ZR X1,HDR6 IF NOT END OF CONTROL CARD
| Line S03886 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04481 M02S03886.v23l617 ---| RJ SFN BLANK FILL LAST WORD OF CONTROL CARD 04482 M01S00201.v23l617 +++| ZR X1,HDR6 IF NOT END OF COMMAND 04483 M01S00202.v23l617 +++| RJ SFN BLANK FILL LAST WORD OF COMMAND 04484 M01S03887.profile +++| SA6 A1 04485 M01S03888.profile +++| WRITEW O,HDRK,B1 WRITE PAGE EJECT
| Line S03889 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04486 M02S03889.v23l617 ---| WRITEW X2,CCDR,8 WRITE CONTROL STATEMENT 04487 M01S00203.v23l617 +++| WRITEW X2,CCDR,8 WRITE COMMAND 04488 M01S03890.profile +++| WRITEH X2,HDRH,B1+B1 WRITE DATE AND TIME 04489 M01S03891.profile +++| HDR7 WRITEH X2,HDRL,B1 WRITE BLANK LINE 04490 M01S03892.profile +++| 04491 M01S03893.profile +++| HDR SUBR ENTRY/EXIT 04492 M01S03894.profile +++| SA3 OP CHECK FOR LIST OPTION 04493 M01S03895.profile +++| SA1 PO CHECK FOR TERMINAL OUTPUT 04494 M01S03896.profile +++| SX3 X3-LOPT 04495 M01S03897.profile +++| SX7 -1 04496 M01S03898.profile +++| NZ X3,HDR5 IF NOT LIST OPTION 04497 M01S03899.profile +++| NZ X1,HDR1 IF NOT TERMINAL OUTPUT 04498 M01S03900.profile +++| MX6 6 04499 M01S03901.profile +++| SA1 HDRA 04500 M01S03902.profile +++| BX6 -X6*X1 04501 M01S03903.profile +++| SA2 =1L 04502 M01S03904.profile +++| BX6 X6+X2 04503 M01S03905.profile +++| SA6 A1 04504 M01S03906.profile +++| SA7 PGLC DISABLE FURTHER PAGING 04505 M01S03907.profile +++| 04506 M01S03908.profile +++| HDR1 WRITEW O,HDRA,B1 04507 M01S03909.profile +++| SA4 LO 04508 M01S03910.profile +++| SX2 HDRB 04509 M01S03911.profile +++| SX1 X4-CSLO 04510 M01S03912.profile +++| ZR X1,HDR2 IF CHARGE NUMBER LIST 04511 M01S03913.profile +++| SX1 X4-CMLO 04512 M01S03914.profile +++| ZR X1,HDR2 IF MASTER USER CHARGE NUMBER LIST 04513 M01S03915.profile +++| SX2 HDRC 04514 M01S03916.profile +++| SX1 X4-PSLO 04515 M01S03917.profile +++| ZR X1,HDR2 IF PROJECT NUMBER LIST 04516 M01S03918.profile +++| SX1 X4-PMLO 04517 M01S03919.profile +++| ZR X1,HDR2 IF MASTER USER PROJECT NUMBER LIST 04518 M01S03920.profile +++| SX2 HDRD 04519 M01S03921.profile +++| 04520 M01S03922.profile +++| HDR2 WRITEW O,X2,B1+B1 04521 M01S03923.profile +++| SA4 LO 04522 M01S03924.profile +++| SX2 HDRE 04523 M01S03925.profile +++| SX1 X4-FMLO 04524 M01S03926.profile +++| PL X1,HDR3 IF MASTER USER OPTION 04525 M01S03927.profile +++| SX2 HDRF 04526 M01S03928.profile +++| 04527 M01S03929.profile +++| HDR3 WRITEW O,X2,3 04528 M01S03930.profile +++| SA2 PO 04529 M01S03931.profile +++| ZR X2,HDR4 IF TERMINAL FILE 04530 M01S03932.profile +++| SA1 HDRJ PAGE NUMBER 04531 M01S03933.profile +++| SX6 X1+B1 04532 M01S03934.profile +++| SA6 A1 04533 M01S03935.profile +++| RJ CDD 04534 M01S03936.profile +++| MX4 -36 04535 M01S03937.profile +++| SA2 =4LPAGE 04536 M01S03938.profile +++| BX6 -X4*X6 04537 M01S03939.profile +++| BX6 X6+X2 04538 M01S03940.profile +++| SA6 HDRI 04539 M01S03941.profile +++| 04540 M01S03942.profile +++| HDR4 WRITEH O,HDRI,B1 04541 M01S03943.profile +++| WRITEH X2,HDRG,7 04542 M01S03944.profile +++| EQ HDR7 WRITE BLANK LINE 04543 M01S03945.profile +++| 04544 M01S03946.profile +++| 04545 M01S03947.profile +++| HDRA DIS 1,1 "PPFN" 04546 M01S03948.profile +++| HDRB DIS 2,CHARGE NUMBER LIST 04547 M01S03949.profile +++| HDRC DIS 2,PROJECT NUMBER LIST 04548 M01S03950.profile +++| HDRD DIS 2,FULL FILE LIST 04549 M01S03951.profile +++| HDRE DIS 3,OF MASTER USER 04550 M01S03952.profile +++| HDRF DIS 2,OF FULL FILE. 04551 M01S03953.profile +++| HDRG DIS 5, CHARGE NUMBER MASTER USER 04552 M01S03954.profile +++| HDRH BSSZ 2 DATE AND TIME 04553 M01S03955.profile +++| HDRI CON 0 04554 M01S03956.profile +++| HDRJ CON 1 PAGE NUMBER 04555 M01S03957.profile +++| HDRK CON 1H1 04556 M01S03958.profile +++| HDRL CON 10H 04557 M01S03959.profile +++| WOL SPACE 4 04558 M01S03960.profile +++|** WOL - WRITE OUTPUT LINE. 04559 M01S03961.profile +++|* 04560 M01S03962.profile +++|* ENTRY (X2) ADDRESS OF FET FOR FILE. 04561 M01S03963.profile +++|* (B6) FWA OF WORKING BUFFER. 04562 M01S03964.profile +++|* (B7) WORD COUNT OF WORKING BUFFER. 04563 M01S03965.profile +++|* IF (B7) = 0, NO TRANSFER WILL BE PERFORMED. 04564 M01S03966.profile +++|* 04565 M01S03967.profile +++|* EXIT (X2) ADDRESS OF FET FOR FILE. 04566 M01S03968.profile +++|* NEW HEADER WRITTEN IF END OF PAGE. 04567 M01S03969.profile +++|* 04568 M01S03970.profile +++|* CALLS HDR, WTH. 04569 M01S03971.profile +++|* 04570 M01S03972.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5 AND X5. 04571 M01S03973.profile +++| 04572 M01S03974.profile +++| 04573 M01S03975.profile +++| WOL SUBR ENTRY/EXIT 04574 M01S03976.profile +++| SX3 X2-O 04575 M01S03977.profile +++| NZ X3,WOL1 IF NOT OUTPUT FILE 04576 M01S03978.profile +++| SA1 PGLC 04577 M01S03979.profile +++| NG X1,WOL1 IF PAGING DISABLED 04578 M01S03980.profile +++| SX6 X1+B1 INCREMENT LINE COUNT
| Line S03981 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04579 M02S03981.ns22000 ---| SX4 X1-LINP+3 04580 M01S00239.ns22000 +++| SA4 A1+B1 GET LINE LIMIT 04581 M01S00240.ns22000 +++| IX4 X1-X4 04582 M01S03982.profile +++| SA6 A1 04583 M01S03983.profile +++| NG X4,WOL1 IF NOT END OF PAGE
| Line S03984 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04584 M02S03984.ns22000 ---| SX6 B1 RESET LINE COUNTER
| Line S03985 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04585 M02S03985.ns22000 ---| SA6 A1
| Line S03986 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04586 M02S03986.ns22000 ---| SX7 B6 SAVE REGISTERS
| Line S03987 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04587 M02S03987.ns22000 ---| SX6 B7
| Line S03988 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04588 M02S03988.ns22000 ---| SA7 WOLA 04589 M01S00241.ns22000 +++| SX6 4 04590 M01S00242.ns22000 +++| SX7 B6 04591 M01S00243.ns22000 +++| SA6 A1 RESET LINE COUNT 04592 M01S00244.ns22000 +++| SA7 WOLA 04593 M01S00245.ns22000 +++| SX6 B7 SAVE REGISTERS 04594 M01S03989.profile +++| SA6 A7+B1 04595 M01S03990.profile +++| RJ HDR WRITE HEADER 04596 M01S03991.profile +++| SA3 WOLA RESTORE REGISTERS 04597 M01S03992.profile +++| SA4 A3+B1 04598 M01S03993.profile +++| SB6 X3 04599 M01S03994.profile +++| SB7 X4 04600 M01S03995.profile +++| WOL1 WRITEH X2,B6,B7 04601 M01S03996.profile +++| EQ WOLX RETURN 04602 M01S03997.profile +++| 04603 M01S03998.profile +++| WOLA BSSZ 2 HOLD AREA FOR REGISTERS 04604 M01S03999.profile +++| CAF SPACE 4 04605 M01S04000.profile +++|** CAF - CHECK ALTERNATE FAMILY. 04606 M01S04001.profile +++|* 04607 M01S04002.profile +++|* EXIT (X6) .NE. 0, IF FAMILY NAME CHANGE NOT ALLOWED. 04608 M01S04003.profile +++|* FAMILY NAME SET TO (FN) IF (FN) .NE. -1 AND JOB 04609 M01S04004.profile +++|* IS FROM SYSTEM ORIGIN.
| Line S04005 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04610 M02S04005.v23l617 ---|* TO ABT, IF ILLEGAL FAMILY NAME SPECIFIED. 04611 M01S00204.v23l617 +++|* TO *ABT*, IF INCORRECT FAMILY NAME SPECIFIED. 04612 M01S04006.profile +++|* 04613 M01S04007.profile +++|* USES A - 1,2,6. 04614 M01S04008.profile +++|* B - NONE. 04615 M01S04009.profile +++|* X - 1,2,6. 04616 M01S04010.profile +++|* 04617 M01S04011.profile +++|* CALLS CPM,ABT. 04618 M01S04012.profile +++| 04619 M01S04013.profile +++| 04620 M01S04014.profile +++| CAF SUBR ENTRY/EXIT 04621 M01S04015.profile +++| SA1 FN 04622 M01S04016.profile +++| MX6 59 04623 M01S04017.profile +++| BX6 X1-X6 04624 M01S04018.profile +++| ZR X6,CAFX IF FAMILY NOT SPECIFIED 04625 M01S04019.profile +++| SA1 OT 04626 M01S04020.profile +++| SX6 X1-SYOT 04627 M01S04021.profile +++| NZ X6,CAFX IF NOT SYSTEM ORIGIN 04628 M01S04022.profile +++| ENFAM FN 04629 M01S04023.profile +++| SA1 FN 04630 M01S04024.profile +++| MX6 -18 04631 M01S04025.profile +++| BX6 X6*X1 04632 M01S04026.profile +++| LX1 59-11 04633 M01S04027.profile +++| SX2 =C* FM NOT LEGAL FAMILY.* 04634 M01S04028.profile +++| PL X1,CAF1 IF FAMILY CHANGED 04635 M01S04029.profile +++| MX6 59 04636 M01S04030.profile +++| SA6 A1 04637 M01S04031.profile +++| EQ ABT 04638 M01S04032.profile +++| 04639 M01S04033.profile +++| CAF1 SA6 A1 SET OLD FAMILY NAME 04640 M01S04034.profile +++| BX6 X6-X6 04641 M01S04035.profile +++| EQ CAFX RETURN 04642 M01S04036.profile +++| ADB SPACE 4,10 04643 M01S04037.profile +++|** ADB - ADD DATA LEVEL BLOCK TO TABLE 3. 04644 M01S04038.profile +++|* 04645 M01S04039.profile +++|* ENTRY (X7) = RANDOM ADDRESS OF BLOCK TO READ. 04646 M01S04040.profile +++|* (X0) = FET ADDRESS TO READ FROM. 04647 M01S04041.profile +++|* (CN) = CHARGE NUMBER. 04648 M01S04042.profile +++|* (PN - PN+1) = PROJECT NUMBER. 04649 M01S04043.profile +++|* 04650 M01S04044.profile +++|* EXIT (A5) = FWA OF LEVEL-3 ENTRY. 04651 M01S04045.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY. 04652 M01S04046.profile +++|* 04653 M01S04047.profile +++|* CALLS CEP, RDB. 04654 M01S04048.profile +++|* 04655 M01S04049.profile +++|* USES ALL REGISTERS. 04656 M01S04050.profile +++| 04657 M01S04051.profile +++| 04658 M01S04052.profile +++| ADB2 SX6 B2+ SET TABLE 3 INDEX OF ENTRY 04659 M01S04053.profile +++| SA6 T3IE 04660 M01S04054.profile +++| 04661 M01S04055.profile +++| ADB SUBR ENTRY/EXIT 04662 M01S04056.profile +++| BX6 X6-X6 EMPTY TABLE 3 04663 M01S04057.profile +++| SA6 L.TAB3 04664 M01S04058.profile +++| RJ RDB READ DATA LEVEL BLOCK 04665 M01S04059.profile +++| SA3 F.TAB3 04666 M01S04060.profile +++| MX4 -12 04667 M01S04061.profile +++| SB2 B0 04668 M01S04062.profile +++| ADB1 SA5 X3+B2 ENTRY,S CONTROL WORD 04669 M01S04063.profile +++| LX5 12 04670 M01S04064.profile +++| BX6 -X4*X5 04671 M01S04065.profile +++| SX6 X6-3 04672 M01S04066.profile +++| NZ X6,ERD19 IF NOT LEVEL-3 BLOCK 04673 M01S04067.profile +++| LX5 12 ENTRY,S WORD POINTER 04674 M01S04068.profile +++| BX6 -X4*X5 04675 M01S04069.profile +++| RJ CEP CHECK ENTRY,S PROJECT NUMBER 04676 M01S04070.profile +++| ZR X2,ADB2 IF ENTRY FOUND 04677 M01S04071.profile +++| ZR X6,ERD20 IF ENTRY NOT IN BLOCK 04678 M01S04072.profile +++| SB2 B2+X6 04679 M01S04073.profile +++| SX6 B2-PRUS 04680 M01S04074.profile +++| NG X6,ADB1 IF NO ERROR 04681 M01S04075.profile +++| JP ERD21 04682 M01S04076.profile +++| AUN SPACE 4,10
| Line S04077 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04683 M02S04077.v23l617 ---|** AUN - ADD USER NUMBER. 04684 M01S00205.v23l617 +++|** AUN - ADD USER NAME. 04685 M01S04078.profile +++|* 04686 M01S04079.profile +++|* IF NECESSARY, ANOTHER LEVEL-3 OVERFLOW BLOCK IS ALLOCATED. 04687 M01S04080.profile +++|*
| Line S04081 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04688 M02S04081.v23l617 ---|* ENTRY (X1) = USER NUMBER TO ADD (RIGHT JUSTIFIED, 04689 M01S00206.v23l617 +++|* ENTRY (X1) = USER NAME TO ADD (RIGHT JUSTIFIED, 04690 M01S04082.profile +++|* WITH LEADING ZEROS). 04691 M01S04083.profile +++|* 04692 M01S04084.profile +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 04693 M01S04085.profile +++|* B - 2, 3. 04694 M01S04086.profile +++|* X - 1, 2, 3, 4, 5, 6, 7. 04695 M01S04087.profile +++|* 04696 M01S04088.profile +++|* CALLS GES, NUE. 04697 M01S04089.profile +++|* 04698 M01S04090.profile +++|* MACROS ALLOC. 04699 M01S04091.profile +++| 04700 M01S04092.profile +++|
| Line S04093 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04701 M02S04093.v23l617 ---| AUN7 SB3 ERUP **** DUPLICATE USER NUMBER. 04702 M01S00207.v23l617 +++| AUN7 SB3 ERUP **** DUPLICATE USER NAME. 04703 M01S04094.profile +++| AUN8 RJ ERU USER ERROR 04704 M01S04095.profile +++| 04705 M01S04096.profile +++| AUN SUBR ENTRY/EXIT
| Line S04097 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04706 M02S04097.v23l617 ---| BX6 X1 SEARCH FOR USER NUMBER 04707 M01S00208.v23l617 +++| BX6 X1 SEARCH FOR USER NAME 04708 M01S04098.profile +++| LX6 18 04709 M01S04099.profile +++| SA6 UNUM 04710 M01S04100.profile +++| BX6 X6-X6 CLEAR FIRST HOLE INDEX 04711 M01S04101.profile +++| SA6 AUNB 04712 M01S04102.profile +++| SX1 B1
| Line S04103 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04713 M02S04103.v23l617 ---| AUN1 RJ NUE NEXT USER NUMBER ENTRY 04714 M01S00209.v23l617 +++| AUN1 RJ NUE NEXT USER NAME ENTRY 04715 M01S04104.profile +++| NZ B2,AUN4 IF END OF LEVEL-3 CHAIN 04716 M01S04105.profile +++| MX2 42 04717 M01S04106.profile +++| BX2 X2*X1 04718 M01S04107.profile +++| ZR X2,AUN2 IF HOLE 04719 M01S04108.profile +++| SA2 UNUM 04720 M01S04109.profile +++| BX2 X1-X2
| Line S04110 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04721 M02S04110.v23l617 ---| ZR X2,AUN7 IF USER NUMBER ALREADY PRESENT 04722 M01S00210.v23l617 +++| ZR X2,AUN7 IF USER NAME ALREADY PRESENT 04723 M01S04111.profile +++| BX1 X1-X1 04724 M01S04112.profile +++| EQ AUN1 LOOP 04725 M01S04113.profile +++| 04726 M01S04114.profile +++| AUN2 SA2 AUNB SAVE INDEX OF FIRST HOLE 04727 M01S04115.profile +++| NZ X2,AUN3 IF ALREADY HAVE A HOLE 04728 M01S04116.profile +++| SA3 F.TAB3 04729 M01S04117.profile +++| SB2 X3 04730 M01S04118.profile +++| SX7 A1-B2 04731 M01S04119.profile +++| SA7 A2 04732 M01S04120.profile +++| AUN3 ZR X1,AUN1 IF NOT END OF LIST 04733 M01S04121.profile +++| 04734 M01S04122.profile +++| AUN4 SA1 AUNB 04735 M01S04123.profile +++| SA2 F.TAB3 04736 M01S04124.profile +++| IX3 X1+X2 04737 M01S04125.profile +++| NZ X1,AUN6 IF HOLE EXISTS 04738 M01S04126.profile +++| SA5 L.TAB3 ALLOCATE NEW OVERFLOW BLOCK 04739 M01S04127.profile +++| ALLOC TAB3,PRUS 04740 M01S04128.profile +++| IX3 X2+X5 04741 M01S04129.profile +++| SA4 =2LOV CONTROL WORD 04742 M01S04130.profile +++| BX6 X4 04743 M01S04131.profile +++| SA6 X3 04744 M01S04132.profile +++| SB2 PRUS-1 INITIALIZE REST OF NEW BLOCK (WITH 1) 04745 M01S04133.profile +++| SX6 B1 04746 M01S04134.profile +++| AUN5 SA6 A6+B1 04747 M01S04135.profile +++| SB2 B2-B1 04748 M01S04136.profile +++| NZ B2,AUN5 IF MORE WORDS IN BLOCK 04749 M01S04137.profile +++| SX3 X3+B1 04750 M01S04138.profile +++|
| Line S04139 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04751 M02S04139.v23l617 ---| AUN6 SA4 UNUM PLACE USER NUMBER IN HOLE 04752 M01S00211.v23l617 +++| AUN6 SA4 UNUM PLACE USER NAME IN HOLE 04753 M01S04140.profile +++| BX7 X4
| Line S04141 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04754 M02S04141.v23l617 ---| SA5 T3IE INCREMENT USER NUMBER COUNT FIELD 04755 M01S00212.v23l617 +++| SA5 T3IE INCREMENT USER NAME COUNT FIELD 04756 M01S04142.profile +++| IX1 X2+X5 04757 M01S04143.profile +++| SA2 X1 04758 M01S04144.profile +++| LX2 -24 04759 M01S04145.profile +++| MX5 -12 04760 M01S04146.profile +++| BX4 -X5*X2 04761 M01S04147.profile +++| SX4 X4+B1 04762 M01S04148.profile +++| BX6 X5*X4
| Line S04149 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04763 M02S04149.v23l617 ---| SB3 ERUT **** USER NUMBER LIMIT. 04764 M01S00213.v23l617 +++| SB3 ERUT **** USER NAME LIMIT. 04765 M01S04150.profile +++| NZ X6,AUN8 IF FIELD OVERFLOW 04766 M01S04151.profile +++| SA7 X3 04767 M01S04152.profile +++| BX2 X5*X2 04768 M01S04153.profile +++| BX6 X2+X4 04769 M01S04154.profile +++| LX6 24 04770 M01S04155.profile +++| SA6 A2 04771 M01S04156.profile +++| EQ AUNX 04772 M01S04157.profile +++| 04773 M01S04158.profile +++| 04774 M01S04159.profile +++| AUNB BSS 1 FIRST HOLE INDEX 04775 M01S04160.profile +++| CED SPACE 4,10 04776 M01S04161.profile +++|** CED - CONVERT ENTRY TO DISPLAY CODE. 04777 M01S04162.profile +++|* 04778 M01S04163.profile +++|* ENTRY (X5) = TABLE OF INDICES ENTRY (TOI). 04779 M01S04164.profile +++|* (X1) = FIELD,S CURRENT VALUE (RIGHT JUSTIFIED). 04780 M01S04165.profile +++|* (X4) = FIELD,S CURRENT VALUE (LEFT JUSTIFIED). 04781 M01S04166.profile +++|* 04782 M01S04167.profile +++|* EXIT (X6) = DISPLAY CODE VALUE, LEFT JUSTIFIED 04783 M01S04168.profile +++|* WITH TRAILING SPACES. 04784 M01S04169.profile +++|* (FLDV) = FIELD,S CURRENT VALUE (RIGHT JUSTIFIED, 04785 M01S04170.profile +++|* PERTINENT ONLY FOR NUMERIC DIRECTIVES). 04786 M01S04171.profile +++|* 04787 M01S04172.profile +++|* CALLS CDD, COD, SFN. 04788 M01S04173.profile +++|* 04789 M01S04174.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5, X5. 04790 M01S04175.profile +++| 04791 M01S04176.profile +++| 04792 M01S04177.profile +++| CED2 BX1 X4 04793 M01S04178.profile +++| RJ SFN SPACE FILL NAME 04794 M01S04179.profile +++| 04795 M01S04180.profile +++| CED SUBR ENTRY/EXIT 04796 M01S04181.profile +++| BX6 X1 SAVE FIELD,S VALUE 04797 M01S04182.profile +++| SA6 FLDV 04798 M01S04183.profile +++| MX2 2 04799 M01S04184.profile +++| BX2 X2*X5 04800 M01S04185.profile +++| ZR X2,CED2 IF NO CONVERSION 04801 M01S04186.profile +++| LX2 2 04802 M01S04187.profile +++| SX2 X2-1 04803 M01S04188.profile +++| ZR X2,CED1 IF OCTAL CONVERSION 04804 M01S04189.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION 04805 M01S04190.profile +++| BX6 X4 04806 M01S04191.profile +++| EQ CEDX 04807 M01S04192.profile +++| 04808 M01S04193.profile +++| CED1 RJ COD OCTAL DISPLAY CODE CONVERSION 04809 M01S04194.profile +++| SB3 B2-60 INSERT *B* AFTER VALUE 04810 M01S04195.profile +++| SB3 -B3 FIRST CLEAR CHARACTER POSITION 04811 M01S04196.profile +++| MX2 6 04812 M01S04197.profile +++| LX2 B3 04813 M01S04198.profile +++| BX4 -X2*X4 04814 M01S04199.profile +++| SA2 =1LB MERGE IN *B* 04815 M01S04200.profile +++| LX2 B3 04816 M01S04201.profile +++| BX6 X2+X4 04817 M01S04202.profile +++| EQ CEDX 04818 M01S04203.profile +++| CEP SPACE 4,10 04819 M01S04204.profile +++|** CEP - CHECK ENTRY,S PROJECT NUMBER. 04820 M01S04205.profile +++|* 04821 M01S04206.profile +++|* ENTRY (A5) = FWA OF LEVEL-3 ENTRY. 04822 M01S04207.profile +++|* (CN) = CHARGE NUMBER. 04823 M01S04208.profile +++|* (PN - PN+1) = PROJECT NUMBER. 04824 M01S04209.profile +++|* 04825 M01S04210.profile +++|* EXIT (X2) = 0, IF PROJECT NUMBER MATCH. 04826 M01S04211.profile +++|* 04827 M01S04212.profile +++|* USES X - 1. 04828 M01S04213.profile +++|* A - 1, 2. 04829 M01S04214.profile +++| 04830 M01S04215.profile +++| 04831 M01S04216.profile +++| CEP SUBR ENTRY/EXIT 04832 M01S04217.profile +++| SA1 A5+PRJW ENTRY,S PROJECT NUMBER 04833 M01S04218.profile +++| SA2 PN CURRENT PROJECT NUMBER 04834 M01S04219.profile +++| BX2 X1-X2 04835 M01S04220.profile +++| NZ X2,CEPX IF NO MATCH 04836 M01S04221.profile +++| SA1 A1+B1 04837 M01S04222.profile +++| SA2 A2+B1 04838 M01S04223.profile +++| BX2 X1-X2 04839 M01S04224.profile +++| NZ X2,CEPX IF NO MATCH 04840 M01S04225.profile +++| SA1 A5+PCHW CHECK CHARGE NUMBER 04841 M01S04226.profile +++| SA2 CN 04842 M01S04227.profile +++| BX2 X1-X2 04843 M01S04228.profile +++| ZR X2,CEPX IF MATCH 04844 M01S04229.profile +++| JP ERD22 ERROR 04845 M01S04230.profile +++| CFS SPACE 4,10 04846 M01S04231.profile +++|** CFS - CHECK FILE STATUS. 04847 M01S04232.profile +++|* 04848 M01S04233.profile +++|* ENTRY (B2) = FET ADDRESS. 04849 M01S04234.profile +++|* 04850 M01S04235.profile +++|* EXIT (X2) = PFM ERROR CODE FROM FET+0, RIGHT JUSTIFIED. 04851 M01S04236.profile +++|* 04852 M01S04237.profile +++|* USES X - 1. 04853 M01S04238.profile +++|* A - 1. 04854 M01S04239.profile +++| 04855 M01S04240.profile +++| 04856 M01S04241.profile +++| CFS SUBR ENTRY/EXIT 04857 M01S04242.profile +++| SA1 B2 04858 M01S04243.profile +++| AX1 10 04859 M01S04244.profile +++| MX2 -8 04860 M01S04245.profile +++| BX2 -X2*X1 04861 M01S04246.profile +++| EQ CFSX
| Line S04247 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04862 M02S04247.ns2516 ---| CIV SPACE 4,10 04863 M01S00001.ns2516 +++| CIV SPACE 4,35 04864 M01S04248.profile +++|** CIV - CONVERT INDEX TO VALUE. 04865 M01S04249.profile +++|* 04866 M01S04250.profile +++|* VALUE IS CALCULATED USING ONE OF THE FOLLOWING METHODS- 04867 M01S04251.profile +++|* 1) IF I = 77B, V = DEFAULT VALUE (FROM TABLE TDSM). 04868 M01S04252.profile +++|* IF I = 0, V = 0. 04869 M01S04253.profile +++|* ELSE, V = I * (U-L) / 64 + L 04870 M01S04254.profile +++|* 2) IF I = 77B, V = LARGEST POSSIBLE NUMBER. 04871 M01S04255.profile +++|* ELSE, V = (100B * I + LBAS) * 100D 04872 M01S04256.profile +++|* 3) IF I = 77B, V = LARGEST POSSIBLE NUMBER.
| Line S04257 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04873 M02S04257.ns2516 ---|* ELSE, V = (100B * I + KSLI) * 10B 04874 M01S00002.ns2516 +++|* ELSE, USE *COMCCVI* *SLI* CONVERSION. 04875 M01S04258.profile +++|* WHERE 04876 M01S04259.profile +++|* V = VALUE. 04877 M01S04260.profile +++|* I = INDEX. 04878 M01S04261.profile +++|* U = UPPER LIMIT VALUE (FROM TABLE *TVC*). 04879 M01S04262.profile +++|* L = LOWER LIMIT VALUE (FROM TABLE *TVC*). 04880 M01S04263.profile +++|* 04881 M01S04264.profile +++|* ENTRY (X3) = INDEX TO CONVERT. 04882 M01S04265.profile +++|* (X4) = TABLE OF INDICES (TOI) ENTRY. 04883 M01S04266.profile +++|* (A4) = ADDRESS OF TABLE OF INDICES ENTRY. 04884 M01S04267.profile +++|* 04885 M01S04268.profile +++|* EXIT (X1) = CALCULATED VALUE. 04886 M01S04269.profile +++|* (X1) .LT. 0, IF UNLIMITED VALUE. 04887 M01S04270.profile +++|* (X6) = 1, IF METHOD 1 USED TO CONVERT INDEX. 04888 M01S04271.profile +++|* .NE. 1, IF METHOD 2 OR 3 USED TO CONVERT INDEX. 04889 M01S04272.profile +++|* 04890 M01S04273.profile +++|* USES X - 1, 2, 3, 4, 6, 7. 04891 M01S04274.profile +++|* B - 2. 04892 M01S04275.profile +++|* A - 1. 04893 M01S00003.ns2516 +++|* 04894 M01S00004.ns2516 +++|* CALLS SLI. 04895 M01S04276.profile +++| 04896 M01S04277.profile +++| 04897 M01S04278.profile +++| CIV2 SX1 B0+ 04898 M01S04279.profile +++| SB2 A4-TIM1 04899 M01S04280.profile +++| ZR X3,CIVX IF ZERO INDEX 04900 M01S04281.profile +++| SX7 X3-77B 04901 M01S04282.profile +++| SA1 TDSM+B2 DEFAULT VALUE 04902 M01S04283.profile +++| ZR X7,CIVX IF USE DEFAULT VALUE 04903 M01S04284.profile +++| SA2 TCSM+B2 CALCULATE MULTIPLIER 04904 M01S04285.profile +++| SX4 X2 LOWER LIMIT 04905 M01S04286.profile +++| AX2 18 04906 M01S04287.profile +++| SX7 X2 UPPER LIMIT 04907 M01S04288.profile +++| IX1 X7-X4 04908 M01S04289.profile +++| SX7 64 04909 M01S04290.profile +++| IX1 X1*X3 04910 M01S04291.profile +++| IX1 X1/X7 04911 M01S04292.profile +++| IX1 X1+X4 04912 M01S04293.profile +++| AX2 18 04913 M01S04294.profile +++| IX1 X1*X2 POSITION FOR F10.3 CONVERSION 04914 M01S04295.profile +++| 04915 M01S04296.profile +++| CIV SUBR ENTRY/EXIT 04916 M01S04297.profile +++| MX7 -2 04917 M01S04298.profile +++| LX4 4 04918 M01S04299.profile +++| BX6 -X7*X4 04919 M01S04300.profile +++| SX7 X6-1 04920 M01S04301.profile +++| ZR X7,CIV2 IF USE METHOD 1 04921 M01S04302.profile +++| SX1 -B1 04922 M01S04303.profile +++| SX7 X3-77B 04923 M01S04304.profile +++| ZR X7,CIVX IF UNLIMITED
| Line S04305 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04924 M02S04305.ns2516 ---| LX3 6
| Line S04306 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04925 M02S04306.ns2516 ---| SX4 KSLI
| Line S04307 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04926 M02S04307.ns2516 ---| SX2 10B 04927 M01S04308.profile +++| SX7 X6-3 04928 M01S04309.profile +++| ZR X7,CIV1 IF USE METHOD 3 04929 M01S00005.ns2516 +++| LX3 6 04930 M01S04310.profile +++| SX4 LBAS 04931 M01S04311.profile +++| SX2 100D
| Line S04312 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04932 M02S04312.ns2516 ---| CIV1 IX1 X3+X4 04933 M01S00006.ns2516 +++| IX1 X3+X4 04934 M01S04313.profile +++| IX1 X1*X2
| Line S04314 Modification History | |
|---|---|
M01 (Added by) | profile |
M02 (Updated by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04935 M02S04314.ns2516 ---| EQ CIVX 04936 M01S00007.ns2516 +++| EQ CIVX RETURN 04937 M01S00008.ns2516 +++| 04938 M01S00009.ns2516 +++| CIV1 BX1 X3 CONVERT SRU INDEX 04939 M01S00010.ns2516 +++| BX4 X0 SAVE (X0) 04940 M01S00011.ns2516 +++| RJ SLI 04941 M01S00012.ns2516 +++| BX0 X4 RESTORE (X0) 04942 M01S00013.ns2516 +++| LX1 3 04943 M01S00014.ns2516 +++| EQ CIVX RETURN 04944 M01S04315.profile +++| CPV SPACE 4,10 04945 M01S04316.profile +++|** CPV - CONVERT AND PLACE VALUES. 04946 M01S04317.profile +++|* 04947 M01S04318.profile +++|* ENTRY (X5) = FIRST ENTRY OF PERTINENT TABLE OF INDICES (TOI). 04948 M01S04319.profile +++|* (A5) = ADDRESS OF FIRST ENTRY. 04949 M01S04320.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY, IF LEVEL-1 DIRECTIVE. 04950 M01S04321.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY, IF LEVEL-3 DIRECTIVE. 04951 M01S04322.profile +++|* 04952 M01S04323.profile +++|* CALLS CED, DFS, GFV, PVF. 04953 M01S04324.profile +++|* 04954 M01S04325.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 04955 M01S04326.profile +++| 04956 M01S04327.profile +++| 04957 M01S04328.profile +++| CPV SUBR ENTRY/EXIT 04958 M01S04329.profile +++| CPV1 ZR X5,CPVX IF END OF TABLE 04959 M01S04330.profile +++| MX7 12 04960 M01S04331.profile +++| LX7 -12 04961 M01S04332.profile +++| BX7 X5*X7 04962 M01S04333.profile +++| LX7 -36 04963 M01S04334.profile +++| RJ DFS (DF) - (DF+4) SET-UP 04964 M01S04335.profile +++| RJ GFV GET FIELD,S VALUE 04965 M01S04336.profile +++| RJ CED CONVERT ENTRY TO DISPLAY CODE
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/profile.002.txt · Last modified: by 127.0.0.1