
  PROCEDURE [XREF] mmp$create_shadow_segment (segment_p: ^cell;
        shadow_offset: ost$segment_offset;
        shadow_length: ost$segment_length;
        pointer_kind: amt$pointer_kind;
    VAR pva: amt$segment_pointer;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc amt$segment_pointer
*copyc ost$status
?? POP ??
