RESET ADD                                                  0330A               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   RESET ADD
  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    206,241        LOAD PRINT AREA                           7  0518  , 206 241            1
  116                SW    261              ,,                                      4  0525  , 261                1
  117                BCE   SCOPE2,10,     BR TO RESET ADD 1 POS FLD IF BL IN 01     8  0529  B 560 010            1
  118         SCOPE1 ZA    210,270        RESET ADD 10 POSITION FIELD               7  0537  ? 210 270            1
  119                BSS   SCOPE1,B       B ON TO SCOPE                             5  0544  B 537 B              1
  120                C     270,250        TEST FOR ERROR                            7  0549  C 270 250            1
  121                B     TEST             ,,                                      4  0556  B 583                2
  122         SCOPE2 LCA   201,261        LOAD A FIELD                              7  0560  L 201 261            2
  123                ZA    261            RESET ADD 1 POSITION FIELD                4  0567  ? 261                2
  124                BSS   SCOPE2,B       B ON TO SCOPE                             5  0571  B 560 B              2
  125                C     261,241        TEST FOR ERROR                            7  0576  C 261 241            2
  126         TEST   BU    FAILED         BRANCH TO ERROR PRINT ROUTINE IF UNEQ     5  0583  B 470 /              2
  127                B     WORKED         BRANCH TO CORRECT PRINT ROUTINE           4  0588  B 453                2
  128                DCW   @"@            GMWM                                      1  0592                       3
  129                END   START                                                             / 347 080
1                          RESET ADD                                                  0330A               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    FAILED    470    HEADCT    336    REPEAT    495    SCOPE1    537    SCOPE2    560    START     347   
 TEST      583    WORKED    453