 PROCEDURE [XREF] cmp$mount_storage_medium (
        storage_device: cmt$peripheral_descriptor;
        medium: rmt$external_vsn;
        write_access: boolean;
        wait_for_attachment: fst$wait_for_attachment;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$peripheral_descriptor
*copyc rmd$volume_declarations
*copyc fst$wait_for_attachment
*copyc ost$status
?? POP ??
