job  TRUE ADD                                               0300B
               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
  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          b    switch
               org  385
  385          b    taperd
  389switch    nop  0
  393          mcw  bcont&3,switch&3
  400begin     cs   332            START TEST
  404          cs
  405          bce  titlpr,titlsw,1  BR TO TITLE PRINT ROUTINE IF 1 IN S52
  413          cs   80             CLEAR READ AREA
  417next      b    detail         BRANCH TO PROGRAM CHAINING ROUTINE
  421cont      sw   1,78           LOAD PRINT AREA
  428          lca  80,299           ,,
  435          lca  72,272           ,,
  442          sw   221,241          ,,
  449          sw   202              ,,
  453          bce  sub,13,S       BR TO USE SUBTRACT CODE IF S IN 013
  461          lca  230,270        LOAD B FIELD
  468          a    210,270        ADD WITH LIKE SIGNS
  475          a    210,270          ,,
  482          bss  scope,B        B ON TO SCOPE
  487          b    test           BRANCH TO TEST FOR ERROR
  491sub2      s    210,270        LOAD B FIELD
  498          bss  scope,B        SUBTRACT WITH UNLIKE SIGNS
  503test      c    270,250        B ON TO SCOPE
  510          bu   errprt         TEST FOR ERROR
  515          b    bump           Go bump counter
               org  900
  900errprt    lca  error,285      BEGIN ERROR PRINT ROUTINE
  907          bss  errhlt,E       E ON TO ERROR STOP
  912          w    bump           ERROR PRINT
  916errhlt    h    bump           ERROR STOP
  920bump      a    *-6,count      Bump count
  927          bce  clear,count-1,9  Ninety times?
  935scope     cs   332
  939          cs
  940          b    cont
  944clear     s    count
  948          bss  corr,C
  953          b    loop
  957corr      w
  958loop      bss  cont,D
  963          b    detail
  970count     dcw  @000?@
  971sub       lca  230,270
  978          s    210,270
  985          b    sub2
  989          dcw  #1
               org  1110
 1114error     dcw  @ERROR@
 1119          dcw  @     @
 1139          dcw  @A FIELD             @
 1159          dcw  @B FIELD             @
 1179          dcw  @RESULT SHOULD BE    @
 1199          dcw  @RESULT IS           @
     *
     * 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          cw   hdrs&20,hdrs&40  Clear Word Marks in second
 1225          cw   hdrs&60      line stored information.
 1229          lca  hdrs&69,270  Load second line.
 1236          w                 Print second line.
 1237          cs   270          Clear Print Area.
 1241          w    titlex       Print (space) and branch to main program.
 1245          dcw  #1
               end  start