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 604,1222 MODIFY TITLE PRINT TO SKIP HEADINGS 412 BCE 1200,1252,1 BR TO TITLE PRINT ROUTINE IF 1 IN S52 420 CW 721,741 EXPAND TABLE FROM 701-760 TO 701-940 427 LCA 760,820 ,, 434 CW 761 ,, 438 LCA 820,940 ,, 445 CW 821 ,, 449 SW 201 SET WM IN PRINT AREA 453 LCA 607,614 LOAD LINE COUNTER 460 MCW 614,470 MOVE LINE CTR INTO NEXT INSTRUC 467 MCW 832,332 MOVE TABLE INTO PRINT AREA 474 W PRINT 475 BSS 474,B B ON TO SCOPE 480 C 611,614 COMPARE LINE COUNTER WITH 891 487 BU 501 BRANCH TO ADD 1 IF NOT 891 492 BSS 453,D D ON TO REPEAT TEST 497 B 348 BRANCH TO READ NEXT RECORD 501 A 608,614 ADD 1 TO LINE COUNTER 508 BIN 460, BRANCH TO PRINT NEXT LINE ORG 600 600 BIN 420, BRANCH INSTRUCTION TO MODIFY TITLE PRINT 605 DSA 832 CONSTANT TO START LINE COUNTER 608 R CONSTANT TO INCREMENT LINE COUNTER 609 DSA 891 CONSTANT TO STOP LINE COUNTER 612 DCW @XXX @ LINE COUNTER ORG 701 701 DCW @AKT4 BLU5 CMV6"DNW7 @ TABLE TO BE RIPPLE PRINTED 721 DCW @EOX8 FPY9_GQZ0 HR'# @ ,, 741 DCW @I-,@+&$%1 .*/2 )JS3(@ ,, END