JOB  Branch Overflow                                        0360A
               ctl  6611
     *
     * Equates for common code.
     *
     start     equ  347
     detail    equ  start   Here to read detail or chain next program.
     headct    equ  336     Count of headers read.  Usually zero.
     *                      Change to one to print only one header.
     worked    equ  453     Here for success.
     failed    equ  470     Here for failure.
     repeat    equ  495     Here to reload print area and repeat test.
               org  518     Test starts here
     *
               sw   221,241        LOAD PRINT AREA
               nop  0                ,,
               bce  one,2,         BR TO ADD 1 DIGIT FLD IF 002 IS BLANK
     scope1    lca  222,262        LOAD B FIELD
               a    202,262        ZONE ADD WITH 2 DIGIT FIELDS
               bss  scope1,B       B ON TO SCOPE
               b    test           BRANCH TO TEST FOR ERROR
     one       lca  221,261        LOAD B FIELD
               a    201,261        ZONE ADD WITH 1 DIGIT FIELDS
               bss  one,B          B ON TO SCOPE
     test      c    262,242        TEST FOR ERROR
               bu   failed         BRANCH TO ERROR PRINT ROUTINE IF UNEQ
               b    worked         BRANCH TO CORRECT PRINT ROUTINE
               dcw  @"@            GMWM
               sw   221              ,,
               bav  scope          RESET OVERFLOW LATCH
     scope     lca  222,262        LOAD B FIELD
               a    202,262        ADD
               bav  ovfl           BRANCH IF OVERFLOW
               bss  scope,B        B ON TO SCOPE
               bce  worked,6,N     NO ERROR IF N IN 006
               b    failed         BRANCH TO ERROR PRINT ROUTINE
     ovfl      bss  scope,B        B ON TO SCOPE
               bce  worked,6,      NO ERROR IF BLANK IN 006
               b    failed         BRANCH TO ERROR PRINT ROUTINE
               end  start