parm stack,maxdict,OPT
imp80 ftrans1_conf,ftconfy,ftconfl,.out
imp80 ftrans1_ft,fty,ftl,.out
imp80 ftrans1_ndiag,ftndiagy,ftndiagl,.out
imp80 ftrans1_iocp,ftiocpy,ftiocpl,.out
IMP80 ftrans1_START,FTSTARTY,FTSTARTL,.OUT
link
ftrans1_ssld05z
FTSTARTY
fty
ftconfy
ftiocpy
ftndiagy
.end
sz
spfix sz,st,sd
newgen st,ftbf
rename st,ftbf
permit ftbf
destroy sz
meter