  PROCEDURE [XREF] mmp$set_segment_access_rights (sd: mmt$segment_descriptor;
    VAR stxe: mmt$segment_descriptor_extended);

?? PUSH (LISTEXT := ON) ??
*copyc MMT$SEGMENT_DESCRIPTOR_TABLE
*copyc MMT$SEGMENT_DESCRIPTOR_TABLE_EX
?? POP ??
