,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