,0080121001 MOVE TAPE 5040C 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5040C 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5040C 03 L057S4510012,049L0772772/2772)/40/60)/80L/992802/2802413 CARD 1 OF 3 5040C 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5040C 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 5040C 06 L0313961001BS88S68 USE WHEN TESTS ARE RUN FROM TAPE 5040C 07 L0314041001B400 ,, 5040C 08 L0314191001/332 START TEST 5040C 09 L0314231001/ 5040C 10 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 5040C 11 L0314321001M`04`07 SET PASS COUNTER TO 001 5040C 12 L0314391001N0000 NOP 5040C 13 L0314441001,199 SET WM IN 199 5040C 14 L0314481001B886 BR TO SET MOD INSTR TO INITIAL COND. 5040C 15 L0314561001M%U4208W WRITE 15 CHARACTER RECORD 5040C 16 L0314641001B455B B ON TO SCOPE 5040C 17 L0314691001B637L BRANCH IF WRITE ERROR 5040C 18 L0314741001B628K BRANCH IF END OF REEL 5040C 19 L0314791001U%U4B BACKSPACE 5040C 20 L0314841001M%U4245R READ BACK SAME 15 CHARACTER RECORD 5040C 21 L0314921001B437B B ON TO SCOPE 5040C 22 L0314971001B664L BRANCH IF READ ERROR 5040C 23 L0315021001B745 BRANCH TO TEST FOR ERROR BY COMPARING 5040C 24 L0315061001Z`07203 MOVE PASS NUMBER 5040C 25 L0315131001N725 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 5040C 26 L0315181001B737C C ON TO CORRECT ROUTINE 5040C 27 L0315231001B933D D ON TO REPEAT SAME RECORD 5040C 28 L0315281001C944`10 TEST IF LAST RECORD HAS BEEN WRITTEN 5040C 29 L0315351001B613/ BRANCH IF NOT LAST RECORD 5040C 30 L0315401001B601`061 BRANCH IF END OF 10TH PASS 5040C 31 L0315481001A`00`07 ADD 1 TO PASS COUNTER 5040C 32 L0315551001B886 BRANCH TO START NEXT PASS 5040C 33 L0316201001B413G G ON TO REPEAT TEST 5040C 34 L0316251001/348299 BRANCH TO READ NEXT PROGRAM 5040C 35 L0316321001,942 ADD 1 TO MOVE INSTR TO SET UP NEXT 5040C 36 L0316361001A`00944 RECORD TO BE WRITTEN 5040C 37 L0316431001B933 BRANCH TO SET UP NEXT RECORD 5040C 38 L0316471001U%U4R REWIND 5040C 39 L0316521001B933 BRANCH TO SET UP SAME RECORD 5040C 40 L0316561001L405494 CHANGE NOP TO BRANCH 5040C 41 L0316631001M`88230 MOVE TAPE WRITE ERROR COMMENT 5040C 42 L0316701001B660E E ON TO ERROR STOP 5040C 43 L0316751001B455 BRANCH TO TEST FOR END OF REEL 5040C 44 L0316791001.455 ERROR STOP IF TAPE WRITE ERROR 5040C 45 L0316831001L405494 CHANGE NOP TO BRANCH 5040C 46 L0316901001M`88267 MOVE TAPE READ ERROR COMMENT 5040C 47 L0316971001B687E E ON TO ERROR STOP 5040C 48 L0317021001B745 BRANCH TO TEST FOR ERROR BY COMPARING 5040C 49 L0317061001.745 ERROR STOP IF TAPE READ ERROR 5040C 50 L0317101001,246258 SET WM IN TAPE READ AREA 5040C 51 L0317171001L405494 CHANGE NOP TO BRANCH 5040C 52 L0317241001M`95278 MOVE COMPARE ERROR COMMENT 5040C 53 L0317311001B721E E ON TO ERROR STOP 5040C 54 L0317361001B487 BRANCH TO MOVE PASS NUMBER 5040C 55 L0317401001.487 ERROR STOP IF ERROR DETECTED BY COMPARE 5040C 56 L0317441001M/00285 MOVE WORD ERROR TO PRINT 5040C 57 L0317511001B504E E OFF TO ERROR PRINT 5040C 58 L03175610012 PRINT 5040C 59 L03175710012) PRINT WORD MARKS 5040C 60 L0317591001B504 BRANCH TO SENSE D 5040C 61 L0317641001V7572461 TEST FOR WORD MARKS 5040C 62 L0317721001B698 ,, 5040C 63 L0317761001V7692581 ,, 5040C 64 L0317841001B698 ,, 5040C 65 L0317881001)246258 ,, 5040C 66 L0317951001)260223 ,, 5040C 67 L0318021001C260223 TEST FOR ERRORS BY COMPARING 5040C 68 L0318091001B691/ ,, 5040C 69 L0318141001C258221 ,, 5040C 70 L0318211001B691/ ,, 5040C 71 L0318261001C252215 ,, 5040C 72 L0318331001B691/ ,, 5040C 73 L0318381001V6912591 TEST FOR WORD MARKS 5040C 74 L0318461001V6912531 ,, 5040C 75 L0318541001V6912451 ,, 5040C 76 L0318621001,246258 ,, 5040C 77 L0318691001B487 ,, 5040C 78 L0319051001M`14910 SET MODIFIED INSTR TO INITIAL COND 5040C 79 L0319121001M`18944 ,, 5040C 80 L0319191001)908/13 SET WORD MARKS THROUGHOUT TABLE 5040C 81 L0319261001,/01908 ,, 5040C 82 L0319331001V933/131 ,, 5040C 83 L0319411001A`00910 ,, 5040C 84 L0319481001B900 ,, 5040C 85 L0319521001/299 CLEAR PRINT AREA 5040C 86 L0319561001)942 SET UP 15 CHARACTER RECORD TO BE 5040C 87 L0319601001M/02209 WRITTEN ON TAPE 5040C 88 L0319671001L ,, 5040C 89 L0319681001M209211 ,, 5040C 90 L0319751001M211215 ,, 5040C 91 L0319821001L214222 ,, 5040C 92 L0319891001,222 ,, 5040C 93 L0319931001LS50223 ,, 5040C 94 L031`001001M/40494 CHANGE ERROR BRANCH TO NOP 5040C 95 L031`071001,246258 SET WORD MARK IN TAPE READ AREA 5040C 96 L031`141001B437 BRANCH TO WRITE TAPE 5040C 97 L031`19100110001 CONSTANT 5040C 98 L031`241001XXX PASS COUNTER FOR NO. OF TEST PASSES 5040C 99 L031`271001/13,/01M/02 CONSTANT 5040C100 L031/041001TAPE CONSTANTS FOR PRINTOUTS 5040C101 L031/081001COMPARE ,, 5040C102 L031/151001ERROR ,, 5040C103 L031/201001AAKT4EOX8I-,@ CONSTANTS FOR TAPE RECORDS 5040C104 L031/391001PASS RECORD WRITTE CONSTANTS FOR HEADINGS 5040C105 L031/591001N TYPE OF ERRORS ,, 5040C106 L031/791001 RECORD READ BACK ,, 5040C107 L031/991001 TYPE OF ERRORS ,, 5040C108 L012S501001" TYPE OF ERRORS ,, 5040C109 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE TAPE 5040C110