cdc:nos2.source:opl.opl871:deck:verify
Deck VERIFY
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.verify +++| IDENT VERIFY,FETS 00002 M00S00002.verify +++| ABS 00003 M00S00003.verify +++| ENTRY VERIFY 00004 M00S00004.verify +++| ENTRY RFL= 00005 M00S00005.verify +++| ENTRY SSM= 00006 M00S00006.verify +++| SYSCOM B1 DEFINE (B1) = 1 00007 M00S00007.verify +++| SPACE 4,10 00008 M00S00008.verify +++| TITLE VERIFY - VERIFY FILES. 00009 M00S00009.verify +++|*COMMENT VERIFY - VERIFY FILES.
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00012 M00S00011.verify +++| SPACE 4,10 00013 M00S00012.verify +++|***** VERIFY - VERIFY FILES. 00014 M00S00013.verify +++|* 00015 M00S00014.verify +++|* G. R. MANSFIELD. 70/12/20. 00016 M00S00015.verify +++|* 00017 M00S00016.verify +++|* J. L. LARSON. 77/03/16. 00018 M00S00017.verify +++|* 00019 M00S00018.verify +++|* VERIFY EQUALITY OF RECORDS AND FILES ON TWO MEDIA, 00020 M00S00019.verify +++|* WORD BY WORD. 00021 M00S00020.verify +++| SPACE 4,10 00022 M00S00021.verify +++|*** VERIFY COMPARES RECORDS ON TWO MEDIA FOR EQUALITY WORD 00023 M00S00022.verify +++|* BY WORD. WHEN AN ERROR IS DETECTED THE RECORD NUMBER, WORD 00024 M00S00023.verify +++|* NUMBER, AND THE DATA FROM EACH MEDIA ARE LISTED ON THE 00025 M00S00024.verify +++|* OUTPUT FILE. THE LOGICAL DIFFERENCE WILL ALSO BE LISTED ON 00026 M00S00025.verify +++|* THE OUTPUT FILE IF THE OUTPUT FILE IS NOT ASSIGNED TO AN 00027 M00S00026.verify +++|* INTERACTIVE TERMINAL. 00028 M00S00027.verify +++| SPACE 4,10 00029 M00S00028.verify +++|*** CONTROL CARD CALL. 00030 M00S00029.verify +++|* 00031 M00S00030.verify +++|* 00032 M00S00031.verify +++|* VERIFY (FILE1,FILE2,P1,P2,...,PN) 00033 M00S00032.verify +++|* 00034 M00S00033.verify +++|* FILE1 FIRST FILE NAME. 00035 M00S00034.verify +++|* 00036 M00S00035.verify +++|* FILE2 SECOND FILE NAME. 00037 M00S00036.verify +++|* 00038 M00S00037.verify +++|* PN ANY OF FOLLOWING IN ANY ORDER. 00039 M00S00038.verify +++|* 00040 M00S00039.verify +++|* N=X VERIFY X FILES. 00041 M00S00040.verify +++|* IF X = 0, VERIFY WILL TERMINATE ON AN 00042 M00S00041.verify +++|* EMPTY FILE FROM EITHER MEDIA. 00043 M00S00042.verify +++|* 00044 M00S00043.verify +++|* N VERIFY TO EOI. 00045 M00S00044.verify +++|* 00046 M00S00045.verify +++|* E=X LIST FIRST X DATA ERRORS. 00047 M00S00046.verify +++|* 00048 M00S00047.verify +++|* L=FNAME LIST ON FILE *FNAME*. 00049 M00S00048.verify +++|* 00050 M00S00049.verify +++|* A ABORT IF ERRORS OCCUR. 00051 M00S00050.verify +++|* 00052 M00S00051.verify +++|* R REWIND BOTH FILES BEFORE AND AFTER VERIFY. 00053 M00S00052.verify +++|* 00054 M00S00053.verify +++|* C CODED MODE SET ON BOTH FILES. 00055 M00S00054.verify +++|* 00056 M00S00055.verify +++|* C1 CODED MODE SET ON FILE 1 ONLY. 00057 M00S00056.verify +++|* 00058 M00S00057.verify +++|* C2 CODED MODE SET ON FILE 2 ONLY. 00059 M00S00058.verify +++|* 00060 M00S00059.verify +++|* BS=BSIZE MAXIMUM BLOCK SIZE IN CM WORDS. 00061 M00S00060.verify +++|* APPLIES ONLY TO S AND L FORMAT TAPES. 00062 M00S00061.verify +++|* 00063 M00S00062.verify +++|* ASSUMED PARAMETERS. 00064 M00S00063.verify +++|* FILE1 = *TAPE1* 00065 M00S00064.verify +++|* FILE2 = *TAPE2* 00066 M00S00065.verify +++|* N=1 00067 M00S00066.verify +++|* E=100 00068 M00S00067.verify +++|* L=*OUTPUT* 00069 M00S00068.verify +++|* A NOT PRESENT (PROCESS ERRORS) 00070 M00S00069.verify +++|* R NOT PRESENT (NO REWIND) 00071 M00S00070.verify +++|* C, C1, C2 NOT PRESENT (BINARY) 00072 M00S00071.verify +++|* BS = 1000B FOR S FORMAT TAPE. 00073 M00S00072.verify +++|* BS = 2000B FOR L FORMAT TAPE. 00074 M00S00073.verify +++| SPACE 4,10 00075 M00S00074.verify +++|*** DAYFILE MESSAGES. 00076 M00S00075.verify +++|* 00077 M00S00076.verify +++|* 00078 M00S00077.verify +++|* * FILE NOT FOUND - LFN.* = WARNING MESSAGE INDICATING THAT 00079 M00S00078.verify +++|* LFN DID NOT EXIST PRIOR TO VERIFY. 00080 M00S00079.verify +++|* 00081 M00S00080.verify +++|* * FILE STRUCTURES NOT COMPATIBLE.* = WARNING MESSAGE ISSUED 00082 M00S00081.verify +++|* BEFORE VERIFICATION BEGINS, TO INDICATE THAT THE RESULTS 00083 M00S00082.verify +++|* OF THE VERIFY ARE NOT GUARANTEED SINCE THE LOGICAL 00084 M00S00083.verify +++|* STRUCTURES OF THE FILES BEING COMPARED ARE NOT COMPATIBLE. 00085 M00S00084.verify +++|* 00086 M00S00085.verify +++|* * VERIFY ARGUMENT ERROR.* = CONTROL CARD CONTAINS ILLEGAL 00087 M00S00086.verify +++|* PARAMETER. 00088 M00S00087.verify +++|* 00089 M00S00088.verify +++|* * VERIFY COMPLETE.* = VERIFY OPERATION COMPLETED WITH NO 00090 M00S00089.verify +++|* ERRORS. 00091 M00S00090.verify +++|* 00092 M00S00091.verify +++|* * VERIFY ERRORS.* = ERRORS DETECTED DURING VERIFY. 00093 M00S00092.verify +++|* 00094 M00S00093.verify +++|* * VERIFY FILE NAME CONFLICT - LFN.* = REQUESTED FILE NAMES 00095 M00S00094.verify +++|* THE SAME. 00096 M00S00095.verify +++|* 00097 M00S00096.verify +++|* * VERIFY FL ABOVE USER LIMIT.* = FIELD LENGTH REQUIRED 00098 M00S00097.verify +++|* TO PROCESS L OR F TAPE VERIFY EXCEEDS USERS CURRENT 00099 M00S00098.verify +++|* MAXIMUM FL. 00100 M00S00099.verify +++| SPACE 4,10 00101 M00S00100.verify +++|**** ASSEMBLY CONSTANTS. 00102 M00S00101.verify +++| 00103 M00S00102.verify +++|
| Line S00103 Modification History | |
|---|---|
M01 (Removed by) | ns2272 |
Seq # *Modification Id* Act ----------------------------+ 00104 M01S00103.ns2272 ---| BUFL EQU 100B WORKING BUFFER LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2272 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00105 M02S00001.274l797 ---| BUFL EQU 1000B WORKING BUFFER LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00106 M01S00001.274l797 +++| BUFL EQU 4000B WORKING BUFFER LENGTH = MAX PRUSIZE (OD) 00107 M00S00104.verify +++| OBUFL EQU 1001B OUTPUT FILE BUFFER LENGTH
| Line S00105 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00105.274l797 ---| FBUFL EQU 4011B VERIFY FILES BUFFER LENGTH
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00109 M01S00002.274l797 +++| FBUFL EQU 30061B VERIFY FILES BUFFER LENGTH
| Line S00106 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00106.274l797 ---|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00111 M01S00003.274l797 +++| FETODL EQU 16 OPTICAL DISK FET EXTENSION BUFFER 00112 M01S00004.274l797 +++| 00113 M00S00107.verify +++| DSPS EQU 1000B DEFAULT S TAPE PRU SIZE 00114 M00S00108.verify +++| DLPS EQU 2000B DEFAULT L TAPE PRU SIZE 00115 M00S00109.verify +++| MSPS EQU 1000B MAXIMUM S TAPE PRU SIZE 00116 M00S00110.verify +++|
| Line S00111 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00117 M01S00111.274l797 ---| MFLF EQU 45000B-2 MAXIMUM FIELD LENGTH FACTOR
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00118 M01S00005.274l797 +++| MFLF EQU 70000B-2 MAXIMUM FIELD LENGTH FACTOR 00119 M00S00112.verify +++|**** 00120 M00S00113.verify +++| 00121 M00S00114.verify +++| 00122 M00S00115.verify +++|* SPECIAL ENTRY POINT. 00123 M00S00116.verify +++| 00124 M00S00117.verify +++| SSM= EQU 0 SUPPRESS DUMPS OF FIELD LENGTH 00125 M00S00118.verify +++| READW SPACE 4,10 00126 M00S00119.verify +++|** READW - REDEFINE READ WORDS MACRO TO USE CONTROL WORDS. 00127 M00S00120.verify +++| 00128 M00S00121.verify +++| 00129 M00S00122.verify +++| PURGMAC READW 00130 M00S00123.verify +++| 00131 M00S00124.verify +++| READW MACRO F,S,N 00132 M00S00125.verify +++| R= B6,S 00133 M00S00126.verify +++| R= B7,N 00134 M00S00127.verify +++| R= X2,F 00135 M00S00128.verify +++| RJ RDA 00136 M00S00129.verify +++| ENDM 00137 M00S00130.verify +++| SPACE 4 00138 M00S00131.verify +++|*CALL COMCMAC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00001.ns22000 +++|*CALL COMCCMD 00140 M00S00132.verify +++|*CALL COMSLFM 00141 M00S00133.verify +++| QUAL MTX 00142 M00S00134.verify +++|*CALL COMSMTX 00143 M00S00135.verify +++| QUAL *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00144 M01S00001.251l664 +++|*CALL COMSSRT 00145 M00S00136.verify +++| TITLE STORAGE ASSIGNMENTS. 00146 M00S00137.verify +++|* FETS. 00147 M00S00138.verify +++| 00148 M00S00139.verify +++| 00149 M00S00140.verify +++| ORG 110B 00150 M00S00141.verify +++| FETS BSS 0 00151 M00S00142.verify +++| 00152 M00S00143.verify +++| 00153 M00S00144.verify +++| O BSS 0 00154 M00S00145.verify +++| OUTPUT FILEC OBUF,OBUFL,(FET=8) 00155 M00S00146.verify +++| 00156 M00S00147.verify +++| 00157 M00S00148.verify +++|* INDEX TAGS FOR WORDS PRECEEDING FILE 1 AND FILE 2 FETS. 00158 M00S00149.verify +++| 00159 M00S00150.verify +++| 00160 M00S00151.verify +++| EFF EQU 8 EMPTY FILE FLAG 00161 M00S00152.verify +++| LWD EQU 7 LWA+1 DATA TRANSFERRED TO WORKING BUFFER 00162 M00S00153.verify +++| RST EQU 6 LAST READ STATUS 00163 M00S00154.verify +++| CWF EQU 5 CONTROL WORD FLAG 00164 M00S00155.verify +++| SLF EQU 4 S, L, OR F TAPE FLAG 00165 M00S00156.verify +++| UBC EQU 3 UNUSED BIT COUNT 00166 M00S00157.verify +++| WRB EQU 2 WORDS REMAINING IN BLOCK 00167 M00S00158.verify +++| ERF EQU 1 EOR FLAG 00168 M00S00159.verify +++| 00169 M00S00160.verify +++| 00170 M00S00161.verify +++| CON 0 ZERO IF EMPTY FILE ENCOUNTERED ON FILE 1 00171 M00S00162.verify +++| CON 0 LWA+1 DATA IN WORKING BUFFER FOR FILE 1 00172 M00S00163.verify +++| CON 0 FILE 1 LAST READ STATUS 00173 M00S00164.verify +++| CON 0 NONZERO IF CONTROL WORDS ENABLED ON FILE 1 00174 M00S00165.verify +++| CON 0 1= S TAPE, 2= L TAPE, -1= F TAPE, 0= OTHER 00175 M00S00166.verify +++| CON 0 UNUSED BIT COUNT FOR FILE 1 BLOCK 00176 M00S00167.verify +++| CON 0 WORDS REMAINING IN FILE 1 BLOCK 00177 M00S00168.verify +++| CON 0 EOR FLAG 00178 M00S00169.verify +++| F1 BSS 0 00179 M00S00170.verify +++| TAPE1 FILEB BUF1,FBUFL,(FET=9)
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00180 M01S00006.274l797 +++| BSSZ FETODL TAPE1 OD FET EXTENSION BUFFER 00181 M00S00171.verify +++| 00182 M00S00172.verify +++| 00183 M00S00173.verify +++| CON 0 ZERO IF EMPTY FILE ENCOUNTERED ON FILE 2 00184 M00S00174.verify +++| CON 0 LWA+1 DATA IN WORKING BUFFER FOR FILE 2 00185 M00S00175.verify +++| CON 0 FILE 2 LAST READ STATUS 00186 M00S00176.verify +++| CON 0 NONZERO IF CONTROL WORDS ENABLED ON FILE 2 00187 M00S00177.verify +++| CON 0 1= S TAPE, 2= L TAPE, -1= F TAPE, 0= OTHER 00188 M00S00178.verify +++| CON 0 UNUSED BIT COUNT FOR FILE 2 BLOCK 00189 M00S00179.verify +++| CON 0 WORDS REMAINING IN FILE 2 BLOCK 00190 M00S00180.verify +++| CON 0 EOR FLAG 00191 M00S00181.verify +++| F2 BSS 0 00192 M00S00182.verify +++| TAPE2 FILEB BUF2,FBUFL,(FET=9)
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00193 M01S00007.274l797 +++| BSSZ FETODL TAPE2 OD FET EXTENSION BUFFER 00194 M00S00183.verify +++| SPACE 4 00195 M00S00184.verify +++|* COMMON DATA. 00196 M00S00185.verify +++| 00197 M00S00186.verify +++| 00198 M00S00187.verify +++| EC CON 0 ERROR COUNT 00199 M00S00188.verify +++| EL CON 0L100 ERROR LIMIT 00200 M00S00189.verify +++| FC CON 0L1 FILE COUNT 00201 M00S00190.verify +++| DFN CON 0 DISPLAY FILE NUMBER 00202 M00S00191.verify +++| EOIF CON 0 NONZERO IF EOI ENCOUNTERED ON EIHER FILE 00203 M00S00192.verify +++| AB CON 0 ABORT FLAG 00204 M00S00193.verify +++| RW CON 0 REWIND FLAG 00205 M00S00194.verify +++| FN CON 1 FILE NUMBER 00206 M00S00195.verify +++| RN CON 1 RECORD NUMBER 00207 M00S00196.verify +++| ER CON 0 WORD NUMBER 00208 M00S00197.verify +++| CON 0 WORD FROM FILE 1 00209 M00S00198.verify +++| CON 0 WORD FROM FILE 2 00210 M00S00199.verify +++| CON 0 LOGICAL DIFFERENCE 00211 M00S00200.verify +++| TY CON 0 RECORD TYPE FROM FILE 1 00212 M00S00201.verify +++| CON 0 RECORD TYPE FROM FILE 2 00213 M00S00202.verify +++| 00214 M00S00203.verify +++|* LIST DATA. 00215 M00S00204.verify +++|
| Line S00205 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00205.ns22000 ---| LC CON LINP+4 LINE COUNTER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00206.verify +++| PN CON 1 PAGE NUMBER 00221 M00S00207.verify +++| PW CON 0 PAGE WIDTH 00222 M00S00208.verify +++| 00223 M00S00209.verify +++| TITL DATA 50H VERIFY ERROR LIST. 00224 M00S00210.verify +++| DATE DATA 1H 00225 M00S00211.verify +++| TIME DATA 1H 00226 M00S00212.verify +++| DATA 30H 00227 M00S00213.verify +++| DATA 4APAGE 00228 M00S00214.verify +++| PAGE DATA 8L 00229 M00S00215.verify +++| TITLL EQU *-TITL 00230 M00S00216.verify +++| TITSL EQU TITLL-5 SHORT TITLE LENGTH 00231 M00S00217.verify +++|
| Line S00218 Modification History | |
|---|---|
M01 (Removed by) | verif1 |
Seq # *Modification Id* Act ----------------------------+ 00232 M01S00218.verif1 ---| SBTL DATA 10HRECORD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | verif1 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00001.verif1 +++| SBTL DATA 10H RECORD 00234 M00S00219.verify +++| DATA 10HWORD 00235 M00S00220.verify +++| DATA 10HDATA FROM 00236 M00S00221.verify +++| F1NM DATA 20H 00237 M00S00222.verify +++| DATA 10HDATA FROM 00238 M00S00223.verify +++| F2NM DATA 10H 00239 M00S00224.verify +++| DATA 2ALO 00240 M00S00225.verify +++| DATA 20CGICAL DIFFERENCE 00241 M00S00226.verify +++| DATA 2L 00242 M00S00227.verify +++| SBTLL EQU *-SBTL 00243 M00S00228.verify +++| SBTSL EQU SBTLL-5 SHORT SUBTITLE LENGTH 00244 M00S00229.verify +++| VERIFY TITLE MAIN PROGRAM. 00245 M00S00230.verify +++|** VERIFY - MAIN PROGRAM. 00246 M00S00231.verify +++| 00247 M00S00232.verify +++| 00248 M00S00233.verify +++| VERIFY SB1 1 (B1) = 1 00249 M00S00234.verify +++| RJ PRS PRESET PROGRAM 00250 M00S00235.verify +++| RECALL F1 00251 M00S00236.verify +++| RECALL F2
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00237.verify +++| VFY1 BX6 X6-X6 CLEAR EMPTY FILE FLAGS 00256 M00S00238.verify +++| SX7 B1 INITIALIZE RECORD NUMBER 00257 M00S00239.verify +++| SA6 F1-EFF 00258 M00S00240.verify +++| SX0 B0+ INDICATE INITIAL READ 00259 M00S00241.verify +++| SA6 F2-EFF 00260 M00S00242.verify +++| SA7 RN 00261 M00S00243.verify +++| SA6 LEWA CLEAR ERROR LINE RECORD NUMBER 00262 M00S00244.verify +++| VFY2 SX2 F1 INITIATE READ FUNCTION ON FILE 1 00263 M00S00245.verify +++| RJ IRF 00264 M00S00246.verify +++| SX2 F2 INITIATE READ FUNCTION ON FILE 2 00265 M00S00247.verify +++| RJ IRF 00266 M00S00248.verify +++| SX7 B0+ CLEAR WORD COUNT 00267 M00S00249.verify +++| SA7 ER 00268 M00S00250.verify +++| READW F1,SBF1,BUFL 00269 M00S00251.verify +++| SX4 X1+B1 00270 M00S00252.verify +++| ZR X4,VFY3 IF EOF ON FILE 1 00271 M00S00253.verify +++| SX7 B1+ INDICATE NOT EMPTY FILE 00272 M00S00254.verify +++| SA7 F1-EFF 00273 M00S00255.verify +++| VFY3 READW F2,SBF2,BUFL 00274 M00S00256.verify +++| SA3 F1-RST 00275 M00S00257.verify +++| SX4 X1+B1 00276 M00S00258.verify +++| ZR X4,VFY4 IF EOF ON FILE 2 00277 M00S00259.verify +++| SX7 B1 INDICATE NOT EMPTY FILE 00278 M00S00260.verify +++| BX4 X1+X3 00279 M00S00261.verify +++| SA7 F2-EFF 00280 M00S00262.verify +++| NG X4,VFY4 IF EOF OR EOI ON EITHER FILE 00281 M00S00263.verify +++| RJ SRM SEND RECORD MESSAGE 00282 M00S00264.verify +++| RJ CPR COMPARE RECORDS 00283 M00S00265.verify +++| SA1 RN ADVANCE RECORD NUMBER 00284 M00S00266.verify +++| SX0 B1 INDICATE NON-INITIAL READ 00285 M00S00267.verify +++| SX6 X1+B1 00286 M00S00268.verify +++| SA6 A1 00287 M00S00269.verify +++| EQ VFY2 CONTINUE RECORD COMPARISONS 00288 M00S00270.verify +++| 00289 M00S00271.verify +++|* PROCESS EXCESS RECORDS OR FILES. 00290 M00S00272.verify +++| 00291 M00S00273.verify +++| VFY4 SA4 EOIF CHECK EOI ENCOUNTERED FLAG 00292 M00S00274.verify +++| SA0 F2 00293 M00S00275.verify +++| SX4 X4-F1 00294 M00S00276.verify +++| SX2 SBF2 00295 M00S00277.verify +++| ZR X4,VFY6 IF EXTRA FILES ON FILE 2 00296 M00S00278.verify +++| PL X4,VFY5 IF EXTRA FILES ON FILE 1 00297 M00S00279.verify +++| BX6 X1*X3 00298 M00S00280.verify +++| NG X6,VFY7 IF EOF OR EOI ON BOTH FILES 00299 M00S00281.verify +++| NG X3,VFY6 IF EXTRA RECORDS ON FILE 2 00300 M00S00282.verify +++| VFY5 SA0 F1 00301 M00S00283.verify +++| SX2 SBF1 00302 M00S00284.verify +++| BX1 X3 00303 M00S00285.verify +++| VFY6 RJ EXR PROCESS EXCESS RECORDS OR FILES 00304 M00S00286.verify +++| 00305 M00S00287.verify +++|* CHECK FOR EOI. 00306 M00S00288.verify +++| 00307 M00S00289.verify +++| VFY7 SA1 F1-RST CHECK FILE STATUS 00308 M00S00290.verify +++| SA2 F2-RST 00309 M00S00291.verify +++| SX1 X1+B1 00310 M00S00292.verify +++| SX2 X2+B1 00311 M00S00293.verify +++| BX3 X1*X2 00312 M00S00294.verify +++| BX4 X1+X2 00313 M00S00295.verify +++| NG X3,VFY11 IF EOI ENCOUNTERED ON BOTH FILES 00314 M00S00296.verify +++| PL X4,VFY9 IF EOF ENCOUNTERED ON BOTH FILES 00315 M00S00297.verify +++| SA3 EOIF 00316 M00S00298.verify +++| NZ X3,VFY9 IF EOI PREVIOUSLY ENCOUNTERED 00317 M00S00299.verify +++| SX6 F1 SET EOI ENCOUNTERED FLAG 00318 M00S00300.verify +++| NG X1,VFY8 IF EOI ON FILE 1 00319 M00S00301.verify +++| SX6 F2 00320 M00S00302.verify +++| VFY8 SA6 A3 00321 M00S00303.verify +++| SA1 EXRG BUILD EXCESS FILE LINE 00322 M00S00304.verify +++| SA2 A1+B1 00323 M00S00305.verify +++| BX6 X1 00324 M00S00306.verify +++| SA6 EXRD 00325 M00S00307.verify +++| LX7 X2 00326 M00S00308.verify +++| SA7 A6+B1 00327 M00S00309.verify +++| SA3 =1H CLEAR FILE NUMBER FROM TITLE LINE 00328 M00S00310.verify +++| BX7 X7-X7 CLEAR SUBTITLE LINE 00329 M00S00311.verify +++| LX6 X3 00330 M00S00312.verify +++| SA7 SBTL
| Line S00313 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00331 M01S00313.ns22000 ---| SX7 LINP FORCE PAGE EJECT
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00332 M01S00008.ns22000 +++| SX7 99999 FORCE PAGE EJECT 00333 M00S00314.verify +++| SA7 LC 00334 M00S00315.verify +++| 00335 M00S00316.verify +++|* CHECK FOR VERIFY COMPLETE. 00336 M00S00317.verify +++| 00337 M00S00318.verify +++| VFY9 RJ EOF PROCESS END OF FILE 00338 M00S00319.verify +++| SA1 FC 00339 M00S00320.verify +++| ZR X1,VFY10 IF EMPTY FILE REQUEST 00340 M00S00321.verify +++| SX2 B1 DECREMENT FILE COUNT 00341 M00S00322.verify +++| IX6 X1-X2 00342 M00S00323.verify +++| SA6 A1+ 00343 M00S00324.verify +++| ZR X6,VFY11 IF FILE COUNT EXHAUSTED 00344 M00S00325.verify +++| EQ VFY1 CONTINUE VERIFY 00345 M00S00326.verify +++| 00346 M00S00327.verify +++| VFY10 SA1 F1-EFF CHECK FOR EMPTY FILE 00347 M00S00328.verify +++| SA2 F2-EFF 00348 M00S00329.verify +++| BX1 X1*X2 00349 M00S00330.verify +++| NZ X1,VFY1 IF NO EMPTY FILE ENCOUNTERED 00350 M00S00331.verify +++| 00351 M00S00332.verify +++|* PROCESS REWIND REQUEST, ISSUE COMPLETION MESSAGE, 00352 M00S00333.verify +++|* AND END OR ABORT. 00353 M00S00334.verify +++| 00354 M00S00335.verify +++| VFY11 SA1 RW 00355 M00S00336.verify +++| ZR X1,VFY12 IF NO REWIND 00356 M00S00337.verify +++| REWIND F1 00357 M00S00338.verify +++| REWIND F2 00358 M00S00339.verify +++| VFY12 SA1 EC 00359 M00S00340.verify +++| NZ X1,VFY14 IF ERRORS DETECTED 00360 M00S00341.verify +++| MESSAGE (=C* VERIFY GOOD.*) 00361 M00S00342.verify +++| VFY13 ENDRUN 00362 M00S00343.verify +++| 00363 M00S00344.verify +++| VFY14 WRITER O FLUSH OUTPUT BUFFER 00364 M00S00345.verify +++| MESSAGE (=C* VERIFY ERRORS.*) 00365 M00S00346.verify +++| SA1 AB 00366 M00S00347.verify +++| ZR X1,VFY13 IF ABORT NOT REQUESTED 00367 M00S00348.verify +++| ABORT 00368 M00S00349.verify +++| TITLE SUBROUTINES. 00369 M00S00350.verify +++| CPR SPACE 4,10 00370 M00S00351.verify +++|** CPR - COMPARE RECORDS. 00371 M00S00352.verify +++|* 00372 M00S00353.verify +++|* ENTRY (F1-RST) = FILE 1 READ STATUS. 00373 M00S00354.verify +++|* (F2-RST) = FILE 2 READ STATUS. 00374 M00S00355.verify +++|* (F1-LWD) = LWA+1 DATA IN WORKING BUFFER FOR FILE 1. 00375 M00S00356.verify +++|* (F2-LWD) = LWA+1 DATA IN WORKING BUFFER FOR FILE 2. 00376 M00S00357.verify +++|* 00377 M00S00358.verify +++|* USES A - ALL. 00378 M00S00359.verify +++|* X - ALL. 00379 M00S00360.verify +++|* 00380 M00S00361.verify +++|* CALLS CDD, COD, LEW, WOF. 00381 M00S00362.verify +++|* 00382 M00S00363.verify +++|* MACROS READW. 00383 M00S00364.verify +++| 00384 M00S00365.verify +++| 00385 M00S00366.verify +++| CPR SUBR ENTRY/EXIT 00386 M00S00367.verify +++| CPR1 SA4 F1-LWD GET LWA+1 DATA FOR FILE 1 00387 M00S00368.verify +++| SA5 F2-LWD GET LWA+1 DATA FOR FILE 2 00388 M00S00369.verify +++| SX4 X4-SBF1 SET WORD COUNT FOR FILE 1 00389 M00S00370.verify +++| SX5 X5-SBF2 SET WORD COUNT FOR FILE 2 00390 M00S00371.verify +++| IX6 X4-X5 00391 M00S00372.verify +++| PL X6,CPR2 IF FILE 2 WORD COUNT .LE. FILE 1 00392 M00S00373.verify +++| SX5 X4 SET NUMBER OF WORDS TO COMPARE 00393 M00S00374.verify +++| CPR2 SA6 CPRA SAVE WORD COUNT DIFFERENCE 00394 M00S00375.verify +++| ZR X5,CPR6 IF NO DATA TO COMPARE 00395 M00S00376.verify +++| SA0 B0+ INITIALIZE WORD INDEX 00396 M00S00377.verify +++| 00397 M00S00378.verify +++|* COMPARE DATA WORDS. 00398 M00S00379.verify +++| 00399 M00S00380.verify +++| CPR3 SA1 SBF1+A0 COMPARE FILE 1 AND FILE 2 DATA WORDS 00400 M00S00381.verify +++| SA2 SBF2+A0 00401 M00S00382.verify +++| BX6 X1-X2 00402 M00S00383.verify +++| NZ X6,CPR4 IF NO MATCH 00403 M00S00384.verify +++| PL X6,CPR5 IF MATCH 00404 M00S00385.verify +++| CPR4 SA6 ER+3 STORE DIFFERENCE 00405 M00S00386.verify +++| BX7 X2 STORE WORD 2 00406 M00S00387.verify +++| LX6 X1 STORE WORD 1 00407 M00S00388.verify +++| SA7 A6-B1 00408 M00S00389.verify +++| SA6 A7-B1 00409 M00S00390.verify +++| RJ LEW LIST ERROR WORDS 00410 M00S00391.verify +++| CPR5 SA1 ER ADVANCE WORD NUMBER 00411 M00S00392.verify +++| SX2 B1 00412 M00S00393.verify +++| IX7 X1+X2 00413 M00S00394.verify +++| SA0 A0+B1 ADVANCE WORD INDEX 00414 M00S00395.verify +++| IX5 X5-X2 DECREMENT WORD COUNT 00415 M00S00396.verify +++| SA7 A1 00416 M00S00397.verify +++| NZ X5,CPR3 IF MORE WORDS TO COMPARE 00417 M00S00398.verify +++| CPR6 SA5 CPRA GET WORD COUNT DIFFERENCE 00418 M00S00399.verify +++| NZ X5,CPR7 IF EXCESS WORDS 00419 M00S00400.verify +++| SA1 F1-RST GET FILE 1 READ STATUS 00420 M00S00401.verify +++| NZ X1,CPR11 IF EOR/EOF/EOI ENCOUNTERED ON BOTH FILES 00421 M00S00402.verify +++| READW F1,SBF1,BUFL 00422 M00S00403.verify +++| READW F2,SBF2,BUFL 00423 M00S00404.verify +++| EQ CPR1 CONTINUE PROCESSING DATA IN RECORD 00424 M00S00405.verify +++| 00425 M00S00406.verify +++|* PROCESS EXCESS WORDS. 00426 M00S00407.verify +++| 00427 M00S00408.verify +++| CPR7 SX2 F1 00428 M00S00409.verify +++| SX0 B0+ 00429 M00S00410.verify +++| PL X5,CPR8 IF FILE 1 RECORD LONGER 00430 M00S00411.verify +++| SX2 F2 00431 M00S00412.verify +++| BX5 -X5 00432 M00S00413.verify +++| CPR8 SA1 X2-RST CHECK FILE LAST READ STATUS 00433 M00S00414.verify +++| NZ X1,CPR10 IF EOR/EOF/EOI ENCOUNTERED 00434 M00S00415.verify +++| CPR9 IX5 X5+X0 COUNT EXCESS WORDS 00435 M00S00416.verify +++| READW X2,SBF1,BUFL 00436 M00S00417.verify +++| SX0 BUFL 00437 M00S00418.verify +++| ZR X1,CPR9 IF NOT EOR 00438 M00S00419.verify +++| SX0 B6-SBF1 00439 M00S00420.verify +++| IX5 X5+X0 00440 M00S00421.verify +++| CPR10 SA1 X2 SPACE FILL NAME 00441 M00S00422.verify +++| MX0 42 00442 M00S00423.verify +++| BX6 X0*X1 00443 M00S00424.verify +++| SX1 X5 CONVERT WORD COUNT 00444 M00S00425.verify +++| SA6 CPRE 00445 M00S00426.verify +++| RJ COD 00446 M00S00427.verify +++| SA6 CPRD+1 00447 M00S00428.verify +++| SA1 RN CONVERT RECORD NUMBER 00448 M00S00429.verify +++| RJ CDD 00449 M00S00430.verify +++| LX6 30 00450 M00S00431.verify +++| SA1 EC ADVANCE ERROR COUNT 00451 M00S00432.verify +++| SA6 CPRD 00452 M00S00433.verify +++| SX7 X1+B1 00453 M00S00434.verify +++| SA7 A1 00454 M00S00435.verify +++| SX2 CPRL 00455 M00S00436.verify +++| SX1 A6 LIST ERROR LINE 00456 M00S00437.verify +++| RJ WOF 00457 M00S00438.verify +++| 00458 M00S00439.verify +++|* CHECK FOR NONSTANDARD RECORD COMPARED WITH STANDARD RECORD. 00459 M00S00440.verify +++| 00460 M00S00441.verify +++| CPR11 SA2 F1-RST CHECK FILE 1 LAST READ STATUS 00461 M00S00442.verify +++| SA3 F2-RST CHECK FILE 2 LAST READ STATUS 00462 M00S00443.verify +++| MX0 42 00463 M00S00444.verify +++| BX3 X2-X3 00464 M00S00445.verify +++| PL X3,CPRX IF MATCHING RECORD STRUCTURE 00465 M00S00446.verify +++| SA1 F1 00466 M00S00447.verify +++| SA3 EC 00467 M00S00448.verify +++| NG X2,CPR12 IF NONSTANDARD RECORD ON FILE 1 00468 M00S00449.verify +++| SA1 F2 00469 M00S00450.verify +++| CPR12 BX6 X0*X1 SET FILE NAME IN MESSAGE 00470 M00S00451.verify +++| SX7 X3+B1 ADVANCE ERROR COUNT 00471 M00S00452.verify +++| SA6 CPRC 00472 M00S00453.verify +++| SA7 A3 00473 M00S00454.verify +++| SA1 RN CONVERT RECORD NUMBER 00474 M00S00455.verify +++| RJ CDD 00475 M00S00456.verify +++| LX6 30 00476 M00S00457.verify +++| SA6 CPRB 00477 M00S00458.verify +++| SX1 CPRB LIST ERROR LINE 00478 M00S00459.verify +++| SX2 CPRL 00479 M00S00460.verify +++| RJ WOF 00480 M00S00461.verify +++| EQ CPRX RETURN 00481 M00S00462.verify +++| 00482 M00S00463.verify +++| 00483 M00S00464.verify +++| CPRA CON 0 WORD COUNT DIFFERENCE 00484 M00S00465.verify +++| 00485 M00S00466.verify +++| CPRB DATA 1H 00486 M00S00467.verify +++| DATA 1H 00487 M00S00468.verify +++| DATA 20H EOR MISSING ON 00488 M00S00469.verify +++| CPRC DATA 1H 00489 M00S00470.verify +++| 00490 M00S00471.verify +++| CPRD DATA 1H 00491 M00S00472.verify +++| DATA 1H 00492 M00S00473.verify +++| DATA 20H EXCESS WORD(S) ON 00493 M00S00474.verify +++| CPRE DATA 1H 00494 M00S00475.verify +++| CPRL EQU *-CPRD 00495 M00S00476.verify +++| EOF SPACE 4,10 00496 M00S00477.verify +++|** EOF - PROCESS END OF FILE. 00497 M00S00478.verify +++|* 00498 M00S00479.verify +++|* USES A - 1, 6, 7. 00499 M00S00480.verify +++|* X - 1, 6, 7. 00500 M00S00481.verify +++|* 00501 M00S00482.verify +++|* CALLS CDD. 00502 M00S00483.verify +++| 00503 M00S00484.verify +++| 00504 M00S00485.verify +++| EOF SUBR ENTRY/EXIT 00505 M00S00486.verify +++| SA1 FN ADVANCE FILE NUMBER 00506 M00S00487.verify +++| SX6 X1+B1 00507 M00S00488.verify +++| SA6 A1 00508 M00S00489.verify +++| SX1 X6 CONVERT NUMBER 00509 M00S00490.verify +++| RJ CDD 00510 M00S00491.verify +++| SA1 =10HVERIFYING 00511 M00S00492.verify +++| LX6 5*6 00512 M00S00493.verify +++| BX7 X1 00513 M00S00494.verify +++| SA7 SRMA 00514 M00S00495.verify +++| SB2 B2-B1 CLEAR BLANK FILL FROM FILE NUMBER 00515 M00S00496.verify +++| MX7 1 00516 M00S00497.verify +++| AX7 B2 00517 M00S00498.verify +++| BX7 X7*X4 00518 M00S00499.verify +++| SA1 EOIF 00519 M00S00500.verify +++| SA7 DFN SAVE DISPLAY FILE NUMBER 00520 M00S00501.verify +++| NZ X1,EOFX IF EOI ENCOUNTERED
| Line S00502 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00521 M01S00502.ns22000 ---| SX7 LINP FORCE PAGE EJECT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00522 M01S00009.ns22000 +++| SX7 99999 FORCE PAGE EJECT 00523 M00S00503.verify +++| SA7 LC 00524 M00S00504.verify +++| EQ EOFX RETURN 00525 M00S00505.verify +++| EXR SPACE 4,15 00526 M00S00506.verify +++|** EXR - PROCESS EXCESS RECORDS. 00527 M00S00507.verify +++|* 00528 M00S00508.verify +++|* ENTRY (A0) = FET ADDRESS. 00529 M00S00509.verify +++|* (X2) = BUFFER ADDRESS. 00530 M00S00510.verify +++|* (X1) = FILE READ STATUS. 00531 M00S00511.verify +++|* 00532 M00S00512.verify +++|* USES A - 1, 2, 3, 4, 6, 7. 00533 M00S00513.verify +++|* B - 2, 5. 00534 M00S00514.verify +++|* X - ALL. 00535 M00S00515.verify +++|* 00536 M00S00516.verify +++|* CALLS CDD, CIO=, RDA, SFN, SNM, SRT, SYS=, WOF. 00537 M00S00517.verify +++|* 00538 M00S00518.verify +++|* MACROS MESSAGE, READ, READW. 00539 M00S00519.verify +++| 00540 M00S00520.verify +++| 00541 M00S00521.verify +++| EXR5 SA1 RN 00542 M00S00522.verify +++| ZR X5,EXR6 IF NO DATA TRANSFERRED 00543 M00S00523.verify +++| SX1 X1+B1 INCREMENT RECORD COUNT 00544 M00S00524.verify +++| EXR6 RJ CDD CONVERT RECORD COUNT TO DISPLAY 00545 M00S00525.verify +++| SA6 EXRC 00546 M00S00526.verify +++| SA1 A0+ ADD FILE NAME 00547 M00S00527.verify +++| MX2 42 00548 M00S00528.verify +++| SX3 1R 00549 M00S00529.verify +++| BX6 X2*X1 00550 M00S00530.verify +++| SA4 EOIF 00551 M00S00531.verify +++| BX6 X6+X3 00552 M00S00532.verify +++| LX6 -6 00553 M00S00533.verify +++| SA6 EXRE 00554 M00S00534.verify +++| ZR X4,EXR7 IF EOI NOT ENCOUNTERED ON EITHER FILE 00555 M00S00535.verify +++| SA1 EXRH 00556 M00S00536.verify +++| SA6 EXRF 00557 M00S00537.verify +++| SA2 A1+B1 00558 M00S00538.verify +++| BX6 X1 00559 M00S00539.verify +++| SA6 EXRE 00560 M00S00540.verify +++| LX7 X2 00561 M00S00541.verify +++| SA7 A6+B1 00562 M00S00542.verify +++| SA1 DFN GET DISPLAY CODE FILE NUMBER 00563 M00S00543.verify +++| SB2 1RZ 00564 M00S00544.verify +++| SB5 EXRB 00565 M00S00545.verify +++| RJ SNM ENTER FILE NUMBER INTO MESSAGE 00566 M00S00546.verify +++| EXR7 SX1 EXRB 00567 M00S00547.verify +++| SA3 PW 00568 M00S00548.verify +++| NZ X3,EXR8 IF NOT SHORT FORMAT 00569 M00S00549.verify +++| SA4 EXRB 00570 M00S00550.verify +++| MX3 6 00571 M00S00551.verify +++| BX6 -X3*X4 00572 M00S00552.verify +++| SA3 =1L 00573 M00S00553.verify +++| BX6 X3+X6 00574 M00S00554.verify +++| SA6 A4 00575 M00S00555.verify +++| EXR8 RJ WOF WRITE EXCESS RECORDS/FILE LINE 00576 M00S00556.verify +++| 00577 M00S00557.verify +++| EXR SUBR ENTRY/EXIT 00578 M00S00558.verify +++| SA3 EC ADVANCE ERROR COUNT 00579 M00S00559.verify +++| BX7 X7-X7 CLEAR EXCESS RECORD COUNT 00580 M00S00560.verify +++| SX6 X3+B1 00581 M00S00561.verify +++| SA7 RN 00582 M00S00562.verify +++| SA6 A3 00583 M00S00563.verify +++| BX5 X5-X5 CLEAR DATA TRANSFERRED FLAG 00584 M00S00564.verify +++| SX0 B1 SET PREVIOUS EOR FLAG 00585 M00S00565.verify +++| EQ EXR3 DISPLAY RECORD NAME 00586 M00S00566.verify +++| 00587 M00S00567.verify +++| EXR1 SA4 RN INCREMENT RECORD COUNT 00588 M00S00568.verify +++| BX5 X5-X5 CLEAR DATA TRANSFERRED FLAG 00589 M00S00569.verify +++| SX6 X4+B1 00590 M00S00570.verify +++| SA3 A0-CWF 00591 M00S00571.verify +++| SA6 A4+ 00592 M00S00572.verify +++| NZ X3,EXR2 IF CONTROL WORDS ENABLED 00593 M00S00573.verify +++| READ A0 00594 M00S00574.verify +++| EXR2 READW A0,SBF1,BUFL 00595 M00S00575.verify +++| SX2 SBF1 00596 M00S00576.verify +++| EXR3 NG X1,EXR5 IF EOF OR EOI ENCOUNTERED 00597 M00S00577.verify +++| SB5 X1 SAVE CURRENT READ STATUS 00598 M00S00578.verify +++| SX5 B1 INDICATE DATA TRANSFERRED 00599 M00S00579.verify +++| ZR X0,EXR4 IF PREVIOUS READ NOT EOR 00600 M00S00580.verify +++| SA1 A0-LWD LWA+1 OF DATA READ 00601 M00S00581.verify +++| RJ SRT SET RECORD TYPE 00602 M00S00582.verify +++| SA7 EXRA+1 00603 M00S00583.verify +++| MESSAGE A7-B1,B1 DISPLAY RECORD NAME 00604 M00S00584.verify +++| EXR4 SX0 B5 00605 M00S00585.verify +++| ZR X0,EXR2 IF NOT EOR 00606 M00S00586.verify +++| EQ EXR1 INCREMENT RECORD COUNT 00607 M00S00587.verify +++| 00608 M00S00588.verify +++| 00609 M00S00589.verify +++| EXRA DATA 10H READING 00610 M00S00590.verify +++| CON 0 00611 M00S00591.verify +++| 00612 M00S00592.verify +++| EXRB DATA 10H0 ***** 00613 M00S00593.verify +++| EXRC CON 0 00614 M00S00594.verify +++| EXRD DATA 20H EXCESS RECORD(S) ON 00615 M00S00595.verify +++| EXRE CON 0,0 00616 M00S00596.verify +++| EXRF CON 0 00617 M00S00597.verify +++| 00618 M00S00598.verify +++| EXRG DATA 20H RECORD(S) IN EXCESS 00619 M00S00599.verify +++| EXRH DATA 20H FILE ZZZZZZZZZZZ ON 00620 M00S00600.verify +++| IRF SPACE 4,15 00621 M00S00601.verify +++|** IRF - INITIATE READ FUNCTION. 00622 M00S00602.verify +++|* 00623 M00S00603.verify +++|* IF EOI STATUS IS DETECTED ON THIS FILE, NO FURTHER READ 00624 M00S00604.verify +++|* FUNCTION IS INITIATED. IF CONTROL WORDS ARE ALLOWED OR IF 00625 M00S00605.verify +++|* EOF STATUS IS DETECTED, NO FURTHER READ IS INITIATED UNLESS 00626 M00S00606.verify +++|* AN INITIAL READ IS REQUESTED (INDICATES PREVIOUS EOF HAS 00627 M00S00607.verify +++|* BEEN PROCESSED). 00628 M00S00608.verify +++|* 00629 M00S00609.verify +++|* ENTRY (X2) = FWA FET. 00630 M00S00610.verify +++|* (X0) = 0, IF INITIAL READ. 00631 M00S00611.verify +++|* 00632 M00S00612.verify +++|* USES A - 1, 3, 6. 00633 M00S00613.verify +++|* X - 1, 3, 6. 00634 M00S00614.verify +++|* 00635 M00S00615.verify +++|* CALLS CIO=. 00636 M00S00616.verify +++| 00637 M00S00617.verify +++| 00638 M00S00618.verify +++| IRF1 PL X3,IRF2 IF NOT EOF 00639 M00S00619.verify +++| NZ X0,IRFX IF NOT INITIAL READ 00640 M00S00620.verify +++| IRF2 READ X2 00641 M00S00621.verify +++| 00642 M00S00622.verify +++| IRF SUBR ENTRY/EXIT 00643 M00S00623.verify +++| SA3 X2 00644 M00S00624.verify +++| SA1 X2-CWF CONTROL WORD FLAG 00645 M00S00625.verify +++| LX3 59-9 CHECK FOR EOI 00646 M00S00626.verify +++| MX6 1 00647 M00S00627.verify +++| NG X3,IRFX IF EOI ENCOUNTERED 00648 M00S00628.verify +++| LX3 59-3-59+9 CHECK FOR EOF 00649 M00S00629.verify +++| ZR X1,IRF1 IF CONTROL WORDS DISABLED 00650 M00S00630.verify +++| NZ X0,IRFX IF NOT INITIAL READ 00651 M00S00631.verify +++| SA6 X2-WRB SET FIRST READ FLAG 00652 M00S00632.verify +++| READCW X2,17B 00653 M00S00633.verify +++| EQ IRFX RETURN 00654 M00S00634.verify +++| LEW SPACE 4,15 00655 M00S00635.verify +++|** LEW - LIST ERROR WORDS. 00656 M00S00636.verify +++|* 00657 M00S00637.verify +++|* ENTRY (RN) = RECORD NUMBER. 00658 M00S00638.verify +++|* (ER) = WORD NUMBER. 00659 M00S00639.verify +++|* (ER+1) = WORD FROM FILE 1. 00660 M00S00640.verify +++|* (ER+2) = WORD FROM FILE 2. 00661 M00S00641.verify +++|* (ER+3) = LOGICAL DIFFERENCE. 00662 M00S00642.verify +++|* 00663 M00S00643.verify +++|* USES A - 1, 2, 3, 6, 7. 00664 M00S00644.verify +++|* B - 7. 00665 M00S00645.verify +++|* X - 1, 2, 3, 4, 6, 7. 00666 M00S00646.verify +++|* 00667 M00S00647.verify +++|* CALLS CDD, COD, UPN, UPW, WOF. 00668 M00S00648.verify +++|* 00669 M00S00649.verify +++|* MACROS MOVE. 00670 M00S00650.verify +++| 00671 M00S00651.verify +++| 00672 M00S00652.verify +++| LEW SUBR ENTRY/EXIT 00673 M00S00653.verify +++| SA2 EL 00674 M00S00654.verify +++| SA3 EC 00675 M00S00655.verify +++| ZR X2,LEW4 IF ERROR LIMIT ZERO 00676 M00S00656.verify +++| IX6 X3-X2 00677 M00S00657.verify +++| PL X6,LEWX IF ERROR LIMIT EXCEEDED 00678 M00S00658.verify +++| SA1 RN CHECK RECORD CHANGE 00679 M00S00659.verify +++| SA2 LEWA 00680 M00S00660.verify +++| BX6 X1-X2 00681 M00S00661.verify +++| ZR X6,LEW3 IF NO CHANGE 00682 M00S00662.verify +++| BX6 X1 00683 M00S00663.verify +++| SA6 A2 SET NEW RECORD 00684 M00S00664.verify +++| SA3 LC CHECK LINE COUNT
| Line S00665 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00685 M01S00665.ns22000 ---| SX7 X3-LINP+9
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00686 M01S00010.ns22000 +++| SX7 X3+5 00687 M01S00011.ns22000 +++| SA1 A3+B1 GET LINE LIMIT 00688 M01S00012.ns22000 +++| IX7 X7-X1 00689 M00S00666.verify +++| NG X7,LEW1 IF NOT BOTTOM OF PAGE
| Line S00667 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00690 M01S00667.ns22000 ---| SX7 LINP FORCE EJECT
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00691 M01S00013.ns22000 +++| SX7 99999 FORCE EJECT 00692 M00S00668.verify +++| SA7 A3 00693 M00S00669.verify +++| EQ LEW2 00694 M00S00670.verify +++| 00695 M00S00671.verify +++| LEW1 SX1 =C* * 00696 M00S00672.verify +++| RJ WOF 00697 M00S00673.verify +++| SX1 =C* * 00698 M00S00674.verify +++| RJ WOF 00699 M00S00675.verify +++| LEW2 SA1 SRMB PRINT RECORD NAME 00700 M00S00676.verify +++| SA2 A1+B1 00701 M00S00677.verify +++| SA3 =3R 00702 M00S00678.verify +++| MX4 -18 00703 M00S00679.verify +++| LX1 18 00704 M00S00680.verify +++| LX2 18 00705 M00S00681.verify +++| BX6 X4*X1 00706 M00S00682.verify +++| IX6 X6+X3 00707 M00S00683.verify +++| BX7 X4*X2 00708 M00S00684.verify +++| IX7 X7+X3 00709 M00S00685.verify +++| SA6 LEWB+3 00710 M00S00686.verify +++| SA7 LEWB+6 00711 M00S00687.verify +++| BX6 -X4*X1 00712 M00S00688.verify +++| BX7 -X4*X2 00713 M00S00689.verify +++| SA1 TY PRINT TYPE 00714 M00S00690.verify +++| SA2 A1+B1 00715 M00S00691.verify +++| SA1 X1+LEWC 00716 M00S00692.verify +++| SA2 X2+LEWC 00717 M00S00693.verify +++| IX6 X6+X1 00718 M00S00694.verify +++| IX7 X7+X2 00719 M00S00695.verify +++| SA6 A6-B1 00720 M00S00696.verify +++| SA7 A7-B1 00721 M00S00697.verify +++| SX1 LEWB 00722 M00S00698.verify +++| RJ WOF 00723 M00S00699.verify +++| SX1 =C* * 00724 M00S00700.verify +++| RJ WOF 00725 M00S00701.verify +++| LEW3 SA1 RN CONVERT RECORD NUMBER 00726 M00S00702.verify +++| RJ CDD 00727 M00S00703.verify +++| SB7 CHAR 00728 M00S00704.verify +++| RJ UPN 00729 M00S00705.verify +++| SA1 ER CONVERT WORD NUMBER 00730 M00S00706.verify +++| RJ COD 00731 M00S00707.verify +++| SX7 1R 00732 M00S00708.verify +++| SA7 B7 00733 M00S00709.verify +++| SA7 A7+B1 00734 M00S00710.verify +++| SA7 A7+B1 00735 M00S00711.verify +++| SB7 A7+B1 00736 M00S00712.verify +++| RJ UPN 00737 M00S00713.verify +++| SA1 ER+1 UNPACK WORD FROM FILE 1 00738 M00S00714.verify +++| SA2 TY 00739 M00S00715.verify +++| RJ UPW 00740 M00S00716.verify +++| SA1 ER+2 UNPACK WORD FROM FILE 2 00741 M00S00717.verify +++| SA2 TY+1 00742 M00S00718.verify +++| SB7 B7-B1 00743 M00S00719.verify +++| RJ UPW 00744 M00S00720.verify +++| SX6 B7+ 00745 M00S00721.verify +++| SA6 LEWL SAVE LENGTH OF SHORT LINE 00746 M00S00722.verify +++| SA1 ER+3 UNPACK LOGICAL DIFFERENCE 00747 M00S00723.verify +++| SA2 TY+1 00748 M00S00724.verify +++| RJ UPW 00749 M00S00725.verify +++| SA1 PW 00750 M00S00726.verify +++| ZR X1,LEW3.1 IF SHORT LINE 00751 M00S00727.verify +++| SX6 B7+ RESET LINE LENGTH 00752 M00S00728.verify +++| SA6 LEWL 00753 M00S00729.verify +++| LEW3.1 SX1 4 00754 M00S00730.verify +++| SX2 CHAR+6 00755 M00S00731.verify +++| SX3 CHAR+11D 00756 M00S00732.verify +++| MOVE X1,X2,X3 PACK RECORD NUMBER INTO WORD COUNT WORD 00757 M00S00733.verify +++| SX6 1RB INSERT OCTAL CHARACTER 00758 M00S00734.verify +++| SX3 CHAR+10D RESET FWA OF LINE 00759 M00S00735.verify +++| SA6 CHAR+23D 00760 M00S00736.verify +++| BX1 -X3 LIST LINE 00761 M00S00737.verify +++| SA2 LEWL 00762 M00S00738.verify +++| IX2 X2-X3 00763 M00S00739.verify +++| RJ WOF 00764 M00S00740.verify +++| LEW4 SA1 EC ADVANCE ERROR COUNT 00765 M00S00741.verify +++| SA2 EL 00766 M00S00742.verify +++| SX6 X1+B1 00767 M00S00743.verify +++| SA6 A1 00768 M00S00744.verify +++| ZR X2,LEWX IF ZERO ERROR LIMIT 00769 M00S00745.verify +++| IX7 X6-X2 00770 M00S00746.verify +++| NG X7,LEWX IF LIMIT NOT REACHED 00771 M00S00747.verify +++| SX1 =C+ ** ERROR LIMIT EXCEEDED **+ 00772 M00S00748.verify +++| RJ WOF 00773 M00S00749.verify +++| SX1 =C* * 00774 M00S00750.verify +++| RJ WOF 00775 M00S00751.verify +++| EQ LEWX RETURN 00776 M00S00752.verify +++| 00777 M00S00753.verify +++| 00778 M00S00754.verify +++| LEWA DATA 0 RECORD NUMBER 00779 M00S00755.verify +++| LEWB DATA 10H 00780 M00S00756.verify +++| DATA 10H 00781 M00S00757.verify +++| DATA 0,0 RECORD NAME 1 00782 M00S00758.verify +++| DATA 20H 00783 M00S00759.verify +++| DATA 0,0 RECORD NAME 2 00784 M00S00760.verify +++|
| Line S00761 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 00785 M01S00761.251l664 ---| LEWC DATA 7L TEXT/ RECORD TYPES 00786 M01S00762.251l664 ---| DATA 7L PP/ 00787 M01S00763.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE 00788 M01S00764.251l664 ---| DATA 7L REL/ 00789 M01S00765.251l664 ---| DATA 7L OVL/ 00790 M01S00766.251l664 ---| DATA 7L ULIB/ 00791 M01S00767.251l664 ---| DATA 7L OPL/ 00792 M01S00768.251l664 ---| DATA 7L OPLC/ 00793 M01S00769.251l664 ---| DATA 7L OPLD/ 00794 M01S00770.251l664 ---| DATA 7L ABS/ 00795 M01S00771.251l664 ---| DATA 7L PPU/ 00796 M01S00772.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE 00797 M01S00773.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE 00798 M01S00774.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE 00799 M01S00775.251l664 ---| DATA 7L CAP/ 00800 M01S00776.251l664 ---| DATA 7L / UNDEFINED RECORD TYPE 00801 M01S00777.251l664 ---| DATA 7L PROC/
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00778.verify +++| LEWL CON 0
00811 M00S00779.verify +++| RDA SPACE 4,20
00812 M00S00780.verify +++|** RDA - READ DATA.
00813 M00S00781.verify +++|* PROCESSES CALLS TO READ WORDS (RDW=).
00814 M00S00782.verify +++|* DEBLOCKS DATA IF CONTROL WORD READS.
00815 M00S00783.verify +++|*
00816 M00S00784.verify +++|* ENTRY (X2) = FWA FET.
00817 M00S00785.verify +++|* (B6) = FWA WORKING BUFFER.
00818 M00S00786.verify +++|* (B7) = NUMBER OF WORDS TO TRANSFER.
00819 M00S00787.verify +++|*
00820 M00S00788.verify +++|* EXIT (X1) = 0, IF TRANSFER COMPLETE.
00821 M00S00789.verify +++|* (X1) = -1, IF EOF DETECTED ON FILE.
00822 M00S00790.verify +++|* (X1) = -2, IF EOI DETECTED ON FILE.
00823 M00S00791.verify +++|* (X1) = (B6), IF EOR DETECTED BEFORE TRANSFER COMPLETE.
00824 M00S00792.verify +++|* (B6) = LWA+1 DATA TRANSFERRED TO WORKING BUFFER.
00825 M00S00793.verify +++|* ((X2)-RST) = (X1).
00826 M00S00794.verify +++|* ((X2)-LWD) = (B6).
00827 M00S00795.verify +++|*
00828 M00S00796.verify +++|* USES A - 1, 3, 4, 6, 7.
00829 M00S00797.verify +++|* B - 3, 4, 5, 6, 7.
00830 M00S00798.verify +++|* X - 1, 3, 4, 6, 7.
00831 M00S00799.verify +++|*
00832 M00S00800.verify +++|* CALLS RDW=.
00833 M00S00801.verify +++|
00834 M00S00802.verify +++|
00835 M00S00803.verify +++| RDA7 SX6 B5-B7 UPDATE WORDS REMAINING
00836 M00S00804.verify +++| SA6 A1
00837 M00S00805.verify +++| RDA8 RJ RDW= READ WORDS
00838 M00S00806.verify +++| SA3 X2-WRB
00839 M00S00807.verify +++| NZ X3,RDA10 IF MORE WORDS IN BLOCK
00840 M00S00808.verify +++| RDA9 SA4 X2-UBC
00841 M00S00809.verify +++| ZR X4,RDA10 IF NO UNUSED BIT COUNT
00842 M00S00810.verify +++| SB3 X4 CLEAR EXTRANEOUS DATA IN LAST WORD
00843 M00S00811.verify +++| MX6 1
00844 M00S00812.verify +++| SB4 B3-B1
00845 M00S00813.verify +++| AX6 B4
00846 M00S00814.verify +++| SA3 B6-B1 LAST WORD TRANSFERRED
00847 M00S00815.verify +++| LX6 B3
00848 M00S00816.verify +++| BX6 -X6*X3
00849 M00S00817.verify +++| SA6 A3
00850 M00S00818.verify +++| RDA10 BX6 X1 SAVE FILE READ STATUS
00851 M00S00819.verify +++| SX7 B6 SAVE LWA+1 DATA IN WORKING BUFFER
00852 M00S00820.verify +++| SA6 X2-RST
00853 M00S00821.verify +++| SA7 X2-LWD
00854 M00S00822.verify +++|
00855 M00S00823.verify +++| RDA SUBR ENTRY/EXIT
00856 M00S00824.verify +++| SA1 X2-CWF
00857 M00S00825.verify +++| ZR X1,RDA8 IF CONTROL WORD READ DISABLED
00858 M00S00826.verify +++| RDA1 SA1 X2-WRB NUMBER OF WORDS BEFORE CONTROL WORD
00859 M00S00827.verify +++| SB5 X1+
00860 M00S00828.verify +++| PL X1,RDA2 IF NOT FIRST READ
00861 M00S00829.verify +++| SX7 B7+ SET WORDS NEEDED
00862 M00S00830.verify +++| SA7 RDAA
00863 M00S00831.verify +++| JP RDA4
00864 M00S00832.verify +++|
00865 M00S00833.verify +++| RDA2 GE B5,B7,RDA7 IF ENOUGH DATA TO FILL BUFFER
00866 M00S00834.verify +++| SA3 X2-ERF CHECK EOR FLAG
00867 M00S00835.verify +++| PL X3,RDA3 IF NOT EOR ON FILE
00868 M00S00836.verify +++| MX6 1 SET NEW READ FLAG
00869 M00S00837.verify +++| SB7 B5+B1 SET WORDS TO READ
00870 M00S00838.verify +++| SA6 A3
00871 M00S00839.verify +++| SA6 A1
00872 M00S00840.verify +++| RJ RDW= READ WORDS
00873 M00S00841.verify +++| SA1 B6-B1 CHECK CONTROL WORD
00874 M00S00842.verify +++| AX1 48
00875 M00S00843.verify +++| SX6 X1-17B
00876 M00S00844.verify +++| MX1 -1
00877 M00S00845.verify +++| SB6 B6-B1 BACK UP LAST WORD ADDRESS
00878 M00S00846.verify +++| ZR X6,RDA10 IF *EOF* CONTROL WORD
00879 M00S00847.verify +++| SX1 B6 SET *EOR* INDICATION
00880 M00S00848.verify +++| EQ RDA9 CLEAR EXTRANEOUS DATA IN LAST DATA WORD
00881 M00S00849.verify +++|
00882 M00S00850.verify +++| RDA3 SX6 B7-B5 SAVE ADDITIONAL WORDS NEEDED
00883 M00S00851.verify +++| SA6 RDAA
00884 M00S00852.verify +++| SB7 B5+B1 SET WORDS TO TRANSFER
00885 M00S00853.verify +++| RJ RDW= READ WORDS
00886 M00S00854.verify +++| SB6 B6-1 BACK UP OVER LAST CONTROL WORD
00887 M00S00855.verify +++| RDA4 SB7 B1 READ CONTROL WORD
00888 M00S00856.verify +++| RJ RDW=
00889 M00S00857.verify +++| NG X1,RDA10 IF EOF/EOI ENCOUNTERED
00890 M00S00858.verify +++| SB6 B6-B1 BACK UP WORKING BUFFER
00891 M00S00859.verify +++| SA1 B6 CONTROL WORD
00892 M00S00860.verify +++|
00893 M00S00861.verify +++|* FOR MASS STORAGE AND WORD BOUNDARY FORMAT TAPES (ALL EXCEPT
00894 M00S00862.verify +++|* S, L, AND F FORMATS), UNUSED BIT COUNT IN CONTROL WORD HEADER
00895 M00S00863.verify +++|* IS ASSUMED ZERO AND BYTE COUNT SHOULD BE A MULTIPLE OF 5.
00896 M00S00864.verify +++|
00897 M00S00865.verify +++| MX3 -24
00898 M00S00866.verify +++| BX7 -X3*X1 BYTE COUNT
00899 M00S00867.verify +++| SX3 4
00900 M00S00868.verify +++| LX4 X7
00901 M00S00869.verify +++| IX7 X7+X3 ROUND UP BYTE COUNT
00902 M00S00870.verify +++| SX3 X3+B1
00903 M00S00871.verify +++| IX7 X7/X3 WORD COUNT
00904 M00S00872.verify +++| MX3 -6
00905 M00S00873.verify +++| SA7 X2-WRB
00906 M00S00874.verify +++| LX1 -24
00907 M00S00875.verify +++| BX6 -X3*X1 UNUSED BIT COUNT (BASED ON BYTE)
00908 M00S00876.verify +++| SX3 5
00909 M00S00877.verify +++| IX3 X7*X3
00910 M00S00878.verify +++| IX4 X3-X4 UNUSED BYTES
00911 M00S00879.verify +++| ZR X4,RDA5 IF NO EXTRANEOUS DATA BYTES
00912 M00S00880.verify +++| SX3 12
00913 M00S00881.verify +++| IX3 X4*X3
00914 M00S00882.verify +++| IX6 X3+X6
00915 M00S00883.verify +++| RDA5 SA6 X2-UBC STORE UNUSED BIT COUNT
00916 M00S00884.verify +++| LX4 X6
00917 M00S00885.verify +++| SX6 -B1 INDICATE EOR
00918 M00S00886.verify +++| NZ X4,RDA6 IF EXTRANEOUS DATA IN LAST WORD
00919 M00S00887.verify +++| SA3 X2-SLF
00920 M00S00888.verify +++| LX1 -12
00921 M00S00889.verify +++| NZ X3,RDA6 IF S, L, OR F TAPE
00922 M00S00890.verify +++| SX1 X1 PRU SIZE
00923 M00S00891.verify +++| IX6 X7-X1 NO EOR IF FULL BLOCK
00924 M00S00892.verify +++| RDA6 SA6 X2-ERF SAVE EOR FLAG
00925 M00S00893.verify +++| SA1 RDAA RESET WORDS NEEDED
00926 M00S00894.verify +++| SB7 X1
00927 M00S00895.verify +++| EQ RDA1 LOOP
00928 M00S00896.verify +++|
00929 M00S00897.verify +++|
00930 M00S00898.verify +++| RDAA CON 0
00931 M00S00899.verify +++| SRM SPACE 4,10
00932 M00S00900.verify +++|** SRM - SEND RECORD MESSAGE.
00933 M00S00901.verify +++|*
00934 M00S00902.verify +++|* ENTRY (F1-LWD) = LWA+1 OF DATA IN FILE 1 BUFFER.
00935 M00S00903.verify +++|* (F2-LWD) = LWA+1 OF DATA IN FILE 2 BUFFER.
00936 M00S00904.verify +++|*
00937 M00S00905.verify +++|* USES A - 1, 6.
00938 M00S00906.verify +++|* X - 1, 2, 6.
00939 M00S00907.verify +++|*
00940 M00S00908.verify +++|* CALLS SFN, SRT, SYS=.
00941 M00S00909.verify +++|
00942 M00S00910.verify +++|
00943 M00S00911.verify +++| SRM SUBR ENTRY/EXIT
00944 M00S00912.verify +++| SA1 F1-LWD LWA+1 OF DATA IN FILE 1
00945 M00S00913.verify +++| SX2 SBF1
00946 M00S00914.verify +++| RJ SRT SET RECORD TYPE
00947 M00S00915.verify +++| SA6 TY
00948 M00S00916.verify +++| BX1 X7
00949 M00S00917.verify +++| RJ SFN SPACE FILL NAME
00950 M00S00918.verify +++| SA6 SRMB
00951 M00S00919.verify +++| SA1 F2-LWD LWA+1 OF DATA IN FILE 2
00952 M00S00920.verify +++| SX2 SBF2
00953 M00S00921.verify +++| RJ SRT SET RECORD TYPE
00954 M00S00922.verify +++| SA6 TY+1
00955 M00S00923.verify +++| BX1 X7
00956 M00S00924.verify +++| RJ SFN SPACE FILL NAME
00957 M00S00925.verify +++| SA6 SRMB+1
00958 M00S00926.verify +++| SA1 EC
00959 M00S00927.verify +++| ZR X1,SRM1 IF NO ERRORS
00960 M00S00928.verify +++| SA1 =0LERRORS.
00961 M00S00929.verify +++| BX6 X1
00962 M00S00930.verify +++| SA6 SRMC
00963 M00S00931.verify +++| SRM1 MESSAGE SRMA,1
00964 M00S00932.verify +++| EQ SRMX RETURN
00965 M00S00933.verify +++|
00966 M00S00934.verify +++|
00967 M00S00935.verify +++| SRMA DATA 10HVERIFYING
00968 M00S00936.verify +++| SRMB DATA 0,0
00969 M00S00937.verify +++| SRMC DATA 0
00970 M00S00938.verify +++| UPN SPACE 4,10
00971 M00S00939.verify +++|** UPN - UNPACK NAME.
00972 M00S00940.verify +++|*
00973 M00S00941.verify +++|* ENTRY (X6) = NAME LEFT JUSTIFIED.
00974 M00S00942.verify +++|* (B7) = CHARACTER ADDRESS.
00975 M00S00943.verify +++|*
00976 M00S00944.verify +++|* EXIT (B7) ADVANCED.
00977 M00S00945.verify +++|*
00978 M00S00946.verify +++|* USES A - 7.
00979 M00S00947.verify +++|* B - 2, 7.
00980 M00S00948.verify +++|* X - 1, 6, 7.
00981 M00S00949.verify +++|
00982 M00S00950.verify +++|
00983 M00S00951.verify +++| UPN SUBR ENTRY/EXIT
00984 M00S00952.verify +++| MX1 60-6
00985 M00S00953.verify +++| SB2 B7+10
00986 M00S00954.verify +++| LX6 6
00987 M00S00955.verify +++| UPN1 BX7 -X1*X6
00988 M00S00956.verify +++| ZR B7,UPNX IF END OF NAME
00989 M00S00957.verify +++| SA7 B7
00990 M00S00958.verify +++| SB7 B7+B1
00991 M00S00959.verify +++| LX6 6
00992 M00S00960.verify +++| NE B7,B2,UPN1 LOOP FOR 10 CHARACTERS
00993 M00S00961.verify +++| EQ UPNX RETURN
00994 M00S00962.verify +++| UPW SPACE 4,15
00995 M00S00963.verify +++|** UPW - UNPACK WORD.
00996 M00S00964.verify +++|*
00997 M00S00965.verify +++|* ENTRY (X1) = WORD.
00998 M00S00966.verify +++|* (B7) = CHARACTER ADDRESS.
00999 M00S00967.verify +++|* (X2) = RECORD TYPE.
01000 M00S00968.verify +++|*
01001 M00S00969.verify +++|* EXIT (B7) ADVANCED.
01002 M00S00970.verify +++|*
01003 M00S00971.verify +++|* USES A - 7.
01004 M00S00972.verify +++|* B - 2, 4, 5, 7.
01005 M00S00973.verify +++|* X - 0, 1, 2, 7.
01006 M00S00974.verify +++|
01007 M00S00975.verify +++|
01008 M00S00976.verify +++| UPW SUBR ENTRY/EXIT
01009 M00S00977.verify +++| SB2 X2
| Line S00978 Modification History | |
|---|---|
M01 (Removed by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01010 M01S00978.251l664 ---| SX2 1604B
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01011 M01S00010.251l664 +++| SX2 UPWA 01012 M00S00979.verify +++| LX2 48 01013 M00S00980.verify +++| LX2 X2,B2 01014 M00S00981.verify +++| SB5 4 01015 M00S00982.verify +++| SB4 5 01016 M00S00983.verify +++| PL X2,UPW1 IF TEXT TYPE 01017 M00S00984.verify +++| SB5 B4 01018 M00S00985.verify +++| SB4 B4-B1 01019 M00S00986.verify +++| UPW1 SX7 1R 01020 M00S00987.verify +++| SX7 1R 01021 M00S00988.verify +++| MX0 60-3 01022 M00S00989.verify +++| SA7 B7 01023 M00S00990.verify +++| SA7 A7+B1 01024 M00S00991.verify +++| SA7 A7+B1 01025 M00S00992.verify +++| SA7 A7+B1 01026 M00S00993.verify +++| SA7 A7+B1 01027 M00S00994.verify +++| UPW2 SB2 B5 01028 M00S00995.verify +++| UPW3 LX1 3 01029 M00S00996.verify +++| SB2 B2-B1 01030 M00S00997.verify +++| BX2 -X0*X1 CONVERT DIGIT 01031 M00S00998.verify +++| SX7 X2+1R0 01032 M00S00999.verify +++| SA7 A7+B1 STORE CHARACTER 01033 M00S01000.verify +++| NZ B2,UPW3 IF MORE DIGITS 01034 M00S01001.verify +++| SX7 1R 01035 M00S01002.verify +++| SB4 B4-B1 01036 M00S01003.verify +++| SA7 A7+B1 SPACE 01037 M00S01004.verify +++| NZ B4,UPW2 IF MORE BYTES 01038 M00S01005.verify +++| SB2 B5-4 01039 M00S01006.verify +++| ZR B2,UPW4 IF 5 GROUPS OF 4 01040 M00S01007.verify +++| SA7 A7+B1 SPACE 01041 M00S01008.verify +++| UPW4 SB7 A7+B1 ADVANCE CHARACTER ADDRESS 01042 M00S01009.verify +++| EQ UPWX RETURN
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 251l664 |
Seq # *Modification Id* Act ----------------------------+ 01043 M01S00011.251l664 +++| 01044 M01S00012.251l664 +++| 01045 M01S00013.251l664 +++| UPWA EQURT (RLRT,OVRT,ABRT),12 01046 M00S01010.verify +++| WOF SPACE 4,15 01047 M00S01011.verify +++|** WOF - WRITE LINE TO OUTPUT. 01048 M00S01012.verify +++|* 01049 M00S01013.verify +++|* ENTRY (X1) = FWA LINE. 01050 M00S01014.verify +++|* IF (X1) < 0, LINE IS *S* FORMAT. 01051 M00S01015.verify +++|* OTHERWISE LINE IS *C* FORMAT. 01052 M00S01016.verify +++|* (X2) = WORD COUNT. 01053 M00S01017.verify +++|* 01054 M00S01018.verify +++|* USES A - 1, 2, 3, 4, 6, 7. 01055 M00S01019.verify +++|* X - 1, 2, 3, 4, 6, 7. 01056 M00S01020.verify +++|* B - 7. 01057 M00S01021.verify +++|* 01058 M00S01022.verify +++|* CALLS CDD. 01059 M00S01023.verify +++|* 01060 M00S01024.verify +++|* MACROS WRITEC, WRITES, WRITEW. 01061 M00S01025.verify +++| 01062 M00S01026.verify +++| 01063 M00S01027.verify +++| WOF4 BX1 -X1 01064 M00S01028.verify +++| WRITES O,X1,X2 01065 M00S01029.verify +++| 01066 M00S01030.verify +++| WOF SUBR ENTRY/EXIT 01067 M00S01031.verify +++| SA4 EL 01068 M00S01032.verify +++| ZR X4,WOFX IF ERROR LIMIT 01069 M00S01033.verify +++| SA3 LC ADVANCE LINE COUNT 01070 M00S01034.verify +++| SX6 X3+B1 01071 M00S01035.verify +++| SA6 A3
| Line S01036 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01072 M01S01036.ns22000 ---| SX7 X6-LINP+4
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01073 M01S00014.ns22000 +++| SA4 A3+B1 GET PAGE LENGTH 01074 M01S00015.ns22000 +++| IX7 X6-X4 01075 M00S01037.verify +++| NG X7,WOF3 IF BOTTOM OF PAGE NOT REACHED 01076 M00S01038.verify +++| BX6 X1 SAVE REQUEST 01077 M00S01039.verify +++| LX7 X2 01078 M00S01040.verify +++| SA6 WOFA 01079 M00S01041.verify +++| SA7 A6+B1 01080 M00S01042.verify +++| SA1 PN ADVANCE PAGE NUMBER
| Line S01043 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01081 M01S01043.ns22000 ---| SX6 B0 RESET LINE COUNT 01082 M00S01044.verify +++| SX7 X1+B1
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01083 M01S00016.ns22000 +++| SX6 3 01084 M00S01045.verify +++| SA6 A3 01085 M00S01046.verify +++| SA7 A1 01086 M00S01047.verify +++| RJ CDD CONVERT PAGE NUMBER 01087 M00S01048.verify +++| MX1 48 01088 M00S01049.verify +++| LX6 18 STORE PAGE NUMBER 01089 M00S01050.verify +++| BX6 X1*X6 01090 M00S01051.verify +++| SA6 PAGE 01091 M00S01052.verify +++| SA3 PW 01092 M00S01053.verify +++| ZR X3,WOF1 IF SHORT PAGE FORMAT 01093 M00S01054.verify +++| WRITEW O,(=1H1),1 01094 M00S01055.verify +++| WRITEC X2,TITL WRITE TITLE LINE 01095 M00S01056.verify +++| WRITEC X2,SBTL WRITE SUBTITLE LINE 01096 M00S01057.verify +++| WRITEW X2,(=1L ),1 WRITE BLANK LINE 01097 M00S01058.verify +++| EQ WOF2 RESTORE REQUEST 01098 M00S01059.verify +++|
| Line S01060 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01099 M01S01060.ns22000 ---| WOF1 WRITEW O,(=1L ),1 WRITE BLANK LINE 01100 M01S01061.ns22000 ---| SA3 PN
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01101 M01S00017.ns22000 +++| WOF1 SA3 PN 01102 M00S01062.verify +++| SB7 X3-2 01103 M00S01063.verify +++| NZ B7,WOF2 IF TITLE NOT ISSUED
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01104 M01S00018.ns22000 +++| WRITEW O,(=1L ),1 WRITE BLANK LINE 01105 M00S01064.verify +++| WRITEW X2,TITL,TITSL WRITE SHORT TITLE 01106 M00S01065.verify +++| WRITEC X2,(=C* *) 01107 M00S01066.verify +++| WRITEW X2,SBTL,SBTSL WRITE SHORT SUBTITLE 01108 M00S01067.verify +++| WRITEC X2,(=C* *) 01109 M00S01068.verify +++| WOF2 SA1 WOFA RESTORE REQUEST 01110 M00S01069.verify +++| SA2 A1+B1 01111 M00S01070.verify +++| WOF3 NG X1,WOF4 IF *S* FORMAT 01112 M00S01071.verify +++| WRITEC O,X1,X2 01113 M00S01072.verify +++| EQ WOFX RETURN 01114 M00S01073.verify +++| 01115 M00S01074.verify +++| 01116 M00S01075.verify +++| WOFA DATA 0,0 01117 M00S01076.verify +++| SPACE 4,10 01118 M00S01077.verify +++|** COMMON DECKS. 01119 M00S01078.verify +++| 01120 M00S01079.verify +++| 01121 M00S01080.verify +++|*CALL COMCCDD 01122 M00S01081.verify +++|*CALL COMCCIO 01123 M00S01082.verify +++|*CALL COMCCOD 01124 M00S01083.verify +++|*CALL COMCMVE 01125 M00S01084.verify +++|*CALL COMCRDW 01126 M00S01085.verify +++|*CALL COMCSFN 01127 M00S01086.verify +++|*CALL COMCSNM 01128 M00S01087.verify +++|*CALL COMCSRT 01129 M00S01088.verify +++|*CALL COMCSYS 01130 M00S01089.verify +++|*CALL COMCWTC 01131 M00S01090.verify +++|*CALL COMCWTS 01132 M00S01091.verify +++|*CALL COMCWTW 01133 M00S01092.verify +++| SPACE 4,10 01134 M00S01093.verify +++|** BUFFERS. 01135 M00S01094.verify +++| 01136 M00S01095.verify +++| 01137 M00S01096.verify +++| USE // 01138 M00S01097.verify +++| SEG 01139 M00S01098.verify +++| OBUF BSS 0 OUTPUT FILE CIO BUFFER 01140 M00S01099.verify +++| CHAR EQU OBUF+OBUFL CHARACTER STRING BUFFER 01141 M00S01100.verify +++| SBF1 EQU CHAR+136 FILE 1 WORKING BUFFER 01142 M00S01101.verify +++| SBF2 EQU SBF1+BUFL+1 FILE 2 WORKING BUFFER 01143 M00S01102.verify +++| BUF1 EQU SBF2+BUFL FILE 1 CIO BUFFER 01144 M00S01103.verify +++| BUF2 EQU BUF1+FBUFL FILE 2 CIO BUFFER
| Line S01104 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01145 M01S01104.274l797 ---| RFL= EQU BUF2+FBUFL FIELD LENGTH
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01146 M01S00008.274l797 +++| RFL= EQU BUF2+FBUFL+4 FIELD LENGTH 01147 M00S01105.verify +++| TITLE PRESET. 01148 M00S01106.verify +++| PRS SPACE 4,10 01149 M00S01107.verify +++|** PRS - PROCESS ARGUMENTS. 01150 M00S01108.verify +++|* 01151 M00S01109.verify +++|* ENTRY NONE 01152 M00S01110.verify +++|* 01153 M00S01111.verify +++|* EXIT (PW) .EQ. ZERO IF SMALL PAGE WIDTH 01154 M00S01112.verify +++|* .NE. ZERO IF STANDARD PAGE WIDTH. 01155 M00S01113.verify +++|* 01156 M00S01114.verify +++|* USES A - ALL. 01157 M00S01115.verify +++|* B - 4, 5, 7. 01158 M00S01116.verify +++|* X - ALL. 01159 M00S01117.verify +++|* 01160 M00S01118.verify +++|* CALLS ARG, CBS, CDT, DXB, PCM, RLF, SFN, STF. 01161 M00S01119.verify +++|*
| Line S01120 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01162 M01S01120.ns22000 ---|* MACROS CLOCK, DATE, MEMORY, MESSAGE, REWIND.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01163 M01S00019.ns22000 +++|* MACROS CLOCK, DATE, GETPP, MEMORY, MESSAGE, REWIND. 01164 M00S01121.verify +++| 01165 M00S01122.verify +++| 01166 M00S01123.verify +++| PRS SUBR ENTRY/EXIT 01167 M00S01124.verify +++| DATE DATE 01168 M00S01125.verify +++| CLOCK TIME 01169 M00S01126.verify +++| MEMORY ,,,RFL= SET FIELD LENGTH 01170 M00S01127.verify +++| SA1 ACTR CHECK ARGUMENT COUNT 01171 M00S01128.verify +++| SB4 X1 01172 M00S01129.verify +++| MX0 42 01173 M00S01130.verify +++| ZR B4,PRS3 IF NO ARGUMENTS 01174 M00S01131.verify +++| SA4 ARGR 01175 M00S01132.verify +++| BX7 X0*X4 01176 M00S01133.verify +++| SB4 B4-B1 01177 M00S01134.verify +++| SX2 3 01178 M00S01135.verify +++| ZR X7,PRS1 IF FIRST ARGUMENT NULL 01179 M00S01136.verify +++| IX7 X7+X2 01180 M00S01137.verify +++| SA7 F1 01181 M00S01138.verify +++| PRS1 ZR B4,PRS3 IF END OF ARGUMENTS 01182 M00S01139.verify +++| SA4 A4+B1 01183 M00S01140.verify +++| BX7 X0*X4 01184 M00S01141.verify +++| ZR X7,PRS2 IF SECOND ARGUMENT NULL 01185 M00S01142.verify +++| IX7 X7+X2 01186 M00S01143.verify +++| SA7 F2 01187 M00S01144.verify +++| PRS2 SB4 B4-B1 01188 M00S01145.verify +++| ZR B4,PRS3 IF END OF ARGUMENTS 01189 M00S01146.verify +++| SA4 A4+B1 CONVERT SPECIAL ARGUMENTS 01190 M00S01147.verify +++| SB5 PRSA 01191 M00S01148.verify +++| RJ ARG 01192 M00S01149.verify +++| NZ X1,PER2 IF ARGUMENT ERROR 01193 M00S01150.verify +++| PRS3 SA5 FC CHECK FILE COUNT 01194 M00S01151.verify +++| SB7 B1+ DECIMAL CONVERSION 01195 M00S01152.verify +++| RJ DXB 01196 M00S01153.verify +++| SA6 FC STORE VALUE 01197 M00S01154.verify +++| NZ X4,PER2 IF ASSEMBLY ERROR 01198 M00S01155.verify +++| SA1 O 01199 M00S01156.verify +++| SX6 B1 01200 M00S01157.verify +++| SX2 A1 01201 M00S01158.verify +++| ZR X1,PRS4 IF NO FILE NAME IN FET 01202 M00S01159.verify +++| RJ STF SET TERMINAL FILE 01203 M00S01160.verify +++| PRS4 SA6 PW SET PAGE WIDTH
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01204 M01S00020.ns22000 +++| GETPP *,LL,PD GET PAGE SIZE PARAMETERS 01205 M00S01161.verify +++| SA5 EL CONVERT ERROR LIMIT 01206 M00S01162.verify +++| RJ DXB 01207 M00S01163.verify +++| SA6 EL STORE VALUE 01208 M00S01164.verify +++| NZ X4,PER2 IF ASSEMBLY ERROR 01209 M00S01165.verify +++| RJ PCM PROCESS CODED MODE PARAMETER 01210 M00S01166.verify +++| SA1 F1 COMPARE FILE NAMES 01211 M00S01167.verify +++| SA2 F2 01212 M00S01168.verify +++| MX0 42 01213 M00S01169.verify +++| BX1 X0*X1 01214 M00S01170.verify +++| SA3 O 01215 M00S01171.verify +++| BX2 X0*X2 01216 M00S01172.verify +++| IX6 X1-X2 01217 M00S01173.verify +++| SX5 PERB * VERIFY FILE NAME CONFLICT - LFN.* 01218 M00S01174.verify +++| ZR X6,PER3 IF FILE 1 = FILE 2 01219 M00S01175.verify +++| BX3 X0*X3 01220 M00S01176.verify +++| IX4 X3-X1 01221 M00S01177.verify +++| BX7 X3-X2 01222 M00S01178.verify +++| ZR X4,PER3 IF O = FILE 1 01223 M00S01179.verify +++| BX0 X1 01224 M00S01180.verify +++| LX1 X2 01225 M00S01181.verify +++| ZR X7,PER3 IF O = FILE 2 01226 M00S01182.verify +++| RJ SFN SPACE FILL FILE NAMES 01227 M00S01183.verify +++| SA6 F2NM 01228 M00S01184.verify +++| BX1 X0 01229 M00S01185.verify +++| RJ SFN 01230 M00S01186.verify +++| SA1 PRSG SET POINTER TO OUTPUT FET 01231 M00S01187.verify +++| SA6 F1NM 01232 M00S01188.verify +++| BX7 X1 01233 M00S01189.verify +++| MX6 0 01234 M00S01190.verify +++| SA7 B1+B1 01235 M00S01191.verify +++| SA6 A7+B1 01236 M00S01192.verify +++| SA0 F1 01237 M00S01193.verify +++| RJ CDT CHECK IF CONTROL WORDS ALLOWED ON FILE 1 01238 M00S01194.verify +++| SA0 F2 01239 M00S01195.verify +++| RJ CDT CHECK IF CONTROL WORDS ALLOWED ON FILE 2 01240 M00S01196.verify +++| RJ CBS CHECK BLOCK SIZE 01241 M00S01197.verify +++| RJ RLF RFL UP FOR LARGE L AND F TAPES 01242 M00S01198.verify +++| SA1 RW 01243 M00S01199.verify +++| ZR X1,PRS5 IF REWIND NOT REQUESTED 01244 M00S01200.verify +++| REWIND F1 01245 M00S01201.verify +++| REWIND F2 01246 M00S01202.verify +++| PRS5 SA1 F1-SLF 01247 M00S01203.verify +++| SA2 F2-SLF 01248 M00S01204.verify +++| BX3 X1+X2 01249 M00S01205.verify +++| ZR X3,PRSX IF NO S, L, OR F TAPES 01250 M00S01206.verify +++| BX3 X1-X2 01251 M00S01207.verify +++| ZR X3,PRSX IF FILES HAVE SAME FORMAT 01252 M00S01208.verify +++| MESSAGE PRSH,3 ISSUE VERIFY NOT GUARANTEED WARNING 01253 M00S01209.verify +++| EQ PRSX RETURN 01254 M00S01210.verify +++| 01255 M00S01211.verify +++| 01256 M00S01212.verify +++| PRSA BSS 0 CONTROL CARD ARGUMENT EQUIVALENCE TABLE 01257 M00S01213.verify +++| L ARG O,O ERROR LIMIT FILE 01258 M00S01214.verify +++| N ARG PRSD,FC FILE COUNT 01259 M00S01215.verify +++| E ARG PRSE,EL ERROR LIMIT 01260 M00S01216.verify +++| R ARG -PRSF,RW REWIND 01261 M00S01217.verify +++| A ARG -PRSF,AB ABORT ON ERROR 01262 M00S01218.verify +++| C ARG -PRSB,CM CODED MODE ON BOTH FILES 01263 M00S01219.verify +++| C1 ARG -PRSF,CM CODED MODE ON FIRST FILE ONLY 01264 M00S01220.verify +++| C2 ARG -PRSC,CM CODED MODE ON SECOND FILE ONLY 01265 M00S01221.verify +++| BS ARG PRSE,BS BLOCK SIZE 01266 M00S01222.verify +++| ARG 01267 M00S01223.verify +++| 01268 M00S01224.verify +++| PRSB CON -1 01269 M00S01225.verify +++| PRSC CON 2 01270 M00S01226.verify +++| PRSD CON 0L999999 01271 M00S01227.verify +++| PRSE CON 0L0 01272 M00S01228.verify +++| PRSF CON 1 01273 M00S01229.verify +++| PRSG CON 0LOUTPUT+O 01274 M00S01230.verify +++| PRSH DATA C* FILE STRUCTURES NOT COMPATIBLE.* 01275 M00S01231.verify +++| CBL SPACE 4,10 01276 M00S01232.verify +++|** CBL - CALCULATE BUFFER LENGTH. 01277 M00S01233.verify +++|* 01278 M00S01234.verify +++|* ENTRY (A0) = FWA FET. 01279 M00S01235.verify +++|* ((A0)+6) = PRU SIZE, IF S OR L FORMAT TAPE. 01280 M00S01236.verify +++|* ((A0)+8) = PRU SIZE, IF F FORMAT TAPE. 01281 M00S01237.verify +++|* 01282 M00S01238.verify +++|* EXIT (X6) = DESIRED BUFFER LENGTH. 01283 M00S01239.verify +++|* (B3) .LT. 0, IF BUFFER LENGTH CHANGE REQUIRED. 01284 M00S01240.verify +++|* 01285 M00S01241.verify +++|* USES A - 1. 01286 M00S01242.verify +++|* B - 2, 3. 01287 M00S01243.verify +++|* X - 1, 2, 3, 6. 01288 M00S01244.verify +++| 01289 M00S01245.verify +++| 01290 M00S01246.verify +++| CBL SUBR ENTRY/EXIT 01291 M00S01247.verify +++| SA1 A0-SLF S, L, OR F TAPE INDICATOR 01292 M00S01248.verify +++| SX6 FBUFL DEFAULT BUFFER LENGTH 01293 M00S01249.verify +++| SB2 X1 01294 M00S01250.verify +++| SB3 B1 01295 M00S01251.verify +++| SX3 3 01296 M00S01252.verify +++| SA1 A0+6 GET S/L TAPE MAXIMUM BLOCK SIZE 01297 M00S01253.verify +++| GT B2,B1,CBL1 IF L TAPE 01298 M00S01254.verify +++| PL B2,CBLX IF NOT F TAPE 01299 M00S01255.verify +++| SA1 A0+8 GET F TAPE PRU SIZE 01300 M00S01256.verify +++| CBL1 IX2 X1+X3 ALLOW FOR CONTROL WORDS 01301 M00S01257.verify +++| LX2 1 PRU SIZE * 2 01302 M00S01258.verify +++| IX3 X6-X2 01303 M00S01259.verify +++| PL X3,CBLX IF CALCULATED BUFFER LENGTH .LE. DEFAULT 01304 M00S01260.verify +++| BX6 X2 01305 M00S01261.verify +++| SB3 -B1 01306 M00S01262.verify +++| EQ CBLX RETURN 01307 M00S01263.verify +++| CBS SPACE 4,15 01308 M00S01264.verify +++|** CBS - CHECK BLOCK SIZE. 01309 M00S01265.verify +++|* 01310 M00S01266.verify +++|* EXIT BS PARAMETER VERIFIED, PRU SIZE SET IN MLRS FIELD OF 01311 M00S01267.verify +++|* S AND L TAPE FET(S). 01312 M00S01268.verify +++|* TO PER2, IF ERROR ENCOUNTERED. 01313 M00S01269.verify +++|* 01314 M00S01270.verify +++|* USES A - 0, 1, 2, 5, 6. 01315 M00S01271.verify +++|* B - 2, 7. 01316 M00S01272.verify +++|* X - 1, 2, 5, 6. 01317 M00S01273.verify +++|* 01318 M00S01274.verify +++|* CALLS DXB, SPS. 01319 M00S01275.verify +++| 01320 M00S01276.verify +++| 01321 M00S01277.verify +++| CBS SUBR ENTRY/EXIT 01322 M00S01278.verify +++| SA5 BS CONVERT BLOCK SIZE 01323 M00S01279.verify +++| SX1 X5 01324 M00S01280.verify +++| SB7 B1 01325 M00S01281.verify +++| NZ X1,CBS2 IF BS NOT SPECIFIED 01326 M00S01282.verify +++| RJ DXB 01327 M00S01283.verify +++| SA6 BS 01328 M00S01284.verify +++| NZ X4,PER2 IF ASSEMBLY ERROR 01329 M00S01285.verify +++| ZR X6,PER2 IF BS=0 SPECIFIED 01330 M00S01286.verify +++| SA1 F1-SLF 01331 M00S01287.verify +++| SA2 F2-SLF 01332 M00S01288.verify +++| SB3 X1 01333 M00S01289.verify +++| SB4 X2 01334 M00S01290.verify +++| GT B3,CBS1 IF S OR L TAPE 01335 M00S01291.verify +++| LE B4,PER2 IF BS PARAMETER NOT ALLOWED 01336 M00S01292.verify +++| CBS1 SX2 X6-MSPS-1 01337 M00S01293.verify +++| NG X2,CBS2 IF BS .LE. MAXIMUM S TAPE PRU SIZE 01338 M00S01294.verify +++| GT B3,B1,CBS2 IF FILE 1 IS L TAPE 01339 M00S01295.verify +++| LE B4,B1,PER2 IF FILE 2 IS NOT L TAPE 01340 M00S01296.verify +++| CBS2 SA0 F1 01341 M00S01297.verify +++| RJ SPS SET FILE 1 PRU SIZE IF S OR L TAPE 01342 M00S01298.verify +++| SA0 F2 01343 M00S01299.verify +++| RJ SPS SET FILE 2 PRU SIZE IF S OR L TAPE 01344 M00S01300.verify +++| EQ CBSX RETURN 01345 M00S01301.verify +++| CDT SPACE 4,15 01346 M00S01302.verify +++|** CDT - CHECK DEVICE TYPE. 01347 M00S01303.verify +++|* 01348 M00S01304.verify +++|* ENTRY (A0) = FWA FET. 01349 M00S01305.verify +++|* 01350 M00S01306.verify +++|* EXIT CONTROL WORD FLAG AND S, L, OR F TAPE INDICATOR 01351 M00S01307.verify +++|* SET APPROPRIATELY FOR THIS FILE.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01352 M01S00009.274l797 +++|* OPTICAL DISK FET EXTENSION INITIALIZED, IF APPLICABLE. 01353 M00S01308.verify +++|* WARNING MESSAGE ISSUED IF FILE NOT FOUND. 01354 M00S01309.verify +++|* ((A0)+8) = PRU SIZE, IF F FORMAT TAPE. 01355 M00S01310.verify +++|* 01356 M00S01311.verify +++|* USES A - 1, 2, 3, 6, 7. 01357 M00S01312.verify +++|* B - 2, 3, 5. 01358 M00S01313.verify +++|* X - 0, 1, 2, 3, 6, 7. 01359 M00S01314.verify +++|* 01360 M00S01315.verify +++|* CALLS SNM. 01361 M00S01316.verify +++|* 01362 M00S01317.verify +++|* MACROS FILINFO, MESSAGE, OPEN. 01363 M00S01318.verify +++| 01364 M00S01319.verify +++| 01365 M00S01320.verify +++| CDT4 OPEN A0,READNR,R CHECK FOR TERMINAL FILE 01366 M00S01321.verify +++| SA3 A0+B1 GET DEVICE TYPE 01367 M00S01322.verify +++| MX2 -11 01368 M00S01323.verify +++| LX3 12 01369 M00S01324.verify +++| BX3 -X2*X3 01370 M00S01325.verify +++| SX7 X3-2RTT 01371 M00S01326.verify +++| ZR X7,CDTX IF TERMINAL FILE 01372 M00S01327.verify +++| SA1 A0 GET FILE NAME 01373 M00S01328.verify +++| SB5 -CDTA * FILE NOT FOUND - LFN.* 01374 M00S01329.verify +++| BX1 X0*X1 01375 M00S01330.verify +++| SB3 CDTB MESSAGE ASSEMBLY AREA 01376 M00S01331.verify +++| SB2 1RX SET REPLACEMENT CHARACTER 01377 M00S01332.verify +++| RJ SNM SET NAME IN MESSAGE 01378 M00S01333.verify +++| MESSAGE CDTB,3 ISSUE WARNING MESSAGE 01379 M00S01334.verify +++| CDT5 SX7 B1+ ENABLE CONTROL WORDS 01380 M00S01335.verify +++| SA7 A0-CWF 01381 M00S01336.verify +++| 01382 M00S01337.verify +++| CDT SUBR ENTRY/EXIT 01383 M00S01338.verify +++| SA1 A0 SET FILE NAME IN PARAMETER BLOCK 01384 M00S01339.verify +++| MX0 42 01385 M00S01340.verify +++| SA2 CDTC 01386 M00S01341.verify +++| BX1 X0*X1 01387 M00S01342.verify +++| SX2 X2 01388 M00S01343.verify +++| BX6 X1+X2 01389 M00S01344.verify +++| SA6 A2 01390 M00S01345.verify +++| FILINFO CDTC GET FILE INFORMATION 01391 M00S01346.verify +++| SA1 CDTC+1 GET DEVICE TYPE AND STATUS 01392 M00S01347.verify +++| ZR X1,CDT4 IF FILE NOT FOUND
| Line S01348 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01393 M01S01348.274l797 ---| LX1 59-15
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01349.verify +++| NG X1,CDT5 IF FILE ON MASS STORAGE
| Line S01350 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01408 M01S01350.274l797 ---| LX1 59-18-59+15 01409 M01S01351.274l797 ---| NG X1,CDT2 IF 7-TRACK TAPE 01410 M01S01352.274l797 ---| LX1 59-19-59+18 01411 M01S01353.274l797 ---| PL X1,CDTX IF NOT 9-TRACK TAPE
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01412 M01S00023.274l797 +++| LX1 59-24-59+15 01413 M01S00024.274l797 +++| PL X1,CDTX IF FILE NOT ON TAPE 01414 M00S01354.verify +++| CDT2 SA1 CDTC+FIPBL GET TAPE FORMAT 01415 M00S01355.verify +++| MX0 -6 01416 M00S01356.verify +++| LX1 -6 01417 M00S01357.verify +++| SX7 B1 01418 M00S01358.verify +++| BX1 -X0*X1 01419 M00S01359.verify +++| SX2 X1-/MTX/TFS 01420 M00S01360.verify +++| ZR X2,CDT3 IF S TAPE 01421 M00S01361.verify +++| SX2 X1-/MTX/TFL 01422 M00S01362.verify +++| SX7 B1+B1 01423 M00S01363.verify +++| ZR X2,CDT3 IF L TAPE 01424 M00S01364.verify +++| SX7 -B1 01425 M00S01365.verify +++| SX2 X1-/MTX/TFF 01426 M00S01366.verify +++| NZ X2,CDT5 IF NOT F TAPE 01427 M00S01367.verify +++| SA3 A1+B1 GET BLOCK SIZE 01428 M00S01368.verify +++| LX3 -24 01429 M00S01369.verify +++| SX6 X3+ 01430 M00S01370.verify +++| SA6 A0+8 01431 M00S01371.verify +++| CDT3 SA7 A0-SLF SET S/L/F TAPE INDICATOR 01432 M00S01372.verify +++| EQ CDT5 SET CONTROL WORD FLAG 01433 M00S01373.verify +++| 01434 M00S01374.verify +++| 01435 M00S01375.verify +++| CDTA DATA C* FILE NOT FOUND - XXXXXXX.* 01436 M00S01376.verify +++| CDTAL EQU *-CDTA 01437 M00S01377.verify +++| 01438 M00S01378.verify +++| CDTB BSS CDTAL MESSAGE BUFFER 01439 M00S01379.verify +++| 01440 M00S01380.verify +++| CDTC VFD 42/0,6/CDTCL,12/1 *FILINFO* PARAMETER BLOCK 01441 M00S01381.verify +++| BSS FIPBL-1 01442 M00S01382.verify +++| CON FMTK TAPE FORMAT KEYWORD 01443 M00S01383.verify +++| CON BSZK TAPE BLOCK SIZE KEYWORD 01444 M00S01384.verify +++| CDTCL EQU *-CDTC 01445 M00S01385.verify +++| PCM SPACE 4,10 01446 M00S01386.verify +++|** PCM - PROCESS CODED MODE PARAMETER. 01447 M00S01387.verify +++|* 01448 M00S01388.verify +++|* EXIT CODED MODE SET ON FIRST, SECOND, OR BOTH FILES, 01449 M00S01389.verify +++|* IF REQUESTED. 01450 M00S01390.verify +++|* 01451 M00S01391.verify +++|* USES A - 1, 2, 6. 01452 M00S01392.verify +++|* B - 2. 01453 M00S01393.verify +++|* X - 1, 2, 6. 01454 M00S01394.verify +++| 01455 M00S01395.verify +++| 01456 M00S01396.verify +++| PCM SUBR ENTRY/EXIT 01457 M00S01397.verify +++| SA2 CM 01458 M00S01398.verify +++| ZR X2,PCMX IF CODED MODE NOT REQUESTED 01459 M00S01399.verify +++| SB2 X2 01460 M00S01400.verify +++| SX2 B1+B1 01461 M00S01401.verify +++| GT B2,B1,PCM1 IF SECOND FILE ONLY 01462 M00S01402.verify +++| SA1 F1 SET CODED MODE ON FIRST FILE 01463 M00S01403.verify +++| BX6 -X2*X1 01464 M00S01404.verify +++| SA6 A1 01465 M00S01405.verify +++| PCM1 EQ B2,B1,PCMX IF FIRST FILE ONLY 01466 M00S01406.verify +++| SA1 F2 SET CODED MODE ON SECOND FILE 01467 M00S01407.verify +++| BX6 -X2*X1 01468 M00S01408.verify +++| SA6 A1 01469 M00S01409.verify +++| EQ PCMX RETURN 01470 M00S01410.verify +++| PER SPACE 4,10 01471 M00S01411.verify +++|** PER - PRESET ERROR PROCESSOR. 01472 M00S01412.verify +++|* 01473 M00S01413.verify +++|* ENTRY (X5) = FWA MESSAGE, IF ENTRY AT PER1 OR PER3. 01474 M00S01414.verify +++|* (X1) = FILE NAME, IF ENTRY AT PER3. 01475 M00S01415.verify +++| 01476 M00S01416.verify +++| 01477 M00S01417.verify +++| PER3 SB5 X5 SET NAME IN MESSAGE 01478 M00S01418.verify +++| SB2 1RX 01479 M00S01419.verify +++| RJ SNM 01480 M00S01420.verify +++| EQ PER1 ISSUE ERROR MESSAGE 01481 M00S01421.verify +++| 01482 M00S01422.verify +++| PER2 SX5 PERA * VERIFY ARGUMENT ERROR.* 01483 M00S01423.verify +++| PER1 MESSAGE X5,,R 01484 M00S01424.verify +++| PER ABORT 01485 M00S01425.verify +++| 01486 M00S01426.verify +++| 01487 M00S01427.verify +++| PERA DATA C* VERIFY ARGUMENT ERROR.* 01488 M00S01428.verify +++| PERB DATA C* VERIFY FILE NAME CONFLICT - XXXXXXX.* 01489 M00S01429.verify +++| PERC DATA C* VERIFY FL ABOVE USER LIMIT.* 01490 M00S01430.verify +++| RLF SPACE 4,25 01491 M00S01431.verify +++|** RLF - RFL UP FOR LARGE L AND F TAPES. 01492 M00S01432.verify +++|* 01493 M00S01433.verify +++|* IF L OR F TAPE(S) TO BE VERIFIED, CALCULATE REQUIRED FL, 01494 M00S01434.verify +++|* RFL UP, AND RESET CIO BUFFER POINTERS IN FETS. 01495 M00S01435.verify +++|* 1. FOR L TAPE FILES, USE MLRS VALUE AS MAXIMUM BLOCK SIZE. 01496 M00S01436.verify +++|* FOR F TAPE FILES, USE BLOCK SIZE SAVED IN FET+8. 01497 M00S01437.verify +++|* 2. GET CURRENT MAXIMUM FL (MAXFL) VIA MEMORY MACRO. 01498 M00S01438.verify +++|* 3. FOR EACH L OR F TAPE, BUFFER LENGTH = MAXIMUM(FBUFL, 01499 M00S01439.verify +++|* 2*BLOCK SIZE). 01500 M00S01440.verify +++|* 4. IF FL REQUIREMENTS EXCEED MINIMUM(MAXFL,MFLF), SET EACH 01501 M00S01441.verify +++|* L OR F TAPE BUFFER LENGTH = BLOCK SIZE. 01502 M00S01442.verify +++|* 5. IF FL REQUIREMENTS EXCEED MAXFL, ABORT WITH * VERIFY 01503 M00S01443.verify +++|* FL ABOVE USER LIMIT.*. 01504 M00S01444.verify +++|* 01505 M00S01445.verify +++|* EXIT FIELD LENGTH INCREASED AS NECESSARY FOR L AND F TAPES. 01506 M00S01446.verify +++|* TO PER1, IF FIELD LENGTH ERROR. 01507 M00S01447.verify +++|* 01508 M00S01448.verify +++|* USES A - 0, 1, 2, 5, 6, 7. 01509 M00S01449.verify +++|* B - 3, 4. 01510 M00S01450.verify +++|* X - ALL. 01511 M00S01451.verify +++|* 01512 M00S01452.verify +++|* CALLS CBL, SYS=. 01513 M00S01453.verify +++| 01514 M00S01454.verify +++| 01515 M00S01455.verify +++| RLF SUBR ENTRY/EXIT 01516 M00S01456.verify +++| SA0 F1 01517 M00S01457.verify +++| RJ CBL CALCULATE FILE 1 BUFFER LENGTH 01518 M00S01458.verify +++| SA6 RLFA 01519 M00S01459.verify +++| SA0 F2 01520 M00S01460.verify +++| SB4 B3 SAVE BUFFER LENGTH CHANGE INDICATOR 01521 M00S01461.verify +++| RJ CBL CALCULATE FILE 2 BUFFER LENGTH 01522 M00S01462.verify +++| SA6 RLFB 01523 M00S01463.verify +++| SX0 MFLF MAXIMUM FIELD LENGTH FACTOR 01524 M00S01464.verify +++| NG B4,RLF1 IF FILE 1 BUFFER LENGTH CHANGE REQUIRED 01525 M00S01465.verify +++| PL B3,RLFX IF NO BUFFER LENGTH CHANGE ON FILE 2 01526 M00S01466.verify +++| RLF1 MEMORY CM,STAT,R GET CURRENT MAXIMUM FL 01527 M00S01467.verify +++| SA5 STAT 01528 M00S01468.verify +++| AX5 30 CURRENT MAXIMUM FL (MAXFL) 01529 M00S01469.verify +++| IX1 X5-X0 01530 M00S01470.verify +++| PL X1,RLF2 IF MAXFL .GE. MFLF 01531 M00S01471.verify +++| BX0 X5 01532 M00S01472.verify +++| RLF2 SA1 RLFA CALCULATE REQUIRED FL 01533 M00S01473.verify +++| SX4 X1+BUF1 01534 M00S01474.verify +++| SA2 RLFB 01535 M00S01475.verify +++| IX4 X4+X2 01536 M00S01476.verify +++| IX3 X0-X4 01537 M00S01477.verify +++| PL X3,RLF4 IF REQUIRED FL .LE. MINIMUM(MAXFL,MFLF) 01538 M00S01478.verify +++| PL B4,RLF3 IF NO BUFFER LENGTH CHANGE ON FILE 1 01539 M00S01479.verify +++| AX6 X1,B1 SET BUFFER LENGTH = BLOCK SIZE 01540 M00S01480.verify +++| SA6 A1 01541 M00S01481.verify +++| RLF3 PL B3,RLF4 IF NO BUFFER LENGTH CHANGE ON FILE 2 01542 M00S01482.verify +++| AX6 X2,B1 01543 M00S01483.verify +++| SA6 A2 01544 M00S01484.verify +++| RLF4 SA1 RLFA CALCULATE REQUIRED FL 01545 M00S01485.verify +++| SX3 X1+BUF1 01546 M00S01486.verify +++| SA2 A1+B1 01547 M00S01487.verify +++| IX4 X3+X2 01548 M00S01488.verify +++| SX6 X4+2 01549 M00S01489.verify +++| IX2 X5-X6 01550 M00S01490.verify +++| LX6 30 01551 M00S01491.verify +++| SX5 PERC *VERIFY FL ABOVE USER LIMIT.* 01552 M00S01492.verify +++| SA6 STAT 01553 M00S01493.verify +++| NG X2,PER1 IF REQUIRED FL .GT. MAXFL 01554 M00S01494.verify +++| 01555 M00S01495.verify +++|* INCREASE FIELD LENGTH AS NECESSARY FOR L AND F TAPES AND 01556 M00S01496.verify +++|* RESET CIO BUFFER POINTERS IN FETS. 01557 M00S01497.verify +++| 01558 M00S01498.verify +++| MEMORY CM,STAT,R 01559 M00S01499.verify +++| SA1 F1+4 RESET CIO BUFFER POINTERS 01560 M00S01500.verify +++| MX0 42 01561 M00S01501.verify +++| BX6 X0*X1 01562 M00S01502.verify +++| SA2 F2+1 01563 M00S01503.verify +++| BX6 X6+X3 01564 M00S01504.verify +++| SA6 A1 FILE 1 LIMIT 01565 M00S01505.verify +++| BX7 X0*X2 01566 M00S01506.verify +++| LX6 X3 01567 M00S01507.verify +++| BX7 X7+X3 01568 M00S01508.verify +++| SA6 A2+B1 FILE 2 IN 01569 M00S01509.verify +++| SA7 A2 FILE 2 FIRST 01570 M00S01510.verify +++| SA6 A6+B1 FILE 2 OUT 01571 M00S01511.verify +++| SA1 A6+B1 01572 M00S01512.verify +++| BX7 X0*X1 01573 M00S01513.verify +++| BX7 X7+X4 01574 M00S01514.verify +++| SA7 A1 FILE 2 LIMIT 01575 M00S01515.verify +++| EQ RLFX RETURN 01576 M00S01516.verify +++| 01577 M00S01517.verify +++| 01578 M00S01518.verify +++| RLFA CON 0 FILE 1 BUFFER LENGTH 01579 M00S01519.verify +++| RLFB CON 0 FILE 2 BUFFER LENGTH 01580 M00S01520.verify +++| SPS SPACE 4,10 01581 M00S01521.verify +++|** SPS - SET PRU SIZE. 01582 M00S01522.verify +++|* 01583 M00S01523.verify +++|* ENTRY (A0) = FWA FET. 01584 M00S01524.verify +++|* 01585 M00S01525.verify +++|* EXIT PRU SIZE SET IN MLRS FIELD OF FET IF S OR L TAPE. 01586 M00S01526.verify +++|* TO PER2, IF ERROR ENCOUNTERED. 01587 M00S01527.verify +++|* 01588 M00S01528.verify +++|* USES A - 1, 2, 6. 01589 M00S01529.verify +++|* B - 2. 01590 M00S01530.verify +++|* X - 1, 2, 3, 6. 01591 M00S01531.verify +++| 01592 M00S01532.verify +++| 01593 M00S01533.verify +++| SPS SUBR ENTRY/EXIT 01594 M00S01534.verify +++| SA1 A0-SLF S, L, OR F TAPE INDICATOR 01595 M00S01535.verify +++| SA2 BS BLOCK SIZE PARAMETER VALUE 01596 M00S01536.verify +++| SX3 MSPS MAXIMUM S TAPE PRU SIZE 01597 M00S01537.verify +++| SB2 X1 01598 M00S01538.verify +++| IX3 X3-X2 01599 M00S01539.verify +++| LE B2,SPSX IF NOT S OR L TAPE 01600 M00S01540.verify +++| SX6 DLPS DEFAULT L TAPE PRU SIZE 01601 M00S01541.verify +++| GT B2,B1,SPS1 IF L TAPE 01602 M00S01542.verify +++| SX6 DSPS DEFAULT S TAPE PRU SIZE 01603 M00S01543.verify +++| NG X2,SPS2 IF BS PARAMETER NOT SPECIFIED 01604 M00S01544.verify +++| NG X3,SPS2 IF BLOCK SIZE EXCEEDS MAXIMUM S PRU SIZE 01605 M00S01545.verify +++| SPS1 NG X2,SPS2 IF BS PARAMETER NOT SPECIFIED 01606 M00S01546.verify +++| BX6 X2 01607 M00S01547.verify +++| SPS2 SA6 A0+6 SET MLRS FIELD OF FET 01608 M00S01548.verify +++| EQ SPSX RETURN 01609 M00S01549.verify +++| SPACE 4,10 01610 M00S01550.verify +++|** PRESET DATA STORAGE. 01611 M00S01551.verify +++| 01612 M00S01552.verify +++| 01613 M00S01553.verify +++| BS CON -1 MAXIMUM BLOCK SIZE 01614 M00S01554.verify +++| CM CON 0 CODED MODE 01615 M00S01555.verify +++| STAT VFD 30/-1,30/0 FIELD LENGTH STATUS WORD 01616 M00S01556.verify +++| SPACE 4,10 01617 M00S01557.verify +++|** COMMON DECKS. 01618 M00S01558.verify +++| 01619 M00S01559.verify +++| 01620 M00S01560.verify +++|*CALL COMCARG
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01621 M01S00021.ns22000 +++|*CALL COMCCPM 01622 M00S01561.verify +++|*CALL COMCDXB 01623 M00S01562.verify +++|*CALL COMCLFM 01624 M00S01563.verify +++|*CALL COMCSTF 01625 M00S01564.verify +++| SPACE 4 01626 M00S01565.verify +++| END
cdc/nos2.source/opl.opl871/deck/verify.txt · Last modified: by 127.0.0.1