,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