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