RESET SUBTRACT                                             0350A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   RESET SUBTRACT
  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                END   START                                                             / 347 080
1                          RESET SUBTRACT                                             0350A               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

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