
  PROCEDURE [XREF] mmp$add_sdt_sdtx_entry
    (    sdt_entry: mmt$segment_descriptor;
         sdtx_entry: mmt$segment_descriptor_extended;
         fde_entry_p: gft$file_desc_entry_p;
         ada_taskid_array: ^array [1 .. *] of pmt$task_id;
         segment_number: ost$segment);

?? PUSH (LISTEXT := ON) ??
*copyc GFT$FILE_DESC_ENTRY_P
*copyc MMT$SEGMENT_DESCRIPTOR_TABLE
*copyc MMT$SEGMENT_DESCRIPTOR_TABLE_EX
*copyc OSD$VIRTUAL_ADDRESS
*copyc PMT$TASK_ID
?? POP ??
