Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.tst +++| IDENT TST,FET
00002 M01S00002.tst +++| ABS
00003 M01S00003.tst +++| SST FL
00004 M01S00004.tst +++| ENTRY TST
00005 M01S00005.tst +++| ENTRY MFL=
00006 M01S00006.tst +++| ENTRY SSJ=
00007 M01S00007.tst +++| SYSCOM B1
00008 M01S00008.tst +++|*COMMENT TST - TAPE STORAGE TEST.
| Line S00009 Modification History |
M01 (Added by) | tst |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00009 M02S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00011 M01S00010.tst +++| TITLE TST - TAPE STORAGE TEST.
00012 M01S00011.tst +++| SPACE 4
00013 M01S00012.tst +++|*** TST - TAPE STORAGE TEST.
00014 M01S00013.tst +++|* P. C. SMITH. 91/11/08.
00015 M01S00014.tst +++| SPACE 4
00016 M01S00015.tst +++|*** TST IS A CENTRAL PROCESSOR DRIVEN TAPE STORAGE TEST. IT
00017 M01S00016.tst +++|* PERFORMS SEQUENTIAL WRITES AND READS ON A SELECTED TAPE
00018 M01S00017.tst +++|* DEVICE, AND REPORTS THE PERFORMANCE ACHIEVED.
00019 M01S00018.tst +++|*
00020 M01S00019.tst +++|* OPERATING INSTRUCTIONS.
00021 M01S00020.tst +++|* WHEN CALLED, TST ASSUMES THAT THE FILE *TAPE1* HAS BEEN
00022 M01S00021.tst +++|* PREASSIGNED.
00023 M01S00022.tst +++|*
00024 M01S00023.tst +++|* SEQUENTIAL WRITE.
00025 M01S00024.tst +++|* RANDOM DATA IS WRITTEN SEQUENTIALLY ON THE FILE IN THIS
00026 M01S00025.tst +++|* FORMAT - 1 WORD CONTAINING THE SECTOR NUMBER
00027 M01S00026.tst +++|* 1 WORD CONTAINING RANDOM DATA SEED
00028 M01S00027.tst +++|* 61 WORDS OF RANDOM DATA
00029 M01S00028.tst +++|* 1 WORD CHECKSUM OF ABOVE DATA
00030 M01S00029.tst +++|*
00031 M01S00030.tst +++|* SEQUENTIAL READ.
00032 M01S00031.tst +++|* FILE IS REWOUND AND DATA IS READ BACK CHECKING SECTOR NUMBER
00033 M01S00032.tst +++|* AND CHECKSUM OF RANDOM DATA.
00034 M01S00033.tst +++|*
00035 M01S00034.tst +++|* THERE IS A FORTY SECOND PAUSE FOLLOWING THE WRITE SECTION OF
00036 M01S00035.tst +++|* THE TEST TO ALLOW THE REWIND TO COMPLETE BEFORE CONTINUING
00037 M01S00036.tst +++|* TO THE NEXT SECTION.
00038 M01S00037.tst +++| SPACE 4
00039 M01S00038.tst +++|*** ARGUMENT PARAMETERS.
00040 M01S00039.tst +++|*
00041 M01S00040.tst +++|* T TEST SECTION (CAN BE EQUATED).
00042 M01S00041.tst +++|* T=0 OR T OR OMISSION OF THIS PARAMETER WILL RUN ALL
00043 M01S00042.tst +++|* SECTIONS.
00044 M01S00043.tst +++|* T=1 WRITE SEQUENTIAL.
00045 M01S00044.tst +++|* T=2 READ SEQUENTIAL.
00046 M01S00045.tst +++|*
00047 M01S00046.tst +++|* P TEST PATTERN (CAN BE EQUATED).
00048 M01S00047.tst +++|* P=0 ALL ZEROS PATTERN.
00049 M01S00048.tst +++|* P=1 ALL ONES PATTERN.
00050 M01S00049.tst +++|* P=2 25252525252525252525B PATTERN.
00051 M01S00050.tst +++|* P=3 52525252525252525252B PATTERN.
00052 M01S00051.tst +++|* P=4 DO NOT GENERATE OR CHECK DATA. SECTOR NUMBERS
00053 M01S00052.tst +++|* ARE GENERATED AND CHECKED.
00054 M01S00053.tst +++|* P=5 OR P OR OMISSION OF THIS PARAMETER WILL ENABLE
00055 M01S00054.tst +++|* RANDOM PATTERN.
00056 M01S00055.tst +++|* P=6 DO NOT GENERATE OR CHECK DATA. DO NOT COPY DATA
00057 M01S00056.tst +++|* BETWEEN THE CIO BUFFER AND THE WORKING BUFFER.
00058 M01S00057.tst +++|* SECTOR NUMBERS ARE GENERATED AND CHECKED.
00059 M01S00058.tst +++|*
00060 M01S00059.tst +++|* N NUMBER OF 100B-WORD SECTORS (CAN BE EQUATED).
00061 M01S00060.tst +++|* N=0 GIVES ARGUMENT ERROR MESSAGE AND PROGRAM ABORT.
00062 M01S00061.tst +++|* N=XXXX WILL ENABLE THE TEST TO BE RUN ON XXXX SECTORS.
00063 M01S00062.tst +++|* (BE CAREFUL THAT TRACK LIMIT IS NOT EXCEEDED)
00064 M01S00063.tst +++|* N GIVES DEFAULT VALUE (SEE TABLE TEQP).
00065 M01S00064.tst +++|*
00066 M01S00065.tst +++|* NW NO WRITE PERFORMED AT BEGINING OF TEST.
00067 M01S00066.tst +++|*
00068 M01S00067.tst +++|* BS BLOCK SIZE (MUST BE MULTIPLE OF 1000B).
00069 M01S00068.tst +++|*
00070 M01S00069.tst +++|* NOTE:
00071 M01S00070.tst +++|* SENSE SWITCH 2 - IF SET WILL ABORT ON ERRORS.
00072 M01S00071.tst +++|* SENSE SWITCH 3 - IF SET WILL CONTINUE AT END OF TEST.
00073 M01S00072.tst +++|* SENSE SWITCH 4 - IF SET WILL REPEAT CURRENT SECTION.
00074 M01S00073.tst +++|*
00075 M01S00074.tst +++|* ISSUING A CALL OF TST FROM THE CONSOLE WILL
00076 M01S00075.tst +++|* SELECT ALL SECTIONS, RANDOM PATTERN, DEFAULT SECTOR
00077 M01S00076.tst +++|* VALUE, PAUSE ON ERROR AND STOP AT END OF TEST.
00078 M01S00077.tst +++|* TO CONTINUE ON ERRORS TYPE *GO.*.
00079 M01S00078.tst +++|*
00080 M01S00079.tst +++| TST SPACE 4
00081 M01S00080.tst +++|*** DAYFILE MESSAGES.
00082 M01S00081.tst +++|*
00083 M01S00082.tst +++|* * ARGUMENT ERROR.* = ONE OF PARAMETERS IS IN ERROR.
00084 M01S00083.tst +++|*
00085 M01S00084.tst +++|* * ILLEGAL EQUIPMENT.* = THE EQUIPMENT WHICH WAS ASSIGNED IN
00086 M01S00085.tst +++|* RESPONSE TO THE DISPLAY REQUEST IS NOT
00087 M01S00086.tst +++|* RECOGNIZED AS BEING A DEVICE UPON WHICH
00088 M01S00087.tst +++|* THE TEST MAY BE RUN.
00089 M01S00088.tst +++|*
00090 M01S00089.tst +++|* * SEQUENTIAL WRITE.* = THIS TEST SECTION IS BEING EXECUTED.
00091 M01S00090.tst +++|*
00092 M01S00091.tst +++|* * SEQUENTIAL READ.* = THIS TEST SECTION IS BEING EXECUTED.
00093 M01S00092.tst +++|*
00094 M01S00093.tst +++|* *TST TRANSFER RATE = XXXXXX.XXX KC.* = THE TAPE TRANSFER
00095 M01S00094.tst +++|* RATE FOR THE PREVIOUS SECTION WAS
00096 M01S00095.tst +++|* XXXXXX.XXX KILO-CHARACTERS PER SECOND.
00097 M01S00096.tst +++|*
00098 M01S00097.tst +++|* * FILE SIZE = XXXXXXXXXX SECTORS.* = SIZE OF THE DATA
00099 M01S00098.tst +++|* FILE IN SECTORS.*
00100 M01S00099.tst +++|*
00101 M01S00100.tst +++|* * ILLEGAL EOF DETECTED.* = AN EOF WAS DETECTED BEFORE THE
00102 M01S00101.tst +++|* LAST SECTOR ON THE FILE.
00103 M01S00102.tst +++|*
00104 M01S00103.tst +++|* * NO EOF DETECTED ON LAST READ.* = NO EOF ON THE LAST SECTOR.
00105 M01S00104.tst +++|*
00106 M01S00105.tst +++|* * JOB ABORTED.* = ABNORMAL TERMINATION OF TST.
00107 M01S00106.tst +++|*
00108 M01S00107.tst +++|* *EQXXX,DATA ERROR AT -PHYSICAL POSITION-.*
00109 M01S00108.tst +++|* *EQXXX,RXXXXXXX,TYYYY,SZZZZ.*
00110 M01S00109.tst +++|* DATA ERRORS HAVE BEEN DETECTED ON A
00111 M01S00110.tst +++|* SECTOR WHICH WAS READ.
00112 M01S00111.tst +++|*
00113 M01S00112.tst +++|* *EQXXX,POS. ERROR AT -PHYSICAL POSITION-.*
00114 M01S00113.tst +++|* *EQXXX,RXXXXXXX,TYYYY,SZZZZ.*
00115 M01S00114.tst +++|* THE SECTOR WHICH WAS READ WAS NOT
00116 M01S00115.tst +++|* THE CORRECT SECTOR. THE POSITION GIVEN
00117 M01S00116.tst +++|* IS THE POSITION OF THE SECTOR READ.
00118 M01S00117.tst +++|*
00119 M01S00118.tst +++|* *EQXXX,DEV.-TYPE ERR--PHYSICAL POSITION-.*
00120 M01S00119.tst +++|* *EQXXX,RXXXXXXX,TYYYY,SZZZZ.*
00121 M01S00120.tst +++|* CIO HAS DETECTED ONE OF THE FOLLOWING
00122 M01S00121.tst +++|* ERRORS WHICH APPEAR IN THE -TYPE ERR-
00123 M01S00122.tst +++|* POSITION.
00124 M01S00123.tst +++|* -TYPE ERR- = PARITY ER. -- PARITY ERROR
00125 M01S00124.tst +++|* ADDR. ERR. -- ADDRESS ERROR
00126 M01S00125.tst +++|* STATUS ER. -- DEVICE STATUS ERROR
00127 M01S00126.tst +++|* 81 FNC REJ -- 6681 FUNCTION REJECT
00128 M01S00127.tst +++|* RESERVED -- DEVICE RESERVED
00129 M01S00128.tst +++|* NOT READY -- DEVICE NOT READY
00130 M01S00129.tst +++|*
00131 M01S00130.tst +++|* *EQXXX,EXP. POSITION -PHYSICAL POSITION-.*
00132 M01S00131.tst +++|* *EQXXX,RXXXXXXX,TYYYY,SZZZZ.*
00133 M01S00132.tst +++|* WHEN A POSITION OR DEVICE ADDRESS ERROR
00134 M01S00133.tst +++|* OCCURES THE EXPECTED POSITION IS GIVEN
00135 M01S00134.tst +++|* BY THIS MESSAGE.
00136 M01S00135.tst +++|*
00137 M01S00136.tst +++|* *EQXXX,DATA EXP WWW,EEEEEEEEEEEEEEEEEEEE*
00138 M01S00137.tst +++|* *EQXXX,DATA READ WWW,RRRRRRRRRRRRRRRRRRRR*
00139 M01S00138.tst +++|* *EQXXX,DATA DIFF WWW,DDDDDDDDDDDDDDDDDDDD*
00140 M01S00139.tst +++|* *DATA OK.* (OPTIONAL - SEE BELOW)
00141 M01S00140.tst +++|* WHEN A DATA ERROR OR DEVICE PARITY ERROR IS
00142 M01S00141.tst +++|* DETECTED THE DATA ON THE SECTOR IS CHECKED
00143 M01S00142.tst +++|* AND THE ERRORS REPORTED. IF NO ERRORS ARE
00144 M01S00143.tst +++|* FOUND THE MESSAGE *DATA OK.* IS ISSUED.
00145 M01S00144.tst +++|* WWW IS THE WORD NUMBER IN THE SECTOR.
00146 M01S00145.tst +++|* EE-----E IS THE EXPECTED DATA.
00147 M01S00146.tst +++|* RR-----R IS THE DATA READ.
00148 M01S00147.tst +++|* DD-----D IS THE DIFFERNCE.
00149 M01S00148.tst +++|*
00150 M01S00149.tst +++|* * TST ERROR - GO / DROP.* = *TST* HAS DETECTED AN
00151 M01S00150.tst +++|* IRRECOVERABLE READ ERROR.
00152 M01S00151.tst +++|*
00153 M01S00152.tst +++|* * END TAPE STORAGE TEST.* = END OF TEST.
00154 M01S00153.tst +++| SPACE 4
00155 M01S00154.tst +++|** COMMON DECKS.
00156 M01S00155.tst +++|
00157 M01S00156.tst +++|
00158 M01S00157.tst +++|*CALL COMCMAC
00159 M01S00158.tst +++|*CALL COMCCMD
00160 M01S00159.tst +++| SPACE 4
00161 M01S00160.tst +++|**** ASSEMBLY CONSTANTS.
00162 M01S00161.tst +++|
00163 M01S00162.tst +++|
00164 M01S00163.tst +++| TBUFL EQU 4001B
00165 M01S00164.tst +++|****
00166 M01S00165.tst +++| TITLE DATA.
00167 M01S00166.tst +++| FET SPACE 4
00168 M01S00167.tst +++|* FILE FET.
00169 M01S00168.tst +++|
00170 M01S00169.tst +++|
00171 M01S00170.tst +++| ORG 110B
00172 M01S00171.tst +++| FET BSS 0
00173 M01S00172.tst +++| T BSS 0
00174 M01S00173.tst +++| TAPE1 FILEB TBUF,TBUFL,EPR,(FET=8)
00175 M01S00174.tst +++|
00176 M01S00175.tst +++|* DATA STORAGE.
00177 M01S00176.tst +++|
00178 M01S00177.tst +++|
00179 M01S00178.tst +++| FL CON 0 ORIGINAL FIELD LENGTH
00180 M01S00179.tst +++| NS CON 10000B NUMBER OF SECTORS
00181 M01S00180.tst +++| SM CON 7777B SECTOR MASK
00182 M01S00181.tst +++| NW CON 0 NO SEQUENTIAL WRITE AT BEGINNING OF TEST
00183 M01S00182.tst +++| TS CON 0L0 TEST SECTION TO BE EXECUTED
00184 M01S00183.tst +++| TP CON 0L5 DEFAULT TEST PATTERN
00185 M01S00184.tst +++| ST CON 0 START TIME
00186 M01S00185.tst +++| ET CON 0 ENDING TIME
00187 M01S00186.tst +++| ND CON 0 NULL DATA FLAG
00188 M01S00187.tst +++| NT CON 1 NO DATA TRANSFER FLAG
00189 M01S00188.tst +++| BS CON 1000B BLOCK SIZE (PRU SIZE)
00190 M01S00189.tst +++|
00191 M01S00190.tst +++|* SPECIAL ENTRY POINTS.
00192 M01S00191.tst +++|
00193 M01S00192.tst +++| SSJ= EQU 0
00194 M01S00193.tst +++| TITLE MAIN PROGRAM.
00195 M01S00194.tst +++| TST SPACE 4
00196 M01S00195.tst +++|** TST - MAIN PROGRAM.
00197 M01S00196.tst +++|
00198 M01S00197.tst +++|
00199 M01S00198.tst +++| TST SB1 1 (B1) = 1
00200 M01S00199.tst +++| SB7 B0
00201 M01S00200.tst +++| SX6 A0
00202 M01S00201.tst +++| SA6 FL
00203 M01S00202.tst +++| RJ PRS PRESET
00204 M01S00203.tst +++| TST1 SA1 NW
00205 M01S00204.tst +++| NZ X1,TST2 IF NO WRITE
00206 M01S00205.tst +++| RJ WSQ WRITE SEQUENTIAL
00207 M01S00206.tst +++| RJ WRC WAIT REWIND COMPLETE
00208 M01S00207.tst +++| TST2 SA1 TS
00209 M01S00208.tst +++| ZR X1,TST3 IF ALL SECTIONS SELECTED
00210 M01S00209.tst +++| SB5 X1-1
00211 M01S00210.tst +++| ZR B5,TST4 IF ONLY WRITE SELECTED
00212 M01S00211.tst +++| TST3 RJ RSQ READ SEQUENTIAL
00213 M01S00212.tst +++| TST4 SA1 B0
00214 M01S00213.tst +++| LX1 59-8
00215 M01S00214.tst +++| PL X1,TST5 IF REPEAT TEST NOT SET
00216 M01S00215.tst +++| RJ WRC WAIT REWIND COMPLETE
00217 M01S00216.tst +++| EQ TST1 CONTINUE
00218 M01S00217.tst +++|
00219 M01S00218.tst +++| TST5 MESSAGE (=C* END TAPE STORAGE TEST.*)
00220 M01S00219.tst +++| ENDRUN
00221 M01S00220.tst +++| TITLE TEST SECTIONS.
00222 M01S00221.tst +++| WSQ SPACE 4,15
00223 M01S00222.tst +++|** WSQ - WRITE SEQUENTIAL.
00224 M01S00223.tst +++|*
00225 M01S00224.tst +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
00226 M01S00225.tst +++|* A - 1, 5, 6, 7.
00227 M01S00226.tst +++|*
00228 M01S00227.tst +++|* CALLS AIP, CKS, CTR, GDB, MEM, MES.
00229 M01S00228.tst +++|*
00230 M01S00229.tst +++|* MACROS REWIND, RTIME, WRITEF, WRITEW.
00231 M01S00230.tst +++|
00232 M01S00231.tst +++|
00233 M01S00232.tst +++| WSQ SUBR ENTRY/EXIT
00234 M01S00233.tst +++| SX6 1 SET SECTORS TO CHECK
00235 M01S00234.tst +++| SA6 CKSI
00236 M01S00235.tst +++| SA1 FL
00237 M01S00236.tst +++| RJ MEM REQUEST MEMORY
00238 M01S00237.tst +++| WSQ1 REWIND T,R
00239 M01S00238.tst +++| SX1 =C* SEQUENTIAL WRITE.*
00240 M01S00239.tst +++| RJ MES SEND MESSAGE
00241 M01S00240.tst +++| SA5 NS NUMBER OF SECTORS TO WRITE
00242 M01S00241.tst +++| BX0 X5
00243 M01S00242.tst +++| BX6 X5 SAVE SECTOR COUNT
00244 M01S00243.tst +++| SA6 CTRB
00245 M01S00244.tst +++| SX5 B1
00246 M01S00245.tst +++| RTIME ST
00247 M01S00246.tst +++| WSQ2 SA1 TP GENERATE SECTOR TO WRITE
00248 M01S00247.tst +++| BX7 X5
00249 M01S00248.tst +++| BX6 X1
00250 M01S00249.tst +++| SA7 SBUF
00251 M01S00250.tst +++| SA6 SBUF+1
00252 M01S00251.tst +++| RJ GDB GENERATE DATA BUFFER
00253 M01S00252.tst +++| SA7 TP
00254 M01S00253.tst +++| SX2 T SET FET ADDRESS
00255 M01S00254.tst +++| SA1 NT
00256 M01S00255.tst +++| ZR X1,WQS3 IF NO DATA TRANSFER
00257 M01S00256.tst +++| WRITEW X2,SBUF,100B
00258 M01S00257.tst +++| EQ WQS4 CHECK FOR CIO ERROR
00259 M01S00258.tst +++|
00260 M01S00259.tst +++| WQS3 RJ AIP ADVANCE *IN* POINTER
00261 M01S00260.tst +++| WQS4 SX4 B0
00262 M01S00261.tst +++| RJ CKS CHECK FOR CIO ERROR
00263 M01S00262.tst +++| SX6 B1+
00264 M01S00263.tst +++| IX5 X5+X6 ADVANCE SECTOR COUNTER
00265 M01S00264.tst +++| IX0 X0-X6
00266 M01S00265.tst +++| NZ X0,WSQ2 IF MORE SECTORS TO WRITE
00267 M01S00266.tst +++| WRITEF T,R
00268 M01S00267.tst +++| RJ CTR COMPUTE TRANSFER RATE
00269 M01S00268.tst +++| SA1 B0
00270 M01S00269.tst +++| LX1 59-9
00271 M01S00270.tst +++| NG X1,WSQ1 IF REPEAT SECTION SET
00272 M01S00271.tst +++| EQ WSQX RETURN
00273 M01S00272.tst +++| RSQ SPACE 4,15
00274 M01S00273.tst +++|** RSQ - READ SEQUENTIAL.
00275 M01S00274.tst +++|*
00276 M01S00275.tst +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
00277 M01S00276.tst +++|* A - 1, 5, 6, 7.
00278 M01S00277.tst +++|*
00279 M01S00278.tst +++|* CALLS ABT, AOP, CKS, CTR, MEM, MES.
00280 M01S00279.tst +++|*
00281 M01S00280.tst +++|* MACROS MESSAGE, READ, READW, REWIND, RTIME.
00282 M01S00281.tst +++|
00283 M01S00282.tst +++|
00284 M01S00283.tst +++| RSQ SUBR ENTRY/EXIT
00285 M01S00284.tst +++| SX6 1 SET SECTORS TO CHECK
00286 M01S00285.tst +++| SA6 CKSI
00287 M01S00286.tst +++| SA1 FL
00288 M01S00287.tst +++| RJ MEM REQUEST MEMORY
00289 M01S00288.tst +++| RSQ1 REWIND T,R
00290 M01S00289.tst +++| SX1 =C* SEQUENTIAL READ.*
00291 M01S00290.tst +++| RJ MES SEND MESSAGE
00292 M01S00291.tst +++| SA5 NS NUMBER OF SECTORS
00293 M01S00292.tst +++| BX0 X5
00294 M01S00293.tst +++| BX6 X5 SAVE SECTOR COUNT
00295 M01S00294.tst +++| SA6 CTRB
00296 M01S00295.tst +++| SX5 B0
00297 M01S00296.tst +++| RTIME ST
00298 M01S00297.tst +++| RSQ2 READ T
00299 M01S00298.tst +++| RSQ3 SX2 T SET FET ADDRESS
00300 M01S00299.tst +++| SA1 NT
00301 M01S00300.tst +++| ZR X1,RSQ3.1 IF NO DATA TRANSFER
00302 M01S00301.tst +++| READW X2,SBUF,100B
00303 M01S00302.tst +++| EQ RSQ3.2 CHECK FOR EOR/EOF
00304 M01S00303.tst +++|
00305 M01S00304.tst +++| RSQ3.1 RJ AOP ADVANCE *OUT* POINTER
00306 M01S00305.tst +++| RSQ3.2 ZR X1,RSQ3.3 IF NO EOR/EOF DETECTED
00307 M01S00306.tst +++| SX1 X1+3 CHECK FOR *CIO* ERROR
00308 M01S00307.tst +++| NZ X1,RSQ5 IF NO *CIO* ERROR
00309 M01S00308.tst +++| RSQ3.3 ZR X0,RSQ4 IF EOF EXPECTED
00310 M01S00309.tst +++| SX2 B1
00311 M01S00310.tst +++| IX4 X5+X2 ADVANCE EXPECTED SECTOR
00312 M01S00311.tst +++| SA5 SBUF
00313 M01S00312.tst +++| BX6 X4
00314 M01S00313.tst +++| SA6 RSQA SAVE RANDOM ADDRESS
00315 M01S00314.tst +++| IX0 X0-X2 DECREMENT SECTOR COUNTER
00316 M01S00315.tst +++| RJ CKS CHECK SECTOR
00317 M01S00316.tst +++| SA5 RSQA
00318 M01S00317.tst +++| ZR X4,RSQ3 IF NO ERROR DETECTED
00319 M01S00318.tst +++| SA1 T+1 RESTART READ ON ERROR
00320 M01S00319.tst +++| SX2 B1
00321 M01S00320.tst +++| IX7 X5+X2 SET RANDOM ADDRESS TO NEXT SECTOR
00322 M01S00321.tst +++| SX6 X1
00323 M01S00322.tst +++| SA6 A1+B1
00324 M01S00323.tst +++| SA7 T+6
00325 M01S00324.tst +++| SA6 A6+B1
00326 M01S00325.tst +++| EQ RSQ2
00327 M01S00326.tst +++|
00328 M01S00327.tst +++| RSQ4 MESSAGE (=C* NO EOF ON LAST READ.*)
00329 M01S00328.tst +++| EQ RSQ6
00330 M01S00329.tst +++|
00331 M01S00330.tst +++| RSQ5 ZR X0,RSQ7 IF EOF EXPECTED
00332 M01S00331.tst +++| MESSAGE (=C* ILLEGAL EOF DETECTED.*)
00333 M01S00332.tst +++| RSQ6 RJ ABT CHECK FOR ABORT ON ERRORS
00334 M01S00333.tst +++| RSQ7 RJ CTR COMPUTE TRANSFER RATE
00335 M01S00334.tst +++| SA1 B0
00336 M01S00335.tst +++| LX1 59-9
00337 M01S00336.tst +++| NG X1,RSQ1 IF REPEAT SECTION
00338 M01S00337.tst +++| EQ RSQX RETURN
00339 M01S00338.tst +++|
00340 M01S00339.tst +++| RSQA CON 0 TEMPORARY
00341 M01S00340.tst +++| TITLE SUBROUTINES.
00342 M01S00341.tst +++| ABT SPACE 4,15
00343 M01S00342.tst +++|** ABT - ABORT JOB.
00344 M01S00343.tst +++|*
00345 M01S00344.tst +++|* ABORTS JOB IF PAUSE ON ERROR NOT SELECTED.
00346 M01S00345.tst +++|*
00347 M01S00346.tst +++|* EXIT (X4) = 1.
00348 M01S00347.tst +++|*
00349 M01S00348.tst +++|* USES X - 1, 4, 7.
00350 M01S00349.tst +++|* A - 1, 7.
00351 M01S00350.tst +++|* B - NONE.
00352 M01S00351.tst +++|*
00353 M01S00352.tst +++|* MACROS ABORT, MESSAGE, RECALL.
00354 M01S00353.tst +++|
00355 M01S00354.tst +++|
00356 M01S00355.tst +++| ABT SUBR ENTRY/EXIT
00357 M01S00356.tst +++| SA1 B0
00358 M01S00357.tst +++| LX1 59-7
00359 M01S00358.tst +++| NG X1,ABT2 IF ABORT ON ERROR
00360 M01S00359.tst +++| SX7 B1+ SET PAUSE BIT
00361 M01S00360.tst +++| LX1 7-59
00362 M01S00361.tst +++| LX7 12
00363 M01S00362.tst +++| BX7 X7+X1
00364 M01S00363.tst +++| SA7 A1
00365 M01S00364.tst +++| MESSAGE ABTA,2,R ISSUE MESSAGE TO SECOND LINE
00366 M01S00365.tst +++| ABT1 RECALL
00367 M01S00366.tst +++| SA1 B0
00368 M01S00367.tst +++| LX1 59-12
00369 M01S00368.tst +++| NG X1,ABT1 IF PAUSE BIT SET
00370 M01S00369.tst +++| SX4 B1
00371 M01S00370.tst +++| EQ ABTX RETURN
00372 M01S00371.tst +++|
00373 M01S00372.tst +++| ABT2 MESSAGE (=C* JOB ABORTED.*)
00374 M01S00373.tst +++| ABT3 ABORT ABORT JOB
00375 M01S00374.tst +++|
00376 M01S00375.tst +++| ABTA DATA C*$TST ERROR - GO / DROP.*
00377 M01S00376.tst +++| AIP SPACE 4,20
00378 M01S00377.tst +++|** AIP - ADVANCE *IN* POINTER.
00379 M01S00378.tst +++|*
00380 M01S00379.tst +++|* ADVANCE THE *IN* POINTER BY 100B (AS IF A *WRITEW* OF 100B
00381 M01S00380.tst +++|* WORDS HAD BEEN PERFORMED), BUT DO NOT TRANSFER THE DATA.
00382 M01S00381.tst +++|* COPY ONLY THE FIRST WORD OF THE BLOCK FROM BUFFER *SBUF*
00383 M01S00382.tst +++|* TO THE CIO BUFFER.
00384 M01S00383.tst +++|*
00385 M01S00384.tst +++|* ENTRY (X2) = ADDRESS OF FET FOR FILE.
00386 M01S00385.tst +++|*
00387 M01S00386.tst +++|* EXIT VIA *WTX=*.
00388 M01S00387.tst +++|* (X2) = ADDRESS OF FET FOR FILE.
00389 M01S00388.tst +++|*
00390 M01S00389.tst +++|* USES X - 1, 2, 3, 4, 6, 7.
00391 M01S00390.tst +++|* A - 1, 2, 3, 4, 6.
00392 M01S00391.tst +++|* B - 2, 3, 4, 5, 6, 7.
00393 M01S00392.tst +++|*
00394 M01S00393.tst +++|* CALLS DCB=, WTX=.
00395 M01S00394.tst +++|
00396 M01S00395.tst +++|
00397 M01S00396.tst +++| + EQ AIP1 (REENTRY ADDRESS FROM *DCB=*)
00398 M01S00397.tst +++|
00399 M01S00398.tst +++| AIP SUBR ENTRY/EXIT
00400 M01S00399.tst +++| SA4 *-1 SET REENTRY/RETURN ADDRESS
00401 M01S00400.tst +++| SA1 X2+4 (B5) = LIMIT
00402 M01S00401.tst +++| SA3 X2+B1 (X3) = FIRST
00403 M01S00402.tst +++| SB5 X1
00404 M01S00403.tst +++|
00405 M01S00404.tst +++|* REENTER HERE FROM *DCB=*.
00406 M01S00405.tst +++|
00407 M01S00406.tst +++| AIP1 SA2 X2 (B2) = FET STATUS
00408 M01S00407.tst +++| SA1 A3+2 (B4) = OUT
00409 M01S00408.tst +++| SB2 X2
00410 M01S00409.tst +++| SA2 A3+B1 (X2) = IN
00411 M01S00410.tst +++| SB4 X1
00412 M01S00411.tst +++| SB3 X2+B1 (B3) = IN+1
00413 M01S00412.tst +++| LE B3,B4,AIP3 IF IN .LT. OUT
00414 M01S00413.tst +++|
00415 M01S00414.tst +++|* CALCULATE SPACE LEFT IN BUFFER (IN .GE. OUT).
00416 M01S00415.tst +++|
00417 M01S00416.tst +++| SX6 B5
00418 M01S00417.tst +++| IX6 X6-X3 (LIMIT-FIRST)
00419 M01S00418.tst +++| SX7 B3-B4 (IN+1-OUT)
00420 M01S00419.tst +++| IX6 X6-X7 AVAILABLE SPACE IN BUFFER
00421 M01S00420.tst +++| SX7 X6-100B
00422 M01S00421.tst +++| NG X7,DCB= IF NOT ENOUGH SPACE
00423 M01S00422.tst +++|
00424 M01S00423.tst +++|* UPDATE BUFFER POINTER (IN .GE. OUT).
00425 M01S00424.tst +++|
00426 M01S00425.tst +++| SB6 X2+100B NEW VALUE OF IN
00427 M01S00426.tst +++| LT B6,B5,AIP2 IF NO BUFFER WRAPAROUND
00428 M01S00427.tst +++| SB7 X3
00429 M01S00428.tst +++| SB7 B5-B7 (LIMIT-FIRST)
00430 M01S00429.tst +++| SB6 B6-B7 NEW VALUE OF IN
00431 M01S00430.tst +++| AIP2 SA1 SBUF COPY FIRST WORD OF BLOCK TO (IN)
00432 M01S00431.tst +++| BX6 X1
00433 M01S00432.tst +++| SA6 X2
00434 M01S00433.tst +++| SX2 B6 SET NEW VALUE OF IN
00435 M01S00434.tst +++| EQ WTX= EXIT
00436 M01S00435.tst +++|
00437 M01S00436.tst +++|* CALCULATE SPACE LEFT IN BUFFER (IN .LT. OUT).
00438 M01S00437.tst +++|
00439 M01S00438.tst +++| AIP3 SX6 B4-B3 AVAILABLE SPACE IN BUFFER
00440 M01S00439.tst +++| SX7 X6-100B
00441 M01S00440.tst +++| NG X7,DCB= IF NOT ENOUGH SPACE IN BUFFER
00442 M01S00441.tst +++|
00443 M01S00442.tst +++|* UPDATE BUFFER POINTER (IN .LT. OUT).
00444 M01S00443.tst +++|
00445 M01S00444.tst +++| SB6 X2+100B NEW VALUE OF IN
00446 M01S00445.tst +++| EQ AIP2 EXIT
00447 M01S00446.tst +++| AOP SPACE 4,20
00448 M01S00447.tst +++|*** AOP - ADVANCE *OUT* POINTER.
00449 M01S00448.tst +++|*
00450 M01S00449.tst +++|* ADVANCE THE *OUT* POINTER BY 100B (AS IF A *READW* OF 100B
00451 M01S00450.tst +++|* WORDS HAD BEEN PERFORMED), BUT DO NOT TRANSFER THE DATA.
00452 M01S00451.tst +++|* COPY ONLY THE FIRST WORD OF THE BLOCK FROM THE CIO BUFFER
00453 M01S00452.tst +++|* TO BUFFER *SBUF*.
00454 M01S00453.tst +++|*
00455 M01S00454.tst +++|* ENTRY (X2) = ADDRESS OF FET FOR FILE.
00456 M01S00455.tst +++|*
00457 M01S00456.tst +++|* EXIT VIA *RDX=*.
00458 M01S00457.tst +++|* (X1) = 0 FOR TRANSFER COMPLETE.
00459 M01S00458.tst +++|* (X1) = -1 IF EOF DETECTED ON FILE.
00460 M01S00459.tst +++|* (X1) = -2 IF EOI DETECTED ON FILE.
00461 M01S00460.tst +++|* (X2) = ADDRESS OF FET FOR FILE.
00462 M01S00461.tst +++|*
00463 M01S00462.tst +++|* USES X - 1, 2, 3, 4, 6, 7.
00464 M01S00463.tst +++|* A - 1, 2, 3, 4, 7.
00465 M01S00464.tst +++|* B - 3, 4, 5, 6, 7.
00466 M01S00465.tst +++|*
00467 M01S00466.tst +++|* CALLS LCB=, RDX=.
00468 M01S00467.tst +++|
00469 M01S00468.tst +++|
00470 M01S00469.tst +++| + EQ AOP1 (REENTRY ADDRESS FOR *LCB=*)
00471 M01S00470.tst +++|
00472 M01S00471.tst +++| AOP SUBR ENTRY/EXIT
00473 M01S00472.tst +++| SA4 *-1 SET REENTRY/RETURN ADDRESS
00474 M01S00473.tst +++| SA1 X2+4 (B5) = LIMIT
00475 M01S00474.tst +++| SA3 X2+B1 (X3) = FIRST
00476 M01S00475.tst +++| SB5 X1
00477 M01S00476.tst +++|
00478 M01S00477.tst +++|* REENTER HERE FROM *LCB=*.
00479 M01S00478.tst +++|
00480 M01S00479.tst +++| AOP1 SA1 A3+B1 (B3) = IN
00481 M01S00480.tst +++| SA2 A1+B1 (B4) = OUT
00482 M01S00481.tst +++| SB3 X1
00483 M01S00482.tst +++| SB4 X2
00484 M01S00483.tst +++| LT B3,B4,AOP3 IF IN .LT. OUT
00485 M01S00484.tst +++|
00486 M01S00485.tst +++|* CALCULATE DATA AVAILABLE IN BUFFER (IN .GE. OUT).
00487 M01S00486.tst +++|
00488 M01S00487.tst +++| SX6 B3-B4 AVAILABLE DATA IN BUFFER
00489 M01S00488.tst +++| SX7 X6-100B
00490 M01S00489.tst +++| NG X7,LCB= IF NOT ENOUGH DATA IN BUFFER
00491 M01S00490.tst +++|
00492 M01S00491.tst +++|* UPDATE BUFFER POINTER (IN .GE. OUT).
00493 M01S00492.tst +++|
00494 M01S00493.tst +++| SB6 B4+100B NEW VALUE OF OUT
00495 M01S00494.tst +++| AOP2 SA1 B4 COPY FIRST WORD OF BLOCK FROM (OUT)
00496 M01S00495.tst +++| BX7 X1
00497 M01S00496.tst +++| SA7 SBUF
00498 M01S00497.tst +++| SB4 B6 SET NEW VALUE OF OUT
00499 M01S00498.tst +++| EQ RDX= EXIT
00500 M01S00499.tst +++|
00501 M01S00500.tst +++|* CALCULATE DATA AVAILABLE IN BUFFER (IN .LT. OUT)
00502 M01S00501.tst +++|
00503 M01S00502.tst +++| AOP3 SX6 B5
00504 M01S00503.tst +++| IX6 X6-X3 (LIMIT-FIRST)
00505 M01S00504.tst +++| SX7 B4-B3 (OUT-IN)
00506 M01S00505.tst +++| IX6 X6-X7 AVAILABLE DATA IN BUFFER
00507 M01S00506.tst +++| SX7 X6-100B
00508 M01S00507.tst +++| NG X7,LCB= IF NOT ENOUGH DATA IN BUFFER
00509 M01S00508.tst +++|
00510 M01S00509.tst +++|* UPDATE BUFFER POINTER (IN .LT. OUT).
00511 M01S00510.tst +++|
00512 M01S00511.tst +++| SB6 B4+100B NEW VALUE OF OUT
00513 M01S00512.tst +++| LT B6,B5,AOP2 IF NO BUFFER WRAPAROUND
00514 M01S00513.tst +++| SB7 X3
00515 M01S00514.tst +++| SB7 B5-B7 (LIMIT-FIRST)
00516 M01S00515.tst +++| SB6 B6-B7 NEW VALUE OF OUT
00517 M01S00516.tst +++| EQ AOP2 EXIT
00518 M01S00517.tst +++| CKS SPACE 4,20
00519 M01S00518.tst +++|** CKS - CHECK SECTOR.
00520 M01S00519.tst +++|*
00521 M01S00520.tst +++|* ENTRY (X5) = SECTOR NUMBER READ.
00522 M01S00521.tst +++|* (X4) = SECTOR NUMBER EXPECTED.
00523 M01S00522.tst +++|* (A5) = ADDRESS OF SECTOR TO BE CHECKED.
00524 M01S00523.tst +++|* ND .NE. 0 IF DATA IS TO BE CHECKED.
00525 M01S00524.tst +++|*
00526 M01S00525.tst +++|* EXIT (X4) = 0 IF NO ERROR DETECTED.
00527 M01S00526.tst +++|*
00528 M01S00527.tst +++|* USES X - ALL.
00529 M01S00528.tst +++|* A - 1, 2, 3, 4, 5, 6, 7.
00530 M01S00529.tst +++|* B - 2.
00531 M01S00530.tst +++|*
00532 M01S00531.tst +++|* RESTORES X5, T+2, T+3, X0, T+6 WHEN RETURNING FROM ERROR.
00533 M01S00532.tst +++|*
00534 M01S00533.tst +++|* CALLS ABT, DCH, ERR.
00535 M01S00534.tst +++|
00536 M01S00535.tst +++|
00537 M01S00536.tst +++| CKS SUBR ENTRY/EXIT
00538 M01S00537.tst +++| SA3 T+6 CHECK FOR CIO ERROR
00539 M01S00538.tst +++| MX2 -3
00540 M01S00539.tst +++| BX2 -X2*X3
00541 M01S00540.tst +++| NZ X2,CKS2 IF CIO ERROR
00542 M01S00541.tst +++| ZR X4,CKSX IF CHECKING ON WRITE - RETURN
00543 M01S00542.tst +++| CKS0 BX6 X4-X5
00544 M01S00543.tst +++| NZ X6,CKS3 IF POSITION ERROR
00545 M01S00544.tst +++| SX6 X4+B1 INCREMENT RANDOM ADDRESS FOR NEXT SECTOR
00546 M01S00545.tst +++| SA6 CKSJ
00547 M01S00546.tst +++| SA4 ND
00548 M01S00547.tst +++| ZR X4,CKSX IF DATA NOT TO BE CHECKED
00549 M01S00548.tst +++| SX4 B0
00550 M01S00549.tst +++| SB2 76B
00551 M01S00550.tst +++| SA2 A5+77B LOAD CHECKSUM
00552 M01S00551.tst +++| CKS1 SA1 A5+B2 VALIDATE CHECKSUM
00553 M01S00552.tst +++| IX2 X2-X1
00554 M01S00553.tst +++| SB2 B2-1
00555 M01S00554.tst +++| GT B2,B1,CKS1 IF MORE DATA
00556 M01S00555.tst +++| NZ X2,CKS1.1 IF CHECKSUM ERROR
00557 M01S00556.tst +++| SA3 CKSI CHECK SECTOR COUNT
00558 M01S00557.tst +++| SX6 X3-1
00559 M01S00558.tst +++| ZR X6,CKSX IF END OF TRANSFER
00560 M01S00559.tst +++| SA6 A3+
00561 M01S00560.tst +++| SA5 A5+100B SET ACTUAL RANDOM ADDRESS
00562 M01S00561.tst +++| SA4 CKSJ SET EXPECTED RANDOM ADDRESS
00563 M01S00562.tst +++| EQ CKS0 NEXT SECTOR
00564 M01S00563.tst +++|
00565 M01S00564.tst +++| CKS1.1 SA1 CKSA DATA ERROR PROCESSING
00566 M01S00565.tst +++| SA2 CKSE
00567 M01S00566.tst +++| RJ ERR DATA ERROR MESSAGE
00568 M01S00567.tst +++| RJ DCH DATA CHECK
00569 M01S00568.tst +++| EQ CKS6
00570 M01S00569.tst +++|
00571 M01S00570.tst +++| CKS2 SA1 CKSB CIO ERROR PROCESSING
00572 M01S00571.tst +++| SX6 X2-2
00573 M01S00572.tst +++| SA2 X2+TCIO-1
00574 M01S00573.tst +++| SA6 CKSG
00575 M01S00574.tst +++| LX7 X4
00576 M01S00575.tst +++| SX4 B0
00577 M01S00576.tst +++| SA7 CKSH
00578 M01S00577.tst +++| RJ ERR CIO ERROR MESSAGE
00579 M01S00578.tst +++| SA1 CKSG
00580 M01S00579.tst +++| NG X1,CKS5 IF PARITY ERROR
00581 M01S00580.tst +++| ZR X1,CKS4 IF ADDRESS ERROR
00582 M01S00581.tst +++| EQ CKS6
00583 M01S00582.tst +++|
00584 M01S00583.tst +++| CKS3 SA1 CKSC POSITION ERROR PROCESSING
00585 M01S00584.tst +++| SA2 CKSE
00586 M01S00585.tst +++| BX6 X4
00587 M01S00586.tst +++| SX4 B0
00588 M01S00587.tst +++| SA6 CKSH
00589 M01S00588.tst +++| RJ ERR POSITION ERROR MESSAGE
00590 M01S00589.tst +++| CKS4 SA4 CKSH SECTOR EXPECTED
00591 M01S00590.tst +++| SA1 CKSD
00592 M01S00591.tst +++| SA2 CKSF
00593 M01S00592.tst +++| BX5 X4
00594 M01S00593.tst +++| SX4 B1
00595 M01S00594.tst +++| ZR X5,CKS6 IF ADDRESS ERROR ON SEQUENTIAL WRITE
00596 M01S00595.tst +++| RJ ERR EXPECTED ERROR MESSAGE
00597 M01S00596.tst +++| CKS5 RJ DCH DATA CHECK
00598 M01S00597.tst +++| CKS6 RJ ABT CHECK FOR ABORT ON ERRORS
00599 M01S00598.tst +++| CKS7 SA5 ERRA RESTORE REGISTERS
00600 M01S00599.tst +++| SA2 A5+B1
00601 M01S00600.tst +++| SA3 A2+B1
00602 M01S00601.tst +++| SA1 A3+B1
00603 M01S00602.tst +++| BX6 X2
00604 M01S00603.tst +++| LX7 X3
00605 M01S00604.tst +++| SA2 A1+B1
00606 M01S00605.tst +++| SA6 T+2
00607 M01S00606.tst +++| SA7 T+3
00608 M01S00607.tst +++| LX6 X2
00609 M01S00608.tst +++| BX0 X1
00610 M01S00609.tst +++| SA6 T+6
00611 M01S00610.tst +++| EQ CKSX RETURN
00612 M01S00611.tst +++|
00613 M01S00612.tst +++|
00614 M01S00613.tst +++| CKSA DATA 10HEQXXX,DATA
00615 M01S00614.tst +++| CKSB DATA 10HEQXXX,DEV.
00616 M01S00615.tst +++| CKSC DATA 10HEQXXX,POS.
00617 M01S00616.tst +++| CKSD DATA 10HEQXXX,EXP.
00618 M01S00617.tst +++| CKSE CON 10H ERROR AT
00619 M01S00618.tst +++| CKSF CON 10H POSITION
00620 M01S00619.tst +++| CKSG CON 0 TEMPORARY
00621 M01S00620.tst +++| CKSH CON 0 TEMPORARY
00622 M01S00621.tst +++| CKSI CON 0 NUMBER OF SECTORS REMAINING TO CHECK
00623 M01S00622.tst +++| CKSJ CON 0 EXPECTED RANDOM ADDRESS OF NEXT SECTOR
00624 M01S00623.tst +++|
00625 M01S00624.tst +++| TCIO CON 10LPARITY ER. PARITY ERROR
00626 M01S00625.tst +++| CON 10LADDR. ERR. ADDRESS ERROR
00627 M01S00626.tst +++| CON 10LSTATUS ER. DEVICE STATUS ERROR
00628 M01S00627.tst +++| CON 10L81 FNC REJ 6681 FUNCTION REJECT
00629 M01S00628.tst +++| CON 10LRESERVED DEVICE RESERVED
00630 M01S00629.tst +++| CON 10LNOT READY DEVICE NOT READY
00631 M01S00630.tst +++| CTR SPACE 4,15
00632 M01S00631.tst +++|** CTR - COMPUTE TRANSFER RATE.
00633 M01S00632.tst +++|*
00634 M01S00633.tst +++|* ENTRY (CTRB) = NUMBER OF SECTORS TRANSFERRED.
00635 M01S00634.tst +++|* (ST) = START TIME.
00636 M01S00635.tst +++|*
00637 M01S00636.tst +++|* EXIT TRANSFER RATE MESSAGE ISSUED TO DAYFILE.
00638 M01S00637.tst +++|*
00639 M01S00638.tst +++|* USES X - 0, 1, 2, 3, 6.
00640 M01S00639.tst +++|* A - 1, 2, 6.
00641 M01S00640.tst +++|* B - NONE.
00642 M01S00641.tst +++|*
00643 M01S00642.tst +++|* CALLS CFD, MES.
00644 M01S00643.tst +++|*
00645 M01S00644.tst +++|* MACROS RTIME.
00646 M01S00645.tst +++|
00647 M01S00646.tst +++|
00648 M01S00647.tst +++| CTR SUBR ENTRY/EXIT
00649 M01S00648.tst +++| RTIME ET GET ENDING TIME
00650 M01S00649.tst +++| SA1 ST COMPUTE ELAPSED TIME
00651 M01S00650.tst +++| SA2 ET
00652 M01S00651.tst +++| MX0 -36
00653 M01S00652.tst +++| BX1 -X0*X1
00654 M01S00653.tst +++| BX2 -X0*X2
00655 M01S00654.tst +++| IX2 X2-X1
00656 M01S00655.tst +++| BX6 X2
00657 M01S00656.tst +++| SA1 CTRB
00658 M01S00657.tst +++| SX3 640*1000/64
00659 M01S00658.tst +++| LX3 6
00660 M01S00659.tst +++| IX3 X1*X3 CHAR
00661 M01S00660.tst +++| IX1 X3/X2
00662 M01S00661.tst +++| RJ CFD CONVERT TO DISPLAY CODE
00663 M01S00662.tst +++| SA6 CTRA+2
00664 M01S00663.tst +++| SX1 CTRA SEND TRANSFER RATE MESSAGE
00665 M01S00664.tst +++| RJ MES
00666 M01S00665.tst +++| EQ CTRX RETURN
00667 M01S00666.tst +++|
00668 M01S00667.tst +++| CTRA DATA C*TST TRANSFER RATE = XXXXXX.XXX KC.*
00669 M01S00668.tst +++| CTRB CON 0 SECTORS TRANSFERRED
00670 M01S00669.tst +++| DCH SPACE 4,15
00671 M01S00670.tst +++|** DCH - DATA CHECK.
00672 M01S00671.tst +++|*
00673 M01S00672.tst +++|* ENTRY (SBUF - SBUF+77B) = SECTOR TO BE CHECKED.
00674 M01S00673.tst +++|*
00675 M01S00674.tst +++|* USES X - 0, 1, 2, 6, 7.
00676 M01S00675.tst +++|* A - 1, 2, 6, 7.
00677 M01S00676.tst +++|* B - 2, 5, 6, 7.
00678 M01S00677.tst +++|*
00679 M01S00678.tst +++|* CALLS COD, GDB, WOD.
00680 M01S00679.tst +++|*
00681 M01S00680.tst +++|* MACROS MESSAGE.
00682 M01S00681.tst +++|
00683 M01S00682.tst +++|
00684 M01S00683.tst +++| DCH4 NZ B7,DCHX IF ERRORS FOUND RETURN
00685 M01S00684.tst +++| MESSAGE (=C*DATA OK.*)
00686 M01S00685.tst +++|
00687 M01S00686.tst +++| DCH SUBR ENTRY/EXIT
00688 M01S00687.tst +++| SA1 ND
00689 M01S00688.tst +++| ZR X1,DCHX IF NO DATA GENERATED
00690 M01S00689.tst +++| SA1 SBUF+1
00691 M01S00690.tst +++| SB5 B1
00692 M01S00691.tst +++| BX6 X1
00693 M01S00692.tst +++| SA6 PBUF+1
00694 M01S00693.tst +++| SB7 B0+
00695 M01S00694.tst +++| RJ GDB REGENERATE DATA
00696 M01S00695.tst +++| DCH1 SB6 77B
00697 M01S00696.tst +++| DCH2 SA1 PBUF+B5
00698 M01S00697.tst +++| SA2 SBUF+B5
00699 M01S00698.tst +++| SB5 B5+B1
00700 M01S00699.tst +++| BX7 X2-X1
00701 M01S00700.tst +++| GT B5,B6,DCH4 IF END OF CHECK
00702 M01S00701.tst +++| ZR X7,DCH2 IF DATA MATCHES
00703 M01S00702.tst +++| LX6 X2
00704 M01S00703.tst +++| SB7 B1 ERROR FLAG
00705 M01S00704.tst +++| SA6 DCHA
00706 M01S00705.tst +++| SA7 A6+B1
00707 M01S00706.tst +++| BX0 X1
00708 M01S00707.tst +++| SX1 B5
00709 M01S00708.tst +++| SB6 B0
00710 M01S00709.tst +++| RJ COD CONVERT WORD NUMBER
00711 M01S00710.tst +++| LX6 6
00712 M01S00711.tst +++| SX1 B1
00713 M01S00712.tst +++| IX6 X6+X1
00714 M01S00713.tst +++| BX1 X0
00715 M01S00714.tst +++| SA6 DCHD
00716 M01S00715.tst +++| DCH3 RJ WOD CONVERT DATA
00717 M01S00716.tst +++| SA1 TMES+B6 MESSAGE TYPE
00718 M01S00717.tst +++| SA2 DCHD
00719 M01S00718.tst +++| SA6 DCHE
00720 M01S00719.tst +++| MX0 -24
00721 M01S00720.tst +++| SA7 A6+B1
00722 M01S00721.tst +++| BX2 -X0*X2 MERGE MESSAGE TYPE
00723 M01S00722.tst +++| BX1 X0*X1
00724 M01S00723.tst +++| BX6 X2+X1
00725 M01S00724.tst +++| SA6 A2
00726 M01S00725.tst +++| MESSAGE DCHC,,R
00727 M01S00726.tst +++| SA1 DCHA+B6
00728 M01S00727.tst +++| SB2 B6-B1
00729 M01S00728.tst +++| SB6 B6+B1
00730 M01S00729.tst +++| NE B2,B1,DCH3 IF MORE MESSAGES FOR THIS ERROR
00731 M01S00730.tst +++| EQ DCH1
00732 M01S00731.tst +++|
00733 M01S00732.tst +++| DCHA CON 0 TEMPORARY
00734 M01S00733.tst +++| DCHB CON 0 TEMPORARY
00735 M01S00734.tst +++| DCHC DATA 10HEQXXX,DATA
00736 M01S00735.tst +++| DCHD CON 10H .... 000,
00737 M01S00736.tst +++| DCHE CON 0,0,0
00738 M01S00737.tst +++|
00739 M01S00738.tst +++| TMES CON 6L EXP TABLE OF MESSAGES
00740 M01S00739.tst +++| CON 6L READ
00741 M01S00740.tst +++| CON 6L DIFF
00742 M01S00741.tst +++| ERR SPACE 4,15
00743 M01S00742.tst +++|** ERR - SEND ERROR MESSAGE.
00744 M01S00743.tst +++|*
00745 M01S00744.tst +++|* ENTRY (X4) = 0 IF REGISTERS MUST BE SAVED.
00746 M01S00745.tst +++|* (X2) = SECOND WORD OF MESSAGE.
00747 M01S00746.tst +++|* (X1) = FIRST WORD OF MESSAGE.
00748 M01S00747.tst +++|*
00749 M01S00748.tst +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
00750 M01S00749.tst +++|* A - 1, 2, 3, 6, 7.
00751 M01S00750.tst +++|* B - 6
00752 M01S00751.tst +++|*
00753 M01S00752.tst +++|* CALLS CVA, WOD.
00754 M01S00753.tst +++|*
00755 M01S00754.tst +++|* MACROS MESSAGE, RECALL, RPHR, STATUS.
00756 M01S00755.tst +++|
00757 M01S00756.tst +++|
00758 M01S00757.tst +++| ERR SUBR ENTRY/EXIT
00759 M01S00758.tst +++| BX6 X1
00760 M01S00759.tst +++| LX7 X2
00761 M01S00760.tst +++| SA6 ERRB
00762 M01S00761.tst +++| SA7 A6+B1
00763 M01S00762.tst +++| RECALL T
00764 M01S00763.tst +++| NZ X4,ERR1 IF REGISTERS ALREADY SAVED
00765 M01S00764.tst +++| SA2 T+2
00766 M01S00765.tst +++| SA3 T+3
00767 M01S00766.tst +++| LX6 X5
00768 M01S00767.tst +++| BX7 X2
00769 M01S00768.tst +++| SA2 T+6
00770 M01S00769.tst +++| SA6 ERRA
00771 M01S00770.tst +++| LX6 X3
00772 M01S00771.tst +++| SA7 A6+B1
00773 M01S00772.tst +++| BX7 X0
00774 M01S00773.tst +++| SA6 A7+B1
00775 M01S00774.tst +++| LX6 X2
00776 M01S00775.tst +++| SA7 A6+B1
00777 M01S00776.tst +++| SA6 A6+2
00778 M01S00777.tst +++| ERR1 MESSAGE ERRB,,R
00779 M01S00778.tst +++| EQ ERRX RETURN
00780 M01S00779.tst +++|
00781 M01S00780.tst +++| ERRA BSS 5
00782 M01S00781.tst +++| ERRB DATA 10HEQXXX,ZZZZ
00783 M01S00782.tst +++| ERRC CON 10H ERROR AT
00784 M01S00783.tst +++| ERRD CON 0,0
00785 M01S00784.tst +++| CON 0 END OF LINE FOR FIRST MESSAGE
00786 M01S00785.tst +++| GDB SPACE 4,15
00787 M01S00786.tst +++|** GDB - GENERATE DATA BUFFER.
00788 M01S00787.tst +++|*
00789 M01S00788.tst +++|* ENTRY (X6) = RANDOM NUMBER WHICH WILL GENERATE BUFFER.
00790 M01S00789.tst +++|* (A6) = ADDRESS OF RANDOM NUMBER IN BUFFER.
00791 M01S00790.tst +++|*
00792 M01S00791.tst +++|* EXIT (X6) = CHECKSUM OF BUFFER.
00793 M01S00792.tst +++|* (X7) = LAST DATA WORD STORED IN BUFFER.
00794 M01S00793.tst +++|* (B2) = (B3) = NUMBER OF DATA WORDS GENERATED.
00795 M01S00794.tst +++|* (A6) = ADDRESS OF LAST WORD IN BUFFER.
00796 M01S00795.tst +++|*
00797 M01S00796.tst +++|* USES X - 2, 6, 7.
00798 M01S00797.tst +++|* A - 2, 6, 7.
00799 M01S00798.tst +++|* B - 2, 3.
00800 M01S00799.tst +++|
00801 M01S00800.tst +++|
00802 M01S00801.tst +++| GDB SUBR ENTRY/EXIT
00803 M01S00802.tst +++| SA2 ND
00804 M01S00803.tst +++| ZR X2,GDBX IF NO DATA GENERATION
00805 M01S00804.tst +++| SB3 75B
00806 M01S00805.tst +++| SB2 B0+
00807 M01S00806.tst +++| GDBA BX7 X6
00808 M01S00807.tst +++| SA7 A6
00809 M01S00808.tst +++|
00810 M01S00809.tst +++|* THIS INSTRUCTION IS MODIFIED BY PRESET
00811 M01S00810.tst +++|* EQ GDB2 IF NON-RANDOM PATTERN
00812 M01S00811.tst +++|
00813 M01S00812.tst +++| SX6 B0+ IF RANDOM PATTERN - CLEAR CHECKSUM
00814 M01S00813.tst +++|
00815 M01S00814.tst +++| GDB1 PX2 X7
00816 M01S00815.tst +++| DX7 X2*X2
00817 M01S00816.tst +++| IX7 X7+X2
00818 M01S00817.tst +++| SB2 B2+B1
00819 M01S00818.tst +++| LX2 15
00820 M01S00819.tst +++| IX7 X7+X2
00821 M01S00820.tst +++| LX2 19
00822 M01S00821.tst +++| IX7 X2+X7
00823 M01S00822.tst +++| SA7 A7+B1
00824 M01S00823.tst +++| IX6 X6+X7 ADVANCE CHECKSUM
00825 M01S00824.tst +++| NE B2,B3,GDB1 IF MORE DATA TO GENERATE
00826 M01S00825.tst +++| SA6 A7+B1 CHECKSUM IN LAST LOCATION OF BUFFER
00827 M01S00826.tst +++| EQ GDBX
00828 M01S00827.tst +++|
00829 M01S00828.tst +++| GDB2 SB2 B2+B1
00830 M01S00829.tst +++| SA7 A7+B1
00831 M01S00830.tst +++| NE B2,B3,GDB2 IF BUFFER NOT FULL
00832 M01S00831.tst +++| SA6 A7+B1
00833 M01S00832.tst +++| EQ GDBX
00834 M01S00833.tst +++| MEM SPACE 4,15
00835 M01S00834.tst +++|** MEM - REQUEST MEMORY.
00836 M01S00835.tst +++|*
00837 M01S00836.tst +++|* ENTRY (X1) = REQUESTED MEMORY.
00838 M01S00837.tst +++|*
00839 M01S00838.tst +++|* EXIT (IN) = (OUT) = (FIRST).
00840 M01S00839.tst +++|* (LIMIT) = REQUESTED FIELD LENGTH.
00841 M01S00840.tst +++|*
00842 M01S00841.tst +++|* USES X - 2, 6, 7.
00843 M01S00842.tst +++|* A - 2, 6, 7.
00844 M01S00843.tst +++|* B - NONE.
00845 M01S00844.tst +++|*
00846 M01S00845.tst +++|* MACROS MEMORY.
00847 M01S00846.tst +++|
00848 M01S00847.tst +++|
00849 M01S00848.tst +++| MEM SUBR ENTRY/EXIT
00850 M01S00849.tst +++| SA2 T+1
00851 M01S00850.tst +++| SX7 X1-10B
00852 M01S00851.tst +++| SX6 X2
00853 M01S00852.tst +++| SA7 T+4 LIMIT
00854 M01S00853.tst +++| SA6 A7-B1 OUT
00855 M01S00854.tst +++| SA6 A6-B1 IN
00856 M01S00855.tst +++| MEMORY ,,R,X1 REQUEST MEMORY
00857 M01S00856.tst +++| EQ MEMX RETURN
00858 M01S00857.tst +++| MES SPACE 4,15
00859 M01S00858.tst +++|** MES - SEND MESSAGE.
00860 M01S00859.tst +++|*
00861 M01S00860.tst +++|* ENTRY (X1) = MESSAGE ADDRESS.
00862 M01S00861.tst +++|*
00863 M01S00862.tst +++|* EXIT MESSAGE SENT TO CONTROL POINT AND JOB DAYFILE.
00864 M01S00863.tst +++|*
00865 M01S00864.tst +++|* USES X - 0.
00866 M01S00865.tst +++|* A - NONE.
00867 M01S00866.tst +++|* B - NONE.
00868 M01S00867.tst +++|*
00869 M01S00868.tst +++|* MACROS MESSAGE.
00870 M01S00869.tst +++|
00871 M01S00870.tst +++|
00872 M01S00871.tst +++| MES SUBR ENTRY/EXIT
00873 M01S00872.tst +++| SX0 X1+
00874 M01S00873.tst +++| MESSAGE X1,1,R
00875 M01S00874.tst +++| MESSAGE X0,3,R
00876 M01S00875.tst +++| EQ MESX RETURN
00877 M01S00876.tst +++| WRC SPACE 4,10
00878 M01S00877.tst +++|** WRC - WAIT REWIND COMPLETE.
00879 M01S00878.tst +++|*
00880 M01S00879.tst +++|* USES X - 1, 2, 3.
00881 M01S00880.tst +++|* A - 1.
00882 M01S00881.tst +++|* B - NONE.
00883 M01S00882.tst +++|*
00884 M01S00883.tst +++|* MACROS MESSAGE, RECALL, RTIME.
00885 M01S00884.tst +++|
00886 M01S00885.tst +++|
00887 M01S00886.tst +++| WRC SUBR
00888 M01S00887.tst +++| MESSAGE (=C* WAIT REWIND COMPLETE.*),1,R
00889 M01S00888.tst +++| RTIME WRCA FETCH TIME
00890 M01S00889.tst +++| REWIND T
00891 M01S00890.tst +++| SA1 WRCA
00892 M01S00891.tst +++| MX3 -36
00893 M01S00892.tst +++| BX2 -X3*X1 SAVE START TIME
00894 M01S00893.tst +++| WRC1 RECALL DELAY
00895 M01S00894.tst +++| RTIME WRCA CHECK TIME
00896 M01S00895.tst +++| SA1 WRCA
00897 M01S00896.tst +++| BX1 -X3*X1
00898 M01S00897.tst +++| IX1 X1-X2 TIME SINCE FIRST CALL
00899 M01S00898.tst +++| SX1 X1-40000
00900 M01S00899.tst +++| NG X1,WRC1 IF 40 SECONDS NOT ELAPSED
00901 M01S00900.tst +++| EQ WRCX RETURN
00902 M01S00901.tst +++|
00903 M01S00902.tst +++| WRCA BSS 1
00904 M01S00903.tst +++| SPACE 4
00905 M01S00904.tst +++|** COMMON DECKS.
00906 M01S00905.tst +++|
00907 M01S00906.tst +++|
00908 M01S00907.tst +++| ERP1$ EQU 1 ENABLE I/O ERROR PROCESSING
00909 M01S00908.tst +++|*CALL COMCCDD
00910 M01S00909.tst +++|*CALL COMCCOD
00911 M01S00910.tst +++|*CALL COMCCIO
00912 M01S00911.tst +++|*CALL COMCCFD
00913 M01S00912.tst +++|*CALL COMCLFM
00914 M01S00913.tst +++|*CALL COMCRDW
00915 M01S00914.tst +++|*CALL COMCSYS
00916 M01S00915.tst +++|*CALL COMCWOD
00917 M01S00916.tst +++|*CALL COMCWTW
00918 M01S00917.tst +++| BUFFERS SPACE 4
00919 M01S00918.tst +++| TITLE BUFFERS.
00920 M01S00919.tst +++| USE //
00921 M01S00920.tst +++| SEG
00922 M01S00921.tst +++| BUFS BSS 0
00923 M01S00922.tst +++|
00924 M01S00923.tst +++| PBUF EQU BUFS+1 TEST BUFFER FOR PATTERN REGENERATION
00925 M01S00924.tst +++| SBUF EQU PBUF+100B
00926 M01S00925.tst +++| TBUF EQU SBUF+100B
00927 M01S00926.tst +++| MFL= EQU TBUF+TBUFL+10B+200000B
00928 M01S00927.tst +++|
00929 M01S00928.tst +++|
00930 M01S00929.tst +++| TITLE PRESET.
00931 M01S00930.tst +++| ORG BUFS
00932 M01S00931.tst +++|
00933 M01S00932.tst +++|
00934 M01S00933.tst +++|** THE FOLLOWING CODE IS OVERLAYED BY BUFFERS.
00935 M01S00934.tst +++|
00936 M01S00935.tst +++|
00937 M01S00936.tst +++|* COMMON DECKS
00938 M01S00937.tst +++|
00939 M01S00938.tst +++|*CALL COMCARG
00940 M01S00939.tst +++|*CALL COMCCPM
00941 M01S00940.tst +++|*CALL COMCDXB
00942 M01S00941.tst +++|*CALL COMCMVE
00943 M01S00942.tst +++| PRS SPACE 4
00944 M01S00943.tst +++|** PRS - PRESET PROGRAM.
00945 M01S00944.tst +++|*
00946 M01S00945.tst +++|* ENTRY (B7) = 1 IF ADDRESS CONVERSION PRESET.
00947 M01S00946.tst +++|
00948 M01S00947.tst +++|
00949 M01S00948.tst +++| PRS SUBR ENTRY/EXIT
00950 M01S00949.tst +++| MODE 1
00951 M01S00950.tst +++| STATUS T,P
00952 M01S00951.tst +++| SA1 T+6
00953 M01S00952.tst +++| RJ WOD CONVERT EST ORDINAL
00954 M01S00953.tst +++| SA1 T+1
00955 M01S00954.tst +++| AX6 6 POSITION EST ORDINAL
00956 M01S00955.tst +++| MX0 12
00957 M01S00956.tst +++| BX1 X0*X1
00958 M01S00957.tst +++| MX0 18
00959 M01S00958.tst +++| LX0 -12
00960 M01S00959.tst +++| BX6 X0*X6
00961 M01S00960.tst +++| BX6 X6+X1 MERGE EST ORDINAL AND TYPE
00962 M01S00961.tst +++| MX0 -30
00963 M01S00962.tst +++| SA1 DCHC SET EQUIPMENT IN MESSAGES
00964 M01S00963.tst +++| BX1 -X0*X1
00965 M01S00964.tst +++| BX7 X6+X1
00966 M01S00965.tst +++| SA7 DCHC
00967 M01S00966.tst +++| SA1 CKSA-1
00968 M01S00967.tst +++| SB2 B0+
00969 M01S00968.tst +++| SB3 4
00970 M01S00969.tst +++| PRS1 SA1 A1+B1
00971 M01S00970.tst +++| BX1 -X0*X1
00972 M01S00971.tst +++| SB2 B2+1
00973 M01S00972.tst +++| BX7 X6+X1
00974 M01S00973.tst +++| SA7 A1
00975 M01S00974.tst +++| LT B2,B3,PRS1 IF MORE MESSAGES
00976 M01S00975.tst +++| MX6 0
00977 M01S00976.tst +++| SA6 T+5
00978 M01S00977.tst +++| SA6 A6+B1
00979 M01S00978.tst +++|
00980 M01S00979.tst +++|* IDENTIFY ASSIGNED EQUIPMENT.
00981 M01S00980.tst +++|
00982 M01S00981.tst +++| SA2 TEQP
00983 M01S00982.tst +++| SA1 T+B1
00984 M01S00983.tst +++| MX0 -24
00985 M01S00984.tst +++| MX4 11
00986 M01S00985.tst +++| LX4 -1
00987 M01S00986.tst +++| SX7 B1
00988 M01S00987.tst +++| PRS2 ZR X2,PRS8 IF END OF TABLE
00989 M01S00988.tst +++| BX3 X2-X1
00990 M01S00989.tst +++| BX6 X4*X3
00991 M01S00990.tst +++| LX3 X2
00992 M01S00991.tst +++| SA2 A2+B1
00993 M01S00992.tst +++| NZ X6,PRS2 IF NO EQUIPMENT MATCH
00994 M01S00993.tst +++| BX6 -X0*X3
00995 M01S00994.tst +++| IX6 X6-X7
00996 M01S00995.tst +++| SA6 NS
00997 M01S00996.tst +++| MX7 12 SET SECTOR MASK
00998 M01S00997.tst +++| NX6 X6,B2
00999 M01S00998.tst +++| AX7 X7,B2
01000 M01S00999.tst +++| SA7 A6+B1
01001 M01S01000.tst +++|
01002 M01S01001.tst +++|* RETRIEVE ARGUMENTS.
01003 M01S01002.tst +++|
01004 M01S01003.tst +++| SA1 ACTR ARGUMENT COUNT
01005 M01S01004.tst +++| SB7 B0 FORCE OCTAL CONVERSION OF ARGUMENTS
01006 M01S01005.tst +++| SB4 X1
01007 M01S01006.tst +++| SA4 ARGR FIRST ARGUMENT
01008 M01S01007.tst +++| SB5 TARG ARGUMENT TABLE
01009 M01S01008.tst +++| RJ ARG PROCESS ARGUMENTS
01010 M01S01009.tst +++| NZ X1,PRS7 IF ARGUMENT ERROR
01011 M01S01010.tst +++| SA5 NS NUMBER OF SECTORS
01012 M01S01011.tst +++| MX2 12
01013 M01S01012.tst +++| BX3 X2*X5
01014 M01S01013.tst +++| ZR X3,PRS3 IF ARGUMENT OMITTED
01015 M01S01014.tst +++| RJ DXB CONVERT OCTAL ARGUMENT
01016 M01S01015.tst +++| NZ X4,PRS7 IF ERROR IN CONVERSION
01017 M01S01016.tst +++| SX1 B1
01018 M01S01017.tst +++| IX6 X6-X1
01019 M01S01018.tst +++| ZR X6,PRS7 IF ARGUMENT ERROR
01020 M01S01019.tst +++| SA6 NS
01021 M01S01020.tst +++| MX7 12 SET SECTOR MASK
01022 M01S01021.tst +++| NX6 X6,B2
01023 M01S01022.tst +++| AX7 X7,B2
01024 M01S01023.tst +++| SA7 SM
01025 M01S01024.tst +++|
01026 M01S01025.tst +++| PRS3 SA1 NS SET SECTOR SIZE
01027 M01S01026.tst +++| RJ CDD CONVERT TO DISPLAY
01028 M01S01027.tst +++| SA6 PRSE+2
01029 M01S01028.tst +++| SX1 PRSE
01030 M01S01029.tst +++| RJ MES SEND FILE SIZE MESSAGE
01031 M01S01030.tst +++|
01032 M01S01031.tst +++|* PATTERN SELECTION.
01033 M01S01032.tst +++|
01034 M01S01033.tst +++| SA5 TP
01035 M01S01034.tst +++| RJ DXB
01036 M01S01035.tst +++| NZ X4,PRS7 IF ARGUMENT ERROR
01037 M01S01036.tst +++| SB5 X6-TPATL+1
01038 M01S01037.tst +++| BX5 X6
01039 M01S01038.tst +++| GT B5,B0,PRS7 IF ARGUMENT ERROR
01040 M01S01039.tst +++| SA1 X6+TPAT
01041 M01S01040.tst +++| SA2 PRSA
01042 M01S01041.tst +++| BX6 X1
01043 M01S01042.tst +++| LX7 X2
01044 M01S01043.tst +++| SB5 X5-5
01045 M01S01044.tst +++| ZR B5,PRS4 IF P=5 (RANDOM PATTERN)
01046 M01S01045.tst +++| SA7 GDBA SETS AN INSTRUCTION IN GDB
01047 M01S01046.tst +++| PRS4 SA6 TP
01048 M01S01047.tst +++| SX7 X5-4
01049 M01S01048.tst +++| SA7 ND SET NO DATA FLAG
01050 M01S01049.tst +++| ZR X7,PRS5 IF P=4
01051 M01S01050.tst +++| SX7 X5-6
01052 M01S01051.tst +++| NZ X7,PRS5 IF NOT P=6
01053 M01S01052.tst +++| SA7 ND SET NO DATA FLAG
01054 M01S01053.tst +++| SA7 NT SET NO DATA TRANSFER FLAG
01055 M01S01054.tst +++|
01056 M01S01055.tst +++|* TEST SELECTION.
01057 M01S01056.tst +++|
01058 M01S01057.tst +++| PRS5 SA5 TS
01059 M01S01058.tst +++| RJ DXB
01060 M01S01059.tst +++| NZ X4,PRS7 IF ARGUMENT ERROR
01061 M01S01060.tst +++| SX3 X6-6
01062 M01S01061.tst +++| PL X3,PRS7 IF ARGUMENT ERROR
01063 M01S01062.tst +++| SA6 TS
01064 M01S01063.tst +++|
01065 M01S01064.tst +++|* BLOCK SIZE SELECTION.
01066 M01S01065.tst +++|
01067 M01S01066.tst +++| SA5 BS SPECIFIED BLOCK SIZE
01068 M01S01067.tst +++| MX2 12
01069 M01S01068.tst +++| BX3 X2*X5
01070 M01S01069.tst +++| ZR X3,PRS6 IF ARGUMENT OMITTED
01071 M01S01070.tst +++| RJ DXB CONVERT OCTAL ARGUMENT
01072 M01S01071.tst +++| NZ X4,PRS7 IF ERROR IN CONVERSION
01073 M01S01072.tst +++| BX5 X6
01074 M01S01073.tst +++| AX5 9
01075 M01S01074.tst +++| LX5 9
01076 M01S01075.tst +++| IX7 X6-X5
01077 M01S01076.tst +++| NZ X7,PRS7 IF NOT MULTIPLE OF 1000B
01078 M01S01077.tst +++| PRS6 BX6 X5 SET MLRS FIELD IN FET
01079 M01S01078.tst +++| SA6 T+6
01080 M01S01079.tst +++| EQ PRSX RETURN
01081 M01S01080.tst +++|
01082 M01S01081.tst +++| PRS7 MESSAGE (=C* ARGUMENT ERROR.*)
01083 M01S01082.tst +++| EQ ABT3 ABORT
01084 M01S01083.tst +++|
01085 M01S01084.tst +++| PRS8 MESSAGE (=C* ILLEGAL EQUIPMENT.*)
01086 M01S01085.tst +++| EQ ABT3 ABORT
01087 M01S01086.tst +++|
01088 M01S01087.tst +++| PRSA BX7 X6
01089 M01S01088.tst +++| SA7 A6
01090 M01S01089.tst +++| EQ GDB2
01091 M01S01090.tst +++|
01092 M01S01091.tst +++| PRSB CON 0 DEVICE TYPE - NO DEFAULT
01093 M01S01092.tst +++| PRSC DATA 0L0 TRACK
01094 M01S01093.tst +++| PRSD CON 0 SECTOR
01095 M01S01094.tst +++| PRSE DATA C* FILE SIZE = XXXXXXXXXX SECTORS.*
01096 M01S01095.tst +++|
01097 M01S01096.tst +++|
01098 M01S01097.tst +++| TARG BSS 0 TST ARGUMENT TABLE
01099 M01S01098.tst +++| T ARG DZRO,TS,400B
01100 M01S01099.tst +++| P ARG TP,TP,400B
01101 M01S01100.tst +++| N ARG DZRO,NS,400B
01102 M01S01101.tst +++| NW ARG -ONE,NW
01103 M01S01102.tst +++| BS ARG BS,BS
01104 M01S01103.tst +++| ARG
01105 M01S01104.tst +++|
01106 M01S01105.tst +++|
01107 M01S01106.tst +++| DZRO DATA 1L0 DISPLAY CODE ZERO
01108 M01S01107.tst +++| ONE DATA 1 CONSTANT 1
01109 M01S01108.tst +++|
01110 M01S01109.tst +++|
01111 M01S01110.tst +++| TEQP BSS 0 TABLE OF EQUIPMENTS
01112 M01S01111.tst +++| VFD 12/2RMT,24/,24/100000B
01113 M01S01112.tst +++| VFD 12/2RNT,24/,24/100000B
01114 M01S01113.tst +++| VFD 12/2RCT,24/,24/100000B
01115 M01S01114.tst +++| VFD 12/2RAT,24/,24/100000B
01116 M01S01115.tst +++| CON 0 END OF TABLE
01117 M01S01116.tst +++|
01118 M01S01117.tst +++| TPAT BSS 0 TABLE OF PATTERNS.
01119 M01S01118.tst +++| DATA 0
01120 M01S01119.tst +++| DATA -0
01121 M01S01120.tst +++| DATA 25252525252525252525B
01122 M01S01121.tst +++| DATA 52525252525252525252B
01123 M01S01122.tst +++| DATA 0
01124 M01S01123.tst +++| DATA 13576420735162531625B
01125 M01S01124.tst +++| DATA 0
01126 M01S01125.tst +++| TPATL EQU *-TPAT
01127 M01S01126.tst +++|
01128 M01S01127.tst +++| SPACE 4
01129 M01S01128.tst +++| END