Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:verify
Deck VERIFY
6 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.verify +++| IDENT VERIFY,FETS 00002 M01S00002.verify +++| ABS 00003 M01S00003.verify +++| ENTRY VERIFY 00004 M01S00004.verify +++| ENTRY RFL= 00005 M01S00005.verify +++| ENTRY SSM= 00006 M01S00006.verify +++| SYSCOM B1 DEFINE (B1) = 1 00007 M01S00007.verify +++| SPACE 4,10 00008 M01S00008.verify +++| TITLE VERIFY - VERIFY FILES. 00009 M01S00009.verify +++|*COMMENT VERIFY - VERIFY FILES.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M01S00011.verify +++| SPACE 4,10 00013 M01S00012.verify +++|***** VERIFY - VERIFY FILES. 00014 M01S00013.verify +++|* 00015 M01S00014.verify +++|* G. R. MANSFIELD. 70/12/20. 00016 M01S00015.verify +++|* 00017 M01S00016.verify +++|* J. L. LARSON. 77/03/16. 00018 M01S00017.verify +++|* 00019 M01S00018.verify +++|* VERIFY EQUALITY OF RECORDS AND FILES ON TWO MEDIA, 00020 M01S00019.verify +++|* WORD BY WORD. 00021 M01S00020.verify +++| SPACE 4,10 00022 M01S00021.verify +++|*** VERIFY COMPARES RECORDS ON TWO MEDIA FOR EQUALITY WORD 00023 M01S00022.verify +++|* BY WORD. WHEN AN ERROR IS DETECTED THE RECORD NUMBER, WORD 00024 M01S00023.verify +++|* NUMBER, AND THE DATA FROM EACH MEDIA ARE LISTED ON THE 00025 M01S00024.verify +++|* OUTPUT FILE. THE LOGICAL DIFFERENCE WILL ALSO BE LISTED ON 00026 M01S00025.verify +++|* THE OUTPUT FILE IF THE OUTPUT FILE IS NOT ASSIGNED TO AN 00027 M01S00026.verify +++|* INTERACTIVE TERMINAL. 00028 M01S00027.verify +++| SPACE 4,10 00029 M01S00028.verify +++|*** CONTROL CARD CALL. 00030 M01S00029.verify +++|* 00031 M01S00030.verify +++|* 00032 M01S00031.verify +++|* VERIFY (FILE1,FILE2,P1,P2,...,PN) 00033 M01S00032.verify +++|* 00034 M01S00033.verify +++|* FILE1 FIRST FILE NAME. 00035 M01S00034.verify +++|* 00036 M01S00035.verify +++|* FILE2 SECOND FILE NAME. 00037 M01S00036.verify +++|* 00038 M01S00037.verify +++|* PN ANY OF FOLLOWING IN ANY ORDER. 00039 M01S00038.verify +++|* 00040 M01S00039.verify +++|* N=X VERIFY X FILES. 00041 M01S00040.verify +++|* IF X = 0, VERIFY WILL TERMINATE ON AN 00042 M01S00041.verify +++|* EMPTY FILE FROM EITHER MEDIA. 00043 M01S00042.verify +++|* 00044 M01S00043.verify +++|* N VERIFY TO EOI. 00045 M01S00044.verify +++|* 00046 M01S00045.verify +++|* E=X LIST FIRST X DATA ERRORS. 00047 M01S00046.verify +++|* 00048 M01S00047.verify +++|* L=FNAME LIST ON FILE *FNAME*. 00049 M01S00048.verify +++|* 00050 M01S00049.verify +++|* A ABORT IF ERRORS OCCUR. 00051 M01S00050.verify +++|* 00052 M01S00051.verify +++|* R REWIND BOTH FILES BEFORE AND AFTER VERIFY. 00053 M01S00052.verify +++|* 00054 M01S00053.verify +++|* C CODED MODE SET ON BOTH FILES. 00055 M01S00054.verify +++|* 00056 M01S00055.verify +++|* C1 CODED MODE SET ON FILE 1 ONLY. 00057 M01S00056.verify +++|* 00058 M01S00057.verify +++|* C2 CODED MODE SET ON FILE 2 ONLY. 00059 M01S00058.verify +++|* 00060 M01S00059.verify +++|* BS=BSIZE MAXIMUM BLOCK SIZE IN CM WORDS. 00061 M01S00060.verify +++|* APPLIES ONLY TO S AND L FORMAT TAPES. 00062 M01S00061.verify +++|* 00063 M01S00062.verify +++|* ASSUMED PARAMETERS. 00064 M01S00063.verify +++|* FILE1 = *TAPE1* 00065 M01S00064.verify +++|* FILE2 = *TAPE2* 00066 M01S00065.verify +++|* N=1 00067 M01S00066.verify +++|* E=100 00068 M01S00067.verify +++|* L=*OUTPUT* 00069 M01S00068.verify +++|* A NOT PRESENT (PROCESS ERRORS) 00070 M01S00069.verify +++|* R NOT PRESENT (NO REWIND) 00071 M01S00070.verify +++|* C, C1, C2 NOT PRESENT (BINARY) 00072 M01S00071.verify +++|* BS = 1000B FOR S FORMAT TAPE. 00073 M01S00072.verify +++|* BS = 2000B FOR L FORMAT TAPE. 00074 M01S00073.verify +++| SPACE 4,10 00075 M01S00074.verify +++|*** DAYFILE MESSAGES. 00076 M01S00075.verify +++|* 00077 M01S00076.verify +++|* 00078 M01S00077.verify +++|* * FILE NOT FOUND - LFN.* = WARNING MESSAGE INDICATING THAT 00079 M01S00078.verify +++|* LFN DID NOT EXIST PRIOR TO VERIFY. 00080 M01S00079.verify +++|* 00081 M01S00080.verify +++|* * FILE STRUCTURES NOT COMPATIBLE.* = WARNING MESSAGE ISSUED 00082 M01S00081.verify +++|* BEFORE VERIFICATION BEGINS, TO INDICATE THAT THE RESULTS 00083 M01S00082.verify +++|* OF THE VERIFY ARE NOT GUARANTEED SINCE THE LOGICAL 00084 M01S00083.verify +++|* STRUCTURES OF THE FILES BEING COMPARED ARE NOT COMPATIBLE. 00085 M01S00084.verify +++|* 00086 M01S00085.verify +++|* * VERIFY ARGUMENT ERROR.* = CONTROL CARD CONTAINS ILLEGAL 00087 M01S00086.verify +++|* PARAMETER. 00088 M01S00087.verify +++|* 00089 M01S00088.verify +++|* * VERIFY COMPLETE.* = VERIFY OPERATION COMPLETED WITH NO 00090 M01S00089.verify +++|* ERRORS. 00091 M01S00090.verify +++|* 00092 M01S00091.verify +++|* * VERIFY ERRORS.* = ERRORS DETECTED DURING VERIFY. 00093 M01S00092.verify +++|* 00094 M01S00093.verify +++|* * VERIFY FILE NAME CONFLICT - LFN.* = REQUESTED FILE NAMES 00095 M01S00094.verify +++|* THE SAME. 00096 M01S00095.verify +++|* 00097 M01S00096.verify +++|* * VERIFY FL ABOVE USER LIMIT.* = FIELD LENGTH REQUIRED 00098 M01S00097.verify +++|* TO PROCESS L OR F TAPE VERIFY EXCEEDS USERS CURRENT 00099 M01S00098.verify +++|* MAXIMUM FL. 00100 M01S00099.verify +++| SPACE 4,10 00101 M01S00100.verify +++|**** ASSEMBLY CONSTANTS. 00102 M01S00101.verify +++| 00103 M01S00102.verify +++|
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns2272 |
Seq # *Modification Id* Act ----------------------------+ 00104 M02S00103.ns2272 ---| BUFL EQU 100B WORKING BUFFER LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2272 |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00105 M02S00001.274l797 ---| BUFL EQU 1000B WORKING BUFFER LENGTH 00106 M01S00001.274l797 +++| BUFL EQU 4000B WORKING BUFFER LENGTH = MAX PRUSIZE (OD) 00107 M01S00104.verify +++| OBUFL EQU 1001B OUTPUT FILE BUFFER LENGTH
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00108 M02S00105.274l797 ---| FBUFL EQU 4011B VERIFY FILES BUFFER LENGTH 00109 M01S00002.274l797 +++| FBUFL EQU 30061B VERIFY FILES BUFFER LENGTH
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00110 M02S00106.274l797 ---| 00111 M01S00003.274l797 +++| FETODL EQU 16 OPTICAL DISK FET EXTENSION BUFFER 00112 M01S00004.274l797 +++| 00113 M01S00107.verify +++| DSPS EQU 1000B DEFAULT S TAPE PRU SIZE 00114 M01S00108.verify +++| DLPS EQU 2000B DEFAULT L TAPE PRU SIZE 00115 M01S00109.verify +++| MSPS EQU 1000B MAXIMUM S TAPE PRU SIZE 00116 M01S00110.verify +++|
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00117 M02S00111.274l797 ---| MFLF EQU 45000B-2 MAXIMUM FIELD LENGTH FACTOR 00118 M01S00005.274l797 +++| MFLF EQU 70000B-2 MAXIMUM FIELD LENGTH FACTOR 00119 M01S00112.verify +++|**** 00120 M01S00113.verify +++| 00121 M01S00114.verify +++| 00122 M01S00115.verify +++|* SPECIAL ENTRY POINT. 00123 M01S00116.verify +++| 00124 M01S00117.verify +++| SSM= EQU 0 SUPPRESS DUMPS OF FIELD LENGTH 00125 M01S00118.verify +++| READW SPACE 4,10 00126 M01S00119.verify +++|** READW - REDEFINE READ WORDS MACRO TO USE CONTROL WORDS. 00127 M01S00120.verify +++| 00128 M01S00121.verify +++| 00129 M01S00122.verify +++| PURGMAC READW 00130 M01S00123.verify +++| 00131 M01S00124.verify +++| READW MACRO F,S,N 00132 M01S00125.verify +++| R= B6,S 00133 M01S00126.verify +++| R= B7,N 00134 M01S00127.verify +++| R= X2,F 00135 M01S00128.verify +++| RJ RDA 00136 M01S00129.verify +++| ENDM 00137 M01S00130.verify +++| SPACE 4 00138 M01S00131.verify +++|*CALL COMCMAC 00139 M01S00001.ns22000 +++|*CALL COMCCMD 00140 M01S00132.verify +++|*CALL COMSLFM 00141 M01S00133.verify +++| QUAL MTX 00142 M01S00134.verify +++|*CALL COMSMTX 00143 M01S00135.verify +++| QUAL * 00144 M01S00001.251l664 +++|*CALL COMSSRT 00145 M01S00136.verify +++| TITLE STORAGE ASSIGNMENTS. 00146 M01S00137.verify +++|* FETS. 00147 M01S00138.verify +++| 00148 M01S00139.verify +++| 00149 M01S00140.verify +++| ORG 110B 00150 M01S00141.verify +++| FETS BSS 0 00151 M01S00142.verify +++| 00152 M01S00143.verify +++| 00153 M01S00144.verify +++| O BSS 0 00154 M01S00145.verify +++| OUTPUT FILEC OBUF,OBUFL,(FET=8) 00155 M01S00146.verify +++| 00156 M01S00147.verify +++| 00157 M01S00148.verify +++|* INDEX TAGS FOR WORDS PRECEEDING FILE 1 AND FILE 2 FETS. 00158 M01S00149.verify +++| 00159 M01S00150.verify +++| 00160 M01S00151.verify +++| EFF EQU 8 EMPTY FILE FLAG 00161 M01S00152.verify +++| LWD EQU 7 LWA+1 DATA TRANSFERRED TO WORKING BUFFER 00162 M01S00153.verify +++| RST EQU 6 LAST READ STATUS 00163 M01S00154.verify +++| CWF EQU 5 CONTROL WORD FLAG 00164 M01S00155.verify +++| SLF EQU 4 S, L, OR F TAPE FLAG 00165 M01S00156.verify +++| UBC EQU 3 UNUSED BIT COUNT 00166 M01S00157.verify +++| WRB EQU 2 WORDS REMAINING IN BLOCK 00167 M01S00158.verify +++| ERF EQU 1 EOR FLAG 00168 M01S00159.verify +++| 00169 M01S00160.verify +++| 00170 M01S00161.verify +++| CON 0 ZERO IF EMPTY FILE ENCOUNTERED ON FILE 1 00171 M01S00162.verify +++| CON 0 LWA+1 DATA IN WORKING BUFFER FOR FILE 1 00172 M01S00163.verify +++| CON 0 FILE 1 LAST READ STATUS 00173 M01S00164.verify +++| CON 0 NONZERO IF CONTROL WORDS ENABLED ON FILE 1 00174 M01S00165.verify +++| CON 0 1= S TAPE, 2= L TAPE, -1= F TAPE, 0= OTHER 00175 M01S00166.verify +++| CON 0 UNUSED BIT COUNT FOR FILE 1 BLOCK 00176 M01S00167.verify +++| CON 0 WORDS REMAINING IN FILE 1 BLOCK 00177 M01S00168.verify +++| CON 0 EOR FLAG 00178 M01S00169.verify +++| F1 BSS 0 00179 M01S00170.verify +++| TAPE1 FILEB BUF1,FBUFL,(FET=9) 00180 M01S00006.274l797 +++| BSSZ FETODL TAPE1 OD FET EXTENSION BUFFER 00181 M01S00171.verify +++| 00182 M01S00172.verify +++| 00183 M01S00173.verify +++| CON 0 ZERO IF EMPTY FILE ENCOUNTERED ON FILE 2 00184 M01S00174.verify +++| CON 0 LWA+1 DATA IN WORKING BUFFER FOR FILE 2 00185 M01S00175.verify +++| CON 0 FILE 2 LAST READ STATUS 00186 M01S00176.verify +++| CON 0 NONZERO IF CONTROL WORDS ENABLED ON FILE 2 00187 M01S00177.verify +++| CON 0 1= S TAPE, 2= L TAPE, -1= F TAPE, 0= OTHER 00188 M01S00178.verify +++| CON 0 UNUSED BIT COUNT FOR FILE 2 BLOCK 00189 M01S00179.verify +++| CON 0 WORDS REMAINING IN FILE 2 BLOCK 00190 M01S00180.verify +++| CON 0 EOR FLAG 00191 M01S00181.verify +++| F2 BSS 0 00192 M01S00182.verify +++| TAPE2 FILEB BUF2,FBUFL,(FET=9) 00193 M01S00007.274l797 +++| BSSZ FETODL TAPE2 OD FET EXTENSION BUFFER 00194 M01S00183.verify +++| SPACE 4 00195 M01S00184.verify +++|* COMMON DATA. 00196 M01S00185.verify +++| 00197 M01S00186.verify +++| 00198 M01S00187.verify +++| EC CON 0 ERROR COUNT 00199 M01S00188.verify +++| EL CON 0L100 ERROR LIMIT 00200 M01S00189.verify +++| FC CON 0L1 FILE COUNT 00201 M01S00190.verify +++| DFN CON 0 DISPLAY FILE NUMBER 00202 M01S00191.verify +++| EOIF CON 0 NONZERO IF EOI ENCOUNTERED ON EIHER FILE 00203 M01S00192.verify +++| AB CON 0 ABORT FLAG 00204 M01S00193.verify +++| RW CON 0 REWIND FLAG 00205 M01S00194.verify +++| FN CON 1 FILE NUMBER 00206 M01S00195.verify +++| RN CON 1 RECORD NUMBER 00207 M01S00196.verify +++| ER CON 0 WORD NUMBER 00208 M01S00197.verify +++| CON 0 WORD FROM FILE 1 00209 M01S00198.verify +++| CON 0 WORD FROM FILE 2 00210 M01S00199.verify +++| CON 0 LOGICAL DIFFERENCE 00211 M01S00200.verify +++| TY CON 0 RECORD TYPE FROM FILE 1 00212 M01S00201.verify +++| CON 0 RECORD TYPE FROM FILE 2 00213 M01S00202.verify +++| 00214 M01S00203.verify +++|* LIST DATA. 00215 M01S00204.verify +++|
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00216 M02S00205.ns22000 ---| LC CON LINP+4 LINE COUNTER 00217 M01S00002.ns22000 +++| LC CON 99999,0 LINE COUNTER 00218 M01S00003.ns22000 +++| LL EQU LC+1 LINE LIMIT - PAGE SIZE 00219 M01S00004.ns22000 +++| PD CON 0 PRINT DENSITY 00220 M01S00206.verify +++| PN CON 1 PAGE NUMBER 00221 M01S00207.verify +++| PW CON 0 PAGE WIDTH 00222 M01S00208.verify +++| 00223 M01S00209.verify +++| TITL DATA 50H VERIFY ERROR LIST. 00224 M01S00210.verify +++| DATE DATA 1H 00225 M01S00211.verify +++| TIME DATA 1H 00226 M01S00212.verify +++| DATA 30H 00227 M01S00213.verify +++| DATA 4APAGE 00228 M01S00214.verify +++| PAGE DATA 8L 00229 M01S00215.verify +++| TITLL EQU *-TITL 00230 M01S00216.verify +++| TITSL EQU TITLL-5 SHORT TITLE LENGTH 00231 M01S00217.verify +++|
| Line S00218 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | verif1 |
Seq # *Modification Id* Act ----------------------------+ 00232 M02S00218.verif1 ---| SBTL DATA 10HRECORD 00233 M01S00001.verif1 +++| SBTL DATA 10H RECORD 00234 M01S00219.verify +++| DATA 10HWORD 00235 M01S00220.verify +++| DATA 10HDATA FROM 00236 M01S00221.verify +++| F1NM DATA 20H 00237 M01S00222.verify +++| DATA 10HDATA FROM 00238 M01S00223.verify +++| F2NM DATA 10H 00239 M01S00224.verify +++| DATA 2ALO 00240 M01S00225.verify +++| DATA 20CGICAL DIFFERENCE 00241 M01S00226.verify +++| DATA 2L 00242 M01S00227.verify +++| SBTLL EQU *-SBTL 00243 M01S00228.verify +++| SBTSL EQU SBTLL-5 SHORT SUBTITLE LENGTH 00244 M01S00229.verify +++| VERIFY TITLE MAIN PROGRAM. 00245 M01S00230.verify +++|** VERIFY - MAIN PROGRAM. 00246 M01S00231.verify +++| 00247 M01S00232.verify +++| 00248 M01S00233.verify +++| VERIFY SB1 1 (B1) = 1 00249 M01S00234.verify +++| RJ PRS PRESET PROGRAM 00250 M01S00235.verify +++| RECALL F1 00251 M01S00236.verify +++| RECALL F2 00252 M01S00005.ns22000 +++| SA3 PW 00253 M01S00006.ns22000 +++| ZR X3,VFY1 IF TERMINAL FILE 00254 M01S00007.ns22000 +++| WRITEC O,PD WRITE PRINT DENSITY FORMAT CONTROL 00255 M01S00237.verify +++| VFY1 BX6 X6-X6 CLEAR EMPTY FILE FLAGS 00256 M01S00238.verify +++| SX7 B1 INITIALIZE RECORD NUMBER 00257 M01S00239.verify +++| SA6 F1-EFF 00258 M01S00240.verify +++| SX0 B0+ INDICATE INITIAL READ 00259 M01S00241.verify +++| SA6 F2-EFF 00260 M01S00242.verify +++| SA7 RN 00261 M01S00243.verify +++| SA6 LEWA CLEAR ERROR LINE RECORD NUMBER 00262 M01S00244.verify +++| VFY2 SX2 F1 INITIATE READ FUNCTION ON FILE 1 00263 M01S00245.verify +++| RJ IRF 00264 M01S00246.verify +++| SX2 F2 INITIATE READ FUNCTION ON FILE 2 00265 M01S00247.verify +++| RJ IRF 00266 M01S00248.verify +++| SX7 B0+ CLEAR WORD COUNT 00267 M01S00249.verify +++| SA7 ER 00268 M01S00250.verify +++| READW F1,SBF1,BUFL 00269 M01S00251.verify +++| SX4 X1+B1 00270 M01S00252.verify +++| ZR X4,VFY3 IF EOF ON FILE 1 00271 M01S00253.verify +++| SX7 B1+ INDICATE NOT EMPTY FILE 00272 M01S00254.verify +++| SA7 F1-EFF 00273 M01S00255.verify +++| VFY3 READW F2,SBF2,BUFL 00274 M01S00256.verify +++| SA3 F1-RST 00275 M01S00257.verify +++| SX4 X1+B1 00276 M01S00258.verify +++| ZR X4,VFY4 IF EOF ON FILE 2 00277 M01S00259.verify +++| SX7 B1 INDICATE NOT EMPTY FILE 00278 M01S00260.verify +++| BX4 X1+X3 00279 M01S00261.verify +++| SA7 F2-EFF 00280 M01S00262.verify +++| NG X4,VFY4 IF EOF OR EOI ON EITHER FILE 00281 M01S00263.verify +++| RJ SRM SEND RECORD MESSAGE 00282 M01S00264.verify +++| RJ CPR COMPARE RECORDS 00283 M01S00265.verify +++| SA1 RN ADVANCE RECORD NUMBER 00284 M01S00266.verify +++| SX0 B1 INDICATE NON-INITIAL READ 00285 M01S00267.verify +++| SX6 X1+B1 00286 M01S00268.verify +++| SA6 A1 00287 M01S00269.verify +++| EQ VFY2 CONTINUE RECORD COMPARISONS 00288 M01S00270.verify +++| 00289 M01S00271.verify +++|* PROCESS EXCESS RECORDS OR FILES. 00290 M01S00272.verify +++| 00291 M01S00273.verify +++| VFY4 SA4 EOIF CHECK EOI ENCOUNTERED FLAG 00292 M01S00274.verify +++| SA0 F2 00293 M01S00275.verify +++| SX4 X4-F1 00294 M01S00276.verify +++| SX2 SBF2 00295 M01S00277.verify +++| ZR X4,VFY6 IF EXTRA FILES ON FILE 2 00296 M01S00278.verify +++| PL X4,VFY5 IF EXTRA FILES ON FILE 1 00297 M01S00279.verify +++| BX6 X1*X3 00298 M01S00280.verify +++| NG X6,VFY7 IF EOF OR EOI ON BOTH FILES 00299 M01S00281.verify +++| NG X3,VFY6 IF EXTRA RECORDS ON FILE 2 00300 M01S00282.verify +++| VFY5 SA0 F1 00301 M01S00283.verify +++| SX2 SBF1 00302 M01S00284.verify +++| BX1 X3 00303 M01S00285.verify +++| VFY6 RJ EXR PROCESS EXCESS RECORDS OR FILES 00304 M01S00286.verify +++| 00305 M01S00287.verify +++|* CHECK FOR EOI. 00306 M01S00288.verify +++| 00307 M01S00289.verify +++| VFY7 SA1 F1-RST CHECK FILE STATUS 00308 M01S00290.verify +++| SA2 F2-RST 00309 M01S00291.verify +++| SX1 X1+B1 00310 M01S00292.verify +++| SX2 X2+B1 00311 M01S00293.verify +++| BX3 X1*X2 00312 M01S00294.verify +++| BX4 X1+X2 00313 M01S00295.verify +++| NG X3,VFY11 IF EOI ENCOUNTERED ON BOTH FILES 00314 M01S00296.verify +++| PL X4,VFY9 IF EOF ENCOUNTERED ON BOTH FILES 00315 M01S00297.verify +++| SA3 EOIF 00316 M01S00298.verify +++| NZ X3,VFY9 IF EOI PREVIOUSLY ENCOUNTERED 00317 M01S00299.verify +++| SX6 F1 SET EOI ENCOUNTERED FLAG 00318 M01S00300.verify +++| NG X1,VFY8 IF EOI ON FILE 1 00319 M01S00301.verify +++| SX6 F2 00320 M01S00302.verify +++| VFY8 SA6 A3 00321 M01S00303.verify +++| SA1 EXRG BUILD EXCESS FILE LINE 00322 M01S00304.verify +++| SA2 A1+B1 00323 M01S00305.verify +++| BX6 X1 00324 M01S00306.verify +++| SA6 EXRD 00325 M01S00307.verify +++| LX7 X2 00326 M01S00308.verify +++| SA7 A6+B1 00327 M01S00309.verify +++| SA3 =1H CLEAR FILE NUMBER FROM TITLE LINE 00328 M01S00310.verify +++| BX7 X7-X7 CLEAR SUBTITLE LINE 00329 M01S00311.verify +++| LX6 X3 00330 M01S00312.verify +++| SA7 SBTL
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00331 M02S00313.ns22000 ---| SX7 LINP FORCE PAGE EJECT 00332 M01S00008.ns22000 +++| SX7 99999 FORCE PAGE EJECT 00333 M01S00314.verify +++| SA7 LC 00334 M01S00315.verify +++| 00335 M01S00316.verify +++|* CHECK FOR VERIFY COMPLETE. 00336 M01S00317.verify +++| 00337 M01S00318.verify +++| VFY9 RJ EOF PROCESS END OF FILE 00338 M01S00319.verify +++| SA1 FC 00339 M01S00320.verify +++| ZR X1,VFY10 IF EMPTY FILE REQUEST 00340 M01S00321.verify +++| SX2 B1 DECREMENT FILE COUNT 00341 M01S00322.verify +++| IX6 X1-X2 00342 M01S00323.verify +++| SA6 A1+ 00343 M01S00324.verify +++| ZR X6,VFY11 IF FILE COUNT EXHAUSTED 00344 M01S00325.verify +++| EQ VFY1 CONTINUE VERIFY 00345 M01S00326.verify +++| 00346 M01S00327.verify +++| VFY10 SA1 F1-EFF CHECK FOR EMPTY FILE 00347 M01S00328.verify +++| SA2 F2-EFF 00348 M01S00329.verify +++| BX1 X1*X2 00349 M01S00330.verify +++| NZ X1,VFY1 IF NO EMPTY FILE ENCOUNTERED 00350 M01S00331.verify +++| 00351 M01S00332.verify +++|* PROCESS REWIND REQUEST, ISSUE COMPLETION MESSAGE, 00352 M01S00333.verify +++|* AND END OR ABORT. 00353 M01S00334.verify +++| 00354 M01S00335.verify +++| VFY11 SA1 RW 00355 M01S00336.verify +++| ZR X1,VFY12 IF NO REWIND 00356 M01S00337.verify +++| REWIND F1 00357 M01S00338.verify +++| REWIND F2 00358 M01S00339.verify +++| VFY12 SA1 EC 00359 M01S00340.verify +++| NZ X1,VFY14 IF ERRORS DETECTED 00360 M01S00341.verify +++| MESSAGE (=C* VERIFY GOOD.*) 00361 M01S00342.verify +++| VFY13 ENDRUN 00362 M01S00343.verify +++| 00363 M01S00344.verify +++| VFY14 WRITER O FLUSH OUTPUT BUFFER 00364 M01S00345.verify +++| MESSAGE (=C* VERIFY ERRORS.*) 00365 M01S00346.verify +++| SA1 AB 00366 M01S00347.verify +++| ZR X1,VFY13 IF ABORT NOT REQUESTED 00367 M01S00348.verify +++| ABORT 00368 M01S00349.verify +++| TITLE SUBROUTINES. 00369 M01S00350.verify +++| CPR SPACE 4,10 00370 M01S00351.verify +++|** CPR - COMPARE RECORDS. 00371 M01S00352.verify +++|* 00372 M01S00353.verify +++|* ENTRY (F1-RST) = FILE 1 READ STATUS. 00373 M01S00354.verify +++|* (F2-RST) = FILE 2 READ STATUS. 00374 M01S00355.verify +++|* (F1-LWD) = LWA+1 DATA IN WORKING BUFFER FOR FILE 1. 00375 M01S00356.verify +++|* (F2-LWD) = LWA+1 DATA IN WORKING BUFFER FOR FILE 2. 00376 M01S00357.verify +++|* 00377 M01S00358.verify +++|* USES A - ALL. 00378 M01S00359.verify +++|* X - ALL. 00379 M01S00360.verify +++|* 00380 M01S00361.verify +++|* CALLS CDD, COD, LEW, WOF. 00381 M01S00362.verify +++|* 00382 M01S00363.verify +++|* MACROS READW. 00383 M01S00364.verify +++| 00384 M01S00365.verify +++| 00385 M01S00366.verify +++| CPR SUBR ENTRY/EXIT 00386 M01S00367.verify +++| CPR1 SA4 F1-LWD GET LWA+1 DATA FOR FILE 1 00387 M01S00368.verify +++| SA5 F2-LWD GET LWA+1 DATA FOR FILE 2 00388 M01S00369.verify +++| SX4 X4-SBF1 SET WORD COUNT FOR FILE 1 00389 M01S00370.verify +++| SX5 X5-SBF2 SET WORD COUNT FOR FILE 2 00390 M01S00371.verify +++| IX6 X4-X5 00391 M01S00372.verify +++| PL X6,CPR2 IF FILE 2 WORD COUNT .LE. FILE 1 00392 M01S00373.verify +++| SX5 X4 SET NUMBER OF WORDS TO COMPARE 00393 M01S00374.verify +++| CPR2 SA6 CPRA SAVE WORD COUNT DIFFERENCE 00394 M01S00375.verify +++| ZR X5,CPR6 IF NO DATA TO COMPARE 00395 M01S00376.verify +++| SA0 B0+ INITIALIZE WORD INDEX 00396 M01S00377.verify +++| 00397 M01S00378.verify +++|* COMPARE DATA WORDS. 00398 M01S00379.verify +++| 00399 M01S00380.verify +++| CPR3 SA1 SBF1+A0 COMPARE FILE 1 AND FILE 2 DATA WORDS 00400 M01S00381.verify +++| SA2 SBF2+A0 00401 M01S00382.verify +++| BX6 X1-X2 00402 M01S00383.verify +++| NZ X6,CPR4 IF NO MATCH 00403 M01S00384.verify +++| PL X6,CPR5 IF MATCH 00404 M01S00385.verify +++| CPR4 SA6 ER+3 STORE DIFFERENCE 00405 M01S00386.verify +++| BX7 X2 STORE WORD 2 00406 M01S00387.verify +++| LX6 X1 STORE WORD 1 00407 M01S00388.verify +++| SA7 A6-B1 00408 M01S00389.verify +++| SA6 A7-B1 00409 M01S00390.verify +++| RJ LEW LIST ERROR WORDS 00410 M01S00391.verify +++| CPR5 SA1 ER ADVANCE WORD NUMBER 00411 M01S00392.verify +++| SX2 B1 00412 M01S00393.verify +++| IX7 X1+X2 00413 M01S00394.verify +++| SA0 A0+B1 ADVANCE WORD INDEX 00414 M01S00395.verify +++| IX5 X5-X2 DECREMENT WORD COUNT 00415 M01S00396.verify +++| SA7 A1 00416 M01S00397.verify +++| NZ X5,CPR3 IF MORE WORDS TO COMPARE 00417 M01S00398.verify +++| CPR6 SA5 CPRA GET WORD COUNT DIFFERENCE 00418 M01S00399.verify +++| NZ X5,CPR7 IF EXCESS WORDS 00419 M01S00400.verify +++| SA1 F1-RST GET FILE 1 READ STATUS 00420 M01S00401.verify +++| NZ X1,CPR11 IF EOR/EOF/EOI ENCOUNTERED ON BOTH FILES 00421 M01S00402.verify +++| READW F1,SBF1,BUFL 00422 M01S00403.verify +++| READW F2,SBF2,BUFL 00423 M01S00404.verify +++| EQ CPR1 CONTINUE PROCESSING DATA IN RECORD 00424 M01S00405.verify +++| 00425 M01S00406.verify +++|* PROCESS EXCESS WORDS. 00426 M01S00407.verify +++| 00427 M01S00408.verify +++| CPR7 SX2 F1 00428 M01S00409.verify +++| SX0 B0+ 00429 M01S00410.verify +++| PL X5,CPR8 IF FILE 1 RECORD LONGER 00430 M01S00411.verify +++| SX2 F2 00431 M01S00412.verify +++| BX5 -X5 00432 M01S00413.verify +++| CPR8 SA1 X2-RST CHECK FILE LAST READ STATUS 00433 M01S00414.verify +++| NZ X1,CPR10 IF EOR/EOF/EOI ENCOUNTERED 00434 M01S00415.verify +++| CPR9 IX5 X5+X0 COUNT EXCESS WORDS 00435 M01S00416.verify +++| READW X2,SBF1,BUFL 00436 M01S00417.verify +++| SX0 BUFL 00437 M01S00418.verify +++| ZR X1,CPR9 IF NOT EOR 00438 M01S00419.verify +++| SX0 B6-SBF1 00439 M01S00420.verify +++| IX5 X5+X0 00440 M01S00421.verify +++| CPR10 SA1 X2 SPACE FILL NAME 00441 M01S00422.verify +++| MX0 42 00442 M01S00423.verify +++| BX6 X0*X1 00443 M01S00424.verify +++| SX1 X5 CONVERT WORD COUNT 00444 M01S00425.verify +++| SA6 CPRE 00445 M01S00426.verify +++| RJ COD 00446 M01S00427.verify +++| SA6 CPRD+1 00447 M01S00428.verify +++| SA1 RN CONVERT RECORD NUMBER 00448 M01S00429.verify +++| RJ CDD 00449 M01S00430.verify +++| LX6 30 00450 M01S00431.verify +++| SA1 EC ADVANCE ERROR COUNT 00451 M01S00432.verify +++| SA6 CPRD 00452 M01S00433.verify +++| SX7 X1+B1 00453 M01S00434.verify +++| SA7 A1 00454 M01S00435.verify +++| SX2 CPRL 00455 M01S00436.verify +++| SX1 A6 LIST ERROR LINE 00456 M01S00437.verify +++| RJ WOF 00457 M01S00438.verify +++| 00458 M01S00439.verify +++|* CHECK FOR NONSTANDARD RECORD COMPARED WITH STANDARD RECORD. 00459 M01S00440.verify +++| 00460 M01S00441.verify +++| CPR11 SA2 F1-RST CHECK FILE 1 LAST READ STATUS 00461 M01S00442.verify +++| SA3 F2-RST CHECK FILE 2 LAST READ STATUS 00462 M01S00443.verify +++| MX0 42 00463 M01S00444.verify +++| BX3 X2-X3 00464 M01S00445.verify +++| PL X3,CPRX IF MATCHING RECORD STRUCTURE 00465 M01S00446.verify +++| SA1 F1 00466 M01S00447.verify +++| SA3 EC 00467 M01S00448.verify +++| NG X2,CPR12 IF NONSTANDARD RECORD ON FILE 1 00468 M01S00449.verify +++| SA1 F2 00469 M01S00450.verify +++| CPR12 BX6 X0*X1 SET FILE NAME IN MESSAGE 00470 M01S00451.verify +++| SX7 X3+B1 ADVANCE ERROR COUNT 00471 M01S00452.verify +++| SA6 CPRC 00472 M01S00453.verify +++| SA7 A3 00473 M01S00454.verify +++| SA1 RN CONVERT RECORD NUMBER 00474 M01S00455.verify +++| RJ CDD 00475 M01S00456.verify +++| LX6 30 00476 M01S00457.verify +++| SA6 CPRB 00477 M01S00458.verify +++| SX1 CPRB LIST ERROR LINE 00478 M01S00459.verify +++| SX2 CPRL 00479 M01S00460.verify +++| RJ WOF 00480 M01S00461.verify +++| EQ CPRX RETURN 00481 M01S00462.verify +++| 00482 M01S00463.verify +++| 00483 M01S00464.verify +++| CPRA CON 0 WORD COUNT DIFFERENCE 00484 M01S00465.verify +++| 00485 M01S00466.verify +++| CPRB DATA 1H 00486 M01S00467.verify +++| DATA 1H 00487 M01S00468.verify +++| DATA 20H EOR MISSING ON 00488 M01S00469.verify +++| CPRC DATA 1H 00489 M01S00470.verify +++| 00490 M01S00471.verify +++| CPRD DATA 1H 00491 M01S00472.verify +++| DATA 1H 00492 M01S00473.verify +++| DATA 20H EXCESS WORD(S) ON 00493 M01S00474.verify +++| CPRE DATA 1H 00494 M01S00475.verify +++| CPRL EQU *-CPRD 00495 M01S00476.verify +++| EOF SPACE 4,10 00496 M01S00477.verify +++|** EOF - PROCESS END OF FILE. 00497 M01S00478.verify +++|* 00498 M01S00479.verify +++|* USES A - 1, 6, 7. 00499 M01S00480.verify +++|* X - 1, 6, 7. 00500 M01S00481.verify +++|* 00501 M01S00482.verify +++|* CALLS CDD. 00502 M01S00483.verify +++| 00503 M01S00484.verify +++| 00504 M01S00485.verify +++| EOF SUBR ENTRY/EXIT 00505 M01S00486.verify +++| SA1 FN ADVANCE FILE NUMBER 00506 M01S00487.verify +++| SX6 X1+B1 00507 M01S00488.verify +++| SA6 A1 00508 M01S00489.verify +++| SX1 X6 CONVERT NUMBER 00509 M01S00490.verify +++| RJ CDD 00510 M01S00491.verify +++| SA1 =10HVERIFYING 00511 M01S00492.verify +++| LX6 5*6 00512 M01S00493.verify +++| BX7 X1 00513 M01S00494.verify +++| SA7 SRMA 00514 M01S00495.verify +++| SB2 B2-B1 CLEAR BLANK FILL FROM FILE NUMBER 00515 M01S00496.verify +++| MX7 1 00516 M01S00497.verify +++| AX7 B2 00517 M01S00498.verify +++| BX7 X7*X4 00518 M01S00499.verify +++| SA1 EOIF 00519 M01S00500.verify +++| SA7 DFN SAVE DISPLAY FILE NUMBER 00520 M01S00501.verify +++| NZ X1,EOFX IF EOI ENCOUNTERED
| Line S00502 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00521 M02S00502.ns22000 ---| SX7 LINP FORCE PAGE EJECT 00522 M01S00009.ns22000 +++| SX7 99999 FORCE PAGE EJECT 00523 M01S00503.verify +++| SA7 LC 00524 M01S00504.verify +++| EQ EOFX RETURN 00525 M01S00505.verify +++| EXR SPACE 4,15 00526 M01S00506.verify +++|** EXR - PROCESS EXCESS RECORDS. 00527 M01S00507.verify +++|* 00528 M01S00508.verify +++|* ENTRY (A0) = FET ADDRESS. 00529 M01S00509.verify +++|* (X2) = BUFFER ADDRESS. 00530 M01S00510.verify +++|* (X1) = FILE READ STATUS. 00531 M01S00511.verify +++|* 00532 M01S00512.verify +++|* USES A - 1, 2, 3, 4, 6, 7. 00533 M01S00513.verify +++|* B - 2, 5. 00534 M01S00514.verify +++|* X - ALL. 00535 M01S00515.verify +++|* 00536 M01S00516.verify +++|* CALLS CDD, CIO=, RDA, SFN, SNM, SRT, SYS=, WOF. 00537 M01S00517.verify +++|* 00538 M01S00518.verify +++|* MACROS MESSAGE, READ, READW. 00539 M01S00519.verify +++| 00540 M01S00520.verify +++| 00541 M01S00521.verify +++| EXR5 SA1 RN 00542 M01S00522.verify +++| ZR X5,EXR6 IF NO DATA TRANSFERRED 00543 M01S00523.verify +++| SX1 X1+B1 INCREMENT RECORD COUNT 00544 M01S00524.verify +++| EXR6 RJ CDD CONVERT RECORD COUNT TO DISPLAY 00545 M01S00525.verify +++| SA6 EXRC 00546 M01S00526.verify +++| SA1 A0+ ADD FILE NAME 00547 M01S00527.verify +++| MX2 42 00548 M01S00528.verify +++| SX3 1R 00549 M01S00529.verify +++| BX6 X2*X1 00550 M01S00530.verify +++| SA4 EOIF 00551 M01S00531.verify +++| BX6 X6+X3 00552 M01S00532.verify +++| LX6 -6 00553 M01S00533.verify +++| SA6 EXRE 00554 M01S00534.verify +++| ZR X4,EXR7 IF EOI NOT ENCOUNTERED ON EITHER FILE 00555 M01S00535.verify +++| SA1 EXRH 00556 M01S00536.verify +++| SA6 EXRF 00557 M01S00537.verify +++| SA2 A1+B1 00558 M01S00538.verify +++| BX6 X1 00559 M01S00539.verify +++| SA6 EXRE 00560 M01S00540.verify +++| LX7 X2 00561 M01S00541.verify +++| SA7 A6+B1 00562 M01S00542.verify +++| SA1 DFN GET DISPLAY CODE FILE NUMBER 00563 M01S00543.verify +++| SB2 1RZ 00564 M01S00544.verify +++| SB5 EXRB 00565 M01S00545.verify +++| RJ SNM ENTER FILE NUMBER INTO MESSAGE 00566 M01S00546.verify +++| EXR7 SX1 EXRB 00567 M01S00547.verify +++| SA3 PW 00568 M01S00548.verify +++| NZ X3,EXR8 IF NOT SHORT FORMAT 00569 M01S00549.verify +++| SA4 EXRB 00570 M01S00550.verify +++| MX3 6 00571 M01S00551.verify +++| BX6 -X3*X4 00572 M01S00552.verify +++| SA3 =1L 00573 M01S00553.verify +++| BX6 X3+X6 00574 M01S00554.verify +++| SA6 A4 00575 M01S00555.verify +++| EXR8 RJ WOF WRITE EXCESS RECORDS/FILE LINE 00576 M01S00556.verify +++| 00577 M01S00557.verify +++| EXR SUBR ENTRY/EXIT 00578 M01S00558.verify +++| SA3 EC ADVANCE ERROR COUNT 00579 M01S00559.verify +++| BX7 X7-X7 CLEAR EXCESS RECORD COUNT 00580 M01S00560.verify +++| SX6 X3+B1 00581 M01S00561.verify +++| SA7 RN 00582 M01S00562.verify +++| SA6 A3 00583 M01S00563.verify +++| BX5 X5-X5 CLEAR DATA TRANSFERRED FLAG 00584 M01S00564.verify +++| SX0 B1 SET PREVIOUS EOR FLAG 00585 M01S00565.verify +++| EQ EXR3 DISPLAY RECORD NAME 00586 M01S00566.verify +++| 00587 M01S00567.verify +++| EXR1 SA4 RN INCREMENT RECORD COUNT 00588 M01S00568.verify +++| BX5 X5-X5 CLEAR DATA TRANSFERRED FLAG 00589 M01S00569.verify +++| SX6 X4+B1 00590 M01S00570.verify +++| SA3 A0-CWF 00591 M01S00571.verify +++| SA6 A4+ 00592 M01S00572.verify +++| NZ X3,EXR2 IF CONTROL WORDS ENABLED 00593 M01S00573.verify +++| READ A0 00594 M01S00574.verify +++| EXR2 READW A0,SBF1,BUFL 00595 M01S00575.verify +++| SX2 SBF1 00596 M01S00576.verify +++| EXR3 NG X1,EXR5 IF EOF OR EOI ENCOUNTERED 00597 M01S00577.verify +++| SB5 X1 SAVE CURRENT READ STATUS 00598 M01S00578.verify +++| SX5 B1 INDICATE DATA TRANSFERRED 00599 M01S00579.verify +++| ZR X0,EXR4 IF PREVIOUS READ NOT EOR 00600 M01S00580.verify +++| SA1 A0-LWD LWA+1 OF DATA READ 00601 M01S00581.verify +++| RJ SRT SET RECORD TYPE 00602 M01S00582.verify +++| SA7 EXRA+1 00603 M01S00583.verify +++| MESSAGE A7-B1,B1 DISPLAY RECORD NAME 00604 M01S00584.verify +++| EXR4 SX0 B5 00605 M01S00585.verify +++| ZR X0,EXR2 IF NOT EOR 00606 M01S00586.verify +++| EQ EXR1 INCREMENT RECORD COUNT 00607 M01S00587.verify +++| 00608 M01S00588.verify +++| 00609 M01S00589.verify +++| EXRA DATA 10H READING 00610 M01S00590.verify +++| CON 0 00611 M01S00591.verify +++| 00612 M01S00592.verify +++| EXRB DATA 10H0 ***** 00613 M01S00593.verify +++| EXRC CON 0 00614 M01S00594.verify +++| EXRD DATA 20H EXCESS RECORD(S) ON 00615 M01S00595.verify +++| EXRE CON 0,0 00616 M01S00596.verify +++| EXRF CON 0 00617 M01S00597.verify +++| 00618 M01S00598.verify +++| EXRG DATA 20H RECORD(S) IN EXCESS 00619 M01S00599.verify +++| EXRH DATA 20H FILE ZZZZZZZZZZZ ON 00620 M01S00600.verify +++| IRF SPACE 4,15 00621 M01S00601.verify +++|** IRF - INITIATE READ FUNCTION. 00622 M01S00602.verify +++|* 00623 M01S00603.verify +++|* IF EOI STATUS IS DETECTED ON THIS FILE, NO FURTHER READ 00624 M01S00604.verify +++|* FUNCTION IS INITIATED. IF CONTROL WORDS ARE ALLOWED OR IF 00625 M01S00605.verify +++|* EOF STATUS IS DETECTED, NO FURTHER READ IS INITIATED UNLESS 00626 M01S00606.verify +++|* AN INITIAL READ IS REQUESTED (INDICATES PREVIOUS EOF HAS 00627 M01S00607.verify +++|* BEEN PROCESSED). 00628 M01S00608.verify +++|* 00629 M01S00609.verify +++|* ENTRY (X2) = FWA FET. 00630 M01S00610.verify +++|* (X0) = 0, IF INITIAL READ. 00631 M01S00611.verify +++|* 00632 M01S00612.verify +++|* USES A - 1, 3, 6. 00633 M01S00613.verify +++|* X - 1, 3, 6. 00634 M01S00614.verify +++|* 00635 M01S00615.verify +++|* CALLS CIO=. 00636 M01S00616.verify +++| 00637 M01S00617.verify +++| 00638 M01S00618.verify +++| IRF1 PL X3,IRF2 IF NOT EOF 00639 M01S00619.verify +++| NZ X0,IRFX IF NOT INITIAL READ 00640 M01S00620.verify +++| IRF2 READ X2 00641 M01S00621.verify +++| 00642 M01S00622.verify +++| IRF SUBR ENTRY/EXIT 00643 M01S00623.verify +++| SA3 X2 00644 M01S00624.verify +++| SA1 X2-CWF CONTROL WORD FLAG 00645 M01S00625.verify +++| LX3 59-9 CHECK FOR EOI 00646 M01S00626.verify +++| MX6 1 00647 M01S00627.verify +++| NG X3,IRFX IF EOI ENCOUNTERED 00648 M01S00628.verify +++| LX3 59-3-59+9 CHECK FOR EOF 00649 M01S00629.verify +++| ZR X1,IRF1 IF CONTROL WORDS DISABLED 00650 M01S00630.verify +++| NZ X0,IRFX IF NOT INITIAL READ 00651 M01S00631.verify +++| SA6 X2-WRB SET FIRST READ FLAG 00652 M01S00632.verify +++| READCW X2,17B 00653 M01S00633.verify +++| EQ IRFX RETURN 00654 M01S00634.verify +++| LEW SPACE 4,15 00655 M01S00635.verify +++|** LEW - LIST ERROR WORDS. 00656 M01S00636.verify +++|* 00657 M01S00637.verify +++|* ENTRY (RN) = RECORD NUMBER. 00658 M01S00638.verify +++|* (ER) = WORD NUMBER. 00659 M01S00639.verify +++|* (ER+1) = WORD FROM FILE 1. 00660 M01S00640.verify +++|* (ER+2) = WORD FROM FILE 2. 00661 M01S00641.verify +++|* (ER+3) = LOGICAL DIFFERENCE. 00662 M01S00642.verify +++|* 00663 M01S00643.verify +++|* USES A - 1, 2, 3, 6, 7. 00664 M01S00644.verify +++|* B - 7. 00665 M01S00645.verify +++|* X - 1, 2, 3, 4, 6, 7. 00666 M01S00646.verify +++|* 00667 M01S00647.verify +++|* CALLS CDD, COD, UPN, UPW, WOF. 00668 M01S00648.verify +++|* 00669 M01S00649.verify +++|* MACROS MOVE. 00670 M01S00650.verify +++| 00671 M01S00651.verify +++| 00672 M01S00652.verify +++| LEW SUBR ENTRY/EXIT 00673 M01S00653.verify +++| SA2 EL 00674 M01S00654.verify +++| SA3 EC 00675 M01S00655.verify +++| ZR X2,LEW4 IF ERROR LIMIT ZERO 00676 M01S00656.verify +++| IX6 X3-X2 00677 M01S00657.verify +++| PL X6,LEWX IF ERROR LIMIT EXCEEDED 00678 M01S00658.verify +++| SA1 RN CHECK RECORD CHANGE 00679 M01S00659.verify +++| SA2 LEWA 00680 M01S00660.verify +++| BX6 X1-X2 00681 M01S00661.verify +++| ZR X6,LEW3 IF NO CHANGE 00682 M01S00662.verify +++| BX6 X1 00683 M01S00663.verify +++| SA6 A2 SET NEW RECORD 00684 M01S00664.verify +++| SA3 LC CHECK LINE COUNT
| Line S00665 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00685 M02S00665.ns22000 ---| SX7 X3-LINP+9 00686 M01S00010.ns22000 +++| SX7 X3+5 00687 M01S00011.ns22000 +++| SA1 A3+B1 GET LINE LIMIT 00688 M01S00012.ns22000 +++| IX7 X7-X1 00689 M01S00666.verify +++| NG X7,LEW1 IF NOT BOTTOM OF PAGE
| Line S00667 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00690 M02S00667.ns22000 ---| SX7 LINP FORCE EJECT 00691 M01S00013.ns22000 +++| SX7 99999 FORCE EJECT 00692 M01S00668.verify +++| SA7 A3 00693 M01S00669.verify +++| EQ LEW2 00694 M01S00670.verify +++| 00695 M01S00671.verify +++| LEW1 SX1 =C* * 00696 M01S00672.verify +++| RJ WOF 00697 M01S00673.verify +++| SX1 =C* * 00698 M01S00674.verify +++| RJ WOF 00699 M01S00675.verify +++| LEW2 SA1 SRMB PRINT RECORD NAME 00700 M01S00676.verify +++| SA2 A1+B1 00701 M01S00677.verify +++| SA3 =3R 00702 M01S00678.verify +++| MX4 -18 00703 M01S00679.verify +++| LX1 18 00704 M01S00680.verify +++| LX2 18 00705 M01S00681.verify +++| BX6 X4*X1 00706 M01S00682.verify +++| IX6 X6+X3 00707 M01S00683.verify +++| BX7 X4*X2 00708 M01S00684.verify +++| IX7 X7+X3 00709 M01S00685.verify +++| SA6 LEWB+3 00710 M01S00686.verify +++| SA7 LEWB+6 00711 M01S00687.verify +++| BX6 -X4*X1 00712 M01S00688.verify +++| BX7 -X4*X2 00713 M01S00689.verify +++| SA1 TY PRINT TYPE 00714 M01S00690.verify +++| SA2 A1+B1 00715 M01S00691.verify +++| SA1 X1+LEWC 00716 M01S00692.verify +++| SA2 X2+LEWC 00717 M01S00693.verify +++| IX6 X6+X1 00718 M01S00694.verify +++| IX7 X7+X2 00719 M01S00695.verify +++| SA6 A6-B1 00720 M01S00696.verify +++| SA7 A7-B1 00721 M01S00697.verify +++| SX1 LEWB 00722 M01S00698.verify +++| RJ WOF 00723 M01S00699.verify +++| SX1 =C* * 00724 M01S00700.verify +++| RJ WOF 00725 M01S00701.verify +++| LEW3 SA1 RN CONVERT RECORD NUMBER 00726 M01S00702.verify +++| RJ CDD 00727 M01S00703.verify +++| SB7 CHAR 00728 M01S00704.verify +++| RJ UPN 00729 M01S00705.verify +++| SA1 ER CONVERT WORD NUMBER 00730 M01S00706.verify +++| RJ COD 00731 M01S00707.verify +++| SX7 1R 00732 M01S00708.verify +++| SA7 B7 00733 M01S00709.verify +++| SA7 A7+B1 00734 M01S00710.verify +++| SA7 A7+B1 00735 M01S00711.verify +++| SB7 A7+B1 00736 M01S00712.verify +++| RJ UPN 00737 M01S00713.verify +++| SA1 ER+1 UNPACK WORD FROM FILE 1 00738 M01S00714.verify +++| SA2 TY 00739 M01S00715.verify +++| RJ UPW 00740 M01S00716.verify +++| SA1 ER+2 UNPACK WORD FROM FILE 2 00741 M01S00717.verify +++| SA2 TY+1 00742 M01S00718.verify +++| SB7 B7-B1 00743 M01S00719.verify +++| RJ UPW 00744 M01S00720.verify +++| SX6 B7+ 00745 M01S00721.verify +++| SA6 LEWL SAVE LENGTH OF SHORT LINE 00746 M01S00722.verify +++| SA1 ER+3 UNPACK LOGICAL DIFFERENCE 00747 M01S00723.verify +++| SA2 TY+1 00748 M01S00724.verify +++| RJ UPW 00749 M01S00725.verify +++| SA1 PW 00750 M01S00726.verify +++| ZR X1,LEW3.1 IF SHORT LINE 00751 M01S00727.verify +++| SX6 B7+ RESET LINE LENGTH 00752 M01S00728.verify +++| SA6 LEWL 00753 M01S00729.verify +++| LEW3.1 SX1 4 00754 M01S00730.verify +++| SX2 CHAR+6 00755 M01S00731.verify +++| SX3 CHAR+11D 00756 M01S00732.verify +++| MOVE X1,X2,X3 PACK RECORD NUMBER INTO WORD COUNT WORD 00757 M01S00733.verify +++| SX6 1RB INSERT OCTAL CHARACTER 00758 M01S00734.verify +++| SX3 CHAR+10D RESET FWA OF LINE 00759 M01S00735.verify +++| SA6 CHAR+23D 00760 M01S00736.verify +++| BX1 -X3 LIST LINE 00761 M01S00737.verify +++| SA2 LEWL 00762 M01S00738.verify +++| IX2 X2-X3 00763 M01S00739.verify +++| RJ WOF 00764 M01S00740.verify +++| LEW4 SA1 EC ADVANCE ERROR COUNT 00765 M01S00741.verify +++| SA2 EL 00766 M01S00742.verify +++| SX6 X1+B1 00767 M01S00743.verify +++| SA6 A1 00768 M01S00744.verify +++| ZR X2,LEWX IF ZERO ERROR LIMIT 00769 M01S00745.verify +++| IX7 X6-X2 00770 M01S00746.verify +++| NG X7,LEWX IF LIMIT NOT REACHED 00771 M01S00747.verify +++| SX1 =C+ ** ERROR LIMIT EXCEEDED **+ 00772 M01S00748.verify +++| RJ WOF 00773 M01S00749.verify +++| SX1 =C* * 00774 M01S00750.verify +++| RJ WOF 00775 M01S00751.verify +++| EQ LEWX RETURN 00776 M01S00752.verify +++| 00777 M01S00753.verify +++| 00778 M01S00754.verify +++| LEWA DATA 0 RECORD NUMBER 00779 M01S00755.verify +++| LEWB DATA 10H 00780 M01S00756.verify +++| DATA 10H 00781 M01S00757.verify +++| DATA 0,0 RECORD NAME 1 00782 M01S00758.verify +++| DATA 20H 00783 M01S00759.verify +++| DATA 0,0 RECORD NAME 2 00784 M01S00760.verify +++|
| Line S00761 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00785 M02S00761.251l664 ---| LEWC DATA 7L TEXT/ RECORD TYPES
| Line S00762 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00786 M02S00762.251l664 ---| DATA 7L PP/
| Line S00763 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00787 M02S00763.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE
| Line S00764 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00788 M02S00764.251l664 ---| DATA 7L REL/
| Line S00765 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00789 M02S00765.251l664 ---| DATA 7L OVL/
| Line S00766 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00790 M02S00766.251l664 ---| DATA 7L ULIB/
| Line S00767 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00791 M02S00767.251l664 ---| DATA 7L OPL/
| Line S00768 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00792 M02S00768.251l664 ---| DATA 7L OPLC/
| Line S00769 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00793 M02S00769.251l664 ---| DATA 7L OPLD/
| Line S00770 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00794 M02S00770.251l664 ---| DATA 7L ABS/
| Line S00771 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00795 M02S00771.251l664 ---| DATA 7L PPU/
| Line S00772 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00796 M02S00772.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE
| Line S00773 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00797 M02S00773.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE
| Line S00774 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00798 M02S00774.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE
| Line S00775 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00799 M02S00775.251l664 ---| DATA 7L CAP/
| Line S00776 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00800 M02S00776.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE
| Line S00777 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
00801 M02S00777.251l664 ---| DATA 7L PROC/
00802 M01S00002.251l664 +++| LEWC BSS 0
00803 M01S00003.251l664 +++| .E ECHO ,RT=("RTMIC")
00804 M01S00004.251l664 +++| .A IFC NE,/RT//
00805 M01S00005.251l664 +++| VFD 36/0A_RT,24/1L/
00806 M01S00006.251l664 +++| .A ELSE
00807 M01S00007.251l664 +++| VFD 36/3A ,24/1L/
00808 M01S00008.251l664 +++| .A ENDIF
00809 M01S00009.251l664 +++| .E ENDD
00810 M01S00778.verify +++| LEWL CON 0
00811 M01S00779.verify +++| RDA SPACE 4,20
00812 M01S00780.verify +++|** RDA - READ DATA.
00813 M01S00781.verify +++|* PROCESSES CALLS TO READ WORDS (RDW=).
00814 M01S00782.verify +++|* DEBLOCKS DATA IF CONTROL WORD READS.
00815 M01S00783.verify +++|*
00816 M01S00784.verify +++|* ENTRY (X2) = FWA FET.
00817 M01S00785.verify +++|* (B6) = FWA WORKING BUFFER.
00818 M01S00786.verify +++|* (B7) = NUMBER OF WORDS TO TRANSFER.
00819 M01S00787.verify +++|*
00820 M01S00788.verify +++|* EXIT (X1) = 0, IF TRANSFER COMPLETE.
00821 M01S00789.verify +++|* (X1) = -1, IF EOF DETECTED ON FILE.
00822 M01S00790.verify +++|* (X1) = -2, IF EOI DETECTED ON FILE.
00823 M01S00791.verify +++|* (X1) = (B6), IF EOR DETECTED BEFORE TRANSFER COMPLETE.
00824 M01S00792.verify +++|* (B6) = LWA+1 DATA TRANSFERRED TO WORKING BUFFER.
00825 M01S00793.verify +++|* ((X2)-RST) = (X1).
00826 M01S00794.verify +++|* ((X2)-LWD) = (B6).
00827 M01S00795.verify +++|*
00828 M01S00796.verify +++|* USES A - 1, 3, 4, 6, 7.
00829 M01S00797.verify +++|* B - 3, 4, 5, 6, 7.
00830 M01S00798.verify +++|* X - 1, 3, 4, 6, 7.
00831 M01S00799.verify +++|*
00832 M01S00800.verify +++|* CALLS RDW=.
00833 M01S00801.verify +++|
00834 M01S00802.verify +++|
00835 M01S00803.verify +++| RDA7 SX6 B5-B7 UPDATE WORDS REMAINING
00836 M01S00804.verify +++| SA6 A1
00837 M01S00805.verify +++| RDA8 RJ RDW= READ WORDS
00838 M01S00806.verify +++| SA3 X2-WRB
00839 M01S00807.verify +++| NZ X3,RDA10 IF MORE WORDS IN BLOCK
00840 M01S00808.verify +++| RDA9 SA4 X2-UBC
00841 M01S00809.verify +++| ZR X4,RDA10 IF NO UNUSED BIT COUNT
00842 M01S00810.verify +++| SB3 X4 CLEAR EXTRANEOUS DATA IN LAST WORD
00843 M01S00811.verify +++| MX6 1
00844 M01S00812.verify +++| SB4 B3-B1
00845 M01S00813.verify +++| AX6 B4
00846 M01S00814.verify +++| SA3 B6-B1 LAST WORD TRANSFERRED
00847 M01S00815.verify +++| LX6 B3
00848 M01S00816.verify +++| BX6 -X6*X3
00849 M01S00817.verify +++| SA6 A3
00850 M01S00818.verify +++| RDA10 BX6 X1 SAVE FILE READ STATUS
00851 M01S00819.verify +++| SX7 B6 SAVE LWA+1 DATA IN WORKING BUFFER
00852 M01S00820.verify +++| SA6 X2-RST
00853 M01S00821.verify +++| SA7 X2-LWD
00854 M01S00822.verify +++|
00855 M01S00823.verify +++| RDA SUBR ENTRY/EXIT
00856 M01S00824.verify +++| SA1 X2-CWF
00857 M01S00825.verify +++| ZR X1,RDA8 IF CONTROL WORD READ DISABLED
00858 M01S00826.verify +++| RDA1 SA1 X2-WRB NUMBER OF WORDS BEFORE CONTROL WORD
00859 M01S00827.verify +++| SB5 X1+
00860 M01S00828.verify +++| PL X1,RDA2 IF NOT FIRST READ
00861 M01S00829.verify +++| SX7 B7+ SET WORDS NEEDED
00862 M01S00830.verify +++| SA7 RDAA
00863 M01S00831.verify +++| JP RDA4
00864 M01S00832.verify +++|
00865 M01S00833.verify +++| RDA2 GE B5,B7,RDA7 IF ENOUGH DATA TO FILL BUFFER
00866 M01S00834.verify +++| SA3 X2-ERF CHECK EOR FLAG
00867 M01S00835.verify +++| PL X3,RDA3 IF NOT EOR ON FILE
00868 M01S00836.verify +++| MX6 1 SET NEW READ FLAG
00869 M01S00837.verify +++| SB7 B5+B1 SET WORDS TO READ
00870 M01S00838.verify +++| SA6 A3
00871 M01S00839.verify +++| SA6 A1
00872 M01S00840.verify +++| RJ RDW= READ WORDS
00873 M01S00841.verify +++| SA1 B6-B1 CHECK CONTROL WORD
00874 M01S00842.verify +++| AX1 48
00875 M01S00843.verify +++| SX6 X1-17B
00876 M01S00844.verify +++| MX1 -1
00877 M01S00845.verify +++| SB6 B6-B1 BACK UP LAST WORD ADDRESS
00878 M01S00846.verify +++| ZR X6,RDA10 IF *EOF* CONTROL WORD
00879 M01S00847.verify +++| SX1 B6 SET *EOR* INDICATION
00880 M01S00848.verify +++| EQ RDA9 CLEAR EXTRANEOUS DATA IN LAST DATA WORD
00881 M01S00849.verify +++|
00882 M01S00850.verify +++| RDA3 SX6 B7-B5 SAVE ADDITIONAL WORDS NEEDED
00883 M01S00851.verify +++| SA6 RDAA
00884 M01S00852.verify +++| SB7 B5+B1 SET WORDS TO TRANSFER
00885 M01S00853.verify +++| RJ RDW= READ WORDS
00886 M01S00854.verify +++| SB6 B6-1 BACK UP OVER LAST CONTROL WORD
00887 M01S00855.verify +++| RDA4 SB7 B1 READ CONTROL WORD
00888 M01S00856.verify +++| RJ RDW=
00889 M01S00857.verify +++| NG X1,RDA10 IF EOF/EOI ENCOUNTERED
00890 M01S00858.verify +++| SB6 B6-B1 BACK UP WORKING BUFFER
00891 M01S00859.verify +++| SA1 B6 CONTROL WORD
00892 M01S00860.verify +++|
00893 M01S00861.verify +++|* FOR MASS STORAGE AND WORD BOUNDARY FORMAT TAPES (ALL EXCEPT
00894 M01S00862.verify +++|* S, L, AND F FORMATS), UNUSED BIT COUNT IN CONTROL WORD HEADER
00895 M01S00863.verify +++|* IS ASSUMED ZERO AND BYTE COUNT SHOULD BE A MULTIPLE OF 5.
00896 M01S00864.verify +++|
00897 M01S00865.verify +++| MX3 -24
00898 M01S00866.verify +++| BX7 -X3*X1 BYTE COUNT
00899 M01S00867.verify +++| SX3 4
00900 M01S00868.verify +++| LX4 X7
00901 M01S00869.verify +++| IX7 X7+X3 ROUND UP BYTE COUNT
00902 M01S00870.verify +++| SX3 X3+B1
00903 M01S00871.verify +++| IX7 X7/X3 WORD COUNT
00904 M01S00872.verify +++| MX3 -6
00905 M01S00873.verify +++| SA7 X2-WRB
00906 M01S00874.verify +++| LX1 -24
00907 M01S00875.verify +++| BX6 -X3*X1 UNUSED BIT COUNT (BASED ON BYTE)
00908 M01S00876.verify +++| SX3 5
00909 M01S00877.verify +++| IX3 X7*X3
00910 M01S00878.verify +++| IX4 X3-X4 UNUSED BYTES
00911 M01S00879.verify +++| ZR X4,RDA5 IF NO EXTRANEOUS DATA BYTES
00912 M01S00880.verify +++| SX3 12
00913 M01S00881.verify +++| IX3 X4*X3
00914 M01S00882.verify +++| IX6 X3+X6
00915 M01S00883.verify +++| RDA5 SA6 X2-UBC STORE UNUSED BIT COUNT
00916 M01S00884.verify +++| LX4 X6
00917 M01S00885.verify +++| SX6 -B1 INDICATE EOR
00918 M01S00886.verify +++| NZ X4,RDA6 IF EXTRANEOUS DATA IN LAST WORD
00919 M01S00887.verify +++| SA3 X2-SLF
00920 M01S00888.verify +++| LX1 -12
00921 M01S00889.verify +++| NZ X3,RDA6 IF S, L, OR F TAPE
00922 M01S00890.verify +++| SX1 X1 PRU SIZE
00923 M01S00891.verify +++| IX6 X7-X1 NO EOR IF FULL BLOCK
00924 M01S00892.verify +++| RDA6 SA6 X2-ERF SAVE EOR FLAG
00925 M01S00893.verify +++| SA1 RDAA RESET WORDS NEEDED
00926 M01S00894.verify +++| SB7 X1
00927 M01S00895.verify +++| EQ RDA1 LOOP
00928 M01S00896.verify +++|
00929 M01S00897.verify +++|
00930 M01S00898.verify +++| RDAA CON 0
00931 M01S00899.verify +++| SRM SPACE 4,10
00932 M01S00900.verify +++|** SRM - SEND RECORD MESSAGE.
00933 M01S00901.verify +++|*
00934 M01S00902.verify +++|* ENTRY (F1-LWD) = LWA+1 OF DATA IN FILE 1 BUFFER.
00935 M01S00903.verify +++|* (F2-LWD) = LWA+1 OF DATA IN FILE 2 BUFFER.
00936 M01S00904.verify +++|*
00937 M01S00905.verify +++|* USES A - 1, 6.
00938 M01S00906.verify +++|* X - 1, 2, 6.
00939 M01S00907.verify +++|*
00940 M01S00908.verify +++|* CALLS SFN, SRT, SYS=.
00941 M01S00909.verify +++|
00942 M01S00910.verify +++|
00943 M01S00911.verify +++| SRM SUBR ENTRY/EXIT
00944 M01S00912.verify +++| SA1 F1-LWD LWA+1 OF DATA IN FILE 1
00945 M01S00913.verify +++| SX2 SBF1
00946 M01S00914.verify +++| RJ SRT SET RECORD TYPE
00947 M01S00915.verify +++| SA6 TY
00948 M01S00916.verify +++| BX1 X7
00949 M01S00917.verify +++| RJ SFN SPACE FILL NAME
00950 M01S00918.verify +++| SA6 SRMB
00951 M01S00919.verify +++| SA1 F2-LWD LWA+1 OF DATA IN FILE 2
00952 M01S00920.verify +++| SX2 SBF2
00953 M01S00921.verify +++| RJ SRT SET RECORD TYPE
00954 M01S00922.verify +++| SA6 TY+1
00955 M01S00923.verify +++| BX1 X7
00956 M01S00924.verify +++| RJ SFN SPACE FILL NAME
00957 M01S00925.verify +++| SA6 SRMB+1
00958 M01S00926.verify +++| SA1 EC
00959 M01S00927.verify +++| ZR X1,SRM1 IF NO ERRORS
00960 M01S00928.verify +++| SA1 =0LERRORS.
00961 M01S00929.verify +++| BX6 X1
00962 M01S00930.verify +++| SA6 SRMC
00963 M01S00931.verify +++| SRM1 MESSAGE SRMA,1
00964 M01S00932.verify +++| EQ SRMX RETURN
00965 M01S00933.verify +++|
00966 M01S00934.verify +++|
00967 M01S00935.verify +++| SRMA DATA 10HVERIFYING
00968 M01S00936.verify +++| SRMB DATA 0,0
00969 M01S00937.verify +++| SRMC DATA 0
00970 M01S00938.verify +++| UPN SPACE 4,10
00971 M01S00939.verify +++|** UPN - UNPACK NAME.
00972 M01S00940.verify +++|*
00973 M01S00941.verify +++|* ENTRY (X6) = NAME LEFT JUSTIFIED.
00974 M01S00942.verify +++|* (B7) = CHARACTER ADDRESS.
00975 M01S00943.verify +++|*
00976 M01S00944.verify +++|* EXIT (B7) ADVANCED.
00977 M01S00945.verify +++|*
00978 M01S00946.verify +++|* USES A - 7.
00979 M01S00947.verify +++|* B - 2, 7.
00980 M01S00948.verify +++|* X - 1, 6, 7.
00981 M01S00949.verify +++|
00982 M01S00950.verify +++|
00983 M01S00951.verify +++| UPN SUBR ENTRY/EXIT
00984 M01S00952.verify +++| MX1 60-6
00985 M01S00953.verify +++| SB2 B7+10
00986 M01S00954.verify +++| LX6 6
00987 M01S00955.verify +++| UPN1 BX7 -X1*X6
00988 M01S00956.verify +++| ZR B7,UPNX IF END OF NAME
00989 M01S00957.verify +++| SA7 B7
00990 M01S00958.verify +++| SB7 B7+B1
00991 M01S00959.verify +++| LX6 6
00992 M01S00960.verify +++| NE B7,B2,UPN1 LOOP FOR 10 CHARACTERS
00993 M01S00961.verify +++| EQ UPNX RETURN
00994 M01S00962.verify +++| UPW SPACE 4,15
00995 M01S00963.verify +++|** UPW - UNPACK WORD.
00996 M01S00964.verify +++|*
00997 M01S00965.verify +++|* ENTRY (X1) = WORD.
00998 M01S00966.verify +++|* (B7) = CHARACTER ADDRESS.
00999 M01S00967.verify +++|* (X2) = RECORD TYPE.
01000 M01S00968.verify +++|*
01001 M01S00969.verify +++|* EXIT (B7) ADVANCED.
01002 M01S00970.verify +++|*
01003 M01S00971.verify +++|* USES A - 7.
01004 M01S00972.verify +++|* B - 2, 4, 5, 7.
01005 M01S00973.verify +++|* X - 0, 1, 2, 7.
01006 M01S00974.verify +++|
01007 M01S00975.verify +++|
01008 M01S00976.verify +++| UPW SUBR ENTRY/EXIT
01009 M01S00977.verify +++| SB2 X2
| Line S00978 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01010 M02S00978.251l664 ---| SX2 1604B 01011 M01S00010.251l664 +++| SX2 UPWA 01012 M01S00979.verify +++| LX2 48 01013 M01S00980.verify +++| LX2 X2,B2 01014 M01S00981.verify +++| SB5 4 01015 M01S00982.verify +++| SB4 5 01016 M01S00983.verify +++| PL X2,UPW1 IF TEXT TYPE 01017 M01S00984.verify +++| SB5 B4 01018 M01S00985.verify +++| SB4 B4-B1 01019 M01S00986.verify +++| UPW1 SX7 1R 01020 M01S00987.verify +++| SX7 1R 01021 M01S00988.verify +++| MX0 60-3 01022 M01S00989.verify +++| SA7 B7 01023 M01S00990.verify +++| SA7 A7+B1 01024 M01S00991.verify +++| SA7 A7+B1 01025 M01S00992.verify +++| SA7 A7+B1 01026 M01S00993.verify +++| SA7 A7+B1 01027 M01S00994.verify +++| UPW2 SB2 B5 01028 M01S00995.verify +++| UPW3 LX1 3 01029 M01S00996.verify +++| SB2 B2-B1 01030 M01S00997.verify +++| BX2 -X0*X1 CONVERT DIGIT 01031 M01S00998.verify +++| SX7 X2+1R0 01032 M01S00999.verify +++| SA7 A7+B1 STORE CHARACTER 01033 M01S01000.verify +++| NZ B2,UPW3 IF MORE DIGITS 01034 M01S01001.verify +++| SX7 1R 01035 M01S01002.verify +++| SB4 B4-B1 01036 M01S01003.verify +++| SA7 A7+B1 SPACE 01037 M01S01004.verify +++| NZ B4,UPW2 IF MORE BYTES 01038 M01S01005.verify +++| SB2 B5-4 01039 M01S01006.verify +++| ZR B2,UPW4 IF 5 GROUPS OF 4 01040 M01S01007.verify +++| SA7 A7+B1 SPACE 01041 M01S01008.verify +++| UPW4 SB7 A7+B1 ADVANCE CHARACTER ADDRESS 01042 M01S01009.verify +++| EQ UPWX RETURN 01043 M01S00011.251l664 +++| 01044 M01S00012.251l664 +++| 01045 M01S00013.251l664 +++| UPWA EQURT (RLRT,OVRT,ABRT),12 01046 M01S01010.verify +++| WOF SPACE 4,15 01047 M01S01011.verify +++|** WOF - WRITE LINE TO OUTPUT. 01048 M01S01012.verify +++|* 01049 M01S01013.verify +++|* ENTRY (X1) = FWA LINE. 01050 M01S01014.verify +++|* IF (X1) < 0, LINE IS *S* FORMAT. 01051 M01S01015.verify +++|* OTHERWISE LINE IS *C* FORMAT. 01052 M01S01016.verify +++|* (X2) = WORD COUNT. 01053 M01S01017.verify +++|* 01054 M01S01018.verify +++|* USES A - 1, 2, 3, 4, 6, 7. 01055 M01S01019.verify +++|* X - 1, 2, 3, 4, 6, 7. 01056 M01S01020.verify +++|* B - 7. 01057 M01S01021.verify +++|* 01058 M01S01022.verify +++|* CALLS CDD. 01059 M01S01023.verify +++|* 01060 M01S01024.verify +++|* MACROS WRITEC, WRITES, WRITEW. 01061 M01S01025.verify +++| 01062 M01S01026.verify +++| 01063 M01S01027.verify +++| WOF4 BX1 -X1 01064 M01S01028.verify +++| WRITES O,X1,X2 01065 M01S01029.verify +++| 01066 M01S01030.verify +++| WOF SUBR ENTRY/EXIT 01067 M01S01031.verify +++| SA4 EL 01068 M01S01032.verify +++| ZR X4,WOFX IF ERROR LIMIT 01069 M01S01033.verify +++| SA3 LC ADVANCE LINE COUNT 01070 M01S01034.verify +++| SX6 X3+B1 01071 M01S01035.verify +++| SA6 A3
| Line S01036 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01072 M02S01036.ns22000 ---| SX7 X6-LINP+4 01073 M01S00014.ns22000 +++| SA4 A3+B1 GET PAGE LENGTH 01074 M01S00015.ns22000 +++| IX7 X6-X4 01075 M01S01037.verify +++| NG X7,WOF3 IF BOTTOM OF PAGE NOT REACHED 01076 M01S01038.verify +++| BX6 X1 SAVE REQUEST 01077 M01S01039.verify +++| LX7 X2 01078 M01S01040.verify +++| SA6 WOFA 01079 M01S01041.verify +++| SA7 A6+B1 01080 M01S01042.verify +++| SA1 PN ADVANCE PAGE NUMBER
| Line S01043 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01081 M02S01043.ns22000 ---| SX6 B0 RESET LINE COUNT 01082 M01S01044.verify +++| SX7 X1+B1 01083 M01S00016.ns22000 +++| SX6 3 01084 M01S01045.verify +++| SA6 A3 01085 M01S01046.verify +++| SA7 A1 01086 M01S01047.verify +++| RJ CDD CONVERT PAGE NUMBER 01087 M01S01048.verify +++| MX1 48 01088 M01S01049.verify +++| LX6 18 STORE PAGE NUMBER 01089 M01S01050.verify +++| BX6 X1*X6 01090 M01S01051.verify +++| SA6 PAGE 01091 M01S01052.verify +++| SA3 PW 01092 M01S01053.verify +++| ZR X3,WOF1 IF SHORT PAGE FORMAT 01093 M01S01054.verify +++| WRITEW O,(=1H1),1 01094 M01S01055.verify +++| WRITEC X2,TITL WRITE TITLE LINE 01095 M01S01056.verify +++| WRITEC X2,SBTL WRITE SUBTITLE LINE 01096 M01S01057.verify +++| WRITEW X2,(=1L ),1 WRITE BLANK LINE 01097 M01S01058.verify +++| EQ WOF2 RESTORE REQUEST 01098 M01S01059.verify +++|
| Line S01060 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01099 M02S01060.ns22000 ---| WOF1 WRITEW O,(=1L ),1 WRITE BLANK LINE
| Line S01061 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01100 M02S01061.ns22000 ---| SA3 PN 01101 M01S00017.ns22000 +++| WOF1 SA3 PN 01102 M01S01062.verify +++| SB7 X3-2 01103 M01S01063.verify +++| NZ B7,WOF2 IF TITLE NOT ISSUED 01104 M01S00018.ns22000 +++| WRITEW O,(=1L ),1 WRITE BLANK LINE 01105 M01S01064.verify +++| WRITEW X2,TITL,TITSL WRITE SHORT TITLE 01106 M01S01065.verify +++| WRITEC X2,(=C* *) 01107 M01S01066.verify +++| WRITEW X2,SBTL,SBTSL WRITE SHORT SUBTITLE 01108 M01S01067.verify +++| WRITEC X2,(=C* *) 01109 M01S01068.verify +++| WOF2 SA1 WOFA RESTORE REQUEST 01110 M01S01069.verify +++| SA2 A1+B1 01111 M01S01070.verify +++| WOF3 NG X1,WOF4 IF *S* FORMAT 01112 M01S01071.verify +++| WRITEC O,X1,X2 01113 M01S01072.verify +++| EQ WOFX RETURN 01114 M01S01073.verify +++| 01115 M01S01074.verify +++| 01116 M01S01075.verify +++| WOFA DATA 0,0 01117 M01S01076.verify +++| SPACE 4,10 01118 M01S01077.verify +++|** COMMON DECKS. 01119 M01S01078.verify +++| 01120 M01S01079.verify +++| 01121 M01S01080.verify +++|*CALL COMCCDD 01122 M01S01081.verify +++|*CALL COMCCIO 01123 M01S01082.verify +++|*CALL COMCCOD 01124 M01S01083.verify +++|*CALL COMCMVE 01125 M01S01084.verify +++|*CALL COMCRDW 01126 M01S01085.verify +++|*CALL COMCSFN 01127 M01S01086.verify +++|*CALL COMCSNM 01128 M01S01087.verify +++|*CALL COMCSRT 01129 M01S01088.verify +++|*CALL COMCSYS 01130 M01S01089.verify +++|*CALL COMCWTC 01131 M01S01090.verify +++|*CALL COMCWTS 01132 M01S01091.verify +++|*CALL COMCWTW 01133 M01S01092.verify +++| SPACE 4,10 01134 M01S01093.verify +++|** BUFFERS. 01135 M01S01094.verify +++| 01136 M01S01095.verify +++| 01137 M01S01096.verify +++| USE // 01138 M01S01097.verify +++| SEG 01139 M01S01098.verify +++| OBUF BSS 0 OUTPUT FILE CIO BUFFER 01140 M01S01099.verify +++| CHAR EQU OBUF+OBUFL CHARACTER STRING BUFFER 01141 M01S01100.verify +++| SBF1 EQU CHAR+136 FILE 1 WORKING BUFFER 01142 M01S01101.verify +++| SBF2 EQU SBF1+BUFL+1 FILE 2 WORKING BUFFER 01143 M01S01102.verify +++| BUF1 EQU SBF2+BUFL FILE 1 CIO BUFFER 01144 M01S01103.verify +++| BUF2 EQU BUF1+FBUFL FILE 2 CIO BUFFER
| Line S01104 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01145 M02S01104.274l797 ---| RFL= EQU BUF2+FBUFL FIELD LENGTH 01146 M01S00008.274l797 +++| RFL= EQU BUF2+FBUFL+4 FIELD LENGTH 01147 M01S01105.verify +++| TITLE PRESET. 01148 M01S01106.verify +++| PRS SPACE 4,10 01149 M01S01107.verify +++|** PRS - PROCESS ARGUMENTS. 01150 M01S01108.verify +++|* 01151 M01S01109.verify +++|* ENTRY NONE 01152 M01S01110.verify +++|* 01153 M01S01111.verify +++|* EXIT (PW) .EQ. ZERO IF SMALL PAGE WIDTH 01154 M01S01112.verify +++|* .NE. ZERO IF STANDARD PAGE WIDTH. 01155 M01S01113.verify +++|* 01156 M01S01114.verify +++|* USES A - ALL. 01157 M01S01115.verify +++|* B - 4, 5, 7. 01158 M01S01116.verify +++|* X - ALL. 01159 M01S01117.verify +++|* 01160 M01S01118.verify +++|* CALLS ARG, CBS, CDT, DXB, PCM, RLF, SFN, STF. 01161 M01S01119.verify +++|*
| Line S01120 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01162 M02S01120.ns22000 ---|* MACROS CLOCK, DATE, MEMORY, MESSAGE, REWIND. 01163 M01S00019.ns22000 +++|* MACROS CLOCK, DATE, GETPP, MEMORY, MESSAGE, REWIND. 01164 M01S01121.verify +++| 01165 M01S01122.verify +++| 01166 M01S01123.verify +++| PRS SUBR ENTRY/EXIT 01167 M01S01124.verify +++| DATE DATE 01168 M01S01125.verify +++| CLOCK TIME 01169 M01S01126.verify +++| MEMORY ,,,RFL= SET FIELD LENGTH 01170 M01S01127.verify +++| SA1 ACTR CHECK ARGUMENT COUNT 01171 M01S01128.verify +++| SB4 X1 01172 M01S01129.verify +++| MX0 42 01173 M01S01130.verify +++| ZR B4,PRS3 IF NO ARGUMENTS 01174 M01S01131.verify +++| SA4 ARGR 01175 M01S01132.verify +++| BX7 X0*X4 01176 M01S01133.verify +++| SB4 B4-B1 01177 M01S01134.verify +++| SX2 3 01178 M01S01135.verify +++| ZR X7,PRS1 IF FIRST ARGUMENT NULL 01179 M01S01136.verify +++| IX7 X7+X2 01180 M01S01137.verify +++| SA7 F1 01181 M01S01138.verify +++| PRS1 ZR B4,PRS3 IF END OF ARGUMENTS 01182 M01S01139.verify +++| SA4 A4+B1 01183 M01S01140.verify +++| BX7 X0*X4 01184 M01S01141.verify +++| ZR X7,PRS2 IF SECOND ARGUMENT NULL 01185 M01S01142.verify +++| IX7 X7+X2 01186 M01S01143.verify +++| SA7 F2 01187 M01S01144.verify +++| PRS2 SB4 B4-B1 01188 M01S01145.verify +++| ZR B4,PRS3 IF END OF ARGUMENTS 01189 M01S01146.verify +++| SA4 A4+B1 CONVERT SPECIAL ARGUMENTS 01190 M01S01147.verify +++| SB5 PRSA 01191 M01S01148.verify +++| RJ ARG 01192 M01S01149.verify +++| NZ X1,PER2 IF ARGUMENT ERROR 01193 M01S01150.verify +++| PRS3 SA5 FC CHECK FILE COUNT 01194 M01S01151.verify +++| SB7 B1+ DECIMAL CONVERSION 01195 M01S01152.verify +++| RJ DXB 01196 M01S01153.verify +++| SA6 FC STORE VALUE 01197 M01S01154.verify +++| NZ X4,PER2 IF ASSEMBLY ERROR 01198 M01S01155.verify +++| SA1 O 01199 M01S01156.verify +++| SX6 B1 01200 M01S01157.verify +++| SX2 A1 01201 M01S01158.verify +++| ZR X1,PRS4 IF NO FILE NAME IN FET 01202 M01S01159.verify +++| RJ STF SET TERMINAL FILE 01203 M01S01160.verify +++| PRS4 SA6 PW SET PAGE WIDTH 01204 M01S00020.ns22000 +++| GETPP *,LL,PD GET PAGE SIZE PARAMETERS 01205 M01S01161.verify +++| SA5 EL CONVERT ERROR LIMIT 01206 M01S01162.verify +++| RJ DXB 01207 M01S01163.verify +++| SA6 EL STORE VALUE 01208 M01S01164.verify +++| NZ X4,PER2 IF ASSEMBLY ERROR 01209 M01S01165.verify +++| RJ PCM PROCESS CODED MODE PARAMETER 01210 M01S01166.verify +++| SA1 F1 COMPARE FILE NAMES 01211 M01S01167.verify +++| SA2 F2 01212 M01S01168.verify +++| MX0 42 01213 M01S01169.verify +++| BX1 X0*X1 01214 M01S01170.verify +++| SA3 O 01215 M01S01171.verify +++| BX2 X0*X2 01216 M01S01172.verify +++| IX6 X1-X2 01217 M01S01173.verify +++| SX5 PERB * VERIFY FILE NAME CONFLICT - LFN.* 01218 M01S01174.verify +++| ZR X6,PER3 IF FILE 1 = FILE 2 01219 M01S01175.verify +++| BX3 X0*X3 01220 M01S01176.verify +++| IX4 X3-X1 01221 M01S01177.verify +++| BX7 X3-X2 01222 M01S01178.verify +++| ZR X4,PER3 IF O = FILE 1 01223 M01S01179.verify +++| BX0 X1 01224 M01S01180.verify +++| LX1 X2 01225 M01S01181.verify +++| ZR X7,PER3 IF O = FILE 2 01226 M01S01182.verify +++| RJ SFN SPACE FILL FILE NAMES 01227 M01S01183.verify +++| SA6 F2NM 01228 M01S01184.verify +++| BX1 X0 01229 M01S01185.verify +++| RJ SFN 01230 M01S01186.verify +++| SA1 PRSG SET POINTER TO OUTPUT FET 01231 M01S01187.verify +++| SA6 F1NM 01232 M01S01188.verify +++| BX7 X1 01233 M01S01189.verify +++| MX6 0 01234 M01S01190.verify +++| SA7 B1+B1 01235 M01S01191.verify +++| SA6 A7+B1 01236 M01S01192.verify +++| SA0 F1 01237 M01S01193.verify +++| RJ CDT CHECK IF CONTROL WORDS ALLOWED ON FILE 1 01238 M01S01194.verify +++| SA0 F2 01239 M01S01195.verify +++| RJ CDT CHECK IF CONTROL WORDS ALLOWED ON FILE 2 01240 M01S01196.verify +++| RJ CBS CHECK BLOCK SIZE 01241 M01S01197.verify +++| RJ RLF RFL UP FOR LARGE L AND F TAPES 01242 M01S01198.verify +++| SA1 RW 01243 M01S01199.verify +++| ZR X1,PRS5 IF REWIND NOT REQUESTED 01244 M01S01200.verify +++| REWIND F1 01245 M01S01201.verify +++| REWIND F2 01246 M01S01202.verify +++| PRS5 SA1 F1-SLF 01247 M01S01203.verify +++| SA2 F2-SLF 01248 M01S01204.verify +++| BX3 X1+X2 01249 M01S01205.verify +++| ZR X3,PRSX IF NO S, L, OR F TAPES 01250 M01S01206.verify +++| BX3 X1-X2 01251 M01S01207.verify +++| ZR X3,PRSX IF FILES HAVE SAME FORMAT 01252 M01S01208.verify +++| MESSAGE PRSH,3 ISSUE VERIFY NOT GUARANTEED WARNING 01253 M01S01209.verify +++| EQ PRSX RETURN 01254 M01S01210.verify +++| 01255 M01S01211.verify +++| 01256 M01S01212.verify +++| PRSA BSS 0 CONTROL CARD ARGUMENT EQUIVALENCE TABLE 01257 M01S01213.verify +++| L ARG O,O ERROR LIMIT FILE 01258 M01S01214.verify +++| N ARG PRSD,FC FILE COUNT 01259 M01S01215.verify +++| E ARG PRSE,EL ERROR LIMIT 01260 M01S01216.verify +++| R ARG -PRSF,RW REWIND 01261 M01S01217.verify +++| A ARG -PRSF,AB ABORT ON ERROR 01262 M01S01218.verify +++| C ARG -PRSB,CM CODED MODE ON BOTH FILES 01263 M01S01219.verify +++| C1 ARG -PRSF,CM CODED MODE ON FIRST FILE ONLY 01264 M01S01220.verify +++| C2 ARG -PRSC,CM CODED MODE ON SECOND FILE ONLY 01265 M01S01221.verify +++| BS ARG PRSE,BS BLOCK SIZE 01266 M01S01222.verify +++| ARG 01267 M01S01223.verify +++| 01268 M01S01224.verify +++| PRSB CON -1 01269 M01S01225.verify +++| PRSC CON 2 01270 M01S01226.verify +++| PRSD CON 0L999999 01271 M01S01227.verify +++| PRSE CON 0L0 01272 M01S01228.verify +++| PRSF CON 1 01273 M01S01229.verify +++| PRSG CON 0LOUTPUT+O 01274 M01S01230.verify +++| PRSH DATA C* FILE STRUCTURES NOT COMPATIBLE.* 01275 M01S01231.verify +++| CBL SPACE 4,10 01276 M01S01232.verify +++|** CBL - CALCULATE BUFFER LENGTH. 01277 M01S01233.verify +++|* 01278 M01S01234.verify +++|* ENTRY (A0) = FWA FET. 01279 M01S01235.verify +++|* ((A0)+6) = PRU SIZE, IF S OR L FORMAT TAPE. 01280 M01S01236.verify +++|* ((A0)+8) = PRU SIZE, IF F FORMAT TAPE. 01281 M01S01237.verify +++|* 01282 M01S01238.verify +++|* EXIT (X6) = DESIRED BUFFER LENGTH. 01283 M01S01239.verify +++|* (B3) .LT. 0, IF BUFFER LENGTH CHANGE REQUIRED. 01284 M01S01240.verify +++|* 01285 M01S01241.verify +++|* USES A - 1. 01286 M01S01242.verify +++|* B - 2, 3. 01287 M01S01243.verify +++|* X - 1, 2, 3, 6. 01288 M01S01244.verify +++| 01289 M01S01245.verify +++| 01290 M01S01246.verify +++| CBL SUBR ENTRY/EXIT 01291 M01S01247.verify +++| SA1 A0-SLF S, L, OR F TAPE INDICATOR 01292 M01S01248.verify +++| SX6 FBUFL DEFAULT BUFFER LENGTH 01293 M01S01249.verify +++| SB2 X1 01294 M01S01250.verify +++| SB3 B1 01295 M01S01251.verify +++| SX3 3 01296 M01S01252.verify +++| SA1 A0+6 GET S/L TAPE MAXIMUM BLOCK SIZE 01297 M01S01253.verify +++| GT B2,B1,CBL1 IF L TAPE 01298 M01S01254.verify +++| PL B2,CBLX IF NOT F TAPE 01299 M01S01255.verify +++| SA1 A0+8 GET F TAPE PRU SIZE 01300 M01S01256.verify +++| CBL1 IX2 X1+X3 ALLOW FOR CONTROL WORDS 01301 M01S01257.verify +++| LX2 1 PRU SIZE * 2 01302 M01S01258.verify +++| IX3 X6-X2 01303 M01S01259.verify +++| PL X3,CBLX IF CALCULATED BUFFER LENGTH .LE. DEFAULT 01304 M01S01260.verify +++| BX6 X2 01305 M01S01261.verify +++| SB3 -B1 01306 M01S01262.verify +++| EQ CBLX RETURN 01307 M01S01263.verify +++| CBS SPACE 4,15 01308 M01S01264.verify +++|** CBS - CHECK BLOCK SIZE. 01309 M01S01265.verify +++|* 01310 M01S01266.verify +++|* EXIT BS PARAMETER VERIFIED, PRU SIZE SET IN MLRS FIELD OF 01311 M01S01267.verify +++|* S AND L TAPE FET(S). 01312 M01S01268.verify +++|* TO PER2, IF ERROR ENCOUNTERED. 01313 M01S01269.verify +++|* 01314 M01S01270.verify +++|* USES A - 0, 1, 2, 5, 6. 01315 M01S01271.verify +++|* B - 2, 7. 01316 M01S01272.verify +++|* X - 1, 2, 5, 6. 01317 M01S01273.verify +++|* 01318 M01S01274.verify +++|* CALLS DXB, SPS. 01319 M01S01275.verify +++| 01320 M01S01276.verify +++| 01321 M01S01277.verify +++| CBS SUBR ENTRY/EXIT 01322 M01S01278.verify +++| SA5 BS CONVERT BLOCK SIZE 01323 M01S01279.verify +++| SX1 X5 01324 M01S01280.verify +++| SB7 B1 01325 M01S01281.verify +++| NZ X1,CBS2 IF BS NOT SPECIFIED 01326 M01S01282.verify +++| RJ DXB 01327 M01S01283.verify +++| SA6 BS 01328 M01S01284.verify +++| NZ X4,PER2 IF ASSEMBLY ERROR 01329 M01S01285.verify +++| ZR X6,PER2 IF BS=0 SPECIFIED 01330 M01S01286.verify +++| SA1 F1-SLF 01331 M01S01287.verify +++| SA2 F2-SLF 01332 M01S01288.verify +++| SB3 X1 01333 M01S01289.verify +++| SB4 X2 01334 M01S01290.verify +++| GT B3,CBS1 IF S OR L TAPE 01335 M01S01291.verify +++| LE B4,PER2 IF BS PARAMETER NOT ALLOWED 01336 M01S01292.verify +++| CBS1 SX2 X6-MSPS-1 01337 M01S01293.verify +++| NG X2,CBS2 IF BS .LE. MAXIMUM S TAPE PRU SIZE 01338 M01S01294.verify +++| GT B3,B1,CBS2 IF FILE 1 IS L TAPE 01339 M01S01295.verify +++| LE B4,B1,PER2 IF FILE 2 IS NOT L TAPE 01340 M01S01296.verify +++| CBS2 SA0 F1 01341 M01S01297.verify +++| RJ SPS SET FILE 1 PRU SIZE IF S OR L TAPE 01342 M01S01298.verify +++| SA0 F2 01343 M01S01299.verify +++| RJ SPS SET FILE 2 PRU SIZE IF S OR L TAPE 01344 M01S01300.verify +++| EQ CBSX RETURN 01345 M01S01301.verify +++| CDT SPACE 4,15 01346 M01S01302.verify +++|** CDT - CHECK DEVICE TYPE. 01347 M01S01303.verify +++|* 01348 M01S01304.verify +++|* ENTRY (A0) = FWA FET. 01349 M01S01305.verify +++|* 01350 M01S01306.verify +++|* EXIT CONTROL WORD FLAG AND S, L, OR F TAPE INDICATOR 01351 M01S01307.verify +++|* SET APPROPRIATELY FOR THIS FILE. 01352 M01S00009.274l797 +++|* OPTICAL DISK FET EXTENSION INITIALIZED, IF APPLICABLE. 01353 M01S01308.verify +++|* WARNING MESSAGE ISSUED IF FILE NOT FOUND. 01354 M01S01309.verify +++|* ((A0)+8) = PRU SIZE, IF F FORMAT TAPE. 01355 M01S01310.verify +++|* 01356 M01S01311.verify +++|* USES A - 1, 2, 3, 6, 7. 01357 M01S01312.verify +++|* B - 2, 3, 5. 01358 M01S01313.verify +++|* X - 0, 1, 2, 3, 6, 7. 01359 M01S01314.verify +++|* 01360 M01S01315.verify +++|* CALLS SNM. 01361 M01S01316.verify +++|* 01362 M01S01317.verify +++|* MACROS FILINFO, MESSAGE, OPEN. 01363 M01S01318.verify +++| 01364 M01S01319.verify +++| 01365 M01S01320.verify +++| CDT4 OPEN A0,READNR,R CHECK FOR TERMINAL FILE 01366 M01S01321.verify +++| SA3 A0+B1 GET DEVICE TYPE 01367 M01S01322.verify +++| MX2 -11 01368 M01S01323.verify +++| LX3 12 01369 M01S01324.verify +++| BX3 -X2*X3 01370 M01S01325.verify +++| SX7 X3-2RTT 01371 M01S01326.verify +++| ZR X7,CDTX IF TERMINAL FILE 01372 M01S01327.verify +++| SA1 A0 GET FILE NAME 01373 M01S01328.verify +++| SB5 -CDTA * FILE NOT FOUND - LFN.* 01374 M01S01329.verify +++| BX1 X0*X1 01375 M01S01330.verify +++| SB3 CDTB MESSAGE ASSEMBLY AREA 01376 M01S01331.verify +++| SB2 1RX SET REPLACEMENT CHARACTER 01377 M01S01332.verify +++| RJ SNM SET NAME IN MESSAGE 01378 M01S01333.verify +++| MESSAGE CDTB,3 ISSUE WARNING MESSAGE 01379 M01S01334.verify +++| CDT5 SX7 B1+ ENABLE CONTROL WORDS 01380 M01S01335.verify +++| SA7 A0-CWF 01381 M01S01336.verify +++| 01382 M01S01337.verify +++| CDT SUBR ENTRY/EXIT 01383 M01S01338.verify +++| SA1 A0 SET FILE NAME IN PARAMETER BLOCK 01384 M01S01339.verify +++| MX0 42 01385 M01S01340.verify +++| SA2 CDTC 01386 M01S01341.verify +++| BX1 X0*X1 01387 M01S01342.verify +++| SX2 X2 01388 M01S01343.verify +++| BX6 X1+X2 01389 M01S01344.verify +++| SA6 A2 01390 M01S01345.verify +++| FILINFO CDTC GET FILE INFORMATION 01391 M01S01346.verify +++| SA1 CDTC+1 GET DEVICE TYPE AND STATUS 01392 M01S01347.verify +++| ZR X1,CDT4 IF FILE NOT FOUND
| Line S01348 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01393 M02S01348.274l797 ---| LX1 59-15 01394 M01S00010.274l797 +++| BX3 X1 01395 M01S00011.274l797 +++| AX3 48 01396 M01S00012.274l797 +++| SX2 X3-2ROD OPTICAL DISK DEVICE TYPE 01397 M01S00013.274l797 +++| NZ X2,CDT1 IF NOT OD DEVICE 01398 M01S00014.274l797 +++| SX7 FETODL OD FET EXTENSION LENGTH 01399 M01S00015.274l797 +++| SX2 A0+12B BUILD POINTER TO FET EXTENSION 01400 M01S00016.274l797 +++| LX7 18 01401 M01S00017.274l797 +++| BX7 X2+X7 01402 M01S00018.274l797 +++| SA7 A0+11B STORE POINTER AND LENGTH 01403 M01S00019.274l797 +++| OPEN A0,READNR,R 01404 M01S00020.274l797 +++| EQ CDT5 ENABLE CONTROL WORDS 01405 M01S00021.274l797 +++| 01406 M01S00022.274l797 +++| CDT1 LX1 59-15 01407 M01S01349.verify +++| NG X1,CDT5 IF FILE ON MASS STORAGE
| Line S01350 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01408 M02S01350.274l797 ---| LX1 59-18-59+15
| Line S01351 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01409 M02S01351.274l797 ---| NG X1,CDT2 IF 7-TRACK TAPE
| Line S01352 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01410 M02S01352.274l797 ---| LX1 59-19-59+18
| Line S01353 Modification History | |
|---|---|
M01 (Added by) | verify |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01411 M02S01353.274l797 ---| PL X1,CDTX IF NOT 9-TRACK TAPE 01412 M01S00023.274l797 +++| LX1 59-24-59+15 01413 M01S00024.274l797 +++| PL X1,CDTX IF FILE NOT ON TAPE 01414 M01S01354.verify +++| CDT2 SA1 CDTC+FIPBL GET TAPE FORMAT 01415 M01S01355.verify +++| MX0 -6 01416 M01S01356.verify +++| LX1 -6 01417 M01S01357.verify +++| SX7 B1 01418 M01S01358.verify +++| BX1 -X0*X1 01419 M01S01359.verify +++| SX2 X1-/MTX/TFS 01420 M01S01360.verify +++| ZR X2,CDT3 IF S TAPE 01421 M01S01361.verify +++| SX2 X1-/MTX/TFL 01422 M01S01362.verify +++| SX7 B1+B1 01423 M01S01363.verify +++| ZR X2,CDT3 IF L TAPE 01424 M01S01364.verify +++| SX7 -B1 01425 M01S01365.verify +++| SX2 X1-/MTX/TFF 01426 M01S01366.verify +++| NZ X2,CDT5 IF NOT F TAPE 01427 M01S01367.verify +++| SA3 A1+B1 GET BLOCK SIZE 01428 M01S01368.verify +++| LX3 -24 01429 M01S01369.verify +++| SX6 X3+ 01430 M01S01370.verify +++| SA6 A0+8 01431 M01S01371.verify +++| CDT3 SA7 A0-SLF SET S/L/F TAPE INDICATOR 01432 M01S01372.verify +++| EQ CDT5 SET CONTROL WORD FLAG 01433 M01S01373.verify +++| 01434 M01S01374.verify +++| 01435 M01S01375.verify +++| CDTA DATA C* FILE NOT FOUND - XXXXXXX.* 01436 M01S01376.verify +++| CDTAL EQU *-CDTA 01437 M01S01377.verify +++| 01438 M01S01378.verify +++| CDTB BSS CDTAL MESSAGE BUFFER 01439 M01S01379.verify +++| 01440 M01S01380.verify +++| CDTC VFD 42/0,6/CDTCL,12/1 *FILINFO* PARAMETER BLOCK 01441 M01S01381.verify +++| BSS FIPBL-1 01442 M01S01382.verify +++| CON FMTK TAPE FORMAT KEYWORD 01443 M01S01383.verify +++| CON BSZK TAPE BLOCK SIZE KEYWORD 01444 M01S01384.verify +++| CDTCL EQU *-CDTC 01445 M01S01385.verify +++| PCM SPACE 4,10 01446 M01S01386.verify +++|** PCM - PROCESS CODED MODE PARAMETER. 01447 M01S01387.verify +++|* 01448 M01S01388.verify +++|* EXIT CODED MODE SET ON FIRST, SECOND, OR BOTH FILES, 01449 M01S01389.verify +++|* IF REQUESTED. 01450 M01S01390.verify +++|* 01451 M01S01391.verify +++|* USES A - 1, 2, 6. 01452 M01S01392.verify +++|* B - 2. 01453 M01S01393.verify +++|* X - 1, 2, 6. 01454 M01S01394.verify +++| 01455 M01S01395.verify +++| 01456 M01S01396.verify +++| PCM SUBR ENTRY/EXIT 01457 M01S01397.verify +++| SA2 CM 01458 M01S01398.verify +++| ZR X2,PCMX IF CODED MODE NOT REQUESTED 01459 M01S01399.verify +++| SB2 X2 01460 M01S01400.verify +++| SX2 B1+B1 01461 M01S01401.verify +++| GT B2,B1,PCM1 IF SECOND FILE ONLY 01462 M01S01402.verify +++| SA1 F1 SET CODED MODE ON FIRST FILE 01463 M01S01403.verify +++| BX6 -X2*X1 01464 M01S01404.verify +++| SA6 A1 01465 M01S01405.verify +++| PCM1 EQ B2,B1,PCMX IF FIRST FILE ONLY 01466 M01S01406.verify +++| SA1 F2 SET CODED MODE ON SECOND FILE 01467 M01S01407.verify +++| BX6 -X2*X1 01468 M01S01408.verify +++| SA6 A1 01469 M01S01409.verify +++| EQ PCMX RETURN 01470 M01S01410.verify +++| PER SPACE 4,10 01471 M01S01411.verify +++|** PER - PRESET ERROR PROCESSOR. 01472 M01S01412.verify +++|* 01473 M01S01413.verify +++|* ENTRY (X5) = FWA MESSAGE, IF ENTRY AT PER1 OR PER3. 01474 M01S01414.verify +++|* (X1) = FILE NAME, IF ENTRY AT PER3. 01475 M01S01415.verify +++| 01476 M01S01416.verify +++| 01477 M01S01417.verify +++| PER3 SB5 X5 SET NAME IN MESSAGE 01478 M01S01418.verify +++| SB2 1RX 01479 M01S01419.verify +++| RJ SNM 01480 M01S01420.verify +++| EQ PER1 ISSUE ERROR MESSAGE 01481 M01S01421.verify +++| 01482 M01S01422.verify +++| PER2 SX5 PERA * VERIFY ARGUMENT ERROR.* 01483 M01S01423.verify +++| PER1 MESSAGE X5,,R 01484 M01S01424.verify +++| PER ABORT 01485 M01S01425.verify +++| 01486 M01S01426.verify +++| 01487 M01S01427.verify +++| PERA DATA C* VERIFY ARGUMENT ERROR.* 01488 M01S01428.verify +++| PERB DATA C* VERIFY FILE NAME CONFLICT - XXXXXXX.* 01489 M01S01429.verify +++| PERC DATA C* VERIFY FL ABOVE USER LIMIT.* 01490 M01S01430.verify +++| RLF SPACE 4,25 01491 M01S01431.verify +++|** RLF - RFL UP FOR LARGE L AND F TAPES. 01492 M01S01432.verify +++|* 01493 M01S01433.verify +++|* IF L OR F TAPE(S) TO BE VERIFIED, CALCULATE REQUIRED FL, 01494 M01S01434.verify +++|* RFL UP, AND RESET CIO BUFFER POINTERS IN FETS. 01495 M01S01435.verify +++|* 1. FOR L TAPE FILES, USE MLRS VALUE AS MAXIMUM BLOCK SIZE. 01496 M01S01436.verify +++|* FOR F TAPE FILES, USE BLOCK SIZE SAVED IN FET+8. 01497 M01S01437.verify +++|* 2. GET CURRENT MAXIMUM FL (MAXFL) VIA MEMORY MACRO. 01498 M01S01438.verify +++|* 3. FOR EACH L OR F TAPE, BUFFER LENGTH = MAXIMUM(FBUFL, 01499 M01S01439.verify +++|* 2*BLOCK SIZE). 01500 M01S01440.verify +++|* 4. IF FL REQUIREMENTS EXCEED MINIMUM(MAXFL,MFLF), SET EACH 01501 M01S01441.verify +++|* L OR F TAPE BUFFER LENGTH = BLOCK SIZE. 01502 M01S01442.verify +++|* 5. IF FL REQUIREMENTS EXCEED MAXFL, ABORT WITH * VERIFY 01503 M01S01443.verify +++|* FL ABOVE USER LIMIT.*. 01504 M01S01444.verify +++|* 01505 M01S01445.verify +++|* EXIT FIELD LENGTH INCREASED AS NECESSARY FOR L AND F TAPES. 01506 M01S01446.verify +++|* TO PER1, IF FIELD LENGTH ERROR. 01507 M01S01447.verify +++|* 01508 M01S01448.verify +++|* USES A - 0, 1, 2, 5, 6, 7. 01509 M01S01449.verify +++|* B - 3, 4. 01510 M01S01450.verify +++|* X - ALL. 01511 M01S01451.verify +++|* 01512 M01S01452.verify +++|* CALLS CBL, SYS=. 01513 M01S01453.verify +++| 01514 M01S01454.verify +++| 01515 M01S01455.verify +++| RLF SUBR ENTRY/EXIT 01516 M01S01456.verify +++| SA0 F1 01517 M01S01457.verify +++| RJ CBL CALCULATE FILE 1 BUFFER LENGTH 01518 M01S01458.verify +++| SA6 RLFA 01519 M01S01459.verify +++| SA0 F2 01520 M01S01460.verify +++| SB4 B3 SAVE BUFFER LENGTH CHANGE INDICATOR 01521 M01S01461.verify +++| RJ CBL CALCULATE FILE 2 BUFFER LENGTH 01522 M01S01462.verify +++| SA6 RLFB 01523 M01S01463.verify +++| SX0 MFLF MAXIMUM FIELD LENGTH FACTOR 01524 M01S01464.verify +++| NG B4,RLF1 IF FILE 1 BUFFER LENGTH CHANGE REQUIRED 01525 M01S01465.verify +++| PL B3,RLFX IF NO BUFFER LENGTH CHANGE ON FILE 2 01526 M01S01466.verify +++| RLF1 MEMORY CM,STAT,R GET CURRENT MAXIMUM FL 01527 M01S01467.verify +++| SA5 STAT 01528 M01S01468.verify +++| AX5 30 CURRENT MAXIMUM FL (MAXFL) 01529 M01S01469.verify +++| IX1 X5-X0 01530 M01S01470.verify +++| PL X1,RLF2 IF MAXFL .GE. MFLF 01531 M01S01471.verify +++| BX0 X5 01532 M01S01472.verify +++| RLF2 SA1 RLFA CALCULATE REQUIRED FL 01533 M01S01473.verify +++| SX4 X1+BUF1 01534 M01S01474.verify +++| SA2 RLFB 01535 M01S01475.verify +++| IX4 X4+X2 01536 M01S01476.verify +++| IX3 X0-X4 01537 M01S01477.verify +++| PL X3,RLF4 IF REQUIRED FL .LE. MINIMUM(MAXFL,MFLF) 01538 M01S01478.verify +++| PL B4,RLF3 IF NO BUFFER LENGTH CHANGE ON FILE 1 01539 M01S01479.verify +++| AX6 X1,B1 SET BUFFER LENGTH = BLOCK SIZE 01540 M01S01480.verify +++| SA6 A1 01541 M01S01481.verify +++| RLF3 PL B3,RLF4 IF NO BUFFER LENGTH CHANGE ON FILE 2 01542 M01S01482.verify +++| AX6 X2,B1 01543 M01S01483.verify +++| SA6 A2 01544 M01S01484.verify +++| RLF4 SA1 RLFA CALCULATE REQUIRED FL 01545 M01S01485.verify +++| SX3 X1+BUF1 01546 M01S01486.verify +++| SA2 A1+B1 01547 M01S01487.verify +++| IX4 X3+X2 01548 M01S01488.verify +++| SX6 X4+2 01549 M01S01489.verify +++| IX2 X5-X6 01550 M01S01490.verify +++| LX6 30 01551 M01S01491.verify +++| SX5 PERC *VERIFY FL ABOVE USER LIMIT.* 01552 M01S01492.verify +++| SA6 STAT 01553 M01S01493.verify +++| NG X2,PER1 IF REQUIRED FL .GT. MAXFL 01554 M01S01494.verify +++| 01555 M01S01495.verify +++|* INCREASE FIELD LENGTH AS NECESSARY FOR L AND F TAPES AND 01556 M01S01496.verify +++|* RESET CIO BUFFER POINTERS IN FETS. 01557 M01S01497.verify +++| 01558 M01S01498.verify +++| MEMORY CM,STAT,R 01559 M01S01499.verify +++| SA1 F1+4 RESET CIO BUFFER POINTERS 01560 M01S01500.verify +++| MX0 42 01561 M01S01501.verify +++| BX6 X0*X1 01562 M01S01502.verify +++| SA2 F2+1 01563 M01S01503.verify +++| BX6 X6+X3 01564 M01S01504.verify +++| SA6 A1 FILE 1 LIMIT 01565 M01S01505.verify +++| BX7 X0*X2 01566 M01S01506.verify +++| LX6 X3 01567 M01S01507.verify +++| BX7 X7+X3 01568 M01S01508.verify +++| SA6 A2+B1 FILE 2 IN 01569 M01S01509.verify +++| SA7 A2 FILE 2 FIRST 01570 M01S01510.verify +++| SA6 A6+B1 FILE 2 OUT 01571 M01S01511.verify +++| SA1 A6+B1 01572 M01S01512.verify +++| BX7 X0*X1 01573 M01S01513.verify +++| BX7 X7+X4 01574 M01S01514.verify +++| SA7 A1 FILE 2 LIMIT 01575 M01S01515.verify +++| EQ RLFX RETURN 01576 M01S01516.verify +++| 01577 M01S01517.verify +++| 01578 M01S01518.verify +++| RLFA CON 0 FILE 1 BUFFER LENGTH 01579 M01S01519.verify +++| RLFB CON 0 FILE 2 BUFFER LENGTH 01580 M01S01520.verify +++| SPS SPACE 4,10 01581 M01S01521.verify +++|** SPS - SET PRU SIZE. 01582 M01S01522.verify +++|* 01583 M01S01523.verify +++|* ENTRY (A0) = FWA FET. 01584 M01S01524.verify +++|* 01585 M01S01525.verify +++|* EXIT PRU SIZE SET IN MLRS FIELD OF FET IF S OR L TAPE. 01586 M01S01526.verify +++|* TO PER2, IF ERROR ENCOUNTERED. 01587 M01S01527.verify +++|* 01588 M01S01528.verify +++|* USES A - 1, 2, 6. 01589 M01S01529.verify +++|* B - 2. 01590 M01S01530.verify +++|* X - 1, 2, 3, 6. 01591 M01S01531.verify +++| 01592 M01S01532.verify +++| 01593 M01S01533.verify +++| SPS SUBR ENTRY/EXIT 01594 M01S01534.verify +++| SA1 A0-SLF S, L, OR F TAPE INDICATOR 01595 M01S01535.verify +++| SA2 BS BLOCK SIZE PARAMETER VALUE 01596 M01S01536.verify +++| SX3 MSPS MAXIMUM S TAPE PRU SIZE 01597 M01S01537.verify +++| SB2 X1 01598 M01S01538.verify +++| IX3 X3-X2 01599 M01S01539.verify +++| LE B2,SPSX IF NOT S OR L TAPE 01600 M01S01540.verify +++| SX6 DLPS DEFAULT L TAPE PRU SIZE 01601 M01S01541.verify +++| GT B2,B1,SPS1 IF L TAPE 01602 M01S01542.verify +++| SX6 DSPS DEFAULT S TAPE PRU SIZE 01603 M01S01543.verify +++| NG X2,SPS2 IF BS PARAMETER NOT SPECIFIED 01604 M01S01544.verify +++| NG X3,SPS2 IF BLOCK SIZE EXCEEDS MAXIMUM S PRU SIZE 01605 M01S01545.verify +++| SPS1 NG X2,SPS2 IF BS PARAMETER NOT SPECIFIED 01606 M01S01546.verify +++| BX6 X2 01607 M01S01547.verify +++| SPS2 SA6 A0+6 SET MLRS FIELD OF FET 01608 M01S01548.verify +++| EQ SPSX RETURN 01609 M01S01549.verify +++| SPACE 4,10 01610 M01S01550.verify +++|** PRESET DATA STORAGE. 01611 M01S01551.verify +++| 01612 M01S01552.verify +++| 01613 M01S01553.verify +++| BS CON -1 MAXIMUM BLOCK SIZE 01614 M01S01554.verify +++| CM CON 0 CODED MODE 01615 M01S01555.verify +++| STAT VFD 30/-1,30/0 FIELD LENGTH STATUS WORD 01616 M01S01556.verify +++| SPACE 4,10 01617 M01S01557.verify +++|** COMMON DECKS. 01618 M01S01558.verify +++| 01619 M01S01559.verify +++| 01620 M01S01560.verify +++|*CALL COMCARG 01621 M01S00021.ns22000 +++|*CALL COMCCPM 01622 M01S01561.verify +++|*CALL COMCDXB 01623 M01S01562.verify +++|*CALL COMCLFM 01624 M01S01563.verify +++|*CALL COMCSTF 01625 M01S01564.verify +++| SPACE 4 01626 M01S01565.verify +++| END
cdc/nos2.source/opl.opl871/deck/verify.txt · Last modified: by 127.0.0.1