TRUE ADD                                                   0300A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   TRUE ADD
  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    221,241          ,,                                      7  0541  , 221 241            1
  118                SW    202              ,,                                      4  0548  , 202                1
  119                BCE   SCOPE2,13,S    BR TO USE SUBTRACT CODE IF S IN 013       8  0552  B 583 013 S          2
  120         SCOPE1 LCA   230,270        LOAD B FIELD                              7  0560  L 230 270            2
  121                A     210,270        ADD WITH LIKE SIGNS                       7  0567  A 210 270            2
  122                BSS   SCOPE1,B       B ON TO SCOPE                             5  0574  B 560 B              2
  123                B     TEST           BRANCH TO TEST FOR ERROR                  4  0579  B 602                2
  124         SCOPE2 LCA   230,270        LOAD B FIELD                              7  0583  L 230 270            2
  125                S     210,270        SUBTRACT WITH UNLIKE SIGNS                7  0590  S 210 270            3
  126                BSS   SCOPE2,B       B ON TO SCOPE                             5  0597  B 583 B              3
  127         TEST   C     270,250        TEST FOR ERROR                            7  0602  C 270 250            3
  128                BU    FAILED         BRANCH TO ERROR PRINT ROUTINE IF UNEQ     5  0609  B 470 /              3
  129                B     WORKED         BRANCH TO CORRECT PRINT ROUTINE           4  0614  B 453                3
  130                DCW   @"@            GMWM                                      1  0618                       3
  131                END   START                                                             / 347 080
1                          TRUE ADD                                                   0300A               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    FAILED    470    SCOPE1    560    SCOPE2    583    START     347    TEST      602    WORKED    453