,0080121001 PUNCH FEED READ 3600C 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 3600C 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 3600C 03 L057S4510012,049L0772772/2772)/40/60)/80L/992802/2802413 CARD 1 OF 3 3600C 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 3600C 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 3600C 06 L0313961001B400S721 USE WHEN TESTS ARE RUN FROM TAPE 3600C 07 L0314041001BS88 ,, 3600C 08 L0314191001/332 START TEST 3600C 09 L0314231001/ 3600C 10 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 3600C 11 L0314321001)721741 EXPAND RIPPLE TABLE TO 160 CHARACTERS 3600C 12 L0314391001)761 ,, 3600C 13 L0314431001L780860 ,, 3600C 14 L0314501001)781 ,, 3600C 15 L0314541001M903453 SET MOVE IN 450 TO INITIAL CONDITION 3600C 16 L0314611001/180 CLEAR PUNCH AREA 3600C 17 L0314651001,101 ,, 3600C 18 L0314691001M780180 MOVE RIPPLE TABLE TO PUNCH AREA 3600C 19 L03147610014 PUNCH 3600C 20 L0314771001N0000 NOP 3600C 21 L0314821001K4 SELECT 4 IF NO PUNCH ERROR 3600C 22 L0314841001A400453 ADD 1 TO MOVE INSTR TO PRODUCE RIPPLE 3600C 23 L0314911001C453906 TEST IF LAST CARD HAS BEEN PUNCHED 3600C 24 L0314981001B442/ BRANCH TO PUNCH NEXT CARD IF NOT LAST 3600C 25 L0315031001B435D D ON TO REPEAT PUNCHING 3600C 26 L0315081001/180 PUNCH BLANK CARD TO SELECT PREVIOUS 3600C 27 L03151210014 CARD OF RIPPLE PUNCHING 3600C 28 L0315131001B499 BRANCH TO STOP 3600C 29 L0315181001. STOP TO RELOAD STACKER 4 CARDS TO PUNCH 3600C 30 L0315191001M909534 SET MODIFIED INSTR TO INITIAL CONDITION 3600C 31 L0315261001M909676 ,, 3600C 32 L0315331001/299 CLEAR PRINT, PUNCH & READ AREAS 3600C 33 L0315371001/ ,, 3600C 34 L0315381001/ ,, 3600C 35 L0315391001,001101 SET WORD MARKS TO STOP MOVE INSTR 3600C 36 L0315461001B548 BRANCH TO PUNCH FEED READ FIRST CARD 3600C 37 L0315501001CXXX080 TEST FOR ERROR IN READING RIPPLE INFO 3600C 38 L0315571001B630/ BRANCH TO ERROR PRINT ROUTINE IF ERROR 3600C 39 L0315621001B642C C ON TO CORRECT PRINT 3600C 40 L03156710014554R PUNCH FEED READ & BRANCH 3600C 41 L0315721001. ERROR STOP IF NO BRANCH 3600C 42 L0315731001N0000 NOP 3600C 43 L0315781001K4 SELECT STACKER 4 IF NO PUNCH ERROR 3600C 44 L0315801001M040180 MOVE READ AREA TO PUNCH AREA 3600C 45 L0315871001M080 ,, 3600C 46 L0315911001/299 CLEAR PRINT AREA 3600C 47 L0315951001M080280 MOVE READ AREA TO PRINT AREA 3600C 48 L0316021001A400534 ADD 1 TO COMP IN 534 TO SHIFT FOR RIPPLE3600C 49 L0316091001A400676 ADD 1 TO MOVE IN 676 TO SHIFT FOR RIPPLE3600C 50 L0316161001C676906 TEST FOR LAST CARD 3600C 51 L0316231001B531/ BR TO TEST FOR READ ERROR IF NOT LAST 3600C 52 L0316281001B921D D ON TO REPEAT TEST 3600C 53 L0316331001/180 PUNCH BLANK CARD TO SELECT LAST 3600C 54 L03163710014 PUNCHED CARD 3600C 55 L0316381001B348 BRANCH TO READ NEXT PROGRAM 3600C 56 L0316491001L/19285 LOAD WORD ERROR TO PRINT 3600C 57 L0316561001B689E E ON TO ERROR STOP 3600C 58 L0316611001M676912 MOVE CARD NO. TO PRINT AREA 3600C 59 L0316681001S909912 ,, 3600C 60 L0316751001,297 ,, 3600C 61 L0316791001Z912299 ,, 3600C 62 L03168610016R PRINT AND PUNCH FEED READ 3600C 63 L0316881001/299 CLEAR PRINT AREA 3600C 64 L0316921001MXXX280 MOVE TABLE TO PRINT AREA 3600C 65 L03169910012 PRINT TABLE 3600C 66 L0317001001/280 PRINT BLANKS TO SPACE 3600C 67 L03170410012554 ,, 3600C 68 L0317081001. ERROR STOP 3600C 69 L0317091001B548 BR TO PUNCH FEED READ NEXT CARD 3600C 70 L0317201001??AABBCCDDEEFFGGHHII RIPPLE TABLE 3600C 71 L031740100100//SSTTUUVVWWXXYYZZ ,, 3600C 72 L0317601001RRQQPPOONNMMLLKKJJ!! ,, 3600C 73 L0317801001998877665544332211 ,, 3600C 74 L0319201001780 CONSTANTS 3600C 75 L0319231001860 ,, 3600C 76 L0319261001779 ,, 3600C 77 L0319291001XXX COUNTER USED TO FIND CARD NUMBER 3600C 78 L0319401001M903534 SET A FIELD OF COMP IN 531 TO 780 3600C 79 L0319471001M903676 SET A FIELD OF MOVE IN 673 TO 780 3600C 80 L0319541001B531 BRANCH TO REPEAT PROGRAM 3600C 81 L031/341001ERROR CONSTANTS 3600C 82 L031/391001LINE 1 - CARD READ ,, 3600C 83 L031/591001 ,, 3600C 84 L031/791001LINE 2 - TABLE IN ST ,, 3600C 85 L031/991001ORAGE ,, 3600C 86 ,019027,031,038042B031T98"B400L046352BW04BS88 PUNCH FEED READ 3600C 87