.proc,conden1,ml=871,list=0/output.
.*
.*  level 1 micro plato full assembly.
.*
.*  exit - cl1 = relocatable binary.
.*         ccom1 = 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=ccom1,s=0,b=lgo1,#ml=ml)
.*
rename(c1=ccom1)
purge(ccom1/na)
define(ccom1/ct=pu,m=r)
rewind(c1)
copyei(c1,ccom1)
.*
begin(liblvl,,p=lgo1,lvl=1)
.*
unload(edit1,edit2,c1,lgo1,compile,ccom1)
revert. conden1
.*
.data,edit1
*edit     mctxt1
.data,edit2.
*edit     mcond1
*edit     mcond1a
*edit     mcond1b
*edit     mcond1c
*edit     mcond1d
*edit     mcond1e
~