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