LOAD COMPARE                                               0110A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   LOAD 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         * CONTINUE HERE AFTER READING DETAIL
  113         *
  114                SW    210,241          ,,                                      7  0518  , 210 241            1
  115         SCOPE  LCA   210,270        LOAD OP WITH CHAINING                     7  0525  L 210 270            1
  116                LCA                    ,,                                      1  0532  L                    1
  117                BSS   SCOPE,B        B ON TO SCOPE                             5  0533  B 525 B              1
  118                CW    270            TEST FOR ERROR                            4  0538  ) 270                1
  119                C     270,250          ,,                                      7  0542  C 270 250            1
  120                BU    FAILED         BRANCH TO ERROR PRINT ROUTINE IF UNEQ     5  0549  B 470 /              1
  121                B     WORKED         BRANCH TO CORRECT PRINT ROUTINE           4  0554  B 453                2
  122                DCW   @"@            GMWM                                      1  0558                       2
  123                END   START                                                             / 347 080
1                          LOAD COMPARE                                               0110A               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    FAILED    470    SCOPE     525    START     347    WORKED    453