job  01A3A                                                  01A3
               ctl  6611
               org  420
  420start     cs   332
  424          cs
  425          cs
  426          sw   1,1000
  433          r
  434          mcw  80,280
  441          lca  k110,290
  448          mz   719,294
  455          a    k110,290
  462          mn   k110,290
  469          a    k110,290
  476          bss  edit,G
  481write     mcs  294,310
  488          mn   k110,310
  495          bwz  z11,310,K
  503z11       w
  504          sw   306
  508          c    310,294
  515          bu   uneq
  520uneq      sw   330
  524          za   one,331
  531          zs   one,331
  538          cw   330
  542          p
  543          bin  ftest,%     Process check
  548ftest     bss  sar,F
  553ctest     bss  bbe,C
  558dtest     bss  add,D
  563etest     bss  div,E
  568          b    start
  572sar       lca  k110,290
  579          sar  222
  583          nop
  584          b    ctest
  588bbe       bbe  dtest,blank,1
  596          b    dtest
  600add       a    add,1000
  607          b    etest
  611div       d    three,k333a-2
  618          lca  k333b,k333a
  625          b    start
  629edit      lca  ed1,330
  636          mce  k110,330
  643          lca  ed2,350
  650          mce  k110,350
  657          lca  ed3,370
  664          mce  k110,370
  671          b    write
  675          b    start
  679ED1       dcw  @ . $0,  @
  687ED2       dcw  @ . *0,  @
  695ED3       dcw  @CR&  .  0,  @
  707one       dcw  1
  708three     dcw  3
  709k333a     dcw  00333
  714k333b     dcw  00333
  719          dcw  @-@
  720k110      dcw  00110
  725blank     dc   #2
               end  start