job  MOVE COMPARE                                           0200A
               ctl  6611
     *
     * Equates for common code.
     *
     start     equ  347
     detail    equ  start   Branch here to read detail or chain next program
     worked    equ  453     Branch here for success
     failed    equ  470     Branch here for failure
               org  518     Test starts here
     *
               sw   1,78           LOAD PRINT AREA
               cs   332              ,,
               lca  80               ,,
               cs                    ,,
               lca  72,272           ,,
               sw   210,241          ,,
     scope     mcw  210,270        LOAD OP WITH CHAINING
               mcw                   ,,
               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