cdc:nos2.source:opl.opl871:deck:dmrec.002
Deck DMREC Part 002
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1753)
- Deck DMREC Part 2 (Line 3308)
- Deck DMREC Part 3 (Line 5077)
- Deck DMREC Part 4 (Line 6930)
- Deck DMREC Part 5 (Line 8588)
- Deck DMREC Part 6 (Line 10535)
- Deck DMREC Part 7 (Line 12352)
Source
Seq # *Modification Id* Act ----------------------------+ 03308 M01S02730.dmrec2 ---| SA6 B5 ZERO ENTRY
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03309 M01S00082.dmrec2 +++| NZ X6,BRT8 IF TS AND BEGIN ID DO NOT MATCH
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03310 M02S00083.ns2023 ---| SA1 BRTI 03311 M02S00084.ns2023 ---| ZR X1,BRT9.1 IF NOT BRF CEASE 03312 M02S00085.ns2023 ---| MX6 0 03313 M02S00086.ns2023 ---| SA6 BRTI RESET BRF CEASE FLAG 03314 M02S00087.ns2023 ---| EQ BRT2 CONTINUE 03315 M02S00088.ns2023 ---| 03316 M02S00089.ns2023 ---| BRT9.1 SA6 B5 ZERO ENTRY 03317 M02S00090.ns2023 ---|
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03318 M01S00077.ns2023 +++| SA6 B5 ZERO ENTRY 03319 M00S02731.dmrec +++| EQ BRT2 RETURN FOR NEXT RECORD 03320 M00S02732.dmrec +++|
| Line S02733 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03321 M01S02733.ns2023 ---|* PROCESS NEXT LONG RECOVERY FILE.
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03322 M01S00078.ns2023 +++|* PROCESS NEXT AFTER IMAGE RECOVERY FILE. 03323 M00S02734.dmrec +++|
| Line S02735 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03324 M01S02735.dmrec2 ---| BRT10 SA2 TVSN
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03325 M01S00091.dmrec2 +++| BRT10 RETURN TP,R
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03326 M02S00092.ns2023 ---| SA1 QRFFLG
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03327 M01S00079.ns2023 +++| SA1 BRFFLG
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03328 M01S00093.dmrec2 +++| PL X1,BRT10.1 IF NOT BRF RECOVERY 03329 M01S00094.dmrec2 +++| SA2 TVSN 03330 M00S02736.dmrec +++| MX0 36 03331 M00S02737.dmrec +++| BX6 X0*X2 03332 M00S02738.dmrec +++| LX6 36 03333 M00S02739.dmrec +++| SA1 FILLER 03334 M00S02740.dmrec +++| BX6 X6+X1 03335 M00S02741.dmrec +++| SA6 EVSN SET KEY 03336 M00S02742.dmrec +++| RJ ACF ATTACH DIRECTORY 03337 M00S02743.dmrec +++| OPENM DIRR 03338 M00S02744.dmrec +++| RMGET DIRR,XXBUF,0,,EVSN 03339 M00S02745.dmrec +++| RJ FER CHECK FIT ERROR 03340 M00S02746.dmrec +++| NZ X1,BRT16 IF ERROR
| Line S02747 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03341 M01S02747.dmrec2 ---| RETURN TP,R 03342 M01S02748.dmrec2 ---| SA2 XXBUF+2 03343 M01S02749.dmrec2 ---| ZR X2,BRT11 IF NO MORE *LRF-S*
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03344 M01S00095.dmrec2 +++| SA2 XXBUF+2 03345 M01S00096.dmrec2 +++| ZR X2,BRT11 IF NO MORE ARF-S CONTINUATION TAPES 03346 M00S02750.dmrec +++| BX6 X2
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03347 M01S00097.dmrec2 +++| SX7 TVSN 03348 M01S00098.dmrec2 +++| SA6 TVSN 03349 M01S00099.dmrec2 +++| SA7 IVSN 03350 M00S02751.dmrec +++| EQ BRT1 CONTINUE 03351 M00S02752.dmrec +++|
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03352 M01S00100.dmrec2 +++| BRT10.1 SA2 IVSN 03353 M01S00101.dmrec2 +++| SA1 X2 03354 M01S00102.dmrec2 +++| NZ X1,BRT1 IF MORE VSN-S 03355 M00S02753.dmrec +++|* TABLE *FTAB* BUILT. NOW BUILD IGNORE TABLE *TTIG*. 03356 M00S02754.dmrec +++| 03357 M00S02755.dmrec +++| BRT11 SB2 TTIG 03358 M00S02756.dmrec +++| SB3 FTAB
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03359 M01S00103.dmrec2 +++| BRT11.1 SA3 B2 03360 M01S00104.dmrec2 +++| ZR X3,BRT12 CONTINUE 03361 M01S00105.dmrec2 +++| SB2 B2+2 03362 M01S00106.dmrec2 +++| EQ BRT11.1 CHECK NEXT ENTRY 03363 M01S00107.dmrec2 +++| 03364 M00S02757.dmrec +++| BRT12 SA1 B3 03365 M00S02758.dmrec +++| NG X1,BRT15 IF NO MORE TS 03366 M00S02759.dmrec +++| NZ X1,BRT14 IF LEGAL TS 03367 M00S02760.dmrec +++| BRT13 SB3 B3+2 03368 M00S02761.dmrec +++| EQ BRT12 GET NEXT ENTRY 03369 M00S02762.dmrec +++| 03370 M00S02763.dmrec +++| BRT14 SB4 TTIG+TTIGL 03371 M00S02764.dmrec +++| EQ B4,B2,BRT20 IF *TTIG* OVERFLOW 03372 M00S02765.dmrec +++| SA1 A1+B1 GET TS FROM *FTAB* 03373 M00S02766.dmrec +++| SX7 2RTS 03374 M00S02767.dmrec +++| MX0 24 03375 M00S02768.dmrec +++| BX0 X0*X1 03376 M00S02769.dmrec +++| BX6 X7+X0 03377 M00S02770.dmrec +++| SA6 B2 ENTER *TTIG* 03378 M00S02771.dmrec +++| MX0 30 03379 M00S02772.dmrec +++| BX6 -X0*X1 03380 M00S02773.dmrec +++| SA6 A6+B1 SAVE BEGIN ID IN *TTIG* 03381 M00S02774.dmrec +++| SB2 B2+2 03382 M00S02775.dmrec +++| EQ BRT13 GET NEXT ENTRY 03383 M00S02776.dmrec +++| 03384 M00S02777.dmrec +++| BRT15 SX7 B0 03385 M00S02778.dmrec +++| SA7 B2 END TABLE *TTIG*
| Line S02779 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03386 M01S02779.ns2023 ---| SA1 IIQRF 03387 M01S02780.ns2023 ---| SA7 X1 END TABLE *TTQRF*
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03388 M01S00080.ns2023 +++| SA1 IIBRF 03389 M01S00081.ns2023 +++| SA7 X1 END TABLE *TTBRF* 03390 M00S02781.dmrec +++| CLOSEM DIRR,U 03391 M00S02782.dmrec +++| SX1 B0 03392 M00S02783.dmrec +++| EQ BRTX EXIT NORMAL 03393 M00S02784.dmrec +++| 03394 M00S02785.dmrec +++| BRTA BSSZ 2 KEY FOR DB HEADER 03395 M00S02786.dmrec +++| 03396 M00S02787.dmrec +++| BRT16 ERROR BRTB,,,BRTX,,E ERROR IN BUILDING RECOVERY TABLES 03397 M00S02788.dmrec +++| 03398 M00S02789.dmrec +++| BRT17 ERROR BLTC,,,BRTX,,E ARF HEADER ERROR 03399 M00S02790.dmrec +++| 03400 M00S02791.dmrec +++| BRT18 ERROR BRTD,,,BRTX,,E DATA BLOCK BUFFER OVERFLOW 03401 M00S02792.dmrec +++| 03402 M00S02793.dmrec +++| BRT19 ERROR BRTE,,,BRTX,,E INTERMEDIATE IGNORE TABLE OVERFLOW 03403 M00S02794.dmrec +++| 03404 M00S02795.dmrec +++| BRT20 ERROR BRTF,,,BRTX,,E IGNORE TABLE OVERFLOW 03405 M00S02796.dmrec +++| 03406 M00S02797.dmrec +++| BRT21 ERROR BRTG,,,BRTX,,E DOWNED BRF TABLE OVERFLOW 03407 M00S02798.dmrec +++| 03408 M00S02799.dmrec +++| BRT22 ERROR UPDC,,,BRTX,,E DMREC TAPE LABEL ERROR 03409 M00S02800.dmrec +++| 03410 M00S02801.dmrec +++| BRTB DATA 20H0 ***** 03411 M00S02802.dmrec +++| DATA C*ERROR IN BUILDING RECOVERY TABLES.* 03412 M00S02803.dmrec +++| BRTBL EQU *-BRTB 03413 M00S02804.dmrec +++| 03414 M00S02805.dmrec +++| BRTD DATA 20H0 ***** 03415 M00S02806.dmrec +++| DATA C*DATA BLOCK BUFFER OVERFLOW.* 03416 M00S02807.dmrec +++| BRTDL EQU *-BRTD 03417 M00S02808.dmrec +++| 03418 M00S02809.dmrec +++| BRTE DATA 20H0 ***** 03419 M00S02810.dmrec +++| DATA C*INTERMEDIATE IGNORE TABLE OVERFLOW.* 03420 M00S02811.dmrec +++| BRTEL EQU *-BRTE 03421 M00S02812.dmrec +++| 03422 M00S02813.dmrec +++| BRTF DATA 20H0 ***** 03423 M00S02814.dmrec +++| DATA C*IGNORE TABLE OVERFLOW.* 03424 M00S02815.dmrec +++| BRTFL EQU *-BRTF 03425 M00S02816.dmrec +++| 03426 M00S02817.dmrec +++| BRTG DATA 20H0 ***** 03427 M00S02818.dmrec +++| DATA C*DOWNED BRF TABLE OVERFLOW.* 03428 M00S02819.dmrec +++| BRTGL EQU *-BRTG
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 03429 M01S00108.dmrec2 +++| BRTH BSSZ 1 BRF FLAG 03430 M01S00109.dmrec2 +++| BRTI BSSZ 1 BRF CEASE FLAG 03431 M01S00110.dmrec2 +++| BRTJ BSSZ 1 NEXT ARF DUMP TAPE
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03432 M02S00111.ns2023 ---| BRTK BSSZ 1 CEASE FLAG 03433 M00S02820.dmrec +++| BSB SPACE 4,10 03434 M00S02821.dmrec +++|** BSB - BLANK FILL STRING BUFFER. 03435 M00S02822.dmrec +++|* 03436 M00S02823.dmrec +++|* ENTRY NONE. 03437 M00S02824.dmrec +++|* 03438 M00S02825.dmrec +++|* EXIT (OLWS) = BLANK FILLED. 03439 M00S02826.dmrec +++|* 03440 M00S02827.dmrec +++|* USES X - 7. 03441 M00S02828.dmrec +++|* A - 7. 03442 M00S02829.dmrec +++|* B - 6, 7. 03443 M00S02830.dmrec +++| 03444 M00S02831.dmrec +++| 03445 M00S02832.dmrec +++| BSB SUBR ENTRY/EXIT 03446 M00S02833.dmrec +++| SX7 1R 03447 M00S02834.dmrec +++| SB7 OLWS+OLWSL 03448 M00S02835.dmrec +++| SB6 OLWS 03449 M00S02836.dmrec +++| BSB1 SA7 B6 03450 M00S02837.dmrec +++| SB6 B6+B1 03451 M00S02838.dmrec +++| NE B6,B7,BSB1 IF NOT BLANK FILLED 03452 M00S02839.dmrec +++| EQ BSBX RETURN 03453 M00S02840.dmrec +++| BVT SPACE 4,25 03454 M00S02841.dmrec +++|** BVT - BUILD VSN TABLE. 03455 M00S02842.dmrec +++|* 03456 M00S02843.dmrec +++|* *BVT* WILL BUILD A TABLE OF *AFTER IMAGE* LOG DUMP TAPES 03457 M00S02844.dmrec +++|* VSN-S THAT CONTAIN ENTRIES NECESSARY FOR THE GIVEN 03458 M00S02845.dmrec +++|* DATE/TIME WINDOW. 03459 M00S02846.dmrec +++|* 03460 M00S02847.dmrec +++|* ENTRY (DATE) = DIRECTIVE BEGIN DATE. 03461 M00S02848.dmrec +++|* (TIME) = DIRECTIVE BEGIN TIME. 03462 M00S02849.dmrec +++|* (DATE1) = DIRECTIVE END DATE. 03463 M00S02850.dmrec +++|* (TIME1) = DIRECTIVE END TIME. 03464 M00S02851.dmrec +++|* 03465 M00S02852.dmrec +++|* EXIT TABLE TVSN BUILT. 03466 M00S02853.dmrec +++|* (X1) = 0 IF NO ERRORS 03467 M00S02854.dmrec +++|* (STPDT) = START PACKED DATE/TIME 03468 M00S02855.dmrec +++|* (ENPDT) = END PACKED DATE/TIME 03469 M00S02856.dmrec +++|* 03470 M00S02857.dmrec +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 03471 M00S02858.dmrec +++|* A - 2, 3, 4, 5, 6, 7. 03472 M00S02859.dmrec +++|* 03473 M00S02860.dmrec +++|* CALLS FER, PDT, UDT. 03474 M00S02861.dmrec +++|* 03475 M00S02862.dmrec +++|* MACROS ERROR, FETCH, GETN, MOVE, PDATE, RMGET, STORE. 03476 M00S02863.dmrec +++| 03477 M00S02864.dmrec +++| 03478 M00S02865.dmrec +++| BVT SUBR ENTRY/EXIT 03479 M00S02866.dmrec +++| STORE DIRR,MKL=10 03480 M00S02867.dmrec +++| SA3 XXPFN 03481 M00S02868.dmrec +++| SX2 3RBBB 03482 M00S02869.dmrec +++| BX6 X2+X3 03483 M00S02870.dmrec +++| SA6 TEMPO SET KEY 03484 M00S02871.dmrec +++| RMGET DIRR,XXBUF,0,,TEMPO GET FIRST LOG DUMP ENTRY 03485 M00S02872.dmrec +++| RJ FER CHECK FIT ERROR 03486 M00S02873.dmrec +++| NZ X1,BVT18 IF ERROR 03487 M00S02874.dmrec +++| SA3 TVSN 03488 M00S02875.dmrec +++| ZR X3,BVT4 IF NO VSN GIVEN 03489 M00S02876.dmrec +++| EQ BVT2 CHECK FIRST DB DUMP ENTRY 03490 M00S02877.dmrec +++| 03491 M00S02878.dmrec +++| BVT1 GETN DIRR,XXBUF,,SKEY 03492 M00S02879.dmrec +++| FETCH DIRR,ES,X2 03493 M00S02880.dmrec +++| SX2 X2-100B 03494 M00S02881.dmrec +++| ZR X2,BVT19 IF ERROR 03495 M00S02882.dmrec +++| SA2 SKEY 03496 M00S02883.dmrec +++| SA3 TEMPO 03497 M00S02884.dmrec +++| BX2 X2-X3 03498 M00S02885.dmrec +++| NZ X2,BVT19 IF NO MORE ENTRIES (RECORD NOT FOUND) 03499 M00S02886.dmrec +++| BVT2 SA2 XXBUF+2 03500 M00S02887.dmrec +++| MX0 36 03501 M00S02888.dmrec +++| BX4 X0*X2 03502 M00S02889.dmrec +++| SA2 TVSN 03503 M00S02890.dmrec +++| BX6 X2-X4 03504 M00S02891.dmrec +++| NZ X6,BVT1 IF NOT A CORRECT VSN 03505 M00S02892.dmrec +++| 03506 M00S02893.dmrec +++|* DUMP RECORD IN XXBUF - GET DATE/TIME. THIS DATE/TIME 03507 M00S02894.dmrec +++|* WILL BE USED FOR BEGIN WINDOW. 03508 M00S02895.dmrec +++| 03509 M00S02896.dmrec +++| SA5 XXBUF+B1 03510 M00S02897.dmrec +++| BVT3 RJ UDT UNPACK D/T 03511 M00S02898.dmrec +++| SA6 STDT START DATE ( UNPACKED ) 03512 M00S02899.dmrec +++| SA7 STTM START TIME ( UNPACKED ) 03513 M00S02900.dmrec +++| EQ BVT5 CONTINUE WITH THESE STDT + STTM 03514 M00S02901.dmrec +++| 03515 M00S02902.dmrec +++| BVT4 MOVE 6,XXBUF,YYBUF 03516 M00S02903.dmrec +++| GETN DIRR,XXBUF,,SKEY 03517 M00S02904.dmrec +++| RJ FER CHECK FIT ERROR 03518 M00S02905.dmrec +++| NZ X1,BVT18 IF ERROR 03519 M00S02906.dmrec +++| SA2 SKEY 03520 M00S02907.dmrec +++| SA3 TEMPO 03521 M00S02908.dmrec +++| BX3 X2-X3 03522 M00S02909.dmrec +++| ZR X3,BVT4 IF NOT DONE 03523 M00S02910.dmrec +++| SA5 YYBUF+B1 03524 M00S02911.dmrec +++| EQ BVT3 CONTINUE 03525 M00S02912.dmrec +++| 03526 M00S02913.dmrec +++| BVT5 SA2 DATE DIRECTIVE DATE 03527 M00S02914.dmrec +++| ZR X2,BVT6 IF BEGIN DATE NOT GIVEN 03528 M00S02915.dmrec +++| BX6 X2 03529 M00S02916.dmrec +++| SA6 STDT NEW START DATE 03530 M00S02917.dmrec +++| SA2 TIME 03531 M00S02918.dmrec +++| NZ X2,BVT7 IF BEGIN DATE AND TIME GIVEN 03532 M00S02919.dmrec +++| SA2 BVTD USE BEGINNING OF DAY 03533 M00S02920.dmrec +++| EQ BVT7 CONTINUE 03534 M00S02921.dmrec +++| BVT6 SA2 TIME DIRECTIVE TIME 03535 M00S02922.dmrec +++| ZR X2,BVT8 IF BEGIN TIME NOT GIVEN 03536 M00S02923.dmrec +++| BVT7 BX6 X2 03537 M00S02924.dmrec +++| SA6 STTM NEW START TIME 03538 M00S02925.dmrec +++| BVT8 SA2 DATE1 03539 M00S02926.dmrec +++| ZR X2,BVT9 IF END DATE NOT GIVEN 03540 M00S02927.dmrec +++| BX6 X2 03541 M00S02928.dmrec +++| SA6 ENDT NEW END DATE 03542 M00S02929.dmrec +++| EQ BVT10 CHECK END TIME 03543 M00S02930.dmrec +++| 03544 M00S02931.dmrec +++| BVT9 PDATE TEMP10 03545 M00S02932.dmrec +++| SA5 TEMP10 03546 M00S02933.dmrec +++| RJ UDT UNPACK D/T 03547 M00S02934.dmrec +++| SA6 ENDT END DATE - TODAY 03548 M00S02935.dmrec +++| BVT10 SA2 TIME1 03549 M00S02936.dmrec +++| ZR X2,BVT11 IF END TIME NOT GIVEN 03550 M00S02937.dmrec +++| BX6 X2 03551 M00S02938.dmrec +++| SA6 ENTM END TIME 03552 M00S02939.dmrec +++| EQ BVT12 CONTINUE 03553 M00S02940.dmrec +++| 03554 M00S02941.dmrec +++| BVT11 SA2 NTIME 03555 M00S02942.dmrec +++| BX6 X2 03556 M00S02943.dmrec +++| SA6 ENTM END TIME - 23.59.59. 03557 M00S02944.dmrec +++| 03558 M00S02945.dmrec +++|* CONVERT EXPANDED DATE/TIME TO PACKED FORMAT FOR 03559 M00S02946.dmrec +++|* EASE OF TAPE SELECTION. 03560 M00S02947.dmrec +++| 03561 M00S02948.dmrec +++| BVT12 SA2 STDT 03562 M00S02949.dmrec +++| SA3 STTM 03563 M00S02950.dmrec +++| RJ PDT PACK DATE AND TIME 03564 M00S02951.dmrec +++| NZ X1,BVTX IF ERROR 03565 M00S02952.dmrec +++| SA6 STPDT START PACKED DATE/TIME 03566 M00S02953.dmrec +++| SA2 ENDT 03567 M00S02954.dmrec +++| SA3 ENTM 03568 M00S02955.dmrec +++| RJ PDT PACK DATE AND TIME 03569 M00S02956.dmrec +++| NZ X1,BVTX IF ERROR 03570 M00S02957.dmrec +++| SA6 ENPDT END PACKED DATE/TIME 03571 M00S02958.dmrec +++| 03572 M00S02959.dmrec +++|* SEARCH FOR VSN-S WITHIN DATE/TIME WINDOW. 03573 M00S02960.dmrec +++| 03574 M00S02961.dmrec +++| STORE DIRR,MKL=10 03575 M00S02962.dmrec +++| SA2 XXPFN 03576 M00S02963.dmrec +++| SA5 =3R 1 03577 M00S02964.dmrec +++| BX6 X2+X5 03578 M00S02965.dmrec +++| SA6 TEMPO 03579 M00S02966.dmrec +++| RMGET DIRR,XXBUF,0,,TEMPO 03580 M00S02967.dmrec +++| RJ FER CHECK FIT ERROR 03581 M00S02968.dmrec +++| NZ X1,BVT18 IF ERROR 03582 M00S02969.dmrec +++| STORE DIRR,MKL=20 03583 M00S02970.dmrec +++| BVT13 SA2 XXBUF+5 DATE/TIME OF LAST RECORD ON THIS *ARF* 03584 M00S02971.dmrec +++| SA4 STPDT 03585 M00S02972.dmrec +++| IX3 X2-X4 03586 M00S02973.dmrec +++| PL X3,BVT14 IF LAST RECORD AFTER START DATE/TIME 03587 M00S02974.dmrec +++| GETN DIRR,XXBUF,,SKEY 03588 M00S02975.dmrec +++| FETCH DIRR,ES,X2 03589 M00S02976.dmrec +++| SX2 X2-100B 03590 M00S02977.dmrec +++| ZR X2,BVT18 IF EOF 03591 M00S02978.dmrec +++| SA2 SKEY 03592 M00S02979.dmrec +++| SA3 TEMPO 03593 M00S02980.dmrec +++| BX2 X2-X3 03594 M00S02981.dmrec +++| ZR X2,BVT13 IF MORE ENTRIES TO SEARCH 03595 M00S02982.dmrec +++| EQ BVT18 ERROR 03596 M00S02983.dmrec +++| BVT14 SX6 TVSN INITIALIZE IVSN 03597 M00S02984.dmrec +++| SA6 IVSN
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03598 M01S00111.dmrec7 +++| SX7 TREC 03599 M01S00112.dmrec7 +++| SA7 PREC INITIALIZE TREC POINTER 03600 M00S02985.dmrec +++| BVT15 SA4 ENPDT 03601 M00S02986.dmrec +++| SA5 XXBUF+1 03602 M00S02987.dmrec +++| IX3 X4-X5 03603 M00S02988.dmrec +++| NG X3,BVT15.1 IF FIRST RECORD AFTER END DATE/TIME 03604 M00S02989.dmrec +++| SX3 TVSN+TVSNL-1 03605 M00S02990.dmrec +++| SA4 IVSN 03606 M00S02991.dmrec +++| IX3 X3-X4 03607 M00S02992.dmrec +++| NG X3,BVT17 IF TVSN OVERFLOW 03608 M00S02993.dmrec +++| SA2 XXBUF+2 03609 M00S02994.dmrec +++| SA3 A2+2
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 03610 M01S00113.dmrec7 +++| SA1 PREC 03611 M01S00114.dmrec7 +++| BX7 X2 03612 M01S00115.dmrec7 +++| SA7 X1 ENTER VSN INTO TREC TABLE 03613 M01S00116.dmrec7 +++| SX7 X1+1 03614 M01S00117.dmrec7 +++| SA7 A1 INCREMENT PREC 03615 M00S02995.dmrec +++| BX6 X2+X3 VSN + NUMBER OF RECORDS 03616 M00S02996.dmrec +++| SA6 X4 03617 M00S02997.dmrec +++| SX6 X4+B1 03618 M00S02998.dmrec +++| SA6 A4 INCREMENT IVSN 03619 M00S02999.dmrec +++| BX6 X5 03620 M00S03000.dmrec +++| SA6 TKY2 SAVE PACKED DATE/TIME 03621 M00S03001.dmrec +++| SA4 TEMPO 03622 M00S03002.dmrec +++| BX7 X4 03623 M00S03003.dmrec +++| SA7 TKY1 03624 M00S03004.dmrec +++| SA7 BVTE 03625 M00S03005.dmrec +++| SA1 XXBUF+2 03626 M00S03006.dmrec +++| BVT15.0 RJ SVK SET VSN KEY 03627 M00S03007.dmrec +++| RMGET DIRR,WSAB,0,,VKY1 GET VSN ENTRY 03628 M00S03008.dmrec +++| RJ FER CHECK FIT ERROR 03629 M00S03009.dmrec +++| NZ X1,BVT19 IF ERROR 03630 M00S03010.dmrec +++| SA3 XXBUF+4 03631 M00S03011.dmrec +++| SA1 WSAB+2 03632 M00S03012.dmrec +++| ZR X1,BVT15.1 IF NO MORE CONTINUATION REELS 03633 M00S03013.dmrec +++| BX6 X3+X1 03634 M00S03014.dmrec +++| SA4 IVSN 03635 M00S03015.dmrec +++| SA6 X4 PLACE VSN INTO TVSN TABLE 03636 M00S03016.dmrec +++| SX6 X4+B1 03637 M00S03017.dmrec +++| SA6 A4 INCREMENT IVSN 03638 M00S03018.dmrec +++| EQ BVT15.0 GET NEXT ENTRY 03639 M00S03019.dmrec +++| 03640 M00S03020.dmrec +++| BVT15.1 SA2 BVTE 03641 M00S03021.dmrec +++| ZR X2,BVT18 IF FIRST TIME THROUGH 03642 M00S03022.dmrec +++| REWIND DIRR,R 03643 M00S03023.dmrec +++| RMGET DIRR,XXBUF,0,,TKY1 03644 M00S03024.dmrec +++| RJ FER CHECK FIT ERROR 03645 M00S03025.dmrec +++| NZ X1,BVT19 IF ERROR 03646 M00S03026.dmrec +++| GETN DIRR,XXBUF,,SKEY 03647 M00S03027.dmrec +++| FETCH DIRR,ES,X2 03648 M00S03028.dmrec +++| SX2 X2-100B 03649 M00S03029.dmrec +++| ZR X2,BVT16 IF EOF 03650 M00S03030.dmrec +++| SA2 SKEY 03651 M00S03031.dmrec +++| SA3 TEMPO 03652 M00S03032.dmrec +++| BX2 X2-X3 03653 M00S03033.dmrec +++| ZR X2,BVT15 IF MORE ENTRIES 03654 M00S03034.dmrec +++| BVT16 SA2 IVSN 03655 M00S03035.dmrec +++| SX6 B0 03656 M00S03036.dmrec +++| SA6 X2 END LIST 03657 M00S03037.dmrec +++| SX1 B0 03658 M00S03038.dmrec +++| EQ BVTX RETURN NORMAL 03659 M00S03039.dmrec +++| 03660 M00S03040.dmrec +++| BVT17 ERROR BVTC,,,BVTX,,E VSN TABLE OVERFLOW 03661 M00S03041.dmrec +++| 03662 M00S03042.dmrec +++| BVT18 ERROR BVTA,,,BVTX,,E NO LOG DUMP ENTRIES 03663 M00S03043.dmrec +++| 03664 M00S03044.dmrec +++| BVT19 ERROR BVTB,,,BVTX,,E NO DUMP RECORD 03665 M00S03045.dmrec +++| 03666 M00S03046.dmrec +++| STDT BSS 1 START DATE 03667 M00S03047.dmrec +++| STTM BSS 1 START TIME 03668 M00S03048.dmrec +++| ENDT BSS 1 END TIME 03669 M00S03049.dmrec +++| ENTM BSS 1 END TIME 03670 M00S03050.dmrec +++| STPDT BSS 1 START DATE/TIME - PACKED 03671 M00S03051.dmrec +++| ENPDT BSS 1 END DATE/TIME - PACKED 03672 M00S03052.dmrec +++| TEMP10 BSS 1 TEMPORARY 03673 M00S03053.dmrec +++| NTIME VFD 60/6L235959 03674 M00S03054.dmrec +++| 03675 M00S03055.dmrec +++| BVTA DATA 20H0 ***** 03676 M00S03056.dmrec +++| DATA C*NO ARF DUMP ENTRIES IN DIRECTORY.* 03677 M00S03057.dmrec +++| BVTAL EQU *-BVTA 03678 M00S03058.dmrec +++| 03679 M00S03059.dmrec +++| BVTB DATA 20H0 ***** 03680 M00S03060.dmrec +++| DATA C*NO DUMP RECORD WITH SPECIFIED VSN.* 03681 M00S03061.dmrec +++| BVTBL EQU *-BVTB 03682 M00S03062.dmrec +++| 03683 M00S03063.dmrec +++| BVTC DATA 20H0 ***** 03684 M00S03064.dmrec +++| DATA C*VSN TABLE OVERFLOW.* 03685 M00S03065.dmrec +++| BVTCL EQU *-BVTC 03686 M00S03066.dmrec +++| 03687 M00S03067.dmrec +++| BVTD VFD 36/6L000000,24/0 03688 M00S03068.dmrec +++| BVTE BSSZ 1 FIRST TIME THROUGH COUNTER 03689 M00S03069.dmrec +++| CER SPACE 4,15 03690 M00S03070.dmrec +++|** CER - CHECK ERROR STATUS. 03691 M00S03071.dmrec +++|* 03692 M00S03072.dmrec +++|* *CER* EXAMINES THE ERROR STATUS IN A FET. 03693 M00S03073.dmrec +++|* IT CLEARS THE STATUS IN THE FET AND THEN RETURNS. 03694 M00S03074.dmrec +++|* 03695 M00S03075.dmrec +++|* ENTRY (X2) = FWA OF FET. 03696 M00S03076.dmrec +++|* 03697 M00S03077.dmrec +++|* EXIT (X1) = STATUS FROM FET. 03698 M00S03078.dmrec +++|* 03699 M00S03079.dmrec +++|* USES X - 1, 3, 7. 03700 M00S03080.dmrec +++|* A - 1, 7. 03701 M00S03081.dmrec +++| 03702 M00S03082.dmrec +++| 03703 M00S03083.dmrec +++| CER SUBR ENTRY/EXIT 03704 M00S03084.dmrec +++| MX7 42 03705 M00S03085.dmrec +++| SA1 X2 03706 M00S03086.dmrec +++| MX3 -4 03707 M00S03087.dmrec +++| BX7 X7*X1 03708 M00S03088.dmrec +++| AX1 10-0 03709 M00S03089.dmrec +++| BX1 -X3*X1 ERROR STATUS BIT 03710 M00S03090.dmrec +++| SX3 B1 03711 M00S03091.dmrec +++| IX7 X7+X3 03712 M00S03092.dmrec +++| SA7 A1 CLEAR ERROR STATUS BIT 03713 M00S03093.dmrec +++| EQ CERX RETURN 03714 M00S03094.dmrec +++| CFD SPACE 4,15 03715 M00S03095.dmrec +++|** CFD - CHECK FOR DELETE. 03716 M00S03096.dmrec +++|* 03717 M00S03097.dmrec +++|* ENTRY (B6) = 0, IF FILE DUMP ENTRY. 03718 M00S03098.dmrec +++|* 1, IF *AFTER IMAGE* DUMP ENTRY. 03719 M00S03099.dmrec +++|* (DELF) = 0, IF CYCLE DELETE. 03720 M00S03100.dmrec +++|* 1, IF DATE/TIME DELETE. 03721 M00S03101.dmrec +++|* (WSAB) = ENTRY TO BE CHECKED. 03722 M00S03102.dmrec +++|* 03723 M00S03103.dmrec +++|* EXIT (X1) = 1, IF ENTRY IS TO BE DELETED. 03724 M00S03104.dmrec +++|* 03725 M00S03105.dmrec +++|* USES X - 1, 2, 3, 5, 6, 7. 03726 M00S03106.dmrec +++|* A - 1, 2, 3, 5, 6, 7. 03727 M00S03107.dmrec +++|* B - NONE. 03728 M00S03108.dmrec +++|* 03729 M00S03109.dmrec +++|* MACROS EDATE, ETIME. 03730 M00S03110.dmrec +++| 03731 M00S03111.dmrec +++| 03732 M00S03112.dmrec +++| CFD SUBR ENTRY/EXIT 03733 M00S03113.dmrec +++| EQ B6,B1,CFD2 IF AFTER IMAGE DUMP ENTRY 03734 M00S03114.dmrec +++| SA1 DELF DELETE FLAG 03735 M00S03115.dmrec +++| NZ X1,CFD2 IF DATE/TIME DELETE 03736 M00S03116.dmrec +++| SA1 CYCC CYCLE COUNT 03737 M00S03117.dmrec +++| SX6 X1+B1 INCREMENT COUNT 03738 M00S03118.dmrec +++| SA6 A1 REPLACE COUNT 03739 M00S03119.dmrec +++| SA2 CYCT NUMBER OF CYCLES 03740 M00S03120.dmrec +++| IX2 X2-X6 03741 M00S03121.dmrec +++| SX1 B1 03742 M00S03122.dmrec +++| ZR X2,CFD1 IF ENTRY TO BE RETAINED 03743 M00S03123.dmrec +++| NG X2,CFDX IF ENTRY IS TO BE DELETED 03744 M00S03124.dmrec +++| CFD1 SA1 WSAB+1 PACKED DATE/TIME 03745 M00S03125.dmrec +++| BX7 X1 03746 M00S03126.dmrec +++| SA7 LDATE SAVE LAST CYCLE DATE/TIME 03747 M00S03127.dmrec +++| MX1 0 03748 M00S03128.dmrec +++| EQ CFDX RETURN 03749 M00S03129.dmrec +++| 03750 M00S03130.dmrec +++| CFD2 SA5 WSAB+1 PACKED DATE/TIME 03751 M00S03131.dmrec +++| ETIME X5 UNPACK TIME 03752 M00S03132.dmrec +++| SA6 CFDA SAVE TIME 03753 M00S03133.dmrec +++| AX5 18 03754 M00S03134.dmrec +++| EDATE X5 UNPACK DATE 03755 M00S03135.dmrec +++| MX1 0 03756 M00S03136.dmrec +++| SA2 DATE DATE PARAMETER 03757 M00S03137.dmrec +++| IX3 X2-X6 03758 M00S03138.dmrec +++| NG X3,CFDX IF ENTRY DOES NOT QUALIFY 03759 M00S03139.dmrec +++| NZ X3,CFD3 IF DATES NOT EQUAL 03760 M00S03140.dmrec +++| SA2 TIME TIME PARAMETER 03761 M00S03141.dmrec +++| SA3 CFDA SAVED TIME 03762 M00S03142.dmrec +++| IX3 X2-X3 03763 M00S03143.dmrec +++| NG X3,CFDX IF ENTRY DOES NOT QUALIFY 03764 M00S03144.dmrec +++| CFD3 SX1 B1 03765 M00S03145.dmrec +++| EQ CFDX RETURN 03766 M00S03146.dmrec +++| 03767 M00S03147.dmrec +++| CFDA BSSZ 1 SAVE CELL FOR TIME 03768 M00S03148.dmrec +++| CND SPACE 4,20 03769 M00S03149.dmrec +++|** CND - CHECK NEXT DIRECTIVE. 03770 M00S03150.dmrec +++|* 03771 M00S03151.dmrec +++|* *CND* CHECKS THE INPUT CHARACTER STRING BUFFER FOR 03772 M00S03152.dmrec +++|* THE SPECIFIED DIRECTIVE. 03773 M00S03153.dmrec +++|* 03774 M00S03154.dmrec +++|* ENTRY DIR = FWA OF BUFFER. 03775 M00S03155.dmrec +++|* (X4) = 3RDA* (*ADD DIRECTIVE) 03776 M00S03156.dmrec +++|* 3RYC* (*CYCLE DIRECTIVE) 03777 M00S03157.dmrec +++|* 3RED* (*DELETE DIRECTIVE) 03778 M00S03158.dmrec +++|* 3RGI* (*IGNORE DIRECTIVE) 03779 M00S03159.dmrec +++|* 03780 M00S03160.dmrec +++|* EXIT (X1) = 0, IF DIRECTIVE FOUND. 03781 M00S03161.dmrec +++|* 03782 M00S03162.dmrec +++|* USES X - 0, 1, 3, 4, 5. 03783 M00S03163.dmrec +++|* A - 3. 03784 M00S03164.dmrec +++|* B - 2, 3. 03785 M00S03165.dmrec +++| 03786 M00S03166.dmrec +++| 03787 M00S03167.dmrec +++| CND2 SX1 B0 03788 M00S03168.dmrec +++| CND SUBR ENTRY/EXIT 03789 M00S03169.dmrec +++| SB2 3 03790 M00S03170.dmrec +++| MX0 54 03791 M00S03171.dmrec +++| SB3 B0-B1 03792 M00S03172.dmrec +++| LX4 6 03793 M00S03173.dmrec +++| CND1 SB3 B3+B1 03794 M00S03174.dmrec +++| EQ B2,B3,CND2 IF END OF SEARCH 03795 M00S03175.dmrec +++| SA3 DIR+B3 NEXT WORD OF BUFFER 03796 M00S03176.dmrec +++| AX4 6 SHIFT FOR NEXT CHARACTER 03797 M00S03177.dmrec +++| BX5 -X0*X4 03798 M00S03178.dmrec +++| BX5 X3-X5 03799 M00S03179.dmrec +++| ZR X5,CND1 IF STILL OK 03800 M00S03180.dmrec +++| SX1 B1 03801 M00S03181.dmrec +++| EQ CNDX RETURN - NO DIRECTIVE FOUND 03802 M00S03182.dmrec +++| CRT SPACE 4,30 03803 M00S03183.dmrec +++|** CRT - CREATE LOG FILES. 03804 M00S03184.dmrec +++|* 03805 M00S03185.dmrec +++|* THIS ROUTINE CREATES QUICK (BEFORE IMAGE) OR 03806 M00S03186.dmrec +++|* LONG (AFTER IMAGE) RECOVERY FILES WHICH ARE USED 03807 M00S03187.dmrec +++|* BY *TAF/CRM* RECOVERY. 03808 M00S03188.dmrec +++|* 03809 M00S03189.dmrec +++|* *CRT* WILL TEST IF LOCAL FILE WITH THE SAME NAME EXISTS. 03810 M00S03190.dmrec +++|* IF YES, IT IS THE USERS RESPONSIBILITY TO SAVE THE FILE. 03811 M00S03191.dmrec +++|* IF NO, *CRT* WILL TRY TO ATTACH THE DIRECT ACCESS FILE 03812 M00S03192.dmrec +++|* WITH THE SAME NAME. IF PFN EXISTS IT WILL BE OVERWRITTEN. 03813 M00S03193.dmrec +++|* OTHERWISE THE FILE WILL BE DEFINED. 03814 M00S03194.dmrec +++|* 03815 M00S03195.dmrec +++|* *CRT* USES PREALLOCATION ROUTINES FROM COMMON DECK *COMKARF* 03816 M00S03196.dmrec +++|* USED IN *AAMI* INITIALIZATION. 03817 M00S03197.dmrec +++|* 03818 M00S03198.dmrec +++|* ENTRY (X6) = OPERATION FLAG. 03819 M00S03199.dmrec +++|*
| Line S03200 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03820 M01S03200.ns2023 ---|* EXIT TO REC9 - IF *QRF* RECOVERY. 03821 M01S03201.ns2023 ---|* TO DMP10 - IF *LRF* DUMP.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03822 M01S00082.ns2023 +++|* EXIT TO REC9 - IF *BRF* RECOVERY. 03823 M01S00083.ns2023 +++|* TO DMP10 - IF *ARF* DUMP. 03824 M00S03202.dmrec +++|* TO DMR3, OTHERWISE. 03825 M00S03203.dmrec +++|* 03826 M00S03204.dmrec +++|* USES X - ALL. 03827 M00S03205.dmrec +++|* A - 0, 1, 2, 3, 5, 6, 7. 03828 M00S03206.dmrec +++|* B - 1, 5, 6, 7. 03829 M00S03207.dmrec +++|* 03830 M00S03208.dmrec +++|* CALLS ARB, DXB, GFA, GXJ, SFN, SPR. 03831 M00S03209.dmrec +++|* 03832 M00S03210.dmrec +++|* MACROS ERROR, RETURN. 03833 M00S03211.dmrec +++| 03834 M00S03212.dmrec +++| 03835 M00S03213.dmrec +++| CRT BSS 0 ENTRY 03836 M00S03214.dmrec +++| SB1 1 03837 M00S03215.dmrec +++| RJ SPR SET PARAMETERS 03838 M00S03216.dmrec +++| SB5 B5-2 SET FOR ONE LFN ONLY TEST 03839 M00S03217.dmrec +++| NZ B5,CRT11 IF MORE THAN ONE LFN 03840 M00S03218.dmrec +++|
| Line S03219 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03841 M01S03219.ns2023 ---|* ENTRY FROM DMP OR QRF RECOVERY.
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03842 M01S00084.ns2023 +++|* ENTRY FROM DMP OR *BRF* RECOVERY. 03843 M00S03220.dmrec +++| 03844 M00S03221.dmrec +++| CRT1 SX6 CRMARFN USE DEFAULT LENGTH 03845 M00S03222.dmrec +++| SA5 LENGTH LENGTH PARAMETER 03846 M00S03223.dmrec +++| ZR X5,CRT2 IF LENGTH NOT SPECIFIED 03847 M00S03224.dmrec +++| SB7 B1 03848 M00S03225.dmrec +++| RJ DXB CONVERT PRU COUNT INTO BINARY 03849 M00S03226.dmrec +++| NZ X4,CRT16 IF ERROR 03850 M00S03227.dmrec +++| 03851 M00S03228.dmrec +++|* ENTRY POINT FROM *DMP* (X6) = LENGTH IN PRU-S. 03852 M00S03229.dmrec +++| 03853 M00S03230.dmrec +++| CRT2 SA6 LENGTH STORE BINARY VALUE 03854 M00S03231.dmrec +++| SA2 TDFN LFN FROM PARAMETER TABLE 03855 M00S03232.dmrec +++| MX0 42 03856 M00S03233.dmrec +++| BX6 X0*X2 EXTRACT LFN 03857 M00S03234.dmrec +++| SA6 CRTI SAVE FULL LFN 03858 M00S03235.dmrec +++| AX6 18 POSITION NN FIELD (ORDINAL) 03859 M00S03236.dmrec +++| MX0 -12 03860 M00S03237.dmrec +++| BX7 -X0*X6 EXTRACT NN FIELD (ORDINAL) 03861 M00S03238.dmrec +++| AX6 12 03862 M00S03239.dmrec +++| SA7 CRTJ SAVE NN FIELD RIGHT JUSTIFIED (ORDINAL) 03863 M00S03240.dmrec +++| MX0 -6
| Line S03241 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03864 M01S03241.ns2023 ---| BX7 -X0*X6 EXTRACT *LRF* OR *QRF* FIELD
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03865 M01S00085.ns2023 +++| BX7 -X0*X6 EXTRACT *ARF* OR *BRF* FIELD 03866 M00S03242.dmrec +++| SA7 CRTK SAVE FILE TYPE RIGHT JUSTIFIED 03867 M00S03243.dmrec +++| AX6 6 POSITION DB FIELD 03868 M00S03244.dmrec +++| MX0 -12 03869 M00S03245.dmrec +++| BX5 -X0*X6 EXTRACT DB FIELD 03870 M00S03246.dmrec +++| AX6 12 03871 M00S03247.dmrec +++| SX4 2RZZ 03872 M00S03248.dmrec +++| BX4 X4-X6 03873 M00S03249.dmrec +++| NZ X4,CRT13 IF FILE NAME INCORRECT 03874 M00S03250.dmrec +++| 03875 M00S03251.dmrec +++|* EXTRACT ALL REQUIRED PARAMETERS FROM *XXJ* FILE. 03876 M00S03252.dmrec +++| 03877 M00S03253.dmrec +++| LX5 -12 POSITION DATA BASE IDENTIFIER 03878 M00S03254.dmrec +++| RJ GXJ PROCESS *XXJ* FILE 03879 M00S03255.dmrec +++| NZ X1,CRT8 IF ERRORS 03880 M00S03256.dmrec +++| SA2 CRTK FILE TYPE 03881 M00S03257.dmrec +++| SX3 1RB 03882 M00S03258.dmrec +++| BX3 X2-X3 03883 M00S03259.dmrec +++| ZR X3,CRT4 IF *BRF* 03884 M00S03260.dmrec +++| SX3 1RA 03885 M00S03261.dmrec +++| BX3 X2-X3 03886 M00S03262.dmrec +++| NZ X3,CRT13 IF NOT *ARF* 03887 M00S03263.dmrec +++| CRT3 SA2 CRTJ FILE ORDINAL (01 OR 02) 03888 M00S03264.dmrec +++| SX3 2R01 03889 M00S03265.dmrec +++| BX3 X2-X3 03890 M00S03266.dmrec +++| ZR X3,CRT5 IF FILE ORDINAL 01 03891 M00S03267.dmrec +++| SX3 2R02 03892 M00S03268.dmrec +++| BX2 X2-X3 03893 M00S03269.dmrec +++| NZ X2,CRT14 IF NOT FILE ORDINAL 02 03894 M00S03270.dmrec +++| EQ CRT5 FILE ORDINAL 02 03895 M00S03271.dmrec +++| 03896 M00S03272.dmrec +++|
| Line S03273 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03897 M01S03273.ns2023 ---|* PRESET *TQRF* TABLE FET AND HEADER FIELDS
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03898 M01S00086.ns2023 +++|* PRESET *TBRF* TABLE FET AND HEADER FIELDS 03899 M00S03274.dmrec +++|
| Line S03275 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03900 M01S03275.ns2023 ---| CRT4 SB6 B0 *QRF* BUFFER
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03901 M01S00087.ns2023 +++| CRT4 SB6 B0 *BRF* BUFFER 03902 M00S03276.dmrec +++| RJ ARB ALLOCATE BUFFER SPACE 03903 M00S03277.dmrec +++| NZ X1,CRT15 IF NO SPACE FOR BUFFER 03904 M00S03278.dmrec +++| SA2 CRTI FILE NAME 03905 M00S03279.dmrec +++| SX3 B1 03906 M00S03280.dmrec +++| BX7 X2+X3 SET COMPLETION BIT
| Line S03281 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03907 M01S03281.ns2023 ---| SA7 TQRF+TQFFW STORE FET+0 IN *TQRF* TABLE
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03908 M01S00088.ns2023 +++| SA7 TQRF+TQFFW STORE FET+0 IN *TBRF* TABLE 03909 M00S03282.dmrec +++| SX3 CRMUPM NUMBER OF RECORDS PER SEGMENT 03910 M00S03283.dmrec +++| BX7 X2+X3
| Line S03284 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03911 M01S03284.ns2023 ---| SA7 TQRF+TQFNW NAME AND REC/SEG IN FILE HEADER
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03912 M01S00089.ns2023 +++| SA7 TQRF+TQFNW NAME AND REC/SEG IN FILE HEADER 03913 M00S03285.dmrec +++| SA1 XXBRF NUMBER OF *BRF-S* FROM XXJ FILE 03914 M00S03286.dmrec +++| BX6 X1
| Line S03287 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03915 M01S03287.ns2023 ---| SB7 B1 DEFINE *QRF* PROCESS 03916 M01S03288.ns2023 ---| SA6 A7+B1 STORE NUMBER OF *QRF* FILES 03917 M01S03289.ns2023 ---| SA0 TQRF+TQFFW SET FET ADDRESS 03918 M01S03290.ns2023 ---| SA5 TQRF+TQFNW SET FILE HEADER ADDRESS 03919 M01S03291.ns2023 ---| EQ CRT6 ALLOCATE *QRF* FILE
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03920 M01S00090.ns2023 +++| SB7 B1 DEFINE *BRF* PROCESS 03921 M01S00091.ns2023 +++| SA6 A7+B1 STORE NUMBER OF *BRF* FILES 03922 M01S00092.ns2023 +++| SA0 TQRF+TQFFW SET FET ADDRESS 03923 M01S00093.ns2023 +++| SA5 TQRF+TQFNW SET FILE HEADER ADDRESS 03924 M01S00094.ns2023 +++| EQ CRT6 ALLOCATE *BRF* FILE 03925 M00S03292.dmrec +++|
| Line S03293 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03926 M01S03293.ns2023 ---|* PRESET *TLRF* TABLE FET AND FILE HEADER
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03927 M01S00095.ns2023 +++|* PRESET *TARF* TABLE FET AND FILE HEADER 03928 M00S03294.dmrec +++|
| Line S03295 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03929 M01S03295.ns2023 ---| CRT5 SB6 B1 *LRF* BUFFER
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03930 M01S00096.ns2023 +++| CRT5 SB6 B1 *ARF* BUFFER 03931 M00S03296.dmrec +++| RJ ARB ALLOCATE BUFFER 03932 M00S03297.dmrec +++| NZ X1,CRT15 IF NO SPACE FOR BUFFER 03933 M00S03298.dmrec +++| SA2 CRTI FILE NAME 03934 M00S03299.dmrec +++| SX3 B1 03935 M00S03300.dmrec +++| BX7 X2+X3 SET COMPLETION BIT
| Line S03301 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03936 M01S03301.ns2023 ---| SA7 TLRF+TAFFW STORE FET+0 IN *TLRF* TABLE
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03937 M01S00097.ns2023 +++| SA7 TARF+TAFFW STORE FET+0 IN *TARF* TABLE 03938 M00S03302.dmrec +++| BX7 X2
| Line S03303 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03939 M01S03303.ns2023 ---| SA7 TLRF+TAFNW STORE NAME IN FILE HEADER
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03940 M01S00098.ns2023 +++| SA7 TARF+TAFNW STORE NAME IN FILE HEADER 03941 M00S03304.dmrec +++| MX7 0
| Line S03305 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03942 M01S03305.ns2023 ---| SA7 TLRF+TADDW DUMP DATE AND TIME 03943 M01S03306.ns2023 ---| SA0 TLRF+TAFFW FWA OF FET 03944 M01S03307.ns2023 ---| SA5 TLRF+TAFNW FWA OF FILE HEADER 03945 M01S03308.ns2023 ---| SB7 B0+ DEFINE *LRF* PROCESS
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03946 M01S00099.ns2023 +++| SA7 TARF+TADDW DUMP DATE AND TIME 03947 M01S00100.ns2023 +++| SA0 TARF+TAFFW FWA OF FET 03948 M01S00101.ns2023 +++| SA5 TARF+TAFNW FWA OF FILE HEADER 03949 M01S00102.ns2023 +++| SB7 B0+ DEFINE *ARF* PROCESS 03950 M00S03309.dmrec +++| 03951 M00S03310.dmrec +++|* FIND IF FILE LOCAL OR PERMANENT, OTHERWISE DEFINE IT 03952 M00S03311.dmrec +++| 03953 M00S03312.dmrec +++| CRT6 RJ GFA GET FILE AND ALLOCATE IT 03954 M00S03313.dmrec +++| ZR X6,CRT7 IF FILE ALLOCATED 03955 M00S03314.dmrec +++| SX6 X6-6 DEFINE ERROR 03956 M00S03315.dmrec +++| NZ X6,CRT17 IF CIO ERROR 03957 M00S03316.dmrec +++| EQ CRT16 CAN NOT DEFINE FILE 03958 M00S03317.dmrec +++| 03959 M00S03318.dmrec +++| CRT7 SA1 CRTI FILE NAME 03960 M00S03319.dmrec +++| RJ SFN BLANK FILL FILE NAME 03961 M00S03320.dmrec +++| SA6 CRTH+2 03962 M00S03321.dmrec +++| RETURN RECF,R
| Line S03322 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03963 M01S03322.ns2023 ---| SA1 QRFFLG 03964 M01S03323.ns2023 ---| PL X1,CRT9 IF NOT *QRF* RECOVERY 03965 M01S03324.ns2023 ---| EQ REC9 RETURN FOR NEXT POSSIBLE *QRF*
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03966 M01S00103.ns2023 +++| SA1 BRFFLG 03967 M01S00104.ns2023 +++| PL X1,CRT9 IF NOT *BRF* RECOVERY 03968 M01S00105.ns2023 +++| EQ REC9 RETURN FOR NEXT POSSIBLE *BRF* 03969 M00S03325.dmrec +++| 03970 M00S03326.dmrec +++| CRT8 RETURN RECF 03971 M00S03327.dmrec +++| EQ DMR3 RETURN 03972 M00S03328.dmrec +++|
| Line S03329 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03973 M01S03329.ns2023 ---| CRT9 SA1 DMPFLG CHECK FOR *LRF* DUMP 03974 M01S03330.ns2023 ---| NZ X1,CRT10 IF NOT *LRF* DUMP
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 03975 M01S00106.ns2023 +++| CRT9 SA1 DMPFLG CHECK FOR *ARF* DUMP 03976 M01S00107.ns2023 +++| NZ X1,CRT10 IF NOT *ARF* DUMP 03977 M00S03331.dmrec +++| EQ DMP10 CONTINUE WITH DUMP PROCESSING 03978 M00S03332.dmrec +++| 03979 M00S03333.dmrec +++| CRT10 ERROR CRTH,,,DMR3 ISSUE FILE ALLOCATED MESSAGE 03980 M00S03334.dmrec +++| 03981 M00S03335.dmrec +++| CRT11 ERROR DMRA,,,CRT8,,E ONLY ONE LFN ALLOWED 03982 M00S03336.dmrec +++| 03983 M00S03337.dmrec +++| CRT13 ERROR CRTC,,,CRT8,,E INCORRECT FILE TYPE 03984 M00S03338.dmrec +++| 03985 M00S03339.dmrec +++| CRT14 ERROR CRTD,,,CRT8,,E INCORRECT FILE ORDINAL 03986 M00S03340.dmrec +++| 03987 M00S03341.dmrec +++| CRT15 ERROR CRTE,,,CRT8,,E NO SPACE FOR BUFFER 03988 M00S03342.dmrec +++| 03989 M00S03343.dmrec +++| CRT16 ERROR CRTF,,,CRT8,,E DEFINE ERROR 03990 M00S03344.dmrec +++| 03991 M00S03345.dmrec +++| CRT17 ERROR CRTG,,,CRT8,,E CIO ERROR 03992 M00S03346.dmrec +++| 03993 M00S03347.dmrec +++| 03994 M00S03348.dmrec +++| CRTC DATA 20H0 ***** 03995 M00S03349.dmrec +++| DATA C*FILE TYPE NOT ARF OR BRF.* 03996 M00S03350.dmrec +++| CRTCL EQU *-CRTC 03997 M00S03351.dmrec +++| 03998 M00S03352.dmrec +++| CRTD DATA 20H0 ***** 03999 M00S03353.dmrec +++| DATA C*ARF ORDINAL MUST BE 01 OR 02.* 04000 M00S03354.dmrec +++| CRTDL EQU *-CRTD 04001 M00S03355.dmrec +++| 04002 M00S03356.dmrec +++| CRTE DATA 20H0 ***** 04003 M00S03357.dmrec +++| DATA C*NO SPACE FOR ARF/BRF BUFFER.* 04004 M00S03358.dmrec +++| CRTEL EQU *-CRTE 04005 M00S03359.dmrec +++| 04006 M00S03360.dmrec +++| CRTF DATA 20H0 ***** 04007 M00S03361.dmrec +++| DATA C*DEFINE ERROR ON FILE.* 04008 M00S03362.dmrec +++| CRTFL EQU *-CRTF 04009 M00S03363.dmrec +++| 04010 M00S03364.dmrec +++| CRTG DATA 20H0 ***** 04011 M00S03365.dmrec +++| DATA C*CRT - CIO ERROR.* 04012 M00S03366.dmrec +++| CRTGL EQU *-CRTG 04013 M00S03367.dmrec +++| 04014 M00S03368.dmrec +++| CRTH DATA 20H0 ***** 04015 M00S03369.dmrec +++| DATA C* ALLOCATED.* 04016 M00S03370.dmrec +++| CRTHL EQU *-CRTH 04017 M00S03371.dmrec +++| 04018 M00S03372.dmrec +++| CRTI BSSZ 1 FILE NAME - ZZDBXNN 04019 M00S03373.dmrec +++| CRTJ BSSZ 1 NN FIELD 04020 M00S03374.dmrec +++| CRTK BSSZ 1 X FIELD 04021 M00S03375.dmrec +++| 04022 M00S03376.dmrec +++| 04023 M00S03377.dmrec +++| CTD SPACE 4,15 04024 M00S03378.dmrec +++|** CTD - CHECK TIME AND DATE. 04025 M00S03379.dmrec +++|* 04026 M00S03380.dmrec +++|* ENTRY (DATE) = BEGIN DATE. YYMMDD. 04027 M00S03381.dmrec +++|* (TIME) = BEGIN TIME. HHMMSS. 04028 M00S03382.dmrec +++|* (DATE1) = END DATE. 04029 M00S03383.dmrec +++|* (TIME1) = END TIME. 04030 M00S03384.dmrec +++|* 04031 M00S03385.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04032 M00S03386.dmrec +++|* 1, IF INCORRECT FORMAT. 04033 M00S03387.dmrec +++|* 04034 M00S03388.dmrec +++|* USES X - 0, 1, 2, 3, 4, 5. 04035 M00S03389.dmrec +++|* A - 2. 04036 M00S03390.dmrec +++|* B - 6. 04037 M00S03391.dmrec +++|* 04038 M00S03392.dmrec +++|* CALLS DXB. 04039 M00S03393.dmrec +++| 04040 M00S03394.dmrec +++| 04041 M00S03395.dmrec +++| CTD6 MX1 0 NO ERROR RETURN 04042 M00S03396.dmrec +++| 04043 M00S03397.dmrec +++| CTD SUBR ENTRY/EXIT 04044 M00S03398.dmrec +++| SB6 B0 04045 M00S03399.dmrec +++| SA2 DATE BEGIN DATE 04046 M00S03400.dmrec +++| CTD1 ZR X2,CTD2 IF DATE NOT GIVEN 04047 M00S03401.dmrec +++| MX0 12 04048 M00S03402.dmrec +++| BX5 X0*X2 YY 04049 M00S03403.dmrec +++| RJ DXB CONVERT TO BINARY 04050 M00S03404.dmrec +++| SX1 B1 ERROR RETURN 04051 M00S03405.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04052 M00S03406.dmrec +++| SA2 A2 04053 M00S03407.dmrec +++| MX0 12 04054 M00S03408.dmrec +++| LX2 12 04055 M00S03409.dmrec +++| BX5 X0*X2 MM 04056 M00S03410.dmrec +++| RJ DXB CONVERT TO BINARY 04057 M00S03411.dmrec +++| SX1 B1 04058 M00S03412.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04059 M00S03413.dmrec +++| ZR X6,CTDX IF OUT OF RANGE 04060 M00S03414.dmrec +++| SX3 12 04061 M00S03415.dmrec +++| IX4 X3-X6 04062 M00S03416.dmrec +++| NG X4,CTDX IF OUT RANGE 04063 M00S03417.dmrec +++| MX0 12 04064 M00S03418.dmrec +++| SA2 A2 04065 M00S03419.dmrec +++| LX2 24 04066 M00S03420.dmrec +++| BX5 X0*X2 DD 04067 M00S03421.dmrec +++| RJ DXB CONVERT TO BINARY 04068 M00S03422.dmrec +++| SX1 B1 04069 M00S03423.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04070 M00S03424.dmrec +++| ZR X6,CTDX IF OUT OF RANGE 04071 M00S03425.dmrec +++| SX3 31 04072 M00S03426.dmrec +++| IX4 X3-X6 04073 M00S03427.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04074 M00S03428.dmrec +++| CTD2 EQ B6,B1,CTD3 IF BOTH DATES CHECKED 04075 M00S03429.dmrec +++| SA2 DATE1 END DATE 04076 M00S03430.dmrec +++| SB6 B6+B1 04077 M00S03431.dmrec +++| EQ CTD1 CHECK END DATE 04078 M00S03432.dmrec +++| 04079 M00S03433.dmrec +++| CTD3 SA2 TIME BEGIN TIME 04080 M00S03434.dmrec +++| SB6 B0 04081 M00S03435.dmrec +++| CTD4 ZR X2,CTD5 IF TIME NOT GIVEN 04082 M00S03436.dmrec +++| MX0 12 04083 M00S03437.dmrec +++| BX5 X0*X2 HH 04084 M00S03438.dmrec +++| RJ DXB DISPLAY TO BINARY 04085 M00S03439.dmrec +++| SX1 B1 04086 M00S03440.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04087 M00S03441.dmrec +++| SX3 23 04088 M00S03442.dmrec +++| IX4 X3-X6 04089 M00S03443.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04090 M00S03444.dmrec +++| SA2 A2 04091 M00S03445.dmrec +++| MX0 12 04092 M00S03446.dmrec +++| LX2 12 04093 M00S03447.dmrec +++| BX5 X0*X2 MM 04094 M00S03448.dmrec +++| RJ DXB DISPLAY TO BINARY 04095 M00S03449.dmrec +++| SX1 B1 04096 M00S03450.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04097 M00S03451.dmrec +++| SX3 59 04098 M00S03452.dmrec +++| IX4 X3-X6 04099 M00S03453.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04100 M00S03454.dmrec +++| MX0 12 04101 M00S03455.dmrec +++| SA2 A2 04102 M00S03456.dmrec +++| LX2 24 04103 M00S03457.dmrec +++| BX5 X0*X2 SS 04104 M00S03458.dmrec +++| RJ DXB DISPLAY TO BINARY 04105 M00S03459.dmrec +++| SX1 B1 04106 M00S03460.dmrec +++| NZ X4,CTDX IF NOT NUMERIC 04107 M00S03461.dmrec +++| SX3 59 04108 M00S03462.dmrec +++| IX4 X3-X6 04109 M00S03463.dmrec +++| NG X4,CTDX IF OUT OF RANGE 04110 M00S03464.dmrec +++| CTD5 EQ B6,B1,CTD6 IF BOTH TIMES CHECKED 04111 M00S03465.dmrec +++| SB6 B6+B1 04112 M00S03466.dmrec +++| SA2 TIME1 END TIME 04113 M00S03467.dmrec +++| EQ CTD4 CHECK TIME 04114 M00S03468.dmrec +++| CTW SPACE 4,10 04115 M00S03469.dmrec +++|** CTW - CHARACTERS TO WORDS. 04116 M00S03470.dmrec +++|* 04117 M00S03471.dmrec +++|* ENTRY (X7) = LENGTH IN CHARACTERS. 04118 M00S03472.dmrec +++|* 04119 M00S03473.dmrec +++|* EXIT (X1) = LENGTH IN WORDS. 04120 M00S03474.dmrec +++|* (X6) = REMAINDER IN CHARACTERS. 04121 M00S03475.dmrec +++|* 04122 M00S03476.dmrec +++|* USES X - 1, 4, 5, 6. 04123 M00S03477.dmrec +++|* B - 7. 04124 M00S03478.dmrec +++| 04125 M00S03479.dmrec +++| 04126 M00S03480.dmrec +++| CTW SUBR ENTRY/EXIT 04127 M00S03481.dmrec +++| SX6 10 04128 M00S03482.dmrec +++| PX4 X7 04129 M00S03483.dmrec +++| PX5 X6 04130 M00S03484.dmrec +++| NX6 X5 04131 M00S03485.dmrec +++| FX4 X4/X6 04132 M00S03486.dmrec +++| UX6 B7,X4 04133 M00S03487.dmrec +++| LX1 B7,X6 04134 M00S03488.dmrec +++| PX6 X1 COMPUTE REMAINDER 04135 M00S03489.dmrec +++| DX4 X6*X5 04136 M00S03490.dmrec +++| UX6 X4 04137 M00S03491.dmrec +++| IX6 X7-X6 REMAINDER 04138 M00S03492.dmrec +++| ZR X6,CTWX IF REMAINDER .EQ. ZERO - RETURN 04139 M00S03493.dmrec +++| SX1 X1+1 04140 M00S03494.dmrec +++| EQ CTWX RETURN 04141 M00S03495.dmrec +++| CVN SPACE 4,10 04142 M00S03496.dmrec +++|** CVN - CHECK VSN NUMBER. 04143 M00S03497.dmrec +++|* 04144 M00S03498.dmrec +++|* ENTRY (TVSN) = VSN NUMBER. 04145 M00S03499.dmrec +++|* (ADDF) = 0, IF DELETE ENTRY. 04146 M00S03500.dmrec +++|* 1, IF ADD ENTRY. 04147 M00S03501.dmrec +++|* (FITA) = FWA OF AUXILARY FIT TABLE. 04148 M00S03502.dmrec +++|* 04149 M00S03503.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04150 M00S03504.dmrec +++|* (X6) = COUNT OF ACTIVE FILES. 04151 M00S03505.dmrec +++|* (A0) = CORRECT FIT ADDRESS FOR PROCESS. 04152 M00S03506.dmrec +++|* (WSAB) = FWA OF VSN ENTRY. 04153 M00S03507.dmrec +++|* 04154 M00S03508.dmrec +++|* USES X - 0, 1, 2, 6. 04155 M00S03509.dmrec +++|* A - 0, 1, 2. 04156 M00S03510.dmrec +++|* B - NONE. 04157 M00S03511.dmrec +++|* 04158 M00S03512.dmrec +++|* CALLS SVK. 04159 M00S03513.dmrec +++|* 04160 M00S03514.dmrec +++|* MACROS ERROR, FETCH, RMGET. 04161 M00S03515.dmrec +++| 04162 M00S03516.dmrec +++| 04163 M00S03517.dmrec +++| CVN SUBR ENTRY/EXIT 04164 M00S03518.dmrec +++| SA1 ADDF ADD/DELETE FLAG 04165 M00S03519.dmrec +++| SA0 DIRR DIRECTORY FIT ADDRESS 04166 M00S03520.dmrec +++| ZR X1,CVN1 IF DELETE PROCESS 04167 M00S03521.dmrec +++| SA0 FITA AUXILARY FIT ADDRESS 04168 M00S03522.dmrec +++| CVN1 SA1 TVSN 04169 M00S03523.dmrec +++| RJ SVK SET VSN KEY 04170 M00S03524.dmrec +++| RMGET A0,WSAB,0,,VKY1 READ VSN ENTRY 04171 M00S03525.dmrec +++| FETCH A0,ES,X1 FIT ERROR STATUS 04172 M00S03526.dmrec +++| NZ X1,CVN2 IF VSN DOES NOT EXIST 04173 M00S03527.dmrec +++| SX1 B1 04174 M00S03528.dmrec +++| SA2 WSAB+5 FIRST VSN INDICATOR 04175 M00S03529.dmrec +++| ZR X2,CVN3 IF NOT FIRST VSN 04176 M00S03530.dmrec +++| SA2 WSAB+4 COUNT OF ACTIVE FILES 04177 M00S03531.dmrec +++| BX6 X2 04178 M00S03532.dmrec +++| MX1 0 04179 M00S03533.dmrec +++| EQ CVNX NORMAL RETURN 04180 M00S03534.dmrec +++| 04181 M00S03535.dmrec +++| CVN2 ERROR CVNA,,,CVNX,,E VSN DOES NOT EXIST 04182 M00S03536.dmrec +++| 04183 M00S03537.dmrec +++| CVN3 ERROR CVNB,,,CVNX,,E VSN NOT FIRST REEL 04184 M00S03538.dmrec +++| 04185 M00S03539.dmrec +++| CVNA DATA 20H0 ***** 04186 M00S03540.dmrec +++| DATA C*VSN DOES NOT EXIST.* 04187 M00S03541.dmrec +++| CVNAL EQU *-CVNA 04188 M00S03542.dmrec +++| 04189 M00S03543.dmrec +++| CVNB DATA 20H0 ***** 04190 M00S03544.dmrec +++| DATA C*VSN IS NOT FIRST REEL.* 04191 M00S03545.dmrec +++| CVNBL EQU *-CVNB 04192 M00S03546.dmrec +++| CWM SPACE 4,15 04193 M00S03547.dmrec +++|** CWM - CHECK WRITE MODE. 04194 M00S03548.dmrec +++|* 04195 M00S03549.dmrec +++|* *CWM* CHECKS THE MODE INDICATOR IN THE *XXJ* FILE FOR 04196 M00S03550.dmrec +++|* WRITE PERMISSION TO THE FILE IN QUESTION. 04197 M00S03551.dmrec +++|* 04198 M00S03552.dmrec +++|* ENTRY (XXACC) = MODE INDICATOR. 04199 M00S03553.dmrec +++|* 04200 M00S03554.dmrec +++|* EXIT (X1) = 0 - IF NO ERROR. 04201 M00S03555.dmrec +++|* 04202 M00S03556.dmrec +++|* USES X - 1, 2. 04203 M00S03557.dmrec +++|* A - 2. 04204 M00S03558.dmrec +++|* B - NONE. 04205 M00S03559.dmrec +++| 04206 M00S03560.dmrec +++| 04207 M00S03561.dmrec +++| CWM SUBR ENTRY/EXIT 04208 M00S03562.dmrec +++| SA2 XXACC GET MODE 04209 M00S03563.dmrec +++| LX2 6 04210 M00S03564.dmrec +++| SX1 X2-1RM 04211 M00S03565.dmrec +++| ZR X1,CWMX IF MODIFY MODE - OK 04212 M00S03566.dmrec +++| SX1 X2-1RW 04213 M00S03567.dmrec +++| ZR X1,CWMX IF WRITE MODE - OK 04214 M00S03568.dmrec +++| ERROR CWM1,XXPFN,,CWMX,,E PF XXXXXXX - READ ONLY 04215 M00S03569.dmrec +++| 04216 M00S03570.dmrec +++| CWM1 DATA 20H0 ***** 04217 M00S03571.dmrec +++| DATA C*PF XXXXXXX - READ ONLY.* 04218 M00S03572.dmrec +++| CWM1L EQU *-CWM1 04219 M00S03573.dmrec +++| CYC SPACE 4,25 04220 M00S03574.dmrec +++|** CYC - CHANGE CYCLE NUMBER. 04221 M00S03575.dmrec +++|* 04222 M00S03576.dmrec +++|* *CYC* CHANGES THE NUMBER OF CYCLES TO RETAIN IN THE BACKUP 04223 M00S03577.dmrec +++|* DIRECTORY HEADER OR IN THE FILE HEADER, DEPENDING ON 04224 M00S03578.dmrec +++|* PARAMETERS SPECIFIED ON THE EDIT DIRECTIVE. IF DATA 04225 M00S03579.dmrec +++|* BASE NAME IS SPECIFIED THE DIRECTORY HEADER IS MODIFIED, 04226 M00S03580.dmrec +++|* OTHERWISE FILE HEADERS FOR SELECTIVE FILES ARE CHANGED. 04227 M00S03581.dmrec +++|* 04228 M00S03582.dmrec +++|* ENTRY (CYCL) = CYCLE NUMBER. 04229 M00S03583.dmrec +++|* (LFNC) = 0, IF DIRECTORY HEADER IS MODIFIED. 04230 M00S03584.dmrec +++|* N, IF SELECTIVE FILE HEADERS ARE MODIFIED. 04231 M00S03585.dmrec +++|* 04232 M00S03586.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04233 M00S03587.dmrec +++|* 04234 M00S03588.dmrec +++|* USES X - 1, 2, 5, 6, 7. 04235 M00S03589.dmrec +++|* A - 1, 5, 6, 7. 04236 M00S03590.dmrec +++|* B - NONE. 04237 M00S03591.dmrec +++|* 04238 M00S03592.dmrec +++|* CALLS DXB, EFD, FER. 04239 M00S03593.dmrec +++|* 04240 M00S03594.dmrec +++|* MACROS GETN, RMREP, REWINDM. 04241 M00S03595.dmrec +++| 04242 M00S03596.dmrec +++| 04243 M00S03597.dmrec +++| CYC3 BX6 X6-X6 04244 M00S03598.dmrec +++| SA6 CYCF CLEAR CYCLE CHANGE FLAG 04245 M00S03599.dmrec +++| 04246 M00S03600.dmrec +++| CYC SUBR ENTRY/EXIT 04247 M00S03601.dmrec +++| SA5 CYCL CYCLE NUMBER 04248 M00S03602.dmrec +++| RJ DXB CONVERT DISPLAY TO BINARY 04249 M00S03603.dmrec +++| BX2 X6 04250 M00S03604.dmrec +++| SA6 CYCL REPLACE WITH BINARY VALUE 04251 M00S03605.dmrec +++| SX1 B1 04252 M00S03606.dmrec +++| ZR X2,CYC2 IF NUMBER EQUAL ZERO 04253 M00S03607.dmrec +++| SX1 CYCM MAXIMUM CYCLE NUMBER 04254 M00S03608.dmrec +++| IX2 X1-X2
| Line S03609 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04255 M01S03609.v23l617 ---| NG X2,CYC2 IF ILLEGAL CYCLE NUMBER
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04256 M01S00020.v23l617 +++| NG X2,CYC2 IF INCORRECT CYCLE NUMBER 04257 M00S03610.dmrec +++| SX7 -2 04258 M00S03611.dmrec +++| SA7 LFNP PRESET FILE NAME POINTER 04259 M00S03612.dmrec +++| SX6 B1 04260 M00S03613.dmrec +++| SA6 CYCF CYCLE CHANGE FLAG 04261 M00S03614.dmrec +++| SA1 LFNC NUMBER OF FILES 04262 M00S03615.dmrec +++| NZ X1,CYC1 IF FILE HEADERS ARE MODIFIED 04263 M00S03616.dmrec +++| REWINDM DIRR 04264 M00S03617.dmrec +++| GETN DIRR,WSAB,,TKY1 READ DIRECTORY HEADER 04265 M00S03618.dmrec +++| RJ FER FIT ERROR STATUS 04266 M00S03619.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04267 M00S03620.dmrec +++| SA1 CYCL NEW CYCLE NUMBER 04268 M00S03621.dmrec +++| BX6 X1 04269 M00S03622.dmrec +++| SA6 WSAB+5 REPLACE CYCLE NUMBER 04270 M00S03623.dmrec +++| RMREP DIRR,WSAB,WSAL,,TKY1 REPLACE DIRECTORY HEADER 04271 M00S03624.dmrec +++| RJ FER FIT ERROR STATUS 04272 M00S03625.dmrec +++| CYC0 GETN DIRR,WSAB,,TKY1 GET NEXT FILE HEADER 04273 M00S03626.dmrec +++| RJ FER FIT ERROR STATUS 04274 M00S03627.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04275 M00S03628.dmrec +++| SX2 3RAAA FILE HEADER TYPE 04276 M00S03629.dmrec +++| SA3 TKY1 NEXT FILE HEADER ENTRY 04277 M00S03630.dmrec +++| MX0 -18 04278 M00S03631.dmrec +++| BX1 -X0*X3 04279 M00S03632.dmrec +++| BX2 X2-X1 COMPARE TYPES 04280 M00S03633.dmrec +++| MX1 0 CLEAR ERROR RETURN FLAG 04281 M00S03634.dmrec +++| NZ X2,CYC3 IF ALL DONE PROCESING FILE HEADERS 04282 M00S03635.dmrec +++| RJ EFD EDIT FILE HEADER 04283 M00S03636.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04284 M00S03637.dmrec +++| EQ CYC0 PROCESS NEXT FILE HEADER 04285 M00S03638.dmrec +++| 04286 M00S03639.dmrec +++| CYC1 SA1 LFNP FILE POINTER IN *TDFS* TABLE 04287 M00S03640.dmrec +++| SX6 X1+2 INCREMENT POINTER 04288 M00S03641.dmrec +++| SA6 LFNP REPLACE POINTER 04289 M00S03642.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFS* TABLE 04290 M00S03643.dmrec +++| LX1 1 NUMBER OF ENTRIES 04291 M00S03644.dmrec +++| IX2 X6-X1 04292 M00S03645.dmrec +++| MX1 0 04293 M00S03646.dmrec +++| ZR X2,CYC3 IF END OF TABLE 04294 M00S03647.dmrec +++| SA1 TDFS+X6 NEXT FILE FROM *TDFS* TABLE 04295 M00S03648.dmrec +++| BX6 X1 04296 M00S03649.dmrec +++| SA6 TKY1 SET KEY 04297 M00S03650.dmrec +++| RJ EFD EDIT FILE HEADER 04298 M00S03651.dmrec +++| NZ X1,CYC3 IF CRM ERROR 04299 M00S03652.dmrec +++| EQ CYC1 NEXT FILE 04300 M00S03653.dmrec +++| 04301 M00S03654.dmrec +++| CYC2 ERROR CYCA,,,CYCX,,E CYCLE NUMBER IS OUTSIDE LIMITS 04302 M00S03655.dmrec +++| 04303 M00S03656.dmrec +++| CYCA DATA 20H0 ***** 04304 M00S03657.dmrec +++| DATA C*CYCLE NUMBER IS OUTSIDE LIMITS.* 04305 M00S03658.dmrec +++| CYCAL EQU *-CYCA 04306 M00S03659.dmrec +++| DBF SPACE 4,20 04307 M00S03660.dmrec +++|** DBF - DUMP BLOCK FORMAT. 04308 M00S03661.dmrec +++|* 04309 M00S03662.dmrec +++|* DUMP FILE IN BLOCK FORMAT. IF END-OF-TAPE IS REACHED 04310 M00S03663.dmrec +++|* RETURN CURRENT ONE AND REQUEST NEXT. 04311 M00S03664.dmrec +++|* 04312 M00S03665.dmrec +++|* ENTRY (X4) = FWA OF FET. 04313 M00S03666.dmrec +++|* 04314 M00S03667.dmrec +++|* EXIT DATA FILE DUMPED IN BLOCK MODE. 04315 M00S03668.dmrec +++|* (X1) = 0 IF NO ERRORS. 04316 M00S03669.dmrec +++|* 04317 M00S03670.dmrec +++|* USES X - 0, 1, 2, 4, 6. 04318 M00S03671.dmrec +++|* A - 1, 4, 6. 04319 M00S03672.dmrec +++|* B - NONE. 04320 M00S03673.dmrec +++|* 04321 M00S03674.dmrec +++|* CALLS DER. 04322 M00S03675.dmrec +++|* 04323 M00S03676.dmrec +++|* MACROS ERROR, READ, READW, RECALL, REWIND, WRITEF, 04324 M00S03677.dmrec +++|* WRITER, WRITEW. 04325 M00S03678.dmrec +++| 04326 M00S03679.dmrec +++| 04327 M00S03680.dmrec +++| DBF SUBR ENTRY/EXIT 04328 M00S03681.dmrec +++| BX6 X4 04329 M00S03682.dmrec +++| SA6 HOLD SAVE REGISTER. 04330 M00S03683.dmrec +++| REWIND X4,R
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04331 M01S00118.dmrec7 +++| SX6 TEOR TABLE OF EOR-S 04332 M01S00119.dmrec7 +++| SA6 PEOR INITIALIZE POINTER 04333 M00S03684.dmrec +++| 04334 M00S03685.dmrec +++| DBF1 SA4 HOLD 04335 M00S03686.dmrec +++| DBF2 READ X4,R 04336 M00S03687.dmrec +++| DBF3 SA4 HOLD 04337 M00S03688.dmrec +++| READW X4,WBUF,WBUFL 04338 M00S03689.dmrec +++| ZR X1,DBF5 IF NO EOR/EOF 04339 M00S03690.dmrec +++| NG X1,DBF6 IF EOF/EOI 04340 M00S03691.dmrec +++| 04341 M00S03692.dmrec +++|* EOR ENCOUNTERED. 04342 M00S03693.dmrec +++| 04343 M00S03694.dmrec +++| WRITEW TP,WBUF,X1-WBUF 04344 M00S03695.dmrec +++| RJ DER DETECT END OF REEL 04345 M00S03696.dmrec +++| NG X1,DBF4 IF END OF TAPE 04346 M00S03697.dmrec +++| NZ X1,DBFX IF ERROR 04347 M00S03698.dmrec +++| DBF4 WRITER TP,R
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04348 M01S00120.dmrec7 +++| SA2 EORCNT 04349 M01S00121.dmrec7 +++| SX6 X2+B1 04350 M01S00122.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT 04351 M00S03699.dmrec +++| RJ DER DETECT END OF REEL 04352 M00S03700.dmrec +++| NG X1,DBF1 IF END OF TAPE 04353 M00S03701.dmrec +++| NZ X1,DBFX IF ERROR 04354 M00S03702.dmrec +++| EQ DBF1 GET NEXT RECORD 04355 M00S03703.dmrec +++| 04356 M00S03704.dmrec +++| DBF5 WRITEW TP,WBUF,WBUFL 04357 M00S03705.dmrec +++| RJ DER DETECT END OF REEL 04358 M00S03706.dmrec +++| NG X1,DBF3 IF END OF TAPE 04359 M00S03707.dmrec +++| NZ X1,DBFX IF ERROR 04360 M00S03708.dmrec +++| EQ DBF3 GET NEXT BUFFER 04361 M00S03709.dmrec +++| 04362 M00S03710.dmrec +++| DBF6 SA1 XXPFN 04363 M00S03711.dmrec +++| SX2 3REND 04364 M00S03712.dmrec +++| MX0 42 04365 M00S03713.dmrec +++| SA4 ACFA 04366 M00S03714.dmrec +++| BX4 X4-X1 04367 M00S03715.dmrec +++| BX4 X0*X4 04368 M00S03716.dmrec +++| ZR X4,DBF7 IF DIRECTORY FILE 04369 M00S03717.dmrec +++| SA4 DMPFLG
| Line S03718 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04370 M01S03718.ns2023 ---| NZ X4,DBF7 IF NOT *LRF* 04371 M01S03719.ns2023 ---| LX1 48 POSITION FILE NAME FOR *LRF*
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04372 M01S00108.ns2023 +++| NZ X4,DBF7 IF NOT *ARF* 04373 M01S00109.ns2023 +++| LX1 48 POSITION FILE NAME FOR *ARF* 04374 M00S03720.dmrec +++| DBF7 BX6 X1+X2 04375 M00S03721.dmrec +++| SA6 TEMPP TRAILER WORD 04376 M00S03722.dmrec +++| WRITEW TP,TEMPP,B1 04377 M00S03723.dmrec +++| RJ DER DETECT END OF REEL 04378 M00S03724.dmrec +++| NG X1,DBF8 IF END OF TAPE 04379 M00S03725.dmrec +++| NZ X1,DBFX IF ERROR 04380 M00S03726.dmrec +++| DBF8 WRITEF TP,R
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04381 M01S00123.dmrec7 +++| SA2 EORCNT 04382 M01S00124.dmrec7 +++| SX6 X2+B1 04383 M01S00125.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT 04384 M00S03727.dmrec +++| RJ DER DETECT END OF REEL 04385 M00S03728.dmrec +++| NG X1,DBF9 IF END OF TAPE 04386 M00S03729.dmrec +++| NZ X1,DBFX IF ERROR 04387 M00S03730.dmrec +++| DBF9 SX1 B0 04388 M00S03731.dmrec +++| EQ DBFX RETURN 04389 M00S03732.dmrec +++| DCK SPACE 4,15 04390 M00S03733.dmrec +++|** DCK - DECOLLATE KEY. 04391 M00S03734.dmrec +++|* 04392 M00S03735.dmrec +++|* DECOLLATE PRIMARY KEY IN PLACE. ALL SYMBOLIC 04393 M00S03736.dmrec +++|* KEYS IN *IS* FILES MUST BE DECOLLATED. 04394 M00S03737.dmrec +++|* 04395 M00S03738.dmrec +++|* ENTRY (A1) = ADDRESS OF VECTOR TABLE. 04396 M00S03739.dmrec +++|* 04397 M00S03740.dmrec +++|* EXIT KEYS TRANSLATED TO ORIGINAL FORM. 04398 M00S03741.dmrec +++|* (X1) = 0 - IF NO ERRORS. 04399 M00S03742.dmrec +++|* 04400 M00S03743.dmrec +++|* USES X - ALL. 04401 M00S03744.dmrec +++|* A - 0, 1, 2, 3, 5, 7. 04402 M00S03745.dmrec +++|* B - 2, 3, 4, 5, 6, 7. 04403 M00S03746.dmrec +++| 04404 M00S03747.dmrec +++| 04405 M00S03748.dmrec +++| DCK SUBR ENTRY/EXIT 04406 M00S03749.dmrec +++| SA2 A1 FWA OF VECTOR TABLE 04407 M00S03750.dmrec +++| SA1 X2 FIRST PARAMETER 04408 M00S03751.dmrec +++| SA1 X1 GET SOURCE KEY 04409 M00S03752.dmrec +++| SA2 A2+B1 KEY POSITION 04410 M00S03753.dmrec +++| SA3 X2 BEGIN CHARACTER POSITION OF SOURCE KEY 04411 M00S03754.dmrec +++| IX6 X3+X3 BCP*2 04412 M00S03755.dmrec +++| LX7 B1,X6 BCP*4 04413 M00S03756.dmrec +++| IX5 X6+X7 BCP*6 04414 M00S03757.dmrec +++| SB3 X5 04415 M00S03758.dmrec +++| SA2 A2+B1 KEY SIZE 04416 M00S03759.dmrec +++| SA3 X2 04417 M00S03760.dmrec +++| SB7 X3 KEY LENGTH 04418 M00S03761.dmrec +++| ZR B7,DCKX IF ZERO CHARACTERS TO TRANSLATE 04419 M00S03762.dmrec +++| SA2 A2+B1 DECOLLATING TABLE ADDRESS 04420 M00S03763.dmrec +++| SA3 X2 04421 M00S03764.dmrec +++| SB4 X3 B4 IS ADDR OF TRANSLATION TABLE 04422 M00S03765.dmrec +++| SA3 DFIT 04423 M00S03766.dmrec +++| SA0 X3 04424 M00S03767.dmrec +++| MX6 0 CLEAR FOR TRANSLATED KEY 04425 M00S03768.dmrec +++| SB2 60 BIT COUNTER FOR OUTPUT WORD, 60,54,..,6,0 04426 M00S03769.dmrec +++| MX2 60-3 04427 M00S03770.dmrec +++| SB6 6 DECREMENTS B2 04428 M00S03771.dmrec +++| BX2 -X2 MASK, BITS 0-2 04429 M00S03772.dmrec +++| LX3 B1,X2 MASK, BITS 1-3 04430 M00S03773.dmrec +++| MX4 60-6 04431 M00S03774.dmrec +++| BX4 -X4 MASK, BITS 0-5 04432 M00S03775.dmrec +++| MX0 1 MASK, BIT 59 04433 M00S03776.dmrec +++| AX7 B3,X0 04434 M00S03777.dmrec +++| BX7 X7-X0 04435 M00S03778.dmrec +++| LX7 1 MASK FOR CHARS TO LEFT OF BCP OF KEY 04436 M00S03779.dmrec +++| BX6 X1*X7 04437 M00S03780.dmrec +++| LX6 B3,X6 RIGHT JUSTIFY SAVED CHARACTERS 04438 M00S03781.dmrec +++| LX1 B3,X1 LEFT JUSTIFY FIRST CHAR OF KEY 04439 M00S03782.dmrec +++| LX1 1 BIT 0 IS HIGH BIT OF FIRST CHAR OF KEY 04440 M00S03783.dmrec +++| DCK1 LX1 2 BITS 0-2= UPPER OCTAL DIGET OF NEXT CHAR 04441 M00S03784.dmrec +++| BX5 X2*X1 04442 M00S03785.dmrec +++| SA5 X5+B4 LOAD X-LATION TABLE WORD FROM TABLE + UPP 04443 M00S03786.dmrec +++| LX1 4 BITS 1-3 = LOWER OCTAL DIGIT OF CHAR 04444 M00S03787.dmrec +++| BX7 X3*X1 04445 M00S03788.dmrec +++| SB5 X7+B6 B5= 2*LOWER DIGIT+6 04446 M00S03789.dmrec +++| SB7 B7-B1 INCREMENT TOTAL CHAR COUNTER 04447 M00S03790.dmrec +++| LX6 6 ALIGN TRANSLATED KEY WORD FOR NEXT CHAR 04448 M00S03791.dmrec +++| IX7 X7+X7 4*LOWER DIGIT 04449 M00S03792.dmrec +++| SB2 B2-B6 BUMP BIT COUNTER 04450 M00S03793.dmrec +++| SB5 X7+B5 6*LOWER DIGIT+6. SHIFT CONSTANT 04451 M00S03794.dmrec +++| LX5 B5,X5 SHIFT TRANSLATED CHAR TO BITS 0-5 04452 M00S03795.dmrec +++| BX7 X4*X5 ISOLATE CHARACTER 04453 M00S03796.dmrec +++| EQ B7,DCK2 IF LAST CHARACTER IS TRANSLATED 04454 M00S03797.dmrec +++| BX6 X6+X7 ADD TRANSLATED CHARACTER TO OUTPUT WORD 04455 M00S03798.dmrec +++| NE B2,B3,DCK1 IF WORD NOT COMPLETELY TRANSLATED 04456 M00S03799.dmrec +++| SA6 A1 STORE TRANSLATED WORD 04457 M00S03800.dmrec +++| MX6 0 CLEAR FOR NEXT WORD OF TRANSLATED KEY 04458 M00S03801.dmrec +++| SA1 A1+B1 LOAD NEXT WORD TO BE TRANSLATED 04459 M00S03802.dmrec +++| SB2 60 RESET BIT COUNTER 04460 M00S03803.dmrec +++| SB3 B0 B3 IS NO LONGER BCP*6 04461 M00S03804.dmrec +++| LX1 1 04462 M00S03805.dmrec +++| EQ DCK1 BACK 04463 M00S03806.dmrec +++| 04464 M00S03807.dmrec +++| DCK2 BX6 X6+X7 ADD LAST CHAR TO OUTPUT WORD 04465 M00S03808.dmrec +++| SB2 B2-B3 04466 M00S03809.dmrec +++| LX6 B2,X6 LEFT JUSTIFY TRANSLATED KEY IN OUTPUT WORD 04467 M00S03810.dmrec +++| AX7 B2,X0 04468 M00S03811.dmrec +++| IX7 X7-X0 04469 M00S03812.dmrec +++| LX7 1 04470 M00S03813.dmrec +++| LX7 B2,X7 MASK FOR CHAR RIGHT OF KEY IN LAST WORD 04471 M00S03814.dmrec +++| SA5 A1 LAST WORD OF KEY 04472 M00S03815.dmrec +++| BX7 X5*X7 MASK OFF CHAR SO THEY CAN BE RESTORED 04473 M00S03816.dmrec +++| BX6 X6+X7 ADD SAVED CHARS TO TRANSLATED KEY WORD 04474 M00S03817.dmrec +++| SA6 A1 STORE TRANSLATED KEY 04475 M00S03818.dmrec +++| SX1 B0 04476 M00S03819.dmrec +++| EQ DCKX RETURN 04477 M00S03820.dmrec +++| DCR SPACE 4,20 04478 M00S03821.dmrec +++|** DCR - DECOMPRESS RECORD 04479 M00S03822.dmrec +++|* 04480 M00S03823.dmrec +++|* *DCR* DECOMPRESSES *CRM* RECORDS. THIS ROUTINE 04481 M00S03824.dmrec +++|* IS TAKEN, INTACT, FROM *CRM* (SEE *CRM CAPSULE CMPR$01*). 04482 M00S03825.dmrec +++|* 04483 M00S03826.dmrec +++|* ENTRY (A1) = ADDRESS OF PARAMETER BLOCK. 04484 M00S03827.dmrec +++|* (X1) = FIRST PARAMETER. 04485 M00S03828.dmrec +++|* 04486 M00S03829.dmrec +++|* EXIT RECORD EXPANDED. 04487 M00S03830.dmrec +++|* 04488 M00S03831.dmrec +++|* USES X - ALL. 04489 M00S03832.dmrec +++|* A - 1, 2, 3, 4, 5, 6. 04490 M00S03833.dmrec +++|* B - 1, 2, 3, 4, 5, 6, 7. 04491 M00S03834.dmrec +++|* 04492 M00S03835.dmrec +++|* MACROS ZIPPP, ZAPPP. 04493 M00S03836.dmrec +++| 04494 M00S03837.dmrec +++| 04495 M00S03838.dmrec +++| DCR SUBR ENTRY/EXIT 04496 M00S03839.dmrec +++| SB1 1 04497 M00S03840.dmrec +++| SA2 A1+B1 GET PARAMETERS 04498 M00S03841.dmrec +++| SA3 A2+B1 04499 M00S03842.dmrec +++| SA4 A3+B1 04500 M00S03843.dmrec +++| SA5 A4+B1 04501 M00S03844.dmrec +++| SA1 X1 04502 M00S03845.dmrec +++| SA4 X4 04503 M00S03846.dmrec +++| SB3 X4 CHARACTER POSITION 04504 M00S03847.dmrec +++| SA4 X1 FWA OF RECORD 04505 M00S03848.dmrec +++| SA1 X2 04506 M00S03849.dmrec +++| SB2 X1 LENGTH OF RECORD IN CHARACTERS 04507 M00S03850.dmrec +++| SA1 X3 04508 M00S03851.dmrec +++| BX7 X1 FWA OF KEY IN RECORD 04509 M00S03852.dmrec +++| SA1 X5 04510 M00S03853.dmrec +++| SB7 X1 LENGTH OF KEY IN CHARACTERS 04511 M00S03854.dmrec +++| SA1 A5+B1 04512 M00S03855.dmrec +++| SA2 A1+B1 04513 M00S03856.dmrec +++| SA3 A2+B1 04514 M00S03857.dmrec +++| SA1 X1 04515 M00S03858.dmrec +++| SB4 X1 FWA OF DESTINATION 04516 M00S03859.dmrec +++| SA1 X2 04517 M00S03860.dmrec +++| SB6 X1 04518 M00S03861.dmrec +++| BX6 X3 04519 M00S03862.dmrec +++| SA6 DCRB 04520 M00S03863.dmrec +++| SX6 B6 LENGTH OF DESTINATION AREA 04521 M00S03864.dmrec +++| SA6 X3 04522 M00S03865.dmrec +++| SB5 10 04523 M00S03866.dmrec +++| ZR B7,DCR1 IF KEY LENGTH IS ZERO 04524 M00S03867.dmrec +++| LX7 1 CALCULATE FWA OF KEY IN CHARACTERS 04525 M00S03868.dmrec +++| IX2 X7+X7 04526 M00S03869.dmrec +++| LX2 1 04527 M00S03870.dmrec +++| IX7 X7+X2 04528 M00S03871.dmrec +++| SX7 X7+B3 10*WORD+CHARACTER 04529 M00S03872.dmrec +++| SB7 X7+B7 04530 M00S03873.dmrec +++| DCR1 SA1 B4-B1 04531 M00S03874.dmrec +++| BX6 X1 04532 M00S03875.dmrec +++| SA6 A1 04533 M00S03876.dmrec +++| LT B6,B7,DCR10 IF DESTINATION AREA TOO SMALL 04534 M00S03877.dmrec +++| SX6 B0 04535 M00S03878.dmrec +++| SB4 B5 04536 M00S03879.dmrec +++| ZR B7,DCR4 IF NOT EMBEDDED KEY 04537 M00S03880.dmrec +++| DCR2 SB7 B7-B5 TRANSFER RECORD UP TO LWA OF KEY 04538 M00S03881.dmrec +++| BX6 X4 04539 M00S03882.dmrec +++| SB6 B6-B5 04540 M00S03883.dmrec +++| SB2 B2-B5 04541 M00S03884.dmrec +++| NG B7,DCR3 IF ENTIRE KEY TRANSFERED 04542 M00S03885.dmrec +++| SA6 A6+B1 04543 M00S03886.dmrec +++| SA4 A4+B1 04544 M00S03887.dmrec +++| EQ DCR2 CONTINUE TRANSFERING WORDS TO LWA OF KEY 04545 M00S03888.dmrec +++| 04546 M00S03889.dmrec +++|* SET UP REGISTERS FOR EXPANSION. 04547 M00S03890.dmrec +++| 04548 M00S03891.dmrec +++| 04549 M00S03892.dmrec +++| DCR3 SB4 -B7 04550 M00S03893.dmrec +++| SB6 B6+B4 04551 M00S03894.dmrec +++| SB2 B2+B4 04552 M00S03895.dmrec +++| SX6 B0 04553 M00S03896.dmrec +++| SX1 B7+B7 04554 M00S03897.dmrec +++| SX1 X1+B7 04555 M00S03898.dmrec +++| LX1 1 04556 M00S03899.dmrec +++| SB3 X1+60 04557 M00S03900.dmrec +++| ZR B3,DCR4 IF TRANSFERED ENTIRE WORD 04558 M00S03901.dmrec +++| LX4 X4,B3 04559 M00S03902.dmrec +++| SB7 B3-B1 04560 M00S03903.dmrec +++| MX0 1 04561 M00S03904.dmrec +++| AX0 X0,B7 04562 M00S03905.dmrec +++| LX0 X0,B3 04563 M00S03906.dmrec +++| BX6 X0*X4 REMAINING CHARACTERS TO BE TRANSFERED 04564 M00S03907.dmrec +++| DCR4 SB3 B4 NUMBER OF CHARACTERS NOT YET TRANSFERED 04565 M00S03908.dmrec +++| MX0 -6 04566 M00S03909.dmrec +++| 04567 M00S03910.dmrec +++| DCR5 ZR B2,DCR9 IF DONE EXPANSION 04568 M00S03911.dmrec +++| ZAPPP GET NEXT CHARACTER 04569 M00S03912.dmrec +++| SX1 X5-1R< KEY CHARACTER (72B) 04570 M00S03913.dmrec +++| ZR X1,DCR6 IF KEY CHARACTER (72B) ENCOUNTERED 04571 M00S03914.dmrec +++| ZIPPP X5,DCR10 04572 M00S03915.dmrec +++| EQ DCR5 CONTINUE NEXT CHARACTER 04573 M00S03916.dmrec +++| 04574 M00S03917.dmrec +++| DCR6 ZR B2,DCR10 IF DESTINATION AREA TOO SMALL 04575 M00S03918.dmrec +++| ZAPPP GET NEXT CHARACTER 04576 M00S03919.dmrec +++| SX1 60B 04577 M00S03920.dmrec +++| BX7 X1*X5 04578 M00S03921.dmrec +++| IX5 X5-X7 04579 M00S03922.dmrec +++| IX1 X1-X7 04580 M00S03923.dmrec +++| ZR X1,DCR7 IF TO EXPAND *>* 04581 M00S03924.dmrec +++| SX5 X5+2 04582 M00S03925.dmrec +++| DCR7 SB7 X5+B1 04583 M00S03926.dmrec +++| AX7 4 04584 M00S03927.dmrec +++| SA5 X7+DCRA 04585 M00S03928.dmrec +++| DCR8 ZIPPP X5,DCR10 ADD NEXT CHARACTER 04586 M00S03929.dmrec +++| SB7 B7-B1 04587 M00S03930.dmrec +++| NZ B7,DCR8 IF NOT DONE WITH CURRENT CHARACTER 04588 M00S03931.dmrec +++| EQ DCR5 CONTINUE EXPAND 04589 M00S03932.dmrec +++| 04590 M00S03933.dmrec +++| DCR9 SX1 B4+B4 SET UP EXIT CONDITIONS 04591 M00S03934.dmrec +++| SX1 X1+B4 04592 M00S03935.dmrec +++| LX1 1 04593 M00S03936.dmrec +++| SB4 X1 04594 M00S03937.dmrec +++| LX6 X6,B4 04595 M00S03938.dmrec +++| SB5 B4-B1 04596 M00S03939.dmrec +++| MX0 1 04597 M00S03940.dmrec +++| AX0 B5,X0 04598 M00S03941.dmrec +++| LX0 B4,X0 04599 M00S03942.dmrec +++| SA1 A6+B1 04600 M00S03943.dmrec +++| BX1 X0*X1 04601 M00S03944.dmrec +++| BX6 X6+X1 04602 M00S03945.dmrec +++| SA6 A1 04603 M00S03946.dmrec +++| SA1 DCRB 04604 M00S03947.dmrec +++| SA2 X1 04605 M00S03948.dmrec +++| SX3 B6 NUMBER OF CHARACTERS TRANSFERED 04606 M00S03949.dmrec +++| IX6 X2-X3 04607 M00S03950.dmrec +++| SA6 A2 04608 M00S03951.dmrec +++| EQ DCRX RETURN 04609 M00S03952.dmrec +++| 04610 M00S03953.dmrec +++| DCR10 MX6 1 RETURN ERROR STATUS 04611 M00S03954.dmrec +++| SA1 DCRB 04612 M00S03955.dmrec +++| SA6 X1 04613 M00S03956.dmrec +++| EQ DCRX RETURN 04614 M00S03957.dmrec +++| 04615 M00S03958.dmrec +++| DCRA DATA 0 04616 M00S03959.dmrec +++| DATA 1R0 04617 M00S03960.dmrec +++| DATA 1R 04618 M00S03961.dmrec +++| DATA 1R< 04619 M00S03962.dmrec +++| 04620 M00S03963.dmrec +++| DCRB BSSZ 1 EIGHTH PARAMETER ADDRESS 04621 M00S03964.dmrec +++| DDF SPACE 4,25 04622 M00S03965.dmrec +++|** DDF - DUMP DATA FILE. 04623 M00S03966.dmrec +++|* 04624 M00S03967.dmrec +++|* *DDF* DUMPS A FILE TO THE TAPES INDICATED 04625 M00S03968.dmrec +++|* IN TABLE TVSN. 04626 M00S03969.dmrec +++|* 04627 M00S03970.dmrec +++|* ENTRY DATA/INDEX OR LOG FILE ATTACHED. 04628 M00S03971.dmrec +++|* (IDFN) = INDEX TO TDFN. 04629 M00S03972.dmrec +++|* (IVSN) = INDEX TO TVSN. 04630 M00S03973.dmrec +++|* (X2) = PFN 04631 M00S03974.dmrec +++|* (XXIXN) = INDEX FILE NAME. 04632 M00S03975.dmrec +++|* = 0 IF NONE. 04633 M00S03976.dmrec +++|* (X4) = (XXMODE) 04634 M00S03977.dmrec +++|* 04635 M00S03978.dmrec +++|* EXIT DUMP FILE RECORDS CREATED IN TDFN. 04636 M00S03979.dmrec +++|* VSN RECORDS CREATED IN TVSN. 04637 M00S03980.dmrec +++|* (X1) = 0 IF NO ERRORS. 04638 M00S03981.dmrec +++|* 04639 M00S03982.dmrec +++|* USES X - 2, 3, 4, 6, 7. 04640 M00S03983.dmrec +++|* A - 2, 3, 4, 6, 7. 04641 M00S03984.dmrec +++|* B - 3. 04642 M00S03985.dmrec +++|* 04643 M00S03986.dmrec +++|* CALLS DBF, DRF, WFH. 04644 M00S03987.dmrec +++|* 04645 M00S03988.dmrec +++|* MACROS ERROR. 04646 M00S03989.dmrec +++| 04647 M00S03990.dmrec +++| 04648 M00S03991.dmrec +++| DDF SUBR ENTRY/EXIT 04649 M00S03992.dmrec +++| RJ WFH WRITE FILE HEADER 04650 M00S03993.dmrec +++| NZ X1,DDFX IF ERROR 04651 M00S03994.dmrec +++| SX4 DF 04652 M00S03995.dmrec +++| SA3 XXMODE GET MODE 04653 M00S03996.dmrec +++| ZR X3,DDF1 IF BLOCK DUMP 04654 M00S03997.dmrec +++| RJ DRF DUMP RECORD FORMAT 04655 M00S03998.dmrec +++| EQ DDF2 CHECK FOR ERROR 04656 M00S03999.dmrec +++| 04657 M00S04000.dmrec +++| DDF1 RJ DBF DUMP BLOCK FORMAT 04658 M00S04001.dmrec +++| DDF2 NZ X1,DDFX IF ERROR 04659 M00S04002.dmrec +++| SA2 IDFN 04660 M00S04003.dmrec +++| SB3 X2 04661 M00S04004.dmrec +++| SA2 TDFN+B3 04662 M00S04005.dmrec +++| SA4 FORD 04663 M00S04006.dmrec +++| BX6 X2+X4 04664 M00S04007.dmrec +++| SA6 A2 04665 M00S04008.dmrec +++| SX6 X4+1 04666 M00S04009.dmrec +++| SA2 NFLS 04667 M00S04010.dmrec +++| SA6 A4 04668 M00S04011.dmrec +++| SX6 X2+B1 04669 M00S04012.dmrec +++| SA6 A2 04670 M00S04013.dmrec +++| SA2 XXIXN 04671 M00S04014.dmrec +++| ZR X2,DDFX IF NO INDEX FILE 04672 M00S04015.dmrec +++| BX6 X2 04673 M00S04016.dmrec +++| SA6 XXPFN SET FN FOR INDEX FILE TRAILER 04674 M00S04017.dmrec +++| SA4 XXMODE SET MODE 04675 M00S04018.dmrec +++| RJ WFH WRITE FILE HEADER 04676 M00S04019.dmrec +++| NZ X1,DDFX IF ERROR 04677 M00S04020.dmrec +++| SA2 XXMODE 04678 M00S04021.dmrec +++| SX4 IF SET INDEX FILE FET ADDRESS 04679 M00S04022.dmrec +++| ZR X2,DDF3 IF BLOCK DUMP 04680 M00S04023.dmrec +++| RJ DRF DUMP RECORD FORMAT 04681 M00S04024.dmrec +++| EQ DDF4 CHECK FOR ERROR 04682 M00S04025.dmrec +++| 04683 M00S04026.dmrec +++| DDF3 RJ DBF DUMP BLOCK FORMAT 04684 M00S04027.dmrec +++| DDF4 NZ X1,DDFX IF ERROR 04685 M00S04028.dmrec +++| SA2 IDFN 04686 M00S04029.dmrec +++| SB3 X2+1 04687 M00S04030.dmrec +++| SA2 TDFN+B3 04688 M00S04031.dmrec +++| SA4 FORD 04689 M00S04032.dmrec +++| BX6 X2+X4 04690 M00S04033.dmrec +++| SA6 A2 04691 M00S04034.dmrec +++| SX6 X4+1 04692 M00S04035.dmrec +++| SA2 NFLS 04693 M00S04036.dmrec +++| SA6 A4 INCREMENT FILE ORDINAL 04694 M00S04037.dmrec +++| SX7 X2+1 04695 M00S04038.dmrec +++| SA7 A2 INCREMENT NUMBER OF EOF COUNT 04696 M00S04039.dmrec +++| EQ DDFX RETURN 04697 M00S04040.dmrec +++| DEL SPACE 4,25 04698 M00S04041.dmrec +++|** DEL - DELETE ENTRIES IN BACKUP DIRECTORY. 04699 M00S04042.dmrec +++|* 04700 M00S04043.dmrec +++|* *DEL* DELETES A GIVEN VSN ENTRY AND ALL DUMP ENTRIES 04701 M00S04044.dmrec +++|* REFERENCING THAT VSN, OR DELETES ALL DUMP ENTRIES AND 04702 M00S04045.dmrec +++|* CORRESPONDING VSN ENTRIES BEFORE A GIVEN DATE/TIME. 04703 M00S04046.dmrec +++|* 04704 M00S04047.dmrec +++|* ENTRY (TVSN) = VSN NUMBER, IF VSN TYPE DELETE. 04705 M00S04048.dmrec +++|* (DATE) = YY/MM/DD. 04706 M00S04049.dmrec +++|* (TIME) = HH.MM.SS. 04707 M00S04050.dmrec +++|* (LFNC) = 0, IF ALL FILES. 04708 M00S04051.dmrec +++|* 1, IF SELECTIVE FILES. 04709 M00S04052.dmrec +++|* 04710 M00S04053.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 04711 M00S04054.dmrec +++|* 04712 M00S04055.dmrec +++|* USES X - 0, 1, 6. 04713 M00S04056.dmrec +++|* A - 1, 6. 04714 M00S04057.dmrec +++|* B - NONE. 04715 M00S04058.dmrec +++|* 04716 M00S04059.dmrec +++|* CALLS EDI, FER, MDI, MDS, SDT. 04717 M00S04060.dmrec +++|* 04718 M00S04061.dmrec +++|* MACROS ERROR, GETN, REWINDM. 04719 M00S04062.dmrec +++| 04720 M00S04063.dmrec +++| 04721 M00S04064.dmrec +++| DEL SUBR ENTRY/EXIT 04722 M00S04065.dmrec +++| RJ SDT SET DATE AND TIME 04723 M00S04066.dmrec +++| SA1 LSTC DATE/TIME FLAG 04724 M00S04067.dmrec +++| ZR X1,DEL1 IF NO DATE/TIME GIVEN 04725 M00S04068.dmrec +++| SA1 TVSN VSN PARAMETER 04726 M00S04069.dmrec +++| NZ X1,DEL3 IF VSN ALSO GIVEN 04727 M00S04070.dmrec +++| SX6 B1 04728 M00S04071.dmrec +++| SA6 DELF DELETE FLAG - DATE/TIME DELETE 04729 M00S04072.dmrec +++| REWINDM DIRR 04730 M00S04073.dmrec +++| GETN DIRR,WSAB,,TKY1 DIRECTORY HEADER 04731 M00S04074.dmrec +++| GETN DIRR,WSAB,,TKY1 FIRST FILE HEADER 04732 M00S04075.dmrec +++| RJ FER FIT ERROR STATUS 04733 M00S04076.dmrec +++| NZ X1,DELX IF CRM ERROR 04734 M00S04077.dmrec +++| SA1 TKY1 04735 M00S04078.dmrec +++| MX0 42 04736 M00S04079.dmrec +++| BX6 X0*X1 04737 M00S04080.dmrec +++| SA6 A1 PRESET FIRST FILE NAME 04738 M00S04081.dmrec +++| RJ EDI EDIT DIRECTORY 04739 M00S04082.dmrec +++| EQ DELX RETURN 04740 M00S04083.dmrec +++| 04741 M00S04084.dmrec +++| DEL1 SA1 TVSN 04742 M00S04085.dmrec +++| ZR X1,DEL4 IF NO VSN AND NO DATE/TIME 04743 M00S04086.dmrec +++| MX6 0 04744 M00S04087.dmrec +++| SA6 ADDF SET FLAG TO DELETE 04745 M00S04088.dmrec +++| SA1 LFNC 04746 M00S04089.dmrec +++| NZ X1,DEL2 IF SELECTIVE FILES 04747 M00S04090.dmrec +++| RJ MDI MODIFY DIRECTORY 04748 M00S04091.dmrec +++| EQ DELX RETURN 04749 M00S04092.dmrec +++| DEL2 RJ MDS MODIFY SELECTIVE FILES IN DIRECTORY 04750 M00S04093.dmrec +++| EQ DELX RETURN 04751 M00S04094.dmrec +++| 04752 M00S04095.dmrec +++| DEL3 ERROR DMRA,,,DELX,,E BOTH VSN AND DATE/TIME SPECIFIED 04753 M00S04096.dmrec +++| 04754 M00S04097.dmrec +++| DEL4 ERROR DELB,,,DELX,,E VSN OR DATE/TIME NOT SPECIFIED 04755 M00S04098.dmrec +++| 04756 M00S04099.dmrec +++| DELB DATA 20H0 ***** 04757 M00S04100.dmrec +++| DATA C*VSN OR DATE/TIME NOT SPECIFIED.* 04758 M00S04101.dmrec +++| DELBL EQU *-DELB 04759 M00S04102.dmrec +++| DER SPACE 4,20 04760 M00S04103.dmrec +++|** DER - DETECT END-OF-REEL. 04761 M00S04104.dmrec +++|* 04762 M00S04105.dmrec +++|* DETECT END-OF-REEL. IF END-OF-REEL IS REACHED, CLOSE 04763 M00S04106.dmrec +++|* TAPE FILE AND REQUEST NEXT CANDIDATE FROM *TVSN*. 04764 M00S04107.dmrec +++|* ON WRITES, AN END-OF-TAPE BIT IS SET IN THE FET. ON 04765 M00S04108.dmrec +++|* READS, AN EOI STATUS IS CONSIDERED TO BE AN END-OF-TAPE. 04766 M00S04109.dmrec +++|* 04767 M00S04110.dmrec +++|* ENTRY (TP+0) = CONTAINS ERROR CODE. 04768 M00S04111.dmrec +++|* 04769 M00S04112.dmrec +++|* EXIT (X1) = 0, IF NO ERROR. 04770 M00S04113.dmrec +++|* POSITIVE, IF ERROR. 04771 M00S04114.dmrec +++|* NEGATIVE, IF END OF TAPE. 04772 M00S04115.dmrec +++|* 04773 M00S04116.dmrec +++|* USES X - 1, 2, 3, 4, 5, 6. 04774 M00S04117.dmrec +++|* A - 1, 2, 3, 4, 5, 6. 04775 M00S04118.dmrec +++|* B - 7. 04776 M00S04119.dmrec +++|* 04777 M00S04120.dmrec +++|* CALLS RTF. 04778 M00S04121.dmrec +++|* 04779 M00S04122.dmrec +++|* MACROS CLOSE. 04780 M00S04123.dmrec +++| 04781 M00S04124.dmrec +++| 04782 M00S04125.dmrec +++| DER SUBR ENTRY/EXIT 04783 M00S04126.dmrec +++| MX3 -4 04784 M00S04127.dmrec +++| SA1 TP 04785 M00S04128.dmrec +++| LX1 59-9 04786 M00S04129.dmrec +++| NG X1,DER1 IF EOI - END OF TAPE ASSUMED 04787 M00S04130.dmrec +++| BX1 -X3*X1 04788 M00S04131.dmrec +++| ZR X1,DERX IF NO ERROR 04789 M00S04132.dmrec +++| SX1 X1-1 04790 M00S04133.dmrec +++| NZ X1,DER2 IF ERROR OTHER THAN END OF TAPE 04791 M00S04134.dmrec +++| 04792 M00S04135.dmrec +++|* END OF REEL. 04793 M00S04136.dmrec +++| 04794 M00S04137.dmrec +++| DER1 CLOSE TP,UNLOAD,R 04795 M00S04138.dmrec +++| SA1 TP 04796 M00S04139.dmrec +++| MX2 42 04797 M00S04140.dmrec +++| BX1 X2*X1 04798 M00S04141.dmrec +++| SX3 B1 04799 M00S04142.dmrec +++| BX6 X3+X1
| Line S04143 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04800 M01S04143.dmrec7 ---| SA6 A1 CLEAR EOI STATUS 04801 M00S04144.dmrec +++| SA2 IVSN 04802 M00S04145.dmrec +++| SX2 X2-1 GET PREVEOUS TAPE ENTRY
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04803 M01S00126.dmrec7 +++| SA6 A1 CLEAR EOI STATUS 04804 M00S04146.dmrec +++| SA3 X2 04805 M00S04147.dmrec +++| SA4 NFLS 04806 M00S04148.dmrec +++| BX6 X3+X4 04807 M00S04149.dmrec +++| SA6 A3 04808 M00S04150.dmrec +++| SX6 B0 04809 M00S04151.dmrec +++| SA6 A4 04810 M00S04152.dmrec +++| SB7 TP 04811 M00S04153.dmrec +++| SA5 TPMODE GET MODE INDICATOR 04812 M00S04154.dmrec +++| RJ RTF REQUEST NEXT TAPE 04813 M00S04155.dmrec +++| ZR X1,DER1.1 IF NO ERROR 04814 M00S04156.dmrec +++| SX1 2 04815 M00S04157.dmrec +++| EQ DERX RETURN ERROR 04816 M00S04158.dmrec +++| 04817 M00S04159.dmrec +++| DER1.1 MX1 1 SET END OF TAPE
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04818 M01S00127.dmrec7 +++| SA3 PEOR 04819 M01S00128.dmrec7 +++| MX0 36 04820 M01S00129.dmrec7 +++| SA4 IVSN 04821 M01S00130.dmrec7 +++| SA5 X4-2 VSN OF PREVIOUS TAPE 04822 M01S00131.dmrec7 +++| BX6 X0*X5 04823 M01S00132.dmrec7 +++| SA4 EORCNT COUNT OF EOR-S ON *ARF* 04824 M01S00133.dmrec7 +++| BX7 X6+X4 COMBINE VSN WITH EOR COUNT 04825 M01S00134.dmrec7 +++| SA7 X3 ENTER INTO *TEOR* TABLE 04826 M01S00135.dmrec7 +++| SX6 X3+B1 04827 M01S00136.dmrec7 +++| SA6 A3 INCREMENT *PEOR* 04828 M01S00137.dmrec7 +++| MX7 0 04829 M01S00138.dmrec7 +++| SA7 A4 ZERO OUT EORCNT 04830 M00S04160.dmrec +++| SA2 DMTAPE
| Line S04161 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04831 M01S04161.dmrec7 ---| SX6 X2+1
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04832 M01S00139.dmrec7 +++| SX6 X2+B1 04833 M00S04162.dmrec +++| SA6 DMTAPE INCREMENT TAPE COUNT 04834 M00S04163.dmrec +++| EQ DERX RETURN 04835 M00S04164.dmrec +++| 04836 M00S04165.dmrec +++| DER2 ERROR DERA,,,DERX,,E READ/WRITE ERROR ON TAPE 04837 M00S04166.dmrec +++| 04838 M00S04167.dmrec +++| DERA DATA 20H0 ***** 04839 M00S04168.dmrec +++| DATA C*READ/WRITE ERROR ON TAPE.* 04840 M00S04169.dmrec +++| DERAL EQU *-DERA 04841 M00S04170.dmrec +++| DMP SPACE 4,25 04842 M00S04171.dmrec +++|** DMP - DUMP DATA BASE FILES. 04843 M00S04172.dmrec +++|* 04844 M00S04173.dmrec +++|* *DMP* DUMPS DATA BASE FILES SPECIFIED TO TAPE. THE 04845 M00S04174.dmrec +++|* FORMAT OF THE DUMP CAN BE EXPLICITLY SPECIFIED OR 04846 M00S04175.dmrec +++|* IMPLIED BY THE MODE BY WHICH IT CAN BE ATTACHED. 04847 M00S04176.dmrec +++|* 04848 M00S04177.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 04849 M00S04178.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 04850 M00S04179.dmrec +++|* (X6) = OPERATION FLAG (VALIDATES PARAMETERS). 04851 M00S04180.dmrec +++|* (B7) = LWA+1 OF STRING BUFFER. 04852 M00S04181.dmrec +++|* 04853 M00S04182.dmrec +++|* EXIT ALL INDICATED DATA FILES HAVE BEEN DUMPED IN 04854 M00S04183.dmrec +++|* THE PROPER FORMAT TO THE SPECIFIED VSN-S. 04855 M00S04184.dmrec +++|* 04856 M00S04185.dmrec +++|* USES X - ALL. 04857 M00S04186.dmrec +++|* A - 1, 2, 3 ,4, 6, 7. 04858 M00S04187.dmrec +++|* B - 3, 5, 7. 04859 M00S04188.dmrec +++|* 04860 M00S04189.dmrec +++|* CALLS ACF, ADF, BBE, BLT, CER, DBF, DDF, GXJ, RAF, RDF, 04861 M00S04190.dmrec +++|* RTE, RTF, RXJ, SPR, WFH. 04862 M00S04191.dmrec +++|* 04863 M00S04192.dmrec +++|* MACROS ATTACH, CLOSEM, ERROR, OPENM, READ, READW, 04864 M00S04193.dmrec +++|* RETURN, REWIND. 04865 M00S04194.dmrec +++| 04866 M00S04195.dmrec +++| 04867 M00S04196.dmrec +++| DMP BSS 0 04868 M00S04197.dmrec +++| RJ SPR STORE PARAMETERS 04869 M00S04198.dmrec +++| DMP1 SX6 B5 04870 M00S04199.dmrec +++| SA6 NUMF 04871 M00S04200.dmrec +++| DMP1.1 SX6 TVSN 04872 M00S04201.dmrec +++| SA6 IVSN 04873 M00S04202.dmrec +++| SX6 B0 04874 M00S04203.dmrec +++| SA6 IDFN 04875 M00S04204.dmrec +++| SA6 NFLS 04876 M00S04205.dmrec +++| SA6 FORD 04877 M00S04206.dmrec +++| SA6 FIRSTT 04878 M00S04207.dmrec +++| SA6 LASTT
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04879 M01S00140.dmrec7 +++| SA6 EORCNT 04880 M00S04208.dmrec +++| SA6 TRIP1 04881 M00S04209.dmrec +++| SA6 NUMV INITIALIZE COUNT OF VSN-S USED 04882 M00S04210.dmrec +++| SA2 TDFN 04883 M00S04211.dmrec +++| MX0 12 GET DATA BASE NAME 04884 M00S04212.dmrec +++| BX5 X0*X2 04885 M00S04213.dmrec +++| ZR X5,DMP12 IF NO FILES TO DUMP 04886 M00S04214.dmrec +++| SA1 DMPA 04887 M00S04215.dmrec +++| SA3 TDFN 04888 M00S04216.dmrec +++| LX3 30 04889 M00S04217.dmrec +++| MX0 -30 04890 M00S04218.dmrec +++| BX6 -X0*X3 04891 M00S04219.dmrec +++| SA3 DMPB 04892 M00S04220.dmrec +++| BX6 X3*X6 04893 M00S04221.dmrec +++| BX7 X6-X1 04894 M00S04222.dmrec +++| SA7 DMPFLG 04895 M00S04223.dmrec +++| SB7 TP 04896 M00S04224.dmrec +++| BX6 X5 04897 M00S04225.dmrec +++| SA6 XXPFN SET DATA BASE FOR RTF CALL TO ACF 04898 M00S04226.dmrec +++| MX5 1 WRITE MODE REQUEST 04899 M00S04227.dmrec +++| BX6 X5 04900 M00S04228.dmrec +++| SA6 TPMODE SAVE MODE 04901 M00S04229.dmrec +++| RJ RTF REQUEST TAPE FILE 04902 M00S04230.dmrec +++| NZ X1,DMP11 IF ERROR 04903 M00S04231.dmrec +++| SA2 DMPFLG 04904 M00S04232.dmrec +++| NZ X2,DMP2 IF DATA FILE 04905 M00S04233.dmrec +++|
| Line S04234 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04906 M01S04234.ns2023 ---|* DUMP LONG RECOVERY FILE.
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04907 M01S00110.ns2023 +++|* DUMP AFTER IMAGE RECOVERY FILE. 04908 M00S04235.dmrec +++| 04909 M00S04236.dmrec +++| SA1 NUMF 04910 M00S04237.dmrec +++| SX6 X1-2 04911 M00S04238.dmrec +++| NZ X6,DMP13 IF MORE THAN ONE FILE SPECIFIED
| Line S04239 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 04912 M01S04239.dmrec2 ---| SX6 B1 *LRF* DUMP
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 04913 M01S00112.dmrec2 +++| SA4 EXCOPY 04914 M01S00113.dmrec2 +++| SX4 X4-1 04915 M01S00114.dmrec2 +++| NZ X4,DMP1.11 IF NOT FIRST COPY 04916 M01S00115.dmrec2 +++| SA2 IVSN 04917 M01S00116.dmrec2 +++| SA5 X2-1 04918 M01S00117.dmrec2 +++| BX7 X5 04919 M01S00118.dmrec2 +++| SA7 FSTVSN SAVE FIRST VSN
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04920 M02S00119.ns2023 ---| DMP1.11 SX6 B1 *LRF* DUMP
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04921 M01S00111.ns2023 +++| DMP1.11 SX6 B1 *ARF* DUMP 04922 M00S04240.dmrec +++| SA6 TTFLG SET FLAG 04923 M00S04241.dmrec +++| MX0 42 04924 M00S04242.dmrec +++| SA4 TDFN 04925 M00S04243.dmrec +++| BX1 X0*X4 04926 M00S04244.dmrec +++| BX6 X1
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04927 M01S00141.dmrec7 +++| SA6 XXPFN2 04928 M00S04245.dmrec +++| LX6 12 XXPFN MUST HAVE DB IN FIRST 2 CHARACTERS 04929 M00S04246.dmrec +++| SA6 XXPFN
| Line S04247 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04930 M01S04247.ns2023 ---| ATTACH LRF,X1,,,W LOG FILE IS UNDER USERS USER NUMBER 04931 M01S04248.ns2023 ---| SX2 LRF SET FET ADDRESS
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04932 M02S00112.v23l617 ---| ATTACH ARF,X1,,,W LOG FILE IS UNDER USERS USER NUMBER
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04933 M01S00021.v23l617 +++| ATTACH ARF,X1,,,W LOG FILE IS UNDER USERS USER NAME
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04934 M01S00113.ns2023 +++| SX2 ARF SET FET ADDRESS 04935 M00S04249.dmrec +++| RJ CER CHECK ERROR 04936 M00S04250.dmrec +++| NZ X1,DMP15 IF ATTACH ERROR
| Line S04251 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04937 M01S04251.ns2023 ---| SA2 XXPFN FN OF *LRF*
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04938 M01S00114.ns2023 +++| SA2 XXPFN FN OF *ARF*
| Line S04252 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 04939 M01S04252.dmrec15 ---| SX4 B0 SET BLOCK MODE
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 04940 M01S00008.dmrec15 +++| SX4 PTWR SET WRITE MODE 04941 M00S04253.dmrec +++| RJ WFH WRITE FILE HEADER 04942 M00S04254.dmrec +++| NZ X1,DMP11 IF ERROR
| Line S04255 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04943 M01S04255.ns2023 ---| SX4 LRF SET FET ADDRESS 04944 M01S04256.ns2023 ---| RJ DBF DUMP BLOCK FORMAT - *LRF*
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04945 M01S00115.ns2023 +++| SX4 ARF SET FET ADDRESS 04946 M01S00116.ns2023 +++| RJ DBF DUMP BLOCK FORMAT - *ARF* 04947 M00S04257.dmrec +++| NZ X1,DMP10.1 IF ERROR
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 04948 M01S00142.dmrec7 +++| SA3 PEOR 04949 M01S00143.dmrec7 +++| SA4 IVSN 04950 M01S00144.dmrec7 +++| SA5 X4-1 GET VSN OF PREVIOUS TAPE 04951 M01S00145.dmrec7 +++| MX0 36 04952 M01S00146.dmrec7 +++| BX6 X0*X5 04953 M01S00147.dmrec7 +++| SA4 EORCNT COUNT OF EOR-S ON ARF 04954 M01S00148.dmrec7 +++| BX7 X6+X4 COMBINE VSN WITH EOR COUNT 04955 M01S00149.dmrec7 +++| SA7 X3 ENTER INTO *TEOR* TABLE 04956 M01S00150.dmrec7 +++| SX6 X3+B1 04957 M01S00151.dmrec7 +++| SA6 A3 INCREMENT PEOR POINTER 04958 M01S00152.dmrec7 +++| MX7 0 04959 M01S00153.dmrec7 +++| SA7 A4 ZERO OUT EOR COUNT
| Line S04258 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04960 M01S04258.ns2023 ---| REWIND LRF,R 04961 M01S04259.ns2023 ---| SA2 XXPFN FN OF *LRF*
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04962 M01S00117.ns2023 +++| REWIND ARF,R 04963 M01S00118.ns2023 +++| SA2 XXPFN FN OF *ARF* 04964 M00S04260.dmrec +++| SX4 B0 SET BLOCK MODE 04965 M00S04261.dmrec +++| RJ BLT BUILD LOG TABLE 04966 M00S04262.dmrec +++| NZ X1,DMP11 IF ERROR 04967 M00S04263.dmrec +++|
| Line S04264 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04968 M01S04264.ns2023 ---|* RESET *LRF* HEADER FIELDS.
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04969 M01S00119.ns2023 +++|* RESET *ARF* HEADER FIELDS. 04970 M00S04265.dmrec +++|
| Line S04266 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04971 M01S04266.ns2023 ---| REWIND LRF,R 04972 M01S04267.ns2023 ---| READ LRF,R 04973 M01S04268.ns2023 ---| READW LRF,WBUF,WBUFL READ *LRF* HEADER 04974 M01S04269.ns2023 ---| SA2 WBUF GET *LRF* STATUS
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04975 M01S00120.ns2023 +++| REWIND ARF,R 04976 M01S00121.ns2023 +++| READ ARF,R 04977 M01S00122.ns2023 +++| READW ARF,WBUF,WBUFL READ *ARF* HEADER 04978 M01S00123.ns2023 +++| SA2 WBUF GET *ARF* STATUS 04979 M00S04270.dmrec +++| MX0 -18 04980 M00S04271.dmrec +++| BX3 -X0*X2 04981 M00S04272.dmrec +++| SX3 X3-3 CHECK FOR POSSIBLE ERROR
| Line S04273 Modification History | |
|---|---|
M01 (Removed by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 04982 M01S04273.dmrec1 ---| ZR X3,DMP14 IF POSSIBLE *LRF* ERROR 04983 M01S04274.dmrec1 ---| RETURN LRF,R
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | dmrec1 |
Seq # *Modification Id* Act ----------------------------+ 04984 M01S00001.dmrec1 +++| NZ X3,DMP1.2 IF NO *ARF* HEADER ERROR 04985 M01S00002.dmrec1 +++| SX6 B1+ SET ERROR FLAG 04986 M01S00003.dmrec1 +++| SA6 DMPF
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec1 |
M02 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04987 M02S00004.ns2023 ---| DMP1.2 RETURN LRF,R
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04988 M01S00124.ns2023 +++| DMP1.2 RETURN ARF,R 04989 M00S04275.dmrec +++| SA1 EXCOPY GET COPY NUMBER 04990 M00S04276.dmrec +++| SX2 X1-NUMARF
| Line S04277 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04991 M01S04277.ns2023 ---| NZ X2,DMP10 IF NOT LAST *LRF* TO DUMP 04992 M01S04278.ns2023 ---| SA1 WBUF+TAFLW-TAFNW GET LENGTH FROM OLD *LRF*
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04993 M01S00125.ns2023 +++| NZ X2,DMP10 IF NOT LAST *ARF* TO DUMP 04994 M01S00126.ns2023 +++| SA1 WBUF+TAFLW-TAFNW GET LENGTH FROM OLD *ARF* 04995 M00S04279.dmrec +++| MX0 -TAFLN 04996 M00S04280.dmrec +++| LX1 TAFLN-1-TAFLS 04997 M00S04281.dmrec +++| BX6 -X0*X1
| Line S04282 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04998 M01S04282.ns2023 ---| EQ CRT2 ALLOCATE *LRF* (RETURN TO DMP10)
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 04999 M01S00127.ns2023 +++| EQ CRT2 ALLOCATE *ARF* (RETURN TO DMP10) 05000 M00S04283.dmrec +++| 05001 M00S04284.dmrec +++|* DUMP DATA BASE FILE. 05002 M00S04285.dmrec +++| 05003 M00S04286.dmrec +++| DMP2 SA1 TDFN 05004 M00S04287.dmrec +++| MX0 12 05005 M00S04288.dmrec +++| BX5 X0*X1 05006 M00S04289.dmrec +++| RJ GXJ GET *XXJ* FILE 05007 M00S04290.dmrec +++| NZ X1,DMP11 IF ERROR 05008 M00S04291.dmrec +++| DMP3 SA2 IDFN 05009 M00S04292.dmrec +++| SB3 X2 05010 M00S04293.dmrec +++| MX0 42 05011 M00S04294.dmrec +++| SA3 TDFN+B3 05012 M00S04295.dmrec +++| ZR X3,DMP9 IF NO MORE FILES 05013 M00S04296.dmrec +++| BX5 X0*X3 GET FILE NAME 05014 M00S04297.dmrec +++| LX3 48 05015 M00S04298.dmrec +++| MX0 -6 05016 M00S04299.dmrec +++| BX7 -X0*X3
| Line S04300 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05017 M01S04300.dmrec15 ---| SX6 B1+B1
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05018 M01S00009.dmrec15 +++| SX6 -1 05019 M00S04301.dmrec +++| ZR X7,DMP6 IF NULL
| Line S04302 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05020 M01S04302.dmrec15 ---| SX6 B1
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05021 M01S00010.dmrec15 +++| SX6 PTRM READ MODIFY MODE 05022 M00S04303.dmrec +++| SX3 X7-1RB 05023 M00S04304.dmrec +++| NZ X3,DMP6 IF NOT BLOCK
| Line S04305 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05024 M01S04305.dmrec15 ---| SX6 B0+
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 05025 M01S00011.dmrec15 +++| SX6 PTWR WRITE MODE 05026 M00S04306.dmrec +++| DMP6 SA6 XXMODE 05027 M00S04307.dmrec +++| RJ RXJ READ *XXJ* FILE 05028 M00S04308.dmrec +++| ZR X1,DMP7 IF FILE FOUND 05029 M00S04309.dmrec +++| PL X1,DMP11 IF FILE NOT FOUND 05030 M00S04310.dmrec +++| ZR X2,DMP11 IF NO ADDITIONIAL FILE 05031 M00S04311.dmrec +++| DMP7 RJ ADF ATTACH DATA FILE 05032 M00S04312.dmrec +++| NZ X1,DMP11 IF ERROR 05033 M00S04313.dmrec +++| SA3 IDFN 05034 M00S04314.dmrec +++| SB3 X3 05035 M00S04315.dmrec +++| SA3 TDFN+B3 05036 M00S04316.dmrec +++| SA4 XXMODE 05037 M00S04317.dmrec +++| LX4 12 05038 M00S04318.dmrec +++| MX0 54 05039 M00S04319.dmrec +++| LX0 12 05040 M00S04320.dmrec +++| BX6 X0*X3 05041 M00S04321.dmrec +++| BX6 X6+X4 05042 M00S04322.dmrec +++| SA6 A3 RESET MODE 05043 M00S04323.dmrec +++| SA2 XXIXN GET INDEX FILE NAME IF ANY 05044 M00S04324.dmrec +++| ZR X2,DMP8 IF NO INDEX FILE 05045 M00S04325.dmrec +++| BX6 X0*X2 05046 M00S04326.dmrec +++| BX6 X6+X4 05047 M00S04327.dmrec +++| SA6 A3+B1 SAVE INDEX FILE NAME AND MODE 05048 M00S04328.dmrec +++| DMP8 SA2 XXPFN 05049 M00S04329.dmrec +++| LX4 48 POSITION MODE 05050 M00S04330.dmrec +++| RJ DDF DUMP DATA FILE 05051 M00S04331.dmrec +++| NZ X1,DMP10.1 IF ERROR 05052 M00S04332.dmrec +++| RJ RDF RETURN DATA FILES 05053 M00S04333.dmrec +++| SA2 IDFN 05054 M00S04334.dmrec +++| SX6 X2+2 05055 M00S04335.dmrec +++| SA6 A2 GET NEXT PFN 05056 M00S04336.dmrec +++| EQ DMP3 CONTINUE FOR NEXT FILE 05057 M00S04337.dmrec +++| 05058 M00S04338.dmrec +++| DMP9 SA2 IVSN 05059 M00S04339.dmrec +++| SA3 X2-1 05060 M00S04340.dmrec +++| SA4 NFLS 05061 M00S04341.dmrec +++| BX6 X4+X3 05062 M00S04342.dmrec +++| SA6 A3 STORE NUMBER OF FILES ( LAST ) 05063 M00S04343.dmrec +++| DMP10 RJ ACF ATTACH ZZDBDIR FILE 05064 M00S04344.dmrec +++| RJ BBE BUILD BACK-UP ENTRIES 05065 M00S04345.dmrec +++| NZ X1,DMP11 IF ERRORS 05066 M00S04346.dmrec +++| CLOSEM DIRR,U 05067 M00S04347.dmrec +++| SX4 B0 SET BLOCK MODE 05068 M00S04348.dmrec +++| SA2 ACFA SET FILE NAME 05069 M00S04349.dmrec +++| RJ WFH WRITE FILE HEADER 05070 M00S04350.dmrec +++| NZ X1,DMP11 IF ERROR 05071 M00S04351.dmrec +++| RJ ACF ATTACH DIRECTORY 05072 M00S04352.dmrec +++| SA2 ACFA REPLACE DIRECTORY PFN FOR TRAILER 05073 M00S04353.dmrec +++| BX6 X2 05074 M00S04354.dmrec +++| SA6 XXPFN 05075 M00S04355.dmrec +++| SX4 ZZDBDIR SET FET ADDRESS 05076 M00S04356.dmrec +++| RJ DBF DUMP BLOCK FORMAT - DIRECTORY FILE
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/dmrec.002.txt · Last modified: by 127.0.0.1