,0080121001 VERT. REDUNDANCY CHECK 5080B 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5080B 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5080B 03 L057S4510012,049L0772772/2772)/40/60)/80L/992802/280B`60 CARD 1 OF 3 5080B 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 5080B 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 5080B 06 L0313961001B389S681 USE WHEN TESTS ARE RUN FROM TAPE 5080B 07 L0314041001BS88 ,, 5080B 08 L0314081001N000 ,, 5080B 09 L0314121001M360392 ,, 5080B 10 L0314191001/332 CLEAR PRINT 5080B 11 L0314231001/ ,, 5080B 12 L0314241001BS00S521 BR TO TITLE PRINT IF 1 IN 1252 5080B 13 L0314321001L083085 SET PASS COUNTER TO ONE 5080B 14 L0314391001L091088 START TABLE AT 120 5080B 15 L0314461001B800K BRANCH IF END OF REEL 5080B 16 L0314511001LS50262 LOAD GM WM IN LOC. 262 5080B 17 L0314581001LS50276 LOAD GM WM IN LOC. 276 5080B 18 L0314651001,261261 SET WORD MARK IN LOC. 261 5080B 19 L0314721001M088463 MOVE TABLE CHARACTER TO PRINT AREA 5080B 20 L0314791001MXXX261 ,, 5080B 21 L0314861001M%U4261W WRITE TAPE EVEN 5080B 22 L0314941001B809L BRANCH ON TAPE ERROR 5080B 23 L0314991001M%B4261W WRITE TAPE ODD 5080B 24 L0315071001B823L BRANCH ON TAPE ERROR 5080B 25 L0315121001M%B4261W WRITE TAPE ODD 5080B 26 L0315201001B837L BRANCH ON TAPE ERROR 5080B 27 L0315251001M%U4261W WRITE TAPE EVEN 5080B 28 L0315331001B851L BRANCH ON TAPE ERROR 5080B 29 L0315381001U%U4B BACKSPACE TAPE 5080B 30 L0315431001U%U4B ,, 5080B 31 L0315481001U%U4B ,, 5080B 32 L0315531001U%U4B ,, 5080B 33 L0315581001B567 BRANCH 5080B 34 L0315861001/250 CLEAR PRINT 5080B 35 L0315901001M%U4272R READ TAPE EVEN 5080B 36 L0315981001B612B B ON TO SCOPE 5080B 37 L0316031001M092204 MOVE X TO PRINT AREA 5080B 38 L0316101001M092227 ,, 5080B 39 L0316171001B881L BRANCH ON TAPE ERROR 5080B 40 L0316221001B900C C ON CORRECT PRINT 5080B 41 L0316271001/250 CLEAR PRINT 5080B 42 L0316311001M%U4272R READ EVEN 5080B 43 L0316391001B668B B ON TO SCOPE 5080B 44 L0316441001M092215 MOVE X TO PRINT AREA 5080B 45 L0316511001M092227 ,, 5080B 46 L0316581001B865L BRANCH ON TAPE ERROR 5080B 47 L0316631001M097285 MOVE WORD ERROR TO PRINT 5080B 48 L0316701001B921E E ON TO ERROR STOP 5080B 49 L03167510012 PRINT 5080B 50 L0316761001M102285 CLEAR WORD ERROR 5080B 51 L0316831001/250 CLEAR XS FROM PRINT AREA 5080B 52 L0316871001M%B4272R READ TAPE ODD 5080B 53 L0316951001B709B B ON TO SCOPE 5080B 54 L0317001001M092215 MOVE X TO PRINT AREA 5080B 55 L0317071001M092235 ,, 5080B 56 L0317141001B925L BRANCH ON TAPE ERROR 5080B 57 L0317191001B944C C ON FOR CORRECT PRINT 5080B 58 L0317241001/250 CLEAR XS FROM PRINT AREA 5080B 59 L0317281001M%B4272R READ TAPE ODD 5080B 60 L0317361001B427B B ON TO SCOPE 5080B 61 L0317411001M092204 MOVE X TO PRINT AREA 5080B 62 L0317481001M092235 ,, 5080B 63 L0317551001B963L BRANCH ON TAPE ERROR 5080B 64 L0317601001M097285 MOVE WORD ERROR TO PRINT 5080B 65 L0317671001B983E E ON TO ERROR STOP 5080B 66 L03177210012 PRINT 5080B 67 L0317731001M102285 CLEAR WORD ERROR FROM PRINT 5080B 68 L0317801001/250 CLEAR XS FROM PRINT AREA 5080B 69 L0317841001B427D D ON TO REPEAT 5080B 70 L0317891001C088106 COMPARE FOR END OF TABLE 5080B 71 L0317961001B786/ BRANCH IF NOT END OF TABLE 5080B 72 L0318011001B987 BRANCH IF END OF TABLE 5080B 73 L0318051001A083088 ADD ONE TO TABLE COUNTER 5080B 74 L0318121001B427 BRANCH 5080B 75 L0318191001U%U4R REWIND TAPE DRIVE 4 5080B 76 L0318241001B427 BRANCH 5080B 77 L0318281001U%U4B BACKSPACE TAPE DRIVE 4 5080B 78 L0318331001U%U4E SKIP 5080B 79 L0318381001B467 BRANCH 5080B 80 L0318421001U%U4B BACKSPACE 5080B 81 L0318471001U%U4E SKIP 5080B 82 L0318521001B480 BRANCH 5080B 83 L0318561001U%U4B BACKSPACE 5080B 84 L0318611001U%U4E SKIP 5080B 85 L0318661001B493 BRANCH 5080B 86 L0318701001U%U4B BACKSPACE 5080B 87 L0318751001U%U4E SKIP 5080B 88 L0318801001B506 BRANCH 5080B 89 L0318841001M092247 MOVE X TO PRINT 5080B 90 L0318911001B656C C ON FOR CORRECT PRINT 5080B 91 L0318961001B664 BRANCH 5080B 92 L0319001001M092247 MOVE X TO PRINT 5080B 93 L0319071001M097285 MOVE WORD ERROR TO PRINT 5080B 94 L0319141001B915E E ON TO ERROR STOP 5080B 95 L03191910012 PRINT 5080B 96 L0319201001M102285 CLEAR WORD ERROR FROM PRINT 5080B 97 L0319271001/612250 CLEAR XS FROM PRINT AND BRANCH 5080B 98 L0319341001.901 ERROR STOP 5080B 99 L0319381001 WORD MARK 5080B100 L0319401001.657 ERROR STOP 5080B101 L0319441001M092247 MOVE X TO PRINT 5080B102 L0319511001M097285 MOVE WORD ERROR TO PRINT 5080B103 L0319581001B959E E ON TO ERROR STOP 5080B104 L03196310012 PRINT 5080B105 L0319641001M102285 CLEAR WORD ERROR FROM PRINT 5080B106 L0319711001/709250 CLEAR XS FROM PRINT AND BRANCH 5080B107 L0319781001.945 ERROR STOP 5080B108 L0319821001M092247 MOVE X TO PRINT 5080B109 L0319891001B753C C ON FOR CORRECT PRINT 5080B110 L0319941001B761 BRANCH 5080B111 L031`021001.754 ERROR STOP 5080B112 L031`061001L091088 START TABLE AT 120 5080B113 L031`131001B`270855 BRANCH IF FIFTH PASS 5080B114 L031`211001A083085 ADD ONE TO PASS COUNTER 5080B115 L031`281001B427 BRANCH 5080B116 L031`461001B`49G G ON TO REPEAT ENTIRE TEST 5080B117 L031`511001U%U4M WRITE TM AND RESET TAPE ERROR INDICATOR 5080B118 L031`561001/348299 CLEAR AND BR TO PROG CHAINING ROUTINE 5080B119 L031`681001L083085 SET PASS COUNTER TO ONE 5080B120 L031`751001B427 BRANCH 5080B121 L031`791001M174205 MOVE WORD EVEN TO PRINT 5080B122 L031`861001M177216 MOVE WORD ODD TO PRINT 5080B123 L031`931001M174228 MOVE WORD EVEN TO PRINT 5080B124 L031/001001M177235 MOVE WORD ODD TO PRINT 5080B125 L031/071001M187252 MOVE WORDS READ-ERROR TO PRINT 5080B126 L031/141001M194264 MOVE WORD WRITTEN TO PRINT 5080B127 L031/211001M181274 MOVE WORD READ TO PRINT 5080B128 L031/2810012 PRINT THIRD LINE OF HEADING 5080B129 L031/291001/299 CLEAR PRINT AREA 5080B130 L031/331001F413J SPACE AND BRANCH 5080B131 L031/381001 WORD MARK 5080B132 L031/391001WRITTEN WRITTEN CONSTANT 5080B133 L031/591001 READ READ CONSTANT 5080B134 L031/791001 INDICATED CHAR CONSTANT 5080B135 L031/991001ACTER CHARACTER CONSTANT 5080B136 L012S501001"CTER CHARACTER CONSTANT 5080B136 L031101100101 CONSTANT ONE 5080B138 L0311031001XX PASS COUNTER 5080B139 L0311051001XXX TABLE COUNTER 5080B140 L0311081001120 CONSTANT START TABLE ADDR. 5080B141 L0311111001X CONSTANT X 5080B142 L0311121001ERROR CONSTANT 5080B143 L0311171001 CONSTANT BLANKS 5080B144 L0311231001169 CONSTANT STOP TABLE ADDR. 5080B145 L03113910011234567890ABCDEFGHIJ TABLE 5080B146 L0311591001KLMNOPQRSTUVWXYZ.)&$ TABLE 5080B147 L0311791001*-/,%#@?!` TABLE 5080B148 L0311901001EVEN CONSTANT 5080B149 L0311941001ODD CONSTANT 5080B150 L0311971001READ ERROR CONSTANT 5080B151 L0312071001WRITTEN CONSTANT 5080B152 ,019027,031,038042B031T98"B400L046352BW04BS88 VERT. REDUNDANCY CHECK 5080B153