.proc,conden3,ml=871,list=0/output.
.*
.*  level 3 micro plato full assembly.
.*
.*  exit - cl3 = relocatable binary.
.*         ccom3 = 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=ccom3,s=0,b=lgo3,#ml=ml)
.*
unload(compile,edit1,edit2)
.*
rename(c3=ccom3)
purge(ccom3/na)
define(ccom3/ct=pu,m=r)
rewind(c3)
copyei(c3,ccom3)
.*
begin(liblvl,,p=lgo3,lvl=3)
.*
unload(c3,lgo3,ccom3)
revert. conden3
.*
.data,edit1
*edit     mctxt3
.data,edit2.
*edit     mcond3
*edit     mget3
*edit     mcond3a
*edit     mcond3b
*edit     mcond3c
*edit     mcond3d
*edit     mcond3e
~