               job                                                         01A7
               ctl  6611
     *
     * Switches:
     * None: Test runs up to 1900
     * B: Test runs up to 3900, C and D not tested
     * C: Test runs up to 7900, D not tested
     * D: Test runs up to 11900
     * E: Not used
     * F: Test indexing
     * G: Not used
     * 
     x1        equ  89
     x2        equ  94
     x3        equ  99
               org  420
  420start     CS   332
  424          CS
  425          CS
     *
     * Move 110-111, 110-112, ... 110-120 to 800
     *
  426mloop1    SW   m1&3,110
  433          A    k1,m1&3
  440          CW   m1&3
  444m1        MCW  110,800
  451          BCE  mlp1x,m1&3,0
  459          B    mloop1
     *
     * Move 110-130, 110-140, ... 110-200 to 800
     *
  463mlp1x     LCA  m1&6,m2&6
  470mloop2    SW   m2&2
  474          A    k1,m2&2
  481          CW   m2&2
  485m2        MCW  0,0
  492          BCE  mlp2x,m2&2,0
  500          B    mloop2
     *
     * Move 110-300, 110-400, 500-500, 594-600, 698-700, 737-800,
     * 737-900... to 800.  Final address depends on switches B-D.
     *
  504mlp2x     LCA  m2&6,m3&6
  511mloop3    SW   m3&1
  515          A    k100,m3&3
  522          CW   m3&1
  526m3        MCW  0,0
  533          BSS  m3test,B       Run test to 3900
  538          BSS  ma,C           Use MA instead of add
  543          BSS  ma,D           Use MA instead of add
  548          C    km1900&3,m3&3  Test for 1900
  555          BU   mloop3
  560          B    mloopx
  564m3test    C    km3900&3,m3&3
  571          BU   mloop3
  576          B    mloopx
  580ma        LCA  m3&6,m4&6
  587mloop4    MA   k100,m4&3
  594m4        MCW  0,0
  601          BSS  m4test,D       Run test to 11900
  606          C    km7900&3,m4&3  Test for 7900
  613          BU   mloop4
  618          B    mloopx
  622m4test    C    km119&3,m4&3   Test for 11900
  629          BU   mloop4
  634          B    mloopx
     *
     * Reset M1
     *
  638mloopx    LCA  minit&6,m1&6
  645          BSS  index,F        Test with indexing
  650rp        RP
  651wm        WM   start
     *
     * Add with indexing 737-801 to 737-801, twice.
     *
  656index     LCA  k001,x1
  663          LCA  k001,x2
  670          LCA  k001,x3
  677          A    800&x1,800&x2
  684ax3x1     A    800&x3,800&x1
  691          C    ka801&3,ax3x1&3  Should always be unequal
  698          BU   rp
  703          B    wm
     *
     * Constants
     *
  707k1        dcw  1
  708minit     MCW  110,800
  715k001      DCW  001
  718km1900    MCW  1900
  722km3900    MCW  3900
  726km119     MCW  11900
  730k100      DCW  100
  733km7900    MCW  7900
  737ka801     A    801  Gets clobbered -- no WM after it
               end  start
