BRANCH OVERFLOW                                            0360A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   BRANCH OVERFLOW
  102                CTL   6611
  103         *
  104         * EQUATES FOR COMMON CODE.
  105         *
  106         START  EQU   347                                                         0347
  107         DETAIL EQU   START   HERE TO READ DETAIL OR CHAIN NEXT PROGRAM.          0347
  108         HEADCT EQU   336     COUNT OF HEADERS READ.  USUALLY ZERO.               0336
  109         *                      CHANGE TO ONE TO PRINT ONLY ONE HEADER.
  110         WORKED EQU   453     HERE FOR SUCCESS.                                   0453
  111         FAILED EQU   470     HERE FOR FAILURE.                                   0470
  112         REPEAT EQU   495     HERE TO RELOAD PRINT AREA AND REPEAT TEST.          0495
  113                ORG   518     TEST STARTS HERE                                           0518
  114         *
  115                SW    221,241        LOAD PRINT AREA                           7  0518  , 221 241            1
  116                NOP   0                ,,                                      4  0525  N 000                1
  117                BCE   ONE,2,         BR TO ADD 1 DIGIT FLD IF 002 IS BLANK     8  0529  B 560 002            1
  118         SCOPE1 LCA   222,262        LOAD B FIELD                              7  0537  L 222 262            1
  119                A     202,262        ZONE ADD WITH 2 DIGIT FIELDS              7  0544  A 202 262            1
  120                BSS   SCOPE1,B       B ON TO SCOPE                             5  0551  B 537 B              1
  121                B     TEST           BRANCH TO TEST FOR ERROR                  4  0556  B 579                2
  122         ONE    LCA   221,261        LOAD B FIELD                              7  0560  L 221 261            2
  123                A     201,261        ZONE ADD WITH 1 DIGIT FIELDS              7  0567  A 201 261            2
  124                BSS   ONE,B          B ON TO SCOPE                             5  0574  B 560 B              2
  125         TEST   C     262,242        TEST FOR ERROR                            7  0579  C 262 242            2
  126                BU    FAILED         BRANCH TO ERROR PRINT ROUTINE IF UNEQ     5  0586  B 470 /              2
  127                B     WORKED         BRANCH TO CORRECT PRINT ROUTINE           4  0591  B 453                2
  128                DCW   @"@            GMWM                                      1  0595                       3
  129                SW    221              ,,                                      4  0596  , 221                3
  130                BAV   SCOPE          RESET OVERFLOW LATCH                      5  0600  B 605 Z              3
  131         SCOPE  LCA   222,262        LOAD B FIELD                              7  0605  L 222 262            3
  132                A     202,262        ADD                                       7  0612  A 202 262            3
  133                BAV   OVFL           BRANCH IF OVERFLOW                        5  0619  B 641 Z              3
  134                BSS   SCOPE,B        B ON TO SCOPE                             5  0624  B 605 B              3
  135                BCE   WORKED,6,N     NO ERROR IF N IN 006                      8  0629  B 453 006 N          4
  136                B     FAILED         BRANCH TO ERROR PRINT ROUTINE             4  0637  B 470                4
  137         OVFL   BSS   SCOPE,B        B ON TO SCOPE                             5  0641  B 605 B              4
  138                BCE   WORKED,6,      NO ERROR IF BLANK IN 006                  8  0646  B 453 006            4
  139                B     FAILED         BRANCH TO ERROR PRINT ROUTINE             4  0654  B 470                4
  140                END   START                                                             / 347 080
1                          BRANCH OVERFLOW                                            0360A               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    FAILED    470    HEADCT    336    ONE       560    OVFL      641    REPEAT    495    SCOPE     605   
 SCOPE1    537    START     347    TEST      579    WORKED    453