cdc:nos2.source:opl.opl871:deck:dmrec.008
Deck DMREC Part 008
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1576)
- Deck DMREC Part 2 (Line 2763)
- Deck DMREC Part 3 (Line 3963)
- Deck DMREC Part 4 (Line 5864)
- Deck DMREC Part 5 (Line 7590)
- Deck DMREC Part 6 (Line 9242)
- Deck DMREC Part 7 (Line 10761)
- Deck DMREC Part 8 (Line 12611)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S10993 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12611 M02S10993.dmrec7 ---| NZ X1,UPD14 IF ERROR
| Line S10994 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12612 M02S10994.dmrec7 ---| RJ AAI APPLY AFTER IMAGES 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 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12626 M02S10995.ns2056 ---| NZ X1,UPD15 IF ERROR 12627 M01S00240.ns2056 +++| NZ X1,UPD14 IF ERROR
| Line S10996 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 12628 M02S10996.dmrec7 ---| EQ UPD11 GET NEXT RECORD 12629 M01S00420.dmrec7 +++| EQ UPD11.1 GET NEXT RECORD 12630 M01S10997.dmrec +++| 12631 M01S10998.dmrec +++| UPD12 RETURN TP 12632 M01S10999.dmrec +++| EQ UPD8 GET NEXT TAPE 12633 M01S11000.dmrec +++| 12634 M01S11001.dmrec +++| UPD13 ERROR UPDB,,,UPD14,,E RECORD NUMBER ERROR 12635 M01S11002.dmrec +++| 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 M01S11003.dmrec +++| UPD14 CLOSEM DFIT,U 12643 M01S11004.dmrec +++| RJ RAF RETURN DATA FILES 12644 M01S11005.dmrec +++| EQ DMR3 NORMAL RETURN 12645 M01S11006.dmrec +++|
| Line S11007 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12646 M02S11007.ns2056 ---| UPD15 CLOSEM DFIT,U
| Line S11008 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12647 M02S11008.ns2056 ---| RJ RAF RETURN DATA FILES
| Line S11009 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
M03 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12648 M03S11009.ns2056 ---| SA1 QRFFLG GET QRF DOWN FLAG
| Line S11010 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
M03 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12649 M03S11010.ns2056 ---| NG X1,REC2 IF *QRF* DOWN RECOVERY
| Line S11011 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12650 M02S11011.ns2056 ---| EQ DMR3 RETURN
| Line S11012 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 12651 M02S11012.ns2056 ---| 12652 M01S11013.dmrec +++| UPD16 ERROR UPDC,,,UPD14,,E DMREC TAPE LABEL ERROR 12653 M01S11014.dmrec +++| 12654 M01S11015.dmrec +++| UPD17 ERROR UPDD,,,UPD14,,E DXB CONVERSION ERROR 12655 M01S11016.dmrec +++| 12656 M01S11017.dmrec +++| UPD18 ERROR DMRA,,,UPD14,,E DIRECTIVE FORMAT ERROR 12657 M01S11018.dmrec +++| 12658 M01S11019.dmrec +++| UPDB DATA 20H0 ***** 12659 M01S11020.dmrec +++| DATA C*RECORD NUMBER ERROR.* 12660 M01S11021.dmrec +++| UPDBL EQU *-UPDB 12661 M01S11022.dmrec +++| 12662 M01S11023.dmrec +++| UPDC DATA 20H0 ***** 12663 M01S11024.dmrec +++| DATA C*DMREC TAPE LABEL ERROR.* 12664 M01S11025.dmrec +++| UPDCL EQU *-UPDC 12665 M01S11026.dmrec +++| UPDD DATA 20H0 ***** 12666 M01S11027.dmrec +++| DATA C*DXB CONVERSION ERROR - TRANSACTION SEQUENCE NUMBER.* 12667 M01S11028.dmrec +++| UPDDL EQU *-UPDD 12668 M01S00167.dmrec2 +++| UPDE BSSZ 1 DATA BASE NAME 12669 M01S11029.dmrec +++| WBL SPACE 4,15 12670 M01S11030.dmrec +++|** WBL - WRITE BLANK LINE. 12671 M01S11031.dmrec +++|* 12672 M01S11032.dmrec +++|* ENTRY NONE. 12673 M01S11033.dmrec +++|* 12674 M01S11034.dmrec +++|* EXIT BLANK LINE WRITTEN. 12675 M01S11035.dmrec +++|* 12676 M01S11036.dmrec +++|* USES X - 2. 12677 M01S11037.dmrec +++|* A - NONE. 12678 M01S11038.dmrec +++|* B - NONE. 12679 M01S11039.dmrec +++|* 12680 M01S11040.dmrec +++|* CALLS ALC, WTC. 12681 M01S11041.dmrec +++|* 12682 M01S11042.dmrec +++|* MACROS WRITES. 12683 M01S11043.dmrec +++| 12684 M01S11044.dmrec +++| 12685 M01S11045.dmrec +++| WBL SUBR ENTRY/EXIT 12686 M01S11046.dmrec +++| WRITEC O,WBLA WRITE BLANK LINE 12687 M01S11047.dmrec +++| SX2 B1 12688 M01S11048.dmrec +++| RJ ALC ADVANCE LINE COUNT 12689 M01S11049.dmrec +++| EQ WBLX RETURN 12690 M01S11050.dmrec +++| 12691 M01S11051.dmrec +++| WBLA DATA 2C 12692 M01S11052.dmrec +++| WEM SPACE 4,25 12693 M01S11053.dmrec +++|** WEM - WRITE ERROR MESSAGE. 12694 M01S11054.dmrec +++|* 12695 M01S11055.dmrec +++|* *WEM* WRITES AND ERROR MESSAGE TO THE DESIGNATED OUTPUT FILE. 12696 M01S11056.dmrec +++|* 12697 M01S11057.dmrec +++|* ENTRY (B4) = FWA OF ERROR MESSAGE. 12698 M01S11058.dmrec +++|* (X5) = LENGTH OF ERROR MESSAGE. 12699 M01S11059.dmrec +++|* (X1) = REPLACEMENT WORD IN MESSAGE 12700 M01S11060.dmrec +++|* (UP TO 7 CHARACTERS, LEFT JUSTIFIED). 12701 M01S11061.dmrec +++|* (X1) = 0 IF NO REPLACEMENT WORD. 12702 M01S11062.dmrec +++|* (A2) = FWA OF CARD-IMAGE CONTAINING ERROR. 12703 M01S11063.dmrec +++|* (X2) = 0 IF NO CARD-IMAGE TO PRINT. 12704 M01S11064.dmrec +++|* (JOBORG) = 0 IF INTERACTIVE ORIGIN. 12705 M01S11065.dmrec +++|* 12706 M01S11066.dmrec +++|* EXIT (X1) = 1. 12707 M01S11067.dmrec +++|* 12708 M01S11068.dmrec +++|* USES X - 0, 1, 2, 5, 6. 12709 M01S11069.dmrec +++|* A - 1, 2, 6. 12710 M01S11070.dmrec +++|* B - 2, 3, 4, 5. 12711 M01S11071.dmrec +++|* 12712 M01S11072.dmrec +++|* CALLS ALC, SNM. 12713 M01S11073.dmrec +++|* 12714 M01S11074.dmrec +++|* MACROS WRITEC, WRITEW, WRITER. 12715 M01S11075.dmrec +++| 12716 M01S11076.dmrec +++| 12717 M01S11077.dmrec +++| WEM SUBR ENTRY/EXIT 12718 M01S11078.dmrec +++| SX6 B4 12719 M01S11079.dmrec +++| SA6 WEMD SAVE (B4) 12720 M01S11080.dmrec +++| ZR X1,WEM1 IF NO REPLACEMENT WORD 12721 M01S11081.dmrec +++| MX0 42 FORM MASK 12722 M01S11082.dmrec +++| BX1 X0*X1 MASK UPPER 7 CHARACTERS 12723 M01S11083.dmrec +++| BX0 X2 SAVE (X2) 12724 M01S11084.dmrec +++| SB5 -B4 12725 M01S11085.dmrec +++| SB2 1RX REPLACEMENT CHARACTER IN MESSAGE 12726 M01S11086.dmrec +++| SB3 WEMA 12727 M01S11087.dmrec +++| RJ SNM SET NAME 12728 M01S11088.dmrec +++| SX6 WEMA 12729 M01S11089.dmrec +++| SA6 WEMD RESET FWA FOR MESSAGE 12730 M01S11090.dmrec +++| BX2 X0 RESTORE (X2) 12731 M01S11091.dmrec +++| WEM1 MX0 0 12732 M01S11092.dmrec +++| ZR X2,WEM4 IF NO CARD-IMAGE TO LIST 12733 M01S11093.dmrec +++| SA1 JOBORG 12734 M01S11094.dmrec +++| NZ X1,WEM2 IF NOT INTERACTIVE ORIGIN 12735 M01S11095.dmrec +++| SX2 A2 12736 M01S11096.dmrec +++| WRITEC O,X2 12737 M01S11097.dmrec +++| SX0 B1 12738 M01S11098.dmrec +++| EQ WEM4 PROCESS ERROR MESSAGE WRITE 12739 M01S11099.dmrec +++| 12740 M01S11100.dmrec +++| WEM2 SB3 7 12741 M01S11101.dmrec +++| SA2 A2+8 MOVE DATA 12742 M01S11102.dmrec +++| WEM3 SA2 A2-B1 12743 M01S11103.dmrec +++| BX6 X2 12744 M01S11104.dmrec +++| SA6 WEMC+B3 12745 M01S11105.dmrec +++| SB3 B3-B1 12746 M01S11106.dmrec +++| GE B3,WEM3 IF MORE 12747 M01S11107.dmrec +++| SX0 2 INCREASE LINE COUNTER 12748 M01S11108.dmrec +++| WRITEC O,WEMB 12749 M01S11109.dmrec +++| WEM4 SA2 JOBORG 12750 M01S11110.dmrec +++| SA1 WEMD 12751 M01S11111.dmrec +++| SB4 X1 RESTORE (B4) 12752 M01S11112.dmrec +++| NZ X2,WEM5 IF NOT INTERACTIVE ORIRGIN 12753 M01S11113.dmrec +++| SB4 B4+2 12754 M01S11114.dmrec +++| SX5 X5-2 12755 M01S11115.dmrec +++| SX0 X0+B1 12756 M01S11116.dmrec +++| EQ WEM6 WRITE ERROR MESSAGE 12757 M01S11117.dmrec +++| 12758 M01S11118.dmrec +++| WEM5 SA1 WEMB 12759 M01S11119.dmrec +++| SX0 X0+B1 12760 M01S11120.dmrec +++| SA2 B4 12761 M01S11121.dmrec +++| MX6 6 12762 M01S11122.dmrec +++| BX2 X2*X6 12763 M01S11123.dmrec +++| BX1 X1*X6 12764 M01S11124.dmrec +++| IX2 X1-X2 12765 M01S11125.dmrec +++| NZ X2,WEM6 IF SINGLE SPACE 12766 M01S11126.dmrec +++| SX0 X0+B1 12767 M01S11127.dmrec +++| WEM6 SX1 B4 WRITE ERROR MESSAGE 12768 M01S11128.dmrec +++| WRITEW O,X1,X5 12769 M01S11129.dmrec +++| WRITER O FLUSH BUFFER 12770 M01S11130.dmrec +++| BX2 X0 12771 M01S11131.dmrec +++| RJ ALC ADVANCE LINE COUNT 12772 M01S11132.dmrec +++| SX1 B1 SET ERROR INDICATOR 12773 M01S11133.dmrec +++| EQ WEMX RETURN 12774 M01S11134.dmrec +++| 12775 M01S11135.dmrec +++|* MISCELLANEOUS FIELDS. 12776 M01S11136.dmrec +++| 12777 M01S11137.dmrec +++| WEMA BSS 8 12778 M01S11138.dmrec +++| WEMB DATA 20H0 ----- 12779 M01S11139.dmrec +++| WEMC BSSZ 9 12780 M01S11140.dmrec +++| WEMD BSS 1 STORAGE FOR (B4) 12781 M01S11141.dmrec +++| WFH SPACE 4,20 12782 M01S11142.dmrec +++|** WFH - WRITE FILE HEADER. 12783 M01S11143.dmrec +++|* 12784 M01S11144.dmrec +++|* *WFH* WRITES A HEADER FOR FILES WRITTEN TO TAPE. THIS 12785 M01S11145.dmrec +++|* HEADER IS TEN OCTAL WORDS LONG AND CONSISTS OF THE 12786 M01S11146.dmrec +++|* FILE NAME AND FORMAT. 12787 M01S11147.dmrec +++|* 12788 M01S11148.dmrec +++|* ENTRY (X2) = FILE NAME. 12789 M01S11149.dmrec +++|* (X4) = DUMP MODE INDECATOR. 12790 M01S11150.dmrec +++|* (ACFA) = DIRECTORY FILE NAME. 12791 M01S11151.dmrec +++|* 12792 M01S11152.dmrec +++|* EXIT (X1) = 0 - IF NO ERROR. 12793 M01S11153.dmrec +++|* 12794 M01S11154.dmrec +++|* USES X - 0, 1, 2, 6, 7. 12795 M01S11155.dmrec +++|* A - 1, 6, 7. 12796 M01S11156.dmrec +++|* B - NONE. 12797 M01S11157.dmrec +++|* 12798 M01S11158.dmrec +++|* MACROS WRITER. 12799 M01S11159.dmrec +++|* 12800 M01S11160.dmrec +++|* CALLS DER. 12801 M01S11161.dmrec +++| 12802 M01S11162.dmrec +++| 12803 M01S11163.dmrec +++| WFH SUBR ENTRY/EXIT 12804 M01S11164.dmrec +++| MX0 42 12805 M01S11165.dmrec +++| SA1 TP+B1 12806 M01S11166.dmrec +++| SX7 X1 12807 M01S11167.dmrec +++| SA7 A1+2 OUT 12808 M01S11168.dmrec +++| SX7 X7+8 12809 M01S11169.dmrec +++| SA7 A7-B1 IN 12810 M01S11170.dmrec +++| SA1 ACFA 12811 M01S11171.dmrec +++| BX1 X1-X2 12812 M01S11172.dmrec +++| BX1 X0*X1 12813 M01S11173.dmrec +++| ZR X1,WFH1 IF DIRECTORY FILE 12814 M01S11174.dmrec +++| SA1 DMPFLG GET DUMP FLAG
| Line S11175 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 12815 M02S11175.ns2023 ---| NZ X1,WFH1 IF NOT *LRF*
| Line S11176 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 12816 M02S11176.ns2023 ---| LX2 48-0 POSITION *LRF* 12817 M01S00175.ns2023 +++| NZ X1,WFH1 IF NOT *ARF* 12818 M01S00176.ns2023 +++| LX2 48-0 POSITION *ARF* 12819 M01S11177.dmrec +++| WFH1 BX7 X2 12820 M01S11178.dmrec +++| SA7 TBUF FN IN HEADER+0 12821 M01S11179.dmrec +++| BX6 X4 12822 M01S11180.dmrec +++| SA6 A7+B1 MODE IN HEADER+1 12823 M01S11181.dmrec +++| WRITER TP,R 12824 M01S11182.dmrec +++| RJ DER DETECT END OF TAPE 12825 M01S11183.dmrec +++| NG X1,WFH2 IF END OF TAPE 12826 M01S11184.dmrec +++| NZ X1,WFHX IF ERROR 12827 M01S11185.dmrec +++| WFH2 SX1 B0 12828 M01S11186.dmrec +++| EQ WFHX NORMAL RETURN 12829 M01S11187.dmrec +++| WSB SPACE 4,15 12830 M01S11188.dmrec +++|** WSB - WRITE STRING BUFFER. 12831 M01S11189.dmrec +++|* 12832 M01S11190.dmrec +++|* ENTRY NONE. 12833 M01S11191.dmrec +++|* 12834 M01S11192.dmrec +++|* EXIT STRING BUFFER WRITTEN TO OUTPUT FILE. 12835 M01S11193.dmrec +++|* 12836 M01S11194.dmrec +++|* CALLS ALC, WTS. 12837 M01S11195.dmrec +++|* 12838 M01S11196.dmrec +++|* USES X - 2, 6. 12839 M01S11197.dmrec +++|* A - 6. 12840 M01S11198.dmrec +++|* B - NONE. 12841 M01S11199.dmrec +++| 12842 M01S11200.dmrec +++| 12843 M01S11201.dmrec +++| WSB SUBR ENTRY/EXIT 12844 M01S11202.dmrec +++| WRITES O,OLWS,OLWSL 12845 M01S11203.dmrec +++| SX2 B1 12846 M01S11204.dmrec +++| RJ ALC ADVANCE LINE COUNT 12847 M01S11205.dmrec +++| BX6 X6-X6 12848 M01S11206.dmrec +++| SA6 SCPC SET LINE EMPTY 12849 M01S11207.dmrec +++| EQ WSBX RETURN 12850 M01S11208.dmrec +++| UPD SPACE 4,10 12851 M01S11209.dmrec +++| TITLE BUFFERS. 12852 M01S11210.dmrec +++| BUFFERS SPACE 4,10 12853 M01S11211.dmrec +++|** BUFFERS. 12854 M01S11212.dmrec +++| 12855 M01S11213.dmrec +++| IBUF BSS IBUFL INPUT FILE BUFFER 12856 M01S11214.dmrec +++| 12857 M01S11215.dmrec +++| OBUF BSS OBUFL OUTPUT FILE BUFFER 12858 M01S11216.dmrec +++| 12859 M01S00247.ns2056 +++| PBUF BSS PBUFL PROCEDURE FILE BUFFER 12860 M01S00248.ns2056 +++| 12861 M01S11217.dmrec +++| TBUF BSS TBUFL TAPE FILE BUFFER 12862 M01S11218.dmrec +++| 12863 M01S11219.dmrec +++| DBUF BSS DBUFL DATA FILE BUFFER 12864 M01S11220.dmrec +++| 12865 M01S11221.dmrec +++| HBUF BSS HBUFL HASH FILE BUFFER 12866 M01S11222.dmrec +++| 12867 M01S11223.dmrec +++| OLWS EQU FTAB PRINT LINE BUFFER - CHARACTER MODE 12868 M01S11224.dmrec +++| 12869 M01S11225.dmrec +++| DIR EQU * INPUT CHARACTER BUFFER 12870 M01S11226.dmrec +++| LRDBUF BSS LRDBUFL HASH LOAD BUFFER 12871 M01S11227.dmrec +++| 12872 M01S11228.dmrec +++| CBUF BSS CBUFL RECORD DECOMPRESSION BUFFER 12873 M01S11229.dmrec +++| 12874 M01S11230.dmrec +++| FWAB BSS 0 FWA OF BUFFER 12875 M01S11231.dmrec +++| WBUF BSS WBUFL WORKING STORAGE BUFFER 12876 M01S11232.dmrec +++| LWAB EQU * LWA OF BUFFER 12877 M01S11233.dmrec +++| COMMON SPACE 4,10 12878 M01S11234.dmrec +++| 12879 M01S11235.dmrec +++| END DMREC
cdc/nos2.source/opl.opl871/deck/dmrec.008.txt · Last modified: by 127.0.0.1