cdc:nos2.source:opl.opl871:deck:profile.002
Deck PROFILE Part 002
21 Modifications
Listing Sections
- Deck PROFILE Start
- Deck PROFILE Part 1 (Line 1451)
- Deck PROFILE Part 2 (Line 3159)
- Deck PROFILE Part 3 (Line 4957)
- Deck PROFILE Part 4 (Line 6706)
Source
Seq # *Modification Id* Act ----------------------------+ 03159 M00S02725.profile +++| SA1 CBUF 03160 M00S02726.profile +++| ADDWRD TAB2,X1 03161 M00S02727.profile +++| SA1 CBUF+1 03162 M00S02728.profile +++| ADDWRD TAB2,X1 03163 M00S02729.profile +++| BX1 X1-X1 03164 M00S02730.profile +++| ADDWRD TAB2,X1 03165 M00S02731.profile +++| SX0 N 03166 M00S02732.profile +++| RJ PDE PROCESS DATA LEVEL ENTRY 03167 M00S02733.profile +++| RJ ILR INITIALIZE INSTALLATION LIMIT REGISTERS 03168 M00S02734.profile +++| MOVE C.TAB3,D3AA,X0 03169 M00S02735.profile +++| SX6 B1 INDICATE PROJECT NUMBER PRESENT 03170 M00S02736.profile +++| SA6 FPNP 03171 M00S02737.profile +++| MOVE 2,CBUF,X0+PRJW PROJECT NUMBER 03172 M00S02738.profile +++| MOVE 2,CBUF,PN 03173 M00S02739.profile +++| EQ DIP1 *MAIN* LOOP* RETURN 03174 M00S02740.profile +++| 03175 M00S02741.profile +++|* *UPDATE* MODE. 03176 M00S02742.profile +++| 03177 M00S02743.profile +++| PND2 RJ DQP DIRECTIVE QUEUE PROCESSOR 03178 M00S02744.profile +++| BX6 X6-X6 RE-SET FIELD SIZE 03179 M00S02745.profile +++| SA6 DF+2 03180 M00S02746.profile +++| RJ RCE REGENERATE CHARGE NUMBER QUEUE ENTRY 03181 M00S02747.profile +++| MOVE 2,CBUF,PN PROJECT NUMBER 03182 M00S02748.profile +++| RJ PEI PROJECT ENTRY INITIALIZATION 03183 M00S02749.profile +++| SA1 OP 03184 M00S02750.profile +++| SB2 X1-COPT 03185 M00S02751.profile +++| NZ X4,PND6 IF PROJECT NUMBER NOT FOUND 03186 M00S02752.profile +++| ZR B2,PND15 IF *CREATE* OPTION 03187 M00S02753.profile +++| SX7 X5 03188 M00S02754.profile +++| SX0 N 03189 M00S02755.profile +++| RJ ADB ADD DATA LEVEL BLOCK 03190 M00S02756.profile +++| MX0 1 03191 M00S02757.profile +++| SA1 DTII 03192 M00S02758.profile +++| SA2 A5+PTMW 03193 M00S02759.profile +++| SB3 X1-XPND 03194 M00S02760.profile +++| ZR B3,PND4 IF *PN* 03195 M00S02761.profile +++| SB3 X1-XAPN 03196 M00S02762.profile +++| ZR B3,PND3 IF *APN* 03197 M00S02763.profile +++| NG X2,PND16 IF PROJECT NUMBER INACTIVE 03198 M00S02764.profile +++| BX6 X0+X2 DEACTIVATE PROJECT NUMBER 03199 M00S02765.profile +++| SA6 A2 03200 M00S02766.profile +++| RJ UPC UPDATE PROJECT COUNT 03201 M00S02767.profile +++| SA6 A2 03202 M00S02768.profile +++| BX1 X4 UPDATE K-DISPLAY PROJECT COUNT 03203 M00S02769.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION 03204 M00S02770.profile +++| BX6 X4 03205 M00S02771.profile +++| SA6 DSCO+2 03206 M00S02772.profile +++| EQ PND12 03207 M00S02773.profile +++| 03208 M00S02774.profile +++| PND3 NG X2,PND5 IF PROJECT NUMBER INACTIVE 03209 M00S02775.profile +++| EQ PND17 ERROR 03210 M00S02776.profile +++| 03211 M00S02777.profile +++| PND4 PL X2,PND11 IF PROJECT NUMBER ACTIVE
| Line S02778 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03212 M01S02778.ns22000 ---| SA3 CV 03213 M01S02779.ns22000 ---| ZR X3,PND16 IF NOT *CV* OPTION 03214 M01S02780.ns22000 ---| SX6 XAPN SET TO *APN* 03215 M01S02781.ns22000 ---| SA6 DTII
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03216 M01S00209.ns22000 +++| EQ PND16 ERROR 03217 M01S00210.ns22000 +++| 03218 M00S02782.profile +++| PND5 BX6 -X0*X2 ACTIVATE PROJECT NUMBER 03219 M00S02783.profile +++| SA6 A2 03220 M00S02784.profile +++| EQ PND9 03221 M00S02785.profile +++| 03222 M00S02786.profile +++| PND6 SA1 DTII 03223 M00S02787.profile +++| SB3 X1-XAPN 03224 M00S02788.profile +++| ZR B3,PND8 IF *APN* 03225 M00S02789.profile +++| SB3 X1-XDPN 03226 M00S02790.profile +++| ZR B3,PND18 IF *DPN*
| Line S02791 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03227 M01S02791.ns22000 ---| ZR B2,PND7 IF *CREATE* OPTION 03228 M01S02792.ns22000 ---| SA2 CV 03229 M01S02793.ns22000 ---| ZR X2,PND18 IF NOT *CV* OPTION
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03230 M01S00211.ns22000 +++| NZ B2,PND18 IF NOT *CREATE* OPTION 03231 M00S02794.profile +++| PND7 SX6 XAPN SET TO *APN* 03232 M00S02795.profile +++| SA6 DTII 03233 M00S02796.profile +++| PND8 BX6 X6-X6 03234 M00S02797.profile +++| SA6 T3IE TABLE 3 INDEX OF ENTRY 03235 M00S02798.profile +++| SA6 L.TAB3 EMPTY TABLE 3 03236 M00S02799.profile +++| ALLOC TAB3,PUNW 03237 M00S02800.profile +++| SA5 X2 03238 M00S02801.profile +++| RJ ILR INITIALIZE INSTALLATION LIMIT REGISTERS 03239 M00S02802.profile +++| MOVE 2,PN,D3AA+PRJW 03240 M00S02803.profile +++| MOVE PUNW,D3AA,A5 INITIALIZE ENTRY TO DEFAULT 03241 M00S02804.profile +++| 03242 M00S02805.profile +++| PND9 SX1 XAPN 03243 M00S02806.profile +++| RJ UPC UPDATE PROJECT COUNT 03244 M00S02807.profile +++| LX6 18 VALIDATE AGAINST *PCL* VALUE 03245 M00S02808.profile +++| MX3 -12 03246 M00S02809.profile +++| BX3 -X3*X6 03247 M00S02810.profile +++| ZR X3,PND10 IF NO RESTRICTION 03248 M00S02811.profile +++| IX3 X3-X4 03249 M00S02812.profile +++| NG X3,PND19 IF *PCL* VALUE EXCEEDED 03250 M00S02813.profile +++| PND10 LX6 -18 03251 M00S02814.profile +++| SA6 A2 03252 M00S02815.profile +++| BX1 X4 UPDATE K-DISPLAY PROJECT COUNT 03253 M00S02816.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION 03254 M00S02817.profile +++| BX6 X4 03255 M00S02818.profile +++| SA6 DSCO+2 03256 M00S02819.profile +++| PND11 SX6 B1 INDICATE PROJECT NUMBER PRESENT 03257 M00S02820.profile +++| SA6 FPNP 03258 M00S02821.profile +++| PND12 RJ KOP K-DISPLAY OUTPUT FOR PROJECT NUMBER 03259 M00S02822.profile +++| BX6 X6-X6 RE-SET FIELD SIZE 03260 M00S02823.profile +++| SA6 DF+2 03261 M00S02824.profile +++| SA1 DTII 03262 M00S02825.profile +++| SA2 X1+TOPR 03263 M00S02826.profile +++| BX5 X5-X5 03264 M00S02827.profile +++| RJ MQE MAKE QUEUE ENTRY 03265 M00S02828.profile +++| JP DIP1 *MAIN LOOP* RETURN 03266 M00S02829.profile +++| 03267 M00S02830.profile +++| PND13 SB3 ERUH 03268 M00S02831.profile +++| EQ PND20 03269 M00S02832.profile +++| PND14 SB3 ERUA 03270 M00S02833.profile +++| EQ PND20 03271 M00S02834.profile +++| PND15 SB3 ERUS 03272 M00S02835.profile +++| EQ PND20 03273 M00S02836.profile +++| PND16 SB3 ERUO 03274 M00S02837.profile +++| EQ PND20 03275 M00S02838.profile +++| PND17 SB3 ERUJ 03276 M00S02839.profile +++| EQ PND20 03277 M00S02840.profile +++| PND18 SB3 ERUI 03278 M00S02841.profile +++| EQ PND20 03279 M00S02842.profile +++| PND19 SB3 ERUN 03280 M00S02843.profile +++| PND20 RJ ERU USER ERROR 03281 M00S02844.profile +++| JP DIP1 *MAIN LOOP* RETURN
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02845.profile +++| TMD SPACE 4,10 03287 M00S02846.profile +++|** TMD - TIME DIRECTIVES. 03288 M00S02847.profile +++|* 03289 M00S02848.profile +++|* *TI*, *TO* DIRECTIVES. 03290 M00S02849.profile +++|* CONVERT TIME TO PACKED FORMAT PRODUCED BY *PDATE*. 03291 M00S02850.profile +++|* 03292 M00S02851.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR). 03293 M00S02852.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE. 03294 M00S02853.profile +++|* (DTII) = TABLE INDEX. 03295 M00S02854.profile +++|* 03296 M00S02855.profile +++|* EXIT TO DIP1. 03297 M00S02856.profile +++|* 03298 M00S02857.profile +++|* CALLS CCP, CDV, CNV, MQE. 03299 M00S02858.profile +++|* 03300 M00S02859.profile +++|* USES ALL REGISTERS. 03301 M00S02860.profile +++| 03302 M00S02861.profile +++| 03303 M00S02862.profile +++| TMD BSS 0 03304 M00S02863.profile +++| RJ CDV CHECK DIRECTIVE AND VALUE 03305 M00S02864.profile +++| RJ CNV CONVERT NUMERIC VALUE 03306 M00S02865.profile +++| SA1 DTII 03307 M00S02866.profile +++| SA2 X1+TOPR 03308 M00S02867.profile +++| RJ CCP CHECK FOR CHARGE/PROJECT NUMBER REQUIRED 03309 M00S02868.profile +++| ZR X5,TMD1 IF ZERO VALUE 03310 M00S02869.profile +++| SX0 100 CALCULATE HOURS 03311 M00S02870.profile +++| BX3 X5 03312 M00S02871.profile +++| IX3 X3/X0 03313 M00S02872.profile +++| SX0 100 03314 M00S02873.profile +++| IX4 X0*X3 CALCULATE MINUTES 03315 M00S02874.profile +++| IX4 X5-X4 03316 M00S02875.profile +++| SX7 X4-60 03317 M00S02876.profile +++| PL X7,TMD2 IF TOO LARGE 03318 M00S02877.profile +++| LX3 6 POSITION HOURS 03319 M00S02878.profile +++| BX5 X3+X4 MERGE HOURS AND MINUTES 03320 M00S02879.profile +++| LX5 6 ASSUME ZERO SECONDS 03321 M00S02880.profile +++| TMD1 RJ MQE MAKE QUEUE ENTRY 03322 M00S02881.profile +++| JP DIP1 *MAIN LOOP* RETURN 03323 M00S02882.profile +++| 03324 M00S02883.profile +++| TMD2 SB3 ERUK 03325 M00S02884.profile +++| RJ ERU USER ERROR 03326 M00S02885.profile +++| JP DIP1 *MAIN LOOP* RETURN 03327 M00S02886.profile +++| UND SPACE 4,10
| Line S02887 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03328 M01S02887.v23l617 ---|** UND - USER NUMBER DIRECTIVE.
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03329 M01S00129.v23l617 +++|** UND - USER NAME DIRECTIVE. 03330 M00S02888.profile +++|* 03331 M00S02889.profile +++|* *MU*, *AUN*, *DUN* DIRECTIVES. 03332 M00S02890.profile +++|* 03333 M00S02891.profile +++|* ENTRY (X1) = TABLE INDEX. 03334 M00S02892.profile +++|* (X2) = TABLE ENTRY (TOPR). 03335 M00S02893.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE. 03336 M00S02894.profile +++|* 03337 M00S02895.profile +++|* EXIT TO DIP1. 03338 M00S02896.profile +++|* 03339 M00S02897.profile +++|* CALLS AUN, CCP, CDV, MQE. 03340 M00S02898.profile +++|* 03341 M00S02899.profile +++|* USES ALL REGISTERS. 03342 M00S02900.profile +++| 03343 M00S02901.profile +++| 03344 M00S02902.profile +++| UND BSS 0
| Line S02903 Modification History | |
|---|---|
M01 (Removed by) | profi13 |
Seq # *Modification Id* Act ----------------------------+ 03345 M01S02903.profi13 ---| RJ CDV CHECK DIRECTIVE AND VALUE
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | profi13 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02904.profile +++| RJ CCP CHECK FOR CHARGE/PROJECT NUMBER REQUIRED
| Line S02905 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03352 M01S02905.v23l617 ---| SA5 CBUF RIGHT JUSTIFY USER NUMBER
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03353 M01S00130.v23l617 +++| SA5 CBUF RIGHT JUSTIFY USER NAME 03354 M00S02906.profile +++| LX5 -18 03355 M00S02907.profile +++| SB2 X1-XMUN 03356 M00S02908.profile +++| ZR B2,UND2 IF *MU* 03357 M00S02909.profile +++| SB2 X1-XDUN 03358 M00S02910.profile +++| ZR B2,UND1 IF *DUN* 03359 M00S02911.profile +++| SA3 UF 03360 M00S02912.profile +++| NZ X3,UND2 IF *UPDATE* MODE 03361 M00S02913.profile +++| BX1 X5
| Line S02914 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03362 M01S02914.v23l617 ---| RJ AUN ADD USER NUMBER
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03363 M01S00131.v23l617 +++| RJ AUN ADD USER NAME 03364 M00S02915.profile +++| EQ DIP1 03365 M00S02916.profile +++| 03366 M00S02917.profile +++| UND1 SA3 OP 03367 M00S02918.profile +++| SB2 X3-COPT 03368 M00S02919.profile +++| ZR B2,UND3 IF *CREATE* OPTION 03369 M00S02920.profile +++| UND2 RJ MQE MAKE QUEUE ENTRY 03370 M00S02921.profile +++| JP DIP1 *MAIN LOOP* RETURN 03371 M00S02922.profile +++| 03372 M00S02923.profile +++| UND3 SB3 ERUA 03373 M00S02924.profile +++| RJ ERU USER ERROR 03374 M00S02925.profile +++| JP DIP1 *MAIN LOOP* RETURN 03375 M00S02926.profile +++| TITLE UPDATE/CREATE SUBROUTINES - INPUT PROCESSOR ROUTINES. 03376 M00S02927.profile +++| AMQ SPACE 4,10 03377 M00S02928.profile +++|** AMQ - ALLOCATE MEMORY TO DIRECTIVE QUEUE. 03378 M00S02929.profile +++|* 03379 M00S02930.profile +++|* THE DIRECTIVE QUEUE IS DYNAMICALLY EXPANDABLE, BEGINS 03380 M00S02931.profile +++|* AT LOCATION *MEML*, AND PRECEDES TABLE 0. 03381 M00S02932.profile +++|* *QINC* WORDS ARE ALLOCATED PER CALL. 03382 M00S02933.profile +++|* 03383 M00S02934.profile +++|* CALLS ATS, MVE. 03384 M00S02935.profile +++|* 03385 M00S02936.profile +++|* USES ALL REGISTERS EXCEPT X0. 03386 M00S02937.profile +++| 03387 M00S02938.profile +++| 03388 M00S02939.profile +++| AMQ SUBR ENTRY/EXIT 03389 M00S02940.profile +++| SA5 L.TAB0 SAVE TABLE 0 LENGTH 03390 M00S02941.profile +++| ALLOC TAB0,QINC 03391 M00S02942.profile +++| SB2 X2+QINC 03392 M00S02943.profile +++| MOVE X5,X2,B2 03393 M00S02944.profile +++| SX6 B2 UPDATE TABLE 0 FWA AND LOWER MEMORY LIMIT 03394 M00S02945.profile +++| SA6 F.TAB0 03395 M00S02946.profile +++| SA6 LM 03396 M00S02947.profile +++| BX6 X5 RESTORE TABLE 0 LENGTH 03397 M00S02948.profile +++| SA6 A5 03398 M00S02949.profile +++| SA1 QMAX UPDATE QUEUE MAXIMUM SIZE 03399 M00S02950.profile +++| SX6 X1+QINC 03400 M00S02951.profile +++| SA6 A1 03401 M00S02952.profile +++| EQ AMQX 03402 M00S02953.profile +++| CCP SPACE 4,10 03403 M00S02954.profile +++|** CCP - CHECK FOR CHARGE/PROJECT NUMBER REQUIRED. 03404 M00S02955.profile +++|* 03405 M00S02956.profile +++|* LEVEL-1 DIRECTIVES REQUIRE A CHARGE NUMBER IN EFFECT, 03406 M00S02957.profile +++|* AND LEVEL-3 DIRECTIVES A PROJECT NUMBER. 03407 M00S02958.profile +++|* IF AN ERROR IS DETECTED THE APPROPRIATE MESSAGE IS ISSUED. 03408 M00S02959.profile +++|* 03409 M00S02960.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR). 03410 M00S02961.profile +++|* 03411 M00S02962.profile +++|* EXIT TO CCPX, IF NO ERROR. 03412 M00S02963.profile +++|* TO DIP1, IF ERROR DETECTED. 03413 M00S02964.profile +++|* 03414 M00S02965.profile +++|* CALLS NONE, IF NO ERROR. 03415 M00S02966.profile +++|* 03416 M00S02967.profile +++|* USES IF NO ERROR- 03417 M00S02968.profile +++|* X - 3, 4. 03418 M00S02969.profile +++|* A - 4. 03419 M00S02970.profile +++| 03420 M00S02971.profile +++| 03421 M00S02972.profile +++| CCP SUBR ENTRY/EXIT 03422 M00S02973.profile +++| BX3 X2 03423 M00S02974.profile +++| LX3 5 03424 M00S02975.profile +++| PL X3,CCP1 IF NOT LEVEL-3 DIRECTIVE 03425 M00S02976.profile +++| SA4 FPNP 03426 M00S02977.profile +++| NZ X4,CCPX IF PROJECT NUMBER PRESENT 03427 M00S02978.profile +++| EQ CCP2 ERROR 03428 M00S02979.profile +++| 03429 M00S02980.profile +++| CCP1 SA4 FCNP 03430 M00S02981.profile +++| NZ X4,CCPX IF CHARGE NUMBER PRESENT 03431 M00S02982.profile +++| 03432 M00S02983.profile +++| SB3 ERUH ERROR 03433 M00S02984.profile +++| EQ CCP3 03434 M00S02985.profile +++| 03435 M00S02986.profile +++| CCP2 SB3 ERUM 03436 M00S02987.profile +++| CCP3 RJ ERU USER ERROR 03437 M00S02988.profile +++| JP DIP1 *MAIN LOOP* RETURN 03438 M00S02989.profile +++| CDV SPACE 4,10 03439 M00S02990.profile +++|** CDV - CHECK DIRECTIVE AND VALUE. 03440 M00S02991.profile +++|* 03441 M00S02992.profile +++|* CHECK NUMBER OF CHARACTERS IN DIRECTIVE,S PARAMETER VALUE 03442 M00S02993.profile +++|* AND DIRECTIVE,S AUTHORIZATION. IF AN ERROR IS DETECTED, 03443 M00S02994.profile +++|* THE APPROPRIATE MESSAGE IS ISSUED. 03444 M00S02995.profile +++|* 03445 M00S02996.profile +++|* ENTRY (X2) = TABLE ENTRY (TOPR). 03446 M00S02997.profile +++|* (X4) = NUMBER OF CHARACTERS IN VALUE. 03447 M00S02998.profile +++|* 03448 M00S02999.profile +++|* EXIT TO CDVX, IF NO ERROR. 03449 M00S03000.profile +++|* TO DIP1, IF ERROR DETECTED. 03450 M00S03001.profile +++|* 03451 M00S03002.profile +++|* CALLS NONE, IF NO ERROR. 03452 M00S03003.profile +++|* 03453 M00S03004.profile +++|* USES IF NO ERROR- 03454 M00S03005.profile +++|* X - 3, 4, 5, 6. 03455 M00S03006.profile +++|* A - 4. 03456 M00S03007.profile +++| 03457 M00S03008.profile +++| 03458 M00S03009.profile +++| CDV SUBR ENTRY/EXIT 03459 M00S03010.profile +++| ZR X4,CDV1 IF NO CHARACTERS ASSEMBLED 03460 M00S03011.profile +++| BX3 X2 03461 M00S03012.profile +++| LX3 -42 03462 M00S03013.profile +++| MX5 -6 03463 M00S03014.profile +++| BX6 -X5*X3 03464 M00S03015.profile +++| IX6 X6-X4 03465 M00S03016.profile +++| NG X6,CDV2 IF TOO MANY CHARACTERS 03466 M00S03017.profile +++| LX3 -6 03467 M00S03018.profile +++| BX3 -X5*X3 03468 M00S03019.profile +++| SA4 ACCC 03469 M00S03020.profile +++| IX3 X3-X4 03470 M00S03021.profile +++| PL X3,CDVX IF DIRECTIVE AUTHORIZED 03471 M00S03022.profile +++| 03472 M00S03023.profile +++| SB3 ERUC 03473 M00S03024.profile +++| EQ CDV3 03474 M00S03025.profile +++| CDV1 SB3 ERUQ 03475 M00S03026.profile +++| EQ CDV3 03476 M00S03027.profile +++| CDV2 SB3 ERUB 03477 M00S03028.profile +++| CDV3 RJ ERU USER ERROR 03478 M00S03029.profile +++| EQ DIP1 *MAIN LOOP* RETURN 03479 M00S03030.profile +++| CKU SPACE 4,10 03480 M00S03031.profile +++|** CKU - CHECK FOR K-DISPLAY UPDATE. 03481 M00S03032.profile +++|* 03482 M00S03033.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX. 03483 M00S03034.profile +++|* (B7) = FWA OF PERTINENT TABLE OF INDICES (TOI). 03484 M00S03035.profile +++|* (X5) = FIELD,S NEW VALUE. 03485 M00S03036.profile +++|*
| Line S03037 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03486 M01S03037.ns22000 ---|* CALLS CED, PVF.
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03487 M01S00212.ns22000 +++|* CALLS CED, PVF, SFN. 03488 M00S03038.profile +++|* 03489 M00S03039.profile +++|* USES ALL REGISTERS EXCEPT A0. RESTORES X5, X1 IF USED. 03490 M00S03040.profile +++| 03491 M00S03041.profile +++| 03492 M00S03042.profile +++| CKU5 BX1 X0 03493 M00S03043.profile +++| SA4 CBUF 03494 M00S03044.profile +++| RJ CED CONVERT ENTRY TO DISPLAY CODE 03495 M00S03045.profile +++| RJ PVF PLACE DISPLAY CODE VALUE IN FIELD 03496 M00S03046.profile +++| CKU6 BX5 X0 RESTORE 03497 M00S03047.profile +++| SA1 DTII 03498 M00S03048.profile +++| 03499 M00S03049.profile +++| CKU SUBR ENTRY/EXIT 03500 M00S03050.profile +++| SA3 OP 03501 M00S03051.profile +++| SX3 X3-KOPT 03502 M00S03052.profile +++| NZ X3,CKUX IF NOT *K-DISPLAY* OPTION 03503 M00S03053.profile +++| BX0 X5 SAVE 03504 M00S03054.profile +++| MX7 12 03505 M00S03055.profile +++| LX7 -12 03506 M00S03056.profile +++| CKU1 SA5 B7 03507 M00S03057.profile +++| ZR X5,CKU2 IF END OF TABLE 03508 M00S03058.profile +++| BX3 X7*X5 03509 M00S03059.profile +++| LX3 24 03510 M00S03060.profile +++| BX3 X1-X3 03511 M00S03061.profile +++| SB7 B7+B1 03512 M00S03062.profile +++| NZ X3,CKU1 IF NO MATCH 03513 M00S03063.profile +++| EQ CKU5 03514 M00S03064.profile +++| 03515 M00S03065.profile +++| CKU2 SB6 DSCE+2 PRESET DISPLAY ADDRESS 03516 M00S03066.profile +++| SX3 X1-XCEX 03517 M00S03067.profile +++| ZR X3,CKU3 IF *CEX* 03518 M00S03068.profile +++| SX3 X1-XPEX
| Line S03069 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03519 M01S03069.ns22000 ---| NZ X3,ERD9 IF NOT *PEX*
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03520 M01S00213.ns22000 +++| NZ X3,CKU4.1 IF NOT *PEX* 03521 M00S03070.profile +++| SB6 DSPE+2 03522 M00S03071.profile +++| CKU3 SA1 =10H UNDEFINED 03523 M00S03072.profile +++| BX6 X1 03524 M00S03073.profile +++| ZR X0,CKU4 IF ZERO VALUE 03525 M00S03074.profile +++| EDATE X0 03526 M00S03075.profile +++| CKU4 SA6 B6 03527 M00S03076.profile +++| EQ CKU6
| Line S00214 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03077.profile +++| CNV SPACE 4,10 03552 M00S03078.profile +++|** CNV - CONVERT NUMERIC VALUE FROM DISPLAY CODE TO BINARY. 03553 M00S03079.profile +++|* 03554 M00S03080.profile +++|* VALUES ALLOWED AND HAVING SIGNS ARE INCREMENTED OR 03555 M00S03081.profile +++|* DECREMENTED FROM FIELD,S CURRENT VALUE. 03556 M00S03082.profile +++|* IF AN ERROR IS DETECTED THE APPROPRIATE MESSAGE IS ISSUED. 03557 M00S03083.profile +++|* 03558 M00S03084.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX. 03559 M00S03085.profile +++|* (X2) = TABLE ENTRY (TOPR). 03560 M00S03086.profile +++|* (DF) = MAXIMUM VALUE. 03561 M00S03087.profile +++|* (CBUF) = VALUE TO CONVERT (LEFT JUSTIFIED). 03562 M00S03088.profile +++|* 03563 M00S03089.profile +++|* EXIT TO CNVX, IF NO ERROR. 03564 M00S03090.profile +++|* (X5) = FIELD,S NEW VALUE. 03565 M00S03091.profile +++|* TO DIP1, IF ERROR DETECTED. 03566 M00S03092.profile +++|* 03567 M00S03093.profile +++|* CALLS DXB, GFV. 03568 M00S03094.profile +++|* 03569 M00S03095.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 03570 M00S03096.profile +++| 03571 M00S03097.profile +++| 03572 M00S03098.profile +++| CNV8 MX1 -42 INSURE 42 BIT FIELD 03573 M00S03099.profile +++| BX5 -X1*X6 03574 M00S03100.profile +++| 03575 M00S03101.profile +++| CNV SUBR ENTRY/EXIT 03576 M00S03102.profile +++| SB6 B0 PRESET NO INCREMENT-DECREMENT 03577 M00S03103.profile +++| SA5 CBUF 03578 M00S03104.profile +++| LX2 1 03579 M00S03105.profile +++| PL X2,CNV3 IF SIGN NOT ALLOWED 03580 M00S03106.profile +++| MX7 6 03581 M00S03107.profile +++| BX2 X7*X5 03582 M00S03108.profile +++| SA3 =1L+ 03583 M00S03109.profile +++| BX3 X2-X3 03584 M00S03110.profile +++| ZR X3,CNV1 IF *+* SIGN 03585 M00S03111.profile +++| SA3 =1L- 03586 M00S03112.profile +++| BX3 X2-X3 03587 M00S03113.profile +++| NZ X3,CNV3 IF NOT *-* SIGN 03588 M00S03114.profile +++| SB6 -B1 DECREMENT 03589 M00S03115.profile +++| EQ CNV2 03590 M00S03116.profile +++| 03591 M00S03117.profile +++| CNV1 SB6 B1 INCREMENT 03592 M00S03118.profile +++| CNV2 BX5 -X7*X5 TAKE OUT SIGN 03593 M00S03119.profile +++| LX5 6 03594 M00S03120.profile +++| CNV3 SB7 B1 03595 M00S03121.profile +++| RJ DXB DISPLAY CODE TO BINARY CONVERSION 03596 M00S03122.profile +++| NZ X4,CNV7 IF ERROR 03597 M00S03123.profile +++| ZR B6,CNV6 IF NO INCREMENT/DECREMENT 03598 M00S03124.profile +++| SA1 DTII 03599 M00S03125.profile +++| SX7 X1 03600 M00S03126.profile +++| RJ GFV GET FIELD,S VALUE 03601 M00S03127.profile +++| NG B6,CNV5 IF DECREMENT 03602 M00S03128.profile +++| IX6 X1+X6 INCREMENT 03603 M00S03129.profile +++| MX2 -12 03604 M00S03130.profile +++| NZ X1,CNV6 IF NOT PREVIOUSLY UNLIMITED 03605 M00S03131.profile +++| SA1 X7+TOPR GET TABLE ENTRY 03606 M00S03132.profile +++| SA3 TOIA-1 SEARCH FOR TOI TABLE ENTRY 03607 M00S03133.profile +++| LX1 3 03608 M00S03134.profile +++| NG X1,CNV4 IF LEVEL-1 ENTRY 03609 M00S03135.profile +++| SA3 TOIC-1 SEARCH LEVEL-3 TABLE 03610 M00S03136.profile +++| CNV4 SA3 A3+B1 03611 M00S03137.profile +++| ZR X3,CNV6 IF END OF TABLE 03612 M00S03138.profile +++| LX3 24 03613 M00S03139.profile +++| BX1 -X2*X3 03614 M00S03140.profile +++| IX1 X1-X7 03615 M00S03141.profile +++| NZ X1,CNV4 IF NO MATCH 03616 M00S03142.profile +++| LX3 -20 03617 M00S03143.profile +++| PL X3,CNV6 IF ZERO VALUE NOT UNLIMITED 03618 M00S03144.profile +++| BX6 X6-X6 LEAVE REGISTER UNLIMITED 03619 M00S03145.profile +++| EQ CNV6 03620 M00S03146.profile +++| 03621 M00S03147.profile +++| CNV5 IX6 X1-X6 03622 M00S03148.profile +++| PL X6,CNV6 IF NOT NEGATIVE RESULT 03623 M00S03149.profile +++| BX6 X6-X6 SET RESULT OF ZERO 03624 M00S03150.profile +++| CNV6 SA1 DF MAXIMUM VALUE 03625 M00S03151.profile +++| ZR X1,CNV8 IF INFINITE VALUE ALLOWED 03626 M00S03152.profile +++| IX1 X1-X6 03627 M00S03153.profile +++| PL X1,CNV8 IF MAXIMUM VALUE NOT EXCEEDED 03628 M00S03154.profile +++| 03629 M00S03155.profile +++| CNV7 SB3 ERUK 03630 M00S03156.profile +++| RJ ERU USER ERROR 03631 M00S03157.profile +++| JP DIP1 *MAIN LOOP* RETURN 03632 M00S03158.profile +++| ILR SPACE 4,10 03633 M00S03159.profile +++|** ILR - INITIALIZE INSTALLATION LIMIT REGISTERS. 03634 M00S03160.profile +++|* 03635 M00S03161.profile +++|* CALLS CIV. 03636 M00S03162.profile +++|* 03637 M00S03163.profile +++|* USES X - 1, 2, 3, 4, 6, 7. 03638 M00S03164.profile +++|* A - 1, 2, 3, 4, 6. 03639 M00S03165.profile +++|* B - 2. 03640 M00S03166.profile +++| 03641 M00S03167.profile +++| 03642 M00S03168.profile +++| ILR SUBR ENTRY/EXIT 03643 M00S03169.profile +++| SA2 F.TAB1 LEVEL-1 INDICES 03644 M00S03170.profile +++| SA3 T1IE 03645 M00S03171.profile +++| IX2 X2+X3 03646 M00S03172.profile +++| SA2 X2+CLCW
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | profi4 |
Seq # *Modification Id* Act ----------------------------+ 03647 M01S00001.profi4 +++| BX6 X2 03648 M00S03173.profile +++| SB2 8
| Line S03174 Modification History | |
|---|---|
M01 (Removed by) | profi4 |
Seq # *Modification Id* Act ----------------------------+ 03649 M01S03174.profi4 ---| ILR1 LX2 -6
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | profi4 |
Seq # *Modification Id* Act ----------------------------+ 03650 M01S00002.profi4 +++| SA6 ILRA SAVE LIMIT REGISTERS DEFAULT INDICES 03651 M01S00003.profi4 +++| ILR1 SA2 ILRA 03652 M01S00004.profi4 +++| LX2 -6 03653 M00S03175.profile +++| MX7 -6
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | profi4 |
Seq # *Modification Id* Act ----------------------------+ 03654 M01S00005.profi4 +++| BX6 X2 03655 M00S03176.profile +++| BX3 -X7*X2 03656 M00S03177.profile +++| SA4 B2+TISL
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | profi4 |
Seq # *Modification Id* Act ----------------------------+ 03657 M01S00006.profi4 +++| SA6 A2 03658 M00S03178.profile +++| RJ CIV CONVERT INDEX TO VALUE 03659 M00S03179.profile +++| PL X1,ILR2 IF NOT UNLIMITED 03660 M00S03180.profile +++| SX1 B0+ 03661 M00S03181.profile +++| ILR2 LX1 30 03662 M00S03182.profile +++| MX7 30 03663 M00S03183.profile +++| BX6 X7*X1 03664 M00S03184.profile +++| SA6 B2+D3AA+PISW 03665 M00S03185.profile +++| SB2 B2-B1 03666 M00S03186.profile +++| PL B2,ILR1 IF MORE REGISTERS TO INITIALIZE 03667 M00S03187.profile +++| EQ ILRX
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | profi4 |
Seq # *Modification Id* Act ----------------------------+ 03668 M01S00007.profi4 +++| 03669 M01S00008.profi4 +++| 03670 M01S00009.profi4 +++| ILRA BSS 1 LIMIT REGISTERS DEFAULT INDICES 03671 M00S03188.profile +++| KOC SPACE 4,10 03672 M00S03189.profile +++|** KOC - K-DISPLAY OUTPUT FOR CHARGE NUMBER ENTRY. 03673 M00S03190.profile +++|* 03674 M00S03191.profile +++|* ENTRY (X3) = FWA OF CHARGE ENTRY. 03675 M00S03192.profile +++|* (CN) = CHARGE NUMBER. 03676 M00S03193.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY. 03677 M00S03194.profile +++|*
| Line S03195 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03678 M01S03195.v23l617 ---|* CALLS CPV, SFC, SFN.
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03679 M01S00132.v23l617 +++|* CALLS CPV, SFC, SFN, SPT. 03680 M00S03196.profile +++|* 03681 M00S03197.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 03682 M00S03198.profile +++| 03683 M00S03199.profile +++| 03684 M00S03200.profile +++| KOC SUBR ENTRY/EXIT 03685 M00S03201.profile +++| SA1 OP 03686 M00S03202.profile +++| SX6 X1-KOPT 03687 M00S03203.profile +++| NZ X6,KOCX IF NOT *K-DISPLAY* OPTION
| Line S03204 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03688 M01S03204.v23l617 ---| SA6 DSPN DISABLE K-DISPLAY FOR PROJECT NUMBER 03689 M00S03205.profile +++| RJ SFC CHARGE ENTRY SPECIAL FIELDS 03690 M00S03206.profile +++| SA1 CN CHARGE NUMBER 03691 M00S03207.profile +++| RJ SFN SPACE FILL NAME 03692 M00S03208.profile +++| SA6 DSCN+2 03693 M00S03209.profile +++| SA5 TOIA 03694 M00S03210.profile +++| RJ CPV CONVERT AND PLACE VALUES 03695 M00S03211.profile +++| SA1 KSAV+1 ENABLE K-DISPLAY FOR CHARGE NUMBER 03696 M00S03212.profile +++| BX6 X1 03697 M00S03213.profile +++| SA6 DSCN
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03698 M01S00133.v23l617 +++| SX1 B0+ 03699 M01S00134.v23l617 +++| RJ SPT SET PAGE TABLE 03700 M00S03214.profile +++| EQ KOCX 03701 M00S03215.profile +++| KOP SPACE 4,10 03702 M00S03216.profile +++|** KOP - K-DISPLAY OUTPUT FOR PROJECT NUMBER ENTRY. 03703 M00S03217.profile +++|* 03704 M00S03218.profile +++|* ENTRY (A5) = FWA OF PROJECT ENTRY. 03705 M00S03219.profile +++|* (PN - PN+1) = PROJECT NUMBER. 03706 M00S03220.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY. 03707 M00S03221.profile +++|*
| Line S03222 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03708 M01S03222.v23l617 ---|* CALLS CPV, SFN, SFP.
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03709 M01S00135.v23l617 +++|* CALLS CPV, SFN, SFP, SPT. 03710 M00S03223.profile +++|* 03711 M00S03224.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 03712 M00S03225.profile +++| 03713 M00S03226.profile +++| 03714 M00S03227.profile +++| KOP SUBR ENTRY/EXIT 03715 M00S03228.profile +++| SA1 OP 03716 M00S03229.profile +++| SX6 X1-KOPT 03717 M00S03230.profile +++| NZ X6,KOPX IF NOT *K-DISPLAY* OPTION 03718 M00S03231.profile +++| RJ SFP PROJECT ENTRY SPECIAL FIELDS
| Line S03232 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03719 M01S03232.v23l617 ---| SA1 PN PROJECT NUMBER
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03720 M01S00136.v23l617 +++| SA1 PN SET PROJECT NUMBER IN K-DISPLAY FIELDS 03721 M00S03233.profile +++| RJ SFN SPACE FILL NAME 03722 M00S03234.profile +++| SA6 DSPN+2
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03723 M01S00137.v23l617 +++| SA6 DSP2+2 03724 M00S03235.profile +++| SA1 A1+B1 03725 M00S03236.profile +++| RJ SFN SPACE FILL NAME
| Line S03237 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03726 M01S03237.v23l617 ---| SA6 A6+B1
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03727 M01S00138.v23l617 +++| SA6 DSPN+3 03728 M01S00139.v23l617 +++| SA6 DSP2+3 03729 M00S03238.profile +++| SA5 TOID 03730 M00S03239.profile +++| RJ CPV CONVERT AND PLACE VALUES
| Line S03240 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03731 M01S03240.v23l617 ---| SA1 KSAV ENABLE K-DISPLAY FOR PROJECT NUMBER 03732 M01S03241.v23l617 ---| BX6 X1 03733 M01S03242.v23l617 ---| SA6 DSPN
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03734 M01S00140.v23l617 +++| SX1 B1+ 03735 M01S00141.v23l617 +++| RJ SPT SET PAGE TABLE 03736 M00S03243.profile +++| EQ KOPX
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03244.profile +++| MQE SPACE 4,10 03791 M00S03245.profile +++|** MQE - MAKE QUEUE ENTRY. 03792 M00S03246.profile +++|* 03793 M00S03247.profile +++|* A NEW QUEUE ENTRY IS APPENDED TO END OF DIRECTIVE QUEUE 03794 M00S03248.profile +++|* (NOT PERTINENT FOR *CREATE* MODE). IF NECESSARY, QUEUE 03795 M00S03249.profile +++|* MAXIMUM SIZE IS INCREASED TO MAKE ROOM FOR ENTRY. 03796 M00S03250.profile +++|* IN ADDITION, DIRECTIVE,S CORRESPONDING TABLE 1 OR 3 FIELD 03797 M00S03251.profile +++|* IS UPDATED (PERTINENT WHEN FIELD SIZE VALUE .NE. 0), AND 03798 M00S03252.profile +++|* K-DISPLAY UPDATED (PERTINENT WHEN *K-DISPLAY* OPTION). 03799 M00S03253.profile +++|* ONE WORD QUEUE ENTRY GENERATED IS IN FORM- 03800 M00S03254.profile +++|* 12/A, 6/, 42/B 03801 M00S03255.profile +++|* WHERE 03802 M00S03256.profile +++|* A = TABLE INDEX. 03803 M00S03257.profile +++|* B = VALUE. 03804 M00S03258.profile +++|* 03805 M00S03259.profile +++|* ENTRY (X1) = (DTII) = TABLE INDEX. 03806 M00S03260.profile +++|* (X2) = TABLE ENTRY (TOPR). 03807 M00S03261.profile +++|* (X5) = VALUE FIELD OF ENTRY. 03808 M00S03262.profile +++|* 03809 M00S03263.profile +++|* CALLS AMQ, CKU, SDF. 03810 M00S03264.profile +++|* 03811 M00S03265.profile +++|* USES ALL REGISTERS. 03812 M00S03266.profile +++| 03813 M00S03267.profile +++| 03814 M00S03268.profile +++| MQE SUBR ENTRY/EXIT 03815 M00S03269.profile +++| SX6 B1 03816 M00S03270.profile +++| LX2 3 03817 M00S03271.profile +++| PL X2,MQE1 IF NO LEVEL-1 UPDATE NEEDED 03818 M00S03272.profile +++| SA6 FUP1 03819 M00S03273.profile +++| MQE1 LX2 1 03820 M00S03274.profile +++| PL X2,MQE2 IF NO LEVEL-2 UPDATE NEEDED 03821 M00S03275.profile +++| SA6 FUP2 03822 M00S03276.profile +++| MQE2 LX2 1 03823 M00S03277.profile +++| PL X2,MQE3 IF NO LEVEL-3 UPDATE NEEDED 03824 M00S03278.profile +++| SA6 FUP3 03825 M00S03279.profile +++| MQE3 SA4 DF+2 FIELD SIZE 03826 M00S03280.profile +++| ZR X4,MQE5 IF SET DATA IN FIELD NOT PERTINENT 03827 M00S03281.profile +++| BX6 X5 03828 M00S03282.profile +++| SA3 F.TAB3 PRESET LEVEL-3 DIRECTIVE 03829 M00S03283.profile +++| SA4 T3IE 03830 M00S03284.profile +++| SB7 TOIC 03831 M00S03285.profile +++| NG X2,MQE4 IF LEVEL-3 DIRECTIVE 03832 M00S03286.profile +++| SA3 F.TAB1 03833 M00S03287.profile +++| SA4 T1IE 03834 M00S03288.profile +++| SB7 TOIA 03835 M00S03289.profile +++| MQE4 IX3 X3+X4 03836 M00S03290.profile +++| FUNC SDFT SET DATA IN FIELD 03837 M00S03291.profile +++| SA1 DTII 03838 M00S03292.profile +++| RJ CKU CHECK FOR K-DISPLAY UPDATE 03839 M00S03293.profile +++| 03840 M00S03294.profile +++| MQE5 SA2 UF 03841 M00S03295.profile +++| ZR X2,MQEX IF QUEUE ENTRY NOT PERTINENT 03842 M00S03296.profile +++| LX1 -12 MERGE INTO QUEUE ENTRY 03843 M00S03297.profile +++| BX7 X1+X5 03844 M00S03298.profile +++| SA1 QSIZ CHECK FOR FULL QUEUE 03845 M00S03299.profile +++| SA2 QMAX 03846 M00S03300.profile +++| IX3 X1-X2 03847 M00S03301.profile +++| NG X3,MQE6 IF NO NEED TO ALLOCATE MORE TO QUEUE 03848 M00S03302.profile +++| NZ X3,ERD4 IF ERROR 03849 M00S03303.profile +++| BX0 X7 PRESERVE 03850 M00S03304.profile +++| RJ AMQ ALLOCATE MEMORY TO QUEUE 03851 M00S03305.profile +++| SA1 QSIZ RESTORE 03852 M00S03306.profile +++| BX7 X0 03853 M00S03307.profile +++| MQE6 SX6 X1+B1 UPDATE QUEUE SIZE AND STORE ENTRY 03854 M00S03308.profile +++| SA6 A1 03855 M00S03309.profile +++| SA7 X1+MEML 03856 M00S03310.profile +++| EQ MQEX 03857 M00S03311.profile +++| RCE SPACE 4,10 03858 M00S03312.profile +++|** RCE - REGENERATE CHARGE NUMBER QUEUE ENTRY. 03859 M00S03313.profile +++|* 03860 M00S03314.profile +++|* *CN* ENTRY IS MADE IN DIRECTIVE QUEUE. 03861 M00S03315.profile +++|* 03862 M00S03316.profile +++|* ENTRY (DTII) = TABLE INDEX. 03863 M00S03317.profile +++|* 03864 M00S03318.profile +++|* CALLS MQE, SPB. 03865 M00S03319.profile +++|* 03866 M00S03320.profile +++|* USES ALL REGISTERS. 03867 M00S03321.profile +++| 03868 M00S03322.profile +++| 03869 M00S03323.profile +++| RCE SUBR ENTRY/EXIT 03870 M00S03324.profile +++| SA1 DTII SAVE TABLE INDEX 03871 M00S03325.profile +++| BX6 X1 03872 M00S03326.profile +++| SA6 RCEA 03873 M00S03327.profile +++| SX1 XCND TABLE INDEX FOR QUEUE ENTRY 03874 M00S03328.profile +++| BX7 X1 03875 M00S03329.profile +++| SA7 A1 03876 M00S03330.profile +++| SA2 X1+TOPR 03877 M00S03331.profile +++| BX5 X5-X5 03878 M00S03332.profile +++| RJ MQE MAKE QUEUE ENTRY 03879 M00S03333.profile +++| SA1 RCEA RESTORE TABLE INDEX 03880 M00S03334.profile +++| BX6 X1 03881 M00S03335.profile +++| SA6 DTII 03882 M00S03336.profile +++| SX1 CN 03883 M00S03337.profile +++| SX0 N 03884 M00S03338.profile +++| FUNC SPBT SET PRIMARY BLOCK 03885 M00S03339.profile +++| NZ X6,ERD5 IF ERROR 03886 M00S03340.profile +++| NZ X4,ERD6 IF ENTRY NOT FOUND 03887 M00S03341.profile +++| SA1 F.TAB1 TABLE 1 INDEX OF ENTRY 03888 M00S03342.profile +++| IX6 X3-X1 03889 M00S03343.profile +++| SA6 T1IE 03890 M00S03344.profile +++| EQ RCEX 03891 M00S03345.profile +++| 03892 M00S03346.profile +++| RCEA BSS 1 HOLD LOCATION 03893 M00S03347.profile +++| TITLE UPDATE/CREATE SUBROUTINES - MAIN QUEUE ROUTINE. 03894 M00S03348.profile +++| DQP SPACE 4,10 03895 M00S03349.profile +++|** DQP - DIRECTIVE QUEUE PROCESSOR. 03896 M00S03350.profile +++|* 03897 M00S03351.profile +++|* EACH QUEUE ENTRY IS PROCESSED BY CALLING THE APPROPRIATE 03898 M00S03352.profile +++|* QUEUE PROCESSOR. QUEUE PROCESSING CONTINUES UNTIL ALL 03899 M00S03353.profile +++|* ENTRIES HAVE BEEN PROCESSED. PROFILE FILE IS INTERLOCKED 03900 M00S03354.profile +++|* IN MODIFY MODE WHILE QUEUE PROCESSING (NOT NECESSARY IF 03901 M00S03355.profile +++|* *CREATE* OPTION). QUEUE PROCESSING IS INITIATED WHEN A 03902 M00S03356.profile +++|* DIFFERENT CHARGE OR PROJECT NUMBER ENTRY IS ENCOUNTERED 03903 M00S03357.profile +++|* DURING DIRECTIVE INPUT PROCESSING, WHEN DIRECTIVE INPUT 03904 M00S03358.profile +++|* PROCESSING IS TERMINATED, OR WHEN *END* DIRECTIVE ISSUED 03905 M00S03359.profile +++|* (WHEN *K-DISPLAY* OPTION). 03906 M00S03360.profile +++|* 03907 M00S03361.profile +++|* ENTRY (QSIZ) = QUEUE SIZE. 03908 M00S03362.profile +++|* (CN) = CHARGE NUMBER. 03909 M00S03363.profile +++|* (PN - PN+1) = PROJECT NUMBER, IF PERTINENT. 03910 M00S03364.profile +++|* 03911 M00S03365.profile +++|* EXIT TO QUEUE PROCESSORS- 03912 M00S03366.profile +++|* (X1) = QUEUE ENTRY. 03913 M00S03367.profile +++|* (X7) = (DTIQ) = TABLE INDEX. 03914 M00S03368.profile +++|* 03915 M00S03369.profile +++|* CALLS IPP, MSG, UDD, WCL, WDL, WPL, QUEUE PROCESSORS. 03916 M00S03370.profile +++|* 03917 M00S03371.profile +++|* USES ALL REGISTERS. 03918 M00S03372.profile +++| 03919 M00S03373.profile +++| 03920 M00S03374.profile +++| DQP4 SX0 P 03921 M00S03375.profile +++| SX5 P 03922 M00S03376.profile +++| BX6 X6-X6 03923 M00S03377.profile +++| FUNC UDDT UPDATE DIRECTORY 03924 M00S03378.profile +++| NZ X6,ERD45 IF ERROR 03925 M00S03379.profile +++| DQP5 RETURN P,R 03926 M00S03380.profile +++| SA1 IPPD RESET CPU PRIORITY 03927 M00S03381.profile +++| SETPR X1 03928 M00S03382.profile +++| SETRNR ROLL ALLOW JOB ROLLOUT 03929 M00S03383.profile +++| MESSAGE DQPB,1,R B-DISPLAY MESSAGE 03930 M00S03384.profile +++| DQP6 BX6 X6-X6 EMPTY QUEUE 03931 M00S03385.profile +++| SA6 QSIZ 03932 M00S03386.profile +++| 03933 M00S03387.profile +++| DQP SUBR ENTRY/EXIT 03934 M00S03388.profile +++| SA1 OP 03935 M00S03389.profile +++| SX1 X1-COPT 03936 M00S03390.profile +++| SA2 FUP1 03937 M00S03391.profile +++| SA3 A2+B1 03938 M00S03392.profile +++| SA4 A3+B1 03939 M00S03393.profile +++| BX6 X2+X3 03940 M00S03394.profile +++| BX6 X4+X6 03941 M00S03395.profile +++| NZ X6,DQP1 IF NEED TO PROCESS QUEUE 03942 M00S03396.profile +++| SA2 ET 03943 M00S03397.profile +++| PL X2,DQP6 IF NO LEVEL-0 UPDATE 03944 M00S03398.profile +++| SA2 DQPA 03945 M00S03399.profile +++| ZR X2,DQP6 IF NEVER PROCESSED QUEUE 03946 M00S03400.profile +++| ZR X1,DQP6 IF *CREATE* OPTION 03947 M00S03401.profile +++| RJ IPP INTERLOCK PROFILE FILE 03948 M00S03402.profile +++| EQ DQP4 03949 M00S03403.profile +++| 03950 M00S03404.profile +++| DQP1 BX7 X7-X7 CLEAR QUEUE POINTER 03951 M00S03405.profile +++| SA7 QPTR 03952 M00S03406.profile +++| ZR X1,DQP2 IF *CREATE* OPTION 03953 M00S03407.profile +++| SA6 DQPA INDICATE PROCESS OF QUEUE 03954 M00S03408.profile +++| RJ IPP INTERLOCK PROFILE FILE 03955 M00S03409.profile +++| 03956 M00S03410.profile +++|* *MAIN LOOP* 03957 M00S03411.profile +++| 03958 M00S03412.profile +++| DQP2 BSS 0 03959 M00S03413.profile +++| SA1 QPTR QUEUE POINTER 03960 M00S03414.profile +++| SA2 QSIZ QUEUE SIZE 03961 M00S03415.profile +++| IX3 X1-X2 03962 M00S03416.profile +++| ZR X3,DQP3 IF THRU PROCESSING QUEUE 03963 M00S03417.profile +++| PL X3,ERD26 IF ERROR 03964 M00S03418.profile +++| SX6 X1+B1 INCREMENT QUEUE POINTER 03965 M00S03419.profile +++| SA6 A1 03966 M00S03420.profile +++| SA1 X1+MEML NEXT QUEUE ENTRY TO PROCESS 03967 M00S03421.profile +++| MX2 12 03968 M00S03422.profile +++| BX7 X2*X1 03969 M00S03423.profile +++| LX7 12 03970 M00S03424.profile +++| SA7 DTIQ TABLE INDEX 03971 M00S03425.profile +++| SA2 X7+TOPR TABLE ENTRY 03972 M00S03426.profile +++| SB2 X2 03973 M00S03427.profile +++| JP B2 QUEUE PROCESSOR 03974 M00S03428.profile +++| 03975 M00S03429.profile +++| DQP3 SA1 OP 03976 M00S03430.profile +++| SX1 X1-COPT 03977 M00S03431.profile +++| NZ X1,DQP3.1 IF NOT *CREATE* OPTION 03978 M00S03432.profile +++| RECALL N COMPLETE I/O ON DUPLICATE FET 03979 M00S03433.profile +++| DQP3.1 RJ WDL WRITE DATA LEVEL 03980 M00S03434.profile +++| RJ WPL WRITE PROJECT LEVEL 03981 M00S03435.profile +++| RJ WCL WRITE CHARGE LEVEL 03982 M00S03436.profile +++| SA1 OP 03983 M00S03437.profile +++| SX6 X1-COPT 03984 M00S03438.profile +++| ZR X6,DQP3.2 IF *CREATE* OPTION 03985 M00S03439.profile +++| SA1 ET 03986 M00S03440.profile +++| PL X1,DQP5 IF NO LEVEL-0 UPDATE 03987 M00S03441.profile +++| EQ DQP4 03988 M00S03442.profile +++| 03989 M00S03443.profile +++| DQP3.2 RECALL P COMPLETE I/O ON DUPLICATE FET 03990 M00S03444.profile +++| EQ DQP6 SET QUEUE EMPTY AND RETURN 03991 M00S03445.profile +++| 03992 M00S03446.profile +++| 03993 M00S03447.profile +++| DQPA CON 0 QUEUE PROCESSED FLAG 03994 M00S03448.profile +++| DQPB DATA L* PROFILE FILE RELEASED * 03995 M00S03449.profile +++| TITLE UPDATE/CREATE SUBROUTINES - QUEUE PROCESSORS. 03996 M00S03450.profile +++| AUP SPACE 4,10 03997 M00S03451.profile +++|** AUP - *AUN* PROCESSOR. 03998 M00S03452.profile +++|* 03999 M00S03453.profile +++|* ENTRY (X1) = QUEUE ENTRY. 04000 M00S03454.profile +++|* 04001 M00S03455.profile +++|* EXIT TO DQP2. 04002 M00S03456.profile +++|* 04003 M00S03457.profile +++|* CALLS AUN. 04004 M00S03458.profile +++|* 04005 M00S03459.profile +++|* USES ALL REGISTERS. 04006 M00S03460.profile +++| 04007 M00S03461.profile +++| 04008 M00S03462.profile +++| AUP BSS 0 04009 M00S03463.profile +++| MX3 -42 04010 M00S03464.profile +++| BX1 -X3*X1
| Line S03465 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04011 M01S03465.v23l617 ---| RJ AUN ADD USER NUMBER
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04012 M01S00195.v23l617 +++| RJ AUN ADD USER NAME 04013 M00S03466.profile +++| JP DQP2 *MAIN LOOP* RETURN 04014 M00S03467.profile +++| CNP SPACE 4,10 04015 M00S03468.profile +++|** CNP - CHARGE NUMBER PROCESSOR. 04016 M00S03469.profile +++|* 04017 M00S03470.profile +++|* PROCESSES *ACN*, *CN*, *DCN*. 04018 M00S03471.profile +++|* 04019 M00S03472.profile +++|* ENTRY (DTIQ) = TABLE INDEX. 04020 M00S03473.profile +++|* (CN) = CHARGE NUMBER. 04021 M00S03474.profile +++|* 04022 M00S03475.profile +++|* EXIT TO DQP2. 04023 M00S03476.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY. 04024 M00S03477.profile +++|* 04025 M00S03478.profile +++|* CALLS ATS, MVE, MWS, SPB. 04026 M00S03479.profile +++|* 04027 M00S03480.profile +++|* USES ALL REGISTERS. 04028 M00S03481.profile +++| 04029 M00S03482.profile +++| 04030 M00S03483.profile +++| CNP BSS 0 04031 M00S03484.profile +++| SX1 CN 04032 M00S03485.profile +++| SX0 N 04033 M00S03486.profile +++| FUNC SPBT SET PRIMARY BLOCK 04034 M00S03487.profile +++| NZ X6,ERD10 IF ERROR 04035 M00S03488.profile +++| SA1 DTIQ 04036 M00S03489.profile +++| NZ X4,CNP2 IF CHARGE NUMBER NOT FOUND 04037 M00S03490.profile +++| SA2 F.TAB1 TABLE 1 INDEX OF ENTRY 04038 M00S03491.profile +++| IX6 X3-X2 04039 M00S03492.profile +++| SA6 T1IE 04040 M00S03493.profile +++| SB2 X1-XCND 04041 M00S03494.profile +++| ZR B2,DQP2 IF *CN* 04042 M00S03495.profile +++| MX2 1 04043 M00S03496.profile +++| SA3 X3+CSRW 04044 M00S03497.profile +++| SB2 X1-XDCN 04045 M00S03498.profile +++| ZR B2,CNP1 IF *DCN* 04046 M00S03499.profile +++| BX6 -X2*X3 ACTIVATE CHARGE NUMBER 04047 M00S03500.profile +++| SA6 A3 04048 M00S03501.profile +++| EQ DQP2 04049 M00S03502.profile +++| 04050 M00S03503.profile +++| CNP1 BX6 X2+X3 DEACTIVATE CHARGE NUMBER 04051 M00S03504.profile +++| SA6 A3 04052 M00S03505.profile +++| EQ DQP2 04053 M00S03506.profile +++| 04054 M00S03507.profile +++| CNP2 SB2 X1-XACN 04055 M00S03508.profile +++| NZ B2,ERD11 IF NOT *ACN* 04056 M00S03509.profile +++| SA5 L.TAB1 04057 M00S03510.profile +++| ALLOC TAB1,C.TAB1 04058 M00S03511.profile +++| IX5 X2+X5 04059 M00S03512.profile +++| MOVE C.TAB1,D1AA,X5 INITIALIZE ENTRY TO DEFAULT 04060 M00S03513.profile +++| SA0 B1 04061 M00S03514.profile +++| FUNC STBT SORT TABLE 1 04062 M00S03515.profile +++| SX1 B1 04063 M00S03516.profile +++| SB6 CN 04064 M00S03517.profile +++| FUNC MWST SEARCH TABLE 1 04065 M00S03518.profile +++| NZ X2,ERD7 IF CHARGE NUMBER NOT FOUND 04066 M00S03519.profile +++| SB3 X4 TABLE 1 INDEX OF ENTRY 04067 M00S03520.profile +++| SX6 B2-B3 04068 M00S03521.profile +++| SA6 T1IE 04069 M00S03522.profile +++| JP DQP2 *MAIN LOOP* RETURN 04070 M00S03523.profile +++| DUP SPACE 4,10 04071 M00S03524.profile +++|** DUP - *DUN* PROCESSOR. 04072 M00S03525.profile +++|* 04073 M00S03526.profile +++|* ENTRY (X1) = QUEUE ENTRY. 04074 M00S03527.profile +++|* 04075 M00S03528.profile +++|* EXIT TO DQP2. 04076 M00S03529.profile +++|* 04077 M00S03530.profile +++|* USES A - 1, 2, 6. 04078 M00S03531.profile +++|* B - 2, 3. 04079 M00S03532.profile +++|* X - 1, 2, 3, 4, 6. 04080 M00S03533.profile +++|* 04081 M00S03534.profile +++|* CALLS GES, NUE. 04082 M00S03535.profile +++| 04083 M00S03536.profile +++| 04084 M00S03537.profile +++| DUP BSS 0
| Line S03538 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04085 M01S03538.v23l617 ---| MX3 -42 SEARCH FOR USER NUMBER
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04086 M01S00196.v23l617 +++| MX3 -42 SEARCH FOR USER NAME 04087 M00S03539.profile +++| BX6 -X3*X1 04088 M00S03540.profile +++| LX6 18 04089 M00S03541.profile +++| SA6 UNUM
| Line S03542 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04090 M01S03542.v23l617 ---| DUP1 RJ NUE GET NEXT USER NUMBER ENTRY
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04091 M01S00197.v23l617 +++| DUP1 RJ NUE GET NEXT USER NAME ENTRY 04092 M00S03543.profile +++| NZ B2,DUP2 IF END OF LEVEL-3 CHAIN 04093 M00S03544.profile +++| SX2 X1 04094 M00S03545.profile +++| NZ X2,DUP2 IF END OF LIST 04095 M00S03546.profile +++| SA2 UNUM 04096 M00S03547.profile +++| BX6 X1-X2 04097 M00S03548.profile +++| BX1 X1-X1 04098 M00S03549.profile +++| NZ X6,DUP1 IF NO MATCH 04099 M00S03550.profile +++| SA6 A1 CLEAR ENTRY FROM TABLE
| Line S03551 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04100 M01S03551.v23l617 ---| SA1 F.TAB3 DECREMENT USER NUMBER COUNT FIELD
| Line S00198 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04101 M01S00198.v23l617 +++| SA1 F.TAB3 DECREMENT USER NAME COUNT FIELD 04102 M00S03552.profile +++| SA2 T3IE 04103 M00S03553.profile +++| IX1 X1+X2 04104 M00S03554.profile +++| SA2 X1 04105 M00S03555.profile +++| LX2 -24 04106 M00S03556.profile +++| MX3 -12 04107 M00S03557.profile +++| BX4 -X3*X2 04108 M00S03558.profile +++| SX4 X4-1 04109 M00S03559.profile +++| NG X4,ERD27 IF ERROR 04110 M00S03560.profile +++| BX2 X3*X2 04111 M00S03561.profile +++| BX6 X2+X4 04112 M00S03562.profile +++| LX6 24 04113 M00S03563.profile +++| SA6 A2 04114 M00S03564.profile +++| EQ DQP2 *MAIN LOOP* RETURN 04115 M00S03565.profile +++|
| Line S03566 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04116 M01S03566.v23l617 ---| DUP2 SB3 ERUL **** DELETE NON-EXISTENT USER NUMBER.
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04117 M01S00199.v23l617 +++| DUP2 SB3 ERUL **** DELETE NON-EXISTENT USER NAME. 04118 M00S03567.profile +++| RJ ERU USER ERROR 04119 M00S03568.profile +++| EQ DQP2 RETURN TO MAIN LOOP 04120 M00S03569.profile +++| MDP SPACE 4,10 04121 M00S03570.profile +++|** MDP - MISCELLANEOUS DIRECTIVE PROCESSOR. 04122 M00S03571.profile +++|* 04123 M00S03572.profile +++|* PROCESSES *MU*, *PCL*, *M1*,..., *M4*, *AD*, *CEX*,
| Line S03573 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04124 M01S03573.ns22000 ---|* *ISL*, *IR1*,..., *IR8*, *PEX*, *TI*, *TO*, *ISV*, *SML*,
| Line S00237 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04125 M01S00237.ns22000 +++|* *ISL*, *IR1*,...,*IR8*, *PEX*, *TI*, *TO*, *PFN*, *PUN*, 04126 M01S00238.ns22000 +++|* *PPW*, *PCR*, *EFN*, *EUN*, *EPW*, *ISV*, *SML*, 04127 M00S03574.profile +++|* *SMA*, *SIL*, *SIA*, *LR1*, *AR1*,..., *LR8*, *AR8*. 04128 M00S03575.profile +++|* 04129 M00S03576.profile +++|* ENTRY (X1) = QUEUE ENTRY. 04130 M00S03577.profile +++|* (X7) = TABLE INDEX. 04131 M00S03578.profile +++|* TO MDP1, IF LEVEL-1 DIRECTIVE. 04132 M00S03579.profile +++|* TO MDP3, IF LEVEL-3 DIRECTIVE. 04133 M00S03580.profile +++|* 04134 M00S03581.profile +++|* EXIT TO DQP2. 04135 M00S03582.profile +++|* 04136 M00S03583.profile +++|* CALLS DFS, SDF. 04137 M00S03584.profile +++|* 04138 M00S03585.profile +++|* USES ALL REGISTERS. 04139 M00S03586.profile +++| 04140 M00S03587.profile +++| 04141 M00S03588.profile +++| MDP BSS 0 04142 M00S03589.profile +++| MDP1 SA2 F.TAB1 04143 M00S03590.profile +++| SA5 T1IE 04144 M00S03591.profile +++| EQ MDP3 04145 M00S03592.profile +++| 04146 M00S03593.profile +++| MDP2 SA2 F.TAB3 04147 M00S03594.profile +++| SA5 T3IE 04148 M00S03595.profile +++| 04149 M00S03596.profile +++| MDP3 RJ DFS (DF) - (DF+4) SET-UP 04150 M00S03597.profile +++| MX3 -42 04151 M00S03598.profile +++| BX6 -X3*X1 04152 M00S03599.profile +++| IX3 X2+X5 FWA OF ENTRY 04153 M00S03600.profile +++| FUNC SDFT SET DATA IN FIELD 04154 M00S03601.profile +++| JP DQP2 *MAIN LOOP* RETURN 04155 M00S03602.profile +++| PNP SPACE 4,10 04156 M00S03603.profile +++|** PNP - PROJECT NUMBER PROCESSOR. 04157 M00S03604.profile +++|* 04158 M00S03605.profile +++|* PROCESSES *APN*, *DPN*, *PN*. 04159 M00S03606.profile +++|* 04160 M00S03607.profile +++|* ENTRY (DTIQ) = TABLE INDEX. 04161 M00S03608.profile +++|* (PN - PN+1) = PROJECT NUMBER. 04162 M00S03609.profile +++|* 04163 M00S03610.profile +++|* EXIT TO DQP2. 04164 M00S03611.profile +++|* (RA3) = 0, IF NEW LEVEL-3 BLOCK. 04165 M00S03612.profile +++|* = LEVEL-3 RANDOM ADDRESS, ELSE. 04166 M00S03613.profile +++|* (T2IE) = TABLE 2 INDEX OF ENTRY. 04167 M00S03614.profile +++|* PROJECT COUNT UPDATED, IF *APN* OR *DPN*. 04168 M00S03615.profile +++|* 04169 M00S03616.profile +++|* CALLS ADB, ATS, MVE, MWS, PDE, PEI, STB, UPC. 04170 M00S03617.profile +++|* 04171 M00S03618.profile +++|* USES ALL REGISTERS. 04172 M00S03619.profile +++| 04173 M00S03620.profile +++| 04174 M00S03621.profile +++| PNP BSS 0 04175 M00S03622.profile +++| RJ PEI PROJECT ENTRY INITIALIZATION 04176 M00S03623.profile +++| NZ X4,PNP2 IF PROJECT NUMBER NOT FOUND 04177 M00S03624.profile +++| SA1 F.TAB2 TABLE 2 INDEX OF ENTRY 04178 M00S03625.profile +++| IX6 X3-X1 04179 M00S03626.profile +++| SA6 T2IE 04180 M00S03627.profile +++| SX7 X5 LEVEL-3 RANDOM ADDRESS 04181 M00S03628.profile +++| SA7 RA3 04182 M00S03629.profile +++| SX0 N 04183 M00S03630.profile +++| RJ ADB ADD DATA LEVEL BLOCK 04184 M00S03631.profile +++| SA1 DTIQ 04185 M00S03632.profile +++| SB2 X1-XPND 04186 M00S03633.profile +++| ZR B2,DQP2 IF *PN* 04187 M00S03634.profile +++| MX2 1 04188 M00S03635.profile +++| SA3 A5+PTMW 04189 M00S03636.profile +++| SB2 X1-XDPN 04190 M00S03637.profile +++| ZR B2,PNP1 IF *DPN* 04191 M00S03638.profile +++| PL X3,DQP2 IF ALREADY ACTIVE 04192 M00S03639.profile +++| BX6 -X2*X3 ACTIVATE PROJECT NUMBER 04193 M00S03640.profile +++| SA6 A3 04194 M00S03641.profile +++| EQ PNP3 04195 M00S03642.profile +++| 04196 M00S03643.profile +++| PNP1 NG X3,DQP2 IF ALREADY INACTIVE 04197 M00S03644.profile +++| BX6 X2+X3 DEACTIVATE PROJECT NUMBER 04198 M00S03645.profile +++| SA6 A3 04199 M00S03646.profile +++| EQ PNP3 04200 M00S03647.profile +++| 04201 M00S03648.profile +++| PNP2 SA1 DTIQ 04202 M00S03649.profile +++| SX1 X1-XAPN 04203 M00S03650.profile +++| NZ X1,ERD13 IF NOT *APN* 04204 M00S03651.profile +++| SA5 L.TAB2 04205 M00S03652.profile +++| SA1 PN 04206 M00S03653.profile +++| ADDWRD TAB2,X1 04207 M00S03654.profile +++| SA1 PN+1 04208 M00S03655.profile +++| ADDWRD TAB2,X1 04209 M00S03656.profile +++| BX1 X1-X1 04210 M00S03657.profile +++| ADDWRD TAB2,X1 04211 M00S03658.profile +++| SX0 N 04212 M00S03659.profile +++| RJ PDE PROCESS DATA LEVEL ENTRY 04213 M00S03660.profile +++| MOVE C.TAB3,D3AA,X0 04214 M00S03661.profile +++| SA0 B1+B1 04215 M00S03662.profile +++| FUNC STBT SORT TABLE 2 04216 M00S03663.profile +++| SX1 B1 04217 M00S03664.profile +++| SB6 PN 04218 M00S03665.profile +++| FUNC MWST SEARCH TABLE 2 04219 M00S03666.profile +++| NZ X2,ERD8 IF PROJECT NUMBER NOT FOUND 04220 M00S03667.profile +++| SB3 X4 TABLE 2 INDEX OF ENTRY 04221 M00S03668.profile +++| SX6 B2-B3 04222 M00S03669.profile +++| SA6 T2IE 04223 M00S03670.profile +++| SX1 XAPN 04224 M00S03671.profile +++| 04225 M00S03672.profile +++| PNP3 RJ UPC UPDATE PROJECT COUNT 04226 M00S03673.profile +++| SA6 A2 04227 M00S03674.profile +++| JP DQP2 *MAIN LOOP* RETURN 04228 M00S03675.profile +++| TITLE UPDATE/CREATE SUBROUTINES - QUEUE PROCESSOR ROUTINES. 04229 M00S03676.profile +++| IPP SPACE 4,10 04230 M00S03677.profile +++|** IPP - INTERLOCK PROFILE FILE. 04231 M00S03678.profile +++|* 04232 M00S03679.profile +++|* PROFILE FILE IS ATTACHED IN MODIFY MODE. IF FILE BUSY, 04233 M00S03680.profile +++|* A ROLLOUT IS PERFORMED AND ANOTHER ATTEMPT MADE. 04234 M00S03681.profile +++|* 04235 M00S03682.profile +++|* EXIT TO IPPX, IF ATTACH SUCCESSFUL. 04236 M00S03683.profile +++|* TO ABT1, IF PFM ERROR. 04237 M00S03684.profile +++|* 04238 M00S03685.profile +++|* CALLS CFS, MSG. 04239 M00S03686.profile +++|* 04240 M00S03687.profile +++|* USES ALL REGISTERS. 04241 M00S03688.profile +++| 04242 M00S03689.profile +++| 04243 M00S03690.profile +++| IPP2 MESSAGE IPPB,1,R B-DISPLAY MESSAGE 04244 M00S03691.profile +++| SETRNR NOROLL PREVENT JOB ROLLOUT
| Line S03692 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 04245 M01S03692.271l716 ---| SETPR 50B
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 04246 M01S00002.271l716 +++| SETPR LSCS 04247 M00S03693.profile +++| 04248 M00S03694.profile +++| IPP SUBR ENTRY/EXIT 04249 M00S03695.profile +++| GETPR IPPD
| Line S03696 Modification History | |
|---|---|
M01 (Removed by) | ns2729 |
Seq # *Modification Id* Act ----------------------------+ 04250 M01S03696.ns2729 ---| IPP1 ATTACH P,,,,M,,,IP
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2729 |
Seq # *Modification Id* Act ----------------------------+ 04251 M01S00001.ns2729 +++| IPP1 ATTACH P,,,,M,,,IP,MA 04252 M00S03697.profile +++| SB2 P 04253 M00S03698.profile +++| RJ CFS CHECK FILE STATUS 04254 M00S03699.profile +++| ZR X2,IPP2 IF NO PFM ERROR 04255 M00S03700.profile +++| SX3 X2-1
| Line S03701 Modification History | |
|---|---|
M01 (Removed by) | profi9 |
Seq # *Modification Id* Act ----------------------------+ 04256 M01S03701.profi9 ---| NZ X3,ABT1 IF ERROR IS NOT *FILE BUSY*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | profi9 |
Seq # *Modification Id* Act ----------------------------+ 04257 M01S00003.profi9 +++| NZ X3,ABT3 IF ERROR IS NOT *FILE BUSY* 04258 M00S03702.profile +++| ROLLOUT =0 04259 M00S03703.profile +++| EQ IPP1 TRY AGAIN 04260 M00S03704.profile +++| 04261 M00S03705.profile +++| IPPB DATA L* PROFILE FILE INTERLOCKED* 04262 M00S03706.profile +++| 04263 M00S03707.profile +++| IPPD CON 0 CPU PRIORITY 04264 M00S03708.profile +++| WCL SPACE 4,10 04265 M00S03709.profile +++|** WCL - WRITE CHARGE LEVEL (LEVEL-1). 04266 M00S03710.profile +++|* 04267 M00S03711.profile +++|* ENTRY (FUP1) .NE. 0, IF UPDATE OF LEVEL-1 NECESSARY. 04268 M00S03712.profile +++|* 04269 M00S03713.profile +++|* CALLS WTB. 04270 M00S03714.profile +++|* 04271 M00S03715.profile +++|* USES ALL REGISTERS. 04272 M00S03716.profile +++| 04273 M00S03717.profile +++| 04274 M00S03718.profile +++| WCL SUBR ENTRY/EXIT 04275 M00S03719.profile +++| SA1 FUP1 04276 M00S03720.profile +++| ZR X1,WCLX IF NO LEVEL-1 UPDATE NEEDED 04277 M00S03721.profile +++| BX6 X6-X6 CLEAR LEVEL-1 UPDATE FLAG 04278 M00S03722.profile +++| SA6 A1 04279 M00S03723.profile +++| SA0 B1 04280 M00S03724.profile +++| SX5 P 04281 M00S03725.profile +++| FUNC WTBT WRITE TABLE 1 04282 M00S03726.profile +++| EQ WCLX 04283 M00S03727.profile +++| TITLE COMMON SUBROUTINES. 04284 M00S03728.profile +++| ACI SPACE 4,10 04285 M00S03729.profile +++| ACI SPACE 4,18 04286 M00S03730.profile +++|** ACI - ASSEMBLE CHARACTERS INTERFACE. 04287 M00S03731.profile +++|* 04288 M00S03732.profile +++|* ENTRY (X1) = BIT STRING OF CHARACTERS TO PERMIT. 04289 M00S03733.profile +++|* 04290 M00S03734.profile +++|* EXIT (CBUF - CBUF+CBUFL) = LEFT-JUSTIFIED ASSEMBLED 04291 M00S03735.profile +++|* CHARACTERS. 04292 M00S03736.profile +++|* (X4) = NUMBER OF CHARACTERS. 04293 M00S03737.profile +++|* (B5) = SEPARATOR (0 IF END OF LINE). 04294 M00S03738.profile +++|* (B6) = 0, IF ENTRY TERMINATION. 04295 M00S03739.profile +++|* (B6) .NE. 0, IF ASSEMBLY COMPLETE. 04296 M00S03740.profile +++|* (ET) = -1, IF EOF. 04297 M00S03741.profile +++|* (ET) = 1, IF */* ENTRY TERMINATION. 04298 M00S03742.profile +++|* 04299 M00S03743.profile +++|* CALLS ASC. 04300 M00S03744.profile +++|* 04301 M00S03745.profile +++|* USES A - 1, 2, 6, 7. 04302 M00S03746.profile +++|* X - 0, 1, 2, 3, 4, 6, 7. 04303 M00S03747.profile +++|* B - 2, 4. 04304 M00S03748.profile +++| 04305 M00S03749.profile +++| 04306 M00S03750.profile +++| ACI SUBR ENTRY/EXIT 04307 M00S03751.profile +++| BX6 X1 04308 M00S03752.profile +++| SA6 ACIB SAVE BIT STRING 04309 M00S03753.profile +++| BX6 X6-X6 04310 M00S03754.profile +++| SA6 ACIA CLEAR CHARACTER COUNT 04311 M00S03755.profile +++| SA6 ACIC CLEAR CHARACTER BUFFER INDEX 04312 M00S03756.profile +++| SB2 CBUFL-1 04313 M00S03757.profile +++| ACI1 SA6 B2+CBUF CLEAR CHARACTER BUFFER 04314 M00S03758.profile +++| SB2 B2-1 04315 M00S03759.profile +++| PL B2,ACI1 04316 M00S03760.profile +++| ACI2 SX0 I INPUT FET ADDRESS 04317 M00S03761.profile +++| SA2 BS BLANK SUPPRESSION 04318 M00S03762.profile +++| BX6 X2 04319 M00S03763.profile +++| SA1 ACIB BIT STRING OF CHARACTERS TO PERMIT 04320 M00S03764.profile +++| FUNC ASCT ASSEMBLE CHARACTERS 04321 M00S03765.profile +++| SA2 ACIC 04322 M00S03766.profile +++| SA6 CBUF+X2 STORE ASSEMBLED CHARACTERS 04323 M00S03767.profile +++| SA1 ACIA 04324 M00S03768.profile +++| SB4 X4-10 04325 M00S03769.profile +++| IX4 X1+X4 INCREMENT CHARACTER COUNT 04326 M00S03770.profile +++| NG B4,ACIX RETURN IF SEPARATOR ENCOUNTERED 04327 M00S03771.profile +++| BX7 X4 04328 M00S03772.profile +++| SA7 A1 04329 M00S03773.profile +++| SX3 X2-CBUFL-1 04330 M00S03774.profile +++| PL X3,ACI2 IF BUFFER FULL 04331 M00S03775.profile +++| SX7 X2+B1 04332 M00S03776.profile +++| SA7 A2 INCREMENT CHARACTER BUFFER INDEX 04333 M00S03777.profile +++| EQ ACI2 04334 M00S03778.profile +++| 04335 M00S03779.profile +++| 04336 M00S03780.profile +++| ACIA CON 0 CHARACTER COUNT 04337 M00S03781.profile +++| ACIB CON 0 BIT STRING OF CHARACTERS TO PERMIT 04338 M00S03782.profile +++| ACIC CON 0 CHARACTER BUFFER INDEX
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03783.profile +++| SIN SPACE 4,11 04368 M00S03784.profile +++|** SIN - SUBROUTINE INTERFACE. 04369 M00S03785.profile +++|* 04370 M00S03786.profile +++|* ENTRY (B7) SUBROUTINE ADDRESS. 04371 M00S03787.profile +++|* 04372 M00S03788.profile +++|* EXIT TO ROUTINE WITH RETURN ADDRESS SET. 04373 M00S03789.profile +++|* 04374 M00S03790.profile +++|* CALLS NONE. 04375 M00S03791.profile +++|* 04376 M00S03792.profile +++|* USES A - 1, 6. 04377 M00S03793.profile +++|* X - 1, 6. 04378 M00S03794.profile +++|* B - 7. 04379 M00S03795.profile +++| 04380 M00S03796.profile +++| 04381 M00S03797.profile +++| SIN SUBR ENTRY/EXIT 04382 M00S03798.profile +++| SA1 SIN SET RETURN ADDRESS 04383 M00S03799.profile +++| BX6 X1 04384 M00S03800.profile +++| SA6 B7 04385 M00S03801.profile +++| JP B7+1 JUMP TO ROUTINE 04386 M00S03802.profile +++| ABT SPACE 4 04387 M00S03803.profile +++|** ABT - ABORT EXIT. 04388 M00S03804.profile +++| 04389 M00S03805.profile +++| 04390 M00S03806.profile +++| ABM SA1 CN ABORT AFTER ISSUING OUTPUT FILE MESSAGE 04391 M00S03807.profile +++| SA2 PN 04392 M00S03808.profile +++| BX6 X1 04393 M00S03809.profile +++| LX7 X2 04394 M00S03810.profile +++| SA6 FCNP SET CHARGE PRESENT INDICATOR 04395 M00S03811.profile +++| SA7 FPNP SET PROJECT PRESENT INDICATOR 04396 M00S03812.profile +++| RJ ERU ISSUE ERROR MESSAGE 04397 M00S03813.profile +++| SX2 PROB *DIRECTIVE ERRORS.* 04398 M00S03814.profile +++| EQ ABT ABORT AFTER CLEAN UP 04399 M00S03815.profile +++| 04400 M00S03816.profile +++| ABE SX2 =C* PROFILE ABORTED.* 04401 M00S03817.profile +++| ABT MESSAGE X2 04402 M00S03818.profile +++| ABT1 BX6 X6-X6 CLEAR K-DISPLAY 04403 M00S03819.profile +++| SA6 DSA+1 04404 M00S03820.profile +++| RECALL N 04405 M00S03821.profile +++| RETURN P 04406 M00S03822.profile +++| RETURN N
| Line S03823 Modification History | |
|---|---|
M01 (Removed by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 04407 M01S03823.ns2417 ---| ABT2 WRITER O,R 04408 M01S03824.ns2417 ---| SETFS X2,0 SET ID CODE
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 04409 M01S00031.ns2417 +++| RJ COB CHECK OUTPUT FILE BUFFER 04410 M00S03825.profile +++| RJ CAF CHECK ALTERNATE FAMILY 04411 M00S03826.profile +++| ABORT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | profi9 |
Seq # *Modification Id* Act ----------------------------+ 04412 M01S00004.profi9 +++| 04413 M01S00005.profi9 +++| ABT3 SX2 EBUF 04414 M01S00006.profi9 +++| EQ ABT ISSUE *PFM* ERROR MESSAGE AND ABORT 04415 M00S03827.profile +++| TOV SPACE 4 04416 M00S03828.profile +++|** TOV - TABLE OVERFLOW. 04417 M00S03829.profile +++|* 04418 M00S03830.profile +++|* ENTRY FROM *ATS* ONLY. 04419 M00S03831.profile +++|* (B6) = EXIT ADDRESS IN *COMCMTP* TO CONTINUE 04420 M00S03832.profile +++|* PROCESSING. 04421 M00S03833.profile +++|* 04422 M00S03834.profile +++|* EXIT TO (B6).
| Line S03835 Modification History | |
|---|---|
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04423 M01S03835.ns2290 ---|* FIELD LENGTH INCREASED BY 1000B WORDS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04424 M01S00001.ns2290 +++|* FIELD LENGTH INCREASED BY *FLIN* WORDS. 04425 M00S03836.profile +++|* (TV) .NE. 0, IF FIELD LENGTH LIMIT REACHED. 04426 M00S03837.profile +++|*
| Line S03838 Modification History | |
|---|---|
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04427 M01S03838.ns2290 ---|* USES A - 3, 6. 04428 M01S03839.ns2290 ---|* X - 3, 4, 6.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04429 M01S00002.ns2290 +++|* USES X - 3, 4, 6. 04430 M01S00003.ns2290 +++|* A - 3, 4, 6. 04431 M00S03840.profile +++|* 04432 M00S03841.profile +++|* MACROS MEMORY. 04433 M00S03842.profile +++| 04434 M00S03843.profile +++| 04435 M00S03844.profile +++| TOV BSS 0 ENTRY
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04436 M01S00004.ns2290 +++| SA4 FLM MAXIMUM FIELD LENGTH 04437 M00S03845.profile +++| SA3 ML CURRENT FIELD LENGTH
| Line S03846 Modification History | |
|---|---|
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04438 M01S03846.ns2290 ---| SX3 X3+1000B 04439 M01S03847.ns2290 ---| SX4 X3-FLLM LIMIT FIELD LENGTH
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04440 M01S00005.ns2290 +++| SX3 X3+FLIN 04441 M01S00006.ns2290 +++| IX4 X3-X4 LIMIT FIELD LENGTH 04442 M00S03848.profile +++| NG X4,TOV1 IF ADEQUATE FIELD LENGTH 04443 M00S03849.profile +++| SX6 B1 INDICATE OVERFLOW 04444 M00S03850.profile +++| SA6 TV 04445 M00S03851.profile +++| TOV1 MEMORY CM,TOVB,R,X3 04446 M00S03852.profile +++| SA3 TOVB GET FIELD LENGTH ASSIGNED 04447 M00S03853.profile +++| AX3 30 04448 M00S03854.profile +++| BX6 X3 04449 M00S03855.profile +++| SA6 ML SET NEW FIELD LENGTH 04450 M00S03856.profile +++| SX6 X6-10B 04451 M00S03857.profile +++| SA6 F.TEND ADJUST TABLE LENGTH 04452 M00S03858.profile +++| JP B6 EXIT 04453 M00S03859.profile +++| 04454 M00S03860.profile +++|
| Line S03861 Modification History | |
|---|---|
M01 (Removed by) | ns2290 |
Seq # *Modification Id* Act ----------------------------+ 04455 M01S03861.ns2290 ---| TO CON TOV 04456 M00S03862.profile +++| TOVB CON 0 FIELD LENGTH STATUS RETURN 04457 M00S03863.profile +++| HDR SPACE 4 04458 M00S03864.profile +++|** HDR - WRITE HEADER. 04459 M00S03865.profile +++|* 04460 M00S03866.profile +++|* ENTRY NONE. 04461 M00S03867.profile +++|* 04462 M00S03868.profile +++|* EXIT HEADER LINES WRITTEN TO OUTPUT FILE. 04463 M00S03869.profile +++|* (X2) = OUTPUT FILE FET ADDRESS. 04464 M00S03870.profile +++|* 04465 M00S03871.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5 AND X5. 04466 M00S03872.profile +++|* 04467 M00S03873.profile +++|* CALLS CDD, SFN. 04468 M00S03874.profile +++|* 04469 M00S03875.profile +++|* MACROS WRITEH, WRITEW. 04470 M00S03876.profile +++| 04471 M00S03877.profile +++| 04472 M00S03878.profile +++| HDR5 SA7 PGLC DISABLE FURTHER PAGING 04473 M00S03879.profile +++| ZR X1,HDRX IF TERMINAL OUTPUT 04474 M00S03880.profile +++| SA3 HDRL 04475 M00S03881.profile +++| SA1 CCDR+8 04476 M00S03882.profile +++| BX6 X3
| Line S03883 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04477 M01S03883.v23l617 ---| HDR6 SA1 A1-B1 BLANK FILL CONTROL CARD IMAGE
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04478 M01S00200.v23l617 +++| HDR6 SA1 A1-B1 BLANK FILL COMMAND IMAGE 04479 M00S03884.profile +++| SA6 A1
| Line S03885 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04480 M01S03885.v23l617 ---| ZR X1,HDR6 IF NOT END OF CONTROL CARD 04481 M01S03886.v23l617 ---| RJ SFN BLANK FILL LAST WORD OF CONTROL CARD
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04482 M01S00201.v23l617 +++| ZR X1,HDR6 IF NOT END OF COMMAND 04483 M01S00202.v23l617 +++| RJ SFN BLANK FILL LAST WORD OF COMMAND 04484 M00S03887.profile +++| SA6 A1 04485 M00S03888.profile +++| WRITEW O,HDRK,B1 WRITE PAGE EJECT
| Line S03889 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04486 M01S03889.v23l617 ---| WRITEW X2,CCDR,8 WRITE CONTROL STATEMENT
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04487 M01S00203.v23l617 +++| WRITEW X2,CCDR,8 WRITE COMMAND 04488 M00S03890.profile +++| WRITEH X2,HDRH,B1+B1 WRITE DATE AND TIME 04489 M00S03891.profile +++| HDR7 WRITEH X2,HDRL,B1 WRITE BLANK LINE 04490 M00S03892.profile +++| 04491 M00S03893.profile +++| HDR SUBR ENTRY/EXIT 04492 M00S03894.profile +++| SA3 OP CHECK FOR LIST OPTION 04493 M00S03895.profile +++| SA1 PO CHECK FOR TERMINAL OUTPUT 04494 M00S03896.profile +++| SX3 X3-LOPT 04495 M00S03897.profile +++| SX7 -1 04496 M00S03898.profile +++| NZ X3,HDR5 IF NOT LIST OPTION 04497 M00S03899.profile +++| NZ X1,HDR1 IF NOT TERMINAL OUTPUT 04498 M00S03900.profile +++| MX6 6 04499 M00S03901.profile +++| SA1 HDRA 04500 M00S03902.profile +++| BX6 -X6*X1 04501 M00S03903.profile +++| SA2 =1L 04502 M00S03904.profile +++| BX6 X6+X2 04503 M00S03905.profile +++| SA6 A1 04504 M00S03906.profile +++| SA7 PGLC DISABLE FURTHER PAGING 04505 M00S03907.profile +++| 04506 M00S03908.profile +++| HDR1 WRITEW O,HDRA,B1 04507 M00S03909.profile +++| SA4 LO 04508 M00S03910.profile +++| SX2 HDRB 04509 M00S03911.profile +++| SX1 X4-CSLO 04510 M00S03912.profile +++| ZR X1,HDR2 IF CHARGE NUMBER LIST 04511 M00S03913.profile +++| SX1 X4-CMLO 04512 M00S03914.profile +++| ZR X1,HDR2 IF MASTER USER CHARGE NUMBER LIST 04513 M00S03915.profile +++| SX2 HDRC 04514 M00S03916.profile +++| SX1 X4-PSLO 04515 M00S03917.profile +++| ZR X1,HDR2 IF PROJECT NUMBER LIST 04516 M00S03918.profile +++| SX1 X4-PMLO 04517 M00S03919.profile +++| ZR X1,HDR2 IF MASTER USER PROJECT NUMBER LIST 04518 M00S03920.profile +++| SX2 HDRD 04519 M00S03921.profile +++| 04520 M00S03922.profile +++| HDR2 WRITEW O,X2,B1+B1 04521 M00S03923.profile +++| SA4 LO 04522 M00S03924.profile +++| SX2 HDRE 04523 M00S03925.profile +++| SX1 X4-FMLO 04524 M00S03926.profile +++| PL X1,HDR3 IF MASTER USER OPTION 04525 M00S03927.profile +++| SX2 HDRF 04526 M00S03928.profile +++| 04527 M00S03929.profile +++| HDR3 WRITEW O,X2,3 04528 M00S03930.profile +++| SA2 PO 04529 M00S03931.profile +++| ZR X2,HDR4 IF TERMINAL FILE 04530 M00S03932.profile +++| SA1 HDRJ PAGE NUMBER 04531 M00S03933.profile +++| SX6 X1+B1 04532 M00S03934.profile +++| SA6 A1 04533 M00S03935.profile +++| RJ CDD 04534 M00S03936.profile +++| MX4 -36 04535 M00S03937.profile +++| SA2 =4LPAGE 04536 M00S03938.profile +++| BX6 -X4*X6 04537 M00S03939.profile +++| BX6 X6+X2 04538 M00S03940.profile +++| SA6 HDRI 04539 M00S03941.profile +++| 04540 M00S03942.profile +++| HDR4 WRITEH O,HDRI,B1 04541 M00S03943.profile +++| WRITEH X2,HDRG,7 04542 M00S03944.profile +++| EQ HDR7 WRITE BLANK LINE 04543 M00S03945.profile +++| 04544 M00S03946.profile +++| 04545 M00S03947.profile +++| HDRA DIS 1,1 "PPFN" 04546 M00S03948.profile +++| HDRB DIS 2,CHARGE NUMBER LIST 04547 M00S03949.profile +++| HDRC DIS 2,PROJECT NUMBER LIST 04548 M00S03950.profile +++| HDRD DIS 2,FULL FILE LIST 04549 M00S03951.profile +++| HDRE DIS 3,OF MASTER USER 04550 M00S03952.profile +++| HDRF DIS 2,OF FULL FILE. 04551 M00S03953.profile +++| HDRG DIS 5, CHARGE NUMBER MASTER USER 04552 M00S03954.profile +++| HDRH BSSZ 2 DATE AND TIME 04553 M00S03955.profile +++| HDRI CON 0 04554 M00S03956.profile +++| HDRJ CON 1 PAGE NUMBER 04555 M00S03957.profile +++| HDRK CON 1H1 04556 M00S03958.profile +++| HDRL CON 10H 04557 M00S03959.profile +++| WOL SPACE 4 04558 M00S03960.profile +++|** WOL - WRITE OUTPUT LINE. 04559 M00S03961.profile +++|* 04560 M00S03962.profile +++|* ENTRY (X2) ADDRESS OF FET FOR FILE. 04561 M00S03963.profile +++|* (B6) FWA OF WORKING BUFFER. 04562 M00S03964.profile +++|* (B7) WORD COUNT OF WORKING BUFFER. 04563 M00S03965.profile +++|* IF (B7) = 0, NO TRANSFER WILL BE PERFORMED. 04564 M00S03966.profile +++|* 04565 M00S03967.profile +++|* EXIT (X2) ADDRESS OF FET FOR FILE. 04566 M00S03968.profile +++|* NEW HEADER WRITTEN IF END OF PAGE. 04567 M00S03969.profile +++|* 04568 M00S03970.profile +++|* CALLS HDR, WTH. 04569 M00S03971.profile +++|* 04570 M00S03972.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5 AND X5. 04571 M00S03973.profile +++| 04572 M00S03974.profile +++| 04573 M00S03975.profile +++| WOL SUBR ENTRY/EXIT 04574 M00S03976.profile +++| SX3 X2-O 04575 M00S03977.profile +++| NZ X3,WOL1 IF NOT OUTPUT FILE 04576 M00S03978.profile +++| SA1 PGLC 04577 M00S03979.profile +++| NG X1,WOL1 IF PAGING DISABLED 04578 M00S03980.profile +++| SX6 X1+B1 INCREMENT LINE COUNT
| Line S03981 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04579 M01S03981.ns22000 ---| SX4 X1-LINP+3
| Line S00239 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04580 M01S00239.ns22000 +++| SA4 A1+B1 GET LINE LIMIT 04581 M01S00240.ns22000 +++| IX4 X1-X4 04582 M00S03982.profile +++| SA6 A1 04583 M00S03983.profile +++| NG X4,WOL1 IF NOT END OF PAGE
| Line S03984 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 04584 M01S03984.ns22000 ---| SX6 B1 RESET LINE COUNTER 04585 M01S03985.ns22000 ---| SA6 A1 04586 M01S03986.ns22000 ---| SX7 B6 SAVE REGISTERS 04587 M01S03987.ns22000 ---| SX6 B7 04588 M01S03988.ns22000 ---| SA7 WOLA
| Line S00241 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03989.profile +++| SA6 A7+B1 04595 M00S03990.profile +++| RJ HDR WRITE HEADER 04596 M00S03991.profile +++| SA3 WOLA RESTORE REGISTERS 04597 M00S03992.profile +++| SA4 A3+B1 04598 M00S03993.profile +++| SB6 X3 04599 M00S03994.profile +++| SB7 X4 04600 M00S03995.profile +++| WOL1 WRITEH X2,B6,B7 04601 M00S03996.profile +++| EQ WOLX RETURN 04602 M00S03997.profile +++| 04603 M00S03998.profile +++| WOLA BSSZ 2 HOLD AREA FOR REGISTERS 04604 M00S03999.profile +++| CAF SPACE 4 04605 M00S04000.profile +++|** CAF - CHECK ALTERNATE FAMILY. 04606 M00S04001.profile +++|* 04607 M00S04002.profile +++|* EXIT (X6) .NE. 0, IF FAMILY NAME CHANGE NOT ALLOWED. 04608 M00S04003.profile +++|* FAMILY NAME SET TO (FN) IF (FN) .NE. -1 AND JOB 04609 M00S04004.profile +++|* IS FROM SYSTEM ORIGIN.
| Line S04005 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04610 M01S04005.v23l617 ---|* TO ABT, IF ILLEGAL FAMILY NAME SPECIFIED.
| Line S00204 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04611 M01S00204.v23l617 +++|* TO *ABT*, IF INCORRECT FAMILY NAME SPECIFIED. 04612 M00S04006.profile +++|* 04613 M00S04007.profile +++|* USES A - 1,2,6. 04614 M00S04008.profile +++|* B - NONE. 04615 M00S04009.profile +++|* X - 1,2,6. 04616 M00S04010.profile +++|* 04617 M00S04011.profile +++|* CALLS CPM,ABT. 04618 M00S04012.profile +++| 04619 M00S04013.profile +++| 04620 M00S04014.profile +++| CAF SUBR ENTRY/EXIT 04621 M00S04015.profile +++| SA1 FN 04622 M00S04016.profile +++| MX6 59 04623 M00S04017.profile +++| BX6 X1-X6 04624 M00S04018.profile +++| ZR X6,CAFX IF FAMILY NOT SPECIFIED 04625 M00S04019.profile +++| SA1 OT 04626 M00S04020.profile +++| SX6 X1-SYOT 04627 M00S04021.profile +++| NZ X6,CAFX IF NOT SYSTEM ORIGIN 04628 M00S04022.profile +++| ENFAM FN 04629 M00S04023.profile +++| SA1 FN 04630 M00S04024.profile +++| MX6 -18 04631 M00S04025.profile +++| BX6 X6*X1 04632 M00S04026.profile +++| LX1 59-11 04633 M00S04027.profile +++| SX2 =C* FM NOT LEGAL FAMILY.* 04634 M00S04028.profile +++| PL X1,CAF1 IF FAMILY CHANGED 04635 M00S04029.profile +++| MX6 59 04636 M00S04030.profile +++| SA6 A1 04637 M00S04031.profile +++| EQ ABT 04638 M00S04032.profile +++| 04639 M00S04033.profile +++| CAF1 SA6 A1 SET OLD FAMILY NAME 04640 M00S04034.profile +++| BX6 X6-X6 04641 M00S04035.profile +++| EQ CAFX RETURN 04642 M00S04036.profile +++| ADB SPACE 4,10 04643 M00S04037.profile +++|** ADB - ADD DATA LEVEL BLOCK TO TABLE 3. 04644 M00S04038.profile +++|* 04645 M00S04039.profile +++|* ENTRY (X7) = RANDOM ADDRESS OF BLOCK TO READ. 04646 M00S04040.profile +++|* (X0) = FET ADDRESS TO READ FROM. 04647 M00S04041.profile +++|* (CN) = CHARGE NUMBER. 04648 M00S04042.profile +++|* (PN - PN+1) = PROJECT NUMBER. 04649 M00S04043.profile +++|* 04650 M00S04044.profile +++|* EXIT (A5) = FWA OF LEVEL-3 ENTRY. 04651 M00S04045.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY. 04652 M00S04046.profile +++|* 04653 M00S04047.profile +++|* CALLS CEP, RDB. 04654 M00S04048.profile +++|* 04655 M00S04049.profile +++|* USES ALL REGISTERS. 04656 M00S04050.profile +++| 04657 M00S04051.profile +++| 04658 M00S04052.profile +++| ADB2 SX6 B2+ SET TABLE 3 INDEX OF ENTRY 04659 M00S04053.profile +++| SA6 T3IE 04660 M00S04054.profile +++| 04661 M00S04055.profile +++| ADB SUBR ENTRY/EXIT 04662 M00S04056.profile +++| BX6 X6-X6 EMPTY TABLE 3 04663 M00S04057.profile +++| SA6 L.TAB3 04664 M00S04058.profile +++| RJ RDB READ DATA LEVEL BLOCK 04665 M00S04059.profile +++| SA3 F.TAB3 04666 M00S04060.profile +++| MX4 -12 04667 M00S04061.profile +++| SB2 B0 04668 M00S04062.profile +++| ADB1 SA5 X3+B2 ENTRY,S CONTROL WORD 04669 M00S04063.profile +++| LX5 12 04670 M00S04064.profile +++| BX6 -X4*X5 04671 M00S04065.profile +++| SX6 X6-3 04672 M00S04066.profile +++| NZ X6,ERD19 IF NOT LEVEL-3 BLOCK 04673 M00S04067.profile +++| LX5 12 ENTRY,S WORD POINTER 04674 M00S04068.profile +++| BX6 -X4*X5 04675 M00S04069.profile +++| RJ CEP CHECK ENTRY,S PROJECT NUMBER 04676 M00S04070.profile +++| ZR X2,ADB2 IF ENTRY FOUND 04677 M00S04071.profile +++| ZR X6,ERD20 IF ENTRY NOT IN BLOCK 04678 M00S04072.profile +++| SB2 B2+X6 04679 M00S04073.profile +++| SX6 B2-PRUS 04680 M00S04074.profile +++| NG X6,ADB1 IF NO ERROR 04681 M00S04075.profile +++| JP ERD21 04682 M00S04076.profile +++| AUN SPACE 4,10
| Line S04077 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04683 M01S04077.v23l617 ---|** AUN - ADD USER NUMBER.
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04684 M01S00205.v23l617 +++|** AUN - ADD USER NAME. 04685 M00S04078.profile +++|* 04686 M00S04079.profile +++|* IF NECESSARY, ANOTHER LEVEL-3 OVERFLOW BLOCK IS ALLOCATED. 04687 M00S04080.profile +++|*
| Line S04081 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04688 M01S04081.v23l617 ---|* ENTRY (X1) = USER NUMBER TO ADD (RIGHT JUSTIFIED,
| Line S00206 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04689 M01S00206.v23l617 +++|* ENTRY (X1) = USER NAME TO ADD (RIGHT JUSTIFIED, 04690 M00S04082.profile +++|* WITH LEADING ZEROS). 04691 M00S04083.profile +++|* 04692 M00S04084.profile +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 04693 M00S04085.profile +++|* B - 2, 3. 04694 M00S04086.profile +++|* X - 1, 2, 3, 4, 5, 6, 7. 04695 M00S04087.profile +++|* 04696 M00S04088.profile +++|* CALLS GES, NUE. 04697 M00S04089.profile +++|* 04698 M00S04090.profile +++|* MACROS ALLOC. 04699 M00S04091.profile +++| 04700 M00S04092.profile +++|
| Line S04093 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04701 M01S04093.v23l617 ---| AUN7 SB3 ERUP **** DUPLICATE USER NUMBER.
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04702 M01S00207.v23l617 +++| AUN7 SB3 ERUP **** DUPLICATE USER NAME. 04703 M00S04094.profile +++| AUN8 RJ ERU USER ERROR 04704 M00S04095.profile +++| 04705 M00S04096.profile +++| AUN SUBR ENTRY/EXIT
| Line S04097 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04706 M01S04097.v23l617 ---| BX6 X1 SEARCH FOR USER NUMBER
| Line S00208 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04707 M01S00208.v23l617 +++| BX6 X1 SEARCH FOR USER NAME 04708 M00S04098.profile +++| LX6 18 04709 M00S04099.profile +++| SA6 UNUM 04710 M00S04100.profile +++| BX6 X6-X6 CLEAR FIRST HOLE INDEX 04711 M00S04101.profile +++| SA6 AUNB 04712 M00S04102.profile +++| SX1 B1
| Line S04103 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04713 M01S04103.v23l617 ---| AUN1 RJ NUE NEXT USER NUMBER ENTRY
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04714 M01S00209.v23l617 +++| AUN1 RJ NUE NEXT USER NAME ENTRY 04715 M00S04104.profile +++| NZ B2,AUN4 IF END OF LEVEL-3 CHAIN 04716 M00S04105.profile +++| MX2 42 04717 M00S04106.profile +++| BX2 X2*X1 04718 M00S04107.profile +++| ZR X2,AUN2 IF HOLE 04719 M00S04108.profile +++| SA2 UNUM 04720 M00S04109.profile +++| BX2 X1-X2
| Line S04110 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04721 M01S04110.v23l617 ---| ZR X2,AUN7 IF USER NUMBER ALREADY PRESENT
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04722 M01S00210.v23l617 +++| ZR X2,AUN7 IF USER NAME ALREADY PRESENT 04723 M00S04111.profile +++| BX1 X1-X1 04724 M00S04112.profile +++| EQ AUN1 LOOP 04725 M00S04113.profile +++| 04726 M00S04114.profile +++| AUN2 SA2 AUNB SAVE INDEX OF FIRST HOLE 04727 M00S04115.profile +++| NZ X2,AUN3 IF ALREADY HAVE A HOLE 04728 M00S04116.profile +++| SA3 F.TAB3 04729 M00S04117.profile +++| SB2 X3 04730 M00S04118.profile +++| SX7 A1-B2 04731 M00S04119.profile +++| SA7 A2 04732 M00S04120.profile +++| AUN3 ZR X1,AUN1 IF NOT END OF LIST 04733 M00S04121.profile +++| 04734 M00S04122.profile +++| AUN4 SA1 AUNB 04735 M00S04123.profile +++| SA2 F.TAB3 04736 M00S04124.profile +++| IX3 X1+X2 04737 M00S04125.profile +++| NZ X1,AUN6 IF HOLE EXISTS 04738 M00S04126.profile +++| SA5 L.TAB3 ALLOCATE NEW OVERFLOW BLOCK 04739 M00S04127.profile +++| ALLOC TAB3,PRUS 04740 M00S04128.profile +++| IX3 X2+X5 04741 M00S04129.profile +++| SA4 =2LOV CONTROL WORD 04742 M00S04130.profile +++| BX6 X4 04743 M00S04131.profile +++| SA6 X3 04744 M00S04132.profile +++| SB2 PRUS-1 INITIALIZE REST OF NEW BLOCK (WITH 1) 04745 M00S04133.profile +++| SX6 B1 04746 M00S04134.profile +++| AUN5 SA6 A6+B1 04747 M00S04135.profile +++| SB2 B2-B1 04748 M00S04136.profile +++| NZ B2,AUN5 IF MORE WORDS IN BLOCK 04749 M00S04137.profile +++| SX3 X3+B1 04750 M00S04138.profile +++|
| Line S04139 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04751 M01S04139.v23l617 ---| AUN6 SA4 UNUM PLACE USER NUMBER IN HOLE
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04752 M01S00211.v23l617 +++| AUN6 SA4 UNUM PLACE USER NAME IN HOLE 04753 M00S04140.profile +++| BX7 X4
| Line S04141 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04754 M01S04141.v23l617 ---| SA5 T3IE INCREMENT USER NUMBER COUNT FIELD
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04755 M01S00212.v23l617 +++| SA5 T3IE INCREMENT USER NAME COUNT FIELD 04756 M00S04142.profile +++| IX1 X2+X5 04757 M00S04143.profile +++| SA2 X1 04758 M00S04144.profile +++| LX2 -24 04759 M00S04145.profile +++| MX5 -12 04760 M00S04146.profile +++| BX4 -X5*X2 04761 M00S04147.profile +++| SX4 X4+B1 04762 M00S04148.profile +++| BX6 X5*X4
| Line S04149 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04763 M01S04149.v23l617 ---| SB3 ERUT **** USER NUMBER LIMIT.
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04764 M01S00213.v23l617 +++| SB3 ERUT **** USER NAME LIMIT. 04765 M00S04150.profile +++| NZ X6,AUN8 IF FIELD OVERFLOW 04766 M00S04151.profile +++| SA7 X3 04767 M00S04152.profile +++| BX2 X5*X2 04768 M00S04153.profile +++| BX6 X2+X4 04769 M00S04154.profile +++| LX6 24 04770 M00S04155.profile +++| SA6 A2 04771 M00S04156.profile +++| EQ AUNX 04772 M00S04157.profile +++| 04773 M00S04158.profile +++| 04774 M00S04159.profile +++| AUNB BSS 1 FIRST HOLE INDEX 04775 M00S04160.profile +++| CED SPACE 4,10 04776 M00S04161.profile +++|** CED - CONVERT ENTRY TO DISPLAY CODE. 04777 M00S04162.profile +++|* 04778 M00S04163.profile +++|* ENTRY (X5) = TABLE OF INDICES ENTRY (TOI). 04779 M00S04164.profile +++|* (X1) = FIELD,S CURRENT VALUE (RIGHT JUSTIFIED). 04780 M00S04165.profile +++|* (X4) = FIELD,S CURRENT VALUE (LEFT JUSTIFIED). 04781 M00S04166.profile +++|* 04782 M00S04167.profile +++|* EXIT (X6) = DISPLAY CODE VALUE, LEFT JUSTIFIED 04783 M00S04168.profile +++|* WITH TRAILING SPACES. 04784 M00S04169.profile +++|* (FLDV) = FIELD,S CURRENT VALUE (RIGHT JUSTIFIED, 04785 M00S04170.profile +++|* PERTINENT ONLY FOR NUMERIC DIRECTIVES). 04786 M00S04171.profile +++|* 04787 M00S04172.profile +++|* CALLS CDD, COD, SFN. 04788 M00S04173.profile +++|* 04789 M00S04174.profile +++|* USES ALL REGISTERS EXCEPT A0, X0, A5, X5. 04790 M00S04175.profile +++| 04791 M00S04176.profile +++| 04792 M00S04177.profile +++| CED2 BX1 X4 04793 M00S04178.profile +++| RJ SFN SPACE FILL NAME 04794 M00S04179.profile +++| 04795 M00S04180.profile +++| CED SUBR ENTRY/EXIT 04796 M00S04181.profile +++| BX6 X1 SAVE FIELD,S VALUE 04797 M00S04182.profile +++| SA6 FLDV 04798 M00S04183.profile +++| MX2 2 04799 M00S04184.profile +++| BX2 X2*X5 04800 M00S04185.profile +++| ZR X2,CED2 IF NO CONVERSION 04801 M00S04186.profile +++| LX2 2 04802 M00S04187.profile +++| SX2 X2-1 04803 M00S04188.profile +++| ZR X2,CED1 IF OCTAL CONVERSION 04804 M00S04189.profile +++| RJ CDD DECIMAL DISPLAY CODE CONVERSION 04805 M00S04190.profile +++| BX6 X4 04806 M00S04191.profile +++| EQ CEDX 04807 M00S04192.profile +++| 04808 M00S04193.profile +++| CED1 RJ COD OCTAL DISPLAY CODE CONVERSION 04809 M00S04194.profile +++| SB3 B2-60 INSERT *B* AFTER VALUE 04810 M00S04195.profile +++| SB3 -B3 FIRST CLEAR CHARACTER POSITION 04811 M00S04196.profile +++| MX2 6 04812 M00S04197.profile +++| LX2 B3 04813 M00S04198.profile +++| BX4 -X2*X4 04814 M00S04199.profile +++| SA2 =1LB MERGE IN *B* 04815 M00S04200.profile +++| LX2 B3 04816 M00S04201.profile +++| BX6 X2+X4 04817 M00S04202.profile +++| EQ CEDX 04818 M00S04203.profile +++| CEP SPACE 4,10 04819 M00S04204.profile +++|** CEP - CHECK ENTRY,S PROJECT NUMBER. 04820 M00S04205.profile +++|* 04821 M00S04206.profile +++|* ENTRY (A5) = FWA OF LEVEL-3 ENTRY. 04822 M00S04207.profile +++|* (CN) = CHARGE NUMBER. 04823 M00S04208.profile +++|* (PN - PN+1) = PROJECT NUMBER. 04824 M00S04209.profile +++|* 04825 M00S04210.profile +++|* EXIT (X2) = 0, IF PROJECT NUMBER MATCH. 04826 M00S04211.profile +++|* 04827 M00S04212.profile +++|* USES X - 1. 04828 M00S04213.profile +++|* A - 1, 2. 04829 M00S04214.profile +++| 04830 M00S04215.profile +++| 04831 M00S04216.profile +++| CEP SUBR ENTRY/EXIT 04832 M00S04217.profile +++| SA1 A5+PRJW ENTRY,S PROJECT NUMBER 04833 M00S04218.profile +++| SA2 PN CURRENT PROJECT NUMBER 04834 M00S04219.profile +++| BX2 X1-X2 04835 M00S04220.profile +++| NZ X2,CEPX IF NO MATCH 04836 M00S04221.profile +++| SA1 A1+B1 04837 M00S04222.profile +++| SA2 A2+B1 04838 M00S04223.profile +++| BX2 X1-X2 04839 M00S04224.profile +++| NZ X2,CEPX IF NO MATCH 04840 M00S04225.profile +++| SA1 A5+PCHW CHECK CHARGE NUMBER 04841 M00S04226.profile +++| SA2 CN 04842 M00S04227.profile +++| BX2 X1-X2 04843 M00S04228.profile +++| ZR X2,CEPX IF MATCH 04844 M00S04229.profile +++| JP ERD22 ERROR 04845 M00S04230.profile +++| CFS SPACE 4,10 04846 M00S04231.profile +++|** CFS - CHECK FILE STATUS. 04847 M00S04232.profile +++|* 04848 M00S04233.profile +++|* ENTRY (B2) = FET ADDRESS. 04849 M00S04234.profile +++|* 04850 M00S04235.profile +++|* EXIT (X2) = PFM ERROR CODE FROM FET+0, RIGHT JUSTIFIED. 04851 M00S04236.profile +++|* 04852 M00S04237.profile +++|* USES X - 1. 04853 M00S04238.profile +++|* A - 1. 04854 M00S04239.profile +++| 04855 M00S04240.profile +++| 04856 M00S04241.profile +++| CFS SUBR ENTRY/EXIT 04857 M00S04242.profile +++| SA1 B2 04858 M00S04243.profile +++| AX1 10 04859 M00S04244.profile +++| MX2 -8 04860 M00S04245.profile +++| BX2 -X2*X1 04861 M00S04246.profile +++| EQ CFSX
| Line S04247 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04862 M01S04247.ns2516 ---| CIV SPACE 4,10
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04863 M01S00001.ns2516 +++| CIV SPACE 4,35 04864 M00S04248.profile +++|** CIV - CONVERT INDEX TO VALUE. 04865 M00S04249.profile +++|* 04866 M00S04250.profile +++|* VALUE IS CALCULATED USING ONE OF THE FOLLOWING METHODS- 04867 M00S04251.profile +++|* 1) IF I = 77B, V = DEFAULT VALUE (FROM TABLE TDSM). 04868 M00S04252.profile +++|* IF I = 0, V = 0. 04869 M00S04253.profile +++|* ELSE, V = I * (U-L) / 64 + L 04870 M00S04254.profile +++|* 2) IF I = 77B, V = LARGEST POSSIBLE NUMBER. 04871 M00S04255.profile +++|* ELSE, V = (100B * I + LBAS) * 100D 04872 M00S04256.profile +++|* 3) IF I = 77B, V = LARGEST POSSIBLE NUMBER.
| Line S04257 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04873 M01S04257.ns2516 ---|* ELSE, V = (100B * I + KSLI) * 10B
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04874 M01S00002.ns2516 +++|* ELSE, USE *COMCCVI* *SLI* CONVERSION. 04875 M00S04258.profile +++|* WHERE 04876 M00S04259.profile +++|* V = VALUE. 04877 M00S04260.profile +++|* I = INDEX. 04878 M00S04261.profile +++|* U = UPPER LIMIT VALUE (FROM TABLE *TVC*). 04879 M00S04262.profile +++|* L = LOWER LIMIT VALUE (FROM TABLE *TVC*). 04880 M00S04263.profile +++|* 04881 M00S04264.profile +++|* ENTRY (X3) = INDEX TO CONVERT. 04882 M00S04265.profile +++|* (X4) = TABLE OF INDICES (TOI) ENTRY. 04883 M00S04266.profile +++|* (A4) = ADDRESS OF TABLE OF INDICES ENTRY. 04884 M00S04267.profile +++|* 04885 M00S04268.profile +++|* EXIT (X1) = CALCULATED VALUE. 04886 M00S04269.profile +++|* (X1) .LT. 0, IF UNLIMITED VALUE. 04887 M00S04270.profile +++|* (X6) = 1, IF METHOD 1 USED TO CONVERT INDEX. 04888 M00S04271.profile +++|* .NE. 1, IF METHOD 2 OR 3 USED TO CONVERT INDEX. 04889 M00S04272.profile +++|* 04890 M00S04273.profile +++|* USES X - 1, 2, 3, 4, 6, 7. 04891 M00S04274.profile +++|* B - 2. 04892 M00S04275.profile +++|* A - 1.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04893 M01S00003.ns2516 +++|* 04894 M01S00004.ns2516 +++|* CALLS SLI. 04895 M00S04276.profile +++| 04896 M00S04277.profile +++| 04897 M00S04278.profile +++| CIV2 SX1 B0+ 04898 M00S04279.profile +++| SB2 A4-TIM1 04899 M00S04280.profile +++| ZR X3,CIVX IF ZERO INDEX 04900 M00S04281.profile +++| SX7 X3-77B 04901 M00S04282.profile +++| SA1 TDSM+B2 DEFAULT VALUE 04902 M00S04283.profile +++| ZR X7,CIVX IF USE DEFAULT VALUE 04903 M00S04284.profile +++| SA2 TCSM+B2 CALCULATE MULTIPLIER 04904 M00S04285.profile +++| SX4 X2 LOWER LIMIT 04905 M00S04286.profile +++| AX2 18 04906 M00S04287.profile +++| SX7 X2 UPPER LIMIT 04907 M00S04288.profile +++| IX1 X7-X4 04908 M00S04289.profile +++| SX7 64 04909 M00S04290.profile +++| IX1 X1*X3 04910 M00S04291.profile +++| IX1 X1/X7 04911 M00S04292.profile +++| IX1 X1+X4 04912 M00S04293.profile +++| AX2 18 04913 M00S04294.profile +++| IX1 X1*X2 POSITION FOR F10.3 CONVERSION 04914 M00S04295.profile +++| 04915 M00S04296.profile +++| CIV SUBR ENTRY/EXIT 04916 M00S04297.profile +++| MX7 -2 04917 M00S04298.profile +++| LX4 4 04918 M00S04299.profile +++| BX6 -X7*X4 04919 M00S04300.profile +++| SX7 X6-1 04920 M00S04301.profile +++| ZR X7,CIV2 IF USE METHOD 1 04921 M00S04302.profile +++| SX1 -B1 04922 M00S04303.profile +++| SX7 X3-77B 04923 M00S04304.profile +++| ZR X7,CIVX IF UNLIMITED
| Line S04305 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04924 M01S04305.ns2516 ---| LX3 6 04925 M01S04306.ns2516 ---| SX4 KSLI 04926 M01S04307.ns2516 ---| SX2 10B 04927 M00S04308.profile +++| SX7 X6-3 04928 M00S04309.profile +++| ZR X7,CIV1 IF USE METHOD 3
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04929 M01S00005.ns2516 +++| LX3 6 04930 M00S04310.profile +++| SX4 LBAS 04931 M00S04311.profile +++| SX2 100D
| Line S04312 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04932 M01S04312.ns2516 ---| CIV1 IX1 X3+X4
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04933 M01S00006.ns2516 +++| IX1 X3+X4 04934 M00S04313.profile +++| IX1 X1*X2
| Line S04314 Modification History | |
|---|---|
M01 (Removed by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 04935 M01S04314.ns2516 ---| EQ CIVX
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2516 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S04315.profile +++| CPV SPACE 4,10 04945 M00S04316.profile +++|** CPV - CONVERT AND PLACE VALUES. 04946 M00S04317.profile +++|* 04947 M00S04318.profile +++|* ENTRY (X5) = FIRST ENTRY OF PERTINENT TABLE OF INDICES (TOI). 04948 M00S04319.profile +++|* (A5) = ADDRESS OF FIRST ENTRY. 04949 M00S04320.profile +++|* (T1IE) = TABLE 1 INDEX OF ENTRY, IF LEVEL-1 DIRECTIVE. 04950 M00S04321.profile +++|* (T3IE) = TABLE 3 INDEX OF ENTRY, IF LEVEL-3 DIRECTIVE. 04951 M00S04322.profile +++|* 04952 M00S04323.profile +++|* CALLS CED, DFS, GFV, PVF. 04953 M00S04324.profile +++|* 04954 M00S04325.profile +++|* USES ALL REGISTERS EXCEPT A0, X0. 04955 M00S04326.profile +++| 04956 M00S04327.profile +++|
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/profile.002.txt · Last modified: (external edit)