000       job  scan label for invalid char. / ) ' * $
               ctl  6611
               org  997
               bin  scan,
               org  1273
               dcw  #1                  clear old gm
               org  1500
     scan      bce  nolab,111,.
               chain5
               bce  nolab,111,/
               chain5
               bce  nolab,111,)
               chain4                   iocs labels
               bce  nolab,111,'
               chain5
               bce  nolab,111,$
               chain5
               bce  nolab,111,*
               chain5
               c    118,2979
               b    1004
     nolab     cs   332
               cs
               mlc  3033,231            move error message
               mlc  184,236             move altno
               mlc  @)label@,111        replace label to stop definition
               w
               cs   1004,269
               ltorg*
               dcw  @}@
               end