JOB ORG 377 377 BCE 389,1261,1 USE WHEN TESTS ARE RUN FROM TAPE 385 B 1288 ,, 389 NOP 0 ,, 393 MCW 360,392 ,, 400 CS 332 START TEST 404 CS 405 LCA 654,1222 MODIFY TITLE PRINT TO SKIP HEADINGS 412 BCE 1200,1252,1 BR TO TITLE PRINT ROUTINE IF 1 IN S52 420 SW 200 SET WORD MARK IN 200 424 MN 459,332 MOVE LOZENGE INTO 332 431 MCW 332,331 MOVE LOZENGE INTO ALL PRINT POSITIONS 438 MCW 660,472 MOVE 201234 TO START A & B OF INSTR 466 445 MCW 666,479 MOVE 267300 TO START A & B OF INSTR 473 452 WM PRINT WORD MARKS 454 BSS 452,B B ON TO SCOPE 459 CW 467,474 CLEAR WORD MARKS IN 467 AND 474 466 SW 201,234 SET TWO WORD MARKS IN PRINT AREA 473 SW 267,300 SET TWO WORD MARKS IN PRINT AREA 480 C 479,669 COMPARE LAST POSITION SET WITH 333 487 BU 496 UNEQUAL-BRANCH TO SET WM IN 467 AND 474 492 B 521 EQUAL-BRANCH TO BEGIN REMOVING WMS 496 SW 467,474 SET WORD MARKS IN 467 AND 474 503 A 676,472 ADD 1001 TO INCREMENT AB OF INSTR 466 510 A 676,479 ADD 1001 TO INCREMENT AB OF INSTR 473 517 B 452 LOOP TO PRINT WORD MARKS 521 MCW 660,548 MOVE 201234 TO START A & B OF INSTR 542 528 MCW 666,555 MOVE 267300 TO START A & B OF INSTR 549 535 CW 543,550 CLEAR WORD MARKS IN 543 AND 550 542 CW 201,234 CLEAR TWO WORD MARKS IN PRINT AREA 549 CW 267,300 CLEAR TWO WORD MARKS IN PRINT AREA 556 WM 562 PRINT UNCLEARED WORD MARKS & BRANCH 561 H ERROR STOP IF NO BRANCH 562 BSS 556,B B ON TO SCOPE 567 C 555,672 COMPARE LAST POSITION CLEARED WITH 332 574 BU 588 UNEQUAL-BRANCH TO SET WM IN 543 AND 550 579 BSS 420,D EQUAL-D ON TO REPEAT TEST 584 B 348 BRANCH TO READ NEXT RECORD 588 SW 543,550 SET WORD MARKS IN 543 AND 550 595 A 676,548 ADD 1001 TO INCREMENT AB OF INSTR 542 602 A 676,555 ADD 1001 TO INCREMENT AB OF INSTR 549 609 BIN 535, LOOP TO PRINT UNCLEARED WORD MARKS ORG 650 650 BIN 420, BRANCH INSTRUCTION TO MODIFY TITLE PRINT 655 DCW @201234@ CONSTANT TO START AB FIELDS 661 DCW @267300@ CONSTANT TO START AB FIELDS 667 DSA 333 CONSTANT TO END SET WM LOOPS 670 DSA 332 CONSTANT TO END CLEAR WM LOOPS 673 DCW @1001 @ CONSTANT TO INCREMENT AB FIELDS END