COMPARE & BR UNEQUAL                                       0100A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   COMPARE & BR UNEQUAL
  102         * EQUATES FOR COMMON CODE.
  103         *
  104         START  EQU   348                                                         0348
  105         DETAIL EQU   START   BRANCH HERE TO READ DETAIL OR CHAIN NEXT PRO        0348
  106         WORKED EQU   453     BRANCH HERE FOR SUCCESS                             0453
  107         FAILED EQU   470     BRANCH HERE FOR FAILURE                             0470
  108                ORG   518     TEST STARTS HERE                                           0518
  109         *
  110                BCE   LARGER,46,L    BR TO MAKE B FIELD LARGER IF L IN 046     8  0518  B 534 046 L          1
  111                SW    222            SET B FLD WM IF NO L IN 046               4  0526  , 222                1
  112                B     SCOPE          BRANCH TO COMPARE                         4  0530  B 538                1
  113         LARGER SW    221            SET B FLD WM IF L IN 046                  4  0534  , 221                1
  114         SCOPE  C     203,223        COMPARE & BRANCH UNEQUAL                  7  0538  C 203 223            1
  115                BU    UNEQ             ,,                                      5  0545  B 567 /              1
  116                BSS   SCOPE,B        B ON TO SCOPE                             5  0550  B 538 B              1
  117                BCE   OK,41,         NO ERROR IF BLANK IN 041                  8  0555  B 580 041            2
  118                B     FAILED         BRANCH TO ERROR PRINT ROUTINE             4  0563  B 470                2
  119         UNEQ   BSS   SCOPE,B        B ON TO SCOPE                             5  0567  B 538 B              2
  120                BCE   FAILED,41,     NO ERROR IF U IN 041                      8  0572  B 470 041            2
  121         OK     SW    241            LOAD RESULT COMMENT                       4  0580  , 241                2
  122                LCA   260,280          ,,                                      7  0584  L 260 280            2
  123                B     WORKED                                                   4  0591  B 453                3
  124                DCW   @"@            GMWM                                      1  0595                       3
  125                END   START                                                             / 348 080
1                          COMPARE & BR UNEQUAL                                       0100A               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    348    FAILED    470    LARGER    534    OK        580    SCOPE     538    START     348    UNEQ      567   
 WORKED    453