job  tape clear storage routine
               org  1
               sw   200
     loop      cs   0
               sbr  loop&3
               bw   loop,200
               lca  upper,115
               chain2
               cs   100,99
               lca  %u1,1,r    lands at 100-107
               cs   15,199     lands at 108-114
     upper     dcw  @ @        lands at 115
               end  1