.proc,ulib,abs,ulib,unam.
.*
.*        procedure to build *ulib* from absolute
.*
.*        abs - file containing absolute.
.*              will contain ulib
.*
.*        ulib - file containing *ulib* header.
.*
.*        unam - *ulib* name.
.*
rewind,old,abs.
skipr,abs.
copyei,abs,old.
note(dir)+*build unam
libedit(i=dir,p=old,lo=e,b=0)
rewind,abs,new,ulib.
skipr,abs.
compass(a,i=ulib,s=0,l=0,b=ulhdr)
rewind(ulhdr)
copybr,ulhdr,abs.
copyei,new,abs.
unload,dir,old,new,ulhdr.
revert. ulib
.data,ulibm.
          ident  ulib
          #abs
          nolabel
 
*         form a prefix table
 
 prefix   data   77000016000000000000b
          dis    ,*mastor*
          data   10h"date"
          data   10h"time"
          dis    1,
          dis    1,
          dis    1,
          dis    1,
          dis    ,* library for mastor.*
          bssz   17b+prefix-*   complete the prefix table
 
*         make a ulib table
 
          data   76000001000000000000b
 
          end
.data,ulibmn.
          ident  ulib
          #abs
          nolabel
 
*         form a prefix table
 
 prefix   data   77000016000000000000b
          dis    ,*mastorn*
          data   10h"date"
          data   10h"time"
          dis    1,
          dis    1,
          dis    1,
          dis    1,
          dis    ,* library for mastorn.*
          bssz   17b+prefix-*   complete the prefix table
 
*         make a ulib table
 
          data   76000001000000000000b
 
          end
.data,ulibp.
          ident  ulib
          #abs
          nolabel
 
*         form a prefix table
 
 prefix   data   77000016000000000000b
          dis    ,*plato*
          data   10h"date"
          data   10h"time"
          dis    1,
          dis    1,
          dis    1,
          dis    1,
          dis    ,* library for plato.*
          bssz   17b+prefix-*   complete the prefix table
 
*         make a ulib table
 
          data   76000001000000000000b
 
          end
.data,ulibf.
          ident  ulib
          #abs
          nolabel
 
*         form a prefix table
 
 prefix   data   77000016000000000000b
          dis    ,*framat*
          data   10h"date"
          data   10h"time"
          dis    1,
          dis    1,
          dis    1,
          dis    1,
          dis    ,* library for framat.*
          bssz   17b+prefix-*   complete the prefix table
 
*         make a ulib table
 
          data   76000001000000000000b
 
          end
.data,ulibc.
          ident  ulib
          #abs
          nolabel
 
*         form a prefix table
 
 prefix   data   77000016000000000000b
          dis    ,*conden*
          data   10h"date"
          data   10h"time"
          dis    1,
          dis    1,
          dis    1,
          dis    1,
          dis    ,* library for condensor.*
          bssz   17b+prefix-*   complete the prefix table
 
*         make a ulib table
 
          data   76000001000000000000b
 
          end
.data,ulibplf.
          ident  ulib
          #abs
          nolabel
 
*         form a prefix table
 
 prefix   data   77000016000000000000b
          dis    ,*plf*
          data   10h"date"
          data   10h"time"
          dis    1,
          dis    1,
          dis    1,
          dis    1,
          dis    ,* library for plf.*
          bssz   17b+prefix-*   complete the prefix table
 
*         make a ulib table
 
          data   76000001000000000000b
 
          end
~