               job  FORMS SPACING                                          2000C
               ctl  6611
     *
     tapes1    equ  1268   blank indicates the tape loader
     taperd    equ  1288   tape read routine?
     tapes2    equ  1398   GM indicates the tape loader
     *
               org  82
   87single    dcw  @SINGLE@
   93double    dcw  @DOUBLE@
   99triple    dcw  @TRIPLE@
  105k123      dcw  @1 2 3 @
  111k321      dcw  @3 2 1 @
  124before    dcw  @ SPACE BEFORE@
  136after     dcw  @ SPACE AFTER@
  151tested    dcw  @PRINT TESTED   @
  152          dcw  @END TEST@
  175errtyp    dcw  @  TYPE OF ERROR @
  180none      dcw  @NONE @
  181delay     bce  brnchs,count-4,2
  189          a    ten,count-1
  196          bin  delay,
     *
     * Stuff in the preamble -- not in one-field-per-card format
     *
               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
  361          cs   reload,80
  368          dcw  #1
               org  377
  377          bce  switch,1255,1
  385          b    taperd
  389switch    nop  0
  393          mcw  bcont&3,switch&3
  400          cs   332
  404          cs
  405          bce  titlpr,titlsw,1  BR TO TITLE PRINT ROUTINE IF 1 IN S52
  413          cs   80             CLEAR READ AREA
  417          h    cont
  421cont      cc   4              Start test
  423          cs   299
  427          w
  428          chain6
  434          cc   J
  436          bc9  m13
  441          bcv  m13
  446w1        w
  447          chain5
  452repeat    b    *&1
  456          cw   b10
  460          cw   b9,b13
  467          cw   b8
  471          cw   b7,b12
  478          cw   b6
  482          cw   b5,b11
  489          cw   b4
  493          cw   b3
  497          cw   b2
  501          cw   b1
  505          b    skip7
  509rep2      cs   299
  513          nop  0,0
  520b1        b    m14
  524b2        b    m1
  528b3        b    m2
  532b4        b    m3
  536b5        b    m4
  540b6        b    m5
  544b7        b    m6
  548b8        b    m7
  552b9        b    m8
  556b10       b    m9
  560          b    m10
  564back1     sw   b1
  568back2     sw   b3
  572back3     sw   b5
  576back4     sw   b7
  580back5     sw   b9
  584          mcw  before,229
  591          b    skip1
  595back6     sw   b2
  599back7     sw   b4,b11
  606back8     sw   b6,b12
  613back9     sw   b8,b13
  620back10    sw   b10
  624          mcw  after,228
  631skip1     mcw  space,259
  638          mcw  tested
  642          mcw  errtyp-1,294
  649back11    cc   X
  651          wm
  653ccx       cc   X
  655wm1       wm
  657ccx2      cc   X
  659wm2       wm
  661          cc   Z
  663          lca  zero,count-1
  670          nop  delay
  674brnchs    nop  0,0
  681b11       b    skip2
  685b12       b    skip3
  689b13       b    skip4
  693b14       b    skip5
  697skip2     a    thirty,kount
  704skip3     a    ten,kount
  711skip4     a    ten,kount
  718skip5     a    ten,kount
  725          bce  skip6,kount-2,9
  733          b    back11
  737skip6     mcw  zero,kount
  744          bcv  m11
  749          cc   J
  751          bcv  ovfl1
  756          b    m12
  760ovfl1     mcw  ok,247
  767          bss  corrpr,C
  772          ccb  corrnp,J
  777corrpr    w
  778corrnp    cc   J
  780          cc   J
  782          cc   J
  784          cc   J
  786skip7     mcw  nwm&1,wm2&1
  793          mcw
  794          mcw
  795          mcw
  796          mcw
  797          mcw
  798          b    rep2
  802          cc   L
  804             N)
  806          cc   K
  808             N)
  810ccj       cc   J
  812             N)
  814cck       cc   K
  816             N)
  818ccl       cc   L
  820          cc   T
  822          wm
  824          cc   S
  826          wm
  828          cc   /
  830wm3       wm
  832          cc   S
  834wm4       wm
  836          cc   T
  838wm5       wm
  840             NX
  842             N)
  844             NX
  846             N)
  848             NX
  850nwm          N)
  855zero      dcw  @0000@
  859thirty    dcw  @0030@
  863ten       dcw  @0010@
  867kount     dcw  @0000@
  881space     dcw  @    SPACE TEST@
  882m1        mcw  k321,216
  889          mcw  ccj&1,ccx2&1
  896          mcw
  897          mcw
  898          mcw
  899          mcw
  900          b    back1
  904m2        mcw  k321,216
  911          mcw  wm3&1,wm2&1
  918          mcw
  919          mcw
  920          mcw
  921          mcw
  922          mcw
  923          b    back6
  927m3        mcw  k123,216
  934          mcw  ccl&1,wm2&1
  941          mcw
  942          mcw
  943          mcw
  944          mcw
  945          b    back2
  949m4        mcw  k123,216
  956          mcw  wm5&1,wm2&1
  963          mcw
  964          mcw
  965          mcw
  966          mcw
  967          mcw
  968          b    back7
  972m5        mcw  triple,216
  979          mcw  ccl&1,ccx&1
  986          b    back3
  990m6        mcw  triple,216
  997          mcw  wm5&1,wm1&1
 1004          mcw
 1005          b    back8
 1009m7        mcw  double,216
 1016          mcw  cck&1,ccx&1
 1023          b    back4
 1027m8        mcw  double,216
 1034          mcw  wm4&1,wm1&1
 1041          mcw
 1042          b    back9
 1046m9        mcw  single,216
 1053          mcw  ccj&1,ccx&1
 1060          b    back5
 1064m10       mcw  single,216
 1071          mcw  wm3&1,wm1&1
 1078          mcw
 1079          b    back10
 1083m11       mcw  w1,296
 1090          bss  errhlt,E
 1095          bss  cont,B
 1100          w    btest
 1104errhlt    h    btest
 1108m12       mcw  k321-5,296
 1115          bss  errhl2,E
 1120          bss  cont,B
 1125          w    btest
 1129errhl2       ./
 1131m13       mcw  k123-5,296
 1138          mcw  errtyp
 1142          bss  errhl3,E
 1147          bss  cont,B
 1152          w    btest
 1156errhl3    h    btest
 1160btest     bss  cont,B
 1165          bss  cont,D
 1170          h    detail
 1174m14       mcw  none-1,299
 1181          mcw
 1182          mcw
 1183          bss  repeat,D
 1188          w
 1189          h    detail
 1194OK        dcw  @OK@
 1199count     dcw  @0000 @
     *
     * 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
     hdrs      equ  1120   All programs put headers in 1120-1199
     titlex    equ  413    All routines must return here after title
     *
               org  1200
 1200titlpr    w                 Print (space).
 1201          sw   49           Set WM for Title and Block No.
 1205          lca  77,277       Load Title and Block No. in Print Area.
 1212          w                 Print Title and Block No.
 1213          cs   277          Clear Print Area
 1217          w                 Print (space).
 1218          nop  0,0
 1225          nop  0
 1229          nop  0,0
 1236          nop
 1237          nop  0
 1241          w    titlex       Print (space) and branch to main program.
 1245          dcw  #1
               end  start
