  PROCEDURE [XREF] mmp$read (pva: ^cell;
        length: ost$segment_length;
        iostatus_p: ^mmt$io_status;
        wait: ost$wait;
   VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc mmt$io_status
*copyc ost$wait
*copyc osd$virtual_address
?? POP ??
