.proc,conden5,ml=871,list=0/output.
.*
.*  level 5 micro plato full assembly.
.*
.*  exit - cl5 = relocatable binary.
.*         ccom5 = common text.
.*
modify(z,lo=e)/*oplfile nos,ipl/*read edit1
cstc(a,i,l=list,s=0,b=0,#ml=ml)
.*
modify(z,lo=e)/*oplfile nos,ipl/*read edit2
cstc(a,i,l=list,c=ccom5,s=nostext,s=psstext,b=lgo5,#ml=ml)
.*
unload(compile,edit1,edit2)
.*
rename(c5=ccom5)
purge(ccom5/na)
define(ccom5/ct=pu,m=r)
rewind(c5)
copyei(c5,ccom5)
.*
begin(liblvl,,p=lgo5,lvl=5)
.*
unload(c5,lgo5,ccom5)
revert. conden5
.*
.data,edit1
*edit     mctxt5
.data,edit2.
*edit     mcond5
*edit     mget5
*edit     mcond5a
*edit     mcond5b
*edit     mcond5c
*edit     mcond5d
*edit     mcond5e
~