MOVE COMPARE                                               0200A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   MOVE COMPARE
  102                CTL   6611
  103         *
  104         * EQUATES FOR COMMON CODE.
  105         *
  106         START  EQU   347                                                         0347
  107         DETAIL EQU   START   BRANCH HERE TO READ DETAIL OR CHAIN NEXT PRO        0347
  108         WORKED EQU   453     BRANCH HERE FOR SUCCESS                             0453
  109         FAILED EQU   470     BRANCH HERE FOR FAILURE                             0470
  110                ORG   518     TEST STARTS HERE                                           0518
  111         *
  112                SW    1,78           LOAD PRINT AREA                           7  0518  , 001 078            1
  113                CS    332              ,,                                      4  0525  / 332                1
  114                LCA   80               ,,                                      4  0529  L 080                1
  115                CS                     ,,                                      1  0533  /                    1
  116                LCA   72,272           ,,                                      7  0534  L 072 272            1
  117                SW    210,241          ,,                                      7  0541  , 210 241            1
  118         SCOPE  MCW   210,270        LOAD OP WITH CHAINING                     7  0548  M 210 270            1
  119                MCW                    ,,                                      1  0555  M                    2
  120                BSS   SCOPE,B        B ON TO SCOPE                             5  0556  B 548 B              2
  121                CW    270            TEST FOR ERROR                            4  0561  ) 270                2
  122                C     270,250          ,,                                      7  0565  C 270 250            2
  123                BU    FAILED         BRANCH TO ERROR PRINT ROUTINE IF UNEQ     5  0572  B 470 /              2
  124                B     WORKED         BRANCH TO CORRECT PRINT ROUTINE           4  0577  B 453                2
  125                DCW   @"@            GMWM                                      1  0581                       2
  126                END   START                                                             / 347 080
1                          MOVE COMPARE                                               0200A               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    FAILED    470    SCOPE     548    START     347    WORKED    453