JOB RIPPLE PUNCH 1030A ORG 377 377 BCE 389,1262,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-880 427 LCA 760,820 ,, 434 LCA 760,880 ,, 441 CW 761,821 ,, 448 CS 180 CLEAR PUNCH AREA 452 SW 101 SET WM IN PUNCH AREA 456 LCA 607,614 LOAD CARD COUNTER 463 MCW 614,473 MOVE CARD COUNTER INTO NEXT INSTRUCTION 470 MCW 780,180 MOVE TABLE INTO PUNCH AREA 477 BWZ 495,101,2 BR TO PUNCH AND BRANCH IF NO ZONE IN 101 485 P PUNCH 486 BSS 485,B B ON TO SCOPE 491 B 505 BRANCH TO TEST FOR LAST CARD 495 P 500 PUNCH & BRANCH 499 H ERROR STOP IF NO BRANCH 500 BSS 495,B B ON TO SCOPE 505 C 611,614 COMPARE CARD COUNTER WITH 839 512 BU 526 BRANCH TO ADD 1 IF NOT 839 517 BSS 456,D D ON TO REPEAT TEST 522 B 348 BRANCH TO READ NEXT RECORD 526 A 608,614 ADD 1 TO CARD COUNTER 533 BIN 463, BRANCH TO PUNCH NEXT CARD ORG 600 600 BIN 420, BRANCH INSTRUCTION TO MODIFY TITLE PRINT 607 DSA 780 CONSTANT TO START CARD COUNTER 608 R CONSTANT TO INCREMENT CARD COUNTER 611 DSA 839 CONSTANT TO STOP CARD COUNTER 631 DCW @XXX @ CARD COUNTER ORG 701 720 DCW @AKT4 BLU5"CMV6 DNW7_@ TABLE TO BE RIPPLE PUNCHED 740 DCW @EOX8 FPY9+GQZ0 HR'#(@ ,, 760 DCW @I-,@ &$%1?.*/2 )JS3!@ ,, END