JOB ORG 377 377 BCE 1288,1268, USE WHEN TESTS ARE RUN FROM TAPE 385 BIN 400, ,, ORG 400 400 CS 332 START TEST 404 CS 405 BCE 1200,1252,1 BR TO TITLE PRINT ROUTINE IF 1 IN S52 413 MCW 1034,1053 SET PASS COUNTER TO ONE 420 RWD 4 REWIND 425 LCA 432,585 LOAD -N- IN LOCATION 585 432 NOP NOP 433 CS 299 CLEAR PRINT AREA 437 MCW 1053,203 MOVE PASS NO. IN PRINT AREA 444 MCW 1064,211 MOVE WORD -WRITE- IN PRINT AREA 451 LCA 1030,226 LOAD RECORD 1 & GM IN PRINT AREA 458 LCA 1050,260 LOAD RECORD 2 & GM IN PRINT AREA 465 SW 226,260 SET WM IN GM LOCATIONS 472 WTW 4,216 WRITE RECORD 1 480 BER 552 BRANCH IF TAPE WRITE ERROR 485 BEF 420 BRANCH IF END OF REEL 490 MCW 1033,1056 SET RE-WRITE COUNTER TO ZERO 497 WTW 4,250 WRITE RECORD 2 505 BSS 525,B B ON TO SCOPE 510 BCE 575,1055,1 BRANCH IF 10 IN RE-WRITE COUNTER 518 A 1020,1056 ADD 1 TO RE-WRITE COUNTER 525 BEF 420 BRANCH IF END OF REEL 530 BSP 4 BACKSPACE 535 SKP 4 SKIP 540 BIN 497, BRANCH TO REWRITE RECORD 2 ORG 552 552 LCA 405,585 LOAD -B- IN LOC. 585 TO BRANCH ON ERROR 559 MCW 1072,232 MOVE TAPE WRITE ERROR TO PRINT 566 BIN 485, BRANCH TO TEST FOR END OF REEL ORG 575 575 BER 607 BRANCH IF TAPE WRITE ERROR 580 BEF 420 BRANCH IF END OF REEL 585 NOP 630 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 589 DC @ @ 590 BSS 642,C C ON TO CORRECT PRINT 595 BIN 694, BRANCH TO BEGIN READ PORTION OF TEST ORG 607 607 LCA 405,585 LOAD -B- IN LOC. 585 TO BRANCH ON ERROR 614 MCW 1072,266 MOVE TAPE WRITE ERROR TO PRINT 621 BIN 580, BRANCH TO TEST FOR END OF REEL ORG 630 630 MCW 1084,285 MOVE WORD ERROR TO PRINT AREA 637 BSS 646,E E ON TO ERROR STOP 642 W 694 PRINT 646 H ERROR STOP 647 BIN 694, BRANCH TO BEGIN READ PORTION OF TEST ORG 694 694 LCA 432,803 LOAD -N- IN LOCATION 803 701 CS 299 CLEAR PRINT AREA 705 MCW 1053,203 MOVE PASS NO. IN PRINT AREA 712 MCW 1068,210 MOVE WORD -READ- IN PRINT AREA 719 LCA 1250,226 LOAD GM-WM FOR RECORD 1 726 LCA 1250,260 LOAD GM-WM FOR RECORD 2 733 BSP 4 BACKSPACE 738 BSP 4 BACKSPACE 743 RTW 4,216 READ RECORD 1 FROM TAPE 751 BSS 773,B B ON TO SCOPE 756 BER 867 BRANCH IF TAPE READ ERROR 761 C 225,1029 COMPARE TAPE REC 1 WITH REC IN STORAGE 768 BU 887 BRANCH IF ERROR 773 RTW 4,250 READ RECORD 2 FROM TAPE 781 BSS 694,B B ON TO SCOPE 786 BER 907 BRANCH IF TAPE READ ERROR 791 C 259,1049 COMPARE TAPE REC 2 WITH REC IN STORAGE 798 BU 927 BRANCH IF ERROR 803 NOP 950 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 807 DC @ @ 808 BSS 962,C C ON TO CORRECT PRINT 813 BSS 694,D D ON TO REPEAT READ PORTION OF PROGRAM 818 BCE 850,1052,1 BRANCH IF 10 IN PASS COUNTER 826 A 1020,1053 ADD 1 TO PASS COUNTER 833 BIN 425, BRANCH TO REPEAT PROG. IF NOT 10TH PASS ORG 850 850 BSS 425,G G ON TO REPEAT TEST 855 RWD 4 REWIND 860 CS 348,299 CLEAR GM-WM & BRANCH TO LOAD NEXT PROG. 867 LCA 405,803 LOAD -B- IN LOC. 803 TO BRANCH ON ERROR 874 MCW 1072,232 MOVE TAPE READ ERROR COMMENT TO PRINT 881 BIN 761, BRANCH TO TEST FOR COMPARE ERROR ORG 887 887 LCA 405,803 LOAD -B- IN LOC. 803 TO BRANCH ON ERROR 894 MCW 1079,244 MOVE COMPARE ERROR COMMENT TO PRINT 901 BIN 773, BRANCH TO READ RECORD 2 ORG 907 907 LCA 405,803 LOAD -B- IN LOC 803 TO BRANCH ON ERROR 914 MCW 1072,266 MOVE TAPE READ ERROR COMMMENT TO PRINT 921 BIN 791, BRANCH TO TEST FOR COMPARE ERROR ORG 927 927 LCA 405,803 LOAD -B- IN LOC 803 TO BRANCH ON ERROR 934 MCW 1079,278 MOVE COMPARE ERROR COMMENT TO PRINT 941 BIN 803, BRANCH TO NOP OR BRANCH ORG 950 950 MCW 1084,285 MOVE WORD ERROR TO PRINT AREA 957 BSS 968,E E ON TO ERROR STOP 962 W PRINT 963 WM 813 PRINT WORD MARKS 968 H ERROR STOP 969 BIN 813, BRANCH TO SENSE D ORG 1020 1020 DCW @1111111111"@ RECORD ONE GM IN '30 1031 DCW @0001 @ CONSTANT TO INCREMENT PASS & RE-WR. CTRS 1040 DCW @RWRWRWRWRW" @ RECORD TWO GM IN '50 1052 DCW @XX@ COUNTER FOR COUNTING NO. OF PASSES 1054 DCW @XXX @ COUNTER FOR COUNTING NO. OF RE-WRITES 1060 DCW @WRITE@ CONSTANTS FOR PRINTOUTS 1065 DCW @READ@ ,, 1069 DCW @TAPE@ ,, 1073 DCW @COMPARE@ ,, 1080 DCW @ERROR @ ,, ORG 1120 1120 DCW @PASS OPER. RECOR@ CONSTANTS FOR HEADINGS 1140 DCW @D ONE TYPE OF ERR@ ,, 1160 DCW @ORS RECORD TWO @ ,, 1180 DCW @ TYPE OF ERRORS @ ,, ORG 1250 1250 DCW @"@ ,, ....5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80...85...90...95..100 0: ,019027,031,038042B031T98"B400L046352BW04BS88 1 1 1 1 1 1 1 1 300: ,008012,00110011B361080AB421/340080 BS88S68 B400 / 1 1 1 11 1 1 1 1 1 1 400: 332/BS00S521M'34'53U%U4RL432585N/299M'53203M'64211L'30226L'50260,226260L%U4216WB552LB420KM'33'56L%U4 11 1 1 1 11 1 1 1 1 1 1 1 1 1 1 500: 250WB525BB575'551A'20'56B420KU%U4BU%U4EB497 L405585M'72232B485 B607LB420KN630 B642CB694 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 600: L405585M'72266B580 M'84285B646E2694.B694 L432803 1 1 1 1 1 1 11 1 700: /299M'53203M'68210LS50226LS50260U%U4BU%U4BL%U4216RB773BB867LC225'29B887/L%U4250RB694BB907LC259'49B92 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 800: 7/N950 B962CB694DB850'521A'20'53B425 B425GU%U4R/348299L405803M'72232B761 L405803M'79244 1 1 1 1 1 1 1 1 1 1 1 1 1 1 900: B773 L405803M'72266B791 L405803M'79278B803 M'84285B968E22813).B813 1 1 1 1 1 1 1 1 1 11 11 1000: 1111111111"0001 RWRWRWRWRW" XXXXX WRITEREADTAPECOMPAREERROR 1 1 1 1 1 1 1 1 1 1 1100: PASS OPER. RECORD ONE TYPE OF ERRORS RECORD TWO TYPE OF ERRORS 2 1 1 1 1 1 1200: ,049L0772772/2772)/40/60)/80L/992802/2802413 " 1 1 11 11 1 1 11 1 1 1 END