/* tell if a given overlay is loaded & mapped for PL/I symbolic debugger %include 'overlaym.inc' for proper entry declaration */ overlay_mapped: procedure(overlay_descriptor) returns(fixed bin(1)/*true if loaded & mapped*/); dcl overlay_descriptor fixed bin(15); /*address in user task of descriptor*/ %include 'rundef.pli'; %include 'segdef.pli'; %include 'truefalse.inc'; %include 'getword.inc'; dcl iand entry(fixed bin(15), fixed bin(15)) returns(fixed bin(15)); /**************************************************************************************************************/ if overlay_descriptor = root_segment_descriptor then return(true); /*save a send & receive*/ /*(this test is actually required since in a non-overlaid task there is no root segment descriptor)*/ return(iand(getword(overlay_descriptor+overlay_descriptor_status), overlay_mapped_bit) = overlay_mapped_true); end;