cdc:nos2.source:opl.opl871:deck:dmrec.007
Deck DMREC Part 007
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 ----------------------------+ 12352 M00S10798.dmrec +++|* 12353 M00S10799.dmrec +++|* MACROS EDATE, ETIME. 12354 M00S10800.dmrec +++| 12355 M00S10801.dmrec +++| 12356 M00S10802.dmrec +++| UDT SUBR ENTRY/EXIT 12357 M00S10803.dmrec +++| AX5 18 12358 M00S10804.dmrec +++| MX0 42 12359 M00S10805.dmrec +++| BX3 -X0*X5 12360 M00S10806.dmrec +++| EDATE X3 12361 M00S10807.dmrec +++| SA3 UDTA 12362 M00S10808.dmrec +++| BX6 X3*X6 REMOVE */* AND *.* AND BLANKS 12363 M00S10809.dmrec +++| LX6 6 12364 M00S10810.dmrec +++| MX0 12 12365 M00S10811.dmrec +++| BX4 X0*X6 YEAR 12366 M00S10812.dmrec +++| LX0 48 12367 M00S10813.dmrec +++| LX6 6 12368 M00S10814.dmrec +++| BX3 X0*X6 MONTH 12369 M00S10815.dmrec +++| BX4 X4+X3 ADD MONTH 12370 M00S10816.dmrec +++| LX0 48 12371 M00S10817.dmrec +++| LX6 6 12372 M00S10818.dmrec +++| BX3 X0*X6 DAY 12373 M00S10819.dmrec +++| BX5 X4+X3 ADD DAY 12374 M00S10820.dmrec +++| SA3 A5 EXTRACT PACKED TIME 12375 M00S10821.dmrec +++| MX0 42 12376 M00S10822.dmrec +++| BX3 -X0*X3 12377 M00S10823.dmrec +++| ETIME X3 12378 M00S10824.dmrec +++| SA3 UDTA MASK 12379 M00S10825.dmrec +++| BX6 X3*X6 REMOVE */* AND *.* AND BLANKS 12380 M00S10826.dmrec +++| LX6 6 12381 M00S10827.dmrec +++| MX0 12 12382 M00S10828.dmrec +++| BX4 X0*X6 HOURS 12383 M00S10829.dmrec +++| LX0 48 12384 M00S10830.dmrec +++| LX6 6 12385 M00S10831.dmrec +++| BX3 X0*X6 MINUTES 12386 M00S10832.dmrec +++| BX4 X4+X3 ADD MINUTES 12387 M00S10833.dmrec +++| LX0 48 12388 M00S10834.dmrec +++| LX6 6 12389 M00S10835.dmrec +++| BX3 X0*X6 SECONDS 12390 M00S10836.dmrec +++| BX7 X4+X3 ADD SECONDS 12391 M00S10837.dmrec +++| BX6 X5 12392 M00S10838.dmrec +++| EQ UDTX RETURN NORMAL 12393 M00S10839.dmrec +++| 12394 M00S10840.dmrec +++| UDTA VFD 6/0,12/7777B,6/0,12/7777B,6/0,12/7777B,6/0 12395 M00S10841.dmrec +++| UPD SPACE 4,25 12396 M00S10842.dmrec +++|** UPD - UPDATE DATA FILE. 12397 M00S10843.dmrec +++|* 12398 M00S10844.dmrec +++|* *UPD* APPLIES *AFTER IMAGE* ENTRIES AGAINST AN EXISTING 12399 M00S10845.dmrec +++|* DATA BASE FILE. ALL *AFTER IMAGES* ARE APPLIED THAT FIT 12400 M00S10846.dmrec +++|* THE VSN, TIME AND/OR DATE CRITERIA ON THE DIRECTIVE CARD. 12401 M00S10847.dmrec +++|* 12402 M00S10848.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 12403 M00S10849.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 12404 M00S10850.dmrec +++|* (X6) = OPERATION FLAG. 12405 M00S10851.dmrec +++|* 12406 M00S10852.dmrec +++|* EXIT SPECIFIED FILE UPDATED WITH APPROPRIATE *AFTER 12407 M00S10853.dmrec +++|* IMAGES*. 12408 M00S10854.dmrec +++|* 12409 M00S10855.dmrec +++|* USES X - 0, 1, 2, 4, 5, 6. 12410 M00S10856.dmrec +++|* A - 1, 2, 5, 6. 12411 M00S10857.dmrec +++|* B - 5, 6, 7. 12412 M00S10858.dmrec +++|* 12413 M00S10859.dmrec +++|* CALLS ACF, ADF, BVT, CND, CWM, DXB, GNR, GXJ, 12414 M00S10860.dmrec +++|* RAF, RTF, RXJ, SPR. 12415 M00S10861.dmrec +++|* 12416 M00S10862.dmrec +++|* MACROS CLOSEM, ERROR, OPENM, READ, READW, RETURN, 12417 M00S10863.dmrec +++|* REWIND, STORE. 12418 M00S10864.dmrec +++| 12419 M00S10865.dmrec +++| 12420 M00S10866.dmrec +++| UPD RJ SPR SET PARAMETERS 12421 M00S10867.dmrec +++| SB5 B5-2 12422 M00S10868.dmrec +++| NZ B5,UPD18 IF OTHER THAN ONE FILE SPECIFIED 12423 M00S10869.dmrec +++| 12424 M00S10870.dmrec +++|* DATA FILE RECOVERY ENTRY POINT. 12425 M00S10871.dmrec +++| 12426 M00S10872.dmrec +++| UPD1 SX6 B0 12427 M00S10873.dmrec +++| SA6 TTIG NO *TTIG* TABLE SEARCH NECESSARY 12428 M00S10874.dmrec +++| SX4 3RGI* 12429 M00S10875.dmrec +++| RJ CND CHECK NEXT DIRECTIVE 12430 M00S10876.dmrec +++| NZ X1,UPD2 IF NEXT DIRECTIVE IS NOT IGNORE 12431 M00S10877.dmrec +++| SA2 DATE 12432 M00S10878.dmrec +++| BX6 X2 12433 M00S10879.dmrec +++| SA6 SDATE SAVE DATE 12434 M00S10880.dmrec +++| SA2 TIME 12435 M00S10881.dmrec +++| BX6 X2 12436 M00S10882.dmrec +++| SA6 STIME SAVE TIME 12437 M00S10883.dmrec +++| SA2 DATE1 12438 M00S10884.dmrec +++| BX6 X2 12439 M00S10885.dmrec +++| SA6 SDATE1 SAVE DATE1 12440 M00S10886.dmrec +++| SA2 TIME1 12441 M00S10887.dmrec +++| BX6 X2 12442 M00S10888.dmrec +++| SA6 STIME1 SAVE TIME1 12443 M00S10889.dmrec +++| SA2 TVSN 12444 M00S10890.dmrec +++| BX6 X2 12445 M00S10891.dmrec +++| SA6 SVSN SAVE VSN 12446 M00S10892.dmrec +++| SA2 TDFN 12447 M00S10893.dmrec +++| BX6 X2 12448 M00S10894.dmrec +++| SA6 STDFN SAVE PFN 12449 M00S10895.dmrec +++| SX6 TTIG 12450 M00S10896.dmrec +++| SA6 ITIT INITIALIZE *TTIG* TABLE POINTER 12451 M00S10897.dmrec +++| EQ DMR3 EXIT FOR IGNORE PROCESSOR 12452 M00S10898.dmrec +++| 12453 M00S10899.dmrec +++| UPD2 SA2 TDFN 12454 M00S10900.dmrec +++| MX0 42 12455 M00S10901.dmrec +++| BX6 X0*X2 12456 M00S10902.dmrec +++| SA6 XXPFN SAVE PFN 12457 M00S10903.dmrec +++| MX0 12 12458 M00S10904.dmrec +++| BX5 X0*X6
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 12459 M01S00162.dmrec2 +++| BX6 X5 12460 M01S00163.dmrec2 +++| SA6 UPDE SAVE DATA BASE NAME 12461 M00S10905.dmrec +++| RJ GXJ GET *XXJ* FILE 12462 M00S10906.dmrec +++| NZ X1,UPD14 IF ERROR 12463 M00S10907.dmrec +++| SA5 XXPFN 12464 M00S10908.dmrec +++| RJ RXJ READ *XXJ* FILE 12465 M00S10909.dmrec +++| ZR X1,UPD3 IF FILE FOUND 12466 M00S10910.dmrec +++| PL X1,DMR3 IF NO FILE FOUND 12467 M00S10911.dmrec +++| ZR X2,DMR3 IF NO FILE FOUND
| Line S10912 Modification History | |
|---|---|
M01 (Removed by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 12468 M01S10912.dmrec15 ---| UPD3 SX6 B0
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 12469 M01S00016.dmrec15 +++| UPD3 SX6 PTWR WRITE MODE 12470 M00S10913.dmrec +++| SA6 XXMODE ATTACH IN WRITE MODE 12471 M00S10914.dmrec +++| RJ CWM CHECK WRITE MODE 12472 M00S10915.dmrec +++| NZ X1,DMR3 IF ERROR 12473 M00S10916.dmrec +++| RJ ADF ATTACH FILES 12474 M00S10917.dmrec +++| NZ X1,UPD14 IF ERROR
| Line S10918 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12475 M01S10918.ns2056 ---| RJ ACF ATTACH DIRECTORY FILE
| Line S00228 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12476 M01S00228.ns2056 +++| SA2 XXIXN 12477 M01S00229.ns2056 +++| ZR X2,UPD3.0 IF NO INDEX FILE 12478 M01S00230.ns2056 +++| SA5 PROCCFO 12479 M01S00231.ns2056 +++| BX6 X1+X5 12480 M01S00232.ns2056 +++| SA6 A5 STORE FILE TYPE IN PROC FILE 12481 M01S00233.ns2056 +++| WRITEW ZZZZSUB,PROCD,PROCDL 12482 M01S00234.ns2056 +++| WRITER ZZZZSUB,R 12483 M01S00235.ns2056 +++| RJ EXC EXECUTE CONTROL CARD 12484 M01S00236.ns2056 +++| UPD3.0 RJ ACF ATTACH DIRECTORY FILE 12485 M00S10919.dmrec +++| RJ BVT BUILD VSN TABLE
| Line S10920 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12486 M01S10920.ns2056 ---| NZ X1,UPD15 IF ERROR - RELEASE FILES
| Line S00237 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12487 M01S00237.ns2056 +++| NZ X1,UPD14 IF ERROR, RELEASE FILES 12488 M00S10921.dmrec +++| CLOSEM DIRR,U
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 12489 M01S00164.dmrec2 +++| SA2 UPDE 12490 M01S00165.dmrec2 +++| BX7 X2 12491 M01S00166.dmrec2 +++| RJ BRT BUILD RECOVERY TABLE
| Line S00361 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12492 M01S00361.dmrec7 +++| NZ X1,UPD14 IF ERROR 12493 M01S00362.dmrec7 +++| BX6 X1 12494 M01S00363.dmrec7 +++| SA6 HOLD3 INITIALIZE FIRST THROUGH FLAG 12495 M00S10922.dmrec +++| SA1 XXTY GET TYPE 12496 M00S10923.dmrec +++| SX2 X1-2RIS 12497 M00S10924.dmrec +++| NZ X2,UPD4 IF NOT *IS* 12498 M00S10925.dmrec +++| SX1 #IS# 12499 M00S10926.dmrec +++| EQ UPD6 SET FO 12500 M00S10927.dmrec +++| 12501 M00S10928.dmrec +++| UPD4 SX2 X1-2RDA 12502 M00S10929.dmrec +++| NZ X2,UPD5 IF NOT *DA* 12503 M00S10930.dmrec +++| SX1 #DA# 12504 M00S10931.dmrec +++| EQ UPD6 SET FO 12505 M00S10932.dmrec +++| 12506 M00S10933.dmrec +++| UPD5 SX1 #AK# 12507 M00S10934.dmrec +++| UPD6 STORE DFIT,FO=X1
| Line S10935 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12508 M01S10935.ns2056 ---| SA2 XXIXN 12509 M01S10936.ns2056 ---| ZR X2,UPD7 IF NO INDEX FILE 12510 M01S10937.ns2056 ---| SA2 INDEX 12511 M01S10938.ns2056 ---| MX0 42 12512 M01S10939.ns2056 ---| BX2 X0*X2 12513 M01S10940.ns2056 ---| STORE DFIT,XN=X2 12514 M00S10941.dmrec +++| UPD7 OPENM DFIT,I-O OPEN DATA FILE 12515 M00S10942.dmrec +++| SX6 TVSN 12516 M00S10943.dmrec +++| SA6 IVSN INITIALIZE IVSN
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12517 M01S00364.dmrec7 +++| SX7 TREC 12518 M01S00365.dmrec7 +++| SA7 PREC INITIALIZE RECOVERY VSN POINTER 12519 M01S00366.dmrec7 +++| SX6 B1+ 12520 M01S00367.dmrec7 +++| SA6 TAPERR INITIALIZE TAPE ERROR COUNT 12521 M00S10944.dmrec +++| UPD8 SA2 IVSN GET NEXT TAPE 12522 M00S10945.dmrec +++| SA2 X2
| Line S10946 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12523 M01S10946.ns2056 ---| ZR X2,UPD15 IF NO MORE AFTER IMAGE TAPES
| Line S00238 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12524 M01S00238.ns2056 +++| ZR X2,UPD13.0 IF NO MORE AFTER IMAGE TAPES 12525 M00S10947.dmrec +++| MX0 36 12526 M00S10948.dmrec +++| BX6 X0*X2 12527 M00S10949.dmrec +++| SA6 A2 STRIP COUNT FROM TVSN ENTRY
| Line S10950 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12528 M01S10950.dmrec7 ---| BX6 -X0*X2 12529 M01S10951.dmrec7 ---| SA6 NUME SAVE NUMBER OF ENTRIES ON THIS TAPE
| Line S00368 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12530 M01S00368.dmrec7 +++| SA3 PREC 12531 M01S00369.dmrec7 +++| SA1 X3+B1 12532 M01S00370.dmrec7 +++| SA4 HOLD3 12533 M01S00371.dmrec7 +++| ZR X4,UPD9 IF FIRST TIME THROUGH 12534 M01S00372.dmrec7 +++| IX5 X1-X6 COMPARE VSN-S 12535 M01S00373.dmrec7 +++| NZ X5,UPD10.10 IF VSN-S DO NOT MATCH 12536 M01S00374.dmrec7 +++| SX7 X3+B1 12537 M01S00375.dmrec7 +++| MX6 0 12538 M01S00376.dmrec7 +++| SA7 PREC INCREMENT RECOVERY VSN POINTER 12539 M01S00377.dmrec7 +++| SX7 B1 12540 M01S00378.dmrec7 +++| SA6 EORCNT ZERO OUT EOR COUNT 12541 M01S00379.dmrec7 +++| SA7 TAPERR INITIALIZE TAPE ERROR COUNT 12542 M01S00380.dmrec7 +++| UPD9 SX6 B1 12543 M01S00381.dmrec7 +++| SA6 HOLD3 RESET FIRST THROUGH FLAG 12544 M00S10952.dmrec +++| SB7 TP 12545 M00S10953.dmrec +++| MX5 0 READ MODE REQUEST 12546 M00S10954.dmrec +++| BX6 X5
| Line S00382 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12547 M01S00382.dmrec7 +++| SA6 HOLD SET FOR INITIAL CALL TO *GNR* 12548 M00S10955.dmrec +++| SA6 TPMODE SAVE MODE 12549 M00S10956.dmrec +++| RJ RTF REQUEST TAPE
| Line S10957 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12550 M01S10957.ns2056 ---| NZ X1,UPD15 IF END OF VSN-S
| Line S00239 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12551 M01S00239.ns2056 +++| NZ X1,UPD14 IF END OF VSN-S 12552 M00S10958.dmrec +++| 12553 M00S10959.dmrec +++|* READ AFTER IMAGE RECORDS AND APPLY THEM TO THE FILE 12554 M00S10960.dmrec +++|* WHEN NECESSARY. 12555 M00S10961.dmrec +++|
| Line S10962 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 12556 M01S10962.dmrec2 ---| SB7 B0 DXB OCTAL MODE 12557 M01S10963.dmrec2 ---| MX0 48 12558 M01S10964.dmrec2 ---| SB6 TTIG-2 12559 M01S10965.dmrec2 ---| UPD9 SB6 B6+2 12560 M01S10966.dmrec2 ---| SA1 B6 GET ENTRY 12561 M01S10967.dmrec2 ---| ZR X1,UPD10 IF NO MORE ENTRIES 12562 M01S10968.dmrec2 ---| SX2 X1-2RTS 12563 M01S10969.dmrec2 ---| NZ X2,UPD9 IF NO CONVERSION NECESSARY 12564 M01S10970.dmrec2 ---| BX5 X0*X1 CONVERT TO BINARY 12565 M01S10971.dmrec2 ---| RJ DXB CONVERT 12566 M01S10972.dmrec2 ---| NZ X4,UPD17 IF ERROR 12567 M01S10973.dmrec2 ---| SX2 2RTS 12568 M01S10974.dmrec2 ---| LX6 36 12569 M01S10975.dmrec2 ---| BX6 X6+X2 12570 M01S10976.dmrec2 ---| SA6 A1 RESTORE *TTIG* ENTRY 12571 M01S10977.dmrec2 ---| EQ UPD9 GET NEXT ENTRY 12572 M01S10978.dmrec2 ---| 12573 M00S10979.dmrec +++| UPD10 REWIND TP,R 12574 M00S10980.dmrec +++| READ TP READ DMREC-S TAPE LABEL 12575 M00S10981.dmrec +++| READW TP,WBUF,WBUFL
| Line S10982 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12576 M01S10982.dmrec7 ---| ZR X1,UPD16 IF ERROR 12577 M01S10983.dmrec7 ---| NG X1,UPD16 IF ERROR 12578 M01S10984.dmrec7 ---| SX4 TP SET FET ADDRESS 12579 M01S10985.dmrec7 ---| SX6 B0 INITIAL CALL TO *GNR* 12580 M01S10986.dmrec7 ---| SA6 HOLD
| Line S00383 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12581 M01S00383.dmrec7 +++| ZR X1,UPD10.1 IF ERROR 12582 M01S00384.dmrec7 +++| PL X1,UPD10.2 IF NO ERROR 12583 M01S00385.dmrec7 +++| UPD10.1 RJ RRE READ RECOVERY ERROR 12584 M01S00386.dmrec7 +++| NZ X1,UPD14 IF ERROR 12585 M01S00387.dmrec7 +++| EQ UPD10 CONTINUE PROCESSING 12586 M01S00388.dmrec7 +++| 12587 M01S00389.dmrec7 +++| UPD10.10 MX5 0 READ MODE 12588 M01S00390.dmrec7 +++| SB7 TP 12589 M01S00391.dmrec7 +++| RJ RTF REQUEST TAPE 12590 M01S00392.dmrec7 +++| NZ X1,UPD14 IF ERROR 12591 M01S00393.dmrec7 +++| READEI TP INITIAL READ ON NEW TAPE 12592 M01S00394.dmrec7 +++| UPD10.2 SA2 EORCNT 12593 M01S00395.dmrec7 +++| SX6 X2+B1 INCREMENT EOR COUNT 12594 M01S00396.dmrec7 +++| SA6 A2 12595 M01S00397.dmrec7 +++| UPD10.3 SX4 TP SET FET ADDRESS 12596 M00S10987.dmrec +++| RJ GNR GET NEXT RECORD - HEADER
| Line S10988 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12597 M01S10988.dmrec7 ---| NG X1,UPD13 IF EOF - ERROR 12598 M01S10989.dmrec7 ---| NZ X1,UPD14 IF ERROR 12599 M01S10990.dmrec7 ---| UPD11 SX4 TP
| Line S00398 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12600 M01S00398.dmrec7 +++| ZR X1,UPD11 IF NO ERROR 12601 M01S00399.dmrec7 +++| RJ RRE READ RECOVERY ERROR 12602 M01S00400.dmrec7 +++| NZ X1,UPD14 IF ERROR 12603 M01S00401.dmrec7 +++| EQ UPD10.3 CONTINUE PROCESSING 12604 M01S00402.dmrec7 +++| 12605 M01S00403.dmrec7 +++| UPD11 SA2 EORCNT 12606 M01S00404.dmrec7 +++| SX6 X2+B1 12607 M01S00405.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT 12608 M01S00406.dmrec7 +++| UPD11.1 SX4 TP 12609 M00S10991.dmrec +++| RJ GNR GET NEXT RECORD
| Line S10992 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12610 M01S10992.dmrec7 ---| NG X1,UPD12 IF EOF 12611 M01S10993.dmrec7 ---| NZ X1,UPD14 IF ERROR 12612 M01S10994.dmrec7 ---| RJ AAI APPLY AFTER IMAGES
| Line S00407 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12613 M01S00407.dmrec7 +++| ZR X1,UPD11.2 IF NO ERROR 12614 M01S00408.dmrec7 +++| PL X1,UPD11.11 IF ERROR 12615 M01S00409.dmrec7 +++| MX0 -2 12616 M01S00410.dmrec7 +++| BX1 -X0-X1 12617 M01S00411.dmrec7 +++| NZ X1,UPD12 IF *EOF* 12618 M01S00412.dmrec7 +++| UPD11.11 RJ RRE READ RECOVERY ERROR 12619 M01S00413.dmrec7 +++| NZ X1,UPD14 IF ERROR 12620 M01S00414.dmrec7 +++| EQ UPD11.1 CONTINUE PROCESSING 12621 M01S00415.dmrec7 +++| 12622 M01S00416.dmrec7 +++| UPD11.2 SA2 EORCNT 12623 M01S00417.dmrec7 +++| SX6 X2+B1 12624 M01S00418.dmrec7 +++| SA6 A2 INCREMENT EOR COUNT 12625 M01S00419.dmrec7 +++| RJ AAI APPLY AFTER IMAGES
| Line S10995 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12626 M01S10995.ns2056 ---| NZ X1,UPD15 IF ERROR
| Line S00240 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12627 M01S00240.ns2056 +++| NZ X1,UPD14 IF ERROR
| Line S10996 Modification History | |
|---|---|
M01 (Removed by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12628 M01S10996.dmrec7 ---| EQ UPD11 GET NEXT RECORD
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12629 M01S00420.dmrec7 +++| EQ UPD11.1 GET NEXT RECORD 12630 M00S10997.dmrec +++| 12631 M00S10998.dmrec +++| UPD12 RETURN TP 12632 M00S10999.dmrec +++| EQ UPD8 GET NEXT TAPE 12633 M00S11000.dmrec +++| 12634 M00S11001.dmrec +++| UPD13 ERROR UPDB,,,UPD14,,E RECORD NUMBER ERROR 12635 M00S11002.dmrec +++|
| Line S00241 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12636 M01S00241.ns2056 +++| UPD13.0 SA2 XXIXN 12637 M01S00242.ns2056 +++| ZR X2,UPD14 IF NO INDEX FILE 12638 M01S00243.ns2056 +++| RJ BIF BUILD INDEX FILE 12639 M01S00244.ns2056 +++| RJ RAF RETURN ALL FILES 12640 M01S00245.ns2056 +++| EQ DMR3 RETURN NORMAL 12641 M01S00246.ns2056 +++| 12642 M00S11003.dmrec +++| UPD14 CLOSEM DFIT,U 12643 M00S11004.dmrec +++| RJ RAF RETURN DATA FILES 12644 M00S11005.dmrec +++| EQ DMR3 NORMAL RETURN 12645 M00S11006.dmrec +++|
| Line S11007 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12646 M01S11007.ns2056 ---| UPD15 CLOSEM DFIT,U 12647 M01S11008.ns2056 ---| RJ RAF RETURN DATA FILES
| Line S11009 Modification History | |
|---|---|
M01 (Removed by) | dmrec2 |
M02 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12648 M02S11009.ns2056 ---| SA1 QRFFLG GET QRF DOWN FLAG 12649 M02S11010.ns2056 ---| NG X1,REC2 IF *QRF* DOWN RECOVERY
| Line S11011 Modification History | |
|---|---|
M01 (Removed by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12650 M01S11011.ns2056 ---| EQ DMR3 RETURN 12651 M01S11012.ns2056 ---| 12652 M00S11013.dmrec +++| UPD16 ERROR UPDC,,,UPD14,,E DMREC TAPE LABEL ERROR 12653 M00S11014.dmrec +++| 12654 M00S11015.dmrec +++| UPD17 ERROR UPDD,,,UPD14,,E DXB CONVERSION ERROR 12655 M00S11016.dmrec +++| 12656 M00S11017.dmrec +++| UPD18 ERROR DMRA,,,UPD14,,E DIRECTIVE FORMAT ERROR 12657 M00S11018.dmrec +++| 12658 M00S11019.dmrec +++| UPDB DATA 20H0 ***** 12659 M00S11020.dmrec +++| DATA C*RECORD NUMBER ERROR.* 12660 M00S11021.dmrec +++| UPDBL EQU *-UPDB 12661 M00S11022.dmrec +++| 12662 M00S11023.dmrec +++| UPDC DATA 20H0 ***** 12663 M00S11024.dmrec +++| DATA C*DMREC TAPE LABEL ERROR.* 12664 M00S11025.dmrec +++| UPDCL EQU *-UPDC 12665 M00S11026.dmrec +++| UPDD DATA 20H0 ***** 12666 M00S11027.dmrec +++| DATA C*DXB CONVERSION ERROR - TRANSACTION SEQUENCE NUMBER.* 12667 M00S11028.dmrec +++| UPDDL EQU *-UPDD
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 12668 M01S00167.dmrec2 +++| UPDE BSSZ 1 DATA BASE NAME 12669 M00S11029.dmrec +++| WBL SPACE 4,15 12670 M00S11030.dmrec +++|** WBL - WRITE BLANK LINE. 12671 M00S11031.dmrec +++|* 12672 M00S11032.dmrec +++|* ENTRY NONE. 12673 M00S11033.dmrec +++|* 12674 M00S11034.dmrec +++|* EXIT BLANK LINE WRITTEN. 12675 M00S11035.dmrec +++|* 12676 M00S11036.dmrec +++|* USES X - 2. 12677 M00S11037.dmrec +++|* A - NONE. 12678 M00S11038.dmrec +++|* B - NONE. 12679 M00S11039.dmrec +++|* 12680 M00S11040.dmrec +++|* CALLS ALC, WTC. 12681 M00S11041.dmrec +++|* 12682 M00S11042.dmrec +++|* MACROS WRITES. 12683 M00S11043.dmrec +++| 12684 M00S11044.dmrec +++| 12685 M00S11045.dmrec +++| WBL SUBR ENTRY/EXIT 12686 M00S11046.dmrec +++| WRITEC O,WBLA WRITE BLANK LINE 12687 M00S11047.dmrec +++| SX2 B1 12688 M00S11048.dmrec +++| RJ ALC ADVANCE LINE COUNT 12689 M00S11049.dmrec +++| EQ WBLX RETURN 12690 M00S11050.dmrec +++| 12691 M00S11051.dmrec +++| WBLA DATA 2C 12692 M00S11052.dmrec +++| WEM SPACE 4,25 12693 M00S11053.dmrec +++|** WEM - WRITE ERROR MESSAGE. 12694 M00S11054.dmrec +++|* 12695 M00S11055.dmrec +++|* *WEM* WRITES AND ERROR MESSAGE TO THE DESIGNATED OUTPUT FILE. 12696 M00S11056.dmrec +++|* 12697 M00S11057.dmrec +++|* ENTRY (B4) = FWA OF ERROR MESSAGE. 12698 M00S11058.dmrec +++|* (X5) = LENGTH OF ERROR MESSAGE. 12699 M00S11059.dmrec +++|* (X1) = REPLACEMENT WORD IN MESSAGE 12700 M00S11060.dmrec +++|* (UP TO 7 CHARACTERS, LEFT JUSTIFIED). 12701 M00S11061.dmrec +++|* (X1) = 0 IF NO REPLACEMENT WORD. 12702 M00S11062.dmrec +++|* (A2) = FWA OF CARD-IMAGE CONTAINING ERROR. 12703 M00S11063.dmrec +++|* (X2) = 0 IF NO CARD-IMAGE TO PRINT. 12704 M00S11064.dmrec +++|* (JOBORG) = 0 IF INTERACTIVE ORIGIN. 12705 M00S11065.dmrec +++|* 12706 M00S11066.dmrec +++|* EXIT (X1) = 1. 12707 M00S11067.dmrec +++|* 12708 M00S11068.dmrec +++|* USES X - 0, 1, 2, 5, 6. 12709 M00S11069.dmrec +++|* A - 1, 2, 6. 12710 M00S11070.dmrec +++|* B - 2, 3, 4, 5. 12711 M00S11071.dmrec +++|* 12712 M00S11072.dmrec +++|* CALLS ALC, SNM. 12713 M00S11073.dmrec +++|* 12714 M00S11074.dmrec +++|* MACROS WRITEC, WRITEW, WRITER. 12715 M00S11075.dmrec +++| 12716 M00S11076.dmrec +++| 12717 M00S11077.dmrec +++| WEM SUBR ENTRY/EXIT 12718 M00S11078.dmrec +++| SX6 B4 12719 M00S11079.dmrec +++| SA6 WEMD SAVE (B4) 12720 M00S11080.dmrec +++| ZR X1,WEM1 IF NO REPLACEMENT WORD 12721 M00S11081.dmrec +++| MX0 42 FORM MASK 12722 M00S11082.dmrec +++| BX1 X0*X1 MASK UPPER 7 CHARACTERS 12723 M00S11083.dmrec +++| BX0 X2 SAVE (X2) 12724 M00S11084.dmrec +++| SB5 -B4 12725 M00S11085.dmrec +++| SB2 1RX REPLACEMENT CHARACTER IN MESSAGE 12726 M00S11086.dmrec +++| SB3 WEMA 12727 M00S11087.dmrec +++| RJ SNM SET NAME 12728 M00S11088.dmrec +++| SX6 WEMA 12729 M00S11089.dmrec +++| SA6 WEMD RESET FWA FOR MESSAGE 12730 M00S11090.dmrec +++| BX2 X0 RESTORE (X2) 12731 M00S11091.dmrec +++| WEM1 MX0 0 12732 M00S11092.dmrec +++| ZR X2,WEM4 IF NO CARD-IMAGE TO LIST 12733 M00S11093.dmrec +++| SA1 JOBORG 12734 M00S11094.dmrec +++| NZ X1,WEM2 IF NOT INTERACTIVE ORIGIN 12735 M00S11095.dmrec +++| SX2 A2 12736 M00S11096.dmrec +++| WRITEC O,X2 12737 M00S11097.dmrec +++| SX0 B1 12738 M00S11098.dmrec +++| EQ WEM4 PROCESS ERROR MESSAGE WRITE 12739 M00S11099.dmrec +++| 12740 M00S11100.dmrec +++| WEM2 SB3 7 12741 M00S11101.dmrec +++| SA2 A2+8 MOVE DATA 12742 M00S11102.dmrec +++| WEM3 SA2 A2-B1 12743 M00S11103.dmrec +++| BX6 X2 12744 M00S11104.dmrec +++| SA6 WEMC+B3 12745 M00S11105.dmrec +++| SB3 B3-B1 12746 M00S11106.dmrec +++| GE B3,WEM3 IF MORE 12747 M00S11107.dmrec +++| SX0 2 INCREASE LINE COUNTER 12748 M00S11108.dmrec +++| WRITEC O,WEMB 12749 M00S11109.dmrec +++| WEM4 SA2 JOBORG 12750 M00S11110.dmrec +++| SA1 WEMD 12751 M00S11111.dmrec +++| SB4 X1 RESTORE (B4) 12752 M00S11112.dmrec +++| NZ X2,WEM5 IF NOT INTERACTIVE ORIRGIN 12753 M00S11113.dmrec +++| SB4 B4+2 12754 M00S11114.dmrec +++| SX5 X5-2 12755 M00S11115.dmrec +++| SX0 X0+B1 12756 M00S11116.dmrec +++| EQ WEM6 WRITE ERROR MESSAGE 12757 M00S11117.dmrec +++| 12758 M00S11118.dmrec +++| WEM5 SA1 WEMB 12759 M00S11119.dmrec +++| SX0 X0+B1 12760 M00S11120.dmrec +++| SA2 B4 12761 M00S11121.dmrec +++| MX6 6 12762 M00S11122.dmrec +++| BX2 X2*X6 12763 M00S11123.dmrec +++| BX1 X1*X6 12764 M00S11124.dmrec +++| IX2 X1-X2 12765 M00S11125.dmrec +++| NZ X2,WEM6 IF SINGLE SPACE 12766 M00S11126.dmrec +++| SX0 X0+B1 12767 M00S11127.dmrec +++| WEM6 SX1 B4 WRITE ERROR MESSAGE 12768 M00S11128.dmrec +++| WRITEW O,X1,X5 12769 M00S11129.dmrec +++| WRITER O FLUSH BUFFER 12770 M00S11130.dmrec +++| BX2 X0 12771 M00S11131.dmrec +++| RJ ALC ADVANCE LINE COUNT 12772 M00S11132.dmrec +++| SX1 B1 SET ERROR INDICATOR 12773 M00S11133.dmrec +++| EQ WEMX RETURN 12774 M00S11134.dmrec +++| 12775 M00S11135.dmrec +++|* MISCELLANEOUS FIELDS. 12776 M00S11136.dmrec +++| 12777 M00S11137.dmrec +++| WEMA BSS 8 12778 M00S11138.dmrec +++| WEMB DATA 20H0 ----- 12779 M00S11139.dmrec +++| WEMC BSSZ 9 12780 M00S11140.dmrec +++| WEMD BSS 1 STORAGE FOR (B4) 12781 M00S11141.dmrec +++| WFH SPACE 4,20 12782 M00S11142.dmrec +++|** WFH - WRITE FILE HEADER. 12783 M00S11143.dmrec +++|* 12784 M00S11144.dmrec +++|* *WFH* WRITES A HEADER FOR FILES WRITTEN TO TAPE. THIS 12785 M00S11145.dmrec +++|* HEADER IS TEN OCTAL WORDS LONG AND CONSISTS OF THE 12786 M00S11146.dmrec +++|* FILE NAME AND FORMAT. 12787 M00S11147.dmrec +++|* 12788 M00S11148.dmrec +++|* ENTRY (X2) = FILE NAME. 12789 M00S11149.dmrec +++|* (X4) = DUMP MODE INDECATOR. 12790 M00S11150.dmrec +++|* (ACFA) = DIRECTORY FILE NAME. 12791 M00S11151.dmrec +++|* 12792 M00S11152.dmrec +++|* EXIT (X1) = 0 - IF NO ERROR. 12793 M00S11153.dmrec +++|* 12794 M00S11154.dmrec +++|* USES X - 0, 1, 2, 6, 7. 12795 M00S11155.dmrec +++|* A - 1, 6, 7. 12796 M00S11156.dmrec +++|* B - NONE. 12797 M00S11157.dmrec +++|* 12798 M00S11158.dmrec +++|* MACROS WRITER. 12799 M00S11159.dmrec +++|* 12800 M00S11160.dmrec +++|* CALLS DER. 12801 M00S11161.dmrec +++| 12802 M00S11162.dmrec +++| 12803 M00S11163.dmrec +++| WFH SUBR ENTRY/EXIT 12804 M00S11164.dmrec +++| MX0 42 12805 M00S11165.dmrec +++| SA1 TP+B1 12806 M00S11166.dmrec +++| SX7 X1 12807 M00S11167.dmrec +++| SA7 A1+2 OUT 12808 M00S11168.dmrec +++| SX7 X7+8 12809 M00S11169.dmrec +++| SA7 A7-B1 IN 12810 M00S11170.dmrec +++| SA1 ACFA 12811 M00S11171.dmrec +++| BX1 X1-X2 12812 M00S11172.dmrec +++| BX1 X0*X1 12813 M00S11173.dmrec +++| ZR X1,WFH1 IF DIRECTORY FILE 12814 M00S11174.dmrec +++| SA1 DMPFLG GET DUMP FLAG
| Line S11175 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 12815 M01S11175.ns2023 ---| NZ X1,WFH1 IF NOT *LRF* 12816 M01S11176.ns2023 ---| LX2 48-0 POSITION *LRF*
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 12817 M01S00175.ns2023 +++| NZ X1,WFH1 IF NOT *ARF* 12818 M01S00176.ns2023 +++| LX2 48-0 POSITION *ARF* 12819 M00S11177.dmrec +++| WFH1 BX7 X2 12820 M00S11178.dmrec +++| SA7 TBUF FN IN HEADER+0 12821 M00S11179.dmrec +++| BX6 X4 12822 M00S11180.dmrec +++| SA6 A7+B1 MODE IN HEADER+1 12823 M00S11181.dmrec +++| WRITER TP,R 12824 M00S11182.dmrec +++| RJ DER DETECT END OF TAPE 12825 M00S11183.dmrec +++| NG X1,WFH2 IF END OF TAPE 12826 M00S11184.dmrec +++| NZ X1,WFHX IF ERROR 12827 M00S11185.dmrec +++| WFH2 SX1 B0 12828 M00S11186.dmrec +++| EQ WFHX NORMAL RETURN 12829 M00S11187.dmrec +++| WSB SPACE 4,15 12830 M00S11188.dmrec +++|** WSB - WRITE STRING BUFFER. 12831 M00S11189.dmrec +++|* 12832 M00S11190.dmrec +++|* ENTRY NONE. 12833 M00S11191.dmrec +++|* 12834 M00S11192.dmrec +++|* EXIT STRING BUFFER WRITTEN TO OUTPUT FILE. 12835 M00S11193.dmrec +++|* 12836 M00S11194.dmrec +++|* CALLS ALC, WTS. 12837 M00S11195.dmrec +++|* 12838 M00S11196.dmrec +++|* USES X - 2, 6. 12839 M00S11197.dmrec +++|* A - 6. 12840 M00S11198.dmrec +++|* B - NONE. 12841 M00S11199.dmrec +++| 12842 M00S11200.dmrec +++| 12843 M00S11201.dmrec +++| WSB SUBR ENTRY/EXIT 12844 M00S11202.dmrec +++| WRITES O,OLWS,OLWSL 12845 M00S11203.dmrec +++| SX2 B1 12846 M00S11204.dmrec +++| RJ ALC ADVANCE LINE COUNT 12847 M00S11205.dmrec +++| BX6 X6-X6 12848 M00S11206.dmrec +++| SA6 SCPC SET LINE EMPTY 12849 M00S11207.dmrec +++| EQ WSBX RETURN 12850 M00S11208.dmrec +++| UPD SPACE 4,10 12851 M00S11209.dmrec +++| TITLE BUFFERS. 12852 M00S11210.dmrec +++| BUFFERS SPACE 4,10 12853 M00S11211.dmrec +++|** BUFFERS. 12854 M00S11212.dmrec +++| 12855 M00S11213.dmrec +++| IBUF BSS IBUFL INPUT FILE BUFFER 12856 M00S11214.dmrec +++| 12857 M00S11215.dmrec +++| OBUF BSS OBUFL OUTPUT FILE BUFFER 12858 M00S11216.dmrec +++|
| Line S00247 Modification History | |
|---|---|
M01 (Added by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12859 M01S00247.ns2056 +++| PBUF BSS PBUFL PROCEDURE FILE BUFFER 12860 M01S00248.ns2056 +++| 12861 M00S11217.dmrec +++| TBUF BSS TBUFL TAPE FILE BUFFER 12862 M00S11218.dmrec +++| 12863 M00S11219.dmrec +++| DBUF BSS DBUFL DATA FILE BUFFER 12864 M00S11220.dmrec +++| 12865 M00S11221.dmrec +++| HBUF BSS HBUFL HASH FILE BUFFER 12866 M00S11222.dmrec +++| 12867 M00S11223.dmrec +++| OLWS EQU FTAB PRINT LINE BUFFER - CHARACTER MODE 12868 M00S11224.dmrec +++| 12869 M00S11225.dmrec +++| DIR EQU * INPUT CHARACTER BUFFER 12870 M00S11226.dmrec +++| LRDBUF BSS LRDBUFL HASH LOAD BUFFER 12871 M00S11227.dmrec +++| 12872 M00S11228.dmrec +++| CBUF BSS CBUFL RECORD DECOMPRESSION BUFFER 12873 M00S11229.dmrec +++| 12874 M00S11230.dmrec +++| FWAB BSS 0 FWA OF BUFFER 12875 M00S11231.dmrec +++| WBUF BSS WBUFL WORKING STORAGE BUFFER 12876 M00S11232.dmrec +++| LWAB EQU * LWA OF BUFFER 12877 M00S11233.dmrec +++| COMMON SPACE 4,10 12878 M00S11234.dmrec +++| 12879 M00S11235.dmrec +++| END DMREC
cdc/nos2.source/opl.opl871/deck/dmrec.007.txt · Last modified: by 127.0.0.1