               job  NUMERICAL RIPPLE PRINT                                 1022B
               ctl  6611
     *
     * Stuff in the preamble
     *
               org  333
     *
     * Set up for one-field-per-card format and begin loading
     *
  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    cont    Cont is in a different place now
  361          cs   reload,80
  368          dcw  #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  begin,1261,3
  385          bin  taperd,
               org  400
  400begin     cs   332
  404          cs
  405          bce  titlpr,titlsw,1
  413          bin  cont,
               org  420
  420cont      cw   tab1&1,tab2&1  Expand
  427          lca  tab3,dat1        the
  434          cw   tab3&1             data
  438          lca  dat1,dat4      ,,
  445          cw   dat1&1         ,,
  449          sw   201
  453repeat    lca  kbeg,count     Initialize data counter
  460loop      mcw  count,*&4      Plug data counter into NSI  
  467          mcw  dat2,332       Move data to print area
  474scope     w
  475          bss  scope,B        B on for scoping
  480          c    kend,count     Done?
  487          bu   more           No
  492          bss  repeat,D       Repeat the test
  497          b    detail         Load the next program
  501more      a    k1,count       Bump the counter
  508          bin  loop,
     *
     * Constants and data areas
     *
               org  605
  607kbeg      dsa  dat2
  608k1        dcw  1
  611kend      dsa  dat3
  614count     dcw  @XXX@
               org  701
  720tab1      dcw  @1234 5678 90-, .$*) @
  740tab2      dcw  @)*$. ,-09 8765 4321 @
  760tab3      dcw  @2468 0,$) 1357 9-.* @
  820dat1      ds   60
  832dat2      ds   12
  891dat3      ds   59
  940dat4      ds   49 
     *
     * Title print routine.  Notice that in the original format,
     * the title and ID are in CC 49-77 of the last card -- the one
     * that transfers control to the program.
     *
     titlsw    equ  1252   1 to use title print routine
     *
               org  1200
 1200titlpr    w
 1201          sw   49
 1205          lca  76,276
 1212          w
 1213          cs   277
 1217          w    cont
 1221          dcw  #1
               end  start
