.proc,pni,ml=871,list=0/full.
.*
.*        build new pni
.*
unload(lgo,newbin)
.*
.*
begin,sespack.
.*
begin(cybipl)
.*
.*        compile pni1 (cybil)
.*
ses. gencomp seq=80 status b=cybipl un=plato cybccmn ..
def=nos871$  m=pni1
.*
ife($list$ .eq. $full$,prints)
begin(compmod,,abort,#list=on)
else(prints)
begin(compmod,,abort)
endif(prints)
.*
.*        save cybil relocatable binaries in file *pni1*
.*
rewind(lgo,pni1)
copyei(lgo,pni1)
rewind(lgo,pni1)
.*
.*        assemble pni2 (cpu compass) with standard nettext
.*
modify(z,lo=e,l=errs)/*oplfile nos,ipl/*edit pni2,plazlsr
compass(a,i,s=0,s=nostext,s=nettext,#ml=ml,o=errs,l=list,b=pni2)
.*
.*        load normal and debug versions from standard libs.
.*
common,system.
gtr,system,netio,d.ulib/netio
gtr,system,netiod,d.ulib/netiod
.*
begin,pnild,,lib=netio,abs=pnibin,map=pnimap.
begin,pnild,,lib=netiod,abs=pnidbin,map=pnidmap.
.*
.*        release cybil opl
.*
begin,cybfree.
.*
revert. pni
~