,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,038042B031T98AB400L046352BW04BS88   MOVE TAPE               5040C110