               job  Edit                                                   0370D
               ctl  6611
     *
     * This is different from the original 0370D in that each test is
     * run once, not 90 times (turn on D!),  the scope loop is tighter,
     * and the "Run even if 72 has zone" decision is switch G on or
     * HEADPR&1 not blank, not 1260 is 1.
     * Zone in 72 means "Test expanded print edit."
     *
     * Sense switches (in addition to common code):
     * G on to run tests with zone in 72.
     *
     * 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
     *
     headpr    equ  190     Print headers if not blank
     *
               bss  doit,G         Do test if G is on
               bwz  doit,72,2      Do test if 72 has no zone
               bce  detail,headpr&1,  Get next test if headpr&1 blank
     doit      sw   1,78           LOAD PRINT AREA
               cs   332              ,,
               lca  80               ,,
               cs                    ,,
               lca  70,270
               sw   71
               mcw  72,281
               sw   221,241
     scope     lca  237,277        Load edit mask
               mce  208,277        Edit data field
               bss  scope,B        B on to scope
               c    277,257        Test for error
               bu   failed         BRANCH TO ERROR PRINT ROUTINE IF UNEQ
               b    worked         BRANCH TO CORRECT PRINT ROUTINE
               dcw  @"@            GMWM
               end  start
