               job  COMPARE & BR UNEQUAL                                   0100A
               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
     *
               bce  larger,46,l    BR TO MAKE B FIELD LARGER IF L IN 046
               sw   222            SET B FLD WM IF NO L IN 046
               b    scope          BRANCH TO COMPARE
     larger    sw   221            SET B FLD WM IF L IN 046
     scope     c    203,223        COMPARE & BRANCH UNEQUAL
               bu   uneq             ,,
               bss  scope,b        B ON TO SCOPE
               bce  ok,41,         NO ERROR IF BLANK IN 041
               b    failed         BRANCH TO ERROR PRINT ROUTINE
     uneq      bss  scope,b        B ON TO SCOPE
               bce  failed,41,     NO ERROR IF U IN 041
     ok        sw   241            LOAD RESULT COMMENT
               lca  260,280          ,,
               b    worked
               dcw  @"@            GMWM
               end  start
