job  punch core in loadable form
               ctl  6611
     *
     * First punch the punch area
     *
               org  1
               sw   a1,a2                   7  0001  , 008 015
     a1        sw   a3,a4                   7  0008  , 016 023
     a2        p                            1  0015  4
     a3        sw   a5,a6                   7  0016  , 031 038
     a4        nop  0,0,0                   8  0023  N 000 000 0
     a5        sw   a7,a8                   7  0031  , 045 052
     a6        sw   a9,aread                7  0038  , 056 057
     a7        sw   a10,a10                 7  0045  , 061 061
     a8        cw   a2                      4  0052  ) 015
     a9        nop                          1  0056  N
     aread     r    1                       4  0057  1 001
     a10       dcw  #1                      1  0061
     *
     * Punch word marks for the punch area
     *
               org 1
     bloop     mcw  bread,101               7  0001  M xxx 101
               bw   bwm,101                 8  0008  V xxx 101 1
               mcw  bkbl,101                7  0016  M xxx 101
     bwm       bce  bdone,bloop+5,8         8  0023  B xxx 006 8
               a    bread,bloop+6           7  0031  A xxx 007
               a    bread,b2+6              7  0038  A xxx 014
               a    bread,b3+6              7  0045  A xxx 022
               b    bloop                   4  0052  B 101
     bdone     p                            1  0056  4
     bread     r    1                       4  0057  1 001
     bkbl      dcw  #1                      1  0061
     *
     * Move a skeleton load card to the punch area
     *
               org  1
               sw   c1,c2                   7  0001  , 015 030
               cs   c2,180                  7  0008  / 015 180
      c1       nop                          1  0015  N
               mcw  csw+6,167               7  0016  M 074 167
               mcw  csw+6,160               7  0023  M 074 160
      c2       nop                          1  0030  N
               mcw  csw+6,153               7  0031  M 074 153
               mcw  cread2+3,171            1  0038  M 060 171
               nop  0,0                     7  0045  N 000 000
               r    1                       4  0052  1 001
               nop                          1  0056
      cread2   r    40                      4  0057
               lca  xxx,yyy                 7  0061  L 000 000
      csw      sw   40,40                   7  0068  , 040 040
               end