.proc,condens,ml=871,list=0/output.
.*
.*  condensor full assembly.
.*
.*  exit - cbin = absolute binary.
.*
begin(conden,,#ml=ml,#list=list)
*begin(conden1,,#ml=ml,#list=list)
begin(conden2,,#ml=ml,#list=list)
begin(conden3,,#ml=ml,#list=list)
begin(conden4,,#ml=ml,#list=list)
begin(conden5,,#ml=ml,#list=list)
.*
.*        only assemble the experimental version on the
.*        corporate dev system.
.*
*ife((r1g.and.200000b)=200000b,exp)   if corp dev system
*begin(conden6,,#ml=ml,#list=list)
*endif(exp)
*
begin(condcmp,,#list=list)
.*
begin(condldr,,lo=sbex)
.*
revert. condens
~
.proc,liblvl,p=,lvl=.
.*
.*  move common relocatable code from the central system
.*  condensor to a micro plato condensor.
.*
.*  p   = micro plato condensor relocatable binary.
.*  lvl = micro plato level.
.*
.*  if p is omitted, cl1, cl2, cl3, cl4, cl5 or cl6 assumed.
.*
attach(conden)
ife($p$.ne.$$,libed)
purge(cl_lvl/na)
define(cl_lvl/ct=pu,m=r)
libedit(#p=p,b=conden,n=cl_lvl,i=edit_lvl,lo=cem)
else(libed)
attach(cl_lvl/m=w)
libedit(#p=cl_lvl,b=conden,c,i=edit_lvl,lo=cem)
endif(libed)
unload(conden,edit1,edit2,edit3,edit4,edit5,edit6,cl_lvl)
revert. liblvl
.data,edit1.
*norep conden
*a rel/mcond1,condc1,getlin,content,embed
*a rel/mcond1,calcs,compile,lex,deflex,defsub
*a rel/mcond1,mcond
.data,edit2.
*norep conden
*a rel/mget2,condc1,lex,mcond
.data,edit3.
*norep conden
*a rel/mget3,condc1,lex,mcond
.data,edit4.
*norep conden
*a rel/mget4,condc1,lex,mcond
.data,edit5.
*norep conden
*a rel/mget5,condc1,lex,mcond
.data,edit6.
*norep conden
*a rel/mget6,condc1,lex,mcond
~