JOB  TEST FOR ZONE OR WM & BRANCH                           0060B
               ctl  6611
     *
     * Equates for common code.
     *
     start     equ  347
     detail    equ  start   Here to read detail or chain next program.
     headct    equ  336     Count of headers read.  Usually zero.
     *                      Change to one to print only one header.
     worked    equ  453     Here for success.
     failed    equ  470     Here for failure.
     repeat    equ  495     Here to reload print area and repeat test.
               org  518     Test starts here
     *
               bce  setwm,224,*    BR TO SET WM IN ALL * AND % CHARAC
               bce  setwm,224,%      ,,
     dotest    bce  ztest,41,      BR TO TEST EQUAL ZONES IF BLANK IN 041
               mcw  201,*&8        MOVE D MODIFIER TO TEST ZONE OP
     scope     bwz  uneq,224,X     TEST UNEQUAL ZONES OR WM
               bwz                   ,,
               bwz                   ,,
               bwz                   ,,
               bss  scope,B        B ON TO SCOPE
               b    result         BRANCH TO LOAD RESULT COMMENT
     ztest     mcw  201,*&8        MOVE D MODIFIER TO TEST ZONE OP
     scope2    bwz  eqzone,224,X   TEST EQUAL ZONES OR WM
               bss  scope2,B       B ON TO SCOPE
               b    failed         BRANCH TO ERROR PRINT ROUTINE IF UNEQ
     eqzone    bss  scope2,B       B ON TO SCOPE
     result    sw   241            LOAD RESULT COMMENT
               lca  247,267          ,,
               b    worked
     setwm     sw   224            SET WM IN 224 IF * OR %
               b    dotest           ,,
     uneq      bss  scope,B        B ON TO SCOPE
               b    failed
     gmwm      dcw  @"@
               end  start