1 1 9GLTA 11-8-59 PAGE 1 *NOW PERFORMING 9GLT-A PROGRAM FOR TESTING *GAPLESS TAPE OPERATION ON THE 709 00030 ORG 24 00030 0766 00 0 01361 BEGIN WPRA 00031 0540 00 0 01303 RCHA PRNT1 PRINT IDENTIFICATION 00032 0500 00 0 03520 CLA POST1, TRA BEGIN+4 00033 0601 00 0 00000 STO 0 00034 0772 00 0 01201 REWA 1 REWIND TAPE 00035 0774 00 1 01200 AXT 640,1 RDFLD CT 00036 0600 00 1 02666 STZ RDFLD+640,1 CLEAR RDFLD 00037 2 00001 1 00036 TIX *-1,1,1 *TEST ONE CONSISTS OF FIVE FILES. *EACH FILE CONTAINS DEC640 OCT1200 WORDS. 00040 0774 00 2 00005 AXT 5,2 L-5 FILE COUNT 00041 0766 00 0 01221 WRTP1 WTBA 1 NON WRITING TEST 1 00042 0540 00 0 01250 RCHA CWD1 640DEC 1200OCT WRD FILE 00043 0060 00 0 00043 TCOA * 00044 0074 00 4 06560 TSX RDNCK,4 IO CHECK 00045 0761 00 0 00034 NOP BEGIN+4 IO CHECK 00046 0770 00 0 01201 WEFA 1 00047 2 00001 2 00041 TIX WRTP1,2,1 WR FIVE FILES *TEST ONE WRITTEN *WILL NOW READ AND COMPARE TEST ONE 00050 0772 00 0 01201 REWA 1 00051 0500 00 0 03441 CLA WCNT1 L-641 WORD COUNT+1 00052 0601 00 0 06556 STO WDNO FOR DEPR ROUTINE 00053 0500 00 0 03446 CLA RECT1 L-6 REC COUNT+1 00054 0601 00 0 06557 STO RECNO FOR DEPR ROUTINE 00055 0774 00 2 00005 AXT 5,2 L 5 00056 0020 00 0 00060 TRA *+2 00057 516322210160 BCD 1RTBA1 READ AND CHK TEST1 00060 0762 00 0 01221 START RTBA 1 00061 0540 00 0 01274 RCHA RDW1 READ FILE 00062 0060 00 0 00062 TCOA * 00063 0030 00 0 00060 TEFA *-3 00064 0074 00 4 06560 TSX RDNCK,4 TEST IO CHK 00065 0761 00 0 00060 NOP START 00066 0774 00 1 01200 AXT 640,1 LOAD WRD CT 00067 0500 00 0 03463 CLA NINE L-9 GRP1 REPEAT 00070 0601 00 0 03514 STO TEM2 00071 0774 00 4 00040 AXT 32,4 L-32, GRP WRD CT 00072 0500 00 1 02666 CLA RDFLD+640,1 WORD READ 00073 0560 00 4 01000 LDQ GRP1+32,4 WORD GEN 00074 0340 00 4 01000 RDT CAS GRP1+32,4 COMPARE 00075 0020 00 0 00077 TRA *+2 ERROR GO TO DEPR 00076 0020 00 0 00103 TRA *+5 OK PROCEED 00077 0634 00 4 03445 SXA XRC,4 SAVE XRC 1 9GLTA 11-8-59 PAGE 2 00100 0074 00 4 06502 TSX ERROR-2,4 ERROR GO TO DEPR 00101 0761 00 0 00050 NOP START-8 00102 0534 00 4 03445 LXA XRC,4 REPLACE XRC 00103 2 00001 1 00104 TIX *+1,1,1 WORD COUNT 00104 2 00001 4 00072 TIX *-10,4,1 GRP WORD CT 00105 0500 00 0 03514 CLA TEM2 L-9 GRP REPEAT 00106 0402 00 0 03457 SUB ONE 00107 0601 00 0 03514 STO TEM2 00110 0100 00 0 00112 TZE *+2 00111 0020 00 0 00071 TRA RDT-3 REP GRP1 9 TIMES 00112 0774 00 4 00040 AXT 32,4 00113 0500 00 1 02666 CLA RDFLD+640,1 WORD READ 00114 0560 00 4 01040 LDQ GRP2+32,4 WORD GEN 00115 0340 00 4 01040 CAS GRP2+32,4 COMPARE 00116 0020 00 0 00120 TRA *+2 ERROR 00117 0020 00 0 00124 TRA *+5 OK PROCEED 00120 0634 00 4 03445 SXA XRC,4 ERROR 00121 0074 00 4 06502 TSX ERROR-2,4 GO TO DEPR 00122 0761 00 0 00000 NOP 0 00123 0534 00 4 03445 LXA XRC,4 RESTORE XRC 00124 2 00001 1 00125 TIX *+1,1,1 WORD CT 00125 2 00001 4 00113 TIX *-10,4,1 GRP WRD CT 00126 2 00001 2 00060 TIX START,2,1 REC COUNT *TEST ONE NOW WRITTEN AND CHECKED *PROCEED TO WRITE TEST TWO 00127 0774 00 1 01250 AXT 680,1 00130 0600 00 1 02736 STZ RDFLD+680,1 CLR RDFLD FOR 00131 2 00001 1 00130 TIX *-1,1,1 TEST TWO *NOW WRITE TEST TWO ON TAPE *CONSISTS OF ONE FILE OF TEN REC 00132 0774 00 2 00012 AXT 10,2 L-10 REC COUNT 00133 0770 00 0 01201 WEFA 1 00134 0766 00 0 01221 WRT2 WTBA 1 00135 0540 00 0 01275 RCHA CWD2 WRITE ONE REC 00136 0060 00 0 00136 TCOA * 00137 0030 00 0 00134 TEFA WRT2 00140 0074 00 4 06560 TSX RDNCK,4 00141 0761 00 0 00134 NOP WRT2 00142 2 00001 2 00134 TIX WRT2,2,1 REPEAT REC 10 TIMES 00143 -0764 00 0 01201 BSFA 1 BSP ONE FILE *TEST TWO WRITTEN *NOW READ ANC CHECK TEST TWO 00144 0500 00 0 03442 CLA WCNT2 L-681 WC+1 00145 0601 00 0 06556 STO WDNO FOR DEPR 00146 0500 00 0 03447 CLA RECT2 L-11 REC+1 00147 0601 00 0 06557 STO RECNO FOR DEPR 00150 0020 00 0 00152 TRA *+2 00151 516322210160 BCD 1RTBA1 OPER BEING TESTED 00152 0762 00 0 01221 RDCK2 RTBA 1 READ ONE REC 00153 0540 00 0 01277 RCHA RDW2 680 DEC - 1250 OCT WRDS 1 9GLTA 11-8-59 PAGE 3 00154 0060 00 0 00154 TCOA * 00155 0030 00 0 00152 TEFA *-3 TEST END FILE 00156 0074 00 4 06560 TSX RDNCK,4 IO CHECK 00157 0761 00 0 00152 NOP RDCK2 00160 0774 00 1 01250 AXT 680,1 L-680 WRD COUNT 00161 0774 00 2 00012 AXT 10,2 L-10 REC COUNT 00162 0500 00 0 03460 CLA TWO L-2 REPEAT CT 00163 0601 00 0 03515 STO TEM3 00164 0774 00 4 00042 AXT 34,4 L-34 GRP WRD CT 00165 0500 00 1 02736 CLA RDFLD+680,1 WORD READ 00166 0560 00 4 01102 LDQ GRP3+34,4 WORD GEN 00167 0340 00 4 01102 RDT2 CAS GRP3+34,4 COMPARE 00170 0020 00 0 00172 TRA *+2 ERROR 00171 0020 00 0 00176 TRA *+5 OK PROCEED 00172 0634 00 4 03445 SXA XRC,4 SAVE XRC 00173 0074 00 4 06502 TSX ERROR-2,4 GO TO DEPR 00174 0761 00 0 00152 NOP RDCK2 00175 0534 00 4 03445 LXA XRC,4 RESTORE XRC 00176 2 00001 1 00177 TIX *+1,1,1 WORD COUNT 00177 2 00001 4 00165 TIX *-10,4,1 GRP WRD COUNT 00200 0500 00 0 03515 CLA TEM3 L-2 GROUP 00201 0402 00 0 03457 SUB ONE REPEAT COUNT 00202 0601 00 0 03515 STO TEM3 00203 0100 00 0 00205 TZE *+2 00204 0020 00 0 00164 TRA RDT2-3 00205 2 00001 2 00162 TIX RDT2-5,2,1 REC COUNT 00206 0770 00 0 01201 WEFA 1 WR END OF FILE *TEST TWO NOW WRITTEN AND CHECKED *NOW WRITE TEST THREE *CONSISTS OF ONE FILE OF TEN RECORDS *ONE FOOT OF BLANK TAPE BETWEEN EACH REC 00207 0774 00 1 01250 AXT 680,1 00210 0600 00 1 02736 STZ RDFLD+680,1 CLEAR RDFLD 00211 2 00001 1 00210 TIX *-1,1,1 00212 0774 00 2 00012 AXT 10,2 L-10 REC COUNT 00213 0766 00 0 01221 WRT3 WTBA 1 WRITE TAPE 00214 0540 00 0 01300 RCHA CWD3 ONE REC 00215 0060 00 0 00215 TCOA * 00216 0030 00 0 00213 TEFA *-3 00217 0774 00 1 00003 AXT 3,1 00220 0766 00 0 01221 WTBA 1 SPACE TAPE 00221 0060 00 0 00221 TCOA * 00222 2 00001 1 00220 TIX *-2,1,1 00223 2 00001 2 00213 TIX WRT3,2,1 WR TEN REC 00224 -0764 00 0 01201 BSFA 1 BACKSPACE FILE *TEST THREE NOW WRITTEN *NOW READ AND CHECK TEST THREE 00225 0500 00 0 03443 CLA WCNT3 L 1251 00226 0601 00 0 06556 STO WDNO FOR DEPR 00227 0500 00 0 03450 CLA RECT3 L-11 REC CT+1 1 9GLTA 11-8-59 PAGE 4 00230 0601 00 0 06557 STO RECNO FOR DEPR 00231 0020 00 0 00233 TRA *+2 00232 516322210160 BCD 1RTBA1 OPER BEING TESTED 00233 0762 00 0 01221 RDCK3 RTBA 1 READ TAPE 00234 0540 00 0 01302 RCHA RDW3 TEN REC 00235 0060 00 0 00235 TCOA * 1250 WORDS 00236 0030 00 0 00233 TEFA *-3 TEST END FILE 00237 0074 00 4 06560 TSX RDNCK,4 IO CHK 00240 0761 00 0 00233 NOP RDCK3 00241 0774 00 1 01250 AXT 680,1 L L 1250 WRDS 00242 0774 00 2 00012 AXT 10,2 L-10 REC COUNT 00243 0500 00 0 03460 CLA TWO 00244 0601 00 0 03517 STO TEM5 00245 0774 00 4 00042 AXT 34,4 GRP WORD COUNT 00246 0500 00 1 02736 CLA RDFLD+680,1 00247 0560 00 4 01102 LDQ GRP3+34,4 WORD GENERATED 00250 0340 00 4 01102 RDT3 CAS GRP3+34,4 COMPARE 00251 0020 00 0 00253 TRA *+2 ERROR GO TO DEPR 00252 0020 00 0 00257 TRA *+5 OK PROCEED 00253 0634 00 4 03445 SXA XRC,4 SAVE XRC 00254 0074 00 4 06502 TSX ERROR-2,4 GO TO DEPR 00255 0761 00 0 00233 NOP RDCK3 RETURN FROM DEPR 00256 0534 00 4 03445 LXA XRC,4 RESTORE XRC 00257 2 00001 1 00260 TIX *+1,1,1 WORD COUNT 00260 2 00001 4 00246 TIX *-10,4,1 GRP WRD COUNT 00261 0500 00 0 03517 CLA TEM5 L-2 REPEAT CT 00262 0402 00 0 03457 SUB ONE 00263 0601 00 0 03517 STO TEM5 00264 0100 00 0 00266 TZE *+2 00265 0020 00 0 00245 TRA RDT3-3 REPEAT GRP 00266 2 00001 2 00243 TIX RDT3-5,2,1 REC COUNT 00267 0770 00 0 01201 WEFA 1 WR END FILE *TEST THREE NOW WRITTEN AND CHECKED *NOW WRITE TEST FOUR *EACH REC CONTAINS 66DEC 1020CT WRDS 00270 0766 00 0 01221 WTBA 1 WRITE REC 1 00271 0540 00 0 01314 RCHA CWD4 00272 0766 00 0 01221 WTBA 1 WRITE REC 2 00273 0540 00 0 01320 RCHA CWD5 00274 0060 00 0 00274 TCOA * *TAPE TEST FOUR WRITTEN *NOW READ AND CHECK TEST FOUR * CONSTIS OF ONE FILE OF TWO RECORDS 00275 -0764 00 0 01201 BSFA 1 BKSP FILE 00276 0500 00 0 03444 CLA WCNT4 L-331 WRD COUNT+1 00277 0601 00 0 06556 STO WDNO 00300 0500 00 0 03451 CLA RECT4 L-6 REC COUNT+1 00301 0601 00 0 06557 STO RECNO 00302 0020 00 0 00304 TRA *+2 00303 516322210160 BCD 1RTBA1 OPER BEING TESTED 00304 0762 00 0 01221 RDCK4 RTBA 1 READ 5 REC 1 9GLTA 11-8-59 PAGE 5 00305 0540 00 0 01324 RCHA RDW4 204 OCT WORDS 00306 0060 00 0 00306 TCOA * 00307 0030 00 0 00304 TEFA *-3 00310 0074 00 4 06560 TSX RDNCK,4 IO CHK 00311 0761 00 0 00304 NOP RDCK4 00312 0774 00 1 00204 AXT 132,1 L 132 D 00313 0774 00 2 00002 AXT 2,2 L2 REC CT 00314 0500 00 0 03460 CLA TWO L-2 00315 0601 00 0 03516 STO TEM4 00316 0774 00 4 00040 AXT 32,4 L-32 GRP WD CT 00317 0500 00 1 01672 CLA RDFLD+132,1 WORD READ 00320 0560 00 4 01000 LDQ GRP1+32,4 WORD GEN 00321 0340 00 4 01000 RDT4 CAS GRP1+32,4 COMPARE 00322 0020 00 0 00324 TRA *+2 ERROR 00323 0020 00 0 00330 TRA *+5 OK PROCEED 00324 0634 00 4 03445 SXA XRC,4 00325 0074 00 4 06502 TSX ERROR-2,4 ERROR 00326 0761 00 0 00304 NOP RDCK4 00327 0534 00 4 03445 LXA XRC,4 00330 2 00001 1 00331 TIX *+1,1,1 WORD COUNT 00331 2 00001 4 00317 TIX *-10,4,1 GRP WD CT 00332 0500 00 1 01672 SPEC CLA RDFLD+132,1 WORD READ 00333 0560 00 0 01102 LDQ GRP5 WORD GEN 00334 0340 00 0 01102 CAS GRP5 COMPARE 00335 0020 00 0 00337 TRA *+2 ERROR 00336 0020 00 0 00341 TRA *+3 OK PROCEED 00337 0074 00 4 06502 TSX ERROR-2,4 ERROR 00340 0761 00 0 00304 NOP RDCK4 00341 2 00001 1 00342 TIX *+1,1,1 WRD COUNT 00342 0500 00 0 03516 CLA TEM4 L-2 00343 0402 00 0 03457 SUB ONE 00344 0601 00 0 03516 STO TEM4 00345 0100 00 0 00347 TZE *+2 00346 0020 00 0 00316 TRA RDT4-3, 00347 0500 00 0 00333 CLA SPEC+1 00350 0400 00 0 03457 ADD ONE 00351 0621 00 0 00333 STA SPEC+1 00352 0621 00 0 00334 STA SPEC+2 00353 2 00001 2 00314 TIX RDT4-5,2,1 REC COUNT 00354 0500 00 0 03522 CLA ADDR 00355 0621 00 0 00333 STA SPEC+1 00356 0621 00 0 00334 STA SPEC+2 00357 0770 00 0 01201 WEFA 1 WR END FILE 00360 0772 00 0 01201 REWA 1 *TEST FOUR NOW WRITTEN AND CHECKED 00361 0766 00 0 01361 WPRA 00362 0540 00 0 01304 RCHA PRNT2 00363 0060 00 0 00363 TCOA * 00364 0000 00 0 00366 HTR *+2 *WE ARE NOW READY TO TEST READ GAPLESS *TAPE FEATURE. SET GAPLESS SWITCH AND *HIT START KEY TO PROCEED. 1 9GLTA 11-8-59 PAGE 6 00365 516322210160 BCD 1RTBA1 00366 0772 00 0 01201 TES1A REWA 1 *NOW IN GAPLESS MODE. PROCEED TO FIRST GAPLESS TEST. 00367 0500 00 0 03511 CLA POST2 00370 0601 00 0 00000 STO 0 *THE PURPOSE OF TEST ONE IS TO READ REC-RDS WITH NO *8MGAPS BETWEEN THEM 00371 0500 00 0 03457 CLA ONE 00372 0601 00 0 03521 STO FILE 00373 0774 00 1 01200 REP AXT 640,1 00374 0600 00 1 02666 STZ RDFLD+640,1 CLEAR RDFLD 00375 2 00001 1 00374 TIX *-1,1,1 00376 0500 00 0 03471 CLA REDY1 L OCT1201 DEC641 00377 0601 00 0 06556 STO WDNO 00400 0500 00 0 03472 CLA REDY2 L-3 REC CT+1 00401 0601 00 0 06557 STO RECNO 00402 0762 00 0 01221 RTBA 1 READ TAPE 00403 0540 00 0 01305 RCHA TWD1 READ DEC 640 OCT 1200 00404 0060 00 0 00404 TCOA * 00405 0030 00 0 00402 TEFA *-3 TEST END FILE 00406 0074 00 4 06560 TSX RDNCK,4 IO CHECK 00407 0020 00 0 00366 CHNG1 TRA TES1A 00410 0774 00 1 01200 AXT 640,1 L-1200 00411 0774 00 2 00002 AXT 2,2 L-2 00412 0500 00 0 03463 CLA NINE L-11 00413 0601 00 0 03512 STO TS1 00414 0774 00 4 00040 AXT 32,4 00415 0560 00 4 01000 LDQ GRP1+32,4 CORRECT WORD 00416 0500 00 1 02666 CLA RDFLD+640,1 WRD READ 00417 0340 00 4 01000 CPRA1 CAS GRP1+32,4 COMPARE GRP1 00420 0020 00 0 00422 TRA *+2 ERROR 00421 0020 00 0 00426 TRA *+5 OK PROCEED 00422 0634 00 4 03445 SXA XRC,4 00423 0074 00 4 06502 TSX ERROR-2,4 ERROR GO TO DEPR 00424 0020 00 0 00366 CHNG2 TRA TES1A RETURN 00425 0534 00 4 03445 LXA XRC,4 00426 2 00001 1 00427 TIX *+1,1,1 WRD COUNT 00427 2 00001 4 00415 TIX CPRA1-2,4,1 GRP WRD COUNT 00430 0500 00 0 03512 CLA TS1 REP COUNT 00431 0402 00 0 03457 SUB ONE 00432 0601 00 0 03512 STO TS1 00433 0100 00 0 00435 TZE *+2 00434 0020 00 0 00414 TRA CPRA1-3 REP GROUP 00435 0774 00 4 00040 AXT 32,4 L-40 00436 0500 00 1 02666 CLA RDFLD+640,1 CORRECT WORD 00437 0560 00 4 01040 LDQ GRP2+32,4 WORD READ 00440 0340 00 4 01040 CPRA2 CAS GRP2+32,4 COMPARE GRP2 00441 0020 00 0 00443 TRA *+2 ERROR 00442 0020 00 0 00447 TRA *+5 OK PROCEED 00443 0634 00 4 03445 SXA XRC,4 1 9GLTA 11-8-59 PAGE 7 00444 0074 00 4 06502 TSX ERROR-2,4 ERROR 00445 0020 00 0 00366 CHNG3 TRA TES1A RETURN FM DEPR 00446 0534 00 4 03445 LXA XRC,4 00447 2 00001 1 00450 TIX *+1,1,1 WORD COUNT 00450 2 00001 4 00436 TIX CPRA2-2,4,1 GRP 2 WRD CT 00451 2 00001 2 00412 TIX CPRA1-5,2,1 REC COUNT HAVE CHKED REC 1 AND 2 * THIS CHECKS ONE FILE. LOOP TO CHECK FIVE FILES. * FILE COUNT IS NOW IN LOCATION FILE 00452 0500 00 0 03521 CLA FILE 00453 0400 00 0 03457 ADD ONE 00454 0601 00 0 03521 STO FILE 00455 0340 00 0 03462 CAS SIX 00456 0020 00 0 00373 TRA REP 00457 0020 00 0 00462 TRA *+3 00460 0020 00 0 00373 TRA REP *TEST TWO CHECKS BACKSPACING OVER RECORDS WITH GAPES BETWEEN THEM. *IT CONSISTS OF 20 GAPLESS MODE RECORDS *THE FIRST ROUTINE WILL READ AND CHECK ALL 20 RECORDS 00461 516322210160 BCD 1RTBA1 00462 0774 00 1 01250 TES1B AXT 680,1 00463 0600 00 1 02736 STZ RDFLD+680,1 CLEAR RDFLD 00464 2 00001 1 00463 TIX *-1,1,1 00465 0762 00 0 01221 RTBA 1 00466 0540 00 0 01306 RCHA TWD3 READ 10 REC 00467 0060 00 0 00467 TCOA * 00470 0030 00 0 00465 TEFA *-3 00471 0500 00 0 03475 CLA REDY5 00472 0601 00 0 06556 STO WDNO 00473 0500 00 0 03476 CLA REDY6 REC CT+1 00474 0601 00 0 06557 STO RECNO 00475 0774 00 1 01250 AXT 680,1 L-1250 WC 00476 0774 00 2 00024 AXT 20,2 L-24 REC CT 00477 0774 00 4 00042 AXT 34,4 00500 0500 00 1 02736 CLA RDFLD+680,1 WORD READ 00501 0560 00 4 01102 LDQ GRP3+34,4 WORD GENERATED 00502 0340 00 4 01102 CPRB1 CAS GRP3+34,4 COMPR GRP3 00503 0020 00 0 00505 TRA *+2 ERROR 00504 0020 00 0 00511 TRA *+5 OK 00505 0634 00 4 03445 SXA XRC,4 STO XR4 00506 0074 00 4 06502 TSX ERROR-2,4 ERROR 00507 0020 00 0 00462 TRA TES1B RETURN 00510 0534 00 4 03445 LXA XRC,4 RESTORE XR4 00511 2 00001 1 00512 TIX *+1,1,1 WRD CT 00512 2 00001 4 00500 TIX CPRB1-2,4,1 GRP WD CT 00513 2 00001 2 00477 TIX CPRB1-3,2,1 REC CT 20 REC READ AND CHKED NOW BACKSPACE TWO RECS AND READ TWO RECORDS 00514 0020 00 0 00516 TRA *+2 00515 226251210160 BCD 1BSRA1 00516 0764 00 0 01201 GOB1 BSRA 1 00517 0060 00 0 00517 TCOA * 00520 0764 00 0 01201 BSRA 1 BKSP 2 RECORDS 1 9GLTA 11-8-59 PAGE 8 00521 0060 00 0 00521 TCOA * 00522 0774 00 1 00104 AXT 68,1 00523 0600 00 1 01572 STZ RDFLD+68,1 00524 2 00001 1 00523 TIX *-1,1,1 00525 0762 00 0 01221 RTBA 1 00526 0540 00 0 03436 RCHA BWRD1 00527 0060 00 0 00527 TCOA * 00530 0074 00 4 06560 TSX RDNCK,4 IO CHECK 00531 0500 00 0 03437 CLA BREC1 00532 0601 00 0 06557 STO RECNO 00533 0500 00 0 03440 CLA BCT1 L 105 00534 0601 00 0 06556 STO WDNO 00535 0774 00 1 00104 AXT 68,1 WRD COUNT L 104 00536 0774 00 2 00002 AXT 2,2 REC COUNT L 2 00537 0774 00 4 00042 AXT 34,4 00540 0500 00 1 01572 CLA RDFLD+68,1 WORD READ 00541 0560 00 4 01102 LDQ GRP3+34,4 WORD GENERATED 00542 0340 00 4 01102 CAS GRP3+34,4 COMPARE 00543 0020 00 0 00545 TRA *+2 00544 0020 00 0 00551 TRA *+5 OK PROCEED 00545 0634 00 4 03445 SXA XRC,4 00546 0074 00 4 06502 TSX ERROR-2,4 ERROR 00547 0020 00 0 00516 TRA GOB1 00550 0534 00 4 03445 LXA XRC,4 00551 2 00001 1 00552 TIX *+1,1,1 00552 2 00001 4 00540 TIX *-10,4,1 00553 2 00001 2 00537 TIX *-12,2,1 *BACKSPACED TWO RECS AND CHECKED OK TEST TWO COMPLETED * PROCEED TO TEST THREE *TEST THREE CHECKS BACKSPACING OVER RECORDS WHICH *HAVE LARGE GAPS BETWEEN THEM. 00554 0020 00 0 00556 TRA *+2 00555 516322210160 BCD 1RTBA1 00556 0774 00 1 01250 TEST3 AXT 680,1 00557 0600 00 1 02736 STZ RDFLD+680,1 CLEAR RDFLD 00560 2 00001 1 00557 TIX *-1,1,1 00561 0500 00 0 03503 CLA DECM2 00562 0601 00 0 06556 STO WDNO L 1251 00563 0500 00 0 03504 CLA DECM3 L 21 00564 0601 00 0 06557 STO RECNO 00565 0762 00 0 01221 RTBA 1 READ TAPE 00566 0540 00 0 01311 RCHA TWD6 1250 WORDS 00567 0060 00 0 00567 TCOA * 00570 0030 00 0 00565 TEFA *-3 TEST END OF FILE 00571 0074 00 4 06560 TSX RDNCK,4 TEST IO CHK 00572 0020 00 0 00556 XCH1 TRA TEST3 00573 0774 00 1 01250 AXT 680,1 L 1250 WRD CT 00574 0774 00 2 00024 AXT 20,2 L-24 REC CT 00575 0774 00 4 00042 AXT 34,4 00576 0500 00 1 02736 CLA RDFLD+680,1 WORD READ 00577 0560 00 4 01102 LDQ GRP3+34,4 WORD GENERATED 00600 0340 00 4 01102 CPRC1 CAS GRP3+34,4 COMPARE 00601 0020 00 0 00603 TRA *+2 ERROR 00602 0020 00 0 00607 TRA *+5 OK PROCEED 1 9GLTA 11-8-59 PAGE 9 00603 0634 00 4 03445 SXA XRC,4 00604 0074 00 4 06502 TSX ERROR-2,4 ERROR 00605 0020 00 0 00556 XCH2 TRA TEST3 00606 0534 00 4 03445 LXA XRC,4 00607 2 00001 1 00610 TIX *+1,1,1 WRD CT 00610 2 00001 4 00576 TIX CPRC1-2,4,1 GRP WC 00611 2 00001 2 00575 TIX CPRC1-3,2,1 REC COUNT 20 REC NOW CHECKED BACKSPACE TWO RECORDS AND READ TWO RECORDS 00612 0020 00 0 00614 TRA *+2 00613 226251210160 BCD 1BSRA1 00614 0764 00 0 01201 GOB2 BSRA 1 00615 0060 00 0 00615 TCOA * 00616 0764 00 0 01201 BSRA 1 00617 0060 00 0 00617 TCOA * 00620 0774 00 1 00104 AXT 68,1 00621 0600 00 1 01572 STZ RDFLD+68,1 00622 2 00001 1 00621 TIX *-1,1,1 00623 0762 00 0 01221 RTBA 1 00624 0540 00 0 03436 RCHA BWRD1 00625 0060 00 0 00625 TCOA * 00626 0074 00 4 06560 TSX RDNCK,4 IO CHECK 00627 0500 00 0 03437 CLA BREC1 00630 0601 00 0 06557 STO RECNO 00631 0500 00 0 03440 CLA BCT1 L 105 00632 0601 00 0 06556 STO WDNO 00633 0774 00 1 00104 AXT 68,1 WRD COUNT L 104 00634 0774 00 2 00002 AXT 2,2 REC COUNT L 2 00635 0774 00 4 00042 AXT 34,4 00636 0500 00 1 01572 CLA RDFLD+68,1 WORD READ 00637 0560 00 4 01102 LDQ GRP3+34,4 WORD GENERATED 00640 0340 00 4 01102 CAS GRP3+34,4 COMPARE 00641 0020 00 0 00643 TRA *+2 00642 0020 00 0 00647 TRA *+5 OK PROCEED 00643 0634 00 4 03445 SXA XRC,4 00644 0074 00 4 06502 TSX ERROR-2,4 ERROR 00645 0020 00 0 00614 TRA GOB2 00646 0534 00 4 03445 LXA XRC,4 00647 2 00001 1 00650 TIX *+1,1,1 00650 2 00001 4 00636 TIX *-10,4,1 00651 2 00001 2 00635 TIX *-12,2,1 *BACKSPACED TWO RECS AND CHECKED OK TEST THREE COMPLETED * THE PURPOSE OF TEST FOUR IS TO RECOGNIZE B BITS IN * DIFFERENT POSITIONS OF A WORD. * TEST CONSITS OF FOUR RECORDS *EACH RECORD CONTAINS DEC 33 OCT 41 WORDS 00652 0020 00 0 00654 TRA *+2 1 9GLTA 11-8-59 PAGE 10 00653 516322210160 BCD 1RTBA1 00654 0774 00 1 00204 TES1D AXT 132,1 00655 0600 00 1 01672 STZ RDFLD+132,1 00656 2 00001 1 00655 TIX *-1,1,1 00657 0762 00 0 01221 RTBA 1 READ TAPE 00660 0540 00 0 01313 RCHA TWD8 FOUR RECORDS 00661 0060 00 0 00661 TCOA * 00662 0030 00 0 00657 TEFA *-3 TEST END FILE 00663 0074 00 4 06560 TSX RDNCK,4 00664 0500 00 0 03524 CLA BWRD2 00665 0601 00 0 06556 STO WDNO 00666 0500 00 0 03523 CLA BREC2 00667 0601 00 0 06557 STO RECNO 00670 0774 00 1 00204 AXT 132,1 00671 0774 00 4 00040 AXT 32,4 00672 0500 00 1 01672 CLA RDFLD+132,1 00673 0560 00 4 01000 LDQ GRP1+32,4 00674 0340 00 4 01000 CPRD1 CAS GRP1+32,4 00675 0020 00 0 00677 TRA *+2 ERROR 00676 0020 00 0 00703 TRA *+5 OK PROCEED 00677 0634 00 4 03445 SXA XRC,4 00700 0074 00 4 06502 TSX ERROR-2,4 ERROR 00701 0020 00 0 00654 TRA TES1D 00702 0534 00 4 03445 LXA XRC,4 00703 2 00001 1 00704 TIX *+1,1,1 WRD CT 00704 2 00001 4 00672 TIX CPRD1-2,4,1 00705 0774 00 4 00144 AXT 100,4 00706 0500 00 1 01672 DNE6 CLA RDFLD+132,1 00707 0560 00 4 01250 LDQ GRP6+100,4 00710 0340 00 4 01250 CAS GRP6+100,4 00711 0020 00 0 00713 TRA *+2 ERROR 00712 0020 00 0 00717 TRA *+5 OK PROCEED 00713 0634 00 4 03445 SXA XRC,4 00714 0074 00 4 06502 TSX ERROR-2,4 00715 0020 00 0 00706 TRA DNE6 00716 0534 00 4 03445 LXA XRC,4 00717 2 00001 1 00720 TIX *+1,1,1 00720 2 00001 4 00706 TIX DNE6,4,1 *TEST FOUR NOW COMPLETE 00721 0766 00 0 01361 WPRA 00722 0540 00 0 01325 RCHA CTFIN 00723 0760 00 0 00165 DONE SWT 5 00724 0020 00 0 00726 TRA *+2 UP TEST SW 6 00725 0020 00 0 00364 TRA TES1A-2 DN REP GAP TEST 00726 0760 00 0 00166 SWT 6 00727 0020 00 0 00733 TRA CTRL UP READ NEXT PRO 00730 0500 00 0 03520 CLA POST1 DN RESTORE PROGRAM 00731 0601 00 0 00000 STO 0 TO RESTART 00732 0000 00 0 00000 HTR 0 SET FEATURE SWITCH TO NORMAL AND PRESS START KEY 00733 0762 00 0 01321 CTRL RCDA READ 00734 0540 00 0 00737 RCHA *+3 NEXT 00735 0544 00 0 00000 LCHA 0 PROGRAM 00736 0020 00 0 00001 TRA 1 00737 -1 00003 0 00000 IOCT 0,0,3 1 9GLTA 11-8-59 PAGE 11 00740 +000000000000 GRP1 OCT 000000000000 00741 +010101010101 OCT 010101010101 00742 +020202020202 OCT 020202020202 00743 +030303030303 OCT 030303030303 00744 +040404040404 OCT 040404040404 00745 +050505050505 OCT 050505050505 00746 +060606060606 OCT 060606060606 00747 +070707070707 OCT 070707070707 00750 +101010101010 OCT 101010101010 00751 +111111111111 OCT 111111111111 00752 +121212121212 OCT 121212121212 00753 +131313131313 OCT 131313131313 00754 +141414141414 OCT 141414141414 00755 +151515151515 OCT 151515151515 00756 +161616161616 OCT 161616161616 00757 +171717171717 OCT 171717171717 00760 +202020202020 OCT 202020202020 00761 +212121212121 OCT 212121212121 00762 +222222222222 OCT 222222222222 00763 +232323232323 OCT 232323232323 00764 +242424242424 OCT 242424242424 00765 +252525252525 OCT 252525252525 00766 +262626262626 OCT 262626262626 00767 +272727272727 OCT 272727272727 00770 +303030303030 OCT 303030303030 00771 +313131313131 OCT 313131313131 00772 +323232323232 OCT 323232323232 00773 +333333333333 OCT 333333333333 00774 +343434343434 OCT 343434343434 00775 +353535353535 OCT 353535353535 00776 +363636363636 OCT 363636363636 00777 +373737373737 OCT 373737373737 01000 +000000000000 GRP2 OCT 000000000000 01001 +010101010101 OCT 010101010101 01002 +020202020202 OCT 020202020202 01003 +030303030303 OCT 030303030303 01004 +040404040404 OCT 040404040404 01005 +050505050505 OCT 050505050505 01006 +060606060606 OCT 060606060606 01007 +070707070707 OCT 070707070707 01010 +101010101010 OCT 101010101010 01011 +111111111111 OCT 111111111111 01012 +121212121212 OCT 121212121212 01013 +131313131313 OCT 131313131313 01014 +141414141414 OCT 141414141414 01015 +151515151515 OCT 151515151515 01016 +161616161616 OCT 161616161616 01017 +171717171717 OCT 171717171717 01020 +202020202020 OCT 202020202020 01021 +212121212121 OCT 212121212121 01022 +222222222222 OCT 222222222222 01023 +232323232323 OCT 232323232323 01024 +242424242424 OCT 242424242424 01025 +252525252525 OCT 252525252525 01026 +262626262626 OCT 262626262626 01027 +272727272727 OCT 272727272727 1 9GLTA 11-8-59 PAGE 12 01030 +303030303030 OCT 303030303030 01031 +313131313131 OCT 313131313131 01032 +323232323232 OCT 323232323232 01033 +333333333333 OCT 333333333333 01034 +343434343434 OCT 343434343434 01035 +353535353535 OCT 353535353535 01036 +363636363636 OCT 363636363636 01037 +373737373737 OCT 373737373737 01040 +000000000000 GRP3 OCT 000000000000 01041 +010101010101 OCT 010101010101 01042 +020202020202 OCT 020202020202 01043 +030303030303 OCT 030303030303 01044 +040404040404 OCT 040404040404 01045 +050505050505 OCT 050505050505 01046 +060606060606 OCT 060606060606 01047 +070707070707 OCT 070707070707 01050 +101010101010 OCT 101010101010 01051 +111111111111 OCT 111111111111 01052 +121212121212 OCT 121212121212 01053 +131313131313 OCT 131313131313 01054 +141414141414 OCT 141414141414 01055 +151515151515 OCT 151515151515 01056 +161616161616 OCT 161616161616 01057 +171717171717 OCT 171717171717 01060 +202020202020 OCT 202020202020 01061 +212121212121 OCT 212121212121 01062 +222222222222 OCT 222222222222 01063 +232323232323 OCT 232323232323 01064 +242424242424 OCT 242424242424 01065 +252525252525 OCT 252525252525 01066 +262626262626 OCT 262626262626 01067 +272727272727 OCT 272727272727 01070 +303030303030 OCT 303030303030 01071 +313131313131 OCT 313131313131 01072 +323232323232 OCT 323232323232 01073 +333333333333 OCT 333333333333 01074 +343434343434 OCT 343434343434 01075 +353535353535 OCT 353535353535 01076 +363636363636 OCT 363636363636 01077 +373737373737 OCT 373737373737 01100 +000000000000 OCT 000000000000 01101 +010101010141 OCT 010101010141 01102 +000040000000 GRP5 OCT 000040000000 01103 -000000000000 OCT 400000000000 01104 +000040000000 GRP6 OCT 000040000000 01105 +000000000000 OCT 000000000000 01106 +000000010101 OCT 000000010101 01107 +010101020202 OCT 010101020202 01110 +020202030303 OCT 020202030303 01111 +030303040404 OCT 030303040404 01112 +040404050505 OCT 040404050505 01113 +050505060606 OCT 050505060606 01114 +060606070707 OCT 060606070707 01115 +070707101010 OCT 070707101010 01116 +101010111111 OCT 101010111111 01117 +111111121212 OCT 111111121212 1 9GLTA 11-8-59 PAGE 13 01120 +121212131313 OCT 121212131313 01121 +131313141414 OCT 131313141414 01122 +141414151515 OCT 141414151515 01123 +151515161616 OCT 151515161616 01124 +161616171717 OCT 161616171717 01125 +171717202020 OCT 171717202020 01126 +202020212121 OCT 202020212121 01127 +212121222222 OCT 212121222222 01130 +222222232323 OCT 222222232323 01131 +232323242424 OCT 232323242424 01132 +242424252525 OCT 242424252525 01133 +252525262626 OCT 252525262626 01134 +262626272727 OCT 262626272727 01135 +272727303030 OCT 272727303030 01136 +303030313131 OCT 303030313131 01137 +313131323232 OCT 313131323232 01140 +323232333333 OCT 323232333333 01141 +333333343434 OCT 333333343434 01142 +343434353535 OCT 343434353535 01143 +353535363636 OCT 353535363636 01144 +363636373737 OCT 363636373737 01145 +373737000040 OCT 373737000040 01146 +000000000000 OCT 000000000000 01147 +000000010101 OCT 000000010101 01150 +010101020202 OCT 010101020202 01151 +020202030303 OCT 020202030303 01152 +030303040404 OCT 030303040404 01153 +040404050505 OCT 040404050505 01154 +050505060606 OCT 050505060606 01155 +060606070707 OCT 060606070707 01156 +070707101010 OCT 070707101010 01157 +101010111111 OCT 101010111111 01160 +111111121212 OCT 111111121212 01161 +121212131313 OCT 121212131313 01162 +131313141414 OCT 131313141414 01163 +141414151515 OCT 141414151515 01164 +151515161616 OCT 151515161616 01165 +161616171717 OCT 161616171717 01166 +171717202020 OCT 171717202020 01167 +202020212121 OCT 202020212121 01170 +212121222222 OCT 212121222222 01171 +222222232323 OCT 222222232323 01172 +232323242424 OCT 232323242424 01173 +242424252525 OCT 242424252525 01174 +252525262626 OCT 252525262626 01175 +262626272727 OCT 262626272727 01176 +272727303030 OCT 272727303030 01177 +303030313131 OCT 303030313131 01200 +313131323232 OCT 313131323232 01201 +323232333333 OCT 323232333333 01202 +333333343434 OCT 333333343434 01203 +343434353535 OCT 343434353535 01204 +353535363636 OCT 353535363636 01205 +363636373737 OCT 363636373737 01206 +373737400000 OCT 373737400000 01207 +000000000000 OCT 000000000000 1 9GLTA 11-8-59 PAGE 14 01210 +000000000001 OCT 000000000001 01211 +010101010102 OCT 010101010102 01212 +020202020203 OCT 020202020203 01213 +030303030304 OCT 030303030304 01214 +040404040405 OCT 040404040405 01215 +050505050506 OCT 050505050506 01216 +060606060607 OCT 060606060607 01217 +070707070710 OCT 070707070710 01220 +101010101011 OCT 101010101011 01221 +111111111112 OCT 111111111112 01222 +121212121213 OCT 121212121213 01223 +131313131314 OCT 131313131314 01224 +141414141415 OCT 141414141415 01225 +151515151516 OCT 151515151516 01226 +161616161617 OCT 161616161617 01227 +171717171720 OCT 171717171720 01230 +202020202021 OCT 202020202021 01231 +212121212122 OCT 212121212122 01232 +222222222223 OCT 222222222223 01233 +232323232324 OCT 232323232324 01234 +242424242425 OCT 242424242425 01235 +252525252526 OCT 252525252526 01236 +262626262627 OCT 262626262627 01237 +272727272730 OCT 272727272730 01240 +303030303031 OCT 303030303031 01241 +313131313132 OCT 313131313132 01242 +323232323233 OCT 323232323233 01243 +333333333334 OCT 333333333334 01244 +343434343435 OCT 343434343435 01245 +353535353536 OCT 353535353536 01246 +363636363637 OCT 363636363637 01247 +373737373740 OCT 373737373740 01250 -0000 40 0 00740 CWD1 IOCP GRP1,0,32 01251 -0000 40 0 00740 IOCP GRP1,0,32 01252 -0000 40 0 00740 IOCP GRP1,0,32 01253 -0000 40 0 00740 IOCP GRP1,0,32 01254 -0000 40 0 00740 IOCP GRP1,0,32 01255 -0000 40 0 00740 IOCP GRP1,0,32 01256 -0000 40 0 00740 IOCP GRP1,0,32 01257 -0000 40 0 00740 IOCP GRP1,0,32 01260 -0000 40 0 00740 IOCP GRP1,0,32 01261 -0000 40 0 01000 IOCP GRP2,0,32 01262 -0000 40 0 00740 IOCP GRP1,0,32 01263 -0000 40 0 00740 IOCP GRP1,0,32 01264 -0000 40 0 00740 IOCP GRP1,0,32 01265 -0000 40 0 00740 IOCP GRP1,0,32 01266 -0000 40 0 00740 IOCP GRP1,0,32 01267 -0000 40 0 00740 IOCP GRP1,0,32 01270 -0000 40 0 00740 IOCP GRP1,0,32 01271 -0000 40 0 00740 IOCP GRP1,0,32 01272 -0000 40 0 00740 IOCP GRP1,0,32 01273 0000 40 0 00740 IOCD GRP1,0,32 01274 0012 00 0 01466 RDW1 IOCD RDFLD,0,640 01275 -0000 42 0 01040 CWD2 IOCP GRP3,0,34 01276 0000 42 0 01040 IOCD GRP3,0,34 01277 0012 50 0 01466 RDW2 IOCD RDFLD,0,680 1 9GLTA 11-8-59 PAGE 15 01300 -0000 42 0 01040 CWD3 IOCP GRP3,0,34 01301 0000 42 0 01040 IOCD GRP3,0,34 01302 0012 50 0 01466 RDW3 IOCD RDFLD,0,680 01303 0000 30 0 01326 PRNT1 IOCD PRID,0,24 01304 0000 60 0 01356 PRNT2 IOCD SWTCH,0,48 01305 0012 00 0 01466 TWD1 IOCD RDFLD,0,640 01306 0012 50 0 01466 TWD3 IOCD RDFLD,0,680 01307 0003 14 0 01466 TWD4 IOCD RDFLD,0,204 01310 0011 44 0 01466 TWD5 IOCD RDFLD,0,612 01311 0012 50 0 01466 TWD6 IOCD RDFLD,0,680 01312 0000 42 0 01466 TWD7 IOCD RDFLD,0,34 01313 0002 04 0 01466 TWD8 IOCD RDFLD,0,132 01314 -0000 40 0 00740 CWD4 IOCP GRP1,0,32 01315 -0000 01 0 01102 IOCP GRP5,0,1 01316 -0000 40 0 00740 IOCP GRP1,0,32 01317 0000 01 0 01102 IOCD GRP5,0,1 01320 -0000 40 0 00740 CWD5 IOCP GRP1,0,32 01321 -0000 01 0 01103 IOCP GRP5+1,0,1 01322 -0000 40 0 00740 IOCP GRP1,0,32 01323 0000 01 0 01103 IOCD GRP5+1,0,1 01324 0002 04 0 01466 RDW4 IOCD RDFLD,0,132 01325 0000 30 0 01436 CTFIN IOCD FNPT,0,24 *IMAGE *NOW PERFORMING 9GLT-A TEST FOR READING GAPLESS TAPE ON 709 01326 +004504000121 PRID OCT 004504000121 9 ROW LEFT 01327 +000000040000 OCT 000000040000 9R 01330 +000000000000 OCT 000000000000 01331 +000000000000 OCT 000000000000 01332 +020022000000 OCT 020022000000 01333 +250020200000 OCT 250020200000 01334 +303000000600 OCT 303000000600 01335 +000000200000 OCT 000000200000 01336 -010040010010 OCT 410040010010 01337 -002011000000 OCT 402011000000 01340 +000200000002 OCT 000200000002 01341 +000000000000 OCT 000000000000 01342 +000001422000 OCT 000001422000 01343 +004100000000 OCT 004100000000 01344 +000000004000 OCT 000000004000 01345 +001400000000 OCT 001400000000 01346 +000000100004 OCT 000000100004 01347 +020040000000 OCT 020040000000 01350 +100000426000 OCT 100000426000 01351 +001500100000 OCT 001500100000 01352 -225641000320 OCT 625641000320 01353 -014023000000 OCT 414023000000 01354 +012122110417 OCT 012122110417 01355 +262050000000 OCT 262050000000 *IMAGE *GAPLESS TAPE HAS BEEN WRITTEN 01356 +000000014000 SWTCH OCT 000000014000 9 ROW LEFT 01357 +000000000000 OCT 000000000000 9 ROW RIGHT 01360 +000020000000 OCT 000020000000 8 L 01361 +000000000000 OCT 000000000000 8 R 01362 -100200000000 OCT 500200000000 7 L 01363 +000000000000 OCT 000000000000 7 R 1 9GLTA 11-8-59 PAGE 16 01364 +000000020000 OCT 000000020000 6 L 01365 +000000000000 OCT 000000000000 6 R 01366 +020100700600 OCT 020100700600 5 L 01367 +000000000000 OCT 000000000000 5 R 01370 +000000000000 OCT 000000000000 4 L 01371 +000000000000 OCT 000000000000 4 R 01372 +041000003000 OCT 041000003000 3 L 01373 +000000000000 OCT 000000000000 3 R 01374 +014005000000 OCT 014005000000 2 L 01375 +000000000000 OCT 000000000000 2 R 01376 +200410000000 OCT 200410000000 1 L 01377 +000000000000 OCT 000000000000 1 R 01400 +015004023000 OCT 015004023000 0 L 01401 +000000000000 OCT 000000000000 0 R 01402 +140200110200 OCT 140200110200 11 L 01403 +000000000000 OCT 000000000000 11 R 01404 -220531604400 OCT 620531604400 12 L 01405 +000000000000 OCT 000000000000 12 R *IMAGE *SET SPECIAL FEATURE TAPE SWITCH AND PRESS START 01406 +001001000400 OCT 001001000400 9 ROW LEFT 01407 +200400000000 OCT 200400000000 9 ROW RIGHT 01410 +000000000040 OCT 000000000040 8 L 01411 +000000000000 OCT 000000000000 8 R 01412 +010000020000 OCT 010000020000 7 L 01413 -000000000000 OCT 400000000000 7 R 01414 +000040001000 OCT 000040001000 6 L 01415 +000000000000 OCT 000000000000 6 R 01416 +204020410004 OCT 204020410004 5 L 01417 +100000000000 OCT 100000000000 5 R 01420 +000002000002 OCT 000002000002 4 L 01421 +000000000000 OCT 000000000000 4 R 01422 +102204100300 OCT 102204100300 3 L 01423 +002200000000 OCT 002200000000 3 R 01424 -020000002000 OCT 420000002000 2 L 01425 +064000000000 OCT 064000000000 2 R 01426 +000410040010 OCT 000410040010 1 L 01427 +001000000000 OCT 001000000000 1 R 01430 -120006103200 OCT 520006103200 0 L 01431 +066200000000 OCT 066200000000 0 R 01432 +010201020004 OCT 010201020004 11 L 01433 -200400000000 OCT 600400000000 11 R 01434 +207470450552 OCT 207470450552 12 L 01435 +101000000000 OCT 101000000000 12 R * IMAGE * 9GLT TEST COMPLETE 01436 +200000000000 FNPT OCT 200000000000 01437 +000000000000 OCT 000000000000 01440 +000000000000 OCT 000000000000 01441 +000000000000 OCT 000000000000 01442 +100010000000 OCT 100010000000 01443 +000000000000 OCT 000000000000 01444 +000040000000 OCT 000040000000 01445 +000000000000 OCT 000000000000 01446 +002002400000 OCT 002002400000 01447 +000000000000 OCT 000000000000 1 9GLTA 11-8-59 PAGE 17 01450 +000020000000 OCT 000020000000 01451 +000000000000 OCT 000000000000 01452 +064505000000 OCT 064505000000 01453 +000000000000 OCT 000000000000 01454 +001000000000 OCT 001000000000 01455 +000000000000 OCT 000000000000 01456 +000000000000 OCT 000000000000 01457 +000000000000 OCT 000000000000 01460 +025401000000 OCT 025401000000 01461 +000000000000 OCT 000000000000 01462 +040074000000 OCT 040074000000 01463 +000000000000 OCT 000000000000 01464 +010210240000 OCT 10210240000 01465 +000000000000 OCT 000000000000 01466 RDFLD BSS 1000 03436 0001 04 0 01466 BWRD1 IOCD RDFLD,0,68 03437 +000000000003 BREC1 DEC 3 L 3 03440 +000000000105 BCT1 DEC 69 03441 +000000001201 WCNT1 DEC 641 03442 +000000001251 WCNT2 DEC 681 03443 +000000001251 WCNT3 DEC 681 03444 +000000000315 WCNT4 DEC 205 03445 +000000000000 XRC OCT 0 03446 +000000000006 RECT1 DEC 6 03447 +000000000013 RECT2 DEC 11 03450 +000000000013 RECT3 DEC 11 03451 +000000000003 RECT4 DEC 3 03452 0012 06 0 01466 ABC IOCD RDFLD,0,646 03453 0761 00 0 00556 ABD NOP TEST3 03454 0030 00 0 03451 ABE TEFA *-3 03455 +000000001206 AAA DEC 646 03456 +000000000000 ZERO DEC 0 03457 +000000000001 ONE DEC 1 03460 +000000000002 TWO DEC 2 03461 +000000000005 FIVE DEC 5 03462 +000000000006 SIX DEC 6 03463 +000000000011 NINE DEC 9 03464 +000000000012 TEN DEC 10 03465 +000000000024 TWNTY DEC 20 03466 +000000000023 TWTHR OCT 23 03467 0020 00 0 00366 BACK1 TRA TES1A 03470 0020 00 0 00556 BACK5 TRA TEST3 03471 +000000001201 REDY1 DEC 641 03472 +000000000003 REDY2 DEC 3 03473 +000000000501 REDY3 DEC 321 03474 +000000000002 REDY4 DEC 2 03475 +000000001251 REDY5 DEC 681 03476 +000000000025 REDY6 DEC 21 03477 +000000000315 REDY7 DEC 205 03500 +000000000007 REDY8 DEC 7 03501 +000000001144 REDY9 DEC 612 03502 +000000000022 DECM DEC 18 03503 +000000001251 DECM2 DEC 681 03504 +000000000025 DECM3 DEC 21 03505 +000000000042 DECM4 DEC 34 03506 +000000000002 DECM5 DEC 2 1 9GLTA 11-8-59 PAGE 18 PAGE 03507 +000000000513 DECM6 DEC 331 03510 +000000000013 DECM7 DEC 11 03511 0020 00 0 00366 POST2 TRA TES1A 03512 +000000000000 TS1 DEC 0 03513 +000000000000 TEM DEC 0 03514 +000000000000 TEM2 DEC 0 03515 +000000000000 TEM3 DEC 0 03516 +000000000000 TEM4 DEC 0 03517 +000000000000 TEM5 DEC 0 03520 0020 00 0 00034 POST1 TRA BEGIN+4 03521 +000000000000 FILE DEC 0 03522 0500 00 0 01102 ADDR CLA GRP5 03523 +000000000002 BREC2 DEC 2 03524 +000000000205 BWRD2 DEC 133 03525 -337374000000 NEED OCT 3737374000000 03526 -337370000040 NEED1 OCT 3737370000040 06511 OK EQU 3401 06504 ERROR EQU 3396 06546 KONST EQU 3430 06556 WDNO EQU 3438 06560 RDNCK EQU 3440 06557 RECNO EQU 3439 00030 END 24 1 *EOF*