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 1004,1007 SET PASS COUNTER TO 001 420 N00 NOP 425 SW 199 SET WM IN 199 429 BIN 886, BR TO SET MOD INSTR TO INITIAL COND. ORG 437 437 WT 4,208 WRITE 15 CHARACTER RECORD 445 BSS 455,B B ON TO SCOPE 450 BER 637 BRANCH IF WRITE ERROR 455 BEF 628 BRANCH IF END OF REEL 460 BSP 4 BACKSPACE 465 RT 4,245 READ BACK SAME 15 CHARACTER RECORD 473 BSS 437,B B ON TO SCOPE 478 BER 664 BRANCH IF READ ERROR 483 B 745 BRANCH TO TEST FOR ERROR BY COMPARING 487 MCS 1007,203 MOVE PASS NUMBER 494 NOP 725 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 498 DC @ @ 499 BSS 737,C C ON TO CORRECT ROUTINE 504 BSS 933,D D ON TO REPEAT SAME RECORD 509 C 944,1010 TEST IF LAST RECORD HAS BEEN WRITTEN 516 BU 613 BRANCH IF NOT LAST RECORD 521 BCE 601,1006,1 BRANCH IF END OF 10TH PASS 529 A 1000,1007 ADD 1 TO PASS COUNTER 536 BIN 886, BRANCH TO START NEXT PASS ORG 601 601 BSS 413,G G ON TO REPEAT TEST 606 CS 348,299 BRANCH TO READ NEXT PROGRAM 613 SW 942 ADD 1 TO MOVE INSTR TO SET UP NEXT 617 A 1000,944 RECORD TO BE WRITTEN 624 B 933 BRANCH TO SET UP NEXT RECORD 628 RWD 4 REWIND 633 B 933 BRANCH TO SET UP SAME RECORD 637 LCA 405,494 CHANGE NOP TO BRANCH 644 MCW 1088,230 MOVE TAPE WRITE ERROR COMMENT 651 BSS 660,E E ON TO ERROR STOP 656 B 455 BRANCH TO TEST FOR END OF REEL 660 H 455 ERROR STOP IF TAPE WRITE ERROR 664 LCA 405,494 CHANGE NOP TO BRANCH 671 MCW 1088,267 MOVE TAPE READ ERROR COMMENT 678 BSS 687,E E ON TO ERROR STOP 683 B 745 BRANCH TO TEST FOR ERROR BY COMPARING 687 H 745 ERROR STOP IF TAPE READ ERROR 691 SW 246,258 SET WM IN TAPE READ AREA 698 LCA 405,494 CHANGE NOP TO BRANCH 705 MCW 1095,278 MOVE COMPARE ERROR COMMENT 712 BSS 721,E E ON TO ERROR STOP 717 B 487 BRANCH TO MOVE PASS NUMBER 721 H 487 ERROR STOP IF ERROR DETECTED BY COMPARE 725 MCW 1100,285 MOVE WORD ERROR TO PRINT 732 BSS 504,E E OFF TO ERROR PRINT 737 W PRINT 738 WM PRINT WORD MARKS 740 BIN 504, BRANCH TO SENSE D 745 BW 757,246 TEST FOR WORD MARKS 753 B 698 ,, 757 BW 769,258 ,, 765 B 698 ,, 769 CW 246,258 ,, 776 CW 260,223 ,, 783 C 260,223 TEST FOR ERRORS BY COMPARING 790 BU 691 ,, 795 C 258,221 ,, 802 BU 691 ,, 807 C 252,215 ,, 814 BU 691 ,, 819 BW 691,259 TEST FOR WORD MARKS 827 BW 691,253 ,, 835 BW 691,245 ,, 843 SW 246,258 ,, 850 BIN 487, ,, ORG 886 886 MCW 1014,910 SET MODIFIED INSTR TO INITIAL COND 893 MCW 1018,944 ,, 900 CW 908,1113 SET WORD MARKS THROUGHOUT TABLE 907 SW 1101,908 ,, 914 BW 933,1113 ,, 922 A 1000,910 ,, 929 B 900 ,, 933 CS 299 CLEAR PRINT AREA 937 CW 942 SET UP 15 CHARACTER RECORD TO BE 941 MCW 1102,209 WRITTEN ON TAPE 948 LCA ,, 949 MCW 209,211 ,, 956 MCW 211,215 ,, 963 LCA 214,222 ,, 970 SW 222 ,, 974 LCA 1250,223 ,, 981 MCW 1140,494 CHANGE ERROR BRANCH TO NOP 988 SW 246,258 SET WORD MARK IN TAPE READ AREA 995 BIN 437, BRANCH TO WRITE TAPE 1000 DCW @10001@ CONSTANT 1005 DCW @XXX@ PASS COUNTER FOR NO. OF TEST PASSES 1008 DCW @/13,/01M/02 @ CONSTANT ORG 1085 1085 DCW @TAPE@ CONSTANTS FOR PRINTOUTS 1089 DCW @COMPARE@ ,, 1096 DCW @ERROR@ ,, 1101 DCW @AAKT4EOX8I-,@ @ CONSTANTS FOR TAPE RECORDS 1120 DCW @PASS RECORD WRITTE@ CONSTANTS FOR HEADINGS 1140 DCW @N TYPE OF ERRORS@ ,, 1160 DCW @ RECORD READ BACK@ ,, 1180 DCW @ TYPE OF ERRORS @ ,, ORG 1250 1250 DCW @"@ ,, END