.proc,conden,ml=871,list=0/output.
.*
.*  central condensor full assembly.
.*
.*  exit - conden = relocatable binary.
.*         ccommon = common text.
.*
modify(z,lo=e)/*oplfile nos,ipl/*read edit1
cstc(a,i,l=list,s=0,#ml=ml)
modify(z,lo=e)/*oplfile nos,ipl/*read edit2
cstc(a,i,l=list,s=nostext,s=psstext,#ml=ml)
modify(z,lo=e)/*oplfile nos,ipl/*read edit3
cstc(a,i,l=list,s=0,#ml=ml)
*
*  main overlay.
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit4
cstc(a,i,l=list,c=ccommon,s=nostext,#ml=ml)
*
*  central overlays.
*
modify(z,lo=e)/*oplfile nos,ipl/*read edit5
cstc(a,i,l=list,c=ccommon,s=0,#ml=ml)
*---
rewind(ccommon)
rename(com=ccommon)
purge(ccommon/na)
define(ccommon/ct=pu,m=r)
copy(com,ccommon)
unload(ccommon,com)
.*
purge(conden/na)
define(conden/ct=pu,m=r)
rewind(lgo)
copyei(lgo,conden)
unload(lgo,ccommon,compile,com,edit1,edit2,edit3,edit4,edit5,conden)
revert. conden
.data,edit1.
*edit     conden
.data,edit2.
*edit     csys
.data,edit3.
*edit     defccom
.data,edit4.
*edit     cond
*edit     loadov
*edit     condi
*edit     condc
*edit     consub
*edit     getlin
*edit     conten
*edit     embed
*edit     calcs
*edit     compile
*edit     lex
*edit     deflex
*edit     defsub
*edit     mcond
.data,edit5.
*edit     covlay1
*edit     grafsc
*edit     ansin
*edit     define
*edit     covlay2
*edit     answin
*edit     touchov
*edit     covlay3
*edit     recordc
*edit     sitec
*edit     pptc
*edit     covlay4
*edit     cwrite
.*
.*        in addition to a normal (1,1) plato overlay,
.*        deck *tagov* contains a (1,2) overlay to denote
.*        the end of the central plato overlays.  a *edit
.*        for any new central plato overlay files must be
.*        added before the *edit for *tagov*; otherwise
.*        the new overlay file will not be loaded as part
.*        of the central condensor.
.*
*edit     tagov
~