job  LOAD COMPARE                                           0110A
               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
     *
     * Continue here after reading detail
     *
               sw   210,241          ,,
     scope     lca  210,270        LOAD OP WITH CHAINING
               lca                   ,,
               bss  scope,B        B ON TO SCOPE
               cw   270            TEST FOR ERROR
               c    270,250          ,,
               bu   failed         BRANCH TO ERROR PRINT ROUTINE IF UNEQ
               b    worked         BRANCH TO CORRECT PRINT ROUTINE
               dcw  @"@            GMWM
               end  start