,0080121001                                     TEST CHARACTER & BRANCH 0050A 0A
,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0050A 02
,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0050A 03
L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413    CARD 1 OF 3 0050A 04
,019026,033,040044,051051/340001       TITLE PRINT ROUTINE  CARD 2 OF 3 0050A 05
,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080          CARD 3 OF 3 0050A 06
L0313961001B389                 USE WHEN TESTS ARE RUN FROM TAPE        0050A 07
L0314041001BS88                   ,,                                    0050A 08
L0314081001N000                   ,,                                    0050A 09
L0314121001M360392                ,,                                    0050A 10
L0314191001/332                 START TEST                              0050A 11
L0314231001/                                                            0050A 12
L0314241001BS00S521             BR TO TITLE PRINT ROUTINE IF 1 IN S52   0050A 13
L0314321001/080                 CLEAR READ AREA                         0050A 14
L0314361001B348                 BRANCH TO PROGRAM CHAINING ROUTINE      0050A 15
L0314401001,001078              LOAD PRINT AREA                         0050A 16
L0314471001L080299                ,,                                    0050A 17
L0314541001L072272                ,,                                    0050A 18
L0314611001,202241                ,,                                    0050A 19
L0314681001M250456              MOVE B OR N OP INTO 456                 0050A 20
L0314751001 486                 B OP FOR EQUAL CHAR-N OP FOR UNEQ CHAR  0050A 21
L0314791001M202474              MOVE D MODIFIER TO TEST CHARAC OP       0050A 22
L0314861001B895224X             TEST UNEQUAL CHARACTERS                 0050A 23
L0314941001B                      ,,                                    0050A 24
L0314951001B                      ,,                                    0050A 25
L0314961001B467B                B ON TO SCOPE                           0050A 26
L0315011001B515                 BRANCH TO LOAD RESULT COMMENT           0050A 27
L0315051001M202500              MOVE D MODIFIER TO TEST CHARAC OP       0050A 28
L0315121001B510222X             TEST EQUAL CHARACTERS                   0050A 29
L0315201001B493B                B ON TO SCOPE                           0050A 30
L0315251001B900                 BRANCH TO ERROR PRINT ROUTINE           0050A 31
L0315291001B493B                B ON TO SCOPE                           0050A 32
L0315341001L247267              LOAD RESULT COMMENT                     0050A 33
L0315411001B950C                C ON TO CORRECT PRINT ROUTINE           0050A 34
L0315461001B958                 BRANCH TO SENSE D                       0050A 35
L0319141001B467B                B ON TO SCOPE                           0050A 36
L0319191001L/14285              BEGIN ERROR PRINT ROUTINE               0050A 37
L0319261001B916E                E ON TO ERROR STOP                      0050A 38
L03193110012958                 ERROR PRINT                             0050A 39
L0319351001.958                 ERROR STOP                              0050A 40
L0319391001                     WORD MARK                               0050A 41
L0319691001L/19285              CORRECT PRINT ROUTINE                   0050A 42
L03197610012                      ,,                                    0050A 43
L0319771001B421D                D ON TO REPEAT                          0050A 44
L0319821001/280                 CLEAR                                   0050A 45
L0319861001/080                   ,,                                    0050A 46
L0319901001B417                 BRANCH TO READ NEXT RECORD              0050A 47
L031/291001ERROR                CONSTANTS                               0050A 48
L031/341001                       ,,                                    0050A 49
L031/391001D MODIFIER             ,,                                    0050A 50
L031/591001B FIELD CHARACTERS     ,,                                    0050A 51
L031/791001RESULT SHOULD BE       ,,                                    0050A 52
L031/991001RESULT IS              ,,                                    0050A 53
L012S5210011                                                            0050A   
,019027,031,038042B031T98"B400L046352BW04BS88   TEST CHARACTER & BRANCH 0050A 54
                                          EQUAL  B                      0050A 55
 "                   "                    EQUAL  B                      0050A 56
 1                   1                    EQUAL  B                      0050A 57
 2                   2                    EQUAL  B                      0050A 58
 4                   4                    EQUAL  B                      0050A 59
 8                   8                    EQUAL  B                      0050A 60
 /                   /                    EQUAL  B                      0050A 61
 -                   -                    EQUAL  B                      0050A 62
                     124                UNEQUAL  N                      0050A 63
                     8/-                UNEQUAL  N                      0050A 64
 1                    24                UNEQUAL  N                      0050A 65
 1                   8/-                UNEQUAL  N                      0050A 66
 2                    14                UNEQUAL  N                      0050A 67
 2                   8/-                UNEQUAL  N                      0050A 68
 4                    12                UNEQUAL  N                      0050A 69
 4                   8/-                UNEQUAL  N                      0050A 70
 8                    12                UNEQUAL  N                      0050A 71
 8                   4/-                UNEQUAL  N                      0050A 72
 /                    12                UNEQUAL  N                      0050A 73
 /                   48-                UNEQUAL  N                      0050A 74
 -                    12                UNEQUAL  N                      0050A 75
 -                   48/                UNEQUAL  N                      0050A 76
