,0080121001                                     BACKSPACE SKIP          5030B 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 5030B 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 5030B 03
L057S4510012,049L0772772/2772</40/60</80L/992802/2802413    CARD 1 OF 3 5030B 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 5030B 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 5030B 06
L0313961001BS88S68              USE WHEN TESTS ARE RUN FROM TAPE        5030B 07
L0314041001B400                   ,,                                    5030B 08
L0314191001/332                 START TEST                              5030B 09
L0314231001/                                                            5030B 10
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   5030B 11
L0314321001M?34?53              SET PASS COUNTER TO ONE                 5030B 12
L0314391001U%U4R                REWIND                                  5030B 13
L0314441001L432585              LOAD -N- IN LOCATION 585                5030B 14
L0314511001N                    NOP                                     5030B 15
L0314521001/299                 CLEAR PRINT AREA                        5030B 16
L0314561001M?53203              MOVE PASS NO. IN PRINT AREA             5030B 17
L0314631001M?64211              MOVE WORD -WRITE- IN PRINT AREA         5030B 18
L0314701001L?30226              LOAD RECORD 1 & GM IN PRINT AREA        5030B 19
L0314771001L?50260              LOAD RECORD 2 & GM IN PRINT AREA        5030B 20
L0314841001,226260              SET WM IN GM LOCATIONS                  5030B 21
L0314911001L%U4216W             WRITE RECORD 1                          5030B 22
L0314991001B552L                BRANCH IF TAPE WRITE ERROR              5030B 23
L0315041001B420K                BRANCH IF END OF REEL                   5030B 24
L0315091001M?33?56              SET RE-WRITE COUNTER TO ZERO            5030B 25
L0315161001L%U4250W             WRITE RECORD 2                          5030B 26
L0315241001B525B                B ON TO SCOPE                           5030B 27
L0315291001B575?551             BRANCH IF 10 IN RE-WRITE COUNTER        5030B 28
L0315371001A?20?56              ADD 1 TO RE-WRITE COUNTER               5030B 29
L0315441001B420K                BRANCH IF END OF REEL                   5030B 30
L0315491001U%U4B                BACKSPACE                               5030B 31
L0315541001U%U4E                SKIP                                    5030B 32
L0315591001B497                 BRANCH TO REWRITE RECORD 2              5030B 33
L0315711001L405585              LOAD -B- IN LOC. 585 TO BRANCH ON ERROR 5030B 34
L0315781001M?72232              MOVE TAPE WRITE ERROR TO PRINT          5030B 35
L0315851001B485                 BRANCH TO TEST FOR END OF REEL          5030B 36
L0315941001B607L                BRANCH IF TAPE WRITE ERROR              5030B 37
L0315991001B420K                BRANCH IF END OF REEL                   5030B 38
L0316041001N630                 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 5030B 39
L0316091001B642C                C ON TO CORRECT PRINT                   5030B 40
L0316141001B694                 BRANCH TO BEGIN READ PORTION OF TEST    5030B 41
L0316261001L405585              LOAD -B- IN LOC. 585 TO BRANCH ON ERROR 5030B 42
L0316331001M?72266              MOVE TAPE WRITE ERROR TO PRINT          5030B 43
L0316401001B580                 BRANCH TO TEST FOR END OF REEL          5030B 44
L0316491001M?84285              MOVE WORD ERROR TO PRINT AREA           5030B 45
L0316561001B646E                E ON TO ERROR STOP                      5030B 46
L03166110012694                 PRINT                                   5030B 47
L0316651001.                    ERROR STOP                              5030B 48
L0316661001B694                 BRANCH TO BEGIN READ PORTION OF TEST    5030B 49
L0317131001L432803              LOAD -N- IN LOCATION 803                5030B 50
L0317201001/299                 CLEAR PRINT AREA                        5030B 51
L0317241001M?53203              MOVE PASS NO. IN PRINT AREA             5030B 52
L0317311001M?68210              MOVE WORD -READ- IN PRINT AREA          5030B 53
L0317381001LS50226              LOAD GM-WM FOR RECORD 1                 5030B 54
L0317451001LS50260              LOAD GM-WM FOR RECORD 2                 5030B 55
L0317521001U%U4B                BACKSPACE                               5030B 56
L0317571001U%U4B                BACKSPACE                               5030B 57
L0317621001L%U4216R             READ RECORD 1 FROM TAPE                 5030B 58
L0317701001B773B                B ON TO SCOPE                           5030B 59
L0317751001B867L                BRANCH IF TAPE READ ERROR               5030B 60
L0317801001C225?29              COMPARE TAPE REC 1 WITH REC IN STORAGE  5030B 61
L0317871001B887/                BRANCH IF ERROR                         5030B 62
L0317921001L%U4250R             READ RECORD 2 FROM TAPE                 5030B 63
L0318001001B694B                B ON TO SCOPE                           5030B 64
L0318051001B907L                BRANCH IF TAPE READ ERROR               5030B 65
L0318101001C259?49              COMPARE TAPE REC 2 WITH REC IN STORAGE  5030B 66
L0318171001B927/                BRANCH IF ERROR                         5030B 67
L0318221001N950                 NOP IF NO ERRORS - BRANCH IF ANY ERRORS 5030B 68
L0318271001B962C                C ON TO CORRECT PRINT                   5030B 69
L0318321001B694D                D ON TO REPEAT READ PORTION OF PROGRAM  5030B 70
L0318371001B850?521             BRANCH IF 10 IN PASS COUNTER            5030B 71
L0318451001A?20?53              ADD 1 TO PASS COUNTER                   5030B 72
L0318521001B425                 BRANCH TO REPEAT PROG. IF NOT 10TH PASS 5030B 73
L0318691001B425G                G ON TO REPEAT TEST                     5030B 74
L0318741001U%U4R                REWIND                                  5030B 75
L0318791001/348299              CLEAR GM-WM & BRANCH TO LOAD NEXT PROG. 5030B 76
L0318861001L405803              LOAD -B- IN LOC. 803 TO BRANCH ON ERROR 5030B 77
L0318931001M?72232              MOVE TAPE READ ERROR COMMENT TO PRINT   5030B 78
L0319001001B761                 BRANCH TO TEST FOR COMPARE ERROR        5030B 79
L0319061001L405803              LOAD -B- IN LOC. 803 TO BRANCH ON ERROR 5030B 80
L0319131001M?79244              MOVE COMPARE ERROR COMMENT TO PRINT     5030B 81
L0319201001B773                 BRANCH TO READ RECORD 2                 5030B 82
L0319261001L405803              LOAD -B- IN LOC 803 TO BRANCH ON ERROR  5030B 83
L0319331001M?72266              MOVE TAPE READ ERROR COMMMENT TO PRINT  5030B 84
L0319401001B791                 BRANCH TO TEST FOR COMPARE ERROR        5030B 85
L0319461001L405803              LOAD -B- IN LOC 803 TO BRANCH ON ERROR  5030B 86
L0319531001M?79278              MOVE COMPARE ERROR COMMENT TO PRINT     5030B 87
L0319601001B803                 BRANCH TO NOP OR BRANCH                 5030B 88
L0319691001M?84285              MOVE WORD ERROR TO PRINT AREA           5030B 89
L0319761001B968E                E ON TO ERROR STOP                      5030B 90
L03198110012                    PRINT                                   5030B 91
L03198210012813<                PRINT WORD MARKS                        5030B 92
L0319871001.                    ERROR STOP                              5030B 93
L0319881001B813                 BRANCH TO SENSE D                       5030B 94
L031?3910011111111111|          RECORD ONE    GM IN ?30                 5030B 95
L031?5010010001                 CONSTANT TO INCREMENT PASS & RE-WR. CTRS5030B 96
L031?591001RWRWRWRWRW|          RECORD TWO    GM IN ?50                 5030B 97
L031?711001XX                   COUNTER FOR COUNTING NO. OF PASSES      5030B 98
L031?731001XXX                  COUNTER FOR COUNTING NO. OF RE-WRITES   5030B 99
L031?791001WRITE                CONSTANTS FOR PRINTOUTS                 5030B100
L031?841001READ                   ,,                                    5030B101
L031?881001TAPE                   ,,                                    5030B102
L031?921001COMPARE                ,,                                    5030B103
L031?991001ERROR                  ,,                                    5030B104
L031/391001PASS  OPER.    RECOR CONSTANTS FOR HEADINGS                  5030B105
L031/591001D ONE    TYPE OF ERR   ,,                                    5030B106
L031/791001ORS      RECORD TWO    ,,                                    5030B107
L031/991001   TYPE OF ERRORS      ,,                                    5030B108
L012S501001|  TYPE OF ERRORS      ,,                                    5030B109
,019027,031,038042B031T98|B400L046352BW04BS88   BACKSPACE SKIP          5030B110