JOB  TEST CHARACTER & BRANCH                                0050a
               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
     *
               sw   202,241          ,,
               bce  testeq,250,B   Should be equal
               mcw  202,*&8        MOVE D MODIFIER TO TEST CHARAC OP
     scope     bce  sbfail,224,X   TEST UNEQUAL CHARACTERS
               bce                   ,,
               bce                   ,,
               bss  scope,B        B ON TO SCOPE
               b    result         BRANCH TO LOAD RESULT COMMENT
     testeq    mcw  202,*&8        MOVE D MODIFIER TO TEST CHARAC OP
     scope2    bce  iseq,222,X     TEST EQUAL CHARACTERS
               bss  scope2,B       B ON TO SCOPE
               b    failed         BRANCH TO ERROR PRINT ROUTINE
     iseq      bss  scope2,B       B ON TO SCOPE
     result    lca  247,267        LOAD RESULT COMMENT
               b    worked
     sbfail    bss  scope,B        B ON TO SCOPE
               b    failed
               dcw  @"@            GMWM
               job                                                         COMM
               end  start