EDIT                                                       0370D               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   EDIT
  102                CTL   6611
  103         *
  104         * THIS IS DIFFERENT FROM THE ORIGINAL 0370D IN THAT EACH TEST IS
  105         * RUN ONCE, NOT 90 TIMES (TURN ON D!),  THE SCOPE LOOP IS TIGHTER,
  106         * AND THE "RUN EVEN IF 72 HAS ZONE" DECISION IS SWITCH G ON OR
  107         * HEADPR&1 NOT BLANK, NOT 1260 IS 1.
  108         * ZONE IN 72 MEANS "TEST EXPANDED PRINT EDIT."
  109         *
  110         * SENSE SWITCHES (IN ADDITION TO COMMON CODE):
  111         * G ON TO RUN TESTS WITH ZONE IN 72.
  112         *
  113         * EQUATES FOR COMMON CODE.
  114         *
  115         START  EQU   347                                                         0347
  116         DETAIL EQU   START   HERE TO READ DETAIL OR CHAIN NEXT PROGRAM.          0347
  117         HEADCT EQU   336     COUNT OF HEADERS READ.  USUALLY ZERO.               0336
  118         *                      CHANGE TO ONE TO PRINT ONLY ONE HEADER.
  119         WORKED EQU   453     HERE FOR SUCCESS.                                   0453
  120         FAILED EQU   470     HERE FOR FAILURE.                                   0470
  121         REPEAT EQU   495     HERE TO RELOAD PRINT AREA AND REPEAT TEST.          0495
  122                ORG   518     TEST STARTS HERE                                           0518
  123         *
  124         HEADPR EQU   190     PRINT HEADERS IF NOT BLANK                          0190
  125         *
  126                BSS   DOIT,G         DO TEST IF G IS ON                        5  0518  B 539 G              1
  127                BWZ   DOIT,72,2      DO TEST IF 72 HAS NO ZONE                 8  0523  V 539 072 2          1
  128                BCE   DETAIL,HEADPR&1,  GET NEXT TEST IF HEADPR&1 BLANK        8  0531  B 347 191            1
  129         DOIT   SW    1,78           LOAD PRINT AREA                           7  0539  , 001 078            1
  130                CS    332              ,,                                      4  0546  / 332                1
  131                LCA   80               ,,                                      4  0550  L 080                1
  132                CS                     ,,                                      1  0554  /                    1
  133                LCA   70,270                                                   7  0555  L 070 270            2
  134                SW    71                                                       4  0562  , 071                2
  135                MCW   72,281                                                   7  0566  M 072 281            2
  136                SW    221,241                                                  7  0573  , 221 241            2
  137         SCOPE  LCA   237,277        LOAD EDIT MASK                            7  0580  L 237 277            2
  138                MCE   208,277        EDIT DATA FIELD                           7  0587  E 208 277            2
  139                BSS   SCOPE,B        B ON TO SCOPE                             5  0594  B 580 B              3
  140                C     277,257        TEST FOR ERROR                            7  0599  C 277 257            3
  141                BU    FAILED         BRANCH TO ERROR PRINT ROUTINE IF UNEQ     5  0606  B 470 /              3
  142                B     WORKED         BRANCH TO CORRECT PRINT ROUTINE           4  0611  B 453                3
  143                DCW   @"@            GMWM                                      1  0615                       3
  144                END   START                                                             / 347 080
1                          EDIT                                                       0370D               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    DOIT      539    FAILED    470    HEADCT    336    HEADPR    190    REPEAT    495    SCOPE     580   
 START     347    WORKED    453