               job  RD-PCH-PR SPEED TEST                                   1000B
               ctl  6611
               org  333
     *
  333start     sw   8,12
  340reload    sw   1
  344          r    1
     *
     * Look for next program -- A in column 80
     *
  348detail    r
  349tptest    bce  *&5,80,a
  357bcont     b    detail
  361          cs   reload,80
  368          dc   #1
     *
     tapes1    equ  1268   blank indicates the tape loader
     taperd    equ  1288   tape read routine?
     tapes2    equ  1398   GM indicates the tape loader
               org  377
  377          BCE  begin2,1278,3
  385          B    taperd
               org  400
  400begin     B    begin2
               dc   #2
  406loop      CS   332
  410          CS
  411          BSS  rd,B
  416          BSS  pu,C
  421          BSS  pr,D
  426          BSS  cy,E
  431          B    skiprp
  435rd        LCA  read,266
  442rdloop    R
  443          A    k1,252
  450          BSS  rdloop,B
  455          W    loop
  459pu        LCA  punch,266
  466puloop    P
  467          A    k1,252
  474          BSS  puloop,C
  479          W    loop
  483pr        LCA  print,266
  490prloop    A    k1,252
  497          W
  498          BSS  prloop,D
  503          B    loop
  507cy        LCA  cycles,259
  514cyloop    A    k5,252
  521          B    skipn,F
  526          NOP
  527skipn     CS   831
  531          B    cyloop,E
  536          W    loop
  540cycles    DCW  @        CYCLES@
  554read      DCW  @     CARDS READ   @
  572punch     DCW  @     CARDS PUNCHED@
  590print     DCW  @     LINES PRINTED@
  608k1        dcw  1
  609k5        DCW  @      5@
  616          DCW  #1
               org  700
  700begin2    CS   332
  704          CS
  705          B    headpr,1252,1
  713hdret     CS   180
  717          H
  718          NOP  skiprp
  722          R
  723          P
  724skiprp    B    h,G
  729          B    loop
  733h         H    detail
               dcw  #1
               org  1200
 1200headpr    W
 1201          SW   49
 1205          LCA  76,276
 1212          W
 1213          CS   277
 1217          W    hdret
               dcw  #1
               end  start
