TEST FOR ZONE OR WM & BRANCH                               0060B               PAGE    1
0 SEQ PG LIN  LABEL  OP    OPERANDS                                            SFX CT  LOCN  INSTRUCTION TYPE  CARD
 
  101                JOB   TEST FOR ZONE OR WM & BRANCH
  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                BCE   SETWM,224,*    BR TO SET WM IN ALL * AND % CHARAC        8  0518  B 613 224 *          1
  116                BCE   SETWM,224,%      ,,                                      8  0526  B 613 224 %          1
  117         DOTEST BCE   ZTEST,41,      BR TO TEST EQUAL ZONES IF BLANK IN 04     8  0534  B 569 041            1
  118                MCW   201,*&8        MOVE D MODIFIER TO TEST ZONE OP           7  0542  M 201 556            1
  119         SCOPE  BWZ   UNEQ,224,X     TEST UNEQUAL ZONES OR WM                  8  0549  V 621 224 X          1
  120                BWZ                    ,,                                      1  0557  V                    2
  121                BWZ                    ,,                                      1  0558  V                    2
  122                BWZ                    ,,                                      1  0559  V                    2
  123                BSS   SCOPE,B        B ON TO SCOPE                             5  0560  B 549 B              2
  124                B     RESULT         BRANCH TO LOAD RESULT COMMENT             4  0565  B 598                2
  125         ZTEST  MCW   201,*&8        MOVE D MODIFIER TO TEST ZONE OP           7  0569  M 201 583            2
  126         SCOPE2 BWZ   EQZONE,224,X   TEST EQUAL ZONES OR WM                    8  0576  V 593 224 X          2
  127                BSS   SCOPE2,B       B ON TO SCOPE                             5  0584  B 576 B              3
  128                B     FAILED         BRANCH TO ERROR PRINT ROUTINE IF UNEQ     4  0589  B 470                3
  129         EQZONE BSS   SCOPE2,B       B ON TO SCOPE                             5  0593  B 576 B              3
  130         RESULT SW    241            LOAD RESULT COMMENT                       4  0598  , 241                3
  131                LCA   247,267          ,,                                      7  0602  L 247 267            3
  132                B     WORKED                                                   4  0609  B 453                3
  133         SETWM  SW    224            SET WM IN 224 IF * OR %                   4  0613  , 224                3
  134                B     DOTEST           ,,                                      4  0617  B 534                4
  135         UNEQ   BSS   SCOPE,B        B ON TO SCOPE                             5  0621  B 549 B              4
  136                B     FAILED                                                   4  0626  B 470                4
  137         GMWM   DCW   @"@                                                      1  0630                       4
  138                END   START                                                             / 347 080
1                          TEST FOR ZONE OR WM & BRANCH                               0060B               PAGE    2
0SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  SYMBOL  ADDRESS  

 DETAIL    347    DOTEST    534    EQZONE    593    FAILED    470    GMWM      630    HEADCT    336    REPEAT    495   
 RESULT    598    SCOPE     549    SCOPE2    576    SETWM     613    START     347    UNEQ      621    WORKED    453   
 ZTEST     569