.ENABLE SUBSTITUTION
.ASK GO ASSEMBLE WHO
.IFT GO MAC WHO;1,WHO;1/-SP=[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,'<UIC>'WHO
.ASK GO TKB NOW
.IFT GO TKB @WHO.TKB