external  routine  spec  prompt(string  (255) s)
external  routine  spec  rdint(integer  name  i)
external  integer  fn  spec  bin(string  (255) s)
system  routine  spec  phex(integer  i)


external  routine  seg to addr(string  (255) s)
integer  seg, addr, i
   if  s="" start 
      prompt("Addr or seg: ")
      rdint(i)
   finish  else  i=bin(s)

   if  i>x'3FFFF' start 
      seg=i>>18
      addr=i
   finish  else  start 
      addr=i<<18
      seg=i
   finish 

   printstring("Seg ="); write(seg, 1); printstring("  X'"); phex(seg)
   printstring("'  Address = "); phex(addr)
   newline
end  {seg to addr}
external  routine  addr to seg(string  (255) s)
   seg to addr(s)
end  {addr to seg}




dynamic  routine  spec  disconnect(string  (255) s)
system  routine  spec  set use(string  (31) file, integer  mode, value)

external  routine  d(string  (255) s)
   set use("ERCC10.DY", 1, 0)
   disconnect(".ALL")
   set use("ERCC10.DY", -1, 0)
end  {d}
end  of  file