
  PROCEDURE [XREF] mmp$assign_segment_to_disk (segnum: ost$segment;
        length: ost$segment_length;
    VAR status: ost$status);
?? PUSH (LISTEXT := OFF) ??
*copyc ost$status
*copyc osd$virtual_address
?? POP ??
