job  First Detail Card
               ctl  6611
     *
     * Stuff at the end of a one-field-per-card deck.
     * Not in one-field-per-card format
     * Looks like it's for automatically figuring out whether the
     * program is loaded from tape, and modifying it accordingly
     *
     tptest    equ  349    tape test instruction in diagnostic program
     begin     equ  400    start of program
     taperd    equ  1288   tape read routine?
     tapes2    equ  1398   GM indicates the tape loader
     *
     * The one-field-per-card loader has set word marks in 1, 8 and 12,
     * so it's not necessary to do it here.
     *
               org  1
               sw   start,b
               sw   ontape
               sw   c,btape
     start     bce  ontape,tapes2,"  GM at tapes2?
     b         b    begin
     ontape    lca  btape&4,tptest&3
     c         b    1604             What's going to be at 1604?
     btape     bin  taperd,