,0080121001 TAPE TO TAPE 5020B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5020B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5020B 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 5020B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5020B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 5020B 06 L0313961001BS88S68 USE WHEN PROGRAM IS LOADED FROM TAPE 5020B 07 L0314041001B400 ,, 5020B 08 L0314191001/332 START TEST 5020B 09 L0314231001/ ,, 5020B 10 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 5020B 11 L0314321001,245 SET WORD MARK IN 245 5020B 12 L0314361001M`99245 SET GROUP MARK IN 245 5020B 13 L0314431001U%U4R REWIND DRIVE 4 5020B 14 L0314481001U%U5R REWIND DRIVE 5 5020B 15 L0314531001/244 CLEAR TAPE READ AND TAPE WRITE AREAS 5020B 16 L0314571001L%U4201R READ TAPE RECORD INTO LOCS. 201-220 5020B 17 L0314651001B530B B ON TO SCOPE 5020B 18 L0314701001B560L BRANCH IF TAPE READ ERROR 5020B 19 L0314751001B501K BRANCH IF END OF REEL 5020B 20 L0314801001L220244 LOAD CORRECT TAPE RECORD INTO 225-244 5020B 21 L0314871001L%U5225W WRITE CORRECT TAPE RECORDS FROM 225-244 5020B 22 L0314951001B936B B ON TO SCOPE 5020B 23 L0315001001B900L BRANCH ON TAPE WRITE ERROR 5020B 24 L0315051001B970C C ON TO CORRECT PRINT ROUTINE 5020B 25 L0315101001B500K BRANCH IF END OF REEL 5020B 26 L0315151001B434 BRANCH 5020B 27 L0315191001. END OF TAPE DRIVE 5 5020B 28 L0315201001U%U5M WRITE TAPE MARK DRIVE 5 5020B 29 L0315251001B424G G ON TO REPEAT TEST 5020B 30 L0315301001/299 CLEAR WORD AND GROUP MARKS 5020B 31 L0315341001B348 BRANCH TO PROGRAM CHAINING ROUTINE 5020B 32 L0315491001B424K BRANCH IF END OF REEL 5020B 33 L0315541001B434 BRANCH 5020B 34 L0315791001L`69285 BEGIN TAPE READ ERROR PRINT ROUTINE 5020B 35 L0315861001B582E E ON TO ERROR STOP 5020B 36 L03159110012 TAPE READ ERROR PRINT 5020B 37 L0315921001B586D D ON TO REPEAT RECORD 5020B 38 L0315971001B434 D OFF READ NEXT TAPE RECORD 5020B 39 L0316011001.573 TAPE READ ERROR STOP 5020B 40 L0316051001U%U4B BACKSPACE READ DRIVE 5020B 41 L0316101001B434 BRANCH TO READ TAPE 5020B 42 L0319191001L`89285 BEGIN TAPE WRITE ERROR PRINT ROUTINE 5020B 43 L0319261001B932E E ON TO ERROR STOP 5020B 44 L03193110012 TAPE WRITE ERROR PRINT 5020B 45 L0319321001U%U5B BACKSPACE 5020B 46 L0319371001U%U5E SKIP 5020B 47 L0319421001B936D D ON TO REPEAT RECORD 5020B 48 L0319471001B491 D OFF ADVANCE TO NEXT RECORD 5020B 49 L0319511001.913 TAPE WRITE ERROR STOP 5020B 50 L0319551001B945K BRANCH ON END OF REEL 5020B 51 L0319601001B468 BRANCH TO WRITE TAPE 5020B 52 L0319641001U%U5M WRITE TAPE MARK DRIVE 5 5020B 53 L0319691001U%U5R REWIND TAPE DRIVE 5 5020B 54 L0319741001B468 BRANCH 5020B 55 L0319891001M`00285 BEGIN CORRECT PRINT ROUTINE 5020B 56 L03199610012491 CORRECT PRINT 5020B 57 L031`001001 WORD MARK 5020B 58 L031`691001TAPE DR 4 READ ERROR 5020B 59 L031`891001TAPE DR5 WRITE ERROR 5020B 60 L031/171001 " GROUP MARK IN 1099 5020B 61 L031/391001RECORD READ FROM DR4 5020B 62 L031/591001 SHOULD BE WRITTE 5020B 63 L031/791001N ON DR5 5020B 64 L031/991001 BLANKS 5020B 65 ,019027,031,038042B031T98"B400L046352BW04BS88 TAPE TO TAPE 5020B 66