.proc,conden4,ml=871,list=0/output.
.*
.*  level 4 micro plato full assembly.
.*
.*  exit - cl4 = relocatable binary.
.*         ccom4 = 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=ccom4,s=nostext,s=psstext,b=lgo4,#ml=ml)
.*
unload(compile,edit1,edit2)
.*
rename(c4=ccom4)
purge(ccom4/na)
define(ccom4/ct=pu,m=r)
rewind(c4)
copyei(c4,ccom4)
.*
begin(liblvl,,p=lgo4,lvl=4)
.*
unload(c4,lgo4,ccom4)
revert. conden4
.*
.data,edit1
*edit     mctxt4
.data,edit2.
*edit     mcond4
*edit     mget4
*edit     mcond4a
*edit     mcond4b
*edit     mcond4c
*edit     mcond4d
*edit     mcond4e
~