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

     mmp$get_sdtx_entry_p := #address (1, #segment (xcb_p),
       #SIZE (mmt$segment_descriptor_extended) * segnum + xcb_p^.sdtx_offset);

   FUNCEND;

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

