cdc:nos2.source:opl.opl871:deck:dmrec.004
Deck DMREC Part 004
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 ----------------------------+ 05864 M01S05133.dmrec +++| EQ ELD2 PROCESS NEXT ENTRY 05865 M01S05134.dmrec +++| ELH SPACE 4,15 05866 M01S05135.dmrec +++|** ELH - ENTER DUMP LINE HEADER. 05867 M01S05136.dmrec +++|* 05868 M01S05137.dmrec +++|* ENTRY (WCBL) WORD COUNT. 05869 M01S05138.dmrec +++|* 05870 M01S05139.dmrec +++|* EXIT LINE BUFFER CLEARED AND HEADER DATA INSERTED. 05871 M01S05140.dmrec +++|* 05872 M01S05141.dmrec +++|* USES A - 1, 7. 05873 M01S05142.dmrec +++|* X - 1, 6, 7. 05874 M01S05143.dmrec +++|* B - 7. 05875 M01S05144.dmrec +++|* 05876 M01S05145.dmrec +++|* CALLS BSB, COD, ESB. 05877 M01S05146.dmrec +++| 05878 M01S05147.dmrec +++| 05879 M01S05148.dmrec +++| ELH SUBR ENTRY/EXIT 05880 M01S05149.dmrec +++| RJ BSB BLANK STRING BUFFER 05881 M01S05150.dmrec +++| SX6 3RKEY 05882 M01S05151.dmrec +++| LX6 48 05883 M01S05152.dmrec +++| SB7 OLWS+B1 05884 M01S05153.dmrec +++| MX1 3 05885 M01S05154.dmrec +++| RJ ESB SET LINE HEADER 05886 M01S05155.dmrec +++| 05887 M01S05156.dmrec +++|* SET WORD COUNT. 05888 M01S05157.dmrec +++| 05889 M01S05158.dmrec +++| SA1 WCBL 05890 M01S05159.dmrec +++| RJ COD CONVERT WORD COUNT 05891 M01S05160.dmrec +++| SX7 1RW 05892 M01S05161.dmrec +++| SA7 B7+B1 STORE WORD IDENTIFIER 05893 M01S05162.dmrec +++| SB7 A7+B1 05894 M01S05163.dmrec +++| MX1 2 05895 M01S05164.dmrec +++| LX6 54 05896 M01S05165.dmrec +++| RJ ESB ENTER WORD COUNT 05897 M01S05166.dmrec +++| SX7 1R- 05898 M01S05167.dmrec +++| SA7 B7 ENTER SEPARATOR 05899 M01S05168.dmrec +++| EQ ELHX RETURN 05900 M01S05169.dmrec +++| ESB SPACE 4,15 05901 M01S05170.dmrec +++|** ESB - ENTER STRING BUFFER. 05902 M01S05171.dmrec +++|* 05903 M01S05172.dmrec +++|* ENTRY (X6) POSITIONED CHARACTER DATA 05904 M01S05173.dmrec +++|* (X1) NUMBER OF CHARS TO STORE (1 BIT PER CHAR) 05905 M01S05174.dmrec +++|* (B7) ENTRY ADDRESS IN STRING BUFFER 05906 M01S05175.dmrec +++|* 05907 M01S05176.dmrec +++|* EXIT (B7) NEXT ENTRY ADDRESS 05908 M01S05177.dmrec +++|* 05909 M01S05178.dmrec +++|* USES A - 7. 05910 M01S05179.dmrec +++|* X - 1, 2, 6, 7. 05911 M01S05180.dmrec +++|* B - 7. 05912 M01S05181.dmrec +++| 05913 M01S05182.dmrec +++| 05914 M01S05183.dmrec +++| ESB SUBR ENTRY/EXIT 05915 M01S05184.dmrec +++| ESB1 PL X1,ESBX IF RETURN 05916 M01S05185.dmrec +++| MX2 -6 05917 M01S05186.dmrec +++| LX1 1 05918 M01S05187.dmrec +++| BX7 -X2*X6 05919 M01S05188.dmrec +++| SA7 B7 STORE CHARACTER 05920 M01S05189.dmrec +++| SB7 B7+B1 ADVANCE STORE 05921 M01S05190.dmrec +++| LX6 6 05922 M01S05191.dmrec +++| EQ ESB1 LOOP FOR NEXT CHARACTER 05923 M01S05192.dmrec +++| EXC SPACE 4,20 05924 M01S05193.dmrec +++|** EXC - EXECUTE CONTROL CARD. 05925 M01S05194.dmrec +++|*
| Line S05195 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05926 M02S05195.v23l617 ---|* *EXC* EXECUTES A CONTROL STATEMENT AND RETURNS. THE ENTIRE 05927 M01S00022.v23l617 +++|* *EXC* EXECUTES A COMMAND AND RETURNS. THE ENTIRE 05928 M01S05196.dmrec +++|* FIELD LENGTH IS WRITTEN TO A FILE AND REREAD WHEN THE FILE 05929 M01S05197.dmrec +++|* IS RECALLED. 05930 M01S05198.dmrec +++|* 05931 M01S05199.dmrec +++|* ENTRY FILE *PROC* MUST CONTAIN CONTROL CARDS FOR
| Line S05200 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05932 M02S05200.v23l617 ---|* EXECUTION. THE LAST CONTROL CARD MUST BE A RECALL 05933 M01S00023.v23l617 +++|* EXECUTION. THE LAST COMMAND MUST BE A RECALL
| Line S05201 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05934 M02S05201.ns2056 ---|* OF FILE *ZZDBDIR*. 05935 M01S00038.ns2056 +++|* OF FILE *ZZZZZG7*. 05936 M01S05202.dmrec +++|*
| Line S05203 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05937 M02S05203.v23l617 ---|* EXIT ALL CONTROL STATEMENTS IN FILE *PROC* HAVE 05938 M01S00024.v23l617 +++|* EXIT ALL COMMANDS IN FILE *PROC* HAVE 05939 M01S05204.dmrec +++|* BEEN EXECUTED. 05940 M01S05205.dmrec +++|* 05941 M01S05206.dmrec +++|* USES X - 0, 1, 2, 6. 05942 M01S05207.dmrec +++|* A - 0, 1, 2, 6. 05943 M01S05208.dmrec +++|* B - 1, 2. 05944 M01S05209.dmrec +++| 05945 M01S05210.dmrec +++| 05946 M01S05211.dmrec +++| EXC SUBR ENTRY/EXIT 05947 M01S05212.dmrec +++| SX6 A0 SAVE (A0) 05948 M01S05213.dmrec +++| SA6 A0S 05949 M01S05214.dmrec +++| SX6 PROC
| Line S05215 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05950 M02S05215.v23l617 ---| SA6 CS SAVE CONTROL STATEMENT POINTER 05951 M01S00025.v23l617 +++| SA6 CS SAVE COMMAND POINTER 05952 M01S05216.dmrec +++| EXC1 GETACT JA WAIT FOR ACTIVITY TO QUIET 05953 M01S05217.dmrec +++| RECALL 05954 M01S05218.dmrec +++| SA1 JA
| Line S05219 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05955 M02S05219.ns2056 ---| MX0 13 05956 M01S00039.ns2056 +++| MX0 12 05957 M01S05220.dmrec +++| BX1 X0*X1 05958 M01S05221.dmrec +++| NZ X1,EXC1 IF JOB STILL ACTIVE 05959 M01S05222.dmrec +++| 05960 M01S05223.dmrec +++|* PRESERVE *ARGR* - *OVLFWA* IN *LOWMEM*. 05961 M01S05224.dmrec +++| 05962 M01S05225.dmrec +++| SB2 OVLFWA-ARGR SET UPPER WORD INDEX 05963 M01S05226.dmrec +++| EXC2 SA1 ARGR+B2 05964 M01S05227.dmrec +++| BX6 X1 05965 M01S05228.dmrec +++| SA6 LOWMEM+B2 05966 M01S05229.dmrec +++| SB2 B2-B1 05967 M01S05230.dmrec +++| PL B2,EXC2 IF MORE 05968 M01S05231.dmrec +++| 05969 M01S05232.dmrec +++|* PRESERVE LAST WORD OF *FL* AND LAST WORD ADDRESS. 05970 M01S05233.dmrec +++| 05971 M01S05234.dmrec +++| BX6 X6-X6 CLEAR *MEMORY* STATUS WORD 05972 M01S05235.dmrec +++| SA6 FL 05973 M01S05236.dmrec +++| MEMORY CM,FL,R 05974 M01S05237.dmrec +++| SA1 FL ISOLATE RETURNED FL 05975 M01S05238.dmrec +++| MX0 30 05976 M01S05239.dmrec +++| BX6 X0*X1 05977 M01S05240.dmrec +++| LX6 30 RIGHT JUSTIFY RETURNED FL 05978 M01S05241.dmrec +++| SA6 A1 SET ADJUSTED FL 05979 M01S05242.dmrec +++| SX6 X6-1 05980 M01S05243.dmrec +++| SA6 LWADDR 05981 M01S05244.dmrec +++| SA1 X6 05982 M01S05245.dmrec +++| BX6 X1 05983 M01S05246.dmrec +++| SA6 LW PRESERVE LAST WORD OF FL 05984 M01S05247.dmrec +++| 05985 M01S05248.dmrec +++|* SET LOADER CONTROL WORD IN *OVLFWA*. 05986 M01S05249.dmrec +++| 05987 M01S05250.dmrec +++| SA1 LT50 LOADER 50 TABLE 05988 M01S05251.dmrec +++| BX6 X1 05989 M01S05252.dmrec +++| SA6 OVLFWA 05990 M01S05253.dmrec +++| 05991 M01S05254.dmrec +++|* WRITE OUT USERS *FL* TO *ZZZZZXD*. 05992 M01S05255.dmrec +++| 05993 M01S05256.dmrec +++| SX6 A6
| Line S05257 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 05994 M02S05257.ns2056 ---| SA1 ZZZZZXD+1 *FIRST* 05995 M01S00040.ns2056 +++| SA1 ZZZZZG7+1 *FIRST* 05996 M01S05258.dmrec +++| MX0 42 05997 M01S05259.dmrec +++| BX1 X0*X1 PRESERVE ERP,UPR 05998 M01S05260.dmrec +++| BX6 X1+X6 MERGE *FIRST* 05999 M01S05261.dmrec +++| SA6 A1 06000 M01S05262.dmrec +++| BX6 -X0*X6 ISOLATE *FIRST*
| Line S05263 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06001 M02S05263.ns2056 ---| SA6 ZZZZZXD+3 SET *OUT* 06002 M01S00041.ns2056 +++| SA6 ZZZZZG7+3 *OUT* 06003 M01S05264.dmrec +++| SA1 FL
| Line S05265 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06004 M02S05265.ns2056 ---| SX6 X1-1
| Line S05266 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06005 M02S05266.ns2056 ---| SA6 ZZZZZXD+4 SET *LIMIT* = FL - 1 06006 M01S00042.ns2056 +++| SX6 X1 06007 M01S00043.ns2056 +++| SA6 ZZZZZG7+4 *LIMIT* = FL 06008 M01S05267.dmrec +++| SX6 X6-1
| Line S05268 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06009 M02S05268.ns2056 ---| SA6 ZZZZZXD+2 SET *IN* = FL - 2
| Line S05269 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 06010 M02S05269.ns2056 ---| WRITER ZZZZZXD,R 06011 M01S00044.ns2056 +++| SA6 ZZZZZG7+2 *IN* = FL - 1 06012 M01S00045.ns2056 +++| WRITER ZZZZZG7,R 06013 M01S05270.dmrec +++|
| Line S05271 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06014 M02S05271.v23l617 ---|* INITIATE USER CONTROL STATEMENT. 06015 M01S00026.v23l617 +++|* INITIATE USER COMMAND. 06016 M01S05272.dmrec +++|
| Line S05273 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06017 M02S05273.v23l617 ---| SA1 CS RESTORE POINTER TO CONTROL STATEMENT
| Line S05274 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06018 M02S05274.v23l617 ---| EXCST X1 EXECUTE USER CONTROL STATEMENT 06019 M01S00027.v23l617 +++| SA1 CS RESTORE POINTER TO COMMAND 06020 M01S00028.v23l617 +++| EXCST X1 EXECUTE USER COMMAND 06021 M01S05275.dmrec +++| MESSAGE =C* RETURN FROM EXC.* 06022 M01S05276.dmrec +++| ABORT 06023 M01S05277.dmrec +++| 06024 M01S05278.dmrec +++|* REENTER HERE WHEN *ZZZZZXD* EXECUTED. 06025 M01S05279.dmrec +++| 06026 M01S05280.dmrec +++| EXC3 BSS 0 06027 M01S05281.dmrec +++| SB1 1 RESTORE B1 = 1 06028 M01S00046.ns2056 +++| SX6 1 06029 M01S00047.ns2056 +++| SA1 ZZZZZG7 06030 M01S00048.ns2056 +++| BX6 X1+X6 06031 M01S00049.ns2056 +++| SA6 A1 SET COMPLETE BIT 06032 M01S05282.dmrec +++| 06033 M01S05283.dmrec +++|* RESTORE *ARGR* - *OVLFWA*. 06034 M01S05284.dmrec +++| 06035 M01S05285.dmrec +++| SB2 OVLFWA-ARGR SET UPPER WORD INDEX 06036 M01S05286.dmrec +++| EXC4 SA1 LOWMEM+B2 06037 M01S05287.dmrec +++| BX6 X1 06038 M01S05288.dmrec +++| SA6 ARGR+B2 06039 M01S05289.dmrec +++| SB2 B2-B1 DECREMENT WORD INDEX 06040 M01S05290.dmrec +++| PL B2,EXC4 IF MORE WORDS TO MOVE 06041 M01S05291.dmrec +++| 06042 M01S05292.dmrec +++|* RESTORE LAST WORD OF *FL*. 06043 M01S05293.dmrec +++| 06044 M01S05294.dmrec +++| SA1 LWADDR 06045 M01S05295.dmrec +++| SA2 LW 06046 M01S05296.dmrec +++| BX6 X2 06047 M01S05297.dmrec +++| SA6 X1 06048 M01S05298.dmrec +++| 06049 M01S05299.dmrec +++|* RESTORE ORIGINAL *FL*. 06050 M01S05300.dmrec +++| 06051 M01S05301.dmrec +++| SA1 FL 06052 M01S05302.dmrec +++| MEMORY CM,,R,X1 06053 M01S05303.dmrec +++| 06054 M01S05304.dmrec +++|* RESTORE *A0*. 06055 M01S05305.dmrec +++| 06056 M01S05306.dmrec +++| SA1 A0S 06057 M01S05307.dmrec +++| SA0 X1 06058 M01S05308.dmrec +++| EQ EXCX RETURN 06059 M01S05309.dmrec +++| EXP SPACE 4,25 06060 M01S05310.dmrec +++|** EXP - EXPAND DATA FILES. 06061 M01S05311.dmrec +++|* 06062 M01S05312.dmrec +++|* *EXP* EXPANDS FILE SIZE FOR DATA FILES BASED ON 06063 M01S05313.dmrec +++|* EXISTING UNUSED SPACE (FROM *FSTT* AND *CATLIST*) AND 06064 M01S05314.dmrec +++|* PERCENTAGE (BACKUP DIRECTORY FOR THIS DATA BASE 06065 M01S05315.dmrec +++|* FILE). BEFORE A PERCENTAGE IS USED, THE BACKUP DIRECTORY 06066 M01S05316.dmrec +++|* IS UPDATED AT THE DATA BASE AND/OR DATA FILE LEVEL. 06067 M01S05317.dmrec +++|* 06068 M01S05318.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 06069 M01S05319.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 06070 M01S05320.dmrec +++|* (X6) = OPERATION FLAG (VALIDATE PARAMETERS). 06071 M01S05321.dmrec +++|* 06072 M01S05322.dmrec +++|* EXIT ALL INDICATED DATA FILES AND ASSOCIATED INDEX 06073 M01S05323.dmrec +++|* FILES HAVE BEEN EXPANDED IF NECESSARY. BACKUP 06074 M01S05324.dmrec +++|* DIRECTORY FILE (*ZZDBDIR*) WAS REBUILT IF FOUND 06075 M01S05325.dmrec +++|* UNUSABLE. EXIT TO *DMR3* FOR NEXT DIRECTIVE. 06076 M01S05326.dmrec +++|* 06077 M01S05327.dmrec +++|* USES X - 0, 2, 5, 6. 06078 M01S05328.dmrec +++|* A - 2, 5, 6. 06079 M01S05329.dmrec +++|* B - 5, 7. 06080 M01S05330.dmrec +++|* 06081 M01S05331.dmrec +++|* CALLS CWM, DXB, EDF, GXJ, RAF, RXJ, SPR. 06082 M01S05332.dmrec +++|* 06083 M01S05333.dmrec +++|* MACROS ERROR. 06084 M01S05334.dmrec +++| 06085 M01S05335.dmrec +++| 06086 M01S05336.dmrec +++| EXP BSS 0 ENTRY 06087 M01S05337.dmrec +++| RJ SPR SET PARAMETERS 06088 M01S05338.dmrec +++| SB5 B5-2 06089 M01S05339.dmrec +++| NE B5,B0,EXP8 IF OTHER THAN ONE FILE SPECIFIED 06090 M01S05340.dmrec +++| SA5 PERCENT 06091 M01S05341.dmrec +++| SB7 B1 06092 M01S05342.dmrec +++| RJ DXB DISPLAY TO BINARY 06093 M01S05343.dmrec +++| NZ X4,EXP9 IF ERROR IN CONVERSION 06094 M01S05344.dmrec +++| SA6 XXPCT PERCENTAGE (OCTAL) 06095 M01S05345.dmrec +++| SX6 X6-100D 06096 M01S05346.dmrec +++| PL X6,EXP9 IF ERROR IN PERCENT SIZE
| Line S05347 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec15 |
Seq # *Modification Id* Act ----------------------------+ 06097 M02S05347.dmrec15 ---| SX6 B0+ 06098 M01S00012.dmrec15 +++| SX6 PTWR WRITE MODE 06099 M01S05348.dmrec +++| SA6 XXMODE ATTACH DATA/INDEX FILE IN WRITE MODE 06100 M01S05349.dmrec +++| SA6 TEMPO TEMPORARY 06101 M01S05350.dmrec +++| SA5 TDFN 06102 M01S05351.dmrec +++| MX0 12 06103 M01S05352.dmrec +++| BX5 X0*X5 DATA BASE NAME ( 2LDB ) 06104 M01S05353.dmrec +++| RJ GXJ GET XXJ FILE 06105 M01S05354.dmrec +++| NZ X1,DMR3 IF ERROR 06106 M01S05355.dmrec +++| SA2 TDFN CHECK FOR MORE THAN TWO CHARACTERS 06107 M01S05356.dmrec +++| MX0 12 06108 M01S05357.dmrec +++| BX2 -X0*X2 06109 M01S05358.dmrec +++| ZR X2,EXP3 IF EXPAND BY DATA BASE 06110 M01S05359.dmrec +++| 06111 M01S05360.dmrec +++|* EXPAND ONE DATA/INDEX FILE. 06112 M01S05361.dmrec +++| 06113 M01S05362.dmrec +++| EXP1 SA5 TDFN 06114 M01S05363.dmrec +++| RJ RXJ FIND THIS FILE 06115 M01S05364.dmrec +++| ZR X1,EXP2 IF FILE FOUND 06116 M01S05365.dmrec +++| PL X1,EXP7 IF FILE NOT FOUND 06117 M01S05366.dmrec +++| ZR X2,EXP7 IF FILE NOT FOUND 06118 M01S05367.dmrec +++| EXP2 RJ CWM CHECK WRITE MODE 06119 M01S05368.dmrec +++| NZ X1,EXP7 IF ERROR 06120 M01S05369.dmrec +++| RJ EDF EXPAND DATA FILE 06121 M01S05370.dmrec +++| NZ X1,DMR3 IF ERROR IN EDF 06122 M01S05371.dmrec +++| EQ EXP7 GO RETURN FILES AND QUIT 06123 M01S05372.dmrec +++| 06124 M01S05373.dmrec +++|* EXPAND BY DATA BASE. 06125 M01S05374.dmrec +++| 06126 M01S05375.dmrec +++| EXP3 SX5 B1 06127 M01S05376.dmrec +++| EXP4 RJ RXJ READ NEXT XXJ ENTRY 06128 M01S05377.dmrec +++| ZR X1,EXP5 IF NO ERROR 06129 M01S05378.dmrec +++| NG X1,EXP6 IF EOF 06130 M01S05379.dmrec +++| EQ DMR3 REAL ERROR 06131 M01S05380.dmrec +++| 06132 M01S05381.dmrec +++| EXP5 RJ CWM CHECK WRITE MODE 06133 M01S05382.dmrec +++| SX5 B0+ SET ENTRY CONDITION FOR *RXJ* 06134 M01S05383.dmrec +++| NZ X1,EXP4 IF READ ONLY FILE 06135 M01S05384.dmrec +++| RJ EDF EXPAND FILE 06136 M01S05385.dmrec +++| NZ X1,DMR3 IF ERROR IN EDF 06137 M01S05386.dmrec +++| SX5 B0+ SET ENTRY CONDITION FOR *RXJ* 06138 M01S05387.dmrec +++| EQ EXP4 GET NEXT FILE 06139 M01S05388.dmrec +++| 06140 M01S05389.dmrec +++| EXP6 ZR X2,EXP7 IF NO MORE FILES 06141 M01S05390.dmrec +++| RJ CWM CHECK WRITE MODE 06142 M01S05391.dmrec +++| NZ X1,EXP7 IF ERROR 06143 M01S05392.dmrec +++| RJ EDF EXPAND LAST FILE 06144 M01S05393.dmrec +++| NZ X1,DMR3 IF ERROR IN EDF 06145 M01S05394.dmrec +++| EXP7 RJ RAF RETURN ALL FILES 06146 M01S05395.dmrec +++| EQ DMR3 RETURN 06147 M01S05396.dmrec +++| 06148 M01S05397.dmrec +++| EXP8 ERROR IFVB,,,EXP7,,E *DB NAME AND FILE NAME BOTH SPECIFIED* 06149 M01S05398.dmrec +++| 06150 M01S05399.dmrec +++| EXP9 ERROR EXPA,,,EXP7,,E *PERCENT PARAMETER NOT SPECIFIED* 06151 M01S05400.dmrec +++| 06152 M01S05401.dmrec +++| EXPA DATA 20H0 ***** 06153 M01S05402.dmrec +++| DATA C*PERCENT PARAMETER NOT SPECIFIED PROPERLY.* 06154 M01S05403.dmrec +++| EXPAL EQU *-EXPA 06155 M01S05404.dmrec +++| FAW SPACE 4,15 06156 M01S05405.dmrec +++|** FAW - FORMAT ALPHA WORD. 06157 M01S05406.dmrec +++|* 06158 M01S05407.dmrec +++|* ENTRY (B2) = ADDRESS OF WORD TO FORMAT TO STRING BUFFER. 06159 M01S05408.dmrec +++|* (SCPC) = BYTE POSITION. 06160 M01S05409.dmrec +++|* 06161 M01S05410.dmrec +++|* EXIT (B2) = UNCHANGED. 06162 M01S05411.dmrec +++|* CHARACTERS PLACED IN STRING BUFFER AND *SCPC* 06163 M01S05412.dmrec +++|* ADVANCED. 06164 M01S05413.dmrec +++|* 06165 M01S05414.dmrec +++|* USES X - 1, 2, 3, 4, 6, 7. 06166 M01S05415.dmrec +++|* A - 1, 3, 4, 6, 7. 06167 M01S05416.dmrec +++|* B - 4, 5, 7. 06168 M01S05417.dmrec +++|* 06169 M01S05418.dmrec +++|* CALLS BSB. 06170 M01S05419.dmrec +++| 06171 M01S05420.dmrec +++| 06172 M01S05421.dmrec +++| FAW SUBR ENTRY/EXIT 06173 M01S05422.dmrec +++| SA3 OPWD 06174 M01S05423.dmrec +++| LX3 59-0 06175 M01S05424.dmrec +++| PL X3,FAW1 IF NOT OCTAL/ALPHA MODE 06176 M01S05425.dmrec +++| SA4 SCPC 06177 M01S05426.dmrec +++| NZ X4,FAW1 IF NOT FIRST WORD 06178 M01S05427.dmrec +++| RJ BSB BLANK BUFFER 06179 M01S05428.dmrec +++| 06180 M01S05429.dmrec +++| FAW1 SA4 SCPC 06181 M01S05430.dmrec +++| SA1 B2 GET DATA WORD 06182 M01S05431.dmrec +++| MX2 10 06183 M01S05432.dmrec +++| SA3 OPWD 06184 M01S05433.dmrec +++| MX6 54 06185 M01S05434.dmrec +++| LX3 59-0 06186 M01S05435.dmrec +++| SB7 1R SET BLANK REPLACE 06187 M01S05436.dmrec +++| NG X3,FAW5 IF OCTAL/ALPHA MODE 06188 M01S05437.dmrec +++| SA3 TAAP+X4 GET STARTING POSITION 06189 M01S05438.dmrec +++| SB5 X3 06190 M01S05439.dmrec +++| SB4 B1 06191 M01S05440.dmrec +++| 06192 M01S05441.dmrec +++| FAW2 LX1 6 06193 M01S05442.dmrec +++| BX7 -X6*X1 06194 M01S05443.dmrec +++| LX2 1 06195 M01S05444.dmrec +++| NZ X7,FAW3 IF NOT 00 CHARACTER 06196 M01S05445.dmrec +++| SX7 B7 FORCE BLANK 06197 M01S05446.dmrec +++| FAW3 SA7 B5 06198 M01S05447.dmrec +++| SB5 B5+B4 ADVANCE STORE 06199 M01S05448.dmrec +++| NG X2,FAW2 IF NOT END OF WORD 06200 M01S05449.dmrec +++| 06201 M01S05450.dmrec +++| SA4 SCPC ADVANCE POSITION 06202 M01S05451.dmrec +++| SA3 OPWD 06203 M01S05452.dmrec +++| SX7 X4+B1 06204 M01S05453.dmrec +++| LX3 59-0 06205 M01S05454.dmrec +++| SX6 X7-TBOPL 06206 M01S05455.dmrec +++| NG X3,FAW4 IF OCTAL ALPHA MODE 06207 M01S05456.dmrec +++| SX6 X7-TAAPL 06208 M01S05457.dmrec +++| FAW4 SA7 A4 06209 M01S05458.dmrec +++| NZ X6,FAW IF NOT END OF LINE 06210 M01S05459.dmrec +++| SA6 A4 SET BEGINNING OF NEXT LINE 06211 M01S05460.dmrec +++| EQ FAWX RETURN 06212 M01S05461.dmrec +++| 06213 M01S05462.dmrec +++| FAW5 SA3 TBOP+X4 SET STARTING POSITION 06214 M01S05463.dmrec +++| SB5 X3+B1 06215 M01S05464.dmrec +++| SB4 B1+B1 SET INCREMENT 06216 M01S05465.dmrec +++| EQ FAW2 LOOP FOR NEXT BYTE 06217 M01S05466.dmrec +++| 06218 M01S05467.dmrec +++|* TABLE OF BYTE FORMAT POSITIONS 06219 M01S05468.dmrec +++| 06220 M01S05469.dmrec +++| TAAP BSS 0 06221 M01S05470.dmrec +++| LOC 0 06222 M01S05471.dmrec +++| CON OLWS+10 06223 M01S05472.dmrec +++| CON OLWS+24 06224 M01S05473.dmrec +++| CON OLWS+38 06225 M01S05474.dmrec +++| CON OLWS+52 06226 M01S05475.dmrec +++| TAAPL EQU * 06227 M01S05476.dmrec +++| LOC *O 06228 M01S05477.dmrec +++| FER SPACE 4,20 06229 M01S05478.dmrec +++|** FER - FIT ERROR STATUS. 06230 M01S05479.dmrec +++|* 06231 M01S05480.dmrec +++|* ENTRY (DIRR) = FWA OF BACKUP DIRECTORY FIT. 06232 M01S05481.dmrec +++|* 06233 M01S05482.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 06234 M01S05483.dmrec +++|* 1, IF KEY NOT FOUND. 06235 M01S05484.dmrec +++|* 2, IF OTHER *CRM* ERROR. 06236 M01S05485.dmrec +++|* 3, IF END OF FILE. 06237 M01S05486.dmrec +++|* 06238 M01S05487.dmrec +++|* USES X - 0, 1, 2, 5, 7. 06239 M01S05488.dmrec +++|* A - 5, 7. 06240 M01S05489.dmrec +++|* B - NONE. 06241 M01S05490.dmrec +++|* 06242 M01S05491.dmrec +++|* CALLS COD. 06243 M01S05492.dmrec +++|* 06244 M01S05493.dmrec +++|* MACROS ERROR, FETCH. 06245 M01S05494.dmrec +++| 06246 M01S05495.dmrec +++| 06247 M01S05496.dmrec +++| FER SUBR ENTRY/EXIT 06248 M01S05497.dmrec +++| FETCH DIRR,FP,X2 FILE POSITION 06249 M01S05498.dmrec +++| SX2 X2-EOFF 06250 M01S05499.dmrec +++| SX1 3 06251 M01S05500.dmrec +++| ZR X2,FERX IF END OF FILE 06252 M01S05501.dmrec +++| MX1 0 06253 M01S05502.dmrec +++| FETCH DIRR,ES,X5 ERROR STATUS 06254 M01S05503.dmrec +++| ZR X5,FERX IF NO ERROR 06255 M01S05504.dmrec +++| SX2 KNFF KEY NOT FOUND 06256 M01S05505.dmrec +++| BX2 X5-X2 06257 M01S05506.dmrec +++| SX1 B1 06258 M01S05507.dmrec +++| ZR X2,FERX IF KEY NOT FOUND 06259 M01S05508.dmrec +++| BX1 X5 06260 M01S05509.dmrec +++| RJ COD CONVERT TO OCTAL DISPLAY CODE 06261 M01S05510.dmrec +++| MX0 18 06262 M01S05511.dmrec +++| BX7 X0*X4 06263 M01S05512.dmrec +++| SA7 HOLD5 06264 M01S05513.dmrec +++| ERROR FERA,HOLD5,,FER1,,E CRM ERROR STATUS 06265 M01S05514.dmrec +++| FER1 SX1 B1+B1 06266 M01S05515.dmrec +++| EQ FERX RETURN - ERROR 06267 M01S05516.dmrec +++| 06268 M01S05517.dmrec +++| FERA DATA 20H0 ***** 06269 M01S05518.dmrec +++| DATA C*ERROR STATUS XXX ON BACKUP DIRECTORY.* 06270 M01S05519.dmrec +++| FERAL EQU *-FERA 06271 M01S05520.dmrec +++| FML SPACE 4,10 06272 M01S05521.dmrec +++|** FML - FORMAT PRINT LINE(S). 06273 M01S05522.dmrec +++|* 06274 M01S05523.dmrec +++|* ENTRY (A0) = INDEX TO LAST ENTRY+1 IN WORD BUFFER. 06275 M01S05524.dmrec +++|* 06276 M01S05525.dmrec +++|* EXIT PRINT LINE FORMATTED 06277 M01S05526.dmrec +++|* 06278 M01S05527.dmrec +++|* USES X - 1, 2, 6, 7. 06279 M01S05528.dmrec +++|* A - 2, 6, 7. 06280 M01S05529.dmrec +++|* B - 2. 06281 M01S05530.dmrec +++|* 06282 M01S05531.dmrec +++|* CALLS ELH, FOW, WSB, FAW. 06283 M01S05532.dmrec +++| 06284 M01S05533.dmrec +++| 06285 M01S05534.dmrec +++| FML SUBR ENTRY/EXIT 06286 M01S05535.dmrec +++| BX1 X1-X1 06287 M01S05536.dmrec +++| SX1 A0-B1 06288 M01S05537.dmrec +++| NG X1,FMLX IF EMPTY LINE 06289 M01S05538.dmrec +++| SA2 OPWD 06290 M01S05539.dmrec +++| LX2 59-0 06291 M01S05540.dmrec +++| PL X2,FML2 IF NOT OCTAL MODE 06292 M01S05541.dmrec +++| BX6 X6-X6 CLEAR BYTE POSITION 06293 M01S05542.dmrec +++| SA6 SCPC 06294 M01S05543.dmrec +++| RJ ELH ENTER LINE HEADER 06295 M01S05544.dmrec +++| SB2 DTOL 06296 M01S05545.dmrec +++| RJ FOW WORD 1 06297 M01S05546.dmrec +++| SB2 B2+B1 06298 M01S05547.dmrec +++| SX1 A0-2 06299 M01S05548.dmrec +++| NG X1,FML1 IF END OF LINE 06300 M01S05549.dmrec +++| RJ FOW WORD 2 06301 M01S05550.dmrec +++| SB2 B2+B1 06302 M01S05551.dmrec +++| SX1 A0-3 06303 M01S05552.dmrec +++| NG X1,FML1 IF END OF LINE 06304 M01S05553.dmrec +++| RJ FOW WORD 3 06305 M01S05554.dmrec +++| SB2 B2+B1 06306 M01S05555.dmrec +++| SX1 A0-4 06307 M01S05556.dmrec +++| NG X1,FML1 IF END OF LINE 06308 M01S05557.dmrec +++| RJ FOW WORD 4 06309 M01S05558.dmrec +++| FML1 RJ WSB WRITE BUFFER 06310 M01S05559.dmrec +++| FML2 SA2 OPWD 06311 M01S05560.dmrec +++| LX2 59-1 06312 M01S05561.dmrec +++| BX6 X6-X6 06313 M01S05562.dmrec +++| PL X2,FML4 IF NOT ALPHA MODE 06314 M01S05563.dmrec +++| SA6 SCPC 06315 M01S05564.dmrec +++| RJ ELH 06316 M01S05565.dmrec +++| SB2 DTOL 06317 M01S05566.dmrec +++| RJ FAW WORD 1 06318 M01S05567.dmrec +++| SB2 B2+B1 06319 M01S05568.dmrec +++| SX1 A0-2 06320 M01S05569.dmrec +++| NG X1,FML3 IF END OF LINE 06321 M01S05570.dmrec +++| RJ FAW WORD 2 06322 M01S05571.dmrec +++| SB2 B2+B1 06323 M01S05572.dmrec +++| SX1 A0-3 06324 M01S05573.dmrec +++| NG X1,FML3 IF END OF LINE 06325 M01S05574.dmrec +++| RJ FAW WORD 3 06326 M01S05575.dmrec +++| SB2 B2+B1 06327 M01S05576.dmrec +++| SX1 A0-4 06328 M01S05577.dmrec +++| NG X1,FML3 IF END OF LINE 06329 M01S05578.dmrec +++| RJ FAW WORD 4 06330 M01S05579.dmrec +++| FML3 RJ WSB WRITE BUFFER 06331 M01S05580.dmrec +++| FML4 SA2 WDCT 06332 M01S05581.dmrec +++| BX7 X2 06333 M01S05582.dmrec +++| SA7 WCBL SET BEGINNING OF NEXT LINE 06334 M01S05583.dmrec +++| EQ FMLX RETURN 06335 M01S05584.dmrec +++| FND SPACE 4,15 06336 M01S05585.dmrec +++|** FND - FIND NEXT DIRECTIVE. 06337 M01S05586.dmrec +++|* 06338 M01S05587.dmrec +++|* ENTRY NONE. 06339 M01S05588.dmrec +++|* 06340 M01S05589.dmrec +++|* EXIT (X1) = 0, IF VALID DIRECTIVE FOUND. 06341 M01S05590.dmrec +++|* 06342 M01S05591.dmrec +++|* USES X - 4. 06343 M01S05592.dmrec +++|* A - NONE. 06344 M01S05593.dmrec +++|* B - NONE. 06345 M01S05594.dmrec +++|* 06346 M01S05595.dmrec +++|* CALLS CND. 06347 M01S05596.dmrec +++| 06348 M01S05597.dmrec +++| 06349 M01S05598.dmrec +++| FND SUBR ENTRY/EXIT 06350 M01S05599.dmrec +++| SX4 3RDA* *ADD* DIRECTIVE 06351 M01S05600.dmrec +++| RJ CND CHECK NEXT DIRECTIVE 06352 M01S05601.dmrec +++| ZR X1,FNDX IF FOUND RETURN 06353 M01S05602.dmrec +++| SX4 3RYC* *CYCLE* DIRECTIVE 06354 M01S05603.dmrec +++| RJ CND CHECK NEXT DIRECTIVE 06355 M01S05604.dmrec +++| ZR X1,FNDX IF FOUND RETURN 06356 M01S05605.dmrec +++| SX4 3RED* *DELETE* DIRECTIVE 06357 M01S05606.dmrec +++| RJ CND CHECK NEXT DIRECTIVE 06358 M01S05607.dmrec +++| EQ FNDX RETURN 06359 M01S05608.dmrec +++| FOW SPACE 4,15 06360 M01S05609.dmrec +++|** FOW - FORMAT OCTAL WORD. 06361 M01S05610.dmrec +++|* 06362 M01S05611.dmrec +++|* ENTRY (B2) = ADDRESS OF WORD TO FORMAT. 06363 M01S05612.dmrec +++|* (SCPC) = BYTE POSITION. 06364 M01S05613.dmrec +++|* 06365 M01S05614.dmrec +++|* EXIT WORD PLACED IN BUFFER. 06366 M01S05615.dmrec +++|* (SCPC) = UPDATED. 06367 M01S05616.dmrec +++|* (X6) = 0 IF LINE IS FILLED. 06368 M01S05617.dmrec +++|* (B2) = UNCHANGED. 06369 M01S05618.dmrec +++|* 06370 M01S05619.dmrec +++|* USES A - 4, 6, 7. 06371 M01S05620.dmrec +++|* X - 2, 3, 4, 6, 7. 06372 M01S05621.dmrec +++|* B - 6, 7. 06373 M01S05622.dmrec +++| 06374 M01S05623.dmrec +++| 06375 M01S05624.dmrec +++| FOW SUBR ENTRY/EXIT 06376 M01S05625.dmrec +++| SA4 SCPC 06377 M01S05626.dmrec +++| SA4 TBOP+X4 GET BEGINNING CHARACTER POSITION 06378 M01S05627.dmrec +++| MX3 20 DIGIT COUNT 06379 M01S05628.dmrec +++| SB7 X4 STORE ADDRESS 06380 M01S05629.dmrec +++| SB6 1R0 06381 M01S05630.dmrec +++| MX2 -3 06382 M01S05631.dmrec +++| SA4 B2 GET INPUT WORD 06383 M01S05632.dmrec +++| FOW1 LX4 3 06384 M01S05633.dmrec +++| BX7 -X2*X4 GET DIGIT 06385 M01S05634.dmrec +++| SX7 X7+B6 06386 M01S05635.dmrec +++| LX3 1 06387 M01S05636.dmrec +++| SA7 B7 STORE CONVERTED DIGIT 06388 M01S05637.dmrec +++| SB7 B7+B1 06389 M01S05638.dmrec +++| NG X3,FOW1 IF NOT END OF WORD 06390 M01S05639.dmrec +++| SA4 SCPC 06391 M01S05640.dmrec +++| SX7 X4+B1 06392 M01S05641.dmrec +++| SX6 X7-TBOPL 06393 M01S05642.dmrec +++| SA7 A4 ADVANCE POSITION 06394 M01S05643.dmrec +++| NZ X6,FOWX IF NOT END OF LINE 06395 M01S05644.dmrec +++| SA6 A4 RESET BYTE POSITION 06396 M01S05645.dmrec +++| EQ FOWX RETURN 06397 M01S05646.dmrec +++| 06398 M01S05647.dmrec +++|* TABLE OF FORMATTING VALUES 06399 M01S05648.dmrec +++| 06400 M01S05649.dmrec +++| TBOP BSS 0 06401 M01S05650.dmrec +++| LOC 0 06402 M01S05651.dmrec +++| CON OLWS+10 06403 M01S05652.dmrec +++| CON OLWS+34 06404 M01S05653.dmrec +++| CON OLWS+58 06405 M01S05654.dmrec +++| CON OLWS+82 06406 M01S05655.dmrec +++| TBOPL EQU * 06407 M01S05656.dmrec +++| LOC *O 06408 M01S05657.dmrec +++| GAL SPACE 4,15 06409 M01S05658.dmrec +++|** GAL - GENERATE AFTER IMAGE HEADER LISTING. 06410 M01S05659.dmrec +++|* 06411 M01S05660.dmrec +++|* ENTRY (DIRR) = FWA OF BACKUP DIRECTORY FIT. 06412 M01S05661.dmrec +++|* (TVSN) = VSN OF AFTER IMAGE LOG DUMP TAPE. 06413 M01S05662.dmrec +++|* (TIME) = HH.MM.SS, IF ENTRIES AFTER THIS TIME NEEDED. 06414 M01S05663.dmrec +++|* 06415 M01S05664.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 06416 M01S05665.dmrec +++|* 06417 M01S05666.dmrec +++|* USES X - ALL. 06418 M01S05667.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 06419 M01S05668.dmrec +++|* B - 6, 7. 06420 M01S05669.dmrec +++|* 06421 M01S05670.dmrec +++|* CALLS BFL, CDD, COD, FER, GNR, LDE, LDH, RQT, SFN, SHT. 06422 M01S05671.dmrec +++|* 06423 M01S05672.dmrec +++|* MACROS EDATE, ERROR, ETIME, READ, READW, REWIND, RMGET. 06424 M01S05673.dmrec +++| 06425 M01S05674.dmrec +++| 06426 M01S05675.dmrec +++| GAL SUBR ENTRY/EXIT 06427 M01S05676.dmrec +++| SA2 TVSN 06428 M01S05677.dmrec +++| MX0 24 06429 M01S05678.dmrec +++| LX2 35-59 06430 M01S05679.dmrec +++| SA3 VSNK SECOND WORD OF THE KEY 06431 M01S05680.dmrec +++| BX4 X0*X3 UPPER FOUR CHARACTERS 06432 M01S05681.dmrec +++| BX6 X2+X4 06433 M01S05682.dmrec +++| SA6 CKY1 06434 M01S05683.dmrec +++| BX6 X3 06435 M01S05684.dmrec +++| SA6 CKY2 06436 M01S05685.dmrec +++| RMGET DIRR,WSAB,0,,CKY1 READ VSN ENTRY 06437 M01S05686.dmrec +++| RJ FER FIT ERROR STATUS 06438 M01S05687.dmrec +++| NZ X1,GAL6 IF ERRORS 06439 M01S05688.dmrec +++| SA2 TVSN 06440 M01S05689.dmrec +++| SX5 B0 READ MODE FOR TAPE REQUEST 06441 M01S05690.dmrec +++| BX6 X2 VSN NUMBER 06442 M01S05691.dmrec +++| SB7 TP TAPE REQUEST FET 06443 M01S05692.dmrec +++| RJ RQT REQUEST TAPE FILE 06444 M01S05693.dmrec +++| SA1 =6L MASS STORAGE FILE EXISTS 06445 M01S05694.dmrec +++| BX2 X1-X6 06446 M01S05695.dmrec +++| ZR X2,GAL2 IF DISK FILE ASSIGNED 06447 M01S05696.dmrec +++| SA1 TVSN 06448 M01S05697.dmrec +++| BX2 X1-X6 06449 M01S05698.dmrec +++| NZ X2,GAL7 IF NOT THE SAME VSN 06450 M01S05699.dmrec +++| REWIND TP,R 06451 M01S05700.dmrec +++| READ TP READ DMREC-S HEADER 06452 M01S05701.dmrec +++| READW TP,WBUF,WBUFL AFTER IMAGE TAPE - NO END OF TAPE 06453 M01S05702.dmrec +++| ZR X1,GAL8 IF ERROR 06454 M01S05703.dmrec +++| NG X1,GAL8 IF ERROR 06455 M01S05704.dmrec +++| GAL2 SX6 8 SET LISTING HEADER 06456 M01S05705.dmrec +++| RJ LPH LIST PAGE HEADER 06457 M01S05706.dmrec +++| SX6 9 SET LINE HEADER 06458 M01S05707.dmrec +++| RJ LPH LIST PAGE HEADER 06459 M01S05708.dmrec +++| MX6 0 06460 M01S05709.dmrec +++| SA6 HOLD INITIAL READ 06461 M01S05710.dmrec +++| SA6 RECC RECORD COUNT 06462 M01S05711.dmrec +++| SX4 TP TAPE FET ADDRESS 06463 M01S05712.dmrec +++| RJ GNR READ FIRST RECORD 06464 M01S05713.dmrec +++| NZ X1,GALX IF ERROR IN TAPE HEADER 06465 M01S05714.dmrec +++| GAL3 SX4 TP TAPE FET ADDRESS 06466 M01S05715.dmrec +++| RJ GNR READ NEXT RECORD 06467 M01S05716.dmrec +++| NG X1,GAL9 IF END OF FILE 06468 M01S05717.dmrec +++| NZ X1,GAL8 IF READ ERROR 06469 M01S05718.dmrec +++| SA1 RECC 06470 M01S05719.dmrec +++| SX2 B1 06471 M01S05720.dmrec +++| IX6 X1+X2 INCREMENT RECORD COUNT 06472 M01S05721.dmrec +++| SA6 RECC 06473 M01S05722.dmrec +++| SB6 X4 FWA OF AFTER IMAGE RECORD 06474 M01S05723.dmrec +++| RJ BFL BLANK FILL LINE 06475 M01S05724.dmrec +++| SA5 B6+XLPDW PACKED DATE/TIME 06476 M01S05725.dmrec +++| ETIME X5 UNPACK TIME 06477 M01S05726.dmrec +++| AX5 18 06478 M01S05727.dmrec +++| SA6 PLIN+6 06479 M01S05728.dmrec +++| EDATE X5 UNPACK DATE 06480 M01S05729.dmrec +++| SA6 PLIN+5 06481 M01S05730.dmrec +++| SA1 TIME 06482 M01S05731.dmrec +++| ZR X1,GAL4 IF ALL HEADERS REQUIRED 06483 M01S05732.dmrec +++| SA2 PLIN+6 06484 M01S05733.dmrec +++| IX2 X1-X2 COMPARE TIMES 06485 M01S05734.dmrec +++| NG X2,GAL4 IF HEADER TIME QUALIFIES 06486 M01S05735.dmrec +++| EQ GAL3 NEXT RECORD 06487 M01S05736.dmrec +++| 06488 M01S05737.dmrec +++| GAL4 SA1 RECC RECORD COUNT 06489 M01S05738.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 06490 M01S05739.dmrec +++| LX6 48 06491 M01S05740.dmrec +++| SA6 PLIN+1 06492 M01S05741.dmrec +++| SA1 B6+XLFNW FILE NAME 06493 M01S05742.dmrec +++| MX0 42 06494 M01S05743.dmrec +++| BX1 X0*X1 06495 M01S05744.dmrec +++| RJ SFN SPACE FILL NAME 06496 M01S05745.dmrec +++| LX6 41-59 06497 M01S05746.dmrec +++| MX0 12 06498 M01S05747.dmrec +++| BX7 -X0*X6 LOWER HALF 06499 M01S05748.dmrec +++| SA1 PLIN+1 06500 M01S05749.dmrec +++| BX1 X0*X1 UPPER PART 06501 M01S05750.dmrec +++| BX7 X1+X7 COMBINE 06502 M01S05751.dmrec +++| SA7 PLIN+1 06503 M01S05752.dmrec +++| SA1 B6+XLBWW FIRST HEADER WORD 06504 M01S05753.dmrec +++| MX0 -19 06505 M01S05754.dmrec +++| BX2 -X0*X1 06506 M01S05755.dmrec +++| LX2 18-17 06507 M01S05756.dmrec +++| SX3 X2 HEADER TYPE 06508 M01S05757.dmrec +++| AX3 1 06509 M01S05758.dmrec +++| LX2 59-19 06510 M01S05759.dmrec +++| PL X2,GAL5 IF NO BEGIN INDICATOR 06511 M01S05760.dmrec +++| SA5 BIND BEGIN INDICATOR 06512 M01S05761.dmrec +++| BX6 X5 06513 M01S05762.dmrec +++| SA6 PLIN+4 06514 M01S05763.dmrec +++| GAL5 RJ SHT SET HEADER TYPE 06515 M01S05764.dmrec +++| NZ X1,GALX IF UNRECOGNIZABLE HEADER 06516 M01S05765.dmrec +++| MX0 24 06517 M01S05766.dmrec +++| SA1 B6+XLBWW TRANSACTION SEQUENCE NUMBER 06518 M01S05767.dmrec +++| BX1 X0*X1 06519 M01S05768.dmrec +++| LX1 23-59 06520 M01S05769.dmrec +++| RJ COD CONSTANT TO OCTAL DISPLAY 06521 M01S05770.dmrec +++| LX6 6 06522 M01S05771.dmrec +++| MX0 54 06523 M01S05772.dmrec +++| SX1 1RB 06524 M01S05773.dmrec +++| BX6 X0*X6 06525 M01S05774.dmrec +++| BX6 X1+X6 06526 M01S05775.dmrec +++| SA6 PLIN+2 06527 M01S05776.dmrec +++| SA1 B6+XLTNW TASK NAME 06528 M01S05777.dmrec +++| MX0 42 06529 M01S05778.dmrec +++| BX1 X0*X1 06530 M01S05779.dmrec +++| RJ SFN SPACE FILL NAME 06531 M01S05780.dmrec +++| LX6 53-59 06532 M01S05781.dmrec +++| SA1 B6+XLKSW RECORD LENGTH 06533 M01S05782.dmrec +++| AX1 24 06534 M01S05783.dmrec +++| SA6 PLIN+3 06535 M01S05784.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 06536 M01S05785.dmrec +++| BX5 X6 06537 M01S05786.dmrec +++| MX0 -24 06538 M01S05787.dmrec +++| SA1 B6+XLKSW KEY LENGTH 06539 M01S05788.dmrec +++| BX1 -X0*X1 06540 M01S05789.dmrec +++| RJ CDD CONVERT BINARY TO DISPLAY 06541 M01S05790.dmrec +++| MX0 -24 06542 M01S05791.dmrec +++| LX5 24 06543 M01S05792.dmrec +++| BX6 -X0*X6 06544 M01S05793.dmrec +++| BX5 X0*X5 06545 M01S05794.dmrec +++| BX6 X5+X6 KEY AND RECORD LENGTH 06546 M01S05795.dmrec +++| SA6 PLIN+7 06547 M01S05796.dmrec +++| MX7 0 06548 M01S05797.dmrec +++| SA7 PLIN+8 TERMINATE LINE 06549 M01S05798.dmrec +++| SX6 B6 06550 M01S05799.dmrec +++| SA6 GALE SAVE *B6* 06551 M01S05800.dmrec +++| RJ LDE LIST ENTRY 06552 M01S05801.dmrec +++| SA1 GALE 06553 M01S05802.dmrec +++| SB6 X1 06554 M01S05803.dmrec +++| SA1 B6+XLKSW KEY LENGTH 06555 M01S05804.dmrec +++| MX0 -24 06556 M01S05805.dmrec +++| BX7 -X0*X1 06557 M01S05806.dmrec +++| ZR X7,GAL3 IF NO KEY PRESENT 06558 M01S05807.dmrec +++| RJ LKC LIST KEY CONTENTS 06559 M01S05808.dmrec +++| EQ GAL3 NEXT RECORD 06560 M01S05809.dmrec +++| 06561 M01S05810.dmrec +++| GAL6 ERROR CVNA,,,GALX,,E VSN DOES NOT EXIST 06562 M01S05811.dmrec +++| 06563 M01S05812.dmrec +++| GAL7 ERROR GALB,,,GALX,,E WRONG VSN USED 06564 M01S05813.dmrec +++| 06565 M01S05814.dmrec +++| GAL8 ERROR GALC,,,GALX,,E READ ERROR ON TAPE 06566 M01S05815.dmrec +++| 06567 M01S05816.dmrec +++| GAL9 ERROR GALD,,,GAL10 END OF FILE REACHED 06568 M01S05817.dmrec +++| GAL10 MX1 0 06569 M01S05818.dmrec +++| EQ GALX RETURN 06570 M01S05819.dmrec +++| 06571 M01S05820.dmrec +++| GALB DATA 20H0 ***** 06572 M01S05821.dmrec +++| DATA C*WRONG VSN USED.* 06573 M01S05822.dmrec +++| GALBL EQU *-GALB 06574 M01S05823.dmrec +++| 06575 M01S05824.dmrec +++| GALC DATA 20H0 ***** 06576 M01S05825.dmrec +++| DATA C*READ ERROR ON TAPE.* 06577 M01S05826.dmrec +++| GALCL EQU *-GALC 06578 M01S05827.dmrec +++| 06579 M01S05828.dmrec +++| GALD DATA 20H0 ***** 06580 M01S05829.dmrec +++| DATA C*END OF FILE REACHED.* 06581 M01S05830.dmrec +++| GALDL EQU *-GALD 06582 M01S05831.dmrec +++| 06583 M01S05832.dmrec +++| GALE BSSZ 1 TEMPORARY SAVE OF *B6* 06584 M01S00004.dmrec4 +++| GDR SPACE 4,10 06585 M01S00005.dmrec4 +++|** GDR - GET DATA RECORD. 06586 M01S00006.dmrec4 +++|* 06587 M01S00007.dmrec4 +++|* *GDR* RETRIEVES THE NEXT RECORD FROM AN *AFTER IMAGE* 06588 M01S00008.dmrec4 +++|* LOG FILE. 06589 M01S00009.dmrec4 +++|* 06590 M01S00010.dmrec4 +++|* ENTRY (HOLD) = 0 FOR INITIAL CALL ONLY. 06591 M01S00011.dmrec4 +++|* (X4) = FET ADDRESS. 06592 M01S00012.dmrec4 +++|* (HOLD)/(HOLD1) = LAST EXIT IF NOT FIRST CALL. 06593 M01S00013.dmrec4 +++|* 06594 M01S00014.dmrec4 +++|* EXIT (HOLD) = FWA OF NEXT RECORD. 06595 M01S00015.dmrec4 +++|* (HOLD1) = LWA+1 OF DATA BLOCK READ. 06596 M01S00016.dmrec4 +++|* (X1) = 0, IF RECORD RETRIEVED. 06597 M01S00017.dmrec4 +++|* .LT. 0, IF EOF REACHED (PHYSICAL EOF), 06598 M01S00018.dmrec4 +++|* OR ONE WORD TRAILER (ZZDBLNNEND). 06599 M01S00019.dmrec4 +++|* (X5) = RECORD LENGTH. 06600 M01S00020.dmrec4 +++|* (X4) = ADDRESS OF RECORD. 06601 M01S00021.dmrec4 +++|* 06602 M01S00022.dmrec4 +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 06603 M01S00023.dmrec4 +++|* A - 1, 2, 3, 4, 5, 6. 06604 M01S00024.dmrec4 +++|* 06605 M01S00025.dmrec4 +++|* MACROS ERROR, READ, READW. 06606 M01S00026.dmrec4 +++|* 06607 M01S00027.dmrec4 +++|* NOTE - WBUF MUST BE GREATER THAN THE MAXIMUM 06608 M01S00028.dmrec4 +++|* *AI* BUFFER IN AAMI. (SEE COMKCRM.680) 06609 M01S00029.dmrec4 +++| 06610 M01S00030.dmrec4 +++| 06611 M01S00031.dmrec4 +++| GDR SUBR ENTRY/EXIT 06612 M01S00032.dmrec4 +++| BX6 X4 06613 M01S00033.dmrec4 +++| SA3 HOLD 06614 M01S00034.dmrec4 +++| SA6 HOLD2 SAVE FET ADDRESS 06615 M01S00035.dmrec4 +++| NZ X3,GDR4 IF NOT FIRST TRIP 06616 M01S00036.dmrec4 +++| SX6 WBUF 06617 M01S00037.dmrec4 +++| SA6 HOLD1 06618 M01S00038.dmrec4 +++| SA6 A3 06619 M01S00039.dmrec4 +++| READ X4,R 06620 M01S00040.dmrec4 +++| SA4 HOLD2 06621 M01S00041.dmrec4 +++| READW X4,WBUF,WBUFL 06622 M01S00042.dmrec4 +++| SA4 HOLD2 06623 M01S00043.dmrec4 +++| ZR X1,GDR8 IF NO HEADER 06624 M01S00044.dmrec4 +++| NG X1,GDR8 IF NO HEADER 06625 M01S00045.dmrec4 +++| 06626 M01S00046.dmrec4 +++|* EOR ENCOUNTERED. 06627 M01S00047.dmrec4 +++| 06628 M01S00048.dmrec4 +++| SA3 WBUF+3 GET MAXIMUM BUFFER LENGTH 06629 M01S00049.dmrec4 +++| MX0 36 06630 M01S00050.dmrec4 +++| BX6 -X0*X3 06631 M01S00051.dmrec4 +++| SX2 WBUFL 06632 M01S00052.dmrec4 +++| IX6 X6-X2 06633 M01S00053.dmrec4 +++| NG X6,GDR5 IF BUFFER BIG ENOUGH 06634 M01S00054.dmrec4 +++| EQ GDR7 ERROR 06635 M01S00055.dmrec4 +++| 06636 M01S00056.dmrec4 +++|* READ NEXT BLOCK. 06637 M01S00057.dmrec4 +++| 06638 M01S00058.dmrec4 +++| GDR1 READ X4,R 06639 M01S00059.dmrec4 +++| SA4 HOLD2 06640 M01S00060.dmrec4 +++| READW X4,WBUF,WBUFL 06641 M01S00061.dmrec4 +++| SA4 HOLD2 06642 M01S00062.dmrec4 +++| ZR X1,GDR7 IF RECORD TOO LARGE 06643 M01S00063.dmrec4 +++| PL X1,GDR3 IF EOR 06644 M01S00064.dmrec4 +++| GDR2 MX1 1 06645 M01S00065.dmrec4 +++| EQ GDRX RETURN EOF 06646 M01S00066.dmrec4 +++| 06647 M01S00067.dmrec4 +++| GDR3 SX6 WBUF 06648 M01S00068.dmrec4 +++| SA6 HOLD ADDRESS OF NEXT RECORD 06649 M01S00069.dmrec4 +++| BX6 X1 06650 M01S00070.dmrec4 +++| SA6 HOLD1 LWA+1 OF DATA BLOCK 06651 M01S00071.dmrec4 +++| MX0 -18 06652 M01S00072.dmrec4 +++| SX3 3REND 06653 M01S00073.dmrec4 +++| SA5 WBUF CHECK FIRST WORD 06654 M01S00074.dmrec4 +++| BX5 X5-X3 06655 M01S00075.dmrec4 +++| BX5 -X0*X5 06656 M01S00076.dmrec4 +++| ZR X5,GDR2 IF TRAILER RECORD FOUND 06657 M01S00077.dmrec4 +++| GDR4 SA2 HOLD 06658 M01S00078.dmrec4 +++| SA1 HOLD1 06659 M01S00079.dmrec4 +++| IX3 X2-X1 06660 M01S00080.dmrec4 +++| PL X3,GDR1 IF NO MORE RECORDS IN THIS BLOCK
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 06661 M02S00081.ns2611 ---| MX0 60 06662 M01S00082.dmrec4 +++| SA5 X2
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 06663 M02S00083.ns2611 ---| BX3 X0-X5
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 06664 M02S00084.ns2611 ---| ZR X3,GDR1 IF ALL BITS SET
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 06665 M02S00085.ns2611 ---| MX0 -XLTYN 06666 M01S00001.ns2611 +++| NZ X5,GDR4.0 IF NOT WORD OF ALL 1-S 06667 M01S00002.ns2611 +++| NG X5,GDR1 IF WORD OF ALL 1-S 06668 M01S00003.ns2611 +++| GDR4.0 MX0 -XLTYN 06669 M01S00086.dmrec4 +++| BX5 -X0*X5 GET FUNCTION 06670 M01S00087.dmrec4 +++| ZR X5,GDR6 IF *COMMIT* STAMP 06671 M01S00088.dmrec4 +++| SX3 X5-XLQD 06672 M01S00089.dmrec4 +++| ZR X3,GDR6 IF *BRF* DOWN STAMP 06673 M01S00090.dmrec4 +++| SX3 X5-TRDF 06674 M01S00091.dmrec4 +++| ZR X3,GDR6 IF *DBFREE* STAMP 06675 M01S00092.dmrec4 +++| SX3 X5-DMCC 06676 M01S00093.dmrec4 +++| ZR X3,GDR6 IF *CEASE* STAMP 06677 M01S00094.dmrec4 +++| SA5 X2+XLRSW 06678 M01S00095.dmrec4 +++| MX0 -XLRSN 06679 M01S00096.dmrec4 +++| LX5 XLRSN-1-XLRSS GET RECORD LENGTH 06680 M01S00097.dmrec4 +++| BX3 -X0*X5 RECORD LENGTH 06681 M01S00098.dmrec4 +++| MX0 -XLKSN 06682 M01S00099.dmrec4 +++| LX5 XLKSN-1-XLKSS-XLRSN+XLRSS+1 06683 M01S00100.dmrec4 +++| BX5 -X0*X5
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Updated by) | dmrec21 |
Seq # *Modification Id* Act ----------------------------+ 06684 M02S00101.dmrec21 ---| IX3 X5+X3 KL + RL IN CHARACTERS 06685 M01S00001.dmrec21 +++| SX1 10 ASSUME ONE WORD 06686 M01S00002.dmrec21 +++| LX6 X5 06687 M01S00003.dmrec21 +++| IX4 X6/X1 06688 M01S00004.dmrec21 +++| SX1 10 RESTORE (X1) 06689 M01S00005.dmrec21 +++| IX4 X4*X1 06690 M01S00006.dmrec21 +++| IX5 X4-X5 06691 M01S00007.dmrec21 +++| ZR X5,GDR4.1 IF KL IS A MULTIPLE OF 10 06692 M01S00008.dmrec21 +++| IX4 X4+X1 ROUND KL UP TO THE NEXT MULTIPLE OF 10 06693 M01S00009.dmrec21 +++| 06694 M01S00010.dmrec21 +++| GDR4.1 IX3 X4+X3 KL + RL IN CHARACTERS 06695 M01S00102.dmrec4 +++| SX4 9 06696 M01S00103.dmrec4 +++| IX3 X3+X4 ADD 9 TO CHARACTER COUNT 06697 M01S00104.dmrec4 +++| SX5 10 06698 M01S00105.dmrec4 +++| IX4 X3/X5 WORDS 06699 M01S00106.dmrec4 +++| SX3 TARHL 06700 M01S00107.dmrec4 +++| IX5 X3+X4 06701 M01S00108.dmrec4 +++| SX4 X2 RECORD ADDRESS 06702 M01S00109.dmrec4 +++| IX6 X5+X2 06703 M01S00110.dmrec4 +++| SA6 A2+ ADDRESS OF NEXT RECORD 06704 M01S00111.dmrec4 +++| GDR5 SX1 B0 06705 M01S00112.dmrec4 +++| EQ GDRX RETUN WITH RECORD 06706 M01S00113.dmrec4 +++| 06707 M01S00114.dmrec4 +++| GDR6 SX6 X2+TARHL 06708 M01S00115.dmrec4 +++| SX3 TARHL 06709 M01S00116.dmrec4 +++| SA6 A2 FWA OF NEXT RECORD 06710 M01S00117.dmrec4 +++| SX4 X2 06711 M01S00118.dmrec4 +++| EQ GDR5 RETURN 06712 M01S00119.dmrec4 +++| 06713 M01S00120.dmrec4 +++| GDR7 ERROR GNRA,,,GDRX,,E BLOCK BUFFER TOO SMALL 06714 M01S00121.dmrec4 +++| 06715 M01S00122.dmrec4 +++| GDR8 ERROR GNRB,,,GDRX,,E ARF FILE HEADER ERROR 06716 M01S05833.dmrec +++| GFA SPACE 4,20
| Line S05834 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06717 M02S05834.ns2023 ---|** GFA - GET LONG/QUICK RECOVERY FILE LOCAL. 06718 M01S00130.ns2023 +++|** GFA - GET AFTER/BEFORE IMAGE RECOVERY FILE LOCAL. 06719 M01S05835.dmrec +++|*
| Line S05836 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06720 M02S05836.ns2023 ---|* ENTRY (A0) = FWA OF FET CONTAINED IN *TLRF* OR *TQRF*.
| Line S05837 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06721 M02S05837.ns2023 ---|* (A5) = FWA OF HEADER CONTAINED IN *TLRF* OR *TQRF*. 06722 M01S00131.ns2023 +++|* ENTRY (A0) = FWA OF FET CONTAINED IN *TARF* OR *TBRF*. 06723 M01S00132.ns2023 +++|* (A5) = FWA OF HEADER CONTAINED IN *TARF* OR *TBRF*. 06724 M01S05838.dmrec +++|* (X5) = FIRST WORD OF HEADER.
| Line S05839 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06725 M02S05839.ns2023 ---|* (B7) = ZERO IF LRF PROCESS.
| Line S05840 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06726 M02S05840.ns2023 ---|* = ONE IF QRF PROCESS. 06727 M01S00133.ns2023 +++|* (B7) = ZERO IF *ARF* PROCESS. 06728 M01S00134.ns2023 +++|* = ONE IF *BRF* PROCESS. 06729 M01S05841.dmrec +++|* 06730 M01S05842.dmrec +++|* EXIT (X6) = 0, IF NO ERRORS. 06731 M01S05843.dmrec +++|* (X6) = 6, IF ERROR ON ATTACH OR DEFINE. 06732 M01S05844.dmrec +++|* = 12, IF *CIO* ERROR ON RECOVERY FILE I/O. 06733 M01S05845.dmrec +++|* 06734 M01S05846.dmrec +++|* USES X - 0, 1, 6, 7. 06735 M01S05847.dmrec +++|* A - 1, 7. 06736 M01S05848.dmrec +++|* B - 7. 06737 M01S05849.dmrec +++|* 06738 M01S05850.dmrec +++|* CALLS ARF, ATF. 06739 M01S05851.dmrec +++|* 06740 M01S05852.dmrec +++|* MACROS STATUS. 06741 M01S05853.dmrec +++| 06742 M01S05854.dmrec +++| GFA SUBR ENTRY/EXIT 06743 M01S05855.dmrec +++| SX0 B7+ SAVE B7 06744 M01S05856.dmrec +++| SA1 A0 FILE NAME LEFT 06745 M01S05857.dmrec +++| BX7 X1 06746 M01S05858.dmrec +++| SA7 RECF FILE NAME TO FET+0 06747 M01S05859.dmrec +++| STATUS RECF 06748 M01S05860.dmrec +++| SA1 RECF 06749 M01S05861.dmrec +++| MX7 11 06750 M01S05862.dmrec +++| LX1 59-11 06751 M01S05863.dmrec +++| BX1 X7*X1
| Line S05864 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06752 M02S05864.ns2023 ---| NZ X1,GFA1 IF LRF OR QRF LOCAL 06753 M01S00135.ns2023 +++| NZ X1,GFA1 IF *ARF* OR *BRF* LOCAL 06754 M01S05865.dmrec +++| SB7 B1+B1 (B7) = 2 FOR *ATF* ATTACH 06755 M01S05866.dmrec +++| SA1 A0+ FILE NAME FROM FET 06756 M01S05867.dmrec +++| RJ ATF ATTEMPT ATTACH 06757 M01S05868.dmrec +++| ZR X1,GFA1 IF FILE ATTACHED WITHOUT ERROR 06758 M01S05869.dmrec +++| SB7 B1 (B7) = 1 FOR *ATF* DEFINE 06759 M01S05870.dmrec +++| SA1 A0
| Line S05871 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06760 M02S05871.ns2023 ---| RJ ATF DEFINE LRF OR QRF
| Line S05872 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06761 M02S05872.ns2023 ---| SX6 6 ERROR ON DEFINE LRF OR QRF ERROR CODE 06762 M01S00136.ns2023 +++| RJ ATF DEFINE *ARF* OR *BRF* 06763 M01S00137.ns2023 +++| SX6 6 ERROR ON DEFINE *ARF* OR *BRF* ERROR CODE 06764 M01S05873.dmrec +++| NZ X1,GFAX IF ERROR ON DEFINE
| Line S05874 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06765 M02S05874.ns2023 ---| GFA1 SB7 X0 ZERO FOR LRF, ONE FOR QRF 06766 M01S00138.ns2023 +++| GFA1 SB7 X0 ZERO FOR *ARF*, ONE FOR *BRF* 06767 M01S05875.dmrec +++| SA1 DIRECT GET DIRECTIVE 06768 M01S05876.dmrec +++| LX1 59-56 CHECK FOR *D* 06769 M01S05877.dmrec +++| NG X1,GFA2 IF DUMP DIRECTIVE
| Line S05878 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 06770 M02S05878.ns2023 ---| RJ ARF ALLOCATE BUFFER 06771 M01S00139.ns2023 +++| RJ AAF ALLOCATE BUFFER 06772 M01S05879.dmrec +++| EQ GFA3 CHECK FOR COMPLETE ALLOCATION 06773 M01S05880.dmrec +++| 06774 M01S05881.dmrec +++| GFA2 RJ RFH REWRITE FILE HEADER 06775 M01S05882.dmrec +++| GFA3 ZR X6,GFAX IF *ARF* OR *BRF* ALLOCATED 06776 M01S05883.dmrec +++| SX6 12B CIO ERROR ON RECOVERY FILE ERROR CODE 06777 M01S05884.dmrec +++| EQ GFAX ERROR EXIT 06778 M01S05885.dmrec +++| GFL SPACE 4,25 06779 M01S05886.dmrec +++|** GFL - GENERATE FULL LISTING. 06780 M01S05887.dmrec +++|* 06781 M01S05888.dmrec +++|* THIS ROUTINE GENERATES FULL LISTING OF THE BACKUP 06782 M01S05889.dmrec +++|* DIRECTORY. FIRST PART SHOWS ALL ENTRIES IN THE KEY 06783 M01S05890.dmrec +++|* SEQUENCE. SECOND PART SHOWS DUMP ENTRIES IN THE 06784 M01S05891.dmrec +++|* CHRONOLOGICAL SEQUENCE BY DATE/TIME OF THE DUMP. 06785 M01S05892.dmrec +++|* 06786 M01S05893.dmrec +++|* ENTRY (LFNC) = 0 ALL FILES TO BE LISTED. 06787 M01S05894.dmrec +++|* (LSTC) = 0 NO DATE/TIME SPECIFIED. 06788 M01S05895.dmrec +++|* 06789 M01S05896.dmrec +++|* EXIT LISTING GENERATED. 06790 M01S05897.dmrec +++|* 06791 M01S05898.dmrec +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 06792 M01S05899.dmrec +++|* A - 0, 1, 2, 3, 5, 6, 7. 06793 M01S05900.dmrec +++|* B - 2. 06794 M01S05901.dmrec +++|*
| Line S05902 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06795 M02S05902.dmrec20 ---|* CALLS BFL, LDE, LDH, LFH, LPH, RDE, RVE, SFN. 06796 M01S00002.dmrec20 +++|* CALLS BFL, LDE, LDH, LFH, LPH, RDE, RVE, SFN, SM5END, 06797 M01S00003.dmrec20 +++|* SM5FROM, SM5KEY, SM5SORT, SM5TO. 06798 M01S05903.dmrec +++|*
| Line S05904 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06799 M02S05904.dmrec20 ---|* MACROS CLOSEM, EDATE, ETIME, FETCH, FILE, FILES,
| Line S05905 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06800 M02S05905.dmrec20 ---|* KEY, OPENM, PUT, REWINDM, RMGET, SKIPBL, SORT. 06801 M01S00004.dmrec20 +++|* MACROS CLOSEM, EDATE, ETIME, FETCH, OPENM, PUT, REWINDM, 06802 M01S00005.dmrec20 +++|* RMGET, SKIPBL. 06803 M01S05906.dmrec +++| 06804 M01S05907.dmrec +++| 06805 M01S05908.dmrec +++| GFL SUBR ENTRY/EXIT 06806 M01S05909.dmrec +++| REWINDM DIRR 06807 M01S05910.dmrec +++| OPENM SORTI,I-O 06808 M01S05911.dmrec +++| SA1 GFLA FULL LISTING 06809 M01S05912.dmrec +++| BX6 X1 06810 M01S05913.dmrec +++| SA6 HDR1+1 06811 M01S05914.dmrec +++| SA0 DIRR SET FIT ADDRESS 06812 M01S05915.dmrec +++| MX6 0 FULL PAGE HEADING 06813 M01S05916.dmrec +++| RJ LDH LIST DIRECTORY HEADER 06814 M01S05917.dmrec +++| SA1 BKEY BLANK KEY 06815 M01S05918.dmrec +++| BX6 X1 06816 M01S05919.dmrec +++| SA6 TKY1 PRESET PREVIOUS KEY 06817 M01S05920.dmrec +++| SA6 TKY2 06818 M01S05921.dmrec +++| GFL1 RJ RDE READ DIRECTORY ENTRY 06819 M01S05922.dmrec +++| ZR X6,GFL2 IF NO ERRORS 06820 M01S05923.dmrec +++| SX6 X6-1 06821 M01S05924.dmrec +++| ZR X6,GFL3 IF NEW KEY VALUE FOUND 06822 M01S05925.dmrec +++| MX1 0 06823 M01S05926.dmrec +++| SX6 X6-2 06824 M01S05927.dmrec +++| ZR X6,GFLX IF END OF FILE, RETURN 06825 M01S05928.dmrec +++| EQ GFL4 PROCESS VSN ENTRIES 06826 M01S05929.dmrec +++| 06827 M01S05930.dmrec +++| GFL2 RJ LDE LIST DIRECTORY ENTRY 06828 M01S05931.dmrec +++| PUT SORTI,WSAB WRITE SEQUENTIAL FILE 06829 M01S05932.dmrec +++| EQ GFL1 CONTINUE 06830 M01S05933.dmrec +++| GFL3 RJ LFH LIST FILE HEADER 06831 M01S05934.dmrec +++| EQ GFL1 CONTINUE 06832 M01S05935.dmrec +++| 06833 M01S05936.dmrec +++| GFL4 SX6 5 VSN PAGE HEADER 06834 M01S05937.dmrec +++| RJ LPH LIST PAGE HEADER 06835 M01S05938.dmrec +++| MX6 0 06836 M01S05939.dmrec +++| SA6 HDRC CLEAR FILE HEADER CONTROL 06837 M01S05940.dmrec +++| SKIPBL DIRR,1 06838 M01S05941.dmrec +++| GFL5 RJ RVE READ VSN ENTRY 06839 M01S05942.dmrec +++| NZ X1,GFL6 IF END OF FILE 06840 M01S05943.dmrec +++| RJ LDE LIST ENTRY 06841 M01S05944.dmrec +++| EQ GFL5 CONTINUE 06842 M01S05945.dmrec +++| 06843 M01S05946.dmrec +++| GFL6 SX6 6 CHRONOLOGICAL LIST HEADER 06844 M01S05947.dmrec +++| RJ LPH LIST PAGE HEADER 06845 M01S05948.dmrec +++| SX6 7 DUMP ENTRY HEADER 06846 M01S05949.dmrec +++| RJ LPH LIST PAGE HEADER 06847 M01S05950.dmrec +++| REWINDM SORTI 06848 M01S05951.dmrec +++| OPENM SORTO 06849 M01S05952.dmrec +++| 06850 M01S05953.dmrec +++|* SORT DIRECTORY DUMP ENTRIES 06851 M01S05954.dmrec +++|
| Line S05955 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06852 M02S05955.dmrec20 ---| SORT MAXCM=22000B
| Line S05956 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06853 M02S05956.dmrec20 ---| FILES (INPUT,SORTI),(OUTPUT,SORTO)
| Line S05957 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06854 M02S05957.dmrec20 ---| KEY 11,,10,,LOGICAL PACKED DATE/TIME 06855 M01S00006.dmrec20 +++| SA1 GFLI 06856 M01S00007.dmrec20 +++| RJ =XSM5SORT 06857 M01S00008.dmrec20 +++| SA1 GFLJ 06858 M01S00009.dmrec20 +++| RJ =XSM5FROM SELECT SORT INPUT FILE 06859 M01S00010.dmrec20 +++| SA1 GFLK 06860 M01S00011.dmrec20 +++| RJ =XSM5TO SELECT SORT OUTPUT FILE 06861 M01S00012.dmrec20 +++| SA1 GFLL 06862 M01S00013.dmrec20 +++| RJ =XSM5KEY SELECT SORT KEY 06863 M01S00014.dmrec20 +++| SA1 GFLB 06864 M01S00015.dmrec20 +++| RJ =XSM5END 06865 M01S05958.dmrec +++|
| Line S05959 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec20 |
Seq # *Modification Id* Act ----------------------------+ 06866 M02S05959.dmrec20 ---| REWINDM SORTO 06867 M01S00016.dmrec20 +++| OPENM SORTO 06868 M01S05960.dmrec +++| GFL7 RMGET SORTO,WSAB GET RECORD 06869 M01S05961.dmrec +++| FETCH SORTO,FP,X1 FILE POSITION 06870 M01S05962.dmrec +++| SX2 EOSF 06871 M01S05963.dmrec +++| IX1 X2-X1 06872 M01S05964.dmrec +++| NZ X1,GFL8 IF NOT END OF FILE 06873 M01S05965.dmrec +++| CLOSEM SORTO,U 06874 M01S05966.dmrec +++| CLOSEM SORTI,U 06875 M01S05967.dmrec +++| MX1 0 06876 M01S05968.dmrec +++| EQ GFLX RETURN 06877 M01S05969.dmrec +++| 06878 M01S05970.dmrec +++| GFL8 RJ BFL BLANK FILL LINE BUFFER 06879 M01S05971.dmrec +++| SA5 WSAB+1 PACKED DATE/TIME 06880 M01S05972.dmrec +++| ETIME X5 UNPACK TIME 06881 M01S05973.dmrec +++| SA6 PLIN+2 06882 M01S05974.dmrec +++| AX5 18 06883 M01S05975.dmrec +++| EDATE X5 UNPACK DATE 06884 M01S05976.dmrec +++| SA6 PLIN+1 06885 M01S05977.dmrec +++| SA2 WSAB FILE NAME 06886 M01S05978.dmrec +++| MX0 42 06887 M01S05979.dmrec +++| BX1 X0*X2 06888 M01S05980.dmrec +++| RJ SFN SPACE FILL NAME 06889 M01S05981.dmrec +++| LX6 47-59 06890 M01S05982.dmrec +++| SA6 PLIN+3 06891 M01S05983.dmrec +++| MX0 -18 06892 M01S05984.dmrec +++| SA2 WSAB DUMP ENTRY TYPE 06893 M01S05985.dmrec +++| BX1 -X0*X2 06894 M01S05986.dmrec +++| SX2 3RBBB FILE DUMP 06895 M01S05987.dmrec +++| BX2 X1-X2 06896 M01S05988.dmrec +++| SA3 LOGT AFTER IMAGE LOG TYPE 06897 M01S05989.dmrec +++| BX3 X0*X3 06898 M01S05990.dmrec +++| BX3 X1+X3 06899 M01S05991.dmrec +++| SA1 WSAB+2 FILE DUMP FORMAT 06900 M01S05992.dmrec +++| NZ X2,GFL9 IF NOT FILE DUMP 06901 M01S05993.dmrec +++| SB2 X1 06902 M01S05994.dmrec +++| SA2 TFOR+B2 06903 M01S05995.dmrec +++| BX6 X2 06904 M01S05996.dmrec +++| SA6 PLIN+6 06905 M01S05997.dmrec +++| SA3 TFIL FILE TYPE 06906 M01S05998.dmrec +++| GFL9 BX6 X3 06907 M01S05999.dmrec +++| SA6 PLIN+4 06908 M01S06000.dmrec +++| MX0 36 06909 M01S06001.dmrec +++| BX1 X0*X1 VSN NUMBER 06910 M01S06002.dmrec +++| RJ SFN SPACE FILL NAME 06911 M01S06003.dmrec +++| LX6 47-59 06912 M01S06004.dmrec +++| SA6 PLIN+5 06913 M01S06005.dmrec +++| MX7 0 06914 M01S06006.dmrec +++| SA7 PLIN+8 06915 M01S06007.dmrec +++| RJ LDE LIST ENTRY 06916 M01S06008.dmrec +++| EQ GFL7 NEXT ENTRY 06917 M01S06009.dmrec +++| 06918 M01S06010.dmrec +++| GFLA DATA 10H FULL LI 06919 M01S00017.dmrec20 +++| GFLB CON 0 06920 M01S00018.dmrec20 +++| GFLC DATA 10HSORTI SORT INPUT FILE 06921 M01S00019.dmrec20 +++| GFLD DATA 10HSORTO SORT OUTPUT FILE 06922 M01S00020.dmrec20 +++| GFLE DATA 11 POSITION OF FIRST BYTE OF KEY FIELD 06923 M01S00021.dmrec20 +++| GFLF DATA 10 NUMBER OF BYTES IN THE KEY FIELD 06924 M01S00022.dmrec20 +++| GFLG DATA 10HBINARY NUMERIC DATA FORMAT OF KEY 06925 M01S00023.dmrec20 +++| GFLH DATA 10HA ASCENDING ORDER 06926 M01S00024.dmrec20 +++| GFLI CON GFLB,0 06927 M01S00025.dmrec20 +++| GFLJ CON GFLC,0 06928 M01S00026.dmrec20 +++| GFLK CON GFLD,0 06929 M01S00027.dmrec20 +++| GFLL CON GFLE,GFLF,GFLG,GFLH,0 06930 M01S06011.dmrec +++| GFV SPACE 4,30 06931 M01S06012.dmrec +++|** GFV - GET FIRST VSN. 06932 M01S06013.dmrec +++|* 06933 M01S06014.dmrec +++|* RETRIEVE FROM BACK-UP DIRECTORY FILE THE DATA BASE 06934 M01S06015.dmrec +++|* DUMP RECORD SPECIFIED BY THE DATE/TIME OR VSN ON 06935 M01S06016.dmrec +++|* THE DIRECTIVE. THIS RECORD CONTAINS THE TARGET VSN 06936 M01S06017.dmrec +++|* NAME (FIRST OF MULTI REEL). 06937 M01S06018.dmrec +++|* 06938 M01S06019.dmrec +++|* ENTRY (DATE) = TARGET DATE. 06939 M01S06020.dmrec +++|* 0 USE TODAYS DATE. 06940 M01S06021.dmrec +++|* (TIME) = TARGET TIME. 06941 M01S06022.dmrec +++|* 0 USE 23,59,59. 06942 M01S06023.dmrec +++|* (TVSN) = VSN OF FIRST TAPE OF DIRECTIVE. 06943 M01S06024.dmrec +++|* 06944 M01S06025.dmrec +++|* EXIT (X1) = 0 IF NO ERRORS. 06945 M01S06026.dmrec +++|* (IVSN) = ADDRESS OF FIRST VSN. 06946 M01S06027.dmrec +++|* (HOLD) = SKIP COUNT. 06947 M01S06028.dmrec +++|* *TVSN* BUILT. 06948 M01S06029.dmrec +++|* 06949 M01S06030.dmrec +++|* USES X - ALL. 06950 M01S06031.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 06951 M01S06032.dmrec +++|* B - 2, 3. 06952 M01S06033.dmrec +++|* 06953 M01S06034.dmrec +++|* CALLS FER, RDT. 06954 M01S06035.dmrec +++|* 06955 M01S06036.dmrec +++|* MACROS DATE, EDATE, ERROR, ETIME, FETCH, GETN, 06956 M01S06037.dmrec +++|* MOVE, RMGET, STORE. 06957 M01S06038.dmrec +++| 06958 M01S06039.dmrec +++| 06959 M01S06040.dmrec +++| GFV SUBR ENTRY/EXIT 06960 M01S06041.dmrec +++| SA3 TVSN 06961 M01S06042.dmrec +++| ZR X3,GFV1 IF NO VSN 06962 M01S06043.dmrec +++| SA1 DATE 06963 M01S06044.dmrec +++| NZ X1,GFV18 IF DATE GIVEN 06964 M01S06045.dmrec +++| SA1 TIME 06965 M01S06046.dmrec +++| ZR X1,GFV12 IF NO TIME. 06966 M01S06047.dmrec +++| EQ GFV18 ERROR 06967 M01S06048.dmrec +++| 06968 M01S06049.dmrec +++| GFV1 SA2 DATE 06969 M01S06050.dmrec +++| ZR X2,GFV2 IF DATE NOT GIVEN 06970 M01S06051.dmrec +++| SX1 B0 SET DATE CONVERSION 06971 M01S06052.dmrec +++| RJ RDT REFORMAT DATE/TIME 06972 M01S06053.dmrec +++| SA6 UDATE UNPACKED DATE (GIVEN) 06973 M01S06054.dmrec +++| EQ GFV3 CONTINUE 06974 M01S06055.dmrec +++| 06975 M01S06056.dmrec +++| GFV2 DATE UDATE 06976 M01S06057.dmrec +++| GFV3 SA2 TIME 06977 M01S06058.dmrec +++| ZR X2,GFV4 IF TIME NOT GIVEN 06978 M01S06059.dmrec +++| SX1 B1 SET TIME REFORMAT 06979 M01S06060.dmrec +++| RJ RDT REFORMAT DATE/TIME 06980 M01S06061.dmrec +++| SA6 UTIME UNPACKED TIME (GIVEN) 06981 M01S06062.dmrec +++| EQ GFV5 CONTINUE 06982 M01S06063.dmrec +++| 06983 M01S06064.dmrec +++| GFV4 SA2 MTIME MIDNIGHT TIME 06984 M01S06065.dmrec +++| BX6 X2 06985 M01S06066.dmrec +++| SA6 UTIME 06986 M01S06067.dmrec +++| GFV5 SA2 XXPFN 06987 M01S06068.dmrec +++| SA1 =3RBBB SET DUMP RECORD TYPE 06988 M01S06069.dmrec +++| BX6 X2+X1 06989 M01S06070.dmrec +++| SA6 SKEY SET KEY 06990 M01S06071.dmrec +++| SX6 B0 06991 M01S06072.dmrec +++| SA6 YYBUF 06992 M01S06073.dmrec +++| STORE DIRR,MKL=10 06993 M01S06074.dmrec +++| RMGET DIRR,XXBUF,0,,SKEY 06994 M01S06075.dmrec +++| RJ FER CHECK FIT ERROR 06995 M01S06076.dmrec +++| NZ X1,GFV20 IF ERROR 06996 M01S06077.dmrec +++| 06997 M01S06078.dmrec +++|* CHECK THIS RECORD FOR TARGET DUMP. 06998 M01S06079.dmrec +++| 06999 M01S06080.dmrec +++| GFV6 SA2 XXBUF+1 07000 M01S06081.dmrec +++| AX2 18 07001 M01S06082.dmrec +++| EDATE X2 07002 M01S06083.dmrec +++| SA3 UDATE 07003 M01S06084.dmrec +++| IX5 X3-X6 07004 M01S06085.dmrec +++| NG X5,GFV10 IF NOT CANDIDATE (AFTER TARGET DATE) 07005 M01S06086.dmrec +++| SA2 XXBUF+1 07006 M01S06087.dmrec +++| MX0 42 07007 M01S06088.dmrec +++| BX2 -X0*X2 07008 M01S06089.dmrec +++| ETIME X2 07009 M01S06090.dmrec +++| SA3 UTIME 07010 M01S06091.dmrec +++| IX5 X3-X6 07011 M01S06092.dmrec +++| NG X5,GFV10 IF NOT CANDIDATE (AFTER TARGET TIME) 07012 M01S06093.dmrec +++| SX2 77B 07013 M01S06094.dmrec +++| SA1 XXBUF+2 GET FORMAT 07014 M01S06095.dmrec +++| BX1 X2*X1 07015 M01S06096.dmrec +++| SA3 TDFN 07016 M01S06097.dmrec +++| AX3 12 07017 M01S06098.dmrec +++| BX5 X3*X2 07018 M01S06099.dmrec +++| ZR X5,GFV8 IF NO FORMAT SPECIFIED 07019 M01S06100.dmrec +++| SX5 X5-1RR 07020 M01S06101.dmrec +++| NZ X5,GFV7 IF NOT RECORD FORMAT - MUST BE BLOCK 07021 M01S06102.dmrec +++| ZR X1,GFV9 IF BLOCK FORMAT IN THIS DIRECTORY ENTRY 07022 M01S06103.dmrec +++| EQ GFV8 CONTINUE 07023 M01S06104.dmrec +++| 07024 M01S06105.dmrec +++| GFV7 NZ X1,GFV9 IF NOT BLOCK FORMAT 07025 M01S06106.dmrec +++| GFV8 MOVE 6,XXBUF,YYBUF 07026 M01S06107.dmrec +++| GFV9 GETN DIRR,XXBUF,,SKEY 07027 M01S06108.dmrec +++| SA2 XXPFN 07028 M01S06109.dmrec +++| SA3 XXBUF 07029 M01S06110.dmrec +++| SA1 =3RBBB 07030 M01S06111.dmrec +++| BX2 X1+X2 07031 M01S06112.dmrec +++| BX3 X3-X2 07032 M01S06113.dmrec +++| ZR X3,GFV6 IF MORE KEY ENTRIES 07033 M01S06114.dmrec +++| 07034 M01S06115.dmrec +++|* DONE - CHECK RECORD. 07035 M01S06116.dmrec +++| 07036 M01S06117.dmrec +++| GFV10 SA2 YYBUF 07037 M01S06118.dmrec +++| NZ X2,GFV15 IF RECORD FOUND 07038 M01S06119.dmrec +++| EQ GFV20 ERROR 07039 M01S06120.dmrec +++| 07040 M01S06121.dmrec +++|* CHECK CORRECT VSN IN DIRECTORY FILE. 07041 M01S06122.dmrec +++| 07042 M01S06123.dmrec +++| GFV11 GETN DIRR,YYBUF,,SKEY 07043 M01S06124.dmrec +++| EQ GFV13 CONTINUE 07044 M01S06125.dmrec +++| 07045 M01S06126.dmrec +++| GFV12 STORE DIRR,MKL=10 07046 M01S06127.dmrec +++| SA3 XXPFN 07047 M01S06128.dmrec +++| SX2 3RBBB SPECIFY DUMP RECORD 07048 M01S06129.dmrec +++| BX6 X3+X2 07049 M01S06130.dmrec +++| SA6 TEMPO 07050 M01S06131.dmrec +++| RMGET DIRR,YYBUF,0,,TEMPO 07051 M01S06132.dmrec +++| GFV13 FETCH DIRR,ES,X2 07052 M01S06133.dmrec +++| ZR X2,GFV14 IF NO ERRORS 07053 M01S06134.dmrec +++| SX2 X2-100B 07054 M01S06135.dmrec +++| ZR X2,GFV20 IF EOF - NO ENTRY 07055 M01S06136.dmrec +++| SX3 X2+100B-445B 07056 M01S06137.dmrec +++| ZR X3,GFV20 IF RECORD NOT FOUND 07057 M01S06138.dmrec +++| EQ GFV19 ERROR 07058 M01S06139.dmrec +++| 07059 M01S06140.dmrec +++| GFV14 SA3 YYBUF+2 07060 M01S06141.dmrec +++| MX0 36 07061 M01S06142.dmrec +++| BX4 X0*X3 07062 M01S06143.dmrec +++| SA2 TVSN 07063 M01S06144.dmrec +++| BX6 X2-X4 07064 M01S06145.dmrec +++| NZ X6,GFV11 IF NOT CORRECT VSN - SEARCH NEXT RECORD 07065 M01S06146.dmrec +++| 07066 M01S06147.dmrec +++| GFV15 STORE DIRR,MKL=20 07067 M01S06148.dmrec +++| SA3 YYBUF+2 07068 M01S06149.dmrec +++| MX0 36 07069 M01S06150.dmrec +++| BX3 X0*X3 07070 M01S06151.dmrec +++| 07071 M01S06152.dmrec +++|* BUILD LIST OF VSN-S IN THIS REQUEST. 07072 M01S06153.dmrec +++| 07073 M01S06154.dmrec +++| SX6 TVSN 07074 M01S06155.dmrec +++| SA6 IVSN 07075 M01S06156.dmrec +++| SX6 B0 07076 M01S06157.dmrec +++| SA6 FVSN 07077 M01S06158.dmrec +++| SA6 NFLS 07078 M01S06159.dmrec +++| GFV16 BX6 X3 07079 M01S06160.dmrec +++| LX6 36 07080 M01S06161.dmrec +++| SA1 FILLER 07081 M01S06162.dmrec +++| BX6 X6+X1 07082 M01S06163.dmrec +++| SA6 EVSN SET KEY 07083 M01S06164.dmrec +++| RMGET DIRR,XXBUF,0,,EVSN GET VSN RECORD 07084 M01S06165.dmrec +++| RJ FER CHECK FIT ERROR 07085 M01S06166.dmrec +++| NZ X1,GFV19 IF ERROR
| Line S06167 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 07086 M02S06167.dmrec6 ---| MX0 36 07087 M01S06168.dmrec +++| SA5 NFLS READ UP TOTAL NUMBER OF EOF-S 07088 M01S06169.dmrec +++| SA1 XXBUF+3 NUMBER OF EOF-S ON THIS TAPE 07089 M01S06170.dmrec +++| IX7 X1+X5 07090 M01S06171.dmrec +++| SA7 A5 UPDATE TOTAL WITH THIS VSN 07091 M01S06172.dmrec +++| SA3 IVSN GET INDEX 07092 M01S06173.dmrec +++| SB3 TVSN+TVSNL 07093 M01S06174.dmrec +++| SB2 X3 07094 M01S06175.dmrec +++| EQ B3,B2,GFV21 IF NO ROOM IN *TVSN* 07095 M01S00001.dmrec6 +++| MX0 36 07096 M01S06176.dmrec +++| SA2 XXBUF 07097 M01S06177.dmrec +++| LX2 24 07098 M01S06178.dmrec +++| BX6 X0*X2
| Line S06179 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 07099 M02S06179.dmrec6 ---| SA6 X3 07100 M01S00002.dmrec6 +++| SA6 X3+ 07101 M01S06180.dmrec +++| SA2 FVSN 07102 M01S06181.dmrec +++| NZ X2,GFV17 IF FIRST VSN ALREADY ENCOUNTERED 07103 M01S06182.dmrec +++| SA3 YYBUF+4 FILE ORDINAL 07104 M01S06183.dmrec +++| IX4 X7-X3 07105 M01S06184.dmrec +++| NG X4,GFV17 IF NOT ON THIS TAPE
| Line S06185 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 07106 M02S06185.dmrec6 ---| SX2 XXBUF+6 GET FILE DUMP 07107 M01S00003.dmrec6 +++| SA2 XXBUF+5 07108 M01S06186.dmrec +++| MX0 -3 07109 M01S06187.dmrec +++| BX2 -X0*X2 07110 M01S06188.dmrec +++| ZR X2,GFV22 IF NOT FIRST REEL 07111 M01S06189.dmrec +++| SA4 IVSN 07112 M01S06190.dmrec +++| BX7 X4 07113 M01S00004.dmrec6 +++| IX6 X3-X5 FILE ORDINAL - OLD TOTAL 07114 M01S06191.dmrec +++| SA7 FVSN ADDRESS OF FIRST VSN
| Line S06192 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 07115 M02S06192.dmrec6 ---| IX6 X3-X5 FILE ORDINAL - OLD TOTAL 07116 M01S06193.dmrec +++| SA6 HOLD SKIP COUNT 07117 M01S06194.dmrec +++| GFV17 SA2 IVSN 07118 M01S06195.dmrec +++| SX6 X2+B1 07119 M01S06196.dmrec +++| SA6 A2 INCREMENT IVSN 07120 M01S06197.dmrec +++| SA3 XXBUF+2 07121 M01S06198.dmrec +++| NZ X3,GFV16 IF ANOTHER TAPE 07122 M01S06199.dmrec +++| SA2 IVSN 07123 M01S06200.dmrec +++| SX6 B0 07124 M01S06201.dmrec +++| SA6 X2 END *TVSN* LIST 07125 M01S06202.dmrec +++| SA2 FVSN 07126 M01S06203.dmrec +++| ZR X2,GFV21 IF NO VSN FOUND - ERROR 07127 M01S06204.dmrec +++| BX7 X2 07128 M01S06205.dmrec +++| SA7 IVSN START HERE 07129 M01S06206.dmrec +++| SX1 B0 07130 M01S06207.dmrec +++| EQ GFVX RETURN 07131 M01S06208.dmrec +++| 07132 M01S06209.dmrec +++| GFV18 ERROR GFVE,,,GFVX,,E VSN AND DATE/TIME CANNOT CO-EXIST 07133 M01S06210.dmrec +++| 07134 M01S06211.dmrec +++| GFV19 ERROR GFVB,,,GFVX,,E CRM ERROR IN ZZDBDIR (GET) 07135 M01S06212.dmrec +++| 07136 M01S06213.dmrec +++| GFV20 ERROR GFVC,,,GFVX,,E NO RECORD FOUND FOR GIVEN VSN 07137 M01S06214.dmrec +++| 07138 M01S06215.dmrec +++| GFV21 ERROR GFVD,,,GFVX,,E ERROR IN RETRIEVING VSN 07139 M01S06216.dmrec +++| 07140 M01S06217.dmrec +++| GFV22 ERROR GFVF,,,GFVX,,E VSN REQUESTED NOT FIRST REEL 07141 M01S06218.dmrec +++| 07142 M01S06219.dmrec +++| GFVB DATA 20H0 ***** 07143 M01S06220.dmrec +++| DATA C*CRM ERROR IN ZZDBDIR (GET).* 07144 M01S06221.dmrec +++| GFVBL EQU *-GFVB 07145 M01S06222.dmrec +++| 07146 M01S06223.dmrec +++| GFVC DATA 20H0 ***** 07147 M01S06224.dmrec +++| DATA C*NO RECORD FOUND FOR GIVEN VSN - DATE/TIME.* 07148 M01S06225.dmrec +++| GFVCL EQU *-GFVC 07149 M01S06226.dmrec +++| 07150 M01S06227.dmrec +++| GFVD DATA 20H0 ***** 07151 M01S06228.dmrec +++| DATA C*ERROR IN RETRIEVING VSN.* 07152 M01S06229.dmrec +++| GFVDL EQU *-GFVD 07153 M01S06230.dmrec +++| 07154 M01S06231.dmrec +++| GFVE DATA 20H0 ***** 07155 M01S06232.dmrec +++| DATA C*VSN AND DATE/TIME CANNOT CO-EXIST ON LOAD DIRECTIVE.* 07156 M01S06233.dmrec +++| GFVEL EQU *-GFVE 07157 M01S06234.dmrec +++| 07158 M01S06235.dmrec +++| GFVF DATA 20H0 ***** 07159 M01S06236.dmrec +++| DATA C*VSN REQUESTED NOT FIRST REEL.* 07160 M01S06237.dmrec +++| GFVFL EQU *-GFVF 07161 M01S06238.dmrec +++| GNR SPACE 4,25 07162 M01S06239.dmrec +++|** GNR - GET NEXT RECORD. 07163 M01S06240.dmrec +++|* 07164 M01S06241.dmrec +++|* *GNR* RETRIEVES THE NEXT RECORD FROM AN *AFTER IMAGE* 07165 M01S06242.dmrec +++|* LOG FILE. 07166 M01S06243.dmrec +++|* 07167 M01S06244.dmrec +++|* ENTRY (HOLD) = 0 FOR INITIAL CALL ONLY. 07168 M01S06245.dmrec +++|* (X4) = FET ADDRESS. 07169 M01S06246.dmrec +++|* 07170 M01S06247.dmrec +++|* 07171 M01S06248.dmrec +++|* EXIT (HOLD) = FWA OF NEXT RECORD. 07172 M01S06249.dmrec +++|* (HOLD1) = LWA+1 OF DATA BLOCK READ. 07173 M01S06250.dmrec +++|* (X1) = 0 - IF RECORD RETRIEVED. 07174 M01S06251.dmrec +++|* NEGITIVE - IF EOF REACHED (PHYSICAL EOF), 07175 M01S06252.dmrec +++|* OR ONE WORD TRAILER (ZZDBLNNEND). 07176 M01S06253.dmrec +++|* POSITIVE - IF ERROR. 07177 M01S06254.dmrec +++|* (X5) = RECORD LENGTH. 07178 M01S06255.dmrec +++|* (X4) = ADDRESS OF RECORD. 07179 M01S06256.dmrec +++|* 07180 M01S06257.dmrec +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
| Line S06258 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07181 M02S06258.ns2611 ---|* A - 1, 2, 3, 4, 5, 6.
| Line S06259 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07182 M02S06259.ns2611 ---|* B - NONE. 07183 M01S00004.ns2611 +++|* A - 2, 3, 5, 6. 07184 M01S00005.ns2611 +++|* B - 6, 7. 07185 M01S06260.dmrec +++|*
| Line S06261 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07186 M02S06261.dmrec4 ---|* MACROS ERROR, READ, READW. 07187 M01S00123.dmrec4 +++|* MACROS ERROR, READEI, READW. 07188 M01S06262.dmrec +++| 07189 M01S06263.dmrec +++| 07190 M01S06264.dmrec +++| GNR SUBR ENTRY/EXIT 07191 M01S06265.dmrec +++| BX6 X4 07192 M01S06266.dmrec +++| SA3 HOLD 07193 M01S00124.dmrec4 +++| BX2 X4 07194 M01S06267.dmrec +++| SA6 HOLD2 SAVE FET ADDRESS
| Line S06268 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07195 M02S06268.dmrec4 ---| NZ X3,GNR4 IF NOT FIRST TRIP 07196 M01S00125.dmrec4 +++| NZ X3,GNR1 IF NOT FIRST TRIP 07197 M01S06269.dmrec +++| SX6 WBUF 07198 M01S06270.dmrec +++| SA6 HOLD1 07199 M01S06271.dmrec +++| SA6 A3
| Line S06272 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07200 M02S06272.dmrec4 ---| READ X4,R
| Line S06273 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07201 M02S06273.dmrec4 ---| SA4 HOLD2
| Line S06274 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07202 M02S06274.dmrec4 ---| READW X4,WBUF,WBUFL
| Line S06275 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07203 M02S06275.dmrec4 ---| SA4 HOLD2
| Line S06276 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07204 M02S06276.dmrec4 ---| ZR X1,GNR8 IF NO HEADER
| Line S06277 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07205 M02S06277.dmrec4 ---| NG X1,GNR8 IF NO HEADER 07206 M01S00126.dmrec4 +++| READEI X2 INITIAL READ 07207 M01S00127.dmrec4 +++| READW X2,WBUF,TAHDL READ FILE HEADER WORD 07208 M01S00128.dmrec4 +++| NZ X1,GNR8 IF NO HEADER 07209 M01S06278.dmrec +++|
| Line S06279 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07210 M02S06279.dmrec4 ---|* EOR ENCOUNTERED.
| Line S06280 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07211 M02S06280.dmrec4 ---|
| Line S06281 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07212 M02S06281.dmrec4 ---| SA3 WBUF+3 GET MAXIMUM BUFFER LENGTH
| Line S06282 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07213 M02S06282.dmrec4 ---| MX0 36
| Line S06283 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07214 M02S06283.dmrec4 ---| BX6 -X0*X3
| Line S06284 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07215 M02S06284.dmrec4 ---| SX2 WBUFL
| Line S06285 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07216 M02S06285.dmrec4 ---| IX6 X6-X2
| Line S06286 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07217 M02S06286.dmrec4 ---| NG X6,GNR5 IF BUFFER BIG ENOUGH
| Line S06287 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07218 M02S06287.dmrec4 ---| EQ GNR7 ERROR 07219 M01S00129.dmrec4 +++| GNR0 SX4 WBUF 07220 M01S00130.dmrec4 +++| BX1 X1-X1 07221 M01S00131.dmrec4 +++| EQ GNRX RETURN 07222 M01S06288.dmrec +++|
| Line S06289 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07223 M02S06289.dmrec4 ---|* READ NEXT BLOCK.
| Line S06290 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07224 M02S06290.dmrec4 ---|
| Line S06291 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07225 M02S06291.dmrec4 ---| GNR1 READ X4,R
| Line S06292 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07226 M02S06292.dmrec4 ---| SA4 HOLD2
| Line S06293 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07227 M02S06293.dmrec4 ---| READW X4,WBUF,WBUFL
| Line S06294 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07228 M02S06294.dmrec4 ---| SA4 HOLD2
| Line S06295 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07229 M02S06295.dmrec4 ---| ZR X1,GNR7 IF RECORD TOO LARGE
| Line S06296 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07230 M02S06296.dmrec4 ---| PL X1,GNR3 IF EOR
| Line S06297 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07231 M02S06297.dmrec4 ---| GNR2 MX1 1 07232 M01S00132.dmrec4 +++|* READ NEXT RECORD. 07233 M01S00133.dmrec4 +++| 07234 M01S00134.dmrec4 +++| GNR1 READW X2,WBUF,TARHL READ RECORD HEADER WORD
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07235 M02S00135.ns2611 ---| SX4 WBUF 07236 M01S00006.ns2611 +++| GNR2 SX4 WBUF 07237 M01S00136.dmrec4 +++| PL X1,GNR3 IF TRANSFER COMPLETED 07238 M01S06298.dmrec +++| EQ GNRX RETURN EOF 07239 M01S06299.dmrec +++| 07240 M01S06300.dmrec +++| GNR3 SX6 WBUF 07241 M01S06301.dmrec +++| SA6 HOLD ADDRESS OF NEXT RECORD
| Line S06302 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07242 M02S06302.dmrec4 ---| BX6 X1
| Line S06303 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07243 M02S06303.dmrec4 ---| SA6 HOLD1 LWA+1 OF DATA BLOCK 07244 M01S06304.dmrec +++| MX0 -18 07245 M01S06305.dmrec +++| SX3 3REND 07246 M01S06306.dmrec +++| SA5 WBUF CHECK FIRST WORD 07247 M01S06307.dmrec +++| BX5 X5-X3 07248 M01S06308.dmrec +++| BX5 -X0*X5
| Line S06309 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07249 M02S06309.dmrec4 ---| ZR X5,GNR2 IF TRAILER RECORD FOUND
| Line S06310 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07250 M02S06310.dmrec4 ---| GNR4 SA2 HOLD
| Line S06311 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07251 M02S06311.dmrec4 ---| SA1 HOLD1
| Line S06312 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07252 M02S06312.dmrec4 ---| IX3 X2-X1
| Line S06313 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07253 M02S06313.dmrec4 ---| PL X3,GNR1 IF NO MORE RECORDS IN THIS BLOCK 07254 M01S00137.dmrec4 +++| NZ X5,GNR4 IF TRAILER RECORD NOT FOUND 07255 M01S00138.dmrec4 +++| MX1 1 SET *EOR* 07256 M01S00139.dmrec4 +++| EQ GNRX RETURN
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | dmrec4 |
M02 (Updated by) | dmrec23 |
Seq # *Modification Id* Act ----------------------------+ 07257 M02S00140.dmrec23 ---| GNR4 SA2 HOLD 07258 M01S00001.dmrec23 +++| 07259 M01S00002.dmrec23 +++| GNR4 SA3 HOLD 07260 M01S00003.dmrec23 +++| SA5 X3+
| Line S06314 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07261 M02S06314.ns2611 ---| MX0 60
| Line S06315 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec23 |
M03 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07262 M03S06315.ns2611 ---| SA5 X2
| Line S06316 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07263 M02S06316.ns2611 ---| BX3 X0-X5
| Line S06317 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07264 M02S06317.ns2611 ---| ZR X3,GNR1 IF SINGLE WORD OF ALL 7-S
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | dmrec23 |
M02 (Updated by) | ns2611 |
Seq # *Modification Id* Act ----------------------------+ 07265 M02S00004.ns2611 ---| SA2 HOLD 07266 M01S00007.ns2611 +++| NZ X5,GNR4.2 IF NOT WORD OF ALL 1-S 07267 M01S00008.ns2611 +++| PL X5,GNR4.2 IF NOT WORD OF ALL 1-S 07268 M01S00009.ns2611 +++| SB7 WBUF+TARHL-1 07269 M01S00010.ns2611 +++| SB6 WBUF 07270 M01S00011.ns2611 +++| GNR4.1 SA2 B6+B1 MOVE HEADER WORDS UP ONE WORD 07271 M01S00012.ns2611 +++| BX6 X2 07272 M01S00013.ns2611 +++| SA6 B6 07273 M01S00014.ns2611 +++| SB6 B6+B1 07274 M01S00015.ns2611 +++| LT B6,B7,GNR4.1 IF NOT ALL WORDS MOVED 07275 M01S00016.ns2611 +++| SA2 HOLD2 07276 M01S00017.ns2611 +++| READW X2,B7,B1 READ LAST WORD OF HEADER 07277 M01S00018.ns2611 +++| EQ GNR2 CHECK STATUS 07278 M01S00019.ns2611 +++| 07279 M01S00020.ns2611 +++| GNR4.2 SA2 HOLD 07280 M01S06318.dmrec +++| MX0 -XLTYN 07281 M01S06319.dmrec +++| BX5 -X0*X5 GET FUNCTION 07282 M01S06320.dmrec +++| ZR X5,GNR6 IF *COMMIT* STAMP 07283 M01S06321.dmrec +++| SX3 X5-XLQD
| Line S06322 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 07284 M02S06322.ns2023 ---| ZR X3,GNR6 IF *QRF* DOWN STAMP 07285 M01S00140.ns2023 +++| ZR X3,GNR6 IF *BRF* DOWN STAMP 07286 M01S06323.dmrec +++| SX3 X5-TRDF 07287 M01S06324.dmrec +++| ZR X3,GNR6 IF *DBFREE* STAMP 07288 M01S06325.dmrec +++| SX3 X5-DMCC 07289 M01S06326.dmrec +++| ZR X3,GNR6 IF *CEASE* STAMP 07290 M01S06327.dmrec +++| SA5 X2+XLRSW 07291 M01S06328.dmrec +++| MX0 -XLRSN 07292 M01S06329.dmrec +++| LX5 XLRSN-1-XLRSS GET RECORD LENGTH 07293 M01S06330.dmrec +++| BX3 -X0*X5 RECORD LENGTH 07294 M01S06331.dmrec +++| MX0 -XLKSN 07295 M01S06332.dmrec +++| LX5 XLKSN-1-XLKSS-XLRSN+XLRSS+1 07296 M01S06333.dmrec +++| BX5 -X0*X5
| Line S06334 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec23 |
Seq # *Modification Id* Act ----------------------------+ 07297 M02S06334.dmrec23 ---| IX3 X5+X3 KL + RL IN CHARACTERS 07298 M01S00005.dmrec23 +++| SX0 10 ASSUME ONE WORD 07299 M01S00006.dmrec23 +++| LX6 X5 07300 M01S00007.dmrec23 +++| IX4 X6/X0 07301 M01S00008.dmrec23 +++| SX0 10 07302 M01S00009.dmrec23 +++| IX4 X4*X0 07303 M01S00010.dmrec23 +++| IX5 X4-X5 07304 M01S00011.dmrec23 +++| ZR X5,GNR5 IF KL IS A MULTIPLE OF 10 07305 M01S00012.dmrec23 +++| IX4 X4+X0 ROUND KL UP TO THE NEXT MULTIPLE OF 10 07306 M01S00013.dmrec23 +++| GNR5 IX3 X4+X3 KL + RL CHARACTERS 07307 M01S06335.dmrec +++| SX4 9 07308 M01S06336.dmrec +++| IX3 X3+X4 ADD 9 TO CHARACTER COUNT 07309 M01S06337.dmrec +++| SX5 10 07310 M01S06338.dmrec +++| IX4 X3/X5 WORDS 07311 M01S00141.dmrec4 +++| SB7 X4 07312 M01S06339.dmrec +++| SX3 TARHL 07313 M01S06340.dmrec +++| IX5 X3+X4 ADD HEADER 07314 M01S06341.dmrec +++| SX4 X2 RECORD ADDRESS 07315 M01S06342.dmrec +++| IX6 X5+X2
| Line S06343 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07316 M02S06343.dmrec4 ---| SA6 A2 ADDRESS OF NEXT RECORD
| Line S06344 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07317 M02S06344.dmrec4 ---| GNR5 SX1 B0 07318 M01S00142.dmrec4 +++| SB6 WBUF+TARHL 07319 M01S00143.dmrec4 +++| SA6 HOLD1 07320 M01S00144.dmrec4 +++| SA2 HOLD2 07321 M01S00145.dmrec4 +++| READW X2,B6,B7 07322 M01S00146.dmrec4 +++| SX4 WBUF 07323 M01S06345.dmrec +++| EQ GNRX RETURN WITH RECORD 07324 M01S06346.dmrec +++| 07325 M01S06347.dmrec +++| GNR6 SX6 X2+TARHL 07326 M01S06348.dmrec +++| SA6 A2 FWA OF NEXT RECORD 07327 M01S06349.dmrec +++| SX3 TARHL
| Line S06350 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07328 M02S06350.dmrec4 ---| SX4 X2
| Line S06351 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec4 |
Seq # *Modification Id* Act ----------------------------+ 07329 M02S06351.dmrec4 ---| EQ GNR5 RETURN 07330 M01S00147.dmrec4 +++| SX4 WBUF 07331 M01S00148.dmrec4 +++| BX1 X1-X1 07332 M01S00149.dmrec4 +++| EQ GNRX RETURN 07333 M01S06352.dmrec +++|
| Line S06353 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec23 |
Seq # *Modification Id* Act ----------------------------+ 07334 M02S06353.dmrec23 ---| GNR7 ERROR GNRA,,,GNRX,,E BLOCK BUFFER TOO SMALL
| Line S06354 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec23 |
Seq # *Modification Id* Act ----------------------------+ 07335 M02S06354.dmrec23 ---|
| Line S06355 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 07336 M02S06355.ns2023 ---| GNR8 SX1 X4-LRF 07337 M01S00141.ns2023 +++| GNR8 SX1 X4-ARF 07338 M01S06356.dmrec +++| NZ X1,GNR9 IF TAPE FILE 07339 M01S06357.dmrec +++| ERROR GNRB,,,GNRX,,E ARF FILE HEADER ERROR 07340 M01S06358.dmrec +++| 07341 M01S06359.dmrec +++| GNR9 ERROR GNRC,,,GNRX,,E ARF DUMP TAPE HEADER ERROR 07342 M01S06360.dmrec +++| 07343 M01S06361.dmrec +++| GNRA DATA 20H0 ***** 07344 M01S06362.dmrec +++| DATA C*BLOCK BUFFER TOO SMALL.* 07345 M01S06363.dmrec +++| GNRAL EQU *-GNRA 07346 M01S06364.dmrec +++| 07347 M01S06365.dmrec +++| GNRB DATA 20H0 ***** 07348 M01S06366.dmrec +++| DATA C*ARF FILE HEADER ERROR.* 07349 M01S06367.dmrec +++| GNRBL EQU *-GNRB 07350 M01S06368.dmrec +++| 07351 M01S06369.dmrec +++| GNRC DATA 20H0 ***** 07352 M01S06370.dmrec +++| DATA C*ARF DUMP TAPE HEADER ERROR.* 07353 M01S06371.dmrec +++| GNRCL EQU *-GNRC 07354 M01S06372.dmrec +++| GNW SPACE 4,15 07355 M01S06373.dmrec +++|** GNW - GET NEXT WORD. 07356 M01S06374.dmrec +++|* 07357 M01S06375.dmrec +++|* GET NEXT WORD FROM THE KEY AREA. 07358 M01S06376.dmrec +++|* 07359 M01S06377.dmrec +++|* ENTRY (LWAK) = LWA OF KEY AREA. 07360 M01S06378.dmrec +++|* (KEYW) = CURRENT KEY WORD ADDRESS. 07361 M01S06379.dmrec +++|* 07362 M01S06380.dmrec +++|* EXIT (X1) = 1, IF END OF KEY AREA. 07363 M01S06381.dmrec +++|* (X6) = NEXT WORD CONTENTS. 07364 M01S06382.dmrec +++|* (KEYW) = UPDATED ADDRESS. 07365 M01S06383.dmrec +++|* 07366 M01S06384.dmrec +++|* USES X - 1, 2, 6, 7. 07367 M01S06385.dmrec +++|* A - 1, 2, 7. 07368 M01S06386.dmrec +++|* B - NONE. 07369 M01S06387.dmrec +++| 07370 M01S06388.dmrec +++| 07371 M01S06389.dmrec +++| GNW1 SX1 B1 END OF KEY AREA 07372 M01S06390.dmrec +++| 07373 M01S06391.dmrec +++| GNW SUBR ENTRY/EXIT 07374 M01S06392.dmrec +++| SA1 KEYW CURRENT KEY WORD ADDRESS 07375 M01S06393.dmrec +++| SX1 X1+B1 INCREMENT ADDRESS 07376 M01S06394.dmrec +++| SA2 LWAK LWA OF KEY AREA 07377 M01S06395.dmrec +++| IX2 X1-X2 07378 M01S06396.dmrec +++| ZR X2,GNW1 IF OUT OF KEY AREA 07379 M01S06397.dmrec +++| SA1 X1 NEXT WORD 07380 M01S06398.dmrec +++| BX6 X1 07381 M01S06399.dmrec +++| SX7 A1 07382 M01S06400.dmrec +++| SA7 KEYW SAVE NEXT ADDRESS 07383 M01S06401.dmrec +++| MX1 0 07384 M01S06402.dmrec +++| EQ GNWX RETURN 07385 M01S06403.dmrec +++| GPL SPACE 4,25 07386 M01S06404.dmrec +++|** GPL - GENERATE PARTIAL LISTING. 07387 M01S06405.dmrec +++|* 07388 M01S06406.dmrec +++|* THIS ROUTINE GENERATES PARTIAL LISTING OF THE BACKUP 07389 M01S06407.dmrec +++|* DIRECTORY. ENTRIES FOR THE FILES SPECIFIED IN THE 07390 M01S06408.dmrec +++|* PARAMETER LIST ARE LISTED. IF DATE AND TIME ARE SPECIFIED 07391 M01S06409.dmrec +++|* ONLY ENTRIES BEFORE THIS DATE/TIME ARE LISTED. 07392 M01S06410.dmrec +++|* 07393 M01S06411.dmrec +++|* ENTRY (LFNC) = NUMBER OF FILES TO BE LISTED. 07394 M01S06412.dmrec +++|* (LSTC) = 0, IF NO DATE/TIME. 07395 M01S06413.dmrec +++|* 1, IF DATE/TIME. 07396 M01S06414.dmrec +++|* (DATE) = YY/MM/DD. 07397 M01S06415.dmrec +++|* (TIME) = HH.MM.SS. 07398 M01S06416.dmrec +++|* (TDFN) = FWA OF SELECTED FILES TABLE. 07399 M01S06417.dmrec +++|* 07400 M01S06418.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 07401 M01S06419.dmrec +++|* LISTING GENERATED. 07402 M01S06420.dmrec +++|* INFORMATIVE MESSAGE IF SELECTED FILE NOT IN DIRECTORY. 07403 M01S06421.dmrec +++|* 07404 M01S06422.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7. 07405 M01S06423.dmrec +++|* A - 1, 2, 6, 7. 07406 M01S06424.dmrec +++|* B - NONE. 07407 M01S06425.dmrec +++|* 07408 M01S06426.dmrec +++|* CALLS FER, LDE, LFH, LPH, RDE, SFN. 07409 M01S06427.dmrec +++|* 07410 M01S06428.dmrec +++|* MACROS ERROR, GETN, REWINDM, RMGET, START, STORE. 07411 M01S06429.dmrec +++| 07412 M01S06430.dmrec +++| 07413 M01S06431.dmrec +++| GPL SUBR ENTRY/EXIT 07414 M01S06432.dmrec +++| SX6 B0 SET LISTING HEADER 07415 M01S06433.dmrec +++| RJ LPH LIST PAGE HEADER 07416 M01S06434.dmrec +++| SX6 -2 07417 M01S06435.dmrec +++| SA6 LFNP CURRENT FILE NAME POINTER 07418 M01S06436.dmrec +++| SA2 LFNC 07419 M01S06437.dmrec +++| NZ X2,GPL4 IF SELECTED FILES 07420 M01S06438.dmrec +++| REWINDM DIRR 07421 M01S06439.dmrec +++| GETN DIRR,WSAB,,TKY1 DIRECTORY HEADER 07422 M01S06440.dmrec +++| GPL1 RJ RDE READ DIRECTORY ENTRY 07423 M01S06441.dmrec +++| ZR X6,GPL2 IF ENTRY QUALIFIES 07424 M01S06442.dmrec +++| SX3 X6-1 07425 M01S06443.dmrec +++| ZR X3,GPL3 IF NEW FILE 07426 M01S06444.dmrec +++| MX1 0 07427 M01S06445.dmrec +++| SX2 X6-3 07428 M01S06446.dmrec +++| ZR X2,GPLX IF END OF FILE, RETURN 07429 M01S06447.dmrec +++| NG X2,GPLX IF VSN ENTRY, RETURN 07430 M01S06448.dmrec +++| EQ GPL1 ENTRY DOES NOT QUALIFY 07431 M01S06449.dmrec +++| 07432 M01S06450.dmrec +++| GPL2 RJ LDE LIST ENTRY 07433 M01S06451.dmrec +++| EQ GPL1 READ NEXT ENTRY 07434 M01S06452.dmrec +++| 07435 M01S06453.dmrec +++| GPL3 SA2 CKY2 KEY RETURNED 07436 M01S06454.dmrec +++| SX1 B1 07437 M01S06455.dmrec +++| NZ X2,GPL9 IF INCORRECT POSITION 07438 M01S06456.dmrec +++| RJ LFH LIST FILE HEADER 07439 M01S06457.dmrec +++| SA1 CKY1 07440 M01S06458.dmrec +++| BX6 X1 07441 M01S06459.dmrec +++| SA6 TKY1 SAVE CURRENT KEY 07442 M01S06460.dmrec +++| EQ GPL1 READ NEXT ENTRY 07443 M01S06461.dmrec +++| 07444 M01S06462.dmrec +++| GPL4 SA1 LFNP CURRENT FILE NAME POINTER 07445 M01S06463.dmrec +++| SX6 X1+2 INCREMENT 07446 M01S06464.dmrec +++| SA6 A1 REPLACE POINTER 07447 M01S06465.dmrec +++| SA1 LFNC NUMBER OF FILES 07448 M01S06466.dmrec +++| LX1 1 MULTIPLY BY 2 07449 M01S06467.dmrec +++| IX2 X6-X1 07450 M01S06468.dmrec +++| MX1 0 07451 M01S06469.dmrec +++| ZR X2,GPLX IF END OF *TDFN* TABLE 07452 M01S06470.dmrec +++| SA1 TDFN+X6 LFN FROM *TDFN* TABLE 07453 M01S06471.dmrec +++| SX2 3RAAA FILE HEADER INDICATOR 07454 M01S06472.dmrec +++| BX6 X1+X2 07455 M01S06473.dmrec +++| SA6 TKY1 SAVE KEY 07456 M01S06474.dmrec +++| MX7 0 07457 M01S06475.dmrec +++| SA7 TKY2 REST OF KEY 07458 M01S06476.dmrec +++| RMGET DIRR,WSAB,0,,TKY1 GET FILE HEADER 07459 M01S06477.dmrec +++| RJ FER FIT ERROR STATUS 07460 M01S06478.dmrec +++| ZR X1,GPL5 IF LFN EXISTS 07461 M01S06479.dmrec +++| SX1 X1-1 07462 M01S06480.dmrec +++| ZR X1,GPL8 IF LFN NOT FOUND 07463 M01S06481.dmrec +++| EQ GPL10 CRM ERROR ENCOUNTERED 07464 M01S06482.dmrec +++| 07465 M01S06483.dmrec +++| GPL5 RJ LFH LIST FILE HEADER 07466 M01S06484.dmrec +++| GPL6 RJ RDE READ DIRECTORY ENTRY 07467 M01S06485.dmrec +++| ZR X6,GPL7 IF ENTRY QUALIFIES 07468 M01S06486.dmrec +++| SX3 X6-4 07469 M01S06487.dmrec +++| ZR X3,GPL6 IF ENTRY DOES NOT QUALIFY 07470 M01S06488.dmrec +++| EQ GPL4 NEXT FILE 07471 M01S06489.dmrec +++| 07472 M01S06490.dmrec +++| GPL7 RJ LDE LIST ENTRY 07473 M01S06491.dmrec +++| EQ GPL6 NEXT ENTRY 07474 M01S06492.dmrec +++| 07475 M01S06493.dmrec +++| GPL8 SA1 TKY1 07476 M01S06494.dmrec +++| MX0 42 07477 M01S06495.dmrec +++| BX1 X0*X1 CLEAR HEADER INDICATOR 07478 M01S06496.dmrec +++| RJ SFN SPACE FILL NAME 07479 M01S06497.dmrec +++| SA6 HOLD5 07480 M01S06498.dmrec +++| 07481 M01S06499.dmrec +++| ERROR EFDB,HOLD5,,GPL4 FILE NOT FOUND 07482 M01S06500.dmrec +++| 07483 M01S06501.dmrec +++| GPL9 ERROR GPLA,,,GPLX,,E POSITION INCORRECT 07484 M01S06502.dmrec +++| 07485 M01S06503.dmrec +++| GPL10 ERROR EITB,,,GPLX,,E CRM ERROR ENCOUNTERED 07486 M01S06504.dmrec +++| 07487 M01S06505.dmrec +++| 07488 M01S06506.dmrec +++| GPLA DATA 20H0 ***** 07489 M01S06507.dmrec +++| DATA C*INCORRECT POSITION IN THE DIRECTORY.* 07490 M01S06508.dmrec +++| GPLAL EQU *-GPLA 07491 M01S06509.dmrec +++| 07492 M01S06510.dmrec +++| GPR SPACE 4,25 07493 M01S06511.dmrec +++|** GPR - GET PARAMETER. 07494 M01S06512.dmrec +++|* 07495 M01S06513.dmrec +++|* *GPR* GETS ONE PARAMETER FROM A STRING BUFFER. 07496 M01S06514.dmrec +++|* *,*, *=* AND * * ACT AS DELIMITERS. A *.* ACTS AS THE 07497 M01S06515.dmrec +++|* END OF THE BUFFER. 07498 M01S06516.dmrec +++|* 07499 M01S06517.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 07500 M01S06518.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 07501 M01S06519.dmrec +++|* (B7) = LWA+1 OF BUFFER. 07502 M01S06520.dmrec +++|* 07503 M01S06521.dmrec +++|* EXIT (X5) = PARAMETER (BITS 59-17). 07504 M01S06522.dmrec +++|* DELIMITER (EXCLUDING *,*) (BITS 5-0). 07505 M01S06523.dmrec +++|* (A2) = NEXT ADRESS IN BUFFER. 07506 M01S06524.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 07507 M01S06525.dmrec +++|* (B2) = 0 IF NO ERRORS. 07508 M01S06526.dmrec +++|* (B2) = 1 IF ERRORS. 07509 M01S06527.dmrec +++|* (B2) = NEGATIVE IF END OF BUFFER REACHED. 07510 M01S06528.dmrec +++|* (B3) = NUMBER OF CHARACTERS IN PARAMETER. 07511 M01S06529.dmrec +++|* 07512 M01S06530.dmrec +++|* USES X - 1, 2, 3, 4, 5. 07513 M01S06531.dmrec +++|* A - 2, 4. 07514 M01S06532.dmrec +++|* B - 2, 3, 4, 6. 07515 M01S06533.dmrec +++| 07516 M01S06534.dmrec +++| 07517 M01S06535.dmrec +++| GPR SUBR ENTRY/EXIT 07518 M01S06536.dmrec +++| MX5 0 07519 M01S06537.dmrec +++| SB3 B0 07520 M01S06538.dmrec +++| BX4 X5 07521 M01S06539.dmrec +++| SB2 60 07522 M01S06540.dmrec +++| SB4 18 07523 M01S06541.dmrec +++| GPR1 SB6 A2 07524 M01S06542.dmrec +++| GE B6,B7,GPR5 IF END OF BUFFER REACHED 07525 M01S06543.dmrec +++| SX3 X2-1R. 07526 M01S06544.dmrec +++| ZR X3,GPR5 IF *.* DELIMITER - END OF BUFFER 07527 M01S06545.dmrec +++| SX3 X2-1R, 07528 M01S06546.dmrec +++| ZR X3,GPR3 IF DELIMITER (*,*) 07529 M01S06547.dmrec +++| SX3 X2-1R/ 07530 M01S06548.dmrec +++| ZR X3,GPR2 IF DELIMITER (*/*) 07531 M01S06549.dmrec +++| SX3 X2-1R= 07532 M01S06550.dmrec +++| ZR X3,GPR2 IF DELIMITER (*=*) 07533 M01S06551.dmrec +++| SX3 X2-1R 07534 M01S06552.dmrec +++| ZR X3,GPR3 IF DELIMITER (* *) 07535 M01S06553.dmrec +++| 07536 M01S06554.dmrec +++|* CHECK FOR LEGAL CHARACTERS. 07537 M01S06555.dmrec +++| 07538 M01S06556.dmrec +++| ZR X2,GPR6 IF CHARACTER = *00* 07539 M01S06557.dmrec +++| SX3 X2-1R+ 07540 M01S06558.dmrec +++| PL X3,GPR6 IF NOT ALPHA/NUMERIC 07541 M01S06559.dmrec +++| LX5 6 07542 M01S06560.dmrec +++| BX5 X5+X2 STORE CHARACTER 07543 M01S06561.dmrec +++| SB3 B3+B1 07544 M01S06562.dmrec +++| SB2 B2-6 DECREASE SHIFT COUNT 07545 M01S06563.dmrec +++| LT B2,B4,GPR6 IF DIRECTIVE TOO LONG 07546 M01S06564.dmrec +++| SA2 A2+B1 ADVANCE 07547 M01S06565.dmrec +++| EQ GPR1 LOOP FOR NEXT CHARACTER 07548 M01S06566.dmrec +++| 07549 M01S06567.dmrec +++| GPR2 SA4 A2+B1 07550 M01S06568.dmrec +++| SX3 X4-1R, 07551 M01S06569.dmrec +++| BX4 X2 SAVE DELIMITER 07552 M01S06570.dmrec +++| NZ X3,GPR3 IF NOT ( , ) 07553 M01S06571.dmrec +++| SA2 A2+B1 07554 M01S06572.dmrec +++| GPR3 MX1 0 SET NO ERRORS 07555 M01S06573.dmrec +++| GPR4 LX5 B2 SHIFT 07556 M01S06574.dmrec +++| BX5 X5+X4 STORE *=* AND */* DELIMITERS 07557 M01S06575.dmrec +++| SA2 A2+B1 ADVANCE BUFFER 07558 M01S06576.dmrec +++| SB2 X1 07559 M01S06577.dmrec +++| EQ GPRX RETURN 07560 M01S06578.dmrec +++| 07561 M01S06579.dmrec +++| GPR5 SX1 -1 SET END OF BUFFER 07562 M01S06580.dmrec +++| EQ GPR4 RETURN 07563 M01S06581.dmrec +++| 07564 M01S06582.dmrec +++| GPR6 SB2 B1 SET ERRORS 07565 M01S06583.dmrec +++| EQ GPRX RETURN 07566 M01S00050.ns2056 +++| GRM SPACE 4,10 07567 M01S00051.ns2056 +++|** GRM - GET *RMKDEF* CARDS FROM THE XXJ. 07568 M01S00052.ns2056 +++|* 07569 M01S00053.ns2056 +++|* *GRM* - READS THE *XXJ* FILE SEARCHING FOR *RMKDEF* CARDS 07570 M01S00054.ns2056 +++|* THAT MATCH THE DIRECTIVE FILE NAME. THE *ZZZZZDR* FILE 07571 M01S00055.ns2056 +++|* IS CREATED TO HOLD THE *RMKDEF* CARDS. 07572 M01S00056.ns2056 +++|* 07573 M01S00057.ns2056 +++|* EXTRY -(XXPFN) - PERMANENT FILE NAME FROM DIRECTIVE. 07574 M01S00058.ns2056 +++|* (XXJ) - FILE ATTACHED. 07575 M01S00059.ns2056 +++|* 07576 M01S00060.ns2056 +++|* EXIT (XXXXXDR) - FILE CREATED WITH *RMKDEF* CARDS. 07577 M01S00061.ns2056 +++|* (X1) = 0, IF NO ERRORS. 07578 M01S00062.ns2056 +++|* 07579 M01S00063.ns2056 +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 07580 M01S00064.ns2056 +++|* A - 2, 3, 5, 6. 07581 M01S00065.ns2056 +++|* B - 2, 5, 7. 07582 M01S00066.ns2056 +++|* 07583 M01S00067.ns2056 +++|* CALLS PAC, UPC. 07584 M01S00068.ns2056 +++|* 07585 M01S00069.ns2056 +++|* MACROS ERROR, READ, READC, REWIND, WRITEC, WRITER. 07586 M01S00070.ns2056 +++| 07587 M01S00071.ns2056 +++| 07588 M01S00072.ns2056 +++| GRM SUBR ENTRY/EXIT 07589 M01S00073.ns2056 +++| REWIND XXJ,R
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/dmrec.004.txt · Last modified: by 127.0.0.1