.proc,conden2,ml=871,list=0/output.
.*
.*  level 2 micro plato full assembly.
.*
.*  exit - cl2 = relocatable binary.
.*         ccom2 = 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=ccom2,s=0,b=lgo2,#ml=ml)
.*
rename(c2=ccom2)
purge(ccom2/na)
define(ccom2/ct=pu,m=r)
rewind(c2)
copyei(c2,ccom2)
.*
begin(liblvl,,p=lgo2,lvl=2)
.*
unload(edit1,edit2,c2,compile,ccom2,lgo2) 
revert. conden2
.*
.data,edit1
*edit     mctxt2
.data,edit2.
*edit     mcond2
*edit     mget2
*edit     mcond2a
*edit     mcond2b
*edit     mcond2c
*edit     mcond2d
*edit     mcond2e
~