.proc,loader,rel,abs,rfl=70000,map=0,mo=sbex.
.*
.*        load relocatable binary, create absolute binary
.*        and save the map.
.*
.*        rel = relocatable binary.
.*
.*        abs = absolute binary.
.*
.*        rfl = running field length for load.
.*
.*        map = pfn, map saved on pfn.
.*        map = 0, map printed, but not saved.
.*
.*        mo = -ldset- map options, default = sb.
.*
unload(#abs)
#rfl(rfl)
ldset(preset=zero,err=all,#map=mo/#map)
load(rel)
nogo(#abs)
purge(abs/na)
define(abs/ct=pu,m=r)
rewind(#abs)
copyei(#abs,abs)
unload(#abs)
.*
.*        copy map to full output file
.*
rewind,#map.
copyei,#map,full.
.*
.*        copy map to permanent file if requested.
.*
ife,(num(map).ne.true),list.
rewind(#map)
purge(map/na)
define(map/ct=pu,m=r)
copyei(#map,map)
endif(list)
.*
unload(#map)
.*
revert. loader
.*
exit.
.*
.*        if errors, copy errors to file *errs* and
.*        copy full map to full output file.
.*
ife(file(#map,eq).ne.0,xedt)
xedit(#map,l=errs)$l.///.*$t$l.***.*$e
rewind,#map.
copy,#map,output.
unload,#map.
endif(xedt)
.*
revert,abort. loader.
~
.proc,condldr,lo=sbex,el=all.
.*
.*  load the condensor.  writes the abs binary to cbin
.*  and the map to cmap.
.*
.*  lo    = ses. link170 list options (default = n).
.*  el    = abort error level (default = all).
.*
attach(cmp/m=w,na)
if(.not.file(cmp,as))define(cmp/ct=pu)
begin(cmpbin,,p=cmp)
unload(cmpbin)
.*
.*        on corporate dev systems, include experimental
.*        micro plato version.
.*
ife((r1g.and.200000b)=200000b,exp)
attach(conden,cmp,cl2,cl3,cl4,cl5,cl6/m=r,na)
begin,sespack.
ses. link170 cybclib #lo=lo l=map #el=el ..
xld='ldset(preset=zero)' ..
f=(conden,cmp,cl2,cl3,cl4,cl5,cl6)
unload(conden,cmp,cl2,cl3,cl4,cl5,cl6)
ife(efg.ne.0,loaderr)
xedit(map,l=errs)$l.///.*$t$l.***.*$e
rewind,map.
copy,map,full.
unload,map.
revert(abort) loader errors
endif(loaderr)
.*
.*        otherwise do not include it.
.*
else(exp)
attach(conden,cmp,cl2,cl3,cl4,cl5/m=r)
begin,sespack.
ses. link170 cybclib #lo=lo l=map #el=el ..
xld='ldset(preset=zero)' ..
f=(conden,cmp,cl2,cl3,cl4,cl5)
unload(conden,cmp,cl2,cl3,cl4,cl5)
ife(ef.ne.0,loaderr)
xedit(map,l=errs)$l.///.*$t$l.***.*$e
rewind,map.
copy,map,full.
unload,map.
revert(abort) loader errors
endif(loaderr)
endif(exp)
.*
purge(cbin,cmap/na)
define(cbin,cmap)
rewind(lgob,cbin)
copyei(lgob,cbin,v)
rewind(map,cmap)
copyei(map,cmap,v)
rewind(map)
copyei(map,full)
*
rfl,60000.
begin(ulib,,cbin,ulibc,conden)
catalog(cbin,r,n,u)
.*
.*
unload(lgob,cbin,cmap,map)
.*
revert. condldr
~