 PROCEDURE [XREF] jmp$delete_non_inherited_segs (VAR status: ost$status);

