.proc,seslink,libs=$$.
.*
.*        link relocatable binaries.
.*
.*        entry  libs = libraries for external references
.*               lgo = file with relocatable binaries
.*
.*        exit   binaries copied to newbin
.*               map copied to newmap and full output file
.*               lgo unloaded
.*
unload(map,lgob)
map(on)
ses. link170 p=(libs) cybclib l=map lo=full
.*
.*        if errors, copy errors to file *errs*, copy full
.*        map to file *full*, and then abort.
.*
ife(efg.ne.0,loaderr)
rewind,map.
copy,map,output.
xedit(map,l=errs)$l.///.*$t$l.***.*$e
unload(map)
revert,abort.  loader errors
endif(loaderr)
.*
.*        copy binaries to file *newbin*
.*
rewind,lgob.
copy,lgob,newbin.
unload(lgo,lgob)
.*
.*        copy map to newmap and full output file
.*
rewind,map.
copy,map,newmap.
rewind,map.
copy,map,output.
unload,map.
.*
revert. seslink