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