
   FUNCTION [INLINE] mmp$get_sdt_entry_p
     (    xcb_p: ^ost$execution_control_block;
          segnum: ost$segment): ^mmt$segment_descriptor;

     mmp$get_sdt_entry_p := #address (1, #segment (xcb_p),
       8 * segnum + xcb_p^.sdt_offset);

   FUNCEND;

?? PUSH (LISTEXT := ON) ??
*copyc mmt$segment_descriptor_table
*copyc ost$execution_control_block
*copyc ost$heap
?? POP ??
